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 =  12
        err = 0.7746521155988317D-04
        xs(  1) = 0.8379936666656027D-03
        xs(  2) = 0.4097930222950272D-02
        xs(  3) = 0.9181853043502573D-02
        xs(  4) = 0.1555302392756859D-01
        xs(  5) = 0.2286815587923284D-01
        xs(  6) = 0.3089683730810134D-01
        xs(  7) = 0.3948252487104246D-01
        xs(  8) = 0.4851894447494913D-01
        xs(  9) = 0.5793371372004634D-01
        xs( 10) = 0.6767860481758815D-01
        xs( 11) = 0.7772524978322767D-01
        xs( 12) = 0.8811933181071725D-01
        ws(  1) = 0.2105929142474563D-02
        ws(  2) = 0.4283049851657686D-02
        ws(  3) = 0.5797662224743253D-02
        ws(  4) = 0.6889005415014298D-02
        ws(  5) = 0.7703177572985293D-02
        ws(  6) = 0.8328592458512883D-02
        ws(  7) = 0.8826552792868810D-02
        ws(  8) = 0.9239268803536401D-02
        ws(  9) = 0.9599785353035694D-02
        ws( 10) = 0.9948055960754544D-02
        ws( 11) = 0.1039687586132728D-01
        ws( 12) = 0.1207341200009158D-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 =  12
        err = 0.7832216308829051D-04
        xs(  1) = 0.8333866164522622D-03
        xs(  2) = 0.4080801712349877D-02
        xs(  3) = 0.9151427088282361D-02
        xs(  4) = 0.1551112170436519D-01
        xs(  5) = 0.2281736755998598D-01
        xs(  6) = 0.3083923731707004D-01
        xs(  7) = 0.3941946267023627D-01
        xs(  8) = 0.4845115029765864D-01
        xs(  9) = 0.5786159478490640D-01
        xs( 10) = 0.6760249961683405D-01
        xs( 11) = 0.7764601590366400D-01
        xs( 12) = 0.8803977197343035D-01
        ws(  1) = 0.2095513293745708D-02
        ws(  2) = 0.4269422452784291D-02
        ws(  3) = 0.5785005379822704D-02
        ws(  4) = 0.6878932834529350D-02
        ws(  5) = 0.7695564618876733D-02
        ws(  6) = 0.8322758394897605D-02
        ws(  7) = 0.8821836731979367D-02
        ws(  8) = 0.9235311862408007D-02
        ws(  9) = 0.9596684549994971D-02
        ws( 10) = 0.9946729393670473D-02
        ws( 11) = 0.1040049002477254D-01
        ws( 12) = 0.1209394357714946D-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 =  12
        err = 0.7441255005230150D-04
        xs(  1) = 0.8147421798551877D-03
        xs(  2) = 0.4008530602019540D-02
        xs(  3) = 0.9020881238244819D-02
        xs(  4) = 0.1533015102592225D-01
        xs(  5) = 0.2259745234224127D-01
        xs(  6) = 0.3058962313120281D-01
        xs(  7) = 0.3914611943489336D-01
        xs(  8) = 0.4815783507033983D-01
        xs(  9) = 0.5755137158663841D-01
        xs( 10) = 0.6727819469259402D-01
        xs( 11) = 0.7731548330439625D-01
        xs( 12) = 0.8771799411740153D-01
        ws(  1) = 0.2052472018619072D-02
        ws(  2) = 0.4210222020767570D-02
        ws(  3) = 0.5729209364125753D-02
        ws(  4) = 0.6834621479334993D-02
        ws(  5) = 0.7662068679773467D-02
        ws(  6) = 0.8297136865771342D-02
        ws(  7) = 0.8800989193882714D-02
        ws(  8) = 0.9218506737621784D-02
        ws(  9) = 0.9583936998304564D-02
        ws( 10) = 0.9942034544360809D-02
        ws( 11) = 0.1041801947208508D-01
        ws( 12) = 0.1216450400745644D-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 =  12
        err = 0.6934616359178097D-04
        xs(  1) = 0.7719995983664146D-03
        xs(  2) = 0.3838513160332174D-02
        xs(  3) = 0.8717508119627536D-02
        xs(  4) = 0.1491952530717439D-01
        xs(  5) = 0.2210940707629758D-01
        xs(  6) = 0.3004590213308499D-01
        xs(  7) = 0.3856004714771464D-01
        xs(  8) = 0.4753867256413244D-01
        xs(  9) = 0.5690651174820500D-01
        xs( 10) = 0.6661600791431110D-01
        xs( 11) = 0.7665562223983555D-01
        xs( 12) = 0.8707896597228858D-01
        ws(  1) = 0.1951957373977003D-02
        ws(  2) = 0.4071162394390680D-02
        ws(  3) = 0.5605860411322799D-02
        ws(  4) = 0.6743607735779887D-02
        ws(  5) = 0.7597317238133282D-02
        ws(  6) = 0.8249844831481607D-02
        ws(  7) = 0.8764360699068545D-02
        ws(  8) = 0.9191216871461285D-02
        ws(  9) = 0.9564668006340779D-02
        ws( 10) = 0.9939561813366212D-02
        ws( 11) = 0.1044923027470293D-01
        ws( 12) = 0.1224325979238074D-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 =  12
        err = 0.6990216499345799D-04
        xs(  1) = 0.6666831858408240D-03
        xs(  2) = 0.3436740520074701D-02
        xs(  3) = 0.8071376613845356D-02
        xs(  4) = 0.1412574611871114D-01
        xs(  5) = 0.2122529501451823D-01
        xs(  6) = 0.2910079473321025D-01
        xs(  7) = 0.3757040685506029D-01
        xs(  8) = 0.4651569225941616D-01
        xs(  9) = 0.5586056626055097D-01
        xs( 10) = 0.6556272587932419D-01
        xs( 11) = 0.7560508751396001D-01
        xs( 12) = 0.8602514207556929D-01
        ws(  1) = 0.1704480616526799D-02
        ws(  2) = 0.3776632799452085D-02
        ws(  3) = 0.5415515220659528D-02
        ws(  4) = 0.6630587381483312D-02
        ws(  5) = 0.7524588234325786D-02
        ws(  6) = 0.8197662809608439D-02
        ws(  7) = 0.8725190327178136D-02
        ws(  8) = 0.9161145589792582D-02
        ws(  9) = 0.9546278838771849D-02
        ws( 10) = 0.9933368770209557D-02
        ws( 11) = 0.1043270307683563D-01
        ws( 12) = 0.1215768566851225D-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 =  13
        err = 0.7263082836695617D-04
        xs(  1) = 0.3852486312914618D-03
        xs(  2) = 0.2165043500649978D-02
        xs(  3) = 0.5707175267464632D-02
        xs(  4) = 0.1095251256869283D-01
        xs(  5) = 0.1749916130771607D-01
        xs(  6) = 0.2498172622894758D-01
        xs(  7) = 0.3315450163799487D-01
        xs(  8) = 0.4185939189507744D-01
        xs(  9) = 0.5099848974286736D-01
        xs( 10) = 0.6050432133997181D-01
        xs( 11) = 0.7035267667507190D-01
        xs( 12) = 0.8051279390697333D-01
        xs( 13) = 0.9095147694796049D-01
        ws(  1) = 0.1005524836230122D-02
        ws(  2) = 0.2622028606661295D-02
        ws(  3) = 0.4449013635593060D-02
        ws(  4) = 0.5966909346998204D-02
        ws(  5) = 0.7065177239733991D-02
        ws(  6) = 0.7860745246815654D-02
        ws(  7) = 0.8459833529988425D-02
        ws(  8) = 0.8937835769455659D-02
        ws(  9) = 0.9339221855887507D-02
        ws( 10) = 0.9700001796182574D-02
        ws( 11) = 0.1007675288103512D-01
        ws( 12) = 0.1049820335495720D-01
        ws( 13) = 0.1208169602788507D-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 =  14
        err = 0.4988539568371046D-04
        xs(  1) = 0.2427067264728044D-03
        xs(  2) = 0.1361900033905269D-02
        xs(  3) = 0.3728987836852644D-02
        xs(  4) = 0.7794647320296843D-02
        xs(  5) = 0.1356401975768002D-01
        xs(  6) = 0.2058811318282989D-01
        xs(  7) = 0.2845755480091232D-01
        xs(  8) = 0.3692742962695523D-01
        xs(  9) = 0.4585746495480588D-01
        xs( 10) = 0.5516642100006350D-01
        xs( 11) = 0.6480616141743996D-01
        xs( 12) = 0.7475965925598430D-01
        xs( 13) = 0.8500129962019792D-01
        xs( 14) = 0.9547211421173432D-01
        ws(  1) = 0.6320315729254832D-03
        ws(  2) = 0.1663978570910122D-02
        ws(  3) = 0.3158602385295342D-02
        ws(  4) = 0.4973076736535639D-02
        ws(  5) = 0.6479425339563275D-02
        ws(  6) = 0.7499972322127506D-02
        ws(  7) = 0.8200136710375470D-02
        ws(  8) = 0.8718296775447103D-02
        ws(  9) = 0.9132501521920784D-02
        ws( 10) = 0.9487529934715029D-02
        ws( 11) = 0.9817888083345348D-02
        ws( 12) = 0.1017021853797408D-01
        ws( 13) = 0.1060104512117261D-01
        ws( 14) = 0.1194387086856605D-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 =  16
        err = 0.5493281285109050D-04
        xs(  1) = 0.1030578746339077D-03
        xs(  2) = 0.5604791533027256D-03
        xs(  3) = 0.1464917859274346D-02
        xs(  4) = 0.2997544686834439D-02
        xs(  5) = 0.5509631589079920D-02
        xs(  6) = 0.9523625559374874D-02
        xs(  7) = 0.1531060171529402D-01
        xs(  8) = 0.2252325453168991D-01
        xs(  9) = 0.3065985662536370D-01
        xs( 10) = 0.3940341394639442D-01
        xs( 11) = 0.4858804505750799D-01
        xs( 12) = 0.5812654966011595D-01
        xs( 13) = 0.6796321450851714D-01
        xs( 14) = 0.7808344588717313D-01
        xs( 15) = 0.8843184199436920D-01
        xs( 16) = 0.9880448998915374D-01
        ws(  1) = 0.2664048837128745D-03
        ws(  2) = 0.6610311942934540D-03
        ws(  3) = 0.1176922739336324D-02
        ws(  4) = 0.1945533321929605D-02
        ws(  5) = 0.3173232192898523D-02
        ws(  6) = 0.4910881241015670D-02
        ws(  7) = 0.6591961342149264D-02
        ws(  8) = 0.7744748345309540D-02
        ws(  9) = 0.8477245922260405D-02
        ws( 10) = 0.8983957088578760D-02
        ws( 11) = 0.9374216069739342D-02
        ws( 12) = 0.9701091712122870D-02
        ws( 13) = 0.9999591700614641D-02
        ws( 14) = 0.1034720877726416D-01
        ws( 15) = 0.1068327126391501D-01
        ws( 16) = 0.1141141076267334D-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 =  19
        err = 0.6079482309590843D-04
        xs(  1) = 0.3875867321466731D-04
        xs(  2) = 0.2062532615700312D-03
        xs(  3) = 0.5168019494493753D-03
        xs(  4) = 0.9898694101375550D-03
        xs(  5) = 0.1660665570133705D-02
        xs(  6) = 0.2589686071551093D-02
        xs(  7) = 0.3879901450837642D-02
        xs(  8) = 0.5715093356601421D-02
        xs(  9) = 0.8438557633864856D-02
        xs( 10) = 0.1263164471245315D-01
        xs( 11) = 0.1888618897127335D-01
        xs( 12) = 0.2702333725446814D-01
        xs( 13) = 0.3628229713295723D-01
        xs( 14) = 0.4612066921543124D-01
        xs( 15) = 0.5629379007164661D-01
        xs( 16) = 0.6670305326398604D-01
        xs( 17) = 0.7728664838205818D-01
        xs( 18) = 0.8800574208120167D-01
        xs( 19) = 0.9839261568445125D-01
        ws(  1) = 0.9968485299273030D-04
        ws(  2) = 0.2367997086183687D-03
        ws(  3) = 0.3874684370525199D-03
        ws(  4) = 0.5643908511473763D-03
        ws(  5) = 0.7870040367775739D-03
        ws(  6) = 0.1087697374070614D-02
        ws(  7) = 0.1521912112114449D-02
        ws(  8) = 0.2204144572379983D-02
        ws(  9) = 0.3340696025061101D-02
        ws( 10) = 0.5164191767409881D-02
        ws( 11) = 0.7309562615997438D-02
        ws( 12) = 0.8820312663991659D-02
        ws( 13) = 0.9608447422383556D-02
        ws( 14) = 0.1003322734686373D-01
        ws( 15) = 0.1031519932987603D-01
        ws( 16) = 0.1054831988212896D-01
        ws( 17) = 0.1081342001613012D-01
        ws( 18) = 0.1091252511646234D-01
        ws( 19) = 0.9947917020416228D-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 =  22
        err = 0.6891256859644999D-04
        xs(  1) = 0.2018281622789519D-04
        xs(  2) = 0.1067803873800587D-03
        xs(  3) = 0.2646079644472440D-03
        xs(  4) = 0.4978521092194567D-03
        xs(  5) = 0.8137709242889579D-03
        xs(  6) = 0.1223807295288501D-02
        xs(  7) = 0.1745222252251621D-02
        xs(  8) = 0.2403551632577885D-02
        xs(  9) = 0.3237379073852461D-02
        xs( 10) = 0.4306190751647506D-02
        xs( 11) = 0.5703275308466091D-02
        xs( 12) = 0.7585038832659781D-02
        xs( 13) = 0.1024987474673501D-01
        xs( 14) = 0.1426045416009988D-01
        xs( 15) = 0.2052101210059607D-01
        xs( 16) = 0.2960085796309201D-01
        xs( 17) = 0.4064612854714871D-01
        xs( 18) = 0.5246187773321406D-01
        xs( 19) = 0.6446975184484877D-01
        xs( 20) = 0.7647010647203024D-01
        xs( 21) = 0.8836788110575071D-01
        xs( 22) = 0.9959382324529675D-01
        ws(  1) = 0.5183508006268460D-04
        ws(  2) = 0.1217156944123201D-03
        ws(  3) = 0.1946159965857773D-03
        ws(  4) = 0.2730694078392549D-03
        ws(  5) = 0.3606518222221355D-03
        ws(  6) = 0.4622635628745100D-03
        ws(  7) = 0.5847428394794576D-03
        ws(  8) = 0.7382077478138182D-03
        ws(  9) = 0.9391736348025959D-03
        ws( 10) = 0.1213596742829508D-02
        ws( 11) = 0.1605359767057768D-02
        ws( 12) = 0.2205661341625966D-02
        ws( 13) = 0.3215300424209404D-02
        ws( 14) = 0.4964168006906107D-02
        ws( 15) = 0.7686443999174446D-02
        ws( 16) = 0.1029736827197648D-01
        ws( 17) = 0.1157940321232427D-01
        ws( 18) = 0.1196424182227702D-01
        ws( 19) = 0.1204526866310633D-01
        ws( 20) = 0.1205042754928528D-01
        ws( 21) = 0.1198375807325313D-01
        ws( 22) = 0.9877324420212734D-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 =  26
        err = 0.4913402372597132D-04
        xs(  1) = 0.1233502311095422D-04
        xs(  2) = 0.6511518017857569D-04
        xs(  3) = 0.1606397742325126D-03
        xs(  4) = 0.3001267036066170D-03
        xs(  5) = 0.4857016716899877D-03
        xs(  6) = 0.7206761536536528D-03
        xs(  7) = 0.1009889241877291D-02
        xs(  8) = 0.1360093631577478D-02
        xs(  9) = 0.1780498134641458D-02
        xs( 10) = 0.2283706426338475D-02
        xs( 11) = 0.2886920854413479D-02
        xs( 12) = 0.3613998527134725D-02
        xs( 13) = 0.4498292202318935D-02
        xs( 14) = 0.5588782258496799D-02
        xs( 15) = 0.6958446302192483D-02
        xs( 16) = 0.8721760717146218D-02
        xs( 17) = 0.1109445998969960D-01
        xs( 18) = 0.1448201380405297D-01
        xs( 19) = 0.1962489125054302D-01
        xs( 20) = 0.2764832782077147D-01
        xs( 21) = 0.3894866888398058D-01
        xs( 22) = 0.5216579245607522D-01
        xs( 23) = 0.6590111791458747D-01
        xs( 24) = 0.7955771558051598D-01
        xs( 25) = 0.9288479547363176D-01
        xs( 26) = 0.1054128253993683D+00
        ws(  1) = 0.3166804451166526D-04
        ws(  2) = 0.7400659806660483D-04
        ws(  3) = 0.1172379889041638D-03
        ws(  4) = 0.1620875959790231D-03
        ws(  5) = 0.2096098317204364D-03
        ws(  6) = 0.2611409594796277D-03
        ws(  7) = 0.3184008965202983D-03
        ws(  8) = 0.3835228927947344D-03
        ws(  9) = 0.4593715372614129D-03
        ws( 10) = 0.5498755119855606D-03
        ws( 11) = 0.6604945775331504D-03
        ws( 12) = 0.7991142660411838D-03
        ws( 13) = 0.9774775408435490D-03
        ws( 14) = 0.1215496070002474D-02
        ws( 15) = 0.1541882822190225D-02
        ws( 16) = 0.2019151510068321D-02
        ws( 17) = 0.2791802740585572D-02
        ws( 18) = 0.4102602412361172D-02
        ws( 19) = 0.6387791973804679D-02
        ws( 20) = 0.9762416609055748D-02
        ws( 21) = 0.1255965270239270D-01
        ws( 22) = 0.1363442336271907D-01
        ws( 23) = 0.1374805564930026D-01
        ws( 24) = 0.1351723853829176D-01
        ws( 25) = 0.1290577453971655D-01
        ws( 26) = 0.9657468295394336D-02
        endif
        if( idomain .eq.   12 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  29
        err = 0.9053755328553836D-04
        xs(  1) = 0.8549803336051705D-05
        xs(  2) = 0.4508281494235280D-04
        xs(  3) = 0.1109804791918007D-03
        xs(  4) = 0.2066563681948685D-03
        xs(  5) = 0.3328832365874288D-03
        xs(  6) = 0.4909109195791926D-03
        xs(  7) = 0.6825803747955020D-03
        xs(  8) = 0.9104860960995136D-03
        xs(  9) = 0.1178077231860857D-02
        xs( 10) = 0.1489848760466107D-02
        xs( 11) = 0.1851665599724128D-02
        xs( 12) = 0.2271069946682301D-02
        xs( 13) = 0.2758044530965460D-02
        xs( 14) = 0.3325389251835876D-02
        xs( 15) = 0.3990001064429761D-02
        xs( 16) = 0.4775276986277113D-02
        xs( 17) = 0.5713472444677677D-02
        xs( 18) = 0.6849963328111978D-02
        xs( 19) = 0.8254183806336199D-02
        xs( 20) = 0.1004105267525317D-01
        xs( 21) = 0.1242223726319379D-01
        xs( 22) = 0.1578873848501138D-01
        xs( 23) = 0.2088939360643420D-01
        xs( 24) = 0.2903865643131163D-01
        xs( 25) = 0.4126402091105628D-01
        xs( 26) = 0.5631121264620304D-01
        xs( 27) = 0.7212304159704561D-01
        xs( 28) = 0.8765835624142898D-01
        xs( 29) = 0.1020837733744988D+00
        ws(  1) = 0.2194592058116105D-04
        ws(  2) = 0.5116750053179871D-04
        ws(  3) = 0.8069272700929560D-04
        ws(  4) = 0.1107848540360740D-03
        ws(  5) = 0.1418737979237740D-03
        ws(  6) = 0.1744849843138834D-03
        ws(  7) = 0.2092892688195026D-03
        ws(  8) = 0.2470978948343591D-03
        ws(  9) = 0.2888267414332674D-03
        ws( 10) = 0.3356925593345377D-03
        ws( 11) = 0.3891809713848705D-03
        ws( 12) = 0.4512956305850983D-03
        ws( 13) = 0.5247743500211401D-03
        ws( 14) = 0.6126808493892701D-03
        ws( 15) = 0.7204200043505827D-03
        ws( 16) = 0.8554631901171574D-03
        ws( 17) = 0.1028289505877026D-02
        ws( 18) = 0.1256018647593456D-02
        ws( 19) = 0.1570585260850915D-02
        ws( 20) = 0.2037318746236152D-02
        ws( 21) = 0.2787391450436625D-02
        ws( 22) = 0.4064749892924806D-02
        ws( 23) = 0.6363490026678043D-02
        ws( 24) = 0.1016466874931880D-01
        ws( 25) = 0.1403063833722415D-01
        ws( 26) = 0.1568832825938872D-01
        ws( 27) = 0.1578564241990492D-01
        ws( 28) = 0.1525993526029382D-01
        ws( 29) = 0.1189887677775431D-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 =  33
        err = 0.8411622950690355D-04
        xs(  1) = 0.6179151150923344D-05
        xs(  2) = 0.3257148345954395D-04
        xs(  3) = 0.8011748571732270D-04
        xs(  4) = 0.1489850219372069D-03
        xs(  5) = 0.2394938160019110D-03
        xs(  6) = 0.3521737899317679D-03
        xs(  7) = 0.4878177174362947D-03
        xs(  8) = 0.6475384316387267D-03
        xs(  9) = 0.8328349636235175D-03
        xs( 10) = 0.1045622140635154D-02
        xs( 11) = 0.1288331405389767D-02
        xs( 12) = 0.1564034354792909D-02
        xs( 13) = 0.1876530218894266D-02
        xs( 14) = 0.2230586239560746D-02
        xs( 15) = 0.2632092396123356D-02
        xs( 16) = 0.3088357655545460D-02
        xs( 17) = 0.3608880300568740D-02
        xs( 18) = 0.4205567902615170D-02
        xs( 19) = 0.4893790297156499D-02
        xs( 20) = 0.5694983994900238D-02
        xs( 21) = 0.6637785104044328D-02
        xs( 22) = 0.7761984661389978D-02
        xs( 23) = 0.9124041812350627D-02
        xs( 24) = 0.1081775347006359D-01
        xs( 25) = 0.1301607239206153D-01
        xs( 26) = 0.1600807973664427D-01
        xs( 27) = 0.2033504837433953D-01
        xs( 28) = 0.2712720980250262D-01
        xs( 29) = 0.3803058411151066D-01
        xs( 30) = 0.5328496494429785D-01
        xs( 31) = 0.7053812965830419D-01
        xs( 32) = 0.8776067331903234D-01
        xs( 33) = 0.1037873971103259D+00
        ws(  1) = 0.1585924884227084D-04
        ws(  2) = 0.3694912197336160D-04
        ws(  3) = 0.5816875969942811D-04
        ws(  4) = 0.7961976323754785D-04
        ws(  5) = 0.1014859119927931D-03
        ws(  6) = 0.1240058621859956D-03
        ws(  7) = 0.1474633258704797D-03
        ws(  8) = 0.1722274625802534D-03
        ws(  9) = 0.1986863235816712D-03
        ws( 10) = 0.2272923853036146D-03
        ws( 11) = 0.2586384071760601D-03
        ws( 12) = 0.2933929795677769D-03
        ws( 13) = 0.3323907844959708D-03
        ws( 14) = 0.3767016314261674D-03
        ws( 15) = 0.4275089035577912D-03
        ws( 16) = 0.4866083338304185D-03
        ws( 17) = 0.5564214209732297D-03
        ws( 18) = 0.6394437417520097D-03
        ws( 19) = 0.7405945873353443D-03
        ws( 20) = 0.8664493959754810D-03
        ws( 21) = 0.1025770305719524D-02
        ws( 22) = 0.1231713362218192D-02
        ws( 23) = 0.1507168546586006D-02
        ws( 24) = 0.1908823380990350D-02
        ws( 25) = 0.2534111308289952D-02
        ws( 26) = 0.3533509415280048D-02
        ws( 27) = 0.5306071784948616D-02
        ws( 28) = 0.8582821760503739D-02
        ws( 29) = 0.1331669781871604D-01
        ws( 30) = 0.1670949391762471D-01
        ws( 31) = 0.1746009177772744D-01
        ws( 32) = 0.1661753184350812D-01
        ws( 33) = 0.1209578537725099D-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 =  37
        err = 0.9335084953079667D-04
        xs(  1) = 0.4705074151397305D-05
        xs(  2) = 0.2479265984994678D-04
        xs(  3) = 0.6094753615011721D-04
        xs(  4) = 0.1132308975358220D-03
        xs(  5) = 0.1817745940836128D-03
        xs(  6) = 0.2668174373097677D-03
        xs(  7) = 0.3687330865707581D-03
        xs(  8) = 0.4880568756435092D-03
        xs(  9) = 0.6255251198802509D-03
        xs( 10) = 0.7820792991898892D-03
        xs( 11) = 0.9588914561565212D-03
        xs( 12) = 0.1157440152881310D-02
        xs( 13) = 0.1379519394260471D-02
        xs( 14) = 0.1627305083854706D-02
        xs( 15) = 0.1903463674376770D-02
        xs( 16) = 0.2211159063667669D-02
        xs( 17) = 0.2554251646667796D-02
        xs( 18) = 0.2937421742412475D-02
        xs( 19) = 0.3366441576801727D-02
        xs( 20) = 0.3848346347023407D-02
        xs( 21) = 0.4392036959034246D-02
        xs( 22) = 0.5008856213741582D-02
        xs( 23) = 0.5713357008602652D-02
        xs( 24) = 0.6524869336182490D-02
        xs( 25) = 0.7468980615944171D-02
        xs( 26) = 0.8580797277381549D-02
        xs( 27) = 0.9908006720645120D-02
        xs( 28) = 0.1152676384414591D-01
        xs( 29) = 0.1358951579759736D-01
        xs( 30) = 0.1634683919125171D-01
        xs( 31) = 0.2022816578507353D-01
        xs( 32) = 0.2609125123975833D-01
        xs( 33) = 0.3548356953503094D-01
        xs( 34) = 0.4988962474963309D-01
        xs( 35) = 0.6807642331535264D-01
        xs( 36) = 0.8716092372003111D-01
        xs( 37) = 0.1051335814401959D+00
        ws(  1) = 0.1207486913249311D-04
        ws(  2) = 0.2811314321539598D-04
        ws(  3) = 0.4420536058918487D-04
        ws(  4) = 0.6038390616870297D-04
        ws(  5) = 0.7674471586932115D-04
        ws(  6) = 0.9340364117950647D-04
        ws(  7) = 0.1105134576101342D-03
        ws(  8) = 0.1282566040877910D-03
        ws(  9) = 0.1468393201473314D-03
        ws( 10) = 0.1664624710245815D-03
        ws( 11) = 0.1874039312611080D-03
        ws( 12) = 0.2099902381823180D-03
        ws( 13) = 0.2345286410486718D-03
        ws( 14) = 0.2614895585892596D-03
        ws( 15) = 0.2913502127029716D-03
        ws( 16) = 0.3246758943662761D-03
        ws( 17) = 0.3622774140544565D-03
        ws( 18) = 0.4050173868237522D-03
        ws( 19) = 0.4541796584312226D-03
        ws( 20) = 0.5110860154145162D-03
        ws( 21) = 0.5781946191279219D-03
        ws( 22) = 0.6578235702852892D-03
        ws( 23) = 0.7544031270959964D-03
        ws( 24) = 0.8728241483966782D-03
        ws( 25) = 0.1021171333850615D-02
        ws( 26) = 0.1210378482082091D-02
        ws( 27) = 0.1455514496223428D-02
        ws( 28) = 0.1807352663245850D-02
        ws( 29) = 0.2359059407203144D-02
        ws( 30) = 0.3222627180955586D-02
        ws( 31) = 0.4676561918463582D-02
        ws( 32) = 0.7313798391965981D-02
        ws( 33) = 0.1178293524229666D-01
        ws( 34) = 0.1679430017629611D-01
        ws( 35) = 0.1902674301312654D-01
        ws( 36) = 0.1876094815814588D-01
        ws( 37) = 0.1459650408826453D-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 =  41
        err = 0.6853269834360819D-04
        xs(  1) = 0.3711437990647591D-05
        xs(  2) = 0.1955597710810504D-04
        xs(  3) = 0.4805731086761519D-04
        xs(  4) = 0.8923093361487760D-04
        xs(  5) = 0.1431222636402719D-03
        xs(  6) = 0.2098382629654422D-03
        xs(  7) = 0.2895616977004351D-03
        xs(  8) = 0.3825606129684142D-03
        xs(  9) = 0.4892150221096737D-03
        xs( 10) = 0.6100342997813437D-03
        xs( 11) = 0.7456413908814510D-03
        xs( 12) = 0.8968101799247897D-03
        xs( 13) = 0.1064501099310562D-02
        xs( 14) = 0.1249834335044558D-02
        xs( 15) = 0.1454160602542544D-02
        xs( 16) = 0.1679116303572169D-02
        xs( 17) = 0.1926579964023693D-02
        xs( 18) = 0.2198780192451326D-02
        xs( 19) = 0.2498369603181856D-02
        xs( 20) = 0.2828548618194474D-02
        xs( 21) = 0.3193109063828345D-02
        xs( 22) = 0.3596419708973128D-02
        xs( 23) = 0.4044090301823291D-02
        xs( 24) = 0.4542924697892474D-02
        xs( 25) = 0.5101149178035277D-02
        xs( 26) = 0.5729253145797825D-02
        xs( 27) = 0.6440555620878516D-02
        xs( 28) = 0.7252015661010044D-02
        xs( 29) = 0.8186139514559538D-02
        xs( 30) = 0.9273190648096679D-02
        xs( 31) = 0.1055479508751183D-01
        xs( 32) = 0.1209613724945166D-01
        xs( 33) = 0.1402948014796422D-01
        xs( 34) = 0.1656693492956389D-01
        xs( 35) = 0.2004102468731155D-01
        xs( 36) = 0.2509944410403235D-01
        xs( 37) = 0.3306136627922798D-01
        xs( 38) = 0.4591590924310651D-01
        xs( 39) = 0.6411086582179043D-01
        xs( 40) = 0.8464938437483920D-01
        xs( 41) = 0.1044758930452155D+00
        ws(  1) = 0.9525860106401159D-05
        ws(  2) = 0.2217065800937615D-04
        ws(  3) = 0.3483373568727715D-04
        ws(  4) = 0.4751811368017111D-04
        ws(  5) = 0.6028318785633404D-04
        ws(  6) = 0.7318313066981551D-04
        ws(  7) = 0.8630477353056646D-04
        ws(  8) = 0.9975581725345225D-04
        ws(  9) = 0.1136441672410553D-03
        ws( 10) = 0.1280954504431091D-03
        ws( 11) = 0.1432445378026826D-03
        ws( 12) = 0.1592582835115123D-03
        ws( 13) = 0.1763098017577936D-03
        ws( 14) = 0.1945787232484929D-03
        ws( 15) = 0.2143479500845550D-03
        ws( 16) = 0.2358764258019840D-03
        ws( 17) = 0.2594233979532149D-03
        ws( 18) = 0.2854174319372905D-03
        ws( 19) = 0.3142942703980575D-03
        ws( 20) = 0.3467036772757699D-03
        ws( 21) = 0.3831206195695983D-03
        ws( 22) = 0.4244451552037094D-03
        ws( 23) = 0.4720255077964775D-03
        ws( 24) = 0.5270066871527016D-03
        ws( 25) = 0.5911782885722291D-03
        ws( 26) = 0.6672532044269997D-03
        ws( 27) = 0.7581235833628956D-03
        ws( 28) = 0.8685336395396788D-03
        ws( 29) = 0.1004638724963144D-02
        ws( 30) = 0.1176418992365762D-02
        ws( 31) = 0.1396488897232480D-02
        ws( 32) = 0.1708390346078151D-02
        ws( 33) = 0.2193195104585033D-02
        ws( 34) = 0.2933964394279051D-02
        ws( 35) = 0.4115792782423622D-02
        ws( 36) = 0.6216340677232618D-02
        ws( 37) = 0.1006942164857384D-01
        ws( 38) = 0.1579539124200809D-01
        ws( 39) = 0.1998347559396886D-01
        ws( 40) = 0.2057628442717278D-01
        ws( 41) = 0.1634143367573105D-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 =  45
        err = 0.7498579434237448D-04
        xs(  1) = 0.2998712286125196D-05
        xs(  2) = 0.1580378431892833D-04
        xs(  3) = 0.3883176572428020D-04
        xs(  4) = 0.7208628006576256D-04
        xs(  5) = 0.1155838557831693D-03
        xs(  6) = 0.1693700534114085D-03
        xs(  7) = 0.2335409747675107D-03
        xs(  8) = 0.3082347753597822D-03
        xs(  9) = 0.3936643705390841D-03
        xs( 10) = 0.4901123569238800D-03
        xs( 11) = 0.5979390551820829D-03
        xs( 12) = 0.7175850551511144D-03
        xs( 13) = 0.8495940805640344D-03
        xs( 14) = 0.9946128159528810D-03
        xs( 15) = 0.1153397450819152D-02
        xs( 16) = 0.1326854181272007D-02
        xs( 17) = 0.1516036682501024D-02
        xs( 18) = 0.1722153134416005D-02
        xs( 19) = 0.1946620939661898D-02
        xs( 20) = 0.2191080384116837D-02
        xs( 21) = 0.2457469006371853D-02
        xs( 22) = 0.2748026092211734D-02
        xs( 23) = 0.3065359019426805D-02
        xs( 24) = 0.3412542677775463D-02
        xs( 25) = 0.3793266530231125D-02
        xs( 26) = 0.4211878328906273D-02
        xs( 27) = 0.4673644912451987D-02
        xs( 28) = 0.5185038631529601D-02
        xs( 29) = 0.5753768501486137D-02
        xs( 30) = 0.6389501018807691D-02
        xs( 31) = 0.7104315361298708D-02
        xs( 32) = 0.7914568326752042D-02
        xs( 33) = 0.8840567911570254D-02
        xs( 34) = 0.9907630069124432D-02
        xs( 35) = 0.1115644229984192D-01
        xs( 36) = 0.1265011779336872D-01
        xs( 37) = 0.1449682401962645D-01
        xs( 38) = 0.1686853957176325D-01
        xs( 39) = 0.2003838606362121D-01
        xs( 40) = 0.2453030531175327D-01
        xs( 41) = 0.3140927929783468D-01
        xs( 42) = 0.4260868926692248D-01
        xs( 43) = 0.5996833107547437D-01
        xs( 44) = 0.8164269678555137D-01
        xs( 45) = 0.1035484486225720D+00
        ws(  1) = 0.7698192675048318D-05
        ws(  2) = 0.1791524763311009D-04
        ws(  3) = 0.2814453108971775D-04
        ws(  4) = 0.3836691469153558D-04
        ws(  5) = 0.4863202970848799D-04
        ws(  6) = 0.5895854255544650D-04
        ws(  7) = 0.6940244953535279D-04
        ws(  8) = 0.8002341447716569D-04
        ws(  9) = 0.9088375329109562D-04
        ws( 10) = 0.1020718920936982D-03
        ws( 11) = 0.1136551601393562D-03
        ws( 12) = 0.1257275091978710D-03
        ws( 13) = 0.1383970536590641D-03
        ws( 14) = 0.1517665208909222D-03
        ws( 15) = 0.1659562827753259D-03
        ws( 16) = 0.1811305486886201D-03
        ws( 17) = 0.1974319219233299D-03
        ws( 18) = 0.2150372762846409D-03
        ws( 19) = 0.2341669240314110D-03
        ws( 20) = 0.2550737544727136D-03
        ws( 21) = 0.2780759934755285D-03
        ws( 22) = 0.3034718149722250D-03
        ws( 23) = 0.3317049518007858D-03
        ws( 24) = 0.3632749512573381D-03
        ws( 25) = 0.3989011775813388D-03
        ws( 26) = 0.4391904072003660D-03
        ws( 27) = 0.4854404091337593D-03
        ws( 28) = 0.5385984390615745D-03
        ws( 29) = 0.6004875047184155D-03
        ws( 30) = 0.6729473062915067D-03
        ws( 31) = 0.7594034513789248D-03
        ws( 32) = 0.8645790481015738D-03
        ws( 33) = 0.9913287009849347D-03
        ws( 34) = 0.1149620532141379D-02
        ws( 35) = 0.1358096831612816D-02
        ws( 36) = 0.1646889883092851D-02
        ws( 37) = 0.2074916562324892D-02
        ws( 38) = 0.2711758230756782D-02
        ws( 39) = 0.3710216806507421D-02
        ws( 40) = 0.5443102323791523D-02
        ws( 41) = 0.8643895906995483D-02
        ws( 42) = 0.1415207874570223D-01
        ws( 43) = 0.2020721820297104D-01
        ws( 44) = 0.2232824639785568D-01
        ws( 45) = 0.1861983516553039D-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 =  49
        err = 0.9579791440541391D-04
        xs(  1) = 0.2489736288369259D-05
        xs(  2) = 0.1311310911366044D-04
        xs(  3) = 0.3221524785428209D-04
        xs(  4) = 0.5978597119401717D-04
        xs(  5) = 0.9582007196021496D-04
        xs(  6) = 0.1403360485419065D-03
        xs(  7) = 0.1933730810714486D-03
        xs(  8) = 0.2550060262213046D-03
        xs(  9) = 0.3253499598527200D-03
        xs( 10) = 0.4045663307714294D-03
        xs( 11) = 0.4928726407104046D-03
        xs( 12) = 0.5905298928803310D-03
        xs( 13) = 0.6978626220270718D-03
        xs( 14) = 0.8152680717956064D-03
        xs( 15) = 0.9431998329648597D-03
        xs( 16) = 0.1082194003900855D-02
        xs( 17) = 0.1232887108688138D-02
        xs( 18) = 0.1395999406653845D-02
        xs( 19) = 0.1572348509841080D-02
        xs( 20) = 0.1762892792027067D-02
        xs( 21) = 0.1968703660432226D-02
        xs( 22) = 0.2191055283266189D-02
        xs( 23) = 0.2431377093939408D-02
        xs( 24) = 0.2691305932221782D-02
        xs( 25) = 0.2972750294117605D-02
        xs( 26) = 0.3277895627495556D-02
        xs( 27) = 0.3609386356784721D-02
        xs( 28) = 0.3970120068836142D-02
        xs( 29) = 0.4363762499734203D-02
        xs( 30) = 0.4794428139633711D-02
        xs( 31) = 0.5267124425560596D-02
        xs( 32) = 0.5787778846311239D-02
        xs( 33) = 0.6363785106630094D-02
        xs( 34) = 0.7004649576641398D-02
        xs( 35) = 0.7721269009569693D-02
        xs( 36) = 0.8528494730583850D-02
        xs( 37) = 0.9446296957336195D-02
        xs( 38) = 0.1049676123191679D-01
        xs( 39) = 0.1171183972419944D-01
        xs( 40) = 0.1314853406170939D-01
        xs( 41) = 0.1491388205855692D-01
        xs( 42) = 0.1716141700667842D-01
        xs( 43) = 0.2010827549314076D-01
        xs( 44) = 0.2417254554120865D-01
        xs( 45) = 0.3022989664936127D-01
        xs( 46) = 0.3999814980169683D-01
        xs( 47) = 0.5590279061832972D-01
        xs( 48) = 0.7792249577329063D-01
        xs( 49) = 0.1015158436145565D+00
        ws(  1) = 0.6390128081552831D-05
        ws(  2) = 0.1486092916122669D-04
        ws(  3) = 0.2333959904692125D-04
        ws(  4) = 0.3180343751108800D-04
        ws(  5) = 0.4027044629286057D-04
        ws(  6) = 0.4876499272381992D-04
        ws(  7) = 0.5732231801104186D-04
        ws(  8) = 0.6596538337783968D-04
        ws(  9) = 0.7474782937618846D-04
        ws( 10) = 0.8372369982129855D-04
        ws( 11) = 0.9293349086517803D-04
        ws( 12) = 0.1024374113265666D-03
        ws( 13) = 0.1122960668214551D-03
        ws( 14) = 0.1225907195571440D-03
        ws( 15) = 0.1333675427793106D-03
        ws( 16) = 0.1447298613154204D-03
        ws( 17) = 0.1567768796441313D-03
        ws( 18) = 0.1695840642912612D-03
        ws( 19) = 0.1832790146015425D-03
        ws( 20) = 0.1979836756318820D-03
        ws( 21) = 0.2138516648058831D-03
        ws( 22) = 0.2310892349609373D-03
        ws( 23) = 0.2498251426944979D-03
        ws( 24) = 0.2703572267195015D-03
        ws( 25) = 0.2928825478195296D-03
        ws( 26) = 0.3178613281708427D-03
        ws( 27) = 0.3455780320600523D-03
        ws( 28) = 0.3765219380598603D-03
        ws( 29) = 0.4114225635101248D-03
        ws( 30) = 0.4507613783782624D-03
        ws( 31) = 0.4956012941396472D-03
        ws( 32) = 0.5469352234150290D-03
        ws( 33) = 0.6066780417747761D-03
        ws( 34) = 0.6768136274691823D-03
        ws( 35) = 0.7588503622022201D-03
        ws( 36) = 0.8590268052953910D-03
        ws( 37) = 0.9800813545533535D-03
        ws( 38) = 0.1126033862330364D-02
        ws( 39) = 0.1312882676750096D-02
        ws( 40) = 0.1578657044719858D-02
        ws( 41) = 0.1977829990567260D-02
        ws( 42) = 0.2550450468860390D-02
        ws( 43) = 0.3409669349123249D-02
        ws( 44) = 0.4856950895722622D-02
        ws( 45) = 0.7541487156565154D-02
        ws( 46) = 0.1244219629276864D-01
        ws( 47) = 0.1945900562745522D-01
        ws( 48) = 0.2363586654766002D-01
        ws( 49) = 0.2069803450899495D-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 =  54
        err = 0.5083077858416664D-04
        xs(  1) = 0.2067612524896989D-05
        xs(  2) = 0.1088762873293145D-04
        xs(  3) = 0.2674604052901143D-04
        xs(  4) = 0.4963745830181690D-04
        xs(  5) = 0.7955425092641523D-04
        xs(  6) = 0.1164999465742639D-03
        xs(  7) = 0.1604963651841476D-03
        xs(  8) = 0.2115837271098575D-03
        xs(  9) = 0.2698279944712730D-03
        xs( 10) = 0.3353268846250783D-03
        xs( 11) = 0.4082087935647888D-03
        xs( 12) = 0.4886365720431309D-03
        xs( 13) = 0.5768099777626268D-03
        xs( 14) = 0.6729728239038720D-03
        xs( 15) = 0.7774100813831961D-03
        xs( 16) = 0.8904499023159870D-03
        xs( 17) = 0.1012480703925066D-02
        xs( 18) = 0.1143950111659492D-02
        xs( 19) = 0.1285356149628895D-02
        xs( 20) = 0.1437268213706116D-02
        xs( 21) = 0.1600332798350291D-02
        xs( 22) = 0.1775288982509532D-02
        xs( 23) = 0.1962976222360584D-02
        xs( 24) = 0.2164327196420946D-02
        xs( 25) = 0.2380410775267837D-02
        xs( 26) = 0.2612426460804784D-02
        xs( 27) = 0.2861775160002166D-02
        xs( 28) = 0.3130038642280902D-02
        xs( 29) = 0.3419005941087282D-02
        xs( 30) = 0.3730812769860450D-02
        xs( 31) = 0.4067808803758113D-02
        xs( 32) = 0.4432817434697310D-02
        xs( 33) = 0.4828970198301760D-02
        xs( 34) = 0.5260078696447335D-02
        xs( 35) = 0.5730928748226930D-02
        xs( 36) = 0.6246624538394879D-02
        xs( 37) = 0.6813651800433844D-02
        xs( 38) = 0.7440235032861418D-02
        xs( 39) = 0.8135985298869991D-02
        xs( 40) = 0.8912957145068947D-02
        xs( 41) = 0.9787097891711545D-02
        xs( 42) = 0.1077831468655726D-01
        xs( 43) = 0.1191196026167475D-01
        xs( 44) = 0.1322774428281971D-01
        xs( 45) = 0.1479226346626019D-01
        xs( 46) = 0.1671507873343735D-01
        xs( 47) = 0.1914829284878211D-01
        xs( 48) = 0.2233231970950241D-01
        xs( 49) = 0.2672643574652332D-01
        xs( 50) = 0.3324303722610249D-01
        xs( 51) = 0.4359684256046405D-01
        xs( 52) = 0.6014971413110467D-01
        xs( 53) = 0.8296720875057730D-01
        xs( 54) = 0.1077203275706998D+00
        ws(  1) = 0.5304345998292500D-05
        ws(  2) = 0.1233937103420655D-04
        ws(  3) = 0.1937874514625790D-04
        ws(  4) = 0.2640089376503816D-04
        ws(  5) = 0.3343199428595580D-04
        ws(  6) = 0.4046601778496607D-04
        ws(  7) = 0.4753244138314212D-04
        ws(  8) = 0.5465143356399805D-04
        ws(  9) = 0.6185328114729150D-04
        ws( 10) = 0.6916558065552668D-04
        ws( 11) = 0.7662619992045882D-04
        ws( 12) = 0.8426194654372092D-04
        ws( 13) = 0.9212370132128997D-04
        ws( 14) = 0.1002502042557146D-03
        ws( 15) = 0.1086778212911588D-03
        ws( 16) = 0.1174645175870291D-03
        ws( 17) = 0.1266727381381221D-03
        ws( 18) = 0.1363491588241068D-03
        ws( 19) = 0.1465565567163742D-03
        ws( 20) = 0.1573741002241742D-03
        ws( 21) = 0.1688777663449730D-03
        ws( 22) = 0.1811741969880318D-03
        ws( 23) = 0.1943535924780453D-03
        ws( 24) = 0.2085275785427989D-03
        ws( 25) = 0.2238382763911777D-03
        ws( 26) = 0.2404284937193548D-03
        ws( 27) = 0.2585354802824351D-03
        ws( 28) = 0.2782827711444115D-03
        ws( 29) = 0.3000169154843797D-03
        ws( 30) = 0.3239770741951555D-03
        ws( 31) = 0.3504982967364453D-03
        ws( 32) = 0.3800322965582090D-03
        ws( 33) = 0.4128979719783510D-03
        ws( 34) = 0.4501410788275913D-03
        ws( 35) = 0.4923767169476818D-03
        ws( 36) = 0.5400876974402728D-03
        ws( 37) = 0.5953452004028248D-03
        ws( 38) = 0.6593984701851582D-03
        ws( 39) = 0.7340762821610993D-03
        ws( 40) = 0.8225093005022468D-03
        ws( 41) = 0.9291165179870083D-03
        ws( 42) = 0.1057324110976589D-02
        ws( 43) = 0.1216445576379191D-02
        ws( 44) = 0.1425795819910043D-02
        ws( 45) = 0.1721768284696583D-02
        ws( 46) = 0.2148507321050097D-02
        ws( 47) = 0.2755757702340422D-02
        ws( 48) = 0.3685337460771283D-02
        ws( 49) = 0.5248162110684460D-02
        ws( 50) = 0.8068318108560043D-02
        ws( 51) = 0.1307420833054359D-01
        ws( 52) = 0.2013250805674970D-01
        ws( 53) = 0.2458370352958999D-01
        ws( 54) = 0.2199239655551784D-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 =  58
        err = 0.6337008745926540D-04
        xs(  1) = 0.1769553085671697D-05
        xs(  2) = 0.9328915364068026D-05
        xs(  3) = 0.2291676034469573D-04
        xs(  4) = 0.4252626208516616D-04
        xs(  5) = 0.6814678641549385D-04
        xs(  6) = 0.9977366159491960D-04
        xs(  7) = 0.1374094690122964D-03
        xs(  8) = 0.1810756054250988D-03
        xs(  9) = 0.2308067862962597D-03
        xs( 10) = 0.2866614935942165D-03
        xs( 11) = 0.3487184138588179D-03
        xs( 12) = 0.4170805001195347D-03
        xs( 13) = 0.4918763846173940D-03
        xs( 14) = 0.5732645072923413D-03
        xs( 15) = 0.6614334812675036D-03
        xs( 16) = 0.7565990476300808D-03
        xs( 17) = 0.8590110385722449D-03
        xs( 18) = 0.9689662532153352D-03
        xs( 19) = 0.1086797645439578D-02
        xs( 20) = 0.1212874872733903D-02
        xs( 21) = 0.1347617014233611D-02
        xs( 22) = 0.1491494414233060D-02
        xs( 23) = 0.1645044380933735D-02
        xs( 24) = 0.1808870420315654D-02
        xs( 25) = 0.1983633142222669D-02
        xs( 26) = 0.2170076798853697D-02
        xs( 27) = 0.2369042674449106D-02
        xs( 28) = 0.2581492682642008D-02
        xs( 29) = 0.2808488185583678D-02
        xs( 30) = 0.3051220914986943D-02
        xs( 31) = 0.3311092053070956D-02
        xs( 32) = 0.3589660564532278D-02
        xs( 33) = 0.3888716072636436D-02
        xs( 34) = 0.4210230659473551D-02
        xs( 35) = 0.4556455837376499D-02
        xs( 36) = 0.4930216834826250D-02
        xs( 37) = 0.5334669174881075D-02
        xs( 38) = 0.5773298553463322D-02
        xs( 39) = 0.6250661884138875D-02
        xs( 40) = 0.6771694886565141D-02
        xs( 41) = 0.7342581219064823D-02
        xs( 42) = 0.7970856957904667D-02
        xs( 43) = 0.8665750671168858D-02
        xs( 44) = 0.9439058860627854D-02
        xs( 45) = 0.1030524186826666D-01
        xs( 46) = 0.1128215547633151D-01
        xs( 47) = 0.1239462556929032D-01
        xs( 48) = 0.1367879787694697D-01
        xs( 49) = 0.1518910281874518D-01
        xs( 50) = 0.1702114260350180D-01
        xs( 51) = 0.1931209089233399D-01
        xs( 52) = 0.2226972217584552D-01
        xs( 53) = 0.2627875173730867D-01
        xs( 54) = 0.3213655192729935D-01
        xs( 55) = 0.4138066323604954D-01
        xs( 56) = 0.5660950629957411D-01
        xs( 57) = 0.7946899709479079D-01
        xs( 58) = 0.1057596221197749D+00
        ws(  1) = 0.4544611019960136D-05
        ws(  2) = 0.1057061993784943D-04
        ws(  3) = 0.1660418542820169D-04
        ws(  4) = 0.2261776058151218D-04
        ws(  5) = 0.2862145180843541D-04
        ws(  6) = 0.3462944919878025D-04
        ws(  7) = 0.4064749866212076D-04
        ws(  8) = 0.4668998637628264D-04
        ws(  9) = 0.5278247271412895D-04
        ws( 10) = 0.5893951309329049D-04
        ws( 11) = 0.6519053602234662D-04
        ws( 12) = 0.7155529905494257D-04
        ws( 13) = 0.7806184835016804D-04
        ws( 14) = 0.8474593947841801D-04
        ws( 15) = 0.9162865821476096D-04
        ws( 16) = 0.9874244492753460D-04
        ws( 17) = 0.1061315605559759D-03
        ws( 18) = 0.1138348299211425D-03
        ws( 19) = 0.1218886527437741D-03
        ws( 20) = 0.1303356136598389D-03
        ws( 21) = 0.1392263331170746D-03
        ws( 22) = 0.1486182148048590D-03
        ws( 23) = 0.1585831550154036D-03
        ws( 24) = 0.1691789797490797D-03
        ws( 25) = 0.1804704671854303D-03
        ws( 26) = 0.1925551701325439D-03
        ws( 27) = 0.2055378796346915D-03
        ws( 28) = 0.2195400720060214D-03
        ws( 29) = 0.2346452986566274D-03
        ws( 30) = 0.2510541584737669D-03
        ws( 31) = 0.2689433792775181D-03
        ws( 32) = 0.2884956536232331D-03
        ws( 33) = 0.3099412825659249D-03
        ws( 34) = 0.3334526373574544D-03
        ws( 35) = 0.3594686519820571D-03
        ws( 36) = 0.3885847832497839D-03
        ws( 37) = 0.4208673352720033D-03
        ws( 38) = 0.4571851573606775D-03
        ws( 39) = 0.4983278533971828D-03
        ws( 40) = 0.5447806856273887D-03
        ws( 41) = 0.5982390590105862D-03
        ws( 42) = 0.6598381091254300D-03
        ws( 43) = 0.7319143310958485D-03
        ws( 44) = 0.8171084796782584D-03
        ws( 45) = 0.9181931240664526D-03
        ws( 46) = 0.1039633715736922D-02
        ws( 47) = 0.1191415107489636D-02
        ws( 48) = 0.1385261962290013D-02
        ws( 49) = 0.1651702605463000D-02
        ws( 50) = 0.2034586333911632D-02
        ws( 51) = 0.2580501307754378D-02
        ws( 52) = 0.3394893721300141D-02
        ws( 53) = 0.4750752818791053D-02
        ws( 54) = 0.7212811045397246D-02
        ws( 55) = 0.1171887412509400D-01
        ws( 56) = 0.1918216690103968D-01
        ws( 57) = 0.2568715750733723D-01
        ws( 58) = 0.2408324143337468D-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 =  62
        err = 0.6528054884531453D-04
        xs(  1) = 0.1532574191809246D-05
        xs(  2) = 0.8084256491374171D-05
        xs(  3) = 0.1985507624031309D-04
        xs(  4) = 0.3684500276047527D-04
        xs(  5) = 0.5903471217106482D-04
        xs(  6) = 0.8641646582853519D-04
        xs(  7) = 0.1189876724987171D-03
        xs(  8) = 0.1567521676233849D-03
        xs(  9) = 0.1997298857361946D-03
        xs( 10) = 0.2479540881017640D-03
        xs( 11) = 0.3014737617912124D-03
        xs( 12) = 0.3603551880925519D-03
        xs( 13) = 0.4246815876537705D-03
        xs( 14) = 0.4945578477306825D-03
        xs( 15) = 0.5701132570422192D-03
        xs( 16) = 0.6514942236624577D-03
        xs( 17) = 0.7388672709627296D-03
        xs( 18) = 0.8324317062276075D-03
        xs( 19) = 0.9324178069579202D-03
        xs( 20) = 0.1039078886170774D-02
        xs( 21) = 0.1152693827466474D-02
        xs( 22) = 0.1273580230083233D-02
        xs( 23) = 0.1402091955123145D-02
        xs( 24) = 0.1538635999968071D-02
        xs( 25) = 0.1683656510464195D-02
        xs( 26) = 0.1837632290283548D-02
        xs( 27) = 0.2001108550253193D-02
        xs( 28) = 0.2174691369524041D-02
        xs( 29) = 0.2359059490466969D-02
        xs( 30) = 0.2554976401061185D-02
        xs( 31) = 0.2763279813950369D-02
        xs( 32) = 0.2984921224778384D-02
        xs( 33) = 0.3220955042369317D-02
        xs( 34) = 0.3472589700595450D-02
        xs( 35) = 0.3741194496098318D-02
        xs( 36) = 0.4028193570264796D-02
        xs( 37) = 0.4335337099154275D-02
        xs( 38) = 0.4664754056470466D-02
        xs( 39) = 0.5018509521702058D-02
        xs( 40) = 0.5399181391134430D-02
        xs( 41) = 0.5810102359016821D-02
        xs( 42) = 0.6254517638539882D-02
        xs( 43) = 0.6736471086013578D-02
        xs( 44) = 0.7261133686968340D-02
        xs( 45) = 0.7834319844260149D-02
        xs( 46) = 0.8462950037334951D-02
        xs( 47) = 0.9156112475933282D-02
        xs( 48) = 0.9924616324140118D-02
        xs( 49) = 0.1078228760637827D-01
        xs( 50) = 0.1174581567078519D-01
        xs( 51) = 0.1283484424230196D-01
        xs( 52) = 0.1408086546983551D-01
        xs( 53) = 0.1554004964100777D-01
        xs( 54) = 0.1730579614251747D-01
        xs( 55) = 0.1949805995758746D-01
        xs( 56) = 0.2229167291725472D-01
        xs( 57) = 0.2601543048333496D-01
        xs( 58) = 0.3132705303021532D-01
        xs( 59) = 0.3952909697498285D-01
        xs( 60) = 0.5299161691210496D-01
        xs( 61) = 0.7461674410597693D-01
        xs( 62) = 0.1020912950588587D+00
        ws(  1) = 0.3934195541314059D-05
        ws(  2) = 0.9164372481045046D-05
        ws(  3) = 0.1438516870294697D-04
        ws(  4) = 0.1959015929097554D-04
        ws(  5) = 0.2478806611205062D-04
        ws(  6) = 0.2997567612655630D-04
        ws(  7) = 0.3516515945009796D-04
        ws(  8) = 0.4036669162905170D-04
        ws(  9) = 0.4559369302361203D-04
        ws( 10) = 0.5086288104274807D-04
        ws( 11) = 0.5618772497457364D-04
        ws( 12) = 0.6158914443070013D-04
        ws( 13) = 0.6708093665369014D-04
        ws( 14) = 0.7269272708752607D-04
        ws( 15) = 0.7844194927125579D-04
        ws( 16) = 0.8434728576796085D-04
        ws( 17) = 0.9043251653159029D-04
        ws( 18) = 0.9673475901593399D-04
        ws( 19) = 0.1032798044330542D-03
        ws( 20) = 0.1100884424877419D-03
        ws( 21) = 0.1171956811049676D-03
        ws( 22) = 0.1246357642767818D-03
        ws( 23) = 0.1324567530125895D-03
        ws( 24) = 0.1407056969318081D-03
        ws( 25) = 0.1494147037319984D-03
        ws( 26) = 0.1586297427222393D-03
        ws( 27) = 0.1684236623739785D-03
        ws( 28) = 0.1788543749287397D-03
        ws( 29) = 0.1900099413927668D-03
        ws( 30) = 0.2019594740104998D-03
        ws( 31) = 0.2148034320955457D-03
        ws( 32) = 0.2286526985335133D-03
        ws( 33) = 0.2436149539915493D-03
        ws( 34) = 0.2598823119829320D-03
        ws( 35) = 0.2775520722955798D-03
        ws( 36) = 0.2967284410144463D-03
        ws( 37) = 0.3179284151805032D-03
        ws( 38) = 0.3412335816229363D-03
        ws( 39) = 0.3666999186892725D-03
        ws( 40) = 0.3952334960796592D-03
        ws( 41) = 0.4271263397007615D-03
        ws( 42) = 0.4623810929996328D-03
        ws( 43) = 0.5024019144352408D-03
        ws( 44) = 0.5478970953398679D-03
        ws( 45) = 0.5995847243470480D-03
        ws( 46) = 0.6592331322871284D-03
        ws( 47) = 0.7288434046075768D-03
        ws( 48) = 0.8104605386993531D-03
        ws( 49) = 0.9077484963148106D-03
        ws( 50) = 0.1022294822579455D-02
        ws( 51) = 0.1160945833945241D-02
        ws( 52) = 0.1339997314005520D-02
        ws( 53) = 0.1594372592362057D-02
        ws( 54) = 0.1956697402640416D-02
        ws( 55) = 0.2455319401965150D-02
        ws( 56) = 0.3184127327938217D-02
        ws( 57) = 0.4366983589114906D-02
        ws( 58) = 0.6466351822952897D-02
        ws( 59) = 0.1032759994358095D-01
        ws( 60) = 0.1719550800407513D-01
        ws( 61) = 0.2565818724867897D-01
        ws( 62) = 0.2634976559678761D-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 =  66
        err = 0.9075664696361466D-04
        xs(  1) = 0.1343899219162255D-05
        xs(  2) = 0.7077850511954627D-05
        xs(  3) = 0.1738320121805518D-04
        xs(  4) = 0.3225322474657266D-04
        xs(  5) = 0.5167387327071332D-04
        xs(  6) = 0.7563482024633394D-04
        xs(  7) = 0.1041245989823063D-03
        xs(  8) = 0.1371438562839453D-03
        xs(  9) = 0.1747010331756874D-03
        xs( 10) = 0.2168117984602192D-03
        xs( 11) = 0.2635057024634576D-03
        xs( 12) = 0.3148270670885661D-03
        xs( 13) = 0.3708295180827557D-03
        xs( 14) = 0.4315819480705235D-03
        xs( 15) = 0.4971724079323869D-03
        xs( 16) = 0.5677058153852477D-03
        xs( 17) = 0.6432953676985036D-03
        xs( 18) = 0.7240749489425699D-03
        xs( 19) = 0.8102064861614626D-03
        xs( 20) = 0.9018706617486722D-03
        xs( 21) = 0.9992624868981352D-03
        xs( 22) = 0.1102602390119082D-02
        xs( 23) = 0.1212131739389407D-02
        xs( 24) = 0.1328121514622949D-02
        xs( 25) = 0.1450889875975303D-02
        xs( 26) = 0.1580771613596953D-02
        xs( 27) = 0.1718119936602963D-02
        xs( 28) = 0.1863353167734630D-02
        xs( 29) = 0.2016914916999035D-02
        xs( 30) = 0.2179312333643759D-02
        xs( 31) = 0.2351096801043775D-02
        xs( 32) = 0.2532848349483095D-02
        xs( 33) = 0.2725297300311064D-02
        xs( 34) = 0.2929172122700897D-02
        xs( 35) = 0.3145305027764066D-02
        xs( 36) = 0.3374667153131846D-02
        xs( 37) = 0.3618273806352718D-02
        xs( 38) = 0.3877245113638850D-02
        xs( 39) = 0.4152934802550365D-02
        xs( 40) = 0.4446891251717194D-02
        xs( 41) = 0.4760722594690332D-02
        xs( 42) = 0.5096281205859395D-02
        xs( 43) = 0.5455904846628742D-02
        xs( 44) = 0.5842081408148121D-02
        xs( 45) = 0.6257630981784413D-02
        xs( 46) = 0.6705849902581742D-02
        xs( 47) = 0.7190847597266425D-02
        xs( 48) = 0.7716983016131732D-02
        xs( 49) = 0.8290226091962184D-02
        xs( 50) = 0.8917702705174628D-02
        xs( 51) = 0.9607243187885145D-02
        xs( 52) = 0.1036892219621841D-01
        xs( 53) = 0.1121437690395500D-01
        xs( 54) = 0.1215650771430625D-01
        xs( 55) = 0.1321659156486295D-01
        xs( 56) = 0.1442942075809000D-01
        xs( 57) = 0.1584796073224676D-01
        xs( 58) = 0.1755860443032556D-01
        xs( 59) = 0.1966995496484784D-01
        xs( 60) = 0.2234552202849312D-01
        xs( 61) = 0.2588881093575482D-01
        xs( 62) = 0.3088330415242550D-01
        xs( 63) = 0.3846629285477096D-01
        xs( 64) = 0.5086197075862526D-01
        xs( 65) = 0.7155449081107770D-01
        xs( 66) = 0.9983627517960407D-01
        ws(  1) = 0.3441132638351518D-05
        ws(  2) = 0.8023630692029692D-05
        ws(  3) = 0.1259536256924576D-04
        ws(  4) = 0.1714814982114922D-04
        ws(  5) = 0.2169119025761060D-04
        ws(  6) = 0.2622341661206670D-04
        ws(  7) = 0.3076003134363214D-04
        ws(  8) = 0.3528298459974585D-04
        ws(  9) = 0.3982787307323126D-04
        ws( 10) = 0.4439768752304097D-04
        ws( 11) = 0.4900158483151974D-04
        ws( 12) = 0.5365106636724202D-04
        ws( 13) = 0.5836327537549955D-04
        ws( 14) = 0.6315619828313152D-04
        ws( 15) = 0.6804303555892578D-04
        ws( 16) = 0.7304146245273624D-04
        ws( 17) = 0.7815905223311908D-04
        ws( 18) = 0.8342664180440418D-04
        ws( 19) = 0.8886591471708713D-04
        ws( 20) = 0.9449401391351459D-04
        ws( 21) = 0.1003267511682638D-03
        ws( 22) = 0.1063923488356031D-03
        ws( 23) = 0.1127095981531777D-03
        ws( 24) = 0.1193230438542688D-03
        ws( 25) = 0.1262690792121273D-03
        ws( 26) = 0.1335488548166133D-03
        ws( 27) = 0.1412182301234224D-03
        ws( 28) = 0.1493201302271040D-03
        ws( 29) = 0.1578861156258594D-03
        ws( 30) = 0.1670028679417893D-03
        ws( 31) = 0.1766578049374637D-03
        ws( 32) = 0.1869720717638469D-03
        ws( 33) = 0.1980452071083497D-03
        ws( 34) = 0.2098473075596976D-03
        ws( 35) = 0.2225835832862160D-03
        ws( 36) = 0.2363048417914317D-03
        ws( 37) = 0.2510900379484707D-03
        ws( 38) = 0.2670766099340371D-03
        ws( 39) = 0.2845653228512702D-03
        ws( 40) = 0.3036120034028825D-03
        ws( 41) = 0.3243540772214287D-03
        ws( 42) = 0.3471728010358624D-03
        ws( 43) = 0.3724818638945301D-03
        ws( 44) = 0.4003576099972071D-03
        ws( 45) = 0.4312678185854297D-03
        ws( 46) = 0.4659023772544107D-03
        ws( 47) = 0.5047611316251898D-03
        ws( 48) = 0.5485321844886849D-03
        ws( 49) = 0.5991612618984729D-03
        ws( 50) = 0.6570448205190469D-03
        ws( 51) = 0.7237447040103949D-03
        ws( 52) = 0.8015918568297204D-03
        ws( 53) = 0.8913257543596005D-03
        ws( 54) = 0.9963092393012690D-03
        ws( 55) = 0.1129872578502184D-02
        ws( 56) = 0.1303816436352935D-02
        ws( 57) = 0.1548457130249275D-02
        ws( 58) = 0.1890122783930467D-02
        ws( 59) = 0.2358513601233005D-02
        ws( 60) = 0.3040985204432292D-02
        ws( 61) = 0.4138374297776150D-02
        ws( 62) = 0.6031412589244658D-02
        ws( 63) = 0.9493953657034907D-02
        ws( 64) = 0.1594502526817829D-01
        ws( 65) = 0.2544935789625469D-01
        ws( 66) = 0.2787345234451112D-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 =  71
        err = 0.6547824102156889D-04
        xs(  1) = 0.1172742409960318D-05
        xs(  2) = 0.6181054342071605D-05
        xs(  3) = 0.1518519298322175D-04
        xs(  4) = 0.2817502493466061D-04
        xs(  5) = 0.4514058450936620D-04
        xs(  6) = 0.6607033386938436D-04
        xs(  7) = 0.9095507495767532D-04
        xs(  8) = 0.1197923887465172D-03
        xs(  9) = 0.1525816483369257D-03
        xs( 10) = 0.1893329619041434D-03
        xs( 11) = 0.2300651214700602D-03
        xs( 12) = 0.2748045045398048D-03
        xs( 13) = 0.3235880372121180D-03
        xs( 14) = 0.3764635244242434D-03
        xs( 15) = 0.4334886458005714D-03
        xs( 16) = 0.4947357524295134D-03
        xs( 17) = 0.5602865527866103D-03
        xs( 18) = 0.6302347917469269D-03
        xs( 19) = 0.7046908300552262D-03
        xs( 20) = 0.7837813933742778D-03
        xs( 21) = 0.8676454784800372D-03
        xs( 22) = 0.9564361171940063D-03
        xs( 23) = 0.1050325597644446D-02
        xs( 24) = 0.1149501867995173D-02
        xs( 25) = 0.1254178456475691D-02
        xs( 26) = 0.1364589127948659D-02
        xs( 27) = 0.1480985961257623D-02
        xs( 28) = 0.1603650089075980D-02
        xs( 29) = 0.1732884160717243D-02
        xs( 30) = 0.1869020829871346D-02
        xs( 31) = 0.2012445153742090D-02
        xs( 32) = 0.2163554075547909D-02
        xs( 33) = 0.2322778191510217D-02
        xs( 34) = 0.2490616921095851D-02
        xs( 35) = 0.2667621971722023D-02
        xs( 36) = 0.2854380699076970D-02
        xs( 37) = 0.3051540588469949D-02
        xs( 38) = 0.3259841035363288D-02
        xs( 39) = 0.3480061350789513D-02
        xs( 40) = 0.3713140142517329D-02
        xs( 41) = 0.3960041670833332D-02
        xs( 42) = 0.4221872618630223D-02
        xs( 43) = 0.4499886205821272D-02
        xs( 44) = 0.4795502850934095D-02
        xs( 45) = 0.5110254027207977D-02
        xs( 46) = 0.5445879612424622D-02
        xs( 47) = 0.5804397843914277D-02
        xs( 48) = 0.6188213215582686D-02
        xs( 49) = 0.6600005070499450D-02
        xs( 50) = 0.7042813183513806D-02
        xs( 51) = 0.7520115466324199D-02
        xs( 52) = 0.8035925317936966D-02
        xs( 53) = 0.8595592372511288D-02
        xs( 54) = 0.9205093586871299D-02
        xs( 55) = 0.9871293256012260D-02
        xs( 56) = 0.1060261797127619D-01
        xs( 57) = 0.1140976130965073D-01
        xs( 58) = 0.1230591439760983D-01
        xs( 59) = 0.1330636431762817D-01
        xs( 60) = 0.1443458700930584D-01
        xs( 61) = 0.1572993868726092D-01
        xs( 62) = 0.1725723312233589D-01
        xs( 63) = 0.1910333394113203D-01
        xs( 64) = 0.2137254887212777D-01
        xs( 65) = 0.2424315754686143D-01
        xs( 66) = 0.2806088135083084D-01
        xs( 67) = 0.3345933750886706D-01
        xs( 68) = 0.4164649599358612D-01
        xs( 69) = 0.5492823830781936D-01
        xs( 70) = 0.7675442182312592D-01
        xs( 71) = 0.1062606682012719D+00
        ws(  1) = 0.3011300186914196D-05
        ws(  2) = 0.7005828508987403D-05
        ws(  3) = 0.1099932387234752D-04
        ws(  4) = 0.1497976114453749D-04
        ws(  5) = 0.1895081287610432D-04
        ws(  6) = 0.2290817214971600D-04
        ws(  7) = 0.2685889607015898D-04
        ws(  8) = 0.3081233826073015D-04
        ws(  9) = 0.3477039548798154D-04
        ws( 10) = 0.3873804486940837D-04
        ws( 11) = 0.4272820876109709D-04
        ws( 12) = 0.4675476665526971D-04
        ws( 13) = 0.5082151329012017D-04
        ws( 14) = 0.5493935107882441D-04
        ws( 15) = 0.5912302485396505D-04
        ws( 16) = 0.6338472174939993D-04
        ws( 17) = 0.6773167970599639D-04
        ws( 18) = 0.7218349698745649D-04
        ws( 19) = 0.7675009909059772D-04
        ws( 20) = 0.8145318294870222D-04
        ws( 21) = 0.8629971591895020D-04
        ws( 22) = 0.9131021725604028D-04
        ws( 23) = 0.9649979004523573D-04
        ws( 24) = 0.1018903889728051D-03
        ws( 25) = 0.1075029683255882D-03
        ws( 26) = 0.1133591864275450D-03
        ws( 27) = 0.1194810693537765D-03
        ws( 28) = 0.1258979453506423D-03
        ws( 29) = 0.1326251175383826D-03
        ws( 30) = 0.1397151427649346D-03
        ws( 31) = 0.1471996232258844D-03
        ws( 32) = 0.1550877474169790D-03
        ws( 33) = 0.1634434393946691D-03
        ws( 34) = 0.1723249961434553D-03
        ws( 35) = 0.1817835988226193D-03
        ws( 36) = 0.1918412898040800D-03
        ws( 37) = 0.2026065878873546D-03
        ws( 38) = 0.2141185530738579D-03
        ws( 39) = 0.2264858190187608D-03
        ws( 40) = 0.2398272365752784D-03
        ws( 41) = 0.2541644766258417D-03
        ws( 42) = 0.2697066396856143D-03
        ws( 43) = 0.2865679149660586D-03
        ws( 44) = 0.3049198180406270D-03
        ws( 45) = 0.3248805876391515D-03
        ws( 46) = 0.3467005749460735D-03
        ws( 47) = 0.3707446108375528D-03
        ws( 48) = 0.3973245054839535D-03
        ws( 49) = 0.4267588504754192D-03
        ws( 50) = 0.4594438528134089D-03
        ws( 51) = 0.4957903512117533D-03
        ws( 52) = 0.5367553215901602D-03
        ws( 53) = 0.5835577318878904D-03
        ws( 54) = 0.6365790433779578D-03
        ws( 55) = 0.6972137335345008D-03
        ws( 56) = 0.7672203522709389D-03
        ws( 57) = 0.8492857074641946D-03
        ws( 58) = 0.9454629506504956D-03
        ws( 59) = 0.1059220742893540D-02
        ws( 60) = 0.1203654280799327D-02
        ws( 61) = 0.1397676981388011D-02
        ws( 62) = 0.1672037131663954D-02
        ws( 63) = 0.2036262849117688D-02
        ws( 64) = 0.2530222349766272D-02
        ws( 65) = 0.3267159473700188D-02
        ws( 66) = 0.4469084013376107D-02
        ws( 67) = 0.6519957890829367D-02
        ws( 68) = 0.1023093723142914D-01
        ws( 69) = 0.1697456308505165D-01
        ws( 70) = 0.2664277324648551D-01
        ws( 71) = 0.2913303651930233D-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 =  75
        err = 0.9868978733114358D-04
        xs(  1) = 0.1048714071972194D-05
        xs(  2) = 0.5516322576216312D-05
        xs(  3) = 0.1354589809632055D-04
        xs(  4) = 0.2513063938414313D-04
        xs(  5) = 0.4025620547852238D-04
        xs(  6) = 0.5891049476156257D-04
        xs(  7) = 0.8108378644794231D-04
        xs(  8) = 0.1067689750014515D-03
        xs(  9) = 0.1359603228846995D-03
        xs( 10) = 0.1686631061602128D-03
        xs( 11) = 0.2048850166318073D-03
        xs( 12) = 0.2446426562893882D-03
        xs( 13) = 0.2879597021411007D-03
        xs( 14) = 0.3348714084742785D-03
        xs( 15) = 0.3854134056002954D-03
        xs( 16) = 0.4396396623096003D-03
        xs( 17) = 0.4976098314424103D-03
        xs( 18) = 0.5593872637365816D-03
        xs( 19) = 0.6250539374928863D-03
        xs( 20) = 0.6947014120562337D-03
        xs( 21) = 0.7684333924020886D-03
        xs( 22) = 0.8463602126002088D-03
        xs( 23) = 0.9286084598233293D-03
        xs( 24) = 0.1015315143031405D-02
        xs( 25) = 0.1106631202755563D-02
        xs( 26) = 0.1202731157420704D-02
        xs( 27) = 0.1303800285279481D-02
        xs( 28) = 0.1410032115977512D-02
        xs( 29) = 0.1521652553794535D-02
        xs( 30) = 0.1638897208233377D-02
        xs( 31) = 0.1762027704027695D-02
        xs( 32) = 0.1891347628299592D-02
        xs( 33) = 0.2027151607705758D-02
        xs( 34) = 0.2169773631594579D-02
        xs( 35) = 0.2319599878302240D-02
        xs( 36) = 0.2477042873868106D-02
        xs( 37) = 0.2642549155205058D-02
        xs( 38) = 0.2816590691087915D-02
        xs( 39) = 0.2999715791514250D-02
        xs( 40) = 0.3192501984764919D-02
        xs( 41) = 0.3395629980377257D-02
        xs( 42) = 0.3609796801177047D-02
        xs( 43) = 0.3835791062325169D-02
        xs( 44) = 0.4074477474478021D-02
        xs( 45) = 0.4326883630635441D-02
        xs( 46) = 0.4594066655256750D-02
        xs( 47) = 0.4877218115967353D-02
        xs( 48) = 0.5177658540456130D-02
        xs( 49) = 0.5496935096984906D-02
        xs( 50) = 0.5836784288841816D-02
        xs( 51) = 0.6199208445787629D-02
        xs( 52) = 0.6586525888030650D-02
        xs( 53) = 0.7001215660495220D-02
        xs( 54) = 0.7446042186504457D-02
        xs( 55) = 0.7924689069787194D-02
        xs( 56) = 0.8440935599725205D-02
        xs( 57) = 0.8999305033474014D-02
        xs( 58) = 0.9605649971283492D-02
        xs( 59) = 0.1026726336088288D-01
        xs( 60) = 0.1099213406114483D-01
        xs( 61) = 0.1178989657085805D-01
        xs( 62) = 0.1267071821693465D-01
        xs( 63) = 0.1364831865026280D-01
        xs( 64) = 0.1474886538286044D-01
        xs( 65) = 0.1600907748618051D-01
        xs( 66) = 0.1748891700270460D-01
        xs( 67) = 0.1927286700041343D-01
        xs( 68) = 0.2145525317034226D-01
        xs( 69) = 0.2419477800097355D-01
        xs( 70) = 0.2778028062690763D-01
        xs( 71) = 0.3275964953271456D-01
        xs( 72) = 0.4023631288732515D-01
        xs( 73) = 0.5225711932449154D-01
        xs( 74) = 0.7236741691407551D-01
        xs( 75) = 0.1021199859011216D+00
        ws(  1) = 0.2687751621327526D-05
        ws(  2) = 0.6248904616713875D-05
        ws(  3) = 0.9808962042555648D-05
        ws(  4) = 0.1335943450792463D-04
        ws(  5) = 0.1689295331873094D-04
        ws(  6) = 0.2041538126444749D-04
        ws(  7) = 0.2392801929775039D-04
        ws(  8) = 0.2743763644711589D-04
        ws(  9) = 0.3094790451727553D-04
        ws( 10) = 0.3445933029836086D-04
        ws( 11) = 0.3798548465909062D-04
        ws( 12) = 0.4153561062380156D-04
        ws( 13) = 0.4510675255983364D-04
        ws( 14) = 0.4871815583520531D-04
        ws( 15) = 0.5237704131104536D-04
        ws( 16) = 0.5608644042812885D-04
        ws( 17) = 0.5986140500910405D-04
        ws( 18) = 0.6370915972223267D-04
        ws( 19) = 0.6764032389597841D-04
        ws( 20) = 0.7167114145717915D-04
        ws( 21) = 0.7580992487444114D-04
        ws( 22) = 0.8006627417350762D-04
        ws( 23) = 0.8445460470859246D-04
        ws( 24) = 0.8898285513831087D-04
        ws( 25) = 0.9367737679640741D-04
        ws( 26) = 0.9855533461879558D-04
        ws( 27) = 0.1036153786854103D-03
        ws( 28) = 0.1088866657156446D-03
        ws( 29) = 0.1143933362781546D-03
        ws( 30) = 0.1201387144453387D-03
        ws( 31) = 0.1261738364019315D-03
        ws( 32) = 0.1325135132096427D-03
        ws( 33) = 0.1391504609919232D-03
        ws( 34) = 0.1461588980240247D-03
        ws( 35) = 0.1535602586349643D-03
        ws( 36) = 0.1613990341715128D-03
        ws( 37) = 0.1696889062511072D-03
        ws( 38) = 0.1784893811603623D-03
        ws( 39) = 0.1878532363078280D-03
        ws( 40) = 0.1978369796512212D-03
        ws( 41) = 0.2085297922235131D-03
        ws( 42) = 0.2199375674658004D-03
        ws( 43) = 0.2321924515718097D-03
        ws( 44) = 0.2453619995814605D-03
        ws( 45) = 0.2596230167933941D-03
        ws( 46) = 0.2749436781816738D-03
        ws( 47) = 0.2915713662765296D-03
        ws( 48) = 0.3095707930967786D-03
        ws( 49) = 0.3292639735395313D-03
        ws( 50) = 0.3507704414042051D-03
        ws( 51) = 0.3744640427324337D-03
        ws( 52) = 0.4005913499487937D-03
        ws( 53) = 0.4292272042829728D-03
        ws( 54) = 0.4610783026257236D-03
        ws( 55) = 0.4968174415254230D-03
        ws( 56) = 0.5364456569715874D-03
        ws( 57) = 0.5812231408147835D-03
        ws( 58) = 0.6327462616437845D-03
        ws( 59) = 0.6917566827176262D-03
        ws( 60) = 0.7596021606086075D-03
        ws( 61) = 0.8376324855174631D-03
        ws( 62) = 0.9260457833047281D-03
        ws( 63) = 0.1033638707800247D-02
        ws( 64) = 0.1173289097854818D-02
        ws( 65) = 0.1357094968087476D-02
        ws( 66) = 0.1617157968533822D-02
        ws( 67) = 0.1965497298716668D-02
        ws( 68) = 0.2424201979450522D-02
        ws( 69) = 0.3102302375492546D-02
        ws( 70) = 0.4153577412556605D-02
        ws( 71) = 0.5984625182129134D-02
        ws( 72) = 0.9295900691391216D-02
        ws( 73) = 0.1534797605786987D-01
        ws( 74) = 0.2542483276314065D-01
        ws( 75) = 0.3151115493817467D-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 =  12
        err = 0.7010997440721334D-04
        xs(  1) = 0.8397650238381078D-03
        xs(  2) = 0.4108944687595558D-02
        xs(  3) = 0.9209056494265153D-02
        xs(  4) = 0.1559754152546232D-01
        xs(  5) = 0.2292795156987435D-01
        xs(  6) = 0.3096985956971481D-01
        xs(  7) = 0.3956778094128423D-01
        xs(  8) = 0.4861677366003793D-01
        xs(  9) = 0.5804559845573650D-01
        xs( 10) = 0.6780645903180844D-01
        xs( 11) = 0.7786983004301400D-01
        xs( 12) = 0.8827444793092352D-01
        ws(  1) = 0.2110770952757525D-02
        ws(  2) = 0.4296700003214214D-02
        ws(  3) = 0.5815232266493826D-02
        ws(  4) = 0.6905484758791906D-02
        ws(  5) = 0.7717300034416911D-02
        ws(  6) = 0.8341107668742537D-02
        ws(  7) = 0.8838719284490331D-02
        ws(  8) = 0.9252395501096938D-02
        ws(  9) = 0.9614713728844248D-02
        ws( 10) = 0.9964597465310931D-02
        ws( 11) = 0.1041233316851466D-01
        ws( 12) = 0.1207394135705896D-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 =  12
        err = 0.7199709581055457D-04
        xs(  1) = 0.8351028192085172D-03
        xs(  2) = 0.4092167478636308D-02
        xs(  3) = 0.9179713562247222D-02
        xs(  4) = 0.1555733961438385D-01
        xs(  5) = 0.2287934324118209D-01
        xs(  6) = 0.3091486528195090D-01
        xs(  7) = 0.3950773623467923D-01
        xs(  8) = 0.4855236734366029D-01
        xs(  9) = 0.5797708929323880D-01
        xs( 10) = 0.6773385453763564D-01
        xs( 11) = 0.7779326040833963D-01
        xs( 12) = 0.8819565337645142D-01
        ws(  1) = 0.2100375493134201D-02
        ws(  2) = 0.4283755280808303D-02
        ws(  3) = 0.5803295858254201D-02
        ws(  4) = 0.6895947415433971D-02
        ws(  5) = 0.7710137747928416D-02
        ws(  6) = 0.8335700446020229D-02
        ws(  7) = 0.8834428394319827D-02
        ws(  8) = 0.9248797340336699D-02
        ws(  9) = 0.9611802373700625D-02
        ws( 10) = 0.9963090630787102D-02
        ws( 11) = 0.1041507369869291D-01
        ws( 12) = 0.1209367537776324D-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 =  12
        err = 0.7139009415094331D-04
        xs(  1) = 0.8169557295750268D-03
        xs(  2) = 0.4023124525957208D-02
        xs(  3) = 0.9055524904243276D-02
        xs(  4) = 0.1538472580845447D-01
        xs(  5) = 0.2266895707475141D-01
        xs(  6) = 0.3067559259970150D-01
        xs(  7) = 0.3924535111339855D-01
        xs(  8) = 0.4827019283295015D-01
        xs(  9) = 0.5767732293049108D-01
        xs( 10) = 0.6741763728884456D-01
        xs( 11) = 0.7746557294706020D-01
        xs( 12) = 0.8786942690897784D-01
        ws(  1) = 0.2058858664731030D-02
        ws(  2) = 0.4227931301542724D-02
        ws(  3) = 0.5750160613166114D-02
        ws(  4) = 0.6853118558724692D-02
        ws(  5) = 0.7677594392756399D-02
        ws(  6) = 0.8310811221444964D-02
        ws(  7) = 0.8814081110943162D-02
        ws(  8) = 0.9231895896037626D-02
        ws(  9) = 0.9597911745363496D-02
        ws( 10) = 0.9955127105846288D-02
        ws( 11) = 0.1042666797425439D-01
        ws( 12) = 0.1215992511096367D-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 =  12
        err = 0.6555905540363977D-04
        xs(  1) = 0.7756807905025191D-03
        xs(  2) = 0.3858759756346225D-02
        xs(  3) = 0.8759405159547063D-02
        xs(  4) = 0.1497964789934159D-01
        xs(  5) = 0.2218397026351868D-01
        xs(  6) = 0.3013263253169101D-01
        xs(  7) = 0.3865772915873435D-01
        xs(  8) = 0.4764641392993190D-01
        xs(  9) = 0.5702325075067925D-01
        xs( 10) = 0.6673867952698907D-01
        xs( 11) = 0.7677940756209138D-01
        xs( 12) = 0.8719782143632455D-01
        ws(  1) = 0.1961935007430591D-02
        ws(  2) = 0.4092407351739546D-02
        ws(  3) = 0.5626398104685633D-02
        ws(  4) = 0.6759711485730414D-02
        ws(  5) = 0.7610396980788105D-02
        ws(  6) = 0.8261339978314138D-02
        ws(  7) = 0.8774885701938958D-02
        ws(  8) = 0.9201028151737694D-02
        ws(  9) = 0.9572916985583386D-02
        ws( 10) = 0.9943726805353426D-02
        ws( 11) = 0.1044900598309631D-01
        ws( 12) = 0.1223862450957409D-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 =  12
        err = 0.6797379259140799D-04
        xs(  1) = 0.6673182711585509D-03
        xs(  2) = 0.3440068833332519D-02
        xs(  3) = 0.8078464693693324D-02
        xs(  4) = 0.1413871779127791D-01
        xs(  5) = 0.2124577596905190D-01
        xs(  6) = 0.2912871565956285D-01
        xs(  7) = 0.3760439089234394D-01
        xs(  8) = 0.4655365715621017D-01
        xs(  9) = 0.5589948179077047D-01
        xs( 10) = 0.6559899661651895D-01
        xs( 11) = 0.7563711545865127D-01
        xs( 12) = 0.8605396077922894D-01
        ws(  1) = 0.1706252717600898D-02
        ws(  2) = 0.3779841419063613D-02
        ws(  3) = 0.5420094295750590D-02
        ws(  4) = 0.6637620895678310D-02
        ws(  5) = 0.7532326997033812D-02
        ws(  6) = 0.8204608318591355D-02
        ws(  7) = 0.8730373213342031D-02
        ws(  8) = 0.9164001524558998D-02
        ws(  9) = 0.9545641463694025D-02
        ws( 10) = 0.9929914072225867D-02
        ws( 11) = 0.1042905828216881D-01
        ws( 12) = 0.1216203826311753D-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 =  13
        err = 0.6842109090576627D-04
        xs(  1) = 0.3857930298403701D-03
        xs(  2) = 0.2168631724223124D-02
        xs(  3) = 0.5721157950487419D-02
        xs(  4) = 0.1098308881116068D-01
        xs(  5) = 0.1754490670919854D-01
        xs(  6) = 0.2503904442319982D-01
        xs(  7) = 0.3322038406091367D-01
        xs(  8) = 0.4193136088096124D-01
        xs(  9) = 0.5107404668062318D-01
        xs( 10) = 0.6058151170011408D-01
        xs( 11) = 0.7042760415892302D-01
        xs( 12) = 0.8058656464643744D-01
        xs( 13) = 0.9103617690011793D-01
        ws(  1) = 0.1006922419699832D-02
        ws(  2) = 0.2627744385981087D-02
        ws(  3) = 0.4463917936600162D-02
        ws(  4) = 0.5983685166424667D-02
        ws(  5) = 0.7078550983263607D-02
        ws(  6) = 0.7870593167745200D-02
        ws(  7) = 0.8467184819143499D-02
        ws(  8) = 0.8942446564438020D-02
        ws(  9) = 0.9341664982653390D-02
        ws( 10) = 0.9699270745563570D-02
        ws( 11) = 0.1007144643862438D-01
        ws( 12) = 0.1050000422885596D-01
        ws( 13) = 0.1209418762952155D-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 =  14
        err = 0.4978244356166042D-04
        xs(  1) = 0.2435499128641125D-03
        xs(  2) = 0.1367102676305621D-02
        xs(  3) = 0.3746031377359627D-02
        xs(  4) = 0.7835905246660878D-02
        xs(  5) = 0.1363333271243718D-01
        xs(  6) = 0.2067943062042071D-01
        xs(  7) = 0.2856485828789455D-01
        xs(  8) = 0.3704671310072054D-01
        xs(  9) = 0.4598538415542288D-01
        xs( 10) = 0.5529928977819706D-01
        xs( 11) = 0.6493982922658997D-01
        xs( 12) = 0.7488858792773891D-01
        xs( 13) = 0.8512428825627678D-01
        xs( 14) = 0.9559535075927598D-01
        ws(  1) = 0.6342713139902506D-03
        ws(  2) = 0.1671053836102381D-02
        ws(  3) = 0.3176485099174418D-02
        ws(  4) = 0.5001783031983163D-02
        ws(  5) = 0.6505032729139412D-02
        ws(  6) = 0.7518619639138999D-02
        ws(  7) = 0.8213849738922462D-02
        ws(  8) = 0.8728662088788896D-02
        ws(  9) = 0.9139340944243214D-02
        ws( 10) = 0.9490669708030796D-02
        ws( 11) = 0.9815697290072062D-02
        ws( 12) = 0.1016193164751217D-01
        ws( 13) = 0.1059430282387326D-01
        ws( 14) = 0.1195608215635400D-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 =  15
        err = 0.9867125244114156D-04
        xs(  1) = 0.1078251507872646D-03
        xs(  2) = 0.5870428665405047D-03
        xs(  3) = 0.1539418209938636D-02
        xs(  4) = 0.3171167420897101D-02
        xs(  5) = 0.5896289078349822D-02
        xs(  6) = 0.1031435920010638D-01
        xs(  7) = 0.1661517943946931D-01
        xs(  8) = 0.2430299974105069D-01
        xs(  9) = 0.3285229243758161D-01
        xs( 10) = 0.4196589695096005D-01
        xs( 11) = 0.5149048956158206D-01
        xs( 12) = 0.6134151801710350D-01
        xs( 13) = 0.7147994303222098D-01
        xs( 14) = 0.8185740549038628D-01
        xs( 15) = 0.9215498263822768D-01
        ws(  1) = 0.2787673403808625D-03
        ws(  2) = 0.6935418361985231D-03
        ws(  3) = 0.1244142388609930D-02
        ws(  4) = 0.2086630835335546D-02
        ws(  5) = 0.3475590294601586D-02
        ws(  6) = 0.5401097909819806D-02
        ws(  7) = 0.7100096213944369D-02
        ws(  8) = 0.8185732349852048D-02
        ws(  9) = 0.8866229686535960D-02
        ws( 10) = 0.9339053932120660D-02
        ws( 11) = 0.9707441324364643D-02
        ws( 12) = 0.1002160308705515D-01
        ws( 13) = 0.1036326943685347D-01
        ws( 14) = 0.1067852988022872D-01
        ws( 15) = 0.1109576053628421D-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 =  19
        err = 0.5822176036014392D-04
        xs(  1) = 0.3876094831204780D-04
        xs(  2) = 0.2062692538455090D-03
        xs(  3) = 0.5168388316946056D-03
        xs(  4) = 0.9898973351962926D-03
        xs(  5) = 0.1660597249083818D-02
        xs(  6) = 0.2589297859901591D-02
        xs(  7) = 0.3878645203178103D-02
        xs(  8) = 0.5711667242263603D-02
        xs(  9) = 0.8430596895723317D-02
        xs( 10) = 0.1261762723077427D-01
        xs( 11) = 0.1886708885860930D-01
        xs( 12) = 0.2700173513862292D-01
        xs( 13) = 0.3626009263414315D-01
        xs( 14) = 0.4609885685164986D-01
        xs( 15) = 0.5627303077435368D-01
        xs( 16) = 0.6668385194268069D-01
        xs( 17) = 0.7726965727451339D-01
        xs( 18) = 0.8799474709332404D-01
        xs( 19) = 0.9839538899596628D-01
        ws(  1) = 0.9969177733635471D-04
        ws(  2) = 0.2368197448419403D-03
        ws(  3) = 0.3874838365172319D-03
        ws(  4) = 0.5643487210229409D-03
        ws(  5) = 0.7868325256038033D-03
        ws(  6) = 0.1087175579265811D-02
        ws(  7) = 0.1520586731419017D-02
        ws(  8) = 0.2200891082500077D-02
        ws(  9) = 0.3335036649462912D-02
        ws( 10) = 0.5158187948037375D-02
        ws( 11) = 0.7305726470298854D-02
        ws( 12) = 0.8818975221193130D-02
        ws( 13) = 0.9608433635238629D-02
        ws( 14) = 0.1003397818887226D-01
        ws( 15) = 0.1031645960302331D-01
        ws( 16) = 0.1054937580915167D-01
        ws( 17) = 0.1081507177697962D-01
        ws( 18) = 0.1091913714537579D-01
        ws( 19) = 0.1002173316146254D-01
        endif
        if( idomain .eq.   33 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  22
        err = 0.6633271993893109D-04
        xs(  1) = 0.2019109363681916D-04
        xs(  2) = 0.1068260714762294D-03
        xs(  3) = 0.2647269343023366D-03
        xs(  4) = 0.4980816510564504D-03
        xs(  5) = 0.8141467297137920D-03
        xs(  6) = 0.1224363872357604D-02
        xs(  7) = 0.1745984772202012D-02
        xs(  8) = 0.2404524601595456D-02
        xs(  9) = 0.3238538498304455D-02
        xs( 10) = 0.4307445789480855D-02
        xs( 11) = 0.5704426295404120D-02
        xs( 12) = 0.7585501943543923D-02
        xs( 13) = 0.1024861975580038D-01
        xs( 14) = 0.1425907021193324D-01
        xs( 15) = 0.2052395418842029D-01
        xs( 16) = 0.2960904618093537D-01
        xs( 17) = 0.4065791586198255D-01
        xs( 18) = 0.5247601593913933D-01
        xs( 19) = 0.6448612202210129D-01
        xs( 20) = 0.7649026694778904D-01
        xs( 21) = 0.8839796740442719D-01
        xs( 22) = 0.9963289558715478D-01
        ws(  1) = 0.5185650779903406D-04
        ws(  2) = 0.1217700709039892D-03
        ws(  3) = 0.1947082623738807D-03
        ws(  4) = 0.2731981302442679D-03
        ws(  5) = 0.3608157033934165D-03
        ws(  6) = 0.4624597745795471D-03
        ws(  7) = 0.5849543378000254D-03
        ws(  8) = 0.7384124820834168D-03
        ws(  9) = 0.9393302394754261D-03
        ws( 10) = 0.1213615542747655D-02
        ws( 11) = 0.1605080433890520D-02
        ws( 12) = 0.2204416688203762D-02
        ws( 13) = 0.3213554917171146D-02
        ws( 14) = 0.4966384644554801D-02
        ws( 15) = 0.7692018006324639D-02
        ws( 16) = 0.1030188371831436D-01
        ws( 17) = 0.1158217543781705D-01
        ws( 18) = 0.1196622312818429D-01
        ws( 19) = 0.1204803747184568D-01
        ws( 20) = 0.1205712785390123D-01
        ws( 21) = 0.1200916971156710D-01
        ws( 22) = 0.9954491265589675D-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 =  26
        err = 0.4760959834106070D-04
        xs(  1) = 0.1234067956951078D-04
        xs(  2) = 0.6514464134653903D-04
        xs(  3) = 0.1607112405349635D-03
        xs(  4) = 0.3002560354214647D-03
        xs(  5) = 0.4859017816872997D-03
        xs(  6) = 0.7209567125878652D-03
        xs(  7) = 0.1010256359190255D-02
        xs(  8) = 0.1360549137363058D-02
        xs(  9) = 0.1781035247047351D-02
        xs( 10) = 0.2284306006355481D-02
        xs( 11) = 0.2887546901282555D-02
        xs( 12) = 0.3614579193230685D-02
        xs( 13) = 0.4498700068516824D-02
        xs( 14) = 0.5588782818895831D-02
        xs( 15) = 0.6957571198023856D-02
        xs( 16) = 0.8719042989756775D-02
        xs( 17) = 0.1108775203790857D-01
        xs( 18) = 0.1446884220952475D-01
        xs( 19) = 0.1960409794580970D-01
        xs( 20) = 0.2761679194049276D-01
        xs( 21) = 0.3890776412129980D-01
        xs( 22) = 0.5212374182776766D-01
        xs( 23) = 0.6586348170334076D-01
        xs( 24) = 0.7952831332539322D-01
        xs( 25) = 0.9287072198289724D-01
        xs( 26) = 0.1054185107743572D+00
        ws(  1) = 0.3168244840740989D-04
        ws(  2) = 0.7403973366929310D-04
        ws(  3) = 0.1172885454052876D-03
        ws(  4) = 0.1621524244789995D-03
        ws(  5) = 0.2096860831573750D-03
        ws(  6) = 0.2612250039553437D-03
        ws(  7) = 0.3184893143965442D-03
        ws(  8) = 0.3836097518244332D-03
        ws(  9) = 0.4594457922165919D-03
        ws( 10) = 0.5499236993060569D-03
        ws( 11) = 0.6604931067297481D-03
        ws( 12) = 0.7990150480568050D-03
        ws( 13) = 0.9772161245798544D-03
        ws( 14) = 0.1214898929679190D-02
        ws( 15) = 0.1540667395197907D-02
        ws( 16) = 0.2016442515845345D-02
        ws( 17) = 0.2786445341751683D-02
        ws( 18) = 0.4095399096584645D-02
        ws( 19) = 0.6379191793903045D-02
        ws( 20) = 0.9750331517304733D-02
        ws( 21) = 0.1255439742180008D-01
        ws( 22) = 0.1363644177042819D-01
        ws( 23) = 0.1375435008469174D-01
        ws( 24) = 0.1353169129735378D-01
        ws( 25) = 0.1295019407313640D-01
        ws( 26) = 0.9782760396096482D-02
        endif
        if( idomain .eq.   35 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  29
        err = 0.8834379885914887D-04
        xs(  1) = 0.8552601228054905D-05
        xs(  2) = 0.4509738558138358D-04
        xs(  3) = 0.1110159243088873D-03
        xs(  4) = 0.2067206136209616D-03
        xs(  5) = 0.3329826104476287D-03
        xs(  6) = 0.4910496840236670D-03
        xs(  7) = 0.6827605814762385D-03
        xs(  8) = 0.9107068926849659D-03
        xs(  9) = 0.1178334211241702D-02
        xs( 10) = 0.1490135044649652D-02
        xs( 11) = 0.1851967053141347D-02
        xs( 12) = 0.2271359838494312D-02
        xs( 13) = 0.2758284632596175D-02
        xs( 14) = 0.3325523796934817D-02
        xs( 15) = 0.3989939066382074D-02
        xs( 16) = 0.4774845606587274D-02
        xs( 17) = 0.5712437051440842D-02
        xs( 18) = 0.6847880564088948D-02
        xs( 19) = 0.8250129735479936D-02
        xs( 20) = 0.1003324221368130D-01
        xs( 21) = 0.1240707366954957D-01
        xs( 22) = 0.1576157211650210D-01
        xs( 23) = 0.2084628624052677D-01
        xs( 24) = 0.2897654806203842D-01
        xs( 25) = 0.4118730772754669D-01
        xs( 26) = 0.5623651439610737D-01
        xs( 27) = 0.7206052687398670D-01
        xs( 28) = 0.8761461871723504D-01
        xs( 29) = 0.1020588056940935D+00
        ws(  1) = 0.2195311350087771D-04
        ws(  2) = 0.5118376446060097D-04
        ws(  3) = 0.8071773909317206D-04
        ws(  4) = 0.1108169729331938D-03
        ws(  5) = 0.1419115511221023D-03
        ws(  6) = 0.1745260120639430D-03
        ws(  7) = 0.2093310104846986D-03
        ws(  8) = 0.2471367048693631D-03
        ws(  9) = 0.2888599193444252D-03
        ws( 10) = 0.3357168956435632D-03
        ws( 11) = 0.3891850683312485D-03
        ws( 12) = 0.4512673986095750D-03
        ws( 13) = 0.5247000506966270D-03
        ws( 14) = 0.6125396225361757D-03
        ws( 15) = 0.7201511893199129D-03
        ws( 16) = 0.8549879713392684D-03
        ws( 17) = 0.1027522840602438D-02
        ws( 18) = 0.1254610721711565D-02
        ws( 19) = 0.1567924354404635D-02
        ws( 20) = 0.2032128044432458D-02
        ws( 21) = 0.2777693836426070D-02
        ws( 22) = 0.4050536882922216D-02
        ws( 23) = 0.6346059247332028D-02
        ws( 24) = 0.1014485749360371D-01
        ws( 25) = 0.1402427597538438D-01
        ws( 26) = 0.1569677564633280D-01
        ws( 27) = 0.1580296025778108D-01
        ws( 28) = 0.1530766087008136D-01
        ws( 29) = 0.1202047289819166D-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 =  33
        err = 0.8230532118194742D-04
        xs(  1) = 0.6180058607202945D-05
        xs(  2) = 0.3257625267363754D-04
        xs(  3) = 0.8012909683318443D-04
        xs(  4) = 0.1490061000814272D-03
        xs(  5) = 0.2395267186329645D-03
        xs(  6) = 0.3522201916407470D-03
        xs(  7) = 0.4878786008256411D-03
        xs(  8) = 0.6476135885139704D-03
        xs(  9) = 0.8329231986456063D-03
        xs( 10) = 0.1045721170398654D-02
        xs( 11) = 0.1288436801802155D-02
        xs( 12) = 0.1564138699363520D-02
        xs( 13) = 0.1876622828271126D-02
        xs( 14) = 0.2230653774231419D-02
        xs( 15) = 0.2632116607690939D-02
        xs( 16) = 0.3088303861181876D-02
        xs( 17) = 0.3608705474787553D-02
        xs( 18) = 0.4205219294888381D-02
        xs( 19) = 0.4893160643806485D-02
        xs( 20) = 0.5693911098157031D-02
        xs( 21) = 0.6636021502165045D-02
        xs( 22) = 0.7759202354132947D-02
        xs( 23) = 0.9119526827996875D-02
        xs( 24) = 0.1080971584355892D-01
        xs( 25) = 0.1300162421589309D-01
        xs( 26) = 0.1598379751550416D-01
        xs( 27) = 0.2029839084513431D-01
        xs( 28) = 0.2707509133256388D-01
        xs( 29) = 0.3795699830477074D-01
        xs( 30) = 0.5319736616795240D-01
        xs( 31) = 0.7045150247720766D-01
        xs( 32) = 0.8768554865410386D-01
        xs( 33) = 0.1037331844204793D+00
        ws(  1) = 0.1586158968957900D-04
        ws(  2) = 0.3695457315854120D-04
        ws(  3) = 0.5817695157219196D-04
        ws(  4) = 0.7963044061629738D-04
        ws(  5) = 0.1014985355390630D-03
        ws(  6) = 0.1240200317528057D-03
        ws(  7) = 0.1474779244051475D-03
        ws(  8) = 0.1722412686448030D-03
        ws(  9) = 0.1986983724945846D-03
        ws( 10) = 0.2273014576394230D-03
        ws( 11) = 0.2586416277321443D-03
        ws( 12) = 0.2933870976347648D-03
        ws( 13) = 0.3323725480510487D-03
        ws( 14) = 0.3766686164170201D-03
        ws( 15) = 0.4274511119551650D-03
        ws( 16) = 0.4865076591263008D-03
        ws( 17) = 0.5562795020205429D-03
        ws( 18) = 0.6392256704082716D-03
        ws( 19) = 0.7402436665080521D-03
        ws( 20) = 0.8658946332192414D-03
        ws( 21) = 0.1024939121581330D-02
        ws( 22) = 0.1230448350362162D-02
        ws( 23) = 0.1504780668727300D-02
        ws( 24) = 0.1903969442420106D-02
        ws( 25) = 0.2526032432164396D-02
        ws( 26) = 0.3522108225229091D-02
        ws( 27) = 0.5292762954190049D-02
        ws( 28) = 0.8564121027098581D-02
        ws( 29) = 0.1329545168927563D-01
        ws( 30) = 0.1670398845854358D-01
        ws( 31) = 0.1746776286965482D-01
        ws( 32) = 0.1664635535772595D-01
        ws( 33) = 0.1218217713410538D-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 =  37
        err = 0.8759920787063858D-04
        xs(  1) = 0.4704592526220352D-05
        xs(  2) = 0.2479018052925417D-04
        xs(  3) = 0.6094211184292920D-04
        xs(  4) = 0.1132221149371267D-03
        xs(  5) = 0.1817624450355142D-03
        xs(  6) = 0.2668018960456724D-03
        xs(  7) = 0.3687140286150168D-03
        xs(  8) = 0.4880338574377731D-03
        xs(  9) = 0.6254972423257568D-03
        xs( 10) = 0.7820449505085116D-03
        xs( 11) = 0.9588481155542494D-03
        xs( 12) = 0.1157383526104806D-02
        xs( 13) = 0.1379444224776508D-02
        xs( 14) = 0.1627203387523008D-02
        xs( 15) = 0.1903324372182701D-02
        xs( 16) = 0.2210971191502171D-02
        xs( 17) = 0.2553997649113631D-02
        xs( 18) = 0.2937076332297587D-02
        xs( 19) = 0.3365977850322473D-02
        xs( 20) = 0.3847722537996397D-02
        xs( 21) = 0.4391183869678400D-02
        xs( 22) = 0.5007693283669240D-02
        xs( 23) = 0.5711738171800361D-02
        xs( 24) = 0.6522604527408668D-02
        xs( 25) = 0.7465795283474429D-02
        xs( 26) = 0.8576253021458787D-02
        xs( 27) = 0.9901292991540234D-02
        xs( 28) = 0.1151619750245646D-01
        xs( 29) = 0.1357184681694403D-01
        xs( 30) = 0.1631678067614808D-01
        xs( 31) = 0.2017832382601989D-01
        xs( 32) = 0.2601229206763404D-01
        xs( 33) = 0.3536146552139538D-01
        xs( 34) = 0.4971734560984419D-01
        xs( 35) = 0.6788326940595087D-01
        xs( 36) = 0.8697859115909792D-01
        xs( 37) = 0.1049780773186694D+00
        ws(  1) = 0.1207367753134887D-04
        ws(  2) = 0.2811054624859379D-04
        ws(  3) = 0.4420219701586990D-04
        ws(  4) = 0.6038039999980046D-04
        ws(  5) = 0.7674139076689997D-04
        ws(  6) = 0.9340031013801677D-04
        ws(  7) = 0.1105096839906738D-03
        ws(  8) = 0.1282520695169250D-03
        ws(  9) = 0.1468338813269268D-03
        ws( 10) = 0.1664553162698679D-03
        ws( 11) = 0.1873929189452502D-03
        ws( 12) = 0.2099742410018887D-03
        ws( 13) = 0.2345067856222708D-03
        ws( 14) = 0.2614575394250204D-03
        ws( 15) = 0.2913075447478072D-03
        ws( 16) = 0.3246202486034809D-03
        ws( 17) = 0.3621993545601217D-03
        ws( 18) = 0.4049130942534199D-03
        ws( 19) = 0.4540454381756949D-03
        ws( 20) = 0.5108934455320473D-03
        ws( 21) = 0.5779299430850842D-03
        ws( 22) = 0.6574538453663796D-03
        ws( 23) = 0.7538578386351448D-03
        ws( 24) = 0.8720603685646440D-03
        ws( 25) = 0.1020073429234430D-02
        ws( 26) = 0.1208695458161967D-02
        ws( 27) = 0.1452723439943274D-02
        ws( 28) = 0.1802168418041699D-02
        ws( 29) = 0.2349687907880074D-02
        ws( 30) = 0.3206868243503631D-02
        ws( 31) = 0.4652464721000436D-02
        ws( 32) = 0.7278936264918602D-02
        ws( 33) = 0.1173128962402657D-01
        ws( 34) = 0.1675450332256493D-01
        ws( 35) = 0.1902383121950597D-01
        ws( 36) = 0.1879711737129640D-01
        ws( 37) = 0.1471938393991012D-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 =  41
        err = 0.6388656980651845D-04
        xs(  1) = 0.3710998495586624D-05
        xs(  2) = 0.1955369853973752D-04
        xs(  3) = 0.4805244603738274D-04
        xs(  4) = 0.8922321861936376D-04
        xs(  5) = 0.1431120236843543D-03
        xs(  6) = 0.2098258960824285D-03
        xs(  7) = 0.2895477151150868D-03
        xs(  8) = 0.3825459947632872D-03
        xs(  9) = 0.4892001845658693D-03
        xs( 10) = 0.6100189891431591D-03
        xs( 11) = 0.7456255256766622D-03
        xs( 12) = 0.8967935550502912D-03
        xs( 13) = 0.1064482325565115D-02
        xs( 14) = 0.1249811428417046D-02
        xs( 15) = 0.1454130070953026D-02
        xs( 16) = 0.1679073544442167D-02
        xs( 17) = 0.1926521512156878D-02
        xs( 18) = 0.2198699454766883D-02
        xs( 19) = 0.2498255211811541D-02
        xs( 20) = 0.2828388206163089D-02
        xs( 21) = 0.3192891677690225D-02
        xs( 22) = 0.3596123644956334D-02
        xs( 23) = 0.4043683718310451D-02
        xs( 24) = 0.4542371684247230D-02
        xs( 25) = 0.5100380259900018D-02
        xs( 26) = 0.5728199040123957D-02
        xs( 27) = 0.6439097394085826D-02
        xs( 28) = 0.7249999571754943D-02
        xs( 29) = 0.8183339969632298D-02
        xs( 30) = 0.9269322991918353D-02
        xs( 31) = 0.1054911589271172D-01
        xs( 32) = 0.1208696048934888D-01
        xs( 33) = 0.1401432853481491D-01
        xs( 34) = 0.1654264944857288D-01
        xs( 35) = 0.2000279513896620D-01
        xs( 36) = 0.2504140595845915D-01
        xs( 37) = 0.3297218740571060D-01
        xs( 38) = 0.4577282118625756D-01
        xs( 39) = 0.6392305947269585D-01
        xs( 40) = 0.8445830743338024D-01
        xs( 41) = 0.1043118954920696D+00
        ws(  1) = 0.9524728980934786D-05
        ws(  2) = 0.2216824131494876D-04
        ws(  3) = 0.3483098451339850D-04
        ws(  4) = 0.4751540510946887D-04
        ws(  5) = 0.6028067146807046D-04
        ws(  6) = 0.7318155518381465D-04
        ws(  7) = 0.8630362681406795D-04
        ws(  8) = 0.9975506146296334D-04
        ws(  9) = 0.1136440085237236D-03
        ws( 10) = 0.1280950042088555D-03
        ws( 11) = 0.1432438598344752D-03
        ws( 12) = 0.1592569857885446D-03
        ws( 13) = 0.1763067994547023D-03
        ws( 14) = 0.1945732064370798D-03
        ws( 15) = 0.2143377928819928D-03
        ws( 16) = 0.2358623983171314D-03
        ws( 17) = 0.2594055215299120D-03
        ws( 18) = 0.2853897623293942D-03
        ws( 19) = 0.3142545738668043D-03
        ws( 20) = 0.3466522824418053D-03
        ws( 21) = 0.3830563073553599D-03
        ws( 22) = 0.4243492600652087D-03
        ws( 23) = 0.4719019835245251D-03
        ws( 24) = 0.5268279047303387D-03
        ws( 25) = 0.5909299178655271D-03
        ws( 26) = 0.6669182705549227D-03
        ws( 27) = 0.7576489394684261D-03
        ws( 28) = 0.8678732056373548D-03
        ws( 29) = 0.1003736517574080D-02
        ws( 30) = 0.1175104789546492D-02
        ws( 31) = 0.1394018206476994D-02
        ws( 32) = 0.1703720567330401D-02
        ws( 33) = 0.2185834556510230D-02
        ws( 34) = 0.2922760032061915D-02
        ws( 35) = 0.4098924729522879D-02
        ws( 36) = 0.6193014431723621D-02
        ws( 37) = 0.1002729855976492D-01
        ws( 38) = 0.1573588361451889D-01
        ws( 39) = 0.1996014545829803D-01
        ws( 40) = 0.2059833606588973D-01
        ws( 41) = 0.1644162074956388D-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 =  45
        err = 0.7091108084118664D-04
        xs(  1) = 0.2998918218974100D-05
        xs(  2) = 0.1580416706757463D-04
        xs(  3) = 0.3883288602364056D-04
        xs(  4) = 0.7208851909437923D-04
        xs(  5) = 0.1155881512190376D-03
        xs(  6) = 0.1693772783717263D-03
        xs(  7) = 0.2335518716547049D-03
        xs(  8) = 0.3082503404322375D-03
        xs(  9) = 0.3936850435521806D-03
        xs( 10) = 0.4901386176447731D-03
        xs( 11) = 0.5979710613710950D-03
        xs( 12) = 0.7176229709316165D-03
        xs( 13) = 0.8496375151933191D-03
        xs( 14) = 0.9946610970764029D-03
        xs( 15) = 0.1153449397712792D-02
        xs( 16) = 0.1326907808741306D-02
        xs( 17) = 0.1516089829189836D-02
        xs( 18) = 0.1722203693109040D-02
        xs( 19) = 0.1946664485639475D-02
        xs( 20) = 0.2191111164624926D-02
        xs( 21) = 0.2457481601131054D-02
        xs( 22) = 0.2748012756963160D-02
        xs( 23) = 0.3065309148158998D-02
        xs( 24) = 0.3412441698367351D-02
        xs( 25) = 0.3793099990070743D-02
        xs( 26) = 0.4211621428770316D-02
        xs( 27) = 0.4673259415502940D-02
        xs( 28) = 0.5184489034253685D-02
        xs( 29) = 0.5752987081721267D-02
        xs( 30) = 0.6388407948184897D-02
        xs( 31) = 0.7102794854634381D-02
        xs( 32) = 0.7912463493463112D-02
        xs( 33) = 0.8837662268431539D-02
        xs( 34) = 0.9903602143872215D-02
        xs( 35) = 0.1115056675474944D-01
        xs( 36) = 0.1264028677227229D-01
        xs( 37) = 0.1447966200042793D-01
        xs( 38) = 0.1684080133645348D-01
        xs( 39) = 0.1999614233021058D-01
        xs( 40) = 0.2446724397057569D-01
        xs( 41) = 0.3131390874514255D-01
        xs( 42) = 0.4245487960591487D-01
        xs( 43) = 0.5975005775163750D-01
        xs( 44) = 0.8141540488143291D-01
        xs( 45) = 0.1033628585237443D+00
        ws(  1) = 0.7698480462750223D-05
        ws(  2) = 0.1791555829628079D-04
        ws(  3) = 0.2814532099139045D-04
        ws(  4) = 0.3836883485370298D-04
        ws(  5) = 0.4863409487967031D-04
        ws(  6) = 0.5896199633413842D-04
        ws(  7) = 0.6940653864458471D-04
        ws(  8) = 0.8002847607614261D-04
        ws(  9) = 0.9088919799229718D-04
        ws( 10) = 0.1020773087269982D-03
        ws( 11) = 0.1136609495727491D-03
        ws( 12) = 0.1257334502319200D-03
        ws( 13) = 0.1384020766254752D-03
        ws( 14) = 0.1517707893864148D-03
        ws( 15) = 0.1659590544820800D-03
        ws( 16) = 0.1811309370023474D-03
        ws( 17) = 0.1974304662276275D-03
        ws( 18) = 0.2150329477470190D-03
        ws( 19) = 0.2341569269215258D-03
        ws( 20) = 0.2550584518057244D-03
        ws( 21) = 0.2780543734998822D-03
        ws( 22) = 0.3034410726958701D-03
        ws( 23) = 0.3316616182928746D-03
        ws( 24) = 0.3632161382994690D-03
        ws( 25) = 0.3988271236384861D-03
        ws( 26) = 0.4390803373375776D-03
        ws( 27) = 0.4852966498718041D-03
        ws( 28) = 0.5384052370627744D-03
        ws( 29) = 0.6002177260844761D-03
        ws( 30) = 0.6725846654627805D-03
        ws( 31) = 0.7589061544413484D-03
        ws( 32) = 0.8638983040490862D-03
        ws( 33) = 0.9903887650557423D-03
        ws( 34) = 0.1148276998553684D-02
        ws( 35) = 0.1355485832174127D-02
        ws( 36) = 0.1641342041357931D-02
        ws( 37) = 0.2065890829560890D-02
        ws( 38) = 0.2699529007021239D-02
        ws( 39) = 0.3692970437850963D-02
        ws( 40) = 0.5418218053689850D-02
        ws( 41) = 0.8601035976745391D-02
        ws( 42) = 0.1407968575612316D-01
        ws( 43) = 0.2016536675764711D-01
        ws( 44) = 0.2234831093438934D-01
        ws( 45) = 0.1873940103859572D-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 =  49
        err = 0.8994484724695751D-04
        xs(  1) = 0.2489706017071630D-05
        xs(  2) = 0.1311112438402511D-04
        xs(  3) = 0.3221053791666101D-04
        xs(  4) = 0.5977774280715766D-04
        xs(  5) = 0.9580812093084801D-04
        xs(  6) = 0.1403201163658115D-03
        xs(  7) = 0.1933533686880120D-03
        xs(  8) = 0.2549826826376953D-03
        xs(  9) = 0.3253233647722349D-03
        xs( 10) = 0.4045365744017314D-03
        xs( 11) = 0.4928395237809754D-03
        xs( 12) = 0.5904936162598354D-03
        xs( 13) = 0.6978229193442787D-03
        xs( 14) = 0.8152241732888769D-03
        xs( 15) = 0.9431508325180966D-03
        xs( 16) = 0.1082138927678852D-02
        xs( 17) = 0.1232823804919755D-02
        xs( 18) = 0.1395925845252069D-02
        xs( 19) = 0.1572262593113352D-02
        xs( 20) = 0.1762791074519092D-02
        xs( 21) = 0.1968581707232346D-02
        xs( 22) = 0.2190907980574906D-02
        xs( 23) = 0.2431199171744329D-02
        xs( 24) = 0.2691089314000239D-02
        xs( 25) = 0.2972484013716859D-02
        xs( 26) = 0.3277567667521255D-02
        xs( 27) = 0.3608982782046962D-02
        xs( 28) = 0.3969622978558458D-02
        xs( 29) = 0.4363145087991691D-02
        xs( 30) = 0.4793663749704047D-02
        xs( 31) = 0.5266157897824552D-02
        xs( 32) = 0.5786561510851807D-02
        xs( 33) = 0.6362254488454240D-02
        xs( 34) = 0.7002681215652466D-02
        xs( 35) = 0.7718717816059284D-02
        xs( 36) = 0.8525197775494419D-02
        xs( 37) = 0.9441942396873008D-02
        xs( 38) = 0.1049082118049689D-01
        xs( 39) = 0.1170330120869070D-01
        xs( 40) = 0.1313509482417832D-01
        xs( 41) = 0.1489230356483052D-01
        xs( 42) = 0.1712834313098885D-01
        xs( 43) = 0.2005961055423947D-01
        xs( 44) = 0.2410239202546586D-01
        xs( 45) = 0.3012636279132735D-01
        xs( 46) = 0.3982443200659696D-01
        xs( 47) = 0.5561539895931568D-01
        xs( 48) = 0.7757937571590771D-01
        xs( 49) = 0.1011993639975628D+00
        ws(  1) = 0.6389366827898684D-05
        ws(  2) = 0.1485858523140819D-04
        ws(  3) = 0.2333639503347736D-04
        ws(  4) = 0.3179967878624212D-04
        ws(  5) = 0.4026645813836174D-04
        ws(  6) = 0.4876131166071343D-04
        ws(  7) = 0.5731839419984269D-04
        ws(  8) = 0.6596186620666643D-04
        ws(  9) = 0.7474431601729254D-04
        ws( 10) = 0.8372087566591365D-04
        ws( 11) = 0.9293015550267884D-04
        ws( 12) = 0.1024339670576820D-03
        ws( 13) = 0.1122921840384168D-03
        ws( 14) = 0.1225858351682739D-03
        ws( 15) = 0.1333622580582873D-03
        ws( 16) = 0.1447227148576186D-03
        ws( 17) = 0.1567670313077660D-03
        ws( 18) = 0.1695729189084187D-03
        ws( 19) = 0.1832654357090360D-03
        ws( 20) = 0.1979655040665402D-03
        ws( 21) = 0.2138290712116305D-03
        ws( 22) = 0.2310612964741542D-03
        ws( 23) = 0.2497912933513621D-03
        ws( 24) = 0.2703133953472808D-03
        ws( 25) = 0.2928275007803014D-03
        ws( 26) = 0.3177925369907151D-03
        ws( 27) = 0.3454960930300466D-03
        ws( 28) = 0.3764147369809793D-03
        ws( 29) = 0.4112913525754754D-03
        ws( 30) = 0.4505905910150343D-03
        ws( 31) = 0.4953711431742321D-03
        ws( 32) = 0.5466623627099118D-03
        ws( 33) = 0.6063124332583970D-03
        ws( 34) = 0.6763018421467871D-03
        ws( 35) = 0.7581977664050362D-03
        ws( 36) = 0.8581603643850327D-03
        ws( 37) = 0.9787979289063583D-03
        ws( 38) = 0.1124083321347108D-02
        ws( 39) = 0.1309391023421175D-02
        ws( 40) = 0.1572184779438332D-02
        ws( 41) = 0.1968028828353772D-02
        ws( 42) = 0.2537159314220774D-02
        ws( 43) = 0.3391432026595231D-02
        ws( 44) = 0.4831712214395643D-02
        ws( 45) = 0.7495333168101930D-02
        ws( 46) = 0.1234379773812810D-01
        ws( 47) = 0.1935379817690350D-01
        ws( 48) = 0.2364119060321228D-01
        ws( 49) = 0.2083076766145538D-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 =  54
        err = 0.4840171323117902D-04
        xs(  1) = 0.2068079133118079D-05
        xs(  2) = 0.1088995334178898D-04
        xs(  3) = 0.2675170061806622D-04
        xs(  4) = 0.4964812254010038D-04
        xs(  5) = 0.7957119685609562D-04
        xs(  6) = 0.1165247615471782D-03
        xs(  7) = 0.1605304730602573D-03
        xs(  8) = 0.2116283485863859D-03
        xs(  9) = 0.2698842976640666D-03
        xs( 10) = 0.3353959118289186D-03
        xs( 11) = 0.4082916697626987D-03
        xs( 12) = 0.4887339949844821D-03
        xs( 13) = 0.5769226805084466D-03
        xs( 14) = 0.6731014173924006D-03
        xs( 15) = 0.7775552301932200D-03
        xs( 16) = 0.8906118740773747D-03
        xs( 17) = 0.1012659283878060D-02
        xs( 18) = 0.1144145573244481D-02
        xs( 19) = 0.1285568840940138D-02
        xs( 20) = 0.1437497699068561D-02
        xs( 21) = 0.1600578618596787D-02
        xs( 22) = 0.1775550512126686D-02
        xs( 23) = 0.1963252107305418D-02
        xs( 24) = 0.2164616446214065D-02
        xs( 25) = 0.2380712247385576D-02
        xs( 26) = 0.2612736851665678D-02
        xs( 27) = 0.2862091805055618D-02
        xs( 28) = 0.3130357855587323D-02
        xs( 29) = 0.3419320052648982D-02
        xs( 30) = 0.3731116034075112D-02
        xs( 31) = 0.4068093931107860D-02
        xs( 32) = 0.4433073974426476D-02
        xs( 33) = 0.4829187606454238D-02
        xs( 34) = 0.5260235228485117D-02
        xs( 35) = 0.5730997893201564D-02
        xs( 36) = 0.6246568540434303D-02
        xs( 37) = 0.6813431500447181D-02
        xs( 38) = 0.7439803024673917D-02
        xs( 39) = 0.8135209303599665D-02
        xs( 40) = 0.8911736902050185D-02
        xs( 41) = 0.9785274271722322D-02
        xs( 42) = 0.1077562292206629D-01
        xs( 43) = 0.1190806146199142D-01
        xs( 44) = 0.1322168046143476D-01
        xs( 45) = 0.1478148753622621D-01
        xs( 46) = 0.1669628021879611D-01
        xs( 47) = 0.1911806970906709D-01
        xs( 48) = 0.2228599697918284D-01
        xs( 49) = 0.2665549782926406D-01
        xs( 50) = 0.3313200476370796D-01
        xs( 51) = 0.4341005378833408D-01
        xs( 52) = 0.5984798822579452D-01
        xs( 53) = 0.8261233253870966D-01
        xs( 54) = 0.1074017068564589D+00
        ws(  1) = 0.5305395979947935D-05
        ws(  2) = 0.1234219303198465D-04
        ws(  3) = 0.1938264771200374D-04
        ws(  4) = 0.2640666780861902D-04
        ws(  5) = 0.3343917565426862D-04
        ws(  6) = 0.4047455396857003D-04
        ws(  7) = 0.4754227765425140D-04
        ws(  8) = 0.5466257841781587D-04
        ws(  9) = 0.6186555231317556D-04
        ws( 10) = 0.6917884048538576D-04
        ws( 11) = 0.7664047785638522D-04
        ws( 12) = 0.8427695041182334D-04
        ws( 13) = 0.9213912121585819D-04
        ws( 14) = 0.1002665618473979D-03
        ws( 15) = 0.1086947082786023D-03
        ws( 16) = 0.1174811327384810D-03
        ws( 17) = 0.1266894535203935D-03
        ws( 18) = 0.1363663411468937D-03
        ws( 19) = 0.1465735820070360D-03
        ws( 20) = 0.1573906034893084D-03
        ws( 21) = 0.1688939665700316D-03
        ws( 22) = 0.1811893260412993D-03
        ws( 23) = 0.1943672767411849D-03
        ws( 24) = 0.2085405877589242D-03
        ws( 25) = 0.2238489969308426D-03
        ws( 26) = 0.2404356949339603D-03
        ws( 27) = 0.2585407964735758D-03
        ws( 28) = 0.2782816520781649D-03
        ws( 29) = 0.3000084465226371D-03
        ws( 30) = 0.3239635290963684D-03
        ws( 31) = 0.3504750588658352D-03
        ws( 32) = 0.3799989954303008D-03
        ws( 33) = 0.4128506736835628D-03
        ws( 34) = 0.4500663399930938D-03
        ws( 35) = 0.4922746630527280D-03
        ws( 36) = 0.5399386303603176D-03
        ws( 37) = 0.5951680029173372D-03
        ws( 38) = 0.6591305856242896D-03
        ws( 39) = 0.7336691932059019D-03
        ws( 40) = 0.8220141538151847D-03
        ws( 41) = 0.9283867324187539D-03
        ws( 42) = 0.1056311576606973D-02
        ws( 43) = 0.1214961424267522D-02
        ws( 44) = 0.1422637493622598D-02
        ws( 45) = 0.1715384188679272D-02
        ws( 46) = 0.2138854793748117D-02
        ws( 47) = 0.2742401279461714D-02
        ws( 48) = 0.3665798608865223D-02
        ws( 49) = 0.5217600667108807D-02
        ws( 50) = 0.8015133563694272D-02
        ws( 51) = 0.1297219761707148D-01
        ws( 52) = 0.2002804023153761D-01
        ws( 53) = 0.2459412479235750D-01
        ws( 54) = 0.2214483315181660D-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 =  58
        err = 0.6026569047137111D-04
        xs(  1) = 0.1769709753725332D-05
        xs(  2) = 0.9329747758400001D-05
        xs(  3) = 0.2291864905607916D-04
        xs(  4) = 0.4252994344992302D-04
        xs(  5) = 0.6815276490248434D-04
        xs(  6) = 0.9978267489634881D-04
        xs(  7) = 0.1374222070667640D-03
        xs(  8) = 0.1810926005979609D-03
        xs(  9) = 0.2308287810312320D-03
        xs( 10) = 0.2866889624050879D-03
        xs( 11) = 0.3487521072739524D-03
        xs( 12) = 0.4171208007548810D-03
        xs( 13) = 0.4919236969820033D-03
        xs( 14) = 0.5733191369777472D-03
        xs( 15) = 0.6614958981120733D-03
        xs( 16) = 0.7566695724484735D-03
        xs( 17) = 0.8590895251229902D-03
        xs( 18) = 0.9690524589832199D-03
        xs( 19) = 0.1086891740066460D-02
        xs( 20) = 0.1212976875063689D-02
        xs( 21) = 0.1347726132167989D-02
        xs( 22) = 0.1491610087692905D-02
        xs( 23) = 0.1645166363787318D-02
        xs( 24) = 0.1808997514047411D-02
        xs( 25) = 0.1983764281233550D-02
        xs( 26) = 0.2170210746775935D-02
        xs( 27) = 0.2369176707675679D-02
        xs( 28) = 0.2581625070705126D-02
        xs( 29) = 0.2808616357267779D-02
        xs( 30) = 0.3051341149925100D-02
        xs( 31) = 0.3311199313062522D-02
        xs( 32) = 0.3589748124099456D-02
        xs( 33) = 0.3888773867050982D-02
        xs( 34) = 0.4210254484255240D-02
        xs( 35) = 0.4556437908051165D-02
        xs( 36) = 0.4930141604464106D-02
        xs( 37) = 0.5334522899351607D-02
        xs( 38) = 0.5773050216139256D-02
        xs( 39) = 0.6250282310103574D-02
        xs( 40) = 0.6771154410775229D-02
        xs( 41) = 0.7341814602642063D-02
        xs( 42) = 0.7969799737905840D-02
        xs( 43) = 0.8664307057257669D-02
        xs( 44) = 0.9437095814903880D-02
        xs( 45) = 0.1030255137091968D-01
        xs( 46) = 0.1127838681781645D-01
        xs( 47) = 0.1238907875105310D-01
        xs( 48) = 0.1367035160847230D-01
        xs( 49) = 0.1517608790812259D-01
        xs( 50) = 0.1700167264096603D-01
        xs( 51) = 0.1928440799868015D-01
        xs( 52) = 0.2223211724251537D-01
        xs( 53) = 0.2622834578477434D-01
        xs( 54) = 0.3206664128868274D-01
        xs( 55) = 0.4126781027645844D-01
        xs( 56) = 0.5640353695465170D-01
        xs( 57) = 0.7916308657205892D-01
        xs( 58) = 0.1054247393626603D+00
        ws(  1) = 0.4544965084618834D-05
        ws(  2) = 0.1057142177797136D-04
        ws(  3) = 0.1660573934288585D-04
        ws(  4) = 0.2261971492420877D-04
        ws(  5) = 0.2862419276246324D-04
        ws(  6) = 0.3463288007844620D-04
        ws(  7) = 0.4065145234369955D-04
        ws(  8) = 0.4669463195952546D-04
        ws(  9) = 0.5278770511013319D-04
        ws( 10) = 0.5894540563723739D-04
        ws( 11) = 0.6519693523924347D-04
        ws( 12) = 0.7156221266993231D-04
        ws( 13) = 0.7806898115677305D-04
        ws( 14) = 0.8475346625492090D-04
        ws( 15) = 0.9163671647107382D-04
        ws( 16) = 0.9875055236580719D-04
        ws( 17) = 0.1061393251469245D-03
        ws( 18) = 0.1138426553218319D-03
        ws( 19) = 0.1218967152559486D-03
        ws( 20) = 0.1303432249615846D-03
        ws( 21) = 0.1392330821009161D-03
        ws( 22) = 0.1486247614225582D-03
        ws( 23) = 0.1585889809486946D-03
        ws( 24) = 0.1691834182204718D-03
        ws( 25) = 0.1804742539092754D-03
        ws( 26) = 0.1925566290546296D-03
        ws( 27) = 0.2055369084545580D-03
        ws( 28) = 0.2195375566184416D-03
        ws( 29) = 0.2346393672931368D-03
        ws( 30) = 0.2510439500181419D-03
        ws( 31) = 0.2689274185318681D-03
        ws( 32) = 0.2884713703028836D-03
        ws( 33) = 0.3099075583552358D-03
        ws( 34) = 0.3334178885212701D-03
        ws( 35) = 0.3594178466674156D-03
        ws( 36) = 0.3885227300797795D-03
        ws( 37) = 0.4207832377107180D-03
        ws( 38) = 0.4570654853917278D-03
        ws( 39) = 0.4981871192248850D-03
        ws( 40) = 0.5445893398473367D-03
        ws( 41) = 0.5979823816338352D-03
        ws( 42) = 0.6595055230557810D-03
        ws( 43) = 0.7314693752025150D-03
        ws( 44) = 0.8165015160355128D-03
        ws( 45) = 0.9173289043521974D-03
        ws( 46) = 0.1038271203314014D-02
        ws( 47) = 0.1189166503401805D-02
        ws( 48) = 0.1381604299470740D-02
        ws( 49) = 0.1646179493847255D-02
        ws( 50) = 0.2027231821627104D-02
        ws( 51) = 0.2571486214109360D-02
        ws( 52) = 0.3383811216605090D-02
        ws( 53) = 0.4735821092513438D-02
        ws( 54) = 0.7186020842064733D-02
        ws( 55) = 0.1165432314766591D-01
        ws( 56) = 0.1906577696909598D-01
        ws( 57) = 0.2562036924632766D-01
        ws( 58) = 0.2408780320983327D-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 =  62
        err = 0.6262828779370260D-04
        xs(  1) = 0.1532830798202879D-05
        xs(  2) = 0.8084622349306293D-05
        xs(  3) = 0.1985598411434143D-04
        xs(  4) = 0.3684673352907973D-04
        xs(  5) = 0.5903764587392240D-04
        xs(  6) = 0.8642123756807436D-04
        xs(  7) = 0.1189948498715674D-03
        xs(  8) = 0.1567624319447841D-03
        xs(  9) = 0.1997438610427770D-03
        xs( 10) = 0.2479723030942163D-03
        xs( 11) = 0.3014969315375437D-03
        xs( 12) = 0.3603838213653600D-03
        xs( 13) = 0.4247162519543438D-03
        xs( 14) = 0.4945988844035328D-03
        xs( 15) = 0.5701610027111981D-03
        xs( 16) = 0.6515490709361171D-03
        xs( 17) = 0.7389296351284919D-03
        xs( 18) = 0.8325015196528000D-03
        xs( 19) = 0.9324948552166849D-03
        xs( 20) = 0.1039163221532088D-02
        xs( 21) = 0.1152785676644340D-02
        xs( 22) = 0.1273679412215504D-02
        xs( 23) = 0.1402197855645634D-02
        xs( 24) = 0.1538748022771831D-02
        xs( 25) = 0.1683773948560995D-02
        xs( 26) = 0.1837754893275697D-02
        xs( 27) = 0.2001235413748285D-02
        xs( 28) = 0.2174820396320926D-02
        xs( 29) = 0.2359189810425456D-02
        xs( 30) = 0.2555106316963691D-02
        xs( 31) = 0.2763406284378879D-02
        xs( 32) = 0.2985040739330992D-02
        xs( 33) = 0.3221065640218029D-02
        xs( 34) = 0.3472684855834369D-02
        xs( 35) = 0.3741266690448347D-02
        xs( 36) = 0.4028242343008893D-02
        xs( 37) = 0.4335353270186994D-02
        xs( 38) = 0.4664725356591264D-02
        xs( 39) = 0.5018428427667124D-02
        xs( 40) = 0.5399034885899226D-02
        xs( 41) = 0.5809857450244646D-02
        xs( 42) = 0.6254148194869256D-02
        xs( 43) = 0.6735963369779189D-02
        xs( 44) = 0.7260430547305733D-02
        xs( 45) = 0.7833359417008618D-02
        xs( 46) = 0.8461658147437023D-02
        xs( 47) = 0.9154338217441386D-02
        xs( 48) = 0.9922225978759828D-02
        xs( 49) = 0.1077905372937194D-01
        xs( 50) = 0.1174143469631799D-01
        xs( 51) = 0.1282873489317389D-01
        xs( 52) = 0.1407198247390816D-01
        xs( 53) = 0.1552609321286246D-01
        xs( 54) = 0.1728351865385838D-01
        xs( 55) = 0.1946431071521632D-01
        xs( 56) = 0.2224366111946688D-01
        xs( 57) = 0.2594873452515964D-01
        xs( 58) = 0.3123230317884429D-01
        xs( 59) = 0.3937951316653491D-01
        xs( 60) = 0.5273316176623236D-01
        xs( 61) = 0.7424290391132252D-01
        xs( 62) = 0.1017076585783447D+00
        ws(  1) = 0.3934533571269193D-05
        ws(  2) = 0.9164554955777003D-05
        ws(  3) = 0.1438565038888972D-04
        ws(  4) = 0.1959113972354921D-04
        ws(  5) = 0.2478985095567765D-04
        ws(  6) = 0.2997788659543884D-04
        ws(  7) = 0.3516795440340681D-04
        ws(  8) = 0.4036987357827598D-04
        ws(  9) = 0.4559761039654607D-04
        ws( 10) = 0.5086750227066026D-04
        ws( 11) = 0.5619306568017132D-04
        ws( 12) = 0.6159498863373090D-04
        ws( 13) = 0.6708707094371666D-04
        ws( 14) = 0.7269918740828554D-04
        ws( 15) = 0.7844882722661288D-04
        ws( 16) = 0.8435464285053436D-04
        ws( 17) = 0.9044003238306958D-04
        ws( 18) = 0.9674205165893789D-04
        ws( 19) = 0.1032869804180714D-03
        ws( 20) = 0.1100958763965261D-03
        ws( 21) = 0.1172032930869184D-03
        ws( 22) = 0.1246426551305752D-03
        ws( 23) = 0.1324632306349698D-03
        ws( 24) = 0.1407114706232591D-03
        ws( 25) = 0.1494199535291155D-03
        ws( 26) = 0.1586348828791777D-03
        ws( 27) = 0.1684269085984378D-03
        ws( 28) = 0.1788559995857486D-03
        ws( 29) = 0.1900108461234236D-03
        ws( 30) = 0.2019577399236134D-03
        ws( 31) = 0.2147983744834343D-03
        ws( 32) = 0.2286446818356311D-03
        ws( 33) = 0.2436047442196487D-03
        ws( 34) = 0.2598616504463403D-03
        ws( 35) = 0.2775294869811976D-03
        ws( 36) = 0.2967019124408376D-03
        ws( 37) = 0.3178899222944448D-03
        ws( 38) = 0.3411830909810486D-03
        ws( 39) = 0.3666455736776069D-03
        ws( 40) = 0.3951516791354207D-03
        ws( 41) = 0.4270130667682562D-03
        ws( 42) = 0.4622486894670878D-03
        ws( 43) = 0.5022477694175496D-03
        ws( 44) = 0.5476602878463505D-03
        ws( 45) = 0.5993082863882697D-03
        ws( 46) = 0.6588264450011026D-03
        ws( 47) = 0.7282984411568527D-03
        ws( 48) = 0.8097486887867460D-03
        ws( 49) = 0.9067703740873643D-03
        ws( 50) = 0.1020925963551329D-02
        ws( 51) = 0.1158798850416752D-02
        ws( 52) = 0.1336364899678313D-02
        ws( 53) = 0.1587683924805790D-02
        ws( 54) = 0.1946762784995455D-02
        ws( 55) = 0.2442449064896636D-02
        ws( 56) = 0.3168156050733120D-02
        ws( 57) = 0.4344928964712814D-02
        ws( 58) = 0.6429602030477449D-02
        ws( 59) = 0.1024907781550909D-01
        ws( 60) = 0.1706049342215981D-01
        ws( 61) = 0.2558946693941988D-01
        ws( 62) = 0.2636356666162094D-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 =  66
        err = 0.8660406728571086D-04
        xs(  1) = 0.1344205036630134D-05
        xs(  2) = 0.7079466014368475D-05
        xs(  3) = 0.1738735159460390D-04
        xs(  4) = 0.3226109658089705D-04
        xs(  5) = 0.5168663135993487D-04
        xs(  6) = 0.7565383866748018D-04
        xs(  7) = 0.1041511370543411D-03
        xs(  8) = 0.1371789797993454D-03
        xs(  9) = 0.1747459161847218D-03
        xs( 10) = 0.2168675470625017D-03
        xs( 11) = 0.2635734074944502D-03
        xs( 12) = 0.3149078092650591D-03
        xs( 13) = 0.3709239959781341D-03
        xs( 14) = 0.4316911345417120D-03
        xs( 15) = 0.4972970557701372D-03
        xs( 16) = 0.5678469048523904D-03
        xs( 17) = 0.6434536083664408D-03
        xs( 18) = 0.7242509682897509D-03
        xs( 19) = 0.8104007040852633D-03
        xs( 20) = 0.9020837268596082D-03
        xs( 21) = 0.9994952035914336D-03
        xs( 22) = 0.1102855487749215D-02
        xs( 23) = 0.1212405723443453D-02
        xs( 24) = 0.1328416795350713D-02
        xs( 25) = 0.1451206577996858D-02
        xs( 26) = 0.1581110462768524D-02
        xs( 27) = 0.1718482346280203D-02
        xs( 28) = 0.1863739057551546D-02
        xs( 29) = 0.2017324094721346D-02
        xs( 30) = 0.2179745911804309D-02
        xs( 31) = 0.2351555195970782D-02
        xs( 32) = 0.2533331138286917D-02
        xs( 33) = 0.2725803158100051D-02
        xs( 34) = 0.2929701753323930D-02
        xs( 35) = 0.3145857379988775D-02
        xs( 36) = 0.3375241399071737D-02
        xs( 37) = 0.3618872560033295D-02
        xs( 38) = 0.3877863499108347D-02
        xs( 39) = 0.4153572700490763D-02
        xs( 40) = 0.4447544748299448D-02
        xs( 41) = 0.4761383985255539D-02
        xs( 42) = 0.5096953737646812D-02
        xs( 43) = 0.5456580634145941D-02
        xs( 44) = 0.5842749811842303D-02
        xs( 45) = 0.6258273499957857D-02
        xs( 46) = 0.6706452044955558D-02
        xs( 47) = 0.7191390217062738D-02
        xs( 48) = 0.7717409169015416D-02
        xs( 49) = 0.8290504415790500D-02
        xs( 50) = 0.8917745594566885D-02
        xs( 51) = 0.9606946673556120D-02
        xs( 52) = 0.1036826081682661D-01
        xs( 53) = 0.1121321968188510D-01
        xs( 54) = 0.1215471371621822D-01
        xs( 55) = 0.1321371297820429D-01
        xs( 56) = 0.1442460465817114D-01
        xs( 57) = 0.1583966536085232D-01
        xs( 58) = 0.1754481707276659D-01
        xs( 59) = 0.1964875197675308D-01
        xs( 60) = 0.2231567783203433D-01
        xs( 61) = 0.2584952051497516D-01
        xs( 62) = 0.3083351643306090D-01
        xs( 63) = 0.3839566618595821D-01
        xs( 64) = 0.5073555759216643D-01
        xs( 65) = 0.7131978057339491D-01
        xs( 66) = 0.9955042935087295D-01
        ws(  1) = 0.3442017660132781D-05
        ws(  2) = 0.8025682059447684D-05
        ws(  3) = 0.1259820266634823D-04
        ws(  4) = 0.1715249129480940D-04
        ws(  5) = 0.2169691450418274D-04
        ws(  6) = 0.2623018336550904D-04
        ws(  7) = 0.3076801774368496D-04
        ws(  8) = 0.3529222503530361D-04
        ws(  9) = 0.3983817709039529D-04
        ws( 10) = 0.4440911919836806D-04
        ws( 11) = 0.4901407269398587D-04
        ws( 12) = 0.5366449798917819D-04
        ws( 13) = 0.5837751547228897D-04
        ws( 14) = 0.6317125417741530D-04
        ws( 15) = 0.6805898487265868D-04
        ws( 16) = 0.7305833476277711D-04
        ws( 17) = 0.7817648763317397D-04
        ws( 18) = 0.8344473010687526D-04
        ws( 19) = 0.8888442600944204D-04
        ws( 20) = 0.9451321513388030D-04
        ws( 21) = 0.1003467625728055D-03
        ws( 22) = 0.1064129683967561D-03
        ws( 23) = 0.1127307046195094D-03
        ws( 24) = 0.1193444201363503D-03
        ws( 25) = 0.1262907751541124D-03
        ws( 26) = 0.1335717500375228D-03
        ws( 27) = 0.1412420696383565D-03
        ws( 28) = 0.1493430900963480D-03
        ws( 29) = 0.1579099151562521D-03
        ws( 30) = 0.1670276409131410D-03
        ws( 31) = 0.1766824636908328D-03
        ws( 32) = 0.1869955444393175D-03
        ws( 33) = 0.1980681262734850D-03
        ws( 34) = 0.2098713822386363D-03
        ws( 35) = 0.2226047023337027D-03
        ws( 36) = 0.2363288631767440D-03
        ws( 37) = 0.2511128898996261D-03
        ws( 38) = 0.2670948293218435D-03
        ws( 39) = 0.2845854901575652D-03
        ws( 40) = 0.3036216786991775D-03
        ws( 41) = 0.3243639631379667D-03
        ws( 42) = 0.3471820401067941D-03
        ws( 43) = 0.3724806315094734D-03
        ws( 44) = 0.4003418961506980D-03
        ws( 45) = 0.4312343276314165D-03
        ws( 46) = 0.4658553905424094D-03
        ws( 47) = 0.5046791168197031D-03
        ws( 48) = 0.5483911397297277D-03
        ws( 49) = 0.5989927583416002D-03
        ws( 50) = 0.6567375782321412D-03
        ws( 51) = 0.7233977588886710D-03
        ws( 52) = 0.8011744328616758D-03
        ws( 53) = 0.8907709467227946D-03
        ws( 54) = 0.9955245302294394D-03
        ws( 55) = 0.1128430580931201D-02
        ws( 56) = 0.1301251958190704D-02
        ws( 57) = 0.1543996614960735D-02
        ws( 58) = 0.1883578791559871D-02
        ws( 59) = 0.2350393917623370D-02
        ws( 60) = 0.3031838113675815D-02
        ws( 61) = 0.4128804927328363D-02
        ws( 62) = 0.6018562713888891D-02
        ws( 63) = 0.9460894931151268D-02
        ws( 64) = 0.1586015321392307D-01
        ws( 65) = 0.2534525596912592D-01
        ws( 66) = 0.2791698027178452D-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 =  71
        err = 0.6084858939334189D-04
        xs(  1) = 0.1173063310779763D-05
        xs(  2) = 0.6182806409041415D-05
        xs(  3) = 0.1518957955421575D-04
        xs(  4) = 0.2818301853877942D-04
        xs(  5) = 0.4515323705966616D-04
        xs(  6) = 0.6608879860820061D-04
        xs(  7) = 0.9098008689549526D-04
        xs(  8) = 0.1198249439788209D-03
        xs(  9) = 0.1526225812783437D-03
        xs( 10) = 0.1893830125029870D-03
        xs( 11) = 0.2301250249529366D-03
        xs( 12) = 0.2748749353263944D-03
        xs( 13) = 0.3236696683986838D-03
        xs( 14) = 0.3765570366325315D-03
        xs( 15) = 0.4335946290865516D-03
        xs( 16) = 0.4948547455142828D-03
        xs( 17) = 0.5604191180517949D-03
        xs( 18) = 0.6303815033116210D-03
        xs( 19) = 0.7048521771439253D-03
        xs( 20) = 0.7839578396326813D-03
        xs( 21) = 0.8678375554935565D-03
        xs( 22) = 0.9566443284653212D-03
        xs( 23) = 0.1050550508613414D-02
        xs( 24) = 0.1149744064181414D-02
        xs( 25) = 0.1254438427196668D-02
        xs( 26) = 0.1364867219870200D-02
        xs( 27) = 0.1481282578973205D-02
        xs( 28) = 0.1603965965107166D-02
        xs( 29) = 0.1733219939482434D-02
        xs( 30) = 0.1869376778568496D-02
        xs( 31) = 0.2012821639868122D-02
        xs( 32) = 0.2163951841965478D-02
        xs( 33) = 0.2323198268506913D-02
        xs( 34) = 0.2491059180841502D-02
        xs( 35) = 0.2668086172516774D-02
        xs( 36) = 0.2854868359990943D-02
        xs( 37) = 0.3052051079585410D-02
        xs( 38) = 0.3260374723874211D-02
        xs( 39) = 0.3480617637687734D-02
        xs( 40) = 0.3713719226320782D-02
        xs( 41) = 0.3960643210486352D-02
        xs( 42) = 0.4222496904873621D-02
        xs( 43) = 0.4500531146734647D-02
        xs( 44) = 0.4796166916352972D-02
        xs( 45) = 0.5110934688963277D-02
        xs( 46) = 0.5446576162432578D-02
        xs( 47) = 0.5805108048884969D-02
        xs( 48) = 0.6188930836127100D-02
        xs( 49) = 0.6600725653069111D-02
        xs( 50) = 0.7043526262192235D-02
        xs( 51) = 0.7520799998155956D-02
        xs( 52) = 0.8036565117977450D-02
        xs( 53) = 0.8596145264642061D-02
        xs( 54) = 0.9205532146562483D-02
        xs( 55) = 0.9871584245103333D-02
        xs( 56) = 0.1060267838286435D-01
        xs( 57) = 0.1140946883552458D-01
        xs( 58) = 0.1230510245003533D-01
        xs( 59) = 0.1330476386179050D-01
        xs( 60) = 0.1443166646762972D-01
        xs( 61) = 0.1572466004520209D-01
        xs( 62) = 0.1724750011453456D-01
        xs( 63) = 0.1908721631784899D-01
        xs( 64) = 0.2134883013996237D-01
        xs( 65) = 0.2421077555745473D-01
        xs( 66) = 0.2801660957709466D-01
        xs( 67) = 0.3339902300101770D-01
        xs( 68) = 0.4155821312516506D-01
        xs( 69) = 0.5477849912177130D-01
        xs( 70) = 0.7650516931521623D-01
        xs( 71) = 0.1059726254362904D+00
        ws(  1) = 0.3011948594539941D-05
        ws(  2) = 0.7007915776618121D-05
        ws(  3) = 0.1100256380656119D-04
        ws(  4) = 0.1498410216968905D-04
        ws(  5) = 0.1895601811486826D-04
        ws(  6) = 0.2291419241239212D-04
        ws(  7) = 0.2686597453093687D-04
        ws(  8) = 0.3082031463564215D-04
        ws(  9) = 0.3477914223266613D-04
        ws( 10) = 0.3874762478324933D-04
        ws( 11) = 0.4273836954289570D-04
        ws( 12) = 0.4676558959393783D-04
        ws( 13) = 0.5083312419466180D-04
        ws( 14) = 0.5495150534998087D-04
        ws( 15) = 0.5913574539472834D-04
        ws( 16) = 0.6339802987192674D-04
        ws( 17) = 0.6774551036785840D-04
        ws( 18) = 0.7219790457155748D-04
        ws( 19) = 0.7676500495568539D-04
        ws( 20) = 0.8146859966018581D-04
        ws( 21) = 0.8631555333525555D-04
        ws( 22) = 0.9132665044264701D-04
        ws( 23) = 0.9651671487387405D-04
        ws( 24) = 0.1019079942638825D-03
        ws( 25) = 0.1075209155610695D-03
        ws( 26) = 0.1133775266603448D-03
        ws( 27) = 0.1194999078836243D-03
        ws( 28) = 0.1259176288082483D-03
        ws( 29) = 0.1326451317282206D-03
        ws( 30) = 0.1397355018283249D-03
        ws( 31) = 0.1472204797775984D-03
        ws( 32) = 0.1551095516933069D-03
        ws( 33) = 0.1634661410746655D-03
        ws( 34) = 0.1723466438871364D-03
        ws( 35) = 0.1818063860089979D-03
        ws( 36) = 0.1918646965265412D-03
        ws( 37) = 0.2026292850765315D-03
        ws( 38) = 0.2141418900475317D-03
        ws( 39) = 0.2265080395992295D-03
        ws( 40) = 0.2398503790125426D-03
        ws( 41) = 0.2541863659292290D-03
        ws( 42) = 0.2697294754895490D-03
        ws( 43) = 0.2865866292208253D-03
        ws( 44) = 0.3049388241256946D-03
        ws( 45) = 0.3248953008171308D-03
        ws( 46) = 0.3467169573908241D-03
        ws( 47) = 0.3707549622515016D-03
        ws( 48) = 0.3973286864088279D-03
        ws( 49) = 0.4267606529514369D-03
        ws( 50) = 0.4594230421323804D-03
        ws( 51) = 0.4957573623514188D-03
        ws( 52) = 0.5366912348546176D-03
        ws( 53) = 0.5834522697602509D-03
        ws( 54) = 0.6364546424170291D-03
        ws( 55) = 0.6970340891202822D-03
        ws( 56) = 0.7669325023914425D-03
        ws( 57) = 0.8488579932339532D-03
        ws( 58) = 0.9448469896062838D-03
        ws( 59) = 0.1058201391129394D-02
        ws( 60) = 0.1201978295844992D-02
        ws( 61) = 0.1394401882960171D-02
        ws( 62) = 0.1666472270123321D-02
        ws( 63) = 0.2029154041915663D-02
        ws( 64) = 0.2522260780079314D-02
        ws( 65) = 0.3257267270187460D-02
        ws( 66) = 0.4455259590518680D-02
        ws( 67) = 0.6500566311222221D-02
        ws( 68) = 0.1019056691880461D-01
        ws( 69) = 0.1688811017578342D-01
        ws( 70) = 0.2655521523922849D-01
        ws( 71) = 0.2918166255348895D-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 =  75
        err = 0.9492750005043224D-04
        xs(  1) = 0.1048920625747229D-05
        xs(  2) = 0.5517297246559770D-05
        xs(  3) = 0.1354814301277332D-04
        xs(  4) = 0.2513486446972747D-04
        xs(  5) = 0.4026290016584444D-04
        xs(  6) = 0.5892027121807265D-04
        xs(  7) = 0.8109716736413422D-04
        xs(  8) = 0.1067865059699318D-03
        xs(  9) = 0.1359824770302823D-03
        xs( 10) = 0.1686905164863497D-03
        xs( 11) = 0.2049180326463748D-03
        xs( 12) = 0.2446817427287204D-03
        xs( 13) = 0.2880052267878697D-03
        xs( 14) = 0.3349239326384993D-03
        xs( 15) = 0.3854732525625085D-03
        xs( 16) = 0.4397070876740847D-03
        xs( 17) = 0.4976852251629686D-03
        xs( 18) = 0.5594710882992754D-03
        xs( 19) = 0.6251463887066603D-03
        xs( 20) = 0.6948025800686007D-03
        xs( 21) = 0.7685435920108525D-03
        xs( 22) = 0.8464797941833445D-03
        xs( 23) = 0.9287376074690706D-03
        xs( 24) = 0.1015454033743334D-02
        xs( 25) = 0.1106780057921897D-02
        xs( 26) = 0.1202890022101418D-02
        xs( 27) = 0.1303969280428249D-02
        xs( 28) = 0.1410211458618864D-02
        xs( 29) = 0.1521842257605031D-02
        xs( 30) = 0.1639097451508412D-02
        xs( 31) = 0.1762238445966058D-02
        xs( 32) = 0.1891568576260088D-02
        xs( 33) = 0.2027382911309689D-02
        xs( 34) = 0.2170015209172567D-02
        xs( 35) = 0.2319851029771139D-02
        xs( 36) = 0.2477303408165733D-02
        xs( 37) = 0.2642819251428916D-02
        xs( 38) = 0.2816869545206497D-02
        xs( 39) = 0.3000002831227508D-02
        xs( 40) = 0.3192796550734801D-02
        xs( 41) = 0.3395928871962466D-02
        xs( 42) = 0.3610099390720281D-02
        xs( 43) = 0.3836097334582921D-02
        xs( 44) = 0.4074784023646555D-02
        xs( 45) = 0.4327187710517445D-02
        xs( 46) = 0.4594366707333593D-02
        xs( 47) = 0.4877509595611274D-02
        xs( 48) = 0.5177936920541837D-02
        xs( 49) = 0.5497198129556343D-02
        xs( 50) = 0.5837020590642513D-02
        xs( 51) = 0.6199409177103423D-02
        xs( 52) = 0.6586679601626892D-02
        xs( 53) = 0.7001308838614253D-02
        xs( 54) = 0.7446056074506315D-02
        xs( 55) = 0.7924591272710783D-02
        xs( 56) = 0.8440711096028517D-02
        xs( 57) = 0.8998897488490124D-02
        xs( 58) = 0.9605019267266287D-02
        xs( 59) = 0.1026631112714951D-01
        xs( 60) = 0.1099071596771744D-01
        xs( 61) = 0.1178791107552378D-01
        xs( 62) = 0.1266805244861109D-01
        xs( 63) = 0.1364467817070404D-01
        xs( 64) = 0.1474342603340478D-01
        xs( 65) = 0.1600030860995393D-01
        xs( 66) = 0.1747469203077923D-01
        xs( 67) = 0.1925170534767814D-01
        xs( 68) = 0.2142539395578454D-01
        xs( 69) = 0.2415384451677331D-01
        xs( 70) = 0.2772527447886780D-01
        xs( 71) = 0.3268861606536282D-01
        xs( 72) = 0.4013492230401545D-01
        xs( 73) = 0.5207978982269941D-01
        xs( 74) = 0.7205508720437977D-01
        xs( 75) = 0.1017573397499511D+00
        ws(  1) = 0.2688238335190248D-05
        ws(  2) = 0.6249931963279631D-05
        ws(  3) = 0.9810548667652836D-05
        ws(  4) = 0.1336168024262583D-04
        ws(  5) = 0.1689568503427429D-04
        ws(  6) = 0.2041866010675200D-04
        ws(  7) = 0.2393194577288377D-04
        ws(  8) = 0.2744223599989812D-04
        ws(  9) = 0.3095271814048621D-04
        ws( 10) = 0.3446468755350045D-04
        ws( 11) = 0.3799127171281746D-04
        ws( 12) = 0.4154196872787300D-04
        ws( 13) = 0.4511342879923694D-04
        ws( 14) = 0.4872515552700250D-04
        ws( 15) = 0.5238454810137315D-04
        ws( 16) = 0.5609437090908618D-04
        ws( 17) = 0.5986944560482065D-04
        ws( 18) = 0.6371763928384521D-04
        ws( 19) = 0.6764908160675394D-04
        ws( 20) = 0.7168005006431302D-04
        ws( 21) = 0.7581907902354475D-04
        ws( 22) = 0.8007568094896502D-04
        ws( 23) = 0.8446421049638326D-04
        ws( 24) = 0.8899276011998793D-04
        ws( 25) = 0.9368733855729250D-04
        ws( 26) = 0.9856531414867204D-04
        ws( 27) = 0.1036256598066509D-03
        ws( 28) = 0.1088970264565310D-03
        ws( 29) = 0.1144036515982823D-03
        ws( 30) = 0.1201492799929771D-03
        ws( 31) = 0.1261839844864886D-03
        ws( 32) = 0.1325237006859341D-03
        ws( 33) = 0.1391609355533875D-03
        ws( 34) = 0.1461688500483134D-03
        ws( 35) = 0.1535695591535530D-03
        ws( 36) = 0.1614082900621885D-03
        ws( 37) = 0.1696982292303639D-03
        ws( 38) = 0.1784976309927523D-03
        ws( 39) = 0.1878616199831230D-03
        ws( 40) = 0.1978430745010801D-03
        ws( 41) = 0.2085330997699901D-03
        ws( 42) = 0.2199417856406733D-03
        ws( 43) = 0.2321948393071292D-03
        ws( 44) = 0.2453605053572819D-03
        ws( 45) = 0.2596200884308857D-03
        ws( 46) = 0.2749377109065994D-03
        ws( 47) = 0.2915600452028909D-03
        ws( 48) = 0.3095568715379072D-03
        ws( 49) = 0.3292449430613273D-03
        ws( 50) = 0.3507368236014969D-03
        ws( 51) = 0.3744261712876102D-03
        ws( 52) = 0.4005339274643565D-03
        ws( 53) = 0.4291644607385600D-03
        ws( 54) = 0.4609764630975223D-03
        ws( 55) = 0.4967047292785925D-03
        ws( 56) = 0.5362920838186005D-03
        ws( 57) = 0.5810187774400500D-03
        ws( 58) = 0.6324932513327193D-03
        ws( 59) = 0.6913544899391752D-03
        ws( 60) = 0.7590861117321472D-03
        ws( 61) = 0.8370099871156128D-03
        ws( 62) = 0.9252882806868142D-03
        ws( 63) = 0.1032340754277440D-02
        ws( 64) = 0.1170894493427930D-02
        ws( 65) = 0.1352664386226464D-02
        ws( 66) = 0.1610882018177581D-02
        ws( 67) = 0.1957780090994256D-02
        ws( 68) = 0.2414499177460481D-02
        ws( 69) = 0.3089584339997174D-02
        ws( 70) = 0.4138716440697807D-02
        ws( 71) = 0.5965512291590545D-02
        ws( 72) = 0.9248649349169446D-02
        ws( 73) = 0.1523766649619788D-01
        ws( 74) = 0.2529729600029133D-01
        ws( 75) = 0.3158663650716298D-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 =  11
        err = 0.9338552533488183D-04
        xs(  1) = 0.8917928075595277D-03
        xs(  2) = 0.4343678042330600D-02
        xs(  3) = 0.9692378591435045D-02
        xs(  4) = 0.1634017616147140D-01
        xs(  5) = 0.2390983383724473D-01
        xs(  6) = 0.3216316196190969D-01
        xs(  7) = 0.4094816742246664D-01
        xs(  8) = 0.5016944242611140D-01
        xs(  9) = 0.5977115878506337D-01
        xs( 10) = 0.6972727071438894D-01
        xs( 11) = 0.8008048807217998D-01
        ws(  1) = 0.2237730764907310D-02
        ws(  2) = 0.4523448164864540D-02
        ws(  3) = 0.6076539038052993D-02
        ws(  4) = 0.7157500042497378D-02
        ws(  5) = 0.7942779739003276D-02
        ws(  6) = 0.8539990368743504D-02
        ws(  7) = 0.9019225865866537D-02
        ws(  8) = 0.9432239648339545D-02
        ws(  9) = 0.9832440784071816D-02
        ws( 10) = 0.1034076073121568D-01
        ws( 11) = 0.1206231646257591D-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 =  11
        err = 0.9547312081989279D-04
        xs(  1) = 0.8876726327370606D-03
        xs(  2) = 0.4331171378507950D-02
        xs(  3) = 0.9672467931517584D-02
        xs(  4) = 0.1631383982284373D-01
        xs(  5) = 0.2387838714084418D-01
        xs(  6) = 0.3212794543204644D-01
        xs(  7) = 0.4091045141158224D-01
        xs(  8) = 0.5013042436183445D-01
        xs(  9) = 0.5973190641193346D-01
        xs( 10) = 0.6968877694505153D-01
        xs( 11) = 0.8004239772606719D-01
        ws(  1) = 0.2229154721114546D-02
        ws(  2) = 0.4515469626749292D-02
        ws(  3) = 0.6069652494522695D-02
        ws(  4) = 0.7151823753767256D-02
        ws(  5) = 0.7938563913356744D-02
        ws(  6) = 0.8537179534144191D-02
        ws(  7) = 0.9017896600852577D-02
        ws(  8) = 0.9432466836830546D-02
        ws(  9) = 0.9834784823476448D-02
        ws( 10) = 0.1034680384724862D-01
        ws( 11) = 0.1207755215111080D-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 =  12
        err = 0.6463118451637172D-04
        xs(  1) = 0.8146106746560779D-03
        xs(  2) = 0.4020939291670362D-02
        xs(  3) = 0.9062964994080904D-02
        xs(  4) = 0.1540499191199822D-01
        xs(  5) = 0.2270109205621380D-01
        xs(  6) = 0.3071847246675636D-01
        xs(  7) = 0.3929888698705858D-01
        xs(  8) = 0.4833544482635492D-01
        xs(  9) = 0.5775627119627483D-01
        xs( 10) = 0.6751255621553089D-01
        xs( 11) = 0.7757557281964737D-01
        xs( 12) = 0.8798339149279610D-01
        ws(  1) = 0.2054725088874618D-02
        ws(  2) = 0.4233539841506688D-02
        ws(  3) = 0.5762544236690063D-02
        ws(  4) = 0.6865716645380007D-02
        ws(  5) = 0.7688830110659913D-02
        ws(  6) = 0.8321352645427457D-02
        ws(  7) = 0.8825201242582259D-02
        ws(  8) = 0.9244597480672996D-02
        ws(  9) = 0.9613217404752662D-02
        ws( 10) = 0.9972834984135724D-02
        ws( 11) = 0.1044217733307049D-01
        ws( 12) = 0.1215279365455810D-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 =  12
        err = 0.5921189174176957D-04
        xs(  1) = 0.7766733966231405D-03
        xs(  2) = 0.3875347851553958D-02
        xs(  3) = 0.8805246518701612D-02
        xs(  4) = 0.1505270752231440D-01
        xs(  5) = 0.2227819634572253D-01
        xs(  6) = 0.3024409351723254D-01
        xs(  7) = 0.3878471196819199D-01
        xs(  8) = 0.4778858287421472D-01
        xs(  9) = 0.5718085963306903D-01
        xs( 10) = 0.6690953271543772D-01
        xs( 11) = 0.7695837234781086D-01
        xs( 12) = 0.8737188572305321D-01
        ws(  1) = 0.1966967316626281D-02
        ws(  2) = 0.4117796939815981D-02
        ws(  3) = 0.5656511808477127D-02
        ws(  4) = 0.6783774218171315D-02
        ws(  5) = 0.7629209880176547D-02
        ws(  6) = 0.8277533256734517D-02
        ws(  7) = 0.8790179478238376D-02
        ws(  8) = 0.9216739014940417D-02
        ws(  9) = 0.9588496878024721D-02
        ws( 10) = 0.9956209762242952D-02
        ws( 11) = 0.1045709473728697D-01
        ws( 12) = 0.1222377837843217D-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 =  12
        err = 0.6976177762083284D-04
        xs(  1) = 0.6725008579242998D-03
        xs(  2) = 0.3463343048628730D-02
        xs(  3) = 0.8117086308962976D-02
        xs(  4) = 0.1418756326820208D-01
        xs(  5) = 0.2130468588665831D-01
        xs(  6) = 0.2919818288207267D-01
        xs(  7) = 0.3768359680242202D-01
        xs(  8) = 0.4664090908461906D-01
        xs(  9) = 0.5599110635835011D-01
        xs( 10) = 0.6568890525473763D-01
        xs( 11) = 0.7572206036935653D-01
        xs( 12) = 0.8613006597750243D-01
        ws(  1) = 0.1719530664329320D-02
        ws(  2) = 0.3798878257714170D-02
        ws(  3) = 0.5431703287177334D-02
        ws(  4) = 0.6647457183921285D-02
        ws(  5) = 0.7542756832726782D-02
        ws(  6) = 0.8215042899270261D-02
        ws(  7) = 0.8739463381211477D-02
        ws(  8) = 0.9171087070437213D-02
        ws(  9) = 0.9547507024386908D-02
        ws( 10) = 0.9927053232558670D-02
        ws( 11) = 0.1042515547652473D-01
        ws( 12) = 0.1215739688073399D-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 =  13
        err = 0.6273726635503427D-04
        xs(  1) = 0.3870601583163866D-03
        xs(  2) = 0.2174940807741515D-02
        xs(  3) = 0.5742853562681382D-02
        xs(  4) = 0.1103350588712281D-01
        xs(  5) = 0.1762602925653517D-01
        xs(  6) = 0.2514705972048034D-01
        xs(  7) = 0.3335072240605392D-01
        xs(  8) = 0.4207996052588170D-01
        xs(  9) = 0.5123547483327135D-01
        xs( 10) = 0.6075084490630938D-01
        xs( 11) = 0.7059412742928824D-01
        xs( 12) = 0.8074387974740073D-01
        xs( 13) = 0.9120776266050415D-01
        ws(  1) = 0.1009981865066556D-02
        ws(  2) = 0.2635905613071967D-02
        ws(  3) = 0.4487488217669578D-02
        ws(  4) = 0.6015196066742750D-02
        ws(  5) = 0.7107685550255269D-02
        ws(  6) = 0.7894970761088357D-02
        ws(  7) = 0.8487578074766560D-02
        ws(  8) = 0.8957816714070177D-02
        ws(  9) = 0.9351380117969096D-02
        ws( 10) = 0.9701721322665833D-02
        ws( 11) = 0.1005957135898768D-01
        ws( 12) = 0.1049602844117106D-01
        ws( 13) = 0.1211041738910758D-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 =  13
        err = 0.9587388512728112D-04
        xs(  1) = 0.2631383081962165D-03
        xs(  2) = 0.1484324962864062D-02
        xs(  3) = 0.4108690974474153D-02
        xs(  4) = 0.8641321961293883D-02
        xs(  5) = 0.1493853347351396D-01
        xs(  6) = 0.2241753849646330D-01
        xs(  7) = 0.3066113367878677D-01
        xs(  8) = 0.3944976156894957D-01
        xs(  9) = 0.4866774606568332D-01
        xs( 10) = 0.5825002223909610D-01
        xs( 11) = 0.6817126911341211D-01
        xs( 12) = 0.7838300401311374D-01
        xs( 13) = 0.8878591667566292D-01
        ws(  1) = 0.6860355072188965D-03
        ws(  2) = 0.1825882602457489D-02
        ws(  3) = 0.3527108609086818D-02
        ws(  4) = 0.5505949874814201D-02
        ws(  5) = 0.6979178027153967D-02
        ws(  6) = 0.7911281940311769D-02
        ws(  7) = 0.8542674287224761D-02
        ws(  8) = 0.9020868446590566D-02
        ws(  9) = 0.9417860522433806D-02
        ws( 10) = 0.9782487662014318D-02
        ws( 11) = 0.1016057943872662D-01
        ws( 12) = 0.1057332112311654D-01
        ws( 13) = 0.1191781023795959D-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 =  15
        err = 0.8654115984729620D-04
        xs(  1) = 0.1075253660027662D-03
        xs(  2) = 0.5854786655025468D-03
        xs(  3) = 0.1535320902884900D-02
        xs(  4) = 0.3161653486645706D-02
        xs(  5) = 0.5874331578916338D-02
        xs(  6) = 0.1026895483845962D-01
        xs(  7) = 0.1654306511291860D-01
        xs(  8) = 0.2420792604904928D-01
        xs(  9) = 0.3273954879510690D-01
        xs( 10) = 0.4184239846658555D-01
        xs( 11) = 0.5136369455363638D-01
        xs( 12) = 0.6121893712604728D-01
        xs( 13) = 0.7137248081861128D-01
        xs( 14) = 0.8177301480302265D-01
        xs( 15) = 0.9213721242509949D-01
        ws(  1) = 0.2779949309139471D-03
        ws(  2) = 0.6917724970137992D-03
        ws(  3) = 0.1240579402452920D-02
        ws(  4) = 0.2078694972916112D-02
        ws(  5) = 0.3457554656420366D-02
        ws(  6) = 0.5373998004903896D-02
        ws(  7) = 0.7074910486953121D-02
        ws(  8) = 0.8165090744290010D-02
        ws(  9) = 0.8851653850561343D-02
        ws( 10) = 0.9331970136298880D-02
        ws( 11) = 0.9706478714753839D-02
        ws( 12) = 0.1002969841290964D-01
        ws( 13) = 0.1037996581523704D-01
        ws( 14) = 0.1071211592534235D-01
        ws( 15) = 0.1126227911212247D-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 =  19
        err = 0.5465379125308359D-04
        xs(  1) = 0.3881570635505886D-04
        xs(  2) = 0.2065559905482544D-03
        xs(  3) = 0.5175061797565132D-03
        xs(  4) = 0.9909942399137766D-03
        xs(  5) = 0.1662046065327002D-02
        xs(  6) = 0.2590738002765308D-02
        xs(  7) = 0.3879004125663470D-02
        xs(  8) = 0.5708212364904384D-02
        xs(  9) = 0.8418011143479657D-02
        xs( 10) = 0.1258848980284542D-01
        xs( 11) = 0.1881527835876109D-01
        xs( 12) = 0.2693157688214444D-01
        xs( 13) = 0.3617977994894834D-01
        xs( 14) = 0.4601431081626681D-01
        xs( 15) = 0.5618846596818324D-01
        xs( 16) = 0.6660268384621193D-01
        xs( 17) = 0.7719608554578140D-01
        xs( 18) = 0.8794167982424798D-01
        xs( 19) = 0.9838858259236592D-01
        ws(  1) = 0.9983353344706143D-04
        ws(  2) = 0.2371368959942995D-03
        ws(  3) = 0.3879110960524927D-03
        ws(  4) = 0.5647607985974378D-03
        ws(  5) = 0.7870798539926126D-03
        ws(  6) = 0.1086794882605058D-02
        ws(  7) = 0.1518551218960540D-02
        ws(  8) = 0.2194800727298571D-02
        ws(  9) = 0.3322573169349604D-02
        ws( 10) = 0.5137412707244295D-02
        ws( 11) = 0.7283491929752304D-02
        ws( 12) = 0.8804991087248125D-02
        ws( 13) = 0.9601586991817243D-02
        ws( 14) = 0.1003197469631184D-01
        ws( 15) = 0.1031823047468484D-01
        ws( 16) = 0.1055163043982408D-01
        ws( 17) = 0.1082309174655660D-01
        ws( 18) = 0.1094473042384813D-01
        ws( 19) = 0.1024325463349535D-01
        endif
        if( idomain .eq.   56 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  22
        err = 0.6392697926272463D-04
        xs(  1) = 0.2015115438482828D-04
        xs(  2) = 0.1066263831918783D-03
        xs(  3) = 0.2642697968375416D-03
        xs(  4) = 0.4972830608276739D-03
        xs(  5) = 0.8129086908721773D-03
        xs(  6) = 0.1222560075594517D-02
        xs(  7) = 0.1743420343410348D-02
        xs(  8) = 0.2400884408214034D-02
        xs(  9) = 0.3233293618130383D-02
        xs( 10) = 0.4299622100144448D-02
        xs( 11) = 0.5692267179688291D-02
        xs( 12) = 0.7565667509035158D-02
        xs( 13) = 0.1021341191555706D-01
        xs( 14) = 0.1419798879703821D-01
        xs( 15) = 0.2042405556322210D-01
        xs( 16) = 0.2947012874084296D-01
        xs( 17) = 0.4050219908056907D-01
        xs( 18) = 0.5231901724979654D-01
        xs( 19) = 0.6433463132992760D-01
        xs( 20) = 0.7635129863119665D-01
        xs( 21) = 0.8828775300006257D-01
        xs( 22) = 0.9955243372225998D-01
        ws(  1) = 0.5175643874365566D-04
        ws(  2) = 0.1215561279688090D-03
        ws(  3) = 0.1944088081716085D-03
        ws(  4) = 0.2728118429783310D-03
        ws(  5) = 0.3603194496722464D-03
        ws(  6) = 0.4618133703545044D-03
        ws(  7) = 0.5840587754459482D-03
        ws(  8) = 0.7371233151724968D-03
        ws(  9) = 0.9373366902238201D-03
        ws( 10) = 0.1210321749532079D-02
        ws( 11) = 0.1599496734162594D-02
        ws( 12) = 0.2193841207621222D-02
        ws( 13) = 0.3192913428704689D-02
        ws( 14) = 0.4934769820945588D-02
        ws( 15) = 0.7647752202279310D-02
        ws( 16) = 0.1027313967899056D-01
        ws( 17) = 0.1157522014891088D-01
        ws( 18) = 0.1196888251250866D-01
        ws( 19) = 0.1205818930911228D-01
        ws( 20) = 0.1208485053314694D-01
        ws( 21) = 0.1210571174767478D-01
        ws( 22) = 0.1022758170935123D-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 =  26
        err = 0.4641131887091803D-04
        xs(  1) = 0.1235118455931440D-04
        xs(  2) = 0.6520033924731833D-04
        xs(  3) = 0.1608504118370700D-03
        xs(  4) = 0.3005169372799107D-03
        xs(  5) = 0.4863218150068812D-03
        xs(  6) = 0.7215718288868227D-03
        xs(  7) = 0.1011101409367875D-02
        xs(  8) = 0.1361657336299619D-02
        xs(  9) = 0.1782428865707330D-02
        xs( 10) = 0.2285993059564395D-02
        xs( 11) = 0.2889516277827130D-02
        xs( 12) = 0.3616762934329974D-02
        xs( 13) = 0.4500962436382594D-02
        xs( 14) = 0.5590801315821959D-02
        xs( 15) = 0.6958627093656071D-02
        xs( 16) = 0.8717570347181519D-02
        xs( 17) = 0.1107909726125686D-01
        xs( 18) = 0.1444583636619332D-01
        xs( 19) = 0.1955813388218666D-01
        xs( 20) = 0.2752603753476201D-01
        xs( 21) = 0.3876747983155883D-01
        xs( 22) = 0.5196191555385551D-01
        xs( 23) = 0.6570268305150100D-01
        xs( 24) = 0.7938325260550631D-01
        xs( 25) = 0.9276249698764184D-01
        xs( 26) = 0.1053628104517976D+00
        ws(  1) = 0.3170941404389044D-04
        ws(  2) = 0.7410392080378267D-04
        ws(  3) = 0.1173914898121148D-03
        ws(  4) = 0.1622927889506567D-03
        ws(  5) = 0.2098635572431934D-03
        ws(  6) = 0.2614376593051681D-03
        ws(  7) = 0.3187368623053379D-03
        ws(  8) = 0.3838864361689284D-03
        ws(  9) = 0.4597367038391708D-03
        ws( 10) = 0.5502166534954118D-03
        ws( 11) = 0.6607529840105666D-03
        ws( 12) = 0.7991722169377294D-03
        ws( 13) = 0.9771897122134933D-03
        ws( 14) = 0.1214354799704242D-02
        ws( 15) = 0.1539208571683048D-02
        ws( 16) = 0.2012250731864071D-02
        ws( 17) = 0.2775773485862055D-02
        ws( 18) = 0.4077597987057737D-02
        ws( 19) = 0.6347893121790865D-02
        ws( 20) = 0.9694980762680765D-02
        ws( 21) = 0.1251746543026046D-01
        ws( 22) = 0.1362778578712315D-01
        ws( 23) = 0.1376373086601492D-01
        ws( 24) = 0.1356838469136768D-01
        ws( 25) = 0.1307910685415150D-01
        ws( 26) = 0.1013219579741062D-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 =  29
        err = 0.8879532505623274D-04
        xs(  1) = 0.8562045823488867D-05
        xs(  2) = 0.4514732298632540D-04
        xs(  3) = 0.1111392378924795D-03
        xs(  4) = 0.2069490428130799D-03
        xs(  5) = 0.3333466186010470D-03
        xs(  6) = 0.4915776738163495D-03
        xs(  7) = 0.6834792589723660D-03
        xs(  8) = 0.9116416707497768D-03
        xs(  9) = 0.1179507688984392D-02
        xs( 10) = 0.1491568352858569D-02
        xs( 11) = 0.1853675791630472D-02
        xs( 12) = 0.2273343428259188D-02
        xs( 13) = 0.2760531041658383D-02
        xs( 14) = 0.3328014999458863D-02
        xs( 15) = 0.3992607126400095D-02
        xs( 16) = 0.4777481042495842D-02
        xs( 17) = 0.5714762080487920D-02
        xs( 18) = 0.6849248903928060D-02
        xs( 19) = 0.8248877568207478D-02
        xs( 20) = 0.1002643547390844D-01
        xs( 21) = 0.1238845041361145D-01
        xs( 22) = 0.1572223018039218D-01
        xs( 23) = 0.2077431790689073D-01
        xs( 24) = 0.2884596796666924D-01
        xs( 25) = 0.4099131723410099D-01
        xs( 26) = 0.5602299891133185D-01
        xs( 27) = 0.7186603374121679D-01
        xs( 28) = 0.8746061671845178D-01
        xs( 29) = 0.1019560956655807D+00
        ws(  1) = 0.2197759827312409D-04
        ws(  2) = 0.5124038562439747D-04
        ws(  3) = 0.8080726614700292D-04
        ws(  4) = 0.1109373176349526D-03
        ws(  5) = 0.1420618658848500D-03
        ws(  6) = 0.1747044515931391D-03
        ws(  7) = 0.2095347949955019D-03
        ws(  8) = 0.2473644406022198D-03
        ws(  9) = 0.2891097954091531D-03
        ws( 10) = 0.3359863818062866D-03
        ws( 11) = 0.3894649775645154D-03
        ws( 12) = 0.4515379816443176D-03
        ws( 13) = 0.5249557696116183D-03
        ws( 14) = 0.6127667594816304D-03
        ws( 15) = 0.7202498547877941D-03
        ws( 16) = 0.8548217081087240D-03
        ws( 17) = 0.1027020552764429D-02
        ws( 18) = 0.1253009051347597D-02
        ws( 19) = 0.1564124254318559D-02
        ws( 20) = 0.2024221302742692D-02
        ws( 21) = 0.2761483336986688D-02
        ws( 22) = 0.4025121575443996D-02
        ws( 23) = 0.6303398373878813D-02
        ws( 24) = 0.1007193029223309D-01
        ws( 25) = 0.1397944050425913D-01
        ws( 26) = 0.1570229474216011D-01
        ws( 27) = 0.1583848326698462D-01
        ws( 28) = 0.1540816132383460D-01
        ws( 29) = 0.1228707426690632D-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 =  33
        err = 0.8223973382251627D-04
        xs(  1) = 0.6183289014765605D-05
        xs(  2) = 0.3259307728523983D-04
        xs(  3) = 0.8016990334578833D-04
        xs(  4) = 0.1490800972492533D-03
        xs(  5) = 0.2396423953974398D-03
        xs(  6) = 0.3523839109727372D-03
        xs(  7) = 0.4880952465567239D-03
        xs(  8) = 0.6478847278535181D-03
        xs(  9) = 0.8332484267977926D-03
        xs( 10) = 0.1046097372733275D-02
        xs( 11) = 0.1288855718850292D-02
        xs( 12) = 0.1564586534367413D-02
        xs( 13) = 0.1877077279953382D-02
        xs( 14) = 0.2231086064328613D-02
        xs( 15) = 0.2632488565701204D-02
        xs( 16) = 0.3088542250078533D-02
        xs( 17) = 0.3608713157021585D-02
        xs( 18) = 0.4204878878496520D-02
        xs( 19) = 0.4892244960770557D-02
        xs( 20) = 0.5692060330620809D-02
        xs( 21) = 0.6632709522278440D-02
        xs( 22) = 0.7753771225438792D-02
        xs( 23) = 0.9110520410165256D-02
        xs( 24) = 0.1079322862280073D-01
        xs( 25) = 0.1297074028950670D-01
        xs( 26) = 0.1592894092328961D-01
        xs( 27) = 0.2020888433730754D-01
        xs( 28) = 0.2693213078146041D-01
        xs( 29) = 0.3773055091838573D-01
        xs( 30) = 0.5290957011492287D-01
        xs( 31) = 0.7016079825600241D-01
        xs( 32) = 0.8743471302642274D-01
        xs( 33) = 0.1035548540506602D+00
        ws(  1) = 0.1586980921651420D-04
        ws(  2) = 0.3697370954728883D-04
        ws(  3) = 0.5820571525402543D-04
        ws(  4) = 0.7966809146150988D-04
        ws(  5) = 0.1015436451090400D-03
        ws(  6) = 0.1240707319119787D-03
        ws(  7) = 0.1475321313161066D-03
        ws(  8) = 0.1722961015387068D-03
        ws(  9) = 0.1987511822885174D-03
        ws( 10) = 0.2273491045867202D-03
        ws( 11) = 0.2586787147644959D-03
        ws( 12) = 0.2934065883464753D-03
        ws( 13) = 0.3323652584286384D-03
        ws( 14) = 0.3766294732869573D-03
        ws( 15) = 0.4273607363146909D-03
        ws( 16) = 0.4863255724807331D-03
        ws( 17) = 0.5559994593572287D-03
        ws( 18) = 0.6387864476823793D-03
        ws( 19) = 0.7395119989237093D-03
        ws( 20) = 0.8647204734891593D-03
        ws( 21) = 0.1023186087624715D-02
        ws( 22) = 0.1227844613767156D-02
        ws( 23) = 0.1499817843229629D-02
        ws( 24) = 0.1893431388675399D-02
        ws( 25) = 0.2507309716614888D-02
        ws( 26) = 0.3492820635784155D-02
        ws( 27) = 0.5251661982572851D-02
        ws( 28) = 0.8494484395685481D-02
        ws( 29) = 0.1320903680504949D-01
        ws( 30) = 0.1667417436891960D-01
        ws( 31) = 0.1749101080500458D-01
        ws( 32) = 0.1674498680064783D-01
        ws( 33) = 0.1245898430878516D-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 =  37
        err = 0.8008296615894396D-04
        xs(  1) = 0.4703065736996410D-05
        xs(  2) = 0.2478224145261408D-04
        xs(  3) = 0.6092360894507970D-04
        xs(  4) = 0.1131892664643546D-03
        xs(  5) = 0.1817117653489631D-03
        xs(  6) = 0.2667290207540308D-03
        xs(  7) = 0.3686134265239137D-03
        xs(  8) = 0.4878987688665773D-03
        xs(  9) = 0.6253190385891631D-03
        xs( 10) = 0.7818128110437172D-03
        xs( 11) = 0.9585482459489534D-03
        xs( 12) = 0.1156997459787867D-02
        xs( 13) = 0.1378949612724959D-02
        xs( 14) = 0.1626570821893522D-02
        xs( 15) = 0.1902516409059683D-02
        xs( 16) = 0.2209944696915105D-02
        xs( 17) = 0.2552695065374297D-02
        xs( 18) = 0.2935420445198462D-02
        xs( 19) = 0.3363877871068600D-02
        xs( 20) = 0.3845056349859256D-02
        xs( 21) = 0.4387758001900805D-02
        xs( 22) = 0.5003296046179134D-02
        xs( 23) = 0.5705977102300637D-02
        xs( 24) = 0.6514980322315790D-02
        xs( 25) = 0.7455598158054580D-02
        xs( 26) = 0.8562311932085521D-02
        xs( 27) = 0.9881753567058664D-02
        xs( 28) = 0.1148722401271704D-01
        xs( 29) = 0.1352561674729938D-01
        xs( 30) = 0.1624046503281565D-01
        xs( 31) = 0.2005133090547862D-01
        xs( 32) = 0.2579945421826417D-01
        xs( 33) = 0.3500780278851514D-01
        xs( 34) = 0.4919943100612101D-01
        xs( 35) = 0.6729546557414560D-01
        xs( 36) = 0.8642012312499804D-01
        xs( 37) = 0.1045076511276928D+00
        ws(  1) = 0.1206980804444201D-04
        ws(  2) = 0.2810193965292197D-04
        ws(  3) = 0.4418979413112125D-04
        ws(  4) = 0.6036398482914352D-04
        ws(  5) = 0.7672169833233174D-04
        ws(  6) = 0.9337588681478698D-04
        ws(  7) = 0.1104784456931819D-03
        ws(  8) = 0.1282129586379294D-03
        ws(  9) = 0.1467860687341048D-03
        ws( 10) = 0.1663959168733773D-03
        ws( 11) = 0.1873164429619975D-03
        ws( 12) = 0.2098768071567678D-03
        ws( 13) = 0.2343850166561845D-03
        ws( 14) = 0.2613014599200196D-03
        ws( 15) = 0.2911123087005501D-03
        ws( 16) = 0.3243762030006934D-03
        ws( 17) = 0.3618881507711479D-03
        ws( 18) = 0.4045158325177206D-03
        ws( 19) = 0.4535520558889450D-03
        ws( 20) = 0.5102372654727555D-03
        ws( 21) = 0.5770740929937995D-03
        ws( 22) = 0.6563270448934690D-03
        ws( 23) = 0.7522487899841235D-03
        ws( 24) = 0.8699062434972458D-03
        ws( 25) = 0.1017007850377429D-02
        ws( 26) = 0.1204167803913225D-02
        ws( 27) = 0.1445758697092708D-02
        ws( 28) = 0.1789553455710352D-02
        ws( 29) = 0.2326986794428748D-02
        ws( 30) = 0.3168186690200647D-02
        ws( 31) = 0.4587400416754567D-02
        ws( 32) = 0.7168593093650974D-02
        ws( 33) = 0.1156180048536675D-01
        ws( 34) = 0.1662386259279669D-01
        ws( 35) = 0.1901106377535082D-01
        ws( 36) = 0.1888032586820142D-01
        ws( 37) = 0.1502369553317959D-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 =  41
        err = 0.6236984289169947D-04
        xs(  1) = 0.3709530124685568D-05
        xs(  2) = 0.1954554322850273D-04
        xs(  3) = 0.4803357158106579D-04
        xs(  4) = 0.8919029247747792D-04
        xs(  5) = 0.1430625423234772D-03
        xs(  6) = 0.2097570803406564D-03
        xs(  7) = 0.2894565152657702D-03
        xs(  8) = 0.3824302942158366D-03
        xs(  9) = 0.4890564543487945D-03
        xs( 10) = 0.6098420914943295D-03
        xs( 11) = 0.7454100456918794D-03
        xs( 12) = 0.8965337281274977D-03
        xs( 13) = 0.1064169706460480D-02
        xs( 14) = 0.1249436245323186D-02
        xs( 15) = 0.1453678761782203D-02
        xs( 16) = 0.1678528178293849D-02
        xs( 17) = 0.1925866566570316D-02
        xs( 18) = 0.2197913019401782D-02
        xs( 19) = 0.2497303261485417D-02
        xs( 20) = 0.2827233590324308D-02
        xs( 21) = 0.3191497041117474D-02
        xs( 22) = 0.3594430916911733D-02
        xs( 23) = 0.4041609495715410D-02
        xs( 24) = 0.4539827233193318D-02
        xs( 25) = 0.5097201913223131D-02
        xs( 26) = 0.5724191551016829D-02
        xs( 27) = 0.6433981743294730D-02
        xs( 28) = 0.7243437854740873D-02
        xs( 29) = 0.8174812849016349D-02
        xs( 30) = 0.9258196832483910D-02
        xs( 31) = 0.1053383159569391D-01
        xs( 32) = 0.1206431650326142D-01
        xs( 33) = 0.1397961831115628D-01
        xs( 34) = 0.1648850819999779D-01
        xs( 35) = 0.1991632316518009D-01
        xs( 36) = 0.2490451021559612D-01
        xs( 37) = 0.3274204757376311D-01
        xs( 38) = 0.4536543116067566D-01
        xs( 39) = 0.6335177707714816D-01
        xs( 40) = 0.8384675174280488D-01
        xs( 41) = 0.1037540522284315D+00
        ws(  1) = 0.9520667095147626D-05
        ws(  2) = 0.2215927051356485D-04
        ws(  3) = 0.3481868795539168D-04
        ws(  4) = 0.4750015843455460D-04
        ws(  5) = 0.6026217257952781D-04
        ws(  6) = 0.7316144601122791D-04
        ws(  7) = 0.8628012153156191D-04
        ws(  8) = 0.9972821836335210D-04
        ws(  9) = 0.1136138593947664D-03
        ws( 10) = 0.1280592091364337D-03
        ws( 11) = 0.1432025633648483D-03
        ws( 12) = 0.1592087688380871D-03
        ws( 13) = 0.1762491568240431D-03
        ws( 14) = 0.1945049092326481D-03
        ws( 15) = 0.2142526059792860D-03
        ws( 16) = 0.2357600414922682D-03
        ws( 17) = 0.2592876677575355D-03
        ws( 18) = 0.2852420868847775D-03
        ws( 19) = 0.3140707990507497D-03
        ws( 20) = 0.3464317284105073D-03
        ws( 21) = 0.3827941314726469D-03
        ws( 22) = 0.4240079248998513D-03
        ws( 23) = 0.4714831755070152D-03
        ws( 24) = 0.5262853292076594D-03
        ws( 25) = 0.5902046424738969D-03
        ws( 26) = 0.6659628973015793D-03
        ws( 27) = 0.7563875173576392D-03
        ws( 28) = 0.8661947635917039D-03
        ws( 29) = 0.1001495981266132D-02
        ws( 30) = 0.1171979537633434D-02
        ws( 31) = 0.1388549868866538D-02
        ws( 32) = 0.1694220281935282D-02
        ws( 33) = 0.2170819512337858D-02
        ws( 34) = 0.2897904772956769D-02
        ws( 35) = 0.4058444467678409D-02
        ws( 36) = 0.6129209009496794D-02
        ws( 37) = 0.9894115852735428D-02
        ws( 38) = 0.1553256357659244D-01
        ws( 39) = 0.1985785727320075D-01
        ws( 40) = 0.2061648829583605D-01
        ws( 41) = 0.1662116482439281D-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 =  45
        err = 0.6467202349960001D-04
        xs(  1) = 0.2997666766598307D-05
        xs(  2) = 0.1579592223195292D-04
        xs(  3) = 0.3881305346189148D-04
        xs(  4) = 0.7205255920285216D-04
        xs(  5) = 0.1155327362929416D-03
        xs(  6) = 0.1692991823559814D-03
        xs(  7) = 0.2334478063827046D-03
        xs(  8) = 0.3081180298903249D-03
        xs(  9) = 0.3935211521530824D-03
        xs( 10) = 0.4899400029431382D-03
        xs( 11) = 0.5977340161605810D-03
        xs( 12) = 0.7173440488660331D-03
        xs( 13) = 0.8493113287559202D-03
        xs( 14) = 0.9942821690730197D-03
        xs( 15) = 0.1153011658692320D-02
        xs( 16) = 0.1326402023976333D-02
        xs( 17) = 0.1515505979716004D-02
        xs( 18) = 0.1721532769781729D-02
        xs( 19) = 0.1945890572576348D-02
        xs( 20) = 0.2190216695945323D-02
        xs( 21) = 0.2456448550946914D-02
        xs( 22) = 0.2746816387144329D-02
        xs( 23) = 0.3063920507158505D-02
        xs( 24) = 0.3410820849421531D-02
        xs( 25) = 0.3791208688621653D-02
        xs( 26) = 0.4209398189120250D-02
        xs( 27) = 0.4670610520377037D-02
        xs( 28) = 0.5181326067855782D-02
        xs( 29) = 0.5749149101135585D-02
        xs( 30) = 0.6383707936326249D-02
        xs( 31) = 0.7097024323431190D-02
        xs( 32) = 0.7905248191808704D-02
        xs( 33) = 0.8828614166887480D-02
        xs( 34) = 0.9892097758380940D-02
        xs( 35) = 0.1113510525376406D-01
        xs( 36) = 0.1261728015232854D-01
        xs( 37) = 0.1444343640986080D-01
        xs( 38) = 0.1678524149751111D-01
        xs( 39) = 0.1991167245002067D-01
        xs( 40) = 0.2433286258223930D-01
        xs( 41) = 0.3108958241536091D-01
        xs( 42) = 0.4206906196968039D-01
        xs( 43) = 0.5917941159770823D-01
        xs( 44) = 0.8079538457651624D-01
        xs( 45) = 0.1028216158671156D+00
        ws(  1) = 0.7694684321879056D-05
        ws(  2) = 0.1790595493416803D-04
        ws(  3) = 0.2813116005165631D-04
        ws(  4) = 0.3835155271768283D-04
        ws(  5) = 0.4861223180251340D-04
        ws(  6) = 0.5893795659691673D-04
        ws(  7) = 0.6937923162070192D-04
        ws(  8) = 0.7999880107744041D-04
        ws(  9) = 0.9085622758294428D-04
        ws( 10) = 0.1020402406789491D-03
        ws( 11) = 0.1136207416107162D-03
        ws( 12) = 0.1256894014035437D-03
        ws( 13) = 0.1383518038036342D-03
        ws( 14) = 0.1517148442965890D-03
        ws( 15) = 0.1658961398125572D-03
        ws( 16) = 0.1810571357271606D-03
        ws( 17) = 0.1973482914278148D-03
        ws( 18) = 0.2149393576701211D-03
        ws( 19) = 0.2340443422649516D-03
        ws( 20) = 0.2549298196969151D-03
        ws( 21) = 0.2779039616643440D-03
        ws( 22) = 0.3032650696802978D-03
        ws( 23) = 0.3314504641480560D-03
        ws( 24) = 0.3629638555641946D-03
        ws( 25) = 0.3985338400715167D-03
        ws( 26) = 0.4387032153272886D-03
        ws( 27) = 0.4848288460773495D-03
        ws( 28) = 0.5378295625296941D-03
        ws( 29) = 0.5994396659432435D-03
        ws( 30) = 0.6716410240683912D-03
        ws( 31) = 0.7576712828289449D-03
        ws( 32) = 0.8622542868874502D-03
        ws( 33) = 0.9883269463993401D-03
        ws( 34) = 0.1145313938032682D-02
        ws( 35) = 0.1350148826906398D-02
        ws( 36) = 0.1631192087065089D-02
        ws( 37) = 0.2049663351293436D-02
        ws( 38) = 0.2676563179559837D-02
        ws( 39) = 0.3656130692634863D-02
        ws( 40) = 0.5352516896879520D-02
        ws( 41) = 0.8480415734668324D-02
        ws( 42) = 0.1388075536391766D-01
        ws( 43) = 0.2003295370897091D-01
        ws( 44) = 0.2237659375678350D-01
        ws( 45) = 0.1901021321240680D-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 =  49
        err = 0.7868554385171764D-04
        xs(  1) = 0.2486849329876006D-05
        xs(  2) = 0.1309273875050998D-04
        xs(  3) = 0.3216630623386545D-04
        xs(  4) = 0.5969828650551381D-04
        xs(  5) = 0.9568629838548762D-04
        xs(  6) = 0.1401494867824669D-03
        xs(  7) = 0.1931292096841450D-03
        xs(  8) = 0.2547009126126801D-03
        xs(  9) = 0.3249812218017884D-03
        xs( 10) = 0.4041308183156799D-03
        xs( 11) = 0.4923663402203966D-03
        xs( 12) = 0.5899505077357089D-03
        xs( 13) = 0.6972066629916600D-03
        xs( 14) = 0.8145299758622182D-03
        xs( 15) = 0.9423735727225743D-03
        xs( 16) = 0.1081274070399192D-02
        xs( 17) = 0.1231862947837629D-02
        xs( 18) = 0.1394860206417779D-02
        xs( 19) = 0.1571084090154972D-02
        xs( 20) = 0.1761487828540225D-02
        xs( 21) = 0.1967140272283840D-02
        xs( 22) = 0.2189312144029796D-02
        xs( 23) = 0.2429430612460331D-02
        xs( 24) = 0.2689124592075408D-02
        xs( 25) = 0.2970293627300729D-02
        xs( 26) = 0.3275118888839994D-02
        xs( 27) = 0.3606235465742553D-02
        xs( 28) = 0.3966533504278890D-02
        xs( 29) = 0.4359636334335429D-02
        xs( 30) = 0.4789666865864018D-02
        xs( 31) = 0.5261537142079655D-02
        xs( 32) = 0.5781203361338584D-02
        xs( 33) = 0.6356021094187791D-02
        xs( 34) = 0.6995277045977920D-02
        xs( 35) = 0.7709854853602428D-02
        xs( 36) = 0.8514516923573851D-02
        xs( 37) = 0.9428643453641274D-02
        xs( 38) = 0.1047378895300246D-01
        xs( 39) = 0.1168076774767121D-01
        xs( 40) = 0.1310276834424145D-01
        xs( 41) = 0.1484354345363849D-01
        xs( 42) = 0.1705490490390452D-01
        xs( 43) = 0.1995015828419496D-01
        xs( 44) = 0.2394006730134647D-01
        xs( 45) = 0.2987660499493094D-01
        xs( 46) = 0.3938976369250699D-01
        xs( 47) = 0.5489186429463602D-01
        xs( 48) = 0.7671388247213561D-01
        xs( 49) = 0.1003928214349900D+00
        ws(  1) = 0.6380654895878256D-05
        ws(  2) = 0.1483776907635420D-04
        ws(  3) = 0.2330539179907951D-04
        ws(  4) = 0.3176039508477256D-04
        ws(  5) = 0.4022059104914971D-04
        ws(  6) = 0.4871061162288088D-04
        ws(  7) = 0.5726229303076060D-04
        ws(  8) = 0.6590237577303573D-04
        ws(  9) = 0.7468140817133083D-04
        ws( 10) = 0.8365635897236349D-04
        ws( 11) = 0.9286132985037185D-04
        ws( 12) = 0.1023622322357636D-03
        ws( 13) = 0.1122162426554516D-03
        ws( 14) = 0.1225046950916372D-03
        ws( 15) = 0.1332777518870486D-03
        ws( 16) = 0.1446312305770028D-03
        ws( 17) = 0.1566651821208690D-03
        ws( 18) = 0.1694643537631185D-03
        ws( 19) = 0.1831479913799252D-03
        ws( 20) = 0.1978334388939511D-03
        ws( 21) = 0.2136837485234308D-03
        ws( 22) = 0.2308980889728950D-03
        ws( 23) = 0.2496084236340675D-03
        ws( 24) = 0.2701027188037479D-03
        ws( 25) = 0.2925882996932564D-03
        ws( 26) = 0.3175131881697972D-03
        ws( 27) = 0.3451820073776056D-03
        ws( 28) = 0.3760357043282123D-03
        ws( 29) = 0.4108401809569756D-03
        ws( 30) = 0.4500456493011473D-03
        ws( 31) = 0.4946772894892010D-03
        ws( 32) = 0.5458808011945503D-03
        ws( 33) = 0.6053096620668082D-03
        ws( 34) = 0.6749736466558855D-03
        ws( 35) = 0.7566062228691751D-03
        ws( 36) = 0.8560292723471378D-03
        ws( 37) = 0.9756487525595918D-03
        ws( 38) = 0.1119691563833011D-02
        ws( 39) = 0.1302320583250263D-02
        ws( 40) = 0.1559267991771533D-02
        ws( 41) = 0.1947819985583671D-02
        ws( 42) = 0.2507602859774227D-02
        ws( 43) = 0.3347903521513053D-02
        ws( 44) = 0.4767815612472047D-02
        ws( 45) = 0.7372308134560613D-02
        ws( 46) = 0.1208909793052074D-01
        ws( 47) = 0.1908870656247818D-01
        ws( 48) = 0.2364377634766790D-01
        ws( 49) = 0.2110873745221344D-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 =  53
        err = 0.9557967255904328D-04
        xs(  1) = 0.2102433414914674D-05
        xs(  2) = 0.1107024149242902D-04
        xs(  3) = 0.2719096156196178D-04
        xs(  4) = 0.5045268653538449D-04
        xs(  5) = 0.8083671330502171D-04
        xs(  6) = 0.1183439932777312D-03
        xs(  7) = 0.1629906939389616D-03
        xs(  8) = 0.2148097011369233D-03
        xs(  9) = 0.2738633484097256D-03
        xs( 10) = 0.3402478568069478D-03
        xs( 11) = 0.4140931248144933D-03
        xs( 12) = 0.4955657521315891D-03
        xs( 13) = 0.5848607170832811D-03
        xs( 14) = 0.6822306044709626D-03
        xs( 15) = 0.7879655368737885D-03
        xs( 16) = 0.9023994930962109D-03
        xs( 17) = 0.1025928510329207D-02
        xs( 18) = 0.1159012177756558D-02
        xs( 19) = 0.1302162661309739D-02
        xs( 20) = 0.1455963541805758D-02
        xs( 21) = 0.1621076897706785D-02
        xs( 22) = 0.1798252026065969D-02
        xs( 23) = 0.1988363303581044D-02
        xs( 24) = 0.2192370604988709D-02
        xs( 25) = 0.2411375601162127D-02
        xs( 26) = 0.2646605398904917D-02
        xs( 27) = 0.2899482441728590D-02
        xs( 28) = 0.3171703879100838D-02
        xs( 29) = 0.3465072413577153D-02
        xs( 30) = 0.3781782229362808D-02
        xs( 31) = 0.4124311014222187D-02
        xs( 32) = 0.4495600892964934D-02
        xs( 33) = 0.4898867071744628D-02
        xs( 34) = 0.5338086340349753D-02
        xs( 35) = 0.5818318387100452D-02
        xs( 36) = 0.6345328268663717D-02
        xs( 37) = 0.6925146728708808D-02
        xs( 38) = 0.7567104363398744D-02
        xs( 39) = 0.8282146883773154D-02
        xs( 40) = 0.9082878792862060D-02
        xs( 41) = 0.9986106006393042D-02
        xs( 42) = 0.1101057521521613D-01
        xs( 43) = 0.1218652709141516D-01
        xs( 44) = 0.1356824064051075D-01
        xs( 45) = 0.1525182603519540D-01
        xs( 46) = 0.1737112158802551D-01
        xs( 47) = 0.2011874592484049D-01
        xs( 48) = 0.2386616546241368D-01
        xs( 49) = 0.2937300575983076D-01
        xs( 50) = 0.3812279561995356D-01
        xs( 51) = 0.5273548998840262D-01
        xs( 52) = 0.7493731052292499D-01
        xs( 53) = 0.1004578707068726D+00
        ws(  1) = 0.5394820788540677D-05
        ws(  2) = 0.1254498197828004D-04
        ws(  3) = 0.1969432523882180D-04
        ws(  4) = 0.2682245213844750D-04
        ws(  5) = 0.3394952064959602D-04
        ws(  6) = 0.4107153249608140D-04
        ws(  7) = 0.4821997337865121D-04
        ws(  8) = 0.5542812918938785D-04
        ws(  9) = 0.6270149679531308D-04
        ws( 10) = 0.7009128288779017D-04
        ws( 11) = 0.7762645027420627D-04
        ws( 12) = 0.8534908305391737D-04
        ws( 13) = 0.9328741392173523D-04
        ws( 14) = 0.1015019713040011D-03
        ws( 15) = 0.1100252747454446D-03
        ws( 16) = 0.1189105569940498D-03
        ws( 17) = 0.1282244284065358D-03
        ws( 18) = 0.1380289174372179D-03
        ws( 19) = 0.1483699516977831D-03
        ws( 20) = 0.1593434127945194D-03
        ws( 21) = 0.1710079696909243D-03
        ws( 22) = 0.1834916153763223D-03
        ws( 23) = 0.1968917939121942D-03
        ws( 24) = 0.2113059766374470D-03
        ws( 25) = 0.2269100968515230D-03
        ws( 26) = 0.2437828893103374D-03
        ws( 27) = 0.2622627194341572D-03
        ws( 28) = 0.2824688803477871D-03
        ws( 29) = 0.3046475764911268D-03
        ws( 30) = 0.3291732248915070D-03
        ws( 31) = 0.3563932185009950D-03
        ws( 32) = 0.3866999788268391D-03
        ws( 33) = 0.4204985031972623D-03
        ws( 34) = 0.4587632479543633D-03
        ws( 35) = 0.5027010508878562D-03
        ws( 36) = 0.5522113170787765D-03
        ws( 37) = 0.6090347434483782D-03
        ws( 38) = 0.6767335810361959D-03
        ws( 39) = 0.7553213840087227D-03
        ws( 40) = 0.8491088009550354D-03
        ws( 41) = 0.9602338050580428D-03
        ws( 42) = 0.1093625395721205D-02
        ws( 43) = 0.1266758095398156D-02
        ws( 44) = 0.1513166844466117D-02
        ws( 45) = 0.1875959771057882D-02
        ws( 46) = 0.2392563275578762D-02
        ws( 47) = 0.3161589284753222D-02
        ws( 48) = 0.4454669401452404D-02
        ws( 49) = 0.6795965571746571D-02
        ws( 50) = 0.1114783348562445D-01
        ws( 51) = 0.1854943187587068D-01
        ws( 52) = 0.2497194684357674D-01
        ws( 53) = 0.2346123283428397D-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 =  58
        err = 0.5643095524850880D-04
        xs(  1) = 0.1770820395744005D-05
        xs(  2) = 0.9334845742241609D-05
        xs(  3) = 0.2293058396836661D-04
        xs(  4) = 0.4255201697004635D-04
        xs(  5) = 0.6818745910939869D-04
        xs(  6) = 0.9983286610528569D-04
        xs(  7) = 0.1374908491431805D-03
        xs(  8) = 0.1811820653505657D-03
        xs(  9) = 0.2309419085031594D-03
        xs( 10) = 0.2868281666985971D-03
        xs( 11) = 0.3489204426992580D-03
        xs( 12) = 0.4173208402926617D-03
        xs( 13) = 0.4921580076266796D-03
        xs( 14) = 0.5735900699025818D-03
        xs( 15) = 0.6618065668897573D-03
        xs( 16) = 0.7570229960379173D-03
        xs( 17) = 0.8594876149520250D-03
        xs( 18) = 0.9694971546187291D-03
        xs( 19) = 0.1087386272006190D-02
        xs( 20) = 0.1213524485271785D-02
        xs( 21) = 0.1348328639606473D-02
        xs( 22) = 0.1492269940158663D-02
        xs( 23) = 0.1645887101880522D-02
        xs( 24) = 0.1809781629198684D-02
        xs( 25) = 0.1984614315016609D-02
        xs( 26) = 0.2171130122521614D-02
        xs( 27) = 0.2370166034172614D-02
        xs( 28) = 0.2582687461209995D-02
        xs( 29) = 0.2809754925310398D-02
        xs( 30) = 0.3052555021273011D-02
        xs( 31) = 0.3312489963196738D-02
        xs( 32) = 0.3591114586224645D-02
        xs( 33) = 0.3890207044308488D-02
        xs( 34) = 0.4211759619289554D-02
        xs( 35) = 0.4558015970800990D-02
        xs( 36) = 0.4931775814590925D-02
        xs( 37) = 0.5336216549703709D-02
        xs( 38) = 0.5774775559128598D-02
        xs( 39) = 0.6252007128495756D-02
        xs( 40) = 0.6772863532714212D-02
        xs( 41) = 0.7343408684455087D-02
        xs( 42) = 0.7971203709233423D-02
        xs( 43) = 0.8665412488379881D-02
        xs( 44) = 0.9437743627094894D-02
        xs( 45) = 0.1030246260157718D-01
        xs( 46) = 0.1127705101742097D-01
        xs( 47) = 0.1238534930842163D-01
        xs( 48) = 0.1366258551213707D-01
        xs( 49) = 0.1516180925807691D-01
        xs( 50) = 0.1697741789730221D-01
        xs( 51) = 0.1924679227233198D-01
        xs( 52) = 0.2217754691366360D-01
        xs( 53) = 0.2614710852796294D-01
        xs( 54) = 0.3193325476753227D-01
        xs( 55) = 0.4101875961941693D-01
        xs( 56) = 0.5591545039043908D-01
        xs( 57) = 0.7842630400133122D-01
        xs( 58) = 0.1046309973275760D+00
        ws(  1) = 0.4547336670868984D-05
        ws(  2) = 0.1057695522035538D-04
        ws(  3) = 0.1661436017047736D-04
        ws(  4) = 0.2263092208419342D-04
        ws(  5) = 0.2863859658796735D-04
        ws(  6) = 0.3464987862185248D-04
        ws(  7) = 0.4067087512477431D-04
        ws(  8) = 0.4671706747342789D-04
        ws(  9) = 0.5281256232663972D-04
        ws( 10) = 0.5897302153643588D-04
        ws( 11) = 0.6522730940496900D-04
        ws( 12) = 0.7159542843125879D-04
        ws( 13) = 0.7810428910042124D-04
        ws( 14) = 0.8479163931720505D-04
        ws( 15) = 0.9167802333489929D-04
        ws( 16) = 0.9879443726345006D-04
        ws( 17) = 0.1061847611597076D-03
        ws( 18) = 0.1138908345666124D-03
        ws( 19) = 0.1219484639938408D-03
        ws( 20) = 0.1303973754935511D-03
        ws( 21) = 0.1392889596855589D-03
        ws( 22) = 0.1486839110454824D-03
        ws( 23) = 0.1586513302069805D-03
        ws( 24) = 0.1692476786410812D-03
        ws( 25) = 0.1805421843468724D-03
        ws( 26) = 0.1926265515585687D-03
        ws( 27) = 0.2056074756326034D-03
        ws( 28) = 0.2196130798516078D-03
        ws( 29) = 0.2347152071127526D-03
        ws( 30) = 0.2511193445739033D-03
        ws( 31) = 0.2690051125760455D-03
        ws( 32) = 0.2885434134662340D-03
        ws( 33) = 0.3099722549216975D-03
        ws( 34) = 0.3334966246194385D-03
        ws( 35) = 0.3594791000215238D-03
        ws( 36) = 0.3885809382329445D-03
        ws( 37) = 0.4208364133699917D-03
        ws( 38) = 0.4570735980361081D-03
        ws( 39) = 0.4981882550528600D-03
        ws( 40) = 0.5445311547407173D-03
        ws( 41) = 0.5978258056148103D-03
        ws( 42) = 0.6592690018675961D-03
        ws( 43) = 0.7311049373244721D-03
        ws( 44) = 0.8159284195527830D-03
        ws( 45) = 0.9164057696970430D-03
        ws( 46) = 0.1036565711803520D-02
        ws( 47) = 0.1186030158580233D-02
        ws( 48) = 0.1376533024741063D-02
        ws( 49) = 0.1637990183659522D-02
        ws( 50) = 0.2015533116272214D-02
        ws( 51) = 0.2556565507681047D-02
        ws( 52) = 0.3363782075403078D-02
        ws( 53) = 0.4700007931632137D-02
        ws( 54) = 0.7111656421349523D-02
        ws( 55) = 0.1148503326559945D-01
        ws( 56) = 0.1877062560054902D-01
        ws( 57) = 0.2546110811451824D-01
        ws( 58) = 0.2411797268708261D-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 =  62
        err = 0.6111408373685017D-04
        xs(  1) = 0.1533842289551550D-05
        xs(  2) = 0.8086880994974388D-05
        xs(  3) = 0.1986146831673513D-04
        xs(  4) = 0.3685675360766871D-04
        xs(  5) = 0.5905424327026151D-04
        xs(  6) = 0.8644663400836438D-04
        xs(  7) = 0.1190315819773611D-03
        xs(  8) = 0.1568133538216508D-03
        xs(  9) = 0.1998116990453973D-03
        xs( 10) = 0.2480598473954704D-03
        xs( 11) = 0.3016073756584800D-03
        xs( 12) = 0.3605201313979450D-03
        xs( 13) = 0.4248815389610558D-03
        xs( 14) = 0.4947957968846326D-03
        xs( 15) = 0.5703923148002909D-03
        xs( 16) = 0.6518179263386211D-03
        xs( 17) = 0.7392392256304970D-03
        xs( 18) = 0.8328540298496413D-03
        xs( 19) = 0.9328925065049364D-03
        xs( 20) = 0.1039608954857054D-02
        xs( 21) = 0.1153283040028313D-02
        xs( 22) = 0.1274231379997757D-02
        xs( 23) = 0.1402806651967967D-02
        xs( 24) = 0.1539416266254618D-02
        xs( 25) = 0.1684504402927733D-02
        xs( 26) = 0.1838551517837559D-02
        xs( 27) = 0.2002102150362635D-02
        xs( 28) = 0.2175758350674273D-02
        xs( 29) = 0.2360202582629846D-02
        xs( 30) = 0.2556197551802502D-02
        xs( 31) = 0.2764576749310816D-02
        xs( 32) = 0.2986292089519024D-02
        xs( 33) = 0.3222403123161384D-02
        xs( 34) = 0.3474106307697973D-02
        xs( 35) = 0.3742768046129213D-02
        xs( 36) = 0.4029839222294579D-02
        xs( 37) = 0.4337039109756197D-02
        xs( 38) = 0.4666492514337189D-02
        xs( 39) = 0.5020287116306719D-02
        xs( 40) = 0.5400978191799897D-02
        xs( 41) = 0.5811844926862825D-02
        xs( 42) = 0.6256170935637751D-02
        xs( 43) = 0.6738023613773778D-02
        xs( 44) = 0.7262454440700922D-02
        xs( 45) = 0.7835269264847698D-02
        xs( 46) = 0.8463401979566828D-02
        xs( 47) = 0.9155695574689366D-02
        xs( 48) = 0.9923025862647004D-02
        xs( 49) = 0.1077896812221628D-01
        xs( 50) = 0.1174004086966950D-01
        xs( 51) = 0.1282545325132508D-01
        xs( 52) = 0.1406553221208630D-01
        xs( 53) = 0.1551270487075272D-01
        xs( 54) = 0.1725736342781878D-01
        xs( 55) = 0.1941941449764848D-01
        xs( 56) = 0.2217376330506161D-01
        xs( 57) = 0.2584401103941106D-01
        xs( 58) = 0.3107368101806703D-01
        xs( 59) = 0.3910806060850126D-01
        xs( 60) = 0.5222160859107615D-01
        xs( 61) = 0.7344352804801002D-01
        xs( 62) = 0.1008487207055480D+00
        ws(  1) = 0.3936003090953119D-05
        ws(  2) = 0.9166610015126806D-05
        ws(  3) = 0.1438930823982050D-04
        ws(  4) = 0.1959653832583662D-04
        ws(  5) = 0.2479800352851276D-04
        ws(  6) = 0.2998787906676327D-04
        ws(  7) = 0.3518093058687237D-04
        ws(  8) = 0.4038491829112490D-04
        ws(  9) = 0.4561587324072539D-04
        ws( 10) = 0.5088884521975298D-04
        ws( 11) = 0.5621762035704208D-04
        ws( 12) = 0.6162256414875848D-04
        ws( 13) = 0.6711724972933861D-04
        ws( 14) = 0.7273202596450523D-04
        ws( 15) = 0.7848473559151853D-04
        ws( 16) = 0.8439387109646318D-04
        ws( 17) = 0.9048194078138289D-04
        ws( 18) = 0.9678591041039229D-04
        ws( 19) = 0.1033333541035341D-03
        ws( 20) = 0.1101457597644959D-03
        ws( 21) = 0.1172567470599732D-03
        ws( 22) = 0.1246981081007436D-03
        ws( 23) = 0.1325212812527217D-03
        ws( 24) = 0.1407724480327131D-03
        ws( 25) = 0.1494837643567402D-03
        ws( 26) = 0.1587035432193217D-03
        ws( 27) = 0.1684978464226624D-03
        ws( 28) = 0.1789283913218989D-03
        ws( 29) = 0.1900883662814354D-03
        ws( 30) = 0.2020367874444255D-03
        ws( 31) = 0.2148784990725538D-03
        ws( 32) = 0.2287279366337800D-03
        ws( 33) = 0.2436932743640639D-03
        ws( 34) = 0.2599401874095759D-03
        ws( 35) = 0.2776176195957858D-03
        ws( 36) = 0.2967986976592754D-03
        ws( 37) = 0.3179725796549826D-03
        ws( 38) = 0.3412662677748895D-03
        ws( 39) = 0.3667438824673644D-03
        ws( 40) = 0.3952121283193448D-03
        ws( 41) = 0.4270494888095464D-03
        ws( 42) = 0.4622836516653140D-03
        ws( 43) = 0.5022716018246366D-03
        ws( 44) = 0.5475601476954921D-03
        ws( 45) = 0.5991947601551359D-03
        ws( 46) = 0.6585612592159879D-03
        ws( 47) = 0.7278188791088052D-03
        ws( 48) = 0.8090730573964589D-03
        ws( 49) = 0.9056623953901406D-03
        ws( 50) = 0.1019402739677561D-02
        ws( 51) = 0.1156450586614802D-02
        ws( 52) = 0.1331928837767014D-02
        ws( 53) = 0.1577858361663291D-02
        ws( 54) = 0.1931053068655430D-02
        ws( 55) = 0.2420776596123798D-02
        ws( 56) = 0.3139050796443934D-02
        ws( 57) = 0.4303421819625925D-02
        ws( 58) = 0.6357097972520526D-02
        ws( 59) = 0.1008246939884812D-01
        ws( 60) = 0.1675046632859705D-01
        ws( 61) = 0.2539255094222753D-01
        ws( 62) = 0.2638139046984833D-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 =  66
        err = 0.8496275834430192D-04
        xs(  1) = 0.1345413519973359D-05
        xs(  2) = 0.7086040195909850D-05
        xs(  3) = 0.1740415497934709D-04
        xs(  4) = 0.3229254096253622D-04
        xs(  5) = 0.5173722640228470D-04
        xs(  6) = 0.7572862416612160D-04
        xs(  7) = 0.1042546119162364D-03
        xs(  8) = 0.1373154614211220D-03
        xs(  9) = 0.1749196727717057D-03
        xs( 10) = 0.2170827672780737D-03
        xs( 11) = 0.2638343497542313D-03
        xs( 12) = 0.3152186082866720D-03
        xs( 13) = 0.3712881058624088D-03
        xs( 14) = 0.4321125036161450D-03
        xs( 15) = 0.4977790426270822D-03
        xs( 16) = 0.5683936665709706D-03
        xs( 17) = 0.6440691036453851D-03
        xs( 18) = 0.7249388866517883D-03
        xs( 19) = 0.8111640687223763D-03
        xs( 20) = 0.9029262463422627D-03
        xs( 21) = 0.1000421568896514D-02
        xs( 22) = 0.1103870480810699D-02
        xs( 23) = 0.1213513533273616D-02
        xs( 24) = 0.1329621348874606D-02
        xs( 25) = 0.1452511992043608D-02
        xs( 26) = 0.1582522877828143D-02
        xs( 27) = 0.1720009099302957D-02
        xs( 28) = 0.1865385127271281D-02
        xs( 29) = 0.2019093886277437D-02
        xs( 30) = 0.2181647088649043D-02
        xs( 31) = 0.2353597122088949D-02
        xs( 32) = 0.2535519439531203D-02
        xs( 33) = 0.2728141802099893D-02
        xs( 34) = 0.2932202185226479D-02
        xs( 35) = 0.3148526892878734D-02
        xs( 36) = 0.3378086935603555D-02
        xs( 37) = 0.3621913251865057D-02
        xs( 38) = 0.3881110535482739D-02
        xs( 39) = 0.4157032284898884D-02
        xs( 40) = 0.4451230445826186D-02
        xs( 41) = 0.4765304048554907D-02
        xs( 42) = 0.5101128050089552D-02
        xs( 43) = 0.5461016238919034D-02
        xs( 44) = 0.5847465203598486D-02
        xs( 45) = 0.6263281780186140D-02
        xs( 46) = 0.6711756028022336D-02
        xs( 47) = 0.7196998055233782D-02
        xs( 48) = 0.7723271041200465D-02
        xs( 49) = 0.8296606382350111D-02
        xs( 50) = 0.8924036192375955D-02
        xs( 51) = 0.9613299368536166D-02
        xs( 52) = 0.1037478015564258D-01
        xs( 53) = 0.1121988164855842D-01
        xs( 54) = 0.1216147052330244D-01
        xs( 55) = 0.1322020472089566D-01
        xs( 56) = 0.1442980055176895D-01
        xs( 57) = 0.1584108691904023D-01
        xs( 58) = 0.1753902356600946D-01
        xs( 59) = 0.1963184283399340D-01
        xs( 60) = 0.2228516489261419D-01
        xs( 61) = 0.2580425274617806D-01
        xs( 62) = 0.3076540272645120D-01
        xs( 63) = 0.3826651454417653D-01
        xs( 64) = 0.5044229022626650D-01
        xs( 65) = 0.7070319811251624D-01
        xs( 66) = 0.9876253927677073D-01
        ws(  1) = 0.3445436766126339D-05
        ws(  2) = 0.8033757547889826D-05
        ws(  3) = 0.1260978169527950D-04
        ws(  4) = 0.1716980843949917D-04
        ws(  5) = 0.2171897282343514D-04
        ws(  6) = 0.2625596471320657D-04
        ws(  7) = 0.3079882161251291D-04
        ws(  8) = 0.3532764229232921D-04
        ws(  9) = 0.3987772836916080D-04
        ws( 10) = 0.4445263537043261D-04
        ws( 11) = 0.4906156058856981D-04
        ws( 12) = 0.5371621511844596D-04
        ws( 13) = 0.5843289352745033D-04
        ws( 14) = 0.6323015346790001D-04
        ws( 15) = 0.6812165285565813D-04
        ws( 16) = 0.7312511915411071D-04
        ws( 17) = 0.7824715205201822D-04
        ws( 18) = 0.8351879500200286D-04
        ws( 19) = 0.8896162564898594D-04
        ws( 20) = 0.9459446593692387D-04
        ws( 21) = 0.1004329929388625D-03
        ws( 22) = 0.1065038131397846D-03
        ws( 23) = 0.1128254585244822D-03
        ws( 24) = 0.1194430696130530D-03
        ws( 25) = 0.1263945564943979D-03
        ws( 26) = 0.1336824209190852D-03
        ws( 27) = 0.1413595433677468D-03
        ws( 28) = 0.1494639905872414D-03
        ws( 29) = 0.1580370718073858D-03
        ws( 30) = 0.1671638943748164D-03
        ws( 31) = 0.1768269394437367D-03
        ws( 32) = 0.1871429149207892D-03
        ws( 33) = 0.1982231801687160D-03
        ws( 34) = 0.2100384101399644D-03
        ws( 35) = 0.2227750843546482D-03
        ws( 36) = 0.2365140141734970D-03
        ws( 37) = 0.2513163411267099D-03
        ws( 38) = 0.2673032843178059D-03
        ws( 39) = 0.2848047513224777D-03
        ws( 40) = 0.3038517619270332D-03
        ws( 41) = 0.3246069988014890D-03
        ws( 42) = 0.3474428358620707D-03
        ws( 43) = 0.3727472949651882D-03
        ws( 44) = 0.4006329251449454D-03
        ws( 45) = 0.4315295182819076D-03
        ws( 46) = 0.4661552122521014D-03
        ws( 47) = 0.5049731964262730D-03
        ws( 48) = 0.5486168934283350D-03
        ws( 49) = 0.5992413798430738D-03
        ws( 50) = 0.6568407897373794D-03
        ws( 51) = 0.7234845177388867D-03
        ws( 52) = 0.8013696241898840D-03
        ws( 53) = 0.8908841969699260D-03
        ws( 54) = 0.9955401104914843D-03
        ws( 55) = 0.1127780556469298D-02
        ws( 56) = 0.1299035191747833D-02
        ws( 57) = 0.1538554946793938D-02
        ws( 58) = 0.1874394904699387D-02
        ws( 59) = 0.2337683033535419D-02
        ws( 60) = 0.3017606560700276D-02
        ws( 61) = 0.4112811904866170D-02
        ws( 62) = 0.5983946163769352D-02
        ws( 63) = 0.9362862962678587D-02
        ws( 64) = 0.1561054366056043D-01
        ws( 65) = 0.2502600139102743D-01
        ws( 66) = 0.2801045425027432D-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 =  71
        err = 0.5839522877656560D-04
        xs(  1) = 0.1174432635644477D-05
        xs(  2) = 0.6190473715415561D-05
        xs(  3) = 0.1520866186197489D-04
        xs(  4) = 0.2821801247671398D-04
        xs(  5) = 0.4520874675825903D-04
        xs(  6) = 0.6616934991063365D-04
        xs(  7) = 0.9108907459279338D-04
        xs(  8) = 0.1199665109269321D-03
        xs(  9) = 0.1528000399241119D-03
        xs( 10) = 0.1895995845283356D-03
        xs( 11) = 0.2303836247242955D-03
        xs( 12) = 0.2751784491356090D-03
        xs( 13) = 0.3240207984898605D-03
        xs( 14) = 0.3769584055898256D-03
        xs( 15) = 0.4340486048110530D-03
        xs( 16) = 0.4953637167978518D-03
        xs( 17) = 0.5609855224125297D-03
        xs( 18) = 0.6310077067852708D-03
        xs( 19) = 0.7055402935167777D-03
        xs( 20) = 0.7847099915810875D-03
        xs( 21) = 0.8686563556449100D-03
        xs( 22) = 0.9575323329590170D-03
        xs( 23) = 0.1051510490514648D-02
        xs( 24) = 0.1150778454580274D-02
        xs( 25) = 0.1255549945462492D-02
        xs( 26) = 0.1366058590961439D-02
        xs( 27) = 0.1482556913991856D-02
        xs( 28) = 0.1605326576338665D-02
        xs( 29) = 0.1734670028316786D-02
        xs( 30) = 0.1870919271662001D-02
        xs( 31) = 0.2014460355374928D-02
        xs( 32) = 0.2165691554729871D-02
        xs( 33) = 0.2325043868288396D-02
        xs( 34) = 0.2493012818394983D-02
        xs( 35) = 0.2670150901578389D-02
        xs( 36) = 0.2857052344311758D-02
        xs( 37) = 0.3054357673530567D-02
        xs( 38) = 0.3262809695684176D-02
        xs( 39) = 0.3483185681208170D-02
        xs( 40) = 0.3716425999721204D-02
        xs( 41) = 0.3963493443397511D-02
        xs( 42) = 0.4225499738275371D-02
        xs( 43) = 0.4503689867397090D-02
        xs( 44) = 0.4799489396947678D-02
        xs( 45) = 0.5114426246660170D-02
        xs( 46) = 0.5450244932042723D-02
        xs( 47) = 0.5808959324514551D-02
        xs( 48) = 0.6192966196422976D-02
        xs( 49) = 0.6604953120268686D-02
        xs( 50) = 0.7047954887329352D-02
        xs( 51) = 0.7525407073094920D-02
        xs( 52) = 0.8041337177770943D-02
        xs( 53) = 0.8601037420132001D-02
        xs( 54) = 0.9210526314938485D-02
        xs( 55) = 0.9876637168544273D-02
        xs( 56) = 0.1060767092496594D-01
        xs( 57) = 0.1141427207023631D-01
        xs( 58) = 0.1230946908093993D-01
        xs( 59) = 0.1330827951730098D-01
        xs( 60) = 0.1443330531447577D-01
        xs( 61) = 0.1572236159725296D-01
        xs( 62) = 0.1723773702067569D-01
        xs( 63) = 0.1906744218384064D-01
        xs( 64) = 0.2131771740824030D-01
        xs( 65) = 0.2416709136389263D-01
        xs( 66) = 0.2795400880548365D-01
        xs( 67) = 0.3330355861240241D-01
        xs( 68) = 0.4139128841440858D-01
        xs( 69) = 0.5444084251460774D-01
        xs( 70) = 0.7588075820933193D-01
        xs( 71) = 0.1052609972739581D+00
        ws(  1) = 0.3015337333007530D-05
        ws(  2) = 0.7016925882835245D-05
        ws(  3) = 0.1101638641752351D-04
        ws(  4) = 0.1500258678488940D-04
        ws(  5) = 0.1897857228455612D-04
        ws(  6) = 0.2294096682042533D-04
        ws(  7) = 0.2689668720430897D-04
        ws(  8) = 0.3085437879162824D-04
        ws(  9) = 0.3481671387919721D-04
        ws( 10) = 0.3878853374332185D-04
        ws( 11) = 0.4278182679756342D-04
        ws( 12) = 0.4681167447064344D-04
        ws( 13) = 0.5088212314910977D-04
        ws( 14) = 0.5500298349247902D-04
        ws( 15) = 0.5918956159578905D-04
        ws( 16) = 0.6345428498680982D-04
        ws( 17) = 0.6780397896040475D-04
        ws( 18) = 0.7225885513343586D-04
        ws( 19) = 0.7682805651296549D-04
        ws( 20) = 0.8153404505619998D-04
        ws( 21) = 0.8638353713457952D-04
        ws( 22) = 0.9139720934948946D-04
        ws( 23) = 0.9658979752834806D-04
        ws( 24) = 0.1019839762416262D-03
        ws( 25) = 0.1075992604603326D-03
        ws( 26) = 0.1134590232200288D-03
        ws( 27) = 0.1195845908425758D-03
        ws( 28) = 0.1260056887213426D-03
        ws( 29) = 0.1327358950146090D-03
        ws( 30) = 0.1398297389024552D-03
        ws( 31) = 0.1473189647746915D-03
        ws( 32) = 0.1552132588756387D-03
        ws( 33) = 0.1635739938791299D-03
        ws( 34) = 0.1724549915456467D-03
        ws( 35) = 0.1819217137051475D-03
        ws( 36) = 0.1919862405686504D-03
        ws( 37) = 0.2027538890396597D-03
        ws( 38) = 0.2142735047623984D-03
        ws( 39) = 0.2266433040224503D-03
        ws( 40) = 0.2399918983213069D-03
        ws( 41) = 0.2543326416732187D-03
        ws( 42) = 0.2698862057921772D-03
        ws( 43) = 0.2867432336286712D-03
        ws( 44) = 0.3051079457543428D-03
        ws( 45) = 0.3250651449336600D-03
        ws( 46) = 0.3468991920747412D-03
        ws( 47) = 0.3709377858476314D-03
        ws( 48) = 0.3975125821932299D-03
        ws( 49) = 0.4269647659671685D-03
        ws( 50) = 0.4596101740178378D-03
        ws( 51) = 0.4959322114496962D-03
        ws( 52) = 0.5368367233214666D-03
        ws( 53) = 0.5835524925512511D-03
        ws( 54) = 0.6365537690810963D-03
        ws( 55) = 0.6970368037810787D-03
        ws( 56) = 0.7668128255343777D-03
        ws( 57) = 0.8485673073968319D-03
        ws( 58) = 0.9442696015618538D-03
        ws( 59) = 0.1056945289047991D-02
        ws( 60) = 0.1199341441846062D-02
        ws( 61) = 0.1388834573076377D-02
        ws( 62) = 0.1657361110440423D-02
        ws( 63) = 0.2018396943450755D-02
        ws( 64) = 0.2510537594278498D-02
        ws( 65) = 0.3242800209644528D-02
        ws( 66) = 0.4431000499795232D-02
        ws( 67) = 0.6455465147766915D-02
        ws( 68) = 0.1008219127185763D-01
        ws( 69) = 0.1664236860824982D-01
        ws( 70) = 0.2630612525542227D-01
        ws( 71) = 0.2938859319950455D-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 =  75
        err = 0.9102867484111974D-04
        xs(  1) = 0.1049812970525422D-05
        xs(  2) = 0.5522121503894493D-05
        xs(  3) = 0.1355995759111138D-04
        xs(  4) = 0.2515690220480333D-04
        xs(  5) = 0.4029797367767453D-04
        xs(  6) = 0.5897140030513289D-04
        xs(  7) = 0.8116700938107474D-04
        xs(  8) = 0.1068776100457003D-03
        xs(  9) = 0.1360973540516007D-03
        xs( 10) = 0.1688317491640155D-03
        xs( 11) = 0.2050875378058396D-03
        xs( 12) = 0.2448816870391603D-03
        xs( 13) = 0.2882374802476622D-03
        xs( 14) = 0.3351905914783337D-03
        xs( 15) = 0.3857759995369501D-03
        xs( 16) = 0.4400473593839740D-03
        xs( 17) = 0.4980648591092687D-03
        xs( 18) = 0.5598918959226553D-03
        xs( 19) = 0.6256097113106703D-03
        xs( 20) = 0.6953094015506436D-03
        xs( 21) = 0.7690955862123672D-03
        xs( 22) = 0.8470788796680928D-03
        xs( 23) = 0.9293852287587517D-03
        xs( 24) = 0.1016151663728912D-02
        xs( 25) = 0.1107529183097913D-02
        xs( 26) = 0.1203691703951860D-02
        xs( 27) = 0.1304825499739384D-02
        xs( 28) = 0.1411124488051577D-02
        xs( 29) = 0.1522813294480662D-02
        xs( 30) = 0.1640128283209395D-02
        xs( 31) = 0.1763330858145540D-02
        xs( 32) = 0.1892724038476547D-02
        xs( 33) = 0.2028603916696690D-02
        xs( 34) = 0.2171303039750639D-02
        xs( 35) = 0.2321206431954717D-02
        xs( 36) = 0.2478729237531001D-02
        xs( 37) = 0.2644319164330150D-02
        xs( 38) = 0.2818444650421508D-02
        xs( 39) = 0.3001655195481079D-02
        xs( 40) = 0.3194528796602195D-02
        xs( 41) = 0.3397737841186530D-02
        xs( 42) = 0.3611988171385950D-02
        xs( 43) = 0.3838073719299234D-02
        xs( 44) = 0.4076846421592821D-02
        xs( 45) = 0.4329332725376452D-02
        xs( 46) = 0.4596600798078976D-02
        xs( 47) = 0.4879831267194871D-02
        xs( 48) = 0.5180344191756242D-02
        xs( 49) = 0.5499695056597884D-02
        xs( 50) = 0.5839602135087237D-02
        xs( 51) = 0.6202061368295624D-02
        xs( 52) = 0.6589390913634971D-02
        xs( 53) = 0.7004076815446076D-02
        xs( 54) = 0.7448869112834153D-02
        xs( 55) = 0.7927404895824905D-02
        xs( 56) = 0.8443550036082020D-02
        xs( 57) = 0.9001634432700110D-02
        xs( 58) = 0.9607594486494637D-02
        xs( 59) = 0.1026863142048555D-01
        xs( 60) = 0.1099253440629348D-01
        xs( 61) = 0.1178905858914233D-01
        xs( 62) = 0.1266840772368350D-01
        xs( 63) = 0.1364388326644295D-01
        xs( 64) = 0.1474023676317888D-01
        xs( 65) = 0.1599233352275703D-01
        xs( 66) = 0.1745777527880088D-01
        xs( 67) = 0.1922249276376111D-01
        xs( 68) = 0.2138029446275742D-01
        xs( 69) = 0.2408816577708252D-01
        xs( 70) = 0.2763169338122358D-01
        xs( 71) = 0.3255872870049181D-01
        xs( 72) = 0.3992878877827342D-01
        xs( 73) = 0.5168435599667242D-01
        xs( 74) = 0.7132036016793952D-01
        xs( 75) = 0.1008492568085996D+00
        ws(  1) = 0.2690705615853855D-05
        ws(  2) = 0.6255546346284493D-05
        ws(  3) = 0.9818898252433511D-05
        ws(  4) = 0.1337329011656034D-04
        ws(  5) = 0.1691014364921270D-04
        ws(  6) = 0.2043597410090463D-04
        ws(  7) = 0.2395207336995836D-04
        ws(  8) = 0.2746540060940761D-04
        ws(  9) = 0.3097715557175909D-04
        ws( 10) = 0.3449204838352191D-04
        ws( 11) = 0.3802055230063707D-04
        ws( 12) = 0.4157359259507002D-04
        ws( 13) = 0.4514670656593261D-04
        ws( 14) = 0.4876009032750859D-04
        ws( 15) = 0.5242136892421621D-04
        ws( 16) = 0.5613303747322114D-04
        ws( 17) = 0.5990957454731747D-04
        ws( 18) = 0.6375943157828672D-04
        ws( 19) = 0.6769214984614254D-04
        ws( 20) = 0.7172443068338593D-04
        ws( 21) = 0.7586514845984943D-04
        ws( 22) = 0.8012332624917464D-04
        ws( 23) = 0.8451341045776326D-04
        ws( 24) = 0.8904352763305080D-04
        ws( 25) = 0.9373931257449318D-04
        ws( 26) = 0.9861859848193287D-04
        ws( 27) = 0.1036814566234903D-03
        ws( 28) = 0.1089544809753040D-03
        ws( 29) = 0.1144621916314304D-03
        ws( 30) = 0.1202100804798056D-03
        ws( 31) = 0.1262456877721382D-03
        ws( 32) = 0.1325877887481590D-03
        ws( 33) = 0.1392277314685690D-03
        ws( 34) = 0.1462358120239986D-03
        ws( 35) = 0.1536381322143524D-03
        ws( 36) = 0.1614802265139145D-03
        ws( 37) = 0.1697733050951555D-03
        ws( 38) = 0.1785732807068811D-03
        ws( 39) = 0.1879414363124425D-03
        ws( 40) = 0.1979215326440684D-03
        ws( 41) = 0.2086095653826329D-03
        ws( 42) = 0.2200261483685497D-03
        ws( 43) = 0.2322841917880714D-03
        ws( 44) = 0.2454425876550015D-03
        ws( 45) = 0.2597064629874021D-03
        ws( 46) = 0.2750265832265820D-03
        ws( 47) = 0.2916468730368018D-03
        ws( 48) = 0.3096423740763507D-03
        ws( 49) = 0.3293379165501161D-03
        ws( 50) = 0.3508103553784002D-03
        ws( 51) = 0.3744965089394849D-03
        ws( 52) = 0.4005823114483111D-03
        ws( 53) = 0.4292331843123286D-03
        ws( 54) = 0.4609822869195400D-03
        ws( 55) = 0.4967307436398560D-03
        ws( 56) = 0.5362711054826846D-03
        ws( 57) = 0.5808625917920612D-03
        ws( 58) = 0.6323207884230416D-03
        ws( 59) = 0.6909757438415073D-03
        ws( 60) = 0.7584900245883944D-03
        ws( 61) = 0.8362635820306361D-03
        ws( 62) = 0.9244366643223173D-03
        ws( 63) = 0.1030700831194079D-02
        ws( 64) = 0.1167628949063996D-02
        ws( 65) = 0.1345901676312375D-02
        ws( 66) = 0.1600078423484199D-02
        ws( 67) = 0.1943821303084678D-02
        ws( 68) = 0.2396702291831555D-02
        ws( 69) = 0.3065396455731555D-02
        ws( 70) = 0.4107792741175502D-02
        ws( 71) = 0.5918838349256271D-02
        ws( 72) = 0.9129660417482846D-02
        ws( 73) = 0.1496467789657594D-01
        ws( 74) = 0.2495948169042749D-01
        ws( 75) = 0.3167192879619009D-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 =  11
        err = 0.9108302661965937D-04
        xs(  1) = 0.8976568863083183D-03
        xs(  2) = 0.4362498219661382D-02
        xs(  3) = 0.9737342122642958D-02
        xs(  4) = 0.1642314788405340D-01
        xs(  5) = 0.2403283879230619D-01
        xs(  6) = 0.3232161757394130D-01
        xs(  7) = 0.4113355992546823D-01
        xs(  8) = 0.5036897340662341D-01
        xs(  9) = 0.5996798729504206D-01
        xs( 10) = 0.6990220864791888D-01
        xs( 11) = 0.8022262210470216D-01
        ws(  1) = 0.2249353388146300D-02
        ws(  2) = 0.4541345909462843D-02
        ws(  3) = 0.6109864898924515D-02
        ws(  4) = 0.7197900956667865D-02
        ws(  5) = 0.7980994644061157D-02
        ws(  6) = 0.8571414293380509D-02
        ws(  7) = 0.9039796178881922D-02
        ws(  8) = 0.9437414730489554D-02
        ws(  9) = 0.9818535668460226D-02
        ws( 10) = 0.1030502133292332D-01
        ws( 11) = 0.1201055585681606D-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 =  11
        err = 0.8917961660320318D-04
        xs(  1) = 0.8943290040243101D-03
        xs(  2) = 0.4353140967614420D-02
        xs(  3) = 0.9723508233741953D-02
        xs(  4) = 0.1640548506231884D-01
        xs(  5) = 0.2401185097569586D-01
        xs(  6) = 0.3229781481834598D-01
        xs(  7) = 0.4110746994094283D-01
        xs(  8) = 0.5034128564676033D-01
        xs(  9) = 0.5993930166875753D-01
        xs( 10) = 0.6987380984110574D-01
        xs( 11) = 0.8019558319429201D-01
        ws(  1) = 0.2242550774455942D-02
        ws(  2) = 0.4536267054728575D-02
        ws(  3) = 0.6105844820109714D-02
        ws(  4) = 0.7194399281139482D-02
        ws(  5) = 0.7978093225760464D-02
        ws(  6) = 0.8569065904268642D-02
        ws(  7) = 0.9038253244300676D-02
        ws(  8) = 0.9436815417244650D-02
        ws(  9) = 0.9819426049666725D-02
        ws( 10) = 0.1030992972463177D-01
        ws( 11) = 0.1202320727858744D-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 =  11
        err = 0.8605095983811999D-04
        xs(  1) = 0.8787299489096819D-03
        xs(  2) = 0.4308285194826582D-02
        xs(  3) = 0.9656894768266174D-02
        xs(  4) = 0.1632022017542614D-01
        xs(  5) = 0.2391034922830971D-01
        xs(  6) = 0.3218244089178458D-01
        xs(  7) = 0.4098066037877986D-01
        xs(  8) = 0.5020587541806490D-01
        xs(  9) = 0.5979806802846594D-01
        xs( 10) = 0.6973203046863365D-01
        xs( 11) = 0.8005683555626224D-01
        ws(  1) = 0.2210348083096448D-02
        ws(  2) = 0.4511409752119262D-02
        ws(  3) = 0.6086256295718893D-02
        ws(  4) = 0.7177264432899060D-02
        ws(  5) = 0.7963739925143669D-02
        ws(  6) = 0.8557300419182585D-02
        ws(  7) = 0.9029902382174918D-02
        ws(  8) = 0.9432383736620671D-02
        ws(  9) = 0.9821702412758719D-02
        ws( 10) = 0.1032827667736710D-01
        ws( 11) = 0.1207435135654506D-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 =  12
        err = 0.5373999298187032D-04
        xs(  1) = 0.7719637081562524D-03
        xs(  2) = 0.3877282019897334D-02
        xs(  3) = 0.8842788160708074D-02
        xs(  4) = 0.1513033406602196D-01
        xs(  5) = 0.2238681794223796D-01
        xs(  6) = 0.3037570222984439D-01
        xs(  7) = 0.3893579406405543D-01
        xs(  8) = 0.4795919609218718D-01
        xs(  9) = 0.5737474628106748D-01
        xs( 10) = 0.6713080769539644D-01
        xs( 11) = 0.7720552536562286D-01
        xs( 12) = 0.8763366130488853D-01
        ws(  1) = 0.1959680047297443D-02
        ws(  2) = 0.4141843915340599D-02
        ws(  3) = 0.5698650111345126D-02
        ws(  4) = 0.6819763185759807D-02
        ws(  5) = 0.7655456004571476D-02
        ws(  6) = 0.8297913611868638D-02
        ws(  7) = 0.8808969272524315D-02
        ws(  8) = 0.9237149562010594D-02
        ws(  9) = 0.9613761701923181D-02
        ws( 10) = 0.9982484526754491D-02
        ws( 11) = 0.1047813151848822D-01
        ws( 12) = 0.1220335234995011D-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 =  12
        err = 0.8533475332573292D-04
        xs(  1) = 0.7020486041500577D-03
        xs(  2) = 0.3615529488613666D-02
        xs(  3) = 0.8416148617266665D-02
        xs(  4) = 0.1459000307792360D-01
        xs(  5) = 0.2177204572975146D-01
        xs(  6) = 0.2971173071707453D-01
        xs(  7) = 0.3823553732410534D-01
        xs(  8) = 0.4722846009858718D-01
        xs(  9) = 0.5661189731931096D-01
        xs( 10) = 0.6632997834247888D-01
        xs( 11) = 0.7637052794988733D-01
        xs( 12) = 0.8675874865613893D-01
        ws(  1) = 0.1797164407267077D-02
        ws(  2) = 0.3951525757574302D-02
        ws(  3) = 0.5560234343751082D-02
        ws(  4) = 0.6728252626345728D-02
        ws(  5) = 0.7595492876395216D-02
        ws(  6) = 0.8256499906466624D-02
        ws(  7) = 0.8775897876491703D-02
        ws(  8) = 0.9207152851646675D-02
        ws(  9) = 0.9577047810329453D-02
        ws( 10) = 0.9940516123294779D-02
        ws( 11) = 0.1043029655777672D-01
        ws( 12) = 0.1211700625649373D-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 =  12
        err = 0.9929337999226489D-04
        xs(  1) = 0.4102115407489477D-03
        xs(  2) = 0.2308097535916288D-02
        xs(  3) = 0.6098607125968586D-02
        xs(  4) = 0.1169569050503092D-01
        xs(  5) = 0.1860130253531528D-01
        xs(  6) = 0.2640496837460626D-01
        xs(  7) = 0.3485947116391743D-01
        xs(  8) = 0.4382051325292087D-01
        xs(  9) = 0.5320297139392548D-01
        xs( 10) = 0.6296265032788574D-01
        xs( 11) = 0.7305600417793184D-01
        xs( 12) = 0.8346840266882818D-01
        ws(  1) = 0.1070953742029861D-02
        ws(  2) = 0.2800005229490446D-02
        ws(  3) = 0.4764358580688134D-02
        ws(  4) = 0.6335723598822407D-02
        ws(  5) = 0.7407913547186857D-02
        ws(  6) = 0.8160475566590159D-02
        ws(  7) = 0.8727953600813791D-02
        ws(  8) = 0.9188470024811751D-02
        ws(  9) = 0.9596559823088801D-02
        ws( 10) = 0.1000212103745719D-01
        ws( 11) = 0.1046965208070818D-01
        ws( 12) = 0.1206259257075023D-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 =  13
        err = 0.7736940326470967D-04
        xs(  1) = 0.2658804710645281D-03
        xs(  2) = 0.1498283700663962D-02
        xs(  3) = 0.4140560174760132D-02
        xs(  4) = 0.8690622463586572D-02
        xs(  5) = 0.1499910410807012D-01
        xs(  6) = 0.2248797359832392D-01
        xs(  7) = 0.3074043208779946D-01
        xs(  8) = 0.3953313547635797D-01
        xs(  9) = 0.4874687174000266D-01
        xs( 10) = 0.5831588720452856D-01
        xs( 11) = 0.6822029034370489D-01
        xs( 12) = 0.7842992324262897D-01
        xs( 13) = 0.8887984823317645D-01
        ws(  1) = 0.6930737674278905D-03
        ws(  2) = 0.1840864738147035D-02
        ws(  3) = 0.3546792634087255D-02
        ws(  4) = 0.5519746764368104D-02
        ws(  5) = 0.6989216155911242D-02
        ws(  6) = 0.7921081672664114D-02
        ws(  7) = 0.8549918251145559D-02
        ws(  8) = 0.9021088007304976D-02
        ws(  9) = 0.9408683541299472D-02
        ws( 10) = 0.9764188737785891D-02
        ws( 11) = 0.1014336943306791D-01
        ws( 12) = 0.1057853552892302D-01
        ws( 13) = 0.1204604044872295D-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 =  15
        err = 0.6163192713257427D-04
        xs(  1) = 0.1077352695510584D-03
        xs(  2) = 0.5867316252304914D-03
        xs(  3) = 0.1538627375209656D-02
        xs(  4) = 0.3166782859117700D-02
        xs(  5) = 0.5876108483037338D-02
        xs(  6) = 0.1025231486470392D-01
        xs(  7) = 0.1649610374204426D-01
        xs(  8) = 0.2412619244104074D-01
        xs(  9) = 0.3262168235470000D-01
        xs( 10) = 0.4169223403825350D-01
        xs( 11) = 0.5118930988700593D-01
        xs( 12) = 0.6102919392721937D-01
        xs( 13) = 0.7118363109366115D-01
        xs( 14) = 0.8159726071218899D-01
        xs( 15) = 0.9205649406005827D-01
        ws(  1) = 0.2785398784886590D-03
        ws(  2) = 0.6933897534246259D-03
        ws(  3) = 0.1242854790916643D-02
        ws(  4) = 0.2079381660910964D-02
        ws(  5) = 0.3447935529738731D-02
        ws(  6) = 0.5347704341681347D-02
        ws(  7) = 0.7041917700295709D-02
        ws(  8) = 0.8128819196990425D-02
        ws(  9) = 0.8816315709192559D-02
        ws( 10) = 0.9303157025565976D-02
        ws( 11) = 0.9684624963516859D-02
        ws( 12) = 0.1001935370338256D-01
        ws( 13) = 0.1038342267004814D-01
        ws( 14) = 0.1073457803333677D-01
        ws( 15) = 0.1154178350159604D-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 =  19
        err = 0.4488887587312114D-04
        xs(  1) = 0.3889977997978404D-04
        xs(  2) = 0.2070045495325618D-03
        xs(  3) = 0.5185659777852827D-03
        xs(  4) = 0.9927383936994267D-03
        xs(  5) = 0.1664330597456016D-02
        xs(  6) = 0.2592952000932892D-02
        xs(  7) = 0.3879285097534167D-02
        xs(  8) = 0.5701820647669554D-02
        xs(  9) = 0.8395683569248755D-02
        xs( 10) = 0.1253626169267208D-01
        xs( 11) = 0.1871792821456694D-01
        xs( 12) = 0.2679371151950320D-01
        xs( 13) = 0.3601686270457569D-01
        xs( 14) = 0.4583921321160053D-01
        xs( 15) = 0.5601167055344449D-01
        xs( 16) = 0.6643313244114009D-01
        xs( 17) = 0.7704180289566669D-01
        xs( 18) = 0.8782419931243957D-01
        xs( 19) = 0.9834270090783505D-01
        ws(  1) = 0.1000531614893574D-03
        ws(  2) = 0.2376397873110438D-03
        ws(  3) = 0.3886001528746155D-03
        ws(  4) = 0.5654057542060906D-03
        ws(  5) = 0.7874459582431495D-03
        ws(  6) = 0.1086078579439931D-02
        ws(  7) = 0.1514967492382885D-02
        ws(  8) = 0.2184160881202954D-02
        ws(  9) = 0.3300758717188136D-02
        ws( 10) = 0.5098343499310221D-02
        ws( 11) = 0.7236773423006669D-02
        ws( 12) = 0.8772271924772050D-02
        ws( 13) = 0.9583520307048281D-02
        ws( 14) = 0.1002515064639031D-01
        ws( 15) = 0.1032053233346950D-01
        ws( 16) = 0.1055782588759758D-01
        ws( 17) = 0.1083371432600224D-01
        ws( 18) = 0.1098642733796881D-01
        ws( 19) = 0.1058854535428163D-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 =  22
        err = 0.5673230283451040D-04
        xs(  1) = 0.2014774308907157D-04
        xs(  2) = 0.1066243847954622D-03
        xs(  3) = 0.2643126424171291D-03
        xs(  4) = 0.4974334091436945D-03
        xs(  5) = 0.8132190525401833D-03
        xs(  6) = 0.1223072754391330D-02
        xs(  7) = 0.1744117949812978D-02
        xs(  8) = 0.2401635890705660D-02
        xs(  9) = 0.3233781009344588D-02
        xs( 10) = 0.4299099614217669D-02
        xs( 11) = 0.5689121563933188D-02
        xs( 12) = 0.7556385975257133D-02
        xs( 13) = 0.1018904845128001D-01
        xs( 14) = 0.1414743827506713D-01
        xs( 15) = 0.2032624143276264D-01
        xs( 16) = 0.2930835229024001D-01
        xs( 17) = 0.4030233988805057D-01
        xs( 18) = 0.5210667658688527D-01
        xs( 19) = 0.6412251916883500D-01
        xs( 20) = 0.7615196947788612D-01
        xs( 21) = 0.8813368343248412D-01
        xs( 22) = 0.9945721289617669D-01
        ws(  1) = 0.5175089093267260D-04
        ws(  2) = 0.1215720129590747D-03
        ws(  3) = 0.1944857250627453D-03
        ws(  4) = 0.2729476170625457D-03
        ws(  5) = 0.3605031171024731D-03
        ws(  6) = 0.4620247046936791D-03
        ws(  7) = 0.5841974151878544D-03
        ws(  8) = 0.7370648954464704D-03
        ws(  9) = 0.9367978693723772D-03
        ws( 10) = 0.1208699911533585D-02
        ws( 11) = 0.1595629367079349D-02
        ws( 12) = 0.2184403019833631D-02
        ws( 13) = 0.3171915284146277D-02
        ws( 14) = 0.4901953589013173D-02
        ws( 15) = 0.7584945941636782D-02
        ws( 16) = 0.1021811203592261D-01
        ws( 17) = 0.1155255466127900D-01
        ws( 18) = 0.1196411115811116D-01
        ws( 19) = 0.1206620272681491D-01
        ws( 20) = 0.1211667655316651D-01
        ws( 21) = 0.1224103532767223D-01
        ws( 22) = 0.1065679231265307D-01
        endif
        if( idomain .eq.   80 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1000000000000000D+00
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  25
        err = 0.8630863377946930D-04
        xs(  1) = 0.1262927405583470D-04
        xs(  2) = 0.6666533541683633D-04
        xs(  3) = 0.1644256326001457D-03
        xs(  4) = 0.3071218171858408D-03
        xs(  5) = 0.4969192387464263D-03
        xs(  6) = 0.7372415138331158D-03
        xs(  7) = 0.1033099096993787D-02
        xs(  8) = 0.1391551897792664D-02
        xs(  9) = 0.1822209264345179D-02
        xs( 10) = 0.2338355466370010D-02
        xs( 11) = 0.2958193684480275D-02
        xs( 12) = 0.3707209156408036D-02
        xs( 13) = 0.4622030895034235D-02
        xs( 14) = 0.5754895581014745D-02
        xs( 15) = 0.7186013818245967D-02
        xs( 16) = 0.9046935054000208D-02
        xs( 17) = 0.1158747887264657D-01
        xs( 18) = 0.1532250148890773D-01
        xs( 19) = 0.2120432230424211D-01
        xs( 20) = 0.3041151964076308D-01
        xs( 21) = 0.4279742505624246D-01
        xs( 22) = 0.5660690546964960D-01
        xs( 23) = 0.7061051242783073D-01
        xs( 24) = 0.8434694408672513D-01
        xs( 25) = 0.9730123709630908D-01
        ws(  1) = 0.3242326542672914D-04
        ws(  2) = 0.7575552326142628D-04
        ws(  3) = 0.1199541286681597D-03
        ws(  4) = 0.1657871994115020D-03
        ws(  5) = 0.2143756380501009D-03
        ws(  6) = 0.2670983071839396D-03
        ws(  7) = 0.3257874339602627D-03
        ws(  8) = 0.3926929712922285D-03
        ws(  9) = 0.4708031373631322D-03
        ws( 10) = 0.5644865508931142D-03
        ws( 11) = 0.6793540981937225D-03
        ws( 12) = 0.8247466365160757D-03
        ws( 13) = 0.1013360958388481D-02
        ws( 14) = 0.1265421760539428D-02
        ws( 15) = 0.1617778606931234D-02
        ws( 16) = 0.2143144370589694D-02
        ws( 17) = 0.3020367051511433D-02
        ws( 18) = 0.4608383139147704D-02
        ws( 19) = 0.7381544624174253D-02
        ws( 20) = 0.1102691242592505D-01
        ws( 21) = 0.1339409920393184D-01
        ws( 22) = 0.1403167473614486D-01
        ws( 23) = 0.1392213316856916D-01
        ws( 24) = 0.1345869002954644D-01
        ws( 25) = 0.1073516361472997D-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 =  29
        err = 0.8271122124233825D-04
        xs(  1) = 0.8581230843859203D-05
        xs(  2) = 0.4524783375399304D-04
        xs(  3) = 0.1113858835794483D-03
        xs(  4) = 0.2074032440366898D-03
        xs(  5) = 0.3340650263562868D-03
        xs(  6) = 0.4926114729573961D-03
        xs(  7) = 0.6848744564145424D-03
        xs(  8) = 0.9134399452464864D-03
        xs(  9) = 0.1181743673195471D-02
        xs( 10) = 0.1494271386333821D-02
        xs( 11) = 0.1856867861978237D-02
        xs( 12) = 0.2277013946055682D-02
        xs( 13) = 0.2764639343796562D-02
        xs( 14) = 0.3332508641882329D-02
        xs( 15) = 0.3997341475218747D-02
        xs( 16) = 0.4782052142146468D-02
        xs( 17) = 0.5718656673299841D-02
        xs( 18) = 0.6851415901698908D-02
        xs( 19) = 0.8246366765092420D-02
        xs( 20) = 0.1001435260143642D-01
        xs( 21) = 0.1235647135421619D-01
        xs( 22) = 0.1565443932118748D-01
        xs( 23) = 0.2065131041050797D-01
        xs( 24) = 0.2862229556669121D-01
        xs( 25) = 0.4064937385102440D-01
        xs( 26) = 0.5564587917581117D-01
        xs( 27) = 0.7152008614421709D-01
        xs( 28) = 0.8718384180723929D-01
        xs( 29) = 0.1017708736808463D+00
        ws(  1) = 0.2202661972116156D-04
        ws(  2) = 0.5135380529911443D-04
        ws(  3) = 0.8098484581482401D-04
        ws(  4) = 0.1111737442127385D-03
        ws(  5) = 0.1423531329963117D-03
        ws(  6) = 0.1750446535034871D-03
        ws(  7) = 0.2099175299713865D-03
        ws(  8) = 0.2477858251497254D-03
        ws(  9) = 0.2895628866995874D-03
        ws( 10) = 0.3364666684348732D-03
        ws( 11) = 0.3899582717326777D-03
        ws( 12) = 0.4519977899333856D-03
        ws( 13) = 0.5253705374037974D-03
        ws( 14) = 0.6131069655222834D-03
        ws( 15) = 0.7203391598355972D-03
        ws( 16) = 0.8543939846633493D-03
        ws( 17) = 0.1026038090938730D-02
        ws( 18) = 0.1250169586335589D-02
        ws( 19) = 0.1557347573231499D-02
        ws( 20) = 0.2010984283126889D-02
        ws( 21) = 0.2733700460822331D-02
        ws( 22) = 0.3981484943563393D-02
        ws( 23) = 0.6231455693975922D-02
        ws( 24) = 0.9943921707126166D-02
        ws( 25) = 0.1389525342424277D-01
        ws( 26) = 0.1570959069185325D-01
        ws( 27) = 0.1590085127147614D-01
        ws( 28) = 0.1557567212055123D-01
        ws( 29) = 0.1276550096065485D-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 =  33
        err = 0.7458829992371072D-04
        xs(  1) = 0.6191721946489557D-05
        xs(  2) = 0.3263753441271474D-04
        xs(  3) = 0.8027809290840094D-04
        xs(  4) = 0.1492770336911467D-03
        xs(  5) = 0.2399508055665328D-03
        xs(  6) = 0.3528223865938262D-03
        xs(  7) = 0.4886798590887041D-03
        xs(  8) = 0.6486257114516381D-03
        xs(  9) = 0.8341527751082017D-03
        xs( 10) = 0.1047168577030576D-02
        xs( 11) = 0.1290089666413429D-02
        xs( 12) = 0.1565970813370059D-02
        xs( 13) = 0.1878588266353078D-02
        xs( 14) = 0.2232690735769147D-02
        xs( 15) = 0.2634142531550789D-02
        xs( 16) = 0.3090153009660527D-02
        xs( 17) = 0.3610139256208984D-02
        xs( 18) = 0.4205964691888843D-02
        xs( 19) = 0.4892670728807949D-02
        xs( 20) = 0.5691267585669323D-02
        xs( 21) = 0.6629888483933627D-02
        xs( 22) = 0.7747954875721023D-02
        xs( 23) = 0.9099348147476722D-02
        xs( 24) = 0.1077076992302217D-01
        xs( 25) = 0.1292709490670167D-01
        xs( 26) = 0.1584893211047759D-01
        xs( 27) = 0.2007364103715480D-01
        xs( 28) = 0.2669518387790047D-01
        xs( 29) = 0.3729889059207075D-01
        xs( 30) = 0.5229450966783011D-01
        xs( 31) = 0.6949177711455894D-01
        xs( 32) = 0.8682476273611117D-01
        xs( 33) = 0.1030752437819895D+00
        ws(  1) = 0.1589154849770453D-04
        ws(  2) = 0.3702418887788630D-04
        ws(  3) = 0.5828228516609793D-04
        ws(  4) = 0.7976860154326230D-04
        ws(  5) = 0.1016647579786632D-03
        ws(  6) = 0.1242094161923213D-03
        ws(  7) = 0.1476845087796851D-03
        ws(  8) = 0.1724564557927260D-03
        ws(  9) = 0.1989162556294420D-03
        ws( 10) = 0.2275154193434762D-03
        ws( 11) = 0.2588367692588274D-03
        ws( 12) = 0.2935470847922711D-03
        ws( 13) = 0.3324762347542300D-03
        ws( 14) = 0.3767028827947028D-03
        ws( 15) = 0.4273748483316063D-03
        ws( 16) = 0.4862138293577505D-03
        ws( 17) = 0.5557441853591016D-03
        ws( 18) = 0.6383284378688862D-03
        ws( 19) = 0.7386107013600525D-03
        ws( 20) = 0.8631330212604786D-03
        ws( 21) = 0.1020725186000763D-02
        ws( 22) = 0.1224092010209566D-02
        ws( 23) = 0.1492251502294876D-02
        ws( 24) = 0.1877739664534434D-02
        ws( 25) = 0.2479701757198523D-02
        ws( 26) = 0.3447426039090575D-02
        ws( 27) = 0.5182624139181245D-02
        ws( 28) = 0.8348210937054037D-02
        ws( 29) = 0.1298577220316760D-01
        ws( 30) = 0.1655365312763030D-01
        ws( 31) = 0.1749736685738333D-01
        ws( 32) = 0.1692904157428167D-01
        ws( 33) = 0.1307606889692863D-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 =  37
        err = 0.6322815449682702D-04
        xs(  1) = 0.4698833470173139D-05
        xs(  2) = 0.2476038515636173D-04
        xs(  3) = 0.6087270600540120D-04
        xs(  4) = 0.1130998405183691D-03
        xs(  5) = 0.1815758283031423D-03
        xs(  6) = 0.2665384911905006D-03
        xs(  7) = 0.3683590553473129D-03
        xs(  8) = 0.4875705141669092D-03
        xs(  9) = 0.6249036165520307D-03
        xs( 10) = 0.7812936582133682D-03
        xs( 11) = 0.9579061783989385D-03
        xs( 12) = 0.1156204054050347D-02
        xs( 13) = 0.1377969143212473D-02
        xs( 14) = 0.1625358228374485D-02
        xs( 15) = 0.1901011015131063D-02
        xs( 16) = 0.2208078779183608D-02
        xs( 17) = 0.2550377335519167D-02
        xs( 18) = 0.2932528604024628D-02
        xs( 19) = 0.3360258713570471D-02
        xs( 20) = 0.3840518370965111D-02
        xs( 21) = 0.4381984762747682D-02
        xs( 22) = 0.4995906397030457D-02
        xs( 23) = 0.5696331952625722D-02
        xs( 24) = 0.6502216951405348D-02
        xs( 25) = 0.7438499768097055D-02
        xs( 26) = 0.8538969453786738D-02
        xs( 27) = 0.9849068084452206D-02
        xs( 28) = 0.1143856938847281D-01
        xs( 29) = 0.1344736124081939D-01
        xs( 30) = 0.1610715144454670D-01
        xs( 31) = 0.1981891462792751D-01
        xs( 32) = 0.2539321066773485D-01
        xs( 33) = 0.3427349387197546D-01
        xs( 34) = 0.4799447887011899D-01
        xs( 35) = 0.6581374650014768D-01
        xs( 36) = 0.8491883484568127D-01
        xs( 37) = 0.1031373897495668D+00
        ws(  1) = 0.1205908460104243D-04
        ws(  2) = 0.2807828945060133D-04
        ws(  3) = 0.4415571528403986D-04
        ws(  4) = 0.6032090688545822D-04
        ws(  5) = 0.7667103094346032D-04
        ws(  6) = 0.9331699512959366D-04
        ws(  7) = 0.1104097632027558D-03
        ws(  8) = 0.1281325813486176D-03
        ws(  9) = 0.1466907731787715D-03
        ws( 10) = 0.1662846418860576D-03
        ws( 11) = 0.1871810673136587D-03
        ws( 12) = 0.2097074225048570D-03
        ws( 13) = 0.2341781338032801D-03
        ws( 14) = 0.2610400348564168D-03
        ws( 15) = 0.2907882438426076D-03
        ws( 16) = 0.3239765580623334D-03
        ws( 17) = 0.3613804773642513D-03
        ws( 18) = 0.4038718563494137D-03
        ws( 19) = 0.4527420423161972D-03
        ws( 20) = 0.5091855563656984D-03
        ws( 21) = 0.5756539282972643D-03
        ws( 22) = 0.6544662110321298D-03
        ws( 23) = 0.7495669718495403D-03
        ws( 24) = 0.8662940831688568D-03
        ws( 25) = 0.1011835463009366D-02
        ws( 26) = 0.1196678326635156D-02
        ws( 27) = 0.1434008209759121D-02
        ws( 28) = 0.1768206232562177D-02
        ws( 29) = 0.2287211674113576D-02
        ws( 30) = 0.3094636824833020D-02
        ws( 31) = 0.4458744155310732D-02
        ws( 32) = 0.6935544634881795D-02
        ws( 33) = 0.1112870609950656D-01
        ws( 34) = 0.1619672640041909D-01
        ws( 35) = 0.1889174648884653D-01
        ws( 36) = 0.1896927931262940D-01
        ws( 37) = 0.1538255828851985D-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 =  41
        err = 0.5137798067374747D-04
        xs(  1) = 0.3708921645038025D-05
        xs(  2) = 0.1954223769083992D-04
        xs(  3) = 0.4802758098165816D-04
        xs(  4) = 0.8918318085382798D-04
        xs(  5) = 0.1430572527348514D-03
        xs(  6) = 0.2097564602558458D-03
        xs(  7) = 0.2894632352149370D-03
        xs(  8) = 0.3824484906226553D-03
        xs(  9) = 0.4890889080256511D-03
        xs( 10) = 0.6098883917895864D-03
        xs( 11) = 0.7454705998451320D-03
        xs( 12) = 0.8966095262248136D-03
        xs( 13) = 0.1064257241755201D-02
        xs( 14) = 0.1249531249014344D-02
        xs( 15) = 0.1453771984054445D-02
        xs( 16) = 0.1678604019128548D-02
        xs( 17) = 0.1925918371940493D-02
        xs( 18) = 0.2197922948773420D-02
        xs( 19) = 0.2497236590471915D-02
        xs( 20) = 0.2827055938736691D-02
        xs( 21) = 0.3191174220875140D-02
        xs( 22) = 0.3593908000399003D-02
        xs( 23) = 0.4040779724625147D-02
        xs( 24) = 0.4538592851302545D-02
        xs( 25) = 0.5095361749193364D-02
        xs( 26) = 0.5721487358663696D-02
        xs( 27) = 0.6430075932068966D-02
        xs( 28) = 0.7237867519406142D-02
        xs( 29) = 0.8166901212498821D-02
        xs( 30) = 0.9247066309971078D-02
        xs( 31) = 0.1051726127544406D-01
        xs( 32) = 0.1203747327550734D-01
        xs( 33) = 0.1393515503389252D-01
        xs( 34) = 0.1641444906473597D-01
        xs( 35) = 0.1979033289626845D-01
        xs( 36) = 0.2469162045898843D-01
        xs( 37) = 0.3235341601084011D-01
        xs( 38) = 0.4462437120289204D-01
        xs( 39) = 0.6227731387141327D-01
        xs( 40) = 0.8272021428553832D-01
        xs( 41) = 0.1028046271966496D+00
        ws(  1) = 0.9518801003822962D-05
        ws(  2) = 0.2215621444413756D-04
        ws(  3) = 0.3481675162858874D-04
        ws(  4) = 0.4750084643904319D-04
        ws(  5) = 0.6026456276738191D-04
        ws(  6) = 0.7316789556943008D-04
        ws(  7) = 0.8628955829712931D-04
        ws(  8) = 0.9974034066474839D-04
        ws(  9) = 0.1136282716040551D-03
        ws( 10) = 0.1280735695422416D-03
        ws( 11) = 0.1432174868203034D-03
        ws( 12) = 0.1592224154737091D-03
        ws( 13) = 0.1762585705811355D-03
        ws( 14) = 0.1945098497235161D-03
        ws( 15) = 0.2142422050864564D-03
        ws( 16) = 0.2357375425875593D-03
        ws( 17) = 0.2592598442025334D-03
        ws( 18) = 0.2851824506942836D-03
        ws( 19) = 0.3139779867513187D-03
        ws( 20) = 0.3463032142866398D-03
        ws( 21) = 0.3826318107093507D-03
        ws( 22) = 0.4237543312491247D-03
        ws( 23) = 0.4711320335045476D-03
        ws( 24) = 0.5257979145618458D-03
        ws( 25) = 0.5894757098664623D-03
        ws( 26) = 0.6649455524085522D-03
        ws( 27) = 0.7549859961983751D-03
        ws( 28) = 0.8642204359194746D-03
        ws( 29) = 0.9987877210744149D-03
        ws( 30) = 0.1168024466906239D-02
        ws( 31) = 0.1381192662256594D-02
        ws( 32) = 0.1680578354022897D-02
        ws( 33) = 0.2148633338555712D-02
        ws( 34) = 0.2858975375708483D-02
        ws( 35) = 0.3991893210149457D-02
        ws( 36) = 0.6014056011242591D-02
        ws( 37) = 0.9636678624241108D-02
        ws( 38) = 0.1511821937697380D-01
        ws( 39) = 0.1965822989281948D-01
        ws( 40) = 0.2069144419853092D-01
        ws( 41) = 0.1713037022762922D-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 =  45
        err = 0.5322148143488662D-04
        xs(  1) = 0.2998693570554513D-05
        xs(  2) = 0.1579903469134895D-04
        xs(  3) = 0.3882131371081537D-04
        xs(  4) = 0.7206941433925592D-04
        xs(  5) = 0.1155629405460961D-03
        xs(  6) = 0.1693479624471939D-03
        xs(  7) = 0.2335199020085774D-03
        xs(  8) = 0.3082199803976684D-03
        xs(  9) = 0.3936577637414964D-03
        xs( 10) = 0.4901156297508897D-03
        xs( 11) = 0.5979525011730659D-03
        xs( 12) = 0.7176109621229811D-03
        xs( 13) = 0.8496292827724680D-03
        xs( 14) = 0.9946532794300478D-03
        xs( 15) = 0.1153438181051204D-02
        xs( 16) = 0.1326882623460526D-02
        xs( 17) = 0.1516038842330466D-02
        xs( 18) = 0.1722121548262879D-02
        xs( 19) = 0.1946527193369684D-02
        xs( 20) = 0.2190891900594621D-02
        xs( 21) = 0.2457158039333303D-02
        xs( 22) = 0.2747546907486401D-02
        xs( 23) = 0.3064655732732975D-02
        xs( 24) = 0.3411531494188035D-02
        xs( 25) = 0.3791864587110260D-02
        xs( 26) = 0.4209951960726882D-02
        xs( 27) = 0.4670965161890676D-02
        xs( 28) = 0.5181391652243816D-02
        xs( 29) = 0.5748782715068204D-02
        xs( 30) = 0.6382656674626820D-02
        xs( 31) = 0.7095070149772492D-02
        xs( 32) = 0.7901945619780037D-02
        xs( 33) = 0.8823418215367460D-02
        xs( 34) = 0.9884100156584301D-02
        xs( 35) = 0.1112243456560304D-01
        xs( 36) = 0.1259448002340895D-01
        xs( 37) = 0.1440180093540675D-01
        xs( 38) = 0.1671330446065705D-01
        xs( 39) = 0.1978956486367807D-01
        xs( 40) = 0.2412604095466361D-01
        xs( 41) = 0.3072373076935224D-01
        xs( 42) = 0.4137014293762714D-01
        xs( 43) = 0.5802276269583488D-01
        xs( 44) = 0.7944950034200209D-01
        xs( 45) = 0.1015871385967773D+00
        ws(  1) = 0.7696239126448251D-05
        ws(  2) = 0.1790928975565649D-04
        ws(  3) = 0.2813695642600830D-04
        ws(  4) = 0.3836373491102898D-04
        ws(  5) = 0.4862746860307376D-04
        ws(  6) = 0.5895914120125429D-04
        ws(  7) = 0.6940563074388506D-04
        ws(  8) = 0.8003122420580639D-04
        ws(  9) = 0.9089339312967305D-04
        ws( 10) = 0.1020801399200638D-03
        ws( 11) = 0.1136660262565355D-03
        ws( 12) = 0.1257404092118507D-03
        ws( 13) = 0.1384035183672014D-03
        ws( 14) = 0.1517682865867651D-03
        ws( 15) = 0.1659518883946635D-03
        ws( 16) = 0.1811090240556793D-03
        ws( 17) = 0.1974032084272366D-03
        ws( 18) = 0.2149940125729939D-03
        ws( 19) = 0.2340854038809395D-03
        ws( 20) = 0.2549674651444460D-03
        ws( 21) = 0.2779315941858513D-03
        ws( 22) = 0.3032803498260486D-03
        ws( 23) = 0.3314423080913179D-03
        ws( 24) = 0.3629242364200458D-03
        ws( 25) = 0.3984589964763412D-03
        ws( 26) = 0.4385644247952119D-03
        ws( 27) = 0.4845702559246253D-03
        ws( 28) = 0.5375083347918661D-03
        ws( 29) = 0.5988626884835746D-03
        ws( 30) = 0.6708732785904967D-03
        ws( 31) = 0.7565765355027315D-03
        ws( 32) = 0.8606512101829566D-03
        ws( 33) = 0.9860684622278251D-03
        ws( 34) = 0.1141902085447664D-02
        ws( 35) = 0.1343476972908787D-02
        ws( 36) = 0.1617123260513709D-02
        ws( 37) = 0.2025734072881805D-02
        ws( 38) = 0.2638385205783789D-02
        ws( 39) = 0.3591722102019097D-02
        ws( 40) = 0.5242393134809824D-02
        ws( 41) = 0.8253282411801023D-02
        ws( 42) = 0.1343713102714634D-01
        ws( 43) = 0.1965755029357003D-01
        ws( 44) = 0.2238830834300469D-01
        ws( 45) = 0.1954913376795856D-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 =  49
        err = 0.6721870370462865D-04
        xs(  1) = 0.2485303585801134D-05
        xs(  2) = 0.1308177952279520D-04
        xs(  3) = 0.3214039794737596D-04
        xs(  4) = 0.5965412756932823D-04
        xs(  5) = 0.9562261058115504D-04
        xs(  6) = 0.1400660707508769D-03
        xs(  7) = 0.1930273090419271D-03
        xs(  8) = 0.2545830438965950D-03
        xs(  9) = 0.3248511801916485D-03
        xs( 10) = 0.4039912438188089D-03
        xs( 11) = 0.4922188871288992D-03
        xs( 12) = 0.5897989573416963D-03
        xs( 13) = 0.6970548340497836D-03
        xs( 14) = 0.8143785192619326D-03
        xs( 15) = 0.9422226888156913D-03
        xs( 16) = 0.1081125619621091D-02
        xs( 17) = 0.1231713773856468D-02
        xs( 18) = 0.1394708359309490D-02
        xs( 19) = 0.1570929434325547D-02
        xs( 20) = 0.1761323754158249D-02
        xs( 21) = 0.1966960755558486D-02
        xs( 22) = 0.2189108548697349D-02
        xs( 23) = 0.2429191698348919D-02
        xs( 24) = 0.2688836726373687D-02
        xs( 25) = 0.2969933620244688D-02
        xs( 26) = 0.3274663938649774D-02
        xs( 27) = 0.3605646593764982D-02
        xs( 28) = 0.3965775947137143D-02
        xs( 29) = 0.4358628402216985D-02
        xs( 30) = 0.4788369054355319D-02
        xs( 31) = 0.5259793595199319D-02
        xs( 32) = 0.5778886980609557D-02
        xs( 33) = 0.6352999883967169D-02
        xs( 34) = 0.6991179963849551D-02
        xs( 35) = 0.7704338420226249D-02
        xs( 36) = 0.8507145245052878D-02
        xs( 37) = 0.9418468677823507D-02
        xs( 38) = 0.1045956010654253D-01
        xs( 39) = 0.1166047814210704D-01
        xs( 40) = 0.1307049839607232D-01
        xs( 41) = 0.1479071188669629D-01
        xs( 42) = 0.1697060161931224D-01
        xs( 43) = 0.1981903455931482D-01
        xs( 44) = 0.2373814520937518D-01
        xs( 45) = 0.2954893233589914D-01
        xs( 46) = 0.3877525244431606D-01
        xs( 47) = 0.5378146981202375D-01
        xs( 48) = 0.7528447235710711D-01
        xs( 49) = 0.9899356772065943D-01
        ws(  1) = 0.6375274626190713D-05
        ws(  2) = 0.1482529672266943D-04
        ws(  3) = 0.2328828372239877D-04
        ws(  4) = 0.3174062641051737D-04
        ws(  5) = 0.4020063738119300D-04
        ws(  6) = 0.4869260903920324D-04
        ws(  7) = 0.5724449078852793D-04
        ws(  8) = 0.6588726344023633D-04
        ws(  9) = 0.7466949413804615D-04
        ws( 10) = 0.8364891429579575D-04
        ws( 11) = 0.9285487007356086D-04
        ws( 12) = 0.1023599069196437D-03
        ws( 13) = 0.1122156878592238D-03
        ws( 14) = 0.1225039913018567D-03
        ws( 15) = 0.1332797160888595D-03
        ws( 16) = 0.1446331336332861D-03
        ws( 17) = 0.1566608020287799D-03
        ws( 18) = 0.1694619180790618D-03
        ws( 19) = 0.1831442757482131D-03
        ws( 20) = 0.1978188728692993D-03
        ws( 21) = 0.2136658360185012D-03
        ws( 22) = 0.2308680087516601D-03
        ws( 23) = 0.2495684087746134D-03
        ws( 24) = 0.2700420874715704D-03
        ws( 25) = 0.2925085499389237D-03
        ws( 26) = 0.3173977804293952D-03
        ws( 27) = 0.3450376992676531D-03
        ws( 28) = 0.3758281998424967D-03
        ws( 29) = 0.4105681671066333D-03
        ws( 30) = 0.4497036638369488D-03
        ws( 31) = 0.4941422821988873D-03
        ws( 32) = 0.5452765116432194D-03
        ws( 33) = 0.6044527909346275D-03
        ws( 34) = 0.6737002049065234D-03
        ws( 35) = 0.7550332328229858D-03
        ws( 36) = 0.8537980331559032D-03
        ws( 37) = 0.9722200037789928D-03
        ws( 38) = 0.1114962932619602D-02
        ws( 39) = 0.1294167423926942D-02
        ws( 40) = 0.1543074430719457D-02
        ws( 41) = 0.1922423197493594D-02
        ws( 42) = 0.2469565376221886D-02
        ws( 43) = 0.3290716358054278D-02
        ws( 44) = 0.4679979489335536D-02
        ws( 45) = 0.7189095760188253D-02
        ws( 46) = 0.1168054088320286D-01
        ws( 47) = 0.1858845100871263D-01
        ws( 48) = 0.2355230317531650D-01
        ws( 49) = 0.2144790161941906D-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 =  53
        err = 0.8202228760186497D-04
        xs(  1) = 0.2103626935986643D-05
        xs(  2) = 0.1107618079424379D-04
        xs(  3) = 0.2720624215872704D-04
        xs(  4) = 0.5048224848385452D-04
        xs(  5) = 0.8088622726198248D-04
        xs(  6) = 0.1184189365732683D-03
        xs(  7) = 0.1630969575631230D-03
        xs(  8) = 0.2149534430716791D-03
        xs(  9) = 0.2740505153104927D-03
        xs( 10) = 0.3404829345835862D-03
        xs( 11) = 0.4143808774206234D-03
        xs( 12) = 0.4959120538127568D-03
        xs( 13) = 0.5852696504342672D-03
        xs( 14) = 0.6827076787411056D-03
        xs( 15) = 0.7885144427949470D-03
        xs( 16) = 0.9030239230840174D-03
        xs( 17) = 0.1026631809866417D-02
        xs( 18) = 0.1159797205317625D-02
        xs( 19) = 0.1303034399747386D-02
        xs( 20) = 0.1456926288512784D-02
        xs( 21) = 0.1622133563150015D-02
        xs( 22) = 0.1799402787635139D-02
        xs( 23) = 0.1989609207687248D-02
        xs( 24) = 0.2193717633798087D-02
        xs( 25) = 0.2412822946989944D-02
        xs( 26) = 0.2648159155986167D-02
        xs( 27) = 0.2901138250792841D-02
        xs( 28) = 0.3173449365271413D-02
        xs( 29) = 0.3466894681299040D-02
        xs( 30) = 0.3783678082441605D-02
        xs( 31) = 0.4126284020989411D-02
        xs( 32) = 0.4497626973897243D-02
        xs( 33) = 0.4900904260806627D-02
        xs( 34) = 0.5340145916605843D-02
        xs( 35) = 0.5820227175973001D-02
        xs( 36) = 0.6346971054444680D-02
        xs( 37) = 0.6926535744044785D-02
        xs( 38) = 0.7567938776407031D-02
        xs( 39) = 0.8282158586987408D-02
        xs( 40) = 0.9081932969816051D-02
        xs( 41) = 0.9983438122398219D-02
        xs( 42) = 0.1100459254176060D-01
        xs( 43) = 0.1217498378372772D-01
        xs( 44) = 0.1354666059123008D-01
        xs( 45) = 0.1521413528920998D-01
        xs( 46) = 0.1730881388826550D-01
        xs( 47) = 0.2002139682126495D-01
        xs( 48) = 0.2371795468653804D-01
        xs( 49) = 0.2912594134874813D-01
        xs( 50) = 0.3761213436971261D-01
        xs( 51) = 0.5164351302585887D-01
        xs( 52) = 0.7324319267695580D-01
        xs( 53) = 0.9868131571627987D-01
        ws(  1) = 0.5398201658944381D-05
        ws(  2) = 0.1255102564738553D-04
        ws(  3) = 0.1970600237990176D-04
        ws(  4) = 0.2683976478355824D-04
        ws(  5) = 0.3397268704321783D-04
        ws(  6) = 0.4109956883767024D-04
        ws(  7) = 0.4825522116659705D-04
        ws(  8) = 0.5546652815210203D-04
        ws(  9) = 0.6274718563276106D-04
        ws( 10) = 0.7014220618927957D-04
        ws( 11) = 0.7768221704917985D-04
        ws( 12) = 0.8540832539113245D-04
        ws( 13) = 0.9335349655952574D-04
        ws( 14) = 0.1015705504603294D-03
        ws( 15) = 0.1100993375792519D-03
        ws( 16) = 0.1189873673435315D-03
        ws( 17) = 0.1283035515140840D-03
        ws( 18) = 0.1381137340163212D-03
        ws( 19) = 0.1484578073552833D-03
        ws( 20) = 0.1594361880410197D-03
        ws( 21) = 0.1711030558328840D-03
        ws( 22) = 0.1835839170894362D-03
        ws( 23) = 0.1969916493637281D-03
        ws( 24) = 0.2114063175553373D-03
        ws( 25) = 0.2270135426304932D-03
        ws( 26) = 0.2438917859618592D-03
        ws( 27) = 0.2623573850521816D-03
        ws( 28) = 0.2825549778641750D-03
        ws( 29) = 0.3047171310273295D-03
        ws( 30) = 0.3292525979809973D-03
        ws( 31) = 0.3564626425567933D-03
        ws( 32) = 0.3867301397262231D-03
        ws( 33) = 0.4205131411352391D-03
        ws( 34) = 0.4587473528783511D-03
        ws( 35) = 0.5024322364586147D-03
        ws( 36) = 0.5519797482700674D-03
        ws( 37) = 0.6086933676373242D-03
        ws( 38) = 0.6759683581898884D-03
        ws( 39) = 0.7544853223709056D-03
        ws( 40) = 0.8479270583485152D-03
        ws( 41) = 0.9577881305511700D-03
        ws( 42) = 0.1089402577992942D-02
        ws( 43) = 0.1259437948628171D-02
        ws( 44) = 0.1500177581161653D-02
        ws( 45) = 0.1856150716409477D-02
        ws( 46) = 0.2363201582071439D-02
        ws( 47) = 0.3119859951192697D-02
        ws( 48) = 0.4390645350853017D-02
        ws( 49) = 0.6642459100649358D-02
        ws( 50) = 0.1074357834700831D-01
        ws( 51) = 0.1782394249819308D-01
        ws( 52) = 0.2460669695643353D-01
        ws( 53) = 0.2360853249950367D-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 =  57
        err = 0.9659614612035188D-04
        xs(  1) = 0.1795822921634792D-05
        xs(  2) = 0.9483433649307249D-05
        xs(  3) = 0.2330293956078391D-04
        xs(  4) = 0.4323111359223895D-04
        xs(  5) = 0.6925617385437494D-04
        xs(  6) = 0.1013596372026526D-03
        xs(  7) = 0.1395463108421351D-03
        xs(  8) = 0.1838280065822062D-03
        xs(  9) = 0.2342340520508511D-03
        xs( 10) = 0.2908198668322833D-03
        xs( 11) = 0.3536611441738115D-03
        xs( 12) = 0.4228694411225411D-03
        xs( 13) = 0.4985656298653439D-03
        xs( 14) = 0.5809109666870906D-03
        xs( 15) = 0.6700981736751009D-03
        xs( 16) = 0.7663474476046504D-03
        xs( 17) = 0.8699091545171687D-03
        xs( 18) = 0.9810836864727987D-03
        xs( 19) = 0.1100218658009929D-02
        xs( 20) = 0.1227691146927864D-02
        xs( 21) = 0.1363927372092506D-02
        xs( 22) = 0.1509402569411545D-02
        xs( 23) = 0.1664663946808757D-02
        xs( 24) = 0.1830331717309840D-02
        xs( 25) = 0.2007078717846571D-02
        xs( 26) = 0.2195686708288403D-02
        xs( 27) = 0.2396999589189444D-02
        xs( 28) = 0.2611985112000065D-02
        xs( 29) = 0.2841768614289569D-02
        xs( 30) = 0.3087526983026706D-02
        xs( 31) = 0.3350704429283250D-02
        xs( 32) = 0.3632951767093708D-02
        xs( 33) = 0.3936142260453944D-02
        xs( 34) = 0.4262222702392507D-02
        xs( 35) = 0.4613581762283385D-02
        xs( 36) = 0.4992828354132929D-02
        xs( 37) = 0.5403597698440560D-02
        xs( 38) = 0.5849527971288396D-02
        xs( 39) = 0.6334871141199152D-02
        xs( 40) = 0.6865737670372539D-02
        xs( 41) = 0.7448074398147740D-02
        xs( 42) = 0.8089262548773242D-02
        xs( 43) = 0.8799747186318721D-02
        xs( 44) = 0.9591228083841838D-02
        xs( 45) = 0.1047863930322348D-01
        xs( 46) = 0.1148144601147111D-01
        xs( 47) = 0.1262894802256959D-01
        xs( 48) = 0.1397466481026601D-01
        xs( 49) = 0.1560958760698442D-01
        xs( 50) = 0.1763815212392436D-01
        xs( 51) = 0.2021260346892135D-01
        xs( 52) = 0.2363096815137380D-01
        xs( 53) = 0.2851620716076240D-01
        xs( 54) = 0.3603336699139865D-01
        xs( 55) = 0.4837958322153610D-01
        xs( 56) = 0.6872272545852082D-01
        xs( 57) = 0.9539973355775636D-01
        ws(  1) = 0.4621235647008776D-05
        ws(  2) = 0.1075273885677307D-04
        ws(  3) = 0.1687305939924325D-04
        ws(  4) = 0.2298000000670721D-04
        ws(  5) = 0.2907266908933585D-04
        ws(  6) = 0.3513933269888586D-04
        ws(  7) = 0.4123123227838510D-04
        ws(  8) = 0.4733663541886865D-04
        ws(  9) = 0.5348537700260263D-04
        ws( 10) = 0.5969974141484570D-04
        ws( 11) = 0.6600457861159443D-04
        ws( 12) = 0.7242951725291759D-04
        ws( 13) = 0.7899174546397369D-04
        ws( 14) = 0.8573040951984761D-04
        ws( 15) = 0.9267834097556874D-04
        ws( 16) = 0.9986192675862648D-04
        ws( 17) = 0.1073140783894617D-03
        ws( 18) = 0.1150926178175997D-03
        ws( 19) = 0.1232388731393618D-03
        ws( 20) = 0.1317775519394459D-03
        ws( 21) = 0.1407713285783924D-03
        ws( 22) = 0.1502697238725397D-03
        ws( 23) = 0.1603573768712195D-03
        ws( 24) = 0.1710902815026273D-03
        ws( 25) = 0.1825349832909493D-03
        ws( 26) = 0.1948190237238113D-03
        ws( 27) = 0.2079708424891030D-03
        ws( 28) = 0.2221936923571386D-03
        ws( 29) = 0.2375565373512216D-03
        ws( 30) = 0.2542102467477354D-03
        ws( 31) = 0.2724166874820019D-03
        ws( 32) = 0.2924067580748385D-03
        ws( 33) = 0.3142775985014156D-03
        ws( 34) = 0.3383004811345293D-03
        ws( 35) = 0.3648060312524198D-03
        ws( 36) = 0.3943349089409907D-03
        ws( 37) = 0.4277811542893121D-03
        ws( 38) = 0.4647541863879545D-03
        ws( 39) = 0.5070200661784471D-03
        ws( 40) = 0.5556589773151867D-03
        ws( 41) = 0.6102249767589096D-03
        ws( 42) = 0.6739306868911561D-03
        ws( 43) = 0.7489561228696382D-03
        ws( 44) = 0.8365144290374428D-03
        ws( 45) = 0.9413740391569242D-03
        ws( 46) = 0.1069031601388434D-02
        ws( 47) = 0.1234322289202989D-02
        ws( 48) = 0.1473185953331622D-02
        ws( 49) = 0.1813089096222016D-02
        ws( 50) = 0.2268602911908737D-02
        ws( 51) = 0.2926014593053358D-02
        ws( 52) = 0.4011506104805274D-02
        ws( 53) = 0.5945091137006802D-02
        ws( 54) = 0.9445724775647910D-02
        ws( 55) = 0.1586663383396750D-01
        ws( 56) = 0.2457042719258145D-01
        ws( 57) = 0.2565097850907168D-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 =  62
        err = 0.5494149752096384D-04
        xs(  1) = 0.1536797057531484D-05
        xs(  2) = 0.8097062696932206D-05
        xs(  3) = 0.1988650198516486D-04
        xs(  4) = 0.3690244259564424D-04
        xs(  5) = 0.5912762576751138D-04
        xs(  6) = 0.8655424785273025D-04
        xs(  7) = 0.1191807280565707D-03
        xs(  8) = 0.1570111202549369D-03
        xs(  9) = 0.2000646573318938D-03
        xs( 10) = 0.2483744596017228D-03
        xs( 11) = 0.3019904889437215D-03
        xs( 12) = 0.3609784449356098D-03
        xs( 13) = 0.4254215881769893D-03
        xs( 14) = 0.4954231572276489D-03
        xs( 15) = 0.5711125607675981D-03
        xs( 16) = 0.6526377716928223D-03
        xs( 17) = 0.7401653377247710D-03
        xs( 18) = 0.8338911448819052D-03
        xs( 19) = 0.9340454348346066D-03
        xs( 20) = 0.1040884292860095D-02
        xs( 21) = 0.1154688280877000D-02
        xs( 22) = 0.1275772834450947D-02
        xs( 23) = 0.1404489765676987D-02
        xs( 24) = 0.1541247469526895D-02
        xs( 25) = 0.1686490242262390D-02
        xs( 26) = 0.1840700631429410D-02
        xs( 27) = 0.2004424986175787D-02
        xs( 28) = 0.2178259121985459D-02
        xs( 29) = 0.2362888867175552D-02
        xs( 30) = 0.2559079751569878D-02
        xs( 31) = 0.2767658939518656D-02
        xs( 32) = 0.2989580776535770D-02
        xs( 33) = 0.3225914126515612D-02
        xs( 34) = 0.3477842574139326D-02
        xs( 35) = 0.3746726651613201D-02
        xs( 36) = 0.4034055951970990D-02
        xs( 37) = 0.4341502840681018D-02
        xs( 38) = 0.4671194892360302D-02
        xs( 39) = 0.5025258427288166D-02
        xs( 40) = 0.5406215039081137D-02
        xs( 41) = 0.5817301804327913D-02
        xs( 42) = 0.6261849127690750D-02
        xs( 43) = 0.6743924301128226D-02
        xs( 44) = 0.7268476942926566D-02
        xs( 45) = 0.7841290871588465D-02
        xs( 46) = 0.8469385125855823D-02
        xs( 47) = 0.9161333856438861D-02
        xs( 48) = 0.9928152866271267D-02
        xs( 49) = 0.1078323793576485D-01
        xs( 50) = 0.1174287484114498D-01
        xs( 51) = 0.1282597293862959D-01
        xs( 52) = 0.1406168947913498D-01
        xs( 53) = 0.1549893287797104D-01
        xs( 54) = 0.1722573486506643D-01
        xs( 55) = 0.1936197334009088D-01
        xs( 56) = 0.2208231996135287D-01
        xs( 57) = 0.2570577494410056D-01
        xs( 58) = 0.3085501925846056D-01
        xs( 59) = 0.3870771557982374D-01
        xs( 60) = 0.5140734893721346D-01
        xs( 61) = 0.7206144755938297D-01
        xs( 62) = 0.9930017028473817D-01
        ws(  1) = 0.3941906353653105D-05
        ws(  2) = 0.9177503513167636D-05
        ws(  3) = 0.1440627757589193D-04
        ws(  4) = 0.1962064815832282D-04
        ws(  5) = 0.2482957711615962D-04
        ws(  6) = 0.3002602849093543D-04
        ws(  7) = 0.3522615421246143D-04
        ws(  8) = 0.4043600820911348D-04
        ws(  9) = 0.4567446040285241D-04
        ws( 10) = 0.5095393253576326D-04
        ws( 11) = 0.5628984455121309D-04
        ws( 12) = 0.6170130363193590D-04
        ws( 13) = 0.6720153693881474D-04
        ws( 14) = 0.7282186894229746D-04
        ws( 15) = 0.7858082423356128D-04
        ws( 16) = 0.8449719946032085D-04
        ws( 17) = 0.9059067601898235D-04
        ws( 18) = 0.9689899470664405D-04
        ws( 19) = 0.1034522101102445D-03
        ws( 20) = 0.1102718320681194D-03
        ws( 21) = 0.1173901720613905D-03
        ws( 22) = 0.1248365490693659D-03
        ws( 23) = 0.1326660238371975D-03
        ws( 24) = 0.1409239625047599D-03
        ws( 25) = 0.1496418184808834D-03
        ws( 26) = 0.1588726033061556D-03
        ws( 27) = 0.1686743477682338D-03
        ws( 28) = 0.1791086532861601D-03
        ws( 29) = 0.1902803316909855D-03
        ws( 30) = 0.2022353512440672D-03
        ws( 31) = 0.2150812268211056D-03
        ws( 32) = 0.2289412122695166D-03
        ws( 33) = 0.2439236219028356D-03
        ws( 34) = 0.2601580704454386D-03
        ws( 35) = 0.2778578625680512D-03
        ws( 36) = 0.2970614788578626D-03
        ws( 37) = 0.3182074482804703D-03
        ws( 38) = 0.3415158478012834D-03
        ws( 39) = 0.3670273350889879D-03
        ws( 40) = 0.3954454007337806D-03
        ws( 41) = 0.4272698705099952D-03
        ws( 42) = 0.4625014826249793D-03
        ws( 43) = 0.5024793943257928D-03
        ws( 44) = 0.5475846635907574D-03
        ws( 45) = 0.5992026179902672D-03
        ws( 46) = 0.6583993485331831D-03
        ws( 47) = 0.7273474405615247D-03
        ws( 48) = 0.8084755791186877D-03
        ws( 49) = 0.9045002751712651D-03
        ws( 50) = 0.1017682545804185D-02
        ws( 51) = 0.1153347367576843D-02
        ws( 52) = 0.1325683798543731D-02
        ws( 53) = 0.1563807704903075D-02
        ws( 54) = 0.1909438188389953D-02
        ws( 55) = 0.2390835675239431D-02
        ws( 56) = 0.3100249249776575D-02
        ws( 57) = 0.4245764924113513D-02
        ws( 58) = 0.6243830263341353D-02
        ws( 59) = 0.9807911814590165D-02
        ws( 60) = 0.1618918485434407D-01
        ws( 61) = 0.2496267667141749D-01
        ws( 62) = 0.2643201320775713D-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 =  66
        err = 0.7458615654078270D-04
        xs(  1) = 0.1347803383872912D-05
        xs(  2) = 0.7098870934577757D-05
        xs(  3) = 0.1743738928640107D-04
        xs(  4) = 0.3235432233295240D-04
        xs(  5) = 0.5183522720237338D-04
        xs(  6) = 0.7587254560209053D-04
        xs(  7) = 0.1044519605634134D-03
        xs(  8) = 0.1375735191842576D-03
        xs(  9) = 0.1752453398324853D-03
        xs( 10) = 0.2174828006971564D-03
        xs( 11) = 0.2643156871412839D-03
        xs( 12) = 0.3157878116661865D-03
        xs( 13) = 0.3719507429494575D-03
        xs( 14) = 0.4328745040574579D-03
        xs( 15) = 0.4986453279030918D-03
        xs( 16) = 0.5693706989565164D-03
        xs( 17) = 0.6451632218749288D-03
        xs( 18) = 0.7261557732180097D-03
        xs( 19) = 0.8125078669877664D-03
        xs( 20) = 0.9044021292267586D-03
        xs( 21) = 0.1002036730563143D-02
        xs( 22) = 0.1105632636578483D-02
        xs( 23) = 0.1215428777466157D-02
        xs( 24) = 0.1331694773494525D-02
        xs( 25) = 0.1454749508335786D-02
        xs( 26) = 0.1584933142025289D-02
        xs( 27) = 0.1722603555532103D-02
        xs( 28) = 0.1868171786741157D-02
        xs( 29) = 0.2022077550494870D-02
        xs( 30) = 0.2184838286144325D-02
        xs( 31) = 0.2357010789618126D-02
        xs( 32) = 0.2539162501600179D-02
        xs( 33) = 0.2732016839004685D-02
        xs( 34) = 0.2936327911181478D-02
        xs( 35) = 0.3152914919589451D-02
        xs( 36) = 0.3382740178030984D-02
        xs( 37) = 0.3626860376495575D-02
        xs( 38) = 0.3886366593290731D-02
        xs( 39) = 0.4162597279029643D-02
        xs( 40) = 0.4457128950587270D-02
        xs( 41) = 0.4771540672386466D-02
        xs( 42) = 0.5107722104758853D-02
        xs( 43) = 0.5467987984275143D-02
        xs( 44) = 0.5854810980040237D-02
        xs( 45) = 0.6270994835305954D-02
        xs( 46) = 0.6719838811027992D-02
        xs( 47) = 0.7205465288438680D-02
        xs( 48) = 0.7732038032157765D-02
        xs( 49) = 0.8305554520549685D-02
        xs( 50) = 0.8933095339705020D-02
        xs( 51) = 0.9622178916209437D-02
        xs( 52) = 0.1038356598817143D-01
        xs( 53) = 0.1122828741525611D-01
        xs( 54) = 0.1216915507065451D-01
        xs( 55) = 0.1322653951402184D-01
        xs( 56) = 0.1443311535402216D-01
        xs( 57) = 0.1583725269731916D-01
        xs( 58) = 0.1752159559635237D-01
        xs( 59) = 0.1959199420786767D-01
        xs( 60) = 0.2221482020321991D-01
        xs( 61) = 0.2569361075578891D-01
        xs( 62) = 0.3057567888206455D-01
        xs( 63) = 0.3788663594111153D-01
        xs( 64) = 0.4960039545936874D-01
        xs( 65) = 0.6901084254916832D-01
        xs( 66) = 0.9672914313898821D-01
        ws(  1) = 0.3452828031452077D-05
        ws(  2) = 0.8049447295424626D-05
        ws(  3) = 0.1263208031345151D-04
        ws(  4) = 0.1720272988545620D-04
        ws(  5) = 0.2176167472823063D-04
        ws(  6) = 0.2630367103509641D-04
        ws(  7) = 0.3085569945930028D-04
        ws(  8) = 0.3539307550311309D-04
        ws(  9) = 0.3994897116467923D-04
        ws( 10) = 0.4453029790573158D-04
        ws( 11) = 0.4914526649903613D-04
        ws( 12) = 0.5380708468439787D-04
        ws( 13) = 0.5852956821594044D-04
        ws( 14) = 0.6333206627728348D-04
        ws( 15) = 0.6822893471329084D-04
        ws( 16) = 0.7323926738548780D-04
        ws( 17) = 0.7836717542976792D-04
        ws( 18) = 0.8364409614882695D-04
        ws( 19) = 0.8909078268455839D-04
        ws( 20) = 0.9472981396275976D-04
        ws( 21) = 0.1005761240053053D-03
        ws( 22) = 0.1066543407103818D-03
        ws( 23) = 0.1129811893075422D-03
        ws( 24) = 0.1196039657756686D-03
        ws( 25) = 0.1265628519290106D-03
        ws( 26) = 0.1338607403046317D-03
        ws( 27) = 0.1415489764402960D-03
        ws( 28) = 0.1496580142457925D-03
        ws( 29) = 0.1582383908660977D-03
        ws( 30) = 0.1673792134494700D-03
        ws( 31) = 0.1770548162847502D-03
        ws( 32) = 0.1873717457926522D-03
        ws( 33) = 0.1984617312492448D-03
        ws( 34) = 0.2102989815186025D-03
        ws( 35) = 0.2230356769760950D-03
        ws( 36) = 0.2367913161467609D-03
        ws( 37) = 0.2516240088378253D-03
        ws( 38) = 0.2676105291530153D-03
        ws( 39) = 0.2851233905773245D-03
        ws( 40) = 0.3041933147407125D-03
        ws( 41) = 0.3249465875319707D-03
        ws( 42) = 0.3478182112809895D-03
        ws( 43) = 0.3731239826866312D-03
        ws( 44) = 0.4010018858946184D-03
        ws( 45) = 0.4319032414519833D-03
        ws( 46) = 0.4665202968284140D-03
        ws( 47) = 0.5053639379371662D-03
        ws( 48) = 0.5488108268797044D-03
        ws( 49) = 0.5994387641238419D-03
        ws( 50) = 0.6567945255488854D-03
        ws( 51) = 0.7232880155940216D-03
        ws( 52) = 0.8012670548856477D-03
        ws( 53) = 0.8902536469936616D-03
        ws( 54) = 0.9946926768911739D-03
        ws( 55) = 0.1125736152217667D-02
        ws( 56) = 0.1294621171634732D-02
        ws( 57) = 0.1528340995135338D-02
        ws( 58) = 0.1856852785140294D-02
        ws( 59) = 0.2310559974346917D-02
        ws( 60) = 0.2983983913506396D-02
        ws( 61) = 0.4061319114648230D-02
        ws( 62) = 0.5866051395487734D-02
        ws( 63) = 0.9074012425202917D-02
        ws( 64) = 0.1492752830288872D-01
        ws( 65) = 0.2423071186756966D-01
        ws( 66) = 0.2836671197967990D-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 =  71
        err = 0.4699221617696518D-04
        xs(  1) = 0.1176514787003273D-05
        xs(  2) = 0.6202040596445383D-05
        xs(  3) = 0.1523746323887388D-04
        xs(  4) = 0.2827110951900949D-04
        xs(  5) = 0.4529348038214689D-04
        xs(  6) = 0.6629285479250103D-04
        xs(  7) = 0.9125694649025643D-04
        xs(  8) = 0.1201855293667110D-03
        xs(  9) = 0.1530761631803482D-03
        xs( 10) = 0.1899380011284767D-03
        xs( 11) = 0.2307896944964632D-03
        xs( 12) = 0.2756571782526289D-03
        xs( 13) = 0.3245767210462845D-03
        xs( 14) = 0.3775962736884645D-03
        xs( 15) = 0.4347727982858561D-03
        xs( 16) = 0.4961788041408416D-03
        xs( 17) = 0.5618956795303219D-03
        xs( 18) = 0.6320171722207538D-03
        xs( 19) = 0.7066529348225139D-03
        xs( 20) = 0.7859296576993931D-03
        xs( 21) = 0.8699877796086160D-03
        xs( 22) = 0.9589800812895263D-03
        xs( 23) = 0.1053079239622530D-02
        xs( 24) = 0.1152472612804857D-02
        xs( 25) = 0.1257374850307860D-02
        xs( 26) = 0.1368019067145913D-02
        xs( 27) = 0.1484658106317793D-02
        xs( 28) = 0.1607574071797361D-02
        xs( 29) = 0.1737069507201293D-02
        xs( 30) = 0.1873476741424445D-02
        xs( 31) = 0.2017182406667560D-02
        xs( 32) = 0.2168585213196647D-02
        xs( 33) = 0.2328118371989774D-02
        xs( 34) = 0.2496273789684554D-02
        xs( 35) = 0.2673601925732967D-02
        xs( 36) = 0.2860706222457560D-02
        xs( 37) = 0.3058221589837950D-02
        xs( 38) = 0.3266893152910099D-02
        xs( 39) = 0.3487497936873863D-02
        xs( 40) = 0.3720975732439362D-02
        xs( 41) = 0.3968287277914357D-02
        xs( 42) = 0.4230552714014719D-02
        xs( 43) = 0.4509009577437842D-02
        xs( 44) = 0.4805082619719940D-02
        xs( 45) = 0.5120308256862850D-02
        xs( 46) = 0.5456439507149066D-02
        xs( 47) = 0.5815465246083429D-02
        xs( 48) = 0.6199774143384148D-02
        xs( 49) = 0.6612068304024996D-02
        xs( 50) = 0.7055394074546075D-02
        xs( 51) = 0.7533134585499377D-02
        xs( 52) = 0.8049366317720637D-02
        xs( 53) = 0.8609261797789484D-02
        xs( 54) = 0.9218836004492159D-02
        xs( 55) = 0.9884976496654914D-02
        xs( 56) = 0.1061581250439942D-01
        xs( 57) = 0.1142198179460329D-01
        xs( 58) = 0.1231635024230329D-01
        xs( 59) = 0.1331377331316682D-01
        xs( 60) = 0.1443572479296564D-01
        xs( 61) = 0.1571859362820482D-01
        xs( 62) = 0.1722157492212978D-01
        xs( 63) = 0.1903414812338838D-01
        xs( 64) = 0.2126516112807075D-01
        xs( 65) = 0.2409017908600079D-01
        xs( 66) = 0.2783093317602470D-01
        xs( 67) = 0.3308930419294296D-01
        xs( 68) = 0.4097963924571196D-01
        xs( 69) = 0.5356713447502985D-01
        xs( 70) = 0.7421327312593223D-01
        xs( 71) = 0.1032913413939294D+00
        ws(  1) = 0.3020465850411957D-05
        ws(  2) = 0.7030649966614639D-05
        ws(  3) = 0.1103720236390429D-04
        ws(  4) = 0.1503092317344858D-04
        ws(  5) = 0.1901314922672100D-04
        ws(  6) = 0.2298285746719342D-04
        ws(  7) = 0.2694512055685871D-04
        ws(  8) = 0.3090759078354885D-04
        ws(  9) = 0.3487659367082437D-04
        ws( 10) = 0.3885440330404584D-04
        ws( 11) = 0.4285188620256221D-04
        ws( 12) = 0.4688616837710930D-04
        ws( 13) = 0.5096183424515954D-04
        ws( 14) = 0.5508722086201314D-04
        ws( 15) = 0.5927831907338575D-04
        ws( 16) = 0.6354734186168883D-04
        ws( 17) = 0.6790094893641849D-04
        ws( 18) = 0.7236014494858946D-04
        ws( 19) = 0.7693332029469282D-04
        ws( 20) = 0.8164366465205014D-04
        ws( 21) = 0.8649756504457613D-04
        ws( 22) = 0.9151593021327720D-04
        ws( 23) = 0.9671271792054818D-04
        ws( 24) = 0.1021123442869911D-03
        ws( 25) = 0.1077321695166890D-03
        ws( 26) = 0.1135974091434981D-03
        ws( 27) = 0.1197282025078205D-03
        ws( 28) = 0.1261550088718033D-03
        ws( 29) = 0.1328904641370621D-03
        ws( 30) = 0.1399913465989767D-03
        ws( 31) = 0.1474869396103941D-03
        ws( 32) = 0.1553893836914812D-03
        ws( 33) = 0.1637596345123973D-03
        ws( 34) = 0.1726419182427597D-03
        ws( 35) = 0.1821176286291573D-03
        ws( 36) = 0.1921939145331951D-03
        ws( 37) = 0.2029669910420276D-03
        ws( 38) = 0.2144988278619278D-03
        ws( 39) = 0.2268757926428380D-03
        ws( 40) = 0.2402333428760732D-03
        ws( 41) = 0.2545802396978274D-03
        ws( 42) = 0.2701539252493371D-03
        ws( 43) = 0.2870078712975122D-03
        ws( 44) = 0.3053898391340429D-03
        ws( 45) = 0.3253626439670718D-03
        ws( 46) = 0.3472193632841824D-03
        ws( 47) = 0.3712415151029435D-03
        ws( 48) = 0.3978115638862761D-03
        ws( 49) = 0.4272903712936932D-03
        ws( 50) = 0.4599111454773039D-03
        ws( 51) = 0.4962272729653772D-03
        ws( 52) = 0.5371151181686353D-03
        ws( 53) = 0.5836610508977906D-03
        ws( 54) = 0.6366352004367849D-03
        ws( 55) = 0.6969736265886877D-03
        ws( 56) = 0.7664868354650892D-03
        ws( 57) = 0.8479857517684516D-03
        ws( 58) = 0.9432308344618199D-03
        ws( 59) = 0.1054946423848418D-02
        ws( 60) = 0.1195056565306793D-02
        ws( 61) = 0.1380061566149060D-02
        ws( 62) = 0.1641700189805346D-02
        ws( 63) = 0.2000254784940671D-02
        ws( 64) = 0.2490010383312049D-02
        ws( 65) = 0.3211398922622270D-02
        ws( 66) = 0.4366928292969566D-02
        ws( 67) = 0.6328533595176604D-02
        ws( 68) = 0.9786850060141789D-02
        ws( 69) = 0.1597677382129519D-01
        ws( 70) = 0.2559093862239684D-01
        ws( 71) = 0.2978770418435188D-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 =  75
        err = 0.7200460648586606D-04
        xs(  1) = 0.1051355962708316D-05
        xs(  2) = 0.5531032265385413D-05
        xs(  3) = 0.1358213394019885D-04
        xs(  4) = 0.2519833533210590D-04
        xs(  5) = 0.4036429950762185D-04
        xs(  6) = 0.5906845144328629D-04
        xs(  7) = 0.8130000175715623D-04
        xs(  8) = 0.1070513911135925D-03
        xs(  9) = 0.1363173945122298D-03
        xs( 10) = 0.1691027172611570D-03
        xs( 11) = 0.2054136132730035D-03
        xs( 12) = 0.2452675743855534D-03
        xs( 13) = 0.2886866987736570D-03
        xs( 14) = 0.3357074012314873D-03
        xs( 15) = 0.3863642816215942D-03
        xs( 16) = 0.4407103581131061D-03
        xs( 17) = 0.4988064752784002D-03
        xs( 18) = 0.5607160423684859D-03
        xs( 19) = 0.6265195547213516D-03
        xs( 20) = 0.6963072276191237D-03
        xs( 21) = 0.7701851046097853D-03
        xs( 22) = 0.8482645594454201D-03
        xs( 23) = 0.9306706283727691D-03
        xs( 24) = 0.1017540052910336D-02
        xs( 25) = 0.1109024319691894D-02
        xs( 26) = 0.1205296551160467D-02
        xs( 27) = 0.1306544628746450D-02
        xs( 28) = 0.1412963577957283D-02
        xs( 29) = 0.1524775249371475D-02
        xs( 30) = 0.1642217446118804D-02
        xs( 31) = 0.1765552928141776D-02
        xs( 32) = 0.1895082677749436D-02
        xs( 33) = 0.2031105204036026D-02
        xs( 34) = 0.2173951840731328D-02
        xs( 35) = 0.2324006134710794D-02
        xs( 36) = 0.2481686873337624D-02
        xs( 37) = 0.2647442065653250D-02
        xs( 38) = 0.2821739621499072D-02
        xs( 39) = 0.3005128190801959D-02
        xs( 40) = 0.3198186741767107D-02
        xs( 41) = 0.3401579930921535D-02
        xs( 42) = 0.3616022440344623D-02
        xs( 43) = 0.3842319827087859D-02
        xs( 44) = 0.4081307593101633D-02
        xs( 45) = 0.4334004403328659D-02
        xs( 46) = 0.4601500773801347D-02
        xs( 47) = 0.4884970142627021D-02
        xs( 48) = 0.5185719235563595D-02
        xs( 49) = 0.5505322364803109D-02
        xs( 50) = 0.5845488944566689D-02
        xs( 51) = 0.6208174867649272D-02
        xs( 52) = 0.6595725550234548D-02
        xs( 53) = 0.7010642274476142D-02
        xs( 54) = 0.7455663702180083D-02
        xs( 55) = 0.7934359799404458D-02
        xs( 56) = 0.8450736950279468D-02
        xs( 57) = 0.9008872661853993D-02
        xs( 58) = 0.9614740803271776D-02
        xs( 59) = 0.1027559832626227D-01
        xs( 60) = 0.1099891614994451D-01
        xs( 61) = 0.1179474853652132D-01
        xs( 62) = 0.1267343975581226D-01
        xs( 63) = 0.1364752278660064D-01
        xs( 64) = 0.1474041379348220D-01
        xs( 65) = 0.1598607242821931D-01
        xs( 66) = 0.1743862071760584D-01
        xs( 67) = 0.1918474554442445D-01
        xs( 68) = 0.2131749379384422D-01
        xs( 69) = 0.2399032111003056D-01
        xs( 70) = 0.2748864104526433D-01
        xs( 71) = 0.3235199813499675D-01
        xs( 72) = 0.3956700160809205D-01
        xs( 73) = 0.5093222391862959D-01
        xs( 74) = 0.6982897939262435D-01
        xs( 75) = 0.9882903575932267D-01
        ws(  1) = 0.2695236907471954D-05
        ws(  2) = 0.6266029705104720D-05
        ws(  3) = 0.9834758736949867D-05
        ws(  4) = 0.1339532863942225D-04
        ws(  5) = 0.1693759582600582D-04
        ws(  6) = 0.2046942609469263D-04
        ws(  7) = 0.2399062283008643D-04
        ws(  8) = 0.2750992941033016D-04
        ws(  9) = 0.3102420296732327D-04
        ws( 10) = 0.3454628623050998D-04
        ws( 11) = 0.3807733319782169D-04
        ws( 12) = 0.4163534240513684D-04
        ws( 13) = 0.4521232076768843D-04
        ws( 14) = 0.4882927309538315D-04
        ws( 15) = 0.5249436021710676D-04
        ws( 16) = 0.5621012561429917D-04
        ws( 17) = 0.5998994540484278D-04
        ws( 18) = 0.6384340192470967D-04
        ws( 19) = 0.6777906741482984D-04
        ws( 20) = 0.7181426963657496D-04
        ws( 21) = 0.7595900398401195D-04
        ws( 22) = 0.8022103068020081D-04
        ws( 23) = 0.8461461755846334D-04
        ws( 24) = 0.8914848482654497D-04
        ws( 25) = 0.9384750444147977D-04
        ws( 26) = 0.9872991862892972D-04
        ws( 27) = 0.1037988739778536D-03
        ws( 28) = 0.1090761546123323D-03
        ws( 29) = 0.1145863269709113D-03
        ws( 30) = 0.1203403523846661D-03
        ws( 31) = 0.1263797485973840D-03
        ws( 32) = 0.1327267543799627D-03
        ws( 33) = 0.1393739551688806D-03
        ws( 34) = 0.1463845573629369D-03
        ws( 35) = 0.1537923322904638D-03
        ws( 36) = 0.1616409752113384D-03
        ws( 37) = 0.1699424102334656D-03
        ws( 38) = 0.1787484212481490D-03
        ws( 39) = 0.1881237597249822D-03
        ws( 40) = 0.1981069199785778D-03
        ws( 41) = 0.2087942905702678D-03
        ws( 42) = 0.2202289095463451D-03
        ws( 43) = 0.2325021255140773D-03
        ws( 44) = 0.2456523148922979D-03
        ws( 45) = 0.2599244124803548D-03
        ws( 46) = 0.2752621832325111D-03
        ws( 47) = 0.2918865242104334D-03
        ws( 48) = 0.3098791029158313D-03
        ws( 49) = 0.3296069700032384D-03
        ws( 50) = 0.3510482438422370D-03
        ws( 51) = 0.3747223424243676D-03
        ws( 52) = 0.4007978408071523D-03
        ws( 53) = 0.4294861167624349D-03
        ws( 54) = 0.4611569273938618D-03
        ws( 55) = 0.4969328491336549D-03
        ws( 56) = 0.5364580388719507D-03
        ws( 57) = 0.5808025340146577D-03
        ws( 58) = 0.6322200669191563D-03
        ws( 59) = 0.6906205099809546D-03
        ws( 60) = 0.7577649231075608D-03
        ws( 61) = 0.8356228718369644D-03
        ws( 62) = 0.9236475430887257D-03
        ws( 63) = 0.1028401983466713D-02
        ws( 64) = 0.1163040337569984D-02
        ws( 65) = 0.1336715669629278D-02
        ws( 66) = 0.1583871787968296D-02
        ws( 67) = 0.1922626052155322D-02
        ws( 68) = 0.2367247908030160D-02
        ws( 69) = 0.3024468117060103D-02
        ws( 70) = 0.4058522033578493D-02
        ws( 71) = 0.5828425721065253D-02
        ws( 72) = 0.8884808042776705D-02
        ws( 73) = 0.1440020117871233D-01
        ws( 74) = 0.2414424986613769D-01
        ws( 75) = 0.3159742717898940D-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 =  12
        err = 0.4584202028278533D-04
        xs(  1) = 0.8453128797323466D-03
        xs(  2) = 0.4116898244273898D-02
        xs(  3) = 0.9220056823335215D-02
        xs(  4) = 0.1561677720043015D-01
        xs(  5) = 0.2295118571116266D-01
        xs(  6) = 0.3098831498828851D-01
        xs(  7) = 0.3957367956347070D-01
        xs(  8) = 0.4860639328129933D-01
        xs(  9) = 0.5802300772733089D-01
        xs( 10) = 0.6778540186382324D-01
        xs( 11) = 0.7787772737396338D-01
        xs( 12) = 0.8835383284264553D-01
        ws(  1) = 0.2119684324638180D-02
        ws(  2) = 0.4296200813368594D-02
        ws(  3) = 0.5821756148547836D-02
        ws(  4) = 0.6912987021428207D-02
        ws(  5) = 0.7716869363184374D-02
        ws(  6) = 0.8331744250401863D-02
        ws(  7) = 0.8822764718360293D-02
        ws(  8) = 0.9235742473590934D-02
        ws(  9) = 0.9606555227952590D-02
        ws( 10) = 0.9975578657766160D-02
        ws( 11) = 0.1045645003787515D-01
        ws( 12) = 0.1211031688678982D-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 =  12
        err = 0.4656794480697336D-04
        xs(  1) = 0.8482220371552984D-03
        xs(  2) = 0.4128299945794111D-02
        xs(  3) = 0.9238704187290501D-02
        xs(  4) = 0.1563985525330124D-01
        xs(  5) = 0.2297687908578660D-01
        xs(  6) = 0.3101559362590880D-01
        xs(  7) = 0.3960192913888779D-01
        xs(  8) = 0.4863526443266083D-01
        xs(  9) = 0.5805202305219630D-01
        xs( 10) = 0.6781465504367896D-01
        xs( 11) = 0.7790714889485247D-01
        xs( 12) = 0.8838178980756123D-01
        ws(  1) = 0.2126592165115787D-02
        ws(  2) = 0.4304822655817187D-02
        ws(  3) = 0.5827475741792056D-02
        ws(  4) = 0.6916329279357620D-02
        ws(  5) = 0.7718905147560627D-02
        ws(  6) = 0.8332961421374230D-02
        ws(  7) = 0.8823582694566219D-02
        ws(  8) = 0.9236155234721325D-02
        ws(  9) = 0.9606658859233249D-02
        ws( 10) = 0.9976349300695740D-02
        ws( 11) = 0.1045655282391470D-01
        ws( 12) = 0.1211080158293486D-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 =  12
        err = 0.4758752757433513D-04
        xs(  1) = 0.8515005035908086D-03
        xs(  2) = 0.4148608385714561D-02
        xs(  3) = 0.9278674646514282D-02
        xs(  4) = 0.1569348497176271D-01
        xs(  5) = 0.2303952117471713D-01
        xs(  6) = 0.3108455799850676D-01
        xs(  7) = 0.3967585660474268D-01
        xs(  8) = 0.4871406123255205D-01
        xs(  9) = 0.5813387062897349D-01
        xs( 10) = 0.6790190132538337D-01
        xs( 11) = 0.7800007124098091D-01
        xs( 12) = 0.8846305148167130D-01
        ws(  1) = 0.2136260200705300D-02
        ws(  2) = 0.4325979268586753D-02
        ws(  3) = 0.5844369681635891D-02
        ws(  4) = 0.6927235843171371D-02
        ws(  5) = 0.7726642579317084D-02
        ws(  6) = 0.8338469201675310D-02
        ws(  7) = 0.8829019652718302D-02
        ws(  8) = 0.9240881849805722D-02
        ws(  9) = 0.9610942662175274D-02
        ws( 10) = 0.9988530482058415D-02
        ws( 11) = 0.1046554379919447D-01
        ws( 12) = 0.1212245823006722D-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 =  12
        err = 0.5733561399756565D-04
        xs(  1) = 0.8143273774839758D-03
        xs(  2) = 0.4038270041928977D-02
        xs(  3) = 0.9122163657201811D-02
        xs(  4) = 0.1550320661523899D-01
        xs(  5) = 0.2282182362339255D-01
        xs(  6) = 0.3084520901697314D-01
        xs(  7) = 0.3942049275276478D-01
        xs(  8) = 0.4844754369426435D-01
        xs(  9) = 0.5786018111015600D-01
        xs( 10) = 0.6762437736944034D-01
        xs( 11) = 0.7771718204640091D-01
        xs( 12) = 0.8816506297586942D-01
        ws(  1) = 0.2057359136009116D-02
        ws(  2) = 0.4267614010436187D-02
        ws(  3) = 0.5806743780038680D-02
        ws(  4) = 0.6897202555897053D-02
        ws(  5) = 0.7702707409779276D-02
        ws(  6) = 0.8320571217943024D-02
        ws(  7) = 0.8817187807218296D-02
        ws(  8) = 0.9234487647006510D-02
        ws(  9) = 0.9610983084202312D-02
        ws( 10) = 0.9997193004569745D-02
        ws( 11) = 0.1048692157990532D-01
        ws( 12) = 0.1219368118732365D-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 =  12
        err = 0.8054982057051929D-04
        xs(  1) = 0.7222499393660309D-03
        xs(  2) = 0.3725471994185669D-02
        xs(  3) = 0.8677982829110123D-02
        xs(  4) = 0.1501073698872705D-01
        xs(  5) = 0.2231758760109952D-01
        xs(  6) = 0.3034286279180112D-01
        xs(  7) = 0.3892457665765488D-01
        xs(  8) = 0.4795839534439654D-01
        xs(  9) = 0.5738055066695396D-01
        xs( 10) = 0.6714459268035609D-01
        xs( 11) = 0.7723484402054842D-01
        xs( 12) = 0.8769795258995158D-01
        ws(  1) = 0.1849253820181377D-02
        ws(  2) = 0.4078665173574748D-02
        ws(  3) = 0.5726330133019607D-02
        ws(  4) = 0.6873190034540573D-02
        ws(  5) = 0.7699439186963802D-02
        ws(  6) = 0.8326026651620298D-02
        ws(  7) = 0.8823376808431291D-02
        ws(  8) = 0.9243085165678096D-02
        ws(  9) = 0.9618185922979769D-02
        ws( 10) = 0.9985158013824011D-02
        ws( 11) = 0.1048520341901350D-01
        ws( 12) = 0.1216443788863871D-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 =  13
        err = 0.4405191785060582D-04
        xs(  1) = 0.3840034857970010D-03
        xs(  2) = 0.2147258727197537D-02
        xs(  3) = 0.5667980650003729D-02
        xs(  4) = 0.1094357932276484D-01
        xs(  5) = 0.1755677555476388D-01
        xs(  6) = 0.2511325842102628D-01
        xs(  7) = 0.3335723659603431D-01
        xs(  8) = 0.4213263143545600D-01
        xs(  9) = 0.5133912453893147D-01
        xs( 10) = 0.6091191294203159D-01
        xs( 11) = 0.7080855987111777D-01
        xs( 12) = 0.8097733864696603D-01
        xs( 13) = 0.9144899792339103D-01
        ws(  1) = 0.1000567060864851D-02
        ws(  2) = 0.2593395787231694D-02
        ws(  3) = 0.4449173178771401D-02
        ws(  4) = 0.6022086315248803D-02
        ws(  5) = 0.7138172059835584D-02
        ws(  6) = 0.7933256123489812D-02
        ws(  7) = 0.8530403399337513D-02
        ws(  8) = 0.9006322850742597D-02
        ws(  9) = 0.9402656119735339D-02
        ws( 10) = 0.9758315751765266D-02
        ws( 11) = 0.1009938574294497D-01
        ws( 12) = 0.1051056719986585D-01
        ws( 13) = 0.1211043581148099D-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 =  13
        err = 0.5892892697143080D-04
        xs(  1) = 0.2675628601193741D-03
        xs(  2) = 0.1504782035128350D-02
        xs(  3) = 0.4139508668646900D-02
        xs(  4) = 0.8659090183581443D-02
        xs(  5) = 0.1493656085320436D-01
        xs(  6) = 0.2240585878794318D-01
        xs(  7) = 0.3064746689366678D-01
        xs(  8) = 0.3943177537108869D-01
        xs(  9) = 0.4862975087743838D-01
        xs( 10) = 0.5816492689387680D-01
        xs( 11) = 0.6801208334134726D-01
        xs( 12) = 0.7814996605030122D-01
        xs( 13) = 0.8856922448666031D-01
        ws(  1) = 0.6971501273527908D-03
        ws(  2) = 0.1843753977451375D-02
        ws(  3) = 0.3525906619380253D-02
        ws(  4) = 0.5484791936997798D-02
        ws(  5) = 0.6963917142260461D-02
        ws(  6) = 0.7906879723840372D-02
        ws(  7) = 0.8541317277909967D-02
        ws(  8) = 0.9011199594659333D-02
        ws(  9) = 0.9385114129230541D-02
        ws( 10) = 0.9717994188648873D-02
        ws( 11) = 0.1006859003843940D-01
        ws( 12) = 0.1049774409537527D-01
        ws( 13) = 0.1210098967125673D-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 =  15
        err = 0.3975729205069891D-04
        xs(  1) = 0.1085584429099327D-03
        xs(  2) = 0.5914739578735837D-03
        xs(  3) = 0.1550928905417764D-02
        xs(  4) = 0.3188444142991967D-02
        xs(  5) = 0.5899251407181646D-02
        xs(  6) = 0.1025106604910469D-01
        xs(  7) = 0.1647075575448644D-01
        xs(  8) = 0.2410280932199899D-01
        xs(  9) = 0.3260656714026419D-01
        xs( 10) = 0.4167486746555219D-01
        xs( 11) = 0.5115774206611132D-01
        xs( 12) = 0.6097132064585094D-01
        xs( 13) = 0.7109779216798803D-01
        xs( 14) = 0.8149275295211574D-01
        xs( 15) = 0.9202159416889687D-01
        ws(  1) = 0.2807053653744699D-03
        ws(  2) = 0.6992008589884266D-03
        ws(  3) = 0.1251872076312986D-02
        ws(  4) = 0.2087809588333623D-02
        ws(  5) = 0.3437840994360609D-02
        ws(  6) = 0.5314680095509009D-02
        ws(  7) = 0.7031978417199752D-02
        ws(  8) = 0.8138126806043073D-02
        ws(  9) = 0.8820342521388601D-02
        ws( 10) = 0.9294250117919556D-02
        ws( 11) = 0.9662918445140344D-02
        ws( 12) = 0.9988624164883253D-02
        ws( 13) = 0.1035699025800740D-01
        ws( 14) = 0.1071896927078498D-01
        ws( 15) = 0.1187114273818803D-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 =  19
        err = 0.4617924427904503D-04
        xs(  1) = 0.3909174362341317D-04
        xs(  2) = 0.2079970375824041D-03
        xs(  3) = 0.5208552938220353D-03
        xs(  4) = 0.9964376042941314D-03
        xs(  5) = 0.1669072630741649D-02
        xs(  6) = 0.2597466878592732D-02
        xs(  7) = 0.3879768509223553D-02
        xs(  8) = 0.5688744435813300D-02
        xs(  9) = 0.8347823601304231D-02
        xs( 10) = 0.1240985167029954D-01
        xs( 11) = 0.1845475964071301D-01
        xs( 12) = 0.2639748152215657D-01
        xs( 13) = 0.3553258591728160D-01
        xs( 14) = 0.4530776503963050D-01
        xs( 15) = 0.5546949228939359D-01
        xs( 16) = 0.6591425317934570D-01
        xs( 17) = 0.7657551803589785D-01
        xs( 18) = 0.8745948349357476D-01
        xs( 19) = 0.9818379075221272D-01
        ws(  1) = 0.1005480812429454D-03
        ws(  2) = 0.2387263210016557D-03
        ws(  3) = 0.3900405954457301D-03
        ws(  4) = 0.5667026726467399D-03
        ws(  5) = 0.7881078680683182D-03
        ws(  6) = 0.1084534056126515D-02
        ws(  7) = 0.1507598521505265D-02
        ws(  8) = 0.2162395143574016D-02
        ws(  9) = 0.3249580586023777D-02
        ws( 10) = 0.4987086062852404D-02
        ws( 11) = 0.7088419308665983D-02
        ws( 12) = 0.8660904219086238D-02
        ws( 13) = 0.9517311176628686D-02
        ws( 14) = 0.9995896090114184D-02
        ws( 15) = 0.1032484027430388D-01
        ws( 16) = 0.1058664367488303D-01
        ws( 17) = 0.1087303384374302D-01
        ws( 18) = 0.1111583025900069D-01
        ws( 19) = 0.1126147719115454D-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 =  21
        err = 0.8519306884765513D-04
        xs(  1) = 0.2083245769744356D-04
        xs(  2) = 0.1101705384686789D-03
        xs(  3) = 0.2728626911502917D-03
        xs(  4) = 0.5130111608399730D-03
        xs(  5) = 0.8379725259931839D-03
        xs(  6) = 0.1259504059229922D-02
        xs(  7) = 0.1795336443604473D-02
        xs(  8) = 0.2472098715432507D-02
        xs(  9) = 0.3330568235391230D-02
        xs( 10) = 0.4433236487826610D-02
        xs( 11) = 0.5879457153166477D-02
        xs( 12) = 0.7841846003492203D-02
        xs( 13) = 0.1065400815582946D-01
        xs( 14) = 0.1499999100818665D-01
        xs( 15) = 0.2189260838727972D-01
        xs( 16) = 0.3170601443442120D-01
        xs( 17) = 0.4328744794483315D-01
        xs( 18) = 0.5545433189600620D-01
        xs( 19) = 0.6773826462720071D-01
        xs( 20) = 0.8007459595010795D-01
        xs( 21) = 0.9194535649506987D-01
        ws(  1) = 0.5349734747078870D-04
        ws(  2) = 0.1255384215255712D-03
        ws(  3) = 0.2004865913448006D-03
        ws(  4) = 0.2810116247778384D-03
        ws(  5) = 0.3708593369253875D-03
        ws(  6) = 0.4751152630220138D-03
        ws(  7) = 0.6009057706420773D-03
        ws(  8) = 0.7592903596772244D-03
        ws(  9) = 0.9678306721512265D-03
        ws( 10) = 0.1253477970616406D-02
        ws( 11) = 0.1666580630042305D-02
        ws( 12) = 0.2309919674272563D-02
        ws( 13) = 0.3426942894207260D-02
        ws( 14) = 0.5447997879706244D-02
        ws( 15) = 0.8432570135668244D-02
        ws( 16) = 0.1095482929541536D-01
        ws( 17) = 0.1200264747859217D-01
        ws( 18) = 0.1226809185230256D-01
        ws( 19) = 0.1234582694723006D-01
        ws( 20) = 0.1255576850459537D-01
        ws( 21) = 0.1143652441931197D-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 =  25
        err = 0.5400271252745015D-04
        xs(  1) = 0.1264410282506797D-04
        xs(  2) = 0.6676222779094023D-04
        xs(  3) = 0.1646889012941981D-03
        xs(  4) = 0.3076521202841060D-03
        xs(  5) = 0.4978103627849320D-03
        xs(  6) = 0.7385949716125057D-03
        xs(  7) = 0.1035021374410656D-02
        xs(  8) = 0.1394112322453741D-02
        xs(  9) = 0.1825445862872297D-02
        xs( 10) = 0.2342224244181160D-02
        xs( 11) = 0.2962471423576140D-02
        xs( 12) = 0.3711337232962792D-02
        xs( 13) = 0.4625140058337699D-02
        xs( 14) = 0.5755505260878603D-02
        xs( 15) = 0.7179674992016129D-02
        xs( 16) = 0.9025689535421657D-02
        xs( 17) = 0.1152951090952780D-01
        xs( 18) = 0.1517833541446023D-01
        xs( 19) = 0.2086800058418305D-01
        xs( 20) = 0.2969608483377187D-01
        xs( 21) = 0.4174846330332997D-01
        xs( 22) = 0.5544182552919375D-01
        xs( 23) = 0.6946283821723867D-01
        xs( 24) = 0.8330019784794114D-01
        xs( 25) = 0.9639937393734881D-01
        ws(  1) = 0.3246514487004881D-04
        ws(  2) = 0.7587762625056321D-04
        ws(  3) = 0.1201722145325204D-03
        ws(  4) = 0.1661027531529207D-03
        ws(  5) = 0.2147852662595533D-03
        ws(  6) = 0.2676158787994367D-03
        ws(  7) = 0.3264008408351551D-03
        ws(  8) = 0.3933562335002378D-03
        ws(  9) = 0.4714831551074012D-03
        ws( 10) = 0.5650388670805207D-03
        ws( 11) = 0.6795685760031102D-03
        ws( 12) = 0.8241629093015032D-03
        ws( 13) = 0.1011907589053581D-02
        ws( 14) = 0.1261215142301014D-02
        ws( 15) = 0.1607789111912105D-02
        ws( 16) = 0.2121026950152658D-02
        ws( 17) = 0.2964213028857222D-02
        ws( 18) = 0.4485222566838548D-02
        ws( 19) = 0.7095129752753981D-02
        ws( 20) = 0.1060679586581323D-01
        ws( 21) = 0.1317466437875208D-01
        ws( 22) = 0.1399420295301495D-01
        ws( 23) = 0.1397139941869948D-01
        ws( 24) = 0.1365512794154108D-01
        ws( 25) = 0.1146503620207074D-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 =  28
        err = 0.9938986276275063D-04
        xs(  1) = 0.8765647443036858D-05
        xs(  2) = 0.4622665180872355D-04
        xs(  3) = 0.1137762910567463D-03
        xs(  4) = 0.2118050468929756D-03
        xs(  5) = 0.3410613905646517D-03
        xs(  6) = 0.5028120561743233D-03
        xs(  7) = 0.6989360187696609D-03
        xs(  8) = 0.9321408827150661D-03
        xs(  9) = 0.1205992931333687D-02
        xs( 10) = 0.1525151299505175D-02
        xs( 11) = 0.1895669812531694D-02
        xs( 12) = 0.2325347508068379D-02
        xs( 13) = 0.2824646088355156D-02
        xs( 14) = 0.3407355488181747D-02
        xs( 15) = 0.4091011964368931D-02
        xs( 16) = 0.4900214919665536D-02
        xs( 17) = 0.5871499994627982D-02
        xs( 18) = 0.7048808518694069D-02
        xs( 19) = 0.8503858167341545D-02
        xs( 20) = 0.1038024352118707D-01
        xs( 21) = 0.1292404158739681D-01
        xs( 22) = 0.1662846152824944D-01
        xs( 23) = 0.2244808137260604D-01
        xs( 24) = 0.3177369003711178D-01
        xs( 25) = 0.4523051726334247D-01
        xs( 26) = 0.6099534013098856D-01
        xs( 27) = 0.7708733192230777D-01
        xs( 28) = 0.9223536621057830D-01
        ws(  1) = 0.2250267176034441D-04
        ws(  2) = 0.5246543070169445D-04
        ws(  3) = 0.8269973427689827D-04
        ws(  4) = 0.1134798679081445D-03
        ws(  5) = 0.1452392666563741D-03
        ws(  6) = 0.1785629568749774D-03
        ws(  7) = 0.2141469332030544D-03
        ws(  8) = 0.2528494975065529D-03
        ws(  9) = 0.2956382851749819D-03
        ws( 10) = 0.3436902995252255D-03
        ws( 11) = 0.3986171489543454D-03
        ws( 12) = 0.4624923871564506D-03
        ws( 13) = 0.5384177360346473D-03
        ws( 14) = 0.6298670162754489D-03
        ws( 15) = 0.7414190348782961D-03
        ws( 16) = 0.8832882193602451D-03
        ws( 17) = 0.1066353654441458D-02
        ws( 18) = 0.1299164614201090D-02
        ws( 19) = 0.1634788587439291D-02
        ws( 20) = 0.2156773937715943D-02
        ws( 21) = 0.3008236909715950D-02
        ws( 22) = 0.4559193904977107D-02
        ws( 23) = 0.7324910244050130D-02
        ws( 24) = 0.1149124692389914D-01
        ws( 25) = 0.1503998030098757D-01
        ws( 26) = 0.1614070387307206D-01
        ws( 27) = 0.1595163667903829D-01
        ws( 28) = 0.1314972266949639D-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 =  32
        err = 0.6292784037151491D-04
        xs(  1) = 0.6347938297484947D-05
        xs(  2) = 0.3345067070455718D-04
        xs(  3) = 0.8226492592504277D-04
        xs(  4) = 0.1529354838609247D-03
        xs(  5) = 0.2457608981763920D-03
        xs(  6) = 0.3612584453489981D-03
        xs(  7) = 0.5002111529063242D-03
        xs(  8) = 0.6637546229849212D-03
        xs(  9) = 0.8534443000107685D-03
        xs( 10) = 0.1071236659120532D-02
        xs( 11) = 0.1319646030643431D-02
        xs( 12) = 0.1601880037219415D-02
        xs( 13) = 0.1921833367333898D-02
        xs( 14) = 0.2284472624392863D-02
        xs( 15) = 0.2696000736247766D-02
        xs( 16) = 0.3164073540721154D-02
        xs( 17) = 0.3698584717286242D-02
        xs( 18) = 0.4311889370939746D-02
        xs( 19) = 0.5020688820532069D-02
        xs( 20) = 0.5846635366007646D-02
        xs( 21) = 0.6820537042963974D-02
        xs( 22) = 0.7985252918093428D-02
        xs( 23) = 0.9399593593371463D-02
        xs( 24) = 0.1118045955224127D-01
        xs( 25) = 0.1353547198413778D-01
        xs( 26) = 0.1679317507593627D-01
        xs( 27) = 0.2161720289825430D-01
        xs( 28) = 0.2929596241449509D-01
        xs( 29) = 0.4147929669158956D-01
        xs( 30) = 0.5789409205024719D-01
        xs( 31) = 0.7578022817223071D-01
        xs( 32) = 0.9291579474695327D-01
        ws(  1) = 0.1628786334071199D-04
        ws(  2) = 0.3794043036632331D-04
        ws(  3) = 0.5971143072332941D-04
        ws(  4) = 0.8168136835464806D-04
        ws(  5) = 0.1040557649840479D-03
        ws(  6) = 0.1270688429838593D-03
        ws(  7) = 0.1510225227575366D-03
        ws(  8) = 0.1763266278261445D-03
        ws(  9) = 0.2033774862948958D-03
        ws( 10) = 0.2326258909912493D-03
        ws( 11) = 0.2647331036260481D-03
        ws( 12) = 0.3003778284064739D-03
        ws( 13) = 0.3403630514081272D-03
        ws( 14) = 0.3859618815789959D-03
        ws( 15) = 0.4383435509400213D-03
        ws( 16) = 0.4994800766385317D-03
        ws( 17) = 0.5715606948668337D-03
        ws( 18) = 0.6578535310720739D-03
        ws( 19) = 0.7632718926095185D-03
        ws( 20) = 0.8936240120450049D-03
        ws( 21) = 0.1061488735175328D-02
        ws( 22) = 0.1276772890572070D-02
        ws( 23) = 0.1570727975396703D-02
        ws( 24) = 0.2025953225003955D-02
        ws( 25) = 0.2734717365302752D-02
        ws( 26) = 0.3885511046298221D-02
        ws( 27) = 0.5978501411427495D-02
        ws( 28) = 0.9690683503310831D-02
        ws( 29) = 0.1467174579164829D-01
        ws( 30) = 0.1760611661820015D-01
        ws( 31) = 0.1788382176844007D-01
        ws( 32) = 0.1440189317127169D-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 =  36
        err = 0.8791737494468914D-04
        xs(  1) = 0.4839867961613938D-05
        xs(  2) = 0.2548831978442576D-04
        xs(  3) = 0.6263963196190871D-04
        xs(  4) = 0.1163381185567404D-03
        xs(  5) = 0.1866893081287726D-03
        xs(  6) = 0.2739154191560438D-03
        xs(  7) = 0.3783778331481179D-03
        xs(  8) = 0.5006083902522035D-03
        xs(  9) = 0.6413492482060107D-03
        xs( 10) = 0.8015609668472452D-03
        xs( 11) = 0.9824453932691993D-03
        xs( 12) = 0.1185527839278102D-02
        xs( 13) = 0.1412670338688524D-02
        xs( 14) = 0.1666058238158249D-02
        xs( 15) = 0.1948498757695180D-02
        xs( 16) = 0.2263407645770551D-02
        xs( 17) = 0.2614673803999611D-02
        xs( 18) = 0.3007054088325510D-02
        xs( 19) = 0.3446656508408417D-02
        xs( 20) = 0.3940986908382085D-02
        xs( 21) = 0.4499117903201217D-02
        xs( 22) = 0.5132284616536116D-02
        xs( 23) = 0.5857177591790680D-02
        xs( 24) = 0.6693844252571719D-02
        xs( 25) = 0.7670174721285518D-02
        xs( 26) = 0.8824109137424855D-02
        xs( 27) = 0.1020120793446603D-01
        xs( 28) = 0.1190475497593231D-01
        xs( 29) = 0.1412860564972834D-01
        xs( 30) = 0.1714743851501310D-01
        xs( 31) = 0.2151006241341070D-01
        xs( 32) = 0.2835100258294429D-01
        xs( 33) = 0.3942418832605258D-01
        xs( 34) = 0.5569887072272366D-01
        xs( 35) = 0.7489061332568314D-01
        xs( 36) = 0.9373233143437705D-01
        ws(  1) = 0.1241681473910510D-04
        ws(  2) = 0.2889301342728283D-04
        ws(  3) = 0.4541698991989083D-04
        ws(  4) = 0.6199721100932188D-04
        ws(  5) = 0.7874138734893281D-04
        ws(  6) = 0.9576669145489886D-04
        ws(  7) = 0.1132480591521029D-03
        ws(  8) = 0.1313407435606949D-03
        ws(  9) = 0.1503034996468289D-03
        ws( 10) = 0.1703168002660983D-03
        ws( 11) = 0.1916974896290887D-03
        ws( 12) = 0.2147880017353320D-03
        ws( 13) = 0.2398546233978353D-03
        ws( 14) = 0.2673920156925408D-03
        ws( 15) = 0.2980627657855959D-03
        ws( 16) = 0.3323808361598140D-03
        ws( 17) = 0.3709436652291069D-03
        ws( 18) = 0.4148421219460090D-03
        ws( 19) = 0.4655863175373800D-03
        ws( 20) = 0.5245856429819371D-03
        ws( 21) = 0.5934709587206516D-03
        ws( 22) = 0.6757167173578716D-03
        ws( 23) = 0.7773410456050362D-03
        ws( 24) = 0.9005324277346544D-03
        ws( 25) = 0.1058784393567581D-02
        ws( 26) = 0.1255750316241837D-02
        ws( 27) = 0.1514617446010579D-02
        ws( 28) = 0.1926161148788944D-02
        ws( 29) = 0.2563886091339282D-02
        ws( 30) = 0.3559178731832533D-02
        ws( 31) = 0.5352429608530471D-02
        ws( 32) = 0.8637425820911367D-02
        ws( 33) = 0.1375193809759078D-01
        ws( 34) = 0.1833131098921426D-01
        ws( 35) = 0.1962173394310547D-01
        ws( 36) = 0.1635250293672030D-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 =  40
        err = 0.8738696108738247D-04
        xs(  1) = 0.3813774602474264D-05
        xs(  2) = 0.2007905434718410D-04
        xs(  3) = 0.4932051125071745D-04
        xs(  4) = 0.9153527595456349D-04
        xs(  5) = 0.1467400388775635D-03
        xs(  6) = 0.2150289935078220D-03
        xs(  7) = 0.2965641600758424D-03
        xs(  8) = 0.3916029620970105D-03
        xs(  9) = 0.5005188174720891D-03
        xs( 10) = 0.6238363908995130D-03
        xs( 11) = 0.7621844144290710D-03
        xs( 12) = 0.9163509304267786D-03
        xs( 13) = 0.1087321187236936D-02
        xs( 14) = 0.1276221117182570D-02
        xs( 15) = 0.1484429674473340D-02
        xs( 16) = 0.1713688079353123D-02
        xs( 17) = 0.1965952583908395D-02
        xs( 18) = 0.2243439934195129D-02
        xs( 19) = 0.2548892305737766D-02
        xs( 20) = 0.2885723505363168D-02
        xs( 21) = 0.3257717739979622D-02
        xs( 22) = 0.3669411274723884D-02
        xs( 23) = 0.4126686016045587D-02
        xs( 24) = 0.4636315320368804D-02
        xs( 25) = 0.5207280858774204D-02
        xs( 26) = 0.5850453778102081D-02
        xs( 27) = 0.6580061908446780D-02
        xs( 28) = 0.7414680404226839D-02
        xs( 29) = 0.8377243319708296D-02
        xs( 30) = 0.9498255063959871D-02
        xs( 31) = 0.1082071512242359D-01
        xs( 32) = 0.1242576170665895D-01
        xs( 33) = 0.1447240183231139D-01
        xs( 34) = 0.1719697972651959D-01
        xs( 35) = 0.2101673741475931D-01
        xs( 36) = 0.2681904933331011D-01
        xs( 37) = 0.3617991312186017D-01
        xs( 38) = 0.5106993358036211D-01
        xs( 39) = 0.7099171590676202D-01
        xs( 40) = 0.9176357343968342D-01
        ws(  1) = 0.9784777055739313D-05
        ws(  2) = 0.2275177383833951D-04
        ws(  3) = 0.3572891620561340D-04
        ws(  4) = 0.4869962566149167D-04
        ws(  5) = 0.6172845660853937D-04
        ws(  6) = 0.7487330843422118D-04
        ws(  7) = 0.8823749980471225D-04
        ws(  8) = 0.1019063183264522D-03
        ws(  9) = 0.1160195480078745D-03
        ws( 10) = 0.1307123089277831D-03
        ws( 11) = 0.1461144917712553D-03
        ws( 12) = 0.1623860173934991D-03
        ws( 13) = 0.1797373137447883D-03
        ws( 14) = 0.1982913374398535D-03
        ws( 15) = 0.2184178825140807D-03
        ws( 16) = 0.2404290874737052D-03
        ws( 17) = 0.2644619828204583D-03
        ws( 18) = 0.2909691935669819D-03
        ws( 19) = 0.3205161126305732D-03
        ws( 20) = 0.3537622737984085D-03
        ws( 21) = 0.3909466108281620D-03
        ws( 22) = 0.4334712674380335D-03
        ws( 23) = 0.4821458603049377D-03
        ws( 24) = 0.5386614886087699D-03
        ws( 25) = 0.6050100193360817D-03
        ws( 26) = 0.6836906236951053D-03
        ws( 27) = 0.7786643182100662D-03
        ws( 28) = 0.8942341050902332D-03
        ws( 29) = 0.1036063455618950D-02
        ws( 30) = 0.1212517158260747D-02
        ws( 31) = 0.1444938034040894D-02
        ws( 32) = 0.1792382263323054D-02
        ws( 33) = 0.2338671287103281D-02
        ws( 34) = 0.3174329740621887D-02
        ws( 35) = 0.4609379873001767D-02
        ws( 36) = 0.7259483152875775D-02
        ws( 37) = 0.1183025993871602D-01
        ws( 38) = 0.1793692112986986D-01
        ws( 39) = 0.2117609842222450D-01
        ws( 40) = 0.1866567844196839D-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 =  44
        err = 0.9191688774989041D-04
        xs(  1) = 0.3078640567878591D-05
        xs(  2) = 0.1622155876582429D-04
        xs(  3) = 0.3984699844331162D-04
        xs(  4) = 0.7394700489966778D-04
        xs(  5) = 0.1185122138529209D-03
        xs(  6) = 0.1735755370640908D-03
        xs(  7) = 0.2392081126464252D-03
        xs(  8) = 0.3155390539479018D-03
        xs(  9) = 0.4027756053576575D-03
        xs( 10) = 0.5012019536681887D-03
        xs( 11) = 0.6111808070010094D-03
        xs( 12) = 0.7331467764006161D-03
        xs( 13) = 0.8676637362427098D-03
        xs( 14) = 0.1015400448658483D-02
        xs( 15) = 0.1177099430147948D-02
        xs( 16) = 0.1353685137885854D-02
        xs( 17) = 0.1546289953933546D-02
        xs( 18) = 0.1756158782197664D-02
        xs( 19) = 0.1984725202401957D-02
        xs( 20) = 0.2233649417805552D-02
        xs( 21) = 0.2504975667012845D-02
        xs( 22) = 0.2801040100354070D-02
        xs( 23) = 0.3124475872780663D-02
        xs( 24) = 0.3478460868414856D-02
        xs( 25) = 0.3866731700161057D-02
        xs( 26) = 0.4293850323735042D-02
        xs( 27) = 0.4765483912708003D-02
        xs( 28) = 0.5288192733273083D-02
        xs( 29) = 0.5870084732140875D-02
        xs( 30) = 0.6521529841580562D-02
        xs( 31) = 0.7255464176326915D-02
        xs( 32) = 0.8089405815924456D-02
        xs( 33) = 0.9044564871294757D-02
        xs( 34) = 0.1014528757499452D-01
        xs( 35) = 0.1143496839391970D-01
        xs( 36) = 0.1300862526257655D-01
        xs( 37) = 0.1500094969759054D-01
        xs( 38) = 0.1759389087585143D-01
        xs( 39) = 0.2114181074079077D-01
        xs( 40) = 0.2639755027273696D-01
        xs( 41) = 0.3472993359462611D-01
        xs( 42) = 0.4837933627182683D-01
        xs( 43) = 0.6846238295744007D-01
        xs( 44) = 0.9096929015226073D-01
        ws(  1) = 0.7901800233605076D-05
        ws(  2) = 0.1838725983211958D-04
        ws(  3) = 0.2886387737648923D-04
        ws(  4) = 0.3933019390185104D-04
        ws(  5) = 0.4981062068299058D-04
        ws(  6) = 0.6032655816342275D-04
        ws(  7) = 0.7095648813950527D-04
        ws(  8) = 0.8174154662827529D-04
        ws(  9) = 0.9278009830659065D-04
        ws( 10) = 0.1041357311938912D-03
        ws( 11) = 0.1158899898508938D-03
        ws( 12) = 0.1281375413567238D-03
        ws( 13) = 0.1410160366684238D-03
        ws( 14) = 0.1545776847556361D-03
        ws( 15) = 0.1689736642511434D-03
        ws( 16) = 0.1843935762166598D-03
        ws( 17) = 0.2010161157962812D-03
        ws( 18) = 0.2189602909302074D-03
        ws( 19) = 0.2384470018239951D-03
        ws( 20) = 0.2597529043338954D-03
        ws( 21) = 0.2832888644169123D-03
        ws( 22) = 0.3092575872561055D-03
        ws( 23) = 0.3381482610258157D-03
        ws( 24) = 0.3704402854763865D-03
        ws( 25) = 0.4068691521042164D-03
        ws( 26) = 0.4482998852688470D-03
        ws( 27) = 0.4960542982150282D-03
        ws( 28) = 0.5506735615105040D-03
        ws( 29) = 0.6148901992342576D-03
        ws( 30) = 0.6901149704101053D-03
        ws( 31) = 0.7806483604096985D-03
        ws( 32) = 0.8908887809564801D-03
        ws( 33) = 0.1023200736022694D-02
        ws( 34) = 0.1184693675766071D-02
        ws( 35) = 0.1411101221211734D-02
        ws( 36) = 0.1758484066066950D-02
        ws( 37) = 0.2254758263466298D-02
        ws( 38) = 0.2985372289788701D-02
        ws( 39) = 0.4234051229478346D-02
        ws( 40) = 0.6497346163760485D-02
        ws( 41) = 0.1055254126779522D-01
        ws( 42) = 0.1708478444593561D-01
        ws( 43) = 0.2223970557094408D-01
        ws( 44) = 0.2034902794089302D-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 =  48
        err = 0.9844967061118971D-04
        xs(  1) = 0.2541170682588438D-05
        xs(  2) = 0.1339502589839285D-04
        xs(  3) = 0.3289436701455481D-04
        xs(  4) = 0.6103218531722839D-04
        xs(  5) = 0.9778567564011125D-04
        xs(  6) = 0.1431644934459552D-03
        xs(  7) = 0.1971891845443516D-03
        xs(  8) = 0.2599316616870452D-03
        xs(  9) = 0.3314999136816303D-03
        xs( 10) = 0.4120516298472827D-03
        xs( 11) = 0.5018059576578917D-03
        xs( 12) = 0.6010207153934200D-03
        xs( 13) = 0.7100214701686350D-03
        xs( 14) = 0.8292306830989640D-03
        xs( 15) = 0.9590979753376140D-03
        xs( 16) = 0.1100143756663392D-02
        xs( 17) = 0.1253031010058171D-02
        xs( 18) = 0.1418533086707744D-02
        xs( 19) = 0.1597480547700423D-02
        xs( 20) = 0.1790818108085711D-02
        xs( 21) = 0.1999644100267867D-02
        xs( 22) = 0.2225296477688533D-02
        xs( 23) = 0.2469237327645926D-02
        xs( 24) = 0.2733117560930956D-02
        xs( 25) = 0.3018967264903728D-02
        xs( 26) = 0.3329002706739892D-02
        xs( 27) = 0.3665809951202372D-02
        xs( 28) = 0.4032468004314031D-02
        xs( 29) = 0.4432877157795331D-02
        xs( 30) = 0.4871018466918648D-02
        xs( 31) = 0.5352571340115861D-02
        xs( 32) = 0.5883597735850601D-02
        xs( 33) = 0.6470856744697034D-02
        xs( 34) = 0.7125270337774230D-02
        xs( 35) = 0.7859727466594756D-02
        xs( 36) = 0.8687219245091684D-02
        xs( 37) = 0.9627959643188223D-02
        xs( 38) = 0.1070749704480091D-01
        xs( 39) = 0.1196003794398291D-01
        xs( 40) = 0.1347174831569518D-01
        xs( 41) = 0.1536311037960761D-01
        xs( 42) = 0.1779432498775861D-01
        xs( 43) = 0.2107665938538712D-01
        xs( 44) = 0.2583710139858500D-01
        xs( 45) = 0.3319816550355662D-01
        xs( 46) = 0.4524957714083318D-01
        xs( 47) = 0.6458784627943664D-01
        xs( 48) = 0.8885329382000703D-01
        ws(  1) = 0.6523428511258152D-05
        ws(  2) = 0.1517911848232073D-04
        ws(  3) = 0.2382265462063475D-04
        ws(  4) = 0.3244915471267367D-04
        ws(  5) = 0.4105942874971749D-04
        ws(  6) = 0.4969195192964026D-04
        ws(  7) = 0.5837776127751941D-04
        ws(  8) = 0.6713462042851892D-04
        ws(  9) = 0.7602381981484933D-04
        ws( 10) = 0.8511179941179928D-04
        ws( 11) = 0.9443435655289344D-04
        ws( 12) = 0.1040553356505629D-03
        ws( 13) = 0.1140258379829734D-03
        ws( 14) = 0.1244620756967394D-03
        ws( 15) = 0.1353553487851628D-03
        ws( 16) = 0.1468423055219406D-03
        ws( 17) = 0.1590691600877626D-03
        ws( 18) = 0.1720767310027624D-03
        ws( 19) = 0.1859678635515241D-03
        ws( 20) = 0.2008893424798835D-03
        ws( 21) = 0.2169895009617253D-03
        ws( 22) = 0.2345475016155090D-03
        ws( 23) = 0.2536094254380757D-03
        ws( 24) = 0.2745042733458877D-03
        ws( 25) = 0.2975358620789672D-03
        ws( 26) = 0.3229768392431082D-03
        ws( 27) = 0.3511312063892978D-03
        ws( 28) = 0.3828785106695677D-03
        ws( 29) = 0.4185407520675833D-03
        ws( 30) = 0.4587535766572791D-03
        ws( 31) = 0.5053552270905028D-03
        ws( 32) = 0.5577093358642454D-03
        ws( 33) = 0.6186712484353848D-03
        ws( 34) = 0.6923395125391974D-03
        ws( 35) = 0.7785369023978849D-03
        ws( 36) = 0.8798755286826545D-03
        ws( 37) = 0.1005952877813494D-02
        ws( 38) = 0.1157798441528949D-02
        ws( 39) = 0.1362181505731546D-02
        ws( 40) = 0.1681264651446423D-02
        ws( 41) = 0.2126810715785747D-02
        ws( 42) = 0.2783777695528846D-02
        ws( 43) = 0.3883379394326815D-02
        ws( 44) = 0.5815317001730162D-02
        ws( 45) = 0.9251291814752156D-02
        ws( 46) = 0.1538940005509207D-01
        ws( 47) = 0.2290442768586565D-01
        ws( 48) = 0.2318347346279415D-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 =  53
        err = 0.6647245989194063D-04
        xs(  1) = 0.2107198259527743D-05
        xs(  2) = 0.1109161148382804D-04
        xs(  3) = 0.2724385185329345D-04
        xs(  4) = 0.5055565451056316D-04
        xs(  5) = 0.8101032547332929D-04
        xs(  6) = 0.1186074615683699D-03
        xs(  7) = 0.1633635873658584D-03
        xs(  8) = 0.2153124628343834D-03
        xs(  9) = 0.2745199270847324D-03
        xs( 10) = 0.3410758200918594D-03
        xs( 11) = 0.4151085912587730D-03
        xs( 12) = 0.4967875501212088D-03
        xs( 13) = 0.5863094484353625D-03
        xs( 14) = 0.6839283361975205D-03
        xs( 15) = 0.7899300425609969D-03
        xs( 16) = 0.9046418621033940D-03
        xs( 17) = 0.1028468508534169D-02
        xs( 18) = 0.1161868202356545D-02
        xs( 19) = 0.1305354834134401D-02
        xs( 20) = 0.1459515129466071D-02
        xs( 21) = 0.1625004589977213D-02
        xs( 22) = 0.1802570895833982D-02
        xs( 23) = 0.1993094004322354D-02
        xs( 24) = 0.2197543870461927D-02
        xs( 25) = 0.2416999557993155D-02
        xs( 26) = 0.2652721519685347D-02
        xs( 27) = 0.2906117091575107D-02
        xs( 28) = 0.3178828307986950D-02
        xs( 29) = 0.3472704058466634D-02
        xs( 30) = 0.3789941176777280D-02
        xs( 31) = 0.4133033668785156D-02
        xs( 32) = 0.4504890539697428D-02
        xs( 33) = 0.4908633206426917D-02
        xs( 34) = 0.5348414679805058D-02
        xs( 35) = 0.5829003366454218D-02
        xs( 36) = 0.6355963730600857D-02
        xs( 37) = 0.6936045379059674D-02
        xs( 38) = 0.7577500606467930D-02
        xs( 39) = 0.8291363149880869D-02
        xs( 40) = 0.9091330886628021D-02
        xs( 41) = 0.9992446202311402D-02
        xs( 42) = 0.1101137818160083D-01
        xs( 43) = 0.1217738427550280D-01
        xs( 44) = 0.1353636986112579D-01
        xs( 45) = 0.1518153299048851D-01
        xs( 46) = 0.1724266734857551D-01
        xs( 47) = 0.1988975548136679D-01
        xs( 48) = 0.2346117683384005D-01
        xs( 49) = 0.2860712376175967D-01
        xs( 50) = 0.3648346505346125D-01
        xs( 51) = 0.4922736159842282D-01
        xs( 52) = 0.6947075269811039D-01
        xs( 53) = 0.9492421337182354D-01
        ws(  1) = 0.5405489900765418D-05
        ws(  2) = 0.1256818807963098D-04
        ws(  3) = 0.1973515394844928D-04
        ws(  4) = 0.2688154930920030D-04
        ws(  5) = 0.3402847066220624D-04
        ws(  6) = 0.4117245685513323D-04
        ws(  7) = 0.4834518859410080D-04
        ws(  8) = 0.5556249268715285D-04
        ws(  9) = 0.6286209133047513D-04
        ws( 10) = 0.7027216941916955D-04
        ws( 11) = 0.7782822734403277D-04
        ws( 12) = 0.8555734078703759D-04
        ws( 13) = 0.9352971005445304D-04
        ws( 14) = 0.1017564679575061D-03
        ws( 15) = 0.1102960942376457D-03
        ws( 16) = 0.1191993212927503D-03
        ws( 17) = 0.1285284017177122D-03
        ws( 18) = 0.1383555430277688D-03
        ws( 19) = 0.1487174432547354D-03
        ws( 20) = 0.1597112768816912D-03
        ws( 21) = 0.1713924382628431D-03
        ws( 22) = 0.1838876119620023D-03
        ws( 23) = 0.1973255587422652D-03
        ws( 24) = 0.2117525936055571D-03
        ws( 25) = 0.2273737933710732D-03
        ws( 26) = 0.2443062022148220D-03
        ws( 27) = 0.2627614579072533D-03
        ws( 28) = 0.2829667038982696D-03
        ws( 29) = 0.3051593002819995D-03
        ws( 30) = 0.3297212437460845D-03
        ws( 31) = 0.3569614686544723D-03
        ws( 32) = 0.3872480744604504D-03
        ws( 33) = 0.4209429775144126D-03
        ws( 34) = 0.4594145769807976D-03
        ws( 35) = 0.5026681088656879D-03
        ws( 36) = 0.5523800095946970D-03
        ws( 37) = 0.6091332850041304D-03
        ws( 38) = 0.6756184917403100D-03
        ws( 39) = 0.7543981367620087D-03
        ws( 40) = 0.8481067424351843D-03
        ws( 41) = 0.9565653409834883D-03
        ws( 42) = 0.1086337027024183D-02
        ws( 43) = 0.1252525666444496D-02
        ws( 44) = 0.1481165163448288D-02
        ws( 45) = 0.1831208315152859D-02
        ws( 46) = 0.2316944820969181D-02
        ws( 47) = 0.3030973416353384D-02
        ws( 48) = 0.4217651383839927D-02
        ws( 49) = 0.6258227279738660D-02
        ws( 50) = 0.9844031371566270D-02
        ws( 51) = 0.1619447424789626D-01
        ws( 52) = 0.2388904017790840D-01
        ws( 53) = 0.2458007599441678D-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 =  57
        err = 0.7769412814646153D-04
        xs(  1) = 0.1797646014188257D-05
        xs(  2) = 0.9501977283669445D-05
        xs(  3) = 0.2335041721385687D-04
        xs(  4) = 0.4332004170831740D-04
        xs(  5) = 0.6940408361563857D-04
        xs(  6) = 0.1015781211278720D-03
        xs(  7) = 0.1398464497730600D-03
        xs(  8) = 0.1842261486228039D-03
        xs(  9) = 0.2347391963285592D-03
        xs( 10) = 0.2914510715272205D-03
        xs( 11) = 0.3544245877164740D-03
        xs( 12) = 0.4237790106432718D-03
        xs( 13) = 0.4996296243718873D-03
        xs( 14) = 0.5821469007495213D-03
        xs( 15) = 0.6715181113743115D-03
        xs( 16) = 0.7679631450245224D-03
        xs( 17) = 0.8717302349682037D-03
        xs( 18) = 0.9831226328534458D-03
        xs( 19) = 0.1102487726660257D-02
        xs( 20) = 0.1230205192025976D-02
        xs( 21) = 0.1366702487192906D-02
        xs( 22) = 0.1512457182108537D-02
        xs( 23) = 0.1668008884261475D-02
        xs( 24) = 0.1833979970503604D-02
        xs( 25) = 0.2011060481831384D-02
        xs( 26) = 0.2200008220302296D-02
        xs( 27) = 0.2401690748764339D-02
        xs( 28) = 0.2617078132180508D-02
        xs( 29) = 0.2847261818230554D-02
        xs( 30) = 0.3093463480712876D-02
        xs( 31) = 0.3357090411159727D-02
        xs( 32) = 0.3639793128600559D-02
        xs( 33) = 0.3943470704325631D-02
        xs( 34) = 0.4270127804751895D-02
        xs( 35) = 0.4622018914954927D-02
        xs( 36) = 0.5001893538559603D-02
        xs( 37) = 0.5413188404812135D-02
        xs( 38) = 0.5859759338219184D-02
        xs( 39) = 0.6345726107555520D-02
        xs( 40) = 0.6876866130457906D-02
        xs( 41) = 0.7459733843043193D-02
        xs( 42) = 0.8101389502089208D-02
        xs( 43) = 0.8812272070876880D-02
        xs( 44) = 0.9604106866246328D-02
        xs( 45) = 0.1049037713413540D-01
        xs( 46) = 0.1149039051865568D-01
        xs( 47) = 0.1263352624016863D-01
        xs( 48) = 0.1396697042555321D-01
        xs( 49) = 0.1558109853204562D-01
        xs( 50) = 0.1757800912655457D-01
        xs( 51) = 0.2009187189363974D-01
        xs( 52) = 0.2340930298463780D-01
        xs( 53) = 0.2810315172865938D-01
        xs( 54) = 0.3517773634270926D-01
        xs( 55) = 0.4649972441411312D-01
        xs( 56) = 0.6519914099357790D-01
        xs( 57) = 0.9127468948448662D-01
        ws(  1) = 0.4630428076978498D-05
        ws(  2) = 0.1077205231699414D-04
        ws(  3) = 0.1691101227251958D-04
        ws(  4) = 0.2302982236329111D-04
        ws(  5) = 0.2913390247860938D-04
        ws(  6) = 0.3521980342821863D-04
        ws(  7) = 0.4132137901110667D-04
        ws(  8) = 0.4743876001105609D-04
        ws(  9) = 0.5359924284748382D-04
        ws( 10) = 0.5982879031645665D-04
        ws( 11) = 0.6614671198737944D-04
        ws( 12) = 0.7257766959012951D-04
        ws( 13) = 0.7915386129135127D-04
        ws( 14) = 0.8590981759087760D-04
        ws( 15) = 0.9286816152269852D-04
        ws( 16) = 0.1000627739295739D-03
        ws( 17) = 0.1075258889358225D-03
        ws( 18) = 0.1153155218092574D-03
        ws( 19) = 0.1234760563080033D-03
        ws( 20) = 0.1320293929418269D-03
        ws( 21) = 0.1410430817044090D-03
        ws( 22) = 0.1505585810400180D-03
        ws( 23) = 0.1606486631931931D-03
        ws( 24) = 0.1714102354048416D-03
        ws( 25) = 0.1828745991092981D-03
        ws( 26) = 0.1951632319374464D-03
        ws( 27) = 0.2083677471983521D-03
        ws( 28) = 0.2225910769143559D-03
        ws( 29) = 0.2379749674877326D-03
        ws( 30) = 0.2546628644748089D-03
        ws( 31) = 0.2728664444158845D-03
        ws( 32) = 0.2928626099940184D-03
        ws( 33) = 0.3148240504031373D-03
        ws( 34) = 0.3388573003052630D-03
        ws( 35) = 0.3653735284667875D-03
        ws( 36) = 0.3949534713426856D-03
        ws( 37) = 0.4282912353251976D-03
        ws( 38) = 0.4655020872132854D-03
        ws( 39) = 0.5074247462595493D-03
        ws( 40) = 0.5559879196468770D-03
        ws( 41) = 0.6108436530861669D-03
        ws( 42) = 0.6742602948358968D-03
        ws( 43) = 0.7495119959622164D-03
        ws( 44) = 0.8362727316406167D-03
        ws( 45) = 0.9394226207655843D-03
        ws( 46) = 0.1065555916521841D-02
        ws( 47) = 0.1227589841195447D-02
        ws( 48) = 0.1455466499094924D-02
        ws( 49) = 0.1789533790623003D-02
        ws( 50) = 0.2224478288142340D-02
        ws( 51) = 0.2848360518170447D-02
        ws( 52) = 0.3880731379329906D-02
        ws( 53) = 0.5668022046788255D-02
        ws( 54) = 0.8780603720981632D-02
        ws( 55) = 0.1441684609330092D-01
        ws( 56) = 0.2318697521966642D-01
        ws( 57) = 0.2599351129003719D-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 =  61
        err = 0.8536804900518324D-04
        xs(  1) = 0.1558416734931817D-05
        xs(  2) = 0.8224270082103437D-05
        xs(  3) = 0.2020163450108912D-04
        xs(  4) = 0.3747852071415273D-04
        xs(  5) = 0.6003884745224744D-04
        xs(  6) = 0.8785566158664437D-04
        xs(  7) = 0.1209296828921663D-03
        xs(  8) = 0.1592618479196044D-03
        xs(  9) = 0.2028652159047855D-03
        xs( 10) = 0.2517703038264477D-03
        xs( 11) = 0.3060235451957330D-03
        xs( 12) = 0.3656895197228181D-03
        xs( 13) = 0.4308556798916143D-03
        xs( 14) = 0.5016214583279011D-03
        xs( 15) = 0.5781205765538956D-03
        xs( 16) = 0.6605022625667705D-03
        xs( 17) = 0.7489323192192309D-03
        xs( 18) = 0.8436100728716050D-03
        xs( 19) = 0.9447692954061898D-03
        xs( 20) = 0.1052672566899796D-02
        xs( 21) = 0.1167607710319807D-02
        xs( 22) = 0.1289902526932196D-02
        xs( 23) = 0.1419905280491742D-02
        xs( 24) = 0.1558024361264112D-02
        xs( 25) = 0.1704725331709537D-02
        xs( 26) = 0.1860495924473182D-02
        xs( 27) = 0.2025901175005519D-02
        xs( 28) = 0.2201543444907127D-02
        xs( 29) = 0.2388107023431894D-02
        xs( 30) = 0.2586414857457766D-02
        xs( 31) = 0.2797279929379215D-02
        xs( 32) = 0.3021665040885193D-02
        xs( 33) = 0.3260642375765165D-02
        xs( 34) = 0.3515547794536769D-02
        xs( 35) = 0.3787746409530132D-02
        xs( 36) = 0.4078673421300748D-02
        xs( 37) = 0.4390043242812085D-02
        xs( 38) = 0.4724011940605704D-02
        xs( 39) = 0.5082885905627910D-02
        xs( 40) = 0.5469290922010516D-02
        xs( 41) = 0.5886355330484396D-02
        xs( 42) = 0.6338060382497191D-02
        xs( 43) = 0.6827724747797656D-02
        xs( 44) = 0.7360733620769853D-02
        xs( 45) = 0.7943801970611397D-02
        xs( 46) = 0.8583955370886121D-02
        xs( 47) = 0.9291756988693702D-02
        xs( 48) = 0.1007850514845761D-01
        xs( 49) = 0.1095332626794874D-01
        xs( 50) = 0.1193402073437817D-01
        xs( 51) = 0.1305121590026646D-01
        xs( 52) = 0.1434582525244647D-01
        xs( 53) = 0.1589648749934592D-01
        xs( 54) = 0.1780538949550012D-01
        xs( 55) = 0.2019528405707916D-01
        xs( 56) = 0.2330334943125443D-01
        xs( 57) = 0.2761316076974910D-01
        xs( 58) = 0.3399992045010272D-01
        xs( 59) = 0.4406560539617185D-01
        xs( 60) = 0.6107051016207914D-01
        xs( 61) = 0.8755339801974124D-01
        ws(  1) = 0.3998933257989874D-05
        ws(  2) = 0.9335602648798762D-05
        ws(  3) = 0.1462572167446749D-04
        ws(  4) = 0.1992152875732312D-04
        ws(  5) = 0.2518469976248241D-04
        ws(  6) = 0.3044919878964713D-04
        ws(  7) = 0.3570283084043120D-04
        ws(  8) = 0.4096348544023976D-04
        ws(  9) = 0.4624913625479946D-04
        ws( 10) = 0.5157274108567772D-04
        ws( 11) = 0.5694058660416242D-04
        ws( 12) = 0.6240476623789913D-04
        ws( 13) = 0.6794303331718631D-04
        ws( 14) = 0.7361216587824045D-04
        ws( 15) = 0.7941165116598612D-04
        ws( 16) = 0.8537692314008106D-04
        ws( 17) = 0.9151641723135904D-04
        ws( 18) = 0.9787906576631321D-04
        ws( 19) = 0.1044850938086681D-03
        ws( 20) = 0.1113690356848655D-03
        ws( 21) = 0.1185557452757733D-03
        ws( 22) = 0.1260917444629802D-03
        ws( 23) = 0.1339841936266561D-03
        ws( 24) = 0.1423310777288600D-03
        ws( 25) = 0.1511539069244270D-03
        ws( 26) = 0.1604850760232190D-03
        ws( 27) = 0.1704221421777321D-03
        ws( 28) = 0.1809743041807029D-03
        ws( 29) = 0.1923010715272655D-03
        ws( 30) = 0.2044397952127429D-03
        ws( 31) = 0.2174514391984399D-03
        ws( 32) = 0.2314943696252801D-03
        ws( 33) = 0.2466936005799633D-03
        ws( 34) = 0.2633370096460791D-03
        ws( 35) = 0.2812906734188416D-03
        ws( 36) = 0.3008460605808642D-03
        ws( 37) = 0.3222662003595465D-03
        ws( 38) = 0.3460425717358944D-03
        ws( 39) = 0.3721546879066752D-03
        ws( 40) = 0.4011503014067870D-03
        ws( 41) = 0.4337367235885783D-03
        ws( 42) = 0.4701064141245542D-03
        ws( 43) = 0.5101622444423726D-03
        ws( 44) = 0.5569855447096925D-03
        ws( 45) = 0.6102096663853970D-03
        ws( 46) = 0.6719243869003869D-03
        ws( 47) = 0.7456544747198611D-03
        ws( 48) = 0.8290571147809028D-03
        ws( 49) = 0.9235739347764784D-03
        ws( 50) = 0.1042972473483145D-02
        ws( 51) = 0.1197612793600721D-02
        ws( 52) = 0.1405074624735352D-02
        ws( 53) = 0.1713747479706110D-02
        ws( 54) = 0.2122473388769015D-02
        ws( 55) = 0.2694870384487024D-02
        ws( 56) = 0.3599655581322096D-02
        ws( 57) = 0.5163055005750630D-02
        ws( 58) = 0.7857869923584121D-02
        ws( 59) = 0.1279922784377953D-01
        ws( 60) = 0.2199164267432531D-01
        ws( 61) = 0.2872279541879483D-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 =  66
        err = 0.4897502150629508D-04
        xs(  1) = 0.1353598427983399D-05
        xs(  2) = 0.7127492145148244D-05
        xs(  3) = 0.1751105102537866D-04
        xs(  4) = 0.3248969556696277D-04
        xs(  5) = 0.5204910346080200D-04
        xs(  6) = 0.7618270567044852D-04
        xs(  7) = 0.1048748906038740D-03
        xs(  8) = 0.1381246565894779D-03
        xs(  9) = 0.1759378227121205D-03
        xs( 10) = 0.2183304233539708D-03
        xs( 11) = 0.2653313503931179D-03
        xs( 12) = 0.3169845307436782D-03
        xs( 13) = 0.3733423709757048D-03
        xs( 14) = 0.4344732697480946D-03
        xs( 15) = 0.5004613604121884D-03
        xs( 16) = 0.5714148181530019D-03
        xs( 17) = 0.6474512832145857D-03
        xs( 18) = 0.7287027811190924D-03
        xs( 19) = 0.8153233947566191D-03
        xs( 20) = 0.9074959923072364D-03
        xs( 21) = 0.1005424853217355D-02
        xs( 22) = 0.1109334358270019D-02
        xs( 23) = 0.1219459642675922D-02
        xs( 24) = 0.1336067521510402D-02
        xs( 25) = 0.1459478896117546D-02
        xs( 26) = 0.1590038536829035D-02
        xs( 27) = 0.1728108761745323D-02
        xs( 28) = 0.1874104882848618D-02
        xs( 29) = 0.2028456478088203D-02
        xs( 30) = 0.2191677648185560D-02
        xs( 31) = 0.2364348671323235D-02
        xs( 32) = 0.2547031785966137D-02
        xs( 33) = 0.2740421865314636D-02
        xs( 34) = 0.2945313486132877D-02
        xs( 35) = 0.3162540002437374D-02
        xs( 36) = 0.3393001959474918D-02
        xs( 37) = 0.3637810135451125D-02
        xs( 38) = 0.3898090903324029D-02
        xs( 39) = 0.4175088319904259D-02
        xs( 40) = 0.4470450244025737D-02
        xs( 41) = 0.4785780389995692D-02
        xs( 42) = 0.5122893381803468D-02
        xs( 43) = 0.5484174393178777D-02
        xs( 44) = 0.5872046522842954D-02
        xs( 45) = 0.6289365081368456D-02
        xs( 46) = 0.6739394969856818D-02
        xs( 47) = 0.7226263279622832D-02
        xs( 48) = 0.7754257291220612D-02
        xs( 49) = 0.8328887122246014D-02
        xs( 50) = 0.8957709215358744D-02
        xs( 51) = 0.9648006972678152D-02
        xs( 52) = 0.1041052867398357D-01
        xs( 53) = 0.1125673220469638D-01
        xs( 54) = 0.1219849046575905D-01
        xs( 55) = 0.1325565481955043D-01
        xs( 56) = 0.1446025470910138D-01
        xs( 57) = 0.1585779354710167D-01
        xs( 58) = 0.1752777312482362D-01
        xs( 59) = 0.1957612428782300D-01
        xs( 60) = 0.2214984449287930D-01
        xs( 61) = 0.2552747493457725D-01
        xs( 62) = 0.3018519096300313D-01
        xs( 63) = 0.3701943793747362D-01
        xs( 64) = 0.4767673135283713D-01
        xs( 65) = 0.6527044473503164D-01
        xs( 66) = 0.9219104513306976D-01
        ws(  1) = 0.3470424186049838D-05
        ws(  2) = 0.8082440812207186D-05
        ws(  3) = 0.1268149259313019D-04
        ws(  4) = 0.1727145376325343D-04
        ws(  5) = 0.2185419621356623D-04
        ws(  6) = 0.2640540140476141D-04
        ws(  7) = 0.3097499527849127D-04
        ws(  8) = 0.3553121933116491D-04
        ws(  9) = 0.4009729706313188D-04
        ws( 10) = 0.4469174789870992D-04
        ws( 11) = 0.4931740929678801D-04
        ws( 12) = 0.5399617905327494D-04
        ws( 13) = 0.5873122039701919D-04
        ws( 14) = 0.6354435683948556D-04
        ws( 15) = 0.6845070970732112D-04
        ws( 16) = 0.7347572334504793D-04
        ws( 17) = 0.7861916150094832D-04
        ws( 18) = 0.8390869165211519D-04
        ws( 19) = 0.8936318867394132D-04
        ws( 20) = 0.9501554757600424D-04
        ws( 21) = 0.1008802309586016D-03
        ws( 22) = 0.1069772593045064D-03
        ws( 23) = 0.1133169791748731D-03
        ws( 24) = 0.1199523305419580D-03
        ws( 25) = 0.1269288326840894D-03
        ws( 26) = 0.1342477711190456D-03
        ws( 27) = 0.1419636036783396D-03
        ws( 28) = 0.1500972321274267D-03
        ws( 29) = 0.1586905258095765D-03
        ws( 30) = 0.1678546058471925D-03
        ws( 31) = 0.1775756800173195D-03
        ws( 32) = 0.1879053221613960D-03
        ws( 33) = 0.1990085002994124D-03
        ws( 34) = 0.2109177358032027D-03
        ws( 35) = 0.2236799213358391D-03
        ws( 36) = 0.2374354345081836D-03
        ws( 37) = 0.2523674053549345D-03
        ws( 38) = 0.2683921903275516D-03
        ws( 39) = 0.2858937850291474D-03
        ws( 40) = 0.3050886329641120D-03
        ws( 41) = 0.3258604205109004D-03
        ws( 42) = 0.3487896289139766D-03
        ws( 43) = 0.3741566128894772D-03
        ws( 44) = 0.4020760145975081D-03
        ws( 45) = 0.4330890931375637D-03
        ws( 46) = 0.4676779027864838D-03
        ws( 47) = 0.5067562008822345D-03
        ws( 48) = 0.5500991878403319D-03
        ws( 49) = 0.6005258251503769D-03
        ws( 50) = 0.6582114219931067D-03
        ws( 51) = 0.7242625452540278D-03
        ws( 52) = 0.8027585452221857D-03
        ws( 53) = 0.8914560742747101D-03
        ws( 54) = 0.9953075710899687D-03
        ws( 55) = 0.1124438521856458D-02
        ws( 56) = 0.1291737292647309D-02
        ws( 57) = 0.1517022911519684D-02
        ws( 58) = 0.1840434440868839D-02
        ws( 59) = 0.2278507700951554D-02
        ws( 60) = 0.2915523277026358D-02
        ws( 61) = 0.3914635710321034D-02
        ws( 62) = 0.5546013440101514D-02
        ws( 63) = 0.8383226425318632D-02
        ws( 64) = 0.1342912200975168D-01
        ws( 65) = 0.2249492476114542D-01
        ws( 66) = 0.2882044859496955D-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 =  70
        err = 0.7950690870332329D-04
        xs(  1) = 0.1196753504401441D-05
        xs(  2) = 0.6291119183985898D-05
        xs(  3) = 0.1544990961214020D-04
        xs(  4) = 0.2866502483556838D-04
        xs(  5) = 0.4592464547928945D-04
        xs(  6) = 0.6721011759261691D-04
        xs(  7) = 0.9251955177535391D-04
        xs(  8) = 0.1218365320212609D-03
        xs(  9) = 0.1551679789594159D-03
        xs( 10) = 0.1925151862830313D-03
        xs( 11) = 0.2338983455717095D-03
        xs( 12) = 0.2793455751410065D-03
        xs( 13) = 0.3288853621192018D-03
        xs( 14) = 0.3825692529677778D-03
        xs( 15) = 0.4404512690406030D-03
        xs( 16) = 0.5026108338079539D-03
        xs( 17) = 0.5691306304238208D-03
        xs( 18) = 0.6401020751062329D-03
        xs( 19) = 0.7156327919997975D-03
        xs( 20) = 0.7958479173479415D-03
        xs( 21) = 0.8809031792720922D-03
        xs( 22) = 0.9709584042174083D-03
        xs( 23) = 0.1066181953817583D-02
        xs( 24) = 0.1166756881635640D-02
        xs( 25) = 0.1272908862710154D-02
        xs( 26) = 0.1384880322051490D-02
        xs( 27) = 0.1502938270737576D-02
        xs( 28) = 0.1627366909744580D-02
        xs( 29) = 0.1758465069177810D-02
        xs( 30) = 0.1896577832348476D-02
        xs( 31) = 0.2042108710693973D-02
        xs( 32) = 0.2195464815034811D-02
        xs( 33) = 0.2357091337432451D-02
        xs( 34) = 0.2527472582006820D-02
        xs( 35) = 0.2707216092761514D-02
        xs( 36) = 0.2896888516099947D-02
        xs( 37) = 0.3097168207601090D-02
        xs( 38) = 0.3308899660793386D-02
        xs( 39) = 0.3532815987463759D-02
        xs( 40) = 0.3769837971707872D-02
        xs( 41) = 0.4021036535664972D-02
        xs( 42) = 0.4287578549020135D-02
        xs( 43) = 0.4570558270261440D-02
        xs( 44) = 0.4871690437247262D-02
        xs( 45) = 0.5192515517051369D-02
        xs( 46) = 0.5534839130682240D-02
        xs( 47) = 0.5900863985917147D-02
        xs( 48) = 0.6293038954435412D-02
        xs( 49) = 0.6713903099309161D-02
        xs( 50) = 0.7166483919777225D-02
        xs( 51) = 0.7655209264577188D-02
        xs( 52) = 0.8183719802467824D-02
        xs( 53) = 0.8757811691068653D-02
        xs( 54) = 0.9385402453426818D-02
        xs( 55) = 0.1007184421723349D-01
        xs( 56) = 0.1082621718853511D-01
        xs( 57) = 0.1165979070897371D-01
        xs( 58) = 0.1258366008449739D-01
        xs( 59) = 0.1361855800457616D-01
        xs( 60) = 0.1479713841658085D-01
        xs( 61) = 0.1616194993711972D-01
        xs( 62) = 0.1779393809691529D-01
        xs( 63) = 0.1979074317988916D-01
        xs( 64) = 0.2227940336527981D-01
        xs( 65) = 0.2553540813367159D-01
        xs( 66) = 0.3004400416007447D-01
        xs( 67) = 0.3664362113349407D-01
        xs( 68) = 0.4684437521832456D-01
        xs( 69) = 0.6368460452937612D-01
        xs( 70) = 0.9069513139303056D-01
        ws(  1) = 0.3066775079368194D-05
        ws(  2) = 0.7126760866148179D-05
        ws(  3) = 0.1118773047746759D-04
        ws(  4) = 0.1524042713949381D-04
        ws(  5) = 0.1927468129492719D-04
        ws(  6) = 0.2330050807568286D-04
        ws(  7) = 0.2731371162067588D-04
        ws(  8) = 0.3131992804112479D-04
        ws(  9) = 0.3533897755312445D-04
        ws( 10) = 0.3936580199258843D-04
        ws( 11) = 0.4340522098541658D-04
        ws( 12) = 0.4748876610178446D-04
        ws( 13) = 0.5160348130996694D-04
        ws( 14) = 0.5577162383886510D-04
        ws( 15) = 0.6000485620682407D-04
        ws( 16) = 0.6432645072603452D-04
        ws( 17) = 0.6872899803012124D-04
        ws( 18) = 0.7323219269762300D-04
        ws( 19) = 0.7784888364828331D-04
        ws( 20) = 0.8260771976839775D-04
        ws( 21) = 0.8752868503624883D-04
        ws( 22) = 0.9261010781707811D-04
        ws( 23) = 0.9786639955441427D-04
        ws( 24) = 0.1033212114934437D-03
        ws( 25) = 0.1090208746398824D-03
        ws( 26) = 0.1149666090369924D-03
        ws( 27) = 0.1211970693521061D-03
        ws( 28) = 0.1277098797395328D-03
        ws( 29) = 0.1345413057792813D-03
        ws( 30) = 0.1417523422886055D-03
        ws( 31) = 0.1493720076980180D-03
        ws( 32) = 0.1574162319430092D-03
        ws( 33) = 0.1659097701891971D-03
        ws( 34) = 0.1749564268662360D-03
        ws( 35) = 0.1846222313399618D-03
        ws( 36) = 0.1948294908958466D-03
        ws( 37) = 0.2058761520015931D-03
        ws( 38) = 0.2176914191244827D-03
        ws( 39) = 0.2303053413416919D-03
        ws( 40) = 0.2439086378706318D-03
        ws( 41) = 0.2587073017313130D-03
        ws( 42) = 0.2745250597982118D-03
        ws( 43) = 0.2917664206021835D-03
        ws( 44) = 0.3107315859974001D-03
        ws( 45) = 0.3312357085586141D-03
        ws( 46) = 0.3537771299527976D-03
        ws( 47) = 0.3786901224660195D-03
        ws( 48) = 0.4060876172132892D-03
        ws( 49) = 0.4360697229659473D-03
        ws( 50) = 0.4699425491150965D-03
        ws( 51) = 0.5079969956266529D-03
        ws( 52) = 0.5499778361731394D-03
        ws( 53) = 0.5997169978598798D-03
        ws( 54) = 0.6560689985473439D-03
        ws( 55) = 0.7184823053397895D-03
        ws( 56) = 0.7921831434373114D-03
        ws( 57) = 0.8766043657638063D-03
        ws( 58) = 0.9744288635960673D-03
        ws( 59) = 0.1101206675790162D-02
        ws( 60) = 0.1262042717565012D-02
        ws( 61) = 0.1481540409279947D-02
        ws( 62) = 0.1799488640577665D-02
        ws( 63) = 0.2211753044880415D-02
        ws( 64) = 0.2812076923230650D-02
        ws( 65) = 0.3777644454830417D-02
        ws( 66) = 0.5375361146335765D-02
        ws( 67) = 0.8059691973922855D-02
        ws( 68) = 0.1282780725566915D-01
        ws( 69) = 0.2171205907565704D-01
        ws( 70) = 0.3031796608090637D-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 =  74
        err = 0.8067863007650071D-04
        xs(  1) = 0.1061798837748155D-05
        xs(  2) = 0.5594865784514378D-05
        xs(  3) = 0.1374465438648134D-04
        xs(  4) = 0.2550078424000462D-04
        xs(  5) = 0.4085342720984922D-04
        xs(  6) = 0.5979054485207456D-04
        xs(  7) = 0.8229791064451126D-04
        xs(  8) = 0.1083659833479128D-03
        xs(  9) = 0.1379941233730076D-03
        xs( 10) = 0.1711781192624923D-03
        xs( 11) = 0.2079283220513341D-03
        xs( 12) = 0.2482631967294368D-03
        xs( 13) = 0.2922012910211290D-03
        xs( 14) = 0.3397754173426374D-03
        xs( 15) = 0.3910224151312690D-03
        xs( 16) = 0.4459938912514288D-03
        xs( 17) = 0.5047602322143144D-03
        xs( 18) = 0.5673796520606313D-03
        xs( 19) = 0.6339350181885469D-03
        xs( 20) = 0.7045059666663623D-03
        xs( 21) = 0.7792058312565278D-03
        xs( 22) = 0.8581589914818903D-03
        xs( 23) = 0.9414913812493081D-03
        xs( 24) = 0.1029335785726696D-02
        xs( 25) = 0.1121845491654833D-02
        xs( 26) = 0.1219199917677263D-02
        xs( 27) = 0.1321589856067260D-02
        xs( 28) = 0.1429226286686543D-02
        xs( 29) = 0.1542326005960113D-02
        xs( 30) = 0.1661130764368548D-02
        xs( 31) = 0.1785909161758160D-02
        xs( 32) = 0.1916967333620977D-02
        xs( 33) = 0.2054634673563428D-02
        xs( 34) = 0.2199237897358716D-02
        xs( 35) = 0.2351141530390742D-02
        xs( 36) = 0.2510801623576903D-02
        xs( 37) = 0.2678653605143427D-02
        xs( 38) = 0.2855190816267785D-02
        xs( 39) = 0.3041029345845154D-02
        xs( 40) = 0.3236743435535219D-02
        xs( 41) = 0.3442985749923651D-02
        xs( 42) = 0.3660476635858389D-02
        xs( 43) = 0.3890089417184290D-02
        xs( 44) = 0.4132614089913171D-02
        xs( 45) = 0.4389196853375643D-02
        xs( 46) = 0.4660920473005372D-02
        xs( 47) = 0.4949057428756380D-02
        xs( 48) = 0.5255013160931810D-02
        xs( 49) = 0.5580247063232720D-02
        xs( 50) = 0.5926554100089311D-02
        xs( 51) = 0.6296044228576554D-02
        xs( 52) = 0.6691090192382960D-02
        xs( 53) = 0.7114290329558951D-02
        xs( 54) = 0.7568663801205239D-02
        xs( 55) = 0.8058013380066545D-02
        xs( 56) = 0.8586567959381340D-02
        xs( 57) = 0.9159392740353604D-02
        xs( 58) = 0.9782513110043009D-02
        xs( 59) = 0.1046204464649451D-01
        xs( 60) = 0.1120830783698958D-01
        xs( 61) = 0.1202953772520790D-01
        xs( 62) = 0.1293553040306448D-01
        xs( 63) = 0.1394735915019683D-01
        xs( 64) = 0.1509901306876952D-01
        xs( 65) = 0.1644533042372607D-01
        xs( 66) = 0.1806443022545069D-01
        xs( 67) = 0.2002663200800261D-01
        xs( 68) = 0.2245055903441154D-01
        xs( 69) = 0.2558770296382818D-01
        xs( 70) = 0.2988352045016583D-01
        xs( 71) = 0.3607722614343198D-01
        xs( 72) = 0.4550940497410284D-01
        xs( 73) = 0.6096380891223614D-01
        xs( 74) = 0.8739696341818214D-01
        ws(  1) = 0.2722424792536671D-05
        ws(  2) = 0.6343405212029214D-05
        ws(  3) = 0.9953714810319528D-05
        ws(  4) = 0.1356322090222007D-04
        ws(  5) = 0.1714512182411540D-04
        ws(  6) = 0.2072421919034813D-04
        ws(  7) = 0.2428487999801309D-04
        ws(  8) = 0.2784556733423298D-04
        ws(  9) = 0.3140458350788635D-04
        ws( 10) = 0.3497219857994446D-04
        ws( 11) = 0.3853881152514834D-04
        ws( 12) = 0.4213496554588888D-04
        ws( 13) = 0.4574260753775700D-04
        ws( 14) = 0.4940638374586797D-04
        ws( 15) = 0.5309914599702871D-04
        ws( 16) = 0.5685791700956252D-04
        ws( 17) = 0.6068186979510312D-04
        ws( 18) = 0.6457268374566907D-04
        ws( 19) = 0.6854529582936203D-04
        ws( 20) = 0.7261664427570033D-04
        ws( 21) = 0.7680562704250075D-04
        ws( 22) = 0.8112130647957240D-04
        ws( 23) = 0.8556430380408297D-04
        ws( 24) = 0.9014818998524535D-04
        ws( 25) = 0.9490244214801486D-04
        ws( 26) = 0.9983766943436487D-04
        ws( 27) = 0.1049748506011869D-03
        ws( 28) = 0.1103309480684752D-03
        ws( 29) = 0.1159131929768762D-03
        ws( 30) = 0.1217403796126947D-03
        ws( 31) = 0.1278648370023782D-03
        ws( 32) = 0.1343041852453954D-03
        ws( 33) = 0.1410828949782218D-03
        ws( 34) = 0.1481820142178113D-03
        ws( 35) = 0.1557023809336807D-03
        ws( 36) = 0.1636891517477617D-03
        ws( 37) = 0.1720895916821592D-03
        ws( 38) = 0.1810958149025197D-03
        ws( 39) = 0.1906744333133333D-03
        ws( 40) = 0.2008611328146224D-03
        ws( 41) = 0.2117296392828120D-03
        ws( 42) = 0.2234179448768031D-03
        ws( 43) = 0.2359225658124283D-03
        ws( 44) = 0.2493321690972711D-03
        ws( 45) = 0.2640028919415486D-03
        ws( 46) = 0.2796753562416289D-03
        ws( 47) = 0.2968381496396577D-03
        ws( 48) = 0.3153039066013746D-03
        ws( 49) = 0.3354602278027770D-03
        ws( 50) = 0.3575166304212583D-03
        ws( 51) = 0.3818593332595919D-03
        ws( 52) = 0.4086796436086960D-03
        ws( 53) = 0.4382147872724156D-03
        ws( 54) = 0.4711731363896248D-03
        ws( 55) = 0.5082449229075527D-03
        ws( 56) = 0.5496264829434414D-03
        ws( 57) = 0.5971720082691554D-03
        ws( 58) = 0.6498113542283469D-03
        ws( 59) = 0.7112680993481574D-03
        ws( 60) = 0.7824373220836381D-03
        ws( 61) = 0.8614565674262347D-03
        ws( 62) = 0.9540272887600303D-03
        ws( 63) = 0.1075205551972385D-02
        ws( 64) = 0.1236984984455946D-02
        ws( 65) = 0.1469726650334975D-02
        ws( 66) = 0.1778959163440180D-02
        ws( 67) = 0.2163812395240480D-02
        ws( 68) = 0.2725039773592687D-02
        ws( 69) = 0.3622052739089836D-02
        ws( 70) = 0.5087328692167847D-02
        ws( 71) = 0.7509630322205180D-02
        ws( 72) = 0.1180139103770730D-01
        ws( 73) = 0.2005166866089565D-01
        ws( 74) = 0.3162650964559367D-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 =  13
        err = 0.3527412675464020D-04
        xs(  1) = 0.7678398631569854D-03
        xs(  2) = 0.3804749098197208D-02
        xs(  3) = 0.8632337065053355D-02
        xs(  4) = 0.1475220264973218D-01
        xs(  5) = 0.2182351001074604D-01
        xs(  6) = 0.2961552937457568D-01
        xs(  7) = 0.3797193346457673D-01
        xs(  8) = 0.4678716732016456D-01
        xs(  9) = 0.5599098630910859D-01
        xs( 10) = 0.6553817590598099D-01
        xs( 11) = 0.7540562070564387D-01
        xs( 12) = 0.8558222769741604D-01
        xs( 13) = 0.9611314348129130D-01
        ws(  1) = 0.1937545820289237D-02
        ws(  2) = 0.4030132237393523D-02
        ws(  3) = 0.5542075680585467D-02
        ws(  4) = 0.6641758157869420D-02
        ws(  5) = 0.7462985587585316D-02
        ws(  6) = 0.8095555026692286D-02
        ws(  7) = 0.8600520702348548D-02
        ws(  8) = 0.9020466899528522D-02
        ws(  9) = 0.9385980711619359D-02
        ws( 10) = 0.9725683248398185D-02
        ws( 11) = 0.1008269203811184D-01
        ws( 12) = 0.1055431304604755D-01
        ws( 13) = 0.1217739936396911D-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 =  11
        err = 0.8967173591361268D-04
        xs(  1) = 0.8539767619509983D-03
        xs(  2) = 0.4207175916647156D-02
        xs(  3) = 0.9478891420227996D-02
        xs(  4) = 0.1608238315573452D-01
        xs(  5) = 0.2362929221372472D-01
        xs(  6) = 0.3187383054520204D-01
        xs(  7) = 0.4066138716943297D-01
        xs(  8) = 0.4989585267313284D-01
        xs(  9) = 0.5952076894637006D-01
        xs( 10) = 0.6949490306617132D-01
        xs( 11) = 0.7982952871617786D-01
        ws(  1) = 0.2151184357699628D-02
        ws(  2) = 0.4428462371463060D-02
        ws(  3) = 0.6017304121507312D-02
        ws(  4) = 0.7126277212405310D-02
        ws(  5) = 0.7928339280891513D-02
        ws(  6) = 0.8538119925317219D-02
        ws(  7) = 0.9028714370202896D-02
        ws(  8) = 0.9455578894152107D-02
        ws(  9) = 0.9873721312712077D-02
        ws( 10) = 0.1038724122987281D-01
        ws( 11) = 0.1203618521107651D-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 =  11
        err = 0.6245173008174260D-04
        xs(  1) = 0.7660129825482676D-03
        xs(  2) = 0.3882238942704300D-02
        xs(  3) = 0.8969469946700675D-02
        xs(  4) = 0.1547335405214063D-01
        xs(  5) = 0.2297491631034467D-01
        xs(  6) = 0.3120450420455944D-01
        xs(  7) = 0.3999423652006265D-01
        xs(  8) = 0.4924083790064536D-01
        xs(  9) = 0.5888019340665366D-01
        xs( 10) = 0.6886202364117087D-01
        xs( 11) = 0.7918347236100684D-01
        ws(  1) = 0.1947186467657496D-02
        ws(  2) = 0.4199254606386456D-02
        ws(  3) = 0.5879526645829724D-02
        ws(  4) = 0.7058992698843376D-02
        ws(  5) = 0.7901280053779986D-02
        ws(  6) = 0.8533576157034725D-02
        ws(  7) = 0.9037338640258784D-02
        ws(  8) = 0.9471259446852917D-02
        ws(  9) = 0.9887625137332755D-02
        ws( 10) = 0.1039468742643509D-01
        ws( 11) = 0.1201584297611616D-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 =  11
        err = 0.7286373720014420D-04
        xs(  1) = 0.7456763456757471D-03
        xs(  2) = 0.3816479980046205D-02
        xs(  3) = 0.8881389490367809D-02
        xs(  4) = 0.1538108333174117D-01
        xs(  5) = 0.2288504282281110D-01
        xs(  6) = 0.3111868211019305D-01
        xs(  7) = 0.3991259266226195D-01
        xs(  8) = 0.4916278321036841D-01
        xs(  9) = 0.5880483504144252D-01
        xs( 10) = 0.6878807528699490D-01
        xs( 11) = 0.7910584876127776D-01
        ws(  1) = 0.1901964339404456D-02
        ws(  2) = 0.4163207472300358D-02
        ws(  3) = 0.5868796695295616D-02
        ws(  4) = 0.7059394069117842D-02
        ws(  5) = 0.7904949342912708D-02
        ws(  6) = 0.8537867564305754D-02
        ws(  7) = 0.9041449720047013D-02
        ws(  8) = 0.9474683683517227D-02
        ws(  9) = 0.9890469050257176D-02
        ws( 10) = 0.1039593084251636D-01
        ws( 11) = 0.1201103871758255D-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 =  12
        err = 0.8361933622002644D-04
        xs(  1) = 0.6737996761943581D-03
        xs(  2) = 0.3485695913141138D-02
        xs(  3) = 0.8211847919714108D-02
        xs(  4) = 0.1437490783855092D-01
        xs(  5) = 0.2157034725925459D-01
        xs(  6) = 0.2952072693516601D-01
        xs(  7) = 0.3804662336883776D-01
        xs(  8) = 0.4703245889801525D-01
        xs(  9) = 0.5640512059005591D-01
        xs( 10) = 0.6612052083167247D-01
        xs( 11) = 0.7615007287809440D-01
        xs( 12) = 0.8653989463655515D-01
        ws(  1) = 0.1724037975780245D-02
        ws(  2) = 0.3845303408812635D-02
        ws(  3) = 0.5522709452049751D-02
        ws(  4) = 0.6735677144911179D-02
        ws(  5) = 0.7609927754976046D-02
        ws(  6) = 0.8262490678575108D-02
        ws(  7) = 0.8773042940277771D-02
        ws(  8) = 0.9194152193899180D-02
        ws(  9) = 0.9568421185780288D-02
        ws( 10) = 0.9942540806749419D-02
        ws( 11) = 0.1042553307463595D-01
        ws( 12) = 0.1208250024230274D-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 =  12
        err = 0.8473741836786472D-04
        xs(  1) = 0.4245945914608492D-03
        xs(  2) = 0.2337251882763217D-02
        xs(  3) = 0.6025445897285439D-02
        xs(  4) = 0.1144146647846023D-01
        xs(  5) = 0.1821119739770822D-01
        xs(  6) = 0.2594275343616385D-01
        xs(  7) = 0.3436865145493031D-01
        xs(  8) = 0.4332200281288701D-01
        xs(  9) = 0.5269488321061935D-01
        xs( 10) = 0.6242163853033298D-01
        xs( 11) = 0.7244204073873320D-01
        xs( 12) = 0.8273929271563595D-01
        ws(  1) = 0.1102809049810873D-02
        ws(  2) = 0.2771068433487600D-02
        ws(  3) = 0.4597351787690356D-02
        ws(  4) = 0.6165821629516184D-02
        ws(  5) = 0.7306643374954956D-02
        ws(  6) = 0.8114112930974953D-02
        ws(  7) = 0.8714125765456743D-02
        ws(  8) = 0.9183417209668528D-02
        ws(  9) = 0.9578197035541655D-02
        ws( 10) = 0.9955477175542677D-02
        ws( 11) = 0.1039494562777429D-01
        ws( 12) = 0.1196302290108348D-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 =  13
        err = 0.8362036456680834D-04
        xs(  1) = 0.2615531007815556D-03
        xs(  2) = 0.1451187068031257D-02
        xs(  3) = 0.3896504738700606D-02
        xs(  4) = 0.7997215674386647D-02
        xs(  5) = 0.1382548490598093D-01
        xs(  6) = 0.2099631853095732D-01
        xs(  7) = 0.2907487391693679D-01
        xs(  8) = 0.3778235436297604D-01
        xs(  9) = 0.4695393703096485D-01
        xs( 10) = 0.5648924526800569D-01
        xs( 11) = 0.6633136531843840D-01
        xs( 12) = 0.7642150573732609D-01
        xs( 13) = 0.8678178516516158D-01
        ws(  1) = 0.6792948394982397D-03
        ws(  2) = 0.1750017955549123D-02
        ws(  3) = 0.3216663706099562D-02
        ws(  4) = 0.5000058531598104D-02
        ws(  5) = 0.6582054853571297D-02
        ws(  6) = 0.7684978977663809D-02
        ws(  7) = 0.8428118364164759D-02
        ws(  8) = 0.8963508253413383D-02
        ws(  9) = 0.9372552597067261D-02
        ws( 10) = 0.9719254245796963D-02
        ws( 11) = 0.1004684989202671D-01
        ws( 12) = 0.1044442636378752D-01
        ws( 13) = 0.1205595256663121D-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 =  14
        err = 0.8892095634682969D-04
        xs(  1) = 0.1162441753403378D-03
        xs(  2) = 0.6333498600242306D-03
        xs(  3) = 0.1658739929175859D-02
        xs(  4) = 0.3405481021111542D-02
        xs(  5) = 0.6267381233274419D-02
        xs(  6) = 0.1072481246768843D-01
        xs(  7) = 0.1692784070061005D-01
        xs(  8) = 0.2451456663955018D-01
        xs(  9) = 0.3303130091159353D-01
        xs( 10) = 0.4217560297940665D-01
        xs( 11) = 0.5175566405036634D-01
        xs( 12) = 0.6170447629863630D-01
        xs( 13) = 0.7203952920340587D-01
        xs( 14) = 0.8258869367463477D-01
        ws(  1) = 0.3007452632935054D-03
        ws(  2) = 0.7478657970652997D-03
        ws(  3) = 0.1337117892711317D-02
        ws(  4) = 0.2222924151908445D-02
        ws(  5) = 0.3589077820230734D-02
        ws(  6) = 0.5355579628100081D-02
        ws(  7) = 0.6979971016652292D-02
        ws(  8) = 0.8115363857831863D-02
        ws(  9) = 0.8871560643581916D-02
        ws( 10) = 0.9394696872979183D-02
        ws( 11) = 0.9781460070398946D-02
        ws( 12) = 0.1021237377305937D-01
        ws( 13) = 0.1069038306887820D-01
        ws( 14) = 0.1214367284529630D-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 =  19
        err = 0.6239307214363929D-04
        xs(  1) = 0.3916672331665578D-04
        xs(  2) = 0.2081921411582500D-03
        xs(  3) = 0.5207638953088712D-03
        xs(  4) = 0.9948543954729128D-03
        xs(  5) = 0.1663497280434144D-02
        xs(  6) = 0.2582857935454433D-02
        xs(  7) = 0.3844502118048397D-02
        xs(  8) = 0.5604601672637517D-02
        xs(  9) = 0.8138600915516365D-02
        xs( 10) = 0.1188819149317987D-01
        xs( 11) = 0.1733335628025766D-01
        xs( 12) = 0.2458162521560223D-01
        xs( 13) = 0.3321553856472689D-01
        xs( 14) = 0.4271594487060780D-01
        xs( 15) = 0.5275637206326746D-01
        xs( 16) = 0.6315527147674060D-01
        xs( 17) = 0.7384977072269923D-01
        xs( 18) = 0.8487823720075129D-01
        xs( 19) = 0.9600028336524637D-01
        ws(  1) = 0.1007024348862355D-03
        ws(  2) = 0.2387645814330008D-03
        ws(  3) = 0.3892886068096129D-03
        ws(  4) = 0.5642246793093133D-03
        ws(  5) = 0.7822545399430759D-03
        ws(  6) = 0.1071278766645210D-02
        ws(  7) = 0.1477128665858752D-02
        ws(  8) = 0.2087715904210498D-02
        ws(  9) = 0.3055381700242867D-02
        ws( 10) = 0.4532245086020567D-02
        ws( 11) = 0.6379981614414309D-02
        ws( 12) = 0.8036665235861372D-02
        ws( 13) = 0.9139721369930591D-02
        ws( 14) = 0.9811191545976384D-02
        ws( 15) = 0.1024720598008901D-01
        ws( 16) = 0.1056719574812970D-01
        ws( 17) = 0.1092540179002852D-01
        ws( 18) = 0.1132068056122065D-01
        ws( 19) = 0.1242934393205619D-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 =  21
        err = 0.7158494972407084D-04
        xs(  1) = 0.2094506878403618D-04
        xs(  2) = 0.1107400481497485D-03
        xs(  3) = 0.2743280525007582D-03
        xs(  4) = 0.5158776078511977D-03
        xs(  5) = 0.8427886609119778D-03
        xs(  6) = 0.1266652766615629D-02
        xs(  7) = 0.1805192806036656D-02
        xs(  8) = 0.2485027907584384D-02
        xs(  9) = 0.3346413305004674D-02
        xs( 10) = 0.4449469807717762D-02
        xs( 11) = 0.5888399359518959D-02
        xs( 12) = 0.7825789033265897D-02
        xs( 13) = 0.1055423308798649D-01
        xs( 14) = 0.1458099366398651D-01
        xs( 15) = 0.2061748334260117D-01
        xs( 16) = 0.2912225241398530D-01
        xs( 17) = 0.3964402224225729D-01
        xs( 18) = 0.5124659977719550D-01
        xs( 19) = 0.6336072018356483D-01
        xs( 20) = 0.7586646625948024D-01
        xs( 21) = 0.8813520643356924D-01
        ws(  1) = 0.5378877600106245D-04
        ws(  2) = 0.1261831413610537D-03
        ws(  3) = 0.2016461226594318D-03
        ws(  4) = 0.2826811633475970D-03
        ws(  5) = 0.3730281450544429D-03
        ws(  6) = 0.4776297171777460D-03
        ws(  7) = 0.6038221567665269D-03
        ws(  8) = 0.7624507447750641D-03
        ws(  9) = 0.9701623713679292D-03
        ws( 10) = 0.1251127612327870D-02
        ws( 11) = 0.1652724869434737D-02
        ws( 12) = 0.2269505990323175D-02
        ws( 13) = 0.3270722903161213D-02
        ws( 14) = 0.4909088656742416D-02
        ws( 15) = 0.7256601681999787D-02
        ws( 16) = 0.9665776076009276D-02
        ws( 17) = 0.1120316253271552D-01
        ws( 18) = 0.1192863626353672D-01
        ws( 19) = 0.1233743011162732D-01
        ws( 20) = 0.1290287832028655D-01
        ws( 21) = 0.1322454023549273D-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 =  24
        err = 0.8214033821624262D-04
        xs(  1) = 0.1308135469591237D-04
        xs(  2) = 0.6897844219474470D-04
        xs(  3) = 0.1701082099392234D-03
        xs(  4) = 0.3176949367902364D-03
        xs(  5) = 0.5139933164981516D-03
        xs(  6) = 0.7625353979677804D-03
        xs(  7) = 0.1068607240426348D-02
        xs(  8) = 0.1439661073115915D-02
        xs(  9) = 0.1885912828055788D-02
        xs( 10) = 0.2421393955909287D-02
        xs( 11) = 0.3065249411284335D-02
        xs( 12) = 0.3845725933111949D-02
        xs( 13) = 0.4803228155426068D-02
        xs( 14) = 0.5992180109649540D-02
        xs( 15) = 0.7499474296314257D-02
        xs( 16) = 0.9487277860242742D-02
        xs( 17) = 0.1223626274279295D-01
        xs( 18) = 0.1624622684662092D-01
        xs( 19) = 0.2232325564888086D-01
        xs( 20) = 0.3126296388013056D-01
        xs( 21) = 0.4297746063023904D-01
        xs( 22) = 0.5629476264495504D-01
        xs( 23) = 0.7026040775362084D-01
        xs( 24) = 0.8426445551716619D-01
        ws(  1) = 0.3356354173603260D-04
        ws(  2) = 0.7835677323476365D-04
        ws(  3) = 0.1240878052363580D-03
        ws(  4) = 0.1714680407693244D-03
        ws(  5) = 0.2217046242289759D-03
        ws(  6) = 0.2762654033398780D-03
        ws(  7) = 0.3370936681962938D-03
        ws(  8) = 0.4066952780930497D-03
        ws(  9) = 0.4881476995302466D-03
        ws( 10) = 0.5858908795027223D-03
        ws( 11) = 0.7064859242596755D-03
        ws( 12) = 0.8612179560358528D-03
        ws( 13) = 0.1062651452859979D-02
        ws( 14) = 0.1328756230154147D-02
        ws( 15) = 0.1712521369025628D-02
        ws( 16) = 0.2308157764916702D-02
        ws( 17) = 0.3270820330178507D-02
        ws( 18) = 0.4887640334714533D-02
        ws( 19) = 0.7415752548688598D-02
        ws( 20) = 0.1045781283441754D-01
        ws( 21) = 0.1274020955757913D-01
        ws( 22) = 0.1371292466574358D-01
        ws( 23) = 0.1440260500981199D-01
        ws( 24) = 0.1436162086851701D-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 =  29
        err = 0.8581549199507277D-04
        xs(  1) = 0.8755232706600027D-05
        xs(  2) = 0.4617795841668969D-04
        xs(  3) = 0.1137008867252902D-03
        xs(  4) = 0.2117616552082777D-03
        xs(  5) = 0.3411474606916110D-03
        xs(  6) = 0.5031343336530585D-03
        xs(  7) = 0.6995939884658713D-03
        xs(  8) = 0.9331807634526700D-03
        xs(  9) = 0.1207416329143482D-02
        xs( 10) = 0.1526853785003749D-02
        xs( 11) = 0.1897395762767319D-02
        xs( 12) = 0.2326606598366293D-02
        xs( 13) = 0.2824451533588960D-02
        xs( 14) = 0.3403982819099593D-02
        xs( 15) = 0.4082012854525126D-02
        xs( 16) = 0.4881205241237213D-02
        xs( 17) = 0.5833807918805918D-02
        xs( 18) = 0.6983858206094768D-02
        xs( 19) = 0.8391525399613454D-02
        xs( 20) = 0.1015564425730056D-01
        xs( 21) = 0.1245900887786343D-01
        xs( 22) = 0.1561934599754275D-01
        xs( 23) = 0.2016365165949743D-01
        xs( 24) = 0.2686925190247743D-01
        xs( 25) = 0.3650166780041937D-01
        xs( 26) = 0.4908874745981984D-01
        xs( 27) = 0.6370739778828646D-01
        xs( 28) = 0.7923097733720767D-01
        xs( 29) = 0.9452251575871566D-01
        ws(  1) = 0.2247580430130392D-04
        ws(  2) = 0.5242057213015105D-04
        ws(  3) = 0.8269486502641491D-04
        ws(  4) = 0.1135537323666893D-03
        ws(  5) = 0.1454295816313229D-03
        ws(  6) = 0.1788533909591581D-03
        ws(  7) = 0.2145095698853373D-03
        ws(  8) = 0.2532472231415728D-03
        ws(  9) = 0.2959764630393171D-03
        ws( 10) = 0.3438787879061954D-03
        ws( 11) = 0.3984538437947237D-03
        ws( 12) = 0.4616261020998934D-03
        ws( 13) = 0.5362288218166889D-03
        ws( 14) = 0.6255889970789496D-03
        ws( 15) = 0.7341847546117435D-03
        ws( 16) = 0.8695449793193896D-03
        ws( 17) = 0.1042953432197455D-02
        ws( 18) = 0.1266869348735001D-02
        ws( 19) = 0.1563990385304927D-02
        ws( 20) = 0.1994050752279810D-02
        ws( 21) = 0.2664336020286443D-02
        ws( 22) = 0.3742857750613678D-02
        ws( 23) = 0.5478600248811643D-02
        ws( 24) = 0.8075061144454908D-02
        ws( 25) = 0.1120035265795642D-01
        ws( 26) = 0.1379991248558610D-01
        ws( 27) = 0.1523524258593079D-01
        ws( 28) = 0.1583700197758502D-01
        ws( 29) = 0.1519343634592437D-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 =  33
        err = 0.5630825686006751D-04
        xs(  1) = 0.6331113111208530D-05
        xs(  2) = 0.3337657726363641D-04
        xs(  3) = 0.8209093057762560D-04
        xs(  4) = 0.1526317091582263D-03
        xs(  5) = 0.2453017551695609D-03
        xs(  6) = 0.3606055571148211D-03
        xs(  7) = 0.4993251941639676D-03
        xs(  8) = 0.6625520944416466D-03
        xs(  9) = 0.8517917821036607D-03
        xs( 10) = 0.1068968845010522D-02
        xs( 11) = 0.1316503418181003D-02
        xs( 12) = 0.1597442149558732D-02
        xs( 13) = 0.1915594286097532D-02
        xs( 14) = 0.2275751774227959D-02
        xs( 15) = 0.2683806364058871D-02
        xs( 16) = 0.3147110955795467D-02
        xs( 17) = 0.3674917125453124D-02
        xs( 18) = 0.4279139095865912D-02
        xs( 19) = 0.4974715447386488D-02
        xs( 20) = 0.5782071408503468D-02
        xs( 21) = 0.6728915205485006D-02
        xs( 22) = 0.7853715813164500D-02
        xs( 23) = 0.9207972935893155D-02
        xs( 24) = 0.1086848046920188D-01
        xs( 25) = 0.1298486660384106D-01
        xs( 26) = 0.1580852755271760D-01
        xs( 27) = 0.1974359255778868D-01
        xs( 28) = 0.2550584186229271D-01
        xs( 29) = 0.3410085593823959D-01
        xs( 30) = 0.4619636363883259D-01
        xs( 31) = 0.6122880393645174D-01
        xs( 32) = 0.7766272154055631D-01
        xs( 33) = 0.9392163860811654D-01
        ws(  1) = 0.1624995314346162D-04
        ws(  2) = 0.3786302251444483D-04
        ws(  3) = 0.5958990257182635D-04
        ws(  4) = 0.8154248800636865D-04
        ws(  5) = 0.1038795676328829D-03
        ws(  6) = 0.1268597235298956D-03
        ws(  7) = 0.1507563990558009D-03
        ws(  8) = 0.1759494447117780D-03
        ws(  9) = 0.2028493404873522D-03
        ws( 10) = 0.2319051869558152D-03
        ws( 11) = 0.2636729587119942D-03
        ws( 12) = 0.2988315814727014D-03
        ws( 13) = 0.3382766503645227D-03
        ws( 14) = 0.3830097660868946D-03
        ws( 15) = 0.4343184315579846D-03
        ws( 16) = 0.4938194961970936D-03
        ws( 17) = 0.5637976376596184D-03
        ws( 18) = 0.6470674256149480D-03
        ws( 19) = 0.7474879490408141D-03
        ws( 20) = 0.8717370848929787D-03
        ws( 21) = 0.1028366642751645D-02
        ws( 22) = 0.1229702313851554D-02
        ws( 23) = 0.1490623743934811D-02
        ws( 24) = 0.1854889507992053D-02
        ws( 25) = 0.2419404261251687D-02
        ws( 26) = 0.3291712757147531D-02
        ws( 27) = 0.4697139859267946D-02
        ws( 28) = 0.7005876934850861D-02
        ws( 29) = 0.1031415461036662D-01
        ws( 30) = 0.1377896993429469D-01
        ws( 31) = 0.1600412391575530D-01
        ws( 32) = 0.1677364528810281D-01
        ws( 33) = 0.1578003546915167D-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 =  37
        err = 0.3022721555876962D-04
        xs(  1) = 0.4736014640917039D-05
        xs(  2) = 0.2495635794278878D-04
        xs(  3) = 0.6135672889036908D-04
        xs(  4) = 0.1140097888676462D-03
        xs(  5) = 0.1830457565206725D-03
        xs(  6) = 0.2686919881366797D-03
        xs(  7) = 0.3713101919629267D-03
        xs(  8) = 0.4914297121918243D-03
        xs(  9) = 0.6297776723873641D-03
        xs( 10) = 0.7873034539246366D-03
        xs( 11) = 0.9651809157805418D-03
        xs( 12) = 0.1164864429800380D-02
        xs( 13) = 0.1388124354544930D-02
        xs( 14) = 0.1637146694316238D-02
        xs( 15) = 0.1914584533947599D-02
        xs( 16) = 0.2223601958283688D-02
        xs( 17) = 0.2568018892077174D-02
        xs( 18) = 0.2952464014096448D-02
        xs( 19) = 0.3382576929899637D-02
        xs( 20) = 0.3865342821558078D-02
        xs( 21) = 0.4409559457053617D-02
        xs( 22) = 0.5025841918699108D-02
        xs( 23) = 0.5727983311912457D-02
        xs( 24) = 0.6535153383068781D-02
        xs( 25) = 0.7472073568588295D-02
        xs( 26) = 0.8569768824066518D-02
        xs( 27) = 0.9870959147583317D-02
        xs( 28) = 0.1144100970997806D-01
        xs( 29) = 0.1340411406118772D-01
        xs( 30) = 0.1596429831526469D-01
        xs( 31) = 0.1941575976817236D-01
        xs( 32) = 0.2427366425162909D-01
        xs( 33) = 0.3140905946461925D-01
        xs( 34) = 0.4189934430151689D-01
        xs( 35) = 0.5631883656112140D-01
        xs( 36) = 0.7390206446429803D-01
        xs( 37) = 0.9256747713271667D-01
        ws(  1) = 0.1215414074506773D-04
        ws(  2) = 0.2830091999618857D-04
        ws(  3) = 0.4451122852437104D-04
        ws(  4) = 0.6081635954646938D-04
        ws(  5) = 0.7729288218025435D-04
        ws(  6) = 0.9405899869929026D-04
        ws(  7) = 0.1112645469454159D-03
        ws(  8) = 0.1290944063018553D-03
        ws(  9) = 0.1477610738381799D-03
        ws( 10) = 0.1674853185614321D-03
        ws( 11) = 0.1885119166042780D-03
        ws( 12) = 0.2111462999774210D-03
        ws( 13) = 0.2357359632839436D-03
        ws( 14) = 0.2627491647285891D-03
        ws( 15) = 0.2926532130326210D-03
        ws( 16) = 0.3260160782428255D-03
        ws( 17) = 0.3635834319799583D-03
        ws( 18) = 0.4062446362738391D-03
        ws( 19) = 0.4551336652651817D-03
        ws( 20) = 0.5118748254502581D-03
        ws( 21) = 0.5783088760359606D-03
        ws( 22) = 0.6565193753822850D-03
        ws( 23) = 0.7509641928886159D-03
        ws( 24) = 0.8675368471947460D-03
        ws( 25) = 0.1011339452027335D-02
        ws( 26) = 0.1191114585197228D-02
        ws( 27) = 0.1421442213627949D-02
        ws( 28) = 0.1738840529502541D-02
        ws( 29) = 0.2221883564636690D-02
        ws( 30) = 0.2944871296295726D-02
        ws( 31) = 0.4040837995015476D-02
        ws( 32) = 0.5822334458742894D-02
        ws( 33) = 0.8640026839801002D-02
        ws( 34) = 0.1245174035902265D-01
        ws( 35) = 0.1626803981550379D-01
        ws( 36) = 0.1859683130348224D-01
        ws( 37) = 0.1812317471850857D-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 =  41
        err = 0.4764776459370895D-04
        xs(  1) = 0.3746319944669131D-05
        xs(  2) = 0.1973645635538959D-04
        xs(  3) = 0.4850184345542235D-04
        xs(  4) = 0.9005844029884853D-04
        xs(  5) = 0.1444479163510746D-03
        xs(  6) = 0.2117700029520685D-03
        xs(  7) = 0.2922006565063938D-03
        xs(  8) = 0.3860115840376233D-03
        xs(  9) = 0.4935849753810402D-03
        xs( 10) = 0.6154254450704044D-03
        xs( 11) = 0.7521669903682510D-03
        xs( 12) = 0.9045960031451762D-03
        xs( 13) = 0.1073673252706651D-02
        xs( 14) = 0.1260533354121750D-02
        xs( 15) = 0.1466533288485700D-02
        xs( 16) = 0.1693295451357687D-02
        xs( 17) = 0.1942741104297774D-02
        xs( 18) = 0.2217142677806637D-02
        xs( 19) = 0.2519126586601763D-02
        xs( 20) = 0.2851848578254633D-02
        xs( 21) = 0.3219152504927202D-02
        xs( 22) = 0.3625587893547398D-02
        xs( 23) = 0.4076424747924305D-02
        xs( 24) = 0.4578443529953365D-02
        xs( 25) = 0.5140098154693800D-02
        xs( 26) = 0.5771142999661196D-02
        xs( 27) = 0.6484741736089294D-02
        xs( 28) = 0.7298777067926573D-02
        xs( 29) = 0.8234216233213795D-02
        xs( 30) = 0.9319585807609186D-02
        xs( 31) = 0.1059288484735154D-01
        xs( 32) = 0.1211099679174821D-01
        xs( 33) = 0.1398956676915376D-01
        xs( 34) = 0.1640646351858346D-01
        xs( 35) = 0.1962027605015686D-01
        xs( 36) = 0.2410193217866397D-01
        xs( 37) = 0.3064104186650264D-01
        xs( 38) = 0.4035405666837093D-01
        xs( 39) = 0.5432305844172465D-01
        xs( 40) = 0.7247066654130344D-01
        xs( 41) = 0.9252137733762299D-01
        ws(  1) = 0.9613812396420758D-05
        ws(  2) = 0.2237510415818366D-04
        ws(  3) = 0.3515773263365777D-04
        ws(  4) = 0.4796210775366656D-04
        ws(  5) = 0.6083303596432472D-04
        ws(  6) = 0.7384075199884894D-04
        ws(  7) = 0.8706499453892144D-04
        ws(  8) = 0.1006198710328188D-03
        ws(  9) = 0.1146126308383056D-03
        ws( 10) = 0.1291750288219908D-03
        ws( 11) = 0.1444376014249843D-03
        ws( 12) = 0.1605807559488780D-03
        ws( 13) = 0.1777633741525291D-03
        ws( 14) = 0.1961842939933012D-03
        ws( 15) = 0.2160865978820158D-03
        ws( 16) = 0.2377537773115400D-03
        ws( 17) = 0.2615219662252359D-03
        ws( 18) = 0.2877160179043046D-03
        ws( 19) = 0.3167670699589812D-03
        ws( 20) = 0.3493197282547939D-03
        ws( 21) = 0.3860470848778707D-03
        ws( 22) = 0.4276745984819105D-03
        ws( 23) = 0.4751198525537568D-03
        ws( 24) = 0.5303365287085022D-03
        ws( 25) = 0.5945446283472019D-03
        ws( 26) = 0.6696876677402914D-03
        ws( 27) = 0.7605870599681769D-03
        ws( 28) = 0.8708298632966104D-03
        ws( 29) = 0.1004791948304589D-02
        ws( 30) = 0.1172305056754501D-02
        ws( 31) = 0.1382853401913205D-02
        ws( 32) = 0.1672665555595045D-02
        ws( 33) = 0.2114375762730488D-02
        ws( 34) = 0.2759578121877583D-02
        ws( 35) = 0.3744683847797115D-02
        ws( 36) = 0.5349853094957302D-02
        ws( 37) = 0.7918468103806250D-02
        ws( 38) = 0.1170577426661550D-01
        ws( 39) = 0.1626608334816029D-01
        ws( 40) = 0.1960938223137387D-01
        ws( 41) = 0.1961625161741679D-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 =  45
        err = 0.4377947235106479D-04
        xs(  1) = 0.3030485000752380D-05
        xs(  2) = 0.1596373560195735D-04
        xs(  3) = 0.3922448699204296D-04
        xs(  4) = 0.7281234039937117D-04
        xs(  5) = 0.1167434791154402D-03
        xs(  6) = 0.1710612471593234D-03
        xs(  7) = 0.2358545882313574D-03
        xs(  8) = 0.3112694187926486D-03
        xs(  9) = 0.3975182352906602D-03
        xs( 10) = 0.4948925909641843D-03
        xs( 11) = 0.6037497102186666D-03
        xs( 12) = 0.7245424714436731D-03
        xs( 13) = 0.8578223974955935D-03
        xs( 14) = 0.1004243326862775D-02
        xs( 15) = 0.1164561849303368D-02
        xs( 16) = 0.1339704596263658D-02
        xs( 17) = 0.1530732831118850D-02
        xs( 18) = 0.1738865563976045D-02
        xs( 19) = 0.1965550328194237D-02
        xs( 20) = 0.2212440419082388D-02
        xs( 21) = 0.2481467447202345D-02
        xs( 22) = 0.2774882339696637D-02
        xs( 23) = 0.3095392858338661D-02
        xs( 24) = 0.3446067987258518D-02
        xs( 25) = 0.3830481957140319D-02
        xs( 26) = 0.4253102040287477D-02
        xs( 27) = 0.4719356400811848D-02
        xs( 28) = 0.5235140621693657D-02
        xs( 29) = 0.5808468747452358D-02
        xs( 30) = 0.6449079684845075D-02
        xs( 31) = 0.7168605630960726D-02
        xs( 32) = 0.7983810404691902D-02
        xs( 33) = 0.8915359042045653D-02
        xs( 34) = 0.9985012157191888D-02
        xs( 35) = 0.1122821383962871D-01
        xs( 36) = 0.1270069934055199D-01
        xs( 37) = 0.1449635077890216D-01
        xs( 38) = 0.1677247154506626D-01
        xs( 39) = 0.1973048722910340D-01
        xs( 40) = 0.2371003152650662D-01
        xs( 41) = 0.2936809306466363D-01
        xs( 42) = 0.3778039183453508D-01
        xs( 43) = 0.5030583535932103D-01
        xs( 44) = 0.6781111257675275D-01
        xs( 45) = 0.8858046290424638D-01
        ws(  1) = 0.7776487696686714D-05
        ws(  2) = 0.1809589222847277D-04
        ws(  3) = 0.2842504572512684D-04
        ws(  4) = 0.3875397792571913D-04
        ws(  5) = 0.4911419954260981D-04
        ws(  6) = 0.5953532407550946D-04
        ws(  7) = 0.7007429642186552D-04
        ws(  8) = 0.8079065653470439D-04
        ws(  9) = 0.9175931252603404D-04
        ws( 10) = 0.1030444487449580D-03
        ws( 11) = 0.1147425635774737D-03
        ws( 12) = 0.1269368760047861D-03
        ws( 13) = 0.1397339236018448D-03
        ws( 14) = 0.1532284935160319D-03
        ws( 15) = 0.1675652274379337D-03
        ws( 16) = 0.1828955616162452D-03
        ws( 17) = 0.1993586653591734D-03
        ws( 18) = 0.2171522734092741D-03
        ws( 19) = 0.2364955391450197D-03
        ws( 20) = 0.2576078304193565D-03
        ws( 21) = 0.2808090752566862D-03
        ws( 22) = 0.3064824181226186D-03
        ws( 23) = 0.3350576549653573D-03
        ws( 24) = 0.3668755035567145D-03
        ws( 25) = 0.4026941916683402D-03
        ws( 26) = 0.4434843477620241D-03
        ws( 27) = 0.4899520399158737D-03
        ws( 28) = 0.5429621908913483D-03
        ws( 29) = 0.6053290547963618D-03
        ws( 30) = 0.6777638359305923D-03
        ws( 31) = 0.7640332606155138D-03
        ws( 32) = 0.8700153448183373D-03
        ws( 33) = 0.9963486441554445D-03
        ws( 34) = 0.1148855734393192D-02
        ws( 35) = 0.1346618444539111D-02
        ws( 36) = 0.1613104750468448D-02
        ws( 37) = 0.2005559938142388D-02
        ws( 38) = 0.2578334720404828D-02
        ws( 39) = 0.3390844256799466D-02
        ws( 40) = 0.4675960744657474D-02
        ws( 41) = 0.6821448425104375D-02
        ws( 42) = 0.1024068037865938D-01
        ws( 43) = 0.1498532043200692D-01
        ws( 44) = 0.1977335131797700D-01
        ws( 45) = 0.2098634209728518D-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 =  49
        err = 0.6249202496018730D-04
        xs(  1) = 0.2508047427175873D-05
        xs(  2) = 0.1320709059807045D-04
        xs(  3) = 0.3244668218481286D-04
        xs(  4) = 0.6022400344050983D-04
        xs(  5) = 0.9653219346336823D-04
        xs(  6) = 0.1413933709878318D-03
        xs(  7) = 0.1948463881872577D-03
        xs(  8) = 0.2569704969461546D-03
        xs(  9) = 0.3278851901854583D-03
        xs( 10) = 0.4077551865045379D-03
        xs( 11) = 0.4967959829213236D-03
        xs( 12) = 0.5952769913468580D-03
        xs( 13) = 0.7035304401811190D-03
        xs( 14) = 0.8219662971142656D-03
        xs( 15) = 0.9510361998951354D-03
        xs( 16) = 0.1091270649119039D-02
        xs( 17) = 0.1243311347840766D-02
        xs( 18) = 0.1407909409189797D-02
        xs( 19) = 0.1585882988108678D-02
        xs( 20) = 0.1778208175292468D-02
        xs( 21) = 0.1985949663973742D-02
        xs( 22) = 0.2210367931777444D-02
        xs( 23) = 0.2452957883127467D-02
        xs( 24) = 0.2715387962206174D-02
        xs( 25) = 0.2999518661174667D-02
        xs( 26) = 0.3307576828929728D-02
        xs( 27) = 0.3642230109385593D-02
        xs( 28) = 0.4006363741109144D-02
        xs( 29) = 0.4403513334590375D-02
        xs( 30) = 0.4838053999836959D-02
        xs( 31) = 0.5315088822918209D-02
        xs( 32) = 0.5839869635131733D-02
        xs( 33) = 0.6420099951242295D-02
        xs( 34) = 0.7065299226189055D-02
        xs( 35) = 0.7785983751087967D-02
        xs( 36) = 0.8598170871947182D-02
        xs( 37) = 0.9519773236924432D-02
        xs( 38) = 0.1056943250576041D-01
        xs( 39) = 0.1177949093685858D-01
        xs( 40) = 0.1319810803913723D-01
        xs( 41) = 0.1491196570537370D-01
        xs( 42) = 0.1706549435759782D-01
        xs( 43) = 0.1982514749020683D-01
        xs( 44) = 0.2347971889200728D-01
        xs( 45) = 0.2860925006283616D-01
        xs( 46) = 0.3616255753378074D-01
        xs( 47) = 0.4751547462428111D-01
        xs( 48) = 0.6416724210389731D-01
        xs( 49) = 0.8566621803998554D-01
        ws(  1) = 0.6436701670525568D-05
        ws(  2) = 0.1496624877938554D-04
        ws(  3) = 0.2351010783169759D-04
        ws(  4) = 0.3204062059697683D-04
        ws(  5) = 0.4058101554159348D-04
        ws(  6) = 0.4915106294321249D-04
        ws(  7) = 0.5777425752903341D-04
        ws(  8) = 0.6648959213449272D-04
        ws(  9) = 0.7535257801768757D-04
        ws( 10) = 0.8442663652007698D-04
        ws( 11) = 0.9371245756729064D-04
        ws( 12) = 0.1033080751971007D-03
        ws( 13) = 0.1132608079855625D-03
        ws( 14) = 0.1236796528507830D-03
        ws( 15) = 0.1345576726144800D-03
        ws( 16) = 0.1460169553074802D-03
        ws( 17) = 0.1581840795625777D-03
        ws( 18) = 0.1711460420243602D-03
        ws( 19) = 0.1849821463015107D-03
        ws( 20) = 0.1998347216479759D-03
        ws( 21) = 0.2158510804245377D-03
        ws( 22) = 0.2332390999004806D-03
        ws( 23) = 0.2522231759447363D-03
        ws( 24) = 0.2729560695498773D-03
        ws( 25) = 0.2956707330429688D-03
        ws( 26) = 0.3209034699019298D-03
        ws( 27) = 0.3488844080497969D-03
        ws( 28) = 0.3799991287835995D-03
        ws( 29) = 0.4150259821623191D-03
        ws( 30) = 0.4549591197772686D-03
        ws( 31) = 0.4999333237314369D-03
        ws( 32) = 0.5509677148924985D-03
        ws( 33) = 0.6111279562266114D-03
        ws( 34) = 0.6808868440698852D-03
        ws( 35) = 0.7632860674708198D-03
        ws( 36) = 0.8641969001914837D-03
        ws( 37) = 0.9817255617729356D-03
        ws( 38) = 0.1123077636977830D-02
        ws( 39) = 0.1304778307404409D-02
        ws( 40) = 0.1545991372009163D-02
        ws( 41) = 0.1907549052610967D-02
        ws( 42) = 0.2425137400444239D-02
        ws( 43) = 0.3138494990061474D-02
        ws( 44) = 0.4266562278556694D-02
        ws( 45) = 0.6149067612537066D-02
        ws( 46) = 0.9193108247633546D-02
        ws( 47) = 0.1375404465122408D-01
        ws( 48) = 0.1975225351002729D-01
        ws( 49) = 0.2161458568886113D-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 =  53
        err = 0.6750346201252337D-04
        xs(  1) = 0.2120750923264104D-05
        xs(  2) = 0.1118156050458372D-04
        xs(  3) = 0.2747650766174562D-04
        xs(  4) = 0.5099004409489535D-04
        xs(  5) = 0.8171429215593209D-04
        xs(  6) = 0.1196367287483814D-03
        xs(  7) = 0.1647856224478594D-03
        xs(  8) = 0.2171772327836506D-03
        xs(  9) = 0.2768815428880572D-03
        xs( 10) = 0.3439858062637416D-03
        xs( 11) = 0.4186316959064709D-03
        xs( 12) = 0.5009764808444521D-03
        xs( 13) = 0.5912261345899365D-03
        xs( 14) = 0.6896419581996215D-03
        xs( 15) = 0.7965210045870798D-03
        xs( 16) = 0.9121865708426138D-03
        xs( 17) = 0.1037027656881866D-02
        xs( 18) = 0.1171531191780159D-02
        xs( 19) = 0.1316247986107236D-02
        xs( 20) = 0.1471742740996265D-02
        xs( 21) = 0.1638670141429198D-02
        xs( 22) = 0.1817802623705780D-02
        xs( 23) = 0.2010019298652035D-02
        xs( 24) = 0.2216342664903783D-02
        xs( 25) = 0.2437854577164417D-02
        xs( 26) = 0.2675776292733082D-02
        xs( 27) = 0.2931652823780959D-02
        xs( 28) = 0.3207122061218001D-02
        xs( 29) = 0.3503893933165921D-02
        xs( 30) = 0.3824354481344661D-02
        xs( 31) = 0.4171183799940168D-02
        xs( 32) = 0.4546975047348675D-02
        xs( 33) = 0.4955109528887199D-02
        xs( 34) = 0.5400032444730006D-02
        xs( 35) = 0.5886355509308004D-02
        xs( 36) = 0.6419298279389261D-02
        xs( 37) = 0.7006366215354900D-02
        xs( 38) = 0.7656025501081995D-02
        xs( 39) = 0.8379023026672846D-02
        xs( 40) = 0.9191823296792042D-02
        xs( 41) = 0.1010780365609597D-01
        xs( 42) = 0.1114256029831016D-01
        xs( 43) = 0.1232705768669732D-01
        xs( 44) = 0.1370988010182620D-01
        xs( 45) = 0.1538106590596114D-01
        xs( 46) = 0.1746781818969190D-01
        xs( 47) = 0.2011450242298722D-01
        xs( 48) = 0.2358896949255999D-01
        xs( 49) = 0.2840880725216278D-01
        xs( 50) = 0.3541218579464758D-01
        xs( 51) = 0.4590254896058212D-01
        xs( 52) = 0.6168704545676987D-01
        xs( 53) = 0.8438895924373992D-01
        ws(  1) = 0.5445302089289288D-05
        ws(  2) = 0.1268059046121389D-04
        ws(  3) = 0.1990037921022998D-04
        ws(  4) = 0.2712139130935533D-04
        ws(  5) = 0.3433249189687170D-04
        ws(  6) = 0.4152719458465708D-04
        ws(  7) = 0.4875705221019632D-04
        ws(  8) = 0.5603244063360925D-04
        ws(  9) = 0.6339500041570638D-04
        ws( 10) = 0.7084895890396752D-04
        ws( 11) = 0.7845927419337166D-04
        ws( 12) = 0.8626157329454907D-04
        ws( 13) = 0.9428756379921490D-04
        ws( 14) = 0.1025909694245743D-03
        ws( 15) = 0.1112141613047897D-03
        ws( 16) = 0.1201830258730912D-03
        ws( 17) = 0.1295808319157936D-03
        ws( 18) = 0.1395208111915190D-03
        ws( 19) = 0.1500045548868106D-03
        ws( 20) = 0.1610972710482804D-03
        ws( 21) = 0.1728892979401216D-03
        ws( 22) = 0.1855176994786247D-03
        ws( 23) = 0.1990985301077207D-03
        ws( 24) = 0.2137381295099608D-03
        ws( 25) = 0.2294933333088254D-03
        ws( 26) = 0.2466122405593704D-03
        ws( 27) = 0.2654196224298473D-03
        ws( 28) = 0.2858017405837626D-03
        ws( 29) = 0.3081628912500002D-03
        ws( 30) = 0.3332202769577312D-03
        ws( 31) = 0.3608560927934451D-03
        ws( 32) = 0.3912900374340286D-03
        ws( 33) = 0.4257716342636252D-03
        ws( 34) = 0.4648449079759736D-03
        ws( 35) = 0.5086519286512419D-03
        ws( 36) = 0.5585515932135959D-03
        ws( 37) = 0.6170381954193728D-03
        ws( 38) = 0.6839489611744643D-03
        ws( 39) = 0.7650879203130808D-03
        ws( 40) = 0.8626702652614564D-03
        ws( 41) = 0.9715277161246129D-03
        ws( 42) = 0.1103384370965646D-02
        ws( 43) = 0.1273050820082092D-02
        ws( 44) = 0.1507633281017922D-02
        ws( 45) = 0.1857039409798817D-02
        ws( 46) = 0.2338375968607141D-02
        ws( 47) = 0.2997407262144525D-02
        ws( 48) = 0.4037026511870840D-02
        ws( 49) = 0.5739493589157271D-02
        ws( 50) = 0.8486068986811833D-02
        ws( 51) = 0.1277207101099314D-01
        ws( 52) = 0.1928568674013083D-01
        ws( 53) = 0.2394138499185951D-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 =  57
        err = 0.8500938322073429D-04
        xs(  1) = 0.1816172678100307D-05
        xs(  2) = 0.9626853032696287D-05
        xs(  3) = 0.2367007287431943D-04
        xs(  4) = 0.4389871100073009D-04
        xs(  5) = 0.7032716799454782D-04
        xs(  6) = 0.1028992112435984D-03
        xs(  7) = 0.1416324946070518D-03
        xs(  8) = 0.1865266072709435D-03
        xs(  9) = 0.2376066012327801D-03
        xs( 10) = 0.2949254394952883D-03
        xs( 11) = 0.3585607920837757D-03
        xs( 12) = 0.4286195857398774D-03
        xs( 13) = 0.5052255768048907D-03
        xs( 14) = 0.5885446649320742D-03
        xs( 15) = 0.6787790904706069D-03
        xs( 16) = 0.7761564095368033D-03
        xs( 17) = 0.8809160812268097D-03
        xs( 18) = 0.9933437352642115D-03
        xs( 19) = 0.1113817005499688D-02
        xs( 20) = 0.1242746849703993D-02
        xs( 21) = 0.1380546216941121D-02
        xs( 22) = 0.1527689605295191D-02
        xs( 23) = 0.1684737042542261D-02
        xs( 24) = 0.1852312874227974D-02
        xs( 25) = 0.2031106029747143D-02
        xs( 26) = 0.2221915118697821D-02
        xs( 27) = 0.2425624388621482D-02
        xs( 28) = 0.2643233271248938D-02
        xs( 29) = 0.2875864378456036D-02
        xs( 30) = 0.3124644030854092D-02
        xs( 31) = 0.3391094585746010D-02
        xs( 32) = 0.3676930208097385D-02
        xs( 33) = 0.3983903817725085D-02
        xs( 34) = 0.4314279258974775D-02
        xs( 35) = 0.4670501590247779D-02
        xs( 36) = 0.5054939074055720D-02
        xs( 37) = 0.5471229260193131D-02
        xs( 38) = 0.5923569247848603D-02
        xs( 39) = 0.6415759602460327D-02
        xs( 40) = 0.6953407970633068D-02
        xs( 41) = 0.7544128005635137D-02
        xs( 42) = 0.8195966079166629D-02
        xs( 43) = 0.8919172814426548D-02
        xs( 44) = 0.9726413730290389D-02
        xs( 45) = 0.1062666324838481D-01
        xs( 46) = 0.1163826592479030D-01
        xs( 47) = 0.1279524337324536D-01
        xs( 48) = 0.1414957919526533D-01
        xs( 49) = 0.1578997329769976D-01
        xs( 50) = 0.1781916309805686D-01
        xs( 51) = 0.2036467187142753D-01
        xs( 52) = 0.2367101706720231D-01
        xs( 53) = 0.2818905327778565D-01
        xs( 54) = 0.3462457159635986D-01
        xs( 55) = 0.4412558698947288D-01
        xs( 56) = 0.5840060031273005D-01
        xs( 57) = 0.7992833629510802D-01
        ws(  1) = 0.4687163890316488D-05
        ws(  2) = 0.1092075297460299D-04
        ws(  3) = 0.1714372125816479D-04
        ws(  4) = 0.2333395820165637D-04
        ws(  5) = 0.2951050170527063D-04
        ws(  6) = 0.3564120878857359D-04
        ws(  7) = 0.4181687225517611D-04
        ws(  8) = 0.4797316853907025D-04
        ws(  9) = 0.5419606455475267D-04
        ws( 10) = 0.6045913849554137D-04
        ws( 11) = 0.6683081193117199D-04
        ws( 12) = 0.7330947467918586D-04
        ws( 13) = 0.7993116789899004D-04
        ws( 14) = 0.8673597461239344D-04
        ws( 15) = 0.9376869003032369D-04
        ws( 16) = 0.1010279598392140D-03
        ws( 17) = 0.1085379364789854D-03
        ws( 18) = 0.1163818041704891D-03
        ws( 19) = 0.1246379673150604D-03
        ws( 20) = 0.1332892096265691D-03
        ws( 21) = 0.1423841433881831D-03
        ws( 22) = 0.1519956651522613D-03
        ws( 23) = 0.1622097670441067D-03
        ws( 24) = 0.1730674081627524D-03
        ws( 25) = 0.1846499940736893D-03
        ws( 26) = 0.1971169979424781D-03
        ws( 27) = 0.2104802280916724D-03
        ws( 28) = 0.2249337138522449D-03
        ws( 29) = 0.2405166011953617D-03
        ws( 30) = 0.2573241526934138D-03
        ws( 31) = 0.2758685401251063D-03
        ws( 32) = 0.2960970109271100D-03
        ws( 33) = 0.3182550293193912D-03
        ws( 34) = 0.3429185009140003D-03
        ws( 35) = 0.3698819828823841D-03
        ws( 36) = 0.3996204608771089D-03
        ws( 37) = 0.4336865751607151D-03
        ws( 38) = 0.4715640713550906D-03
        ws( 39) = 0.5137773525192605D-03
        ws( 40) = 0.5627736783863224D-03
        ws( 41) = 0.6199799973081541D-03
        ws( 42) = 0.6852802246336220D-03
        ws( 43) = 0.7635106374307464D-03
        ws( 44) = 0.8520843995356136D-03
        ws( 45) = 0.9512753354865012D-03
        ws( 46) = 0.1077815827418656D-02
        ws( 47) = 0.1244063551045753D-02
        ws( 48) = 0.1480393410171698D-02
        ws( 49) = 0.1817319502755473D-02
        ws( 50) = 0.2261168438307847D-02
        ws( 51) = 0.2868411393844402D-02
        ws( 52) = 0.3819277128330594D-02
        ws( 53) = 0.5329388873800381D-02
        ws( 54) = 0.7735955264416153D-02
        ws( 55) = 0.1153065523511721D-01
        ws( 56) = 0.1745049955041644D-01
        ws( 57) = 0.2419495000282006D-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 =  62
        err = 0.6833062702717674D-04
        xs(  1) = 0.1556033996971763D-05
        xs(  2) = 0.8206468187224132D-05
        xs(  3) = 0.2015488380232578D-04
        xs(  4) = 0.3740011310761768D-04
        xs(  5) = 0.5991913191617309D-04
        xs(  6) = 0.8771114720001931D-04
        xs(  7) = 0.1207624875680107D-03
        xs(  8) = 0.1590871245104009D-03
        xs(  9) = 0.2026962183508562D-03
        xs( 10) = 0.2516276539524615D-03
        xs( 11) = 0.3059275177782543D-03
        xs( 12) = 0.3656619544267466D-03
        xs( 13) = 0.4309187682643416D-03
        xs( 14) = 0.5017995156273738D-03
        xs( 15) = 0.5784416472506411D-03
        xs( 16) = 0.6609871923471971D-03
        xs( 17) = 0.7496132990108673D-03
        xs( 18) = 0.8445146644013601D-03
        xs( 19) = 0.9459250416122599D-03
        xs( 20) = 0.1054096109533407D-02
        xs( 21) = 0.1169329306448619D-02
        xs( 22) = 0.1291956886479630D-02
        xs( 23) = 0.1422320872327745D-02
        xs( 24) = 0.1560821005325344D-02
        xs( 25) = 0.1707919382126801D-02
        xs( 26) = 0.1864134908413454D-02
        xs( 27) = 0.2030005979281888D-02
        xs( 28) = 0.2206127194911755D-02
        xs( 29) = 0.2393217222551369D-02
        xs( 30) = 0.2592061427390389D-02
        xs( 31) = 0.2803504789835186D-02
        xs( 32) = 0.3028481943472978D-02
        xs( 33) = 0.3268057091744446D-02
        xs( 34) = 0.3523561819122166D-02
        xs( 35) = 0.3796321210304692D-02
        xs( 36) = 0.4087798865256992D-02
        xs( 37) = 0.4399846353262381D-02
        xs( 38) = 0.4734485760878880D-02
        xs( 39) = 0.5093814418368346D-02
        xs( 40) = 0.5480649111327458D-02
        xs( 41) = 0.5898158068321593D-02
        xs( 42) = 0.6349736078318227D-02
        xs( 43) = 0.6839516185843496D-02
        xs( 44) = 0.7372453859022102D-02
        xs( 45) = 0.7954047350442963D-02
        xs( 46) = 0.8591794848191083D-02
        xs( 47) = 0.9296049394220072D-02
        xs( 48) = 0.1007695777829873D-01
        xs( 49) = 0.1094712891088068D-01
        xs( 50) = 0.1192059022066060D-01
        xs( 51) = 0.1301562455686651D-01
        xs( 52) = 0.1426919727184987D-01
        xs( 53) = 0.1573976184876616D-01
        xs( 54) = 0.1750727062279591D-01
        xs( 55) = 0.1968489993246809D-01
        xs( 56) = 0.2242087456125880D-01
        xs( 57) = 0.2594406699023046D-01
        xs( 58) = 0.3068955852263448D-01
        xs( 59) = 0.3741163318001965D-01
        xs( 60) = 0.4732880548859270D-01
        xs( 61) = 0.6221572725640973D-01
        xs( 62) = 0.8473945829503302D-01
        ws(  1) = 0.3995104956581125D-05
        ws(  2) = 0.9300990894796258D-05
        ws(  3) = 0.1460022353163752D-04
        ws(  4) = 0.1988418342055901D-04
        ws(  5) = 0.2515911291130604D-04
        ws(  6) = 0.3042070336815107D-04
        ws(  7) = 0.3568357105004051D-04
        ws(  8) = 0.4096442061736567D-04
        ws(  9) = 0.4625957948180621D-04
        ws( 10) = 0.5161136874178281D-04
        ws( 11) = 0.5700332876144709D-04
        ws( 12) = 0.6248232408589137D-04
        ws( 13) = 0.6804665767931667D-04
        ws( 14) = 0.7373555379107770D-04
        ws( 15) = 0.7956728684928709D-04
        ws( 16) = 0.8555663600201519D-04
        ws( 17) = 0.9172788092583309D-04
        ws( 18) = 0.9811857416051600D-04
        ws( 19) = 0.1047427229513358D-03
        ws( 20) = 0.1116509495365060D-03
        ws( 21) = 0.1188715285742266D-03
        ws( 22) = 0.1264388606544553D-03
        ws( 23) = 0.1343595149202950D-03
        ws( 24) = 0.1427184994306472D-03
        ws( 25) = 0.1515697017106023D-03
        ws( 26) = 0.1609522760926819D-03
        ws( 27) = 0.1708884389884714D-03
        ws( 28) = 0.1814789307412407D-03
        ws( 29) = 0.1928375954712536D-03
        ws( 30) = 0.2049882901795708D-03
        ws( 31) = 0.2180555876516422D-03
        ws( 32) = 0.2320743641513959D-03
        ws( 33) = 0.2473166894198532D-03
        ws( 34) = 0.2639088789192733D-03
        ws( 35) = 0.2818426435787544D-03
        ws( 36) = 0.3014204946348852D-03
        ws( 37) = 0.3230255441424002D-03
        ws( 38) = 0.3465736793290073D-03
        ws( 39) = 0.3725657438382497D-03
        ws( 40) = 0.4016259986680915D-03
        ws( 41) = 0.4339373753069058D-03
        ws( 42) = 0.4699127475863283D-03
        ws( 43) = 0.5104726726772911D-03
        ws( 44) = 0.5562904688085904D-03
        ws( 45) = 0.6081127771242641D-03
        ws( 46) = 0.6692358242269722D-03
        ws( 47) = 0.7408813235317221D-03
        ws( 48) = 0.8231011053902287D-03
        ws( 49) = 0.9195073293082560D-03
        ws( 50) = 0.1030148560706512D-02
        ws( 51) = 0.1166131478969614D-02
        ws( 52) = 0.1350855647978321D-02
        ws( 53) = 0.1603240889634865D-02
        ws( 54) = 0.1950876462858866D-02
        ws( 55) = 0.2429036415962553D-02
        ws( 56) = 0.3077773273443185D-02
        ws( 57) = 0.4039299329814319D-02
        ws( 58) = 0.5574656120454644D-02
        ws( 59) = 0.8072013325450753D-02
        ws( 60) = 0.1206042250484280D-01
        ws( 61) = 0.1816630190629508D-01
        ws( 62) = 0.2592441554573168D-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 =  67
        err = 0.5033927491051557D-04
        xs(  1) = 0.1362366367044038D-05
        xs(  2) = 0.7159026638908218D-05
        xs(  3) = 0.1757773223873596D-04
        xs(  4) = 0.3261561600098445D-04
        xs(  5) = 0.5224848598390151D-04
        xs(  6) = 0.7647295982843353D-04
        xs(  7) = 0.1052761819683659D-03
        xs(  8) = 0.1386523298243620D-03
        xs(  9) = 0.1766150955049508D-03
        xs( 10) = 0.2191724219087327D-03
        xs( 11) = 0.2663576190529552D-03
        xs( 12) = 0.3182112596124504D-03
        xs( 13) = 0.3747896463749478D-03
        xs( 14) = 0.4361598285816406D-03
        xs( 15) = 0.5024077627111047D-03
        xs( 16) = 0.5736390832245508D-03
        xs( 17) = 0.6499737177009393D-03
        xs( 18) = 0.7315469373234478D-03
        xs( 19) = 0.8185078126921607D-03
        xs( 20) = 0.9110370441562423D-03
        xs( 21) = 0.1009341529726032D-02
        xs( 22) = 0.1113647276306908D-02
        xs( 23) = 0.1224192488494133D-02
        xs( 24) = 0.1341247766634481D-02
        xs( 25) = 0.1465123052831916D-02
        xs( 26) = 0.1596156444292365D-02
        xs( 27) = 0.1734721479547145D-02
        xs( 28) = 0.1881235601973126D-02
        xs( 29) = 0.2036134348881434D-02
        xs( 30) = 0.2199915606189603D-02
        xs( 31) = 0.2373156091121097D-02
        xs( 32) = 0.2556474899274587D-02
        xs( 33) = 0.2750500449244204D-02
        xs( 34) = 0.2956000276384643D-02
        xs( 35) = 0.3173848023638367D-02
        xs( 36) = 0.3404963096186138D-02
        xs( 37) = 0.3650382720066188D-02
        xs( 38) = 0.3911250734829476D-02
        xs( 39) = 0.4188930258993883D-02
        xs( 40) = 0.4484949888985778D-02
        xs( 41) = 0.4800850545013693D-02
        xs( 42) = 0.5138512621139907D-02
        xs( 43) = 0.5500209453856363D-02
        xs( 44) = 0.5888194617154339D-02
        xs( 45) = 0.6305464881427325D-02
        xs( 46) = 0.6755655476275178D-02
        xs( 47) = 0.7242258134557767D-02
        xs( 48) = 0.7769718147059647D-02
        xs( 49) = 0.8343204253489295D-02
        xs( 50) = 0.8968394677657332D-02
        xs( 51) = 0.9653352231531831D-02
        xs( 52) = 0.1040992332159101D-01
        xs( 53) = 0.1124877337125402D-01
        xs( 54) = 0.1218317333120226D-01
        xs( 55) = 0.1322772589665412D-01
        xs( 56) = 0.1440025604538969D-01
        xs( 57) = 0.1574121232408491D-01
        xs( 58) = 0.1731192752040046D-01
        xs( 59) = 0.1919912779019215D-01
        xs( 60) = 0.2152453548520874D-01
        xs( 61) = 0.2443672084567944D-01
        xs( 62) = 0.2818026632721412D-01
        xs( 63) = 0.3324588850055456D-01
        xs( 64) = 0.4044239879516061D-01
        xs( 65) = 0.5099822161173890D-01
        xs( 66) = 0.6671413170536701D-01
        xs( 67) = 0.9003465608644301D-01
        ws(  1) = 0.3493614237158028D-05
        ws(  2) = 0.8101446553380839D-05
        ws(  3) = 0.1273349706312050D-04
        ws(  4) = 0.1734078136099593D-04
        ws(  5) = 0.2192816656774764D-04
        ws(  6) = 0.2651372775246856D-04
        ws(  7) = 0.3108911848584019D-04
        ws(  8) = 0.3566928313309052D-04
        ws(  9) = 0.4025508063814461D-04
        ws( 10) = 0.4486582452058072D-04
        ws( 11) = 0.4951233507890220D-04
        ws( 12) = 0.5420536617400890D-04
        ws( 13) = 0.5896272799928844D-04
        ws( 14) = 0.6379183945806949D-04
        ws( 15) = 0.6871980642461140D-04
        ws( 16) = 0.7376132970063673D-04
        ws( 17) = 0.7893138347958399D-04
        ws( 18) = 0.8423950681006457D-04
        ws( 19) = 0.8971307749748036D-04
        ws( 20) = 0.9538031082408779D-04
        ws( 21) = 0.1012669945177133D-03
        ws( 22) = 0.1073831943877357D-03
        ws( 23) = 0.1137500957844444D-03
        ws( 24) = 0.1204122116805022D-03
        ws( 25) = 0.1273965427107414D-03
        ws( 26) = 0.1347322771874883D-03
        ws( 27) = 0.1424690046171962D-03
        ws( 28) = 0.1506305771631701D-03
        ws( 29) = 0.1592498391684815D-03
        ws( 30) = 0.1684104172360083D-03
        ws( 31) = 0.1781759225953572D-03
        ws( 32) = 0.1885622023420015D-03
        ws( 33) = 0.1996186255575668D-03
        ws( 34) = 0.2115267229953675D-03
        ws( 35) = 0.2243202248995631D-03
        ws( 36) = 0.2380862775481594D-03
        ws( 37) = 0.2529332574924118D-03
        ws( 38) = 0.2690316869393893D-03
        ws( 39) = 0.2865828038060408D-03
        ws( 40) = 0.3057086542112164D-03
        ws( 41) = 0.3263983067088019D-03
        ws( 42) = 0.3493268771165359D-03
        ws( 43) = 0.3744172559954441D-03
        ws( 44) = 0.4020654370480857D-03
        ws( 45) = 0.4331133391208810D-03
        ws( 46) = 0.4678055227843152D-03
        ws( 47) = 0.5061650672539355D-03
        ws( 48) = 0.5496094281153743D-03
        ws( 49) = 0.5983032353187471D-03
        ws( 50) = 0.6533047454313736D-03
        ws( 51) = 0.7188031973159530D-03
        ws( 52) = 0.7958955734754422D-03
        ws( 53) = 0.8841006489045817D-03
        ws( 54) = 0.9871774604867422D-03
        ws( 55) = 0.1104310500480994D-02
        ws( 56) = 0.1247673054363955D-02
        ws( 57) = 0.1444305627326993D-02
        ws( 58) = 0.1711473681984774D-02
        ws( 59) = 0.2083337859941971D-02
        ws( 60) = 0.2591808415023076D-02
        ws( 61) = 0.3269546418672382D-02
        ws( 62) = 0.4299595942405999D-02
        ws( 63) = 0.5963517297191517D-02
        ws( 64) = 0.8637130551820261D-02
        ws( 65) = 0.1276325143993481D-01
        ws( 66) = 0.1915532739908351D-01
        ws( 67) = 0.2667518082416410D-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 =  71
        err = 0.6943183334144899D-04
        xs(  1) = 0.1193683783957898D-05
        xs(  2) = 0.6288024157775441D-05
        xs(  3) = 0.1545646144234215D-04
        xs(  4) = 0.2867752046065744D-04
        xs(  5) = 0.4594842175320454D-04
        xs(  6) = 0.6726119618290121D-04
        xs(  7) = 0.9259490615931099D-04
        xs(  8) = 0.1219588970348098D-03
        xs(  9) = 0.1553467905450861D-03
        xs( 10) = 0.1927646277770113D-03
        xs( 11) = 0.2342367572365796D-03
        xs( 12) = 0.2797861138838630D-03
        xs( 13) = 0.3294481278583582D-03
        xs( 14) = 0.3832727302581054D-03
        xs( 15) = 0.4413141709558950D-03
        xs( 16) = 0.5036465321910057D-03
        xs( 17) = 0.5703556065700533D-03
        xs( 18) = 0.6415380612694528D-03
        xs( 19) = 0.7173013589634850D-03
        xs( 20) = 0.7977652201269928D-03
        xs( 21) = 0.8830790209879520D-03
        xs( 22) = 0.9734054442382717D-03
        xs( 23) = 0.1068925396444954D-02
        xs( 24) = 0.1169816499320011D-02
        xs( 25) = 0.1276299166786514D-02
        xs( 26) = 0.1388617127924960D-02
        xs( 27) = 0.1507034661670618D-02
        xs( 28) = 0.1631835700432506D-02
        xs( 29) = 0.1763332385087115D-02
        xs( 30) = 0.1901853116763547D-02
        xs( 31) = 0.2047798029083589D-02
        xs( 32) = 0.2201596136401108D-02
        xs( 33) = 0.2363690266285133D-02
        xs( 34) = 0.2534541792780031D-02
        xs( 35) = 0.2714728732952848D-02
        xs( 36) = 0.2904910034015307D-02
        xs( 37) = 0.3105695793918911D-02
        xs( 38) = 0.3317841565881488D-02
        xs( 39) = 0.3542230705320963D-02
        xs( 40) = 0.3779765757289894D-02
        xs( 41) = 0.4031389935020032D-02
        xs( 42) = 0.4298292607110099D-02
        xs( 43) = 0.4581788405173226D-02
        xs( 44) = 0.4883301929657473D-02
        xs( 45) = 0.5204360839882559D-02
        xs( 46) = 0.5546915258104345D-02
        xs( 47) = 0.5913076833214797D-02
        xs( 48) = 0.6304928759410781D-02
        xs( 49) = 0.6725437182764405D-02
        xs( 50) = 0.7177896966510426D-02
        xs( 51) = 0.7665547765638364D-02
        xs( 52) = 0.8192748783919936D-02
        xs( 53) = 0.8764563570584947D-02
        xs( 54) = 0.9386863547174140D-02
        xs( 55) = 0.1006772962402506D-01
        xs( 56) = 0.1081666545599573D-01
        xs( 57) = 0.1164259761188909D-01
        xs( 58) = 0.1255738180960228D-01
        xs( 59) = 0.1357444662987804D-01
        xs( 60) = 0.1471408578256208D-01
        xs( 61) = 0.1601783881281078D-01
        xs( 62) = 0.1754213657488325D-01
        xs( 63) = 0.1936990791990189D-01
        xs( 64) = 0.2161142900815305D-01
        xs( 65) = 0.2439893199265253D-01
        xs( 66) = 0.2795190882963762D-01
        xs( 67) = 0.3268883565994657D-01
        xs( 68) = 0.3931200076956730D-01
        xs( 69) = 0.4890804427804022D-01
        xs( 70) = 0.6319485359371531D-01
        xs( 71) = 0.8501140761252989D-01
        ws(  1) = 0.3060082996186883D-05
        ws(  2) = 0.7132866823738939D-05
        ws(  3) = 0.1119921970496204D-04
        ws(  4) = 0.1524859460125679D-04
        ws(  5) = 0.1929341121295873D-04
        ws(  6) = 0.2332638595231697D-04
        ws(  7) = 0.2734326984707676D-04
        ws(  8) = 0.3137351102606554D-04
        ws(  9) = 0.3540535489015116D-04
        ws( 10) = 0.3944555422266180D-04
        ws( 11) = 0.4350113105176459D-04
        ws( 12) = 0.4759839759617511D-04
        ws( 13) = 0.5173517684602121D-04
        ws( 14) = 0.5592282376599349D-04
        ws( 15) = 0.6017202819346762D-04
        ws( 16) = 0.6450762945856958D-04
        ws( 17) = 0.6892648564029141D-04
        ws( 18) = 0.7345429807254945D-04
        ws( 19) = 0.7809359973019229D-04
        ws( 20) = 0.8286174585615514D-04
        ws( 21) = 0.8779104770936989D-04
        ws( 22) = 0.9289197489114786D-04
        ws( 23) = 0.9817361991231062D-04
        ws( 24) = 0.1036488582745249D-03
        ws( 25) = 0.1093559139393243D-03
        ws( 26) = 0.1153208862377992D-03
        ws( 27) = 0.1215622737519880D-03
        ws( 28) = 0.1280953026580909D-03
        ws( 29) = 0.1349475741142974D-03
        ws( 30) = 0.1421642370407473D-03
        ws( 31) = 0.1497935078384846D-03
        ws( 32) = 0.1578771855887441D-03
        ws( 33) = 0.1663887294364313D-03
        ws( 34) = 0.1754073809392275D-03
        ws( 35) = 0.1850830022424126D-03
        ws( 36) = 0.1953754368839259D-03
        ws( 37) = 0.2063219374536695D-03
        ws( 38) = 0.2181154620580227D-03
        ws( 39) = 0.2308161027843347D-03
        ws( 40) = 0.2444034357611276D-03
        ws( 41) = 0.2590455850631203D-03
        ws( 42) = 0.2749741572819474D-03
        ws( 43) = 0.2922605381804942D-03
        ws( 44) = 0.3110077178983171D-03
        ws( 45) = 0.3314453251464634D-03
        ws( 46) = 0.3540231485495363D-03
        ws( 47) = 0.3786188807597764D-03
        ws( 48) = 0.4055915837952447D-03
        ws( 49) = 0.4359799284152067D-03
        ws( 50) = 0.4694364392641622D-03
        ws( 51) = 0.5066040953328595D-03
        ws( 52) = 0.5486379295416985D-03
        ws( 53) = 0.5959377456084895D-03
        ws( 54) = 0.6499827075922706D-03
        ws( 55) = 0.7134405968662943D-03
        ws( 56) = 0.7857781486482368D-03
        ws( 57) = 0.8681365966109321D-03
        ws( 58) = 0.9637000102646373D-03
        ws( 59) = 0.1073267146327766D-02
        ws( 60) = 0.1213496656194137D-02
        ws( 61) = 0.1402820464270362D-02
        ws( 62) = 0.1660000387741929D-02
        ws( 63) = 0.2014222375187356D-02
        ws( 64) = 0.2490042761022455D-02
        ws( 65) = 0.3119272084489702D-02
        ws( 66) = 0.4055277969785099D-02
        ws( 67) = 0.5535273538955629D-02
        ws( 68) = 0.7891698191405477D-02
        ws( 69) = 0.1158766378637751D-01
        ws( 70) = 0.1737021809791344D-01
        ws( 71) = 0.2612046120990928D-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 =  75
        err = 0.7151863312134096D-04
        xs(  1) = 0.1068813346231433D-05
        xs(  2) = 0.5630185098906808D-05
        xs(  3) = 0.1382482510309653D-04
        xs(  4) = 0.2564987655066507D-04
        xs(  5) = 0.4108876094740730D-04
        xs(  6) = 0.6012511476979691D-04
        xs(  7) = 0.8274825972040672D-04
        xs(  8) = 0.1089497078977895D-03
        xs(  9) = 0.1387157053759108D-03
        xs( 10) = 0.1720621087175458D-03
        xs( 11) = 0.2089786875773858D-03
        xs( 12) = 0.2494935735369297D-03
        xs( 13) = 0.2936281679927239D-03
        xs( 14) = 0.3414109727608476D-03
        xs( 15) = 0.3928817936428489D-03
        xs( 16) = 0.4480869632839622D-03
        xs( 17) = 0.5070971528367601D-03
        xs( 18) = 0.5699788229673863D-03
        xs( 19) = 0.6368129491182022D-03
        xs( 20) = 0.7076825452874320D-03
        xs( 21) = 0.7826900696245063D-03
        xs( 22) = 0.8619607963419222D-03
        xs( 23) = 0.9456274234203063D-03
        xs( 24) = 0.1033830819193075D-02
        xs( 25) = 0.1126716287859554D-02
        xs( 26) = 0.1224454890252914D-02
        xs( 27) = 0.1327246976167617D-02
        xs( 28) = 0.1435299942858762D-02
        xs( 29) = 0.1548844189297169D-02
        xs( 30) = 0.1668121817114923D-02
        xs( 31) = 0.1793375717167856D-02
        xs( 32) = 0.1924916337245431D-02
        xs( 33) = 0.2063094475989006D-02
        xs( 34) = 0.2208247585208006D-02
        xs( 35) = 0.2360733259161598D-02
        xs( 36) = 0.2520962560570777D-02
        xs( 37) = 0.2689420367796939D-02
        xs( 38) = 0.2866600696375706D-02
        xs( 39) = 0.3053072098181533D-02
        xs( 40) = 0.3249458801326740D-02
        xs( 41) = 0.3456361381258225D-02
        xs( 42) = 0.3674528457067959D-02
        xs( 43) = 0.3904837323679212D-02
        xs( 44) = 0.4148112096178474D-02
        xs( 45) = 0.4405354730555584D-02
        xs( 46) = 0.4677819651292774D-02
        xs( 47) = 0.4966772294720739D-02
        xs( 48) = 0.5273456710139601D-02
        xs( 49) = 0.5599384374226900D-02
        xs( 50) = 0.5946409234669600D-02
        xs( 51) = 0.6316363589163526D-02
        xs( 52) = 0.6711604728544930D-02
        xs( 53) = 0.7135467677641425D-02
        xs( 54) = 0.7590551025519613D-02
        xs( 55) = 0.8079801625966228D-02
        xs( 56) = 0.8607909442444446D-02
        xs( 57) = 0.9178858194527592D-02
        xs( 58) = 0.9798199920157949D-02
        xs( 59) = 0.1047500033009332D-01
        xs( 60) = 0.1121720830258305D-01
        xs( 61) = 0.1203338960235418D-01
        xs( 62) = 0.1293611826092115D-01
        xs( 63) = 0.1393471240130215D-01
        xs( 64) = 0.1505333355431288D-01
        xs( 65) = 0.1633459097988667D-01
        xs( 66) = 0.1782415125435924D-01
        xs( 67) = 0.1960104631309028D-01
        xs( 68) = 0.2176685495355138D-01
        xs( 69) = 0.2444249332040080D-01
        xs( 70) = 0.2785844907890233D-01
        xs( 71) = 0.3243348161850126D-01
        xs( 72) = 0.3880559756473646D-01
        xs( 73) = 0.4800418767601829D-01
        xs( 74) = 0.6165148116666872D-01
        xs( 75) = 0.8307645434847502D-01
        ws(  1) = 0.2741306607259929D-05
        ws(  2) = 0.6380986093347422D-05
        ws(  3) = 0.1000931454865553D-04
        ws(  4) = 0.1363630480309551D-04
        ws(  5) = 0.1724291120803760D-04
        ws(  6) = 0.2083092291289932D-04
        ws(  7) = 0.2441368447287472D-04
        ws(  8) = 0.2798178825411111D-04
        ws(  9) = 0.3155339292872489D-04
        ws( 10) = 0.3512765025119631D-04
        ws( 11) = 0.3871879760094847D-04
        ws( 12) = 0.4232442264664014D-04
        ws( 13) = 0.4594515837042324D-04
        ws( 14) = 0.4962083601175268D-04
        ws( 15) = 0.5332736931681523D-04
        ws( 16) = 0.5709743747382372D-04
        ws( 17) = 0.6093493135325938D-04
        ws( 18) = 0.6484470565479808D-04
        ws( 19) = 0.6883363602624061D-04
        ws( 20) = 0.7292213851555068D-04
        ws( 21) = 0.7711592618429187D-04
        ws( 22) = 0.8144767735752481D-04
        ws( 23) = 0.8590990554686531D-04
        ws( 24) = 0.9051970792493999D-04
        ws( 25) = 0.9528003664208633D-04
        ws( 26) = 0.1002341290270511D-03
        ws( 27) = 0.1053805897472667D-03
        ws( 28) = 0.1107635104452627D-03
        ws( 29) = 0.1163710748951792D-03
        ws( 30) = 0.1222187648382424D-03
        ws( 31) = 0.1283424309211287D-03
        ws( 32) = 0.1347991804610576D-03
        ws( 33) = 0.1416088637803549D-03
        ws( 34) = 0.1487626453948959D-03
        ws( 35) = 0.1562767667933231D-03
        ws( 36) = 0.1642613986005807D-03
        ws( 37) = 0.1727338976288944D-03
        ws( 38) = 0.1817240376665208D-03
        ws( 39) = 0.1913360531534656D-03
        ws( 40) = 0.2015310652178095D-03
        ws( 41) = 0.2123929083240567D-03
        ws( 42) = 0.2241020046246078D-03
        ws( 43) = 0.2366522972337046D-03
        ws( 44) = 0.2500644832043702D-03
        ws( 45) = 0.2646334046632695D-03
        ws( 46) = 0.2805051195954498D-03
        ws( 47) = 0.2976121690057616D-03
        ws( 48) = 0.3160180593040036D-03
        ws( 49) = 0.3361540221412389D-03
        ws( 50) = 0.3581936843163035D-03
        ws( 51) = 0.3821094762794121D-03
        ws( 52) = 0.4089951894643364D-03
        ws( 53) = 0.4391468344928189D-03
        ws( 54) = 0.4714691404194416D-03
        ws( 55) = 0.5079152014121879D-03
        ws( 56) = 0.5489308570520571D-03
        ws( 57) = 0.5938248921608383D-03
        ws( 58) = 0.6464754115961473D-03
        ws( 59) = 0.7084627991114539D-03
        ws( 60) = 0.7771507118092388D-03
        ws( 61) = 0.8576639404286044D-03
        ws( 62) = 0.9489041077288754D-03
        ws( 63) = 0.1052048429098396D-02
        ws( 64) = 0.1192968530466956D-02
        ws( 65) = 0.1376071017691739D-02
        ws( 66) = 0.1616788889504709D-02
        ws( 67) = 0.1954171684682134D-02
        ws( 68) = 0.2395940756215227D-02
        ws( 69) = 0.2991937376999931D-02
        ws( 70) = 0.3910395435203544D-02
        ws( 71) = 0.5342426299689118D-02
        ws( 72) = 0.7575875883285399D-02
        ws( 73) = 0.1108610519670702D-01
        ws( 74) = 0.1664652129217021D-01
        ws( 75) = 0.2632303255515404D-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 =  10
        err = 0.8467542465700892D-04
        xs(  1) = 0.8221287329835676D-03
        xs(  2) = 0.4130236370733886D-02
        xs(  3) = 0.9453705532139877D-02
        xs(  4) = 0.1618343498419239D-01
        xs(  5) = 0.2388524213479001D-01
        xs(  6) = 0.3228716669076098D-01
        xs(  7) = 0.4122282899769562D-01
        xs(  8) = 0.5059464540842509D-01
        xs(  9) = 0.6034826848547559D-01
        xs( 10) = 0.7048956932878120D-01
        ws(  1) = 0.2084490796639381D-02
        ws(  2) = 0.4427236766869715D-02
        ws(  3) = 0.6115550906806448D-02
        ws(  4) = 0.7273528580469811D-02
        ws(  5) = 0.8089158898299656D-02
        ws(  6) = 0.8696758311363037D-02
        ws(  7) = 0.9186327543733224D-02
        ws(  8) = 0.9640813097331362D-02
        ws(  9) = 0.1018882338289302D-01
        ws( 10) = 0.1189057898878958D-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 =  11
        err = 0.6015861606212829D-04
        xs(  1) = 0.7251020529221221D-03
        xs(  2) = 0.3706868899750790D-02
        xs(  3) = 0.8648520904461297D-02
        xs(  4) = 0.1503854928684689D-01
        xs(  5) = 0.2246021856946331D-01
        xs(  6) = 0.3063422757595712D-01
        xs(  7) = 0.3938381501806592D-01
        xs(  8) = 0.4859667665912243D-01
        xs(  9) = 0.5820040566719827D-01
        xs( 10) = 0.6814285329533426D-01
        xs( 11) = 0.7841060517374857D-01
        ws(  1) = 0.1847809277250624D-02
        ws(  2) = 0.4046783566357623D-02
        ws(  3) = 0.5747320995047776D-02
        ws(  4) = 0.6963436719620449D-02
        ws(  5) = 0.7835232144662772D-02
        ws(  6) = 0.8486907352115040D-02
        ws(  7) = 0.9001826757004059D-02
        ws(  8) = 0.9437058791450428D-02
        ws(  9) = 0.9849788983566062D-02
        ws( 10) = 0.1034580838191161D-01
        ws( 11) = 0.1192860203808266D-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 =  11
        err = 0.7147159030988015D-04
        xs(  1) = 0.6995060531608185D-03
        xs(  2) = 0.3601449504084562D-02
        xs(  3) = 0.8463725427889283D-02
        xs(  4) = 0.1479708690042750D-01
        xs(  5) = 0.2218173500338201D-01
        xs(  6) = 0.3033084677983454D-01
        xs(  7) = 0.3906168764579647D-01
        xs(  8) = 0.4825754683828283D-01
        xs(  9) = 0.5784225410191075D-01
        xs( 10) = 0.6776248781619733D-01
        xs( 11) = 0.7800688464306510D-01
        ws(  1) = 0.1786355180414785D-02
        ws(  2) = 0.3959835285684944D-02
        ws(  3) = 0.5678715250830801D-02
        ws(  4) = 0.6917843723477147D-02
        ws(  5) = 0.7805471770333588D-02
        ws(  6) = 0.8465915825247411D-02
        ws(  7) = 0.8984737340834326D-02
        ws(  8) = 0.9419708890227771D-02
        ws(  9) = 0.9829495215772394D-02
        ws( 10) = 0.1032281301416081D-01
        ws( 11) = 0.1191202613500575D-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 =  11
        err = 0.7881095849575342D-04
        xs(  1) = 0.6759043744732384D-03
        xs(  2) = 0.3492361394089077D-02
        xs(  3) = 0.8252109915603307D-02
        xs(  4) = 0.1450126124966000D-01
        xs(  5) = 0.2182464576289057D-01
        xs(  6) = 0.2992822427155197D-01
        xs(  7) = 0.3862214433218290D-01
        xs(  8) = 0.4778468113824439D-01
        xs(  9) = 0.5733561568135232D-01
        xs( 10) = 0.6722559128012399D-01
        xs( 11) = 0.7745187406457693D-01
        ws(  1) = 0.1727474369485638D-02
        ws(  2) = 0.3856984985292370D-02
        ws(  3) = 0.5582602757197317D-02
        ws(  4) = 0.6845875220021294D-02
        ws(  5) = 0.7753530194399746D-02
        ws(  6) = 0.8425602255629053D-02
        ws(  7) = 0.8950607470286876D-02
        ws(  8) = 0.9386652736204875D-02
        ws(  9) = 0.9796327808063540D-02
        ws( 10) = 0.1029730582039613D-01
        ws( 11) = 0.1190760218082456D-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 =  12
        err = 0.5745224794975987D-04
        xs(  1) = 0.5683164629247209D-03
        xs(  2) = 0.2971794603003406D-02
        xs(  3) = 0.7160386881020263D-02
        xs(  4) = 0.1284508897525226D-01
        xs(  5) = 0.1968360913330134D-01
        xs(  6) = 0.2738835920491029D-01
        xs(  7) = 0.3575679884339949D-01
        xs(  8) = 0.4465045461506153D-01
        xs(  9) = 0.5397705271620800D-01
        xs( 10) = 0.6368088489027729D-01
        xs( 11) = 0.7369633212289396D-01
        xs( 12) = 0.8401444553931395D-01
        ws(  1) = 0.1456378954224233D-02
        ws(  2) = 0.3331843248510022D-02
        ws(  3) = 0.4994457431932303D-02
        ws(  4) = 0.6316274624470460D-02
        ws(  5) = 0.7312709293070937D-02
        ws(  6) = 0.8064569869363694D-02
        ws(  7) = 0.8652239241207327D-02
        ws(  8) = 0.9127190279143617D-02
        ws(  9) = 0.9542442808157492D-02
        ws( 10) = 0.9938952168126736D-02
        ws( 11) = 0.1038894588955400D-01
        ws( 12) = 0.1196897450829066D-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 =  12
        err = 0.5437194336697888D-04
        xs(  1) = 0.3878775125827769D-03
        xs(  2) = 0.2115116634531163D-02
        xs(  3) = 0.5406626785358672D-02
        xs(  4) = 0.1027301487940631D-01
        xs(  5) = 0.1648257583476817D-01
        xs(  6) = 0.2372896737256030D-01
        xs(  7) = 0.3175771587470880D-01
        xs(  8) = 0.4039190415319120D-01
        xs(  9) = 0.4951804249772121D-01
        xs( 10) = 0.5906986742693573D-01
        xs( 11) = 0.6899593609538518D-01
        xs( 12) = 0.7929576721415028D-01
        ws(  1) = 0.1004821673999242D-02
        ws(  2) = 0.2484726670387768D-02
        ws(  3) = 0.4101543536489602D-02
        ws(  4) = 0.5588911618960340D-02
        ws(  5) = 0.6777420119757370D-02
        ws(  6) = 0.7674035379503666D-02
        ws(  7) = 0.8357514218639476D-02
        ws(  8) = 0.8900554871454660D-02
        ws(  9) = 0.9367396026732292D-02
        ws( 10) = 0.9817184565917523D-02
        ws( 11) = 0.1034590483421500D-01
        ws( 12) = 0.1199605453835469D-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 =  12
        err = 0.7121441622210836D-04
        xs(  1) = 0.2801352486515556D-03
        xs(  2) = 0.1550411530185703D-02
        xs(  3) = 0.4109294058537918D-02
        xs(  4) = 0.8224091510874325D-02
        xs(  5) = 0.1387966928166348D-01
        xs(  6) = 0.2079019869690289D-01
        xs(  7) = 0.2863485204385896D-01
        xs(  8) = 0.3716513892033133D-01
        xs(  9) = 0.4622052424351773D-01
        xs( 10) = 0.5570381624300955D-01
        xs( 11) = 0.6555465457739464D-01
        xs( 12) = 0.7577612924529267D-01
        ws(  1) = 0.7276222814701746D-03
        ws(  2) = 0.1859518693653646D-02
        ws(  3) = 0.3309290067201711D-02
        ws(  4) = 0.4917602025383680D-02
        ws(  5) = 0.6340668244427318D-02
        ws(  6) = 0.7426866409712911D-02
        ws(  7) = 0.8223537057434239D-02
        ws(  8) = 0.8820327768623321D-02
        ws(  9) = 0.9305575468927824D-02
        ws( 10) = 0.9750691117188622D-02
        ws( 11) = 0.1027816584829108D-01
        ws( 12) = 0.1194975942876450D-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 =  15
        err = 0.6992481086557445D-04
        xs(  1) = 0.1189151448292613D-03
        xs(  2) = 0.6439760099430925D-03
        xs(  3) = 0.1672857286939197D-02
        xs(  4) = 0.3380393574067673D-02
        xs(  5) = 0.6050729635566551D-02
        xs(  6) = 0.1000862327601705D-01
        xs(  7) = 0.1540605956164363D-01
        xs(  8) = 0.2209907154472509D-01
        xs(  9) = 0.2979652408308706D-01
        xs( 10) = 0.3823762313351625D-01
        xs( 11) = 0.4724388845093939D-01
        xs( 12) = 0.5667649277837531D-01
        xs( 13) = 0.6643678384717314D-01
        xs( 14) = 0.7645085047958658D-01
        xs( 15) = 0.8660432442082197D-01
        ws(  1) = 0.3068892374216460D-03
        ws(  2) = 0.7566582781892519D-03
        ws(  3) = 0.1329805152470417D-02
        ws(  4) = 0.2133191336988946D-02
        ws(  5) = 0.3266039253954586D-02
        ws(  6) = 0.4677917775289584D-02
        ws(  7) = 0.6089388600678707D-02
        ws(  8) = 0.7245386228017184D-02
        ws(  9) = 0.8105474684595462D-02
        ws( 10) = 0.8750766337163502D-02
        ws( 11) = 0.9248009038785060D-02
        ws( 12) = 0.9633661124666341D-02
        ws( 13) = 0.9982266140435812D-02
        ws( 14) = 0.1035044780961384D-01
        ws( 15) = 0.1173226629489653D-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 =  19
        err = 0.3689678296870004D-04
        xs(  1) = 0.3976594532093490D-04
        xs(  2) = 0.2120464462140353D-03
        xs(  3) = 0.5315969036499120D-03
        xs(  4) = 0.1018580309059558D-02
        xs(  5) = 0.1708093313918036D-02
        xs(  6) = 0.2657801826413898D-02
        xs(  7) = 0.3961709532097372D-02
        xs(  8) = 0.5773100716321114D-02
        xs(  9) = 0.8333941269618653D-02
        xs( 10) = 0.1197721144727424D-01
        xs( 11) = 0.1702025528326257D-01
        xs( 12) = 0.2353820752299777D-01
        xs( 13) = 0.3130400921770105D-01
        xs( 14) = 0.3999643248368655D-01
        xs( 15) = 0.4936668251116429D-01
        xs( 16) = 0.5922328642521322D-01
        xs( 17) = 0.6939520546470311D-01
        xs( 18) = 0.7984854280681107D-01
        xs( 19) = 0.9037799935198584D-01
        ws(  1) = 0.1024553945590242D-03
        ws(  2) = 0.2434887394331294D-03
        ws(  3) = 0.3989651145504787D-03
        ws(  4) = 0.5807844270169925D-03
        ws(  5) = 0.8074962018620859D-03
        ws(  6) = 0.1107284414262297D-02
        ws(  7) = 0.1525563499180404D-02
        ws(  8) = 0.2137149741589608D-02
        ws(  9) = 0.3041680260205775D-02
        ws( 10) = 0.4302342911310119D-02
        ws( 11) = 0.5797298512838014D-02
        ws( 12) = 0.7196680645674947D-02
        ws( 13) = 0.8277908239353425D-02
        ws( 14) = 0.9066094755954435D-02
        ws( 15) = 0.9653502169197921D-02
        ws( 16) = 0.1006130584809496D-01
        ws( 17) = 0.1039396329475136D-01
        ws( 18) = 0.1079787475837683D-01
        ws( 19) = 0.1183582811585804D-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 =  22
        err = 0.4444571554163141D-04
        xs(  1) = 0.2120049651377632D-04
        xs(  2) = 0.1121173797950650D-03
        xs(  3) = 0.2782198485179875D-03
        xs(  4) = 0.5239314186055269D-03
        xs(  5) = 0.8566636567344305D-03
        xs(  6) = 0.1287585628587554D-02
        xs(  7) = 0.1834064305854253D-02
        xs(  8) = 0.2522312543645074D-02
        xs(  9) = 0.3391147035032721D-02
        xs( 10) = 0.4496310645677464D-02
        xs( 11) = 0.5922356191699895D-02
        xs( 12) = 0.7810579805744635D-02
        xs( 13) = 0.1039566028066370D-01
        xs( 14) = 0.1402867481716489D-01
        xs( 15) = 0.1914461052375770D-01
        xs( 16) = 0.2606815033696053D-01
        xs( 17) = 0.3472733517905685D-01
        xs( 18) = 0.4469395021594093D-01
        xs( 19) = 0.5551346952249394D-01
        xs( 20) = 0.6685806552840493D-01
        xs( 21) = 0.7855677615033636D-01
        xs( 22) = 0.9003413723371756D-01
        ws(  1) = 0.5442295259078863D-04
        ws(  2) = 0.1279239328546419D-03
        ws(  3) = 0.2049485527248238D-03
        ws(  4) = 0.2877320804224918D-03
        ws(  5) = 0.3795267815503110D-03
        ws(  6) = 0.4851861147478028D-03
        ws(  7) = 0.6120750558774634D-03
        ws(  8) = 0.7708577547789114D-03
        ws(  9) = 0.9759179224622843D-03
        ws( 10) = 0.1248052367647785D-02
        ws( 11) = 0.1626866579891560D-02
        ws( 12) = 0.2188311543917821D-02
        ws( 13) = 0.3040630115672798D-02
        ws( 14) = 0.4300833246294218D-02
        ws( 15) = 0.5991419299246869D-02
        ws( 16) = 0.7841788193392076D-02
        ws( 17) = 0.9396763880124216D-02
        ws( 18) = 0.1045976913570893D-01
        ws( 19) = 0.1113433394275512D-01
        ws( 20) = 0.1161138359715547D-01
        ws( 21) = 0.1206565275243156D-01
        ws( 22) = 0.1217688821549714D-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 =  25
        err = 0.4757005102824420D-04
        xs(  1) = 0.1328474826128052D-04
        xs(  2) = 0.7009989710596995D-04
        xs(  3) = 0.1730318982507141D-03
        xs(  4) = 0.3234526411696242D-03
        xs(  5) = 0.5236523442750975D-03
        xs(  6) = 0.7771124336675889D-03
        xs(  7) = 0.1089027980882056D-02
        xs(  8) = 0.1466820498641901D-02
        xs(  9) = 0.1920645703989074D-02
        xs( 10) = 0.2464287173309080D-02
        xs( 11) = 0.3116611836517655D-02
        xs( 12) = 0.3904444852757316D-02
        xs( 13) = 0.4866313803895263D-02
        xs( 14) = 0.6056664733501645D-02
        xs( 15) = 0.7554908737726021D-02
        xs( 16) = 0.9494464662241879D-02
        xs( 17) = 0.1210356270675136D-01
        xs( 18) = 0.1574084365482676D-01
        xs( 19) = 0.2091851676424335D-01
        xs( 20) = 0.2817908298347283D-01
        xs( 21) = 0.3769983376922155D-01
        xs( 22) = 0.4903389947954172D-01
        xs( 23) = 0.6146816171072070D-01
        xs( 24) = 0.7441646376275585D-01
        xs( 25) = 0.8704340772161205D-01
        ws(  1) = 0.3409142410278567D-04
        ws(  2) = 0.7968802256798469D-04
        ws(  3) = 0.1263951954767198D-03
        ws(  4) = 0.1748338595003542D-03
        ws(  5) = 0.2261345412012040D-03
        ws(  6) = 0.2816444254320073D-03
        ws(  7) = 0.3434015502973487D-03
        ws(  8) = 0.4138620773541867D-03
        ws(  9) = 0.4960638006411464D-03
        ws( 10) = 0.5943220536415959D-03
        ws( 11) = 0.7147392262146900D-03
        ws( 12) = 0.8672493109972969D-03
        ws( 13) = 0.1065483953679344D-02
        ws( 14) = 0.1327958768560293D-02
        ws( 15) = 0.1690102459508589D-02
        ws( 16) = 0.2226511866588815D-02
        ws( 17) = 0.3050704375804639D-02
        ws( 18) = 0.4310777526281145D-02
        ws( 19) = 0.6142554638812227D-02
        ws( 20) = 0.8412652292397847D-02
        ws( 21) = 0.1053996074955256D-01
        ws( 22) = 0.1199979563547176D-01
        ws( 23) = 0.1282977921845422D-01
        ws( 24) = 0.1328361922630313D-01
        ws( 25) = 0.1255159241532630D-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 =  29
        err = 0.6469214743362187D-04
        xs(  1) = 0.8962282884778746D-05
        xs(  2) = 0.4732103595970277D-04
        xs(  3) = 0.1166092420622434D-03
        xs(  4) = 0.2173979507177002D-03
        xs(  5) = 0.3505628172028710D-03
        xs(  6) = 0.5174449579406247D-03
        xs(  7) = 0.7199644886015840D-03
        xs(  8) = 0.9608436143147230D-03
        xs(  9) = 0.1243741082632026D-02
        xs( 10) = 0.1573486470305533D-02
        xs( 11) = 0.1956312127681588D-02
        xs( 12) = 0.2400138366543588D-02
        xs( 13) = 0.2914890841083317D-02
        xs( 14) = 0.3513889342078306D-02
        xs( 15) = 0.4215734272575698D-02
        xs( 16) = 0.5045711992313662D-02
        xs( 17) = 0.6037353145069710D-02
        xs( 18) = 0.7236311979539774D-02
        xs( 19) = 0.8709118918798451D-02
        xs( 20) = 0.1056595128754797D-01
        xs( 21) = 0.1299212811370853D-01
        xs( 22) = 0.1627054669327470D-01
        xs( 23) = 0.2083066259695373D-01
        xs( 24) = 0.2726126776283123D-01
        xs( 25) = 0.3607599074366611D-01
        xs( 26) = 0.4727621320347752D-01
        xs( 27) = 0.6024829601335236D-01
        xs( 28) = 0.7419972786633575D-01
        xs( 29) = 0.8800109543054482D-01
        ws(  1) = 0.2301679390709719D-04
        ws(  2) = 0.5376005409523418D-04
        ws(  3) = 0.8491511422362642D-04
        ws(  4) = 0.1168024451825456D-03
        ws(  5) = 0.1497527901393570D-03
        ws(  6) = 0.1843233056113294D-03
        ws(  7) = 0.2211703670349671D-03
        ws(  8) = 0.2611881962252557D-03
        ws(  9) = 0.3054124537878473D-03
        ws( 10) = 0.3551075280130392D-03
        ws( 11) = 0.4118719203804110D-03
        ws( 12) = 0.4773997696985418D-03
        ws( 13) = 0.5542906885141777D-03
        ws( 14) = 0.6467696885056801D-03
        ws( 15) = 0.7611196901483509D-03
        ws( 16) = 0.9043505808249971D-03
        ws( 17) = 0.1086386339261569D-02
        ws( 18) = 0.1322256162488952D-02
        ws( 19) = 0.1641020324528078D-02
        ws( 20) = 0.2103392434015124D-02
        ws( 21) = 0.2795213076861249D-02
        ws( 22) = 0.3832340409990906D-02
        ws( 23) = 0.5389679217372088D-02
        ws( 24) = 0.7565061922032543D-02
        ws( 25) = 0.1006386218006259D-01
        ws( 26) = 0.1221656600220415D-01
        ws( 27) = 0.1360677223177614D-01
        ws( 28) = 0.1435232398458468D-01
        ws( 29) = 0.1317420171680964D-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 =  33
        err = 0.7103161005611075D-04
        xs(  1) = 0.6560081399789592D-05
        xs(  2) = 0.3459006406651007D-04
        xs(  3) = 0.8513384424123313D-04
        xs(  4) = 0.1584093344873110D-03
        xs(  5) = 0.2547564850537105D-03
        xs(  6) = 0.3746998431838869D-03
        xs(  7) = 0.5190129101888359D-03
        xs(  8) = 0.6888368463434005D-03
        xs(  9) = 0.8857773633145902D-03
        xs( 10) = 0.1111945906612902D-02
        xs( 11) = 0.1369992067509068D-02
        xs( 12) = 0.1663191511444914D-02
        xs( 13) = 0.1995555193536670D-02
        xs( 14) = 0.2371946133438851D-02
        xs( 15) = 0.2798712656632134D-02
        xs( 16) = 0.3284232854832030D-02
        xs( 17) = 0.3838716610713918D-02
        xs( 18) = 0.4474239442225247D-02
        xs( 19) = 0.5207712064259435D-02
        xs( 20) = 0.6063866991626943D-02
        xs( 21) = 0.7073942108622720D-02
        xs( 22) = 0.8275778699329012D-02
        xs( 23) = 0.9723686352705660D-02
        xs( 24) = 0.1151819976848832D-01
        xs( 25) = 0.1384260373942405D-01
        xs( 26) = 0.1696291073229520D-01
        xs( 27) = 0.2125588068528099D-01
        xs( 28) = 0.2729299671410083D-01
        xs( 29) = 0.3576687292978876D-01
        xs( 30) = 0.4704722806659869D-01
        xs( 31) = 0.6070821303920957D-01
        xs( 32) = 0.7580968703749050D-01
        xs( 33) = 0.9089053845848162D-01
        ws(  1) = 0.1683740627768538D-04
        ws(  2) = 0.3925624828527593D-04
        ws(  3) = 0.6186567407192208D-04
        ws(  4) = 0.8474090610822708D-04
        ws(  5) = 0.1080397581259041D-03
        ws(  6) = 0.1319733809678942D-03
        ws(  7) = 0.1568411596159660D-03
        ws(  8) = 0.1830741863850465D-03
        ws(  9) = 0.2111594639443922D-03
        ws( 10) = 0.2416201988473060D-03
        ws( 11) = 0.2750140389930998D-03
        ws( 12) = 0.3120530260389893D-03
        ws( 13) = 0.3534712346192261D-03
        ws( 14) = 0.4003635396583966D-03
        ws( 15) = 0.4545698144978199D-03
        ws( 16) = 0.5181891800408579D-03
        ws( 17) = 0.5927243868640934D-03
        ws( 18) = 0.6810796807134695D-03
        ws( 19) = 0.7900369195344324D-03
        ws( 20) = 0.9275033827393418D-03
        ws( 21) = 0.1098795463294978D-02
        ws( 22) = 0.1313451206401176D-02
        ws( 23) = 0.1598317937291805D-02
        ws( 24) = 0.2021537531303370D-02
        ws( 25) = 0.2671361957484453D-02
        ws( 26) = 0.3630135436811239D-02
        ws( 27) = 0.5051927662005702D-02
        ws( 28) = 0.7145557799431021D-02
        ws( 29) = 0.9871118663939043D-02
        ws( 30) = 0.1260741235306380D-01
        ws( 31) = 0.1453510982872746D-01
        ws( 32) = 0.1554568878893936D-01
        ws( 33) = 0.1483494675789260D-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 =  37
        err = 0.6573100112280123D-04
        xs(  1) = 0.4988931135393991D-05
        xs(  2) = 0.2629238706207572D-04
        xs(  3) = 0.6465528723509797D-04
        xs(  4) = 0.1201580772374853D-03
        xs(  5) = 0.1929298504113660D-03
        xs(  6) = 0.2831887772391062D-03
        xs(  7) = 0.3912691271133735D-03
        xs(  8) = 0.5176848511369870D-03
        xs(  9) = 0.6631773259749759D-03
        xs( 10) = 0.8287385674487235D-03
        xs( 11) = 0.1015615552935638D-02
        xs( 12) = 0.1225365990924457D-02
        xs( 13) = 0.1459898513191473D-02
        xs( 14) = 0.1721459371903895D-02
        xs( 15) = 0.2012726140409205D-02
        xs( 16) = 0.2337062660764779D-02
        xs( 17) = 0.2698754041802264D-02
        xs( 18) = 0.3102887987152839D-02
        xs( 19) = 0.3555252351319335D-02
        xs( 20) = 0.4063335032235968D-02
        xs( 21) = 0.4636867610083710D-02
        xs( 22) = 0.5287265314567731D-02
        xs( 23) = 0.6029116505456048D-02
        xs( 24) = 0.6882739572764658D-02
        xs( 25) = 0.7875273671838027D-02
        xs( 26) = 0.9042928201803826D-02
        xs( 27) = 0.1043190049311557D-01
        xs( 28) = 0.1211091821523805D-01
        xs( 29) = 0.1421197817954278D-01
        xs( 30) = 0.1694897600771005D-01
        xs( 31) = 0.2063392940923129D-01
        xs( 32) = 0.2573948969511446D-01
        xs( 33) = 0.3291063959897106D-01
        xs( 34) = 0.4280391043494044D-01
        xs( 35) = 0.5564520979026461D-01
        xs( 36) = 0.7090241475720208D-01
        xs( 37) = 0.8688258768038332D-01
        ws(  1) = 0.1280507090786124D-04
        ws(  2) = 0.2981972057574069D-04
        ws(  3) = 0.4691652913828557D-04
        ws(  4) = 0.6410787269622688D-04
        ws(  5) = 0.8147188382441884D-04
        ws(  6) = 0.9910202814479001D-04
        ws(  7) = 0.1171452152632674D-03
        ws(  8) = 0.1358093958683397D-03
        ws(  9) = 0.1553411715254688D-03
        ws( 10) = 0.1759889646039661D-03
        ws( 11) = 0.1980252364641183D-03
        ws( 12) = 0.2217925898288575D-03
        ws( 13) = 0.2476433195780779D-03
        ws( 14) = 0.2759208304263673D-03
        ws( 15) = 0.3071754555607938D-03
        ws( 16) = 0.3422148426196260D-03
        ws( 17) = 0.3820239906488778D-03
        ws( 18) = 0.4271845640313908D-03
        ws( 19) = 0.4787908314754391D-03
        ws( 20) = 0.5390113485370389D-03
        ws( 21) = 0.6099191958873959D-03
        ws( 22) = 0.6932440939530913D-03
        ws( 23) = 0.7938148895394001D-03
        ws( 24) = 0.9178410253356722D-03
        ws( 25) = 0.1073206408802238D-02
        ws( 26) = 0.1269660627906504D-02
        ws( 27) = 0.1518605558323292D-02
        ws( 28) = 0.1860921906399888D-02
        ws( 29) = 0.2376686680228798D-02
        ws( 30) = 0.3147697512638376D-02
        ws( 31) = 0.4299988330021380D-02
        ws( 32) = 0.6019983562681627D-02
        ws( 33) = 0.8437572047598312D-02
        ws( 34) = 0.1138426970993901D-01
        ws( 35) = 0.1415212364729475D-01
        ws( 36) = 0.1617964863693201D-01
        ws( 37) = 0.1630181240983353D-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 =  42
        err = 0.2808363963350493D-04
        xs(  1) = 0.3807889601378573D-05
        xs(  2) = 0.2006123459158690D-04
        xs(  3) = 0.4931688020718158D-04
        xs(  4) = 0.9161482981029479D-04
        xs(  5) = 0.1470126327617739D-03
        xs(  6) = 0.2156227288330758D-03
        xs(  7) = 0.2976087213471361D-03
        xs(  8) = 0.3932280290907924D-03
        xs(  9) = 0.5028428420208425D-03
        xs( 10) = 0.6269517724052181D-03
        xs( 11) = 0.7661888655499992D-03
        xs( 12) = 0.9213514684850697D-03
        xs( 13) = 0.1093408138291555D-02
        xs( 14) = 0.1283498756378089D-02
        xs( 15) = 0.1492965818123435D-02
        xs( 16) = 0.1723422267433115D-02
        xs( 17) = 0.1976835294330813D-02
        xs( 18) = 0.2255558423591418D-02
        xs( 19) = 0.2562308265607260D-02
        xs( 20) = 0.2900229853630896D-02
        xs( 21) = 0.3273117039793138D-02
        xs( 22) = 0.3685567687844145D-02
        xs( 23) = 0.4143179626857646D-02
        xs( 24) = 0.4652758514405986D-02
        xs( 25) = 0.5222318379391445D-02
        xs( 26) = 0.5861754242243977D-02
        xs( 27) = 0.6584273955817282D-02
        xs( 28) = 0.7407724643381441D-02
        xs( 29) = 0.8354676623809437D-02
        xs( 30) = 0.9451999187420998D-02
        xs( 31) = 0.1073427066879687D-01
        xs( 32) = 0.1225794837152867D-01
        xs( 33) = 0.1412068479666878D-01
        xs( 34) = 0.1647353407488078D-01
        xs( 35) = 0.1953232041540637D-01
        xs( 36) = 0.2360923965432595D-01
        xs( 37) = 0.2918196926146887D-01
        xs( 38) = 0.3692488036540413D-01
        xs( 39) = 0.4752674160885155D-01
        xs( 40) = 0.6119272886002965D-01
        xs( 41) = 0.7722985928586307D-01
        xs( 42) = 0.9389093848687809D-01
        ws(  1) = 0.9772220832177188D-05
        ws(  2) = 0.2274626726515287D-04
        ws(  3) = 0.3577036104264337D-04
        ws(  4) = 0.4883298959513095D-04
        ws(  5) = 0.6198257334418921D-04
        ws(  6) = 0.7526493690180651D-04
        ws(  7) = 0.8875182630735692D-04
        ws(  8) = 0.1025461048342782D-03
        ws(  9) = 0.1167665980067894D-03
        ws( 10) = 0.1315557113115014D-03
        ws( 11) = 0.1470507712954492D-03
        ws( 12) = 0.1634355876164661D-03
        ws( 13) = 0.1808677227567259D-03
        ws( 14) = 0.1995390716746666D-03
        ws( 15) = 0.2196628889022821D-03
        ws( 16) = 0.2415801756157483D-03
        ws( 17) = 0.2656380805263767D-03
        ws( 18) = 0.2922486947482880D-03
        ws( 19) = 0.3217669972204200D-03
        ws( 20) = 0.3547180720920387D-03
        ws( 21) = 0.3918145607241436D-03
        ws( 22) = 0.4340042987459247D-03
        ws( 23) = 0.4823581544310578D-03
        ws( 24) = 0.5381215105031177D-03
        ws( 25) = 0.6026261743533549D-03
        ws( 26) = 0.6784105265825847D-03
        ws( 27) = 0.7695965552744867D-03
        ws( 28) = 0.8810907499442968D-03
        ws( 29) = 0.1017283073652225D-02
        ws( 30) = 0.1182856785963955D-02
        ws( 31) = 0.1390677898439321D-02
        ws( 32) = 0.1672704196038271D-02
        ws( 33) = 0.2077725765703660D-02
        ws( 34) = 0.2663453004872293D-02
        ws( 35) = 0.3504679726730973D-02
        ws( 36) = 0.4728101053299210D-02
        ws( 37) = 0.6533663825790211D-02
        ws( 38) = 0.9078774224102771D-02
        ws( 39) = 0.1216967319504709D-01
        ws( 40) = 0.1505679951040699D-01
        ws( 41) = 0.1692985201708366D-01
        ws( 42) = 0.1640680986782534D-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 =  46
        err = 0.4623708748687758D-04
        xs(  1) = 0.3086310238148371D-05
        xs(  2) = 0.1626706651091712D-04
        xs(  3) = 0.3998170477598709D-04
        xs(  4) = 0.7423837495848222D-04
        xs(  5) = 0.1190604336316438D-03
        xs(  6) = 0.1744846772813618D-03
        xs(  7) = 0.2405944245698928D-03
        xs(  8) = 0.3175189470187838D-03
        xs(  9) = 0.4054600064404155D-03
        xs( 10) = 0.5046990044175036D-03
        xs( 11) = 0.6155961432857698D-03
        xs( 12) = 0.7385918465914216D-03
        xs( 13) = 0.8742301664986726D-03
        xs( 14) = 0.1023174704222880D-02
        xs( 15) = 0.1186203124794486D-02
        xs( 16) = 0.1364217897060335D-02
        xs( 17) = 0.1558261840381563D-02
        xs( 18) = 0.1769596402000902D-02
        xs( 19) = 0.1999726851058786D-02
        xs( 20) = 0.2250352610397080D-02
        xs( 21) = 0.2523378430487768D-02
        xs( 22) = 0.2821086164821308D-02
        xs( 23) = 0.3146242575159191D-02
        xs( 24) = 0.3501973454290076D-02
        xs( 25) = 0.3891852541095125D-02
        xs( 26) = 0.4320377493819558D-02
        xs( 27) = 0.4792980839881601D-02
        xs( 28) = 0.5315885949405531D-02
        xs( 29) = 0.5896749210753798D-02
        xs( 30) = 0.6545211235894946D-02
        xs( 31) = 0.7273086360821132D-02
        xs( 32) = 0.8096687443024041D-02
        xs( 33) = 0.9037446478993792D-02
        xs( 34) = 0.1011888366908171D-01
        xs( 35) = 0.1137105133780546D-01
        xs( 36) = 0.1284265637971661D-01
        xs( 37) = 0.1461737511575789D-01
        xs( 38) = 0.1682789511919199D-01
        xs( 39) = 0.1965443415746423D-01
        xs( 40) = 0.2335488846234229D-01
        xs( 41) = 0.2835027629014538D-01
        xs( 42) = 0.3527287958752542D-01
        xs( 43) = 0.4487689371596652D-01
        xs( 44) = 0.5770133487003867D-01
        xs( 45) = 0.7352864555681433D-01
        xs( 46) = 0.9096103273338549D-01
        ws(  1) = 0.7921215696132456D-05
        ws(  2) = 0.1844716077591775D-04
        ws(  3) = 0.2898215794319785D-04
        ws(  4) = 0.3953518286455697D-04
        ws(  5) = 0.5011333301156351D-04
        ws(  6) = 0.6075047871956259D-04
        ws(  7) = 0.7149080762768612D-04
        ws(  8) = 0.8239190078696954D-04
        ws(  9) = 0.9353494920473805D-04
        ws( 10) = 0.1049978833473714D-03
        ws( 11) = 0.1168680451727758D-03
        ws( 12) = 0.1292209981966883D-03
        ws( 13) = 0.1421694541306599D-03
        ws( 14) = 0.1558423100624861D-03
        ws( 15) = 0.1703621663054331D-03
        ws( 16) = 0.1858352101177389D-03
        ws( 17) = 0.2024656943376955D-03
        ws( 18) = 0.2204616174741432D-03
        ws( 19) = 0.2400789466415722D-03
        ws( 20) = 0.2614841042373297D-03
        ws( 21) = 0.2849519230800358D-03
        ws( 22) = 0.3109342861895432D-03
        ws( 23) = 0.3398942063758912D-03
        ws( 24) = 0.3721516377806002D-03
        ws( 25) = 0.4083739508201481D-03
        ws( 26) = 0.4495899117515537D-03
        ws( 27) = 0.4966316192916537D-03
        ws( 28) = 0.5504352352177573D-03
        ws( 29) = 0.6129177228455186D-03
        ws( 30) = 0.6859310170314057D-03
        ws( 31) = 0.7724926260547525D-03
        ws( 32) = 0.8783545624461645D-03
        ws( 33) = 0.1006986832121266D-02
        ws( 34) = 0.1160666546339964D-02
        ws( 35) = 0.1351462834898192D-02
        ws( 36) = 0.1605244965834000D-02
        ws( 37) = 0.1966317701868704D-02
        ws( 38) = 0.2484143341628088D-02
        ws( 39) = 0.3209934129566358D-02
        ws( 40) = 0.4260166834170713D-02
        ws( 41) = 0.5837998341290567D-02
        ws( 42) = 0.8139084634747756D-02
        ws( 43) = 0.1116700903646457D-01
        ws( 44) = 0.1444234907080619D-01
        ws( 45) = 0.1701624191456966D-01
        ws( 46) = 0.1665598695531125D-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 =  50
        err = 0.4629642349426523D-04
        xs(  1) = 0.2563448607251605D-05
        xs(  2) = 0.1351553625637996D-04
        xs(  3) = 0.3321790812834217D-04
        xs(  4) = 0.6166027557361212D-04
        xs(  5) = 0.9884683978928555D-04
        xs(  6) = 0.1447779579036387D-03
        xs(  7) = 0.1994838062870504D-03
        xs(  8) = 0.2630226504450287D-03
        xs(  9) = 0.3354882683021829D-03
        xs( 10) = 0.4170402619719736D-03
        xs( 11) = 0.5078859527267067D-03
        xs( 12) = 0.6083092207714597D-03
        xs( 13) = 0.7186272477153614D-03
        xs( 14) = 0.8392290335099143D-03
        xs( 15) = 0.9705832250151496D-03
        xs( 16) = 0.1113246385165450D-02
        xs( 17) = 0.1267832588344973D-02
        xs( 18) = 0.1435071924934042D-02
        xs( 19) = 0.1615819515291912D-02
        xs( 20) = 0.1811101376654868D-02
        xs( 21) = 0.2022036647941347D-02
        xs( 22) = 0.2249848312948207D-02
        xs( 23) = 0.2495962057557417D-02
        xs( 24) = 0.2762144346895507D-02
        xs( 25) = 0.3050416316596751D-02
        xs( 26) = 0.3362978470858433D-02
        xs( 27) = 0.3702372678326598D-02
        xs( 28) = 0.4071645071669582D-02
        xs( 29) = 0.4474308324896551D-02
        xs( 30) = 0.4914598641291804D-02
        xs( 31) = 0.5397888339821399D-02
        xs( 32) = 0.5930352894746147D-02
        xs( 33) = 0.6518494968196268D-02
        xs( 34) = 0.7170870194161912D-02
        xs( 35) = 0.7899383829017229D-02
        xs( 36) = 0.8719414347556050D-02
        xs( 37) = 0.9649839218314358D-02
        xs( 38) = 0.1071194411297221D-01
        xs( 39) = 0.1193091788945948D-01
        xs( 40) = 0.1334931907712348D-01
        xs( 41) = 0.1503968082445864D-01
        xs( 42) = 0.1711216840209904D-01
        xs( 43) = 0.1972381751035687D-01
        xs( 44) = 0.2308703929789210D-01
        xs( 45) = 0.2752652066615306D-01
        xs( 46) = 0.3357873217136513D-01
        xs( 47) = 0.4202409275277133D-01
        xs( 48) = 0.5370653238725625D-01
        xs( 49) = 0.6896597604524456D-01
        xs( 50) = 0.8664354585961566D-01
        ws(  1) = 0.6582733238859829D-05
        ws(  2) = 0.1532734038393490D-04
        ws(  3) = 0.2407094876896048D-04
        ws(  4) = 0.3281274503628736D-04
        ws(  5) = 0.4156109963499893D-04
        ws(  6) = 0.5031284144421908D-04
        ws(  7) = 0.5911208451787252D-04
        ws(  8) = 0.6797365841792585D-04
        ws(  9) = 0.7697159215946971D-04
        ws( 10) = 0.8616842927898522D-04
        ws( 11) = 0.9559174922290502D-04
        ws( 12) = 0.1053037742386467D-03
        ws( 13) = 0.1153823928491926D-03
        ws( 14) = 0.1259037980297216D-03
        ws( 15) = 0.1369057077436761D-03
        ws( 16) = 0.1485087481553138D-03
        ws( 17) = 0.1607837077741371D-03
        ws( 18) = 0.1738449934798704D-03
        ws( 19) = 0.1878330881857876D-03
        ws( 20) = 0.2029093242780980D-03
        ws( 21) = 0.2191515215638185D-03
        ws( 22) = 0.2367113895308438D-03
        ws( 23) = 0.2558281139901770D-03
        ws( 24) = 0.2768889618110482D-03
        ws( 25) = 0.3000209721012977D-03
        ws( 26) = 0.3255293632773596D-03
        ws( 27) = 0.3537804270995618D-03
        ws( 28) = 0.3853766519686935D-03
        ws( 29) = 0.4206808095075052D-03
        ws( 30) = 0.4608309094089906D-03
        ws( 31) = 0.5068295745198102D-03
        ws( 32) = 0.5591732191575830D-03
        ws( 33) = 0.6185695111022379D-03
        ws( 34) = 0.6882088719038111D-03
        ws( 35) = 0.7714580936349656D-03
        ws( 36) = 0.8718005420131507D-03
        ws( 37) = 0.9927118135417588D-03
        ws( 38) = 0.1135440152337300D-02
        ws( 39) = 0.1309388316186044D-02
        ws( 40) = 0.1539510682854816D-02
        ws( 41) = 0.1859475070297465D-02
        ws( 42) = 0.2311976018015925D-02
        ws( 43) = 0.2946060687244196D-02
        ws( 44) = 0.3833878881426825D-02
        ws( 45) = 0.5136553542843933D-02
        ws( 46) = 0.7104888675913541D-02
        ws( 47) = 0.9926743411916650D-02
        ws( 48) = 0.1345443110881874D-01
        ws( 49) = 0.1681185200445394D-01
        ws( 50) = 0.1698702587141100D-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 =  54
        err = 0.9940320311570124D-04
        xs(  1) = 0.2183913052794586D-05
        xs(  2) = 0.1150003335693841D-04
        xs(  3) = 0.2824716793417167D-04
        xs(  4) = 0.5242421953638966D-04
        xs(  5) = 0.8400102499905226D-04
        xs(  6) = 0.1229739229927390D-03
        xs(  7) = 0.1693475868253190D-03
        xs(  8) = 0.2231136953679416D-03
        xs(  9) = 0.2843264440629719D-03
        xs( 10) = 0.3530615716342407D-03
        xs( 11) = 0.4294393056051149D-03
        xs( 12) = 0.5136299232432435D-03
        xs( 13) = 0.6058259358477327D-03
        xs( 14) = 0.7062843598370159D-03
        xs( 15) = 0.8152901500754301D-03
        xs( 16) = 0.9332124596811978D-03
        xs( 17) = 0.1060434627825233D-02
        xs( 18) = 0.1197390865445945D-02
        xs( 19) = 0.1344586161671998D-02
        xs( 20) = 0.1502656566134342D-02
        xs( 21) = 0.1672366525056543D-02
        xs( 22) = 0.1854496388339716D-02
        xs( 23) = 0.2049823729502403D-02
        xs( 24) = 0.2259307733124211D-02
        xs( 25) = 0.2484155791581426D-02
        xs( 26) = 0.2725720026960256D-02
        xs( 27) = 0.2985361964512464D-02
        xs( 28) = 0.3264845573598303D-02
        xs( 29) = 0.3566213045275711D-02
        xs( 30) = 0.3891492662091887D-02
        xs( 31) = 0.4242839754479150D-02
        xs( 32) = 0.4623554850587670D-02
        xs( 33) = 0.5037513569233073D-02
        xs( 34) = 0.5488693345268805D-02
        xs( 35) = 0.5981813746653682D-02
        xs( 36) = 0.6522482956245563D-02
        xs( 37) = 0.7116300740280461D-02
        xs( 38) = 0.7772097663361154D-02
        xs( 39) = 0.8502603276502442D-02
        xs( 40) = 0.9321879912919315D-02
        xs( 41) = 0.1024669288037496D-01
        xs( 42) = 0.1129436075874097D-01
        xs( 43) = 0.1248497438859787D-01
        xs( 44) = 0.1386109810746752D-01
        xs( 45) = 0.1549395473074408D-01
        xs( 46) = 0.1748397023505494D-01
        xs( 47) = 0.1997229197703038D-01
        xs( 48) = 0.2314122544369660D-01
        xs( 49) = 0.2727869959645484D-01
        xs( 50) = 0.3289567945899421D-01
        xs( 51) = 0.4076004468058199D-01
        xs( 52) = 0.5180372711753302D-01
        xs( 53) = 0.6668960014606772D-01
        xs( 54) = 0.8483922940977048D-01
        ws(  1) = 0.5607800752069401D-05
        ws(  2) = 0.1302510548122738D-04
        ws(  3) = 0.2046008709284177D-04
        ws(  4) = 0.2788736383165486D-04
        ws(  5) = 0.3528170718863446D-04
        ws(  6) = 0.4266572885951188D-04
        ws(  7) = 0.5005365897646359D-04
        ws(  8) = 0.5749281073981249D-04
        ws(  9) = 0.6495836097979704D-04
        ws( 10) = 0.7252859379853563D-04
        ws( 11) = 0.8025523782335440D-04
        ws( 12) = 0.8815923044982344D-04
        ws( 13) = 0.9627612822510505D-04
        ws( 14) = 0.1046757664111368D-03
        ws( 15) = 0.1134043674605295D-03
        ws( 16) = 0.1225076231761895D-03
        ws( 17) = 0.1320100181404261D-03
        ws( 18) = 0.1419788065183757D-03
        ws( 19) = 0.1525218900893160D-03
        ws( 20) = 0.1637601771051816D-03
        ws( 21) = 0.1757935434243161D-03
        ws( 22) = 0.1885839847190230D-03
        ws( 23) = 0.2022344694414272D-03
        ws( 24) = 0.2169513945149621D-03
        ws( 25) = 0.2329907733764883D-03
        ws( 26) = 0.2503520530469591D-03
        ws( 27) = 0.2692298872408739D-03
        ws( 28) = 0.2900829623291389D-03
        ws( 29) = 0.3130192182700961D-03
        ws( 30) = 0.3378884423628749D-03
        ws( 31) = 0.3653860619059386D-03
        ws( 32) = 0.3967003467347533D-03
        ws( 33) = 0.4319028001354301D-03
        ws( 34) = 0.4712563788306763D-03
        ws( 35) = 0.5160276709152905D-03
        ws( 36) = 0.5661816878059575D-03
        ws( 37) = 0.6229446304515813D-03
        ws( 38) = 0.6908890103654108D-03
        ws( 39) = 0.7724825877924788D-03
        ws( 40) = 0.8689302791322588D-03
        ws( 41) = 0.9836865104796021D-03
        ws( 42) = 0.1114690356110927D-02
        ws( 43) = 0.1273715397022715D-02
        ws( 44) = 0.1490813006616311D-02
        ws( 45) = 0.1791379212059399D-02
        ws( 46) = 0.2212852682858510D-02
        ws( 47) = 0.2792936365981756D-02
        ws( 48) = 0.3588955342393640D-02
        ws( 49) = 0.4766805576175973D-02
        ws( 50) = 0.6587922023771279D-02
        ws( 51) = 0.9273508942918920D-02
        ws( 52) = 0.1284865588615191D-01
        ws( 53) = 0.1667766746444603D-01
        ws( 54) = 0.1791862872346922D-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 =  59
        err = 0.5589014930856432D-04
        xs(  1) = 0.1814408218407491D-05
        xs(  2) = 0.9563166173249926D-05
        xs(  3) = 0.2349980290832107D-04
        xs(  4) = 0.4361667586151088D-04
        xs(  5) = 0.6992197092431817D-04
        xs(  6) = 0.1023945644004688D-03
        xs(  7) = 0.1410528009468106D-03
        xs(  8) = 0.1859020438679441D-03
        xs(  9) = 0.2369842554557362D-03
        xs( 10) = 0.2943483088168802D-03
        xs( 11) = 0.3580813905362961D-03
        xs( 12) = 0.4282857706124142D-03
        xs( 13) = 0.5050921758624414D-03
        xs( 14) = 0.5886537245119602D-03
        xs( 15) = 0.6791603523635365D-03
        xs( 16) = 0.7768379874951653D-03
        xs( 17) = 0.8819489229665037D-03
        xs( 18) = 0.9947886792379681D-03
        xs( 19) = 0.1115682809477874D-02
        xs( 20) = 0.1245014518796423D-02
        xs( 21) = 0.1383232635414089D-02
        xs( 22) = 0.1530842940746073D-02
        xs( 23) = 0.1688381808511947D-02
        xs( 24) = 0.1856435689200583D-02
        xs( 25) = 0.2035697933740396D-02
        xs( 26) = 0.2226984322414701D-02
        xs( 27) = 0.2431166584140455D-02
        xs( 28) = 0.2649160914104722D-02
        xs( 29) = 0.2882058927797126D-02
        xs( 30) = 0.3131187179248525D-02
        xs( 31) = 0.3397951652652198D-02
        xs( 32) = 0.3683851284772821D-02
        xs( 33) = 0.3990758190433397D-02
        xs( 34) = 0.4320889673327416D-02
        xs( 35) = 0.4676480572294857D-02
        xs( 36) = 0.5060099223973576D-02
        xs( 37) = 0.5475154996194629D-02
        xs( 38) = 0.5925530712544101D-02
        xs( 39) = 0.6415509441685385D-02
        xs( 40) = 0.6950455962692033D-02
        xs( 41) = 0.7536167625640873D-02
        xs( 42) = 0.8179284470770824D-02
        xs( 43) = 0.8889683984722615D-02
        xs( 44) = 0.9679873118896778D-02
        xs( 45) = 0.1056428903455798D-01
        xs( 46) = 0.1156041754181669D-01
        xs( 47) = 0.1268679900739304D-01
        xs( 48) = 0.1397010968318396D-01
        xs( 49) = 0.1545931873067916D-01
        xs( 50) = 0.1722851271704328D-01
        xs( 51) = 0.1938529512205840D-01
        xs( 52) = 0.2207412328622313D-01
        xs( 53) = 0.2549179124388841D-01
        xs( 54) = 0.2996501822375344D-01
        xs( 55) = 0.3602557098401009D-01
        xs( 56) = 0.4441539191760997D-01
        xs( 57) = 0.5598642138845388D-01
        xs( 58) = 0.7131141606594747D-01
        xs( 59) = 0.8955000660044742D-01
        ws(  1) = 0.4653993863197243D-05
        ws(  2) = 0.1084462500838467D-04
        ws(  3) = 0.1703505118324023D-04
        ws(  4) = 0.2320630511087014D-04
        ws(  5) = 0.2938727638387324D-04
        ws(  6) = 0.3556468296858670D-04
        ws(  7) = 0.4175046602748450D-04
        ws(  8) = 0.4795672639015882D-04
        ws(  9) = 0.5421248835919341D-04
        ws( 10) = 0.6053579986333466D-04
        ws( 11) = 0.6694994889727793D-04
        ws( 12) = 0.7348189826502421D-04
        ws( 13) = 0.8015290020234879D-04
        ws( 14) = 0.8699746524393982D-04
        ws( 15) = 0.9405114093354206D-04
        ws( 16) = 0.1013497188894341D-03
        ws( 17) = 0.1089272633879029D-03
        ws( 18) = 0.1168085889440085D-03
        ws( 19) = 0.1250424254159282D-03
        ws( 20) = 0.1336936485587624D-03
        ws( 21) = 0.1428252767385495D-03
        ws( 22) = 0.1524851349957821D-03
        ws( 23) = 0.1626983119038896D-03
        ws( 24) = 0.1735318792745736D-03
        ws( 25) = 0.1851293168145189D-03
        ws( 26) = 0.1975889044677471D-03
        ws( 27) = 0.2109299943363844D-03
        ws( 28) = 0.2252438918284557D-03
        ws( 29) = 0.2407874859608264D-03
        ws( 30) = 0.2577144844517089D-03
        ws( 31) = 0.2760629418245780D-03
        ws( 32) = 0.2960530265682521D-03
        ws( 33) = 0.3181494729040327D-03
        ws( 34) = 0.3424923694292081D-03
        ws( 35) = 0.3691112598279267D-03
        ws( 36) = 0.3987033457927952D-03
        ws( 37) = 0.4320725371098177D-03
        ws( 38) = 0.4693854777082362D-03
        ws( 39) = 0.5114935600482655D-03
        ws( 40) = 0.5593547660914928D-03
        ws( 41) = 0.6131028286201118D-03
        ws( 42) = 0.6748095963375598D-03
        ws( 43) = 0.7481197738794300D-03
        ws( 44) = 0.8346274890292092D-03
        ws( 45) = 0.9372287117774689D-03
        ws( 46) = 0.1058086249706337D-02
        ws( 47) = 0.1198858883684763D-02
        ws( 48) = 0.1376124705718242D-02
        ws( 49) = 0.1614533014569849D-02
        ws( 50) = 0.1941745168569675D-02
        ws( 51) = 0.2395599530866287D-02
        ws( 52) = 0.3012642102556815D-02
        ws( 53) = 0.3874055276299488D-02
        ws( 54) = 0.5157994364650423D-02
        ws( 55) = 0.7081811749228016D-02
        ws( 56) = 0.9818001870551742D-02
        ws( 57) = 0.1333217185337682D-01
        ws( 58) = 0.1689658425465243D-01
        ws( 59) = 0.1737168148394212D-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 =  62
        err = 0.8992270591774328D-04
        xs(  1) = 0.1644969568248851D-05
        xs(  2) = 0.8527409894452380D-05
        xs(  3) = 0.2091223010253698D-04
        xs(  4) = 0.3879201989083084D-04
        xs(  5) = 0.6213251772133810D-04
        xs(  6) = 0.9091751874579686D-04
        xs(  7) = 0.1251348916191568D-03
        xs(  8) = 0.1647632813856296D-03
        xs(  9) = 0.2098188841981228D-03
        xs( 10) = 0.2603103631432000D-03
        xs( 11) = 0.3162864409776272D-03
        xs( 12) = 0.3778096770210340D-03
        xs( 13) = 0.4449653290851109D-03
        xs( 14) = 0.5178467856840232D-03
        xs( 15) = 0.5965747880866198D-03
        xs( 16) = 0.6813083258611625D-03
        xs( 17) = 0.7722295271631426D-03
        xs( 18) = 0.8695422023793560D-03
        xs( 19) = 0.9734561025589622D-03
        xs( 20) = 0.1084204926889006D-02
        xs( 21) = 0.1202087678732078D-02
        xs( 22) = 0.1327466685511183D-02
        xs( 23) = 0.1460769960536877D-02
        xs( 24) = 0.1602394959960594D-02
        xs( 25) = 0.1752749854671228D-02
        xs( 26) = 0.1912351133403143D-02
        xs( 27) = 0.2081840545713806D-02
        xs( 28) = 0.2261861610366943D-02
        xs( 29) = 0.2453016577725737D-02
        xs( 30) = 0.2656106064749597D-02
        xs( 31) = 0.2872114009799509D-02
        xs( 32) = 0.3102082161933287D-02
        xs( 33) = 0.3347009119358853D-02
        xs( 34) = 0.3608162413850484D-02
        xs( 35) = 0.3887139349948470D-02
        xs( 36) = 0.4185581432962447D-02
        xs( 37) = 0.4505026700300160D-02
        xs( 38) = 0.4847447440290750D-02
        xs( 39) = 0.5215339112214203D-02
        xs( 40) = 0.5611669311524263D-02
        xs( 41) = 0.6039990803238597D-02
        xs( 42) = 0.6504147274012198D-02
        xs( 43) = 0.7007734013866012D-02
        xs( 44) = 0.7555046237248229D-02
        xs( 45) = 0.8152374838800654D-02
        xs( 46) = 0.8808917099880942D-02
        xs( 47) = 0.9535987629753842D-02
        xs( 48) = 0.1034566830961815D-01
        xs( 49) = 0.1124821959884713D-01
        xs( 50) = 0.1225469172107660D-01
        xs( 51) = 0.1338756419536972D-01
        xs( 52) = 0.1469238889203009D-01
        xs( 53) = 0.1623663918847797D-01
        xs( 54) = 0.1810323424500989D-01
        xs( 55) = 0.2039696248519954D-01
        xs( 56) = 0.2326262988472988D-01
        xs( 57) = 0.2692731323626846D-01
        xs( 58) = 0.3176232066220310D-01
        xs( 59) = 0.3834947355602615D-01
        xs( 60) = 0.4753365538150315D-01
        xs( 61) = 0.6035199675281274D-01
        xs( 62) = 0.7695180731393310D-01
        ws(  1) = 0.4140236098891970D-05
        ws(  2) = 0.9679218800607850D-05
        ws(  3) = 0.1512766476180258D-04
        ws(  4) = 0.2061429488280146D-04
        ws(  5) = 0.2604815114734152D-04
        ws(  6) = 0.3150641179885742D-04
        ws(  7) = 0.3691840717561287D-04
        ws(  8) = 0.4235155889857734D-04
        ws(  9) = 0.4777128419694725D-04
        ws( 10) = 0.5322711841555778D-04
        ws( 11) = 0.5873574913713397D-04
        ws( 12) = 0.6431857111206665D-04
        ws( 13) = 0.7000091509437161D-04
        ws( 14) = 0.7578282233481744D-04
        ws( 15) = 0.8170307054400017D-04
        ws( 16) = 0.8779244450753156D-04
        ws( 17) = 0.9408160082552069D-04
        ws( 18) = 0.1005828354313649D-03
        ws( 19) = 0.1072898814219363D-03
        ws( 20) = 0.1142574402166586D-03
        ws( 21) = 0.1215592813999134D-03
        ws( 22) = 0.1292735778837456D-03
        ws( 23) = 0.1374056046398161D-03
        ws( 24) = 0.1459158266050346D-03
        ws( 25) = 0.1548817659587012D-03
        ws( 26) = 0.1644304620807848D-03
        ws( 27) = 0.1746570336487999D-03
        ws( 28) = 0.1854844997225604D-03
        ws( 29) = 0.1969677768041697D-03
        ws( 30) = 0.2093743908004879D-03
        ws( 31) = 0.2228235204901409D-03
        ws( 32) = 0.2372769923349251D-03
        ws( 33) = 0.2527862439581369D-03
        ws( 34) = 0.2697880379417454D-03
        ws( 35) = 0.2884372775419958D-03
        ws( 36) = 0.3086754247202335D-03
        ws( 37) = 0.3305258578111892D-03
        ws( 38) = 0.3547085778845756D-03
        ws( 39) = 0.3815453178571014D-03
        ws( 40) = 0.4116832951039025D-03
        ws( 41) = 0.4455966751391660D-03
        ws( 42) = 0.4832623254990517D-03
        ws( 43) = 0.5246116354166912D-03
        ws( 44) = 0.5710322194392931D-03
        ws( 45) = 0.6251863792119301D-03
        ws( 46) = 0.6897939592106676D-03
        ws( 47) = 0.7665022741380101D-03
        ws( 48) = 0.8544470074730923D-03
        ws( 49) = 0.9522202599176421D-03
        ws( 50) = 0.1064216749962944D-02
        ws( 51) = 0.1209178735095145D-02
        ws( 52) = 0.1412157218540381D-02
        ws( 53) = 0.1690668611448147D-02
        ws( 54) = 0.2061086187096665D-02
        ws( 55) = 0.2552077288161034D-02
        ws( 56) = 0.3220456216515198D-02
        ws( 57) = 0.4175406559985548D-02
        ws( 58) = 0.5597947864798778D-02
        ws( 59) = 0.7724946491707059D-02
        ws( 60) = 0.1074823837676283D-01
        ws( 61) = 0.1466790260723576D-01
        ws( 62) = 0.1694474155465711D-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 =  67
        err = 0.8513035221320109D-04
        xs(  1) = 0.1369700296612994D-05
        xs(  2) = 0.7271949919466955D-05
        xs(  3) = 0.1790824222047545D-04
        xs(  4) = 0.3321412035198952D-04
        xs(  5) = 0.5323778832397852D-04
        xs(  6) = 0.7793266735657119D-04
        xs(  7) = 0.1072827321385447D-03
        xs(  8) = 0.1412939239681432D-03
        xs(  9) = 0.1799499671137722D-03
        xs( 10) = 0.2232741934181566D-03
        xs( 11) = 0.2712881591082082D-03
        xs( 12) = 0.3240343285303730D-03
        xs( 13) = 0.3815680710358345D-03
        xs( 14) = 0.4439532779261659D-03
        xs( 15) = 0.5112750207090773D-03
        xs( 16) = 0.5836350742978862D-03
        xs( 17) = 0.6611645619371894D-03
        xs( 18) = 0.7440066567181622D-03
        xs( 19) = 0.8323210373473330D-03
        xs( 20) = 0.9262703465377789D-03
        xs( 21) = 0.1026047424292327D-02
        xs( 22) = 0.1131893355564218D-02
        xs( 23) = 0.1244086514290080D-02
        xs( 24) = 0.1362910988507708D-02
        xs( 25) = 0.1488647819277356D-02
        xs( 26) = 0.1621623972839358D-02
        xs( 27) = 0.1762251473402375D-02
        xs( 28) = 0.1910990333646164D-02
        xs( 29) = 0.2068275870417325D-02
        xs( 30) = 0.2234565568260415D-02
        xs( 31) = 0.2410445089784471D-02
        xs( 32) = 0.2596624829468401D-02
        xs( 33) = 0.2793782241220206D-02
        xs( 34) = 0.3002577984275220D-02
        xs( 35) = 0.3223882046168896D-02
        xs( 36) = 0.3458789215771637D-02
        xs( 37) = 0.3708364047409394D-02
        xs( 38) = 0.3973727813079871D-02
        xs( 39) = 0.4256330242026224D-02
        xs( 40) = 0.4557752582218498D-02
        xs( 41) = 0.4879462540051917D-02
        xs( 42) = 0.5223321158176193D-02
        xs( 43) = 0.5591797459297324D-02
        xs( 44) = 0.5987466425463572D-02
        xs( 45) = 0.6413286553215246D-02
        xs( 46) = 0.6873020053431269D-02
        xs( 47) = 0.7370222391572131D-02
        xs( 48) = 0.7908715943617303D-02
        xs( 49) = 0.8494326453936708D-02
        xs( 50) = 0.9134223817711055D-02
        xs( 51) = 0.9837659638810803D-02
        xs( 52) = 0.1061609410453678D-01
        xs( 53) = 0.1148005129525521D-01
        xs( 54) = 0.1244041277503318D-01
        xs( 55) = 0.1351466738839075D-01
        xs( 56) = 0.1473037728442135D-01
        xs( 57) = 0.1613536522873114D-01
        xs( 58) = 0.1779610373618483D-01
        xs( 59) = 0.1979201721894212D-01
        xs( 60) = 0.2223464393698402D-01
        xs( 61) = 0.2527703225714778D-01
        xs( 62) = 0.2914189389362617D-01
        xs( 63) = 0.3421105127445284D-01
        xs( 64) = 0.4111341972353897D-01
        xs( 65) = 0.5074642304892856D-01
        xs( 66) = 0.6412779983306099D-01
        xs( 67) = 0.8156993202787485D-01
        ws(  1) = 0.3524976998483569D-05
        ws(  2) = 0.8281494835459062D-05
        ws(  3) = 0.1296914898244327D-04
        ws(  4) = 0.1767803540825125D-04
        ws(  5) = 0.2235942635453442D-04
        ws(  6) = 0.2700786268506887D-04
        ws(  7) = 0.3168605305567518D-04
        ws(  8) = 0.3633712957335307D-04
        ws(  9) = 0.4098910063374676D-04
        ws( 10) = 0.4566830164641404D-04
        ws( 11) = 0.5037041354692923D-04
        ws( 12) = 0.5512681535125730D-04
        ws( 13) = 0.5994342425431183D-04
        ws( 14) = 0.6483609525060227D-04
        ws( 15) = 0.6982008912493328D-04
        ws( 16) = 0.7492610642938226D-04
        ws( 17) = 0.8016521217835732D-04
        ws( 18) = 0.8555071216641437D-04
        ws( 19) = 0.9109792397251671D-04
        ws( 20) = 0.9682312765238570D-04
        ws( 21) = 0.1027679549851052D-03
        ws( 22) = 0.1089756438329500D-03
        ws( 23) = 0.1154647618822860D-03
        ws( 24) = 0.1222257181280578D-03
        ws( 25) = 0.1292982145912555D-03
        ws( 26) = 0.1367275066139432D-03
        ws( 27) = 0.1446050699735550D-03
        ws( 28) = 0.1529392367690542D-03
        ws( 29) = 0.1617068694458862D-03
        ws( 30) = 0.1709703556827108D-03
        ws( 31) = 0.1809065637355974D-03
        ws( 32) = 0.1915628710171603D-03
        ws( 33) = 0.2028550727063225D-03
        ws( 34) = 0.2148777295221186D-03
        ws( 35) = 0.2279165005665838D-03
        ws( 36) = 0.2420642460803278D-03
        ws( 37) = 0.2572601362331306D-03
        ws( 38) = 0.2737131122885516D-03
        ws( 39) = 0.2917554801855601D-03
        ws( 40) = 0.3113090170628175D-03
        ws( 41) = 0.3324257576509364D-03
        ws( 42) = 0.3557138864082797D-03
        ws( 43) = 0.3816386350700037D-03
        ws( 44) = 0.4101578692268763D-03
        ws( 45) = 0.4421482204104415D-03
        ws( 46) = 0.4778604421070736D-03
        ws( 47) = 0.5170917424762925D-03
        ws( 48) = 0.5608982413118071D-03
        ws( 49) = 0.6114366913242075D-03
        ws( 50) = 0.6698503673693567D-03
        ws( 51) = 0.7390050145115493D-03
        ws( 52) = 0.8196373030578724D-03
        ws( 53) = 0.9098577812840210D-03
        ws( 54) = 0.1013938385397827D-02
        ws( 55) = 0.1138933527624760D-02
        ws( 56) = 0.1300547348575264D-02
        ws( 57) = 0.1520993677351995D-02
        ws( 58) = 0.1813212413628987D-02
        ws( 59) = 0.2197397932002538D-02
        ws( 60) = 0.2712962763999447D-02
        ws( 61) = 0.3408082034437664D-02
        ws( 62) = 0.4383780846231226D-02
        ws( 63) = 0.5860536584729779D-02
        ws( 64) = 0.8087173493062302D-02
        ws( 65) = 0.1126093475390973D-01
        ws( 66) = 0.1514237267621815D-01
        ws( 67) = 0.1731587608115007D-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 =  71
        err = 0.8359304461502628D-04
        xs(  1) = 0.1226039922941418D-05
        xs(  2) = 0.6436110320194456D-05
        xs(  3) = 0.1579621566830529D-04
        xs(  4) = 0.2930584637496277D-04
        xs(  5) = 0.4695304917417035D-04
        xs(  6) = 0.6872274307668755D-04
        xs(  7) = 0.9461135419472714D-04
        xs(  8) = 0.1245823961240229D-03
        xs(  9) = 0.1586536412265262D-03
        xs( 10) = 0.1968204934448354D-03
        xs( 11) = 0.2390979830718944D-03
        xs( 12) = 0.2855055615656380D-03
        xs( 13) = 0.3360833601620245D-03
        xs( 14) = 0.3908672473470388D-03
        xs( 15) = 0.4499162251258303D-03
        xs( 16) = 0.5133021316757887D-03
        xs( 17) = 0.5811137632943045D-03
        xs( 18) = 0.6534554953488822D-03
        xs( 19) = 0.7304430434799302D-03
        xs( 20) = 0.8121927243499750D-03
        xs( 21) = 0.8988366991513908D-03
        xs( 22) = 0.9905332845003682D-03
        xs( 23) = 0.1087488313006667D-02
        xs( 24) = 0.1189910683703395D-02
        xs( 25) = 0.1298006800063520D-02
        xs( 26) = 0.1412000868260882D-02
        xs( 27) = 0.1532163161582907D-02
        xs( 28) = 0.1658826106854842D-02
        xs( 29) = 0.1792318198128481D-02
        xs( 30) = 0.1932948351220886D-02
        xs( 31) = 0.2081075648681772D-02
        xs( 32) = 0.2237173405398933D-02
        xs( 33) = 0.2401760121336768D-02
        xs( 34) = 0.2575302896758352D-02
        xs( 35) = 0.2758306571282842D-02
        xs( 36) = 0.2951443645211030D-02
        xs( 37) = 0.3155476077364089D-02
        xs( 38) = 0.3371094973951061D-02
        xs( 39) = 0.3599074222381086D-02
        xs( 40) = 0.3840537948852760D-02
        xs( 41) = 0.4096603115377548D-02
        xs( 42) = 0.4368309970524396D-02
        xs( 43) = 0.4656985090375153D-02
        xs( 44) = 0.4964216226865164D-02
        xs( 45) = 0.5291312134010468D-02
        xs( 46) = 0.5640025448226130D-02
        xs( 47) = 0.6012917769880514D-02
        xs( 48) = 0.6412670719691499D-02
        xs( 49) = 0.6842090190062414D-02
        xs( 50) = 0.7304661772594576D-02
        xs( 51) = 0.7803475558291722D-02
        xs( 52) = 0.8341853310730823D-02
        xs( 53) = 0.8925655803106110D-02
        xs( 54) = 0.9562550092714625D-02
        xs( 55) = 0.1026194848399262D-01
        xs( 56) = 0.1103464470608855D-01
        xs( 57) = 0.1188909619457266D-01
        xs( 58) = 0.1283365620658933D-01
        xs( 59) = 0.1388385336318979D-01
        xs( 60) = 0.1506748141990520D-01
        xs( 61) = 0.1643351189908227D-01
        xs( 62) = 0.1804400286464101D-01
        xs( 63) = 0.1997012265152134D-01
        xs( 64) = 0.2231344214839502D-01
        xs( 65) = 0.2521254152881007D-01
        xs( 66) = 0.2886539832400225D-01
        xs( 67) = 0.3361286181607707D-01
        xs( 68) = 0.4002334739065027D-01
        xs( 69) = 0.4892729883689423D-01
        xs( 70) = 0.6135717009129684D-01
        xs( 71) = 0.7770734551454181D-01
        ws(  1) = 0.3129376747208574D-05
        ws(  2) = 0.7285679579703347D-05
        ws(  3) = 0.1144882113005456D-04
        ws(  4) = 0.1559511900684234D-04
        ws(  5) = 0.1971105735202629D-04
        ws(  6) = 0.2379662823918824D-04
        ws(  7) = 0.2792702065739580D-04
        ws(  8) = 0.3204014325915597D-04
        ws(  9) = 0.3612258148982883D-04
        ws( 10) = 0.4022555154916538D-04
        ws( 11) = 0.4433790790227836D-04
        ws( 12) = 0.4848242239988904D-04
        ws( 13) = 0.5266456827711744D-04
        ws( 14) = 0.5690483001117031D-04
        ws( 15) = 0.6120291881095003D-04
        ws( 16) = 0.6558522996336735D-04
        ws( 17) = 0.7006167937638588D-04
        ws( 18) = 0.7464979545514066D-04
        ws( 19) = 0.7934589439223231D-04
        ws( 20) = 0.8416855896645142D-04
        ws( 21) = 0.8913738302651187D-04
        ws( 22) = 0.9429060232051818D-04
        ws( 23) = 0.9965493541413994D-04
        ws( 24) = 0.1052211860427934D-03
        ws( 25) = 0.1110068679145635D-03
        ws( 26) = 0.1170235157149230D-03
        ws( 27) = 0.1233557743734436D-03
        ws( 28) = 0.1300247355039577D-03
        ws( 29) = 0.1370061216474672D-03
        ws( 30) = 0.1443088335293836D-03
        ws( 31) = 0.1520273673734125D-03
        ws( 32) = 0.1602544781481008D-03
        ws( 33) = 0.1689961132398237D-03
        ws( 34) = 0.1781687771229831D-03
        ws( 35) = 0.1879470798730260D-03
        ws( 36) = 0.1984849882150691D-03
        ws( 37) = 0.2097033082732953D-03
        ws( 38) = 0.2216150094919037D-03
        ws( 39) = 0.2345611251288521D-03
        ws( 40) = 0.2485936272518181D-03
        ws( 41) = 0.2636792072091714D-03
        ws( 42) = 0.2799452276897456D-03
        ws( 43) = 0.2977189245694486D-03
        ws( 44) = 0.3169242386621206D-03
        ws( 45) = 0.3375567846300305D-03
        ws( 46) = 0.3603149924471766D-03
        ws( 47) = 0.3859098475013330D-03
        ws( 48) = 0.4140186200900883D-03
        ws( 49) = 0.4454105836338632D-03
        ws( 50) = 0.4802389319403728D-03
        ws( 51) = 0.5178712310424428D-03
        ws( 52) = 0.5598451270845332D-03
        ws( 53) = 0.6089711553641968D-03
        ws( 54) = 0.6663631512950889D-03
        ws( 55) = 0.7343371321614647D-03
        ws( 56) = 0.8124290364137181D-03
        ws( 57) = 0.8976633828995147D-03
        ws( 58) = 0.9942006265109605D-03
        ws( 59) = 0.1110790275911990D-02
        ws( 60) = 0.1265184328663027D-02
        ws( 61) = 0.1477770741302347D-02
        ws( 62) = 0.1754570997372374D-02
        ws( 63) = 0.2114192012795771D-02
        ws( 64) = 0.2593559029288523D-02
        ws( 65) = 0.3232258063244994D-02
        ws( 66) = 0.4121851872169811D-02
        ws( 67) = 0.5464249141555049D-02
        ws( 68) = 0.7498653211005473D-02
        ws( 69) = 0.1042891926319360D-01
        ws( 70) = 0.1426008556042644D-01
        ws( 71) = 0.1623995256746868D-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 =  76
        err = 0.7917825393626623D-04
        xs(  1) = 0.1080654447823459D-05
        xs(  2) = 0.5674148086905217D-05
        xs(  3) = 0.1393348308473081D-04
        xs(  4) = 0.2585292050858604D-04
        xs(  5) = 0.4141660130127939D-04
        xs(  6) = 0.6061511578406020D-04
        xs(  7) = 0.8344059495426173D-04
        xs(  8) = 0.1098748761534309D-03
        xs(  9) = 0.1399224483680446D-03
        xs( 10) = 0.1735668531842041D-03
        xs( 11) = 0.2108381840284594D-03
        xs( 12) = 0.2517362511427262D-03
        xs( 13) = 0.2962865510077207D-03
        xs( 14) = 0.3445212585699051D-03
        xs( 15) = 0.3964766841343473D-03
        xs( 16) = 0.4521961793130695D-03
        xs( 17) = 0.5117502979249313D-03
        xs( 18) = 0.5752094099052989D-03
        xs( 19) = 0.6426616406026625D-03
        xs( 20) = 0.7141887326152050D-03
        xs( 21) = 0.7898859284895335D-03
        xs( 22) = 0.8698641662221005D-03
        xs( 23) = 0.9542598249499833D-03
        xs( 24) = 0.1043228240527579D-02
        xs( 25) = 0.1136930518990262D-02
        xs( 26) = 0.1235527302961882D-02
        xs( 27) = 0.1339198552362320D-02
        xs( 28) = 0.1448161073641233D-02
        xs( 29) = 0.1562668478477658D-02
        xs( 30) = 0.1682974429784794D-02
        xs( 31) = 0.1809302041092081D-02
        xs( 32) = 0.1941933520931283D-02
        xs( 33) = 0.2081248823683847D-02
        xs( 34) = 0.2227630178586750D-02
        xs( 35) = 0.2381424579490850D-02
        xs( 36) = 0.2542994381396820D-02
        xs( 37) = 0.2712833475888219D-02
        xs( 38) = 0.2891511245798478D-02
        xs( 39) = 0.3079563438400185D-02
        xs( 40) = 0.3277531972045424D-02
        xs( 41) = 0.3486140369062141D-02
        xs( 42) = 0.3706213113314007D-02
        xs( 43) = 0.3938451025438105D-02
        xs( 44) = 0.4183668302649198D-02
        xs( 45) = 0.4443031862046565D-02
        xs( 46) = 0.4717776513550740D-02
        xs( 47) = 0.5009003353374098D-02
        xs( 48) = 0.5318209228062616D-02
        xs( 49) = 0.5647059633204545D-02
        xs( 50) = 0.5996982393809918D-02
        xs( 51) = 0.6369819688524727D-02
        xs( 52) = 0.6768273841188869D-02
        xs( 53) = 0.7195109900734147D-02
        xs( 54) = 0.7653357923258844D-02
        xs( 55) = 0.8146838731765268D-02
        xs( 56) = 0.8678948068262757D-02
        xs( 57) = 0.9253510735669572D-02
        xs( 58) = 0.9876704135945793D-02
        xs( 59) = 0.1055587959050071D-01
        xs( 60) = 0.1130041826426752D-01
        xs( 61) = 0.1212144361472671D-01
        xs( 62) = 0.1302828002476987D-01
        xs( 63) = 0.1403207049558193D-01
        xs( 64) = 0.1514993871569622D-01
        xs( 65) = 0.1640970061447246D-01
        xs( 66) = 0.1786078780009087D-01
        xs( 67) = 0.1956542447906643D-01
        xs( 68) = 0.2160009817461155D-01
        xs( 69) = 0.2407248018575931D-01
        xs( 70) = 0.2712056920831263D-01
        xs( 71) = 0.3095485767984339D-01
        xs( 72) = 0.3595133122023097D-01
        xs( 73) = 0.4270514096979200D-01
        xs( 74) = 0.5203993936643232D-01
        xs( 75) = 0.6499024883971684D-01
        xs( 76) = 0.8191664816769166D-01
        ws(  1) = 0.2763011440473377D-05
        ws(  2) = 0.6427311949845077D-05
        ws(  3) = 0.1009356323397755D-04
        ws(  4) = 0.1374707346866372D-04
        ws(  5) = 0.1738762341708907D-04
        ws(  6) = 0.2101528121037164D-04
        ws(  7) = 0.2461610988230807D-04
        ws(  8) = 0.2823556824221125D-04
        ws(  9) = 0.3185211153658445D-04
        ws( 10) = 0.3546747294327133D-04
        ws( 11) = 0.3907224860387861D-04
        ws( 12) = 0.4272806475073167D-04
        ws( 13) = 0.4638704131523456D-04
        ws( 14) = 0.5008313877098892D-04
        ws( 15) = 0.5382424482287070D-04
        ws( 16) = 0.5762801338709294D-04
        ws( 17) = 0.6149348156342465D-04
        ws( 18) = 0.6544308032812623D-04
        ws( 19) = 0.6947401592943382D-04
        ws( 20) = 0.7359756119924241D-04
        ws( 21) = 0.7781639591527454D-04
        ws( 22) = 0.8216281196324134D-04
        ws( 23) = 0.8665423237447298D-04
        ws( 24) = 0.9130998587736931D-04
        ws( 25) = 0.9612274938598444D-04
        ws( 26) = 0.1011006131197278D-03
        ws( 27) = 0.1062744818216243D-03
        ws( 28) = 0.1116979695929110D-03
        ws( 29) = 0.1173652082625537D-03
        ws( 30) = 0.1232751877076017D-03
        ws( 31) = 0.1294331030973344D-03
        ws( 32) = 0.1359018520602894D-03
        ws( 33) = 0.1427780501254391D-03
        ws( 34) = 0.1500488178661158D-03
        ws( 35) = 0.1576139788937802D-03
        ws( 36) = 0.1655981953228701D-03
        ws( 37) = 0.1741708762762818D-03
        ws( 38) = 0.1832909708357364D-03
        ws( 39) = 0.1929046532035376D-03
        ws( 40) = 0.2031427806635799D-03
        ws( 41) = 0.2142213647547656D-03
        ws( 42) = 0.2260429111910879D-03
        ws( 43) = 0.2385632571840406D-03
        ws( 44) = 0.2520652384289682D-03
        ws( 45) = 0.2668802577533693D-03
        ws( 46) = 0.2827771305770572D-03
        ws( 47) = 0.2999405803751359D-03
        ws( 48) = 0.3187663141812274D-03
        ws( 49) = 0.3391677589835149D-03
        ws( 50) = 0.3609884431380399D-03
        ws( 51) = 0.3851800867717465D-03
        ws( 52) = 0.4122002911525143D-03
        ws( 53) = 0.4419666694549528D-03
        ws( 54) = 0.4752376945584177D-03
        ws( 55) = 0.5123146667410431D-03
        ws( 56) = 0.5524903558209309D-03
        ws( 57) = 0.5976993248389353D-03
        ws( 58) = 0.6499103479236862D-03
        ws( 59) = 0.7100130774673851D-03
        ws( 60) = 0.7810138940706171D-03
        ws( 61) = 0.8624326149545064D-03
        ws( 62) = 0.9529942797893048D-03
        ws( 63) = 0.1057482237830385D-02
        ws( 64) = 0.1182534574817877D-02
        ws( 65) = 0.1345665204622352D-02
        ws( 66) = 0.1567212456103584D-02
        ws( 67) = 0.1854664393890238D-02
        ws( 68) = 0.2232906093061927D-02
        ws( 69) = 0.2733701802228317D-02
        ws( 70) = 0.3393778135211217D-02
        ws( 71) = 0.4331969071279602D-02
        ws( 72) = 0.5758276860775582D-02
        ws( 73) = 0.7892584836066766D-02
        ws( 74) = 0.1092536428348883D-01
        ws( 75) = 0.1490538737564592D-01
        ws( 76) = 0.1727467616869047D-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 =  12
        err = 0.7469154529469748D-04
        xs(  1) = 0.4969949659952116D+00
        xs(  2) = 0.1161858671413838D+01
        xs(  3) = 0.1872360367595948D+01
        xs(  4) = 0.2633170611816172D+01
        xs(  5) = 0.3442722262705037D+01
        xs(  6) = 0.4296305858830035D+01
        xs(  7) = 0.5188860907001854D+01
        xs(  8) = 0.6116224946905438D+01
        xs(  9) = 0.7075392531336198D+01
        xs( 10) = 0.8064540905965856D+01
        xs( 11) = 0.9083759324305650D+01
        xs( 12) = 0.1013466783497846D+02
        ws(  1) = 0.6435861388062699D+00
        ws(  2) = 0.6864175672310516D+00
        ws(  3) = 0.7354646689223640D+00
        ws(  4) = 0.7858499107152693D+00
        ws(  5) = 0.8324754975791645D+00
        ws(  6) = 0.8739503603978697D+00
        ws(  7) = 0.9107791646520288D+00
        ws(  8) = 0.9442073444869036D+00
        ws(  9) = 0.9762093191228955D+00
        ws( 10) = 0.1009265698290921D+01
        ws( 11) = 0.1056930532656280D+01
        ws( 12) = 0.1217320411830481D+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 =  12
        err = 0.7715394360033320D-04
        xs(  1) = 0.4973476192581101D+00
        xs(  2) = 0.1162595973609159D+01
        xs(  3) = 0.1873366893569640D+01
        xs(  4) = 0.2634342292686065D+01
        xs(  5) = 0.3443984800456302D+01
        xs(  6) = 0.4297609884020777D+01
        xs(  7) = 0.5190173313825686D+01
        xs(  8) = 0.6117522826454024D+01
        xs(  9) = 0.7076660327544198D+01
        xs( 10) = 0.8065770473390184D+01
        xs( 11) = 0.9084952583931351D+01
        xs( 12) = 0.1013584683546660D+02
        ws(  1) = 0.6440171635833400D+00
        ws(  2) = 0.6867463991132765D+00
        ws(  3) = 0.7356771547562816D+00
        ws(  4) = 0.7859730150713911D+00
        ws(  5) = 0.8325382728627297D+00
        ws(  6) = 0.8739732325510021D+00
        ws(  7) = 0.9107746681600593D+00
        ws(  8) = 0.9441839354699481D+00
        ws(  9) = 0.9761739218797368D+00
        ws( 10) = 0.1009225466421669D+01
        ws( 11) = 0.1056901306825704D+01
        ws( 12) = 0.1217330011690986D+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 =  12
        err = 0.9372702382358828D-04
        xs(  1) = 0.4997146117387451D+00
        xs(  2) = 0.1167611822933169D+01
        xs(  3) = 0.1880340220745698D+01
        xs(  4) = 0.2642603900509858D+01
        xs(  5) = 0.3453012563060335D+01
        xs(  6) = 0.4307020594003859D+01
        xs(  7) = 0.5199682592280590D+01
        xs(  8) = 0.6126914704826363D+01
        xs(  9) = 0.7085774034490367D+01
        xs( 10) = 0.8074504846494598D+01
        xs( 11) = 0.9093290071622020D+01
        xs( 12) = 0.1014394169415877D+02
        ws(  1) = 0.6469315119037437D+00
        ws(  2) = 0.6890682789744670D+00
        ws(  3) = 0.7372790772189909D+00
        ws(  4) = 0.7869740725044968D+00
        ws(  5) = 0.8330929684062897D+00
        ws(  6) = 0.8742008959490321D+00
        ws(  7) = 0.9107552122569536D+00
        ws(  8) = 0.9439776556127818D+00
        ws(  9) = 0.9758357803566128D+00
        ws( 10) = 0.1008814205602338D+01
        ws( 11) = 0.1056550664358340D+01
        ws( 12) = 0.1217289943555362D+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 =  14
        err = 0.5879860606504517D-04
        xs(  1) = 0.4799583535271867D+00
        xs(  2) = 0.1119477690567044D+01
        xs(  3) = 0.1799380171499456D+01
        xs(  4) = 0.2525658853075491D+01
        xs(  5) = 0.3298762538069979D+01
        xs(  6) = 0.4115441214047672D+01
        xs(  7) = 0.4971356091539679D+01
        xs(  8) = 0.5862429884688497D+01
        xs(  9) = 0.6785332573860664D+01
        xs( 10) = 0.7737621824547436D+01
        xs( 11) = 0.8717760967769031D+01
        xs( 12) = 0.9725181465360983D+01
        xs( 13) = 0.1076110655167109D+02
        xs( 14) = 0.1183091223514196D+02
        ws(  1) = 0.6207390866138622D+00
        ws(  2) = 0.6583880357350738D+00
        ws(  3) = 0.7025463807623059D+00
        ws(  4) = 0.7500339052363915D+00
        ws(  5) = 0.7955934860160753D+00
        ws(  6) = 0.8370352213952774D+00
        ws(  7) = 0.8741427141662502D+00
        ws(  8) = 0.9075338069744771D+00
        ws(  9) = 0.9380960816208695D+00
        ws( 10) = 0.9668505121271574D+00
        ws( 11) = 0.9953103756509009D+00
        ws( 12) = 0.1026058252559116D+01
        ws( 13) = 0.1071672323903748D+01
        ws( 14) = 0.1234176949914678D+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 =  13
        err = 0.5526841482244747D-04
        xs(  1) = 0.4732779197363099D+00
        xs(  2) = 0.1106665623886182D+01
        xs(  3) = 0.1785255629863167D+01
        xs(  4) = 0.2515459778386188D+01
        xs(  5) = 0.3296698010124234D+01
        xs(  6) = 0.4124272436539341D+01
        xs(  7) = 0.4992579051777217D+01
        xs(  8) = 0.5896595541441147D+01
        xs(  9) = 0.6832379199302287D+01
        xs( 10) = 0.7797148307680818D+01
        xs( 11) = 0.8789240320674590D+01
        xs( 12) = 0.9809057186325456D+01
        xs( 13) = 0.1086044836898673D+02
        ws(  1) = 0.6128743504941120D+00
        ws(  2) = 0.6544293428745162D+00
        ws(  3) = 0.7039412826185530D+00
        ws(  4) = 0.7563044793178877D+00
        ws(  5) = 0.8053550167839649D+00
        ws(  6) = 0.8488820770598741D+00
        ws(  7) = 0.8869900004673053D+00
        ws(  8) = 0.9206612991747938D+00
        ws(  9) = 0.9511535835904261D+00
        ws( 10) = 0.9803154952382716D+00
        ws( 11) = 0.1010801959007539D+01
        ws( 12) = 0.1055943048384083D+01
        ws( 13) = 0.1218606370125183D+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 =  14
        err = 0.6133968317642718D-04
        xs(  1) = 0.4355028149549866D+00
        xs(  2) = 0.1017757081446750D+01
        xs(  3) = 0.1641389209176021D+01
        xs(  4) = 0.2316312382615001D+01
        xs(  5) = 0.3046411454754288D+01
        xs(  6) = 0.3828776126235053D+01
        xs(  7) = 0.4657258828754775D+01
        xs(  8) = 0.5525588165591862D+01
        xs(  9) = 0.6428663363994528D+01
        xs( 10) = 0.7362818961930416D+01
        xs( 11) = 0.8325708912553177D+01
        xs( 12) = 0.9316033179389750D+01
        xs( 13) = 0.1033598462681956D+02
        xs( 14) = 0.1138788294239773D+02
        ws(  1) = 0.5638356128333670D+00
        ws(  2) = 0.6011356620983649D+00
        ws(  3) = 0.6479725568611006D+00
        ws(  4) = 0.7025242991470733D+00
        ws(  5) = 0.7571224954661018D+00
        ws(  6) = 0.8065457890618379D+00
        ws(  7) = 0.8493943321322147D+00
        ws(  8) = 0.8864960989920533D+00
        ws(  9) = 0.9193147014239670D+00
        ws( 10) = 0.9492208404017636D+00
        ws( 11) = 0.9784691751287796D+00
        ws( 12) = 0.1008979077921054D+01
        ws( 13) = 0.1057475483218248D+01
        ws( 14) = 0.1221763804771228D+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 =  14
        err = 0.8037811185349045D-04
        xs(  1) = 0.4671311086217365D+00
        xs(  2) = 0.1072788452715623D+01
        xs(  3) = 0.1690402393224158D+01
        xs(  4) = 0.2334738635390532D+01
        xs(  5) = 0.3022927479681845D+01
        xs(  6) = 0.3763365590779678D+01
        xs(  7) = 0.4555949473471964D+01
        xs(  8) = 0.5397014967334955D+01
        xs(  9) = 0.6282251114184600D+01
        xs( 10) = 0.7207563594302442D+01
        xs( 11) = 0.8169455658157807D+01
        xs( 12) = 0.9165037303477819D+01
        xs( 13) = 0.1019482047371253D+02
        xs( 14) = 0.1125362276508800D+02
        ws(  1) = 0.5992689151539298D+00
        ws(  2) = 0.6103071490314851D+00
        ws(  3) = 0.6277425407477610D+00
        ws(  4) = 0.6639873404417712D+00
        ws(  5) = 0.7137834733059643D+00
        ws(  6) = 0.7669895357918470D+00
        ws(  7) = 0.8175689669359578D+00
        ws(  8) = 0.8639292105480337D+00
        ws(  9) = 0.9061234572199997D+00
        ws( 10) = 0.9445383709283119D+00
        ws( 11) = 0.9808852639975849D+00
        ws( 12) = 0.1016781728963144D+01
        ws( 13) = 0.1069158363790653D+01
        ws( 14) = 0.1227881713554136D+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 =  16
        err = 0.3936251383460107D-04
        xs(  1) = 0.4602851545541302D+00
        xs(  2) = 0.1050530711981918D+01
        xs(  3) = 0.1633784944187697D+01
        xs(  4) = 0.2209800648870126D+01
        xs(  5) = 0.2787625861768846D+01
        xs(  6) = 0.3383126168479697D+01
        xs(  7) = 0.4015898036520113D+01
        xs(  8) = 0.4701619125107015D+01
        xs(  9) = 0.5445941426693849D+01
        xs( 10) = 0.6246560011757154D+01
        xs( 11) = 0.7097919844621398D+01
        xs( 12) = 0.7994634122301468D+01
        xs( 13) = 0.8932518459647829D+01
        xs( 14) = 0.9908927622543789D+01
        xs( 15) = 0.1092742393701278D+02
        xs( 16) = 0.1197020965109779D+02
        ws(  1) = 0.5888830664419652D+00
        ws(  2) = 0.5878752107918493D+00
        ws(  3) = 0.5787642838461462D+00
        ws(  4) = 0.5747967390215137D+00
        ws(  5) = 0.5835339471686899D+00
        ws(  6) = 0.6108700601612826D+00
        ws(  7) = 0.6574213906344364D+00
        ws(  8) = 0.7148911044389805D+00
        ws(  9) = 0.7733095677892716D+00
        ws( 10) = 0.8270650776393803D+00
        ws( 11) = 0.8749853449904377D+00
        ws( 12) = 0.9182083635111098D+00
        ws( 13) = 0.9596112723103564D+00
        ws( 14) = 0.9979184463128193D+00
        ws( 15) = 0.1070461621812838D+01
        ws( 16) = 0.1225254436867336D+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 =  17
        err = 0.9096230799734921D-04
        xs(  1) = 0.5450070965845095D+00
        xs(  2) = 0.1240259563246345D+01
        xs(  3) = 0.1915762886076746D+01
        xs(  4) = 0.2560144419679476D+01
        xs(  5) = 0.3172314460557508D+01
        xs(  6) = 0.3760063910173006D+01
        xs(  7) = 0.4334243508488114D+01
        xs(  8) = 0.4903335453348386D+01
        xs(  9) = 0.5476629165277096D+01
        xs( 10) = 0.6069103668887691D+01
        xs( 11) = 0.6703151748621770D+01
        xs( 12) = 0.7406349546792917D+01
        xs( 13) = 0.8191382752702745D+01
        xs( 14) = 0.9047940831640297D+01
        xs( 15) = 0.9963729418364085D+01
        xs( 16) = 0.1093515404292961D+02
        xs( 17) = 0.1189437972147310D+02
        ws(  1) = 0.6964573312870249D+00
        ws(  2) = 0.6883421027407212D+00
        ws(  3) = 0.6609087717410517D+00
        ws(  4) = 0.6276453160383240D+00
        ws(  5) = 0.5981032769071849D+00
        ws(  6) = 0.5793205371063610D+00
        ws(  7) = 0.5703831854817466D+00
        ws(  8) = 0.5691922690475097D+00
        ws(  9) = 0.5799381752947883D+00
        ws( 10) = 0.6087535377116727D+00
        ws( 11) = 0.6641720903162940D+00
        ws( 12) = 0.7441778860650071D+00
        ws( 13) = 0.8230398846645376D+00
        ws( 14) = 0.8884397495947959D+00
        ws( 15) = 0.9358818160089741D+00
        ws( 16) = 0.1071357376742854D+01
        ws( 17) = 0.1157862244981378D+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 =  19
        err = 0.6866540192005459D-04
        xs(  1) = 0.5983147726603292D+00
        xs(  2) = 0.1366380131499829D+01
        xs(  3) = 0.2122767224415165D+01
        xs(  4) = 0.2856935912135766D+01
        xs(  5) = 0.3563609035898244D+01
        xs(  6) = 0.4241066480128774D+01
        xs(  7) = 0.4890845757084342D+01
        xs(  8) = 0.5515560421269519D+01
        xs(  9) = 0.6118207065837056D+01
        xs( 10) = 0.6702526585119398D+01
        xs( 11) = 0.7274403403482117D+01
        xs( 12) = 0.7841266940586997D+01
        xs( 13) = 0.8412266713932864D+01
        xs( 14) = 0.8999561317733937D+01
        xs( 15) = 0.9622642107861932D+01
        xs( 16) = 0.1031621215671386D+02
        xs( 17) = 0.1110766164462842D+02
        xs( 18) = 0.1198812547265847D+02
        xs( 19) = 0.1292270307603852D+02
        ws(  1) = 0.7659917329327839D+00
        ws(  2) = 0.7647702524557204D+00
        ws(  3) = 0.7464716353405784D+00
        ws(  4) = 0.7210301908608343D+00
        ws(  5) = 0.6919894583928082D+00
        ws(  6) = 0.6632269587470362D+00
        ws(  7) = 0.6367621579353023D+00
        ws(  8) = 0.6132197590479224D+00
        ws(  9) = 0.5926440736817778D+00
        ws( 10) = 0.5769323724074745D+00
        ws( 11) = 0.5680621510157438D+00
        ws( 12) = 0.5672356319211704D+00
        ws( 13) = 0.5765497492730640D+00
        ws( 14) = 0.6009881684496867D+00
        ws( 15) = 0.6510617056524590D+00
        ws( 16) = 0.7349878347145240D+00
        ws( 17) = 0.8387959579407751D+00
        ws( 18) = 0.9721401427015964D+00
        ws( 19) = 0.1075836824543780D+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 =  22
        err = 0.6983135885793474D-04
        xs(  1) = 0.6384551779276652D+00
        xs(  2) = 0.1459993367095916D+01
        xs(  3) = 0.2274440178018509D+01
        xs(  4) = 0.3072116760707056D+01
        xs(  5) = 0.3847660957706695D+01
        xs(  6) = 0.4596981020399504D+01
        xs(  7) = 0.5317742379687969D+01
        xs(  8) = 0.6009790007988098D+01
        xs(  9) = 0.6674896545795020D+01
        xs( 10) = 0.7316541055109205D+01
        xs( 11) = 0.7937676736674830D+01
        xs( 12) = 0.8539664374185511D+01
        xs( 13) = 0.9123532162854973D+01
        xs( 14) = 0.9692959720676665D+01
        xs( 15) = 0.1025486245366060D+02
        xs( 16) = 0.1081699170803995D+02
        xs( 17) = 0.1138445895957156D+02
        xs( 18) = 0.1196521878758736D+02
        xs( 19) = 0.1257111522026926D+02
        xs( 20) = 0.1324562581185280D+02
        xs( 21) = 0.1404970233896672D+02
        xs( 22) = 0.1496047036956045D+02
        ws(  1) = 0.8174771046170460D+00
        ws(  2) = 0.8204889805948034D+00
        ws(  3) = 0.8070738585906324D+00
        ws(  4) = 0.7873995716412259D+00
        ws(  5) = 0.7630316814080826D+00
        ws(  6) = 0.7351618336370460D+00
        ws(  7) = 0.7063023455051669D+00
        ws(  8) = 0.6780796161018626D+00
        ws(  9) = 0.6528203081189540D+00
        ws( 10) = 0.6309299850373801D+00
        ws( 11) = 0.6114812050233212D+00
        ws( 12) = 0.5925910368945612D+00
        ws( 13) = 0.5757321752661052D+00
        ws( 14) = 0.5642038014830341D+00
        ws( 15) = 0.5609066762713851D+00
        ws( 16) = 0.5642755175596259D+00
        ws( 17) = 0.5720764522206823D+00
        ws( 18) = 0.5892609407744555D+00
        ws( 19) = 0.6302172701023827D+00
        ws( 20) = 0.7134299978492125D+00
        ws( 21) = 0.9220654692009921D+00
        ws( 22) = 0.1018366096767002D+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 =  25
        err = 0.8954614922933799D-04
        xs(  1) = 0.6668864921431973D+00
        xs(  2) = 0.1526683453047528D+01
        xs(  3) = 0.2383341217940641D+01
        xs(  4) = 0.3228413278011986D+01
        xs(  5) = 0.4057696532849512D+01
        xs(  6) = 0.4867721800872871D+01
        xs(  7) = 0.5655285277968353D+01
        xs(  8) = 0.6418201108897879D+01
        xs(  9) = 0.7154753239775847D+01
        xs( 10) = 0.7863825709658226D+01
        xs( 11) = 0.8545976943647446D+01
        xs( 12) = 0.9203816908549577D+01
        xs( 13) = 0.9841996437533759D+01
        xs( 14) = 0.1046515289569287D+02
        xs( 15) = 0.1107614088600293D+02
        xs( 16) = 0.1167599216965437D+02
        xs( 17) = 0.1226549919128336D+02
        xs( 18) = 0.1284680862652091D+02
        xs( 19) = 0.1342214017067234D+02
        xs( 20) = 0.1399661219156277D+02
        xs( 21) = 0.1457942507624669D+02
        xs( 22) = 0.1517375904411237D+02
        xs( 23) = 0.1579827384182175D+02
        xs( 24) = 0.1655845954103759D+02
        xs( 25) = 0.1744578908669639D+02
        ws(  1) = 0.8542077746262166D+00
        ws(  2) = 0.8604557690505088D+00
        ws(  3) = 0.8517027659793908D+00
        ws(  4) = 0.8377864162150653D+00
        ws(  5) = 0.8201874204915242D+00
        ws(  6) = 0.7992675317971798D+00
        ws(  7) = 0.7754877065629995D+00
        ws(  8) = 0.7500320905671098D+00
        ws(  9) = 0.7228489958169299D+00
        ws( 10) = 0.6954304670964117D+00
        ws( 11) = 0.6693173008888077D+00
        ws( 12) = 0.6471367234197721D+00
        ws( 13) = 0.6300522390784066D+00
        ws( 14) = 0.6167226327336622D+00
        ws( 15) = 0.6053983215168521D+00
        ws( 16) = 0.5944836818767354D+00
        ws( 17) = 0.5847915506101043D+00
        ws( 18) = 0.5778610748255706D+00
        ws( 19) = 0.5734611440084825D+00
        ws( 20) = 0.5763720772362886D+00
        ws( 21) = 0.5883877991475088D+00
        ws( 22) = 0.6000532310938915D+00
        ws( 23) = 0.6553851264908904D+00
        ws( 24) = 0.8367323225802461D+00
        ws( 25) = 0.1056564237238500D+01
        endif
        if( idomain .eq.  174 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  31
        err = 0.3082066504194741D-04
        xs(  1) = 0.6564281793893612D+00
        xs(  2) = 0.1503881589955433D+01
        xs(  3) = 0.2350120393497472D+01
        xs(  4) = 0.3187930955683952D+01
        xs(  5) = 0.4013889133712358D+01
        xs(  6) = 0.4825410999993040D+01
        xs(  7) = 0.5620414698364874D+01
        xs(  8) = 0.6397391491636524D+01
        xs(  9) = 0.7155259709802293D+01
        xs( 10) = 0.7893312746493947D+01
        xs( 11) = 0.8611377235756027D+01
        xs( 12) = 0.9309539531701262D+01
        xs( 13) = 0.9988103781806595D+01
        xs( 14) = 0.1064752587861871D+02
        xs( 15) = 0.1128843779108062D+02
        xs( 16) = 0.1191156687782836D+02
        xs( 17) = 0.1251749437182961D+02
        xs( 18) = 0.1310713281038674D+02
        xs( 19) = 0.1368217671334395D+02
        xs( 20) = 0.1424508296368246D+02
        xs( 21) = 0.1479852667778389D+02
        xs( 22) = 0.1534465033716994D+02
        xs( 23) = 0.1588544443795620D+02
        xs( 24) = 0.1642222574831705D+02
        xs( 25) = 0.1695798698594365D+02
        xs( 26) = 0.1749609074195745D+02
        xs( 27) = 0.1804239804078408D+02
        xs( 28) = 0.1861075922968342D+02
        xs( 29) = 0.1920540128189066D+02
        xs( 30) = 0.1993150413892664D+02
        xs( 31) = 0.2085497263739085D+02
        ws(  1) = 0.8414319813843641D+00
        ws(  2) = 0.8487840902592698D+00
        ws(  3) = 0.8426974770465395D+00
        ws(  4) = 0.8323803783145460D+00
        ws(  5) = 0.8191164821785122D+00
        ws(  6) = 0.8035612337565458D+00
        ws(  7) = 0.7862019670985736D+00
        ws(  8) = 0.7675832719092252D+00
        ws(  9) = 0.7480323179974309D+00
        ws( 10) = 0.7280637005341232D+00
        ws( 11) = 0.7080904722336095D+00
        ws( 12) = 0.6882986839715456D+00
        ws( 13) = 0.6688746308821439D+00
        ws( 14) = 0.6500622271522887D+00
        ws( 15) = 0.6319261788639774D+00
        ws( 16) = 0.6144176037312008D+00
        ws( 17) = 0.5976022626303178D+00
        ws( 18) = 0.5819323361847886D+00
        ws( 19) = 0.5685918120797667D+00
        ws( 20) = 0.5577141444361861D+00
        ws( 21) = 0.5494978516709428D+00
        ws( 22) = 0.5432234275883685D+00
        ws( 23) = 0.5383546179024566D+00
        ws( 24) = 0.5360543010837524D+00
        ws( 25) = 0.5357890385207102D+00
        ws( 26) = 0.5414839774872580D+00
        ws( 27) = 0.5539163163735478D+00
        ws( 28) = 0.5817738471717884D+00
        ws( 29) = 0.6359902505825921D+00
        ws( 30) = 0.7669088138125906D+00
        ws( 31) = 0.1416480722037793D+01
        endif
        if( idomain .eq.  175 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  34
        err = 0.7328633594103395D-04
        xs(  1) = 0.6714203126836272D+00
        xs(  2) = 0.1539011845615849D+01
        xs(  3) = 0.2406781441615473D+01
        xs(  4) = 0.3268126242232736D+01
        xs(  5) = 0.4120078799076382D+01
        xs(  6) = 0.4960437066543765D+01
        xs(  7) = 0.5787404467014644D+01
        xs(  8) = 0.6599527835391149D+01
        xs(  9) = 0.7395686638281403D+01
        xs( 10) = 0.8175009723664049D+01
        xs( 11) = 0.8936885458505383D+01
        xs( 12) = 0.9681019727790074D+01
        xs( 13) = 0.1040732479472986D+02
        xs( 14) = 0.1111590119671055D+02
        xs( 15) = 0.1180715933096656D+02
        xs( 16) = 0.1248168781218148D+02
        xs( 17) = 0.1314011416170656D+02
        xs( 18) = 0.1378301033168521D+02
        xs( 19) = 0.1441094678946536D+02
        xs( 20) = 0.1502421009932834D+02
        xs( 21) = 0.1562271044268068D+02
        xs( 22) = 0.1620698914450175D+02
        xs( 23) = 0.1677920316983256D+02
        xs( 24) = 0.1734232707622017D+02
        xs( 25) = 0.1789903177507477D+02
        xs( 26) = 0.1845116967538164D+02
        xs( 27) = 0.1900064879588306D+02
        xs( 28) = 0.1954904678626669D+02
        xs( 29) = 0.2009825239866645D+02
        xs( 30) = 0.2065213672314006D+02
        xs( 31) = 0.2121355616630382D+02
        xs( 32) = 0.2179407174997817D+02
        xs( 33) = 0.2243458076188353D+02
        xs( 34) = 0.2318909177124856D+02
        ws(  1) = 0.8609407213550817D+00
        ws(  2) = 0.8695026279670234D+00
        ws(  3) = 0.8651663554309510D+00
        ws(  4) = 0.8570552184606439D+00
        ws(  5) = 0.8464766295772045D+00
        ws(  6) = 0.8339444912546607D+00
        ws(  7) = 0.8197481984482921D+00
        ws(  8) = 0.8043011954400732D+00
        ws(  9) = 0.7878723396888567D+00
        ws( 10) = 0.7706532510736689D+00
        ws( 11) = 0.7530468072716259D+00
        ws( 12) = 0.7352085175222025D+00
        ws( 13) = 0.7174072877107316D+00
        ws( 14) = 0.6998097691797079D+00
        ws( 15) = 0.6828003547135753D+00
        ws( 16) = 0.6663709547625328D+00
        ws( 17) = 0.6505804141801700D+00
        ws( 18) = 0.6352943463285408D+00
        ws( 19) = 0.6206515195767155D+00
        ws( 20) = 0.6058627710468091D+00
        ws( 21) = 0.5911998693737456D+00
        ws( 22) = 0.5777226220082545D+00
        ws( 23) = 0.5672033964007027D+00
        ws( 24) = 0.5595496160880477D+00
        ws( 25) = 0.5540729789903195D+00
        ws( 26) = 0.5506049336893987D+00
        ws( 27) = 0.5487727707560806D+00
        ws( 28) = 0.5483304433777384D+00
        ws( 29) = 0.5503291496969501D+00
        ws( 30) = 0.5579925648842081D+00
        ws( 31) = 0.5671481257582535D+00
        ws( 32) = 0.5871086608550817D+00
        ws( 33) = 0.6854696770549018D+00
        ws( 34) = 0.8549342964583549D+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 =  38
        err = 0.7317981034805262D-04
        xs(  1) = 0.6860010312359485D+00
        xs(  2) = 0.1572352218548800D+01
        xs(  3) = 0.2459680897914339D+01
        xs(  4) = 0.3341343293625173D+01
        xs(  5) = 0.4214627579979036D+01
        xs(  6) = 0.5077540768938741D+01
        xs(  7) = 0.5928381861177223D+01
        xs(  8) = 0.6765819847332137D+01
        xs(  9) = 0.7588867734475201D+01
        xs( 10) = 0.8396956935495867D+01
        xs( 11) = 0.9189594415464320D+01
        xs( 12) = 0.9966696549810406D+01
        xs( 13) = 0.1072820187956804D+02
        xs( 14) = 0.1147417531688311D+02
        xs( 15) = 0.1220460062629325D+02
        xs( 16) = 0.1291949587964007D+02
        xs( 17) = 0.1361882099473505D+02
        xs( 18) = 0.1430259486522425D+02
        xs( 19) = 0.1497086562022604D+02
        xs( 20) = 0.1562387588930204D+02
        xs( 21) = 0.1626186624547841D+02
        xs( 22) = 0.1688533613413252D+02
        xs( 23) = 0.1749509324174003D+02
        xs( 24) = 0.1809207146153510D+02
        xs( 25) = 0.1867695255205182D+02
        xs( 26) = 0.1925111580607901D+02
        xs( 27) = 0.1981637659172374D+02
        xs( 28) = 0.2037457743893597D+02
        xs( 29) = 0.2092679642519441D+02
        xs( 30) = 0.2147427679928881D+02
        xs( 31) = 0.2201887419139459D+02
        xs( 32) = 0.2256270500960143D+02
        xs( 33) = 0.2310664237153847D+02
        xs( 34) = 0.2365522697546729D+02
        xs( 35) = 0.2421273027906186D+02
        xs( 36) = 0.2478068472759967D+02
        xs( 37) = 0.2541745158816084D+02
        xs( 38) = 0.2619947131740669D+02
        ws(  1) = 0.8793934109937858D+00
        ws(  2) = 0.8887235995832224D+00
        ws(  3) = 0.8849984832122640D+00
        ws(  4) = 0.8779279707030204D+00
        ws(  5) = 0.8683469670746417D+00
        ws(  6) = 0.8571506343207282D+00
        ws(  7) = 0.8443318742012583D+00
        ws(  8) = 0.8303588631625252D+00
        ws(  9) = 0.8156692054540438D+00
        ws( 10) = 0.8004133819138245D+00
        ws( 11) = 0.7848733301727047D+00
        ws( 12) = 0.7693101134550127D+00
        ws( 13) = 0.7537455772415481D+00
        ws( 14) = 0.7381798082510947D+00
        ws( 15) = 0.7226653308458220D+00
        ws( 16) = 0.7071273614205622D+00
        ws( 17) = 0.6915296443386555D+00
        ws( 18) = 0.6760303303145886D+00
        ws( 19) = 0.6605831533671065D+00
        ws( 20) = 0.6454403135416686D+00
        ws( 21) = 0.6306184582348749D+00
        ws( 22) = 0.6164639480897114D+00
        ws( 23) = 0.6032558055718024D+00
        ws( 24) = 0.5907978611077696D+00
        ws( 25) = 0.5792380087547163D+00
        ws( 26) = 0.5693172818108956D+00
        ws( 27) = 0.5616069643844399D+00
        ws( 28) = 0.5549410773724573D+00
        ws( 29) = 0.5495350747014126D+00
        ws( 30) = 0.5456547095039256D+00
        ws( 31) = 0.5437127995754053D+00
        ws( 32) = 0.5435320637138306D+00
        ws( 33) = 0.5448228658498671D+00
        ws( 34) = 0.5500394644395880D+00
        ws( 35) = 0.5640246243935046D+00
        ws( 36) = 0.5760520882723159D+00
        ws( 37) = 0.6714836243044070D+00
        ws( 38) = 0.9651432389137269D+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 =  42
        err = 0.9261641387327370D-04
        xs(  1) = 0.6966864851737914D+00
        xs(  2) = 0.1597550172162008D+01
        xs(  3) = 0.2499922679379187D+01
        xs(  4) = 0.3397638675010486D+01
        xs(  5) = 0.4288042210463126D+01
        xs(  6) = 0.5169431612421028D+01
        xs(  7) = 0.6040146035319650D+01
        xs(  8) = 0.6898933358341152D+01
        xs(  9) = 0.7744677475287662D+01
        xs( 10) = 0.8576772014888839D+01
        xs( 11) = 0.9394673311581538D+01
        xs( 12) = 0.1019808705581204D+02
        xs( 13) = 0.1098695631268153D+02
        xs( 14) = 0.1176130691426880D+02
        xs( 15) = 0.1252118468963339D+02
        xs( 16) = 0.1326658366206228D+02
        xs( 17) = 0.1399755480498510D+02
        xs( 18) = 0.1471405190244754D+02
        xs( 19) = 0.1541628320964569D+02
        xs( 20) = 0.1610439280359762D+02
        xs( 21) = 0.1677854954225430D+02
        xs( 22) = 0.1743856428282304D+02
        xs( 23) = 0.1808420781573527D+02
        xs( 24) = 0.1871551561115618D+02
        xs( 25) = 0.1933317032556927D+02
        xs( 26) = 0.1993869281770442D+02
        xs( 27) = 0.2053409764324142D+02
        xs( 28) = 0.2112070056013163D+02
        xs( 29) = 0.2169908819787900D+02
        xs( 30) = 0.2226976949687125D+02
        xs( 31) = 0.2283358287086867D+02
        xs( 32) = 0.2339080391421713D+02
        xs( 33) = 0.2394134387385064D+02
        xs( 34) = 0.2448576663024021D+02
        xs( 35) = 0.2502582505509536D+02
        xs( 36) = 0.2556369492437281D+02
        xs( 37) = 0.2610123730595820D+02
        xs( 38) = 0.2664144613378620D+02
        xs( 39) = 0.2718925140496206D+02
        xs( 40) = 0.2774646464544698D+02
        xs( 41) = 0.2835140003083988D+02
        xs( 42) = 0.2906490250772202D+02
        ws(  1) = 0.8935051883757572D+00
        ws(  2) = 0.9034973748942527D+00
        ws(  3) = 0.9004940156154601D+00
        ws(  4) = 0.8944805973396212D+00
        ws(  5) = 0.8861310981714009D+00
        ws(  6) = 0.8763079679479850D+00
        ws(  7) = 0.8649675724978620D+00
        ws(  8) = 0.8523842086082082D+00
        ws(  9) = 0.8390219321729013D+00
        ws( 10) = 0.8250837333816634D+00
        ws( 11) = 0.8106645125734950D+00
        ws( 12) = 0.7961628788684924D+00
        ws( 13) = 0.7816023288951043D+00
        ws( 14) = 0.7670920632124948D+00
        ws( 15) = 0.7526566514301148D+00
        ws( 16) = 0.7382019297210053D+00
        ws( 17) = 0.7236818740682209D+00
        ws( 18) = 0.7093313340628824D+00
        ws( 19) = 0.6951711558389870D+00
        ws( 20) = 0.6811176746239650D+00
        ws( 21) = 0.6671120493836872D+00
        ws( 22) = 0.6528518088611127D+00
        ws( 23) = 0.6384764759982349D+00
        ws( 24) = 0.6242352819741050D+00
        ws( 25) = 0.6112941762965649D+00
        ws( 26) = 0.6001522382423913D+00
        ws( 27) = 0.5908595530589356D+00
        ws( 28) = 0.5823717654967175D+00
        ws( 29) = 0.5743970661053429D+00
        ws( 30) = 0.5671123619219317D+00
        ws( 31) = 0.5604499447369027D+00
        ws( 32) = 0.5537460983807162D+00
        ws( 33) = 0.5473926422010199D+00
        ws( 34) = 0.5415338923417917D+00
        ws( 35) = 0.5386807538244630D+00
        ws( 36) = 0.5367862711827188D+00
        ws( 37) = 0.5376431418684767D+00
        ws( 38) = 0.5427647358448466D+00
        ws( 39) = 0.5499444788945866D+00
        ws( 40) = 0.5576465950300534D+00
        ws( 41) = 0.6245989773972020D+00
        ws( 42) = 0.8051793100779531D+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 =  47
        err = 0.4206425710024179D-04
        xs(  1) = 0.7022020424899774D+00
        xs(  2) = 0.1611083835283761D+01
        xs(  3) = 0.2521705940311695D+01
        xs(  4) = 0.3428436785614906D+01
        xs(  5) = 0.4328724629060703D+01
        xs(  6) = 0.5221010875495778D+01
        xs(  7) = 0.6103760958504242D+01
        xs(  8) = 0.6975833712517462D+01
        xs(  9) = 0.7836085999123308D+01
        xs( 10) = 0.8683911091096837D+01
        xs( 11) = 0.9518699393125788D+01
        xs( 12) = 0.1034009761816398D+02
        xs( 13) = 0.1114789260212821D+02
        xs( 14) = 0.1194205413855863D+02
        xs( 15) = 0.1272246877620810D+02
        xs( 16) = 0.1348905205621431D+02
        xs( 17) = 0.1424161209087244D+02
        xs( 18) = 0.1497998355051468D+02
        xs( 19) = 0.1570402766901734D+02
        xs( 20) = 0.1641372846388892D+02
        xs( 21) = 0.1710922532045666D+02
        xs( 22) = 0.1779091315051510D+02
        xs( 23) = 0.1845931768616847D+02
        xs( 24) = 0.1911527760587493D+02
        xs( 25) = 0.1975953394601608D+02
        xs( 26) = 0.2039263815146333D+02
        xs( 27) = 0.2101444550733734D+02
        xs( 28) = 0.2162445825002633D+02
        xs( 29) = 0.2222201839204797D+02
        xs( 30) = 0.2280728716981512D+02
        xs( 31) = 0.2338133189350890D+02
        xs( 32) = 0.2394606574710025D+02
        xs( 33) = 0.2450315012277062D+02
        xs( 34) = 0.2505384891914991D+02
        xs( 35) = 0.2559885393978802D+02
        xs( 36) = 0.2613840552979630D+02
        xs( 37) = 0.2667231796768207D+02
        xs( 38) = 0.2720053645816261D+02
        xs( 39) = 0.2772309841138492D+02
        xs( 40) = 0.2824164857956300D+02
        xs( 41) = 0.2875989139638012D+02
        xs( 42) = 0.2927975318093894D+02
        xs( 43) = 0.2980252883860619D+02
        xs( 44) = 0.3033686585774536D+02
        xs( 45) = 0.3088510672441422D+02
        xs( 46) = 0.3146315035862262D+02
        xs( 47) = 0.3221571290354793D+02
        ws(  1) = 0.9009279616683704D+00
        ws(  2) = 0.9116873267144274D+00
        ws(  3) = 0.9089990278478873D+00
        ws(  4) = 0.9039837849256716D+00
        ws(  5) = 0.8964052870408299D+00
        ws(  6) = 0.8878311848732505D+00
        ws(  7) = 0.8775325471741459D+00
        ws(  8) = 0.8663579717398652D+00
        ws(  9) = 0.8541224501807388D+00
        ws( 10) = 0.8413972578066483D+00
        ws( 11) = 0.8281054208042229D+00
        ws( 12) = 0.8146281571640875D+00
        ws( 13) = 0.8010109938220326D+00
        ws( 14) = 0.7872873359584219D+00
        ws( 15) = 0.7735142272846847D+00
        ws( 16) = 0.7595819112280394D+00
        ws( 17) = 0.7455528999489869D+00
        ws( 18) = 0.7311817881529363D+00
        ws( 19) = 0.7168661450234316D+00
        ws( 20) = 0.7025475708541914D+00
        ws( 21) = 0.6885143510890011D+00
        ws( 22) = 0.6749442246491516D+00
        ws( 23) = 0.6620393782027173D+00
        ws( 24) = 0.6499665556291087D+00
        ws( 25) = 0.6386504246050558D+00
        ws( 26) = 0.6275156114774885D+00
        ws( 27) = 0.6159948648062726D+00
        ws( 28) = 0.6038893200200766D+00
        ws( 29) = 0.5913142922914582D+00
        ws( 30) = 0.5793246298122814D+00
        ws( 31) = 0.5691156891036430D+00
        ws( 32) = 0.5605991181874314D+00
        ws( 33) = 0.5537970356047702D+00
        ws( 34) = 0.5477515568324923D+00
        ws( 35) = 0.5421916004971934D+00
        ws( 36) = 0.5368453262884565D+00
        ws( 37) = 0.5311171785025501D+00
        ws( 38) = 0.5251611219015407D+00
        ws( 39) = 0.5203448691064338D+00
        ws( 40) = 0.5176465122942578D+00
        ws( 41) = 0.5181224362513726D+00
        ws( 42) = 0.5209471062015474D+00
        ws( 43) = 0.5269063425095618D+00
        ws( 44) = 0.5315511939956272D+00
        ws( 45) = 0.5597328704419294D+00
        ws( 46) = 0.5759235040465652D+00
        ws( 47) = 0.8509246704971368D+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 =  52
        err = 0.7031779178157753D-04
        xs(  1) = 0.6995258587148339D+00
        xs(  2) = 0.1605034513817063D+01
        xs(  3) = 0.2512931949009506D+01
        xs(  4) = 0.3417830619819283D+01
        xs(  5) = 0.4317526218073455D+01
        xs(  6) = 0.5210590229640022D+01
        xs(  7) = 0.6095778189028919D+01
        xs(  8) = 0.6972079921041643D+01
        xs(  9) = 0.7838592486037592D+01
        xs( 10) = 0.8694669966593233D+01
        xs( 11) = 0.9539777192128703D+01
        xs( 12) = 0.1037349142119594D+02
        xs( 13) = 0.1119555927957619D+02
        xs( 14) = 0.1200584467780177D+02
        xs( 15) = 0.1280425601546803D+02
        xs( 16) = 0.1359075580910158D+02
        xs( 17) = 0.1436531906622595D+02
        xs( 18) = 0.1512791353564318D+02
        xs( 19) = 0.1587849228041170D+02
        xs( 20) = 0.1661702599499177D+02
        xs( 21) = 0.1734349750614159D+02
        xs( 22) = 0.1805790923505032D+02
        xs( 23) = 0.1876024914905165D+02
        xs( 24) = 0.1945047067819991D+02
        xs( 25) = 0.2012853817326691D+02
        xs( 26) = 0.2079444254267916D+02
        xs( 27) = 0.2144833295220549D+02
        xs( 28) = 0.2209033647087801D+02
        xs( 29) = 0.2272065526892468D+02
        xs( 30) = 0.2333931929123911D+02
        xs( 31) = 0.2394629246716272D+02
        xs( 32) = 0.2454148460358405D+02
        xs( 33) = 0.2512487252382273D+02
        xs( 34) = 0.2569659983196891D+02
        xs( 35) = 0.2625729522338650D+02
        xs( 36) = 0.2680817116562529D+02
        xs( 37) = 0.2735057446689888D+02
        xs( 38) = 0.2788590740403009D+02
        xs( 39) = 0.2841533499653199D+02
        xs( 40) = 0.2893957741379240D+02
        xs( 41) = 0.2945877977579078D+02
        xs( 42) = 0.2997302574015716D+02
        xs( 43) = 0.3048248664257180D+02
        xs( 44) = 0.3098786802623616D+02
        xs( 45) = 0.3149060029699545D+02
        xs( 46) = 0.3199180882754189D+02
        xs( 47) = 0.3249377692199162D+02
        xs( 48) = 0.3299754078995832D+02
        xs( 49) = 0.3350697716212497D+02
        xs( 50) = 0.3402852441578006D+02
        xs( 51) = 0.3457130256195909D+02
        xs( 52) = 0.3521839913913412D+02
        ws(  1) = 0.8976057983973031D+00
        ws(  2) = 0.9084216875326321D+00
        ws(  3) = 0.9068161291906864D+00
        ws(  4) = 0.9025811175702005D+00
        ws(  5) = 0.8966015862800722D+00
        ws(  6) = 0.8893187760804391D+00
        ws(  7) = 0.8808929469255010D+00
        ws(  8) = 0.8715473975490424D+00
        ws(  9) = 0.8613913301576250D+00
        ws( 10) = 0.8506678314244664D+00
        ws( 11) = 0.8394585760919663D+00
        ws( 12) = 0.8279413282803952D+00
        ws( 13) = 0.8162002212621340D+00
        ws( 14) = 0.8043341151092313D+00
        ws( 15) = 0.7924684857248699D+00
        ws( 16) = 0.7805316515483484D+00
        ws( 17) = 0.7686006079923586D+00
        ws( 18) = 0.7565770793877707D+00
        ws( 19) = 0.7445590984136145D+00
        ws( 20) = 0.7325143421328054D+00
        ws( 21) = 0.7204323477127423D+00
        ws( 22) = 0.7083829134799463D+00
        ws( 23) = 0.6962862262367431D+00
        ws( 24) = 0.6841438385253091D+00
        ws( 25) = 0.6719842299364645D+00
        ws( 26) = 0.6598756022053017D+00
        ws( 27) = 0.6479068087327299D+00
        ws( 28) = 0.6361459893595723D+00
        ws( 29) = 0.6244856769882491D+00
        ws( 30) = 0.6128362306270381D+00
        ws( 31) = 0.6011034754439626D+00
        ws( 32) = 0.5892608657720899D+00
        ws( 33) = 0.5774962070937661D+00
        ws( 34) = 0.5660828248447900D+00
        ws( 35) = 0.5555339744208119D+00
        ws( 36) = 0.5464036504250631D+00
        ws( 37) = 0.5386885913854114D+00
        ws( 38) = 0.5322172895002570D+00
        ws( 39) = 0.5267708297699004D+00
        ws( 40) = 0.5217802905238708D+00
        ws( 41) = 0.5166692600951071D+00
        ws( 42) = 0.5118066521971653D+00
        ws( 43) = 0.5072172812180291D+00
        ws( 44) = 0.5037540120665731D+00
        ws( 45) = 0.5017219329142606D+00
        ws( 46) = 0.5010749433841513D+00
        ws( 47) = 0.5021605245849107D+00
        ws( 48) = 0.5064809087554445D+00
        ws( 49) = 0.5175324862973631D+00
        ws( 50) = 0.5225467582930264D+00
        ws( 51) = 0.5600357045165043D+00
        ws( 52) = 0.8076160110820891D+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 =  56
        err = 0.5611062854629022D-04
        xs(  1) = 0.7062086539668166D+00
        xs(  2) = 0.1620370955071476D+01
        xs(  3) = 0.2537258469650952D+01
        xs(  4) = 0.3451721478771270D+01
        xs(  5) = 0.4361541191742468D+01
        xs(  6) = 0.5265514658192287D+01
        xs(  7) = 0.6162485663994407D+01
        xs(  8) = 0.7051483813975305D+01
        xs(  9) = 0.7931736326713220D+01
        xs( 10) = 0.8802560267351812D+01
        xs( 11) = 0.9663465081481387D+01
        xs( 12) = 0.1051400595605268D+02
        xs( 13) = 0.1135388259470070D+02
        xs( 14) = 0.1218288093185417D+02
        xs( 15) = 0.1300086562993363D+02
        xs( 16) = 0.1380772366054758D+02
        xs( 17) = 0.1460341214460022D+02
        xs( 18) = 0.1538789943578879D+02
        xs( 19) = 0.1616119651709493D+02
        xs( 20) = 0.1692330548097863D+02
        xs( 21) = 0.1767426839864136D+02
        xs( 22) = 0.1841405309995846D+02
        xs( 23) = 0.1914264228860967D+02
        xs( 24) = 0.1985997320273383D+02
        xs( 25) = 0.2056598226227843D+02
        xs( 26) = 0.2126065307837261D+02
        xs( 27) = 0.2194398727611334D+02
        xs( 28) = 0.2261608849009087D+02
        xs( 29) = 0.2327703230787082D+02
        xs( 30) = 0.2392695392363618D+02
        xs( 31) = 0.2456600386371335D+02
        xs( 32) = 0.2519435560378300D+02
        xs( 33) = 0.2581215882164268D+02
        xs( 34) = 0.2641956435552063D+02
        xs( 35) = 0.2701650302812988D+02
        xs( 36) = 0.2760273810944513D+02
        xs( 37) = 0.2817795983159968D+02
        xs( 38) = 0.2874220644707539D+02
        xs( 39) = 0.2929622397333358D+02
        xs( 40) = 0.2984124373157555D+02
        xs( 41) = 0.3037849717178069D+02
        xs( 42) = 0.3090908377648454D+02
        xs( 43) = 0.3143401530960921D+02
        xs( 44) = 0.3195415388602057D+02
        xs( 45) = 0.3246986679600120D+02
        xs( 46) = 0.3298149559196629D+02
        xs( 47) = 0.3348953458472416D+02
        xs( 48) = 0.3399480218203903D+02
        xs( 49) = 0.3449929094798136D+02
        xs( 50) = 0.3500482078375622D+02
        xs( 51) = 0.3551191621749780D+02
        xs( 52) = 0.3602205056459357D+02
        xs( 53) = 0.3653902207825709D+02
        xs( 54) = 0.3706649410648094D+02
        xs( 55) = 0.3761123542980562D+02
        xs( 56) = 0.3828717323524031D+02
        ws(  1) = 0.9062124013563003D+00
        ws(  2) = 0.9171137705218686D+00
        ws(  3) = 0.9161198343825270D+00
        ws(  4) = 0.9123878517106480D+00
        ws(  5) = 0.9071369801085822D+00
        ws(  6) = 0.9006029035008681D+00
        ws(  7) = 0.8931458126073520D+00
        ws(  8) = 0.8847581535052849D+00
        ws(  9) = 0.8756211548742037D+00
        ws( 10) = 0.8659346608565148D+00
        ws( 11) = 0.8557937309089572D+00
        ws( 12) = 0.8452558674303784D+00
        ws( 13) = 0.8344700986432467D+00
        ws( 14) = 0.8235024037977021D+00
        ws( 15) = 0.8124187782844631D+00
        ws( 16) = 0.8012993484837198D+00
        ws( 17) = 0.7900892900809985D+00
        ws( 18) = 0.7788989673922719D+00
        ws( 19) = 0.7676848117021453D+00
        ws( 20) = 0.7565421670373539D+00
        ws( 21) = 0.7453691805149417D+00
        ws( 22) = 0.7341969595375492D+00
        ws( 23) = 0.7229825592538999D+00
        ws( 24) = 0.7116723461848036D+00
        ws( 25) = 0.7003443948908011D+00
        ws( 26) = 0.6889925940206755D+00
        ws( 27) = 0.6777115474950672D+00
        ws( 28) = 0.6664988328043515D+00
        ws( 29) = 0.6554033072151650D+00
        ws( 30) = 0.6444825561780788D+00
        ws( 31) = 0.6336568294177499D+00
        ws( 32) = 0.6230533479479458D+00
        ws( 33) = 0.6125923732770198D+00
        ws( 34) = 0.6022011302127523D+00
        ws( 35) = 0.5916368700974650D+00
        ws( 36) = 0.5807623559540389D+00
        ws( 37) = 0.5696717197613768D+00
        ws( 38) = 0.5589494001493382D+00
        ws( 39) = 0.5492815269998744D+00
        ws( 40) = 0.5409832060724680D+00
        ws( 41) = 0.5337015714833186D+00
        ws( 42) = 0.5276187501426943D+00
        ws( 43) = 0.5225059018512148D+00
        ws( 44) = 0.5178372673852444D+00
        ws( 45) = 0.5137206395746491D+00
        ws( 46) = 0.5099010029006096D+00
        ws( 47) = 0.5064602061589368D+00
        ws( 48) = 0.5050499402864148D+00
        ws( 49) = 0.5048818223198707D+00
        ws( 50) = 0.5072247414273151D+00
        ws( 51) = 0.5108227064731292D+00
        ws( 52) = 0.5137657929585611D+00
        ws( 53) = 0.5245216105968004D+00
        ws( 54) = 0.5491369184127416D+00
        ws( 55) = 0.5351772201562439D+00
        ws( 56) = 0.8620974753966835D+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 =  58
        err = 0.9399579688658977D-04
        xs(  1) = 0.7264024730219445D+00
        xs(  2) = 0.1663829104287333D+01
        xs(  3) = 0.2605518202622609D+01
        xs(  4) = 0.3544531096243401D+01
        xs(  5) = 0.4479408601962079D+01
        xs(  6) = 0.5408399160938094D+01
        xs(  7) = 0.6330648597311808D+01
        xs(  8) = 0.7245175391897277D+01
        xs(  9) = 0.8150942266229752D+01
        xs( 10) = 0.9047080897690673D+01
        xs( 11) = 0.9933109514446722D+01
        xs( 12) = 0.1080859877616643D+02
        xs( 13) = 0.1167311680467388D+02
        xs( 14) = 0.1252647734309441D+02
        xs( 15) = 0.1336892106921708D+02
        xs( 16) = 0.1420037308542627D+02
        xs( 17) = 0.1502117734979918D+02
        xs( 18) = 0.1583105661892441D+02
        xs( 19) = 0.1663012197839660D+02
        xs( 20) = 0.1741808687514948D+02
        xs( 21) = 0.1819480960439700D+02
        xs( 22) = 0.1896025611958069D+02
        xs( 23) = 0.1971458246861174D+02
        xs( 24) = 0.2045790804833289D+02
        xs( 25) = 0.2119036350351576D+02
        xs( 26) = 0.2191185601663618D+02
        xs( 27) = 0.2262230302953922D+02
        xs( 28) = 0.2332174954865513D+02
        xs( 29) = 0.2401064314484978D+02
        xs( 30) = 0.2468965785762783D+02
        xs( 31) = 0.2535906674252969D+02
        xs( 32) = 0.2601895635885164D+02
        xs( 33) = 0.2666897099257371D+02
        xs( 34) = 0.2730885935924806D+02
        xs( 35) = 0.2793860356686104D+02
        xs( 36) = 0.2855889128516244D+02
        xs( 37) = 0.2916981848951880D+02
        xs( 38) = 0.2977156006722396D+02
        xs( 39) = 0.3036426232134250D+02
        xs( 40) = 0.3094869381571996D+02
        xs( 41) = 0.3152586116151280D+02
        xs( 42) = 0.3209640972537009D+02
        xs( 43) = 0.3266055122541905D+02
        xs( 44) = 0.3321853511694869D+02
        xs( 45) = 0.3377112703513159D+02
        xs( 46) = 0.3431895085999426D+02
        xs( 47) = 0.3486111858021572D+02
        xs( 48) = 0.3539827060394144D+02
        xs( 49) = 0.3593068273476662D+02
        xs( 50) = 0.3646017553301954D+02
        xs( 51) = 0.3698791523579023D+02
        xs( 52) = 0.3751686185497937D+02
        xs( 53) = 0.3804731296038618D+02
        xs( 54) = 0.3858112059239816D+02
        xs( 55) = 0.3911807965621190D+02
        xs( 56) = 0.3965851441420861D+02
        xs( 57) = 0.4020420650278567D+02
        xs( 58) = 0.4083181146702303D+02
        ws(  1) = 0.9298024742874810D+00
        ws(  2) = 0.9411957552346712D+00
        ws(  3) = 0.9412055463099864D+00
        ws(  4) = 0.9367825907951193D+00
        ws(  5) = 0.9322875907865729D+00
        ws(  6) = 0.9258674775123330D+00
        ws(  7) = 0.9184293389730489D+00
        ws(  8) = 0.9103724240419023D+00
        ws(  9) = 0.9010118812708447D+00
        ws( 10) = 0.8913366444368476D+00
        ws( 11) = 0.8806568856546939D+00
        ws( 12) = 0.8699808511690116D+00
        ws( 13) = 0.8590268105089360D+00
        ws( 14) = 0.8480171997273186D+00
        ws( 15) = 0.8368434797437024D+00
        ws( 16) = 0.8260839509771103D+00
        ws( 17) = 0.8152698968330278D+00
        ws( 18) = 0.8045654674922975D+00
        ws( 19) = 0.7936362982655937D+00
        ws( 20) = 0.7823370409327228D+00
        ws( 21) = 0.7710037113950247D+00
        ws( 22) = 0.7599173681850649D+00
        ws( 23) = 0.7487272720911439D+00
        ws( 24) = 0.7379549722613732D+00
        ws( 25) = 0.7270463729007279D+00
        ws( 26) = 0.7159050174769477D+00
        ws( 27) = 0.7049269490416494D+00
        ws( 28) = 0.6941127158462774D+00
        ws( 29) = 0.6838620778019423D+00
        ws( 30) = 0.6740983198159767D+00
        ws( 31) = 0.6648564318741403D+00
        ws( 32) = 0.6549767914919875D+00
        ws( 33) = 0.6449318072272402D+00
        ws( 34) = 0.6348182203986837D+00
        ws( 35) = 0.6250099506967719D+00
        ws( 36) = 0.6155159600435993D+00
        ws( 37) = 0.6064488699939138D+00
        ws( 38) = 0.5971324596186028D+00
        ws( 39) = 0.5884070267849713D+00
        ws( 40) = 0.5807200769697926D+00
        ws( 41) = 0.5738464886648534D+00
        ws( 42) = 0.5674275806199867D+00
        ws( 43) = 0.5609479354049882D+00
        ws( 44) = 0.5555143035866524D+00
        ws( 45) = 0.5501271761259516D+00
        ws( 46) = 0.5454207496538055D+00
        ws( 47) = 0.5398148608494875D+00
        ws( 48) = 0.5345012671175527D+00
        ws( 49) = 0.5311993264105100D+00
        ws( 50) = 0.5281188216325871D+00
        ws( 51) = 0.5284499847081344D+00
        ws( 52) = 0.5305807429267132D+00
        ws( 53) = 0.5331238281541066D+00
        ws( 54) = 0.5367209368392216D+00
        ws( 55) = 0.5449380042154928D+00
        ws( 56) = 0.5325085362101744D+00
        ws( 57) = 0.5361803599377949D+00
        ws( 58) = 0.6265533708308014D+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 =  65
        err = 0.3519351690175355D-04
        xs(  1) = 0.7170886905249668D+00
        xs(  2) = 0.1644803966518974D+01
        xs(  3) = 0.2576180808857500D+01
        xs(  4) = 0.3505806837534315D+01
        xs(  5) = 0.4431873858813282D+01
        xs(  6) = 0.5353181646066494D+01
        xs(  7) = 0.6268725993414451D+01
        xs(  8) = 0.7177691935144970D+01
        xs(  9) = 0.8079227166745097D+01
        xs( 10) = 0.8972759549188083D+01
        xs( 11) = 0.9857743209220322D+01
        xs( 12) = 0.1073382943287045D+02
        xs( 13) = 0.1160073136340010D+02
        xs( 14) = 0.1245827391741898D+02
        xs( 15) = 0.1330632258292848D+02
        xs( 16) = 0.1414476890121093D+02
        xs( 17) = 0.1497347704732185D+02
        xs( 18) = 0.1579234223013149D+02
        xs( 19) = 0.1660128921764098D+02
        xs( 20) = 0.1740029502679872D+02
        xs( 21) = 0.1818938300799142D+02
        xs( 22) = 0.1896859624725761D+02
        xs( 23) = 0.1973795053793116D+02
        xs( 24) = 0.2049740655827904D+02
        xs( 25) = 0.2124695862378551D+02
        xs( 26) = 0.2198656068165083D+02
        xs( 27) = 0.2271617823796080D+02
        xs( 28) = 0.2343579250166254D+02
        xs( 29) = 0.2414535566783079D+02
        xs( 30) = 0.2484491209862521D+02
        xs( 31) = 0.2553455390727968D+02
        xs( 32) = 0.2621427881800135D+02
        xs( 33) = 0.2688393856550204D+02
        xs( 34) = 0.2754318295586492D+02
        xs( 35) = 0.2819181860825631D+02
        xs( 36) = 0.2882997416966230D+02
        xs( 37) = 0.2945798121786917D+02
        xs( 38) = 0.3007594979772752D+02
        xs( 39) = 0.3068356656623247D+02
        xs( 40) = 0.3128062576223389D+02
        xs( 41) = 0.3186741176986275D+02
        xs( 42) = 0.3244447743490257D+02
        xs( 43) = 0.3301198619298906D+02
        xs( 44) = 0.3356962478951772D+02
        xs( 45) = 0.3411759945043696D+02
        xs( 46) = 0.3465757499580901D+02
        xs( 47) = 0.3519185874188112D+02
        xs( 48) = 0.3572181625004104D+02
        xs( 49) = 0.3624735932445896D+02
        xs( 50) = 0.3676798649031711D+02
        xs( 51) = 0.3728356768073574D+02
        xs( 52) = 0.3779410618322686D+02
        xs( 53) = 0.3829934338596957D+02
        xs( 54) = 0.3879972295638201D+02
        xs( 55) = 0.3929694227043394D+02
        xs( 56) = 0.3979316399611137D+02
        xs( 57) = 0.4028973519005830D+02
        xs( 58) = 0.4078726349674408D+02
        xs( 59) = 0.4128637345163190D+02
        xs( 60) = 0.4178679717220487D+02
        xs( 61) = 0.4229070469387613D+02
        xs( 62) = 0.4280315887935446D+02
        xs( 63) = 0.4332573821783564D+02
        xs( 64) = 0.4388482446705337D+02
        xs( 65) = 0.4455643081349306D+02
        ws(  1) = 0.9196207878867271D+00
        ws(  2) = 0.9311985689860899D+00
        ws(  3) = 0.9309129142401038D+00
        ws(  4) = 0.9280449939951100D+00
        ws(  5) = 0.9238757507558528D+00
        ws(  6) = 0.9185958597968503D+00
        ws(  7) = 0.9123810840619502D+00
        ws(  8) = 0.9053727470191369D+00
        ws(  9) = 0.8976219853631049D+00
        ws( 10) = 0.8893378037349856D+00
        ws( 11) = 0.8805905027171496D+00
        ws( 12) = 0.8715290447174447D+00
        ws( 13) = 0.8622405955464668D+00
        ws( 14) = 0.8528115170661097D+00
        ws( 15) = 0.8432732617372815D+00
        ws( 16) = 0.8336037509401576D+00
        ws( 17) = 0.8237994881721999D+00
        ws( 18) = 0.8139104366217370D+00
        ws( 19) = 0.8039719983784638D+00
        ws( 20) = 0.7940453862590051D+00
        ws( 21) = 0.7841376758030987D+00
        ws( 22) = 0.7742951251244736D+00
        ws( 23) = 0.7644027549962774D+00
        ws( 24) = 0.7545087026313981D+00
        ws( 25) = 0.7445804193687886D+00
        ws( 26) = 0.7346074333988875D+00
        ws( 27) = 0.7246352772299207D+00
        ws( 28) = 0.7145775389806779D+00
        ws( 29) = 0.7045524769945835D+00
        ws( 30) = 0.6945822640277370D+00
        ws( 31) = 0.6846920302651750D+00
        ws( 32) = 0.6747373390276554D+00
        ws( 33) = 0.6645068786073164D+00
        ws( 34) = 0.6539603440474958D+00
        ws( 35) = 0.6433238112056470D+00
        ws( 36) = 0.6330443207175673D+00
        ws( 37) = 0.6230004526915642D+00
        ws( 38) = 0.6128674576913973D+00
        ws( 39) = 0.6023295416352101D+00
        ws( 40) = 0.5918272662917091D+00
        ws( 41) = 0.5818489542108223D+00
        ws( 42) = 0.5723267400562491D+00
        ws( 43) = 0.5626086491863433D+00
        ws( 44) = 0.5526566867640778D+00
        ws( 45) = 0.5436053656966288D+00
        ws( 46) = 0.5367430748907798D+00
        ws( 47) = 0.5320437855133259D+00
        ws( 48) = 0.5278173019568410D+00
        ws( 49) = 0.5231533981620855D+00
        ws( 50) = 0.5180560698836282D+00
        ws( 51) = 0.5130910094150068D+00
        ws( 52) = 0.5079262727219321D+00
        ws( 53) = 0.5025714381548408D+00
        ws( 54) = 0.4984940709758574D+00
        ws( 55) = 0.4963566064462404D+00
        ws( 56) = 0.4962780685081259D+00
        ws( 57) = 0.4969839964134977D+00
        ws( 58) = 0.4980985511640757D+00
        ws( 59) = 0.4997893154136750D+00
        ws( 60) = 0.5018064468450553D+00
        ws( 61) = 0.5060678897064386D+00
        ws( 62) = 0.5193817587664802D+00
        ws( 63) = 0.5352247287177720D+00
        ws( 64) = 0.5750148632234847D+00
        ws( 65) = 0.8492320498037120D+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 =  68
        err = 0.8767289448861771D-04
        xs(  1) = 0.7241536128063626D+00
        xs(  2) = 0.1662730191393423D+01
        xs(  3) = 0.2604729604934648D+01
        xs(  4) = 0.3544706863340635D+01
        xs(  5) = 0.4481467127988186D+01
        xs(  6) = 0.5413348959073513D+01
        xs(  7) = 0.6339802926930656D+01
        xs(  8) = 0.7259781742480848D+01
        xs(  9) = 0.8172672925343264D+01
        xs( 10) = 0.9077834078017592D+01
        xs( 11) = 0.9974848377825674D+01
        xs( 12) = 0.1086334235818743D+02
        xs( 13) = 0.1174301187516362D+02
        xs( 14) = 0.1261369574560400D+02
        xs( 15) = 0.1347523858860697D+02
        xs( 16) = 0.1432764415810240D+02
        xs( 17) = 0.1517077494308584D+02
        xs( 18) = 0.1600466451076632D+02
        xs( 19) = 0.1682921231594694D+02
        xs( 20) = 0.1764443799781707D+02
        xs( 21) = 0.1845024514257249D+02
        xs( 22) = 0.1924663253354485D+02
        xs( 23) = 0.2003363524797530D+02
        xs( 24) = 0.2081127119628519D+02
        xs( 25) = 0.2157968939114191D+02
        xs( 26) = 0.2233889114699526D+02
        xs( 27) = 0.2308889082285734D+02
        xs( 28) = 0.2382952288727587D+02
        xs( 29) = 0.2456071015403620D+02
        xs( 30) = 0.2528235080641614D+02
        xs( 31) = 0.2599447117788305D+02
        xs( 32) = 0.2669726377546007D+02
        xs( 33) = 0.2739100563067185D+02
        xs( 34) = 0.2807560494786296D+02
        xs( 35) = 0.2875082164749402D+02
        xs( 36) = 0.2941626671966738D+02
        xs( 37) = 0.3007199266651114D+02
        xs( 38) = 0.3071863714120394D+02
        xs( 39) = 0.3135683168093247D+02
        xs( 40) = 0.3198694549948356D+02
        xs( 41) = 0.3260852685223519D+02
        xs( 42) = 0.3322114386573188D+02
        xs( 43) = 0.3382459409364611D+02
        xs( 44) = 0.3441900656377544D+02
        xs( 45) = 0.3500450615371955D+02
        xs( 46) = 0.3558111271848888D+02
        xs( 47) = 0.3614900022449229D+02
        xs( 48) = 0.3670825027368224D+02
        xs( 49) = 0.3725918990864702D+02
        xs( 50) = 0.3780280737801830D+02
        xs( 51) = 0.3834102844452050D+02
        xs( 52) = 0.3887488330598480D+02
        xs( 53) = 0.3940488712167719D+02
        xs( 54) = 0.3993071773009687D+02
        xs( 55) = 0.4045276547790928D+02
        xs( 56) = 0.4097148642256678D+02
        xs( 57) = 0.4148722074186967D+02
        xs( 58) = 0.4199973711702863D+02
        xs( 59) = 0.4250787795855589D+02
        xs( 60) = 0.4301168042790263D+02
        xs( 61) = 0.4351192192425594D+02
        xs( 62) = 0.4401084203883786D+02
        xs( 63) = 0.4451102759383560D+02
        xs( 64) = 0.4501378978418504D+02
        xs( 65) = 0.4552181119883226D+02
        xs( 66) = 0.4603469963750787D+02
        xs( 67) = 0.4655609030819072D+02
        xs( 68) = 0.4713539304189842D+02
        ws(  1) = 0.9299294906947358D+00
        ws(  2) = 0.9420637838330012D+00
        ws(  3) = 0.9411707965413634D+00
        ws(  4) = 0.9387144533978284D+00
        ws(  5) = 0.9344958383747461D+00
        ws(  6) = 0.9292058212121154D+00
        ws(  7) = 0.9233477781883799D+00
        ws(  8) = 0.9165950243585267D+00
        ws(  9) = 0.9091453364859884D+00
        ws( 10) = 0.9011445215980514D+00
        ws( 11) = 0.8927335619054036D+00
        ws( 12) = 0.8840864777912959D+00
        ws( 13) = 0.8753012026595208D+00
        ws( 14) = 0.8661669121117191D+00
        ws( 15) = 0.8569748165535320D+00
        ws( 16) = 0.8477236187258576D+00
        ws( 17) = 0.8384763772474092D+00
        ws( 18) = 0.8292511692551308D+00
        ws( 19) = 0.8198878979911833D+00
        ws( 20) = 0.8106030733711294D+00
        ws( 21) = 0.8010887485552982D+00
        ws( 22) = 0.7916149519256886D+00
        ws( 23) = 0.7823242803861374D+00
        ws( 24) = 0.7730345754822623D+00
        ws( 25) = 0.7637901502813172D+00
        ws( 26) = 0.7546369745681507D+00
        ws( 27) = 0.7453322117702842D+00
        ws( 28) = 0.7359498544016879D+00
        ws( 29) = 0.7263765512800063D+00
        ws( 30) = 0.7168468140666797D+00
        ws( 31) = 0.7074703532933300D+00
        ws( 32) = 0.6982135772778169D+00
        ws( 33) = 0.6891751480864959D+00
        ws( 34) = 0.6799710490020425D+00
        ws( 35) = 0.6704041617459277D+00
        ws( 36) = 0.6604936213488241D+00
        ws( 37) = 0.6510077236822323D+00
        ws( 38) = 0.6423416463415881D+00
        ws( 39) = 0.6341716071134303D+00
        ws( 40) = 0.6259029038772873D+00
        ws( 41) = 0.6171298478935230D+00
        ws( 42) = 0.6080037214020454D+00
        ws( 43) = 0.5989339719033030D+00
        ws( 44) = 0.5898591539790081D+00
        ws( 45) = 0.5810493062347817D+00
        ws( 46) = 0.5721785753526631D+00
        ws( 47) = 0.5635505115199274D+00
        ws( 48) = 0.5549115594441648D+00
        ws( 49) = 0.5470722941412448D+00
        ws( 50) = 0.5405502957068936D+00
        ws( 51) = 0.5359073661874436D+00
        ws( 52) = 0.5319832372379090D+00
        ws( 53) = 0.5279011812567220D+00
        ws( 54) = 0.5239730632570017D+00
        ws( 55) = 0.5202409108146518D+00
        ws( 56) = 0.5173690726441095D+00
        ws( 57) = 0.5142442300505509D+00
        ws( 58) = 0.5105332665632963D+00
        ws( 59) = 0.5058239718757525D+00
        ws( 60) = 0.5018043065200055D+00
        ws( 61) = 0.4986553453205715D+00
        ws( 62) = 0.4991335584799169D+00
        ws( 63) = 0.5022244908170032D+00
        ws( 64) = 0.5021241392651622D+00
        ws( 65) = 0.5160210039702903D+00
        ws( 66) = 0.5119117686755686D+00
        ws( 67) = 0.5001655251283289D+00
        ws( 68) = 0.6541533143347218D+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 =  73
        err = 0.4002169029323270D-04
        xs(  1) = 0.7272201612570883D+00
        xs(  2) = 0.1668519425552527D+01
        xs(  3) = 0.2613201752575818D+01
        xs(  4) = 0.3557117964542619D+01
        xs(  5) = 0.4497664214867879D+01
        xs(  6) = 0.5434351967574033D+01
        xs(  7) = 0.6366095947563417D+01
        xs(  8) = 0.7292110190853541D+01
        xs(  9) = 0.8211893894980538D+01
        xs( 10) = 0.9124730875885302D+01
        xs( 11) = 0.1003015011434400D+02
        xs( 12) = 0.1092785358399134D+02
        xs( 13) = 0.1181743148423109D+02
        xs( 14) = 0.1269868987521663D+02
        xs( 15) = 0.1357144229329294D+02
        xs( 16) = 0.1443553846044056D+02
        xs( 17) = 0.1529098726508502D+02
        xs( 18) = 0.1613763642804016D+02
        xs( 19) = 0.1697550508706344D+02
        xs( 20) = 0.1780458157845672D+02
        xs( 21) = 0.1862483832530117D+02
        xs( 22) = 0.1943627805367664D+02
        xs( 23) = 0.2023883973326027D+02
        xs( 24) = 0.2103262612014281D+02
        xs( 25) = 0.2181754743090856D+02
        xs( 26) = 0.2259368421855084D+02
        xs( 27) = 0.2336103757619025D+02
        xs( 28) = 0.2411953244376179D+02
        xs( 29) = 0.2486913152803437D+02
        xs( 30) = 0.2560986209442804D+02
        xs( 31) = 0.2634170832272223D+02
        xs( 32) = 0.2706478130570883D+02
        xs( 33) = 0.2777906114769553D+02
        xs( 34) = 0.2848455667460771D+02
        xs( 35) = 0.2918125856736108D+02
        xs( 36) = 0.2986905218396529D+02
        xs( 37) = 0.3054779027700934D+02
        xs( 38) = 0.3121743952109368D+02
        xs( 39) = 0.3187807755637391D+02
        xs( 40) = 0.3252993570255911D+02
        xs( 41) = 0.3317319775341937D+02
        xs( 42) = 0.3380776688471526D+02
        xs( 43) = 0.3443358561349764D+02
        xs( 44) = 0.3505050412012490D+02
        xs( 45) = 0.3565852223985354D+02
        xs( 46) = 0.3625769742176664D+02
        xs( 47) = 0.3684847433686985D+02
        xs( 48) = 0.3743098278084066D+02
        xs( 49) = 0.3800487871736442D+02
        xs( 50) = 0.3856926906860144D+02
        xs( 51) = 0.3912427020057438D+02
        xs( 52) = 0.3967104370667707D+02
        xs( 53) = 0.4021058763714653D+02
        xs( 54) = 0.4074268505923850D+02
        xs( 55) = 0.4126691516261147D+02
        xs( 56) = 0.4178445656942520D+02
        xs( 57) = 0.4229801115353752D+02
        xs( 58) = 0.4281020212450769D+02
        xs( 59) = 0.4332148718080604D+02
        xs( 60) = 0.4383003838087977D+02
        xs( 61) = 0.4433358825813158D+02
        xs( 62) = 0.4483040218157006D+02
        xs( 63) = 0.4532141066736948D+02
        xs( 64) = 0.4580932534523963D+02
        xs( 65) = 0.4629743674448032D+02
        xs( 66) = 0.4678851719532488D+02
        xs( 67) = 0.4728300695543393D+02
        xs( 68) = 0.4777959047692214D+02
        xs( 69) = 0.4827837208058157D+02
        xs( 70) = 0.4877928788714998D+02
        xs( 71) = 0.4928894286195352D+02
        xs( 72) = 0.4981447677523157D+02
        xs( 73) = 0.5040242312984187D+02
        ws(  1) = 0.9332501700061924D+00
        ws(  2) = 0.9442530171569555D+00
        ws(  3) = 0.9446893151271949D+00
        ws(  4) = 0.9427101122533141D+00
        ws(  5) = 0.9385162867686907D+00
        ws(  6) = 0.9343851620418991D+00
        ws(  7) = 0.9290665522160916D+00
        ws(  8) = 0.9229584420102580D+00
        ws(  9) = 0.9164467892227239D+00
        ws( 10) = 0.9091433318440355D+00
        ws( 11) = 0.9016736855967489D+00
        ws( 12) = 0.8936176353924735D+00
        ws( 13) = 0.8854772115175155D+00
        ws( 14) = 0.8770214448793517D+00
        ws( 15) = 0.8684658263322580D+00
        ws( 16) = 0.8597904815985231D+00
        ws( 17) = 0.8510411174874860D+00
        ws( 18) = 0.8422492216435002D+00
        ws( 19) = 0.8334546642017853D+00
        ws( 20) = 0.8247117210608940D+00
        ws( 21) = 0.8158201239798727D+00
        ws( 22) = 0.8070229824090226D+00
        ws( 23) = 0.7981406022486305D+00
        ws( 24) = 0.7893841450963509D+00
        ws( 25) = 0.7804796324503739D+00
        ws( 26) = 0.7717917721705552D+00
        ws( 27) = 0.7629198132200095D+00
        ws( 28) = 0.7540354299996114D+00
        ws( 29) = 0.7451621979299830D+00
        ws( 30) = 0.7362987493345112D+00
        ws( 31) = 0.7274276808029260D+00
        ws( 32) = 0.7186710189254935D+00
        ws( 33) = 0.7099057176220210D+00
        ws( 34) = 0.7011055402640869D+00
        ws( 35) = 0.6922529035610938D+00
        ws( 36) = 0.6833152495663982D+00
        ws( 37) = 0.6741873741733326D+00
        ws( 38) = 0.6650804508511792D+00
        ws( 39) = 0.6562797533567974D+00
        ws( 40) = 0.6475356567306717D+00
        ws( 41) = 0.6388836035966218D+00
        ws( 42) = 0.6303007861261524D+00
        ws( 43) = 0.6213529809370264D+00
        ws( 44) = 0.6124927296322527D+00
        ws( 45) = 0.6034966807066793D+00
        ws( 46) = 0.5949741885774340D+00
        ws( 47) = 0.5866324715660824D+00
        ws( 48) = 0.5783012696444367D+00
        ws( 49) = 0.5692526537830153D+00
        ws( 50) = 0.5596146881656960D+00
        ws( 51) = 0.5505418003036920D+00
        ws( 52) = 0.5431412150325138D+00
        ws( 53) = 0.5358945145727433D+00
        ws( 54) = 0.5281849047001025D+00
        ws( 55) = 0.5203711263893436D+00
        ws( 56) = 0.5151056321723420D+00
        ws( 57) = 0.5125190351172769D+00
        ws( 58) = 0.5117348722478319D+00
        ws( 59) = 0.5103222358065096D+00
        ws( 60) = 0.5063558944222962D+00
        ws( 61) = 0.5000466412040662D+00
        ws( 62) = 0.4935742842230519D+00
        ws( 63) = 0.4886369903712858D+00
        ws( 64) = 0.4872406989708013D+00
        ws( 65) = 0.4889386606522009D+00
        ws( 66) = 0.4921224267985417D+00
        ws( 67) = 0.4956914628445970D+00
        ws( 68) = 0.4969140466413451D+00
        ws( 69) = 0.4998158595142674D+00
        ws( 70) = 0.5103801547305350D+00
        ws( 71) = 0.5059869536015258D+00
        ws( 72) = 0.5497443338043559D+00
        ws( 73) = 0.5181104961144198D+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 =  12
        err = 0.6903727755770637D-04
        xs(  1) = 0.6207749476058875D+00
        xs(  2) = 0.1431762738403968D+01
        xs(  3) = 0.2262632447188754D+01
        xs(  4) = 0.3115276316768833D+01
        xs(  5) = 0.3991998799603079D+01
        xs(  6) = 0.4893590357873957D+01
        xs(  7) = 0.5819783094448820D+01
        xs(  8) = 0.6769983499455602D+01
        xs(  9) = 0.7743602197292890D+01
        xs( 10) = 0.8740366381070359D+01
        xs( 11) = 0.9762286684637438D+01
        xs( 12) = 0.1080352125832590D+02
        ws(  1) = 0.7983088464846470D+00
        ws(  2) = 0.8210404882775386D+00
        ws(  3) = 0.8412689361403328D+00
        ws(  4) = 0.8644866274202616D+00
        ws(  5) = 0.8892213950605821D+00
        ws(  6) = 0.9141751121142523D+00
        ws(  7) = 0.9387221065534523D+00
        ws(  8) = 0.9628490224967373D+00
        ws(  9) = 0.9880208540858367D+00
        ws( 10) = 0.1015212007226068D+01
        ws( 11) = 0.1063479815673196D+01
        ws( 12) = 0.1206512099322258D+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 =  12
        err = 0.6933423046050900D-04
        xs(  1) = 0.6208077192563717D+00
        xs(  2) = 0.1431832189796864D+01
        xs(  3) = 0.2262727747488113D+01
        xs(  4) = 0.3115385659100748D+01
        xs(  5) = 0.3992112916031471D+01
        xs(  6) = 0.4893704011485327D+01
        xs(  7) = 0.5819895060203538D+01
        xs(  8) = 0.6770095836961412D+01
        xs(  9) = 0.7743719484294508D+01
        xs( 10) = 0.8740494491676619D+01
        xs( 11) = 0.9762432408258380D+01
        xs( 12) = 0.1080368870074968D+02
        ws(  1) = 0.7983492939369082D+00
        ws(  2) = 0.8210723159522119D+00
        ws(  3) = 0.8412886645878594D+00
        ws(  4) = 0.8644954272885027D+00
        ws(  5) = 0.8892228511032206D+00
        ws(  6) = 0.9141734005540179D+00
        ws(  7) = 0.9387210187995225D+00
        ws(  8) = 0.9628513041304970D+00
        ws(  9) = 0.9880285330573546D+00
        ws( 10) = 0.1015226294882134D+01
        ws( 11) = 0.1063498769288323D+01
        ws( 12) = 0.1206532313286570D+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 =  12
        err = 0.7079760779652884D-04
        xs(  1) = 0.6208987029719494D+00
        xs(  2) = 0.1432009687563586D+01
        xs(  3) = 0.2262932823324263D+01
        xs(  4) = 0.3115557258572986D+01
        xs(  5) = 0.3992209022308577D+01
        xs(  6) = 0.4893711922620427D+01
        xs(  7) = 0.5819832579903252D+01
        xs(  8) = 0.6770007357292465D+01
        xs(  9) = 0.7743671320022490D+01
        xs( 10) = 0.8740566743407422D+01
        xs( 11) = 0.9762714846110292D+01
        xs( 12) = 0.1080424352276089D+02
        ws(  1) = 0.7984573729145116D+00
        ws(  2) = 0.8211319169514505D+00
        ws(  3) = 0.8412838580651057D+00
        ws(  4) = 0.8644365580086524D+00
        ws(  5) = 0.8891358311675460D+00
        ws(  6) = 0.9140891735829982D+00
        ws(  7) = 0.9386690581956645D+00
        ws(  8) = 0.9628550560178416D+00
        ws(  9) = 0.9881061735805635D+00
        ws( 10) = 0.1015391144270944D+01
        ws( 11) = 0.1063736509109182D+01
        ws( 12) = 0.1206791600851465D+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 =  12
        err = 0.7719321182437718D-04
        xs(  1) = 0.6214769373096894D+00
        xs(  2) = 0.1433204554305946D+01
        xs(  3) = 0.2264495336065816D+01
        xs(  4) = 0.3117221394362545D+01
        xs(  5) = 0.3993776221189643D+01
        xs(  6) = 0.4895089895666113D+01
        xs(  7) = 0.5821037760429750D+01
        xs(  8) = 0.6771148302372842D+01
        xs(  9) = 0.7744929690060545D+01
        xs( 10) = 0.8742167300984159D+01
        xs( 11) = 0.9764914657483455D+01
        xs( 12) = 0.1080722208006950D+02
        ws(  1) = 0.7991626237002579D+00
        ws(  2) = 0.8216361092063540D+00
        ws(  3) = 0.8415123954924211D+00
        ws(  4) = 0.8644229927714530D+00
        ws(  5) = 0.8889740706869274D+00
        ws(  6) = 0.9138907584498317D+00
        ws(  7) = 0.9385379027088572D+00
        ws(  8) = 0.9628704525146055D+00
        ws(  9) = 0.9883281339508582D+00
        ws( 10) = 0.1015860472523052D+01
        ws( 11) = 0.1064409820530277D+01
        ws( 12) = 0.1207541338372659D+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 =  12
        err = 0.9695174936485097D-04
        xs(  1) = 0.6224421379949554D+00
        xs(  2) = 0.1434894847761765D+01
        xs(  3) = 0.2265920100657893D+01
        xs(  4) = 0.3117357826435857D+01
        xs(  5) = 0.3991926914148059D+01
        xs(  6) = 0.4891061236457211D+01
        xs(  7) = 0.5815158439531230D+01
        xs(  8) = 0.6764187469678323D+01
        xs(  9) = 0.7737990401860097D+01
        xs( 10) = 0.8736558344420908D+01
        xs( 11) = 0.9762084647385450D+01
        xs( 12) = 0.1080830690227909D+02
        ws(  1) = 0.8002549886929496D+00
        ws(  2) = 0.8219079751345750D+00
        ws(  3) = 0.8407046932689024D+00
        ws(  4) = 0.8627108058960675D+00
        ws(  5) = 0.8868022395364868D+00
        ws(  6) = 0.9117936782957423D+00
        ws(  7) = 0.9370104603596759D+00
        ws(  8) = 0.9622934943670615D+00
        ws(  9) = 0.9889668547203154D+00
        ws( 10) = 0.1017901665560491D+01
        ws( 11) = 0.1067724260362820D+01
        ws( 12) = 0.1211388879678848D+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 =  11
        err = 0.9330170058157833D-04
        xs(  1) = 0.6146934141440529D+00
        xs(  2) = 0.1415784272749104D+01
        xs(  3) = 0.2234281973158348D+01
        xs(  4) = 0.3073145490170451D+01
        xs(  5) = 0.3937049994142464D+01
        xs(  6) = 0.4829046120204251D+01
        xs(  7) = 0.5750505908178305D+01
        xs(  8) = 0.6701597176611127D+01
        xs(  9) = 0.7681824711536614D+01
        xs( 10) = 0.8692186920264239D+01
        xs( 11) = 0.9722602610188936D+01
        ws(  1) = 0.7895455856824865D+00
        ws(  2) = 0.8099249273830129D+00
        ws(  3) = 0.8278788613122718D+00
        ws(  4) = 0.8509064404296068D+00
        ws(  5) = 0.8779067984328273D+00
        ws(  6) = 0.9072921241626694D+00
        ws(  7) = 0.9376393369876960D+00
        ws(  8) = 0.9694118880427232D+00
        ws(  9) = 0.1003213972337323D+01
        ws( 10) = 0.1056878115441937D+01
        ws( 11) = 0.1200056280713230D+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 =  12
        err = 0.7746018791580201D-04
        xs(  1) = 0.6076578997087195D+00
        xs(  2) = 0.1397707943057911D+01
        xs(  3) = 0.2202438259752132D+01
        xs(  4) = 0.3027858768963288D+01
        xs(  5) = 0.3878599650035864D+01
        xs(  6) = 0.4758143005651198D+01
        xs(  7) = 0.5666717156250347D+01
        xs(  8) = 0.6604063492893510D+01
        xs(  9) = 0.7568729860290342D+01
        xs( 10) = 0.8558946508956014D+01
        xs( 11) = 0.9575480210774359D+01
        xs( 12) = 0.1060424860727946D+02
        ws(  1) = 0.7800841079732188D+00
        ws(  2) = 0.7973730916865962D+00
        ws(  3) = 0.8137156862064538D+00
        ws(  4) = 0.8375787706813582D+00
        ws(  5) = 0.8648681477805088D+00
        ws(  6) = 0.8943362439264771D+00
        ws(  7) = 0.9238977414407409D+00
        ws(  8) = 0.9522027005071785D+00
        ws(  9) = 0.9818304142449749D+00
        ws( 10) = 0.1010415940562038D+01
        ws( 11) = 0.1059630091717620D+01
        ws( 12) = 0.1192496428279150D+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 =  11
        err = 0.8214760302860512D-04
        xs(  1) = 0.6022818440624722D+00
        xs(  2) = 0.1383472410134994D+01
        xs(  3) = 0.2172707700532594D+01
        xs(  4) = 0.2971248644685098D+01
        xs(  5) = 0.3785918573996344D+01
        xs(  6) = 0.4625258967673872D+01
        xs(  7) = 0.5495432630080213D+01
        xs(  8) = 0.6397414586498266D+01
        xs(  9) = 0.7336177943276317D+01
        xs( 10) = 0.8295444417723139D+01
        xs( 11) = 0.9296618450768838D+01
        ws(  1) = 0.7723386642276694D+00
        ws(  2) = 0.7856551643743269D+00
        ws(  3) = 0.7937674314104296D+00
        ws(  4) = 0.8054150349797681D+00
        ws(  5) = 0.8237774404929858D+00
        ws(  6) = 0.8526160212622343D+00
        ws(  7) = 0.8880227062608506D+00
        ws(  8) = 0.9218711443103487D+00
        ws(  9) = 0.9961811840071514D+00
        ws( 10) = 0.9944266566424192D+00
        ws( 11) = 0.1311418004325353D+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 =  13
        err = 0.9235822244492942D-04
        xs(  1) = 0.6282377531165517D+00
        xs(  2) = 0.1436343030698921D+01
        xs(  3) = 0.2241510187019115D+01
        xs(  4) = 0.3039643540263873D+01
        xs(  5) = 0.3833536215889244D+01
        xs(  6) = 0.4624564386538754D+01
        xs(  7) = 0.5419537478938141D+01
        xs(  8) = 0.6227149731880559D+01
        xs(  9) = 0.7064650303953893D+01
        xs( 10) = 0.7934150872151158D+01
        xs( 11) = 0.8852934420797139D+01
        xs( 12) = 0.9783325341839255D+01
        xs( 13) = 0.1069059440012608D+02
        ws(  1) = 0.8025667727230462D+00
        ws(  2) = 0.8088122219494842D+00
        ws(  3) = 0.8011262237802876D+00
        ws(  4) = 0.7958831719701076D+00
        ws(  5) = 0.7923764299849974D+00
        ws(  6) = 0.7899711922605934D+00
        ws(  7) = 0.8009836078557039D+00
        ws(  8) = 0.8168336618229728D+00
        ws(  9) = 0.8573783871407433D+00
        ws( 10) = 0.8768646390179923D+00
        ws( 11) = 0.9087593415166539D+00
        ws( 12) = 0.1109522026140456D+01
        ws( 13) = 0.1104805840121322D+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 =  15
        err = 0.9549006395673425D-04
        xs(  1) = 0.6432676529238859D+00
        xs(  2) = 0.1475458470508943D+01
        xs(  3) = 0.2310153616680844D+01
        xs(  4) = 0.3140600825965637D+01
        xs(  5) = 0.3962077473651117D+01
        xs(  6) = 0.4773948246047705D+01
        xs(  7) = 0.5577630328797883D+01
        xs(  8) = 0.6372684576721844D+01
        xs(  9) = 0.7163308178500078D+01
        xs( 10) = 0.7950861442687947D+01
        xs( 11) = 0.8749599874927503D+01
        xs( 12) = 0.9571080651386838D+01
        xs( 13) = 0.1043210343582541D+02
        xs( 14) = 0.1142753494435781D+02
        xs( 15) = 0.1231098090632317D+02
        ws(  1) = 0.8245070992896270D+00
        ws(  2) = 0.8351193445408303D+00
        ws(  3) = 0.8337260836554667D+00
        ws(  4) = 0.8265090058403088D+00
        ws(  5) = 0.8161552065616279D+00
        ws(  6) = 0.8076652864470836D+00
        ws(  7) = 0.7989574310502650D+00
        ws(  8) = 0.7927933141890887D+00
        ws(  9) = 0.7860281137472446D+00
        ws( 10) = 0.7936568279854734D+00
        ws( 11) = 0.8074943574853726D+00
        ws( 12) = 0.8258612843366223D+00
        ws( 13) = 0.8924277315082325D+00
        ws( 14) = 0.9259774566786477D+00
        ws( 15) = 0.1374408823785918D+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 =  18
        err = 0.7665610712061731D-04
        xs(  1) = 0.6773233116022623D+00
        xs(  2) = 0.1551373575721882D+01
        xs(  3) = 0.2423698506717725D+01
        xs(  4) = 0.3287421420147390D+01
        xs(  5) = 0.4141270513597034D+01
        xs(  6) = 0.4984730701546473D+01
        xs(  7) = 0.5815358387265285D+01
        xs(  8) = 0.6633481971825222D+01
        xs(  9) = 0.7439627239302226D+01
        xs( 10) = 0.8234976713440764D+01
        xs( 11) = 0.9020806669887305D+01
        xs( 12) = 0.9799988188563876D+01
        xs( 13) = 0.1057524385166609D+02
        xs( 14) = 0.1134920847005590D+02
        xs( 15) = 0.1214784054866112D+02
        xs( 16) = 0.1298013482247791D+02
        xs( 17) = 0.1385349982694537D+02
        xs( 18) = 0.1476850004794671D+02
        ws(  1) = 0.8677574875472420D+00
        ws(  2) = 0.8753582573982965D+00
        ws(  3) = 0.8685690379668061D+00
        ws(  4) = 0.8587755069215532D+00
        ws(  5) = 0.8490062534375502D+00
        ws(  6) = 0.8375183813876683D+00
        ws(  7) = 0.8240057310110671D+00
        ws(  8) = 0.8126962929729781D+00
        ws(  9) = 0.7993916723587412D+00
        ws( 10) = 0.7919461494387576D+00
        ws( 11) = 0.7812516410632268D+00
        ws( 12) = 0.7757962714476561D+00
        ws( 13) = 0.7752824748594149D+00
        ws( 14) = 0.7796579176679662D+00
        ws( 15) = 0.7995432074959289D+00
        ws( 16) = 0.8548004133401848D+00
        ws( 17) = 0.9071944985732838D+00
        ws( 18) = 0.1038862574941707D+01
        endif
        if( idomain .eq.  196 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  21
        err = 0.4302040289548437D-04
        xs(  1) = 0.6943237093809891D+00
        xs(  2) = 0.1590040135649961D+01
        xs(  3) = 0.2485581660567184D+01
        xs(  4) = 0.3373399533349985D+01
        xs(  5) = 0.4251107434629603D+01
        xs(  6) = 0.5117571359547865D+01
        xs(  7) = 0.5970920944887354D+01
        xs(  8) = 0.6809371621151987D+01
        xs(  9) = 0.7633411554423974D+01
        xs( 10) = 0.8441841053042081D+01
        xs( 11) = 0.9236354812768640D+01
        xs( 12) = 0.1001694518196538D+02
        xs( 13) = 0.1078631494672532D+02
        xs( 14) = 0.1154708432275438D+02
        xs( 15) = 0.1230407921892033D+02
        xs( 16) = 0.1305800006247990D+02
        xs( 17) = 0.1381406683264728D+02
        xs( 18) = 0.1458410320945124D+02
        xs( 19) = 0.1533405454576058D+02
        xs( 20) = 0.1622367899900598D+02
        xs( 21) = 0.1703126962172960D+02
        ws(  1) = 0.8884357433787791D+00
        ws(  2) = 0.8980887688371961D+00
        ws(  3) = 0.8922795445339781D+00
        ws(  4) = 0.8829652640907032D+00
        ws(  5) = 0.8721653835138664D+00
        ws(  6) = 0.8603074545175268D+00
        ws(  7) = 0.8459179942442088D+00
        ws(  8) = 0.8310922425924070D+00
        ws(  9) = 0.8166941556047645D+00
        ws( 10) = 0.8007976538217803D+00
        ws( 11) = 0.7873040717962695D+00
        ws( 12) = 0.7750216214813721D+00
        ws( 13) = 0.7639868489482783D+00
        ws( 14) = 0.7583978705927704D+00
        ws( 15) = 0.7563108675058803D+00
        ws( 16) = 0.7531253327069763D+00
        ws( 17) = 0.7631484942290917D+00
        ws( 18) = 0.7654899169249313D+00
        ws( 19) = 0.7590651801442863D+00
        ws( 20) = 0.8303149791648688D+00
        ws( 21) = 0.1258996761779358D+01
        endif
        if( idomain .eq.  197 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  23
        err = 0.8768109577694721D-04
        xs(  1) = 0.7170991907433250D+00
        xs(  2) = 0.1639654616516575D+01
        xs(  3) = 0.2564594827519832D+01
        xs(  4) = 0.3483390986164427D+01
        xs(  5) = 0.4393601848032818D+01
        xs(  6) = 0.5294305708282101D+01
        xs(  7) = 0.6185031661999786D+01
        xs(  8) = 0.7063084820131436D+01
        xs(  9) = 0.7927666273786505D+01
        xs( 10) = 0.8779605605411120D+01
        xs( 11) = 0.9617217874723394D+01
        xs( 12) = 0.1044297560959770D+02
        xs( 13) = 0.1125550758113583D+02
        xs( 14) = 0.1205731226168848D+02
        xs( 15) = 0.1285025988385873D+02
        xs( 16) = 0.1363450957910405D+02
        xs( 17) = 0.1441171845933429D+02
        xs( 18) = 0.1518811226551037D+02
        xs( 19) = 0.1595773157373903D+02
        xs( 20) = 0.1673360088233317D+02
        xs( 21) = 0.1751403808964827D+02
        xs( 22) = 0.1829540266120276D+02
        xs( 23) = 0.1916561141749477D+02
        ws(  1) = 0.9138267882816711D+00
        ws(  2) = 0.9270305721285155D+00
        ws(  3) = 0.9224112985525269D+00
        ws(  4) = 0.9146774981999639D+00
        ws(  5) = 0.9055380162742303D+00
        ws(  6) = 0.8958562015870924D+00
        ws(  7) = 0.8848111643960300D+00
        ws(  8) = 0.8709436942290928D+00
        ws(  9) = 0.8581288721646491D+00
        ws( 10) = 0.8448717286136647D+00
        ws( 11) = 0.8318639583867136D+00
        ws( 12) = 0.8183742981720992D+00
        ws( 13) = 0.8069610908131631D+00
        ws( 14) = 0.7970888631297801D+00
        ws( 15) = 0.7882831397442798D+00
        ws( 16) = 0.7816266704241359D+00
        ws( 17) = 0.7733870064275353D+00
        ws( 18) = 0.7781684055098786D+00
        ws( 19) = 0.7583123025346681D+00
        ws( 20) = 0.7916149198678908D+00
        ws( 21) = 0.7461892554284915D+00
        ws( 22) = 0.7309443588133963D+00
        ws( 23) = 0.1057119085591164D+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 =  27
        err = 0.7681607998833500D-04
        xs(  1) = 0.7164609524190289D+00
        xs(  2) = 0.1642257199675567D+01
        xs(  3) = 0.2569930017857993D+01
        xs(  4) = 0.3493228797069562D+01
        xs(  5) = 0.4409575354621790D+01
        xs(  6) = 0.5317650386906565D+01
        xs(  7) = 0.6216764416418307D+01
        xs(  8) = 0.7105198293530525D+01
        xs(  9) = 0.7981627017621977D+01
        xs( 10) = 0.8846272918980420D+01
        xs( 11) = 0.9697878148918951D+01
        xs( 12) = 0.1053653206683707D+02
        xs( 13) = 0.1136200200791343D+02
        xs( 14) = 0.1217465976065583D+02
        xs( 15) = 0.1297391864957545D+02
        xs( 16) = 0.1376124434735875D+02
        xs( 17) = 0.1453657492131793D+02
        xs( 18) = 0.1530086129372287D+02
        xs( 19) = 0.1605711266038224D+02
        xs( 20) = 0.1680661685403497D+02
        xs( 21) = 0.1754841639982247D+02
        xs( 22) = 0.1829370559202532D+02
        xs( 23) = 0.1903324779072307D+02
        xs( 24) = 0.1977484374300383D+02
        xs( 25) = 0.2053771922095249D+02
        xs( 26) = 0.2130760560448978D+02
        xs( 27) = 0.2216469892126793D+02
        ws(  1) = 0.9182952349394526D+00
        ws(  2) = 0.9288335203598164D+00
        ws(  3) = 0.9263845107970824D+00
        ws(  4) = 0.9199632082921340D+00
        ws(  5) = 0.9123670424000766D+00
        ws(  6) = 0.9037997760009684D+00
        ws(  7) = 0.8940734033005292D+00
        ws(  8) = 0.8826034273317016D+00
        ws(  9) = 0.8704682497447565D+00
        ws( 10) = 0.8585057733275673D+00
        ws( 11) = 0.8448462684667117D+00
        ws( 12) = 0.8326573137962787D+00
        ws( 13) = 0.8187915164507601D+00
        ws( 14) = 0.8061505697904477D+00
        ws( 15) = 0.7924994167479698D+00
        ws( 16) = 0.7809748052525167D+00
        ws( 17) = 0.7707689060191726D+00
        ws( 18) = 0.7585444629156086D+00
        ws( 19) = 0.7511753747627294D+00
        ws( 20) = 0.7463039579676868D+00
        ws( 21) = 0.7424980010240093D+00
        ws( 22) = 0.7357042905022106D+00
        ws( 23) = 0.7443057208603825D+00
        ws( 24) = 0.7422279434631248D+00
        ws( 25) = 0.6921207218804447D+00
        ws( 26) = 0.8368558422449665D+00
        ws( 27) = 0.8468356456000952D+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 =  31
        err = 0.5814510137776519D-04
        xs(  1) = 0.7193260030439343D+00
        xs(  2) = 0.1648787341678833D+01
        xs(  3) = 0.2581267373411050D+01
        xs(  4) = 0.3510283367308621D+01
        xs(  5) = 0.4433825684484883D+01
        xs(  6) = 0.5350663530376107D+01
        xs(  7) = 0.6259752600355638D+01
        xs(  8) = 0.7160039618563151D+01
        xs(  9) = 0.8050252287058610D+01
        xs( 10) = 0.8930030479603316D+01
        xs( 11) = 0.9798745169094754D+01
        xs( 12) = 0.1065570615897678D+02
        xs( 13) = 0.1150100592099533D+02
        xs( 14) = 0.1233400424011179D+02
        xs( 15) = 0.1315491508297106D+02
        xs( 16) = 0.1396339708113227D+02
        xs( 17) = 0.1475998090445232D+02
        xs( 18) = 0.1554492304882812D+02
        xs( 19) = 0.1631905277998214D+02
        xs( 20) = 0.1708236776325807D+02
        xs( 21) = 0.1783530829308130D+02
        xs( 22) = 0.1857852279064814D+02
        xs( 23) = 0.1931293606381911D+02
        xs( 24) = 0.2003704200919582D+02
        xs( 25) = 0.2075667847939477D+02
        xs( 26) = 0.2146927160196735D+02
        xs( 27) = 0.2217980767271772D+02
        xs( 28) = 0.2289590659926112D+02
        xs( 29) = 0.2360150552044969D+02
        xs( 30) = 0.2439356591817585D+02
        xs( 31) = 0.2512566821466068D+02
        ws(  1) = 0.9212607230475378D+00
        ws(  2) = 0.9331655626832532D+00
        ws(  3) = 0.9309098006209356D+00
        ws(  4) = 0.9266767273240232D+00
        ws(  5) = 0.9202518738054828D+00
        ws(  6) = 0.9131451839671205D+00
        ws(  7) = 0.9049365361093815D+00
        ws(  8) = 0.8953223587854280D+00
        ws(  9) = 0.8850579621211769D+00
        ws( 10) = 0.8743667620764468D+00
        ws( 11) = 0.8628752688395021D+00
        ws( 12) = 0.8511746598217023D+00
        ws( 13) = 0.8391725313832882D+00
        ws( 14) = 0.8269523955773354D+00
        ws( 15) = 0.8146096140528658D+00
        ws( 16) = 0.8026453920734616D+00
        ws( 17) = 0.7904730212511819D+00
        ws( 18) = 0.7798735277898747D+00
        ws( 19) = 0.7682164550203479D+00
        ws( 20) = 0.7581362455207186D+00
        ws( 21) = 0.7487125250054598D+00
        ws( 22) = 0.7370648518989074D+00
        ws( 23) = 0.7303091908725134D+00
        ws( 24) = 0.7200356133124490D+00
        ws( 25) = 0.7154731961253992D+00
        ws( 26) = 0.7075364142795392D+00
        ws( 27) = 0.7136541087884378D+00
        ws( 28) = 0.7111827976555636D+00
        ws( 29) = 0.6687037744029687D+00
        ws( 30) = 0.7602690312227716D+00
        ws( 31) = 0.8464550865041919D+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 =  33
        err = 0.5815759320372960D-04
        xs(  1) = 0.7367040129644420D+00
        xs(  2) = 0.1678442911867080D+01
        xs(  3) = 0.2627819872395894D+01
        xs(  4) = 0.3573277417153622D+01
        xs(  5) = 0.4514822908047255D+01
        xs(  6) = 0.5449370615597064D+01
        xs(  7) = 0.6377565652817547D+01
        xs(  8) = 0.7298104545181075D+01
        xs(  9) = 0.8209996767206558D+01
        xs( 10) = 0.9112011099119576D+01
        xs( 11) = 0.1000424572900532D+02
        xs( 12) = 0.1088627266639665D+02
        xs( 13) = 0.1175687993721673D+02
        xs( 14) = 0.1261728628334279D+02
        xs( 15) = 0.1346611400111514D+02
        xs( 16) = 0.1430330240073195D+02
        xs( 17) = 0.1512963186416626D+02
        xs( 18) = 0.1594446315944437D+02
        xs( 19) = 0.1674796917036038D+02
        xs( 20) = 0.1754156540914475D+02
        xs( 21) = 0.1832434456362313D+02
        xs( 22) = 0.1909713745174709D+02
        xs( 23) = 0.1986039996557063D+02
        xs( 24) = 0.2061613585317719D+02
        xs( 25) = 0.2136193363552993D+02
        xs( 26) = 0.2210017588096462D+02
        xs( 27) = 0.2284030617524776D+02
        xs( 28) = 0.2356602288632168D+02
        xs( 29) = 0.2429474587784105D+02
        xs( 30) = 0.2504383023018658D+02
        xs( 31) = 0.2574436042730452D+02
        xs( 32) = 0.2649498484172564D+02
        xs( 33) = 0.2734431912229714D+02
        ws(  1) = 0.9343785019943941D+00
        ws(  2) = 0.9488048672289269D+00
        ws(  3) = 0.9472469314035432D+00
        ws(  4) = 0.9442702644994865D+00
        ws(  5) = 0.9372511251648877D+00
        ws(  6) = 0.9324771543348327D+00
        ws(  7) = 0.9238192032046392D+00
        ws(  8) = 0.9172911208713675D+00
        ws(  9) = 0.9060846045195645D+00
        ws( 10) = 0.8978657874526061D+00
        ws( 11) = 0.8865183602780334D+00
        ws( 12) = 0.8764932169417962D+00
        ws( 13) = 0.8658061699038704D+00
        ws( 14) = 0.8542728660043675D+00
        ws( 15) = 0.8429472981248437D+00
        ws( 16) = 0.8321226970937988D+00
        ws( 17) = 0.8203926613150452D+00
        ws( 18) = 0.8090801575337870D+00
        ws( 19) = 0.7978538011897147D+00
        ws( 20) = 0.7890101453927471D+00
        ws( 21) = 0.7780585161579771D+00
        ws( 22) = 0.7669645008115448D+00
        ws( 23) = 0.7597512150136564D+00
        ws( 24) = 0.7511607210609204D+00
        ws( 25) = 0.7420098189969400D+00
        ws( 26) = 0.7391741432145505D+00
        ws( 27) = 0.7331332986236218D+00
        ws( 28) = 0.7339556769382777D+00
        ws( 29) = 0.7261759030505802D+00
        ws( 30) = 0.7473133672891700D+00
        ws( 31) = 0.7329811315024379D+00
        ws( 32) = 0.6224695829005925D+00
        ws( 33) = 0.1128648395280686D+01
        endif
        if( idomain .eq.  201 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.3141592653589793D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  36
        err = 0.6466805699106767D-04
        xs(  1) = 0.7410049571534933D+00
        xs(  2) = 0.1698092624318051D+01
        xs(  3) = 0.2658670918463529D+01
        xs(  4) = 0.3617937350163333D+01
        xs(  5) = 0.4571360180574019D+01
        xs(  6) = 0.5520151019025344D+01
        xs(  7) = 0.6461782874070685D+01
        xs(  8) = 0.7397902946160189D+01
        xs(  9) = 0.8325895521361570D+01
        xs( 10) = 0.9245223791834642D+01
        xs( 11) = 0.1015532632635075D+02
        xs( 12) = 0.1105690520366161D+02
        xs( 13) = 0.1194835175760615D+02
        xs( 14) = 0.1283019214883079D+02
        xs( 15) = 0.1370194890350179D+02
        xs( 16) = 0.1456296106756774D+02
        xs( 17) = 0.1541449689769059D+02
        xs( 18) = 0.1625558469407025D+02
        xs( 19) = 0.1708467215074581D+02
        xs( 20) = 0.1790649948480215D+02
        xs( 21) = 0.1871619337377468D+02
        xs( 22) = 0.1951711008328244D+02
        xs( 23) = 0.2030856835142081D+02
        xs( 24) = 0.2109122632801563D+02
        xs( 25) = 0.2186505308553161D+02
        xs( 26) = 0.2263212251783450D+02
        xs( 27) = 0.2338958833352694D+02
        xs( 28) = 0.2413835458616591D+02
        xs( 29) = 0.2488247930571657D+02
        xs( 30) = 0.2561690628727241D+02
        xs( 31) = 0.2634190694356900D+02
        xs( 32) = 0.2707495486188968D+02
        xs( 33) = 0.2778484585619988D+02
        xs( 34) = 0.2849393583980846D+02
        xs( 35) = 0.2923593565308291D+02
        xs( 36) = 0.3006851789307871D+02
        ws(  1) = 0.9453825257825014D+00
        ws(  2) = 0.9641614305575387D+00
        ws(  3) = 0.9584677358418670D+00
        ws(  4) = 0.9577228037234456D+00
        ws(  5) = 0.9501493806881081D+00
        ws(  6) = 0.9461547318637363D+00
        ws(  7) = 0.9383767290198444D+00
        ws(  8) = 0.9327147754178851D+00
        ws(  9) = 0.9236069374741155D+00
        ws( 10) = 0.9146679685238986D+00
        ws( 11) = 0.9062736309450581D+00
        ws( 12) = 0.8958365284315568D+00
        ws( 13) = 0.8870199132637567D+00
        ws( 14) = 0.8772423103635040D+00
        ws( 15) = 0.8662236623292017D+00
        ws( 16) = 0.8563928867920569D+00
        ws( 17) = 0.8448902771094661D+00
        ws( 18) = 0.8365809547603296D+00
        ws( 19) = 0.8255539850649642D+00
        ws( 20) = 0.8152528773933512D+00
        ws( 21) = 0.8041006324582473D+00
        ws( 22) = 0.7963110109104403D+00
        ws( 23) = 0.7896077034502921D+00
        ws( 24) = 0.7729177564822186D+00
        ws( 25) = 0.7743957726442362D+00
        ws( 26) = 0.7584226321793027D+00
        ws( 27) = 0.7517226896733182D+00
        ws( 28) = 0.7470606131395114D+00
        ws( 29) = 0.7282632002695926D+00
        ws( 30) = 0.7272624797123923D+00
        ws( 31) = 0.7131638056480717D+00
        ws( 32) = 0.6945848902478663D+00
        ws( 33) = 0.6805527024554134D+00
        ws( 34) = 0.6403589539775436D+00
        ws( 35) = 0.5806887885114626D+00
        ws( 36) = 0.7659412198866696D+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 =  39
        err = 0.6122960071102113D-04
        xs(  1) = 0.7582900513550871D+00
        xs(  2) = 0.1715340993841495D+01
        xs(  3) = 0.2684846037322547D+01
        xs(  4) = 0.3652253786195402D+01
        xs(  5) = 0.4615188147238215D+01
        xs(  6) = 0.5574030793618431D+01
        xs(  7) = 0.6526571647499057D+01
        xs(  8) = 0.7473771901948828D+01
        xs(  9) = 0.8414472741741694D+01
        xs( 10) = 0.9346966430214351D+01
        xs( 11) = 0.1027106136778560D+02
        xs( 12) = 0.1118707201858077D+02
        xs( 13) = 0.1209388073181924D+02
        xs( 14) = 0.1299105375868843D+02
        xs( 15) = 0.1387940524094121D+02
        xs( 16) = 0.1475778291674969D+02
        xs( 17) = 0.1562623190939966D+02
        xs( 18) = 0.1648525047534742D+02
        xs( 19) = 0.1733401301440766D+02
        xs( 20) = 0.1817314850807244D+02
        xs( 21) = 0.1900264162459260D+02
        xs( 22) = 0.1982345057731102D+02
        xs( 23) = 0.2063411383796407D+02
        xs( 24) = 0.2143716014759862D+02
        xs( 25) = 0.2223227104667101D+02
        xs( 26) = 0.2301714320263508D+02
        xs( 27) = 0.2379702655077703D+02
        xs( 28) = 0.2456871616835095D+02
        xs( 29) = 0.2533343436854283D+02
        xs( 30) = 0.2609270219964571D+02
        xs( 31) = 0.2684466007147461D+02
        xs( 32) = 0.2759172176445628D+02
        xs( 33) = 0.2832681535417017D+02
        xs( 34) = 0.2907164019369149D+02
        xs( 35) = 0.2978939505417674D+02
        xs( 36) = 0.3053280310292920D+02
        xs( 37) = 0.3125996356781768D+02
        xs( 38) = 0.3198485888374037D+02
        xs( 39) = 0.3279342643899786D+02
        ws(  1) = 0.9521808989693271D+00
        ws(  2) = 0.9677861579578115D+00
        ws(  3) = 0.9676748680278501D+00
        ws(  4) = 0.9662160747624055D+00
        ws(  5) = 0.9603163518684396D+00
        ws(  6) = 0.9567772362720265D+00
        ws(  7) = 0.9484069434773295D+00
        ws(  8) = 0.9457835164679739D+00
        ws(  9) = 0.9354219243038052D+00
        ws( 10) = 0.9296060108636185D+00
        ws( 11) = 0.9189248091746935D+00
        ws( 12) = 0.9120339673833003D+00
        ws( 13) = 0.9018881766770936D+00
        ws( 14) = 0.8933447532124210D+00
        ws( 15) = 0.8828786909285053D+00
        ws( 16) = 0.8729897405646282D+00
        ws( 17) = 0.8642816819489010D+00
        ws( 18) = 0.8542457806289697D+00
        ws( 19) = 0.8435398364075340D+00
        ws( 20) = 0.8341203709358486D+00
        ws( 21) = 0.8259909932644135D+00
        ws( 22) = 0.8147295398546976D+00
        ws( 23) = 0.8073153286636519D+00
        ws( 24) = 0.7993429884277942D+00
        ws( 25) = 0.7902857178230749D+00
        ws( 26) = 0.7816599540962677D+00
        ws( 27) = 0.7763065763317210D+00
        ws( 28) = 0.7677589274130954D+00
        ws( 29) = 0.7627414185916814D+00
        ws( 30) = 0.7541331521251733D+00
        ws( 31) = 0.7486695315952030D+00
        ws( 32) = 0.7379588475684470D+00
        ws( 33) = 0.7370259639871330D+00
        ws( 34) = 0.7214619379730829D+00
        ws( 35) = 0.7169024898310608D+00
        ws( 36) = 0.7060413963579342D+00
        ws( 37) = 0.6931989477673570D+00
        ws( 38) = 0.5602249088230141D+00
        ws( 39) = 0.7790778268032842D+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 =  43
        err = 0.7544503741137346D-04
        xs(  1) = 0.7474245429936494D+00
        xs(  2) = 0.1707355881432201D+01
        xs(  3) = 0.2674454829954529D+01
        xs(  4) = 0.3639461396454220D+01
        xs(  5) = 0.4601757023879211D+01
        xs(  6) = 0.5559020697509234D+01
        xs(  7) = 0.6512354430167974D+01
        xs(  8) = 0.7459536100298643D+01
        xs(  9) = 0.8401329724622080D+01
        xs( 10) = 0.9336430720689815D+01
        xs( 11) = 0.1026406813594017D+02
        xs( 12) = 0.1118415138745751D+02
        xs( 13) = 0.1209645290207406D+02
        xs( 14) = 0.1300074431191397D+02
        xs( 15) = 0.1389658052418312D+02
        xs( 16) = 0.1478381136793623D+02
        xs( 17) = 0.1566140373955185D+02
        xs( 18) = 0.1653070251189345D+02
        xs( 19) = 0.1739040926027518D+02
        xs( 20) = 0.1824088684231391D+02
        xs( 21) = 0.1908161401061033D+02
        xs( 22) = 0.1991336635925982D+02
        xs( 23) = 0.2073601084081590D+02
        xs( 24) = 0.2154897485230529D+02
        xs( 25) = 0.2235322953198366D+02
        xs( 26) = 0.2314862788484875D+02
        xs( 27) = 0.2393499776312633D+02
        xs( 28) = 0.2471361176254300D+02
        xs( 29) = 0.2548388806143840D+02
        xs( 30) = 0.2624696096713637D+02
        xs( 31) = 0.2700233531867527D+02
        xs( 32) = 0.2775159933251371D+02
        xs( 33) = 0.2849441120940550D+02
        xs( 34) = 0.2923096465470265D+02
        xs( 35) = 0.2996237409741802D+02
        xs( 36) = 0.3068755306394671D+02
        xs( 37) = 0.3141048624993244D+02
        xs( 38) = 0.3212221228801818D+02
        xs( 39) = 0.3284009482022597D+02
        xs( 40) = 0.3354688879543688D+02
        xs( 41) = 0.3424368310708395D+02
        xs( 42) = 0.3498672328070473D+02
        xs( 43) = 0.3567964157371936D+02
        ws(  1) = 0.9518197276524843D+00
        ws(  2) = 0.9665619002810834D+00
        ws(  3) = 0.9661873148811357D+00
        ws(  4) = 0.9630891063161054D+00
        ws(  5) = 0.9612929572068436D+00
        ws(  6) = 0.9539794791774217D+00
        ws(  7) = 0.9509301811553297D+00
        ws(  8) = 0.9448554566322955D+00
        ws(  9) = 0.9388894990610867D+00
        ws( 10) = 0.9301564352674241D+00
        ws( 11) = 0.9243417805771306D+00
        ws( 12) = 0.9168204081721180D+00
        ws( 13) = 0.9086444847311055D+00
        ws( 14) = 0.8989539855228524D+00
        ws( 15) = 0.8919717601515801D+00
        ws( 16) = 0.8823590883711379D+00
        ws( 17) = 0.8738207514996050D+00
        ws( 18) = 0.8646204333478210D+00
        ws( 19) = 0.8546918787297579D+00
        ws( 20) = 0.8454127184484768D+00
        ws( 21) = 0.8368431525483628D+00
        ws( 22) = 0.8269297006004357D+00
        ws( 23) = 0.8176401506596301D+00
        ws( 24) = 0.8089552960754888D+00
        ws( 25) = 0.7991170875674555D+00
        ws( 26) = 0.7911170911719974D+00
        ws( 27) = 0.7830111982639162D+00
        ws( 28) = 0.7729009514406974D+00
        ws( 29) = 0.7666500580970540D+00
        ws( 30) = 0.7597823179128828D+00
        ws( 31) = 0.7500097406758495D+00
        ws( 32) = 0.7468254530660279D+00
        ws( 33) = 0.7363534531498535D+00
        ws( 34) = 0.7329831436396937D+00
        ws( 35) = 0.7264260653939895D+00
        ws( 36) = 0.7145184410485969D+00
        ws( 37) = 0.7158793057561846D+00
        ws( 38) = 0.6972516003881248D+00
        ws( 39) = 0.6896432710464790D+00
        ws( 40) = 0.6791752900108096D+00
        ws( 41) = 0.5985085670844048D+00
        ws( 42) = 0.5858709557375786D+00
        ws( 43) = 0.5341887591632067D+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 =  46
        err = 0.6747329837659975D-04
        xs(  1) = 0.7554289223791871D+00
        xs(  2) = 0.1720614716147508D+01
        xs(  3) = 0.2696209718925555D+01
        xs(  4) = 0.3668919061739245D+01
        xs(  5) = 0.4640144778578925D+01
        xs(  6) = 0.5607632180516789D+01
        xs(  7) = 0.6570695025559222D+01
        xs(  8) = 0.7529133305797015D+01
        xs(  9) = 0.8483617457778662D+01
        xs( 10) = 0.9431396347499682D+01
        xs( 11) = 0.1037359245375701D+02
        xs( 12) = 0.1130906014051926D+02
        xs( 13) = 0.1223791775068684D+02
        xs( 14) = 0.1315971141977679D+02
        xs( 15) = 0.1407391441794200D+02
        xs( 16) = 0.1498084276505685D+02
        xs( 17) = 0.1587937430488948D+02
        xs( 18) = 0.1676989848601128D+02
        xs( 19) = 0.1765220071225717D+02
        xs( 20) = 0.1852572996045346D+02
        xs( 21) = 0.1939068056056717D+02
        xs( 22) = 0.2024666212645011D+02
        xs( 23) = 0.2109427309021563D+02
        xs( 24) = 0.2193274226940072D+02
        xs( 25) = 0.2276243110793487D+02
        xs( 26) = 0.2358381279173707D+02
        xs( 27) = 0.2439672868340636D+02
        xs( 28) = 0.2520151597515858D+02
        xs( 29) = 0.2599806484817405D+02
        xs( 30) = 0.2678804815465936D+02
        xs( 31) = 0.2756988381221697D+02
        xs( 32) = 0.2834538535910465D+02
        xs( 33) = 0.2911334670659799D+02
        xs( 34) = 0.2987521256103103D+02
        xs( 35) = 0.3062906900523536D+02
        xs( 36) = 0.3137874237719140D+02
        xs( 37) = 0.3212197086075027D+02
        xs( 38) = 0.3285801814249842D+02
        xs( 39) = 0.3358761520609228D+02
        xs( 40) = 0.3431538239492105D+02
        xs( 41) = 0.3502907863194571D+02
        xs( 42) = 0.3575137772105771D+02
        xs( 43) = 0.3645378334874875D+02
        xs( 44) = 0.3716691189676102D+02
        xs( 45) = 0.3787046480342980D+02
        xs( 46) = 0.3867927954164814D+02
        ws(  1) = 0.9554140040153383D+00
        ws(  2) = 0.9755895939546009D+00
        ws(  3) = 0.9742695087617854D+00
        ws(  4) = 0.9718569667680514D+00
        ws(  5) = 0.9691179242431524D+00
        ws(  6) = 0.9654808157318393D+00
        ws(  7) = 0.9612472226029973D+00
        ws(  8) = 0.9566228420298420D+00
        ws(  9) = 0.9506850460141198D+00
        ws( 10) = 0.9456606139407722D+00
        ws( 11) = 0.9384170084658420D+00
        ws( 12) = 0.9322997740787965D+00
        ws( 13) = 0.9257260302062951D+00
        ws( 14) = 0.9176963127228744D+00
        ws( 15) = 0.9107954829134052D+00
        ws( 16) = 0.9026928951733071D+00
        ws( 17) = 0.8943025027589289D+00
        ws( 18) = 0.8864354744589098D+00
        ws( 19) = 0.8783641792394444D+00
        ws( 20) = 0.8690433719364986D+00
        ws( 21) = 0.8604949530612227D+00
        ws( 22) = 0.8516040230635747D+00
        ws( 23) = 0.8429671926868714D+00
        ws( 24) = 0.8341028700724742D+00
        ws( 25) = 0.8256562472035320D+00
        ws( 26) = 0.8174713372985368D+00
        ws( 27) = 0.8079246592505457D+00
        ws( 28) = 0.8013335398826525D+00
        ws( 29) = 0.7930905344342989D+00
        ws( 30) = 0.7853061389979635D+00
        ws( 31) = 0.7793867894699683D+00
        ws( 32) = 0.7706712658560649D+00
        ws( 33) = 0.7650036232492151D+00
        ws( 34) = 0.7572840106177992D+00
        ws( 35) = 0.7507640588374244D+00
        ws( 36) = 0.7470554211629910D+00
        ws( 37) = 0.7365887551074837D+00
        ws( 38) = 0.7356956106097308D+00
        ws( 39) = 0.7224302596688564D+00
        ws( 40) = 0.7272754348836292D+00
        ws( 41) = 0.7108787029213062D+00
        ws( 42) = 0.7192540768626408D+00
        ws( 43) = 0.6984525949105804D+00
        ws( 44) = 0.6722009697339348D+00
        ws( 45) = 0.6362255999884053D+00
        ws( 46) = 0.7036334930108022D+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 =  49
        err = 0.9597044898278220D-04
        xs(  1) = 0.7453046939142139D+00
        xs(  2) = 0.1709725814701638D+01
        xs(  3) = 0.2677813117265091D+01
        xs(  4) = 0.3646726861349722D+01
        xs(  5) = 0.4612450755751418D+01
        xs(  6) = 0.5576443685262882D+01
        xs(  7) = 0.6535901063823557D+01
        xs(  8) = 0.7491859072826640D+01
        xs(  9) = 0.8444361161300352D+01
        xs( 10) = 0.9391235933010435D+01
        xs( 11) = 0.1033353283001345D+02
        xs( 12) = 0.1127029063842508D+02
        xs( 13) = 0.1220171323069945D+02
        xs( 14) = 0.1312716486942351D+02
        xs( 15) = 0.1404657708276491D+02
        xs( 16) = 0.1496012399369427D+02
        xs( 17) = 0.1586673440658078D+02
        xs( 18) = 0.1676684818101840D+02
        xs( 19) = 0.1766042229621521D+02
        xs( 20) = 0.1854673190893578D+02
        xs( 21) = 0.1942623073152900D+02
        xs( 22) = 0.2029834151081369D+02
        xs( 23) = 0.2116315657322011D+02
        xs( 24) = 0.2202072494080000D+02
        xs( 25) = 0.2287043162905122D+02
        xs( 26) = 0.2371247676025553D+02
        xs( 27) = 0.2454708221158778D+02
        xs( 28) = 0.2537343103334953D+02
        xs( 29) = 0.2619244077520548D+02
        xs( 30) = 0.2700336222145691D+02
        xs( 31) = 0.2780627517404563D+02
        xs( 32) = 0.2860139509581195D+02
        xs( 33) = 0.2938866875637886D+02
        xs( 34) = 0.3016890693814849D+02
        xs( 35) = 0.3094041225565165D+02
        xs( 36) = 0.3170468728457848D+02
        xs( 37) = 0.3246312614830490D+02
        xs( 38) = 0.3321236932006911D+02
        xs( 39) = 0.3395702299874379D+02
        xs( 40) = 0.3469350552255970D+02
        xs( 41) = 0.3542635337643136D+02
        xs( 42) = 0.3615040818931019D+02
        xs( 43) = 0.3686862346252897D+02
        xs( 44) = 0.3757891480080087D+02
        xs( 45) = 0.3828946682098611D+02
        xs( 46) = 0.3899782070751881D+02
        xs( 47) = 0.3969293838280285D+02
        xs( 48) = 0.4038667503895381D+02
        xs( 49) = 0.4111766408902296D+02
        ws(  1) = 0.9517348572445204D+00
        ws(  2) = 0.9705658774049488D+00
        ws(  3) = 0.9690816441605823D+00
        ws(  4) = 0.9669490588982965D+00
        ws(  5) = 0.9642932300801218D+00
        ws(  6) = 0.9630008127413764D+00
        ws(  7) = 0.9572128579764178D+00
        ws(  8) = 0.9551349359233957D+00
        ws(  9) = 0.9484387563288783D+00
        ws( 10) = 0.9449792988255580D+00
        ws( 11) = 0.9398528140833839D+00
        ws( 12) = 0.9338817602237171D+00
        ws( 13) = 0.9291575875492991D+00
        ws( 14) = 0.9223662911579193D+00
        ws( 15) = 0.9164915405824049D+00
        ws( 16) = 0.9094426309588481D+00
        ws( 17) = 0.9036869764022623D+00
        ws( 18) = 0.8971392096796802D+00
        ws( 19) = 0.8902858497665534D+00
        ws( 20) = 0.8826964859667455D+00
        ws( 21) = 0.8759241684525571D+00
        ws( 22) = 0.8684341890764917D+00
        ws( 23) = 0.8615141985705868D+00
        ws( 24) = 0.8532850010045200D+00
        ws( 25) = 0.8464528881805241D+00
        ws( 26) = 0.8385141839352112D+00
        ws( 27) = 0.8302966219957938D+00
        ws( 28) = 0.8237593371291289D+00
        ws( 29) = 0.8141643322966023D+00
        ws( 30) = 0.8075264299384078D+00
        ws( 31) = 0.7996031184407260D+00
        ws( 32) = 0.7912887422149858D+00
        ws( 33) = 0.7838128996572473D+00
        ws( 34) = 0.7756697652448716D+00
        ws( 35) = 0.7673027942222562D+00
        ws( 36) = 0.7624166122909191D+00
        ws( 37) = 0.7522949962908397D+00
        ws( 38) = 0.7457778109371413D+00
        ws( 39) = 0.7421477929747416D+00
        ws( 40) = 0.7335014631410370D+00
        ws( 41) = 0.7290195337895115D+00
        ws( 42) = 0.7255869254718998D+00
        ws( 43) = 0.7144197090917646D+00
        ws( 44) = 0.7172563661612092D+00
        ws( 45) = 0.7159017300337256D+00
        ws( 46) = 0.6916474590598819D+00
        ws( 47) = 0.6844763742236600D+00
        ws( 48) = 0.5201011880339423D+00
        ws( 49) = 0.7044926709793580D+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 =  53
        err = 0.4483512145161694D-04
        xs(  1) = 0.7523889529962396D+00
        xs(  2) = 0.1728804878460615D+01
        xs(  3) = 0.2704418015074884D+01
        xs(  4) = 0.3682410607721780D+01
        xs(  5) = 0.4659478879746651D+01
        xs(  6) = 0.5630832575461901D+01
        xs(  7) = 0.6600432994868202D+01
        xs(  8) = 0.7566082213289353D+01
        xs(  9) = 0.8526547647975365D+01
        xs( 10) = 0.9483254218080175D+01
        xs( 11) = 0.1043291605954891D+02
        xs( 12) = 0.1137812816818101D+02
        xs( 13) = 0.1231583737737970D+02
        xs( 14) = 0.1324780362235685D+02
        xs( 15) = 0.1417222746320392D+02
        xs( 16) = 0.1508949627075450D+02
        xs( 17) = 0.1599863915038260D+02
        xs( 18) = 0.1689994446630335D+02
        xs( 19) = 0.1779334948495772D+02
        xs( 20) = 0.1867889536185403D+02
        xs( 21) = 0.1955703512345018D+02
        xs( 22) = 0.2042783580300307D+02
        xs( 23) = 0.2129237606924080D+02
        xs( 24) = 0.2215128081290320D+02
        xs( 25) = 0.2300450535902663D+02
        xs( 26) = 0.2385246250450602D+02
        xs( 27) = 0.2469564257716648D+02
        xs( 28) = 0.2553369765753260D+02
        xs( 29) = 0.2636505691433908D+02
        xs( 30) = 0.2719130245467026D+02
        xs( 31) = 0.2801094708216319D+02
        xs( 32) = 0.2882327060057801D+02
        xs( 33) = 0.2962848471164917D+02
        xs( 34) = 0.3042575297640426D+02
        xs( 35) = 0.3121534255736377D+02
        xs( 36) = 0.3199699400929875D+02
        xs( 37) = 0.3276968821476032D+02
        xs( 38) = 0.3353494668852003D+02
        xs( 39) = 0.3429285466080670D+02
        xs( 40) = 0.3504195170620814D+02
        xs( 41) = 0.3578577084388654D+02
        xs( 42) = 0.3652068876195536D+02
        xs( 43) = 0.3725213608902820D+02
        xs( 44) = 0.3797625289578119D+02
        xs( 45) = 0.3869399646235597D+02
        xs( 46) = 0.3940633979973800D+02
        xs( 47) = 0.4011821775464745D+02
        xs( 48) = 0.4081241277880053D+02
        xs( 49) = 0.4151775493840752D+02
        xs( 50) = 0.4221588601734183D+02
        xs( 51) = 0.4288734720279630D+02
        xs( 52) = 0.4353430671005639D+02
        xs( 53) = 0.4443355309183750D+02
        ws(  1) = 0.9697692235849271D+00
        ws(  2) = 0.9780368231858959D+00
        ws(  3) = 0.9731966014867279D+00
        ws(  4) = 0.9802199818261673D+00
        ws(  5) = 0.9737506090290750D+00
        ws(  6) = 0.9713137477798887D+00
        ws(  7) = 0.9674960398878923D+00
        ws(  8) = 0.9628349490349013D+00
        ws(  9) = 0.9579344146554094D+00
        ws( 10) = 0.9540943836490595D+00
        ws( 11) = 0.9473166552506016D+00
        ws( 12) = 0.9419994725912343D+00
        ws( 13) = 0.9348932111017724D+00
        ws( 14) = 0.9281133196967682D+00
        ws( 15) = 0.9200909471063680D+00
        ws( 16) = 0.9134738872345702D+00
        ws( 17) = 0.9056918146779414D+00
        ws( 18) = 0.8972423852189363D+00
        ws( 19) = 0.8900638785293927D+00
        ws( 20) = 0.8810717486355574D+00
        ws( 21) = 0.8741994160268828D+00
        ws( 22) = 0.8674220365719955D+00
        ws( 23) = 0.8623019798124073D+00
        ws( 24) = 0.8555742955449952D+00
        ws( 25) = 0.8506396087068063D+00
        ws( 26) = 0.8458148708160406D+00
        ws( 27) = 0.8398699900069532D+00
        ws( 28) = 0.8352774544325011D+00
        ws( 29) = 0.8285908466466116D+00
        ws( 30) = 0.8234143922806570D+00
        ws( 31) = 0.8151128329513168D+00
        ws( 32) = 0.8090237018170228D+00
        ws( 33) = 0.8014195095796439D+00
        ws( 34) = 0.7932944571132583D+00
        ws( 35) = 0.7846653512654138D+00
        ws( 36) = 0.7778051285504515D+00
        ws( 37) = 0.7683292578463448D+00
        ws( 38) = 0.7619184409402544D+00
        ws( 39) = 0.7518831588920262D+00
        ws( 40) = 0.7480556442422105D+00
        ws( 41) = 0.7386140190602370D+00
        ws( 42) = 0.7329592391983871D+00
        ws( 43) = 0.7301351789080653D+00
        ws( 44) = 0.7211988035454741D+00
        ws( 45) = 0.7181574677356952D+00
        ws( 46) = 0.7127721077964280D+00
        ws( 47) = 0.7101295717627832D+00
        ws( 48) = 0.6886531061000648D+00
        ws( 49) = 0.7042663117744667D+00
        ws( 50) = 0.6562972830401196D+00
        ws( 51) = 0.5857267002469668D+00
        ws( 52) = 0.5670446075008938D+00
        ws( 53) = 0.6363620602512757D+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 =  56
        err = 0.7728747772989479D-04
        xs(  1) = 0.7584798447315777D+00
        xs(  2) = 0.1737463148257884D+01
        xs(  3) = 0.2716346281119114D+01
        xs(  4) = 0.3699388231507284D+01
        xs(  5) = 0.4678782777895580D+01
        xs(  6) = 0.5656114032689877D+01
        xs(  7) = 0.6629292341965166D+01
        xs(  8) = 0.7599135680787099D+01
        xs(  9) = 0.8564261434923203D+01
        xs( 10) = 0.9524371873926166D+01
        xs( 11) = 0.1047927985911019D+02
        xs( 12) = 0.1142864951432401D+02
        xs( 13) = 0.1237162835491537D+02
        xs( 14) = 0.1330886757123763D+02
        xs( 15) = 0.1423938996246665D+02
        xs( 16) = 0.1516338982099268D+02
        xs( 17) = 0.1608093892855693D+02
        xs( 18) = 0.1699184371548093D+02
        xs( 19) = 0.1789607605281771D+02
        xs( 20) = 0.1879376229851028D+02
        xs( 21) = 0.1968477798210864D+02
        xs( 22) = 0.2056858310637021D+02
        xs( 23) = 0.2144539581012438D+02
        xs( 24) = 0.2231531684462584D+02
        xs( 25) = 0.2317704834457665D+02
        xs( 26) = 0.2403110500382046D+02
        xs( 27) = 0.2487737145594708D+02
        xs( 28) = 0.2571601376243824D+02
        xs( 29) = 0.2654763721147823D+02
        xs( 30) = 0.2737210604172004D+02
        xs( 31) = 0.2819097662039981D+02
        xs( 32) = 0.2900366947728763D+02
        xs( 33) = 0.2981119362987959D+02
        xs( 34) = 0.3061264407745797D+02
        xs( 35) = 0.3140735211147584D+02
        xs( 36) = 0.3219605822831608D+02
        xs( 37) = 0.3297817400703111D+02
        xs( 38) = 0.3375143711867258D+02
        xs( 39) = 0.3451860679474128D+02
        xs( 40) = 0.3527846252400921D+02
        xs( 41) = 0.3603101432743095D+02
        xs( 42) = 0.3677650753896770D+02
        xs( 43) = 0.3751885028274039D+02
        xs( 44) = 0.3825304474376721D+02
        xs( 45) = 0.3898304406113503D+02
        xs( 46) = 0.3971160597052175D+02
        xs( 47) = 0.4043173921711017D+02
        xs( 48) = 0.4114872606021433D+02
        xs( 49) = 0.4186168476931598D+02
        xs( 50) = 0.4257004581693907D+02
        xs( 51) = 0.4327068355136704D+02
        xs( 52) = 0.4396263992511432D+02
        xs( 53) = 0.4465884357372651D+02
        xs( 54) = 0.4533936619389858D+02
        xs( 55) = 0.4604316791943092D+02
        xs( 56) = 0.4674184559027381D+02
        ws(  1) = 0.9686845096760123D+00
        ws(  2) = 0.9776808003363383D+00
        ws(  3) = 0.9838843333186127D+00
        ws(  4) = 0.9824510305586610D+00
        ws(  5) = 0.9786217352890626D+00
        ws(  6) = 0.9744931091468917D+00
        ws(  7) = 0.9704123757458255D+00
        ws(  8) = 0.9680339887510344D+00
        ws(  9) = 0.9630512512669053D+00
        ws( 10) = 0.9575996430673870D+00
        ws( 11) = 0.9532706244147218D+00
        ws( 12) = 0.9450091741582582D+00
        ws( 13) = 0.9398549154222045D+00
        ws( 14) = 0.9344673587060519D+00
        ws( 15) = 0.9273812450425570D+00
        ws( 16) = 0.9208414746515570D+00
        ws( 17) = 0.9140994982910572D+00
        ws( 18) = 0.9073683596938535D+00
        ws( 19) = 0.9010463518687636D+00
        ws( 20) = 0.8946258048893115D+00
        ws( 21) = 0.8873014062796258D+00
        ws( 22) = 0.8804861303813595D+00
        ws( 23) = 0.8732852033712931D+00
        ws( 24) = 0.8662973264648732D+00
        ws( 25) = 0.8577551692635434D+00
        ws( 26) = 0.8500153364267441D+00
        ws( 27) = 0.8426826558488962D+00
        ws( 28) = 0.8357792716694710D+00
        ws( 29) = 0.8267497126902265D+00
        ws( 30) = 0.8224294947023786D+00
        ws( 31) = 0.8158911781983060D+00
        ws( 32) = 0.8103927987531058D+00
        ws( 33) = 0.8037165809643305D+00
        ws( 34) = 0.7989628823026189D+00
        ws( 35) = 0.7918411006911110D+00
        ws( 36) = 0.7849733653923047D+00
        ws( 37) = 0.7780069188449847D+00
        ws( 38) = 0.7704411105151348D+00
        ws( 39) = 0.7637992615557285D+00
        ws( 40) = 0.7548915876582913D+00
        ws( 41) = 0.7510881451083465D+00
        ws( 42) = 0.7433297202773951D+00
        ws( 43) = 0.7379269012985555D+00
        ws( 44) = 0.7347641624469101D+00
        ws( 45) = 0.7281180392253017D+00
        ws( 46) = 0.7263124283217441D+00
        ws( 47) = 0.7178973724861504D+00
        ws( 48) = 0.7138028004012597D+00
        ws( 49) = 0.7072923250653157D+00
        ws( 50) = 0.6950312610963387D+00
        ws( 51) = 0.6847115275407895D+00
        ws( 52) = 0.6533148760701977D+00
        ws( 53) = 0.6369799283065044D+00
        ws( 54) = 0.5630691318237523D+00
        ws( 55) = 0.4591276895830529D+00
        ws( 56) = 0.4129604236399332D+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 =   7
        err = 0.7772393681446305D-04
        xs(  1) = 0.1189079438505181D+01
        xs(  2) = 0.2107327836689211D+01
        xs(  3) = 0.3059476147720776D+01
        xs(  4) = 0.4018415436407726D+01
        xs(  5) = 0.4989476775353302D+01
        xs(  6) = 0.5981609340616555D+01
        xs(  7) = 0.6936150645120456D+01
        ws(  1) = 0.1004014062862331D+01
        ws(  2) = 0.1000597026353945D+01
        ws(  3) = 0.9800888536432401D+00
        ws(  4) = 0.1014044769800648D+01
        ws(  5) = 0.1018027771576823D+01
        ws(  6) = 0.1117193045014591D+01
        ws(  7) = 0.1232474559030474D+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 =   7
        err = 0.7771374110500059D-04
        xs(  1) = 0.1189088969469823D+01
        xs(  2) = 0.2107367724238638D+01
        xs(  3) = 0.3059522959412913D+01
        xs(  4) = 0.4018472624341718D+01
        xs(  5) = 0.4989547218898585D+01
        xs(  6) = 0.5981675896753342D+01
        xs(  7) = 0.6936239731380129D+01
        ws(  1) = 0.1004026953489818D+01
        ws(  2) = 0.1000594545046300D+01
        ws(  3) = 0.9801257007372486D+00
        ws(  4) = 0.1014052886554323D+01
        ws(  5) = 0.1018062496701588D+01
        ws(  6) = 0.1117183459684140D+01
        ws(  7) = 0.1232468228364814D+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 =   7
        err = 0.7763044168260457D-04
        xs(  1) = 0.1189114406862367D+01
        xs(  2) = 0.2107638226864087D+01
        xs(  3) = 0.3059843436477435D+01
        xs(  4) = 0.4018873997274007D+01
        xs(  5) = 0.4990053862246321D+01
        xs(  6) = 0.5982160302890090D+01
        xs(  7) = 0.6936919584077854D+01
        ws(  1) = 0.1004171232418273D+01
        ws(  2) = 0.1000530284213558D+01
        ws(  3) = 0.9804058405046809D+00
        ws(  4) = 0.1014106069457334D+01
        ws(  5) = 0.1018344062716311D+01
        ws(  6) = 0.1117055652961824D+01
        ws(  7) = 0.1232495043976182D+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 =   7
        err = 0.7736947475047940D-04
        xs(  1) = 0.1189292763643965D+01
        xs(  2) = 0.2108615767674149D+01
        xs(  3) = 0.3061006069428219D+01
        xs(  4) = 0.4020309660800946D+01
        xs(  5) = 0.4991834690845034D+01
        xs(  6) = 0.5983864223530909D+01
        xs(  7) = 0.6939219259447934D+01
        ws(  1) = 0.1004625837599521D+01
        ws(  2) = 0.1000398295655469D+01
        ws(  3) = 0.9813311648563758D+00
        ws(  4) = 0.1014298131420479D+01
        ws(  5) = 0.1019242349780976D+01
        ws(  6) = 0.1116728649602747D+01
        ws(  7) = 0.1232501510746189D+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 =   7
        err = 0.7623258139878756D-04
        xs(  1) = 0.1189838905733835D+01
        xs(  2) = 0.2112608836103386D+01
        xs(  3) = 0.3065727055095173D+01
        xs(  4) = 0.4026208881404313D+01
        xs(  5) = 0.4999174113127390D+01
        xs(  6) = 0.5990919952885565D+01
        xs(  7) = 0.6948858160093583D+01
        ws(  1) = 0.1006704476303440D+01
        ws(  2) = 0.9996999534310563D+00
        ws(  3) = 0.9852211305134414D+00
        ws(  4) = 0.1015018592482126D+01
        ws(  5) = 0.1023104755667630D+01
        ws(  6) = 0.1115114049460814D+01
        ws(  7) = 0.1232842498515889D+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 =   7
        err = 0.7123016221719923D-04
        xs(  1) = 0.1183049061954057D+01
        xs(  2) = 0.2142516096115701D+01
        xs(  3) = 0.3097890112631679D+01
        xs(  4) = 0.4071426433416512D+01
        xs(  5) = 0.5056029913089825D+01
        xs(  6) = 0.6046816057147776D+01
        xs(  7) = 0.7028899269013832D+01
        ws(  1) = 0.1041911616793441D+01
        ws(  2) = 0.9818235814284519D+00
        ws(  3) = 0.1021601173727851D+01
        ws(  4) = 0.1013275070535818D+01
        ws(  5) = 0.1062896541326853D+01
        ws(  6) = 0.1086411265164900D+01
        ws(  7) = 0.1251092121656192D+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 =   9
        err = 0.6242459405961180D-04
        xs(  1) = 0.1085858360954948D+01
        xs(  2) = 0.2025747253158042D+01
        xs(  3) = 0.2917043708001540D+01
        xs(  4) = 0.3848215894761363D+01
        xs(  5) = 0.4787755934041558D+01
        xs(  6) = 0.5740430136997518D+01
        xs(  7) = 0.6720448626896873D+01
        xs(  8) = 0.7696646151511703D+01
        xs(  9) = 0.8690332861450873D+01
        ws(  1) = 0.9547851976109077D+00
        ws(  2) = 0.9135508307956194D+00
        ws(  3) = 0.9557281313411353D+00
        ws(  4) = 0.9550042861774501D+00
        ws(  5) = 0.9813432670250753D+00
        ws(  6) = 0.9876594872975989D+00
        ws(  7) = 0.1023655360963808D+01
        ws(  8) = 0.1045954000541741D+01
        ws(  9) = 0.1178426261891242D+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 =   7
        err = 0.9090424854845137D-04
        xs(  1) = 0.1178972009889952D+01
        xs(  2) = 0.2059753813259158D+01
        xs(  3) = 0.3003372707223714D+01
        xs(  4) = 0.3931316261894159D+01
        xs(  5) = 0.4872088778319023D+01
        xs(  6) = 0.5832363628225107D+01
        xs(  7) = 0.6730064965780502D+01
        ws(  1) = 0.1031701299644613D+01
        ws(  2) = 0.9786153909392092D+00
        ws(  3) = 0.8833163189403396D+00
        ws(  4) = 0.9057371500326916D+00
        ws(  5) = 0.9015950640230719D+00
        ws(  6) = 0.1298924516814682D+01
        ws(  7) = 0.1491745383267080D+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 =   9
        err = 0.8226813181027768D-04
        xs(  1) = 0.9096714248576935D+00
        xs(  2) = 0.1793034924831474D+01
        xs(  3) = 0.2711879959327928D+01
        xs(  4) = 0.3647533425731160D+01
        xs(  5) = 0.4604208198612320D+01
        xs(  6) = 0.5573713871790891D+01
        xs(  7) = 0.6564139952672620D+01
        xs(  8) = 0.7565632345767917D+01
        xs(  9) = 0.8576677259718132D+01
        ws(  1) = 0.8270104573180508D+00
        ws(  2) = 0.9439333124672924D+00
        ws(  3) = 0.9630628720276648D+00
        ws(  4) = 0.9666812653618601D+00
        ws(  5) = 0.9575785920833473D+00
        ws(  6) = 0.9516863622785351D+00
        ws(  7) = 0.9778043394084828D+00
        ws(  8) = 0.8700470846375825D+00
        ws(  9) = 0.1627383246340362D+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 =  10
        err = 0.7429864766437620D-04
        xs(  1) = 0.1107154998992515D+01
        xs(  2) = 0.2039042276885852D+01
        xs(  3) = 0.2998025726554246D+01
        xs(  4) = 0.3917494895188392D+01
        xs(  5) = 0.4790445617043515D+01
        xs(  6) = 0.5744094147837228D+01
        xs(  7) = 0.6691071894251543D+01
        xs(  8) = 0.7483499708803916D+01
        xs(  9) = 0.8829752067372405D+01
        xs( 10) = 0.9553354865201642D+01
        ws(  1) = 0.9218139214731783D+00
        ws(  2) = 0.1021289301093625D+01
        ws(  3) = 0.9886953324083873D+00
        ws(  4) = 0.8809232222238071D+00
        ws(  5) = 0.8848320247949529D+00
        ws(  6) = 0.9568447915977148D+00
        ws(  7) = 0.8206977773195979D+00
        ws(  8) = 0.9228144712289247D+00
        ws(  9) = 0.1129078375224910D+01
        ws( 10) = 0.1625382598552464D+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 =  12
        err = 0.5694318553611535D-04
        xs(  1) = 0.1259353338552606D+01
        xs(  2) = 0.2187873913702528D+01
        xs(  3) = 0.3138546982744413D+01
        xs(  4) = 0.4088119804342851D+01
        xs(  5) = 0.5020455721607559D+01
        xs(  6) = 0.5953411708489981D+01
        xs(  7) = 0.6890058869777157D+01
        xs(  8) = 0.7808372356583259D+01
        xs(  9) = 0.8764037675615755D+01
        xs( 10) = 0.9712111977926297D+01
        xs( 11) = 0.1065401123541968D+02
        xs( 12) = 0.1155568727025503D+02
        ws(  1) = 0.9650183692887825D+00
        ws(  2) = 0.1048098842426748D+01
        ws(  3) = 0.9870528283100368D+00
        ws(  4) = 0.9350176147756513D+00
        ws(  5) = 0.9115899050262979D+00
        ws(  6) = 0.9176561147568318D+00
        ws(  7) = 0.9268020548479888D+00
        ws(  8) = 0.8948399225959369D+00
        ws(  9) = 0.9274693255782143D+00
        ws( 10) = 0.9603504294614832D+00
        ws( 11) = 0.1067596088678800D+01
        ws( 12) = 0.8485259296369368D+00
        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 =  14
        err = 0.5313334239511013D-04
        xs(  1) = 0.1309336699233905D+01
        xs(  2) = 0.2247167725322610D+01
        xs(  3) = 0.3223134577390961D+01
        xs(  4) = 0.4197320378792579D+01
        xs(  5) = 0.5148597691811901D+01
        xs(  6) = 0.6092011640078284D+01
        xs(  7) = 0.7034571314582083D+01
        xs(  8) = 0.7961794883391032D+01
        xs(  9) = 0.8888700787031341D+01
        xs( 10) = 0.9828239939296543D+01
        xs( 11) = 0.1077484608086908D+02
        xs( 12) = 0.1172507029671355D+02
        xs( 13) = 0.1260725106947815D+02
        xs( 14) = 0.1361243294069034D+02
        ws(  1) = 0.1035165920970917D+01
        ws(  2) = 0.1101461238542648D+01
        ws(  3) = 0.9878497164483356D+00
        ws(  4) = 0.9413943773158077D+00
        ws(  5) = 0.9293855808057094D+00
        ws(  6) = 0.9359924257971992D+00
        ws(  7) = 0.9405600309777975D+00
        ws(  8) = 0.9032872625803336D+00
        ws(  9) = 0.9375140987228839D+00
        ws( 10) = 0.9608727632035091D+00
        ws( 11) = 0.9692907626692038D+00
        ws( 12) = 0.7428746632091774D+00
        ws( 13) = 0.7146406745191733D+00
        ws( 14) = 0.1445226983972709D+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 =  17
        err = 0.3789588948530069D-04
        xs(  1) = 0.1235711879383133D+01
        xs(  2) = 0.2177301892004282D+01
        xs(  3) = 0.3151420806037035D+01
        xs(  4) = 0.4120267547794613D+01
        xs(  5) = 0.5073427149290960D+01
        xs(  6) = 0.6016114314777635D+01
        xs(  7) = 0.6958088332981432D+01
        xs(  8) = 0.7894318429409342D+01
        xs(  9) = 0.8820500035668431D+01
        xs( 10) = 0.9752535605053046D+01
        xs( 11) = 0.1065459225407754D+02
        xs( 12) = 0.1154557632640794D+02
        xs( 13) = 0.1245578421097446D+02
        xs( 14) = 0.1338650231903855D+02
        xs( 15) = 0.1421184611032535D+02
        xs( 16) = 0.1525125189962551D+02
        xs( 17) = 0.1600543783526168D+02
        ws(  1) = 0.1102263782305394D+01
        ws(  2) = 0.1048503403055734D+01
        ws(  3) = 0.9640753640402173D+00
        ws(  4) = 0.9411430135747531D+00
        ws(  5) = 0.9444792543950984D+00
        ws(  6) = 0.9444038148564491D+00
        ws(  7) = 0.9409461397297169D+00
        ws(  8) = 0.9277627012228300D+00
        ws(  9) = 0.9183627390652161D+00
        ws( 10) = 0.9180293808119009D+00
        ws( 11) = 0.9167514216240220D+00
        ws( 12) = 0.8887361429560271D+00
        ws( 13) = 0.9048943009866756D+00
        ws( 14) = 0.8322702310019288D+00
        ws( 15) = 0.7394700457489769D+00
        ws( 16) = 0.1036182886032164D+01
        ws( 17) = 0.1016290643850039D+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 =  18
        err = 0.9458676414635157D-04
        xs(  1) = 0.1796844987286075D+01
        xs(  2) = 0.2669892553850455D+01
        xs(  3) = 0.3691277593566645D+01
        xs(  4) = 0.4703040382745139D+01
        xs(  5) = 0.5674177797229791D+01
        xs(  6) = 0.6618398995935553D+01
        xs(  7) = 0.7567269541560919D+01
        xs(  8) = 0.8533551909662553D+01
        xs(  9) = 0.9475406568141240D+01
        xs( 10) = 0.1040728157285018D+02
        xs( 11) = 0.1135315311474357D+02
        xs( 12) = 0.1227775170111426D+02
        xs( 13) = 0.1318381078556594D+02
        xs( 14) = 0.1412064929706006D+02
        xs( 15) = 0.1503178145464279D+02
        xs( 16) = 0.1590049286476102D+02
        xs( 17) = 0.1683886153142192D+02
        xs( 18) = 0.1782837236981163D+02
        ws(  1) = 0.1250236842016775D+01
        ws(  2) = 0.1173183115621615D+01
        ws(  3) = 0.9116580566098063D+00
        ws(  4) = 0.9308437338642935D+00
        ws(  5) = 0.9571763186940818D+00
        ws(  6) = 0.9647186641427675D+00
        ws(  7) = 0.9801928866991242D+00
        ws(  8) = 0.9567635794707684D+00
        ws(  9) = 0.9235879426550360D+00
        ws( 10) = 0.9751154689053684D+00
        ws( 11) = 0.8610476856892275D+00
        ws( 12) = 0.9397820967744070D+00
        ws( 13) = 0.9616663583302286D+00
        ws( 14) = 0.9861263652133003D+00
        ws( 15) = 0.8632619179625834D+00
        ws( 16) = 0.9635751275815508D+00
        ws( 17) = 0.7368612201984768D+00
        ws( 18) = 0.1633633756188451D+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 =  19
        err = 0.9533611206332516D-04
        xs(  1) = 0.1823086716952663D+01
        xs(  2) = 0.2691289011006435D+01
        xs(  3) = 0.3739794362836810D+01
        xs(  4) = 0.4749127247979206D+01
        xs(  5) = 0.5726941674131659D+01
        xs(  6) = 0.6693698404090568D+01
        xs(  7) = 0.7653384930922476D+01
        xs(  8) = 0.8629186432510910D+01
        xs(  9) = 0.9590210533339993D+01
        xs( 10) = 0.1052636020661099D+02
        xs( 11) = 0.1148613245382371D+02
        xs( 12) = 0.1241305882663050D+02
        xs( 13) = 0.1335526249469909D+02
        xs( 14) = 0.1430040633544571D+02
        xs( 15) = 0.1515680520082034D+02
        xs( 16) = 0.1608327428854736D+02
        xs( 17) = 0.1697747061575296D+02
        xs( 18) = 0.1791913989310909D+02
        xs( 19) = 0.1965233275023845D+02
        ws(  1) = 0.1294820638851568D+01
        ws(  2) = 0.1137328894947202D+01
        ws(  3) = 0.8651641738044310D+00
        ws(  4) = 0.9711474006138358D+00
        ws(  5) = 0.1004728648967489D+01
        ws(  6) = 0.1000618738012603D+01
        ws(  7) = 0.9669760057855458D+00
        ws(  8) = 0.9450501423866979D+00
        ws(  9) = 0.9465315372081948D+00
        ws( 10) = 0.9013521926762788D+00
        ws( 11) = 0.9357424996201578D+00
        ws( 12) = 0.9794089431250950D+00
        ws( 13) = 0.9344386310713837D+00
        ws( 14) = 0.8418534199063256D+00
        ws( 15) = 0.8934898474509622D+00
        ws( 16) = 0.8730291578207370D+00
        ws( 17) = 0.8770188859082021D+00
        ws( 18) = 0.1136813482123950D+01
        ws( 19) = 0.1527322233763024D+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 =  22
        err = 0.7697147763046927D-04
        xs(  1) = 0.1807807605377798D+01
        xs(  2) = 0.2667718871638302D+01
        xs(  3) = 0.3699134169648588D+01
        xs(  4) = 0.4699633932858420D+01
        xs(  5) = 0.5668965392536828D+01
        xs(  6) = 0.6631651869819947D+01
        xs(  7) = 0.7594831022217485D+01
        xs(  8) = 0.8564788753401782D+01
        xs(  9) = 0.9528177775513038D+01
        xs( 10) = 0.1047905385195532D+02
        xs( 11) = 0.1142870295232351D+02
        xs( 12) = 0.1237063717390390D+02
        xs( 13) = 0.1332203096481311D+02
        xs( 14) = 0.1425052477196105D+02
        xs( 15) = 0.1517233107868940D+02
        xs( 16) = 0.1607003007654819D+02
        xs( 17) = 0.1700943208859354D+02
        xs( 18) = 0.1790020852433651D+02
        xs( 19) = 0.1880557590773382D+02
        xs( 20) = 0.1968638555500402D+02
        xs( 21) = 0.2054884402035254D+02
        xs( 22) = 0.2184727444384474D+02
        ws(  1) = 0.1259119022129872D+01
        ws(  2) = 0.1120611831133189D+01
        ws(  3) = 0.8466702673746008D+00
        ws(  4) = 0.9495549512719565D+00
        ws(  5) = 0.1008514147735695D+01
        ws(  6) = 0.1003832498971958D+01
        ws(  7) = 0.9684453765505596D+00
        ws(  8) = 0.9481069870609516D+00
        ws(  9) = 0.9458536661668558D+00
        ws( 10) = 0.9287706315714445D+00
        ws( 11) = 0.9455983473058780D+00
        ws( 12) = 0.9450284146896626D+00
        ws( 13) = 0.9567413428410071D+00
        ws( 14) = 0.9318128818341640D+00
        ws( 15) = 0.8263732447796917D+00
        ws( 16) = 0.9411209942910548D+00
        ws( 17) = 0.8443049921107781D+00
        ws( 18) = 0.1073914318176575D+01
        ws( 19) = 0.7292754808871064D+00
        ws( 20) = 0.6957879575518633D+00
        ws( 21) = 0.8620170850539376D+00
        ws( 22) = 0.1288113866736750D+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 =  23
        err = 0.8200720146378264D-04
        xs(  1) = 0.1810185365310513D+01
        xs(  2) = 0.2670936176511874D+01
        xs(  3) = 0.3739049902488460D+01
        xs(  4) = 0.4744938837306572D+01
        xs(  5) = 0.5725471203213261D+01
        xs(  6) = 0.6696643109691279D+01
        xs(  7) = 0.7661347656019625D+01
        xs(  8) = 0.8641079520980202D+01
        xs(  9) = 0.9616715789102519D+01
        xs( 10) = 0.1058351532654729D+02
        xs( 11) = 0.1152402514024562D+02
        xs( 12) = 0.1249514628639369D+02
        xs( 13) = 0.1344131978570436D+02
        xs( 14) = 0.1436179205651568D+02
        xs( 15) = 0.1530129044151226D+02
        xs( 16) = 0.1623420808016640D+02
        xs( 17) = 0.1713402433750101D+02
        xs( 18) = 0.1810612947381491D+02
        xs( 19) = 0.1893704232346858D+02
        xs( 20) = 0.1983217755185966D+02
        xs( 21) = 0.2059872783935965D+02
        xs( 22) = 0.2185861819693370D+02
        xs( 23) = 0.2253692859069143D+02
        ws(  1) = 0.1300961932751343D+01
        ws(  2) = 0.1108894595834591D+01
        ws(  3) = 0.8476786564485586D+00
        ws(  4) = 0.9951087242618981D+00
        ws(  5) = 0.1033096030118896D+01
        ws(  6) = 0.1006542125974310D+01
        ws(  7) = 0.9521690019606555D+00
        ws(  8) = 0.9586765138114955D+00
        ws(  9) = 0.9564122782966477D+00
        ws( 10) = 0.9324455950236423D+00
        ws( 11) = 0.9770227011554685D+00
        ws( 12) = 0.9068315286841619D+00
        ws( 13) = 0.1005110638078580D+01
        ws( 14) = 0.9753028221625518D+00
        ws( 15) = 0.8273003358697707D+00
        ws( 16) = 0.9155797662526312D+00
        ws( 17) = 0.8131652198551520D+00
        ws( 18) = 0.9227391645408209D+00
        ws( 19) = 0.1035694675659224D+01
        ws( 20) = 0.6779013095579614D+00
        ws( 21) = 0.6006083591989957D+00
        ws( 22) = 0.5964485296264691D+00
        ws( 23) = 0.1147425963403258D+01
        endif
        if( idomain .eq.  225 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.3455751918948772D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  26
        err = 0.7539529442557195D-04
        xs(  1) = 0.1861367812805095D+01
        xs(  2) = 0.2746934655081864D+01
        xs(  3) = 0.3837830635225289D+01
        xs(  4) = 0.4862592130575635D+01
        xs(  5) = 0.5868117654741451D+01
        xs(  6) = 0.6856152236537231D+01
        xs(  7) = 0.7845677107060591D+01
        xs(  8) = 0.8820233451910880D+01
        xs(  9) = 0.9827084596237636D+01
        xs( 10) = 0.1080262286610449D+02
        xs( 11) = 0.1177599050883386D+02
        xs( 12) = 0.1274753705335228D+02
        xs( 13) = 0.1371438917527788D+02
        xs( 14) = 0.1465577628166732D+02
        xs( 15) = 0.1561841861726977D+02
        xs( 16) = 0.1656553622796395D+02
        xs( 17) = 0.1747715451952249D+02
        xs( 18) = 0.1846961994071613D+02
        xs( 19) = 0.1928307897576138D+02
        xs( 20) = 0.2031306289074327D+02
        xs( 21) = 0.2116934052139751D+02
        xs( 22) = 0.2200471018804905D+02
        xs( 23) = 0.2283436554259949D+02
        xs( 24) = 0.2378690330463581D+02
        xs( 25) = 0.2513897653730779D+02
        xs( 26) = 0.2617575906145356D+02
        ws(  1) = 0.1355603885645991D+01
        ws(  2) = 0.1095089616072117D+01
        ws(  3) = 0.8849256646307393D+00
        ws(  4) = 0.1012869181820325D+01
        ws(  5) = 0.1061668112904420D+01
        ws(  6) = 0.1018797324754193D+01
        ws(  7) = 0.9788932181005975D+00
        ws(  8) = 0.9685264953292515D+00
        ws(  9) = 0.9860484310510536D+00
        ws( 10) = 0.9672078422989860D+00
        ws( 11) = 0.9441264090611380D+00
        ws( 12) = 0.9470348322787084D+00
        ws( 13) = 0.1001100167609021D+01
        ws( 14) = 0.9083610234437020D+00
        ws( 15) = 0.9791604582857207D+00
        ws( 16) = 0.9319020533175640D+00
        ws( 17) = 0.8159538889934541D+00
        ws( 18) = 0.9784004021998417D+00
        ws( 19) = 0.9355635409684842D+00
        ws( 20) = 0.8920035697792310D+00
        ws( 21) = 0.8619881792346960D+00
        ws( 22) = 0.7006081373409084D+00
        ws( 23) = 0.7513518858054089D+00
        ws( 24) = 0.1309843046310787D+01
        ws( 25) = 0.5336352262681577D+00
        ws( 26) = 0.1147316291221452D+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 =  27
        err = 0.8507955430792653D-04
        xs(  1) = 0.2301066535298815D+01
        xs(  2) = 0.3154590649832894D+01
        xs(  3) = 0.4287880819764892D+01
        xs(  4) = 0.5293004974743209D+01
        xs(  5) = 0.6341329380967002D+01
        xs(  6) = 0.7310088203158333D+01
        xs(  7) = 0.8302789956820900D+01
        xs(  8) = 0.9254000242592628D+01
        xs(  9) = 0.1030621239057201D+02
        xs( 10) = 0.1125296396345351D+02
        xs( 11) = 0.1223542382123540D+02
        xs( 12) = 0.1319591939818313D+02
        xs( 13) = 0.1418895983152805D+02
        xs( 14) = 0.1510104496732606D+02
        xs( 15) = 0.1611106368739453D+02
        xs( 16) = 0.1706368602061725D+02
        xs( 17) = 0.1796219777090830D+02
        xs( 18) = 0.1894556010839320D+02
        xs( 19) = 0.1982833598201771D+02
        xs( 20) = 0.2083487583554552D+02
        xs( 21) = 0.2167845427496522D+02
        xs( 22) = 0.2252684326833739D+02
        xs( 23) = 0.2356699918804456D+02
        xs( 24) = 0.2439584472146793D+02
        xs( 25) = 0.2540908101687757D+02
        xs( 26) = 0.2601895857751708D+02
        xs( 27) = 0.2804766262697080D+02
        ws(  1) = 0.1389735441204126D+01
        ws(  2) = 0.1094704814650010D+01
        ws(  3) = 0.9159273683300961D+00
        ws(  4) = 0.9790181621494043D+00
        ws(  5) = 0.1083424238553466D+01
        ws(  6) = 0.1021122187957147D+01
        ws(  7) = 0.9876854230109526D+00
        ws(  8) = 0.9450815569351523D+00
        ws(  9) = 0.1014539166334302D+01
        ws( 10) = 0.1010292515308763D+01
        ws( 11) = 0.8506348156614550D+00
        ws( 12) = 0.1037162004167204D+01
        ws( 13) = 0.9241772253162248D+00
        ws( 14) = 0.9867535533888839D+00
        ws( 15) = 0.9414281070498453D+00
        ws( 16) = 0.8262668175528946D+00
        ws( 17) = 0.1077485376206257D+01
        ws( 18) = 0.8799278709549720D+00
        ws( 19) = 0.1071452152408402D+01
        ws( 20) = 0.8186222040892359D+00
        ws( 21) = 0.9161946994763760D+00
        ws( 22) = 0.9502582687615156D+00
        ws( 23) = 0.7755674536996358D+00
        ws( 24) = 0.1192086992791584D+01
        ws( 25) = 0.4319196726000402D+00
        ws( 26) = 0.1138325646349615D+01
        ws( 27) = 0.1446142297022684D+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 =  30
        err = 0.6134103586488899D-04
        xs(  1) = 0.1529567311286761D+01
        xs(  2) = 0.2447758000134957D+01
        xs(  3) = 0.3441349401930428D+01
        xs(  4) = 0.4515221208051383D+01
        xs(  5) = 0.5520416441203901D+01
        xs(  6) = 0.6525488309545236D+01
        xs(  7) = 0.7527859570631744D+01
        xs(  8) = 0.8529164083808389D+01
        xs(  9) = 0.9521835996531722D+01
        xs( 10) = 0.1051589306719602D+02
        xs( 11) = 0.1151296408525261D+02
        xs( 12) = 0.1252078631621708D+02
        xs( 13) = 0.1348760221564581D+02
        xs( 14) = 0.1447253009212904D+02
        xs( 15) = 0.1546158652219294D+02
        xs( 16) = 0.1645585546152729D+02
        xs( 17) = 0.1733717276203925D+02
        xs( 18) = 0.1839915907229436D+02
        xs( 19) = 0.1928610817037503D+02
        xs( 20) = 0.2029100499387169D+02
        xs( 21) = 0.2122220069366903D+02
        xs( 22) = 0.2208949588868660D+02
        xs( 23) = 0.2305431703830583D+02
        xs( 24) = 0.2404435670014245D+02
        xs( 25) = 0.2498095730995424D+02
        xs( 26) = 0.2559877641178754D+02
        xs( 27) = 0.2661604688778750D+02
        xs( 28) = 0.2758960735688440D+02
        xs( 29) = 0.2862337081206938D+02
        xs( 30) = 0.2964889779246414D+02
        ws(  1) = 0.8856552096483216D+00
        ws(  2) = 0.1195407645327721D+01
        ws(  3) = 0.9436771812163088D+00
        ws(  4) = 0.9979249224817288D+00
        ws(  5) = 0.1041195378413733D+01
        ws(  6) = 0.1052229791529478D+01
        ws(  7) = 0.9310778358699345D+00
        ws(  8) = 0.1009085735264891D+01
        ws(  9) = 0.1011557424909470D+01
        ws( 10) = 0.1073566747363962D+01
        ws( 11) = 0.8346878804128463D+00
        ws( 12) = 0.1089515489709505D+01
        ws( 13) = 0.9862739340043087D+00
        ws( 14) = 0.1020076844113111D+01
        ws( 15) = 0.8910572158623112D+00
        ws( 16) = 0.9530480598769926D+00
        ws( 17) = 0.9560251797229198D+00
        ws( 18) = 0.1026992327583517D+01
        ws( 19) = 0.9786908255155462D+00
        ws( 20) = 0.9673679547040628D+00
        ws( 21) = 0.8173761963443757D+00
        ws( 22) = 0.1074808849156696D+01
        ws( 23) = 0.9988999499180748D+00
        ws( 24) = 0.6735680518262259D+00
        ws( 25) = 0.1206277410604155D+01
        ws( 26) = 0.4430704350722663D+00
        ws( 27) = 0.1192553463778766D+01
        ws( 28) = 0.7391960141448310D+00
        ws( 29) = 0.3692633290233774D+00
        ws( 30) = 0.1240361758353989D+01
        endif
        if( idomain .eq.  228 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  32
        err = 0.8370075448670465D-04
        xs(  1) = 0.2013340975266288D+01
        xs(  2) = 0.2776628161259093D+01
        xs(  3) = 0.4108446737532948D+01
        xs(  4) = 0.4998762143738052D+01
        xs(  5) = 0.6041244100058867D+01
        xs(  6) = 0.7075687856583232D+01
        xs(  7) = 0.8068806756348470D+01
        xs(  8) = 0.9076691527795820D+01
        xs(  9) = 0.1003152380929976D+02
        xs( 10) = 0.1111203587850339D+02
        xs( 11) = 0.1205429662673549D+02
        xs( 12) = 0.1306848357685207D+02
        xs( 13) = 0.1404293277673558D+02
        xs( 14) = 0.1505083030997222D+02
        xs( 15) = 0.1601911665751059D+02
        xs( 16) = 0.1701039994264340D+02
        xs( 17) = 0.1796047300764523D+02
        xs( 18) = 0.1894090535738961D+02
        xs( 19) = 0.1990703470661621D+02
        xs( 20) = 0.2090464747918616D+02
        xs( 21) = 0.2179354600074924D+02
        xs( 22) = 0.2276815628529886D+02
        xs( 23) = 0.2367808145498245D+02
        xs( 24) = 0.2459769362158201D+02
        xs( 25) = 0.2564495891998624D+02
        xs( 26) = 0.2640074295032864D+02
        xs( 27) = 0.2733554483145502D+02
        xs( 28) = 0.2834212883994314D+02
        xs( 29) = 0.2915708779073752D+02
        xs( 30) = 0.3027571795567646D+02
        xs( 31) = 0.3095317543301860D+02
        xs( 32) = 0.3304810054672956D+02
        ws(  1) = 0.1439912215416856D+01
        ws(  2) = 0.1063413097223634D+01
        ws(  3) = 0.9015607451703743D+00
        ws(  4) = 0.1101607333698318D+01
        ws(  5) = 0.1056376394056940D+01
        ws(  6) = 0.9234065734738415D+00
        ws(  7) = 0.1098441555860769D+01
        ws(  8) = 0.9542758904460522D+00
        ws(  9) = 0.9939548104866734D+00
        ws( 10) = 0.9743765001200355D+00
        ws( 11) = 0.1049188137411758D+01
        ws( 12) = 0.1002553629399699D+01
        ws( 13) = 0.9170299477211321D+00
        ws( 14) = 0.1054560901814133D+01
        ws( 15) = 0.9626278645045206D+00
        ws( 16) = 0.9394461580099542D+00
        ws( 17) = 0.1027656292218152D+01
        ws( 18) = 0.8799393377796650D+00
        ws( 19) = 0.9911035854131565D+00
        ws( 20) = 0.1050440585613527D+01
        ws( 21) = 0.9611553870609701D+00
        ws( 22) = 0.8585187048291270D+00
        ws( 23) = 0.9629250709273277D+00
        ws( 24) = 0.8321366247533953D+00
        ws( 25) = 0.1045973025291996D+01
        ws( 26) = 0.8926714664075037D+00
        ws( 27) = 0.8149350030000052D+00
        ws( 28) = 0.8344881235527652D+00
        ws( 29) = 0.6867700757720067D+00
        ws( 30) = 0.1002868528866949D+01
        ws( 31) = 0.7353920354226638D+00
        ws( 32) = 0.1123960677996538D+01
        endif
        if( idomain .eq.  229 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  36
        err = 0.6223140156384300D-04
        xs(  1) = 0.1866968099736883D+01
        xs(  2) = 0.2717431502492964D+01
        xs(  3) = 0.3930528440207742D+01
        xs(  4) = 0.4932337878479018D+01
        xs(  5) = 0.5931547552170833D+01
        xs(  6) = 0.6952205293013458D+01
        xs(  7) = 0.7969493542690677D+01
        xs(  8) = 0.8975403596260922D+01
        xs(  9) = 0.9972431146887763D+01
        xs( 10) = 0.1098945665705836D+02
        xs( 11) = 0.1197499335532067D+02
        xs( 12) = 0.1298668881575165D+02
        xs( 13) = 0.1395717549700341D+02
        xs( 14) = 0.1497134643785986D+02
        xs( 15) = 0.1593500404421600D+02
        xs( 16) = 0.1691872818575010D+02
        xs( 17) = 0.1787946079836733D+02
        xs( 18) = 0.1885141536070585D+02
        xs( 19) = 0.1983002287841903D+02
        xs( 20) = 0.2078960997993539D+02
        xs( 21) = 0.2170353801345841D+02
        xs( 22) = 0.2267860164271966D+02
        xs( 23) = 0.2360422033960303D+02
        xs( 24) = 0.2455050645020347D+02
        xs( 25) = 0.2552734910862051D+02
        xs( 26) = 0.2637833864758041D+02
        xs( 27) = 0.2730278731581368D+02
        xs( 28) = 0.2824453160091022D+02
        xs( 29) = 0.2911989376555403D+02
        xs( 30) = 0.3008895557811655D+02
        xs( 31) = 0.3094040550020138D+02
        xs( 32) = 0.3185318664598455D+02
        xs( 33) = 0.3271575705612602D+02
        xs( 34) = 0.3355008614997908D+02
        xs( 35) = 0.3448140182664476D+02
        xs( 36) = 0.3637420477161058D+02
        ws(  1) = 0.1725144770111586D+01
        ws(  2) = 0.8542357420133958D+00
        ws(  3) = 0.9939124894849303D+00
        ws(  4) = 0.9958222008467043D+00
        ws(  5) = 0.1136396049063762D+01
        ws(  6) = 0.9673655436227221D+00
        ws(  7) = 0.1010020875121107D+01
        ws(  8) = 0.9591188621052152D+00
        ws(  9) = 0.1058710404977918D+01
        ws( 10) = 0.9578026935028008D+00
        ws( 11) = 0.1038092154117425D+01
        ws( 12) = 0.9888266222951674D+00
        ws( 13) = 0.9592684064313537D+00
        ws( 14) = 0.1000415064611957D+01
        ws( 15) = 0.9920308635206094D+00
        ws( 16) = 0.9839253672575078D+00
        ws( 17) = 0.9800176208351754D+00
        ws( 18) = 0.9387154683254262D+00
        ws( 19) = 0.9547924928751212D+00
        ws( 20) = 0.9754000291545180D+00
        ws( 21) = 0.9329572624875032D+00
        ws( 22) = 0.9615063511289874D+00
        ws( 23) = 0.9756628332140225D+00
        ws( 24) = 0.8969398569438072D+00
        ws( 25) = 0.9658337078620950D+00
        ws( 26) = 0.8386385054553716D+00
        ws( 27) = 0.9442428620112758D+00
        ws( 28) = 0.9059043870395176D+00
        ws( 29) = 0.9261919996706666D+00
        ws( 30) = 0.8722513765829863D+00
        ws( 31) = 0.8404065023024355D+00
        ws( 32) = 0.9998941375810656D+00
        ws( 33) = 0.5118853876632891D+00
        ws( 34) = 0.1030258491639697D+01
        ws( 35) = 0.1053126047208637D+01
        ws( 36) = 0.1380195924340097D+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 =  37
        err = 0.9285142974443171D-04
        xs(  1) = 0.1985437075607160D+01
        xs(  2) = 0.2739975105413858D+01
        xs(  3) = 0.4087940131137281D+01
        xs(  4) = 0.4963646443076315D+01
        xs(  5) = 0.6019448431030711D+01
        xs(  6) = 0.6929859491407073D+01
        xs(  7) = 0.8020113941224199D+01
        xs(  8) = 0.9016320124919451D+01
        xs(  9) = 0.1002512394860360D+02
        xs( 10) = 0.1098395439708440D+02
        xs( 11) = 0.1201568919395942D+02
        xs( 12) = 0.1301290474183706D+02
        xs( 13) = 0.1399431525165729D+02
        xs( 14) = 0.1500503437653854D+02
        xs( 15) = 0.1595673689356594D+02
        xs( 16) = 0.1693193049776830D+02
        xs( 17) = 0.1791912138123668D+02
        xs( 18) = 0.1889869240434603D+02
        xs( 19) = 0.1985886855411005D+02
        xs( 20) = 0.2083129267430799D+02
        xs( 21) = 0.2175230564213545D+02
        xs( 22) = 0.2270564649438204D+02
        xs( 23) = 0.2364923722437618D+02
        xs( 24) = 0.2460510289137947D+02
        xs( 25) = 0.2551873711176267D+02
        xs( 26) = 0.2648951565619184D+02
        xs( 27) = 0.2735306905535908D+02
        xs( 28) = 0.2827099645639847D+02
        xs( 29) = 0.2915664281385612D+02
        xs( 30) = 0.3012597967090035D+02
        xs( 31) = 0.3092489043368794D+02
        xs( 32) = 0.3193705878158065D+02
        xs( 33) = 0.3279025282435626D+02
        xs( 34) = 0.3345597713609356D+02
        xs( 35) = 0.3450997713344250D+02
        xs( 36) = 0.3535421081486939D+02
        xs( 37) = 0.3635740774392499D+02
        ws(  1) = 0.1483325341049202D+01
        ws(  2) = 0.1134576497458597D+01
        ws(  3) = 0.7676668751447315D+00
        ws(  4) = 0.1007633080768223D+01
        ws(  5) = 0.1231596399492290D+01
        ws(  6) = 0.9032755036659785D+00
        ws(  7) = 0.9604923645235958D+00
        ws(  8) = 0.9800852520265548D+00
        ws(  9) = 0.1035295481344585D+01
        ws( 10) = 0.1115803081630278D+01
        ws( 11) = 0.9276576883845522D+00
        ws( 12) = 0.9300979282701539D+00
        ws( 13) = 0.9747258677719454D+00
        ws( 14) = 0.1087426588447726D+01
        ws( 15) = 0.9921146571146606D+00
        ws( 16) = 0.9177300553012383D+00
        ws( 17) = 0.9684993295517399D+00
        ws( 18) = 0.9170953259183952D+00
        ws( 19) = 0.9802326933659281D+00
        ws( 20) = 0.1021549799099596D+01
        ws( 21) = 0.1000016468279164D+01
        ws( 22) = 0.9090519053324041D+00
        ws( 23) = 0.9374958278855858D+00
        ws( 24) = 0.1005797621891713D+01
        ws( 25) = 0.8700531300739563D+00
        ws( 26) = 0.9026099938683068D+00
        ws( 27) = 0.1042510112122252D+01
        ws( 28) = 0.9621889901705996D+00
        ws( 29) = 0.8102703729123077D+00
        ws( 30) = 0.9402782816537898D+00
        ws( 31) = 0.7503142769830407D+00
        ws( 32) = 0.8942794361151538D+00
        ws( 33) = 0.8893032925637517D+00
        ws( 34) = 0.5472877053727500D+00
        ws( 35) = 0.4655383215061836D+00
        ws( 36) = 0.5623963419442218D+00
        ws( 37) = 0.5575200286045631D+00
        endif
        if( idomain .eq.  231 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.9424777960769379D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =   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
