1! Module to contain all the Gauss-Fermi quadrature points 2! It has been created by an automatic script created by: 3! Nick Papior Andersen, 2013, nickpapior@gmail.com 4! If you ever need to use this please contact the author for approval 5 6! We have employed the Stieltjes and moment algorithm together with the Golub-Welsch 7! for an efficient and fairly accurate stability of the orthogonal polynomials. 8 9module m_gauss_fermi_19 10 11 implicit none 12 13 integer, parameter :: p = selected_real_kind(14,300) 14 15 integer, parameter :: G_NF_MIN_N = 2 16 integer, parameter :: G_NF_MAX_N = 17 17 integer, parameter :: G_NF_MIN_kT = -20 18 integer, parameter :: G_NF_MAX_kT = 5 19 20 private 21 public :: G_NF_MIN_N 22 public :: G_NF_MAX_N 23 public :: G_NF_MIN_kT 24 public :: G_NF_MAX_kT 25 public :: GaussFermi_19 26 27contains 28 29 ! Die routine for the Gauss-Fermi routines 30 subroutine GD(NkT) 31 integer, intent(in) :: NkT 32 write(*,*) 'Error in Gauss-Fermi ',NkT 33 call die('Error in number of points for Gauss-Fermi, see output.') 34 end subroutine GD 35 36 subroutine GaussFermi_19(NkT,N,x,w) 37 integer, intent(in) :: NkT, N 38 real(p), intent(out) :: x(N), w(N) 39 40 if ( NkT == -20 ) then 41 call GF_m20(N,x,w) 42 else if ( NkT == -19 ) then 43 call GF_m19(N,x,w) 44 else if ( NkT == -18 ) then 45 call GF_m18(N,x,w) 46 else if ( NkT == -17 ) then 47 call GF_m17(N,x,w) 48 else if ( NkT == -16 ) then 49 call GF_m16(N,x,w) 50 else if ( NkT == -15 ) then 51 call GF_m15(N,x,w) 52 else if ( NkT == -14 ) then 53 call GF_m14(N,x,w) 54 else if ( NkT == -13 ) then 55 call GF_m13(N,x,w) 56 else if ( NkT == -12 ) then 57 call GF_m12(N,x,w) 58 else if ( NkT == -11 ) then 59 call GF_m11(N,x,w) 60 else if ( NkT == -10 ) then 61 call GF_m10(N,x,w) 62 else if ( NkT == -9 ) then 63 call GF_m9(N,x,w) 64 else if ( NkT == -8 ) then 65 call GF_m8(N,x,w) 66 else if ( NkT == -7 ) then 67 call GF_m7(N,x,w) 68 else if ( NkT == -6 ) then 69 call GF_m6(N,x,w) 70 else if ( NkT == -5 ) then 71 call GF_m5(N,x,w) 72 else if ( NkT == -4 ) then 73 call GF_m4(N,x,w) 74 else if ( NkT == -3 ) then 75 call GF_m3(N,x,w) 76 else if ( NkT == -2 ) then 77 call GF_m2(N,x,w) 78 else if ( NkT == -1 ) then 79 call GF_m1(N,x,w) 80 else if ( NkT == 0 ) then 81 call GF_0(N,x,w) 82 else if ( NkT == 1 ) then 83 call GF_1(N,x,w) 84 else if ( NkT == 2 ) then 85 call GF_2(N,x,w) 86 else if ( NkT == 3 ) then 87 call GF_3(N,x,w) 88 else if ( NkT == 4 ) then 89 call GF_4(N,x,w) 90 else if ( NkT == 5 ) then 91 call GF_5(N,x,w) 92 else 93 call die('Could not figure out the Gauss-Fermi & 94 &quadratue method you asked for.') 95 end if 96 end subroutine GaussFermi_19 97 98 99! [-20kT;19kT] 100subroutine GF_m20(N,x,w) 101integer,intent(in)::N 102real(p),intent(out)::x(N),w(N) 103if(N==2)then 104x(1)=-15.59867307941634_p 105w(1)=10.40132042031513_p 106x(2)=-3.761795460646811_p 107w(2)=9.598679576143224_p 108else if(N==3)then 109x(1)=-17.56069690137027_p 110w(1)=6.008951988025991_p 111x(2)=-9.213298429796698_p 112w(2)=9.514823306971520_p 113x(3)=-1.155164283035185_p 114w(3)=4.476224701460845_p 115else if(N==4)then 116x(1)=-18.43110491437138_p 117w(1)=3.928589467426063_p 118x(2)=-12.55788085551937_p 119w(2)=7.327533963639898_p 120x(3)=-5.008613420170193_p 121w(3)=7.006533301213313_p 122x(4)=6.702726954596806e-1_p 123w(4)=1.737343264179083_p 124else if(N==5)then 125x(1)=-18.89090621794261_p 126w(1)=2.799893227985836_p 127x(2)=-14.5528553808479_p 128w(2)=5.634684579088588_p 129x(3)=-8.252157757238948_p 130w(3)=6.589927942730289_p 131x(4)=-2.227028788656793_p 132w(4)=4.559011614681439_p 133x(5)=2.574847356051018_p 134w(5)=4.164826319722069e-1_p 135else if(N==6)then 136x(1)=-19.1643199087578_p 137w(1)=2.119453067912400_p 138x(2)=-15.81364475558247_p 139w(2)=4.448348480719039_p 140x(3)=-10.62563437372994_p 141w(3)=5.710012995324859_p 142x(4)=-4.897449131161411_p 143w(4)=5.411430976597063_p 144x(5)=-2.123643258610887e-1_p 145w(5)=2.256910454234269_p 146x(6)=4.855111319321981_p 147w(6)=5.384402167072849e-2_p 148else if(N==7)then 149x(1)=-19.34152615542642_p 150w(1)=1.674860956062843_p 151x(2)=-16.66030439999633_p 152w(2)=3.607239245310709_p 153x(3)=-12.34647837283948_p 154w(3)=4.884908730204188_p 155x(4)=-7.206093039573076_p 156w(4)=5.210890364919567_p 157x(5)=-2.344119976089479_p 158w(5)=3.916231548863814_p 159x(6)=1.632316614428218_p 160w(6)=7.013080450759883e-1_p 161x(7)=7.442357290369917_p 162w(7)=4.561106021247109e-3_p 163else if(N==8)then 164x(1)=-19.46456460393432_p 165w(1)=1.364546843468830_p 166x(2)=-17.2617513223317_p 167w(2)=2.989675259703235_p 168x(3)=-13.62759880969867_p 169w(3)=4.189711115166416_p 170x(4)=-9.091316322965405_p 171w(4)=4.762718003902875_p 172x(5)=-4.379390592935830_p 173w(5)=4.437832317701996_p 174x(6)=-3.827482109608433e-1_p 175w(6)=2.131265306172542_p 176x(7)=3.669522694201822_p 177w(7)=1.239177105003788e-1_p 178x(8)=10.11679554680551_p 179w(8)=3.334398420830210e-4_p 180else if(N==9)then 181x(1)=-19.55495242260083_p 182w(1)=1.135746765100124_p 183x(2)=-17.71065019318817_p 184w(2)=2.518458515842169_p 185x(3)=-14.61441291265935_p 186w(3)=3.613341467577683_p 187x(4)=-10.62766932154049_p 188w(4)=4.277537413199260_p 189x(5)=-6.247362630787014_p 190w(5)=4.365320424673611_p 191x(6)=-2.142330805458851_p 192w(6)=3.319809393453413_p 193x(7)=1.348401906959567_p 194w(7)=7.540903605404180e-1_p 195x(8)=5.856775911259898_p 196w(8)=1.566738682111185e-2_p 197x(9)=12.57116381483631_p 198w(9)=2.826925056716833e-5_p 199else if(N==10)then 200x(1)=-19.62410765077327_p 201w(1)=9.602287553343499e-1_p 202x(2)=-18.05806155117596_p 203w(2)=2.148047011957648_p 204x(3)=-15.39540924817398_p 205w(3)=3.134573056501959_p 206x(4)=-11.89060167648625_p 207w(4)=3.816406544727467_p 208x(5)=-7.895339198117474_p 209w(5)=4.097368028949085_p 210x(6)=-3.871616641936594_p 211w(6)=3.761279797818262_p 212x(7)=-3.801512258964450e-1_p 213w(7)=1.907921269903598_p 214x(8)=3.121998191309523_p 215w(8)=1.722485742305520e-1_p 216x(9)=7.989739870095327_p 217w(9)=1.923365680773808e-3_p 218x(10)=14.52477905355223_p 219w(10)=3.591354661436126e-6_p 220else if(N==11)then 221x(1)=-19.678404391512_p 222w(1)=8.221506592241747e-1_p 223x(2)=-18.33315783638326_p 224w(2)=1.851390287737154_p 225x(3)=-16.02404070144006_p 226w(3)=2.736034662696629_p 227x(4)=-12.93481157779636_p 228w(4)=3.399776698688175_p 229x(5)=-9.320951064758761_p 230w(5)=3.773506292724094_p 231x(6)=-5.511036573596715_p 232w(6)=3.757528832431767_p 233x(7)=-1.949896485526627_p 234w(7)=2.865027371606075_p 235x(8)=1.171159273940785_p 236w(8)=7.631973745286442e-1_p 237x(9)=4.939336871943647_p 238w(9)=3.111341355566490e-2_p 239x(10)=9.921807201010992_p 240w(10)=2.736597761575729e-4_p 241x(11)=15.90393555097246_p 242w(11)=7.434898223781028e-7_p 243else if(N==12)then 244x(1)=-19.72180771279876_p 245w(1)=7.116099194512429e-1_p 246x(2)=-18.55448342621448_p 247w(2)=1.610684165391012_p 248x(3)=-16.53604401182158_p 249w(3)=2.403449694649808_p 250x(4)=-13.80219909711674_p 251w(4)=3.032558461032353_p 252x(5)=-10.54264776107058_p 253w(5)=3.446377420498201_p 254x(6)=-6.999172160105122_p 255w(6)=3.586030809970632_p 256x(7)=-3.487746757695979_p 257w(7)=3.259097063566275_p 258x(8)=-3.815035993307972e-1_p 259w(8)=1.728763654881865_p 260x(9)=2.715993648590466_p 261w(9)=2.158818762800248e-1_p 262x(10)=6.698488805225346_p 263w(10)=5.497794980693148e-3_p 264x(11)=11.58377434793714_p 265w(11)=4.890186152790162e-5_p 266x(12)=16.81681293349883_p 267w(12)=2.338947220733192e-7_p 268else if(N==13)then 269x(1)=-19.75702091354914_p 270w(1)=6.218241060877830e-1_p 271x(2)=-18.73494345485903_p 272w(2)=1.413140775854999_p 273x(3)=-16.95746509270141_p 274w(3)=2.124685172420935_p 275x(4)=-14.52682190489001_p 276w(4)=2.712616642762966_p 277x(5)=-11.58660262187628_p 278w(5)=3.137439538433810_p 279x(6)=-8.319328968986724_p 280w(6)=3.358670811938496_p 281x(7)=-4.954691492671389_p 282w(7)=3.294354509900178_p 283x(8)=-1.804937181004813_p 284w(8)=2.519640713408318_p 285x(9)=1.018975730899281_p 286w(9)=7.662612081112612e-1_p 287x(10)=4.276241768041498_p 288w(10)=5.029011278275941e-2_p 289x(11)=8.324529407422448_p 290w(11)=1.065059522068152e-3_p 291x(12)=12.96017321324621_p 292w(12)=1.124552601102925e-5_p 293x(13)=17.41292700702006_p 294w(13)=9.970877228086264e-8_p 295else if(N==14)then 296x(1)=-19.78596728516148_p 297w(1)=5.479497189555571e-1_p 298x(2)=-18.88387301590493_p 299w(2)=1.249279485109558_p 300x(3)=-17.30783581614192_p 301w(3)=1.889661235356954_p 302x(4)=-15.13624711756657_p 303w(4)=2.435049156577656_p 304x(5)=-12.47966292472144_p 305w(5)=2.854697660511436_p 306x(6)=-9.478626708840542_p 307w(6)=3.118557365977119_p 308x(7)=-6.306247810718687_p 309w(7)=3.183254883647376_p 310x(8)=-3.190252939917888_p 311w(8)=2.871685999506336_p 312x(9)=-3.885032826765860e-1_p 313w(9)=1.583741080409239_p 314x(10)=2.395293142227476_p 315w(10)=2.545522533936779e-1_p 316x(11)=5.792406795774820_p 317w(11)=1.132963786985237e-2_p 318x(12)=9.779443438155292_p 319w(12)=2.381717425777646e-4_p 320x(13)=14.07015920550778_p 321w(13)=3.295099365445362e-6_p 322x(14)=17.8085746482694_p 323w(14)=5.230165351266434e-8_p 324else if(N==15)then 325x(1)=-19.81004361081715_p 326w(1)=4.864590051721042e-1_p 327x(2)=-19.00813871705495_p 328w(2)=1.111997552031776_p 329x(3)=-17.60191429772503_p 330w(3)=1.690221556522663_p 331x(4)=-15.65243121836284_p 332w(4)=2.194308864651181_p 333x(5)=-13.24611697456256_p 334w(5)=2.599975700777259_p 335x(6)=-10.49297620887119_p 336w(6)=2.883993737496634_p 337x(7)=-7.527064144960627_p 338w(7)=3.018706229729287_p 339x(8)=-4.516540895101769_p 340w(8)=2.929968125506320_p 341x(9)=-1.689124481781052_p 342w(9)=2.247503389358227_p 343x(10)=8.907704750741622e-1_p 344w(10)=7.626771255974636e-1_p 345x(11)=3.772243699624606_p 346w(11)=7.142092259075876e-2_p 347x(12)=7.214079496633711_p 348w(12)=2.703876738271532e-3_p 349x(13)=11.0508517951797_p 350w(13)=6.268322130745202e-5_p 351x(14)=14.951225001524_p 352w(14)=1.195488066413220e-6_p 353x(15)=18.07879055740897_p 354w(15)=3.157703864967390e-8_p 355else if(N==16)then 356x(1)=-19.83028098042701_p 357w(1)=4.347419252917751e-1_p 358x(2)=-19.11285999286303_p 359w(2)=9.959251299184761e-1_p 360x(3)=-17.85093041008793_p 361w(3)=1.519852829125773_p 362x(4)=-16.09272689833366_p 363w(4)=1.985115139670502_p 364x(5)=-13.9067419229739_p 365w(5)=2.372288397171841_p 366x(6)=-11.38029697936789_p 367w(6)=2.662968167800029_p 368x(7)=-8.619273241464747_p 369w(7)=2.837371182763137_p 370x(8)=-5.752358591208486_p 371w(8)=2.859097972590988_p 372x(9)=-2.950217513990236_p 373w(9)=2.563519248439738_p 374x(10)=-3.959834884815657e-1_p 375w(10)=1.461966338002425_p 376x(11)=2.136835584955770_p 377w(11)=2.871899347507539e-1_p 378x(12)=5.113480209989524_p 379w(12)=1.923094554079117e-2_p 380x(13)=8.514190892919865_p 381w(13)=7.128160773709763e-4_p 382x(14)=12.14325773941447_p 383w(14)=1.942987502634338e-5_p 384x(15)=15.64600318463444_p 385w(15)=5.184290480479347e-7_p 386x(16)=18.26920694499953_p 387w(16)=2.101068316302891e-8_p 388else if(N==17)then 389x(1)=-19.84745255344157_p 390w(1)=3.908378104024764e-1_p 391x(2)=-19.20190611880359_p 392w(2)=8.969591723847037e-1_p 393x(3)=-18.06350823579793_p 394w(3)=1.373371269120696_p 395x(4)=-16.4708449294664_p 396w(4)=1.802779062976433_p 397x(5)=-14.47886562570886_p 398w(5)=2.169470492326429_p 399x(6)=-12.15775001740777_p 400w(6)=2.458610924749957_p 401x(7)=-9.592415146728484_p 402w(7)=2.655099943352401_p 403x(8)=-6.884220880671277_p 404w(8)=2.737506673081921_p 405x(9)=-4.160908686819742_p 406w(9)=2.635672209212657_p 407x(10)=-1.593220280846775_p 408w(10)=2.027221867822040_p 409x(11)=7.824794778185448e-1_p 410w(11)=7.538253825737263e-1_p 411x(12)=3.374344167109271_p 412w(12)=9.306107475297133e-2_p 413x(13)=6.383417857024225_p 414w(13)=5.365697424924827e-3_p 415x(14)=9.682456067984011_p 416w(14)=2.111204342910616e-4_p 417x(15)=13.07128980327874_p 418w(15)=7.021174825416947e-6_p 419x(16)=16.1941177566051_p 420w(16)=2.596871364950943e-7_p 421x(17)=18.40744358907493_p 422w(17)=1.498076763501307e-8_p 423else 424call GD(-20) 425end if 426end subroutine GF_m20 427 428! [-19kT;19kT] 429subroutine GF_m19(N,x,w) 430integer,intent(in)::N 431real(p),intent(out)::x(N),w(N) 432if(N==2)then 433x(1)=-14.80201389907063_p 434w(1)=9.919647892511689_p 435x(2)=-3.526768543701005_p 436w(2)=9.080352107488311_p 437else if(N==3)then 438x(1)=-16.66602246555822_p 439w(1)=5.749158107742921_p 440x(2)=-8.682926312789579_p 441w(2)=9.091368825964961_p 442x(3)=-9.856494589547888e-1_p 443w(3)=4.159473066292118_p 444else if(N==4)then 445x(1)=-17.49428395775053_p 446w(1)=3.770211334095687_p 447x(2)=-11.85933527577145_p 448w(2)=7.027536536629106_p 449x(3)=-4.631505407008391_p 450w(3)=6.664644356833299_p 451x(4)=8.528376681739086e-1_p 452w(4)=1.537607772441907_p 453else if(N==5)then 454x(1)=-17.93263630595417_p 455w(1)=2.694434323498973_p 456x(2)=-13.75887676087718_p 457w(2)=5.419811412409999_p 458x(3)=-7.703604972584919_p 459w(3)=6.322729187935330_p 460x(4)=-1.942562201917986_p 461w(4)=4.225858450609169_p 462x(5)=2.819267223209448_p 463w(5)=3.371666255465285e-1_p 464else if(N==6)then 465x(1)=-18.19383762391939_p 466w(1)=2.044512844614154_p 467x(2)=-14.96223586253925_p 468w(2)=4.289327073635645_p 469x(3)=-9.962524645311815_p 470w(3)=5.498174305068574_p 471x(4)=-4.460480847847506_p 472w(4)=5.154293496435675_p 473x(5)=4.088011475433560e-2_p 474w(5)=1.973852159412760_p 475x(6)=5.171296205537097_p 476w(6)=3.984012083319172e-2_p 477else if(N==7)then 478x(1)=-18.36356292352227_p 479w(1)=1.618754661003504_p 480x(2)=-15.77257487259712_p 481w(2)=3.485207637385900_p 482x(3)=-11.60646284620636_p 483w(3)=4.715011469383506_p 484x(4)=-6.651671996488323_p 485w(4)=5.008815656451329_p 486x(5)=-1.996997569539249_p 487w(5)=3.611576041779739_p 488x(6)=1.920888035028816_p 489w(6)=5.574533853913169e-1_p 490x(7)=7.809330560929925_p 491w(7)=3.181148604704568e-3_p 492else if(N==8)then 493x(1)=-18.48179799773438_p 494w(1)=1.320589507745951_p 495x(2)=-16.35023356882048_p 496w(2)=2.892544171864200_p 497x(3)=-12.83531281279262_p 498w(3)=4.050612612729738_p 499x(4)=-8.453442876988866_p 500w(4)=4.594415228776553_p 501x(5)=-3.922149198736484_p 502w(5)=4.216398783585452_p 503x(6)=-8.212336220707424e-2_p 504w(6)=1.835304687033255_p 505x(7)=4.012551206633916_p 506w(7)=8.990722403527872e-2_p 507x(8)=10.49677704930889_p 508w(8)=2.277842295723042e-4_p 509else if(N==9)then 510x(1)=-18.568938187062_p 511w(1)=1.100028985174350_p 512x(2)=-16.78283446526619_p 513w(2)=2.438693566350431_p 514x(3)=-13.78542955199484_p 515w(3)=3.496949952130479_p 516x(4)=-9.929392196458803_p 517w(4)=4.133967795618012_p 518x(5)=-5.703588940475742_p 519w(5)=4.193717698724003_p 520x(6)=-1.771873855888098_p 521w(6)=3.034799024917223_p 522x(7)=1.662941962088109_p 523w(7)=5.909281125781811e-1_p 524x(8)=6.225511006008691_p 525w(8)=1.089505657824222e-2_p 526x(9)=12.91283776562969_p 527w(9)=1.980792907932947e-5_p 528else if(N==10)then 529x(1)=-18.63574095287005_p 530w(1)=9.304927111543148e-1_p 531x(2)=-17.11832768323415_p 532w(2)=2.081140495564624_p 533x(3)=-14.53912498358333_p 534w(3)=3.035641194454097_p 535x(4)=-11.14637258693587_p 536w(4)=3.692411514043001_p 537x(5)=-7.285032953523641_p 538w(5)=3.952681500081536_p 539x(6)=-3.415829089412303_p 540w(6)=3.557663127525049_p 541x(7)=-5.709064195369063e-2_p 542w(7)=1.623854857657394_p 543x(8)=3.469177111617920_p 544w(8)=1.247791625868555e-1_p 545x(9)=8.352356357413807_p 546w(9)=1.332769825226644e-3_p 547x(10)=14.79229890560242_p 548w(10)=2.667107901602403e-6_p 549else if(N==11)then 550x(1)=-18.68823754226441_p 551w(1)=7.969995169125564e-1_p 552x(2)=-17.38423985743467_p 553w(2)=1.794482663275133_p 554x(3)=-15.14645243272433_p 555w(3)=2.651049721152230_p 556x(4)=-12.15412106048963_p 557w(4)=3.291887094708113_p 558x(5)=-8.657387860836659_p 559w(5)=3.647479996603824_p 560x(6)=-4.981949298919756_p 561w(6)=3.603658142929072_p 562x(7)=-1.569641785970455_p 563w(7)=2.598097419118386_p 564x(8)=1.498610301451455_p 565w(8)=5.943844264908749e-1_p 566x(9)=5.301144072710544_p 567w(9)=2.176715347346189e-2_p 568x(10)=10.25733154019728_p 569w(10)=1.932771765794406e-4_p 570x(11)=16.09560056101859_p 571w(11)=5.881597695430426e-7_p 572else if(N==12)then 573x(1)=-18.73022266360248_p 574w(1)=6.900753520644486e-1_p 575x(2)=-17.59829178633116_p 576w(2)=1.561749112770104_p 577x(3)=-15.64142363870621_p 578w(3)=2.329808704708972_p 579x(4)=-12.9919830084342_p 580w(4)=2.938101597624367_p 581x(5)=-9.835505925574497_p 582w(5)=3.335233322566845_p 583x(6)=-6.410422394052785_p 584w(6)=3.457599853920244_p 585x(7)=-3.034290023392135_p 586w(7)=3.068027314808803_p 587x(8)=-4.248933758942090e-2_p 588w(8)=1.459036160171450_p 589x(9)=3.065901978188152_p 590w(9)=1.565033038317639e-1_p 591x(10)=7.054994409662700_p 592w(10)=3.829446759642136e-3_p 593x(11)=11.88077513516901_p 594w(11)=3.563593070225744e-5_p 595x(12)=16.94989585149283_p 596w(12)=1.948426575676384e-7_p 597else if(N==13)then 598x(1)=-18.76429954445389_p 599w(1)=6.031900563604431e-1_p 600x(2)=-17.77290017051949_p 601w(2)=1.370652848392431_p 602x(3)=-16.04904260407255_p 603w(3)=2.060358137245684_p 604x(4)=-13.69243813106857_p 605w(4)=2.629417200270358_p 606x(5)=-10.84342789674902_p 607w(5)=3.038746224461461_p 608x(6)=-7.681416974012339_p 609w(6)=3.246278810485339_p 610x(7)=-4.435892208577912_p 611w(7)=3.152654573313355_p 612x(8)=-1.415872836170417_p 613w(8)=2.268474953205752_p 614x(9)=1.357835900923374_p 615w(9)=5.942237999962944e-1_p 616x(10)=4.637240890592893_p 617w(10)=3.524387307650684e-2_p 618x(11)=8.662439608798117_p 619w(11)=7.509394315964510e-4_p 620x(12)=13.21472582024814_p 621w(12)=8.497519823134356e-6_p 622x(13)=17.50592328394476_p 623w(13)=8.624095791901582e-8_p 624else if(N==14)then 625x(1)=-18.79232292046124_p 626w(1)=5.316734378145334e-1_p 627x(2)=-17.91706141936435_p 628w(2)=1.212066420245633_p 629x(3)=-16.38810189752228_p 630w(3)=1.833045910786718_p 631x(4)=-14.28189768374483_p 632w(4)=2.361326544995562_p 633x(5)=-11.70645375756802_p 634w(5)=2.766592907031433_p 635x(6)=-8.799631809418029_p 636w(6)=3.018299298883087_p 637x(7)=-5.733195117016030_p 638w(7)=3.066718202697731_p 639x(8)=-2.737312673037633_p 640w(8)=2.690170949753021_p 641x(9)=-3.577585061580004e-2_p 642w(9)=1.327520623663218_p 643x(10)=2.749849656379633_p 644w(10)=1.845230892279941e-1_p 645x(11)=6.149449074210088_p 646w(11)=7.888450872267808e-3_p 647x(12)=10.09093867218987_p 648w(12)=1.715362821038852e-4_p 649x(13)=14.28377959765385_p 650w(13)=2.581301356913449e-6_p 651x(14)=17.87511582286254_p 652w(14)=4.644534052058538e-8_p 653else if(N==15)then 654x(1)=-18.81564009977686_p 655w(1)=4.721231139993144e-1_p 656x(2)=-18.0373952061809_p 657w(2)=1.079148199157516_p 658x(3)=-16.67281011299669_p 659w(3)=1.640046824360257_p 660x(4)=-14.78143500649401_p 661w(4)=2.128608456159044_p 662x(5)=-12.44767478836747_p 663w(5)=2.520946526401898_p 664x(6)=-9.779290486424189_p 665w(6)=2.793743672832077_p 666x(7)=-6.908647103006909_p 667w(7)=2.916924111891265_p 668x(8)=-4.005053733085957_p 669w(8)=2.796857509478016_p 670x(9)=-1.292105318748793_p 671w(9)=2.010080350073474_p 672x(10)=1.240021585801178_p 673w(10)=5.895227367473113e-1_p 674x(11)=4.135202353106674_p 675w(11)=5.005292193042354e-2_p 676x(12)=7.556775583164324_p 677w(12)=1.898255140815058e-3_p 678x(13)=11.33223494341922_p 679w(13)=4.632553897167421e-5_p 680x(14)=15.12852202460936_p 681w(14)=9.677233240889380e-7_p 682x(15)=18.12779234088788_p 683w(15)=2.856629356852267e-8_p 684else if(N==16)then 685x(1)=-18.83524591706781_p 686w(1)=4.220210851695899e-1_p 687x(2)=-18.13883858521192_p 688w(2)=9.667232264370621e-1_p 689x(3)=-16.9139852595978_p 690w(3)=1.475103244800230_p 691x(4)=-15.20772669082141_p 692w(4)=1.926247204933000_p 693x(5)=-13.08693571917296_p 694w(5)=2.301081459019491_p 695x(6)=-10.63707366906341_p 696w(6)=2.581271452541718_p 697x(7)=-7.962352906547506_p 698w(7)=2.746067707605162_p 699x(8)=-5.191312752721779_p 700w(8)=2.751322411095885_p 701x(9)=-2.496965482530159_p 702w(9)=2.389646930965895_p 703x(10)=-3.157791262051330e-2_p 704w(10)=1.218473993700743_p 705x(11)=2.496651834177452_p 706w(11)=2.081533335038811e-1_p 707x(12)=5.473165467761794_p 708w(12)=1.336416567871810e-2_p 709x(13)=8.836351261240535_p 710w(13)=5.085778919900710e-4_p 711x(14)=12.39385046959734_p 712w(14)=1.475571814617949e-5_p 713x(15)=15.7926817765441_p 714w(15)=4.316763792100126e-7_p 715x(16)=18.30632614776082_p 716w(16)=1.926210953283375e-8_p 717else if(N==17)then 718x(1)=-18.85188663780059_p 719w(1)=3.794750547960328e-1_p 720x(2)=-18.22512471139584_p 721w(2)=8.708350937777143e-1_p 722x(3)=-17.11994050820455_p 723w(3)=1.333228769692604_p 724x(4)=-15.57396462411331_p 725w(4)=1.749766648615205_p 726x(5)=-13.64083675298152_p 727w(5)=2.105038980743225_p 728x(6)=-11.38919564512598_p 729w(6)=2.384340490904250_p 730x(7)=-8.902442079874774_p 731w(7)=2.572184686662695_p 732x(8)=-6.281171092033749_p 733w(8)=2.643987340797951_p 734x(9)=-3.654872580256004_p 735w(9)=2.508788791496325_p 736x(10)=-1.189200303160231_p 737w(10)=1.801987900208610_p 738x(11)=1.141029809994086_p 739w(11)=5.812626812526507e-1_p 740x(12)=3.740332883138298_p 741w(12)=6.519475559015865e-2_p 742x(13)=6.731318212088275_p 743w(13)=3.749383972140979e-3_p 744x(14)=9.980855388072762_p 745w(14)=1.537104162042934e-4_p 746x(15)=13.29241882214179_p 747w(15)=5.475812980027500e-6_p 748x(16)=16.31573635226964_p 749w(16)=2.213920644825971e-7_p 750x(17)=18.43629162900696_p 751w(17)=1.386918960139478e-8_p 752else 753call GD(-19) 754end if 755end subroutine GF_m19 756 757! [-18kT;19kT] 758subroutine GF_m18(N,x,w) 759integer,intent(in)::N 760real(p),intent(out)::x(N),w(N) 761if(N==2)then 762x(1)=-14.00466045650769_p 763w(1)=9.439548676268180_p 764x(2)=-3.289241555645433_p 765w(2)=8.560451333359003_p 766else if(N==3)then 767x(1)=-15.77083059255647_p 768w(1)=5.490610279188253_p 769x(2)=-8.150663914585554_p 770w(2)=8.668233687017606_p 771x(3)=-8.101004542916992e-1_p 772w(3)=3.841156043421324_p 773else if(N==4)then 774x(1)=-16.55710956394537_p 775w(1)=3.612701721118992_p 776x(2)=-11.15929222333104_p 777w(2)=6.728642905353993_p 778x(3)=-4.252954199601130_p 779w(3)=6.315438439585288_p 780x(4)=1.047481400398760_p 781w(4)=1.343216943568911_p 782else if(N==5)then 783x(1)=-16.97413145248912_p 784w(1)=2.589558255431665_p 785x(2)=-12.96384634756594_p 786w(2)=5.205847705958540_p 787x(3)=-7.153598341560452_p 788w(3)=6.054032880471338_p 789x(4)=-1.655509679331994_p 790w(4)=3.882948193482342_p 791x(5)=3.081403509036465_p 792w(5)=2.676129742832982e-1_p 793else if(N==6)then 794x(1)=-17.22320662228104_p 795w(1)=1.969943213058622_p 796x(2)=-14.11014504271133_p 797w(2)=4.130927306230010_p 798x(3)=-9.298302539437092_p 799w(3)=5.286191592524842_p 800x(4)=-4.023844025961787_p 801w(4)=4.886368999062888_p 802x(5)=3.045860239965369e-1_p 803w(5)=1.697659072813086_p 804x(6)=5.505681611353420_p 805w(6)=2.890982593773465e-2_p 806else if(N==7)then 807x(1)=-17.38552101597623_p 808w(1)=1.562844295397994_p 809x(2)=-14.88448569063206_p 810w(2)=3.363502380039952_p 811x(3)=-10.86585730985428_p 812w(3)=4.545098118748626_p 813x(4)=-6.097474115907502_p 814w(4)=4.802836329501618_p 815x(5)=-1.649960390374936_p 816w(5)=3.291027947744700_p 817x(6)=2.227793922992730_p 818w(6)=4.325075744412202e-1_p 819x(7)=8.191436238077859_p 820w(7)=2.183363753072467e-3_p 821else if(N==8)then 822x(1)=-17.4990056939518_p 823w(1)=1.276695062351259_p 824x(2)=-15.43860859230962_p 825w(2)=2.795492728307840_p 826x(3)=-12.04291363835535_p 827w(3)=3.911377432385539_p 828x(4)=-7.815994959171312_p 829w(4)=4.424515986137416_p 830x(5)=-3.467780814424857_p 831w(5)=3.980071458674921_p 832x(6)=2.271756820451352e-1_p 833w(6)=1.547788402774185_p 834x(7)=4.372741852996785_p 835w(7)=6.390483931364029e-2_p 836x(8)=10.88482768683355_p 837w(8)=1.540996823830427e-4_p 838else if(N==9)then 839x(1)=-17.58292412989127_p 840w(1)=1.064309120279928_p 841x(2)=-15.85503470787126_p 842w(2)=2.358888069520325_p 843x(3)=-12.95656570127472_p 844w(3)=3.380357046169118_p 845x(4)=-9.231659567314198_p 846w(4)=3.989524703647991_p 847x(5)=-5.162064921185908_p 848w(5)=4.015657495214958_p 849x(6)=-1.402958258388562_p 850w(6)=2.732534949221300_p 851x(7)=1.993980410481775_p 852w(7)=4.512407470402128e-1_p 853x(8)=6.605919278976768_p 854w(8)=7.474025710252614e-3_p 855x(9)=13.25351228685093_p 856w(9)=1.385282309760850e-5_p 857else if(N==10)then 858x(1)=-17.64738032486149_p 859w(1)=9.007400813910120e-1_p 860x(2)=-16.17863507461288_p 861w(2)=2.014173388550916_p 862x(3)=-13.68299095679352_p 863w(3)=2.936531983668285_p 864x(4)=-10.40260755859891_p 865w(4)=3.567871960320003_p 866x(5)=-6.676205458551171_p 867w(5)=3.805295121083485_p 868x(6)=-2.964014484138506_p 869w(6)=3.336383352441032_p 870x(7)=2.738431881599677e-1_p 871w(7)=1.349515748288109_p 872x(8)=3.831660701559677_p 873w(8)=8.857048067143707e-2_p 874x(9)=8.721516344369705_p 875w(9)=9.159065209185491e-4_p 876x(10)=15.05347164827027_p 877w(10)=1.986691985479685e-6_p 878else if(N==11)then 879x(1)=-17.69807629969583_p 880w(1)=7.718332857297052e-1_p 881x(2)=-16.43535781584539_p 882w(2)=1.737524833510707_p 883x(3)=-14.26898541196053_p 884w(3)=2.565931699563699_p 885x(4)=-11.37377347496417_p 886w(4)=3.183640393652716_p 887x(5)=-7.994790652829071_p 888w(5)=3.520149064215365_p 889x(6)=-4.455783754612224_p 890w(6)=3.441182661981817_p 891x(7)=-1.190678981727738_p 892w(7)=2.314039724579839_p 893x(8)=1.841332682157302_p 894w(8)=4.505368390177792e-1_p 895x(9)=5.673847232595441_p 896w(9)=1.502512339177844e-2_p 897x(10)=10.59534198324776_p 898w(10)=1.359167935238618e-4_p 899x(11)=16.28033361627596_p 900w(11)=4.671902527033919e-7_p 901else if(N==12)then 902x(1)=-17.73864222317997_p 903w(1)=6.685284495416904e-1_p 904x(2)=-16.64212903164296_p 905w(2)=1.512774545823471_p 906x(3)=-14.74689747590464_p 907w(3)=2.256068088978131_p 908x(4)=-12.18202121045296_p 909w(4)=2.843397909044185_p 910x(5)=-9.129026008692168_p 911w(5)=3.223355957328006_p 912x(6)=-5.823540112219566_p 913w(6)=3.325424838052252_p 914x(7)=-2.584851126854168_p 915w(7)=2.857440123182599_p 916x(8)=3.041526220435899e-1_p 917w(8)=1.199256940030373_p 918x(9)=3.430412257859110_p 919w(9)=1.110830626867905e-1_p 920x(10)=7.418497582662791_p 921w(10)=2.644002044834962e-3_p 922x(11)=12.17736420835922_p 923w(11)=2.593006054344557e-5_p 924x(12)=17.07750009642166_p 925w(12)=1.628543068428429e-7_p 926else if(N==13)then 927x(1)=-17.77158212670315_p 928w(1)=5.845454916568226e-1_p 929x(2)=-16.81088108007618_p 930w(2)=1.328132553880069_p 931x(3)=-15.14069633337221_p 932w(3)=1.995953527992831_p 933x(4)=-12.85825121039334_p 934w(4)=2.546037989928847_p 935x(5)=-10.10073354807793_p 936w(5)=2.939590048046375_p 937x(6)=-7.044736819919814_p 938w(6)=3.132104502660866_p 939x(7)=-3.920359590562118_p 940w(7)=3.000310196519546_p 941x(8)=-1.027688657952875_p 942w(8)=2.000559463598152_p 943x(9)=1.711009494123855_p 944w(9)=4.478782244408404e-1_p 945x(10)=5.009026520767345_p 946w(10)=2.435498467843305e-2_p 947x(11)=9.004278330550596_p 948w(11)=5.265286728886945e-4_p 949x(12)=13.467137309318_p 950w(12)=6.422790703735561e-6_p 951x(13)=17.59504501800487_p 952w(13)=7.476080832494252e-8_p 953else if(N==14)then 954x(1)=-17.79868205596949_p 955w(1)=5.153878933721978e-1_p 956x(2)=-16.95027077917025_p 957w(2)=1.174825932121295_p 958x(3)=-15.46843180665613_p 959w(3)=1.776368062565693_p 960x(4)=-13.42770638800023_p 961w(4)=2.287467395554758_p 962x(5)=-10.93360988876919_p 963w(5)=2.678171159970781_p 964x(6)=-8.121498082965950_p 965w(6)=2.917072216686728_p 966x(7)=-5.162357257775585_p 967w(7)=2.945248008719567_p 968x(8)=-2.288301389495244_p 969w(8)=2.487868399597932_p 970x(9)=3.242726352060829e-1_p 971w(9)=1.081196352811623_p 972x(10)=3.118429437566275_p 973w(10)=1.308280247827885e-1_p 974x(11)=6.513814771075997_p 975w(11)=5.441348500069935e-3_p 976x(12)=10.40405235646768_p 977w(12)=1.231491802455474e-4_p 978x(13)=14.49449770932679_p 979w(13)=2.024462710852894e-6_p 980x(14)=17.93899552379455_p 981w(14)=4.130079214029586e-8_p 982else if(N==15)then 983x(1)=-17.82123972823501_p 984w(1)=4.577789524113309e-1_p 985x(2)=-17.06667013911548_p 986w(2)=1.046275172197351_p 987x(3)=-15.74376048166946_p 988w(3)=1.589820476321148_p 989x(4)=-13.91056912223475_p 990w(4)=2.062801014110287_p 991x(5)=-11.6495201282291_p 992w(5)=2.441687546670595_p 993x(6)=-9.066238264066774_p 994w(6)=2.702901067296646_p 995x(7)=-6.291733772439904_p 996w(7)=2.812765267659722_p 997x(8)=-3.497082138477984_p 998w(8)=2.651223779057197_p 999x(9)=-8.956131591033363e-1_p 1000w(9)=1.756531404915031_p 1001x(10)=1.602677389468021_p 1002w(10)=4.422938093313009e-1_p 1003x(11)=4.508867400004648_p 1004w(11)=3.456221367068922e-2_p 1005x(12)=7.904130478510790_p 1006w(12)=1.324311938587509e-3_p 1007x(13)=11.61361853089691_p 1008w(13)=3.418371381337143e-5_p 1009x(14)=15.3027946445516_p 1010w(14)=7.844724701441062e-7_p 1011x(15)=18.17495616593134_p 1012w(15)=2.586101361365396e-8_p 1013else if(N==16)then 1014x(1)=-17.84021368085129_p 1015w(1)=4.092928250089044e-1_p 1016x(2)=-17.16483353365031_p 1017w(2)=9.375006633357109e-1_p 1018x(3)=-15.97708732431211_p 1019w(3)=1.430310312227628_p 1020x(4)=-14.32283585602434_p 1021w(4)=1.867293297521144_p 1022x(5)=-12.26736173853452_p 1023w(5)=2.229700932745734_p 1024x(6)=-9.894335240203738_p 1025w(6)=2.499178749752142_p 1026x(7)=-7.306497278894081_p 1027w(7)=2.653496827434323_p 1028x(8)=-4.632784957174990_p 1029w(8)=2.637336734632171_p 1030x(9)=-2.047469265084305_p 1031w(9)=2.194221323994991_p 1032x(10)=3.398246538798630e-1_p 1033w(10)=9.846992370114335e-1_p 1034x(11)=2.869932793519867_p 1035w(11)=1.474007510028620e-1_p 1036x(12)=5.840402186371603_p 1037w(12)=9.195417976637419e-3_p 1038x(13)=9.161165676379248_p 1039w(13)=3.613585135412867e-4_p 1040x(14)=12.64341372671693_p 1041w(14)=1.120087430609497e-5_p 1042x(15)=15.93655096953059_p 1043w(15)=3.599318558126475e-7_p 1044x(16)=18.34215193769481_p 1045w(16)=1.766379957951319e-8_p 1046else if(N==17)then 1047x(1)=-17.85632327204321_p 1048w(1)=3.681056266322234e-1_p 1049x(2)=-17.24835787501306_p 1050w(2)=8.446928526517619e-1_p 1051x(3)=-16.17641400826938_p 1052w(3)=1.293049381231502_p 1053x(4)=-14.67717738135658_p 1054w(4)=1.696683820862850_p 1055x(5)=-12.80299924001071_p 1056w(5)=2.040472211139730_p 1057x(6)=-10.62102393281176_p 1058w(6)=2.309787936082047_p 1059x(7)=-8.213256661735043_p 1060w(7)=2.488517314069405_p 1061x(8)=-5.679878940401747_p 1062w(8)=2.547393015057865_p 1063x(9)=-3.152497809120680_p 1064w(9)=2.367732126436541_p 1065x(10)=-7.853897941023232e-1_p 1066w(10)=1.561416582132140_p 1067x(11)=1.512143170350116_p 1068w(11)=4.344694289092895e-1_p 1069x(12)=4.116937923059793_p 1070w(12)=4.496158141464611e-2_p 1071x(13)=7.084342656855272_p 1072w(13)=2.602038161042780e-3_p 1073x(14)=10.28043589512493_p 1074w(14)=1.116216526855233e-4_p 1075x(15)=13.51194206162405_p 1076w(15)=4.271392683530726e-6_p 1077x(16)=16.43489392419416_p 1078w(16)=1.889611159218650e-7_p 1079x(17)=18.46420821104735_p 1080w(17)=1.283965388937344e-8_p 1081else 1082call GD(-18) 1083end if 1084end subroutine GF_m18 1085 1086! [-17kT;19kT] 1087subroutine GF_m17(N,x,w) 1088integer,intent(in)::N 1089real(p),intent(out)::x(N),w(N) 1090if(N==2)then 1091x(1)=-13.20653116041374_p 1092w(1)=8.961195650019476_p 1093x(2)=-3.048806268655201_p 1094w(2)=8.038804385777103_p 1095else if(N==3)then 1096x(1)=-14.87507806064197_p 1097w(1)=5.233407684384698_p 1098x(2)=-7.616422524781421_p 1099w(2)=8.245050062500097_p 1100x(3)=-6.275471843665559e-1_p 1101w(3)=3.521542288911786_p 1102else if(N==4)then 1103x(1)=-15.61956219802272_p 1104w(1)=3.456105945401317_p 1105x(2)=-10.45770024053047_p 1106w(2)=6.430797969749945_p 1107x(3)=-3.873020998086850_p 1108w(3)=5.957238117321815_p 1109x(4)=1.255916190941393_p 1110w(4)=1.155858003323502_p 1111else if(N==5)then 1112x(1)=-16.01538484231212_p 1113w(1)=2.485280231197553_p 1114x(2)=-12.16775119665278_p 1115w(2)=4.992765634300654_p 1116x(3)=-6.602292814794508_p 1117w(3)=5.782959889222541_p 1118x(4)=-1.365003554528225_p 1119w(4)=3.531091115097432_p 1120x(5)=3.362762753665543_p 1121w(5)=2.079031659784003e-1_p 1122else if(N==6)then 1123x(1)=-16.25242781515784_p 1124w(1)=1.895740689731033_p 1125x(2)=-13.25738832108284_p 1126w(2)=3.973111477151696_p 1127x(3)=-8.633093457990601_p 1128w(3)=5.073732007254383_p 1129x(4)=-3.587934291474606_p 1130w(4)=4.604869919196152_p 1131x(5)=5.809602827790589e-1_p 1132w(5)=1.431988314093835_p 1133x(6)=5.859069611426123_p 1134w(6)=2.055762836948037e-2_p 1135else if(N==7)then 1136x(1)=-16.40740649838192_p 1137w(1)=1.507113738049231_p 1138x(2)=-13.99607420125281_p 1139w(2)=3.242071842015079_p 1140x(3)=-10.12479315541865_p 1141w(3)=4.374982574794365_p 1142x(4)=-5.543975323805296_p 1143w(4)=4.591329571620963_p 1144x(5)=-1.302045596701555_p 1145w(5)=2.956051137047312_p 1146x(6)=2.554616468123363_p 1147w(6)=3.269767064221436e-1_p 1148x(7)=8.588724049789217_p 1149w(7)=1.474465847485781e-3_p 1150else if(N==8)then 1151x(1)=-16.5161945934017_p 1152w(1)=1.232845503070734_p 1153x(2)=-14.52691555992173_p 1154w(2)=2.698471701192717_p 1155x(3)=-11.25051741399778_p 1156w(3)=3.771881006921558_p 1157x(4)=-7.179311148821416_p 1158w(4)=4.252340451307130_p 1159x(5)=-3.016774161239048_p 1160w(5)=3.725428789277018_p 1161x(6)=5.477181519404816e-1_p 1162w(6)=1.274427614697949_p 1163x(7)=4.750226470536766_p 1164w(7)=4.450165494117192e-2_p 1165x(8)=11.27996201312254_p 1166w(8)=1.033143883016870e-4_p 1167else if(N==9)then 1168x(1)=-16.5969147747659_p 1169w(1)=1.028575352791982_p 1170x(2)=-14.92727667103213_p 1171w(2)=2.279009655205086_p 1172x(3)=-12.1278969349628_p 1173w(3)=3.263485826793299_p 1174x(4)=-8.534677881567683_p 1175w(4)=3.843900859054965_p 1176x(5)=-4.623372737738165_p 1177w(5)=3.828726344738755_p 1178x(6)=-1.034172755772330_p 1179w(6)=2.415875011521329_p 1180x(7)=2.342924467430739_p 1181w(7)=3.353576536511927e-1_p 1182x(8)=6.997643031470457_p 1183w(8)=5.059652678117665e-3_p 1184x(9)=13.59187748463762_p 1185w(9)=9.679361853798041e-6_p 1186else if(N==10)then 1187x(1)=-16.65902843991254_p 1188w(1)=8.709638445063119e-1_p 1189x(2)=-15.23899924792773_p 1190w(2)=1.947125784661769_p 1191x(3)=-12.82705377868203_p 1192w(3)=2.837197754134651_p 1193x(4)=-9.659432253794133_p 1194w(4)=3.442629575654502_p 1195x(5)=-6.069235472953351_p 1196w(5)=3.654129478655362_p 1197x(6)=-2.516387376644807_p 1198w(6)=3.094052780928119_p 1199x(7)=6.154090159135474e-1_p 1200w(7)=1.091645880370595_p 1201x(8)=4.209444898064644_p 1202w(8)=6.162895987646202e-2_p 1203x(9)=9.096708958955672_p 1204w(9)=6.244918183274419e-4_p 1205x(10)=15.30756263123737_p 1206w(10)=1.485190480776585e-6_p 1207else if(N==11)then 1208x(1)=-16.70792261327709_p 1209w(1)=7.466468424916481e-1_p 1210x(2)=-15.48652302962274_p 1211w(2)=1.680502316331887_p 1212x(3)=-13.39167330516431_p 1213w(3)=2.480647117453433_p 1214x(4)=-10.59385570384366_p 1215w(4)=3.074942150370110_p 1216x(5)=-7.333402160321755_p 1217w(5)=3.391028614576255_p 1218x(6)=-3.933118339024905_p 1219w(6)=3.266967667113224_p 1220x(7)=-8.112490006441966e-1_p 1221w(7)=2.016869355221420_p 1222x(8)=2.200701914368714_p 1223w(8)=3.320629597291810e-1_p 1224x(9)=6.057117202169535_p 1225w(9)=1.023743127248201e-2_p 1226x(10)=10.93528878436018_p 1227w(10)=9.520855541438389e-5_p 1228x(11)=16.4579497249833_p 1229w(11)=3.726815257511653e-7_p 1230else if(N==12)then 1231x(1)=-16.74706802489222_p 1232w(1)=6.469649315777294e-1_p 1233x(2)=-15.6860045225286_p 1234w(2)=1.463748673716040_p 1235x(3)=-13.85249260706626_p 1236w(3)=2.182202105285171_p 1237x(4)=-11.37237981197093_p 1238w(4)=2.748384224298786_p 1239x(5)=-8.423374830584484_p 1240w(5)=3.110500961628834_p 1241x(6)=-5.238981331361954_p 1242w(6)=3.187911721003832_p 1243x(7)=-2.139411441303930_p 1244w(7)=2.624259906185673_p 1245x(8)=6.612222522813698e-1_p 1246w(8)=9.569490617431261e-1_p 1247x(9)=3.809484636357466_p 1248w(9)=7.724928029866010e-2_p 1249x(10)=7.788604205759153_p 1250w(10)=1.810186712365729e-3_p 1251x(11)=12.47305528541653_p 1252w(11)=1.884677863549485e-5_p 1253x(12)=17.19966341254053_p 1254w(12)=1.365677271915374e-7_p 1255else if(N==13)then 1256x(1)=-16.77887006437984_p 1257w(1)=5.658867424197896e-1_p 1258x(2)=-15.84889413351017_p 1259w(2)=1.285570021926401_p 1260x(3)=-14.23244872859427_p 1261w(3)=1.931450822053853_p 1262x(4)=-12.02431351822466_p 1263w(4)=2.462433629594228_p 1264x(5)=-9.358641097363172_p 1265w(5)=2.839831479410075_p 1266x(6)=-6.409602472514947_p 1267w(6)=3.015397951997685_p 1268x(7)=-3.408660061611857_p 1269w(7)=2.833595822590841_p 1270x(8)=-6.384013970557604e-1_p 1271w(8)=1.720968810680892_p 1272x(9)=2.079852193732572_p 1273w(9)=3.278862731535628e-1_p 1274x(10)=5.391228307469243_p 1275w(10)=1.660630203530196e-2_p 1276x(11)=9.349639071237036_p 1277w(11)=3.672576840275102e-4_p 1278x(12)=13.7170467888276_p 1279w(12)=4.857300822287663e-6_p 1280x(13)=17.68037339082471_p 1281w(13)=6.494910142045269e-8_p 1282else if(N==14)then 1283x(1)=-16.80504589925959_p 1284w(1)=4.990899361103400e-1_p 1285x(2)=-15.98350786979456_p 1286w(2)=1.137549703317227_p 1287x(3)=-14.54884431915548_p 1288w(3)=1.719611032706930_p 1289x(4)=-12.57371558350871_p 1290w(4)=2.213437569426937_p 1291x(5)=-10.16122360727765_p 1292w(5)=2.589344039817776_p 1293x(6)=-7.444444113129023_p 1294w(6)=2.814501654071226_p 1295x(7)=-4.594255449425849_p 1296w(7)=2.816688871299568_p 1297x(8)=-1.842965947899698_p 1298w(8)=2.262243348339529_p 1299x(9)=6.944408991584702e-1_p 1300w(9)=8.529104385412997e-1_p 1301x(10)=3.500981806678509_p 1302w(10)=9.081363940792234e-2_p 1303x(11)=6.885120164502248_p 1304w(11)=3.720021076253643e-3_p 1305x(12)=10.71840771064204_p 1306w(12)=8.815506500381801e-5_p 1307x(13)=14.70208119209279_p 1308w(13)=1.589844202647039e-6_p 1309x(14)=18.0002835021724_p 1310w(14)=3.677236380701539e-8_p 1311else if(N==15)then 1312x(1)=-16.82684353684462_p 1313w(1)=4.434238105675962e-1_p 1314x(2)=-16.09596931170567_p 1315w(2)=1.013371417810686_p 1316x(3)=-14.81478123469143_p 1317w(3)=1.539528795304355_p 1318x(4)=-13.03986836314602_p 1319w(4)=1.996859990866090_p 1320x(5)=-10.85172532896766_p 1321w(5)=2.362138200383088_p 1322x(6)=-8.353977929862728_p 1323w(6)=2.611260195879936_p 1324x(7)=-5.676704196558107_p 1325w(7)=2.705148290958885_p 1326x(8)=-2.993131695709111_p 1327w(8)=2.488939020411853_p 1328x(9)=-4.974945849250107e-1_p 1329w(9)=1.492887553922675_p 1330x(10)=1.980092867689347_p 1331w(10)=3.219634674490662e-1_p 1332x(11)=4.892832647592315_p 1333w(11)=2.353503249336227e-2_p 1334x(12)=8.255784385325130_p 1335w(12)=9.184078946406161e-4_p 1336x(13)=11.89468415091981_p 1337w(13)=2.519154441981617e-5_p 1338x(14)=15.47390905995792_p 1339w(14)=6.368833856462425e-7_p 1340x(15)=18.2203322689217_p 1341w(15)=2.342654009705146e-8_p 1342else if(N==16)then 1343x(1)=-16.84518517267459_p 1344w(1)=3.965548019253876e-1_p 1345x(2)=-16.19084982599584_p 1346w(2)=9.082514143855838e-1_p 1347x(3)=-15.04025006802466_p 1348w(3)=1.385462588084146_p 1349x(4)=-13.43808338533348_p 1350w(4)=1.808232237456676_p 1351x(5)=-11.44807809944553_p 1352w(5)=2.158102837841184_p 1353x(6)=-9.152201128591908_p 1354w(6)=2.416565759341709_p 1355x(7)=-6.651976343500731_p 1356w(7)=2.559108340956071_p 1357x(8)=-4.077332901642092_p 1358w(8)=2.514429295138462_p 1359x(9)=-1.601243225642185_p 1360w(9)=1.975410123909547_p 1361x(10)=7.209980797007222e-1_p 1362w(10)=7.692427728552902e-1_p 1363x(11)=3.256644517236387_p 1364w(11)=1.021074019054018e-1_p 1365x(12)=6.214792298077462_p 1366w(12)=6.267882193826067e-3_p 1367x(13)=9.488308019355831_p 1368w(13)=2.557629482834667e-4_p 1369x(14)=12.89169738771003_p 1370w(14)=8.500125528852127e-6_p 1371x(15)=16.07754074546341_p 1372w(15)=3.005282755890831e-7_p 1373x(16)=18.3767186640612_p 1374w(16)=1.620120745643263e-8_p 1375else if(N==17)then 1376x(1)=-16.86076324032663_p 1377w(1)=3.567274888182351e-1_p 1378x(2)=-16.27160992961765_p 1379w(2)=8.185272612639759e-1_p 1380x(3)=-15.2329402830529_p 1381w(3)=1.252823445898342_p 1382x(4)=-13.78050765160557_p 1383w(4)=1.643513333264350_p 1384x(5)=-11.96540071876821_p 1385w(5)=1.975736838213463_p 1386x(6)=-9.853327996970323_p 1387w(6)=2.234871777671342_p 1388x(7)=-7.525055396930957_p 1389w(7)=2.403799099124294_p 1390x(8)=-5.080780605085613_p 1391w(8)=2.446260414255817_p 1392x(9)=-2.654191868411418_p 1393w(9)=2.208174136469315_p 1394x(10)=-3.795119268621795e-1_p 1395w(10)=1.312369674075263_p 1396x(11)=1.897182255174219_p 1397w(11)=3.147597584259108e-1_p 1398x(12)=4.503730413858179_p 1399w(12)=3.055835097211947e-2_p 1400x(13)=7.442142243944804_p 1401w(13)=1.794085537788435e-3_p 1402x(14)=10.58091349884793_p 1403w(14)=8.086551282300408e-5_p 1404x(15)=13.72967347715674_p 1405w(15)=3.332943934702843e-6_p 1406x(16)=16.55155751196377_p 1407w(16)=1.614642901761179e-7_p 1408x(17)=18.49121658386315_p 1409w(17)=1.188531560222970e-8_p 1410else 1411call GD(-17) 1412end if 1413end subroutine GF_m17 1414 1415! [-16kT;19kT] 1416subroutine GF_m16(N,x,w) 1417integer,intent(in)::N 1418real(p),intent(out)::x(N),w(N) 1419if(N==2)then 1420x(1)=-12.40753472318929_p 1421w(1)=8.484774879831503_p 1422x(2)=-2.804963042535969_p 1423w(2)=7.515225227100869_p 1424else if(N==3)then 1425x(1)=-13.97871957910064_p 1426w(1)=4.977651875492455_p 1427x(2)=-7.080132791331680_p 1428w(2)=7.821263566528694_p 1429x(3)=-4.368155571490870e-1_p 1430w(3)=3.201084664911222_p 1431else if(N==4)then 1432x(1)=-14.68162315785548_p 1433w(1)=3.300466092091263_p 1434x(2)=-9.754524319405604_p 1435w(2)=6.133885419526512_p 1436x(3)=-3.491744359171638_p 1437w(3)=5.588176877256286_p 1438x(4)=1.480095035756116_p 1439w(4)=9.774717180583112e-1_p 1440else if(N==5)then 1441x(1)=-15.05639142473783_p 1442w(1)=2.381610414109515_p 1443x(2)=-11.37059280440013_p 1444w(2)=4.780506907837298_p 1445x(3)=-6.049918646588747_p 1446w(3)=5.508260029302417_p 1447x(4)=-1.069839518675824_p 1448w(4)=3.171793948014532_p 1449x(5)=3.664880234237972_p 1450w(5)=1.578288076686105e-1_p 1451else if(N==6)then 1452x(1)=-15.28150428803854_p 1453w(1)=1.821895941308700_p 1454x(2)=-12.40399564857078_p 1455w(2)=3.815820085599147_p 1456x(3)=-7.967080960729522_p 1457w(3)=4.860303158232063_p 1458x(4)=-3.153115076243476_p 1459w(4)=4.306703353238253_p 1460x(5)=8.725141346234616e-1_p 1461w(5)=1.180963027666195_p 1462x(6)=6.232230050807538_p 1463w(6)=1.431454088801383e-2_p 1464else if(N==7)then 1465x(1)=-15.42922748331012_p 1466w(1)=1.451541459731032_p 1467x(2)=-13.10738983024167_p 1468w(2)=3.120847723310484_p 1469x(3)=-9.383443345359119_p 1470w(3)=4.204404219078649_p 1471x(4)=-4.991765483480294_p 1472w(4)=4.372035406817784_p 1473x(5)=-9.517570432557572e-1_p 1474w(5)=2.609670015552905_p 1475x(6)=2.902777880021518_p 1476w(6)=2.405215695391961e-1_p 1477x(7)=9.001094853245061_p 1478w(7)=9.797129023222026e-4_p 1479else if(N==8)then 1480x(1)=-15.53337277167433_p 1481w(1)=1.189019700820866_p 1482x(2)=-13.6152006778829_p 1483w(2)=2.601422086016972_p 1484x(3)=-10.45826426995369_p 1485w(3)=3.631961553442594_p 1486x(4)=-6.543812804951138_p 1487w(4)=4.076893723054496_p 1488x(5)=-2.569437216041262_p 1489w(5)=3.449112236350028_p 1490x(6)=8.823157937217735e-1_p 1491w(6)=1.021154978839020_p 1492x(7)=5.144997431198521_p 1493w(7)=3.036712453003594e-2_p 1494x(8)=11.68098517281391_p 1495w(8)=6.870387835990115e-5_p 1496else if(N==9)then 1497x(1)=-15.61091525070326_p 1498w(1)=9.928142274203614e-1_p 1499x(2)=-13.99958990845349_p 1500w(2)=2.199020431036652_p 1501x(3)=-11.2995123947824_p 1502w(3)=3.146239211017844_p 1503x(4)=-7.838702307652698_p 1504w(4)=3.696649189781665_p 1505x(5)=-4.088169962763279_p 1506w(5)=3.629680755954092_p 1507x(6)=-6.634447222938998e-1_p 1508w(6)=2.089825677364392_p 1509x(7)=2.710900696140762_p 1510w(7)=2.423824430344002e-1_p 1511x(8)=7.400250023826009_p 1512w(8)=3.381407108785085e-3_p 1513x(9)=13.92657290666058_p 1514w(9)=6.764214179230857e-6_p 1515else if(N==10)then 1516x(1)=-15.67068848861969_p 1517w(1)=8.411555897473014e-1_p 1518x(2)=-14.29943887204846_p 1519w(2)=1.879973404708189_p 1520x(3)=-11.97137046511667_p 1521w(3)=2.737577455025473_p 1522x(4)=-8.917005311956743_p 1523w(4)=3.316457590759503_p 1524x(5)=-5.464598975249143_p 1525w(5)=3.497582920570443_p 1526x(6)=-2.072819316842974_p 1527w(6)=2.827956686455469_p 1528x(7)=9.705031828604784e-1_p 1529w(7)=8.568125761423607e-1_p 1530x(8)=4.602386188858056_p 1531w(8)=4.206012155688618e-2_p 1532x(9)=9.477364372570253_p 1533w(9)=4.226470834943986e-4_p 1534x(10)=15.55389850407751_p 1535w(10)=1.114883252327725e-6_p 1536else if(N==11)then 1537x(1)=-15.71777891276145_p 1538w(1)=7.214337864629402e-1_p 1539x(2)=-14.53774963472344_p 1540w(2)=1.623396887892301_p 1541x(3)=-12.51455844152576_p 1542w(3)=2.395152686030743_p 1543x(4)=-9.814478865396323_p 1544w(4)=2.965659953641199_p 1545x(5)=-6.673537472423963_p 1546w(5)=3.259378579207176_p 1547x(6)=-3.414556729648229_p 1548w(6)=3.076997767541347_p 1549x(7)=-4.288989707525538e-1_p 1550w(7)=1.713130876323931_p 1551x(8)=2.577746003597720_p 1552w(8)=2.378943626275566e-1_p 1553x(9)=6.450571785777105_p 1554w(9)=6.888444132823897e-3_p 1555x(10)=11.27658278606389_p 1556w(10)=6.646448188393044e-5_p 1557x(11)=16.62831496958943_p 1558w(11)=2.985904696249856e-7_p 1559else if(N==12)then 1560x(1)=-15.75550211474488_p 1561w(1)=6.253794246862904e-1_p 1562x(2)=-14.72992999761202_p 1563w(2)=1.414656622562301_p 1564x(3)=-12.95824314285139_p 1565w(3)=2.108177644463061_p 1566x(4)=-10.56314309572838_p 1567w(4)=2.652974112330485_p 1568x(5)=-7.718769411440165_p 1569w(5)=2.996298075884468_p 1570x(6)=-4.657308055556010_p 1571w(6)=3.042725865111685_p 1572x(7)=-1.697472215504946_p 1573w(7)=2.366754975904567_p 1574x(8)=1.031569445276048_p 1575w(8)=7.391118879213505e-1_p 1576x(9)=4.202910972287154_p 1577w(9)=5.267830937871350e-2_p 1578x(10)=8.164880526041964_p 1579w(10)=1.229385204369663e-3_p 1580x(11)=12.76734701482322_p 1581w(11)=1.368858978653740e-5_p 1582x(12)=17.31644531650799_p 1583w(12)=1.148952948785487e-7_p 1584else if(N==13)then 1585x(1)=-15.78616510774985_p 1586w(1)=5.472092239322364e-1_p 1587x(2)=-14.88694925403187_p 1588w(2)=1.242952862296840_p 1589x(3)=-13.32432792141057_p 1590w(3)=1.866823836783579_p 1591x(4)=-11.19069136693391_p 1592w(4)=2.378543325338715_p 1593x(5)=-8.617307514878950_p 1594w(5)=2.739264065203892_p 1595x(6)=-5.776418848194468_p 1596w(6)=2.895003245494103_p 1597x(7)=-2.901304337970234_p 1598w(7)=2.648024759615670_p 1599x(8)=-2.453265117816035e-1_p 1600w(8)=1.437579899637792_p 1601x(9)=2.465317844234723_p 1602w(9)=2.331609794484059e-1_p 1603x(10)=5.783427750618035_p 1604w(10)=1.117925514346728e-2_p 1605x(11)=9.698086340668194_p 1606w(11)=2.549210839776503e-4_p 1607x(12)=13.96409522693279_p 1608w(12)=3.676412578605242e-6_p 1609x(13)=17.76199633643935_p 1610w(13)=5.654111429949408e-8_p 1611else if(N==14)then 1612x(1)=-15.81141594984661_p 1613w(1)=4.827756459406914e-1_p 1614x(2)=-15.0167811153081_p 1615w(2)=1.100227334344257_p 1616x(3)=-13.6293628695613_p 1617w(3)=1.662753702091531_p 1618x(4)=-11.71997859637837_p 1619w(4)=2.139192063504745_p 1620x(5)=-9.389413185805436_p 1621w(5)=2.499984385613919_p 1622x(6)=-6.768754650971984_p 1623w(6)=2.710003630814288_p 1624x(7)=-4.029504287143062_p 1625w(7)=2.677960925183158_p 1626x(8)=-1.400453763449435_p 1627w(8)=2.012789999737220_p 1628x(9)=1.077502029174260_p 1629w(9)=6.499391015960011e-1_p 1630x(10)=3.897257954672921_p 1631w(10)=6.178739363489902e-2_p 1632x(11)=7.262954815592832_p 1633w(11)=2.521699619825467e-3_p 1634x(12)=11.0336108689385_p 1635w(12)=6.294169630533811e-5_p 1636x(13)=14.90630610971824_p 1637w(13)=1.250377264776235e-6_p 1638x(14)=18.05905095454618_p 1639w(14)=3.277826717350654e-8_p 1640else if(N==15)then 1641x(1)=-15.83245281491386_p 1642w(1)=4.290543231436207e-1_p 1643x(2)=-15.12529991447815_p 1644w(2)=9.804281394057153e-1_p 1645x(3)=-13.88589207884545_p 1646w(3)=1.489154468104883_p 1647x(4)=-12.16937636901413_p 1648w(4)=1.930750804234094_p 1649x(5)=-10.05438247435133_p 1650w(5)=2.282213588005769_p 1651x(6)=-7.642715361487008_p 1652w(6)=2.518503462883500_p 1653x(7)=-5.064040769107685_p 1654w(7)=2.592412535948085_p 1655x(8)=-2.493553870564043_p 1656w(8)=2.305396706566447_p 1657x(9)=-9.491262757465807e-2_p 1658w(9)=1.228124342230341_p 1659x(10)=2.373177205710648_p 1660w(10)=2.274921590118207e-1_p 1661x(11)=5.286642641221332_p 1662w(11)=1.581715466761094e-2_p 1663x(12)=8.611357149811187_p 1664w(12)=6.333382495066947e-4_p 1665x(13)=12.17510600349478_p 1666w(13)=1.854536996348558e-5_p 1667x(14)=15.64174008187585_p 1668w(14)=5.178785122957673e-7_p 1669x(15)=18.26397082611649_p 1670w(15)=2.123250294068608e-8_p 1671else if(N==16)then 1672x(1)=-15.85016150709273_p 1673w(1)=3.838041103910020e-1_p 1674x(2)=-15.21689364092457_p 1675w(2)=8.789679770291309e-1_p 1676x(3)=-14.10349021968761_p 1677w(3)=1.340545676749116_p 1678x(4)=-12.55350553053302_p 1679w(4)=1.749036679952721_p 1680x(5)=-10.62915839271853_p 1681w(5)=2.086226853437848_p 1682x(6)=-8.410825659525349_p 1683w(6)=2.333244634581964_p 1684x(7)=-5.999140994905028_p 1685w(7)=2.462032746452731_p 1686x(8)=-3.525576130811395_p 1687w(8)=2.378850671227326_p 1688x(9)=-1.157109099550357_p 1689w(9)=1.734055299681770_p 1690x(10)=1.114624954988409_p 1691w(10)=5.795221484691234e-1_p 1692x(11)=3.656524136659005_p 1693w(11)=6.929163027504465e-2_p 1694x(12)=6.595919457877284_p 1695w(12)=4.234587561646689e-3_p 1696x(13)=9.817437939734493_p 1697w(13)=1.803749772164253e-4_p 1698x(14)=13.1384501059174_p 1699w(14)=6.450003792137969e-6_p 1700x(15)=16.2155876847914_p 1701w(15)=2.512806017689944e-7_p 1702x(16)=18.410060315096_p 1703w(16)=1.486133778413366e-8_p 1704else if(N==17)then 1705x(1)=-15.86520751177815_p 1706w(1)=3.453381175694725e-1_p 1707x(2)=-15.29488622058486_p 1708w(2)=7.923318694341850e-1_p 1709x(3)=-14.28953365951271_p 1710w(3)=1.212538845534243_p 1711x(4)=-12.88398593856544_p 1712w(4)=1.590233071542958_p 1713x(5)=-11.12810124439872_p 1714w(5)=1.910787927261468_p 1715x(6)=-9.086227379038464_p 1716w(6)=2.159471945088723_p 1717x(7)=-6.838094844272905_p 1718w(7)=2.317555944613305_p 1719x(8)=-4.484416712244126_p 1720w(8)=2.338371081684962_p 1721x(9)=-2.160103463716937_p 1722w(9)=2.025723473236916_p 1723x(10)=3.135756882190408e-2_p 1724w(10)=1.064677556997521_p 1725x(11)=2.297028842667796_p 1726w(11)=2.211902420072317e-1_p 1727x(12)=4.900225631339895_p 1728w(12)=2.048939768927555e-2_p 1729x(13)=7.804354590856207_p 1730w(13)=1.229424914587177e-3_p 1731x(14)=10.88199552385304_p 1732w(14)=5.845841526141038e-5_p 1733x(15)=13.94542890422479_p 1734w(15)=2.601819517540904e-6_p 1735x(16)=16.66569861941311_p 1736w(16)=1.381227817166444e-7_p 1737x(17)=18.51733965760902_p 1738w(17)=1.099996397837238e-8_p 1739else 1740call GD(-16) 1741end if 1742end subroutine GF_m16 1743 1744! [-15kT;19kT] 1745subroutine GF_m15(N,x,w) 1746integer,intent(in)::N 1747real(p),intent(out)::x(N),w(N) 1748if(N==2)then 1749x(1)=-11.60757011160354_p 1750w(1)=8.010479748250502_p 1751x(2)=-2.557094653510492_p 1752w(2)=6.989520552048976_p 1753else if(N==3)then 1754x(1)=-13.08170876183341_p 1755w(1)=4.723442861632945_p 1756x(2)=-6.541755060580799_p 1757w(2)=7.396057054730933_p 1758x(3)=-2.364774565799119e-1_p 1759w(3)=2.880500383935600_p 1760else if(N==4)then 1761x(1)=-13.74327555214668_p 1762w(1)=3.145817956461167_p 1763x(2)=-9.049755181196296_p 1764w(2)=5.837692927546938_p 1765x(3)=-3.109098546347981_p 1766w(3)=5.206292466060828_p 1767x(4)=1.722223501197670_p 1768w(4)=8.101969502305451e-1_p 1769else if(N==5)then 1770x(1)=-14.09714874466552_p 1771w(1)=2.278551509081225_p 1772x(2)=-10.57239344011085_p 1773w(2)=4.568967003449998_p 1774x(3)=-5.496799498385655_p 1775w(3)=5.228166563764793_p 1776x(4)=-7.683911891993095e-1_p 1777w(4)=2.807425197447879_p 1778x(5)=3.989301111382562_p 1779w(5)=1.168900265555825e-1_p 1780else if(N==6)then 1781x(1)=-14.3104420064966_p 1782w(1)=1.748391806077938_p 1783x(2)=-11.55001562022023_p 1784w(2)=3.658962729462983_p 1785x(3)=-7.300526545173084_p 1786w(3)=4.645167284020639_p 1787x(4)=-2.719624675566397_p 1788w(4)=3.988751730992073_p 1789x(5)=1.182030883857900_p 1790w(5)=9.489734862099762e-1_p 1791x(6)=6.625886006817609_p 1792w(6)=9.753263535868301e-3_p 1793else if(N==7)then 1794x(1)=-14.45099457839556_p 1795w(1)=1.396099261150437_p 1796x(2)=-12.21849702545209_p 1797w(2)=2.999739764514112_p 1798x(3)=-8.642034788044395_p 1799w(3)=4.032988268329389_p 1800x(4)=-4.441551971314312_p 1801w(4)=4.141863949001666_p 1802x(5)=-5.969611849647630e-1_p 1803w(5)=2.256705363338485_p 1804x(6)=3.273482121375732_p 1805w(6)=1.719631175753993e-1_p 1806x(7)=9.428263764727214_p 1807w(7)=6.405763899887064e-4_p 1808else if(N==8)then 1809x(1)=-14.55054969510535_p 1810w(1)=1.145192764993515_p 1811x(2)=-12.70351871536774_p 1812w(2)=2.504272207702686_p 1813x(3)=-9.666325160540570_p 1814w(3)=3.491401002644099_p 1815x(4)=-5.910025259970377_p 1816w(4)=3.896701311386830_p 1817x(5)=-2.125722419448691_p 1818w(5)=3.148492207928558_p 1819x(6)=1.233902019366057_p 1820w(6)=7.935837495842030e-1_p 1821x(7)=5.556911851145885_p 1822w(7)=2.031169142190816e-2_p 1823x(8)=12.08648411182946_p 1824w(8)=4.536463767941246e-5_p 1825else if(N==9)then 1826x(1)=-14.62493149368072_p 1827w(1)=9.570100731830939e-1_p 1828x(2)=-13.07200908949185_p 1829w(2)=2.118874766659632_p 1830x(3)=-10.4715198458625_p 1831w(3)=3.028489174265113_p 1832x(4)=-7.144054690465146_p 1833w(4)=3.547097047564696_p 1834x(5)=-3.557149529643025_p 1835w(5)=3.414345289468949_p 1836x(6)=-2.879853582925037e-1_p 1837w(6)=1.761625289567240_p 1838x(7)=3.098712472836795_p 1839w(7)=1.703220178190144e-1_p 1840x(8)=7.813230117706015_p 1841w(8)=2.231909029614937e-3_p 1842x(9)=14.25621282256853_p 1843w(9)=4.732742125530398e-6_p 1844else if(N==10)then 1845x(1)=-14.68236437126837_p 1846w(1)=8.113049781413602e-1_p 1847x(2)=-13.35997693807841_p 1848w(2)=1.812685788038743_p 1849x(3)=-11.11601244856094_p 1850w(3)=2.637589842288242_p 1851x(4)=-8.175531423785571_p 1852w(4)=3.189017318476173_p 1853x(5)=-4.862887026457561_p 1854w(5)=3.333292268523897_p 1855x(6)=-1.632621750981538_p 1856w(6)=2.537035841980437_p 1857x(7)=1.341982903327675_p 1858w(7)=6.506171238546581e-1_p 1859x(8)=5.010220554816000_p 1860w(8)=2.817223142142377e-2_p 1861x(9)=9.862851037759967_p 1862w(9)=2.840667955412353e-4_p 1863x(10)=15.79187850684779_p 1864w(10)=8.407790016160598e-7_p 1865else if(N==11)then 1866x(1)=-14.7276482641779_p 1867w(1)=6.961860032880863e-1_p 1868x(2)=-13.58905551940357_p 1869w(2)=1.566185194644051_p 1870x(3)=-11.63769483736255_p 1871w(3)=2.309390790761117_p 1872x(4)=-9.035787458081284_p 1873w(4)=2.855600116556423_p 1874x(5)=-6.015607370267310_p 1875w(5)=3.124052104164282_p 1876x(6)=-2.900631773860101_p 1877w(6)=2.866503629336255_p 1878x(7)=-4.048683007706631e-2_p 1879w(7)=1.411757413977114_p 1880x(8)=2.973112146382447_p 1881w(8)=1.656990674652931e-1_p 1882x(9)=6.853776031982849_p 1883w(9)=4.579477540637239e-3_p 1884x(10)=11.61859673280037_p 1885w(10)=4.626227561227598e-5_p 1886x(11)=16.79134588855925_p 1887w(11)=2.402906059249159e-7_p 1888else if(N==12)then 1889x(1)=-14.76394707721096_p 1890w(1)=6.037651105255836e-1_p 1891x(2)=-13.7739203169294_p 1892w(2)=1.365479355910020_p 1893x(3)=-12.06419254018976_p 1894w(3)=2.033951070573466_p 1895x(4)=-9.754420078815981_p 1896w(4)=2.557044378215891_p 1897x(5)=-7.015495274785429_p 1898w(5)=2.880169038930060_p 1899x(6)=-4.079187188701116_p 1900w(6)=2.886524280393083_p 1901x(7)=-1.257818116494953_p 1902w(7)=2.085749520486980_p 1903x(8)=1.417877712670844_p 1904w(8)=5.512204905130501e-1_p 1905x(9)=4.610345947069514_p 1906w(9)=3.525844093968358e-2_p 1907x(10)=8.546851776634783_p 1908w(10)=8.285778852822664e-4_p 1909x(11)=13.05972629853133_p 1910w(11)=9.938959529717584e-6_p 1911x(12)=17.42792517458926_p 1912w(12)=9.696684752095143e-8_p 1913else if(N==13)then 1914x(1)=-14.79346945759833_p 1915w(1)=5.285071449220548e-1_p 1916x(2)=-13.92505894628745_p 1917w(2)=1.200265299088666_p 1918x(3)=-12.41636956629538_p 1919w(3)=1.802038406684985_p 1920x(4)=-10.35746990479612_p 1921w(4)=2.294282440962366_p 1922x(5)=-7.876938540267327_p 1923w(5)=2.637569723347799_p 1924x(6)=-5.145704464840460_p 1925w(6)=2.769134791093313_p 1926x(7)=-2.398590101211065_p 1927w(7)=2.438811119575004_p 1928x(8)=1.548510095248831e-1_p 1929w(8)=1.160617128299621_p 1930x(9)=2.867933171008804_p 1931w(9)=1.611603425646936e-1_p 1932x(10)=6.185164337188186_p 1933w(10)=7.434916104944727e-3_p 1934x(11)=10.04915596112621_p 1935w(11)=1.761526900550373e-4_p 1936x(12)=14.20792822610201_p 1937w(12)=2.785649076197936e-6_p 1938x(13)=17.84000753794901_p 1939w(13)=4.931689755369399e-8_p 1940else if(N==14)then 1941x(1)=-14.81779408717416_p 1942w(1)=4.664400866479053e-1_p 1943x(2)=-14.05010109640436_p 1944w(2)=1.062845634121713_p 1945x(3)=-12.71001704454953_p 1946w(3)=1.605768717225880_p 1947x(4)=-10.86656350733313_p 1948w(4)=2.064669398273777_p 1949x(5)=-8.618332614319879_p 1950w(5)=2.409900701386696_p 1951x(6)=-6.094802972582489_p 1952w(6)=2.602649741184210_p 1953x(7)=-3.468778621874312_p 1954w(7)=2.524841394471182_p 1955x(8)=-9.590824532218895e-1_p 1956w(8)=1.742358658396314_p 1957x(9)=1.475958641302652_p 1958w(9)=4.775292389868530e-1_p 1959x(10)=4.306854399273401_p 1960w(10)=4.125522563904051e-2_p 1961x(11)=7.646881422724826_p 1962w(11)=1.695651925420472e-3_p 1963x(12)=11.34925216726653_p 1964w(12)=4.483780264350959e-5_p 1965x(13)=15.10695845822221_p 1966w(13)=9.849893982822330e-7_p 1967x(14)=18.11537013491281_p 1968w(14)=2.924844555623832e-8_p 1969else if(N==15)then 1970x(1)=-14.83806917534611_p 1971w(1)=4.146662602469252e-1_p 1972x(2)=-14.15467096031468_p 1973w(2)=9.474342069266798e-1_p 1974x(3)=-12.95711782932031_p 1975w(3)=1.438675192509582_p 1976x(4)=-11.29914861761587_p 1977w(4)=1.864426899171253_p 1978x(5)=-9.257610677885566_p 1979w(5)=2.201788986164728_p 1980x(6)=-6.932721560557387_p 1981w(6)=2.424124404911173_p 1982x(7)=-4.454342856534646_p 1983w(7)=2.472034979436654_p 1984x(8)=-1.998333609110368_p 1985w(8)=2.096363161439878_p 1986x(9)=3.155151393532987e-1_p 1987w(9)=9.733383460249764e-1_p 1988x(10)=2.782375828839830_p 1989w(10)=1.561994897749133e-1_p 1990x(11)=5.689805036350782_p 1991w(11)=1.049984104589882e-2_p 1992x(12)=8.970448276286920_p 1993w(12)=4.344498450832508e-4_p 1994x(13)=12.45455234803688_p 1995w(13)=1.364175005257307e-5_p 1996x(14)=15.80617175902905_p 1997w(14)=4.217994269186502e-7_p 1998x(15)=18.30592182334558_p 1999w(15)=1.925225322371559e-8_p 2000else if(N==16)then 2001x(1)=-14.85514407665745_p 2002w(1)=3.710371027066557e-1_p 2003x(2)=-14.2429727121609_p 2004w(2)=8.496408754045710e-1_p 2005x(3)=-13.1668288044682_p 2006w(3)=1.295541111053132_p 2007x(4)=-11.66914822718484_p 2008w(4)=1.689670230595115_p 2009x(5)=-9.810697273916379_p 2010w(5)=2.013986385864587_p 2011x(6)=-7.670411346071723_p 2012w(6)=2.248919312739203_p 2013x(7)=-5.348446562665768_p 2014w(7)=2.360885092585600_p 2015x(8)=-2.978120925977277_p 2016w(8)=2.225737814295844_p 2017x(9)=-7.129931356323852e-1_p 2018w(9)=1.474987412413356_p 2019x(10)=1.523033057195205_p 2020w(10)=4.204914558623385e-1_p 2021x(11)=4.069134959689226_p 2022w(11)=4.613462815713121e-2_p 2023x(12)=6.983350246968352_p 2024w(12)=2.836971906344799e-3_p 2025x(13)=10.14820144653497_p 2026w(13)=1.267879045898985e-4_p 2027x(14)=13.38342050310612_p 2028w(14)=4.894780344308597e-6_p 2029x(15)=16.35063515837433_p 2030w(15)=2.103980971446600e-7_p 2031x(16)=18.44221048100649_p 2032w(16)=1.363256732564337e-8_p 2033else if(N==17)then 2034x(1)=-14.86965729613357_p 2035w(1)=3.339343470901837e-1_p 2036x(2)=-14.3181934314639_p 2037w(2)=7.660985416405219e-1_p 2038x(3)=-13.34621211687718_p 2039w(3)=1.172180085392269_p 2040x(4)=-11.98765079395462_p 2041w(4)=1.536813865388973_p 2042x(5)=-10.29117769779528_p 2043w(5)=1.845562249478114_p 2044x(6)=-8.319878100091618_p 2045w(6)=2.083402831810030_p 2046x(7)=-6.152712747580469_p 2047w(7)=2.229018666109704_p 2048x(8)=-3.891430429644987_p 2049w(8)=2.220442552637070_p 2050x(9)=-1.669867893366535_p 2051w(9)=1.817164002818513_p 2052x(10)=4.505897756449273e-1_p 2053w(10)=8.299320428495713e-1_p 2054x(11)=2.712072060130368_p 2055w(11)=1.510029448836137e-1_p 2056x(12)=5.305902396683133_p 2057w(12)=1.356621876369341e-2_p 2058x(13)=8.170603829021802_p 2059w(13)=8.376114636979328e-4_p 2060x(14)=11.18338153366435_p 2061w(14)=4.217930942394495e-5_p 2062x(15)=14.15902688824266_p 2063w(15)=2.032202127940133e-6_p 2064x(16)=16.77729324561843_p 2065w(16)=1.182840116601514e-7_p 2066x(17)=18.5425999983523_p 2067w(17)=1.017795845353467e-8_p 2068else 2069call GD(-15) 2070end if 2071end subroutine GF_m15 2072 2073! [-14kT;19kT] 2074subroutine GF_m14(N,x,w) 2075integer,intent(in)::N 2076real(p),intent(out)::x(N),w(N) 2077if(N==2)then 2078x(1)=-10.80652742549931_p 2079w(1)=7.538498666698110_p 2080x(2)=-2.304431007286181_p 2081w(2)=6.461502159227468_p 2082else if(N==3)then 2083x(1)=-12.18399981062787_p 2084w(1)=4.470872247731750_p 2085x(2)=-6.001291524534851_p 2086w(2)=6.968248622921372_p 2087x(3)=-2.478854844720644e-2_p 2088w(3)=2.560879955272454_p 2089else if(N==4)then 2090x(1)=-12.80450574984805_p 2091w(1)=2.992186285479923_p 2092x(2)=-8.343422540545674_p 2093w(2)=5.541856390619412_p 2094x(3)=-2.724925893223477_p 2095w(3)=4.809700245556097_p 2096x(4)=1.984759702177560_p 2097w(4)=6.562579042701454e-1_p 2098else if(N==5)then 2099x(1)=-13.1376581108773_p 2100w(1)=2.176095209133521_p 2101x(2)=-9.773205204741144_p 2102w(2)=4.357969414061926_p 2103x(3)=-4.943367909058023_p 2104w(3)=4.940213879818985_p 2105x(4)=-4.585169520724060e-1_p 2106w(4)=2.441397826933908_p 2107x(5)=4.337562405049559_p 2108w(5)=8.432449597723732e-2_p 2109else if(N==6)then 2110x(1)=-13.33925076361198_p 2111w(1)=1.675200520207144_p 2112x(2)=-10.69552200264913_p 2113w(2)=3.502403695583021_p 2114x(3)=-6.633795399039744_p 2115w(3)=4.427206502977526_p 2116x(4)=-2.287429582265062_p 2117w(4)=3.648379722187226_p 2118x(5)=1.512494518841647_p 2119w(5)=7.403120111534242e-1_p 2120x(6)=7.040694274206376_p 2121w(6)=6.498373817235526e-3_p 2122else if(N==7)then 2123x(1)=-13.47272146566745_p 2124w(1)=1.340750550513931_p 2125x(2)=-11.32947921843778_p 2126w(2)=2.878627538185830_p 2127x(3)=-7.900865347484164_p 2128w(3)=3.860179266087487_p 2129x(4)=-3.894138328359791_p 2130w(4)=3.896729343844835_p 2131x(5)=-2.348109356502825e-1_p 2132w(5)=1.903886809018397_p 2133x(6)=3.667671961968752_p 2134w(6)=1.194150487714756e-1_p 2135x(7)=9.869718094235726_p 2136w(7)=4.122695036218182e-4_p 2137else if(N==8)then 2138x(1)=-13.56773654099702_p 2139w(1)=1.101335047981253_p 2140x(2)=-11.79193528224408_p 2141w(2)=2.406932925509089_p 2142x(3)=-8.874912012319996_p 2143w(3)=3.349891735911395_p 2144x(4)=-5.278600261341842_p 2145w(4)=3.709570227795894_p 2146x(5)=-1.684993518701661_p 2147w(5)=2.822626149957119_p 2148x(6)=1.605365180668866_p 2149w(6)=5.962928184628111e-1_p 2150x(7)=5.985695835201829_p 2151w(7)=1.332214216203570e-2_p 2152x(8)=12.49482645373667_p 2153w(8)=2.977814598041329e-5_p 2154else if(N==9)then 2155x(1)=-13.63897054925073_p 2156w(1)=9.211440967149455e-1_p 2157x(2)=-12.14457597171132_p 2158w(2)=2.038515668135386_p 2159x(3)=-9.644053277240710_p 2160w(3)=2.910057915088933_p 2161x(4)=-6.451147828348202_p 2162w(4)=3.394205335788240_p 2163x(5)=-3.030943627439302_p 2164w(5)=3.177714747987907_p 2165x(6)=9.569344649883653e-2_p 2166w(6)=1.440516911285874_p 2167x(7)=3.506828761716786_p 2168w(7)=1.163871280611550e-1_p 2169x(8)=8.235991216896112_p 2170w(8)=1.455703950066850e-3_p 2171x(9)=14.57941505155459_p 2172w(9)=3.318913069898246e-6_p 2173else if(N==10)then 2174x(1)=-13.6940609677894_p 2175w(1)=7.813989491875196e-1_p 2176x(2)=-12.42064243039061_p 2177w(2)=1.745223476922680_p 2178x(3)=-10.26107139515098_p 2179w(3)=2.537121833428583_p 2180x(4)=-7.435279875429342_p 2181w(4)=3.059783066162238_p 2182x(5)=-4.264811334087963_p 2183w(5)=3.157835984410908_p 2184x(6)=-1.194296436759520_p 2185w(6)=2.223068168439710_p 2186x(7)=1.732460494930123_p 2187w(7)=4.768465847758305e-1_p 2188x(8)=5.432580449985370_p 2189w(8)=1.853241489913626e-2_p 2190x(9)=10.25247350756843_p 2191w(9)=1.897104326610722e-4_p 2192x(10)=16.02098393227272_p 2193w(10)=6.372663093664684e-7_p 2194else if(N==11)then 2195x(1)=-13.73753458678918_p 2196w(1)=6.708930279160447e-1_p 2197x(2)=-12.64046363910981_p 2198w(2)=1.508836617764255_p 2199x(3)=-10.76115254377286_p 2200w(3)=2.223281871941899_p 2201x(4)=-8.257972582966309_p 2202w(4)=2.744466461742574_p 2203x(5)=-5.360145265803088_p 2204w(5)=2.983260988549316_p 2205x(6)=-2.391625995829041_p 2206w(6)=2.630512128980870_p 2207x(7)=3.577080662215280e-1_p 2208w(7)=1.123416449154684_p 2209x(8)=3.387073152186238_p 2210w(8)=1.122914876568611e-1_p 2211x(9)=7.266241387283869_p 2212w(9)=3.009475261994350e-3_p 2213x(10)=11.96066757566566_p 2214w(10)=3.212272122337846e-5_p 2215x(11)=16.94700796749509_p 2216w(11)=1.942358559791654e-7_p 2217else if(N==12)then 2218x(1)=-13.77240621127818_p 2219w(1)=5.821132084365459e-1_p 2220x(2)=-12.81799451177214_p 2221w(2)=1.316192014446724_p 2222x(3)=-11.17039693875701_p 2223w(3)=1.959462942624705_p 2224x(4)=-8.946354086474038_p 2225w(4)=2.460410991187234_p 2226x(5)=-6.313931049870785_p 2227w(5)=2.761189124426174_p 2228x(6)=-3.505354379712286_p 2229w(6)=2.714717563481729_p 2230x(7)=-8.182892052183881e-1_p 2231w(7)=1.785839363827026_p 2232x(8)=1.822440611207504_p 2233w(8)=3.963291027768958e-1_p 2234x(9)=5.031336033678315_p 2235w(9)=2.318478352261963e-2_p 2236x(10)=8.934001147700789_p 2237w(10)=5.544320982048852e-4_p 2238x(11)=13.3496721882337_p 2239w(11)=7.217012921455955e-6_p 2240x(12)=17.53420018919502_p 2241w(12)=8.208479781675024e-8_p 2242else if(N==13)then 2243x(1)=-13.80078591157293_p 2244w(1)=5.097730772738563e-1_p 2245x(2)=-12.96323915638066_p 2246w(2)=1.157486841844353_p 2247x(3)=-11.50861948234434_p 2248w(3)=1.737048542788208_p 2249x(4)=-9.524760276359537_p 2250w(4)=2.209527487739445_p 2251x(5)=-7.137807590900750_p 2252w(5)=2.534239992542274_p 2253x(6)=-4.518109410340762_p 2254w(6)=2.635060942369556_p 2255x(7)=-1.900348029873845_p 2256w(7)=2.201945551923330_p 2257x(8)=5.658740017128708e-1_p 2258w(8)=9.014991263079517e-1_p 2259x(9)=3.287820808440481_p 2260w(9)=1.084079488447742e-1_p 2261x(10)=6.595939385729719_p 2262w(10)=4.887932692733779e-3_p 2263x(11)=10.40235586525197_p 2264w(11)=1.212249609058909e-4_p 2265x(12)=14.44819893646593_p 2266w(12)=2.113544852028326e-6_p 2267x(13)=17.91450547756013_p 2268w(13)=4.309333868155959e-8_p 2269else if(N==14)then 2270x(1)=-13.8241826940149_p 2271w(1)=4.500769428634678e-1_p 2272x(2)=-13.08348126657673_p 2273w(2)=1.025387534250152_p 2274x(3)=-11.79084472173075_p 2275w(3)=1.548619587422946_p 2276x(4)=-10.01355866724897_p 2277w(4)=1.989781690454239_p 2278x(5)=-7.848185730244854_p 2279w(5)=2.318791099174990_p 2280x(6)=-5.423077993758896_p 2281w(6)=2.490949189564971_p 2282x(7)=-2.912718107127863_p 2283w(7)=2.351939336460687_p 2284x(8)=-5.161683770680355e-1_p 2285w(8)=1.458199143562475_p 2286x(9)=1.891815793578988_p 2287w(9)=3.380262654997530e-1_p 2288x(10)=4.729253872529461_p 2289w(10)=2.706582936027532e-2_p 2290x(11)=8.036435609961034_p 2291w(11)=1.131524709042621e-3_p 2292x(12)=11.66490780070109_p 2293w(12)=3.187919240086706e-5_p 2294x(13)=15.30383565954369_p 2295w(13)=7.772873892795296e-7_p 2296x(14)=18.16931400852222_p 2297w(14)=2.612278867402797e-8_p 2298else if(N==15)then 2299x(1)=-13.8436946596872_p 2300w(1)=4.002542180493711e-1_p 2301x(2)=-13.18409388776057_p 2302w(2)=9.143752559998953e-1_p 2303x(3)=-12.02849017025163_p 2304w(3)=1.388061417051870_p 2305x(4)=-10.42925677949646_p 2306w(4)=1.797822844007079_p 2307x(5)=-8.461566744227785_p 2308w(5)=2.120671636330000_p 2309x(6)=-6.224356551865973_p 2310w(6)=2.327294980227421_p 2311x(7)=-3.848322058454070_p 2312w(7)=2.340283598535893_p 2313x(8)=-1.506785429386958_p 2314w(8)=1.859541647372674_p 2315x(9)=7.374337914914545e-1_p 2316w(9)=7.401060317687133e-1_p 2317x(10)=3.207708571953855_p 2318w(10)=1.043925842886905e-1_p 2319x(11)=6.101799047724864_p 2320w(11)=6.889669923133224e-3_p 2321x(12)=9.332637246654867_p 2322w(12)=2.965515782924631e-4_p 2323x(13)=12.73268717516692_p 2324w(13)=1.002920829331249e-5_p 2325x(14)=15.96709796500604_p 2326w(14)=3.441218749789147e-7_p 2327x(15)=18.34623494823096_p 2328w(15)=1.746237443535132e-8_p 2329else if(N==16)then 2330x(1)=-13.86013464206417_p 2331w(1)=3.582491230992799e-1_p 2332x(2)=-13.26909684166379_p 2333w(2)=8.202579032220539e-1_p 2334x(3)=-12.23029261292344_p 2335w(3)=1.250424549552126_p 2336x(4)=-10.78507060511222_p 2337w(4)=1.630082438191969_p 2338x(5)=-8.992818670089834_p 2339w(5)=1.941250420337818_p 2340x(6)=-6.931227772716946_p 2341w(6)=2.163105646500640_p 2342x(7)=-4.700475903194758_p 2343w(7)=2.253467125039598_p 2344x(8)=-2.435397057099580_p 2345w(8)=2.049449045981321_p 2346x(9)=-2.658345293396009e-1_p 2347w(9)=1.207710701597504_p 2348x(10)=1.947974645723445_p 2349w(10)=2.938438825466574e-1_p 2350x(11)=4.493918736920533_p 2351w(11)=3.018159477481173e-2_p 2352x(12)=7.376634750287342_p 2353w(12)=1.885638478332233e-3_p 2354x(13)=10.48023177410187_p 2355w(13)=8.885216633889297e-5_p 2356x(14)=13.62635847373564_p 2357w(14)=3.715520187528272e-6_p 2358x(15)=16.482633504624_p 2359w(15)=1.764124508614186e-7_p 2360x(16)=18.47320232909135_p 2361w(16)=1.250448819169490e-8_p 2362else if(N==17)then 2363x(1)=-13.87411412166658_p 2364w(1)=3.225121392575724e-1_p 2365x(2)=-13.3415400242951_p 2366w(2)=7.398168135817320e-1_p 2367x(3)=-12.40299852717936_p 2368w(3)=1.131726827514120_p 2369x(4)=-11.09155169748954_p 2370w(4)=1.483215727682007_p 2371x(5)=-9.454730240319854_p 2372w(5)=1.779966056317846_p 2373x(6)=-7.554487252715205_p 2374w(6)=2.006364059177895_p 2375x(7)=-5.469354454255584_p 2376w(7)=2.136923589065745_p 2377x(8)=-3.302526232345048_p 2378w(8)=2.087839054568876_p 2379x(9)=-1.182284090547550_p 2380w(9)=1.582378487612232_p 2381x(10)=8.816569203102927e-1_p 2382w(10)=6.194262450634551e-1_p 2383x(11)=3.142259879933244_p 2384w(11)=1.003544198356864e-1_p 2385x(12)=5.720216613450909_p 2386w(12)=8.877758510719494e-3_p 2387x(13)=8.540500704391839_p 2388w(13)=5.675662741809074e-4_p 2389x(14)=11.48476435271025_p 2390w(14)=3.038230896342818e-5_p 2391x(15)=14.37028957001686_p 2392w(15)=1.588339565621810e-6_p 2393x(16)=16.88632191873353_p 2394w(16)=1.014008084995573e-7_p 2395x(17)=18.56701982973224_p 2396w(17)=9.414171448455192e-9_p 2397else 2398call GD(-14) 2399end if 2400end subroutine GF_m14 2401 2402! [-13kT;19kT] 2403subroutine GF_m13(N,x,w) 2404integer,intent(in)::N 2405real(p),intent(out)::x(N),w(N) 2406if(N==2)then 2407x(1)=-10.00429038570594_p 2408w(1)=7.068991480076371_p 2409x(2)=-2.046001035926373_p 2410w(2)=5.931010774647685_p 2411else if(N==3)then 2412x(1)=-11.28555031247186_p 2413w(1)=4.220011245248818_p 2414x(2)=-5.458798365241868_p 2415w(2)=6.536160897259668_p 2416x(3)=2.003877014301106e-1_p 2417w(3)=2.243830112215569_p 2418else if(N==4)then 2419x(1)=-11.86530554547457_p 2420w(1)=2.839577131831864_p 2421x(2)=-7.635613817673846_p 2422w(2)=5.245770025798510_p 2423x(3)=-2.338833629251278_p 2424w(3)=4.396870842168755_p 2425x(4)=2.270397507506272_p 2426w(4)=5.177842549249266e-1_p 2427else if(N==5)then 2428x(1)=-12.17792626929402_p 2429w(1)=2.074216737890340_p 2430x(2)=-8.973123123309886_p 2431w(2)=4.147222323230837_p 2432x(3)=-4.390169210759010_p 2433w(3)=4.641036734098409_p 2434x(4)=-1.374654987852157e-1_p 2435w(4)=2.078361436278051_p 2436x(5)=4.711177131400753_p 2437w(5)=5.916502322641781e-2_p 2438else if(N==6)then 2439x(1)=-12.36794548006532_p 2440w(1)=1.602279638319536_p 2441x(2)=-9.840622952921260_p 2442w(2)=3.345938013061583_p 2443x(3)=-5.967388156476821_p 2444w(3)=4.204715073270163_p 2445x(4)=-1.856014750576618_p 2446w(4)=3.284196561331101_p 2447x(5)=1.866973264157307_p 2448w(5)=5.586415430765270e-1_p 2449x(6)=7.477219193540831_p 2450w(6)=4.231425665145602e-3_p 2451else if(N==7)then 2452x(1)=-12.49442568490051_p 2453w(1)=1.285447810566006_p 2454x(2)=-10.44044437943584_p 2455w(2)=2.757346815602685_p 2456x(3)=-7.160327188343379_p 2457w(3)=3.685128525438858_p 2458x(4)=-3.350352724645821_p 2459w(4)=3.631524683031078_p 2460x(5)=1.382780203649265e-1_p 2461w(5)=1.559775727591289_p 2462x(6)=4.086005603979172_p 2463w(6)=8.051738438193429e-2_p 2464x(7)=10.32467100283846_p 2465w(7)=2.613081122056130e-4_p 2466else if(N==8)then 2467x(1)=-12.5849466900755_p 2468w(1)=1.057410492804501_p 2469x(2)=-10.88053033962969_p 2470w(2)=2.309289250494567_p 2471x(3)=-8.084292928586324_p 2472w(3)=3.206977460263716_p 2473x(4)=-4.650331925074958_p 2474w(4)=3.512267659580771_p 2475x(5)=-1.245752364632742_p 2476w(5)=2.473394418318402_p 2477x(6)=1.999352139919606_p 2478w(6)=4.320712822287445e-1_p 2479x(7)=6.430947701711498_p 2480w(7)=8.572232030491995e-3_p 2481x(8)=12.90416934426279_p 2482w(8)=1.945900286261103e-5_p 2483else if(N==9)then 2484x(1)=-12.65304102806446_p 2485w(1)=8.851929167344793e-1_p 2486x(2)=-11.21734238629034_p 2487w(2)=1.957868590192960_p 2488x(3)=-8.817284359662821_p 2489w(3)=2.790684013863375_p 2490x(4)=-5.760516112302267_p 2491w(4)=3.236341969041824_p 2492x(5)=-2.509937995142903_p 2493w(5)=2.914481092585579_p 2494x(6)=4.916627982103013e-1_p 2495w(6)=1.137106945624442_p 2496x(7)=3.935402353776846_p 2497w(7)=7.738568926060040e-2_p 2498x(8)=8.667854765003186_p 2499w(8)=9.387022509696905e-4_p 2500x(9)=14.89483224447155_p 2501w(9)=2.335169826869600e-6_p 2502else if(N==10)then 2503x(1)=-12.70578452505956_p 2504w(1)=7.514204932623144e-1_p 2505x(2)=-11.48147275507449_p 2506w(2)=1.677533371926577_p 2507x(3)=-9.406667792652403_p 2508w(3)=2.436007717526385_p 2509x(4)=-6.696610354776923_p 2510w(4)=2.927912237912665_p 2511x(5)=-3.671175876566590_p 2512w(5)=2.966444537831771_p 2513x(6)=-7.553021120642841e-1_p 2514w(6)=1.891760166042789_p 2515x(7)=2.144102921267248_p 2516w(7)=3.368158717522109e-1_p 2517x(8)=5.869008158387489_p 2518w(8)=1.198140847510881e-2_p 2519x(9)=10.645471173003_p 2520w(9)=1.259643742509917e-4_p 2521x(10)=16.24078541234525_p 2522w(10)=4.856199839240613e-7_p 2523else if(N==11)then 2524x(1)=-12.74744296342974_p 2525w(1)=6.455410587951239e-1_p 2526x(2)=-11.69200391981922_p 2527w(2)=1.451309772363863_p 2528x(3)=-9.885024052553000_p 2529w(3)=2.136710880512213_p 2530x(4)=-7.481291091515837_p 2531w(4)=2.631786329550906_p 2532x(5)=-4.707831776992173_p 2533w(5)=2.834233110994840_p 2534x(6)=-1.887283745093750_p 2535w(6)=2.365057227776103_p 2536x(7)=7.697487868855601e-1_p 2537w(7)=8.592633378207685e-1_p 2538x(8)=3.819567164114244_p 2539w(8)=7.412210886555086e-2_p 2540x(9)=7.687424204181839_p 2541w(9)=1.956007552287361e-3_p 2542x(10)=12.30209992655005_p 2543w(10)=2.226278833472679e-5_p 2544x(11)=17.09531335105548_p 2545w(11)=1.577040657628366e-7_p 2546else if(N==12)then 2547x(1)=-12.78088378349489_p 2548w(1)=5.604121692689130e-1_p 2549x(2)=-11.86217730867073_p 2550w(2)=1.266761196460999_p 2551x(3)=-10.27693008308865_p 2552w(3)=1.884628679345776_p 2553x(4)=-8.139136876832699_p 2554w(4)=2.362785045450800_p 2555x(5)=-5.614579476293765_p 2556w(5)=2.637858101009059_p 2557x(6)=-2.936506590814331_p 2558w(6)=2.521451715903053_p 2559x(7)=-3.756370793629665e-1_p 2560w(7)=1.476143643808948_p 2561x(8)=2.246978045231656_p 2562w(8)=2.745957977014628e-1_p 2563x(9)=5.465343543262495_p 2564w(9)=1.499209647024207e-2_p 2565x(10)=9.325769323661158_p 2566w(10)=3.684966015284125e-4_p 2567x(11)=13.63666035953152_p 2568w(11)=5.243014585331988e-6_p 2569x(12)=17.63538335463762_p 2570w(12)=6.968868851598967e-8_p 2571else if(N==13)then 2572x(1)=-12.80811807480911_p 2573w(1)=4.909972834390151e-1_p 2574x(2)=-12.00151052027172_p 2575w(2)=1.114590113832059_p 2576x(3)=-10.60113754520303_p 2577w(3)=1.671789686432207_p 2578x(4)=-8.692710260706654_p 2579w(4)=2.124088444211709_p 2580x(5)=-6.400281985298934_p 2581w(5)=2.428437530676565_p 2582x(6)=-3.894412105730206_p 2583w(6)=2.488712029572672_p 2584x(7)=-1.405592465704933_p 2585w(7)=1.936003542855982_p 2586x(8)=9.915805224709620e-1_p 2587w(8)=6.710400141179310e-1_p 2588x(9)=3.724759005901918_p 2589w(9)=7.108037718041882e-2_p 2590x(10)=7.015218229917863_p 2591w(10)=3.178471180264878e-3_p 2592x(11)=10.7571674963095_p 2593w(11)=8.311736945140720e-5_p 2594x(12)=14.68457108924906_p 2595w(12)=1.606138102767884e-6_p 2596x(13)=17.98559255662809_p 2597w(13)=3.771767881222953e-8_p 2598else if(N==14)then 2599x(1)=-12.83058483401011_p 2600w(1)=4.336779515625963e-1_p 2601x(2)=-12.11693899034753_p 2602w(2)=9.878303191867139e-1_p 2603x(3)=-10.87189521264624_p 2604w(3)=1.491255622495647_p 2605x(4)=-9.161080903330518_p 2606w(4)=1.914396320709342_p 2607x(5)=-7.079246636886417_p 2608w(5)=2.226159443898447_p 2609x(6)=-4.754211655217345_p 2610w(6)=2.372512939536339_p 2611x(7)=-2.361725034654143_p 2612w(7)=2.153189728018665_p 2613x(8)=-6.800691631631187e-2_p 2614w(8)=1.172106794038737_p 2615x(9)=2.326425563101449_p 2616w(9)=2.306323553773160e-1_p 2617x(10)=5.163859396744056_p 2618w(10)=1.746784819698187e-2_p 2619x(11)=8.431125909275368_p 2620w(11)=7.496644953083913e-4_p 2621x(12)=11.98014190575529_p 2622w(12)=2.262933390223311e-5_p 2623x(13)=15.49674802985901_p 2624w(13)=6.145244304666702e-7_p 2625x(14)=18.22095595288683_p 2626w(14)=2.334963063444533e-8_p 2627else if(N==15)then 2628x(1)=-12.84933188917664_p 2629w(1)=3.858111334432816e-1_p 2630x(2)=-12.21358343446773_p 2631w(2)=8.812322222902609e-1_p 2632x(3)=-11.10005023543909_p 2633w(3)=1.337272425433940_p 2634x(4)=-9.559795190845318_p 2635w(4)=1.730841612286054_p 2636x(5)=-7.666460874812524_p 2637w(5)=2.038548335957637_p 2638x(6)=-5.518099748570098_p 2639w(6)=2.226641053386427_p 2640x(7)=-3.246748238159959_p 2641w(7)=2.191914402224031_p 2642x(8)=-1.017197457901039_p 2643w(8)=1.596720068354933_p 2644x(9)=1.174354978778268_p 2645w(9)=5.382948941657869e-1_p 2646x(10)=3.648846836361179_p 2647w(10)=6.804519495767267e-2_p 2648x(11)=6.522080818182011_p 2649w(11)=4.471744629257344e-3_p 2650x(12)=9.697484248248815_p 2651w(12)=2.014994381928457e-4_p 2652x(13)=13.00917212726959_p 2653w(13)=7.371086738253204e-6_p 2654x(14)=16.124422960316_p 2655w(14)=2.812275826907009e-7_p 2656x(15)=18.38495950806733_p 2657w(15)=1.584226095713221e-8_p 2658else if(N==16)then 2659x(1)=-12.86513546171996_p 2660w(1)=3.454340897421825e-1_p 2661x(2)=-12.29527864176662_p 2662w(2)=7.908028934878267e-1_p 2663x(3)=-11.29391634985634_p 2664w(3)=1.205162671675953_p 2665x(4)=-9.901350196111151_p 2666w(4)=1.570199611747844_p 2667x(5)=-8.175687976744314_p 2668w(5)=1.867809426373357_p 2669x(6)=-6.193637694445823_p 2670w(6)=2.074989110606783_p 2671x(7)=-4.055949660963876_p 2672w(7)=2.136355588840737_p 2673x(8)=-1.897366078657849_p 2674w(8)=1.844719048831894_p 2675x(9)=1.882988719546829e-1_p 2676w(9)=9.457761674100176e-1_p 2677x(10)=2.390503966038005_p 2678w(10)=1.980162834135152e-1_p 2679x(11)=4.930239125208004_p 2680w(11)=1.942827967975023e-2_p 2681x(12)=7.775306901348663_p 2682w(12)=1.244004258433578e-3_p 2683x(13)=10.81315058274636_p 2684w(13)=6.209750425136390e-5_p 2685x(14)=13.86701662245827_p 2686w(14)=2.821564723389862e-6_p 2687x(15)=16.6115402064822_p 2688w(15)=1.481190175167505e-7_p 2689x(16)=18.50306859347891_p 2690w(16)=1.146776976638474e-8_p 2691else if(N==17)then 2692x(1)=-12.87857994715682_p 2693w(1)=3.110662208160866e-1_p 2694x(2)=-12.3649368757749_p 2695w(2)=7.134728473444307e-1_p 2696x(3)=-11.4599224661794_p 2697w(3)=1.091151377293423_p 2698x(4)=-10.19575331936582_p 2699w(4)=1.429380994857094_p 2700x(5)=-8.618891940161909_p 2701w(5)=1.713851988291646_p 2702x(6)=-6.790333994252050_p 2703w(6)=1.927849921014911_p 2704x(7)=-4.788601237253201_p 2705w(7)=2.039193711267413_p 2706x(8)=-2.718346911002481_p 2707w(8)=1.934539009964569_p 2708x(9)=-6.950044116250950e-1_p 2709w(9)=1.326497969391859_p 2710x(10)=1.327704813725860_p 2711w(10)=4.417676137190756e-1_p 2712x(11)=3.587191161451714_p 2713w(11)=6.507814953225102e-2_p 2714x(12)=6.142610001046978_p 2715w(12)=5.746633680341921e-3_p 2716x(13)=8.913642959057686_p 2717w(13)=3.826265002424167e-4_p 2718x(14)=11.785831327962_p 2719w(14)=2.185297085786483e-5_p 2720x(15)=14.57904364550737_p 2721w(15)=1.242361867905439e-6_p 2722x(16)=16.99276974510085_p 2723w(16)=8.701404990605331e-8_p 2724x(17)=18.59062104393752_p 2725w(17)=8.703937073335078e-9_p 2726else 2727call GD(-13) 2728end if 2729end subroutine GF_m13 2730 2731! [-12kT;19kT] 2732subroutine GF_m12(N,x,w) 2733integer,intent(in)::N 2734real(p),intent(out)::x(N),w(N) 2735if(N==2)then 2736x(1)=-9.200741450760383_p 2737w(1)=6.602046151094187_p 2738x(2)=-1.780566410234671_p 2739w(2)=5.397959987496495_p 2740else if(N==3)then 2741x(1)=-10.38632578553631_p 2742w(1)=3.970889514253765_p 2743x(2)=-4.914393220416941_p 2744w(2)=6.097466080258507_p 2745x(3)=4.416700540567974e-1_p 2746w(3)=1.931650544078408_p 2747else if(N==4)then 2748x(1)=-10.92567543306899_p 2749w(1)=2.687965056225047_p 2750x(2)=-6.926499842875626_p 2751w(2)=4.948441529369929_p 2752x(3)=-1.950045225681799_p 2753w(3)=3.967029767988715_p 2754x(4)=2.582029276031540_p 2755w(4)=3.965697850069890e-1_p 2756else if(N==5)then 2757x(1)=-11.21796785221923_p 2758w(1)=1.972866014431411_p 2759x(2)=-8.172304153918180_p 2760w(2)=3.936243933579672_p 2761x(3)=-3.837836137484238_p 2762w(3)=4.326210256275895_p 2763x(4)=1.982070011752457e-1_p 2764w(4)=1.724368307233326_p 2765x(5)=5.111621389720193_p 2766w(5)=4.031762707037789e-2_p 2767else if(N==6)then 2768x(1)=-11.39654803762051_p 2769w(1)=1.529565647930968_p 2770x(2)=-8.985474290987504_p 2771w(2)=3.189249840045183_p 2772x(3)=-5.301975575925398_p 2773w(3)=3.975091506919060_p 2774x(4)=-1.424113138186330_p 2775w(4)=2.897030660161330_p 2776x(5)=2.248462315042904_p 2777w(5)=4.063770515580094e-1_p 2778x(6)=7.935897897393642_p 2779w(6)=2.691431976130429e-3_p 2780else if(N==7)then 2781x(1)=-11.51612974841538_p 2782w(1)=1.230128532922584_p 2783x(2)=-9.551533123168001_p 2784w(2)=2.635665484430368_p 2785x(3)=-6.420938013502813_p 2786w(3)=3.506504328581485_p 2787x(4)=-2.810888301034490_p 2788w(4)=3.340446478583232_p 2789x(5)=5.265673447541891e-1_p 2790w(5)=1.234382335427278_p 2791x(6)=4.528852733352589_p 2792w(6)=5.271574191355590e-2_p 2793x(7)=10.79201283267654_p 2794w(7)=1.632367321777114e-4_p 2795else if(N==8)then 2796x(1)=-11.60219650340185_p 2797w(1)=1.013373732913044_p 2798x(2)=-9.969403722146346_p 2799w(2)=2.211184989770141_p 2800x(3)=-7.294814771688196_p 2801w(3)=3.061947107717444_p 2802x(4)=-4.026147538763831_p 2803w(4)=3.300151346749719_p 2804x(5)=-8.053704523672218e-1_p 2805w(5)=2.106558601483455_p 2806x(6)=2.418075405531928_p 2807w(6)=3.013633536069950e-1_p 2808x(7)=6.892139687045701_p 2809w(7)=5.414328435075698e-3_p 2810x(8)=13.31248036398437_p 2811w(8)=1.267791480706229e-5_p 2812else if(N==9)then 2813x(1)=-11.66715379885946_p 2814w(1)=8.491260826260374e-1_p 2815x(2)=-10.29037480781899_p 2816w(2)=1.876830350501357_p 2817x(3)=-7.991439698887122_p 2818w(3)=2.669960282510798_p 2819x(4)=-5.072848833344007_p 2820w(4)=3.070932837539183_p 2821x(5)=-1.993964474955468_p 2822w(5)=2.620241571999022_p 2823x(6)=9.043395437938424e-1_p 2824w(6)=8.622053887176663e-1_p 2825x(7)=4.384309285598564_p 2826w(7)=5.010913755001480e-2_p 2827x(8)=9.108051189148581_p 2828w(8)=5.988370448557749e-4_p 2829x(9)=15.20118423215542_p 2830w(9)=1.650101747281774e-6_p 2831else if(N==10)then 2832x(1)=-11.71754322755414_p 2833w(1)=7.213466251480645e-1_p 2834x(2)=-10.5425173604021_p 2835w(2)=1.609540568027416_p 2836x(3)=-8.552963818285123_p 2837w(3)=2.333990669157679_p 2838x(4)=-5.960007230469354_p 2839w(4)=2.792023150767315_p 2840x(5)=-3.082774962876734_p 2841w(5)=2.752905485493780_p 2842x(6)=-3.119132606715367e-1_p 2843w(6)=1.553325588308245_p 2844x(7)=2.578480435905549_p 2845w(7)=2.291721631082930e-1_p 2846x(8)=6.318965052563781_p 2847w(8)=7.618307827698284e-3_p 2848x(9)=11.04101833344328_p 2849w(9)=8.320859695191393e-5_p 2850x(10)=16.45094781140035_p 2851w(10)=3.721552375350936e-7_p 2852else if(N==11)then 2853x(1)=-11.75738009812072_p 2854w(1)=6.201113229855759e-1_p 2855x(2)=-10.74371609474869_p 2856w(2)=1.393546364689325_p 2857x(3)=-9.009433937483051_p 2858w(3)=2.049502084572679_p 2859x(4)=-6.706092916985694_p 2860w(4)=2.516777081250978_p 2861x(5)=-4.059500411212109_p 2862w(5)=2.672766377218236_p 2863x(6)=-1.386417949370669_p 2864w(6)=2.069141508310984_p 2865x(7)=1.199685939466477_p 2866w(7)=6.291670986345173e-1_p 2867x(8)=4.270257522050260_p 2868w(8)=4.772073353981043e-2_p 2869x(9)=8.116724166219624_p 2870w(9)=1.258029944833115e-3_p 2871x(10)=12.64217082924536_p 2872w(10)=1.540884209841206e-5_p 2873x(11)=17.23631791890395_p 2874w(11)=1.286016434996120e-7_p 2875else if(N==12)then 2876x(1)=-11.78938540242393_p 2877w(1)=5.386463296853786e-1_p 2878x(2)=-10.90650140522117_p 2879w(2)=1.217140185868934_p 2880x(3)=-9.383890753485966_p 2881w(3)=1.809321175117264_p 2882x(4)=-7.333029488160248_p 2883w(4)=2.263690868071983_p 2884x(5)=-4.918101005287460_p 2885w(5)=2.507736833125996_p 2886x(6)=-2.373071160215645_p 2887w(6)=2.300179100957854_p 2888x(7)=7.444290553405926e-2_p 2889w(7)=1.170051580108038_p 2890x(8)=2.692536433538976_p 2891w(8)=1.834508200474902e-1_p 2892x(9)=5.911764811685463_p 2893w(9)=9.541985334166446e-3_p 2894x(10)=9.721554837644245_p 2895w(10)=2.433887008694034e-4_p 2896x(11)=13.92016817231167_p 2897w(11)=3.812245519947238e-6_p 2898x(12)=17.73160144390132_p 2899w(12)=5.932718774766271e-8_p 2900else if(N==13)then 2901x(1)=-11.81547067177626_p 2902w(1)=4.721665895159269e-1_p 2903x(2)=-11.03990022717369_p 2904w(2)=1.071537045786589_p 2905x(3)=-9.694003562155842_p 2906w(3)=1.606166167135112_p 2907x(4)=-7.861520221670254_p 2908w(4)=2.037656387812489_p 2909x(5)=-5.664857298175080_p 2910w(5)=2.318756186876585_p 2911x(6)=-3.275459930370176_p 2912w(6)=2.324333665887115_p 2913x(7)=-9.121333418006621e-1_p 2914w(7)=1.644420157309800_p 2915x(8)=1.435488104034281_p 2916w(8)=4.773587540200228e-1_p 2917x(9)=4.178259714652492_p 2918w(9)=4.550757563074360e-2_p 2919x(10)=7.442431461781889_p 2920w(10)=2.045549701229193e-3_p 2921x(11)=11.11304794713818_p 2922w(11)=5.680310810647948e-5_p 2923x(12)=14.91672214571593_p 2924w(12)=1.222744751523068e-6_p 2925x(13)=18.053374304046_p 2926w(13)=3.306221031461475e-8_p 2927else if(N==14)then 2928x(1)=-11.8370045144045_p 2929w(1)=4.172319467322352e-1_p 2930x(2)=-11.15049709102347_p 2931w(2)=9.501425278715876e-1_p 2932x(3)=-9.953234000851438_p 2933w(3)=1.433602547672045_p 2934x(4)=-8.309287911305450_p 2935w(4)=1.838300920542296_p 2936x(5)=-6.311888511485214_p 2937w(5)=2.131162763973753_p 2938x(6)=-4.088992382339951_p 2939w(6)=2.243582790630053_p 2940x(7)=-1.815611224580763_p 2941w(7)=1.923324376600242_p 2942x(8)=3.899102579830705e-1_p 2943w(8)=8.991341704694573e-1_p 2944x(9)=2.780439677321270_p 2945w(9)=1.519119057938997e-1_p 2946x(10)=5.610020061307919_p 2947w(10)=1.110230458064279e-2_p 2948x(11)=8.830434206635720_p 2949w(11)=4.933331611603211e-4_p 2950x(12)=12.29450914513147_p 2951w(12)=1.604288707597829e-5_p 2952x(13)=15.68552023889139_p 2953w(13)=4.867917476483420e-7_p 2954x(14)=18.27036951370373_p 2955w(14)=2.088448445775513e-8_p 2956else if(N==15)then 2957x(1)=-11.85498428816909_p 2958w(1)=3.713274660016606e-1_p 2959x(2)=-11.2431589377527_p 2960w(2)=8.479787771133407e-1_p 2961x(3)=-10.17185249247433_p 2962w(3)=1.286249099469277_p 2963x(4)=-8.690890656808330_p 2964w(4)=1.663330178947259_p 2965x(5)=-6.872579643677264_p 2966w(5)=1.954887131987335_p 2967x(6)=-4.814583068087440_p 2968w(6)=2.119877789848026_p 2969x(7)=-2.650293839458060_p 2970w(7)=2.020214701282065_p 2971x(8)=-5.265349104880432e-1_p 2972w(8)=1.315795155203052_p 2973x(9)=1.629233035846392_p 2974w(9)=3.739830840865589e-1_p 2975x(10)=4.105206528801831_p 2976w(10)=4.334796842199720e-2_p 2977x(11)=6.950086709543355_p 2978w(11)=2.872785679743632e-3_p 2979x(12)=10.06453144121988_p 2980w(12)=1.363388417726744e-4_p 2981x(13)=13.28366871706191_p 2982w(13)=5.417113105446407e-6_p 2983x(14)=16.27806195418788_p 2984w(14)=2.302217334985063e-7_p 2985x(15)=18.42214437856714_p 2986w(15)=1.437375394829066e-8_p 2987else if(N==16)then 2988x(1)=-11.87014948331053_p 2989w(1)=3.325837880395656e-1_p 2990x(2)=-11.32153463911177_p 2991w(2)=7.612535659683697e-1_p 2992x(3)=-10.35774586327234_p 2993w(3)=1.159707455632363_p 2994x(4)=-9.018090826838543_p 2995w(4)=1.509907170818435_p 2996x(5)=-7.359530245235194_p 2997w(5)=1.793310147058203_p 2998x(6)=-5.458130826078162_p 2999w(6)=1.983175764448233_p 3000x(7)=-3.415694360458536_p 3001w(7)=2.004441203187612_p 3002x(8)=-1.363089620811049_p 3003w(8)=1.608983559985304_p 3004x(9)=6.538319859900971e-1_p 3005w(9)=7.044824748529105e-1_p 3006x(10)=2.850977346217249_p 3007w(10)=1.289790882034129e-1_p 3008x(11)=5.377414238199781_p 3009w(11)=1.232137757894471e-2_p 3010x(12)=8.178884961817523_p 3011w(12)=8.149702243363736e-4_p 3012x(13)=11.14656958101349_p 3013w(13)=4.329362178253738e-5_p 3014x(14)=14.10515187305455_p 3015w(14)=2.143928377720126e-6_p 3016x(15)=16.73732009163363_p 3017w(15)=1.245287952101464e-7_p 3018x(16)=18.53184158364436_p 3019w(16)=1.051403687336271e-8_p 3020else if(N==17)then 3021x(1)=-11.88305732737974_p 3022w(1)=2.995894679616481e-1_p 3023x(2)=-11.38839822273546_p 3024w(2)=6.870476025218285e-1_p 3025x(3)=-10.51702293040265_p 3026w(3)=1.050414063107121_p 3027x(4)=-9.300341977719322_p 3028w(4)=1.375221145198870_p 3029x(5)=-7.783843274529625_p 3030w(5)=1.646974352157251_p 3031x(6)=-6.027798817132337_p 3032w(6)=1.846983579785621_p 3033x(7)=-4.111188328775403_p 3034w(7)=1.932469058750037_p 3035x(8)=-2.139208287354122_p 3036w(8)=1.753850233847714_p 3037x(9)=-2.043894501558303e-1_p 3038w(9)=1.061170146974819_p 3039x(10)=1.791157974391014_p 3040w(10)=3.010535352412677e-1_p 3041x(11)=4.046220511662272_p 3042w(11)=4.127725464349371e-2_p 3043x(12)=6.572515380125601_p 3044w(12)=3.682219070322424e-3_p 3045x(13)=9.289616139051693_p 3046w(13)=2.567251887611971e-4_p 3047x(14)=12.08626589517779_p 3048w(14)=1.569879870325577e-5_p 3049x(15)=14.78512143342698_p 3050w(15)=9.725620292574606e-7_p 3051x(16)=17.09662649286726_p 3052w(16)=7.473818989641779e-8_p 3053x(17)=18.61342522541539_p 3054w(17)=8.043005005038926e-9_p 3055else 3056call GD(-12) 3057end if 3058end subroutine GF_m12 3059 3060! [-11kT;19kT] 3061subroutine GF_m11(N,x,w) 3062integer,intent(in)::N 3063real(p),intent(out)::x(N),w(N) 3064if(N==2)then 3065x(1)=-8.395770961580563_p 3066w(1)=6.137601389627813_p 3067x(2)=-1.506529262048464_p 3068w(2)=4.862415306330710_p 3069else if(N==3)then 3070x(1)=-9.486306953900472_p 3071w(1)=3.723457190631736_p 3072x(2)=-4.368247774512525_p 3073w(2)=5.649029195445139_p 3074x(3)=7.022607076791781e-1_p 3075w(3)=1.627530309881648_p 3076else if(N==4)then 3077x(1)=-9.985629621984360_p 3078w(1)=2.537270709814344_p 3079x(2)=-6.216368315654546_p 3080w(2)=4.648261537118187_p 3081x(3)=-1.557197970665229_p 3082w(3)=3.520684033598183_p 3083x(4)=2.922687731198557_p 3084w(4)=2.938004154278085e-1_p 3085else if(N==5)then 3086x(1)=-10.25780904661601_p 3087w(1)=1.871952477983505_p 3088x(2)=-7.370994594469521_p 3089w(2)=3.724231756165322_p 3090x(3)=-3.287002582462993_p 3091w(3)=3.990264604191081_p 3092x(4)=5.526847194133929e-1_p 3093w(4)=1.386920093498785_p 3094x(5)=5.540324434958924_p 3095w(5)=2.664776411982876e-2_p 3096else if(N==6)then 3097x(1)=-10.42508994602291_p 3098w(1)=1.456963219608914_p 3099x(2)=-8.130298859097149_p 3100w(2)=3.031837478194721_p 3101x(3)=-4.638425231484705_p 3102w(3)=3.734416747033141_p 3103x(4)=-9.893969852476814e-1_p 3104w(4)=2.490976446158419_p 3105x(5)=2.659705024207487_p 3106w(5)=2.841511784398398e-1_p 3107x(6)=8.416994904297669_p 3108w(6)=1.671626523487134e-3_p 3109else if(N==7)then 3110x(1)=-10.53786281040166_p 3111w(1)=1.174708084554172_p 3112x(2)=-8.662930918804657_p 3113w(2)=2.513238863097802_p 3114x(3)=-5.683379945171239_p 3115w(3)=3.322178492320404_p 3116x(4)=-2.276009354826734_p 3117w(4)=3.017961498190602_p 3118x(5)=9.348182737882503e-1_p 3119w(5)=9.383058378139640e-1_p 3120x(6)=4.996306029715360_p 3121w(6)=3.352331219924998e-2_p 3122x(7)=11.27026346665077_p 3123w(7)=1.006077823273970e-4_p 3124else if(N==8)then 3125x(1)=-10.6195065706102_p 3126w(1)=9.691647178217875e-1_p 3127x(2)=-9.058683925296620_p 3128w(2)=2.112393483880280_p 3129x(3)=-6.506935669832094_p 3130w(3)=2.913644736251145_p 3131x(4)=-3.407034861336260_p 3132w(4)=3.066894895442869_p 3133x(5)=-3.598969470138718e-1_p 3134w(5)=1.732389431618010_p 3135x(6)=2.863166625869578_p 3136w(6)=2.021622882387206e-1_p 3137x(7)=7.368618193233945_p 3138w(7)=3.358893887106461e-3_p 3139x(8)=13.71757208236833_p 3140w(8)=8.248818604020320e-6_p 3141else if(N==9)then 3142x(1)=-10.68132306017919_p 3143w(1)=8.129016176026149e-1_p 3144x(2)=-9.363761442390878_p 3145w(2)=1.795248275101493_p 3146x(3)=-7.166826526798598_p 3147w(3)=2.547218110079756_p 3148x(4)=-4.389012854567310_p 3149w(4)=2.893967664187667_p 3150x(5)=-1.481865049973838_p 3151w(5)=2.293514804569216_p 3152x(6)=1.338128530758820_p 3153w(6)=6.251548720147803e-1_p 3154x(7)=4.853198265638330_p 3155w(7)=3.163198895653010e-2_p 3156x(8)=9.555715868083542_p 3157w(8)=3.781913336583436e-4_p 3158x(9)=15.49728986705556_p 3159w(9)=1.172112805807389e-6_p 3160else if(N==10)then 3161x(1)=-10.72934806321446_p 3162w(1)=6.911447828226256e-1_p 3163x(2)=-9.603843273059949_p 3164w(2)=1.541133093110648_p 3165x(3)=-7.700182743887962_p 3166w(3)=2.230649610052994_p 3167x(4)=-5.226120442083234_p 3168w(4)=2.649826494978180_p 3169x(5)=-2.500156618585277_p 3170w(5)=2.510053058608043_p 3171x(6)=1.407388360558958e-1_p 3172w(6)=1.222097315722060_p 3173x(7)=3.036500176325915_p 3174w(7)=1.502897725427713e-1_p 3175x(8)=6.781837279892774_p 3176w(8)=4.767560758101024e-3_p 3177x(9)=11.43822611677014_p 3178w(9)=5.472049476001484e-5_p 3179x(10)=16.65123266199543_p 3180w(10)=2.868683390614125e-7_p 3181else if(N==11)then 3182x(1)=-10.76735501218991_p 3183w(1)=5.945771500284125e-1_p 3184x(2)=-9.795654051352004_p 3185w(2)=1.335459680575085_p 3186x(3)=-8.134553570829949_p 3187w(3)=1.961370534520887_p 3188x(4)=-5.932858420418466_p 3189w(4)=2.398107237270092_p 3190x(5)=-3.416086949275346_p 3191w(5)=2.492787463330523_p 3192x(6)=-8.864758841737028e-1_p 3193w(6)=1.747119419356776_p 3194x(7)=1.651135378570746_p 3195w(7)=4.397743004595761e-1_p 3196x(8)=4.738598320343755_p 3197w(8)=3.000902391572440e-2_p 3198x(9)=8.553483275397980_p 3199w(9)=8.011243232473963e-4_p 3200x(10)=12.98013603846515_p 3201w(10)=1.065686331895228e-5_p 3202x(11)=17.37011789868639_p 3203w(11)=1.053148804734435e-7_p 3204else if(N==12)then 3205x(1)=-10.79791858962341_p 3206w(1)=5.167934879860063e-1_p 3207x(2)=-9.951010963622828_p 3208w(2)=1.167259991126339_p 3209x(3)=-8.491414185754099_p 3210w(3)=1.733337041235731_p 3211x(4)=-6.528392461427109_p 3212w(4)=2.162312975744087_p 3213x(5)=-4.225335805511392_p 3214w(5)=2.366917421541637_p 3215x(6)=-1.814798555966987_p 3216w(6)=2.045331103276301_p 3217x(7)=5.370264412674818e-1_p 3218w(7)=8.835518908842300e-1_p 3219x(8)=3.159492702543729_p 3220w(8)=1.183672056715534e-1_p 3221x(9)=6.369943053486989_p 3222w(9)=5.982917722640957e-3_p 3223x(10)=10.12071556291523_p 3224w(10)=1.598347714302759e-4_p 3225x(11)=14.19968034655044_p 3226w(11)=2.775362620521955e-6_p 3227x(12)=17.82299309274771_p 3228w(12)=5.063594508250305e-8_p 3229else if(N==13)then 3230x(1)=-10.82285002186268_p 3231w(1)=4.532623458703904e-1_p 3232x(2)=-10.07844487921205_p 3233w(2)=1.028271720662725_p 3234x(3)=-8.787326325186879_p 3235w(3)=1.540026741231792_p 3236x(4)=-7.031466931680863_p 3237w(4)=1.949702943207036_p 3238x(5)=-4.932196658396354_p 3239w(5)=2.202820426736253_p 3240x(6)=-2.661990900332075_p 3241w(6)=2.134536331952350_p 3242x(7)=-4.162844183290935e-1_p 3243w(7)=1.337360417715738_p 3244x(8)=1.900390983656716_p 3245w(8)=3.241933606725026e-1_p 3246x(9)=4.647647474167434_p 3247w(9)=2.849910910257117e-2_p 3248x(10)=7.876976006157729_p 3249w(10)=1.303627276679121e-3_p 3250x(11)=11.46943302929113_p 3251w(11)=3.870978234039367e-5_p 3252x(12)=15.14434658568593_p 3253w(12)=9.327282094549223e-7_p 3254x(13)=18.11795869586521_p 3255w(13)=2.901993420214797e-8_p 3256else if(N==14)then 3257x(1)=-10.84344708656877_p 3258w(1)=4.007231233038850e-1_p 3259x(2)=-10.18418622407071_p 3260w(2)=9.122781231389183e-1_p 3261x(3)=-9.034950048895466_p 3262w(3)=1.375544156900292_p 3263x(4)=-7.458397065663455_p 3264w(4)=1.761134957562124_p 3265x(5)=-5.546621827395400_p 3266w(5)=2.032337779926973_p 3267x(6)=-3.428329781077234_p 3268w(6)=2.098497911229243_p 3269x(7)=-1.273090757478541_p 3270w(7)=1.660630901520929_p 3271x(8)=8.624121458094065e-1_p 3272w(8)=6.547502684242894e-1_p 3273x(9)=3.253870737668814_p 3274w(9)=9.682867431777588e-2_p 3275x(10)=6.067049122617912_p 3276w(10)=6.956418668173195e-3_p 3277x(11)=9.233816966701996_p 3278w(11)=3.226131514482776e-4_p 3279x(12)=12.60755791559706_p 3280w(12)=1.136273829561138e-5_p 3281x(13)=15.8699928021755_p 3282w(13)=3.863872003568970e-7_p 3283x(14)=18.31762822780872_p 3284w(14)=1.868897412449066e-8_p 3285else if(N==15)then 3286x(1)=-10.86065642459536_p 3287w(1)=3.567897051580848e-1_p 3288x(2)=-10.27284632736337_p 3289w(2)=8.145764952732508e-1_p 3290x(3)=-9.243970732756472_p 3291w(3)=1.234899753126680_p 3292x(4)=-7.822717466361636_p 3293w(4)=1.595031282369604_p 3294x(5)=-6.080318602422311_p 3295w(5)=1.868753341695969_p 3296x(6)=-4.114612389405090_p 3297w(6)=2.003265268974441_p 3298x(7)=-2.059203665964964_p 3299w(7)=1.817994473871111_p 3300x(8)=-3.037982773803044e-2_p 3301w(8)=1.031398042817115_p 3302x(9)=2.104133267916052_p 3303w(9)=2.483408873789374e-1_p 3304x(10)=4.576036688653612_p 3305w(10)=2.704348611437257e-2_p 3306x(11)=7.385235550435507_p 3307w(11)=1.827879234437186e-3_p 3308x(12)=10.43330495140666_p 3309w(12)=9.189636437069069e-5_p 3310x(13)=13.55584092927618_p 3311w(13)=3.981752217445942e-6_p 3312x(14)=16.42794171052164_p 3313w(14)=1.887871040429025e-7_p 3314x(15)=18.45783799230097_p 3315w(15)=1.304082616931379e-8_p 3316else if(N==16)then 3317x(1)=-10.87518063563016_p 3318w(1)=3.196865754838257e-1_p 3319x(2)=-10.34788696497429_p 3320w(2)=7.315774644721738e-1_p 3321x(3)=-9.421843121995995_p 3322w(3)=1.113984969010737_p 3323x(4)=-8.135434768283131_p 3324w(4)=1.449014489388853_p 3325x(5)=-6.544656943392916_p 3326w(5)=1.717130011133403_p 3327x(6)=-4.725361112174021_p 3328w(6)=1.885274095925901_p 3329x(7)=-2.780509644840353_p 3330w(7)=1.850695650345670_p 3331x(8)=-8.302330948677897e-1_p 3332w(8)=1.345638396731032_p 3333x(9)=1.135081820662497_p 3334w(9)=4.973003641845964e-1_p 3335x(10)=3.329157648428617_p 3336w(10)=8.144485754150875e-2_p 3337x(11)=5.834739049707191_p 3338w(11)=7.707548891945224e-3_p 3339x(12)=8.586872510919809_p 3340w(12)=5.304089390057588e-4_p 3341x(13)=11.48009270485974_p 3342w(13)=3.011924810531376e-5_p 3343x(14)=14.34052731752242_p 3344w(14)=1.630196813136340e-6_p 3345x(15)=16.85994559410235_p 3346w(15)=1.048291899754947e-7_p 3347x(16)=18.55955321873456_p 3348w(16)=9.635761959808705e-9_p 3349else if(N==17)then 3350x(1)=-10.88754966514732_p 3351w(1)=2.880717737227195e-1_p 3352x(2)=-10.41194310895113_p 3353w(2)=6.605133778542939e-1_p 3354x(3)=-9.574352523061201_p 3355w(3)=1.009454179945757_p 3356x(4)=-8.405435605210133_p 3357w(4)=1.320590407477908_p 3358x(5)=-6.949833921386831_p 3359w(5)=1.578901263486483_p 3360x(6)=-5.267401307755526_p 3361w(6)=1.762219659401462_p 3362x(7)=-3.437980696492574_p 3363w(7)=1.811529621252627_p 3364x(8)=-1.564638279350000_p 3365w(8)=1.540561334237841_p 3366x(9)=2.942962972316600e-1_p 3367w(9)=8.035664101288623e-1_p 3368x(10)=2.273479244702793_p 3369w(10)=1.964234853807903e-1_p 3370x(11)=4.518553927542987_p 3371w(11)=2.566444729654481e-2_p 3372x(12)=7.009359899997876_p 3373w(12)=2.337142824519375e-3_p 3374x(13)=9.667995018384461_p 3375w(13)=1.714928738745748e-4_p 3376x(14)=12.38574955573417_p 3377w(14)=1.126635329425940e-5_p 3378x(15)=14.98836210986963_p 3379w(15)=7.620448554470671e-7_p 3380x(16)=17.19788674084419_p 3381w(16)=6.424919001274244e-8_p 3382x(17)=18.63545369300124_p 3383w(17)=7.427498829088459e-9_p 3384else 3385call GD(-11) 3386end if 3387end subroutine GF_m11 3388 3389! [-10kT;19kT] 3390subroutine GF_m10(N,x,w) 3391integer,intent(in)::N 3392real(p),intent(out)::x(N),w(N) 3393if(N==2)then 3394x(1)=-7.589291909174637_p 3395w(1)=5.675311277887483_p 3396x(2)=-1.221802619372282_p 3397w(2)=4.324734115408938_p 3398else if(N==3)then 3399x(1)=-8.585501196670016_p 3400w(1)=3.477515456998133_p 3401x(2)=-3.820545452225130_p 3402w(2)=5.186808779894982_p 3403x(3)=9.860489018660579e-1_p 3404w(3)=1.335721156403306_p 3405else if(N==4)then 3406x(1)=-9.045203797680095_p 3407w(1)=2.387319768036922_p 3408x(2)=-5.505662549463902_p 3409w(2)=4.342647832231838_p 3410x(3)=-1.158083259381156_p 3411w(3)=3.060266937714999_p 3412x(4)=3.295472213362913_p 3413w(4)=2.098108553126613e-1_p 3414else if(N==5)then 3415x(1)=-9.297493201540576_p 3416w(1)=1.771317428029983_p 3417x(2)=-6.569568457504683_p 3418w(2)=3.509832961832255_p 3419x(3)=-2.738107380574562_p 3420w(3)=3.627115468298367_p 3421x(4)=9.308683417275654e-1_p 3422w(4)=1.074718289321713_p 3423x(5)=5.998661040468140_p 3424w(5)=1.706124581410171e-2_p 3425else if(N==6)then 3426x(1)=-9.453616343107171_p 3427w(1)=1.384325710120091_p 3428x(2)=-7.275414737442038_p 3429w(2)=2.872874929793315_p 3430x(3)=-3.977792208019372_p 3431w(3)=3.476965941652042_p 3432x(4)=-5.481799664860426e-1_p 3433w(4)=2.074288408191859_p 3434x(5)=3.103025779446948_p 3435w(5)=1.905767847519443e-1_p 3436x(6)=8.920544102678564_p 3437w(6)=1.013618787169935e-3_p 3438else if(N==7)then 3439x(1)=-9.559663276180897_p 3440w(1)=1.119066166891349_p 3441x(2)=-7.774886780585995_p 3442w(2)=2.389523912795926_p 3443x(3)=-4.948539422663710_p 3444w(3)=3.128733423960846_p 3445x(4)=-1.745088666701519_p 3446w(4)=2.660673787542542_p 3447x(5)=1.367973050937775_p 3448w(5)=6.812692584329093e-1_p 3449x(6)=5.488202374155950_p 3450w(6)=2.071758258466036e-2_p 3451x(7)=11.75753084896299_p 3452w(7)=6.126108818899352e-5_p 3453else if(N==8)then 3454x(1)=-9.636903741358800_p 3455w(1)=9.246982208516903e-1_p 3456x(2)=-8.148542112219824_p 3457w(2)=2.012560087421307_p 3458x(3)=-5.721268536531634_p 3459w(3)=2.760134677843808_p 3460x(4)=-2.793838528166482_p 3461w(4)=2.804666127732204_p 3462x(5)=9.596594542053144e-2_p 3463w(5)=1.365481118269799_p 3464x(6)=3.335611780596440_p 3465w(6)=1.304516976800652e-1_p 3466x(7)=7.859603207539837_p 3467w(7)=2.048094435384605e-3_p 3468x(8)=14.11715095801436_p 3469w(8)=5.369062163383946e-6_p 3470else if(N==9)then 3471x(1)=-9.695568029408539_p 3472w(1)=7.764574883808485e-1_p 3473x(2)=-8.437623336400314_p 3474w(2)=1.712879250444751_p 3475x(3)=-6.343869730497091_p 3476w(3)=2.421311963586090_p 3477x(4)=-3.710030067216264_p 3478w(4)=2.699418424704208_p 3479x(5)=-9.709829172482721e-1_p 3480w(5)=1.938287445352602_p 3481x(6)=1.796989344291740_p 3482w(6)=4.319650183954352e-1_p 3483x(7)=5.341540098931015_p 3484w(7)=1.948833936655655e-2_p 3485x(8)=10.00988649245721_p 3486w(8)=2.366254465031030e-4_p 3487x(9)=15.78209676190155_p 3488w(9)=8.376194263058783e-7_p 3489else if(N==10)then 3490x(1)=-9.741214175266810_p 3491w(1)=6.607659376804962e-1_p 3492x(2)=-8.665543740263791_p 3493w(2)=1.472131831775441_p 3494x(3)=-6.848637910628833_p 3495w(3)=2.125258239186657_p 3496x(4)=-4.495801601536265_p 3497w(4)=2.497552878334287_p 3498x(5)=-1.923181369972066_p 3499w(5)=2.231428913388389_p 3500x(6)=6.083638943996816e-1_p 3501w(6)=9.148050704828177e-1_p 3502x(7)=3.518435150542823_p 3503w(7)=9.512787956258149e-2_p 3504x(8)=7.256939178840019_p 3505w(8)=2.938568948067843e-3_p 3506x(9)=11.83614691211286_p 3507w(9)=3.585149788845632e-5_p 3508x(10)=16.84149825428585_p 3509w(10)=2.224397941852060e-7_p 3510else if(N==11)then 3511x(1)=-9.777380134507693_p 3512w(1)=5.688983277977168e-1_p 3513x(2)=-8.847892646745068_p 3514w(2)=1.276911753216956_p 3515x(3)=-7.260623608643454_p 3516w(3)=1.871826394840141_p 3517x(4)=-5.162244218365910_p 3518w(4)=2.273481054587240_p 3519x(5)=-2.778450796391753_p 3520w(5)=2.286275125746112_p 3521x(6)=-3.832132485771831e-1_p 3522w(6)=1.410569018526292_p 3523x(7)=2.126888501766411_p 3524w(7)=2.931118696441516e-1_p 3525x(8)=5.223894656921565_p 3526w(8)=1.845896777289950e-2_p 3527x(9)=8.996986191765423_p 3528w(9)=5.054256464655892e-4_p 3529x(10)=13.31523805397119_p 3530w(10)=7.368921600548078e-6_p 3531x(11)=17.4968462207672_p 3532w(11)=8.659684651996519e-8_p 3533else if(N==12)then 3534x(1)=-9.806493675431334_p 3535w(1)=4.948201969025118e-1_p 3536x(2)=-8.995767101424681_p 3537w(2)=1.117011484321874_p 3538x(3)=-7.599689752372607_p 3539w(3)=1.656329061036094_p 3540x(4)=-5.725727396440321_p 3541w(4)=2.057212846445282_p 3542x(5)=-3.537276426227280_p 3543w(5)=2.209383065147864_p 3544x(6)=-1.260173632348563_p 3545w(6)=1.755422981190788_p 3546x(7)=1.017406290209709_p 3547w(7)=6.321324474508089e-1_p 3548x(8)=3.647648192288742_p 3549w(8)=7.392812863098212e-2_p 3550x(9)=6.839177403855299_p 3551w(9)=3.698696783571242e-3_p 3552x(10)=10.52257178963878_p 3553w(10)=1.044183445240542e-4_p 3554x(11)=14.47469533557139_p 3555w(11)=2.023722058207713e-6_p 3556x(12)=17.90970705792634_p 3557w(12)=4.332006282510195e-8_p 3558else if(N==13)then 3559x(1)=-9.830264785624442_p 3560w(1)=4.342564455350227e-1_p 3561x(2)=-9.117194989073003_p 3562w(2)=9.847060574330607e-1_p 3563x(3)=-7.881257732401076_p 3564w(3)=1.473115143701854_p 3565x(4)=-6.202938196457443_p 3566w(4)=1.859286827528864_p 3567x(5)=-4.203159921130083_p 3568w(5)=2.076666888987868_p 3569x(6)=-2.054247467887944_p 3570w(6)=1.911448686636089_p 3571x(7)=8.713682774581942e-2_p 3572w(7)=1.031845413719011_p 3573x(8)=2.388087845507018_p 3574w(8)=2.103823510213801e-1_p 3575x(9)=5.132127416898625_p 3576w(9)=1.748733340491855e-2_p 3577x(10)=8.318216880069958_p 3578w(10)=8.231903500789248e-4_p 3579x(11)=11.82574156421609_p 3580w(11)=2.631643854412351e-5_p 3581x(12)=15.36715941310203_p 3582w(12)=7.130387322468554e-7_p 3583x(13)=18.17945561858847_p 3584w(13)=2.550099773685532e-8_p 3585else if(N==14)then 3586x(1)=-9.849919874378418_p 3587w(1)=3.841276302790730e-1_p 3588x(2)=-9.218048610538775_p 3589w(2)=8.741647852241963e-1_p 3590x(3)=-8.117167246130425_p 3591w(3)=1.316884948853922_p 3592x(4)=-6.608713618568991_p 3593w(4)=1.682254625490127_p 3594x(5)=-4.784137858029993_p 3595w(5)=1.927129634691239_p 3596x(6)=-2.773099001254064_p 3597w(6)=1.929429185490571_p 3598x(7)=-7.312252943904706e-1_p 3599w(7)=1.370538935834529_p 3600x(8)=1.353977172979109_p 3601w(8)=4.511026946976679e-1_p 3602x(9)=3.746228249977749_p 3603w(9)=5.989389524600256e-2_p 3604x(10)=6.534236343801882_p 3605w(10)=4.300945308478587e-3_p 3606x(11)=9.640707657235485_p 3607w(11)=2.097452244826938e-4_p 3608x(12)=12.91883437885202_p 3609w(12)=8.042903216433625e-6_p 3610x(13)=16.05002369182137_p 3611w(13)=3.073229824485265e-7_p 3612x(14)=18.36280553338684_p 3613w(14)=1.672993142772949e-8_p 3614else if(N==15)then 3615x(1)=-9.866354544044482_p 3616w(1)=3.421774258665646e-1_p 3617x(2)=-9.302681260210019_p 3618w(2)=7.809651203054084e-1_p 3619x(3)=-8.316507481135982_p 3620w(3)=1.183071119538391_p 3621x(4)=-6.955520325876489_p 3622w(4)=1.525486388581974_p 3623x(5)=-5.290225045025831_p 3624w(5)=1.778471815471289_p 3625x(6)=-3.419138173408671_p 3626w(6)=1.870935871822887_p 3627x(7)=-1.472732994159283_p 3628w(7)=1.580304649891891_p 3629x(8)=4.767217298857021e-1_p 3630w(8)=7.628606516563076e-1_p 3631x(9)=2.600092771292986_p 3632w(9)=1.580015434680915e-1_p 3633x(10)=5.060492055483592_p 3634w(10)=1.655341463557516e-2_p 3635x(11)=7.826930890667263_p 3636w(11)=1.152570990036945e-3_p 3637x(12)=10.80331787724764_p 3638w(12)=6.172636620367918e-5_p 3639x(13)=13.82535835593891_p 3640w(13)=2.927804909911734e-6_p 3641x(14)=16.57400127544717_p 3642w(14)=1.550675818038401e-7_p 3643x(15)=18.4920883820679_p 3644w(15)=1.182930836717860e-8_p 3645else if(N==16)then 3646x(1)=-9.880234286334645_p 3647w(1)=3.067248145213982e-1_p 3648x(2)=-9.374366014060383_p 3649w(2)=7.017237447522271e-1_p 3650x(3)=-8.486294047758799_p 3651w(3)=1.067872307569017_p 3652x(4)=-7.253581512230789_p 3653w(4)=1.387183217320299_p 3654x(5)=-5.731503598394857_p 3655w(5)=1.638136946545320_p 3656x(6)=-3.996169687395467_p 3657w(6)=1.777252273808701_p 3658x(7)=-2.150839883370579_p 3659w(7)=1.666862717459860_p 3660x(8)=-2.947197225822652e-1_p 3661w(8)=1.066791503840760_p 3662x(9)=1.635597985003121_p 3663w(9)=3.323545336503803e-1_p 3664x(10)=3.824375316595459_p 3665w(10)=5.001750623981924e-2_p 3666x(11)=6.301500056364388_p 3667w(11)=4.760476898452141e-3_p 3668x(12)=8.998760390586540_p 3669w(12)=3.430978719832789e-4_p 3670x(13)=11.81331907616717_p 3671w(13)=2.091504210178622e-5_p 3672x(14)=14.57291442849607_p 3673w(14)=1.240597970446558e-6_p 3674x(15)=16.97939714072832_p 3675w(15)=8.835196224562595e-8_p 3676x(16)=18.58623509974481_p 3677w(16)=8.826169249136838e-9_p 3678else if(N==17)then 3679x(1)=-9.892061606621031_p 3680w(1)=2.764977920748109e-1_p 3681x(2)=-9.435597660649332_p 3682w(2)=6.338267974240738e-1_p 3683x(3)=-8.631984046907657_p 3684w(3)=9.681712876016848e-1_p 3685x(4)=-7.511199269565589_p 3686w(4)=1.265231405839908_p 3687x(5)=-6.117214670974518_p 3688w(5)=1.508841759397527_p 3689x(6)=-4.509839895496058_p 3690w(6)=1.670836000325219_p 3691x(7)=-2.769837276581698_p 3692w(7)=1.668903520931956_p 3693x(8)=-9.927489260032929e-1_p 3694w(8)=1.294858564646171_p 3695x(9)=8.062625233729789e-1_p 3696w(9)=5.724773078121964e-1_p 3697x(10)=2.775147962339334_p 3698w(10)=1.231343400108833e-1_p 3699x(11)=5.003323829314946_p 3700w(11)=1.567347014456123e-2_p 3701x(12)=7.452567540796352_p 3702w(12)=1.470316595050016e-3_p 3703x(13)=10.0483459235487_p 3704w(13)=1.140918135405220e-4_p 3705x(14)=12.68396444323302_p 3706w(14)=8.078883221967401e-6_p 3707x(15)=15.18861321426318_p 3708w(15)=5.976672866784761e-7_p 3709x(16)=17.29655014336124_p 3710w(16)=5.527445213233978e-8_p 3711x(17)=18.65672757013173_p 3712w(17)=6.853878133657961e-9_p 3713else 3714call GD(-10) 3715end if 3716end subroutine GF_m10 3717 3718! [-9kT;19kT] 3719subroutine GF_m9(N,x,w) 3720integer,intent(in)::N 3721real(p),intent(out)::x(N),w(N) 3722if(N==2)then 3723x(1)=-6.781261222301113_p 3724w(1)=5.214313508277648_p 3725x(2)=-9.236274877684147e-1_p 3726w(2)=3.785809888309279_p 3727else if(N==3)then 3728x(1)=-7.683960070982323_p 3729w(1)=3.232587640852082_p 3730x(2)=-3.271368320248969_p 3731w(2)=4.705938700152037_p 3732x(3)=1.297698652056836_p 3733w(3)=1.061597055582808_p 3734else if(N==4)then 3735x(1)=-8.104467128096822_p 3736w(1)=2.237764760997535_p 3737x(2)=-4.795013752327463_p 3738w(2)=4.027531092489482_p 3739x(3)=-7.493355191652789e-1_p 3740w(3)=2.590882108659493_p 3741x(4)=3.703471690368356_p 3742w(4)=1.439454344404174e-1_p 3743else if(N==5)then 3744x(1)=-8.337089503037703_p 3745w(1)=1.670680895939905_p 3746x(2)=-5.768577268530009_p 3747w(2)=3.290746390648785_p 3748x(3)=-2.191025148645203_p 3749w(3)=3.231246087851724_p 3750x(4)=1.338233640740957_p 3751w(4)=7.968813576279354e-1_p 3752x(5)=6.487945048775943_p 3753w(5)=1.056866451857705e-2_p 3754else if(N==6)then 3755x(1)=-8.482192139365287_p 3756w(1)=1.311417392705083_p 3757x(2)=-6.421275204666621_p 3758w(2)=2.710954029894957_p 3759x(3)=-3.321213342248663_p 3760w(3)=3.194870431257927_p 3761x(4)=-9.520940895892482e-2_p 3762w(4)=1.659834588864131_p 3763x(5)=3.580212087834858_p 3764w(5)=1.224468746202002e-1_p 3765x(6)=9.446276831457384_p 3766w(6)=6.000792446279444e-4_p 3767else if(N==7)then 3768x(1)=-8.581582995088768_p 3769w(1)=1.063019489789099_p 3770x(2)=-6.887741615423665_p 3771w(2)=2.263611555227736_p 3772x(3)=-4.217524211260979_p 3773w(3)=2.920763204848354_p 3774x(4)=-1.215992263218487_p 3775w(4)=2.270044116484314_p 3776x(5)=1.830713078983188_p 3777w(5)=4.701968518884379e-1_p 3778x(6)=6.004148734729713_p 3779w(6)=1.245126274020391e-2_p 3780x(7)=12.25148283838145_p 3781w(7)=3.691560878219396e-5_p 3782else if(N==8)then 3783x(1)=-8.654424452056116_p 3784w(1)=8.798423761280588e-1_p 3785x(2)=-7.239214148675981_p 3786w(2)=1.911086745271984_p 3787x(3)=-4.938629951922173_p 3788w(3)=2.598136315051285_p 3789x(4)=-2.186830801640101_p 3790w(4)=2.505409204488283_p 3791x(5)=5.686264565968401e-1_p 3792w(5)=1.023364823172284_p 3793x(6)=3.835779240532157_p 3794w(6)=8.105203841185978e-2_p 3795x(7)=8.364188185147807_p 3796w(7)=1.228391986137483e-3_p 3797x(8)=14.50888014199701_p 3798w(8)=3.502077035354783e-6_p 3799else if(N==9)then 3800x(1)=-8.709915647239407_p 3801w(1)=7.396942916496411e-1_p 3802x(2)=-7.512131789149835_p 3803w(2)=1.629306709189537_p 3804x(3)=-5.523161125933595_p 3805w(3)=2.290224260127361_p 3806x(4)=-3.036934955340113_p 3807w(4)=2.478866020378979_p 3808x(5)=-4.567298242361723e-1_p 3809w(5)=1.566204599086966_p 3810x(6)=2.284027491995288_p 3811w(6)=2.839487084878198e-1_p 3812x(7)=5.848671075963481_p 3813w(7)=1.173141023196818e-2_p 3814x(8)=10.4695031397202_p 3815w(8)=1.467948201495443e-4_p 3816x(9)=16.05470750850326_p 3817w(9)=6.026145057545623e-7_p 3818else if(N==10)then 3819x(1)=-8.753163020967374_p 3820w(1)=6.301305340040890e-1_p 3821x(2)=-7.727751848172551_p 3822w(2)=1.402228865426481_p 3823x(3)=-5.998774228282596_p 3824w(3)=2.016513560201385_p 3825x(4)=-3.770099725095460_p 3826w(4)=2.329182025555363_p 3827x(5)=-1.350347993675327_p 3828w(5)=1.914587416837319_p 3829x(6)=1.096924061600486_p 3830w(6)=6.474415786576215e-1_p 3831x(7)=4.024029328929749_p 3832w(7)=5.823058914707396e-2_p 3833x(8)=7.743516387654858_p 3834w(8)=1.785234339297611e-3_p 3835x(9)=12.23378220882871_p 3836w(9)=2.341891241711983e-5_p 3837x(10)=17.02169768303936_p 3838w(10)=1.735058801798208e-7_p 3839else if(N==11)then 3840x(1)=-8.787473048516516_p 3841w(1)=5.430094865438455e-1_p 3842x(2)=-7.900538527738168_p 3843w(2)=1.217666075572615_p 3844x(3)=-6.387987569177007_p 3845w(3)=1.779984676284050_p 3846x(4)=-4.395124318270212_p 3847w(4)=2.138961344581783_p 3848x(5)=-2.146958106749248_p 3849w(5)=2.044339214207498_p 3850x(6)=1.293091096230450e-1_p 3851w(6)=1.078288749505647_p 3852x(7)=2.628672034855824_p 3853w(7)=1.864309352853226e-1_p 3854x(8)=5.725352281941126_p 3855w(8)=1.112163908547221e-2_p 3856x(9)=9.446462994606151_p 3857w(9)=3.161067976031722e-4_p 3858x(10)=13.64671628021716_p 3859w(10)=5.097241747392250e-6_p 3860x(11)=17.61666886065389_p 3861w(11)=7.148134312773216e-8_p 3862else if(N==12)then 3863x(1)=-8.815125236804358_p 3864w(1)=4.726720088784644e-1_p 3865x(2)=-8.040856647610539_p 3866w(2)=1.066208114761796_p 3867x(3)=-6.708988025680664_p 3868w(3)=1.577668826864050_p 3869x(4)=-4.925726853617765_p 3870w(4)=1.945821748740493_p 3871x(5)=-2.854908466122197_p 3872w(5)=2.026597913313687_p 3873x(6)=-7.057693096141091e-1_p 3874w(6)=1.437030168084306_p 3875x(7)=1.520364580019866_p 3876w(7)=4.269900134622241e-1_p 3877x(8)=4.156374169824756_p 3878w(8)=4.480891131621918e-2_p 3879x(9)=7.318730331158712_p 3880w(9)=2.256278111053929e-3_p 3881x(10)=10.92641157152974_p 3882w(10)=6.789744029702198e-5_p 3883x(11)=14.74473258885478_p 3884w(11)=1.478474134300782e-6_p 3885x(12)=17.9919007480749_p 3886w(12)=3.714020109206547e-8_p 3887else if(N==13)then 3888x(1)=-8.837727163337698_p 3889w(1)=4.151030233368780e-1_p 3890x(2)=-8.156222171203188_p 3891w(2)=9.406897285867796e-1_p 3892x(3)=-6.976014736361449_p 3893w(3)=1.404967887359607_p 3894x(4)=-5.376479497301443_p 3895w(4)=1.764687399692117_p 3896x(5)=-3.478778398407093_p 3897w(5)=1.933944445699419_p 3898x(6)=-1.451311037125128_p 3899w(6)=1.649888218048686_p 3900x(7)=6.043465586558702e-1_p 3901w(7)=7.489882199299769e-1_p 3902x(8)=2.899320257955487_p 3903w(8)=1.307906835297012e-1_p 3904x(9)=5.630838074356994_p 3905w(9)=1.053001789723608e-2_p 3906x(10)=8.765490689391349_p 3907w(10)=5.153479463723565e-4_p 3908x(11)=12.18138137137636_p 3909w(11)=1.785578552037519e-5_p 3910x(12)=15.58490005244806_p 3911w(12)=5.463448661101050e-7_p 3912x(13)=18.23797652690362_p 3913w(13)=2.242976602395460e-8_p 3914else if(N==14)then 3915x(1)=-8.856433183840730_p 3916w(1)=3.674064277053420e-1_p 3917x(2)=-8.252144017025222_p 3918w(2)=8.356791712452746e-1_p 3919x(3)=-7.200062382215128_p 3920w(3)=1.257271947545442_p 3921x(4)=-5.760671053263496_p 3922w(4)=1.600467181834500_p 3923x(5)=-4.025337298157947_p 3924w(5)=1.811147065664477_p 3925x(6)=-2.123746951935816_p 3926w(6)=1.727228105477192_p 3927x(7)=-1.850894030636078e-1_p 3928w(7)=1.068208444125673_p 3929x(8)=1.868070429408351_p 3930w(8)=2.938908474856836e-1_p 3931x(9)=4.256681664718394_p 3932w(9)=3.605646425273618e-2_p 3933x(10)=7.010857177919655_p 3934w(10)=2.626155691068423e-3_p 3935x(11)=10.05052100942828_p 3936w(11)=1.356344264601760e-4_p 3937x(12)=13.22788766060212_p 3938w(12)=5.691212087489873e-6_p 3939x(13)=16.22549022644904_p 3940w(13)=2.449423606993557e-7_p 3941x(14)=18.40597480225021_p 3942w(14)=1.497862997659933e-8_p 3943else if(N==15)then 3944x(1)=-8.872087428167740_p 3945w(1)=3.274570818244346e-1_p 3946x(2)=-8.332714148015651_p 3947w(2)=7.470418832643876e-1_p 3948x(3)=-7.389608872368512_p 3949w(3)=1.130487054017814_p 3950x(4)=-6.089648387000119_p 3951w(4)=1.453839779101838_p 3952x(5)=-4.503043374181555_p 3953w(5)=1.681036429193045_p 3954x(6)=-2.729088257312382_p 3955w(6)=1.714459925375877_p 3956x(7)=-8.884107084645607e-1_p 3957w(7)=1.309071393267795_p 3958x(8)=1.000467668203953_p 3959w(8)=5.293351829223795e-1_p 3960x(9)=3.117197390709116_p 3961w(9)=9.667268461954166e-2_p 3962x(10)=5.557686564608775_p 3963w(10)=9.957732064049129e-3_p 3964x(11)=8.274564419078729_p 3965w(11)=7.206258119356489e-4_p 3966x(12)=11.17407478780874_p 3967w(12)=4.133278163859355e-5_p 3968x(13)=14.0919001344156_p 3969w(13)=2.154040345357525e-6_p 3970x(14)=16.71619296110655_p 3971w(14)=1.275751953951321e-7_p 3972x(15)=18.52494330574511_p 3973w(15)=1.072665065481224e-8_p 3974else if(N==16)then 3975x(1)=-8.885317977883744_p 3976w(1)=2.936694328243739e-1_p 3977x(2)=-8.401014713111792_p 3978w(2)=6.716056435685807e-1_p 3979x(3)=-7.551220958575156_p 3980w(3)=1.021148486505162_p 3981x(4)=-6.372816288622565_p 3982w(4)=1.323779693533168_p 3983x(5)=-4.920676878552528_p 3984w(5)=1.554242818583632_p 3985x(6)=-3.271542880997879_p 3986w(6)=1.652635170806032_p 3987x(7)=-1.526150779289842_p 3988w(7)=1.446223087508317_p 3989x(8)=2.491480140152188e-1_p 3990w(8)=7.930105929610464e-1_p 3991x(9)=2.157678723859601_p 3992w(9)=2.107004606594468e-1_p 3993x(10)=4.335695524468511_p 3994w(10)=2.996606621626769e-2_p 3995x(11)=6.776985317384555_p 3996w(11)=2.905743365588551e-3_p 3997x(12)=9.414030232287562_p 3998w(12)=2.206718313768632e-4_p 3999x(13)=12.14584712046936_p 4000w(13)=1.450061241013854e-5_p 4001x(14)=14.80209585566654_p 4002w(14)=9.449853386676540e-7_p 4003x(15)=17.09566377037551_p 4004w(15)=7.454703830186111e-8_p 4005x(16)=18.61191864042731_p 4006w(16)=8.079148879237178e-9_p 4007else if(N==17)then 4008x(1)=-8.896599677034514_p 4009w(1)=2.648421339918257e-1_p 4010x(2)=-8.459398742591295_p 4011w(2)=6.069137697916974e-1_p 4012x(3)=-7.690021016102377_p 4013w(3)=9.263851203654064e-1_p 4014x(4)=-6.617869121171092_p 4015w(4)=1.208661538347751_p 4016x(5)=-5.286480826507229_p 4017w(5)=1.435310787542149_p 4018x(6)=-3.756007406594538_p 4019w(6)=1.568153298859782_p 4020x(7)=-2.107243376838197_p 4021w(7)=1.495513031125901_p 4022x(8)=-4.196646340444230e-1_p 4023w(8)=1.026782094523432_p 4024x(9)=1.336273126746796_p 4025w(9)=3.826522512390343e-1_p 4026x(10)=3.295827946368721_p 4027w(10)=7.449204764230059e-2_p 4028x(11)=5.499641908175472_p 4029w(11)=9.418038515625421e-3_p 4030x(12)=7.901562226826227_p 4031w(12)=9.173520375418234e-4_p 4032x(13)=10.43023042299034_p 4033w(13)=7.561983032138096e-5_p 4034x(14)=12.98059679072997_p 4035w(14)=5.789661990427616e-6_p 4036x(15)=15.38573261103187_p 4037w(15)=4.692088478019450e-7_p 4038x(16)=17.39262189713656_p 4039w(16)=4.758441637029047e-8_p 4040x(17)=18.6772678998118_p 4041w(17)=6.318903574722698e-9_p 4042else 4043call GD(-9) 4044end if 4045end subroutine GF_m9 4046 4047! [-8kT;19kT] 4048subroutine GF_m8(N,x,w) 4049integer,intent(in)::N 4050real(p),intent(out)::x(N),w(N) 4051if(N==2)then 4052x(1)=-5.971704939611111_p 4053w(1)=4.752845119444999_p 4054x(2)=-6.083146930579379e-1_p 4055w(2)=3.247490281325101_p 4056else if(N==3)then 4057x(1)=-6.781804639386830_p 4058w(1)=2.987678301286060_p 4059x(2)=-2.720455127956515_p 4060w(2)=4.201207104461131_p 4061x(3)=1.642690557745330_p 4062w(3)=8.114499950229075e-1_p 4063else if(N==4)then 4064x(1)=-7.163540432718857_p 4065w(1)=2.087932223581755_p 4066x(2)=-4.085232480757788_p 4067w(2)=3.696710700077584_p 4068x(3)=-3.260931155349066e-1_p 4069w(3)=2.121106668737378_p 4070x(4)=4.149703706904368_p 4071w(4)=9.458580837338175e-2_p 4072else if(N==5)then 4073x(1)=-7.376706307805177_p 4074w(1)=1.569535495030418_p 4075x(2)=-4.968802759045955_p 4076w(2)=3.063061630960030_p 4077x(3)=-1.644469601724681_p 4078w(3)=2.799935638651649_p 4079x(4)=1.780536821659661_p 4080w(4)=5.614758048567102e-1_p 4081x(5)=7.009423279378288_p 4082w(5)=6.326831271291669e-3_p 4083else if(N==6)then 4084x(1)=-7.510911517750716_p 4085w(1)=1.237836580001674_p 4086x(2)=-5.568520454025368_p 4087w(2)=2.543610002467511_p 4088x(3)=-2.669594683310755_p 4089w(3)=2.878491093966207_p 4090x(4)=3.763416024021460e-1_p 4091w(4)=1.264714108755989_p 4092x(5)=4.092472963650923_p 4093w(5)=7.533665158985800e-2_p 4094x(6)=9.993536476353146_p 4095w(6)=3.469639888590582e-4_p 4096else if(N==7)then 4097x(1)=-7.603694031419186_p 4098w(1)=1.006264264595477_p 4099x(2)=-6.001968978961540_p 4100w(2)=2.133898946196467_p 4101x(3)=-3.491593976096681_p 4102w(3)=2.690101579806762_p 4103x(4)=-6.844283255998520e-1_p 4104w(4)=1.855301927517693_p 4105x(5)=2.326980511441468_p 4106w(5)=3.074636191140597e-1_p 4107x(6)=6.543550583770543_p 4108w(6)=7.283004823164852e-3_p 4109x(7)=12.74934163876916_p 4110w(7)=2.205871647515392e-5_p 4111else if(N==8)then 4112x(1)=-7.672120140991551_p 4113w(1)=8.343731134117417e-1_p 4114x(2)=-6.331033869906264_p 4115w(2)=1.806898639015239_p 4116x(3)=-4.160068044870980_p 4117w(3)=2.422155266719071_p 4118x(4)=-1.584973971990840_p 4119w(4)=2.163995994246489_p 4120x(5)=1.065042778282397_p 4121w(5)=7.236215454401952e-1_p 4122x(6)=4.363523851790498_p 4123w(6)=4.856325030776142e-2_p 4124x(7)=8.881342653862509_p 4125w(7)=7.252985643729847e-4_p 4126x(8)=14.89045447443016_p 4127w(8)=2.293065228881407e-6_p 4128else if(N==9)then 4129x(1)=-7.724404927465279_p 4130w(1)=7.024384479633949e-1_p 4131x(2)=-6.587535030727444_p 4132w(2)=1.543769326265406_p 4133x(3)=-4.705512408652311_p 4134w(3)=2.150373307586519_p 4135x(4)=-2.370379864755125_p 4136w(4)=2.222129641661120_p 4137x(5)=6.753502956985445e-2_p 4138w(5)=1.197024517864610_p 4139x(6)=2.801236212994984_p 4140w(6)=1.776017983949870e-1_p 4141x(7)=6.373829320913223_p 4142w(7)=6.907551932275276e-3_p 4143x(8)=10.93341311084288_p 4144w(8)=9.037240585575271e-5_p 4145x(9)=16.31440136917042_p 4146w(9)=4.366959320601967e-7_p 4147else if(N==10)then 4148x(1)=-7.765225851152698_p 4149w(1)=5.990983479710132e-1_p 4150x(2)=-6.790661721323298_p 4151w(2)=1.330858004701510_p 4152x(3)=-5.151221217297667_p 4153w(3)=1.902024822930675_p 4154x(4)=-3.050129276173653_p 4155w(4)=2.135746510787589_p 4156x(5)=-7.779963702427496e-1_p 4157w(5)=1.565626424888131_p 4158x(6)=1.611845679310622_p 4159w(6)=4.313485067959896e-1_p 4160x(7)=4.552642354392673_p 4161w(7)=3.454760411296117e-2_p 4162x(8)=8.240751376319741_p 4163w(8)=1.069778716676122e-3_p 4164x(9)=12.63009512165852_p 4165w(9)=1.526373787077334e-5_p 4166x(10)=17.19187537421638_p 4167w(10)=1.361276829341862e-7_p 4168else if(N==11)then 4169x(1)=-7.797659319863167_p 4170w(1)=5.167949867695767e-1_p 4171x(2)=-6.953747189925619_p 4172w(2)=1.157286919986852_p 4173x(3)=-5.517138502042537_p 4174w(3)=1.684190266411362_p 4175x(4)=-3.632581669911824_p 4176w(4)=1.988016174618696_p 4177x(5)=-1.520720122899173_p 4178w(5)=1.760592202367287_p 4179x(6)=6.582134351885347e-1_p 4180w(6)=7.732516436116067e-1_p 4181x(7)=3.157129311558645_p 4182w(7)=1.134316981169619e-1_p 4183x(8)=6.242117016089615_p 4184w(8)=6.571807068139824e-3_p 4185x(9)=9.901095964064934_p 4186w(9)=1.961135863757739e-4_p 4187x(10)=13.9738199284333_p 4188w(10)=3.529015835381553e-6_p 4189x(11)=17.72978147747973_p 4190w(11)=5.921740579643004e-8_p 4191else if(N==12)then 4192x(1)=-7.823834430115570_p 4193w(1)=4.502522376776023e-1_p 4194x(2)=-7.086406064985795_p 4195w(2)=1.014505647015681_p 4196x(3)=-5.819700232222995_p 4197w(3)=1.496167385731541_p 4198x(4)=-4.129312318153171_p 4199w(4)=1.823600114586852_p 4200x(5)=-2.178773724087208_p 4201w(5)=1.808289025269205_p 4202x(6)=-1.458556127403827e-1_p 4203w(6)=1.107551735496094_p 4204x(7)=2.049490011573688_p 4205w(7)=2.721407162787959e-1_p 4206x(8)=4.684767421233389_p 4207w(8)=2.642428371596290e-2_p 4208x(9)=7.807836214876072_p 4209w(9)=1.359172446738607e-3_p 4210x(10)=11.33149945273302_p 4211w(10)=4.396814720655999e-5_p 4212x(11)=15.00934110458333_p 4213w(11)=1.082502878161788e-6_p 4214x(12)=18.06973916734768_p 4215w(12)=3.190154319743185e-8_p 4216else if(N==13)then 4217x(1)=-7.845254842610398_p 4218w(1)=3.957202685306456e-1_p 4219x(2)=-7.195630643933339_p 4220w(2)=8.959448170671688e-1_p 4221x(3)=-6.071912316931812_p 4222w(3)=1.334701605427727_p 4223x(4)=-4.552844919618511_p 4224w(4)=1.662741250710585_p 4225x(5)=-2.760070970978149_p 4226w(5)=1.765333151262547_p 4227x(6)=-8.502255114160158e-1_p 4228w(6)=1.352729361756121_p 4229x(7)=1.141659916767259_p 4230w(7)=5.084209005025461e-1_p 4231x(8)=3.433917236561751_p 4232w(8)=7.818068600241702e-2_p 4233x(9)=6.142890807607413_p 4234w(9)=6.230786932223882e-3_p 4235x(10)=9.218112347335797_p 4236w(10)=3.200367827288429e-4_p 4237x(11)=12.53575775814335_p 4238w(11)=1.209643451332797e-5_p 4239x(12)=15.79733697852707_p 4240w(12)=4.196184680548023e-7_p 4241x(13)=18.29363437965672_p 4242w(13)=1.974240806269662e-8_p 4243else if(N==14)then 4244x(1)=-7.863001945778571_p 4245w(1)=3.504895447419304e-1_p 4246x(2)=-7.286559363100316_p 4247w(2)=7.965927579047812e-1_p 4248x(3)=-6.283892699899306_p 4249w(3)=1.196029167115932_p 4250x(4)=-4.914881964447986_p 4251w(4)=1.513522510064643_p 4252x(5)=-3.271283020280056_p 4253w(5)=1.677204791220185_p 4254x(6)=-1.479536410617038_p 4255w(6)=1.484787822379209_p 4256x(7)=3.719826651821111e-1_p 4257w(7)=7.773634423669724e-1_p 4258x(8)=2.406731848833880_p 4259w(8)=1.814864397501901e-1_p 4260x(9)=4.784211676364112_p 4261w(9)=2.118253210849240e-2_p 4262x(10)=7.496181859284851_p 4263w(10)=1.584877836765036e-3_p 4264x(11)=10.4626601552301_p 4265w(11)=8.727926096726706e-5_p 4266x(12)=13.53427682523328_p 4267w(12)=4.026988222992830e-6_p 4268x(13)=16.3962915301239_p 4269w(13)=1.956216757117560e-7_p 4270x(14)=18.44720955454346_p 4271w(14)=1.341013264621639e-8_p 4272else if(N==15)then 4273x(1)=-7.877867792835127_p 4274w(1)=3.125682523794632e-1_p 4275x(2)=-7.363018262769459_p 4276w(2)=7.126159227951094e-1_p 4277x(3)=-6.463487784113719_p 4278w(3)=1.076616946424636_p 4279x(4)=-5.225601602665098_p 4280w(4)=1.378448984165545_p 4281x(5)=-3.719730593217719_p 4282w(5)=1.571186438367960_p 4283x(6)=-2.044910090398430_p 4284w(6)=1.523731402120281_p 4285x(7)=-3.014305737176129e-1_p 4286w(7)=1.017823066057469_p 4287x(8)=1.545771602021837_p 4288w(8)=3.438466381460112e-1_p 4289x(9)=3.654812401394244_p 4290w(9)=5.712620295752802e-2_p 4291x(10)=6.066731090273153_p 4292w(10)=5.895246607063255e-3_p 4293x(11)=8.727522027986087_p 4294w(11)=4.469992310870322e-4_p 4295x(12)=11.54507852961716_p 4296w(12)=2.760077000516479e-5_p 4297x(13)=14.35516016968073_p 4298w(13)=1.585910294224761e-6_p 4299x(14)=16.85448381917278_p 4300w(14)=1.051159335527153e-7_p 4301x(15)=18.55645049887455_p 4302w(15)=9.721712816846531e-9_p 4303else if(N==16)then 4304x(1)=-7.890442627363475_p 4305w(1)=2.804678084802580e-1_p 4306x(2)=-7.427895421625448_p 4307w(2)=6.410616069031545e-1_p 4308x(3)=-6.616802121503495_p 4309w(3)=9.733878311987464e-1_p 4310x(4)=-5.493550811487682_p 4311w(4)=1.257573162561272_p 4312x(5)=-4.112995132022839_p 4313w(5)=1.461628260352318_p 4314x(6)=-2.552389653183798_p 4315w(6)=1.502051309510007_p 4316x(7)=-9.040337531670586e-1_p 4317w(7)=1.189181864310499_p 4318x(8)=8.078791026396669e-1_p 4319w(8)=5.482468860376268e-1_p 4320x(9)=2.702236382971589_p 4321w(9)=1.272682696289955e-1_p 4322x(10)=4.862058820827028_p 4323w(10)=1.756215935055823e-2_p 4324x(11)=7.260493289899418_p 4325w(11)=1.754231628155634e-3_p 4326x(12)=9.832160558166942_p 4327w(12)=1.411798678245277e-4_p 4328x(13)=12.47728050615081_p 4329w(13)=1.004006241414936e-5_p 4330x(14)=15.0278691998066_p 4331w(14)=7.205279842657029e-7_p 4332x(15)=17.20874417112952_p 4333w(15)=6.296110596007632e-8_p 4334x(16)=18.6366352932238_p 4335w(16)=7.389178960000578e-9_p 4336else if(N==17)then 4337x(1)=-7.901173317979389_p 4338w(1)=2.530586175266488e-1_p 4339x(2)=-7.483399881767313_p 4340w(2)=5.796359542595230e-1_p 4341x(3)=-6.748614304360394_p 4342w(3)=8.837477401329478e-1_p 4343x(4)=-5.725787715260177_p 4344w(4)=1.149935647701191_p 4345x(5)=-4.458320209713438_p 4346w(5)=1.355508466376631_p 4347x(6)=-3.006908444426820_p 4348w(6)=1.446623018369970_p 4349x(7)=-1.449576203826617_p 4350w(7)=1.283918057083917_p 4351x(8)=1.605463902207703e-1_p 4352w(8)=7.577078152516060e-1_p 4353x(9)=1.887780018179221_p 4354w(9)=2.403142579259746e-1_p 4355x(10)=3.834631800402478_p 4356w(10)=4.368700794007351e-2_p 4357x(11)=6.006634516333738_p 4358w(11)=5.576383369910938e-3_p 4359x(12)=8.355773097691042_p 4360w(12)=5.679233976940536e-4_p 4361x(13)=10.81321117732572_p 4362w(13)=4.994864305658855e-5_p 4363x(14)=13.27534184482408_p 4364w(14)=4.147262488280274e-6_p 4365x(15)=15.57959123282217_p 4366w(15)=3.687233203516579e-7_p 4367x(16)=17.48611355807108_p 4368w(16)=4.098554215949609e-8_p 4369x(17)=18.69709583326285_p 4370w(17)=5.819603964482878e-9_p 4371else 4372call GD(-8) 4373end if 4374end subroutine GF_m8 4375 4376! [-7kT;19kT] 4377subroutine GF_m7(N,x,w) 4378integer,intent(in)::N 4379real(p),intent(out)::x(N),w(N) 4380if(N==2)then 4381x(1)=-5.160733444183043_p 4382w(1)=4.287641529949322_p 4383x(2)=-2.708845647472475e-1_p 4384w(2)=2.713269930901656_p 4385else if(N==3)then 4386x(1)=-5.879257469091348_p 4387w(1)=2.740827254659603_p 4388x(2)=-2.166748749659721_p 4389w(2)=3.668241982150560_p 4390x(3)=2.027279912502804_p 4391w(3)=5.918422240408143e-1_p 4392else if(N==4)then 4393x(1)=-6.222621805832440_p 4394w(1)=1.936520760272704_p 4395x(2)=-3.377176922876856_p 4396w(2)=3.341317960118510_p 4397x(3)=1.183128392227022e-1_p 4398w(3)=1.663711897169614_p 4399x(4)=4.637093060259707_p 4400w(4)=5.936084329014944e-2_p 4401else if(N==5)then 4402x(1)=-6.416510731737779_p 4403w(1)=1.466929695769883_p 4404x(2)=-4.171276705410748_p 4405w(2)=2.820266914436368_p 4406x(3)=-1.095173226060905_p 4407w(3)=2.336489116508721_p 4408x(4)=2.263380533768294_p 4409w(4)=3.735695981033693e-1_p 4410x(5)=7.564270331031781_p 4411w(5)=3.656136032636862e-3_p 4412else if(N==6)then 4413x(1)=-6.539912190050775_p 4414w(1)=1.162854589782755_p 4415x(2)=-4.718028165277052_p 4416w(2)=2.366488382174021_p 4417x(3)=-2.022934392507346_p 4418w(3)=2.518527200073005_p 4419x(4)=8.745527131463461e-1_p 4420w(4)=9.084473959459344e-1_p 4421x(5)=4.640480442931708_p 4422w(5)=4.439782981055701e-2_p 4423x(6)=10.5611834603454_p 4424w(6)=1.960630647050650e-4_p 4425else if(N==7)then 4426x(1)=-6.626099264783456_p 4427w(1)=9.482523739292746e-1_p 4428x(2)=-5.118225197884529_p 4429w(2)=1.997464843892274_p 4430x(3)=-2.771865721488565_p 4431w(3)=2.425579380653047_p 4432x(4)=-1.435032696382765e-1_p 4433w(4)=1.435212809727597_p 4434x(5)=2.859611596542519_p 4435w(5)=1.902394598582050e-1_p 4436x(6)=7.105644985349580_p 4437w(6)=4.149492129732768e-3_p 4438x(7)=13.24791173433112_p 4439w(7)=1.310066084665726e-5_p 4440else if(N==8)then 4441x(1)=-6.690065787250489_p 4442w(1)=7.878751055768713e-1_p 4443x(2)=-5.424478242269754_p 4444w(2)=1.697977925897903_p 4445x(3)=-3.386790670347387_p 4446w(3)=2.223418772266904_p 4447x(4)=-9.849111491782382e-1_p 4448w(4)=1.783365938160000_p 4449x(5)=1.591875825176914_p 4450w(5)=4.797406614818139e-1_p 4451x(6)=4.918334624767705_p 4452w(6)=2.810958757547729e-2_p 4453x(7)=9.409921376538428_p 4454w(7)=4.219602732795000e-4_p 4455x(8)=15.25968481883821_p 4456w(8)=1.509618728847236e-6_p 4457else if(N==9)then 4458x(1)=-6.739093806595007_p 4459w(1)=6.643615966271968e-1_p 4460x(2)=-5.664196171183995_p 4461w(2)=1.454807832306281_p 4462x(3)=-3.891973012618136_p 4463w(3)=1.995524894312125_p 4464x(4)=-1.709819562887227_p 4465w(4)=1.920319109588710_p 4466x(5)=6.100677308700411e-1_p 4467w(5)=8.559596028362708e-1_p 4468x(6)=3.349474957304641_p 4469w(6)=1.059005090613546e-1_p 4470x(7)=6.916188025771495_p 4471w(7)=3.982334885283863e-3_p 4472x(8)=11.40038371256309_p 4473w(8)=5.526235850793225e-5_p 4474x(9)=16.56065107203161_p 4475w(9)=3.188752473575990e-7_p 4476else if(N==10)then 4477x(1)=-6.777449225711718_p 4478w(1)=5.674018311871586e-1_p 4479x(2)=-5.854559713628753_p 4480w(2)=1.256921395837016_p 4481x(3)=-4.306840024768393_p 4482w(3)=1.777409390532866_p 4483x(4)=-2.336637081030429_p 4484w(4)=1.905684168307441_p 4485x(5)=-1.997279633256195e-1_p 4486w(5)=1.202798581497569_p 4487x(6)=2.157262651710908_p 4488w(6)=2.701439963451674e-1_p 4489x(7)=5.103399914598436_p 4490w(7)=1.990928123901569e-2_p 4491x(8)=8.747775314487424_p 4492w(8)=6.327746307577638e-4_p 4493x(9)=13.02402952258653_p 4494w(9)=9.933869198912218e-6_p 4495x(10)=17.35216286223026_p 4496w(10)=1.074047871609531e-7_p 4497else if(N==11)then 4498x(1)=-6.807977005678730_p 4499w(1)=4.900329022608120e-1_p 4500x(2)=-6.007748677775785_p 4501w(2)=1.094922807915322_p 4502x(3)=-4.648771750832307_p 4503w(3)=1.581306772981720_p 4504x(4)=-2.875733567411967_p 4505w(4)=1.810644128689253_p 4506x(5)=-8.965267375463214e-1_p 4507w(5)=1.437285645415304_p 4508x(6)=1.210755637843291_p 4509w(6)=5.165343918930188e-1_p 4510x(7)=3.712006900496842_p 4511w(7)=6.624870381878728e-2_p 4512x(8)=6.773308877041538_p 4513w(8)=3.812842569840367e-3_p 4514x(9)=10.36003292462512_p 4515w(9)=1.207694530717898e-4_p 4516x(10)=14.29582472294865_p 4517w(10)=2.446634453335404e-6_p 4518x(11)=17.83640675363352_p 4519w(11)=4.921939545764410e-8_p 4520else if(N==12)then 4521x(1)=-6.832652727125034_p 4522w(1)=4.273742334302719e-1_p 4523x(2)=-6.132602772938711_p 4524w(2)=9.612270504572915e-1_p 4525x(3)=-4.932388286839238_p 4526w(3)=1.409520494850861_p 4527x(4)=-3.337592155288779_p 4528w(4)=1.682880966542105_p 4529x(5)=-1.508085239675272_p 4530w(5)=1.546146493485265_p 4531x(6)=4.273110736343034e-1_p 4532w(6)=7.936793130369606e-1_p 4533x(7)=2.606798243049524_p 4534w(7)=1.640481739431795e-1_p 4535x(8)=5.231788878610605_p 4536w(8)=1.519643955659201e-2_p 4537x(9)=8.305714795868033_p 4538w(9)=8.091034841409976e-4_p 4539x(10)=11.73709042091359_p 4540w(10)=2.837012243391501e-5_p 4541x(11)=15.26811003172686_p 4542w(11)=7.944968646315948e-7_p 4543x(12)=18.1433944824409_p 4544w(12)=2.744501115674318e-8_p 4545else if(N==13)then 4546x(1)=-6.852874127780963_p 4547w(1)=3.759492894340133e-1_p 4548x(2)=-6.235575059361223_p 4549w(2)=8.499215823182613e-1_p 4550x(3)=-5.169408172067869_p 4551w(3)=1.260576735711870_p 4552x(4)=-3.733014920047970_p 4553w(4)=1.547764429916370_p 4554x(5)=-2.047508735076030_p 4555w(5)=1.559473128554647_p 4556x(6)=-2.452834173435197e-1_p 4557w(6)=1.036207143503342_p 4558x(7)=1.704350734766582_p 4559w(7)=3.220691138359355e-1_p 4560x(8)=3.991066162866588_p 4561w(8)=4.511695706792057e-2_p 4562x(9)=6.667401845818169_p 4563w(9)=3.627297261599900e-3_p 4564x(10)=9.675387326553652_p 4565w(10)=1.972575869676034e-4_p 4566x(11)=12.88828588625829_p 4567w(11)=8.185209330058862e-6_p 4568x(12)=16.00427370260206_p 4569w(12)=3.230658214436997e-7_p 4570x(13)=18.34654399285957_p 4571w(13)=1.738489884854211e-8_p 4572else if(N==14)then 4573x(1)=-6.869648362567914_p 4574w(1)=3.332402656179164e-1_p 4575x(2)=-6.321423752291431_p 4576w(2)=7.564511256443497e-1_p 4577x(3)=-5.369034880093976_p 4578w(3)=1.131809584909883_p 4579x(4)=-4.072179733722546_p 4580w(4)=1.417206083776285_p 4581x(5)=-2.522931637715942_p 4582w(5)=1.514768935346861_p 4583x(6)=-8.374637866547031e-1_p 4584w(6)=1.203737741516281_p 4585x(7)=9.473621349484481e-1_p 4586w(7)=5.237932618982555e-1_p 4587x(8)=2.970558138138084_p 4588w(8)=1.067266896327308e-1_p 4589x(9)=5.327731832679774_p 4590w(9)=1.217282979504987e-2_p 4591x(10)=7.989488125629834_p 4592w(10)=9.460127879261275e-4_p 4593x(11)=10.87652839970174_p 4594w(11)=5.591138947118010e-5_p 4595x(12)=13.83758068548115_p 4596w(12)=2.849994372710181e-6_p 4597x(13)=16.56235206376342_p 4598w(13)=1.565388639179572e-7_p 4599x(14)=18.48658395847819_p 4600w(14)=1.200273169598423e-8_p 4601else if(N==15)then 4602x(1)=-6.883714546209966_p 4603w(1)=2.973921854157178e-1_p 4604x(2)=-6.393702510335286_p 4605w(2)=6.773058369617473e-1_p 4606x(3)=-5.538457557221134_p 4607w(3)=1.020393769555809_p 4608x(4)=-4.364079665139032_p 4609w(4)=1.296146507913029_p 4610x(5)=-2.941346756775510_p 4611w(5)=1.440329782805260_p 4612x(6)=-1.365655426270690_p 4613w(6)=1.291120513262219_p 4614x(7)=2.952811574819649e-1_p 4615w(7)=7.321901556413882e-1_p 4616x(8)=2.115917933662688_p 4617w(8)=2.095584993807963e-1_p 4618x(9)=4.211866690407607_p 4619w(9)=3.274028734569099e-2_p 4620x(10)=6.586762383056220_p 4621w(10)=3.439056174957288e-3_p 4622x(11)=9.185194711645620_p 4623w(11)=2.752161966790665e-4_p 4624x(12)=11.91584075228032_p 4625w(12)=1.838605716362894e-5_p 4626x(13)=14.61485448606864_p 4627w(13)=1.168605384801339e-6_p 4628x(14)=16.98885800242739_p 4629w(14)=8.673055692887190e-8_p 4630x(15)=18.58665813393529_p 4631w(15)=8.804577629498893e-9_p 4632else if(N==16)then 4633x(1)=-6.895624468205247_p 4634w(1)=2.670159239250676e-1_p 4635x(2)=-6.455100870605326_p 4636w(2)=6.097672835699252e-1_p 4637x(3)=-5.683300876991476_p 4638w(3)=9.237280499167047e-1_p 4639x(4)=-4.616372100743713_p 4640w(4)=1.186139140847074_p 4641x(5)=-3.309463641880759_p 4642w(5)=1.353602807174139_p 4643x(6)=-1.838936994032539_p 4644w(6)=1.314673634863432_p 4645x(7)=-2.794027761805460e-1_p 4646w(7)=9.097322973493944e-1_p 4647x(8)=1.387453365901262_p 4648w(8)=3.513490141346894e-1_p 4649x(9)=3.269012830260956_p 4650w(9)=7.366576275261219e-2_p 4651x(10)=5.402385723979688_p 4652w(10)=1.009190887696432e-2_p 4653x(11)=7.751344287850803_p 4654w(11)=1.048204818514560e-3_p 4655x(12)=10.25263712054106_p 4656w(12)=8.987879808042622e-5_p 4657x(13)=12.80723705635268_p 4658w(13)=6.943906864884339e-6_p 4659x(14)=15.25005245302119_p 4660w(14)=5.499461552987134e-7_p 4661x(15)=17.31864845069016_p 4662w(15)=5.322010767079327e-8_p 4663x(16)=18.66041693222299_p 4664w(16)=6.751253205053973e-9_p 4665else if(N==17)then 4666x(1)=-6.905796569079595_p 4667w(1)=2.410554472047197e-1_p 4668x(2)=-6.507680702413247_p 4669w(2)=5.517143532268194e-1_p 4670x(3)=-5.807987349707684_p 4671w(3)=8.395500278839123e-1_p 4672x(4)=-4.835449677252281_p 4673w(4)=1.087161903757715_p 4674x(5)=-3.633630611869758_p 4675w(5)=1.264287807540440_p 4676x(6)=-2.263313499403706_p 4677w(6)=1.295644312052238_p 4678x(7)=-7.940326133248781e-1_p 4679w(7)=1.035268703928163_p 4680x(8)=7.550184174683416e-1_p 4681w(8)=5.151055903337074e-1_p 4682x(9)=2.462494215308443_p 4683w(9)=1.425404097432607e-1_p 4684x(10)=4.390386462487120_p 4685w(10)=2.494028673952261e-2_p 4686x(11)=6.523468363223897_p 4687w(11)=3.257387752938554e-3_p 4688x(12)=8.814644060823404_p 4689w(12)=3.490420249781539e-4_p 4690x(13)=11.19686132813633_p 4691w(13)=3.288811796933576e-5_p 4692x(14)=13.56791117945301_p 4693w(14)=2.969844134862215e-6_p 4694x(15)=15.77007717215031_p 4695w(15)=2.900327788236496e-7_p 4696x(16)=17.5770444602931_p 4697w(16)=3.531443572538262e-8_p 4698x(17)=18.71623294173243_p 4699w(17)=5.353244126342055e-9_p 4700else 4701call GD(-7) 4702end if 4703end subroutine GF_m7 4704 4705! [-6kT;19kT] 4706subroutine GF_m6(N,x,w) 4707integer,intent(in)::N 4708real(p),intent(out)::x(N),w(N) 4709if(N==2)then 4710x(1)=-4.348503282909581_p 4711w(1)=3.813106847001558_p 4712x(2)=9.542031717972847e-2_p 4713w(2)=2.189368832533376_p 4714else if(N==3)then 4715x(1)=-4.976668500940183_p 4716w(1)=2.488316701574643_p 4717x(2)=-1.607641645568114_p 4718w(2)=3.105736947427007_p 4719x(3)=2.458344450211525_p 4720w(3)=4.084220305332835e-1_p 4721else if(N==4)then 4722x(1)=-5.282015956786002_p 4723w(1)=1.781013719375389_p 4724x(2)=-2.671331139970352_p 4725w(2)=2.950124578999479_p 4726x(3)=5.925294324459224e-1_p 4727w(3)=1.235847691954636_p 4728x(4)=5.168516220473375_p 4729w(4)=3.548968920542861e-2_p 4730else if(N==5)then 4731x(1)=-5.456753598755993_p 4732w(1)=1.361026513981612_p 4733x(2)=-3.377163487716671_p 4734w(2)=2.552102297179386_p 4735x(3)=-5.369764518012083e-1_p 4736w(3)=1.853742138846246_p 4737x(4)=2.791743778878568_p 4738w(4)=2.335674662409239e-1_p 4739x(5)=8.153587623870221_p 4740w(5)=2.037263286765501e-3_p 4741else if(N==6)then 4742x(1)=-5.569394473148267_p 4743w(1)=1.085077155084233_p 4744x(2)=-3.870908952975305_p 4745w(2)=2.172045497224838_p 4746x(3)=-1.379151334518645_p 4747w(3)=2.110979105010052_p 4748x(4)=1.408012969107078_p 4749w(4)=6.091866179248150e-1_p 4750x(5)=5.224483863039491_p 4751w(5)=2.507890944698523e-2_p 4752x(6)=11.14750031669778_p 4753w(6)=1.083948440106241e-4_p 4754else if(N==7)then 4755x(1)=-5.648947331693478_p 4756w(1)=8.879242092036400e-1_p 4757x(2)=-4.237382400895591_p 4758w(2)=1.848960631861905_p 4759x(3)=-2.058555615372417_p 4760w(3)=2.114844387533578_p 4761x(4)=4.161825274855039e-1_p 4762w(4)=1.036978839138998_p 4763x(5)=3.430224832960389_p 4764w(5)=1.114550708270129e-1_p 4765x(6)=7.689545610314240_p 4766w(6)=2.304788500353693e-3_p 4767x(7)=13.74365278434233_p 4768w(7)=7.752469446918308e-6_p 4769else if(N==8)then 4770x(1)=-5.708372176568648_p 4771w(1)=7.395252598714107e-1_p 4772x(2)=-4.520211473019128_p 4773w(2)=1.580473770642060_p 4774x(3)=-2.619807370477071_p 4775w(3)=1.989389961586469_p 4776x(4)=-3.799944354748726e-1_p 4777w(4)=1.379906381805923_p 4778x(5)=2.154572164132617_p 4779w(5)=2.971912762475112e-1_p 4780x(6)=5.499497522868062_p 4781w(6)=1.574592965486578e-2_p 4782x(7)=9.948686329628957_p 4783w(7)=2.420990513397748e-4_p 4784x(8)=15.61458803706992_p 4785w(8)=1.000675354185636e-6_p 4786else if(N==9)then 4787x(1)=-5.754069102277954_p 4788w(1)=6.248023581289172e-1_p 4789x(2)=-4.742636329585230_p 4790w(2)=1.359558272864581_p 4791x(3)=-3.083695713649876_p 4792w(3)=1.815504815112615_p 4793x(4)=-1.052213975910044_p 4794w(4)=1.572543418515120_p 4795x(5)=1.179639316828915_p 4796w(5)=5.674030495444929e-1_p 4797x(6)=3.928678562032070_p 4798w(6)=6.037990691082561e-2_p 4799x(7)=7.474894063244347_p 4800w(7)=2.250027928352959e-3_p 4801x(8)=11.86912777938381_p 4802w(8)=3.359587324055458e-5_p 4803x(9)=16.79313512291206_p 4804w(9)=2.346567880145720e-7_p 4805else if(N==10)then 4806x(1)=-5.789903143239234_p 4807w(1)=5.344970752410049e-1_p 4808x(2)=-4.919863042459562_p 4809w(2)=1.178223681000276_p 4810x(3)=-3.466695502037324_p 4811w(3)=1.634921331688162_p 4812x(4)=-1.629021562841391_p 4813w(4)=1.628339631567035_p 4814x(5)=3.934340010118487e-1_p 4815w(5)=8.556280580352278e-1_p 4816x(6)=2.735590787602924_p 4817w(6)=1.593231049821886e-1_p 4818x(7)=5.675332472626240_p 4819w(7)=1.116653941001555e-2_p 4820x(8)=9.263692048999427_p 4821w(8)=3.697121754576525e-4_p 4822x(9)=13.41453863196509_p 4823w(9)=6.460241068988593e-6_p 4824x(10)=17.50277484509781_p 4825w(10)=8.519449758379952e-8_p 4826else if(N==11)then 4827x(1)=-5.818483374581922_p 4828w(1)=4.622685998748849e-1_p 4829x(2)=-5.062881215224687_p 4830w(2)=1.028847016933529_p 4831x(3)=-3.783803915954305_p 4832w(3)=1.465494945212891_p 4833x(4)=-2.125152477605789_p 4834w(4)=1.593990750617979_p 4835x(5)=-2.678869710935897e-1_p 4836w(5)=1.091883299713161_p 4837x(6)=1.793028743868564_p 4838w(6)=3.204611453143544e-1_p 4839x(7)=4.292460866179728_p 4840w(7)=3.728016276839753e-2_p 4841x(8)=7.318059461216369_p 4842w(8)=2.174152260970576e-3_p 4843x(9)=10.82241117626349_p 4844w(9)=7.386655391203403e-5_p 4845x(10)=14.61205514434186_p 4846w(10)=1.699255947003210e-6_p 4847x(11)=17.9367929652142_p 4848w(11)=4.102890766764305e-8_p 4849else if(N==12)then 4850x(1)=-5.841627529993099_p 4851w(1)=4.036528200041657e-1_p 4852x(2)=-5.179724114808518_p 4853w(2)=9.049836823857722e-1_p 4854x(3)=-4.047822378975724_p 4855w(3)=1.313280670859575_p 4856x(4)=-2.551564601303085_p 4857w(4)=1.512049523002979_p 4858x(5)=-8.393996443590024e-1_p 4859w(5)=1.241675597578954_p 4860x(6)=1.022273456647235_p 4861w(6)=5.238338451887430e-1_p 4862x(7)=3.192791851297660_p 4863w(7)=9.396452853120935e-2_p 4864x(8)=5.796378741460787_p 4865w(8)=8.539876163714735e-3_p 4866x(9)=8.811594719683058_p 4867w(9)=4.762788091030924e-4_p 4868x(10)=12.14245206648028_p 4869w(10)=1.824876374456255e-5_p 4870x(11)=15.52068261088118_p 4871w(11)=5.846067227519963e-7_p 4872x(12)=18.21304652124035_p 4873w(12)=2.364024964074588e-8_p 4874else if(N==13)then 4875x(1)=-5.860624675828957_p 4876w(1)=3.554598923176483e-1_p 4877x(2)=-5.276285389892848_p 4878w(2)=8.014816181944491e-1_p 4879x(3)=-4.269145912600046_p 4880w(3)=1.179146558868311_p 4881x(4)=-2.918064231207875_p 4882w(4)=1.410244891791820_p 4883x(5)=-1.339903314868041_p 4884w(5)=1.307862573513040_p 4885x(6)=3.718535999082904e-1_p 4886w(6)=7.299808990818255e-1_p 4887x(7)=2.295791497266376_p 4888w(7)=1.908598318082540e-1_p 4889x(8)=4.569612875396965_p 4890w(8)=2.523324789499089e-2_p 4891x(9)=7.203525690430167_p 4892w(9)=2.079637109964144e-3_p 4893x(10)=10.13663312069557_p 4894w(10)=1.207303200777284e-4_p 4895x(11)=13.23840926489344_p 4896w(11)=5.534001294526218e-6_p 4897x(12)=16.20555714456139_p 4898w(12)=2.493219019358922e-7_p 4899x(13)=18.39682302541998_p 4900w(13)=1.531135601150420e-8_p 4901else if(N==14)then 4902x(1)=-5.876405936824804_p 4903w(1)=3.153725943371455e-1_p 4904x(2)=-5.356929884471460_p 4905w(2)=7.143054319886076e-1_p 4906x(3)=-4.456028026026752_p 4907w(3)=1.061890865861299_p 4908x(4)=-3.233575681116506_p 4909w(4)=1.303983489550837_p 4910x(5)=-1.780382827194481_p 4911w(5)=1.311768673121386_p 4912x(6)=-1.913296148474389e-1_p 4913w(6)=9.017866954115110e-1_p 4914x(7)=1.547563561815260_p 4915w(7)=3.258021553650097e-1_p 4916x(8)=3.559028354865811_p 4917w(8)=6.011305397515774e-2_p 4918x(9)=5.886182343453058_p 4919w(9)=6.856050981069004e-3_p 4920x(10)=8.490082494053352_p 4921w(10)=5.588450815065875e-4_p 4922x(11)=11.29154852188125_p 4923w(11)=3.566984929624171e-5_p 4924x(12)=14.13741219811845_p 4925w(12)=2.017780866525996e-6_p 4926x(13)=16.72362704344167_p 4927w(13)=1.254937785366722e-7_p 4928x(14)=18.52417377762012_p 4929w(14)=1.073746295565766e-8_p 4930else if(N==15)then 4931x(1)=-5.889656242788747_p 4932w(1)=2.816789060375220e-1_p 4933x(2)=-5.424929918423097_p 4934w(2)=6.403093908158907e-1_p 4935x(3)=-4.614972323469696_p 4936w(3)=9.596274061960556e-1_p 4937x(4)=-3.505985339187174_p 4938w(4)=1.201000941417588_p 4939x(5)=-2.168603365721524_p 4940w(5)=1.276461660399679_p 4941x(6)=-6.876743193940505e-1_p 4942w(6)=1.020029375992743_p 4943x(7)=9.098893074364005e-1_p 4944w(7)=4.824142852383437e-1_p 4945x(8)=2.712279482237709_p 4946w(8)=1.205270763605685e-1_p 4947x(9)=4.787112398078139_p 4948w(9)=1.826638181883136e-2_p 4949x(10)=7.116972137874114_p 4950w(10)=1.978825045344288e-3_p 4951x(11)=9.646997711605273_p 4952w(11)=1.682675508988898e-4_p 4953x(12)=12.28589849100657_p 4954w(12)=1.222116583672318e-5_p 4955x(13)=14.87073210840063_p 4956w(13)=8.618818913976389e-7_p 4957x(14)=17.11932065504524_p 4958w(14)=7.164735936243393e-8_p 4959x(15)=18.615615612344_p 4960w(15)=7.966381178990096e-9_p 4961else if(N==16)then 4962x(1)=-5.900888032923120_p 4963w(1)=2.530935242205236e-1_p 4964x(2)=-5.482770196790665_p 4965w(2)=5.770359253646958e-1_p 4966x(3)=-4.751102441707841_p 4967w(3)=8.703770331534145e-1_p 4968x(4)=-3.742068563745350_p 4969w(4)=1.104780618187038_p 4970x(5)=-2.511024685152224_p 4971w(5)=1.219635669112762_p 4972x(6)=-1.129555655848365_p 4973w(6)=1.084187061458810_p 4974x(7)=3.554514108824830e-1_p 4975w(7)=6.366050645704719e-1_p 4976x(8)=1.992055101312700_p 4977w(8)=2.092778998817749e-1_p 4978x(9)=3.856992857032548_p 4979w(9)=4.110358087974415e-2_p 4980x(10)=5.955652983488751_p 4981w(10)=5.696788284343783e-3_p 4982x(11)=8.248899304246372_p 4983w(11)=6.202891347143340e-4_p 4984x(12)=10.67497023097634_p 4985w(12)=5.695593779941180e-5_p 4986x(13)=13.1353625480694_p 4987w(13)=4.798006488995645e-6_p 4988x(14)=15.46849224302809_p 4989w(14)=4.201666357520250e-7_p 4990x(15)=17.4254011480745_p 4991w(15)=4.501490424707942e-8_p 4992x(16)=18.6832964926882_p 4993w(16)=6.160811347734512e-9_p 4994else if(N==17)then 4995x(1)=-5.910490660800765_p 4996w(1)=2.286371594701963e-1_p 4997x(2)=-5.532360899539499_p 4998w(2)=5.225546810183486e-1_p 4999x(3)=-4.868469291510785_p 5000w(3)=7.923029251428954e-1_p 5001x(4)=-3.947537998877748_p 5002w(4)=1.016579525826030_p 5003x(5)=-2.813394497143908_p 5004w(5)=1.152877362166919_p 5005x(6)=-1.524888748599076_p 5006w(6)=1.104487426092230_p 5007x(7)=-1.347389685220644e-1_p 5008w(7)=7.670874616885788e-1_p 5009x(8)=1.370422875785074_p 5010w(8)=3.214786558132074e-1_p 5011x(9)=3.060532514980124_p 5012w(9)=8.044655096957921e-2_p 5013x(10)=4.961847556517689_p 5014w(10)=1.390785291168567e-2_p 5015x(11)=7.049375562094340_p 5016w(11)=1.879050395491312e-3_p 5017x(12)=9.277650833348996_p 5018w(12)=2.130467852030545e-4_p 5019x(13)=11.58077972812984_p 5020w(13)=2.159136859480351e-5_p 5021x(14)=13.85804399546114_p 5022w(14)=2.126202532427366e-6_p 5023x(15)=15.95710205567582_p 5024w(15)=2.283332247407195e-7_p 5025x(16)=17.66544414603801_p 5026w(16)=3.043292497937974e-8_p 5027x(17)=18.73470173131158_p 5028w(17)=4.917291816633398e-9_p 5029else 5030call GD(-6) 5031end if 5032end subroutine GF_m6 5033 5034! [-5kT;19kT] 5035subroutine GF_m5(N,x,w) 5036integer,intent(in)::N 5037real(p),intent(out)::x(N),w(N) 5038if(N==2)then 5039x(1)=-3.535013710067906_p 5040w(1)=3.320509345666956_p 5041x(2)=4.997471508226763e-1_p 5042w(2)=1.686205997219365_p 5043else if(N==3)then 5044x(1)=-4.074485535570214_p 5045w(1)=2.223408350782166_p 5046x(2)=-1.037864373828903_p 5047w(2)=2.518908919645788_p 5048x(3)=2.943143903365203_p 5049w(3)=2.643980724583680e-1_p 5050else if(N==4)then 5051x(1)=-4.342143894091221_p 5052w(1)=1.616607053331562_p 5053x(2)=-1.966824485108366_p 5054w(2)=2.512262358263874_p 5055x(3)=1.107029762391564_p 5056w(3)=8.576842053455697e-1_p 5057x(4)=5.746938766584876_p 5058w(4)=2.016172594531614e-2_p 5059else if(N==5)then 5060x(1)=-4.497787102221528_p 5061w(1)=1.248243005604788_p 5062x(2)=-2.587260002777178_p 5063w(2)=2.244290262550138_p 5064x(3)=3.985162246224810e-2_p 5065w(3)=1.376255892161492_p 5066x(4)=3.369661339956464_p 5067w(4)=1.368328160817409e-1_p 5068x(5)=8.778413208134385_p 5069w(5)=1.093366488162545e-3_p 5070else if(N==6)then 5071x(1)=-4.599637713494748_p 5072w(1)=1.001755908931178_p 5073x(2)=-3.028285781229288_p 5074w(2)=1.948102507643751_p 5075x(3)=-7.325246000183816e-1_p 5076w(3)=1.664759772506125_p 5077x(4)=1.984736775087057_p 5078w(4)=3.784493535299739e-1_p 5079x(5)=5.844482911191600_p 5080w(5)=1.358908246354073e-2_p 5081x(6)=11.75011372642146_p 5082w(6)=5.871781175363659e-5_p 5083else if(N==7)then 5084x(1)=-4.672447349151522_p 5085w(1)=8.231491303141893e-1_p 5086x(2)=-3.360446118832864_p 5087w(2)=1.678972651004068_p 5088x(3)=-1.349503576191912_p 5089w(3)=1.750628516657972_p 5090x(4)=1.005609707436903_p 5091w(4)=6.907531609747303e-1_p 5092x(5)=4.039416148040086_p 5093w(5)=6.195833477927844e-2_p 5094x(6)=8.294311759859063_p 5095w(6)=1.248966137829761e-3_p 5096x(7)=14.2328065128482_p 5097w(7)=4.583018253622652e-6_p 5098else if(N==8)then 5099x(1)=-4.727198944736958_p 5100w(1)=6.876305687587599e-1_p 5101x(2)=-3.619067406251193_p 5102w(2)=1.447199172620313_p 5103x(3)=-1.858948372106835_p 5104w(3)=1.706161083232044_p 5105x(4)=2.400139160996307e-1_p 5106w(4)=9.849827554781699e-1_p 5107x(5)=2.756749140525862_p 5108w(5)=1.720551146344426e-1_p 5109x(6)=6.106262293703942_p 5110w(6)=8.548872812610495e-3_p 5111x(7)=10.49635033855249_p 5112w(7)=1.371067181340835e-4_p 5113x(8)=15.95347799714441_p 5114w(8)=6.686318472817847e-7_p 5115else if(N==9)then 5116x(1)=-4.769457630377294_p 5117w(1)=5.823797438819270e-1_p 5118x(2)=-3.823544662523557_p 5119w(2)=1.252458442980293_p 5120x(3)=-2.281373574068549_p 5121w(3)=1.596043045833947_p 5122x(4)=-3.906079048115866e-1_p 5123w(4)=1.194707061479943_p 5124x(5)=1.784015574750903_p 5125w(5)=3.468322815188315e-1_p 5126x(6)=4.538213442338114_p 5127w(6)=3.302744750764396e-2_p 5128x(7)=8.049124307788091_p 5129w(7)=1.246823161319782e-3_p 5130x(8)=12.33834815725079_p 5131w(8)=2.032250826641400e-5_p 5132x(9)=17.01174655803441_p 5133w(9)=1.740141495372697e-7_p 5134else if(N==10)then 5135x(1)=-4.802690466357092_p 5136w(1)=4.992361660362099e-1_p 5137x(2)=-3.987141016184002_p 5138w(2)=1.090379159562971_p 5139x(3)=-2.631756462083034_p 5140w(3)=1.462182655669406_p 5141x(4)=-9.236965192033245e-1_p 5142w(4)=1.302836010525973_p 5143x(5)=1.011756647039675_p 5144w(5)=5.568947725986368e-1_p 5145x(6)=3.347611868988160_p 5146w(6)=8.886344064752365e-2_p 5147x(7)=6.267504651692231_p 5148w(7)=6.105365438079352e-3_p 5149x(8)=9.787622070150524_p 5150w(8)=2.135038236345369e-4_p 5151x(9)=13.80062665330011_p 5152w(9)=4.200676050581426e-6_p 5153x(10)=17.64400660680757_p 5154w(10)=6.790783714734209e-8_p 5155else if(N==11)then 5156x(1)=-4.829262926760963_p 5157w(1)=4.325337067379106e-1_p 5158x(2)=-4.119616175605894_p 5159w(2)=9.555354888967855e-1_p 5160x(3)=-2.923223536945013_p 5161w(3)=1.326615379333865_p 5162x(4)=-1.379559115207528_p 5163w(4)=1.327575977408194_p 5164x(5)=3.749878685236484e-1_p 5165w(5)=7.578968611925093e-1_p 5166x(6)=2.408989033522300_p 5167w(6)=1.850087051473946e-1_p 5168x(7)=4.897389491750299_p 5169w(7)=2.028368390631630e-2_p 5170x(8)=7.875563905036502_p 5171w(8)=1.219426926747720e-3_p 5172x(9)=11.28739763169521_p 5173w(9)=4.489642061817612e-5_p 5174x(10)=14.92191448034436_p 5175w(10)=1.182630334685213e-6_p 5176x(11)=18.0312143485351_p 5177w(11)=3.428564507902914e-8_p 5178else if(N==12)then 5179x(1)=-4.850829025929079_p 5180w(1)=3.782606969833408e-1_p 5181x(2)=-4.228162609997064_p 5182w(2)=8.428930022980703e-1_p 5183x(3)=-3.166914652020067_p 5184w(3)=1.199272189754792_p 5185x(4)=-1.771228216625672_p 5186w(4)=1.297442578972992_p 5187x(5)=-1.654139801314502e-1_p 5188w(5)=9.151850835620051e-1_p 5189x(6)=1.646548588726354_p 5190w(6)=3.172465113401208e-1_p 5191x(7)=3.806883253200479_p 5192w(7)=5.142864571776438e-2_p 5193x(8)=6.377558244331981_p 5194w(8)=4.697094148294386e-3_p 5195x(9)=9.324754216708376_p 5196w(9)=2.773819408842915e-4_p 5197x(10)=12.54689909520951_p 5198w(10)=1.170651074477009e-5_p 5199x(11)=15.76677518005203_p 5200w(11)=4.312773123518941e-7_p 5201x(12)=18.27888456178862_p 5202w(12)=2.038000128452233e-8_p 5203else if(N==13)then 5204x(1)=-4.868565384096522_p 5205w(1)=3.335374659877962e-1_p 5206x(2)=-4.318090920113801_p 5207w(2)=7.482288382635726e-1_p 5208x(3)=-3.371933901263761_p 5209w(3)=1.083808645324114_p 5210x(4)=-2.108601410449328_p 5211w(4)=1.236737564354571_p 5212x(5)=-6.327870947125761e-1_p 5213w(5)=1.015246010816811_p 5214x(6)=1.010693195902555_p 5215w(6)=4.677252952549550e-1_p 5216x(7)=2.917275376038801_p 5217w(7)=1.064568179260137e-1_p 5218x(8)=5.168329419382403_p 5219w(8)=1.372218023443848e-2_p 5220x(9)=7.750500570964146_p 5221w(9)=1.175174654990468e-3_p 5222x(10)=10.6012151635486_p 5223w(10)=7.340445980538488e-5_p 5224x(11)=13.58562750425903_p 5225w(11)=3.739282454982788e-6_p 5226x(12)=16.40108976297867_p 5227w(12)=1.928441540805378e-7_p 5228x(13)=18.4445938633664_p 5229w(13)=1.348264482996437e-8_p 5230else if(N==14)then 5231x(1)=-4.883324555601901_p 5232w(1)=2.962632692690809e-1_p 5233x(2)=-4.393356176895147_p 5234w(2)=6.681352548056468e-1_p 5235x(3)=-3.545576744407934_p 5236w(3)=9.808941903866794e-1_p 5237x(4)=-2.399921017154161_p 5238w(4)=1.161922969743764_p 5239x(5)=-1.041405802238132_p 5240w(5)=1.062149437994133_p 5241x(6)=4.680695179707231e-1_p 5242w(6)=6.128949272711622e-1_p 5243x(7)=2.176912271315535_p 5244w(7)=1.877007564512657e-1_p 5245x(8)=4.170990728435332_p 5246w(8)=3.261300797817710e-2_p 5247x(9)=6.458610563336301_p 5248w(9)=3.790437690044298e-3_p 5249x(10)=8.997336559094450_p 5250w(10)=3.268823011651332e-4_p 5251x(11)=11.70719376444377_p 5252w(11)=2.266937566928040e-5_p 5253x(12)=14.43343989023763_p 5254w(12)=1.429253051196356e-6_p 5255x(13)=16.88011082894653_p 5256w(13)=1.007688036032720e-7_p 5257x(14)=18.56005797258667_p 5258w(14)=9.597678139915902e-9_p 5259else if(N==15)then 5260x(1)=-4.895735497542844_p 5261w(1)=2.648801803998818e-1_p 5262x(2)=-4.456937724901993_p 5263w(2)=5.999013006579854e-1_p 5264x(3)=-3.693642739201716_p 5265w(3)=8.898852606035191e-1_p 5266x(4)=-2.652227769869735_p 5267w(4)=1.082863974681336_p 5268x(5)=-1.400731546850680_p 5269w(5)=1.068251823724661_p 5270x(6)=-3.646168652593513e-3_p 5271w(6)=7.334657617377365e-1_p 5272x(7)=1.549651268954364_p 5273w(7)=2.903581398305781e-1_p 5274x(8)=3.334653866935879_p 5275w(8)=6.592350662013881e-2_p 5276x(9)=5.379331079059586_p 5277w(9)=9.950447607017356e-3_p 5278x(10)=7.656646348268031_p 5279w(10)=1.123941555213843e-3_p 5280x(11)=10.11240280201578_p 5281w(11)=1.021955872775539e-4_p 5282x(12)=12.65484016331982_p 5283w(12)=8.107216459179760e-6_p 5284x(13)=15.12259142849633_p 5285w(13)=6.362209081215162e-7_p 5286x(14)=17.24590418874516_p 5287w(14)=5.924445488740410e-8_p 5288x(15)=18.64337485322355_p 5289w(15)=7.199154527850384e-9_p 5290else if(N==16)then 5291x(1)=-4.906270005905852_p 5292w(1)=2.382147213483028e-1_p 5293x(2)=-4.511107046798011_p 5294w(2)=5.413778105745739e-1_p 5295x(3)=-3.820735833060559_p 5296w(3)=8.096374024134244e-1_p 5297x(4)=-2.871520978678862_p 5298w(4)=1.005001249968431_p 5299x(5)=-1.717758820709417_p 5300w(5)=1.046855019441407_p 5301x(6)=-4.192550683201346e-1_p 5302w(6)=8.198070523357323e-1_p 5303x(7)=1.009335377172027_p 5304w(7)=4.032817725654073e-1_p 5305x(8)=2.623552655504032_p 5306w(8)=1.167484982351336e-1_p 5307x(9)=4.464839477071508_p 5308w(9)=2.222498016784045e-2_p 5309x(10)=6.520958005001134_p 5310w(10)=3.163533736220208e-3_p 5311x(11)=8.752592223468632_p 5312w(11)=3.636896245755554e-4_p 5313x(12)=11.09872309578162_p 5314w(12)=3.593506602764954e-5_p 5315x(13)=13.46135214401268_p 5316w(13)=3.312405905074670e-6_p 5317x(14)=15.68307647185648_p 5318w(14)=3.213001511968733e-7_p 5319x(15)=17.52904617272478_p 5320w(15)=3.808952030585186e-8_p 5321x(16)=18.70530899899564_p 5322w(16)=5.613669414896945e-9_p 5323else if(N==17)then 5324x(1)=-4.915287394516603_p 5325w(1)=2.153702168866828e-1_p 5326x(2)=-4.557616499483752_p 5327w(2)=4.908579377026476e-1_p 5328x(3)=-3.930519470951827_p 5329w(3)=7.388857098996818e-1_p 5330x(4)=-3.062868894681760_p 5331w(4)=9.310958982804026e-1_p 5332x(5)=-1.998140516132438_p 5333w(5)=1.008808069471955_p 5334x(6)=-7.886782712350473e-1_p 5335w(6)=8.714724450319958e-1_p 5336x(7)=5.369074091895981e-1_p 5337w(7)=5.128671864618517e-1_p 5338x(8)=2.011348310362332_p 5339w(8)=1.850057590532529e-1_p 5340x(9)=3.680957152946857_p 5341w(9)=4.353957067474779e-2_p 5342x(10)=5.547856941221383_p 5343w(10)=7.596259939555657e-3_p 5344x(11)=7.583687706228812_p 5345w(11)=1.071236560679984e-3_p 5346x(12)=9.744330046894481_p 5347w(12)=1.291849818550562e-4_p 5348x(13)=11.96461537616574_p 5349w(13)=1.413545572005082e-5_p 5350x(14)=14.14552467885057_p 5351w(14)=1.521864418774647e-6_p 5352x(15)=16.14061100855408_p 5353w(15)=1.798875748159534e-7_p 5354x(16)=17.75135636337314_p 5355w(16)=2.622391801700604e-8_p 5356x(17)=18.75252646804356_p 5357w(17)=4.509381762501909e-9_p 5358else 5359call GD(-5) 5360end if 5361end subroutine GF_m5 5362 5363! [-4kT;19kT] 5364subroutine GF_m4(N,x,w) 5365integer,intent(in)::N 5366real(p),intent(out)::x(N),w(N) 5367if(N==2)then 5368x(1)=-2.719497422133438_p 5369w(1)=2.798300083794759_p 5370x(2)=9.542745521848743e-1_p 5371w(2)=1.219849838520255_p 5372else if(N==3)then 5373x(1)=-3.173025226223157_p 5374w(1)=1.934905081456161_p 5375x(2)=-4.481012213443291e-1_p 5376w(2)=1.923966881618095_p 5377x(3)=3.489097550515006_p 5378w(3)=1.592779592407574e-1_p 5379else if(N==4)then 5380x(1)=-3.403449085183262_p 5381w(1)=1.434586233717932_p 5382x(2)=-1.259629863777440_p 5383w(2)=2.024442185794294_p 5384x(3)=1.673442584029819_p 5385w(3)=5.482685357325136e-1_p 5386x(4)=6.375668331594738_p 5387w(4)=1.085296707027315e-2_p 5388else if(N==5)then 5389x(1)=-3.540022254639207_p 5390w(1)=1.121787269600206_p 5391x(2)=-1.800677766390585_p 5392w(2)=1.882065068161143_p 5393x(3)=6.485480320987750e-1_p 5394w(3)=9.387071144097791e-1_p 5395x(4)=4.000231125178944_p 5396w(4)=7.502600528177653e-2_p 5397x(5)=9.439743213452948_p 5398w(5)=5.644648621089533e-4_p 5399else if(N==6)then 5400x(1)=-3.630978720630763_p 5401w(1)=9.075373939075222e-1_p 5402x(2)=-2.190483593370523_p 5403w(2)=1.678175344277080_p 5404x(3)=-7.236652875324406e-2_p 5405w(3)=1.208387589124855_p 5406x(4)=2.611122464415415_p 5407w(4)=2.169509237800401e-1_p 5408x(5)=6.500449699737863_p 5409w(5)=7.067446738714324e-3_p 5410x(6)=12.36595084647918_p 5411w(6)=3.122448680182754e-5_p 5412else if(N==7)then 5413x(1)=-3.696858925090337_p 5414w(1)=7.496629639726771e-1_p 5415x(2)=-2.488083836325471_p 5416w(2)=1.472819620327304_p 5417x(3)=-6.380847128407561e-1_p 5418w(3)=1.342241760735563_p 5419x(4)=1.635604785741156_p 5420w(4)=4.199956471647264e-1_p 5421x(5)=4.687194663437591_p 5422w(5)=3.276652046859549e-2_p 5423x(6)=8.919051576190032_p 5424w(6)=6.606961967307297e-4_p 5425x(7)=14.71157573940991_p 5426w(7)=2.713449417006830e-6_p 5427else if(N==8)then 5428x(1)=-3.746750777802971_p 5429w(1)=6.287229863218606e-1_p 5430x(2)=-2.721776666520241_p 5431w(2)=1.285887576812309_p 5432x(3)=-1.100930585535282_p 5433w(3)=1.367530418180766_p 5434x(4)=8.878673808537011e-1_p 5435w(4)=6.380429630155376e-1_p 5436x(5)=3.400189639341448_p 5437w(5)=9.338533107744540e-2_p 5438x(6)=6.738017320571838_p 5439w(6)=4.503496926852792e-3_p 5440x(7)=11.05164868002237_p 5441w(7)=7.669929266221275e-5_p 5442x(8)=16.27504944988159_p 5443w(8)=4.506875794955665e-7_p 5444else if(N==9)then 5445x(1)=-3.785425459374617_p 5446w(1)=5.342173940786198e-1_p 5447x(2)=-2.907618070404329_p 5448w(2)=1.123420019243857_p 5449x(3)=-1.483791891943735_p 5450w(3)=1.323552173305075_p 5451x(4)=2.863888658531037e-1_p 5452w(4)=8.233567280042360e-1_p 5453x(5)=2.428677408755394_p 5454w(5)=1.955295448087133e-1_p 5455x(6)=5.177280935038270_p 5456w(6)=1.738371485876061e-2_p 5457x(7)=8.638170606124401_p 5458w(7)=6.779770555151146e-4_p 5459x(8)=12.8068045586475_p 5460w(8)=1.224096517916815e-5_p 5461x(9)=17.21659768266917_p 5462w(9)=1.299950573206235e-7_p 5463else if(N==10)then 5464x(1)=-3.815947776268507_p 5465w(1)=4.591968527630462e-1_p 5466x(2)=-3.057019900294554_p 5467w(2)=9.850810630963180e-1_p 5468x(3)=-1.801903265575337_p 5469w(3)=1.243739879854278_p 5470x(4)=-2.123706562281809e-1_p 5471w(4)=9.499682338726272e-1_p 5472x(5)=1.664633004116862_p 5473w(5)=3.296589806277851e-1_p 5474x(6)=3.992993929811295_p 5475w(6)=4.712227281104654e-2_p 5476x(7)=6.879148269852400_p 5477w(7)=3.257933823803510e-3_p 5478x(8)=10.3187726193549_p 5479w(8)=1.219188368467189e-4_p 5480x(9)=14.18140462140732_p 5481w(9)=2.732267876679603e-6_p 5482x(10)=17.77623284700442_p 5483w(10)=5.436138517788747e-8_p 5484else if(N==11)then 5485x(1)=-3.840429072985841_p 5486w(1)=3.987620857297788e-1_p 5487x(2)=-3.178501506159381_p 5488w(2)=8.680930345693241e-1_p 5489x(3)=-2.067432575090371_p 5490w(3)=1.149934651939540_p 5491x(4)=-6.337772322575693e-1_p 5492w(4)=1.015791347565416_p 5493x(5)=1.043529543854241_p 5494w(5)=4.741819719479829e-1_p 5495x(6)=3.060297741796428_p 5496w(6)=9.998523848301455e-2_p 5497x(7)=5.525737849151263_p 5498w(7)=1.070050648741497e-2_p 5499x(8)=8.445157317958589_p 5500w(8)=6.731042480194445e-4_p 5501x(9)=11.75424914598793_p 5502w(9)=2.712775994490707e-5_p 5503x(10)=15.22492323424049_p 5504w(10)=8.248794463405550e-7_p 5505x(11)=18.1199732005965_p 5506w(11)=2.870513144596378e-8_p 5507else if(N==12)then 5508x(1)=-3.860352251538501_p 5509w(1)=3.494156303941396e-1_p 5510x(2)=-3.278392650813294_p 5511w(2)=7.691707286191953e-1_p 5512x(3)=-2.290285297091828_p 5513w(3)=1.054383717438075_p 5514x(4)=-9.937595260309781e-1_p 5515w(4)=1.032455962663835_p 5516x(5)=5.248631973694092e-1_p 5517w(5)=6.061003291635770e-1_p 5518x(6)=2.305117369166012_p 5519w(6)=1.768839214657221e-1_p 5520x(7)=4.447971557950772_p 5521w(7)=2.704045932086140e-2_p 5522x(8)=6.974534363273494_p 5523w(8)=2.531460605035700e-3_p 5524x(9)=9.844584726288987_p 5525w(9)=1.598849568613342e-4_p 5526x(10)=12.94984288482784_p 5527w(10)=7.491166483656566e-6_p 5528x(11)=16.00620176991436_p 5529w(11)=3.189456313337628e-7_p 5530x(12)=18.34111039454793_p 5531w(12)=1.757559590002441e-8_p 5532else if(N==13)then 5533x(1)=-3.876776592969654_p 5534w(1)=3.086294403215917e-1_p 5535x(2)=-3.361401244164462_p 5536w(2)=6.852569874682807e-1_p 5537x(3)=-2.478458331197766_p 5538w(3)=9.632162985988514e-1_p 5539x(4)=-1.303338749328310_p 5540w(4)=1.015145451904082_p 5541x(5)=8.276034404428091e-2_p 5542w(5)=7.097440216557164e-1_p 5543x(6)=1.679524758685914_p 5544w(6)=2.718573364455306e-1_p 5545x(7)=3.568524264330980_p 5546w(7)=5.632443473431220e-2_p 5547x(8)=5.786134967407598_p 5548w(8)=7.274042734325334e-3_p 5549x(9)=8.307715101908835_p 5550w(9)=6.548754514198500e-4_p 5551x(10)=11.0686013738732_p 5552w(10)=4.434636451406699e-5_p 5553x(11)=13.92953525246097_p 5554w(11)=2.525313808285546e-6_p 5555x(12)=16.59084595597582_p 5556w(12)=1.494573729258568e-7_p 5557x(13)=18.4899864304378_p 5558w(13)=1.186520771452042e-8_p 5559else if(N==14)then 5560x(1)=-3.890472694248349_p 5561w(1)=2.745479710637468e-1_p 5562x(2)=-3.431056675645948_p 5563w(2)=6.137345754513408e-1_p 5564x(3)=-2.638360105847027_p 5565w(3)=8.790920788784402e-1_p 5566x(4)=-1.570848917061918_p 5567w(4)=9.770776715276673e-1_p 5568x(5)=-2.996066535912940e-1_p 5569w(5)=7.793929711581188e-1_p 5570x(6)=1.150941913368462_p 5571w(6)=3.739145603154276e-1_p 5572x(7)=2.837176132948466_p 5573w(7)=1.010017746120800e-1_p 5574x(8)=4.805137552715017_p 5575w(8)=1.712426108208359e-2_p 5576x(9)=7.044255178855862_p 5577w(9)=2.059224566296161e-3_p 5578x(10)=9.510743786754336_p 5579w(10)=1.893771207147361e-4_p 5580x(11)=12.12303368887668_p 5581w(11)=1.435413656803755e-5_p 5582x(12)=14.7254177903554_p 5583w(12)=1.012812971588507e-6_p 5584x(13)=17.03184874350187_p 5585w(13)=8.102089011503175e-8_p 5586x(14)=18.59432100620341_p 5587w(14)=8.568667531064737e-9_p 5588else if(N==15)then 5589x(1)=-3.902011116688596_p 5590w(1)=2.457878310096920e-1_p 5591x(2)=-3.490032897628125_p 5592w(2)=5.524400359262779e-1_p 5593x(3)=-2.775107953930021_p 5594w(3)=8.028323991239618e-1_p 5595x(4)=-1.802959817669696_p 5596w(4)=9.278915565571180e-1_p 5597x(5)=-6.335740553570237e-1_p 5598w(5)=8.170648161509517e-1_p 5599x(6)=6.967126419342281e-1_p 5600w(6)=4.709927251102508e-1_p 5601x(7)=2.219225570619749_p 5602w(7)=1.605858291873972e-1_p 5603x(8)=3.981948469008852_p 5604w(8)=3.455263963629722e-2_p 5605x(9)=5.987495229230531_p 5606w(9)=5.304052645174425e-3_p 5607x(10)=8.205223454685353_p 5608w(10)=6.304776208785055e-4_p 5609x(11)=10.58098782608903_p 5610w(11)=6.166618304476305e-5_p 5611x(12)=13.0223434712037_p 5612w(12)=5.367661968211562e-6_p 5613x(13)=15.37030324586081_p 5614w(13)=4.699866110346386e-7_p 5615x(14)=17.36867734658804_p 5616w(14)=4.901971450381449e-8_p 5617x(15)=18.6699921344628_p 5618w(15)=6.495675248099261e-9_p 5619else if(N==16)then 5620x(1)=-3.911821243140819_p 5621w(1)=2.213022297103346e-1_p 5622x(2)=-3.540378636561230_p 5623w(2)=4.996115578497094e-1_p 5624x(3)=-2.892787723543804_p 5625w(3)=7.343402021354999e-1_p 5626x(4)=-2.005157584821823_p 5627w(4)=8.739422566814342e-1_p 5628x(5)=-9.272016591054845e-1_p 5629w(5)=8.287459196220446e-1_p 5630x(6)=3.009366235864392e-1_p 5631w(6)=5.536294646514187e-1_p 5632x(7)=1.689670402682957_p 5633w(7)=2.313076802891904e-1_p 5634x(8)=3.281898122176996_p 5635w(8)=6.161080464815442e-2_p 5636x(9)=5.091251317184523_p 5637w(9)=1.169338079389447e-2_p 5638x(10)=7.097588005586049_p 5639w(10)=1.729946377787556e-3_p 5640x(11)=9.261980581733479_p 5641w(11)=2.113362794570603e-4_p 5642x(12)=11.52355446662127_p 5643w(12)=2.257534962225492e-5_p 5644x(13)=13.78498146203249_p 5645w(13)=2.284723423017822e-6_p 5646x(14)=15.89375233434397_p 5647w(14)=2.458655696063531e-7_p 5648x(15)=17.62965402007361_p 5649w(15)=3.223152379473223e-8_p 5650x(16)=18.72649303596971_p 5651w(16)=5.105949440427539e-9_p 5652else if(N==17)then 5653x(1)=-3.920231034291494_p 5654w(1)=2.002881116570451e-1_p 5655x(2)=-3.583681142641814_p 5656w(2)=4.538219286554884e-1_p 5657x(3)=-2.994669483327727_p 5658w(3)=6.730962459636094e-1_p 5659x(4)=-2.182002666514155_p 5660w(4)=8.191427494470589e-1_p 5661x(5)=-1.186575827987506_p 5662w(5)=8.213503163028283e-1_p 5663x(6)=-4.763956623323833e-2_p 5664w(6)=6.167252365571945e-1_p 5665x(7)=1.230052265817330_p 5666w(7)=3.070061706719772e-1_p 5667x(8)=2.679709306695690_p 5668w(8)=9.920307551795937e-2_p 5669x(9)=4.322404505684147_p 5670w(9)=2.275236230922605e-2_p 5671x(10)=6.147463561606662_p 5672w(10)=4.071569528603270e-3_p 5673x(11)=8.125886912982988_p 5674w(11)=6.038388620369965e-4_p 5675x(12)=10.21432438220873_p 5676w(12)=7.783084698958360e-5_p 5677x(13)=12.34810377899276_p 5678w(13)=9.228564429640042e-6_p 5679x(14)=14.43020826757737_p 5680w(14)=1.088928255376833e-6_p 5681x(15)=16.32059703849765_p 5682w(15)=1.417871066293936e-7_p 5683x(16)=17.83484493593178_p 5684w(16)=2.258792804842687e-8_p 5685x(17)=18.7697343647944_p 5686w(17)=4.127276507328867e-9_p 5687else 5688call GD(-4) 5689end if 5690end subroutine GF_m4 5691 5692! [-3kT;19kT] 5693subroutine GF_m3(N,x,w) 5694integer,intent(in)::N 5695real(p),intent(out)::x(N),w(N) 5696if(N==2)then 5697x(1)=-1.899027119095821_p 5698w(1)=2.236587173155091_p 5699x(2)=1.474545099693169_p 5700w(2)=8.120001728158548e-1_p 5701else if(N==3)then 5702x(1)=-2.271716832478135_p 5703w(1)=1.607635719936348_p 5704x(2)=1.762273729477246e-1_p 5705w(2)=1.352307472118145_p 5706x(3)=4.103719150150076_p 5707w(3)=8.864415391645220e-2_p 5708else if(N==4)then 5709x(1)=-2.465971132969993_p 5710w(1)=1.221250432463430_p 5711x(2)=-5.401174886467407e-1_p 5712w(2)=1.502976629627007_p 5713x(3)=2.303340055240179_p 5714w(3)=3.188440914886876e-1_p 5715x(4)=7.058689207113395_p 5716w(4)=5.516192391821093e-3_p 5717else if(N==5)then 5718x(1)=-2.583664971775044_p 5719w(1)=9.701452349607153e-1_p 5720x(2)=-1.012332093251382_p 5721w(2)=1.462101049756246_p 5722x(3)=1.304482058748706_p 5723w(3)=5.775648797185217e-1_p 5724x(4)=4.685967251309652_p 5725w(4)=3.849625384133804e-2_p 5726x(5)=10.13850713697142_p 5727w(5)=2.799276941249502e-4_p 5728else if(N==6)then 5729x(1)=-2.663636441258348_p 5730w(1)=7.929096628539299e-1_p 5731x(2)=-1.355060684765965_p 5732w(2)=1.348858092818979_p 5733x(3)=6.168635473959421e-1_p 5734w(3)=7.884880529782512e-1_p 5735x(4)=3.291484984381236_p 5736w(4)=1.147868510773408e-1_p 5737x(5)=7.192558298225315_p 5738w(5)=3.528350259596079e-3_p 5739x(6)=12.99120729727827_p 5740w(6)=1.633598284828327e-5_p 5741else if(N==7)then 5742x(1)=-2.722372392107272_p 5743w(1)=6.595996211433676e-1_p 5744x(2)=-1.619221276165195_p 5745w(2)=1.213962043363196_p 5746x(3)=8.838416086310230e-2_p 5747w(3)=9.260014070123319e-1_p 5748x(4)=2.314905602109457_p 5749w(4)=2.321593191991274e-1_p 5750x(5)=5.373499933611639_p 5751w(5)=1.652207833208030e-2_p 5752x(6)=9.563030964136885_p 5753w(6)=3.412643350720795e-4_p 5754x(7)=15.17631610760399_p 5755w(7)=1.612585770587752e-6_p 5756else if(N==8)then 5757x(1)=-2.767192744778429_p 5758w(1)=5.562160921947972e-1_p 5759x(2)=-1.827984856035032_p 5760w(2)=1.080114271468104_p 5761x(3)=-3.368657007892184e-1_p 5762w(3)=9.911136092276351e-1_p 5763x(4)=1.576271634798909_p 5764w(4)=3.710575466945488e-1_p 5765x(5)=4.085416907578189_p 5766w(5)=4.774002600905462e-2_p 5767x(6)=7.394453748128866_p 5768w(6)=2.303089226179868e-3_p 5769x(7)=11.61341401567712_p 5770w(7)=4.240461519541828e-5_p 5771x(8)=16.57843061982681_p 5772w(8)=3.065354301389590e-7_p 5773else if(N==9)then 5774x(1)=-2.802116078518311_p 5775w(1)=4.747312469655097e-1_p 5776x(2)=-1.994868885610289_p 5777w(2)=9.573819670938405e-1_p 5778x(3)=-6.852968848103517e-1_p 5779w(3)=9.997775330052254e-1_p 5780x(4)=9.929782881989591e-1_p 5781w(4)=5.053220069488911e-1_p 5782x(5)=3.116469179230794_p 5783w(5)=1.021817988984579e-1_p 5784x(6)=5.845277488853075_p 5785w(6)=8.823528294125752e-3_p 5786x(7)=9.241534752540591_p 5787w(7)=3.618216703450777e-4_p 5788x(8)=13.27338207450917_p 5789w(8)=7.345330550582357e-6_p 5790x(9)=17.40801140899196_p 5791w(9)=9.776399957039617e-8_p 5792else if(N==10)then 5793x(1)=-2.829799060945694_p 5794w(1)=4.095933341595124e-1_p 5795x(2)=-2.129686449634453_p 5796w(2)=8.489626864280414e-1_p 5797x(3)=-9.737618179070849e-1_p 5798w(3)=9.715579030782281e-1_p 5799x(4)=5.181004463977398e-1_p 5800w(4)=6.149782318168107e-1_p 5801x(5)=2.358624868893626_p 5802w(5)=1.778523505351238e-1_p 5803x(6)=4.670978627600639_p 5804w(6)=2.387439646700133e-2_p 5805x(7)=7.509789537590513_p 5806w(7)=1.697765943434213e-3_p 5807x(8)=10.85651568219058_p 5808w(8)=6.885581616914020e-5_p 5809x(9)=14.55614385749692_p 5810w(9)=1.778056581099549e-6_p 5811x(10)=17.89990240465171_p 5812w(10)=4.367004341528545e-8_p 5813else if(N==11)then 5814x(1)=-2.852088680897431_p 5815w(1)=3.568115308974470e-1_p 5816x(2)=-2.239798496592324_p 5817w(2)=7.548002266139147e-1_p 5818x(3)=-1.214526890276774_p 5819w(3)=9.226231666405997e-1_p 5820x(4)=1.228566577280622e-1_p 5821w(4)=6.911867661260380e-1_p 5822x(5)=1.747876711052079_p 5823w(5)=2.663251495351104e-1_p 5824x(6)=3.746964173398681_p 5825w(6)=5.097403997884975e-2_p 5826x(7)=6.176741752780469_p 5827w(7)=5.483843226133557e-3_p 5828x(8)=9.026401198575416_p 5829w(8)=3.657250615334568e-4_p 5830x(9)=12.22237722290427_p 5831w(9)=1.629728630476597e-5_p 5832x(10)=15.52075369470703_p 5833w(10)=5.765431950866904e-7_p 5834x(11)=18.20340017860479_p 5835w(11)=2.406181920528916e-8_p 5836else if(N==12)then 5837x(1)=-2.870289424104562_p 5838w(1)=3.135001902846082e-1_p 5839x(2)=-2.330699277934499_p 5840w(2)=6.735679164860046e-1_p 5841x(3)=-1.416938279357302_p 5842w(3)=8.640852158634230e-1_p 5843x(4)=-2.112415319161028e-1_p 5844w(4)=7.343950700776803e-1_p 5845x(5)=1.243616083471091_p 5846w(5)=3.562969368326946e-1_p 5847x(6)=3.000094620733155_p 5848w(6)=9.159170047959965e-2_p 5849x(7)=5.114969434460635_p 5850w(7)=1.371640397938351e-2_p 5851x(8)=7.586801963237321_p 5852w(8)=1.337659546496150e-3_p 5853x(9)=10.37066298576151_p 5854w(9)=9.121891690826381e-5_p 5855x(10)=13.35084295225469_p 5856w(10)=4.781975025694906e-6_p 5857x(11)=16.2388956030848_p 5858w(11)=2.363757028346172e-7_p 5859x(12)=18.39994036419755_p 5860w(12)=1.515341874794850e-8_p 5861else if(N==13)then 5862x(1)=-2.885338125045709_p 5863w(1)=2.775509835697391e-1_p 5864x(2)=-2.406499780892787_p 5865w(2)=6.035846440180972e-1_p 5866x(3)=-1.588271817605957_p 5867w(3)=8.027998212692314e-1_p 5868x(4)=-4.967346555717266e-1_p 5869w(4)=7.501505779708366e-1_p 5870x(5)=8.190608661263975e-1_p 5871w(5)=4.375680034604456e-1_p 5872x(6)=2.383530134882738_p 5873w(6)=1.443037733240290e-1_p 5874x(7)=4.248513715117550_p 5875w(7)=2.847631338416126e-2_p 5876x(8)=6.422265772859824_p 5877w(8)=3.764829045991422e-3_p 5878x(9)=8.874784415812011_p 5879w(9)=3.599479727329301e-4_p 5880x(10)=11.53842253376008_p 5881w(10)=2.662112338310576e-5_p 5882x(11)=14.26986170876443_p 5883w(11)=1.704388542971130e-6_p 5884x(12)=16.7748864771507_p 5885w(12)=1.160136241106984e-7_p 5886x(13)=18.53314038947798_p 5887w(13)=1.043013087979445e-8_p 5888else if(N==14)then 5889x(1)=-2.897919725000745_p 5890w(1)=2.474021893936741e-1_p 5891x(2)=-2.470301023176774_p 5892w(2)=5.431994053304752e-1_p 5893x(3)=-1.734257097817500_p 5894w(3)=7.426676611013175e-1_p 5895x(4)=-7.426373341300175e-1_p 5896w(4)=7.455256025281507e-1_p 5897x(5)=4.560552134876187e-1_p 5898w(5)=5.034813642353143e-1_p 5899x(6)=1.865517099137465_p 5900w(6)=2.050724350901346e-1_p 5901x(7)=3.528213778076934_p 5902w(7)=5.128744858766545e-2_p 5903x(8)=5.460369631894225_p 5904w(8)=8.732784553956693e-3_p 5905x(9)=7.642630392229830_p 5906w(9)=1.099938215472050e-3_p 5907x(10)=10.02998480759907_p 5908w(10)=1.086713725690349e-4_p 5909x(11)=12.53878394180267_p 5910w(11)=9.054876965401639e-6_p 5911x(12)=15.01321542657285_p 5912w(12)=7.178493914479908e-7_p 5913x(13)=17.17894772461959_p 5914w(13)=6.519850230787285e-8_p 5915x(14)=18.62705478613253_p 5916w(14)=7.637356870874799e-9_p 5917else if(N==15)then 5918x(1)=-2.908543656907895_p 5919w(1)=2.218803645942275e-1_p 5920x(2)=-2.524466070446135_p 5921w(2)=4.909338107960700e-1_p 5922x(3)=-1.859437610639688_p 5923w(3)=6.857233380585591e-1_p 5924x(4)=-9.557650283959892e-1_p 5925w(4)=7.270602995134087e-1_p 5926x(5)=1.419610706402952e-1_p 5927w(5)=5.513791950915187e-1_p 5928x(6)=1.423728752771339_p 5929w(6)=2.684209372155369e-1_p 5930x(7)=2.920330597160837_p 5931w(7)=8.256544707035257e-2_p 5932x(8)=4.652866667992875_p 5933w(8)=1.746319715172298e-2_p 5934x(9)=6.610892164698824_p 5935w(9)=2.770495994773402e-3_p 5936x(10)=8.762361473545923_p 5937w(10)=3.493525413913831e-4_p 5938x(11)=11.05249269677146_p 5939w(11)=3.696779830262362e-5_p 5940x(12)=13.38821596907345_p 5941w(12)=3.546395532902363e-6_p 5942x(13)=15.61383379413497_p 5943w(13)=3.473331232604516e-7_p 5944x(14)=17.4877536062666_p 5945w(14)=4.056707796958518e-8_p 5946x(15)=18.69552972116226_p 5947w(15)=5.849347716497666e-9_p 5948else if(N==16)then 5949x(1)=-2.917594845820355_p 5950w(1)=2.000916442307306e-1_p 5951x(2)=-2.570814973379200_p 5952w(2)=4.455184879435765e-1_p 5953x(3)=-1.967435817933405_p 5954w(3)=6.328880745792522e-1_p 5955x(4)=-1.141465626646742_p 5956w(4)=6.999675098081524e-1_p 5957x(5)=-1.322902555966019e-1_p 5958w(5)=5.817362698037742e-1_p 5959x(6)=1.042096386252876_p 5960w(6)=3.288932867785223e-1_p 5961x(7)=2.400703881098242_p 5962w(7)=1.213669318541962e-1_p 5963x(8)=3.966027657375356_p 5964w(8)=3.105171136348939e-2_p 5965x(9)=5.735212011080737_p 5966w(9)=6.003751811086410e-3_p 5967x(10)=7.685091002189450_p 5968w(10)=9.320525335490247e-4_p 5969x(11)=9.776804633601705_p 5970w(11)=1.217109742947279e-4_p 5971x(12)=11.94926617305896_p 5972w(12)=1.412007473069653e-5_p 5973x(13)=14.10613955439207_p 5974w(13)=1.574113274964734e-6_p 5975x(14)=16.10054439547148_p 5976w(14)=1.882039878984636e-7_p 5977x(15)=17.7273286338128_p 5978w(15)=2.726430584950724e-8_p 5979x(16)=18.74689209890167_p 5980w(16)=4.634022308098809e-9_p 5981else if(N==17)then 5982x(1)=-2.925368353123408_p 5983w(1)=1.813463344262606e-1_p 5984x(2)=-2.610764441507909_p 5985w(2)=4.058855605385865e-1_p 5986x(3)=-2.061154844617635_p 5987w(3)=5.844467888720547e-1_p 5988x(4)=-1.304039600760297_p 5989w(4)=6.680559569938410e-1_p 5990x(5)=-3.734320899212083e-1_p 5991w(5)=5.968674104964571e-1_p 5992x(6)=7.088617169611688e-1_p 5993w(6)=3.821965008986694e-1_p 5994x(7)=1.951501660648897_p 5995w(7)=1.655266273850883e-1_p 5996x(8)=3.375352059715831_p 5997w(8)=5.018889027887160e-2_p 5998x(9)=4.983587667246335_p 5999w(9)=1.153894217513343e-2_p 6000x(10)=6.760017864469100_p 6001w(10)=2.144222632567794e-3_p 6002x(11)=8.675665410787255_p 6003w(11)=3.366036792665875e-4_p 6004x(12)=10.68743438345845_p 6005w(12)=4.658665097172016e-5_p 6006x(13)=12.73110707283636_p 6007w(13)=6.007290324184426e-6_p 6008x(14)=14.71204738541722_p 6009w(14)=7.786766283479189e-7_p 6010x(15)=16.49711557663906_p 6011w(15)=1.117671407047664e-7_p 6012x(16)=17.91599946661423_p 6013w(16)=1.944024965339628e-8_p 6014x(17)=18.78635670269104_p 6015w(17)=3.768833969721762e-9_p 6016else 6017call GD(-3) 6018end if 6019end subroutine GF_m3 6020 6021! [-2kT;19kT] 6022subroutine GF_m2(N,x,w) 6023integer,intent(in)::N 6024real(p),intent(out)::x(N),w(N) 6025if(N==2)then 6026x(1)=-1.066221378960867_p 6027w(1)=1.641098855735538_p 6028x(2)=2.078591071736455_p 6029w(2)=4.858291497046385e-1_p 6030else if(N==3)then 6031x(1)=-1.367401740810540_p 6032w(1)=1.231400311742700_p 6033x(2)=8.547653527269875e-1_p 6034w(2)=8.502413546854517e-1_p 6035x(3)=4.794548007183885_p 6036w(3)=4.528633901202469e-2_p 6037else if(N==4)then 6038x(1)=-1.528185920529946_p 6039w(1)=9.626206650447684e-1_p 6040x(2)=2.085439356248363e-1_p 6041w(2)=9.943077543618354e-1_p 6042x(3)=3.006688332762052_p 6043w(3)=1.673637874886009e-1_p 6044x(4)=7.800746258848244_p 6045w(4)=2.635798544971359e-3_p 6046else if(N==5)then 6047x(1)=-1.627901156178935_p 6048w(1)=7.794505685908727e-1_p 6049x(2)=-2.100474150178000e-1_p 6050w(2)=1.012478362576287_p 6051x(3)=2.022229604300772_p 6052w(3)=3.163803078002256e-1_p 6053x(4)=5.429119176666869_p 6054w(4)=1.848559367118619e-2_p 6055x(5)=10.87517004052248_p 6056w(5)=1.331728016050383e-4_p 6057else if(N==6)then 6058x(1)=-1.697123038188384_p 6059w(1)=6.452922213105409e-1_p 6060x(2)=-5.137374677590245e-1_p 6061w(2)=9.701217631861700e-1_p 6062x(3)=1.352735790047769_p 6063w(3)=4.535847304467501e-1_p 6064x(4)=4.028230369704058_p 6065w(4)=5.623063512950832e-2_p 6066x(5)=7.921167566372207_p 6067w(5)=1.690224326718036e-3_p 6068x(6)=13.62112203451311_p 6069w(6)=8.431040488681367e-6_p 6070else if(N==7)then 6071x(1)=-1.748675248723106_p 6072w(1)=5.418463017183988e-1_p 6073x(2)=-7.483420219232553e-1_p 6074w(2)=9.002879608274261e-1_p 6075x(3)=8.474691766937082e-1_p 6076w(3)=5.596695276379950e-1_p 6077x(4)=3.048919804530954_p 6078w(4)=1.169964270096806e-1_p 6079x(5)=6.098470986254850_p 6080w(5)=7.954713846147345e-3_p 6081x(6)=10.22557924725422_p 6082w(6)=1.721106064742642e-4_p 6083x(7)=15.62358696462898_p 6084w(7)=9.637940539050766e-7_p 6085else if(N==8)then 6086x(1)=-1.788323279627137_p 6087w(1)=4.603386277516203e-1_p 6088x(2)=-9.340409654413871e-1_p 6089w(2)=8.210648974993383e-1_p 6090x(3)=4.485491733991325e-1_p 6091w(3)=6.277327490597471e-1_p 6092x(4)=2.314820368668448_p 6093w(4)=1.935334222382505e-1_p 6094x(5)=4.812357273307276_p 6095w(5)=2.309158500524530e-2_p 6096x(6)=8.075535859266704_p 6097w(6)=1.143336079576102e-3_p 6098x(7)=12.18049314093029_p 6099w(7)=2.317746247442763e-5_p 6100x(8)=16.8631248817893_p 6101w(8)=2.103439241206791e-7_p 6102else if(N==9)then 6103x(1)=-1.819398226779534_p 6104w(1)=3.953237285795497e-1_p 6105x(2)=-1.082861015970652_p 6106w(2)=7.423845291731103e-1_p 6107x(3)=1.263395456620581e-1_p 6108w(3)=6.607098018034796e-1_p 6109x(4)=1.742293221044148_p 6110w(4)=2.741140644108787e-1_p 6111x(5)=3.848135846296544_p 6112w(5)=4.987752174724133e-2_p 6113x(6)=6.541914714829618_p 6114w(6)=4.324404026604195e-3_p 6115x(7)=9.858875175033301_p 6116w(7)=1.894895419303522e-4_p 6117x(8)=13.73704014707798_p 6118w(8)=4.392207014177591e-6_p 6119x(9)=17.58645764707152_p 6120w(9)=7.395036786372014e-8_p 6121else if(N==10)then 6122x(1)=-1.844157527061931_p 6123w(1)=3.428382156329809e-1_p 6124x(2)=-1.203489764014581_p 6125w(2)=6.689673040965928e-1_p 6126x(3)=-1.380274720100506e-1_p 6127w(3)=6.664543640297478e-1_p 6128x(4)=1.282578780560285_p 6129w(4)=3.479405301966558e-1_p 6130x(5)=3.096777478413510_p 6131w(5)=8.822290003715845e-2_p 6132x(6)=5.380844635450967_p 6133w(6)=1.160093511245932e-2_p 6134x(7)=8.159225188207159_p 6135w(7)=8.641051564766803e-4_p 6136x(8)=11.40034378088578_p 6137w(8)=3.845838334929209e-5_p 6138x(9)=14.92423847005969_p 6139w(9)=1.157623933296773e-6_p 6140x(10)=18.01550356691014_p 6141w(10)=3.517082174053122e-8_p 6142else if(N==11)then 6143x(1)=-1.864183664737786_p 6144w(1)=2.999573298664283e-1_p 6145x(2)=-1.302369276414623_p 6146w(2)=6.025908161696532e-1_p 6147x(3)=-3.575972580731294e-1_p 6148w(3)=6.534393996801940e-1_p 6149x(4)=9.050440288451981e-1_p 6150w(4)=4.080801059132838e-1_p 6151x(5)=2.494349474239732_p 6152w(5)=1.352280683019395e-1_p 6153x(6)=4.468196181267580_p 6154w(6)=2.469346100393842e-2_p 6155x(7)=6.849977207312759_p 6156w(7)=2.733089948870431e-3_p 6157x(8)=9.619050363475930_p 6158w(8)=1.955770120346219e-4_p 6159x(9)=12.69131285925987_p 6160w(9)=9.733699028258981e-6_p 6161x(10)=15.809196993203_p 6162w(10)=4.036678377147532e-7_p 6163x(11)=18.28183651610043_p 6164w(11)=2.017696790902773e-8_p 6165else if(N==12)then 6166x(1)=-1.880601420507810_p 6167w(1)=2.645252574808460e-1_p 6168x(2)=-1.384285530699601_p 6169w(2)=5.435463231777711e-1_p 6170x(3)=-5.417903867636791e-1_p 6171w(3)=6.287403521532964e-1_p 6172x(4)=5.895883077319615e-1_p 6173w(4)=4.517959892997737e-1_p 6174x(5)=2.000375492919376_p 6175w(5)=1.863211218095380e-1_p 6176x(6)=3.731463459442662_p 6177w(6)=4.451886063067608e-2_p 6178x(7)=5.807061388725292_p 6179w(7)=6.732234003760744e-3_p 6180x(8)=8.214122529617109_p 6181w(8)=6.931307699576886e-4_p 6182x(9)=10.90272197939984_p 6183w(9)=5.150310761968570e-5_p 6184x(10)=13.74957778005819_p 6185w(10)=3.044489663486796e-6_p 6186x(11)=16.46488143783011_p 6187w(11)=1.754647523970493e-7_p 6188x(12)=18.45559547766717_p 6189w(12)=1.305252072897369e-8_p 6190else if(N==13)then 6191x(1)=-1.894223626673522_p 6192w(1)=2.349415205954101e-1_p 6193x(2)=-1.452820211745447_p 6194w(2)=4.914391692924341e-1_p 6195x(3)=-6.976357151395737e-1_p 6196w(3)=5.975613911992655e-1_p 6197x(4)=3.224704774615976e-1_p 6198w(4)=4.794899868192034e-1_p 6199x(5)=1.587906550401159_p 6200w(5)=2.366879102208572e-1_p 6201x(6)=3.124485736232017_p 6202w(6)=7.085419734355007e-2_p 6203x(7)=4.956108900519269_p 6204w(7)=1.383739209799847e-2_p 6205x(8)=7.076290213270335_p 6206w(8)=1.904198935732516e-3_p 6207x(9)=9.451525970304491_p 6208w(9)=1.951147658774334e-4_p 6209x(10)=12.01044723325874_p 6210w(10)=1.587564167243303e-5_p 6211x(11)=14.60644562797804_p 6212w(11)=1.149233730604624e-6_p 6213x(12)=16.95333695935002_p 6214w(12)=9.014181985761482e-8_p 6215x(13)=18.57419912504771_p 6216w(13)=9.152624289659075e-9_p 6217else if(N==14)then 6218x(1)=-1.905648028946825_p 6219w(1)=2.100045366980869e-1_p 6220x(2)=-1.510681694474301_p 6221w(2)=4.456014867994900e-1_p 6222x(3)=-8.305050667285676e-1_p 6223w(3)=5.634429571907188e-1_p 6224x(4)=9.391454641495897e-2_p 6225w(4)=4.933308620915778e-1_p 6226x(5)=1.238335254689332_p 6227w(5)=2.823747418252305e-1_p 6228x(6)=2.616098235386308_p 6229w(6)=1.023843648176675e-1_p 6230x(7)=4.248948456431910_p 6231w(7)=2.480823413684888e-2_p 6232x(8)=6.135929237441667_p 6233w(8)=4.335059249655418e-3_p 6234x(9)=8.253506308558265_p 6235w(9)=5.777526789825954e-4_p 6236x(10)=10.55490617482451_p 6237w(10)=6.175303483817202e-5_p 6238x(11)=12.95428438110383_p 6239w(11)=5.688969638569089e-6_p 6240x(12)=15.29679648777001_p 6241w(12)=5.086757354855260e-7_p 6242x(13)=17.32156035102766_p 6243w(13)=5.247949819807773e-8_p 6244x(14)=18.65835475092794_p 6245w(14)=6.792207242620732e-9_p 6246else if(N==15)then 6247x(1)=-1.915321549846651_p 6248w(1)=1.888011469465528e-1_p 6249x(2)=-1.559940853421063_p 6250w(2)=4.052961200659370e-1_p 6251x(3)=-9.445753922903878e-1_p 6252w(3)=5.286594473420909e-1_p 6253x(4)=-1.032930240078483e-1_p 6254w(4)=4.961449882122336e-1_p 6255x(5)=9.384354027836347e-1_p 6256w(5)=3.208153092976886e-1_p 6257x(6)=2.184372358601541_p 6258w(6)=1.370455806749728e-1_p 6259x(7)=3.652587850125723_p 6260w(7)=3.998164271551698e-2_p 6261x(8)=5.346302372577850_p 6262w(8)=8.548866767238266e-3_p 6263x(9)=7.249122284271809_p 6264w(9)=1.419066896912008e-3_p 6265x(10)=9.327918640518231_p 6266w(10)=1.911925121125651e-4_p 6267x(11)=11.5268006444765_p 6268w(11)=2.201114342932640e-5_p 6269x(12)=13.75237585859427_p 6270w(12)=2.337376458518943e-6_p 6271x(13)=15.85322690421893_p 6272w(13)=2.566759629511658e-7_p 6273x(14)=17.6032794508839_p 6274w(14)=3.355886636600153e-8_p 6275x(15)=18.72005319577496_p 6276w(15)=5.254203527283524e-9_p 6277else if(N==16)then 6278x(1)=-1.923583478069358_p 6279w(1)=1.706289835869904e-1_p 6280x(2)=-1.602198628321022_p 6281w(2)=3.698117359440359e-1_p 6282x(3)=-1.043136678336230_p 6283w(3)=4.945970072177693e-1_p 6284x(4)=-2.746436377635653e-1_p 6285w(4)=4.907250011899431e-1_p 6286x(5)=6.785609021450081e-1_p 6287w(5)=3.508474314097658e-1_p 6288x(6)=1.813409725320806_p 6289w(6)=1.724963500838259e-1_p 6290x(7)=3.143475470119459_p 6291w(7)=5.917441440990844e-2_p 6292x(8)=4.674630929370621_p 6293w(8)=1.505937016817099e-2_p 6294x(9)=6.396054154043522_p 6295w(9)=3.013395448878271e-3_p 6296x(10)=8.283257519116663_p 6297w(10)=4.948181188184127e-4_p 6298x(11)=10.29697068623712_p 6299w(11)=6.945373002855536e-5_p 6300x(12)=12.37578636474062_p 6301w(12)=8.789976698799881e-6_p 6302x(13)=14.42481212698295_p 6303w(13)=1.082877648738876e-6_p 6304x(14)=16.30353998598535_p 6305w(14)=1.440416920944597e-7_p 6306x(15)=17.82219875727991_p 6307w(15)=2.304147155731829e-8_p 6308x(16)=18.76655270686622_p 6309w(16)=4.194529757194621e-9_p 6310else if(N==17)then 6311x(1)=-1.930694996861059_p 6312w(1)=1.549415662810734e-1_p 6313x(2)=-1.638705839804758_p 6314w(2)=3.385024807747000e-1_p 6315x(3)=-1.128807037270365_p 6316w(3)=4.620484956119993e-1_p 6317x(4)=-4.244244248415102e-1_p 6318w(4)=4.794928991959655e-1_p 6319x(5)=4.515037230890684e-1_p 6320w(5)=3.724276207608947e-1_p 6321x(6)=1.491419806468059_p 6322w(6)=2.065525211584021e-1_p 6323x(7)=2.704264451541202_p 6324w(7)=8.170909940907627e-2_p 6325x(8)=4.097098296508088_p 6326w(8)=2.422635160638069e-2_p 6327x(9)=5.663524726424796_p 6328w(9)=5.699035388244043e-3_p 6329x(10)=7.385161817768270_p 6330w(10)=1.110143576809062e-3_p 6331x(11)=9.232909150922735_p 6332w(11)=1.855339018093498e-4_p 6333x(12)=11.16360374990217_p 6334w(12)=2.769580607713586e-5_p 6335x(13)=13.11359901816436_p 6336w(13)=3.897519130011035e-6_p 6337x(14)=14.99107773626045_p 6338w(14)=5.562411271226857e-7_p 6339x(15)=16.67027268135421_p 6340w(15)=8.806741901223886e-8_p 6341x(16)=17.99492888516687_p 6342w(16)=1.670903764379098e-8_p 6343x(17)=18.80242746033931_p 6344w(17)=3.432030723889580e-9_p 6345else 6346call GD(-2) 6347end if 6348end subroutine GF_m2 6349 6350! [-1kT;19kT] 6351subroutine GF_m1(N,x,w) 6352integer,intent(in)::N 6353real(p),intent(out)::x(N),w(N) 6354if(N==2)then 6355x(1)=-2.078098494184512e-1_p 6356w(1)=1.057153013431959_p 6357x(2)=2.782846373863315_p 6358w(2)=2.561086684834678e-1_p 6359else if(N==3)then 6360x(1)=-4.523405263043018e-1_p 6361w(1)=8.262782615511450e-1_p 6362x(2)=1.607963876704931_p 6363w(2)=4.658378362013601e-1_p 6364x(3)=5.567734646306901_p 6365w(3)=2.114558416292134e-2_p 6366else if(N==4)then 6367x(1)=-5.852502326486796e-1_p 6368w(1)=6.651604633921389e-1_p 6369x(2)=1.007524602362042_p 6370w(2)=5.677111930707655e-1_p 6371x(3)=3.789593352799553_p 6372w(3)=7.921046465597882e-2_p 6373x(4)=8.605866235770691_p 6374w(4)=1.179560796543370e-3_p 6375else if(N==5)then 6376x(1)=-6.694747962984441e-1_p 6377w(1)=5.497077389024635e-1_p 6378x(2)=6.248706599975727e-1_p 6379w(2)=6.012119672832252e-1_p 6380x(3)=2.811307143097546_p 6381w(3)=1.539669174868608e-1_p 6382x(4)=6.230684667562443_p 6383w(4)=8.314254043635800e-3_p 6384x(5)=11.64785469977622_p 6385w(5)=6.080419924115091e-5_p 6386else if(N==6)then 6387x(1)=-7.291206403129249e-1_p 6388w(1)=4.616875417368872e-1_p 6389x(2)=3.487404196072111e-1_p 6390w(2)=5.965993874310825e-1_p 6391x(3)=2.149016741667370_p 6392w(3)=2.285559832226180e-1_p 6393x(4)=4.821482076708151_p 6394w(4)=2.563732237592372e-2_p 6395x(5)=8.685630535902863_p 6396w(5)=7.771366757023718e-4_p 6397x(6)=14.2488975488187_p 6398w(6)=4.310473212606206e-6_p 6399else if(N==7)then 6400x(1)=-7.740671832350721e-1_p 6401w(1)=3.919746530797774e-1_p 6402x(2)=1.365109602609373e-1_p 6403w(2)=5.708018582704103e-1_p 6404x(3)=1.655741466884448_p 6405w(3)=2.925298318204208e-1_p 6406x(4)=3.838964992077456_p 6407w(4)=5.420769155830452e-2_p 6408x(5)=6.861584964580756_p 6409w(5)=3.662253622597467e-3_p 6410x(6)=10.90506655249886_p 6411w(6)=8.481300289584707e-5_p 6412x(7)=16.04967303210994_p 6413w(7)=5.805610201717104e-7_p 6414else if(N==8)then 6415x(1)=-8.088698762534617e-1_p 6416w(1)=3.360324149715989e-1_p 6417x(2)=-3.072578681559593e-2_p 6418w(2)=5.343905239825941e-1_p 6419x(3)=1.272591231860256_p 6420w(3)=3.402737922190948e-1_p 6421x(4)=3.107580172333881_p 6422w(4)=9.138708027389067e-2_p 6423x(5)=5.580001995842522_p 6424w(5)=1.061400886549500e-2_p 6425x(6)=8.780589064039262_p 6426w(6)=5.511802093585235e-4_p 6427x(7)=12.75097087691825_p 6428w(7)=1.253579646466718e-5_p 6429x(8)=17.12864367077344_p 6430w(8)=1.455969297500123e-7_p 6431else if(N==9)then 6432x(1)=-8.362988908597747e-1_p 6433w(1)=2.907571920625109e-1_p 6434x(2)=-1.644856843324857e-1_p 6435w(2)=4.940565272391704e-1_p 6436x(3)=9.674909192101183e-1_p 6437w(3)=3.709369736086582e-1_p 6438x(4)=2.541895842648649_p 6439w(4)=1.324318221847866e-1_p 6440x(5)=4.622513909027967_p 6441w(5)=2.293014573096899e-2_p 6442x(6)=7.266450505758062_p 6443w(6)=2.048929971740992e-3_p 6444x(7)=10.48924321812085_p 6445w(7)=9.741605486058387e-5_p 6446x(8)=14.19625777549406_p 6447w(8)=2.618850994434902e-6_p 6448x(9)=17.7523229623757_p 6449w(9)=5.621173519948308e-8_p 6450else if(N==10)then 6451x(1)=-8.582638575134942e-1_p 6452w(1)=2.537600918087073e-1_p 6453x(2)=-2.729048126287135e-1_p 6454w(2)=4.536543560051742e-1_p 6455x(3)=7.198981162147934e-1_p 6456w(3)=3.866498629921906e-1_p 6457x(4)=2.091802589052475_p 6458w(4)=1.725885662811203e-1_p 6459x(5)=3.878701906290939_p 6460w(5)=4.073342564857702e-2_p 6461x(6)=6.121426250650350_p 6462w(6)=5.423639680276013e-3_p 6463x(7)=8.826795103849870_p 6464w(7)=4.297066755432974e-4_p 6465x(8)=11.94925788745834_p 6466w(8)=2.125029945017945e-5_p 6467x(9)=15.2848038518971_p 6468w(9)=7.541525741577218e-7_p 6469x(10)=18.12343017210739_p 6470w(10)=2.837181324934713e-8_p 6471else if(N==11)then 6472x(1)=-8.761107512618048e-1_p 6473w(1)=2.232214356889090e-1_p 6474x(2)=-3.618717287453219e-1_p 6475w(2)=4.151972376317543e-1_p 6476x(3)=5.158986140470637e-1_p 6477w(3)=3.906451989053618e-1_p 6478x(4)=1.725658076035600_p 6479w(4)=2.083115440721802e-1_p 6480x(5)=3.284380544754182_p 6481w(5)=6.301309586373099e-2_p 6482x(6)=5.222409879016726_p 6483w(6)=1.143812130612185e-2_p 6484x(7)=7.544693029747971_p 6485w(7)=1.326011536448489e-3_p 6486x(8)=10.22243625287398_p 6487w(8)=1.029561822037711e-4_p 6488x(9)=13.16022263313876_p 6489w(9)=5.780763780825573e-6_p 6490x(10)=16.08986769691895_p 6491w(10)=2.830532720410103e-7_p 6492x(11)=18.35555222158177_p 6493w(11)=1.691166323446465e-8_p 6494else if(N==12)then 6495x(1)=-8.908013715388327e-1_p 6496w(1)=1.977665630138904e-1_p 6497x(2)=-4.356969536624979e-1_p 6498w(2)=3.796074791686880e-1_p 6499x(3)=3.457129453261190e-1_p 6500w(3)=3.861467659607662e-1_p 6501x(4)=1.422516999197950_p 6502w(4)=2.375894485811248e-1_p 6503x(5)=2.799102950089052_p 6504w(5)=8.804303586628925e-2_p 6505x(6)=4.497571556974742_p 6506w(6)=2.052053523065650e-2_p 6507x(7)=6.523178192568038_p 6508w(7)=3.204692733472952e-3_p 6509x(8)=8.855917706693406_p 6510w(8)=3.523063009990877e-4_p 6511x(9)=11.44013777052249_p 6512w(9)=2.878027381995099e-5_p 6513x(10)=14.14546287457252_p 6514w(10)=1.933160162729269e-6_p 6515x(11)=16.68405717761653_p 6516w(11)=1.304015220159750e-7_p 6517x(12)=18.50824800363965_p 6518w(12)=1.122403456908226e-8_p 6519else if(N==13)then 6520x(1)=-9.030347171594955e-1_p 6521w(1)=1.763537448405873e-1_p 6522x(2)=-4.975802317386687e-1_p 6523w(2)=3.471945813765778e-1_p 6524x(3)=2.022430464350616e-1_p 6525w(3)=3.758877353599823e-1_p 6526x(4)=1.167955519405708_p 6527w(4)=2.597427960920380e-1_p 6528x(5)=2.395923353703151_p 6529w(5)=1.138859142795147e-1_p 6530x(6)=3.901286342340067_p 6531w(6)=3.264837105822795e-2_p 6532x(7)=5.689839725552693_p 6533w(7)=6.492015576966680e-3_p 6534x(8)=7.747527599143009_p 6535w(8)=9.419497288855889e-4_p 6536x(9)=10.0374384884383_p 6537w(9)=1.043162593928843e-4_p 6538x(10)=12.48415726543563_p 6539w(10)=9.405242091667506e-6_p 6540x(11)=14.93893300419769_p 6541w(11)=7.740186631287337e-7_p 6542x(12)=17.12622553942534_p 6543w(12)=7.007008411769159e-8_p 6544x(13)=18.61327297166809_p 6545w(13)=8.012414339159437e-9_p 6546else if(N==14)then 6547x(1)=-9.133276288444073e-1_p 6548w(1)=1.581872500505201e-1_p 6549x(2)=-5.499309989352502e-1_p 6550w(2)=3.179404018083151e-1_p 6551x(3)=8.019802835877278e-2_p 6552w(3)=3.619894939432177e-1_p 6553x(4)=9.516942503912580e-1_p 6554w(4)=2.750207183697930e-1_p 6555x(5)=2.056138915024334_p 6556w(5)=1.387935728927804e-1_p 6557x(6)=3.402821529686572_p 6558w(6)=4.737567692980090e-2_p 6559x(7)=4.997601442073176_p 6560w(7)=1.151888547377255e-2_p 6561x(8)=6.830888146542877_p 6562w(8)=2.098469654633046e-3_p 6563x(9)=8.876388544356056_p 6564w(9)=2.984952457967694e-4_p 6565x(10)=11.08507629952267_p 6566w(10)=3.474962430883595e-5_p 6567x(11)=13.36914819231833_p 6568w(11)=3.559415080656214e-6_p 6569x(12)=15.57597855420603_p 6570w(12)=3.602552874720303e-7_p 6571x(13)=17.45976273150637_p 6572w(13)=4.222844739867329e-8_p 6573x(14)=18.68829349694479_p 6574w(14)=6.023672519464302e-9_p 6575else if(N==15)then 6576x(1)=-9.220684915916914e-1_p 6577w(1)=1.426534210067890e-1_p 6578x(2)=-5.945882198743114e-1_p 6579w(2)=2.916635355569951e-1_p 6580x(3)=-2.445115351463317e-2_p 6581w(3)=3.460082607246663e-1_p 6582x(4)=7.661866052079714e-1_p 6583w(4)=2.842021598000617e-1_p 6584x(5)=1.766347494763251_p 6585w(5)=1.614342543366468e-1_p 6586x(6)=2.980573815584004_p 6587w(6)=6.395560988774081e-2_p 6588x(7)=4.414189395183354_p 6589w(7)=1.844601501457465e-2_p 6590x(8)=6.060994401163251_p 6591w(8)=4.067079493235612e-3_p 6592x(9)=7.901588162043969_p 6593w(9)=7.132228525707733e-4_p 6594x(10)=9.901500872835904_p 6595w(10)=1.033493225260443e-4_p 6596x(11)=12.00356043555542_p 6597w(11)=1.301545465744936e-5_p 6598x(12)=14.11456169821776_p 6599w(12)=1.536431232184796e-6_p 6600x(13)=16.08841206379092_p 6601w(13)=1.895935823459097e-7_p 6602x(14)=17.7153411295713_p 6603w(14)=2.773486976551175e-8_p 6604x(15)=18.7436119273383_p 6605w(15)=4.705277727976862e-9_p 6606else if(N==16)then 6607x(1)=-9.295535192067050e-1_p 6608w(1)=1.292742911589418e-1_p 6609x(2)=-6.329730723684238e-1_p 6610w(2)=2.681115985618848e-1_p 6611x(3)=-1.148259722135818e-1_p 6612w(3)=3.290398455811329e-1_p 6613x(4)=6.057489196969783e-1_p 6614w(4)=2.882899019536222e-1_p 6615x(5)=1.516690924681293_p 6616w(5)=1.809606178395285e-1_p 6617x(6)=2.618860663639480_p 6618w(6)=8.149836009634433e-2_p 6619x(7)=3.916574004302275_p 6620w(7)=2.723433013800338e-2_p 6621x(8)=5.406113115362635_p 6622w(8)=7.067671879094053e-3_p 6623x(9)=7.072981859227382_p 6624w(9)=1.480572349549227e-3_p 6625x(10)=8.891664744421965_p 6626w(10)=2.589022413279116e-4_p 6627x(11)=10.8221586910848_p 6628w(11)=3.926800060788922e-5_p 6629x(12)=12.80284814468179_p 6630w(12)=5.445126563319528e-6_p 6631x(13)=14.74084076518043_p 6632w(13)=7.435864287343060e-7_p 6633x(14)=16.5027348666966_p 6634w(14)=1.101734725434415e-7_p 6635x(15)=17.91434556132516_p 6636w(15)=1.944424985951861e-8_p 6637x(16)=18.78550955586402_p 6638w(16)=3.784674901500934e-9_p 6639else if(N==17)then 6640x(1)=-9.360117002182947e-1_p 6641w(1)=1.176739164759088e-1_p 6642x(2)=-6.661965744232586e-1_p 6643w(2)=2.470115403149505e-1_p 6644x(3)=-1.933792839309045e-1_p 6645w(3)=3.118297593454030e-1_p 6646x(4)=4.660063914838524e-1_p 6647w(4)=2.883120666480647e-1_p 6648x(5)=1.299753654746841_p 6649w(5)=1.969693971474639e-1_p 6650x(6)=2.306007094305905_p 6651w(6)=9.911703364453633e-2_p 6652x(7)=3.487805081491416_p 6653w(7)=3.765851440437276e-2_p 6654x(8)=4.843126401397447_p 6655w(8)=1.125559825338356e-2_p 6656x(9)=6.361151132912938_p 6657w(9)=2.748033704026851e-3_p 6658x(10)=8.022374991210304_p 6659w(10)=5.653483874073346e-4_p 6660x(11)=9.797297186385917_p 6661w(11)=1.011193504513242e-4_p 6662x(12)=11.64257897339024_p 6663w(12)=1.635093390017397e-5_p 6664x(13)=13.49539133729548_p 6665w(13)=2.519735128083921e-6_p 6666x(14)=15.26721768716696_p 6667w(14)=3.967884109651982e-7_p 6668x(15)=16.84009997217367_p 6669w(15)=6.933181579825713e-8_p 6670x(16)=18.07170436638454_p 6671w(16)=1.433501737023878e-8_p 6672x(17)=18.81797177741195_p 6673w(17)=3.115184866974605e-9_p 6674else 6675call GD(-1) 6676end if 6677end subroutine GF_m1 6678 6679! [0kT;19kT] 6680subroutine GF_0(N,x,w) 6681integer,intent(in)::N 6682real(p),intent(out)::x(N),w(N) 6683if(N==2)then 6684x(1)=6.905331739306666e-1_p 6685w(1)=5.746607594270893e-1_p 6686x(2)=3.592349395695955_p 6687w(2)=1.184864155300597e-1_p 6688else if(N==3)then 6689x(1)=4.839504453798400e-1_p 6690w(1)=4.632934209675443e-1_p 6691x(2)=2.446209610749050_p 6692w(2)=2.208037972057484e-1_p 6693x(3)=6.422516098473507_p 6694w(3)=9.049956783856214e-3_p 6695else if(N==4)then 6696x(1)=3.704701976393611e-1_p 6697w(1)=3.819025721909884e-1_p 6698x(2)=1.871343037765604_p 6699w(2)=2.766361546538804e-1_p 6700x(3)=4.649534392604974_p 6701w(3)=3.411303022860532e-2_p 6702x(4)=9.471904092642738_p 6703w(4)=4.954178836747553e-4_p 6704else if(N==5)then 6705x(1)=2.973138793503305e-1_p 6706w(1)=3.210183995286234e-1_p 6707x(2)=1.508187887709417_p 6708w(2)=3.011362119536685e-1_p 6709x(3)=3.670604324510461_p 6710w(3)=6.744272889246941e-2_p 6711x(4)=7.086043610836327_p 6712w(4)=3.523002755195559e-3_p 6713x(5)=12.44733524814493_p 6714w(5)=2.683182719206772e-5_p 6715else if(N==6)then 6716x(1)=2.447225161876167e-1_p 6717w(1)=2.729610065620222e-1_p 6718x(2)=1.247519961038608_p 6719w(2)=3.065773802732260e-1_p 6720x(3)=3.008202914993009_p 6721w(3)=1.022786753905806e-1_p 6722x(4)=5.665964608116967_p 6723w(4)=1.098329307648023e-2_p 6724x(5)=9.480440895175423_p 6725w(5)=3.446175831108863e-4_p 6726x(6)=14.86309252156657_p 6727w(6)=2.202071728948420e-6_p 6728else if(N==7)then 6729x(1)=2.048168248334665e-1_p 6730w(1)=2.340376612987102e-1_p 6731x(2)=1.048917685799166_p 6732w(2)=3.002096045295576e-1_p 6733x(3)=2.519475338876966_p 6734w(3)=1.338234040547150e-1_p 6735x(4)=4.680011793727775_p 6736w(4)=2.341475405005439e-2_p 6737x(5)=7.658286200050024_p 6738w(5)=1.620372392327419e-3_p 6739x(6)=11.59589502019228_p 6740w(6)=4.102467973808161e-5_p 6741x(7)=16.44928818371998_p 6742w(7)=3.539520462148545e-7_p 6743else if(N==8)then 6744x(1)=1.738051826373538e-1_p 6745w(1)=2.023030353668862e-1_p 6746x(2)=8.936991540011056e-1_p 6747w(2)=2.869650268664927e-1_p 6748x(3)=2.144430688942713_p 6749w(3)=1.591578045519100e-1_p 6750x(4)=3.950710566271044_p 6751w(4)=3.978690205969335e-2_p 6752x(5)=6.383625953130782_p 6753w(5)=4.668567504803891e-3_p 6754x(6)=9.505416153548842_p 6755w(6)=2.590014172394745e-4_p 6756x(7)=13.31998906845795_p 6757w(7)=6.735419896903783e-6_p 6758x(8)=17.3736977383336_p 6759w(8)=1.017702263762232e-7_p 6760else if(N==9)then 6761x(1)=1.492817431116379e-1_p 6762w(1)=1.762789255007720e-1_p 6763x(2)=7.702334509887308e-1_p 6764w(2)=2.702384891584775e-1_p 6765x(3)=1.849062007901433_p 6766w(3)=1.773871307131908e-1_p 6767x(4)=3.390096090747942_p 6768w(4)=5.821838052503269e-2_p 6769x(5)=5.434547531642766_p 6770w(5)=1.003096751652419e-2_p 6771x(6)=8.014983979556979_p 6772w(6)=9.423553361307993e-4_p 6773x(7)=11.1287683078767_p 6774w(7)=4.932189292487836e-5_p 6775x(8)=14.6474990991232_p 6776w(8)=1.561374606185345e-6_p 6777x(9)=17.90542966246888_p 6778w(9)=4.293948978057138e-8_p 6779else if(N==10)then 6780x(1)=1.295781976553215e-1_p 6781w(1)=1.547718188373707e-1_p 6782x(2)=6.704905948084662e-1_p 6783w(2)=2.521908824248354e-1_p 6784x(3)=1.611597462817635_p 6785w(3)=1.889555332835944e-1_p 6786x(4)=2.946756300491920_p 6787w(4)=7.679251454415223e-2_p 6788x(5)=4.699348369539152_p 6789w(5)=1.776227760227237e-2_p 6790x(6)=6.888673146253121_p 6791w(6)=2.452559580979846e-3_p 6792x(7)=9.509081656777916_p 6793w(7)=2.094258807633835e-4_p 6794x(8)=12.49995113989683_p 6795w(8)=1.164743540734069e-5_p 6796x(9)=15.63558718331812_p 6797w(9)=4.924485770852837e-7_p 6798x(10)=18.22368928700278_p 6799w(10)=2.291919616525669e-8_p 6800else if(N==11)then 6801x(1)=1.135185062112289e-1_p 6802w(1)=1.368466835749561e-1_p 6803x(2)=5.887974066051064e-1_p 6804w(2)=2.341104159253021e-1_p 6805x(3)=1.417445158999612_p 6806w(3)=1.949189438970499e-1_p 6807x(4)=2.588338919444817_p 6808w(4)=9.401142169449433e-2_p 6809x(5)=4.113523443430173_p 6810w(5)=2.747030857497822e-2_p 6811x(6)=6.005230200083021_p 6812w(6)=5.103895281623965e-3_p 6813x(7)=8.257575300564781_p 6814w(7)=6.283838017160946e-4_p 6815x(8)=10.83356260012493_p 6816w(8)=5.348825760660848e-5_p 6817x(9)=13.62649532596119_p 6818w(9)=3.420826586185444e-6_p 6819x(10)=16.36141794682866_p 6820w(10)=1.989585513266267e-7_p 6821x(11)=18.42455722973056_p 6822w(11)=1.416428412892464e-8_p 6823else if(N==12)then 6824x(1)=1.002607572230322e-1_p 6825w(1)=1.217808058335318e-1_p 6826x(2)=5.210713254118001e-1_p 6827w(2)=2.167184101520191e-1_p 6828x(3)=1.256476011510917_p 6829w(3)=1.964848782213873e-1_p 6830x(4)=2.293421080453301_p 6831w(4)=1.089288347157258e-1_p 6832x(5)=3.636588907108521_p 6833w(5)=3.848959733124228e-2_p 6834x(6)=5.293761417332346_p 6835w(6)=9.065571630472453e-3_p 6836x(7)=7.259880620632909_p 6837w(7)=1.485690070992833e-3_p 6838x(8)=9.509351135966039_p 6839w(8)=1.761040270496851e-4_p 6840x(9)=11.98036730158791_p 6841w(9)=1.595023898259691e-5_p 6842x(10)=14.53655001585746_p 6843w(10)=1.226036880043939e-6_p 6844x(11)=16.89561848706769_p 6845w(11)=9.706628689016904e-8_p 6846x(12)=18.55789260430931_p 6847w(12)=9.632578126245564e-9_p 6848else if(N==13)then 6849x(1)=8.919135688480458e-2_p 6850w(1)=1.090157505584774e-1_p 6851x(2)=4.643177729832831e-1_p 6852w(2)=2.003839306264530e-1_p 6853x(3)=1.121437549207718_p 6854w(3)=1.947777195778073e-1_p 6855x(4)=2.047226449426275_p 6856w(4)=1.210977224558005e-1_p 6857x(5)=3.241617375992109_p 6858w(5)=5.007110164721961e-2_p 6859x(6)=4.709225881143415_p 6860w(6)=1.432546210189651e-2_p 6861x(7)=6.446005805024344_p 6862w(7)=2.957244543077879e-3_p 6863x(8)=8.433151495417746_p 6864w(8)=4.569946687969471e-4_p 6865x(9)=10.63007652818565_p 6866w(9)=5.512171976175311e-5_p 6867x(10)=12.9574699595366_p 6868w(10)=5.544339964823433e-6_p 6869x(11)=15.26591502247315_p 6870w(11)=5.212230612266947e-7_p 6871x(12)=17.29305456024271_p 6872w(12)=5.449949216901551e-8_p 6873x(13)=18.6503474503946_p 6874w(13)=6.995339804313948e-9_p 6875else if(N==14)then 6876x(1)=7.985521427200439e-2_p 6877w(1)=9.811783300633861e-2_p 6878x(2)=4.163008391085051e-1_p 6879w(2)=1.852639681902399e-1_p 6880x(3)=1.006998794554465_p 6881w(3)=1.907447417811139e-1_p 6882x(4)=1.839216990497347_p 6883w(4)=1.304441617073320e-1_p 6884x(5)=2.909911230545103_p 6885w(5)=6.152497634885699e-2_p 6886x(6)=4.221298762674268_p 6887w(6)=2.070964540779361e-2_p 6888x(7)=5.770171982366957_p 6889w(7)=5.174019852929939e-3_p 6890x(8)=7.542305203395682_p 6891w(8)=9.939011764316193e-4_p 6892x(9)=9.508872033929105_p 6893w(9)=1.520161049706003e-4_p 6894x(10)=11.61841289789436_p 6895w(10)=1.939641261968467e-5_p 6896x(11)=13.78171613139257_p 6897w(11)=2.220516039258249e-6_p 6898x(12)=15.84975267238528_p 6899w(12)=2.551583922478092e-7_p 6900x(13)=17.59322988157192_p 6901w(13)=3.396860864513888e-8_p 6902x(14)=18.71685320847784_p 6903w(14)=5.325481924768177e-9_p 6904else if(N==15)then 6905x(1)=7.190929583886871e-2_p 6906w(1)=8.874782355166662e-2_p 6907x(2)=3.753242577805214e-1_p 6908w(2)=1.713918319179331e-1_p 6909x(3)=9.091542521236080e-1_p 6910w(3)=1.851380195095902e-1_p 6911x(4)=1.661665828167194_p 6912w(4)=1.371345138852597e-1_p 6913x(5)=2.628047684850604_p 6914w(5)=7.230055085035371e-2_p 6915x(6)=3.808672855830422_p 6916w(6)=2.793343225499190e-2_p 6917x(7)=5.200899376669986_p 6918w(7)=8.195709950391854e-3_p 6919x(8)=6.793794356956193_p 6920w(8)=1.888608225468999e-3_p 6921x(9)=8.565851288683342_p 6922w(9)=3.525810045701874e-4_p 6923x(10)=10.48104095290955_p 6924w(10)=5.527502233507487e-5_p 6925x(11)=12.48102819907138_p 6926w(11)=7.653491699034637e-6_p 6927x(12)=14.47347368652703_p 6928w(12)=1.008167089880467e-6_p 6929x(13)=16.31866242410595_p 6930w(13)=1.400290091947120e-7_p 6931x(14)=17.8237140995017_p 6932w(14)=2.289720446936090e-8_p 6933x(15)=18.76618793954676_p 6934w(15)=4.199585046117918e-9_p 6935else if(N==16)then 6936x(1)=6.509120108843351e-2_p 6937w(1)=8.063824396435722e-2_p 6938x(2)=3.400826891482172e-1_p 6939w(2)=1.587316868324821e-1_p 6940x(3)=8.248383763439704e-1_p 6941w(3)=1.785314930537908e-1_p 6942x(4)=1.508773354908028_p 6943w(4)=1.414661593370516e-1_p 6944x(5)=2.386128796253338_p 6945w(5)=8.201318070701637e-2_p 6946x(6)=3.455879059467300_p 6947w(6)=3.566009021991127e-2_p 6948x(7)=4.715693244809043_p 6949w(7)=1.200360959265442e-2_p 6950x(8)=6.157067920456448_p 6951w(8)=3.228843404451817e-3_p 6952x(9)=7.763451058849680_p 6953w(9)=7.141098090793675e-4_p 6954x(10)=9.508234107440156_p 6955w(10)=1.337558659085907e-4_p 6956x(11)=11.35059719213577_p 6957w(11)=2.202801852044366e-5_p 6958x(12)=13.22901122446325_p 6959w(12)=3.360138009714064e-6_p 6960x(13)=15.05321442229359_p 6961w(13)=5.099976902162363e-7_p 6962x(14)=16.69759722018542_p 6963w(14)=8.423136432901630e-8_p 6964x(15)=18.00360589451828_p 6965w(15)=1.638189572298315e-8_p 6966x(16)=18.80374593289755_p 6967w(16)=3.402964883889926e-9_p 6968else if(N==17)then 6969x(1)=5.919750970799958e-2_p 6970w(1)=7.357645009714250e-2_p 6971x(2)=3.095586710672094e-1_p 6972w(2)=1.472116389396766e-1_p 6973x(3)=7.516679645845592e-1_p 6974w(3)=1.713505691661745e-1_p 6975x(4)=1.376099080310753_p 6976w(4)=1.437895107830286e-1_p 6977x(5)=2.176691311659191_p 6978w(5)=9.043595876876000e-2_p 6979x(6)=3.151391338465662_p 6980w(6)=4.355171820697055e-2_p 6981x(7)=4.297986582534194_p 6982w(7)=1.650943221011936e-2_p 6983x(8)=5.609774214097552_p 6984w(8)=5.073722107302746e-3_p 6985x(9)=7.073755305154719_p 6986w(9)=1.298252202927414e-3_p 6987x(10)=8.669526854818383_p 6988w(10)=2.837724447374902e-4_p 6989x(11)=10.36703830026209_p 6990w(11)=5.457584287997865e-5_p 6991x(12)=12.12285270586889_p 6992w(12)=9.597252158330723e-6_p 6993x(13)=13.87530526170302_p 6994w(13)=1.624539499008285e-6_p 6995x(14)=15.53968032091651_p 6996w(14)=2.827682736966062e-7_p 6997x(15)=17.00620030047868_p 6998w(15)=5.453691062668148e-8_p 6999x(16)=18.14620237460127_p 7000w(16)=1.227305895473735e-8_p 7001x(17)=18.83297470660069_p 7002w(17)=2.817528584880869e-9_p 7003else 7004call GD(0) 7005end if 7006end subroutine GF_0 7007 7008! [1kT;19kT] 7009subroutine GF_1(N,x,w) 7010integer,intent(in)::N 7011real(p),intent(out)::x(N),w(N) 7012if(N==2)then 7013x(1)=1.631813848627812_p 7014w(1)=2.640303401037254e-1_p 7015x(2)=4.490253531420829_p 7016w(2)=4.923134181170098e-2_p 7017else if(N==3)then 7018x(1)=1.445954392622900_p 7019w(1)=2.167663228795516e-1_p 7020x(2)=3.358539563698049_p 7021w(2)=9.288406404150160e-2_p 7022x(3)=7.343778684992558_p 7023w(3)=3.611294994373277e-3_p 7024else if(N==4)then 7025x(1)=1.343209463754137_p 7026w(1)=1.812325353935905e-1_p 7027x(2)=2.794971808667003_p 7028w(2)=1.181536252653354e-1_p 7029x(3)=5.569953626513050_p 7030w(3)=1.367726722663282e-2_p 7031x(4)=10.38324057323769_p 7032w(4)=1.982540298676728e-4_p 7033else if(N==5)then 7034x(1)=1.276100166880076_p 7035w(1)=1.538275506507240e-1_p 7036x(2)=2.439113136001021_p 7037w(2)=1.306355998006909e-1_p 7038x(3)=4.584281941660849_p 7039w(3)=2.735730490697764e-2_p 7040x(4)=7.979393451554877_p 7041w(4)=1.429564291060029e-3_p 7042x(5)=13.25184200790301_p 7043w(5)=1.166226597374547e-5_p 7044else if(N==6)then 7045x(1)=1.227434814495587_p 7046w(1)=1.316963291189970e-1_p 7047x(2)=2.184503649460865_p 7048w(2)=1.349151726690595e-1_p 7049x(3)=3.917174131205889_p 7050w(3)=4.199875451373839e-2_p 7051x(4)=6.546816739327697_p 7052w(4)=4.500821373763127e-3_p 7053x(5)=10.29089872168048_p 7054w(5)=1.494626835641673e-4_p 7055x(6)=15.446217381555_p 7056w(6)=1.141556304285119e-6_p 7057else if(N==7)then 7058x(1)=1.190467427734751_p 7059w(1)=1.135458203364087e-1_p 7060x(2)=1.992234330529479_p 7061w(2)=1.338256584150125e-1_p 7062x(3)=3.428833158680870_p 7063w(3)=5.554401905831735e-2_p 7064x(4)=5.557807553870174_p 7065w(4)=9.628375593611575e-3_p 7066x(5)=8.476004838886775_p 7067w(5)=6.978786792177091e-4_p 7068x(6)=12.28546878621478_p 7069w(6)=1.970975301073939e-5_p 7070x(7)=16.81509293488769_p 7071w(7)=2.200798477894579e-7_p 7072else if(N==8)then 7073x(1)=1.161752481223603_p 7074w(1)=9.861843156761539e-2_p 7075x(2)=1.843243354678502_p 7076w(2)=1.294189503554939e-1_p 7077x(3)=3.057464450438402_p 7078w(3)=6.672953992873568e-2_p 7079x(4)=4.830681851235048_p 7080w(4)=1.637961432279315e-2_p 7081x(5)=7.211271548432119_p 7082w(5)=1.991553816464629e-3_p 7083x(6)=10.23913258488969_p 7084w(6)=1.198914163629451e-4_p 7085x(7)=13.877782980697_p 7086w(7)=3.628429594873744e-6_p 7087x(8)=17.5958434465061_p 7088w(8)=7.207836581625880e-8_p 7089else if(N==9)then 7090x(1)=1.139043215897227_p 7091w(1)=8.628514561514926e-2_p 7092x(2)=1.725482188867127_p 7093w(2)=1.231614037090847e-1_p 7094x(3)=2.767303690810469_p 7095w(3)=7.512412416554304e-2_p 7096x(4)=4.274574868939434_p 7097w(4)=2.400031021702335e-2_p 7098x(5)=6.272439197296830_p 7099w(5)=4.239858490185841e-3_p 7100x(6)=8.777370471526417_p 7101w(6)=4.250585353451851e-4_p 7102x(7)=11.76826157356278_p 7103w(7)=2.481112851677551e-5_p 7104x(8)=15.08394058247527_p 7105w(8)=9.370324201466825e-7_p 7106x(9)=18.04480017360603_p 7107w(9)=3.302215814825274e-8_p 7108else if(N==10)then 7109x(1)=1.120788164543728_p 7110w(1)=7.602539480171072e-2_p 7111x(2)=1.630786942259278_p 7112w(2)=1.160247964776294e-1_p 7113x(3)=2.535615268365438_p 7114w(3)=8.083373374877745e-2_p 7115x(4)=3.836802899466273_p 7116w(4)=3.173594008048376e-2_p 7117x(5)=5.547028615647992_p 7118w(5)=7.450013732469325e-3_p 7119x(6)=7.672739359026313_p 7120w(6)=1.084195158435273e-3_p 7121x(7)=10.19740018663407_p 7122w(7)=1.008875932227789e-4_p 7123x(8)=13.04502165127478_p 7124w(8)=6.377988774413294e-6_p 7125x(9)=15.9720999780679_p 7126w(9)=3.237724127861963e-7_p 7127x(10)=18.31574060777263_p 7128w(10)=1.856151052483859e-8_p 7129else if(N==11)then 7130x(1)=1.105899046083166_p 7131w(1)=6.742543299962495e-2_p 7132x(2)=1.553491979745550_p 7133w(2)=1.086193016125859e-1_p 7134x(3)=2.347297440036587_p 7135w(3)=8.422055972746417e-2_p 7136x(4)=3.484418733547312_p 7137w(4)=3.899851511528946e-2_p 7138x(5)=4.970371369932623_p 7139w(5)=1.145486619568837e-2_p 7140x(6)=6.806874235166456_p 7141w(6)=2.219870461533900e-3_p 7142x(7)=8.980240016589009_p 7143w(7)=2.933348081239585e-4_p 7144x(8)=11.44509864102948_p 7145w(8)=2.762020987388626e-5_p 7146x(9)=14.08440383554209_p 7147w(9)=2.028303126968101e-6_p 7148x(10)=16.62091834154563_p 7149w(10)=1.406181439615154e-7_p 7150x(11)=18.48848587236289_p 7151w(11)=1.186397089755396e-8_p 7152else if(N==12)then 7153x(1)=1.093598532702206_p 7154w(1)=6.016131251968691e-2_p 7155x(2)=1.489574083753077_p 7156w(2)=1.013110976348016e-1_p 7157x(3)=2.191949481755127_p 7158w(3)=8.572638058409651e-2_p 7159x(4)=3.195671955889746_p 7160w(4)=4.541032008774661e-2_p 7161x(5)=4.501995822626450_p 7162w(5)=1.598785646028305e-2_p 7163x(6)=6.110217571743399_p 7164w(6)=3.891167602269390e-3_p 7165x(7)=8.008916502396863_p 7166w(7)=6.766840517582580e-4_p 7167x(8)=10.16723708045474_p 7168w(8)=8.718358132456683e-5_p 7169x(9)=12.51734937875108_p 7170w(9)=8.818662192925605e-6_p 7171x(10)=14.91851102059775_p 7172w(10)=7.799537378936045e-7_p 7173x(11)=17.09760217523247_p 7174w(11)=7.252221370411562e-8_p 7175x(12)=18.60426015459949_p 7176w(12)=8.255314945847062e-9_p 7177else if(N==13)then 7178x(1)=1.083320597293785_p 7179w(1)=5.397985761191652e-2_p 7180x(2)=1.436112307144008_p 7181w(2)=9.430818908767510e-2_p 7182x(3)=2.062181553485987_p 7183w(3)=8.577922394995535e-2_p 7184x(4)=2.955585516593063_p 7185w(4)=5.078123765742686e-2_p 7186x(5)=4.115028379594556_p 7187w(5)=2.075734141667779e-2_p 7188x(6)=5.538477210179138_p 7189w(6)=6.083867694402540e-3_p 7190x(7)=7.216363949937544_p 7191w(7)=1.320327371365389e-3_p 7192x(8)=9.126079675899426_p 7193w(8)=2.190089133930440e-4_p 7194x(9)=11.22331684093656_p 7195w(9)=2.895982403883784e-5_p 7196x(10)=13.42545987954373_p 7197w(10)=3.267748980909823e-6_p 7198x(11)=15.58414288626217_p 7199w(11)=3.520678030703106e-7_p 7200x(12)=17.45245496456061_p 7201w(12)=4.247814672496889e-8_p 7202x(13)=18.68521740514987_p 7203w(13)=6.093644274348274e-9_p 7204else if(N==14)then 7205x(1)=1.074645523187998_p 7206w(1)=4.868250200790795e-2_p 7207x(2)=1.390943366781651_p 7208w(2)=8.771866482900785e-2_p 7209x(3)=1.952603568293427_p 7210w(3)=8.475233206411679e-2_p 7211x(4)=2.753493707134606_p 7212w(4)=5.506170809384819e-2_p 7213x(5)=3.790825455483410_p 7214w(5)=2.549864186497081e-2_p 7215x(6)=5.061804465508492_p 7216w(6)=8.722328100232020e-3_p 7217x(7)=6.558352183094433_p 7218w(7)=2.272336834104275e-3_p 7219x(8)=8.263137090963031_p 7220w(8)=4.640005528211133e-4_p 7221x(9)=10.1448434240587_p 7222w(9)=7.677452593931085e-5_p 7223x(10)=12.14974600403757_p 7224w(10)=1.079327649487600e-5_p 7225x(11)=14.18802718521327_p 7226w(11)=1.386546666734376e-6_p 7227x(12)=16.1156665602147_p 7228w(12)=1.811782167129806e-7_p 7229x(13)=17.72096827381568_p 7230w(13)=2.734592434330536e-8_p 7231x(14)=18.743874360848_p 7232w(14)=4.695175433831597e-9_p 7233else if(N==15)then 7234x(1)=1.067256901006890_p 7235w(1)=4.411259285348685e-2_p 7236x(2)=1.352436737033679_p 7237w(2)=8.158889883994837e-2_p 7238x(3)=1.859196294821094_p 7239w(3)=8.295219867475082e-2_p 7240x(4)=2.581589889243571_p 7241w(4)=5.829466436929996e-2_p 7242x(5)=3.516007512374235_p 7243w(5)=3.000108688167379e-2_p 7244x(6)=4.659219191142175_p 7245w(6)=1.169166570668100e-2_p 7246x(7)=6.004323967553901_p 7247w(7)=3.550623510595354e-3_p 7248x(8)=7.537635914631938_p 7249w(8)=8.627754138313316e-4_p 7250x(9)=9.235810925409154_p 7251w(9)=1.724911805013799e-4_p 7252x(10)=11.06126979319787_p 7253w(10)=2.940147455027106e-5_p 7254x(11)=12.95487286929849_p 7255w(11)=4.494350601050499e-6_p 7256x(12)=14.8259372838305_p 7257w(12)=6.624171899258470e-7_p 7258x(13)=16.54210286690352_p 7259w(13)=1.036065694364748e-7_p 7260x(14)=17.92765204299601_p 7261w(14)=1.889909712564582e-8_p 7262x(15)=18.78765530241051_p 7263w(15)=3.736649749147850e-9_p 7264else if(N==16)then 7265x(1)=1.060912615318509_p 7266w(1)=4.014568670074679e-2_p 7267x(2)=1.319344210544370_p 7268w(2)=7.592810522431942e-2_p 7269x(3)=1.778905915668882_p 7270w(3)=8.062097065462034e-2_p 7271x(4)=2.434028157489457_p 7272w(4)=6.057621343979930e-2_p 7273x(5)=3.280708737262382_p 7274w(5)=3.411577509931606e-2_p 7275x(6)=4.315486824211368_p 7276w(6)=1.486076535759931e-2_p 7277x(7)=5.532384398371803_p 7278w(7)=5.142127063973172e-3_p 7279x(8)=6.920358350016357_p 7280w(8)=1.448369179666340e-3_p 7281x(9)=8.461350775651823_p 7282w(9)=3.402619287702937e-4_p 7283x(10)=10.12765276063833_p 7284w(10)=6.858854952677657e-5_p 7285x(11)=11.87776175662386_p 7286w(11)=1.231439328530554e-5_p 7287x(12)=13.65066418122126_p 7288w(12)=2.072779139100780e-6_p 7289x(13)=15.35938333055775_p 7290w(13)=3.502431794405238e-7_p 7291x(14)=16.88666986375715_p 7292w(14)=6.446359726469430e-8_p 7293x(15)=18.08940305585524_p 7294w(15)=1.378821124246684e-8_p 7295x(16)=18.82116109702171_p 7296w(16)=3.049676245546755e-9_p 7297else if(N==17)then 7298x(1)=1.055424884902425_p 7299w(1)=3.668220148081447e-2_p 7300x(2)=1.290696945907771_p 7301w(2)=7.072391066593432e-2_p 7302x(3)=1.709374326966801_p 7303w(3)=7.794481963158115e-2_p 7304x(4)=2.306345479425003_p 7305w(4)=6.202725007543931e-2_p 7306x(5)=3.077489829363734_p 7307w(5)=3.775146763673846e-2_p 7308x(6)=4.019253442036727_p 7309w(6)=1.810081422399683e-2_p 7310x(7)=5.126382106319991_p 7311w(7)=7.007891589977563e-3_p 7312x(8)=6.389808115545874_p 7313w(8)=2.241004673058711e-3_p 7314x(9)=7.795185373887230_p 7315w(9)=6.049488861081219e-4_p 7316x(10)=9.321274897760865_p 7317w(10)=1.411452609965795e-4_p 7318x(11)=10.9375025761361_p 7319w(11)=2.930107171108586e-5_p 7320x(12)=12.60055274726682_p 7321w(12)=5.621503976532436e-6_p 7322x(13)=14.25033336084291_p 7323w(13)=1.047551372100370e-6_p 7324x(14)=15.80640532251862_p 7325w(14)=2.017198365267385e-7_p 7326x(15)=17.16742204923956_p 7327w(15)=4.291295469030446e-8_p 7328x(16)=18.21796695540936_p 7329w(16)=1.049132741291399e-8_p 7330x(17)=18.84735466490294_p 7331w(17)=2.539602559206437e-9_p 7332else 7333call GD(1) 7334end if 7335end subroutine GF_1 7336 7337! [2kT;19kT] 7338subroutine GF_2(N,x,w) 7339integer,intent(in)::N 7340real(p),intent(out)::x(N),w(N) 7341if(N==2)then 7342x(1)=2.604143119627001_p 7343w(1)=1.077971013530677e-1_p 7344x(2)=5.444035183381478_p 7345w(2)=1.913090408710841e-2_p 7346else if(N==3)then 7347x(1)=2.427642721622487_p 7348w(1)=8.925116174242829e-2_p 7349x(2)=4.318109749390539_p 7350w(2)=3.629611688182816e-2_p 7351x(3)=8.305658468727675_p 7352w(3)=1.380726815919618e-3_p 7353else if(N==4)then 7354x(1)=2.329495696854081_p 7355w(1)=7.506841360519480e-2_p 7356x(2)=3.757158908493430_p 7357w(2)=4.651914242207328e-2_p 7358x(3)=6.524871035563937_p 7359w(3)=5.262908001147271e-3_p 7360x(4)=11.31320562092558_p 7361w(4)=7.754141176072218e-5_p 7362else if(N==5)then 7363x(1)=2.264695395592952_p 7364w(1)=6.390372949243014e-2_p 7365x(2)=3.401252338138191_p 7366w(2)=5.181809920863015e-2_p 7367x(3)=5.527767253630419_p 7368w(3)=1.063226631853860e-2_p 7369x(4)=8.887121096513837_p 7370w(4)=5.687834317103667e-4_p 7371x(5)=14.031801035492_p 7372w(5)=5.126988866797673e-6_p 7373else if(N==6)then 7374x(1)=2.217555610523636_p 7375w(1)=5.478469610145827e-2_p 7376x(2)=3.147265143506018_p 7377w(2)=5.383575659353015e-2_p 7378x(3)=4.853813636449682_p 7379w(3)=1.643755348423429e-2_p 7380x(4)=7.443096288787328_p 7381w(4)=1.804720388316599e-3_p 7382x(5)=11.09656416981627_p 7383w(5)=6.466781539173498e-5_p 7384x(6)=15.98032486342602_p 7385w(6)=6.110572450293249e-7_p 7386else if(N==7)then 7387x(1)=2.181866283479671_p 7388w(1)=4.728242132842879e-2_p 7389x(2)=2.957050192547042_p 7390w(2)=5.365515451029623e-2_p 7391x(3)=4.364240033685091_p 7392w(3)=2.182278254115551e-2_p 7393x(4)=6.452763625190970_p 7394w(4)=3.860118796414615e-3_p 7395x(5)=9.297065986975165_p 7396w(5)=2.978314329825359e-4_p 7397x(6)=12.95747856510287_p 7398w(6)=9.556144533784307e-6_p 7399x(7)=17.14079772231177_p 7400w(7)=1.406863646095014e-7_p 7401else if(N==8)then 7402x(1)=2.154241828278633_p 7403w(1)=4.110315326120836e-2_p 7404x(2)=2.810767141945850_p 7405w(2)=5.209775663400992e-2_p 7406x(3)=3.994685774573172_p 7407w(3)=2.628439146327678e-2_p 7408x(4)=5.728854746070730_p 7409w(4)=6.546791822586500e-3_p 7410x(5)=8.046471043528653_p 7411w(5)=8.383939356337168e-4_p 7412x(6)=10.96686195970585_p 7413w(6)=5.548314482938183e-5_p 7414x(7)=14.41251894708202_p 7415w(7)=1.983247108868664e-6_p 7416x(8)=17.79304448909053_p 7417w(8)=5.193152255506591e-8_p 7418else if(N==9)then 7419x(1)=2.132450383379877_p 7420w(1)=3.599037321328660e-2_p 7421x(2)=2.695820863169199_p 7422w(2)=4.975443402593575e-2_p 7423x(3)=3.707700473492981_p 7424w(3)=2.965698958178302e-2_p 7425x(4)=5.177685812254740_p 7426w(4)=9.559527922561125e-3_p 7427x(5)=7.120405694616983_p 7428w(5)=1.762826961071872e-3_p 7429x(6)=9.539637125669431_p 7430w(6)=1.907061653702100e-4_p 7431x(7)=12.3956405452814_p 7432w(7)=1.255114992748515e-5_p 7433x(8)=15.49767068502912_p 7434w(8)=5.707902723287687e-7_p 7435x(9)=18.16951710126919_p 7436w(9)=2.562996769552942e-8_p 7437else if(N==10)then 7438x(1)=2.114965976781062_p 7439w(1)=3.173147927397960e-2_p 7440x(2)=2.603810915026021_p 7441w(2)=4.701920579359251e-2_p 7442x(3)=3.479726844237804_p 7443w(3)=3.198269079717940e-2_p 7444x(4)=4.745447771475208_p 7445w(4)=1.260300778561694e-2_p 7446x(5)=6.406435671036551_p 7447w(5)=3.064132057074621e-3_p 7448x(6)=8.460239997629275_p 7449w(6)=4.751273618669538e-4_p 7450x(7)=10.87998436903105_p 7451w(7)=4.860907673800069e-5_p 7452x(8)=13.57504951240242_p 7453w(8)=3.522625343705183e-6_p 7454x(9)=16.28921834600352_p 7455w(9)=2.155710431974450e-7_p 7456x(10)=18.39900355049947_p 7457w(10)=1.509774115175660e-8_p 7458else if(N==11)then 7459x(1)=2.100726308609973_p 7460w(1)=2.815737309431880e-2_p 7461x(2)=2.528982650594937_p 7462w(2)=4.414230548169555e-2_p 7463x(3)=3.295251702563915_p 7464w(3)=3.340078902925091e-2_p 7465x(4)=4.398706779705251_p 7466w(4)=1.545277884358163e-2_p 7467x(5)=5.840048002075067_p 7468w(5)=4.668092989036987e-3_p 7469x(6)=7.614343986141407_p 7470w(6)=9.545693982643312e-4_p 7471x(7)=9.701261731479104_p 7472w(7)=1.364568203411937e-4_p 7473x(8)=12.04731312086309_p 7474w(8)=1.431556416111504e-5_p 7475x(9)=14.52681235370107_p 7476w(9)=1.213932343199177e-6_p 7477x(10)=16.86500097133897_p 7478w(10)=1.003353236533227e-7_p 7479x(11)=18.54691239973017_p 7480w(11)=9.951858688325613e-9_p 7481else if(N==12)then 7482x(1)=2.088976270482422_p 7483w(1)=2.513537003025864e-2_p 7484x(2)=2.467289017696654_p 7485w(2)=4.127643386118985e-2_p 7486x(3)=3.143661234195682_p 7487w(3)=3.408044333246046e-2_p 7488x(4)=4.115478599560789_p 7489w(4)=1.796789012541928e-2_p 7490x(5)=5.380929008368796_p 7491w(5)=6.465685276321757e-3_p 7492x(6)=6.934209806266375_p 7493w(6)=1.647231968510041e-3_p 7494x(7)=8.759138520100173_p 7495w(7)=3.063168498545402e-4_p 7496x(8)=10.81986187806582_p 7497w(8)=4.316859716587281e-5_p 7498x(9)=13.0431753485664_p 7499w(9)=4.903259610596717e-6_p 7500x(10)=15.28600446509222_p 7501w(10)=5.005202791992346e-7_p 7502x(11)=17.28770697275117_p 7503w(11)=5.454591482618488e-8_p 7504x(12)=18.64702371887799_p 7505w(12)=7.073191010838194e-9_p 7506else if(N==13)then 7507x(1)=2.079167906159324_p 7508w(1)=2.256152779201149e-2_p 7509x(2)=2.415814403081302_p 7510w(2)=3.851051654888819e-2_p 7511x(3)=3.017457595152639_p 7512w(3)=3.418557141651046e-2_p 7513x(4)=3.880668381269216_p 7514w(4)=2.007930195555930e-2_p 7515x(5)=5.002342295948226_p 7516w(5)=8.342451564941511e-3_p 7517x(6)=6.376524699613483_p 7518w(6)=2.541881921006905e-3_p 7519x(7)=7.989974724130758_p 7520w(7)=5.845920720962122e-4_p 7521x(8)=9.816705843812683_p 7522w(8)=1.046926888445051e-4_p 7523x(9)=11.80897084128416_p 7524w(9)=1.525315909729309e-5_p 7525x(10)=13.88177439231499_p 7526w(10)=1.938187623788713e-6_p 7527x(11)=15.88960850015053_p 7528w(11)=2.395809109380859e-7_p 7529x(12)=17.60278431239465_p 7530w(12)=3.325149968068771e-8_p 7531x(13)=18.71762728254193_p 7532w(13)=5.301185806593774e-9_p 7533else if(N==14)then 7534x(1)=2.070895979597577_p 7535w(1)=2.035414763294041e-2_p 7536x(2)=2.372413280123020_p 7537w(2)=3.589273841388371e-2_p 7538x(3)=2.911201187121260_p 7539w(3)=3.385952338638409e-2_p 7540x(4)=3.683552616744585_p 7541w(4)=2.177057481005478e-2_p 7542x(5)=4.685758300922546_p 7543w(5)=1.019755751824232e-2_p 7544x(6)=5.912037204016373_p 7545w(6)=3.604288913817243e-3_p 7546x(7)=7.351353788216918_p 7547w(7)=9.877308712718941e-4_p 7548x(8)=8.983896241012047_p 7549w(8)=2.156134578737548e-4_p 7550x(9)=10.77603644460622_p 7551w(9)=3.877442484971880e-5_p 7552x(10)=12.67222662052225_p 7553w(10)=6.029212919525086e-6_p 7554x(11)=14.5830026334165_p 7555w(11)=8.711855376456922e-7_p 7556x(12)=16.37067695146784_p 7557w(12)=1.294114978013668e-7_p 7558x(13)=17.84175927392236_p 7559w(13)=2.206970053786538e-8_p 7560x(14)=18.76915481284367_p 7561w(14)=4.131202654084522e-9_p 7562else if(N==15)then 7563x(1)=2.063855652820202_p 7564w(1)=1.844865250723622e-2_p 7565x(2)=2.335477217273365_p 7566w(2)=3.344575949941085e-2_p 7567x(3)=2.820856295818093_p 7568w(3)=3.322059992721901e-2_p 7569x(4)=3.516300483311061_p 7570w(4)=2.305927313219384e-2_p 7571x(5)=4.417890994180294_p 7572w(5)=1.195269330553518e-2_p 7573x(6)=5.520164030218367_p 7574w(6)=4.786838747181064e-3_p 7575x(7)=6.813790424090104_p 7576w(7)=1.519507553162458e-3_p 7577x(8)=8.283134532018691_p 7578w(8)=3.916154467169226e-4_p 7579x(9)=9.903206534449840_p 7580w(9)=8.421554425594147e-5_p 7581x(10)=11.63510068687062_p 7582w(10)=1.566517691097581e-5_p 7583x(11)=13.41939427697549_p 7584w(11)=2.650974898414522e-6_p 7585x(12)=15.16788680463375_p 7586w(12)=4.376907876919198e-7_p 7587x(13)=16.7563845875663_p 7588w(13)=7.700104290789059e-8_p 7589x(14)=18.02622167500972_p 7590w(14)=1.561700638032470e-8_p 7591x(15)=18.8078523519971_p 7592w(15)=3.316618207005822e-9_p 7593else if(N==16)then 7594x(1)=2.057814077732712_p 7595w(1)=1.679365707671070e-2_p 7596x(2)=2.303780552504282_p 7597w(2)=3.117658551327199e-2_p 7598x(3)=2.743371072535076_p 7599w(3)=3.236289175892939e-2_p 7600x(4)=3.373061622378338_p 7601w(4)=2.398223604342825e-2_p 7602x(5)=4.188951384928496_p 7603w(5)=1.355376320776743e-2_p 7604x(6)=5.185950416291829_p 7605w(6)=6.037633144561951e-3_p 7606x(7)=6.356077782387701_p 7607w(7)=2.171561258343649e-3_p 7608x(8)=7.686680577687493_p 7609w(8)=6.444937723917867e-4_p 7610x(9)=9.158456661493043_p 7611w(9)=1.615264371655834e-4_p 7612x(10)=10.74272786985344_p 7613w(10)=3.516471653315209e-5_p 7614x(11)=12.39759737705515_p 7615w(11)=6.902581903093755e-6_p 7616x(12)=14.06307057293459_p 7617w(12)=1.284420114845221e-6_p 7618x(13)=15.65607422861214_p 7619w(13)=2.416849357258868e-7_p 7620x(14)=17.06810777602169_p 7621w(14)=4.949190566204189e-8_p 7622x(15)=18.17100404511312_p 7623w(15)=1.160665297480377e-8_p 7624x(16)=18.83762433936321_p 7625w(16)=2.725559887135880e-9_p 7626else if(N==17)then 7627x(1)=2.052590929225798_p 7628w(1)=1.534798139005381e-2_p 7629x(2)=2.276375660393687_p 7630w(2)=2.908289595194983e-2_p 7631x(3)=2.676399302448242_p 7632w(3)=3.135933442274581e-2_p 7633x(4)=3.249380311795606_p 7634w(4)=2.458515917297999e-2_p 7635x(5)=3.991563959772726_p 7636w(5)=1.496847879265000e-2_p 7637x(6)=4.898248066985058_p 7638w(6)=7.307309163682153e-3_p 7639x(7)=5.962534577592256_p 7640w(7)=2.926043956591843e-3_p 7641x(8)=7.173985871209061_p 7642w(8)=9.803748445694077e-4_p 7643x(9)=8.517259006244265_p 7644w(9)=2.804293222985600e-4_p 7645x(10)=9.970387026538058_p 7646w(10)=7.007940883266202e-5_p 7647x(11)=11.50243477273143_p 7648w(11)=1.574791473830599e-5_p 7649x(12)=13.07051530497912_p 7650w(12)=3.303197641369459e-6_p 7651x(13)=14.61653454663854_p 7652w(13)=6.783572582606658e-7_p 7653x(14)=16.06473536723123_p 7654w(14)=1.444626786316210e-7_p 7655x(15)=17.32229108565147_p 7656w(15)=3.383664451394839e-8_p 7657x(16)=18.28641066919328_p 7658w(16)=8.962531003378454e-9_p 7659x(17)=18.86100483984426_p 7660w(17)=2.282329916813044e-9_p 7661else 7662call GD(2) 7663end if 7664end subroutine GF_2 7665 7666! [3kT;19kT] 7667subroutine GF_3(N,x,w) 7668integer,intent(in)::N 7669real(p),intent(out)::x(N),w(N) 7670if(N==2)then 7671x(1)=3.592725710762557_p 7672w(1)=4.139162736582477e-2_p 7673x(2)=6.425195549436530_p 7674w(2)=7.195718605120873e-3_p 7675else if(N==3)then 7676x(1)=3.419834201997312_p 7677w(1)=3.437986446761074e-2_p 7678x(2)=5.300426895027138_p 7679w(2)=1.368962995199228e-2_p 7680x(3)=9.285178049151863_p 7681w(3)=5.178515513426195e-4_p 7682else if(N==4)then 7683x(1)=3.322984506546079_p 7684w(1)=2.894788607456119e-2_p 7685x(2)=4.737089606591363_p 7686w(2)=1.761690825983271e-2_p 7687x(3)=7.491703277787922_p 7688w(3)=1.992184977580204e-3_p 7689x(4)=12.23560145414464_p 7690w(4)=3.036665897153186e-5_p 7691else if(N==5)then 7692x(1)=3.258463455293387_p 7693w(1)=2.460949601182633e-2_p 7694x(2)=4.377377091669094_p 7695w(2)=1.968636030365623e-2_p 7696x(3)=6.480414878461539_p 7697w(3)=4.062769423931740e-3_p 7698x(4)=9.788681082158158_p 7699w(4)=2.263885287101946e-4_p 7700x(5)=14.76193866034519_p 7701w(5)=2.331702821149630e-6_p 7702else if(N==6)then 7703x(1)=3.211584528848660_p 7704w(1)=2.105427573728424e-2_p 7705x(2)=4.121673632478460_p 7706w(2)=2.047852585804497e-2_p 7707x(3)=5.799556386507687_p 7708w(3)=6.304800772577441e-3_p 7709x(4)=8.337418958810050_p 7710w(4)=7.210278701172785e-4_p 7711x(5)=11.88043104799967_p 7712w(5)=2.837418440137939e-5_p 7713x(6)=16.45493084955322_p 7714w(6)=3.415485203277431e-7_p 7715else if(N==7)then 7716x(1)=3.176303248997006_p 7717w(1)=1.813728609668213e-2_p 7718x(2)=3.931725672793412_p 7719w(2)=2.041180250194233e-2_p 7720x(3)=5.308876792412903_p 7721w(3)=8.369341789506294e-3_p 7722x(4)=7.348943826039562_p 7723w(4)=1.536296109128373e-3_p 7724x(5)=10.10682731047939_p 7725w(5)=1.277921135851411e-4_p 7726x(6)=13.59919387666095_p 7727w(6)=4.734537458034405e-6_p 7728x(7)=17.42468890601105_p 7729w(7)=9.282264333311560e-8_p 7730else if(N==8)then 7731x(1)=3.149135644795585_p 7732w(1)=1.574169483757944e-2_p 7733x(2)=3.786650658166879_p 7734w(2)=1.981189216662423e-2_p 7735x(3)=4.940934711573329_p 7736w(3)=1.006415992578405e-2_p 7737x(4)=6.630235804285448_p 7738w(4)=2.589323694984661e-3_p 7739x(5)=8.875746699359837_p 7740w(5)=3.531506840632226e-4_p 7741x(6)=11.67656226775482_p 7742w(6)=2.597705730485583e-5_p 7743x(7)=14.91572513317792_p 7744w(7)=1.109477279550572e-6_p 7745x(8)=17.96543725152241_p 7746w(8)=3.812732562401113e-8_p 7747else if(N==9)then 7748x(1)=3.127790253474680_p 7749w(1)=1.376424850241311e-2_p 7750x(2)=3.673263961411071_p 7751w(2)=1.891041407915746e-2_p 7752x(3)=4.656694324475070_p 7753w(3)=1.133271804063568e-2_p 7754x(4)=6.085251210093460_p 7755w(4)=3.756121323034517e-3_p 7756x(5)=7.965718151167529_p 7757w(5)=7.309443463858344e-4_p 7758x(6)=10.29041945760107_p 7759w(6)=8.607940424633329e-5_p 7760x(7)=13.00148545633099_p 7761w(7)=6.445242359735035e-6_p 7762x(8)=15.88352324724105_p 7763w(8)=3.549331685365205e-7_p 7764x(9)=18.27975225897219_p 7765w(9)=2.009954443002127e-8_p 7766else if(N==10)then 7767x(1)=3.110719137351670_p 7768w(1)=1.212035875714642e-2_p 7769x(2)=3.582895459957584_p 7770w(2)=1.786021449335448e-2_p 7771x(3)=4.431882361266383_p 7772w(3)=1.219728021065286e-2_p 7773x(4)=5.659314238399154_p 7774w(4)=4.921572490855308e-3_p 7775x(5)=7.265387105182274_p 7776w(5)=1.253438820456920e-3_p 7777x(6)=9.240343088194747_p 7778w(6)=2.087013016784586e-4_p 7779x(7)=11.54743456997919_p 7780w(7)=2.364516286639755e-5_p 7781x(8)=14.08299729248074_p 7782w(8)=1.976498079335506e-6_p 7783x(9)=16.58385180312915_p 7784w(9)=1.458902904872246e-7_p 7785x(10)=18.47350577833381_p 7786w(10)=1.234556497438073e-8_p 7787else if(N==11)then 7788x(1)=3.096853753178842_p 7789w(1)=1.074321680088213e-2_p 7790x(2)=3.509666947734728_p 7791w(2)=1.675759575664681e-2_p 7792x(3)=4.250643483766805_p 7793w(3)=1.271529739391387e-2_p 7794x(4)=5.318647875773231_p 7795w(4)=6.001357818346594e-3_p 7796x(5)=6.710821775326911_p 7797w(5)=1.887403604289981e-3_p 7798x(6)=8.417217116871896_p 7799w(6)=4.103076535607458e-4_p 7800x(7)=10.4114532982942_p 7801w(7)=6.384445785468959e-5_p 7802x(8)=12.63261363574836_p 7803w(8)=7.504359262473109e-6_p 7804x(9)=14.94860368905968_p 7805w(9)=7.372994847967523e-7_p 7806x(10)=17.09174315486444_p 7807w(10)=7.245964353888168e-8_p 7808x(11)=18.59978133892854_p 7809w(11)=8.367060009552436e-9_p 7810else if(N==12)then 7811x(1)=3.085439090091351_p 7812w(1)=9.580628939231964e-3_p 7813x(2)=3.449476398772214_p 7814w(2)=1.566090770234337e-2_p 7815x(3)=4.102195182181801_p 7816w(3)=1.295377247840507e-2_p 7817x(4)=5.041128831341740_p 7818w(4)=6.944819121900206e-3_p 7819x(5)=6.262075905690809_p 7820w(5)=2.588003911136642e-3_p 7821x(6)=7.755638742048549_p 7822w(6)=6.954692906085520e-4_p 7823x(7)=9.501595600544384_p 7824w(7)=1.390696162089504e-4_p 7825x(8)=11.4595146757316_p 7826w(8)=2.154371497499434e-5_p 7827x(9)=13.55182696300534_p 7828w(9)=2.758451136880861e-6_p 7829x(10)=15.63533135345963_p 7830w(10)=3.253078783395031e-7_p 7831x(11)=17.46465423148402_p 7832w(11)=4.137407062317080e-8_p 7833x(12)=18.68609636292232_p 7834w(12)=6.063050044062802e-9_p 7835else if(N==13)then 7836x(1)=3.075929842982839_p 7837w(1)=8.591842344265818e-3_p 7838x(2)=3.399387153505482_p 7839w(2)=1.460387731377466e-2_p 7840x(3)=3.978958919444710_p 7841w(3)=1.297635544005762e-2_p 7842x(4)=4.811613437666671_p 7843w(4)=7.729054464455153e-3_p 7844x(5)=5.892669984697100_p 7845w(5)=3.310331682572544e-3_p 7846x(6)=7.213538209493825_p 7847w(6)=1.057090400541354e-3_p 7848x(7)=8.758103537289637_p 7849w(7)=2.590244432994242e-4_p 7850x(8)=10.49735760607517_p 7851w(8)=5.030590404586397e-5_p 7852x(9)=12.38063953638442_p 7853w(9)=8.105939226780318e-6_p 7854x(10)=14.32169167208133_p 7855w(10)=1.162511287436789e-6_p 7856x(11)=16.17960939212809_p 7857w(11)=1.647418694647580e-7_p 7858x(12)=17.74313335454916_p 7859w(12)=2.617711533092350e-8_p 7860x(13)=18.74748465911326_p 7861w(13)=4.608434187338992e-9_p 7862else if(N==14)then 7863x(1)=3.067924318123521_p 7864w(1)=7.744912881391694e-3_p 7865x(2)=3.357249676052001_p 7866w(2)=1.360460424941796e-2_p 7867x(3)=3.875461176504363_p 7868w(3)=1.283800207480053e-2_p 7869x(4)=4.619372242967414_p 7870w(4)=8.350752390619970e-3_p 7871x(5)=5.584265732122967_p 7872w(5)=4.016277349915047e-3_p 7873x(6)=6.762409485715794_p 7874w(6)=1.479660978583861e-3_p 7875x(7)=8.140631037291376_p 7876w(7)=4.288626295669218e-4_p 7877x(8)=9.697004195313790_p 7878w(8)=1.004954771459327e-4_p 7879x(9)=11.39590979725276_p 7880w(9)=1.971134031272816e-5_p 7881x(10)=13.18058843247558_p 7882w(10)=3.398988347874319e-6_p 7883x(11)=14.9629437976684_p 7884w(11)=5.529079561058973e-7_p 7885x(12)=16.61276878270117_p 7886w(12)=9.319812609076358e-8_p 7887x(13)=17.95492032770526_p 7888w(13)=1.787524158091280e-8_p 7889x(14)=18.79260758006404_p 7890w(14)=3.629519341857657e-9_p 7891else if(N==15)then 7892x(1)=3.061121356111821_p 7893w(1)=7.014650723827881e-3_p 7894x(2)=3.321459901261826_p 7895w(2)=1.267145452111236e-2_p 7896x(3)=3.787657552760847_p 7897w(3)=1.258364780075453e-2_p 7898x(4)=4.456589324858510_p 7899w(4)=8.818814884058977e-3_p 7900x(5)=5.323725414085947_p 7901w(5)=4.677299273313094e-3_p 7902x(6)=6.382156606450534_p 7903w(6)=1.943359741068437e-3_p 7904x(7)=7.620918089571116_p 7905w(7)=6.484882463001544e-4_p 7906x(8)=9.022820602568611_p 7907w(8)=1.779769715267769e-4_p 7908x(9)=10.56146745751426_p 7909w(9)=4.130416818425523e-5_p 7910x(10)=12.19698655037032_p 7911w(10)=8.406937162681573e-6_p 7912x(11)=13.8702756504222_p 7913w(11)=1.577525250322967e-6_p 7914x(12)=15.49640987980636_p 7915w(12)=2.917229561544275e-7_p 7916x(13)=16.95996841594572_p 7917w(13)=5.758686843383596e-8_p 7918x(14)=18.11888989478832_p 7919w(14)=1.293073030723743e-8_p 7920x(15)=18.82670129332638_p 7921w(15)=2.937831273039629e-9_p 7922else if(N==16)then 7923x(1)=3.055291589924111_p 7924w(1)=6.381053626732455e-3_p 7925x(2)=3.290800363355115_p 7926w(2)=1.180685877673321e-2_p 7927x(3)=3.712500974599925_p 7928w(3)=1.224877829893796e-2_p 7929x(4)=4.317439046618758_p 7930w(4)=9.148746955071917e-3_p 7931x(5)=5.101378253371918_p 7932w(5)=5.274503775279214e-3_p 7933x(6)=6.058164121827736_p 7934w(6)=2.427617384783821e-3_p 7935x(7)=7.178542247301525_p 7936w(7)=9.131346323978611e-4_p 7937x(8)=8.448672496639269_p 7938w(8)=2.867072421349446e-4_p 7939x(9)=9.848222376757874_p 7940w(9)=7.689913886452441e-5_p 7941x(10)=11.3477764805936_p 7942w(10)=1.812766448689234e-5_p 7943x(11)=12.90541704116888_p 7944w(11)=3.897717591756126e-6_p 7945x(12)=14.46269139570512_p 7946w(12)=8.023899407567189e-7_p 7947x(13)=15.94097153124999_p 7948w(13)=1.679871785801500e-7_p 7949x(14)=17.24070687462254_p 7950w(14)=3.817248153902866e-8_p 7951x(15)=18.24798058263452_p 7952w(15)=9.778283334833832e-9_p 7953x(16)=18.85306766187391_p 7954w(16)=2.430046871964794e-9_p 7955else if(N==17)then 7956x(1)=3.050257846380896_p 7957w(1)=5.828121780544774e-3_p 7958x(2)=3.264333064873986_p 7959w(2)=1.100973407957797e-2_p 7960x(3)=3.647656863716385_p 7961w(3)=1.186074222371982e-2_p 7962x(4)=4.197494449192773_p 7963w(4)=9.358816162625601e-3_p 7964x(5)=4.909944957782318_p 7965w(5)=5.797331102328458e-3_p 7966x(6)=5.779531297539460_p 7967w(6)=2.913590324959962e-3_p 7968x(7)=6.798355724048818_p 7969w(7)=1.214658963464831e-3_p 7970x(8)=7.955046241363291_p 7971w(8)=4.281844473230927e-4_p 7972x(9)=9.233478371652570_p 7973w(9)=1.301822709291809e-4_p 7974x(10)=10.61112507130051_p 7975w(10)=3.493262837790462e-5_p 7976x(11)=12.05693120476128_p 7977w(11)=8.514128688407610e-6_p 7978x(12)=13.52878517189875_p 7979w(12)=1.954863209543342e-6_p 7980x(13)=14.97099720115232_p 7981w(13)=4.424593809635890e-7_p 7982x(14)=16.3128069832201_p 7983w(14)=1.040680637798592e-7_p 7984x(15)=17.46984484966519_p 7985w(15)=2.676611817297266e-8_p 7986x(16)=18.35118236755697_p 7987w(16)=7.655981065304384e-9_p 7988x(17)=18.87386637748865_p 7989w(17)=2.045652110956994e-9_p 7990else 7991call GD(3) 7992end if 7993end subroutine GF_3 7994 7995! [4kT;19kT] 7996subroutine GF_4(N,x,w) 7997integer,intent(in)::N 7998real(p),intent(out)::x(N),w(N) 7999if(N==2)then 8000x(1)=4.588279168498033_p 8001w(1)=1.547965466770412e-2_p 8002x(2)=7.417635291309760_p 8003w(2)=2.670267647309195e-3_p 8004else if(N==3)then 8005x(1)=4.416432847842315_p 8006w(1)=1.286636060521332e-2_p 8007x(2)=6.291228578442736_p 8008w(2)=5.090295376556615e-3_p 8009x(3)=10.26779572641969_p 8010w(3)=1.932663332433826e-4_p 8011else if(N==4)then 8012x(1)=4.319266683174476_p 8013w(1)=1.081560751701225e-2_p 8014x(2)=5.722270912009106_p 8015w(2)=6.569521475171461e-3_p 8016x(3)=8.456318992425349_p 8017w(3)=7.526746298767022e-4_p 8018x(4)=13.12987864727161_p 8019w(4)=1.211869295291031e-5_p 8020else if(N==5)then 8021x(1)=4.254110439315655_p 8022w(1)=9.160752485602429e-3_p 8023x(2)=5.357089966860721_p 8024w(2)=7.348689666199462e-3_p 8025x(3)=7.430131130824834_p 8026w(3)=1.548117745629118e-3_p 8027x(4)=10.67098811037178_p 8028w(4)=9.125045897407009e-5_p 8029x(5)=15.42656808317329_p 8030w(5)=1.111958608238876e-6_p 8031else if(N==6)then 8032x(1)=4.206995105666494_p 8033w(1)=7.807321127793119e-3_p 8034x(2)=5.099088674266641_p 8035w(2)=7.634628962142179e-3_p 8036x(3)=6.743806904470288_p 8037w(3)=2.405037179543843e-3_p 8038x(4)=9.219469873322259_p 8039w(4)=2.899886326885868e-4_p 8040x(5)=12.63220808512987_p 8041w(5)=1.274641558937825e-5_p 8042x(6)=16.86805918974462_p 8043w(6)=1.999972562131570e-7_p 8044else if(N==7)then 8045x(1)=4.171795686430962_p 8046w(1)=6.703232116150024e-3_p 8047x(2)=4.909013396698151_p 8048w(2)=7.591990792361458e-3_p 8049x(3)=6.253186432102174_p 8050w(3)=3.183636690955001e-3_p 8051x(4)=8.237155888917938_p 8052w(4)=6.129977552515392e-4_p 8053x(5)=10.89659202963805_p 8054w(5)=5.558898786373425e-5_p 8055x(6)=14.20370984799268_p 8056w(6)=2.412805055877639e-6_p 8057x(7)=17.6691758783987_p 8058w(7)=6.316737568405020e-8_p 8059else if(N==8)then 8060x(1)=4.144852064624850_p 8061w(1)=5.801117591783008e-3_p 8062x(2)=4.764791935161697_p 8063w(2)=7.349488202728471e-3_p 8064x(3)=5.887570714865257_p 8065w(3)=3.812607099921148e-3_p 8066x(4)=7.526334885343171_p 8067w(4)=1.023661568492306e-3_p 8068x(5)=9.691249296083450_p 8069w(5)=1.499958209685981e-4_p 8070x(6)=12.36132568010533_p 8071w(6)=1.238584600861116e-5_p 8072x(7)=15.38363464353179_p 8073w(7)=6.376867427899081e-7_p 8074x(8)=18.1150314679965_p 8075w(8)=2.849836838798168e-8_p 8076else if(N==9)then 8077x(1)=4.123782476413527_p 8078w(1)=5.059650887778472e-3_p 8079x(2)=4.652653698820554_p 8080w(2)=6.996762251514213e-3_p 8081x(3)=5.606496986904319_p 8082w(3)=4.274441276123782e-3_p 8083x(4)=6.989336885650268_p 8084w(4)=1.471591104309445e-3_p 8085x(5)=8.801093521816215_p 8086w(5)=3.045243004357867e-4_p 8087x(6)=11.02317553491449_p 8088w(6)=3.933473125776600e-5_p 8089x(7)=13.58074849542882_p 8090w(7)=3.376106853480468e-6_p 8091x(8)=16.23981197476379_p 8092w(8)=2.257389600629935e-7_p 8093x(9)=18.37665662360813_p 8094w(9)=1.591778031078126e-8_p 8095else if(N==10)then 8096x(1)=4.106997811281317_p 8097w(1)=4.445531995732500e-3_p 8098x(2)=4.563659611930881_p 8099w(2)=6.591886456311984e-3_p 8100x(3)=5.385082755810931_p 8101w(3)=4.581154128637815e-3_p 8102x(4)=6.570961437209877_p 8103w(4)=1.912175471628592e-3_p 8104x(5)=8.117014816564847_p 8105w(5)=5.138202533811160e-4_p 8106x(6)=10.00685598775526_p 8107w(6)=9.244270683818216e-5_p 8108x(7)=12.19450606465164_p 8109w(7)=1.167032124822916e-5_p 8110x(8)=14.56543044130602_p 8111w(8)=1.130387250366003e-6_p 8112x(9)=16.85536086038105_p 8113w(9)=1.004480271844875e-7_p 8114x(10)=18.53985714706796_p 8115w(10)=1.014595734950387e-8_p 8116else if(N==11)then 8117x(1)=4.093410456217278_p 8118w(1)=3.932730572161039e-3_p 8119x(2)=4.491803735462728_p 8120w(2)=6.170819441988009e-3_p 8121x(3)=5.207196526913430_p 8122w(3)=4.757048121016961e-3_p 8123x(4)=6.237266984307524_p 8124w(4)=2.314212515924084e-3_p 8125x(5)=7.576155789711622_p 8126w(5)=7.630726374668095e-4_p 8127x(6)=9.209591438490937_p 8128w(6)=1.773371932460796e-4_p 8129x(7)=11.10563794437266_p 8130w(7)=3.019227584771943e-5_p 8131x(8)=13.19695347328998_p 8132w(8)=3.994069579573701e-6_p 8133x(9)=15.3475413025349_p 8134w(9)=4.554534027117941e-7_p 8135x(10)=17.300935507403_p 8136w(10)=5.298452899096649e-8_p 8137x(11)=18.64741333799562_p 8138w(11)=7.049851341443732e-9_p 8139else if(N==12)then 8140x(1)=4.082256880086989_p 8141w(1)=3.501062140524790e-3_p 8142x(2)=4.432923766094847_p 8143w(2)=5.754939508618881e-3_p 8144x(3)=5.061930099898796_p 8145w(3)=4.829011486936511e-3_p 8146x(4)=5.966099208447673_p 8147w(4)=2.660083095095341e-3_p 8148x(5)=7.139187031243036_p 8149w(5)=1.033895484918939e-3_p 8150x(6)=8.568841041001036_p 8151w(6)=2.945913869191818e-4_p 8152x(7)=10.23124537008969_p 8153w(7)=6.363306063447466e-5_p 8154x(8)=12.08195863019658_p 8155w(8)=1.088015369177966e-5_p 8156x(9)=14.04026921795871_p 8157w(9)=1.574699365600574e-6_p 8158x(10)=15.96505361563757_p 8159w(10)=2.144433748436934e-7_p 8160x(11)=17.62838133483963_p 8161w(11)=3.165580965575601e-8_p 8162x(12)=18.72164781611595_p 8163w(12)=5.199123319142621e-9_p 8164else if(N==13)then 8165x(1)=4.072988542451974_p 8166w(1)=3.134861899489831e-3_p 8167x(2)=4.384056817420284_p 8168w(2)=5.356312866027524e-3_p 8169x(3)=4.941652749775590_p 8170w(3)=4.821876101361880e-3_p 8171x(4)=5.742337174880113_p 8172w(4)=2.942839349292962e-3_p 8173x(5)=6.780029044445042_p 8174w(5)=1.308783002834503e-3_p 8175x(6)=8.044055897909292_p 8176w(6)=4.402386027375556e-4_p 8177x(7)=9.515851156263864_p 8178w(7)=1.154079730075518e-4_p 8179x(8)=11.16377253600538_p 8180w(8)=2.439631828839604e-5_p 8181x(9)=12.93491944320809_p 8182w(9)=4.360296606288589e-6_p 8183x(10)=14.74296918950585_p 8184w(10)=7.066011893419374e-7_p 8185x(11)=16.45320627080494_p 8186w(11)=1.145741161917938e-7_p 8187x(12)=17.87347635463397_p 8188w(12)=2.072698205263101e-8_p 8189x(13)=18.77487942174995_p 8190w(13)=4.003079240321423e-9_p 8191else if(N==14)then 8192x(1)=4.065203190219696_p 8193w(1)=2.821914106663696e-3_p 8194x(2)=4.343044685143084_p 8195w(2)=4.981184267010014e-3_p 8196x(3)=4.840875932183783_p 8197w(3)=4.756661685807928e-3_p 8198x(4)=5.555295356907462_p 8199w(4)=3.162744798657379e-3_p 8200x(5)=6.480624985462182_p 8201w(5)=1.573509415589944e-3_p 8202x(6)=7.607636873282538_p 8203w(6)=6.073385480873288e-4_p 8204x(7)=8.921419370415084_p 8205w(7)=1.868989213892326e-4_p 8206x(8)=10.39823917548551_p 8207w(8)=4.717148634851559e-5_p 8208x(9)=12.00090185730055_p 8209w(9)=1.011994746575424e-5_p 8210x(10)=13.67213168974426_p 8211w(10)=1.938708118623272e-6_p 8212x(11)=15.32619652302996_p 8213w(11)=3.550027388623077e-7_p 8214x(12)=16.84130533989767_p 8215w(12)=6.771309464698805e-8_p 8216x(13)=18.06042655087438_p 8217w(13)=1.453025797043121e-8_p 8218x(14)=18.8142793542965_p 8219w(14)=3.183783423530754e-9_p 8220else if(N==15)then 8221x(1)=4.058600429005742_p 8222w(1)=2.552629010002356e-3_p 8223x(2)=4.308283641906205_p 8224w(2)=4.632228997985060e-3_p 8225x(3)=4.755559015885344_p 8226w(3)=4.650286383727113e-3_p 8227x(4)=5.397208495516940_p 8228w(4)=3.324341404611161e-3_p 8229x(5)=6.228046313356068_p 8230w(5)=1.817897209068643e-3_p 8231x(6)=7.240076342338853_p 8232w(6)=7.876935430322288e-4_p 8233x(7)=8.421065156956409_p 8234w(7)=2.773556571228933e-4_p 8235x(8)=9.752538372995780_p 8236w(8)=8.131192968464629e-5_p 8237x(9)=11.20697837082485_p 8238w(9)=2.041941503946587e-5_p 8239x(10)=12.74397920658255_p 8240w(10)=4.556819175887120e-6_p 8241x(11)=14.30538750501783_p 8242w(11)=9.489172754078734e-7_p 8243x(12)=15.8102751145601_p 8244w(12)=1.963484548978671e-7_p 8245x(13)=17.15240097576751_p 8246w(13)=4.335509566491188e-8_p 8247x(14)=18.20562425649894_p 8248w(14)=1.072790440349974e-8_p 8249x(15)=18.84422496132551_p 8250w(15)=2.596833490114388e-9_p 8251else if(N==16)then 8252x(1)=4.052952266339583_p 8253w(1)=2.319421788778766e-3_p 8254x(2)=4.278561009915211_p 8255w(2)=4.309984135823519e-3_p 8256x(3)=4.682667839447268_p 8257w(3)=4.515930300102878e-3_p 8258x(4)=5.262301735989450_p 8259w(4)=3.434316629974921e-3_p 8260x(5)=6.012783774436897_p 8261w(5)=2.035603560659995e-3_p 8262x(6)=6.927165297225157_p 8263w(6)=9.732151037251037e-4_p 8264x(7)=7.995248362562272_p 8265w(7)=3.842774319045112e-4_p 8266x(8)=9.202252045029708_p 8267w(8)=1.280238601590398e-4_p 8268x(9)=10.52703155557668_p 8269w(9)=3.684053898225431e-5_p 8270x(10)=11.93972197537459_p 8271w(10)=9.423020211044892e-6_p 8272x(11)=13.39879444408979_p 8273w(11)=2.222137545659104e-6_p 8274x(12)=14.84784561985839_p 8275w(12)=5.061095304946622e-7_p 8276x(13)=16.21314300638333_p 8277w(13)=1.177068296603161e-7_p 8278x(14)=17.40412719750539_p 8279w(14)=2.958519042275288e-8_p 8280x(15)=18.32029319737336_p 8281w(15)=8.244418577533231e-9_p 8282x(16)=18.8675005315776_p 8283w(16)=2.161176471354786e-9_p 8284else if(N==17)then 8285x(1)=4.048083133254152_p 8286w(1)=2.116246628476882e-3_p 8287x(2)=4.252945572012692_p 8288w(2)=4.013749033166231e-3_p 8289x(3)=4.619884707412595_p 8290w(3)=4.363626070409654e-3_p 8291x(4)=5.146196042347142_p 8292w(4)=3.500100469387461e-3_p 8293x(5)=5.827686246336367_p 8294w(5)=2.223453328421080e-3_p 8295x(6)=6.658297481545420_p 8296w(6)=1.156793115794036e-3_p 8297x(7)=7.629421275038038_p 8298w(7)=5.040158854121476e-4_p 8299x(8)=8.728981082091611_p 8300w(8)=1.874723981257802e-4_p 8301x(9)=9.940252385445440_p 8302w(9)=6.072778563471445e-5_p 8303x(10)=11.24035300975968_p 8304w(10)=1.753266754924030e-5_p 8305x(11)=12.5983860234814_p 8306w(11)=4.641568893158018e-6_p 8307x(12)=13.97336934426627_p 8308w(12)=1.167274608937078e-6_p 8309x(13)=15.31238633796633_p 8310w(13)=2.910217876316583e-7_p 8311x(14)=16.54989931706497_p 8312w(14)=7.545513207993435e-8_p 8313x(15)=17.60981618217349_p 8314w(15)=2.124473250682919e-8_p 8315x(16)=18.41223820792329_p 8316w(16)=6.539056328344485e-9_p 8317x(17)=18.88594121641752_p 8318w(17)=1.828425450722874e-9_p 8319else 8320call GD(4) 8321end if 8322end subroutine GF_4 8323 8324! [5kT;19kT] 8325subroutine GF_5(N,x,w) 8326integer,intent(in)::N 8327real(p),intent(out)::x(N),w(N) 8328if(N==2)then 8329x(1)=5.586508014335801_p 8330w(1)=5.729340261009130e-3_p 8331x(2)=8.414030317181453_p 8332w(2)=9.860026253125174e-4_p 8333else if(N==3)then 8334x(1)=5.414484269421695_p 8335w(1)=4.758979091073740e-3_p 8336x(2)=7.283509351040167_p 8337w(2)=1.883987662681725e-3_p 8338x(3)=11.24406697094467_p 8339w(3)=7.237613256618234e-5_p 8340else if(N==4)then 8341x(1)=5.316145972270114_p 8342w(1)=3.986616202754092e-3_p 8343x(2)=6.706468722748626_p 8344w(2)=2.437696913106257e-3_p 8345x(3)=9.410306666534879_p 8346w(3)=2.860375625927254e-4_p 8347x(4)=13.97944843843506_p 8348w(4)=4.992207868572030e-6_p 8349else if(N==5)then 8350x(1)=5.250006363518493_p 8351w(1)=3.359484000707257e-3_p 8352x(2)=6.335386196657042_p 8353w(2)=2.725627944331249e-3_p 8354x(3)=8.370638703799468_p 8355w(3)=5.921725750286432e-4_p 8356x(4)=11.52617232808476_p 8357w(4)=3.749886502090990e-5_p 8358x(5)=16.01814768898294_p 8359w(5)=5.595012335878546e-7_p 8360else if(N==6)then 8361x(1)=5.202540174128827_p 8362w(1)=2.849468389947953e-3_p 8363x(2)=6.075402007965558_p 8364w(2)=2.823490735782629e-3_p 8365x(3)=7.681360990810618_p 8366w(3)=9.183662253938691e-4_p 8367x(4)=10.08365963114122_p 8368w(4)=1.180043383623941e-4_p 8369x(5)=13.34620767647499_p 8370w(5)=5.890735672453972e-6_p 8371x(6)=17.22296415349094_p 8372w(6)=1.224611623472035e-7_p 8373else if(N==7)then 8374x(1)=5.167364824247129_p 8375w(1)=2.436464456134632e-3_p 8376x(2)=5.885476599512089_p 8377w(2)=2.797110287854615e-3_p 8378x(3)=7.192591506992359_p 8379w(3)=1.209498181180949e-3_p 8380x(4)=9.112671967767106_p 8381w(4)=2.463432520137225e-4_p 8382x(5)=11.66164999970031_p 8383w(5)=2.461453798751227e-5_p 8384x(6)=14.76804418321479_p 8385w(6)=1.267974435757004e-6_p 8386x(7)=17.87855610115619_p 8387w(7)=4.419671445974539e-8_p 8388else if(N==8)then 8389x(1)=5.140610254166357_p 8390w(1)=2.101109716773030e-3_p 8391x(2)=5.742299671509757_p 8392w(2)=2.697202785713972e-3_p 8393x(3)=6.830521149031306_p 8394w(3)=1.439791865855280e-3_p 8395x(4)=8.412945516848563_p 8396w(4)=4.063351958103400e-4_p 8397x(5)=10.48887408809755_p 8398w(5)=6.447321572278389e-5_p 8399x(6)=13.01767752102405_p 8400w(6)=6.031675288329551e-6_p 8401x(7)=15.81549890269497_p 8402w(7)=3.767953817146220e-7_p 8403x(8)=18.24456021101982_p 8404w(8)=2.163577619756015e-8_p 8405else if(N==9)then 8406x(1)=5.119795226182326_p 8407w(1)=1.826924204730809e-3_p 8408x(2)=5.631545611665944_p 8409w(2)=2.558179293922765e-3_p 8410x(3)=6.553474891211053_p 8411w(3)=1.604571002448648e-3_p 8412x(4)=7.886117940720864_p 8413w(4)=5.775483169243825e-4_p 8414x(5)=9.622843856693182_p 8415w(5)=1.279053008519913e-4_p 8416x(6)=11.73457233806646_p 8417w(6)=1.824821510014766e-5_p 8418x(7)=14.13126086418806_p 8419w(7)=1.807065334982241e-6_p 8420x(8)=16.56695523119815_p 8421w(8)=1.467760180561677e-7_p 8422x(9)=18.4617545742971_p 8423w(9)=1.271098986485091e-8_p 8424else if(N==10)then 8425x(1)=5.103284108481328_p 8426w(1)=1.600863402941352e-3_p 8427x(2)=5.544025246824734_p 8428w(2)=2.401825379215882e-3_p 8429x(3)=6.336082758843771_p 8430w(3)=1.710047641265070e-3_p 8431x(4)=7.476872900083284_p 8432w(4)=7.428435563972648e-4_p 8433x(5)=8.957933850505885_p 8434w(5)=2.117674503298064e-4_p 8435x(6)=10.75665883258699_p 8436w(6)=4.140104676224735e-5_p 8437x(7)=12.81870088113066_p 8438w(7)=5.856253476749352e-6_p 8439x(8)=15.02123192293832_p 8440w(8)=6.594826291185485e-7_p 8441x(9)=17.10451941646851_p 8442w(9)=7.030159569679625e-8_p 8443x(10)=18.59890465206314_p 8444w(10)=8.371708458472178e-9_p 8445else if(N==11)then 8446x(1)=5.089966955567724_p 8447w(1)=1.412849176771162e-3_p 8448x(2)=5.473616188163907_p 8449w(2)=2.241322388074880e-3_p 8450x(3)=6.162010627696905_p 8451w(3)=1.766545265195055e-3_p 8452x(4)=7.151314693577413_p 8453w(4)=8.908846496172418e-4_p 8454x(5)=8.432899146614865_p 8455w(5)=3.095216454865331e-4_p 8456x(6)=9.988542505601147_p 8457w(6)=7.726596112712403e-5_p 8458x(7)=11.78129011935327_p 8459w(7)=1.446131945924242e-5_p 8460x(8)=13.7386036414011_p 8461w(8)=2.161144912789393e-6_p 8462x(9)=15.72319585135405_p 8463w(9)=2.861931742514683e-7_p 8464x(10)=17.49332787178184_p 8465w(10)=3.919411390867741e-8_p 8466x(11)=18.69029418018007_p 8467w(11)=5.948389458304224e-9_p 8468else if(N==12)then 8469x(1)=5.079069766795642_p 8470w(1)=1.255136344409218e-3_p 8471x(2)=5.416103222961702_p 8472w(2)=2.084301934711660e-3_p 8473x(3)=6.020272455433425_p 8474w(3)=1.784872318135749e-3_p 8475x(4)=6.887381506462527_p 8476w(4)=1.015781898762883e-3_p 8477x(5)=8.009303813182534_p 8478w(5)=4.136853789101086e-4_p 8479x(6)=9.371058266134810_p 8480w(6)=1.255074282284349e-4_p 8481x(7)=10.94562453154712_p 8482w(7)=2.940367102465452e-5_p 8483x(8)=12.68524038586845_p 8484w(8)=5.568850693289031e-6_p 8485x(9)=14.5073907689601_p 8486w(9)=9.128500447978289e-7_p 8487x(10)=16.27512107635006_p 8488w(10)=1.433435842576776e-7_p 8489x(11)=17.77949744626463_p 8490w(11)=2.441052953899562e-8_p 8491x(12)=18.7539678558715_p 8492w(12)=4.457287054430791e-9_p 8493else if(N==13)then 8494x(1)=5.070039591234976_p 8495w(1)=1.121758288627449e-3_p 8496x(2)=5.368502219479560_p 8497w(2)=1.934921780646670e-3_p 8498x(3)=5.903217665340228_p 8499w(3)=1.774698976868915e-3_p 8500x(4)=6.670053998005637_p 8501w(4)=1.115703652599418e-3_p 8502x(5)=7.661627904384044_p 8503w(5)=5.175112198006083e-4_p 8504x(6)=8.865459697432565_p 8505w(6)=1.840687557952824e-4_p 8506x(7)=10.26084047146312_p 8507w(7)=5.180827559914763e-5_p 8508x(8)=11.81393330442619_p 8509w(8)=1.195950822627770e-5_p 8510x(9)=13.47036047569932_p 8511w(9)=2.376529747985626e-6_p 8512x(10)=15.14494132750855_p 8513w(10)=4.353713639556196e-7_p 8514x(11)=16.71052461761179_p 8515w(11)=8.056001639179661e-8_p 8516x(12)=17.99427465974098_p 8517w(12)=1.649431574341338e-8_p 8518x(13)=18.79999109903453_p 8519w(13)=3.472713802502471e-9_p 8520else if(N==14)then 8521x(1)=5.062472895175599_p 8522w(1)=1.008091406584445e-3_p 8523x(2)=5.328649734587013_p 8524w(2)=1.795211231983008e-3_p 8525x(3)=5.805365042222275_p 8526w(3)=1.744023108778006e-3_p 8527x(4)=6.488743728186049_p 8528w(4)=1.191423567802491e-3_p 8529x(5)=7.372195900423361_p 8530w(5)=6.157814678677796e-4_p 8531x(6)=8.445222339467504_p 8532w(6)=2.498970489406605e-4_p 8533x(7)=9.691429663213437_p 8534w(7)=8.191370470445976e-5_p 8535x(8)=11.08558823411724_p 8536w(8)=2.233363975633626e-5_p 8537x(9)=12.58940398155728_p 8538w(9)=5.253372675839259e-6_p 8539x(10)=14.14581568016386_p 8540w(10)=1.119498925151222e-6_p 8541x(11)=15.67239122994511_p 8542w(11)=2.305969364260682e-7_p 8543x(12)=17.05647333199001_p 8544w(12)=4.960813568456739e-8_p 8545x(13)=18.15861734138921_p 8546w(13)=1.184613079113964e-8_p 8547x(14)=18.83428518704903_p 8548w(14)=2.787100567999009e-9_p 8549else if(N==15)then 8550x(1)=5.056069598638835_p 8551w(1)=9.105258984485710e-4_p 8552x(2)=5.294944776464395_p 8553w(2)=1.665922582946969e-3_p 8554x(3)=5.722693443753641_p 8555w(3)=1.699159923710175e-3_p 8556x(4)=6.335773294777918_p 8557w(4)=1.245164772356125e-3_p 8558x(5)=7.128354929003974_p 8559w(5)=7.049690877555182e-4_p 8560x(6)=8.091533649344520_p 8561w(6)=3.196433335888666e-4_p 8562x(7)=9.212025241404705_p 8563w(7)=1.191147681501230e-4_p 8564x(8)=10.47030818430074_p 8565w(8)=3.740353234506486e-5_p 8566x(9)=11.83806491013973_p 8567w(9)=1.018765210920014e-5_p 8568x(10)=13.27482427015267_p 8569w(10)=2.496687318041036e-6_p 8570x(11)=14.72400210300729_p 8571w(11)=5.771711601459687e-7_p 8572x(12)=16.10929683514089_p 8573w(12)=1.334328778563724e-7_p 8574x(13)=17.33387362355666_p 8575w(13)=3.284115354334622e-8_p 8576x(14)=18.28667190528627_p 8577w(14)=8.912848600556608e-9_p 8578x(15)=18.8604992810807_p 8579w(15)=2.289552846414718e-9_p 8580else if(N==16)then 8581x(1)=5.050602797792144_p 8582w(1)=8.262204293375171e-4_p 8583x(2)=5.266181157250995_p 8584w(2)=1.547062623608023e-3_p 8585x(3)=5.652192835329455_p 8586w(3)=1.644946224284820e-3_p 8587x(4)=6.205445343426182_p 8588w(4)=1.279799096543977e-3_p 8589x(5)=6.920803578366547_p 8590w(5)=7.830532409680091e-4_p 8591x(6)=7.790662639198316_p 8592w(6)=3.901706949280375e-4_p 8593x(7)=8.804065821496287_p 8594w(7)=1.621749438505801e-4_p 8595x(8)=9.945484062525265_p 8596w(8)=5.747194056632034e-5_p 8597x(9)=11.19319233356484_p 8598w(9)=1.778284518982792e-5_p 8599x(10)=12.51719364321865_p 8600w(10)=4.943724924493990e-6_p 8601x(11)=13.87676780868764_p 8602w(11)=1.279753476346680e-6_p 8603x(12)=15.21803371157786_p 8604w(12)=3.223512240159752e-7_p 8605x(13)=16.47251062322577_p 8606w(13)=8.311903515712219e-8_p 8607x(14)=17.55854065252089_p 8608w(14)=2.302912184387536e-8_p 8609x(15)=18.38812165508034_p 8610w(15)=6.952839797808969e-9_p 8611x(16)=18.8809743256814_p 8612w(16)=1.916422879636542e-9_p 8613else if(N==17)then 8614x(1)=5.045898344158073_p 8615w(1)=7.529198849633832e-4_p 8616x(2)=5.241435666482290_p 8617w(2)=1.438221159113341e-3_p 8618x(3)=5.591570509580478_p 8619w(3)=1.585005097501012e-3_p 8620x(4)=6.093448335186341_p 8621w(4)=1.298344371768061e-3_p 8622x(5)=6.742552309183629_p 8623w(5)=8.491994548342815e-4_p 8624x(6)=7.532347615827426_p 8625w(6)=4.588441534491532e-4_p 8626x(7)=8.453671006870522_p 8627w(7)=2.094954764436046e-4_p 8628x(8)=9.493902920166308_p 8629w(8)=8.241339662999816e-5_p 8630x(9)=10.63589672405993_p 8631w(9)=2.850219273903658e-5_p 8632x(10)=11.85664131577005_p 8633w(10)=8.868849279838838e-6_p 8634x(11)=13.12569119162649_p 8635w(11)=2.553211207670708e-6_p 8636x(12)=14.40353856919731_p 8637w(12)=7.034584620006208e-7_p 8638x(13)=15.64036301299262_p 8639w(13)=1.930143050936443e-7_p 8640x(14)=16.77599347448126_p 8641w(14)=5.504446600594036e-8_p 8642x(15)=17.74234992782795_p 8643w(15)=1.691065000549805e-8_p 8644x(16)=18.46970936590934_p 8645w(16)=5.581489751768854e-9_p 8646x(17)=18.89726487077012_p 8647w(17)=1.629019408487786e-9_p 8648else 8649call GD(5) 8650end if 8651end subroutine GF_5 8652 8653end module m_gauss_fermi_19 8654