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_inf 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_inf 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_inf(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_inf 97 98 99! [-20kT;infkT] 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.59867300181491_p 105w(1)=10.40132057931341_p 106x(2)=-3.761795334794254_p 107w(2)=9.598679422747743_p 108else if(N==3)then 109x(1)=-17.56069617714904_p 110w(1)=6.008953676528421_p 111x(2)=-9.213295995556745_p 112w(2)=9.514824294586044_p 113x(3)=-1.155162436732046_p 114w(3)=4.476222030946689_p 115else if(N==4)then 116x(1)=-18.43109871253158_p 117w(1)=3.928604574772254_p 118x(2)=-12.5578550196613_p 119w(2)=7.327554038101301_p 120x(3)=-5.008576968354657_p 121w(3)=7.006527638623358_p 122x(4)=6.703031973789981e-1_p 123w(4)=1.737313750564241_p 124else if(N==5)then 125x(1)=-18.89086253068257_p 126w(1)=2.800001804216934_p 127x(2)=-14.55265566976953_p 128w(2)=5.634869133395066_p 129x(3)=-8.251795056131250_p 130w(3)=6.590038222063018_p 131x(4)=-2.226669302749292_p 132w(4)=4.558760058277294_p 133x(5)=2.575330427214392_p 134w(5)=4.163307841088411e-1_p 135else if(N==6)then 136x(1)=-19.16408385966145_p 137w(1)=2.120046040357872_p 138x(2)=-15.81251227261988_p 139w(2)=4.449478155908313_p 140x(3)=-10.62333214695017_p 141w(3)=5.711100387810925_p 142x(4)=-4.894452357100633_p 143w(4)=5.411409623036391_p 144x(5)=-2.096250897805324e-1_p 145w(5)=2.254377505973845_p 146x(6)=4.860746544733448_p 147w(6)=5.358828897380866e-2_p 148else if(N==7)then 149x(1)=-19.34059078579826_p 150w(1)=1.677225432325356_p 151x(2)=-16.6556901347836_p 152w(2)=3.612032868524941_p 153x(3)=-12.33651621603334_p 154w(3)=4.890449861886520_p 155x(4)=-7.191313942059608_p 156w(4)=5.214321072135164_p 157x(5)=-2.328646904925933_p 158w(5)=3.909057362825768_p 159x(6)=1.650831568110828_p 160w(6)=6.925216813154152e-1_p 161x(7)=7.486015269040595_p 162w(7)=4.391723047987576e-3_p 163else if(N==8)then 164x(1)=-19.46189127678765_p 165w(1)=1.371330712337890_p 166x(2)=-17.24833759053588_p 167w(2)=3.003944351026206_p 168x(3)=-13.59760191538772_p 169w(3)=4.207819512999689_p 170x(4)=-9.043684426372778_p 171w(4)=4.778581484964734_p 172x(5)=-4.321229543874761_p 173w(5)=4.437164267929162_p 174x(6)=-3.263829344271529e-1_p 175w(6)=2.086403938309132_p 176x(7)=3.765173395422165_p 177w(7)=1.144814528794247e-1_p 178x(8)=10.34189376058689_p 179w(8)=2.742816149172535e-4_p 180else if(N==9)then 181x(1)=-19.54929920180994_p 182w(1)=1.150127891291028_p 183x(2)=-17.68197584410784_p 184w(2)=2.549412353787224_p 185x(3)=-14.54887398529679_p 186w(3)=3.654799255713877_p 187x(4)=-10.51940502007361_p 188w(4)=4.319442139624553_p 189x(5)=-6.103558182574935_p 190w(5)=4.389145912439426_p 191x(6)=-1.992655191658415_p 192w(6)=3.255216040119644_p 193x(7)=1.525571125830642_p 194w(7)=6.701671980957189e-1_p 195x(8)=6.193010340434850_p 196w(8)=1.167490044861822e-2_p 197x(9)=13.35883244318492_p 198w(9)=1.431054106403458e-5_p 199else if(N==10)then 200x(1)=-19.61468272042795_p 201w(1)=9.842447158645075e-1_p 202x(2)=-18.00990626156388_p 203w(2)=2.200538111421372_p 204x(3)=-15.28374171400702_p 205w(3)=3.207319412970532_p 206x(4)=-11.70144577838286_p 207w(4)=3.895860254046847_p 208x(5)=-7.631842452014737_p 209w(5)=4.161376340940960_p 210x(6)=-3.567593262309521_p 211w(6)=3.741730275384222_p 212x(7)=-7.719173304833568e-2_p 213w(7)=1.691165719729973_p 214x(8)=3.590736256334204_p 215w(8)=1.168666525461115e-1_p 216x(9)=8.845658646267566_p 217w(9)=8.978640682982272e-4_p 218x(10)=16.49542210035773_p 219w(10)=6.550883323320337e-7_p 220else if(N==11)then 221x(1)=-19.66508766656747_p 222w(1)=8.561241928297296e-1_p 223x(2)=-18.26476096557275_p 224w(2)=1.926460549973733_p 225x(3)=-15.8638041532783_p 226w(3)=2.842542302774394_p 227x(4)=-12.65866268349835_p 228w(4)=3.521870654905992_p 229x(5)=-8.924531096337752_p 230w(5)=3.886694048377255_p 231x(6)=-5.022613018482625_p 232w(6)=3.807609025308505_p 233x(7)=-1.450026897676731_p 234w(7)=2.636620134890845_p 235x(8)=1.766952664750808_p 236w(8)=5.090785251109540e-1_p 237x(9)=5.932823022577261_p 238w(9)=1.294280664377331e-2_p 239x(10)=11.65525933005966_p 240w(10)=5.773411935401895e-5_p 241x(11)=19.72466959569032_p 242w(11)=2.712661769042421e-8_p 243else if(N==12)then 244x(1)=-19.70491970697922_p 245w(1)=7.547335428424637e-1_p 246x(2)=-18.46740139143786_p 247w(2)=1.706754687533315_p 248x(3)=-16.33047299257485_p 249w(3)=2.542100546335812_p 250x(4)=-13.44345076400403_p 251w(4)=3.196832536854960_p 252x(5)=-10.01690685706252_p 253w(5)=3.610860092607346_p 254x(6)=-6.325019901498297_p 255w(6)=3.705337409619433_p 256x(7)=-2.744101107661920_p 257w(7)=3.159915874111090_p 258x(8)=3.777065522545868e-1_p 259w(8)=1.236955753226900_p 260x(9)=3.827502585005944_p 261w(9)=8.540068508555666e-2_p 262x(10)=8.477132285494802_p 263w(10)=1.105611535628827e-3_p 264x(11)=14.58255336535496_p 265w(11)=3.261271157201902e-6_p 266x(12)=23.02779440155184_p 267w(12)=1.037490534773947e-9_p 268else if(N==13)then 269x(1)=-19.73705416475562_p 270w(1)=6.728453456155434e-1_p 271x(2)=-18.63166998994055_p 272w(2)=1.527526513681529_p 273x(3)=-16.71223607613085_p 274w(3)=2.291920131170444_p 275x(4)=-14.09478544246224_p 276w(4)=2.915538471232808_p 277x(5)=-10.94388567487473_p 278w(5)=3.350800943458909_p 279x(6)=-7.473295468142035_p 280w(6)=3.542303532888327_p 281x(7)=-3.967251858088885_p 282w(7)=3.334876567124824_p 283x(8)=-8.043099246565832e-1_p 284w(8)=2.028339919598563_p 285x(9)=2.230334475422021_p 286w(9)=3.261059791542212e-1_p 287x(10)=6.130852195596870_p 288w(10)=9.662321756026292e-3_p 289x(11)=11.16493739301624_p 290w(11)=8.010976114173917e-5_p 291x(12)=17.60269479469747_p 292w(12)=1.665816161482871e-7_p 293x(13)=26.39116923593885_p 294w(13)=3.720027960830202e-11_p 295else if(N==14)then 296x(1)=-19.76343621065332_p 297w(1)=6.055560405248214e-1_p 298x(2)=-18.76705151154246_p 299w(2)=1.379077459425347_p 300x(3)=-17.02914658428721_p 301w(3)=2.081354266270839_p 302x(4)=-14.64162212042819_p 303w(4)=2.671855749184328_p 304x(5)=-11.73544594677954_p 305w(5)=3.112237201933321_p 306x(6)=-8.480747841760989_p 307w(6)=3.360410270559719_p 308x(7)=-5.098244724187010_p 309w(7)=3.331581110265602_p 310x(8)=-1.901946794292929_p 311w(8)=2.598254041699046_p 312x(9)=9.668363726543742e-1_p 313w(9)=8.080974208562934e-1_p 314x(10)=4.306957805447959_p 315w(10)=5.069649140895955e-2_p 316x(11)=8.609769248654967_p 317w(11)=8.747974362993119e-4_p 318x(12)=13.96231252096782_p 319w(12)=5.144650902766344e-6_p 320x(13)=20.69848500859545_p 321w(13)=7.844411673191676e-9_p 322x(14)=29.80459509531974_p 323w(14)=1.264426006937047e-12_p 324else if(N==15)then 325x(1)=-19.78542255480206_p 326w(1)=5.494376582429612e-1_p 327x(2)=-18.88022829314334_p 328w(2)=1.254475989984406_p 329x(3)=-17.29562965074692_p 330w(3)=1.902340570691907_p 331x(4)=-15.10562548018762_p 332w(4)=2.460012877281205_p 333x(5)=-12.41610060989606_p 334w(5)=2.896145780503053_p 335x(6)=-9.364752385966169_p 336w(6)=3.177360552523300_p 337x(7)=-6.127526331449111_p 338w(7)=3.250185520386895_p 339x(8)=-2.949577628310765_p 340w(8)=2.888362666399352_p 341x(9)=-9.838579906568046e-2_p 342w(9)=1.435318475221152_p 343x(10)=2.849892651548303_p 344w(10)=1.805714965739970e-1_p 345x(11)=6.592459615534564_p 346w(11)=5.719646693601742e-3_p 347x(12)=11.21642970615475_p 348w(12)=6.846688852483986e-5_p 349x(13)=16.84780078900069_p 350w(13)=3.003254332632861e-7_p 351x(14)=23.85734532541331_p 352w(14)=3.453250879111445e-10_p 353x(15)=33.26024692626537_p 354w(15)=4.108625627685484e-14_p 355else if(N==16)then 356x(1)=-19.80398464275003_p 357w(1)=5.020311187678407e-1_p 358x(2)=-18.97602403135512_p 359w(2)=1.148661564774744_p 360x(3)=-17.52227091962527_p 361w(3)=1.748731275985970_p 362x(4)=-15.50317608297341_p 363w(4)=2.274987147215812_p 364x(5)=-13.00553862251178_p 365w(5)=2.701485892982864_p 366x(6)=-10.14239856209119_p 367w(6)=3.001051810851880_p 368x(7)=-7.056912506594921_p 369w(7)=3.135999542788255_p 370x(8)=-3.941637651758770_p 371w(8)=2.985860613178784_p 372x(9)=-1.062932274950569_p 373w(9)=2.010453816413300_p 374x(10)=1.660585651493235_p 375w(10)=4.642662574535880e-1_p 376x(11)=4.950292519717981_p 377w(11)=2.592974788679539e-2_p 378x(12)=9.028051208472112_p 379w(12)=5.363954088062528e-4_p 380x(13)=13.92301657307198_p 381w(13)=4.802129147911623e-6_p 382x(14)=19.80644382621807_p 383w(14)=1.620900481033295e-8_p 384x(15)=27.06973183210022_p 385w(15)=1.436025964908819e-11_p 386x(16)=36.75199528941828_p 387w(16)=1.284751489870714e-15_p 388else if(N==17)then 389x(1)=-19.81983410474521_p 390w(1)=4.615322885123728e-1_p 391x(2)=-19.05799583764061_p 392w(2)=1.057868185564688_p 393x(3)=-17.71698087967642_p 394w(3)=1.615794099045188_p 395x(4)=-15.84680465083466_p 396w(4)=2.112550476229670_p 397x(5)=-13.51949748468829_p 398w(5)=2.526432485057623_p 399x(6)=-10.82900554482041_p 400w(6)=2.834913476982563_p 401x(7)=-7.893683565025416_p 402w(7)=3.009409666749765_p 403x(8)=-4.868133938188313_p 404w(8)=2.980443818299084_p 405x(9)=-1.976618025606301_p 406w(9)=2.405844322768957_p 407x(10)=6.582606085273948e-1_p 408w(10)=9.041796060052063e-1_p 409x(11)=3.588918697810794_p 410w(11)=8.808727005571149e-2_p 411x(12)=7.226559008556424_p 412w(12)=2.899691158817529e-3_p 413x(13)=11.57635755670031_p 414w(13)=4.430652888729884e-5_p 415x(14)=16.71159884048039_p 416w(14)=3.082832294300767e-7_p 417x(15)=22.82716910661676_p 418w(15)=8.188216619803338e-10_p 419x(16)=30.32820232033592_p 420w(16)=5.686809410402574e-13_p 421x(17)=40.27495314099827_p 422w(17)=3.886306729241489e-17_p 423else 424call GD(-20) 425end if 426end subroutine GF_m20 427 428! [-19kT;infkT] 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.80201381311547_p 434w(1)=9.919648068191373_p 435x(2)=-3.526768404939610_p 436w(2)=9.080351937411423_p 437else if(N==3)then 438x(1)=-16.66602162625121_p 439w(1)=5.749160063020812_p 440x(2)=-8.682923500907314_p 441w(2)=9.091369949889410_p 442x(3)=-9.856472858292772e-1_p 443w(3)=4.159469992692573_p 444else if(N==4)then 445x(1)=-17.49427658086179_p 446w(1)=3.770229297589282_p 447x(2)=-11.85930459188424_p 448w(2)=7.027560302434473_p 449x(3)=-4.631462365584170_p 450w(3)=6.664636510494388_p 451x(4)=8.528756941940310e-1_p 452w(4)=1.537573895084653_p 453else if(N==5)then 454x(1)=-17.93258388516578_p 455w(1)=2.694564580828685_p 456x(2)=-13.75863733511359_p 457w(2)=5.420032329739570_p 458x(3)=-7.703171398341638_p 459w(3)=6.322857946361100_p 460x(4)=-1.942133983166052_p 461w(4)=4.225538670594744_p 462x(5)=2.819884196069364_p 463w(5)=3.370064780786974e-1_p 464else if(N==6)then 465x(1)=-18.19355631457084_p 466w(1)=2.045219425933743_p 467x(2)=-14.9608870421208_p 468w(2)=4.290671251634665_p 469x(3)=-9.959787432010831_p 470w(3)=5.499458337860428_p 471x(4)=-4.456945239697077_p 472w(4)=5.154153355471656_p 473x(5)=4.421738263772694e-2_p 474w(5)=1.970897942515073_p 475x(6)=5.178425022782308_p 476w(6)=3.959969218723200e-2_p 477else if(N==7)then 478x(1)=-18.36247040117996_p 479w(1)=1.621516106143955_p 480x(2)=-15.76718804759129_p 481w(2)=3.490799595063441_p 482x(3)=-11.59484816147048_p 483w(3)=4.721446837906120_p 484x(4)=-6.634517239902546_p 485w(4)=5.012604364354215_p 486x(5)=-1.979186255707338_p 487w(5)=3.602101106913148_p 488x(6)=1.943670613002912_p 489w(6)=5.484961827618048e-1_p 490x(7)=7.863285963536075_p 491w(7)=3.035812460112327e-3_p 492else if(N==8)then 493x(1)=-18.47876304855901_p 494w(1)=1.328290230539274_p 495x(2)=-16.3350127246853_p 496w(2)=2.908724269928566_p 497x(3)=-12.80131436180361_p 498w(3)=4.071077459900543_p 499x(4)=-8.399618530045927_p 500w(4)=4.612042759892961_p 501x(5)=-3.857101961127709_p 502w(5)=4.212839056276384_p 503x(6)=-1.737429879710975e-2_p 504w(6)=1.785160007094370_p 505x(7)=4.126886910364783_p 506w(7)=8.168584342888947e-2_p 507x(8)=10.76613960308552_p 508w(8)=1.803785418083903e-4_p 509else if(N==9)then 510x(1)=-18.56270436210288_p 511w(1)=1.115885460627803_p 512x(2)=-16.7512300440497_p 513w(2)=2.472788007131112_p 514x(3)=-13.71326975732636_p 515w(3)=3.542487837704410_p 516x(4)=-9.810465628293210_p 517w(4)=4.179570118221152_p 518x(5)=-5.546655227880795_p 519w(5)=4.216942178003018_p 520x(6)=-1.609825621355609_p 521w(6)=2.952736917885460_p 522x(7)=1.866937401036721_p 523w(7)=5.118232766614783e-1_p 524x(8)=6.612704431954331_p 525w(8)=7.757165837078883e-3_p 526x(9)=13.82140951203918_p 527w(9)=9.043531285259288e-6_p 528else if(N==10)then 529x(1)=-18.6255933726759_p 530w(1)=9.563476047396374e-1_p 531x(2)=-17.0665024202783_p 532w(2)=2.137598899791375_p 533x(3)=-14.41905799682345_p 534w(3)=3.113706973546405_p 535x(4)=-10.94336197485319_p 536w(4)=3.777148553196124_p 537x(5)=-7.003450056156724_p 538w(5)=4.018703242204241_p 539x(6)=-3.094760943682705_p 540w(6)=3.519091781860367_p 541x(7)=2.724966432760223e-1_p 542w(7)=1.396804665613420_p 543x(8)=3.996648477140828_p 544w(8)=8.002938328903186e-2_p 545x(9)=9.309041718602215_p 546w(9)=5.685008234276501e-4_p 547x(10)=16.99007163187573_p 548w(10)=4.005387685141270e-7_p 549else if(N==11)then 550x(1)=-18.6741455204556_p 551w(1)=8.329479402598071e-1_p 552x(2)=-17.31188825348771_p 553w(2)=1.873853326513616_p 554x(3)=-14.97708434266134_p 555w(3)=2.763447143356643_p 556x(4)=-11.86266631109308_p 557w(4)=3.420156949306753_p 558x(5)=-8.240267448484136_p 559w(5)=3.764505832301117_p 560x(6)=-4.472186251121821_p 561w(6)=3.642743004098151_p 562x(7)=-1.049746264665105_p 563w(7)=2.323795884776085_p 564x(8)=2.154478082512909_p 565w(8)=3.702433923989825e-1_p 566x(9)=6.392262724365528_p 567w(9)=8.271275773679029e-3_p 568x(10)=12.153229095278_p 569w(10)=3.524068896823020e-5_p 570x(11)=20.24662705561505_p 571w(11)=1.612899325275921e-8_p 572else if(N==12)then 573x(1)=-18.7125646123214_p 574w(1)=7.351619643893312e-1_p 575x(2)=-17.50726885509446_p 576w(2)=1.662123748213714_p 577x(3)=-15.42669323937674_p 578w(3)=2.474446092859394_p 579x(4)=-12.61770272739028_p 580w(4)=3.108885787314475_p 581x(5)=-9.288255101055414_p 582w(5)=3.504605049759478_p 583x(6)=-5.712423285863728_p 584w(6)=3.572534074581270_p 585x(7)=-2.273215843849831_p 586w(7)=2.914703897319273_p 587x(8)=7.626260597197106e-1_p 588w(8)=9.709301927357825e-1_p 589x(9)=4.275877759708590_p 590w(9)=5.593142162947065e-2_p 591x(10)=8.976011405201126_p 592w(10)=6.758438369507614e-4_p 593x(11)=15.10906980893074_p 594w(11)=1.932361423151654e-6_p 595x(12)=23.57332644084623_p 596w(12)=6.022345755282065e-10_p 597else if(N==13)then 598x(1)=-18.74359728555937_p 599w(1)=6.560873460949936e-1_p 600x(2)=-17.66585290057036_p 601w(2)=1.489174161957236_p 602x(3)=-15.79499799224657_p 603w(3)=2.233413374947048_p 604x(4)=-13.24531972143346_p 605w(4)=2.838837388855251_p 606x(5)=-10.17946446146363_p 607w(5)=3.257513837211535_p 608x(6)=-6.810653986403598_p 609w(6)=3.429336862751374_p 610x(7)=-3.429076546216255_p 611w(7)=3.156511905195813_p 612x(8)=-3.914157546240498e-1_p 613w(8)=1.709038295068293_p 614x(9)=2.662449642307967_p 615w(9)=2.240898519128848e-1_p 616x(10)=6.626777465000019_p 617w(10)=5.949504401094711e-3_p 618x(11)=11.69462151242283_p 619w(11)=4.738091447173444e-5_p 620x(12)=18.15338453636227_p 621w(12)=9.627165580187031e-8_p 622x(13)=26.95729047630613_p 623w(13)=2.114690504270728e-11_p 624else if(N==14)then 625x(1)=-18.76910367308258_p 626w(1)=5.910358886768120e-1_p 627x(2)=-17.79670176466_p 628w(2)=1.345752159359328_p 629x(3)=-16.10111416649267_p 630w(3)=2.030261450438067_p 631x(4)=-13.77297612079927_p 632w(4)=2.604423530400724_p 633x(5)=-10.94183484224786_p 634w(5)=3.029716199049524_p 635x(6)=-7.777208961010864_p 636w(6)=3.261636679431878_p 637x(7)=-4.503486443272602_p 638w(7)=3.194763127092679_p 639x(8)=-1.437875217265061_p 640w(8)=2.315608957014369_p 641x(9)=1.388248091489507_p 642w(9)=5.945085373850482e-1_p 643x(10)=4.794802292034820_p 644w(10)=3.177262751454420e-2_p 645x(11)=9.140448022354796_p 646w(11)=5.178816288665899e-4_p 647x(12)=14.51727886499724_p 648w(12)=2.963172596487001e-6_p 649x(13)=21.27001345871336_p 650w(13)=4.437655310994864e-9_p 651x(14)=30.38887869310355_p 652w(14)=7.056713293973093e-13_p 653else if(N==15)then 654x(1)=-18.79038253544306_p 655w(1)=5.367266724616648e-1_p 656x(2)=-17.9062068180608_p 657w(2)=1.225236354722265_p 658x(3)=-16.35881205399733_p 659w(3)=1.857331770959399_p 660x(4)=-14.2212660437112_p 661w(4)=2.400289379302373_p 662x(5)=-11.59839508518266_p 663w(5)=2.822666112769924_p 664x(6)=-8.627341425307675_p 665w(6)=3.089712360202088_p 666x(7)=-5.486165887893653_p 667w(7)=3.137841263995727_p 668x(8)=-2.428255004029888_p 669w(8)=2.673811115547103_p 670x(9)=3.311726746592434e-1_p 671w(9)=1.135810218474002_p 672x(10)=3.324683336027647_p 673w(10)=1.171321782022793e-1_p 674x(11)=7.121327882647225_p 675w(11)=3.403043649158469e-3_p 676x(12)=11.77426623052702_p 677w(12)=3.936593949432487e-5_p 678x(13)=17.42414611033031_p 679w(13)=1.691855395304558e-7_p 680x(14)=24.44708700655815_p 681w(14)=1.917556450855681e-10_p 682x(15)=33.86069210370499_p 683w(15)=2.255836604401734e-14_p 684else if(N==16)then 685x(1)=-18.80836476264819_p 686w(1)=4.908036905097590e-1_p 687x(2)=-17.9989867481037_p 688w(2)=1.122786703096660_p 689x(3)=-16.57821001369954_p 690w(3)=1.708772148620909_p 691x(4)=-14.60579159883605_p 692w(4)=2.221731299045083_p 693x(5)=-12.16773590550839_p 694w(5)=2.635664605415907_p 695x(6)=-9.376619924810511_p 696w(6)=2.922550158050808_p 697x(7)=-6.376833759887580_p 698w(7)=3.039414461996731_p 699x(8)=-3.367885083308305_p 700w(8)=2.826443592624575_p 701x(9)=-6.033130433928988e-1_p 702w(9)=1.698053071411018_p 703x(10)=2.121731374459842_p 704w(10)=3.178609230329605e-1_p 705x(11)=5.473788003770952_p 706w(11)=1.560814284259962e-2_p 707x(12)=9.587085531946229_p 708w(12)=3.085030737628147e-4_p 709x(13)=14.50317651846941_p 710w(13)=2.696914745295066e-6_p 711x(14)=20.40123357066261_p 712w(14)=8.959431999103726e-9_p 713x(15)=27.67557129851711_p 714w(15)=7.844596451978893e-12_p 715x(16)=37.36693205656168_p 716w(16)=6.951445379367009e-16_p 717else if(N==17)then 718x(1)=-18.82373293442323_p 719w(1)=4.515367360356218e-1_p 720x(2)=-18.07845100991899_p 721w(2)=1.034797162709826_p 722x(3)=-16.76687852519049_p 723w(3)=1.580069686055906_p 724x(4)=-14.93850849765526_p 725w(4)=2.064766564514975_p 726x(5)=-12.66477063799024_p 727w(5)=2.467146435473467_p 728x(6)=-10.03924067115027_p 729w(6)=2.764123805599797_p 730x(7)=-7.181023529898700_p 731w(7)=2.924127948468993_p 732x(8)=-4.249600945695697_p 733w(8)=2.856368069154074_p 734x(9)=-1.473323224677703_p 735w(9)=2.139108876959195_p 736x(10)=1.113891611508485_p 737w(10)=6.620331088867097e-1_p 738x(11)=4.103033190658738_p 739w(11)=5.422375443802178e-2_p 740x(12)=7.784804215146700_p 741w(12)=1.672848278802336e-3_p 742x(13)=12.15919065396723_p 743w(13)=2.483882235081853e-5_p 744x(14)=17.31067900222774_p 745w(14)=1.697595756830556e-7_p 746x(15)=23.43811120544429_p 747w(15)=4.451734182512990e-10_p 748x(16)=30.9484038779931_p 749w(16)=3.061599544697266e-13_p 750x(17)=40.90297227542177_p 751w(17)=2.075214066545992e-17_p 752else 753call GD(-19) 754end if 755end subroutine GF_m19 756 757! [-18kT;infkT] 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.00466036073876_p 763w(1)=9.439548871515244_p 764x(2)=-3.289241401608763_p 765w(2)=8.560451143714735_p 766else if(N==3)then 767x(1)=-15.77082961298327_p 768w(1)=5.490612559405316_p 769x(2)=-8.150660643969207_p 770w(2)=8.668234971519464_p 771x(3)=-8.100978690398901e-1_p 772w(3)=3.841152484305199_p 773else if(N==4)then 774x(1)=-16.55710073043468_p 775w(1)=3.612723223930193_p 776x(2)=-11.15925554048769_p 777w(2)=6.728671217268861_p 778x(3)=-4.252903077003987_p 779w(3)=6.315427452950114_p 780x(4)=1.047529358812038_p 781w(4)=1.343178121080811_p 782else if(N==5)then 783x(1)=-16.97406822056003_p 784w(1)=2.589715345102509_p 785x(2)=-12.96355782004749_p 786w(2)=5.206113472896976_p 787x(3)=-7.153077626938813_p 788w(3)=6.054182790223568_p 789x(4)=-1.654995978801906_p 790w(4)=3.882542016326300_p 791x(5)=3.082197629610171_p 792w(5)=2.674463906806258e-1_p 793else if(N==6)then 794x(1)=-17.22287033384974_p 795w(1)=1.970787770570362_p 796x(2)=-14.10853369923916_p 797w(2)=4.132531325785859_p 798x(3)=-9.295039324426474_p 799w(3)=5.287709441311396_p 800x(4)=-4.019666495316222_p 801w(4)=4.886033052826970_p 802x(5)=3.086912876879329e-1_p 803w(5)=1.694251046225133_p 804x(6)=5.514742030693133_p 805w(6)=2.868737851026002e-2_p 806else if(N==7)then 807x(1)=-17.38424405806274_p 808w(1)=1.566071526894235_p 809x(2)=-14.8781931173696_p 810w(2)=3.370028797419097_p 811x(3)=-10.85231086349047_p 812w(3)=4.552568972187516_p 813x(4)=-6.077572684146050_p 814w(4)=4.806936841612527_p 815x(5)=-1.629415336104333_p 816w(5)=3.278725538310399_p 817x(6)=2.255939485842282_p 818w(6)=4.236077912500349e-1_p 819x(7)=8.258271597019895_p 820w(7)=2.060547556171015e-3_p 821else if(N==8)then 822x(1)=-17.49556417733067_p 823w(1)=1.285426341553343_p 824x(2)=-15.42135835617337_p 825w(2)=2.813815275947039_p 826x(3)=-12.00443429128588_p 827w(3)=3.934460960162416_p 828x(4)=-7.755293466891800_p 829w(4)=4.443971885364344_p 830x(5)=-3.395270534350739_p 831w(5)=3.972178628059518_p 832x(6)=3.020348580084773e-1_p 833w(6)=1.493109321917914_p 834x(7)=4.509299977332863_p 835w(7)=5.692098531354819e-2_p 836x(8)=11.20712693795855_p 837w(8)=1.166169118578818e-4_p 838else if(N==9)then 839x(1)=-17.57606295673883_p 840w(1)=1.081759295551178_p 841x(2)=-15.82026822827559_p 842w(2)=2.396365807664711_p 843x(3)=-12.87728143237631_p 844w(3)=3.430255077335824_p 845x(4)=-9.101340175086325_p 846w(4)=4.038930974486370_p 847x(5)=-4.991430550972884_p 848w(5)=4.036904388850897_p 849x(6)=-1.227401321288712_p 850w(6)=2.631517697566705_p 851x(7)=2.229235414658248_p 852w(7)=3.792081317595585e-1_p 853x(8)=7.051122065463515_p 854w(8)=5.053018071152041e-3_p 855x(9)=14.29982757029218_p 856w(9)=5.623943584095880e-6_p 857else if(N==10)then 858x(1)=-17.63647410542629_p 859w(1)=9.285249510842198e-1_p 860x(2)=-16.12296196212716_p 861w(2)=2.074784011780542_p 862x(3)=-13.55414253388296_p 863w(3)=3.020123262269669_p 864x(4)=-10.1852036104876_p 865w(4)=3.657949582794688_p 866x(5)=-6.376180878252589_p 867w(5)=3.872359982577665_p 868x(6)=-2.626170610464742_p 869w(6)=3.272820233421733_p 870x(7)=6.347769231026557e-1_p 871w(7)=1.119675756012619_p 872x(8)=4.424166493052695_p 873w(8)=5.340831289361422e-2_p 874x(9)=9.789504844819310_p 875w(9)=3.536811853381303e-4_p 876x(10)=17.49973147181752_p 877w(10)=2.412098907952433e-7_p 878else if(N==11)then 879x(1)=-17.68318511428275_p 880w(1)=8.098168175212295e-1_p 881x(2)=-16.35893495064834_p 882w(2)=1.821314816632631_p 883x(3)=-14.09024305447193_p 884w(3)=2.684338602757518_p 885x(4)=-11.06669785231243_p 886w(4)=3.318074349741819_p 887x(5)=-7.556861297430753_p 888w(5)=3.640318527375998_p 889x(6)=-3.925642975145728_p 890w(6)=3.463467529723903_p 891x(7)=-6.482571320020386e-1_p 892w(7)=1.997187257400571_p 893x(8)=2.564569570001311_p 894w(8)=2.602813939606162e-1_p 895x(9)=6.870626421719130_p 896w(9)=5.179544888819780e-3_p 897x(10)=12.66704732057075_p 898w(10)=2.116577386043103e-5_p 899x(11)=20.78283666511255_p 900w(11)=9.453015306112074e-9_p 901else if(N==12)then 902x(1)=-17.72019951638099_p 903w(1)=7.156147242218146e-1_p 904x(2)=-16.54709558133075_p 905w(2)=1.617521682305367_p 906x(3)=-14.52287157895458_p 907w(3)=2.406745520798481_p 908x(4)=-11.79206503408608_p 909w(4)=3.020626728631731_p 910x(5)=-8.560343969865704_p 911w(5)=3.397073064542594_p 912x(6)=-5.102779713821126_p 913w(6)=3.432128287023573_p 914x(7)=-1.807435250902053_p 915w(7)=2.639857513738948_p 916x(8)=1.164254922159430_p 917w(8)=7.343312397921837e-1_p 918x(9)=4.745836933228706_p 919w(9)=3.569417935346201e-2_p 920x(10)=9.491823199787207_p 921w(10)=4.059466504628724e-4_p 922x(11)=15.6504343170835_p 923w(11)=1.127826530110683e-6_p 924x(12)=24.13242389242166_p 925w(12)=3.448329247706099e-10_p 926else if(N==13)then 927x(1)=-17.75013630776125_p 928w(1)=6.393388197412255e-1_p 929x(2)=-16.70002360768251_p 930w(2)=1.450822071957548_p 931x(3)=-14.87777535118601_p 932w(3)=2.174836080722304_p 933x(4)=-12.39602691399786_p 934w(4)=2.761854386468938_p 935x(5)=-9.415731394778874_p 936w(5)=3.163303885287581_p 937x(6)=-6.150300495935233_p 938w(6)=3.312148218765542_p 939x(7)=-2.897025260979644_p 940w(7)=2.953888774208147_p 941x(8)=2.732248679695939e-2_p 942w(8)=1.391442367500201_p 943x(9)=3.118105058178589_p 944w(9)=1.487467271931289e-1_p 945x(10)=7.141231012736632_p 946w(10)=3.591047573535875e-3_p 947x(11)=12.23985140236894_p 948w(11)=2.758094514638735e-5_p 949x(12)=18.71807490504211_p 950w(12)=5.485481687636605e-8_p 951x(13)=27.53635701193173_p 952w(13)=1.186552581431423e-11_p 953else if(N==14)then 954x(1)=-17.77477128275375_p 955w(1)=5.765145185758825e-1_p 956x(2)=-16.82636033101532_p 957w(2)=1.312406556322444_p 958x(3)=-15.1731384467621_p 959w(3)=1.979080399902698_p 960x(4)=-12.90454889213718_p 961w(4)=2.536727896308690_p 962x(5)=-10.14888588121864_p 963w(5)=2.946468464285473_p 964x(6)=-7.075542881211831_p 965w(6)=3.160257018290840_p 966x(7)=-3.913970301714333_p 967w(7)=3.042958673256199_p 968x(8)=-9.770693550479351e-1_p 969w(8)=2.006399599879354_p 970x(9)=1.830755621117856_p 971w(9)=4.194533051728845e-1_p 972x(10)=5.303473962650494_p 973w(10)=1.943051075545416e-2_p 974x(11)=9.687594523823842_p 975w(11)=3.013882639149480e-4_p 976x(12)=15.08672305670697_p 977w(12)=1.681738753588219e-6_p 978x(13)=21.85481015255117_p 979w(13)=2.477001300124525e-9_p 980x(14)=30.98554766439064_p 981w(14)=3.889564058562031e-13_p 982else if(N==15)then 983x(1)=-17.79534572814586_p 984w(1)=5.240067551834983e-1_p 985x(2)=-16.93220842951383_p 986w(2)=1.195961663570754_p 987x(3)=-15.42208070351338_p 988w(3)=1.812222261923807_p 989x(4)=-13.33715800219586_p 990w(4)=2.340315335588433_p 991x(5)=-10.78133586584909_p 992w(5)=2.748580159550706_p 993x(6)=-7.891539848856336_p 994w(6)=3.000278674189949_p 995x(7)=-4.849019382552180_p 996w(7)=3.016732452699959_p 997x(8)=-1.914173350839229_p 998w(8)=2.425502565077501_p 999x(9)=7.736182553888971e-1_p 1000w(9)=8.608227465657522e-1_p 1001x(10)=3.822748106540838_p 1002w(10)=7.356842521513036e-2_p 1003x(11)=7.667967690854132_p 1004w(11)=1.986594528849945e-3_p 1005x(12)=12.34716569344802_p 1006w(12)=2.228702725555191e-5_p 1007x(13)=18.01409639469198_p 1008w(13)=9.400323872776962e-8_p 1009x(14)=25.04945601447258_p 1010w(14)=1.051326753013675e-10_p 1011x(15)=34.47301621799561_p 1012w(15)=1.223864208553232e-14_p 1013else if(N==16)then 1014x(1)=-17.81275030727938_p 1015w(1)=4.795617678666628e-1_p 1016x(2)=-17.02198316655575_p 1017w(2)=1.096866263126989_p 1018x(3)=-15.63425633985093_p 1019w(3)=1.668703816768661_p 1020x(4)=-13.70868094150189_p 1021w(4)=2.168235016588304_p 1022x(5)=-11.33056689477798_p 1023w(5)=2.569317521458913_p 1024x(6)=-8.612273800828289_p 1025w(6)=2.842717527781701_p 1026x(7)=-5.700184979818200_p 1027w(7)=2.937504867257536_p 1028x(8)=-2.801722039958980_p 1029w(8)=2.640388579523079_p 1030x(9)=-1.410853355000634e-1_p 1031w(9)=1.378590660544907_p 1032x(10)=2.606640729889556_p 1033w(10)=2.087508338543626e-1_p 1034x(11)=6.016906969110737_p 1035w(11)=9.187118998485658e-3_p 1036x(12)=10.16194162538579_p 1037w(12)=1.745434134392519e-4_p 1038x(13)=15.0973361531929_p 1039w(13)=1.493154472894365e-6_p 1040x(14)=21.00889187529517_p 1041w(14)=4.888232143040211e-9_p 1042x(15)=28.29347185291397_p 1043w(15)=4.233533518457128e-12_p 1044x(16)=37.99328846372791_p 1045w(16)=3.718340743778614e-16_p 1046else if(N==17)then 1047x(1)=-17.82763878003004_p 1048w(1)=4.415226952169720e-1_p 1049x(2)=-17.09894746020112_p 1050w(2)=1.011673141345161_p 1051x(3)=-15.81689809065359_p 1052w(3)=1.544230575163575_p 1053x(4)=-14.03050086296262_p 1054w(4)=2.016750935763837_p 1055x(5)=-11.81066530583981_p 1056w(5)=2.407392172268684_p 1057x(6)=-9.250781599881201_p 1058w(6)=2.692277766033267_p 1059x(7)=-6.471240951683964_p 1060w(7)=2.835376108701214_p 1061x(8)=-3.637706945973269_p 1062w(8)=2.714665810568893_p 1063x(9)=-9.750652173681323e-1_p 1064w(9)=1.840786189530217_p 1065x(10)=1.589343396093912_p 1066w(10)=4.619141848467788e-1_p 1067x(11)=4.639093150313913_p 1068w(11)=3.244863884839515e-2_p 1069x(12)=8.359898271173018_p 1070w(12)=9.479848435329689e-4_p 1071x(13)=12.75650746606672_p 1072w(13)=1.371961905682396e-5_p 1073x(14)=17.92290221842357_p 1074w(14)=9.224117214788515e-8_p 1075x(15)=24.06128812725705_p 1076w(15)=2.390588527723052e-10_p 1077x(16)=31.58016226754206_p 1078w(16)=1.629212443915578e-13_p 1079x(17)=41.54199317170228_p 1080w(17)=1.095952099696873e-17_p 1081else 1082call GD(-18) 1083end if 1084end subroutine GF_m18 1085 1086! [-17kT;infkT] 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.20653105302386_p 1092w(1)=8.961195868401102_p 1093x(2)=-3.048806096358868_p 1094w(2)=8.038804172998274_p 1095else if(N==3)then 1096x(1)=-14.8750769086945_p 1097w(1)=5.233410363653921_p 1098x(2)=-7.616418692607541_p 1099w(2)=8.245051535589660_p 1100x(3)=-6.275440724601082e-1_p 1101w(3)=3.521538142155794_p 1102else if(N==4)then 1103x(1)=-15.6195515459349_p 1104w(1)=3.456131865301683_p 1105x(2)=-10.45765608367017_p 1106w(2)=6.430831912166185_p 1107x(3)=-3.872959902779743_p 1108w(3)=5.957222597071654_p 1109x(4)=1.255977414549942_p 1110w(4)=1.155813666859854_p 1111else if(N==5)then 1112x(1)=-16.01530816166952_p 1113w(1)=2.485470690196998_p 1114x(2)=-12.16740167675782_p 1115w(2)=4.993086948643365_p 1116x(3)=-6.601664594514566_p 1117w(3)=5.783133301863342_p 1118x(4)=-1.364382301899727_p 1119w(4)=3.530576523560669_p 1120x(5)=3.363792820741406_p 1121w(5)=2.077325771350040e-1_p 1122else if(N==6)then 1123x(1)=-16.2520246207372_p 1124w(1)=1.896753114740103_p 1125x(2)=-13.25545789493357_p 1126w(2)=3.975030649925132_p 1127x(3)=-8.629193683237538_p 1128w(3)=5.075526480791626_p 1129x(4)=-3.582992313036415_p 1130w(4)=4.604222778895665_p 1131x(5)=5.860609982267795e-1_p 1132w(5)=1.428111767373783_p 1133x(6)=5.870638701252592_p 1134w(6)=2.035524967306769e-2_p 1135else if(N==7)then 1136x(1)=-16.40591341521856_p 1137w(1)=1.510886648062215_p 1138x(2)=-13.98872156673365_p 1139w(2)=3.249689791131861_p 1140x(3)=-10.10899391799916_p 1141w(3)=4.383646361614995_p 1142x(4)=-5.520914159459844_p 1143w(4)=4.595626075422028_p 1144x(5)=-1.278271911245498_p 1145w(5)=2.940395831532197_p 1146x(6)=2.589494666339033_p 1147w(6)=3.183830220720140e-1_p 1148x(7)=8.671688104963510_p 1149w(7)=1.372311564067138e-3_p 1150else if(N==8)then 1151x(1)=-16.51229770572805_p 1152w(1)=1.242730711074507_p 1153x(2)=-14.50739541187791_p 1154w(2)=2.719185791175351_p 1155x(3)=-11.20704339629164_p 1156w(3)=3.797855836231221_p 1157x(4)=-7.111022975322052_p 1158w(4)=4.273612487504830_p 1159x(5)=-2.936224661932860_p 1160w(5)=3.711331934829461_p 1161x(6)=6.348417916622613e-1_p 1162w(6)=1.216490791707564_p 1163x(7)=4.913141933079933_p 1164w(7)=3.871841402827233e-2_p 1165x(8)=11.66544488731892_p 1166w(8)=7.407484817028511e-5_p 1167else if(N==9)then 1168x(1)=-16.58937861487619_p 1169w(1)=1.047739709247107_p 1170x(2)=-14.88911294016845_p 1171w(2)=2.320114798886117_p 1172x(3)=-12.04098451056026_p 1173w(3)=3.318012907553513_p 1174x(4)=-8.392266027775193_p 1175w(4)=3.897134587623965_p 1176x(5)=-4.438613909149009_p 1177w(5)=3.845928587400503_p 1178x(6)=-8.435148301329284e-1_p 1179w(6)=2.295708317591756_p 1180x(7)=2.614362218564612_p 1181w(7)=2.721319456412546e-1_p 1182x(8)=7.508745681412485_p 1183w(8)=3.225747532557502e-3_p 1184x(9)=14.79458320719674_p 1185w(9)=3.439922603102300e-6_p 1186else if(N==10)then 1187x(1)=-16.64732872725292_p 1188w(1)=9.007667029227658e-1_p 1189x(2)=-15.17930746885458_p 1190w(2)=2.012063926852444_p 1191x(3)=-12.68906504261358_p 1192w(3)=2.926495480063648_p 1193x(4)=-9.427162711281078_p 1194w(4)=3.538023217878097_p 1195x(5)=-5.750617316330634_p 1196w(5)=3.720713903630950_p 1197x(6)=-2.161975230284154_p 1198w(6)=2.999267126118565_p 1199x(7)=1.013289502337840_p 1200w(7)=8.677132318130822e-1_p 1201x(8)=4.873728116465605_p 1202w(8)=3.474019712962719e-2_p 1203x(9)=10.28747249601894_p 1204w(9)=2.161119806073847e-4_p 1205x(10)=18.02483043438926_p 1206w(10)=1.430095895939777e-7_p 1207else if(N==11)then 1208x(1)=-16.69221022919786_p 1209w(1)=7.867209061422892e-1_p 1210x(2)=-15.40592290055188_p 1211w(2)=1.768817290572990_p 1212x(3)=-13.20334451969499_p 1213w(3)=2.605154245748385_p 1214x(4)=-10.27091967396488_p 1215w(4)=3.215454214836434_p 1216x(5)=-6.874755478768686_p 1217w(5)=3.513270466304906_p 1218x(6)=-3.383905456944808_p 1219w(6)=3.264716979002117_p 1220x(7)=-2.423092001624823e-1_p 1221w(7)=1.665873721932710_p 1222x(8)=2.998683713513314_p 1223w(8)=1.768017612428917e-1_p 1224x(9)=7.368184817286602_p 1225w(9)=3.177946362688653e-3_p 1226x(10)=13.19708981581959_p 1227w(10)=1.250379487159613e-5_p 1228x(11)=21.33367722166336_p 1229w(11)=5.459093698288151e-9_p 1230else if(N==12)then 1231x(1)=-16.72782807074501_p 1232w(1)=6.960822802685701e-1_p 1233x(2)=-15.58690232242892_p 1234w(2)=1.572922645583197_p 1235x(3)=-13.61906712428914_p 1236w(3)=2.338944112074135_p 1237x(4)=-10.96667875707882_p 1238w(4)=2.931926231586765_p 1239x(5)=-7.833522110719811_p 1240w(5)=3.287761499640254_p 1241x(6)=-4.496995656601631_p 1242w(6)=3.280759451214548_p 1243x(7)=-1.345719134994456_p 1244w(7)=2.335638053765647_p 1245x(8)=1.586244852272438_p 1246w(8)=5.335148486105576e-1_p 1247x(9)=5.237507343682971_p 1248w(9)=2.221073700347426e-2_p 1249x(10)=10.02485266409726_p 1250w(10)=2.395332640338792e-4_p 1251x(11)=16.20698262965185_p 1252w(11)=6.481934958534662e-7_p 1253x(12)=24.70542792317458_p 1254w(12)=1.946997258015871e-10_p 1255else if(N==13)then 1256x(1)=-16.75667470674582_p 1257w(1)=6.225907084347373e-1_p 1258x(2)=-15.73420164245498_p 1259w(2)=1.412446243754221_p 1260x(3)=-13.96062257052315_p 1261w(3)=2.116139610115114_p 1262x(4)=-11.54703175936995_p 1263w(4)=2.684484954844889_p 1264x(5)=-8.652972163438273_p 1265w(5)=3.067844385939379_p 1266x(6)=-5.492968411804681_p 1267w(6)=3.188801611432971_p 1268x(7)=-2.371720012848556_p 1269w(7)=2.721048724555895_p 1270x(8)=4.565193355782611e-1_p 1271w(8)=1.089031079869192_p 1272x(9)=3.597989706114166_p 1273w(9)=9.547198090366207e-2_p 1274x(10)=7.674330740813271_p 1275w(10)=2.124913208587125e-3_p 1276x(11)=12.800903610489_p 1277w(11)=1.579752748048652e-5_p 1278x(12)=19.29707073233113_p 1279w(12)=3.080667981167197e-8_p 1280x(13)=28.1286810625966_p 1281w(13)=6.569486660298942e-12_p 1282else if(N==14)then 1283x(1)=-16.78044232178904_p 1284w(1)=5.619833917986424e-1_p 1285x(2)=-15.8560455067851_p 1286w(2)=1.279018388182970_p 1287x(3)=-14.24526958357586_p 1288w(3)=1.927767438120449_p 1289x(4)=-12.0364520819157_p 1290w(4)=2.468681121764234_p 1291x(5)=-9.356840671783393_p 1292w(5)=2.862261647975972_p 1293x(6)=-6.376330585260235_p 1294w(6)=3.055141469512693_p 1295x(7)=-3.330824443359534_p 1296w(7)=2.870216301962174_p 1297x(8)=-5.163547126571134e-1_p 1298w(8)=1.679550061351175_p 1299x(9)=2.297031645834148_p 1300w(9)=2.836021174524697e-1_p 1301x(10)=5.832874100103585_p 1302w(10)=1.160476120846650e-2_p 1303x(11)=10.25139252906875_p 1304w(11)=1.724004396815735e-4_p 1305x(12)=15.67090575804485_p 1306w(12)=9.402664172532157e-7_p 1307x(13)=22.45315614207732_p 1308w(13)=1.363820760409445e-9_p 1309x(14)=31.59489146887975_p 1310w(14)=2.116719951049766e-13_p 1311else if(N==15)then 1312x(1)=-16.80031522036793_p 1313w(1)=5.112698857494048e-1_p 1314x(2)=-15.95825023314459_p 1315w(2)=1.166631259148254_p 1316x(3)=-14.48548192009084_p 1317w(3)=1.766972512180454_p 1318x(4)=-12.45340219725809_p 1319w(4)=2.280015240125559_p 1320x(5)=-9.965132094111107_p 1321w(5)=2.673711064113284_p 1322x(6)=-7.157817200787120_p 1323w(6)=2.908358783190628_p 1324x(7)=-4.217173714513158_p 1325w(7)=2.882741606225907_p 1326x(8)=-1.406502395487769_p 1327w(8)=2.141899654849193_p 1328x(9)=1.233827947879315_p 1329w(9)=6.224270135039514e-1_p 1330x(10)=4.344079498596900_p 1331w(10)=4.482249524268498e-2_p 1332x(11)=8.232406870862759_p 1333w(11)=1.138053381997196e-3_p 1334x(12)=12.93533038008362_p 1335w(12)=1.242212888829169e-5_p 1336x(13)=18.61789739735637_p 1337w(13)=5.150226918660527e-8_p 1338x(14)=25.66471479878496_p 1339w(14)=5.689624887542685e-11_p 1340x(15)=35.09749046133253_p 1341w(15)=6.559275971809290e-15_p 1342else if(N==16)then 1343x(1)=-16.8171441760954_p 1344w(1)=4.682978269218593e-1_p 1345x(2)=-16.04502927349038_p 1346w(2)=1.070881053161576_p 1347x(3)=-14.69045277229381_p 1348w(3)=1.628490269329518_p 1349x(4)=-12.81193584961219_p 1350w(4)=2.114432126663530_p 1351x(5)=-10.49421577256535_p 1352w(5)=2.502303206307030_p 1353x(6)=-7.849749958795041_p 1354w(6)=2.761087385262557_p 1355x(7)=-5.027880530907227_p 1356w(7)=2.827683410840416_p 1357x(8)=-2.243854857857004_p 1358w(8)=2.420597421487888_p 1359x(9)=3.290208730997134e-1_p 1360w(9)=1.069098128090951_p 1361x(10)=3.116450673745389_p 1362w(10)=1.317392215157913e-1_p 1363x(11)=6.579447494613353_p 1364w(11)=5.292036476872804e-3_p 1365x(12)=10.75273677266887_p 1366w(12)=9.713788540720070e-5_p 1367x(13)=15.70569905350442_p 1368w(13)=8.148218155148861e-7_p 1369x(14)=21.62965196889103_p 1370w(14)=2.631908145305392e-9_p 1371x(15)=28.92368108711278_p 1372w(15)=2.256589901399534e-12_p 1373x(16)=38.63132076075298_p 1374w(16)=1.965759425536122e-16_p 1375else if(N==17)then 1376x(1)=-16.83155436354847_p 1377w(1)=4.314831089667757e-1_p 1378x(2)=-16.11950013847052_p 1379w(2)=9.884782607498327e-1_p 1380x(3)=-14.86707935814956_p 1381w(3)=1.508243782066074_p 1382x(4)=-13.12286570167486_p 1383w(4)=1.968444802776566_p 1384x(5)=-10.95734581926038_p 1385w(5)=2.347052462471437_p 1386x(6)=-8.463959777827021_p 1387w(6)=2.619043529276746_p 1388x(7)=-5.765084545720438_p 1389w(7)=2.741534130071136_p 1390x(8)=-3.033703352161500_p 1391w(8)=2.548148672124063_p 1392x(9)=-4.782771808701210e-1_p 1393w(9)=1.521171544240365_p 1394x(10)=2.088074138692539_p 1395w(10)=3.069520561351937e-1_p 1396x(11)=5.196719571819144_p 1397w(11)=1.891239488947035e-2_p 1398x(12)=8.951826199801056_p 1399w(12)=5.277827933428291e-4_p 1400x(13)=13.36845784912971_p 1401w(13)=7.465264796584842e-6_p 1402x(14)=18.54846882742037_p 1403w(14)=4.944671974034682e-8_p 1404x(15)=24.69692273633405_p 1405w(15)=1.267712027007651e-10_p 1406x(16)=32.22371296598303_p 1407w(16)=8.567517553537345e-14_p 1408x(17)=42.1922596441432_p 1409w(17)=5.722917586784377e-18_p 1410else 1411call GD(-17) 1412end if 1413end subroutine GF_m17 1414 1415! [-16kT;infkT] 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.40753460191992_p 1421w(1)=8.484775125798155_p 1422x(2)=-2.804962848165129_p 1423w(2)=7.515224986737014_p 1424else if(N==3)then 1425x(1)=-13.97871821346054_p 1426w(1)=4.977655049105642_p 1427x(2)=-7.080128266191962_p 1428w(2)=7.821265259346206_p 1429x(3)=-4.368117624330574e-1_p 1430w(3)=3.201079804083320_p 1431else if(N==4)then 1432x(1)=-14.68161021854647_p 1433w(1)=3.300497564918344_p 1434x(2)=-9.754470785803079_p 1435w(2)=6.133926372011440_p 1436x(3)=-3.491670871713184_p 1437w(3)=5.588154804223506_p 1438x(4)=1.480174186985312_p 1439w(4)=9.774213713818787e-1_p 1440else if(N==5)then 1441x(1)=-15.05629793364784_p 1442w(1)=2.381842570109182_p 1443x(2)=-11.37016717863363_p 1444w(2)=4.780897281041286_p 1445x(3)=-6.049157410087459_p 1446w(3)=5.508458185915934_p 1447x(4)=-1.069081148509315_p 1448w(4)=3.171144940524705_p 1449x(5)=3.666226704393334_p 1450w(5)=1.576571349440607e-1_p 1451else if(N==6)then 1452x(1)=-15.28101955971044_p 1453w(1)=1.823112875902200_p 1454x(2)=-12.4016769536063_p 1455w(2)=3.818121740851303_p 1456x(3)=-7.962410797079914_p 1457w(3)=4.862422022793744_p 1458x(4)=-3.147262702885787_p 1459w(4)=4.305577849777160_p 1460x(5)=8.789158006589822e-1_p 1461w(5)=1.176631988485668_p 1462x(6)=6.247070923654787_p 1463w(6)=1.413363472509215e-2_p 1464else if(N==7)then 1465x(1)=-15.42748168159343_p 1466w(1)=1.455952243543489_p 1467x(2)=-13.09879950685951_p 1468w(2)=3.129737058146092_p 1469x(3)=-9.365025491763594_p 1470w(3)=4.214432405976064_p 1471x(4)=-4.965092710769486_p 1472w(4)=4.376296704088186_p 1473x(5)=-9.241207944132026e-1_p 1474w(5)=2.590208297875138_p 1475x(6)=2.946092194859093_p 1476w(6)=2.324772736743992e-1_p 1477x(7)=9.104271162924396_p 1478w(7)=8.961292318005675e-4_p 1479else if(N==8)then 1480x(1)=-15.52896805132876_p 1481w(1)=1.200191333970508_p 1482x(2)=-13.59315321706639_p 1483w(2)=2.624792433294898_p 1484x(3)=-10.4092526043489_p 1485w(3)=3.661103207942296_p 1486x(4)=-6.467222964821481_p 1487w(4)=4.099837250105542_p 1488x(5)=-2.480253129406763_p 1489w(5)=3.426554312711164_p 1490x(6)=9.843590116571680e-1_p 1491w(6)=9.617765876305042e-1_p 1492x(7)=5.339089189806386_p 1493w(7)=2.569878608301585e-2_p 1494x(8)=12.14169941571011_p 1495w(8)=4.620079723883103e-5_p 1496else if(N==9)then 1497x(1)=-15.60265617356153_p 1498w(1)=1.013813808945119_p 1499x(2)=-13.95779391173553_p 1500w(2)=2.243994310580270_p 1501x(3)=-11.20447779458813_p 1502w(3)=3.205643178480010_p 1503x(4)=-7.683555582012971_p 1504w(4)=3.753602921510685_p 1505x(5)=-3.889047267006056_p 1506w(5)=3.639848905358729_p 1507x(6)=-4.554582890246930e-1_p 1508w(6)=1.952113090823260_p 1509x(7)=3.023920600158810_p 1510w(7)=1.889645479587534e-1_p 1511x(8)=7.986065038568107_p 1512w(8)=2.017280459592690e-3_p 1513x(9)=15.30618886343207_p 1514w(9)=2.068418749635495e-6_p 1515else if(N==10)then 1516x(1)=-15.65816210918383_p 1517w(1)=8.730599993362463e-1_p 1518x(2)=-14.23556773642665_p 1519w(2)=1.949400944125087_p 1520x(3)=-11.82391445813685_p 1521w(3)=2.832728625544330_p 1522x(4)=-8.669487613386783_p 1523w(4)=3.417024608375905_p 1524x(5)=-5.127497631846201_p 1525w(5)=3.561333532249836_p 1526x(6)=-1.701723685943044_p 1527w(6)=2.696555692147776_p 1528x(7)=1.411725496773323_p 1529w(7)=6.477376806784856e-1_p 1530x(8)=5.345689545352485_p 1531w(8)=2.202930286837174e-2_p 1532x(9)=10.80337988956024_p 1533w(9)=1.296437715629357e-4_p 1534x(10)=18.56581328349386_p 1535w(10)=8.343756847769632e-8_p 1536else if(N==11)then 1537x(1)=-15.70122558589431_p 1538w(1)=7.636478106597161e-1_p 1539x(2)=-14.45287937357837_p 1540w(2)=1.716326006459914_p 1541x(3)=-12.31646920760952_p 1542w(3)=2.525814247495605_p 1543x(4)=-9.475538256406082_p 1544w(4)=3.112062666491461_p 1545x(5)=-6.194522316476164_p 1546w(5)=3.382039498049603_p 1547x(6)=-2.847829111178024_p 1548w(6)=3.040531386303033_p 1549x(7)=1.722457800745592e-1_p 1550w(7)=1.341588242641627_p 1551x(8)=3.457842866164381_p 1552w(8)=1.160727829141114e-1_p 1553x(9)=7.885218085240266_p 1554w(9)=1.910205640524495e-3_p 1555x(10)=13.74374380115244_p 1556w(10)=7.262774396522901e-6_p 1557x(11)=21.89954384473538_p 1558w(11)=3.105178050726221e-9_p 1559else if(N==12)then 1560x(1)=-15.73545476343516_p 1561w(1)=6.765528900450791e-1_p 1562x(2)=-14.62671461601505_p 1563w(2)=1.528294696517936_p 1564x(3)=-12.71535296303973_p 1565w(3)=2.270972973063707_p 1566x(4)=-10.14172082455151_p 1567w(4)=2.842610538757723_p 1568x(5)=-7.108238455226934_p 1569w(5)=3.175904579066075_p 1570x(6)=-3.896137073580592_p 1571w(6)=3.113666130966418_p 1572x(7)=-8.858620510363331e-1_p 1573w(7)=2.006786874931494_p 1574x(8)=2.031792723689428_p 1575w(8)=3.715886884330956e-1_p 1576x(9)=5.750961860338193_p 1577w(9)=1.348356266505748e-2_p 1578x(10)=10.57539619983547_p 1579w(10)=1.388112674565731e-4_p 1580x(11)=16.779063181319_p 1581w(11)=3.667127629426163e-7_p 1582x(12)=25.29269638584612_p 1583w(12)=1.083628676901934e-10_p 1584else if(N==13)then 1585x(1)=-15.76321670767544_p 1586w(1)=6.058319849795384e-1_p 1587x(2)=-14.76841079319266_p 1588w(2)=1.374017312162057_p 1589x(3)=-13.04360626982331_p 1590w(3)=2.057263437468790_p 1591x(4)=-10.69848897901504_p 1592w(4)=2.606591789061315_p 1593x(5)=-7.891550910284865_p 1594w(5)=2.970649759083979_p 1595x(6)=-4.839581337239943_p 1596w(6)=3.056330736928011_p 1597x(7)=-1.853166905753667_p 1598w(7)=2.453378723294299_p 1599x(8)=9.012114760354611e-1_p 1600w(8)=8.153594999171503e-1_p 1601x(9)=4.102401633033881_p 1602w(9)=5.933526451318671e-2_p 1603x(10)=8.226212936056257_p 1604w(10)=1.232687362374256e-3_p 1605x(11)=13.37806563517077_p 1606w(11)=8.900713727978392e-6_p 1607x(12)=19.8906907053596_p 1608w(12)=1.704715049265697e-8_p 1609x(13)=28.73459180866289_p 1610w(13)=3.587877444245231e-12_p 1611else if(N==14)then 1612x(1)=-15.78612074884037_p 1613w(1)=5.474321956895636e-1_p 1614x(2)=-14.88577940559512_p 1615w(2)=1.245560623950767_p 1616x(3)=-13.31756851605555_p 1617w(3)=1.876268708449234_p 1618x(4)=-11.1688229592417_p 1619w(4)=2.400170066756790_p 1620x(5)=-8.566003846392379_p 1621w(5)=2.776760709230845_p 1622x(6)=-5.680318474127672_p 1623w(6)=2.944507951725797_p 1624x(7)=-2.755104912798330_p 1625w(7)=2.669301672926041_p 1626x(8)=-5.118262499709283e-2_p 1627w(8)=1.349266194679193_p 1628x(9)=2.788918734772041_p 1629w(9)=1.838611051372657e-1_p 1630x(10)=6.382900385735467_p 1631w(10)=6.773448430576363e-3_p 1632x(11)=10.8320398794573_p 1633w(11)=9.691706952301193e-5_p 1634x(12)=16.27009959340379_p 1635w(12)=5.177489690660812e-7_p 1636x(13)=23.06534720320326_p 1637w(13)=7.404903387090691e-10_p 1638x(14)=32.21721670080584_p 1639w(14)=1.136991320646629e-13_p 1640else if(N==15)then 1641x(1)=-15.80529471373083_p 1642w(1)=4.985064347025207e-1_p 1643x(2)=-14.98435278216276_p 1644w(2)=1.137220208578534_p 1645x(3)=-13.54907164359482_p 1646w(3)=1.721534129551581_p 1647x(4)=-11.57012173888823_p 1648w(4)=2.219293100634049_p 1649x(5)=-9.150044906200179_p 1650w(5)=2.597811170543161_p 1651x(6)=-6.426777428567210_p 1652w(6)=2.812846087560578_p 1653x(7)=-3.591882716327505_p 1654w(7)=2.729981086411165_p 1655x(8)=-9.029707017715808e-1_p 1656w(8)=1.827291693944102_p 1657x(9)=1.716162428652773_p 1658w(9)=4.283312658733944e-1_p 1659x(10)=4.888461783962717_p 1660w(10)=2.653825837172046e-2_p 1661x(11)=8.814698993045836_p 1662w(11)=6.398334941242222e-4_p 1663x(12)=13.53897454144832_p 1664w(12)=6.815023263480658e-6_p 1665x(13)=19.23580794625201_p 1666w(13)=2.781658595978396e-8_p 1667x(14)=26.29314113878077_p 1668w(14)=3.038548560920177e-11_p 1669x(15)=35.73440324458748_p 1670w(15)=3.471768657448944e-15_p 1671else if(N==16)then 1672x(1)=-15.82154982920245_p 1673w(1)=4.570028765830712e-1_p 1674x(2)=-15.06814418897101_p 1675w(2)=1.044808019560710_p 1676x(3)=-13.74685083988662_p 1677w(3)=1.588087682275675_p 1678x(4)=-11.91566767804569_p 1679w(4)=2.060239446261630_p 1680x(5)=-9.658910606316805_p 1681w(5)=2.434428619910753_p 1682x(6)=-7.089546749734696_p 1683w(6)=2.676933862671511_p 1684x(7)=-4.361056674038092_p 1685w(7)=2.705946183730003_p 1686x(8)=-1.694177936729833_p 1687w(8)=2.161885738336748_p 1688x(9)=8.129128790521988e-1_p 1689w(9)=7.875338753343661e-1_p 1690x(10)=3.651566010603871_p 1691w(10)=8.009518694596279e-2_p 1692x(11)=7.161241469572426_p 1693w(11)=2.985010178689519e-3_p 1694x(12)=11.35960452397603_p 1695w(12)=5.317116756686683e-5_p 1696x(13)=16.32848108779372_p 1697w(13)=4.381792166824513e-7_p 1698x(14)=22.26376101997879_p 1699w(14)=1.398078551407051e-9_p 1700x(15)=29.56646232373367_p 1701w(15)=1.187697724083510e-12_p 1702x(16)=39.28130242710876_p 1703w(16)=1.026834016774095e-16_p 1704else if(N==17)then 1705x(1)=-15.83548292135565_p 1706w(1)=4.214095752248760e-1_p 1707x(2)=-15.14012685848181_p 1708w(2)=9.651911489607091e-1_p 1709x(3)=-13.91746995284031_p 1710w(3)=1.472069360101374_p 1711x(4)=-12.21570443917221_p 1712w(4)=1.919774930446915_p 1713x(5)=-10.1050142523326_p 1714w(5)=2.285970688655857_p 1715x(6)=-7.679195544141268_p 1716w(6)=2.543916669514237_p 1717x(7)=-5.063511809974234_p 1718w(7)=2.639998941011064_p 1719x(8)=-2.438631808137660_p 1720w(8)=2.348453311563877_p 1721x(9)=2.228608481624795e-2_p 1722w(9)=1.197625114617232_p 1723x(10)=2.612381952450192_p 1724w(10)=1.945447182641609e-1_p 1725x(11)=5.775496261385435_p 1726w(11)=1.075291759833027e-2_p 1727x(12)=9.560601538921842_p 1728w(12)=2.887092747485012e-4_p 1729x(13)=13.99520483965004_p 1730w(13)=4.001090732531941e-6_p 1731x(14)=19.18759221291978_p 1732w(14)=2.614463929195502e-8_p 1733x(15)=25.34525245400707_p 1734w(15)=6.637045319094256e-11_p 1735x(16)=32.87930742908934_p 1736w(16)=4.451144407345474e-14_p 1737x(17)=42.85403269065512_p 1738w(17)=2.954116646325193e-18_p 1739else 1740call GD(-16) 1741end if 1742end subroutine GF_m16 1743 1744! [-15kT;infkT] 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.60756997360276_p 1750w(1)=8.010480027408899_p 1751x(2)=-2.557094432115252_p 1752w(2)=6.989520278493374_p 1753else if(N==3)then 1754x(1)=-13.08170712881915_p 1755w(1)=4.723446653265805_p 1756x(2)=-6.541749673190368_p 1757w(2)=7.396058999469052_p 1758x(3)=-2.364727626005448e-1_p 1759w(3)=2.880494653167417_p 1760else if(N==4)then 1761x(1)=-13.74325971441257_p 1762w(1)=3.145856462502512_p 1763x(2)=-9.049689801056603_p 1764w(2)=5.837742646433079_p 1765x(3)=-3.109009539003485_p 1766w(3)=5.206260940820605_p 1767x(4)=1.722327172897047_p 1768w(4)=8.101402561460784e-1_p 1769else if(N==5)then 1770x(1)=-14.09703414302525_p 1771w(1)=2.278836007758541_p 1772x(2)=-10.57187244361477_p 1773w(2)=4.569443512113921_p 1774x(3)=-5.495873305736682_p 1775w(3)=5.228388089987513_p 1776x(4)=-7.674554210291473e-1_p 1777w(4)=2.806612162050532_p 1778x(5)=3.991074808050628_p 1779w(5)=1.167205339917669e-1_p 1780else if(N==6)then 1781x(1)=-14.30985783080412_p 1782w(1)=1.749858093768984_p 1783x(2)=-11.54722421315621_p 1784w(2)=3.661728513650919_p 1785x(3)=-7.294924878159671_p 1786w(3)=4.647660875554209_p 1787x(4)=-2.712686726739773_p 1788w(4)=3.986915823076528_p 1789x(5)=1.190144352620105_p 1790w(5)=9.442424973672287e-1_p 1791x(6)=6.645011321704619_p 1792w(6)=9.594502484405238e-3_p 1793else if(N==7)then 1794x(1)=-14.4489541074967_p 1795w(1)=1.401253524772893_p 1796x(2)=-12.2084662056166_p 1797w(2)=3.010104407697762_p 1798x(3)=-8.620586215942257_p 1799w(3)=4.044560765177224_p 1800x(4)=-4.410783566068743_p 1801w(4)=4.145676415878581_p 1802x(5)=-5.646351137422854e-1_p 1803w(5)=2.233154051492525_p 1804x(6)=3.327340270301292_p 1805w(6)=1.646778010023079e-1_p 1806x(7)=9.556777669544864_p 1807w(7)=5.733398809796484e-4_p 1808else if(N==8)then 1809x(1)=-14.545581408912_p 1810w(1)=1.157791412172983_p 1811x(2)=-12.67867206979538_p 1812w(2)=2.530575782360836_p 1813x(3)=-9.611212085397179_p 1814w(3)=3.523976041420601_p 1815x(4)=-5.824441196943567_p 1816w(4)=3.920949977040414_p 1817x(5)=-2.027236160962190_p 1818w(5)=3.115022631919953_p 1819x(6)=1.354082002001071_p 1820w(6)=7.350182225397471e-1_p 1821x(7)=5.787779733173984_p 1822w(7)=1.663796189239656e-2_p 1823x(8)=12.63651552831337_p 1824w(8)=2.827655534332271e-5_p 1825else if(N==9)then 1826x(1)=-14.61590201460518_p 1827w(1)=9.799645622321282e-1_p 1828x(2)=-13.02635016127108_p 1829w(2)=2.167950697601048_p 1830x(3)=-10.3678909615529_p 1831w(3)=3.092983245544977_p 1832x(4)=-6.975622186831935_p 1833w(4)=3.607455021423299_p 1834x(5)=-3.343623562032965_p 1835w(5)=3.413370201213299_p 1836x(6)=-5.963084548340638e-2_p 1837w(6)=1.610138462399667_p 1838x(7)=3.459186295254904_p 1839w(7)=1.269015915253227e-1_p 1840x(8)=8.483580650969941_p 1841w(8)=1.235301938337859e-3_p 1842x(9)=15.83517567960736_p 1843w(9)=1.222024194051363e-6_p 1844else if(N==10)then 1845x(1)=-14.6689804722284_p 1846w(1)=8.453883773913097e-1_p 1847x(2)=-13.29177952899876_p 1848w(2)=1.886746562700814_p 1849x(3)=-10.95880491593066_p 1850w(3)=2.738695736173736_p 1851x(4)=-7.912502838899342_p 1852w(4)=3.294438883054887_p 1853x(5)=-4.507737332461336_p 1854w(5)=3.390642282513019_p 1855x(6)=-1.244035059310698_p 1856w(6)=2.366055926560819_p 1857x(7)=1.833566338343814_p 1858w(7)=4.643357451601932e-1_p 1859x(8)=5.840356928922867_p 1860w(8)=1.362042350647540e-2_p 1861x(9)=11.33767537251747_p 1862w(9)=7.632095779266954e-5_p 1863x(10)=19.12314392485991_p 1864w(10)=4.788322822154977e-8_p 1865else if(N==11)then 1866x(1)=-14.71023709388797_p 1867w(1)=7.405819736196427e-1_p 1868x(2)=-13.49983856345871_p 1869w(2)=1.663797041288792_p 1870x(3)=-11.4297187140958_p 1871w(3)=2.446214290239552_p 1872x(4)=-8.680819452824180_p 1873w(4)=3.007561332043948_p 1874x(5)=-5.516901468083743_p 1875w(5)=3.244571607095254_p 1876x(6)=-2.317956156001205_p 1877w(6)=2.784890283824492_p 1878x(7)=6.002647152366314e-1_p 1879w(7)=1.037550141087743_p 1880x(8)=3.942681946177680_p 1881w(8)=7.370483938551649e-2_p 1882x(9)=8.422020458506866_p 1883w(9)=1.124649425794950e-3_p 1884x(10)=14.30741083127894_p 1885w(10)=4.146152583026763e-6_p 1886x(11)=22.48085132828602_p 1887w(11)=1.738955888901964e-9_p 1888else if(N==12)then 1889x(1)=-14.74308513783343_p 1890w(1)=6.570120108486569e-1_p 1891x(2)=-13.66656408251262_p 1892w(2)=1.483597958910550_p 1893x(3)=-11.81182025559393_p 1894w(3)=2.202743581718097_p 1895x(4)=-9.317416049101658_p 1896w(4)=2.752435961257063_p 1897x(5)=-6.385076898788329_p 1898w(5)=3.060299606305763_p 1899x(6)=-3.301361424511771_p 1900w(6)=2.924473445643289_p 1901x(7)=-4.242621521652738e-1_p 1902w(7)=1.663456012796778_p 1903x(8)=2.503405845201311_p 1904w(8)=2.479128056082251e-1_p 1905x(9)=6.286254680751641_p 1906w(9)=7.989737115172644e-3_p 1907x(10)=11.14376401134207_p 1908w(10)=7.898148884254662e-5_p 1909x(11)=17.36704029199991_p 1910w(11)=2.041504079996899e-7_p 1911x(12)=25.89460723065854_p 1912w(12)=5.942792228287435e-11_p 1913else if(N==13)then 1914x(1)=-14.76976747983801_p 1915w(1)=5.890491219140785e-1_p 1916x(2)=-13.80268024501641_p 1917w(2)=1.335498962357161_p 1918x(3)=-12.12680877550016_p 1919w(3)=1.998130794901613_p 1920x(4)=-9.850593031309131_p 1921w(4)=2.527987401349987_p 1922x(5)=-7.131938588030247_p 1923w(5)=2.870966777739607_p 1924x(6)=-4.191272018257644_p 1925w(6)=2.910273807704374_p 1926x(7)=-1.340279373896337_p 1927w(7)=2.150012039088386_p 1928x(8)=1.366371268529227_p 1929w(8)=5.816134785629176e-1_p 1930x(9)=4.631365114812875_p 1931w(9)=3.576193888696781e-2_p 1932x(10)=8.797035648792836_p 1933w(10)=7.010424619926496e-4_p 1934x(11)=13.97163887285373_p 1935w(11)=4.931641643145895e-6_p 1936x(12)=20.49927065186424_p 1937w(12)=9.291614226808221e-9_p 1938x(13)=29.35443880538779_p 1939w(13)=1.932209368361346e-12_p 1940else if(N==14)then 1941x(1)=-14.79181137319044_p 1942w(1)=5.328483684451193e-1_p 1943x(2)=-13.91558897050163_p 1944w(2)=1.212000077933726_p 1945x(3)=-12.39011000942785_p 1946w(3)=1.824516589997471_p 1947x(4)=-10.30183252295745_p 1948w(4)=2.331043563085888_p 1949x(5)=-7.776765836857666_p 1950w(5)=2.689458026964124_p 1951x(6)=-4.988462056717643_p 1952w(6)=2.825529476986317_p 1953x(7)=-2.187464818686373_p 1954w(7)=2.432824972269451_p 1955x(8)=4.241324286164949e-1_p 1956w(8)=1.033370428930855_p 1957x(9)=3.307438596877440_p 1958w(9)=1.144891855473382e-1_p 1959x(10)=6.953471237320731_p 1960w(10)=3.865799868571413e-3_p 1961x(11)=11.42975065800381_p 1962w(11)=5.353477720427889e-5_p 1963x(12)=16.88459232014524_p 1964w(12)=2.806998002401992e-7_p 1965x(13)=23.69169713834353_p 1966w(13)=3.963487343363512e-10_p 1967x(14)=32.85285047446905_p 1968w(14)=6.026159014030457e-14_p 1969else if(N==15)then 1970x(1)=-14.81028868119611_p 1971w(1)=4.857047357367382e-1_p 1972x(2)=-14.01054098412922_p 1973w(2)=1.107698077077951_p 1974x(3)=-12.61291811351708_p 1975w(3)=1.675846841773270_p 1976x(4)=-10.68746888463398_p 1977w(4)=2.158022872072197_p 1978x(5)=-8.336405896412650_p 1979w(5)=2.520515274360599_p 1980x(6)=-5.699203760077928_p 1981w(6)=2.711950616830889_p 1982x(7)=-2.974441422168856_p 1983w(7)=2.550656471707482_p 1984x(8)=-3.995274976801190e-1_p 1985w(8)=1.493557657872968_p 1986x(9)=2.224013164314651_p 1987w(9)=2.803971288215070e-1_p 1988x(10)=5.455581862963642_p 1989w(10)=1.529388536933960e-2_p 1990x(11)=9.414924780412685_p 1991w(11)=3.530500799405002e-4_p 1992x(12)=14.15832727418191_p 1993w(12)=3.679376684875440e-6_p 1994x(13)=19.86810315940147_p 1995w(13)=1.480669652928390e-8_p 1996x(14)=26.93503142563418_p 1997w(14)=1.600875801004135e-11_p 1998x(15)=36.38406353684241_p 1999w(15)=1.814195652733931e-15_p 2000else if(N==16)then 2001x(1)=-14.82597143020973_p 2002w(1)=4.456660700751484e-1_p 2003x(2)=-14.09135098518619_p 2004w(2)=1.018619150809559_p 2005x(3)=-12.803513110735_p 2006w(3)=1.547441827772200_p 2007x(4)=-11.02001333361581_p 2008w(4)=2.005549260132407_p 2009x(5)=-8.824938571416828_p 2010w(5)=2.365416503240261_p 2011x(6)=-6.332310569671891_p 2012w(6)=2.589083707381194_p 2013x(7)=-3.701063397019318_p 2014w(7)=2.566310767518070_p 2015x(8)=-1.151151702915914_p 2016w(8)=1.864381800000709_p 2017x(9)=1.316400792165602_p 2018w(9)=5.488055966676114e-1_p 2019x(10)=4.211866892544109_p 2020w(10)=4.704729229409577e-2_p 2021x(11)=7.762164291335199_p 2022w(11)=1.649474014847118e-3_p 2023x(12)=11.98269667749553_p 2024w(12)=2.862310900131762e-5_p 2025x(13)=16.96591351371735_p 2026w(13)=2.321540302899794e-7_p 2027x(14)=22.91148334024117_p 2028w(14)=7.325232012461135e-10_p 2029x(15)=30.22209785866088_p 2030w(15)=6.170794662411134e-13_p 2031x(16)=39.94352745647655_p 2032w(16)=5.298239135854449e-17_p 2033else if(N==17)then 2034x(1)=-14.83942833481071_p 2035w(1)=4.112919922004749e-1_p 2036x(2)=-14.16084904215092_p 2037w(2)=9.417859353142589e-1_p 2038x(3)=-12.96812748333751_p 2039w(3)=1.435658143592196_p 2040x(4)=-11.30914116453578_p 2041w(4)=1.870647544896230_p 2042x(5)=-9.253923196397094_p 2043w(5)=2.223927182453241_p 2044x(6)=-6.897031323074262_p 2045w(6)=2.466092353379087_p 2046x(7)=-4.367728324510117_p 2047w(7)=2.526625115582546_p 2048x(8)=-1.852829283019684_p 2049w(8)=2.108077824816518_p 2050x(9)=5.331363404824029e-1_p 2051w(9)=8.918172205431991e-1_p 2052x(10)=3.163405058835928_p 2053w(10)=1.179481347543273e-1_p 2054x(11)=6.375029769657146_p 2055w(11)=5.971551996405211e-3_p 2056x(12)=10.1862665852792_p 2057w(12)=1.551808137106665e-4_p 2058x(13)=14.63692743795456_p 2059w(13)=2.111893630274847e-6_p 2060x(14)=19.84050192810014_p 2061w(14)=1.363212912282071e-8_p 2062x(15)=26.00653242426832_p 2063w(15)=3.429714343975098e-11_p 2064x(16)=33.54721628424876_p 2065w(16)=2.284078064385698e-14_p 2066x(17)=43.52759371822279_p 2067w(17)=1.506954617144741e-18_p 2068else 2069call GD(-15) 2070end if 2071end subroutine GF_m15 2072 2073! [-14kT;infkT] 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.8065272671263_p 2079w(1)=7.538498986182593_p 2080x(2)=-2.304430752336122_p 2081w(2)=6.461501845345780_p 2082else if(N==3)then 2083x(1)=-12.18399783979824_p 2084w(1)=4.470876819453365_p 2085x(2)=-6.001285055045941_p 2086w(2)=6.968250847834018_p 2087x(3)=-2.478264984865137e-2_p 2088w(3)=2.560873164240990_p 2089else if(N==4)then 2090x(1)=-12.8044862107529_p 2091w(1)=2.992233767593727_p 2092x(2)=-8.343342089077355_p 2093w(2)=5.541917105622264_p 2094x(3)=-2.724817267883710_p 2095w(3)=4.809655162038792_p 2096x(4)=1.984897316204543_p 2097w(4)=6.561947962735910e-1_p 2098else if(N==5)then 2099x(1)=-13.1375168813965_p 2100w(1)=2.176445698819973_p 2101x(2)=-9.772564230315849_p 2102w(2)=4.358553612081031_p 2103x(3)=-4.942236834085437_p 2104w(3)=4.940452063314008_p 2105x(4)=-4.573479884026656e-1_p 2106w(4)=2.440388876833778_p 2107x(5)=4.339917036602905_p 2108w(5)=8.416058047958373e-2_p 2109else if(N==6)then 2110x(1)=-13.33854526183002_p 2111w(1)=1.676970885611543_p 2112x(2)=-10.69215519318654_p 2113w(2)=3.505732018740962_p 2114x(3)=-6.627069831207871_p 2115w(3)=4.430121981283202_p 2116x(4)=-2.279192433454109_p 2117w(4)=3.645528757852585_p 2118x(5)=1.522871698629405_p 2119w(5)=7.352854863463952e-1_p 2120x(6)=7.065452089514292_p 2121w(6)=6.361701693685928e-3_p 2122else if(N==7)then 2123x(1)=-13.47033866082933_p 2124w(1)=1.346768155321762_p 2125x(2)=-11.31777869134358_p 2126w(2)=2.890695760024231_p 2127x(3)=-7.875928804482664_p 2128w(3)=3.873472791911879_p 2129x(4)=-3.858767609958913_p 2130w(4)=3.899407725432404_p 2131x(5)=-1.967035562514321e-1_p 2132w(5)=1.876256964555194_p 2133x(6)=3.734669526935965_p 2134w(6)=1.130403119351902e-1_p 2135x(7)=10.02998810854861_p 2136w(7)=3.591223477134381e-4_p 2137else if(N==8)then 2138x(1)=-13.56214630233156_p 2139w(1)=1.115507751959147_p 2140x(2)=-11.76400684491309_p 2141w(2)=2.436453820150534_p 2142x(3)=-8.813125598392975_p 2143w(3)=3.386138898750926_p 2144x(4)=-5.183389455223305_p 2145w(4)=3.734397037957669_p 2146x(5)=-1.576364755148577_p 2147w(5)=2.775997042380556_p 2148x(6)=1.747501879502417_p 2149w(6)=5.409860592300084e-1_p 2150x(7)=6.259828331240842_p 2151w(7)=1.050324955454497e-2_p 2152x(8)=13.15054055033624_p 2153w(8)=1.697154498749415e-5_p 2154else if(N==9)then 2155x(1)=-13.62912452591475_p 2156w(1)=9.461694675072490e-1_p 2157x(2)=-12.09483291678658_p 2158w(2)=2.091912358225493_p 2159x(3)=-9.531395425235830_p 2160w(3)=2.979801316769619_p 2161x(4)=-6.269014605147221_p 2162w(4)=3.457317401322654_p 2163x(5)=-2.803139852602402_p 2164w(5)=3.160352843512511_p 2165x(6)=3.484091386444399e-1_p 2166w(6)=1.281287558929258_p 2167x(7)=3.921117673889765_p 2168w(7)=8.241879661458512e-2_p 2169x(8)=9.001807621956942_p 2170w(8)=7.403796691413055e-4_p 2171x(9)=16.38209743243008_p 2172w(9)=7.089778619098854e-7_p 2173else if(N==10)then 2174x(1)=-13.67979178065523_p 2175w(1)=8.177306451308408e-1_p 2176x(2)=-12.34799001496179_p 2177w(2)=1.824037525135990_p 2178x(3)=-10.09388430312569_p 2179w(3)=2.644221398647852_p 2180x(4)=-7.156637146198165_p 2181w(4)=3.169467638199942_p 2182x(5)=-3.892422082434075_p 2183w(5)=3.203538550661902_p 2184x(6)=-7.862768490144955e-1_p 2185w(6)=2.013766116022440_p 2186x(7)=2.281824835899550_p 2187w(7)=3.189826937585969e-1_p 2188x(8)=6.358013880459715_p 2189w(8)=8.212165131267046e-3_p 2190x(9)=11.890823869704_p 2191w(9)=4.407182363911618e-5_p 2192x(10)=19.69730965453927_p 2193w(10)=2.701590327960970e-8_p 2194else if(N==11)then 2195x(1)=-13.71925219215242_p 2196w(1)=7.175037036273976e-1_p 2197x(2)=-12.54684365993883_p 2198w(2)=1.611174044313425_p 2199x(3)=-10.54322271612192_p 2200w(3)=2.366213740813327_p 2201x(4)=-7.887110487244108_p 2202w(4)=2.901437514365826_p 2203x(5)=-4.842838739250375_p 2204w(5)=3.097677635108190_p 2205x(6)=-1.794119921336926_p 2206w(6)=2.493441262677978_p 2207x(7)=1.046958031525651_p 2208w(7)=7.665889392213274e-1_p 2209x(8)=4.453533430938575_p 2210w(8)=4.531323214187428e-2_p 2211x(9)=8.978904558476719_p 2212w(9)=6.484329350929043e-4_p 2213x(10)=14.88851077123985_p 2214w(10)=2.325365556182912e-6_p 2215x(11)=23.07803851207399_p 2216w(11)=9.583779305549739e-10_p 2217else if(N==12)then 2218x(1)=-13.7507260915897_p 2219w(1)=6.374414497249720e-1_p 2220x(2)=-12.70649021801083_p 2221w(2)=1.438781891476774_p 2222x(3)=-10.9085840384905_p 2223w(3)=2.134138848313647_p 2224x(4)=-8.494054578008194_p 2225w(4)=2.661043569545507_p 2226x(5)=-5.664800734318863_p 2227w(5)=2.939018456582255_p 2228x(6)=-2.713729170940181_p 2229w(6)=2.705462438790960_p 2230x(7)=4.410329259726568e-2_p 2231w(7)=1.320931918511770_p 2232x(8)=3.002790906832830_p 2233w(8)=1.585152210749452e-1_p 2234x(9)=6.843447537161641_p 2235w(9)=4.622815554220290e-3_p 2236x(10)=11.73028353251511_p 2237w(10)=4.411012870772182e-5_p 2238x(11)=17.97129835477873_p 2239w(11)=1.117925144517605e-7_p 2240x(12)=26.51156289896589_p 2241w(12)=3.210120926484646e-11_p 2242else if(N==13)then 2243x(1)=-13.77633340179216_p 2244w(1)=5.722253394773145e-1_p 2245x(2)=-12.83704615160837_p 2246w(2)=1.296845589240875_p 2247x(3)=-11.21033306340231_p 2248w(3)=1.938641632144706_p 2249x(4)=-9.003592259942288_p 2250w(4)=2.448403071280066_p 2251x(5)=-6.374752217820919_p 2252w(5)=2.767583590317765_p 2253x(6)=-3.549350653842620_p 2254w(6)=2.744203986486602_p 2255x(7)=-8.303725323441656e-1_p 2256w(7)=1.816494278143222_p 2257x(8)=1.856371941144419_p 2258w(8)=3.942765859188734e-1_p 2259x(9)=5.184745228502115_p 2260w(9)=2.093324326959456e-2_p 2261x(10)=9.386981871015738_p 2262w(10)=3.908239492337458e-4_p 2263x(11)=14.58194256945146_p 2264w(11)=2.686312438510198e-6_p 2265x(12)=21.12316778001836_p 2266w(12)=4.986658282378690e-9_p 2267x(13)=29.98859634519343_p 2268w(13)=1.025697395086442e-12_p 2269else if(N==14)then 2270x(1)=-13.79752009210323_p 2271w(1)=5.182164273207943e-1_p 2272x(2)=-12.94550736720791_p 2273w(2)=1.178295372365341_p 2274x(3)=-11.46298693380293_p 2275w(3)=1.772423975363784_p 2276x(4)=-9.435697228011470_p 2277w(4)=2.261090068953610_p 2278x(5)=-6.989635499650466_p 2279w(5)=2.599546877017188_p 2280x(6)=-4.301959668514487_p 2281w(6)=2.693776763895495_p 2282x(7)=-1.627613115350427_p 2283w(7)=2.155765796044333_p 2284x(8)=9.158582546774499e-1_p 2285w(8)=7.500588298495499e-1_p 2286x(9)=3.852933510233244_p 2287w(9)=6.863929523165876e-2_p 2288x(10)=7.544540751318894_p 2289w(10)=2.158224619193472e-3_p 2290x(11)=12.04475840876125_p 2291w(11)=2.905086589500877e-5_p 2292x(12)=17.51469093661034_p 2293w(12)=1.497924307697858e-7_p 2294x(13)=24.33254199830874_p 2295w(13)=2.090677032425019e-10_p 2296x(14)=33.50214472674089_p 2297w(14)=3.150369106595967e-14_p 2298else if(N==15)then 2299x(1)=-13.81530258119615_p 2300w(1)=4.728504806342205e-1_p 2301x(2)=-13.03684534744769_p 2302w(2)=1.078027132316246_p 2303x(3)=-11.67710562275233_p 2304w(3)=1.629833728517033_p 2305x(4)=-9.805634949756874_p 2306w(4)=2.096031689499064_p 2307x(5)=-7.524643974979757_p 2308w(5)=2.441254625041148_p 2309x(6)=-4.976110463894508_p 2310w(6)=2.602750339423641_p 2311x(7)=-2.365874170611474_p 2312w(7)=2.335811109719558_p 2313x(8)=1.096521341694500e-1_p 2314w(8)=1.159790624269572_p 2315x(9)=2.759567762571573_p 2316w(9)=1.748675711598984e-1_p 2317x(10)=6.045109853769763_p 2318w(10)=8.590380037656860e-3_p 2319x(11)=10.03319394541965_p 2320w(11)=1.911887228789014e-4_p 2321x(12)=14.79363635762463_p 2322w(12)=1.954413739433240e-6_p 2323x(13)=20.51507855751645_p 2324w(13)=7.765396548057540e-9_p 2325x(14)=27.59070483342229_p 2326w(14)=8.318030352102429e-12_p 2327x(15)=37.04680509380105_p 2328w(15)=9.356458572457116e-16_p 2329else if(N==16)then 2330x(1)=-13.83041404071695_p 2331w(1)=4.342741561135632e-1_p 2332x(2)=-13.11467781053273_p 2333w(2)=9.922798784465791e-1_p 2334x(3)=-11.86051652191766_p 2335w(3)=1.506484021646326_p 2336x(4)=-10.12514379044901_p 2337w(4)=1.950216291574237_p 2338x(5)=-7.992668227370880_p 2339w(5)=2.294844979289741_p 2340x(6)=-5.578887578359158_p 2341w(6)=2.495590421231635_p 2342x(7)=-3.049353219977113_p 2343w(7)=2.400453571192352_p 2344x(8)=-6.112082061579893e-1_p 2345w(8)=1.537004558829866_p 2346x(9)=1.844415744274418_p 2347w(9)=3.611723098465419e-1_p 2348x(10)=4.796927544683733_p 2349w(10)=2.677214323375620e-2_p 2350x(11)=8.382139393966719_p 2351w(11)=8.932272882251424e-4_p 2352x(12)=12.62218631905097_p 2353w(12)=1.515130446841888e-5_p 2354x(13)=17.61824695785631_p 2355w(13)=1.211523082867134e-7_p 2356x(14)=23.5731044515047_p 2357w(14)=3.784583378692078e-10_p 2358x(15)=30.89089306536597_p 2359w(15)=3.163926967680841e-13_p 2360x(16)=40.6183145046389_p 2361w(16)=2.699518834475611e-17_p 2362else if(N==17)then 2363x(1)=-13.84339530794305_p 2364w(1)=4.011180574826237e-1_p 2365x(2)=-13.18169274019975_p 2366w(2)=9.182308139046724e-1_p 2367x(3)=-12.01912252281885_p 2368w(3)=1.398948247332872_p 2369x(4)=-10.40333005053255_p 2370w(4)=1.820937909933088_p 2371x(5)=-8.404394474173438_p 2372w(5)=2.160595371226140_p 2373x(6)=-6.118177789058212_p 2374w(6)=2.384234525835186_p 2375x(7)=-3.679185674383948_p 2376w(7)=2.395035144101932_p 2377x(8)=-1.275191675353021_p 2378w(8)=1.824298593780733_p 2379x(9)=1.061194468645194_p 2380w(9)=6.246118231454655e-1_p 2381x(10)=3.741344005128688_p 2382w(10)=6.866497204505016e-2_p 2383x(11)=6.994982964533681_p 2384w(11)=3.242310944582331e-3_p 2385x(12)=10.82889363424039_p 2386w(12)=8.195716189495681e-5_p 2387x(13)=15.29382430111296_p 2388w(13)=1.097608937489514e-6_p 2389x(14)=20.50744766244437_p 2390w(14)=7.007696349110154e-9_p 2391x(15)=26.6810395167013_p 2392w(15)=1.748845149986046e-11_p 2393x(16)=34.22773336106641_p 2394w(16)=1.157299978269276e-14_p 2395x(17)=44.21324860832978_p 2396w(17)=7.594560750722442e-19_p 2397else 2398call GD(-14) 2399end if 2400end subroutine GF_m14 2401 2402! [-13kT;infkT] 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.00429020225867_p 2408w(1)=7.068991849056509_p 2409x(2)=-2.046000738644365_p 2410w(2)=5.931010411270344_p 2411else if(N==3)then 2412x(1)=-11.285547910439_p 2413w(1)=4.220016811529613_p 2414x(2)=-5.458790525780842_p 2415w(2)=6.536163416137358_p 2416x(3)=2.003952435030740e-1_p 2417w(3)=2.243822032659881_p 2418else if(N==4)then 2419x(1)=-11.86528124264769_p 2420w(1)=2.839636157488557_p 2421x(2)=-7.635514062064738_p 2422w(2)=5.245844542693213_p 2423x(3)=-2.338699924057776_p 2424w(3)=4.396806496859456_p 2425x(4)=2.270582670794636_p 2426w(4)=5.177150632856260e-1_p 2427else if(N==5)then 2428x(1)=-12.17775131627927_p 2429w(1)=2.074650753207546_p 2430x(2)=-8.972330710234960_p 2431w(2)=4.147941292245002_p 2432x(3)=-4.388783460819332_p 2433w(3)=4.641274857597357_p 2434x(4)=-1.359848395456273e-1_p 2435w(4)=2.077125391688920_p 2436x(5)=4.714327420770425_p 2437w(5)=5.900996558802752e-2_p 2438else if(N==6)then 2439x(1)=-12.36709203969579_p 2440w(1)=1.604420572680486_p 2441x(2)=-9.836556545239278_p 2442w(2)=3.349946379456734_p 2443x(3)=-5.959311575945755_p 2444w(3)=4.208084374075914_p 2445x(4)=-1.846211131961595_p 2446w(4)=3.279959121007053_p 2447x(5)=1.880353039700397_p 2448w(5)=5.534757047846318e-1_p 2449x(6)=7.509408960265083_p 2450w(6)=4.116108322033385e-3_p 2451else if(N==7)then 2452x(1)=-12.49164698264062_p 2453w(1)=1.292463253430516_p 2454x(2)=-10.42681840236585_p 2455w(2)=2.771369790317991_p 2456x(3)=-7.131405568603862_p 2457w(3)=3.700294148921612_p 2458x(4)=-3.309859209670885_p 2459w(4)=3.632012997599541_p 2460x(5)=1.836097860406854e-1_p 2461w(5)=1.528509643322526_p 2462x(6)=4.169325721825977_p 2463w(6)=7.513238011482051e-2_p 2464x(7)=10.52471028640064_p 2465w(7)=2.200466198459427e-4_p 2466else if(N==8)then 2467x(1)=-12.57867436213281_p 2468w(1)=1.073308355070457_p 2469x(2)=-10.84923217639824_p 2470w(2)=2.342311150210766_p 2471x(3)=-8.015271269933745_p 2472w(3)=3.247077066726115_p 2473x(4)=-4.544968362568661_p 2474w(4)=3.536380560200838_p 2475x(5)=-1.125811456750792_p 2476w(5)=2.412162691196766_p 2477x(6)=2.167884392051911_p 2478w(6)=3.822896856145231e-1_p 2479x(7)=6.755841590180836_p 2480w(7)=6.462768739584749e-3_p 2481x(8)=13.68444893284715_p 2482w(8)=9.982567803227613e-6_p 2483else if(N==9)then 2484x(1)=-12.64233475041525_p 2485w(1)=9.123985612724987e-1_p 2486x(2)=-11.16330980370578_p 2487w(2)=2.015781650647170_p 2488x(3)=-8.695220212074478_p 2489w(3)=2.865752614308636_p 2490x(4)=-5.564459753906071_p 2491w(4)=3.301019139597955_p 2492x(5)=-2.268017985796723_p 2493w(5)=2.874768813117618_p 2494x(6)=7.737514737530465e-1_p 2495w(6)=9.780639646784295e-1_p 2496x(7)=4.410401777573731_p 2497w(7)=5.178300104443942e-2_p 2498x(8)=9.541280465505549_p 2499w(8)=4.341119726388689e-4_p 2500x(9)=16.94753596880336_p 2501w(9)=4.036874669860577e-7_p 2502else if(N==10)then 2503x(1)=-12.69060629446719_p 2504w(1)=7.900591957346673e-1_p 2505x(2)=-11.40426024515397_p 2506w(2)=1.761189465110906_p 2507x(3)=-9.229346767038537_p 2508w(3)=2.549052492694627_p 2509x(4)=-6.402462276397434_p 2510w(4)=3.040831922626004_p 2511x(5)=-3.282729940076004_p 2512w(5)=2.993160583850285_p 2513x(6)=-3.243443725550368e-1_p 2514w(6)=1.651050453397319_p 2515x(7)=2.758851399328902_p 2516w(7)=2.098045118673326e-1_p 2517x(8)=6.898944186339607_p 2518w(8)=4.828668410590270e-3_p 2519x(9)=12.46331181081994_p 2520w(9)=2.495165737442212e-5_p 2521x(10)=20.28882685032186_p 2522w(10)=1.497774714457042e-8_p 2523else if(N==11)then 2524x(1)=-12.72828032711144_p 2525w(1)=6.943877236029325e-1_p 2526x(2)=-11.5939497998844_p 2527w(2)=1.558383070364153_p 2528x(3)=-9.657149121711074_p 2529w(3)=2.285614840226977_p 2530x(4)=-7.094871633654301_p 2531w(4)=2.792878278313081_p 2532x(5)=-4.173507905917718_p 2533w(5)=2.936497644670565_p 2534x(6)=-1.274916368986843_p 2535w(6)=2.166098058756642_p 2536x(7)=1.517398269244001_p 2537w(7)=5.387734161626271e-1_p 2538x(8)=4.990526986719275_p 2539w(8)=2.700191958263618e-2_p 2540x(9)=9.556206299119205_p 2541w(9)=3.660274154204964e-4_p 2542x(10)=15.48748719245705_p 2543w(10)=1.280712267205776e-6_p 2544x(11)=23.69157403994141_p 2545w(11)=5.195514612246715e-10_p 2546else if(N==12)then 2547x(1)=-12.75838629563838_p 2548w(1)=6.178180952954484e-1_p 2549x(2)=-11.74654294078529_p 2550w(2)=1.393780974441324_p 2551x(3)=-10.00579166671047_p 2552w(3)=2.064997539286411_p 2553x(4)=-7.672017466432873_p 2554w(4)=2.567875948002550_p 2555x(5)=-4.948402555117321_p 2556w(5)=2.808950161647809_p 2557x(6)=-2.133819899357264_p 2558w(6)=2.448894732916821_p 2559x(7)=5.253995445254813e-1_p 2560w(7)=9.977644379513086e-1_p 2561x(8)=3.530889411762294_p 2562w(8)=9.728376317849423e-2_p 2563x(9)=7.422628208882093_p 2564w(9)=2.612374773616740e-3_p 2565x(10)=12.33530427359478_p 2566w(10)=2.417262411428552e-5_p 2567x(11)=18.59224737289128_p 2568w(11)=6.019188264118538e-8_p 2569x(12)=27.14399605197881_p 2570w(12)=1.707206036244079e-11_p 2571else if(N==13)then 2572x(1)=-12.78292243270832_p 2573w(1)=5.553394846802412e-1_p 2574x(2)=-11.87155386289593_p 2575w(2)=1.257998622387605_p 2576x(3)=-10.29430992380791_p 2577w(3)=1.878660479595982_p 2578x(4)=-8.157809766553545_p 2579w(4)=2.367431371557274_p 2580x(5)=-5.620806373198053_p 2581w(5)=2.658500560302472_p 2582x(6)=-2.915153697913671_p 2583w(6)=2.549599005618399_p 2584x(7)=-3.188180202709399e-1_p 2585w(7)=1.466467478380259_p 2586x(8)=2.374550164450040_p 2587w(8)=2.538746851467701e-1_p 2588x(9)=5.762342321121332_p 2589w(9)=1.191557765214124e-2_p 2590x(10)=9.996263438309681_p 2591w(10)=2.135543104821989e-4_p 2592x(11)=15.20931910980511_p 2593w(11)=1.438060530869789e-6_p 2594x(12)=21.76276621124846_p 2595w(12)=2.634160254360504e-9_p 2596x(13)=30.63746910806909_p 2597w(13)=5.364852556103819e-13_p 2598else if(N==14)then 2599x(1)=-12.80325422295021_p 2600w(1)=5.035169680448246e-1_p 2601x(2)=-11.97557595499155_p 2602w(2)=1.144393754925390_p 2603x(3)=-10.53631644604189_p 2604w(3)=1.719874507015353_p 2605x(4)=-8.570696309527031_p 2606w(4)=2.189996282979235_p 2607x(5)=-6.205285801561624_p 2608w(5)=2.505692867263766_p 2609x(6)=-3.622237947738089_p 2610w(6)=2.542571078907866_p 2611x(7)=-1.073611595963112_p 2612w(7)=1.839290757168741_p 2613x(8)=1.430053297671360_p 2614w(8)=5.137475624231900e-1_p 2615x(9)=4.425276345646928_p 2616w(9)=3.972396379515544e-2_p 2617x(10)=8.156107841844275_p 2618w(10)=1.178955467692957e-3_p 2619x(11)=12.67732074486877_p 2620w(11)=1.548357270683168e-5_p 2621x(12)=18.16072705106239_p 2622w(12)=7.865427455126384e-8_p 2623x(13)=24.98824555040593_p 2624w(13)=1.086403933345531e-10_p 2625x(14)=34.16548176542965_p 2626w(14)=1.623881473981693e-14_p 2627else if(N==15)then 2628x(1)=-12.82034315702725_p 2629w(1)=4.599258185989952e-1_p 2630x(2)=-12.06330374177135_p 2631w(2)=1.048159551699591_p 2632x(3)=-10.74173992405371_p 2633w(3)=1.583393163753766_p 2634x(4)=-8.924864931323603_p 2635w(4)=2.033068925629243_p 2636x(5)=-6.715324220479029_p 2637w(5)=2.359097149942501_p 2638x(6)=-4.258785147362770_p 2639w(6)=2.480527383019203_p 2640x(7)=-1.766347804101136_p 2641w(7)=2.077799251952069_p 2642x(8)=6.316647719802650e-1_p 2643w(8)=8.490165159690760e-1_p 2644x(9)=3.323850231373326_p 2645w(9)=1.042041254073750e-1_p 2646x(10)=6.656750890642738_p 2647w(10)=4.707744132915404e-3_p 2648x(11)=10.66964819253975_p 2649w(11)=1.016050712118752e-4_p 2650x(12)=15.44517335298352_p 2651w(12)=1.021135361587301e-6_p 2652x(13)=21.17705538620924_p 2653w(13)=4.011283812981369e-9_p 2654x(14)=28.26050869580794_p 2655w(14)=4.260937178574362e-12_p 2656x(15)=37.72299189387292_p 2657w(15)=4.760750423609375e-16_p 2658else if(N==16)then 2659x(1)=-12.83488389203941_p 2660w(1)=4.228106623241242e-1_p 2661x(2)=-12.13815947476872_p 2662w(2)=9.657465992307915e-1_p 2663x(3)=-10.91795716157166_p 2664w(3)=1.465124334466091_p 2665x(4)=-9.231276626089574_p 2666w(4)=1.894033803834225_p 2667x(5)=-7.162582286446358_p 2668w(5)=2.222033453012231_p 2669x(6)=-4.830383045404600_p 2670w(6)=2.393195359572747_p 2671x(7)=-2.407157870860573_p 2672w(7)=2.198255711576621_p 2673x(8)=-6.849929243311717e-2_p 2674w(8)=1.198824595859381_p 2675x(9)=2.400437501048214_p 2676w(9)=2.247018429915176e-1_p 2677x(10)=5.406197059905056_p 2678w(10)=1.479383118506277e-2_p 2679x(11)=9.021140721408406_p 2680w(11)=4.741188005725059e-4_p 2681x(12)=13.27827221353476_p 2682w(12)=7.885021426828387e-6_p 2683x(13)=18.28575657907396_p 2684w(13)=6.225915440428461e-8_p 2685x(14)=24.24893632221555_p 2686w(14)=1.927472470065870e-10_p 2687x(15)=31.57318166900636_p 2688w(15)=1.600361352317207e-13_p 2689x(16)=41.30601221035642_p 2690w(16)=1.357731094888422e-17_p 2691else if(N==17)then 2692x(1)=-12.8473896155346_p 2693w(1)=3.908725230461013e-1_p 2694x(2)=-12.20269006950806_p 2695w(2)=8.944858246110862e-1_p 2696x(3)=-11.07054287944413_p 2697w(3)=1.361859248468883_p 2698x(4)=-9.498466245486751_p 2699w(4)=1.770471349417923_p 2700x(5)=-7.556846898177541_p 2701w(5)=2.095458170620639_p 2702x(6)=-5.343573905461301_p 2703w(6)=2.296068967811881_p 2704x(7)=-2.999459714549741_p 2705w(7)=2.236118762083855_p 2706x(8)=-7.023684134564852e-1_p 2707w(8)=1.504052369905869_p 2708x(9)=1.612701319751201_p 2709w(9)=4.103143664440872e-1_p 2710x(10)=4.345786723535570_p 2711w(10)=3.853513853300255e-2_p 2712x(11)=7.635091248592230_p 2713w(11)=1.722444982124382e-3_p 2714x(12)=11.48858768647559_p 2715w(12)=4.252925672377712e-5_p 2716x(13)=15.96611862728962_p 2717w(13)=5.615852802863074e-7_p 2718x(14)=21.18870434660588_p 2719w(14)=3.550595380325303e-9_p 2720x(15)=27.36907746472814_p 2721w(15)=8.796798970134237e-12_p 2722x(16)=34.92118085948123_p 2723w(16)=5.788120963966502e-15_p 2724x(17)=44.9113329236695_p 2725w(17)=3.779982773128743e-19_p 2726else 2727call GD(-13) 2728end if 2729end subroutine GF_m13 2730 2731! [-12kT;infkT] 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.200741236092172_p 2737w(1)=6.602046581469052_p 2738x(2)=-1.780566058575981_p 2739w(2)=5.397959562724426_p 2740else if(N==3)then 2741x(1)=-10.3863228271833_p 2742w(1)=3.970896361677668_p 2743x(2)=-4.914383630781427_p 2744w(2)=6.097468871832251_p 2745x(3)=4.416798827403419e-1_p 2746w(3)=1.931640910683559_p 2747else if(N==4)then 2748x(1)=-10.9256449512059_p 2749w(1)=2.688039040018496_p 2750x(2)=-6.926375203152926_p 2751w(2)=4.948533310408404_p 2752x(3)=-1.949879005191662_p 2753w(3)=3.966938440859460_p 2754x(4)=2.582281847561768_p 2755w(4)=3.964953529071178e-1_p 2756else if(N==5)then 2757x(1)=-11.21775003746852_p 2758w(1)=1.973406104700789_p 2759x(2)=-8.171320104646755_p 2760w(2)=3.937131361853921_p 2761x(3)=-3.836133738921368_p 2762w(3)=4.326414131181671_p 2763x(4)=2.001112999622220e-1_p 2764w(4)=1.722880209173696_p 2765x(5)=5.115869526585487_p 2766w(5)=4.017433728340080e-2_p 2767else if(N==6)then 2768x(1)=-11.39551447976794_p 2769w(1)=1.532157424654811_p 2770x(2)=-8.980559274623396_p 2771w(2)=3.194076495577728_p 2772x(3)=-5.292284147379992_p 2773w(3)=3.978908042818781_p 2774x(4)=-1.412397133027116_p 2775w(4)=2.890998617259364_p 2776x(5)=2.265828884958524_p 2777w(5)=4.012694138016608e-1_p 2778x(6)=7.977926885664790_p 2779w(6)=2.596150081132937e-3_p 2780else if(N==7)then 2781x(1)=-11.51289577714424_p 2782w(1)=1.238290578536780_p 2783x(2)=-9.535701024526400_p 2784w(2)=2.651912962686577_p 2785x(3)=-6.387505958437551_p 2786w(3)=3.523625731090312_p 2787x(4)=-2.764737148028609_p 2788w(4)=3.337249472611530_p 2789x(5)=5.810178127628224e-1_p 2790w(5)=1.200470194107630_p 2791x(6)=4.632384969666560_p 2792w(6)=4.832541957368250e-2_p 2793x(7)=11.04178517373514_p 2794w(7)=1.317855869669863e-4_p 2795else if(N==8)then 2796x(1)=-11.59518145421869_p 2797w(1)=1.031148562580225_p 2798x(2)=-9.934450112874696_p 2799w(2)=2.247980194110109_p 2800x(3)=-7.218031646817474_p 2801w(3)=3.105969843408296_p 2802x(4)=-3.910260527414525_p 2803w(4)=3.321424544657500_p 2804x(5)=-6.724113596965462e-1_p 2805w(5)=2.030806658311541_p 2806x(6)=2.618058873454973_p 2807w(6)=2.587961899276461e-1_p 2808x(7)=7.276432794340154_p 2809w(7)=3.874400996812613e-3_p 2810x(8)=14.23894923830769_p 2811w(8)=5.750201348513484e-6_p 2812else if(N==9)then 2813x(1)=-11.65554732645699_p 2814w(1)=8.786112345564417e-1_p 2815x(2)=-10.23187101671797_p 2816w(2)=1.939420905088743_p 2817x(3)=-7.859675429019597_p 2818w(3)=2.750299105654036_p 2819x(4)=-4.862907552077506_p 2820w(4)=3.135127184709575_p 2821x(5)=-1.737857903234759_p 2822w(5)=2.552614700616517_p 2823x(6)=1.221781764763104_p 2824w(6)=7.121950835949182e-1_p 2825x(7)=4.927523215619398_p 2826w(7)=3.148882328581681e-2_p 2827x(8)=10.10255969822781_p 2828w(8)=2.488812371727524e-4_p 2829x(9)=17.53210874488066_p 2830w(9)=2.254502579006168e-7_p 2831else if(N==10)then 2832x(1)=-11.70143736900069_p 2833w(1)=7.623373178880624e-1_p 2834x(2)=-10.46067026639964_p 2835w(2)=1.698085999808146_p 2836x(3)=-8.365451353644632_p 2837w(3)=2.452804144293197_p 2838x(4)=-5.650743481225176_p 2839w(4)=2.906436579556981_p 2840x(5)=-2.679711983555213_p 2841w(5)=2.751208152799206_p 2842x(6)=1.473432436229018e-1_p 2843w(6)=1.294192463712633_p 2844x(7)=3.266258367462298_p 2845w(7)=1.321588491105410e-1_p 2846x(8)=7.463450502956224_p 2847w(8)=2.768785474483273e-3_p 2848x(9)=13.05565412927494_p 2849w(9)=1.384339520043969e-5_p 2850x(10)=20.8982486804134_p 2851w(10)=8.155026968543893e-9_p 2852else if(N==11)then 2853x(1)=-11.73733364362342_p 2854w(1)=6.712008568872320e-1_p 2855x(2)=-10.64122839551962_p 2856w(2)=1.505323769477211_p 2857x(3)=-8.771719225348960_p 2858w(3)=2.204124221326008_p 2859x(4)=-6.304720854872241_p 2860w(4)=2.680543395154973_p 2861x(5)=-3.510272216590031_p 2862w(5)=2.753954780178657_p 2863x(6)=-7.571517779223771e-1_p 2864w(6)=1.809829733532034_p 2865x(7)=2.015988290792615_p 2866w(7)=3.592147101353201e-1_p 2867x(8)=5.553683911686790_p 2868w(8)=1.561176025113280e-2_p 2869x(9)=10.15429128521133_p 2870w(9)=2.022246263524031e-4_p 2871x(10)=16.10481473544045_p 2872w(10)=6.923476430184369e-7_p 2873x(11)=24.3219640534429_p 2874w(11)=2.769141492090515e-10_p 2875else if(N==12)then 2876x(1)=-11.76607679926471_p 2877w(1)=5.981118978505864e-1_p 2878x(2)=-10.78678631785065_p 2879w(2)=1.348507398583983_p 2880x(3)=-9.103635411935835_p 2881w(3)=1.995085565053181_p 2882x(4)=-6.851814015864749_p 2883w(4)=2.472022216959022_p 2884x(5)=-4.237141616713717_p 2885w(5)=2.665141565170906_p 2886x(6)=-1.561103439108015_p 2887w(6)=2.149940454463252_p 2888x(7)=1.026323334770621_p 2889w(7)=7.123126940909607e-1_p 2890x(8)=4.088030202290414_p 2891w(8)=5.742928446136877e-2_p 2892x(9)=8.023924088813748_p 2893w(9)=1.442042128129406e-3_p 2894x(10)=12.95920462845275_p 2895w(10)=1.299357118629088e-5_p 2896x(11)=19.23033036908567_p 2897w(11)=3.185196671618757e-8_p 2898x(12)=27.792377161203_p 2899w(12)=8.934717609581320e-12_p 2900else if(N==13)then 2901x(1)=-11.78954464804447_p 2902w(1)=5.383642467651750e-1_p 2903x(2)=-10.90626117839069_p 2904w(2)=1.218880329426004_p 2905x(3)=-9.378908634820904_p 2906w(3)=1.817994192497600_p 2907x(4)=-7.313674422955290_p 2908w(4)=2.284417217615867_p 2909x(5)=-4.871172224356003_p 2910w(5)=2.540388346863140_p 2911x(6)=-2.289666635874558_p 2912w(6)=2.316787549182310_p 2913x(7)=2.009069956230952e-1_p 2914w(7)=1.120958102443037_p 2915x(8)=2.923004109928703_p 2916w(8)=1.554985670586375e-1_p 2917x(9)=6.363960809869110_p 2918w(9)=6.602481136807880e-3_p 2919x(10)=10.6251265527808_p 2920w(10)=1.143535294422504e-4_p 2921x(11)=15.85414114284319_p 2922w(11)=7.563061635539837e-7_p 2923x(12)=22.41848431052456_p 2924w(12)=1.369018519873886e-9_p 2925x(13)=31.30149960793157_p 2926w(13)=2.763620903949905e-13_p 2927else if(N==14)then 2928x(1)=-11.80902298186325_p 2929w(1)=4.887250723292151e-1_p 2930x(2)=-11.00584715975431_p 2931w(2)=1.110225756537054_p 2932x(3)=-9.610249178076808_p 2933w(3)=1.666704782676970_p 2934x(4)=-7.707197741224679_p 2935w(4)=2.117267933543927_p 2936x(5)=-5.424613823964295_p 2937w(5)=2.405629803176663_p 2938x(6)=-2.950807115922518_p 2939w(6)=2.362608729390233_p 2940x(7)=-5.212267645879681e-1_p 2941w(7)=1.494475086479870_p 2942x(8)=1.971747518673670_p 2943w(8)=3.314831821739024e-1_p 2944x(9)=5.024082428906025_p 2945w(9)=2.224741161287792e-2_p 2946x(10)=8.788222854558690_p 2947w(10)=6.302423350769953e-4_p 2948x(11)=13.32772582918232_p 2949w(11)=8.103257811419376e-6_p 2950x(12)=18.82306399491563_p 2951w(12)=4.062427656882455e-8_p 2952x(13)=25.659206480779_p 2953w(13)=5.559287221299104e-11_p 2954x(14)=34.84328155467823_p 2955w(14)=8.249689539477449e-15_p 2956else if(N==15)then 2957x(1)=-11.82541886795029_p 2958w(1)=4.469079230018331e-1_p 2959x(2)=-11.08996395987817_p 2960w(2)=1.018032752257445_p 2961x(3)=-9.806956246799688_p 2962w(3)=1.536384223298183_p 2963x(4)=-8.045479500906607_p 2964w(4)=1.968746719338538_p 2965x(5)=-5.909202304553865_p 2966w(5)=2.272452409653286_p 2967x(6)=-3.548774832642109_p 2968w(6)=2.337963315678896_p 2969x(7)=-1.174310703663005_p 2970w(7)=1.774913648008437_p 2971x(8)=1.173897295117421_p 2972w(8)=5.824751078687962e-1_p 2973x(9)=3.916977298725953_p 2974w(9)=5.955734379315849e-2_p 2975x(10)=7.290275316757612_p 2976w(10)=2.519190592929806e-3_p 2977x(11)=11.32446608690913_p 2978w(11)=5.298403286424218e-5_p 2979x(12)=16.1132404234971_p 2980w(12)=5.246267888094595e-7_p 2981x(13)=21.85438761768668_p 2982w(13)=2.040170790710684e-9_p 2983x(14)=28.94482556174828_p 2984w(14)=2.151031218748780e-12_p 2985x(15)=38.41302525813617_p 2986w(15)=2.388923411960667e-16_p 2987else if(N==16)then 2988x(1)=-11.83938877615162_p 2989w(1)=4.112545958222708e-1_p 2990x(2)=-11.16183975234905_p 2991w(2)=9.389625450514593e-1_p 2992x(3)=-9.975957343236928_p 2993w(3)=1.423239372986036_p 2994x(4)=-8.338694892570295_p 2995w(4)=1.836687635801957_p 2996x(5)=-6.335325154601850_p 2997w(5)=2.145825936436003_p 2998x(6)=-4.088206012979241_p 2999w(6)=2.276520989039625_p 3000x(7)=-1.774824165725617_p 3001w(7)=1.950435883273843_p 3002x(8)=4.846962686665800e-1_p 3003w(8)=8.762583551907714e-1_p 3004x(9)=2.986325617138983_p 3005w(9)=1.326165539353202e-1_p 3006x(10)=6.039124743589070_p 3007w(10)=7.953510494945696e-3_p 3008x(11)=9.679195470058017_p 3009w(11)=2.467010172498241e-4_p 3010x(12)=13.95118497934918_p 3011w(12)=4.033550683840588e-6_p 3012x(13)=18.96874886727672_p 3013w(13)=3.149649867272988e-8_p 3014x(14)=24.93932423055301_p 3015w(14)=9.673505333651781e-11_p 3016x(15)=32.26933265036522_p 3017w(15)=7.982827558392253e-14_p 3018x(16)=42.00700615183795_p 3019w(16)=6.738246219254128e-18_p 3020else if(N==17)then 3021x(1)=-11.85141845977975_p 3022w(1)=3.805360096459587e-1_p 3023x(2)=-11.22388129881089_p 3024w(2)=8.704991647466460e-1_p 3025x(3)=-10.12249989964047_p 3026w(3)=1.324281776859505_p 3027x(4)=-8.594802260812640_p 3028w(4)=1.718986806242744_p 3029x(5)=-6.711837363500137_p 3030w(5)=2.027646271024594_p 3031x(6)=-4.574452508297811_p 3032w(6)=2.197705701415914_p 3033x(7)=-2.329870292100030_p 3034w(7)=2.038618576803599_p 3035x(8)=-1.282991917764291e-1_p 3036w(8)=1.166880952696268_p 3037x(9)=2.192282845853221_p 3038w(9)=2.530116371677250e-1_p 3039x(10)=4.976019219311343_p 3040w(10)=2.092153398446356e-2_p 3041x(11)=8.295169484716373_p 3042w(11)=8.957469459270258e-4_p 3043x(12)=12.165491114698_p 3044w(12)=2.168208726641210e-5_p 3045x(13)=16.65406466034246_p 3046w(13)=2.827958978740240e-7_p 3047x(14)=21.88457883724675_p 3048w(14)=1.772602661455316e-9_p 3049x(15)=28.07098358456367_p 3050w(15)=4.363480556113155e-12_p 3051x(16)=35.62791610329532_p 3052w(16)=2.856482875863410e-15_p 3053x(17)=45.62221870629762_p 3054w(17)=1.857379187357766e-19_p 3055else 3056call GD(-12) 3057end if 3058end subroutine GF_m12 3059 3060! [-11kT;infkT] 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.395770707554528_p 3066w(1)=6.137601896968946_p 3067x(2)=-1.506528839093654_p 3068w(2)=4.862414804592372_p 3069else if(N==3)then 3070x(1)=-9.486303269819835_p 3071w(1)=3.723465705690820_p 3072x(2)=-4.368235927781971_p 3073w(2)=5.649032165339982_p 3074x(3)=7.022737847285230e-1_p 3075w(3)=1.627518830530517_p 3076else if(N==4)then 3077x(1)=-9.985591063612290_p 3078w(1)=2.537364218095198_p 3079x(2)=-6.216211414040785_p 3080w(2)=4.648374687321719_p 3081x(3)=-1.556988852523270_p 3082w(3)=3.520555628643202_p 3083x(4)=2.923037008887659_p 3084w(4)=2.937221675012002e-1_p 3085else if(N==5)then 3086x(1)=-10.25753660126174_p 3087w(1)=1.872627621728586_p 3088x(2)=-7.369767695940959_p 3089w(2)=3.725328729097815_p 3090x(3)=-3.284906335157609_p 3091w(3)=3.990371790677180_p 3092x(4)=5.551740005925602e-1_p 3093w(4)=1.385170002144088_p 3094x(5)=5.546098948543216_p 3095w(5)=2.651855791364932e-2_p 3096else if(N==6)then 3097x(1)=-10.42383768461882_p 3098w(1)=1.460101868882122_p 3099x(2)=-8.124358484447614_p 3100w(2)=3.037641195397097_p 3101x(3)=-4.626818879773144_p 3102w(3)=3.738593492353996_p 3103x(4)=-9.753043077969421e-1_p 3104w(4)=2.482769761334350_p 3105x(5)=2.682361683088820_p 3106w(5)=2.793157834470798e-1_p 3107x(6)=8.472088476943870_p 3108w(6)=1.594600146674604e-3_p 3109else if(N==7)then 3110x(1)=-10.53410889585327_p 3111w(1)=1.184178244401532_p 3112x(2)=-8.644591330639694_p 3113w(2)=2.531989953507029_p 3114x(3)=-5.644904399945920_p 3115w(3)=3.341196578337963_p 3116x(4)=-2.223624979662771_p 3117w(4)=3.009189268156826_p 3118x(5)=1.000834949740488_p 3119w(5)=9.033171709389537e-1_p 3120x(6)=5.124787668059335_p 3121w(6)=3.006840952507743e-2_p 3122x(7)=11.58209594883825_p 3123w(7)=7.707669393760130e-5_p 3124else if(N==8)then 3125x(1)=-10.6116893698532_p 3126w(1)=9.889644217991359e-1_p 3127x(2)=-9.019801702605196_p 3128w(2)=2.153206535308428_p 3129x(3)=-6.421936202095099_p 3130w(3)=2.961463463157013_p 3131x(4)=-3.280441505369984_p 3132w(4)=3.082095613024149_p 3133x(5)=-2.114460342715943e-1_p 3134w(5)=1.644380367169310_p 3135x(6)=3.100271370043383_p 3136w(6)=1.676411296457012e-1_p 3137x(7)=7.822237353212466_p 3138w(7)=2.261930159262599e-3_p 3139x(8)=14.81479430089747_p 3140w(8)=3.241298318559425e-6_p 3141else if(N==9)then 3142x(1)=-10.66878189433679_p 3143w(1)=8.447507585606602e-1_p 3144x(2)=-9.300638663453563_p 3145w(2)=1.862626679148181_p 3146x(3)=-7.025186871656059_p 3147w(3)=2.632559983061125_p 3148x(4)=-4.165556511369510_p 3149w(4)=2.954312447181282_p 3150x(5)=-1.210842907251425_p 3151w(5)=2.194720086736019_p 3152x(6)=1.697694457452269_p 3153w(6)=4.923651568869238e-1_p 3154x(7)=5.472841086162811_p 3155w(7)=1.854202722495977e-2_p 3156x(8)=10.68624128749721_p 3157w(8)=1.394393486718562e-4_p 3158x(9)=18.13647940165831_p 3159w(9)=1.234134946800428e-7_p 3160else if(N==10)then 3161x(1)=-10.71230264955454_p 3162w(1)=7.345145710087082e-1_p 3163x(2)=-9.517326856960116_p 3164w(2)=1.634558711866050_p 3165x(3)=-7.502550025019208_p 3166w(3)=2.354856969619964_p 3167x(4)=-4.902496675936167_p 3168w(4)=2.762824107627549_p 3169x(5)=-2.083839477536642_p 3170w(5)=2.469500875533183_p 3171x(6)=6.355301840957475e-1_p 3172w(6)=9.623824349789676e-1_p 3173x(7)=3.804976417793849_p 3174w(7)=7.982342200074349e-2_p 3175x(8)=8.051870941011479_p 3176w(8)=1.548082144966139e-3_p 3177x(9)=13.66840422519696_p 3178w(9)=7.522423089314714e-6_p 3179x(10)=21.52617571387203_p 3180w(10)=4.358097377473827e-9_p 3181else if(N==11)then 3182x(1)=-10.74642801625353_p 3183w(1)=6.478980479072942e-1_p 3184x(2)=-9.688773673518634_p 3185w(2)=1.451853270706891_p 3186x(3)=-7.887230696102693_p 3187w(3)=2.121278974673531_p 3188x(4)=-5.517492902840921_p 3189w(4)=2.562163506133144_p 3190x(5)=-2.854499171104240_p 3191w(5)=2.540621922424357_p 3192x(6)=-2.354813374756865e-1_p 3193w(6)=1.440279623190645_p 3194x(7)=2.546041289904284_p 3195w(7)=2.270462694171058e-1_p 3196x(8)=6.142995453967855_p 3197w(8)=8.765405574544850e-3_p 3198x(9)=10.77356381814093_p 3199w(9)=1.093141998981528e-4_p 3200x(10)=16.74100927957875_p 3201w(10)=3.671888817168803e-7_p 3202x(11)=24.96976266692072_p 3203w(11)=1.450264490465414e-10_p 3204else if(N==12)then 3205x(1)=-10.7738119322368_p 3206w(1)=5.782823944785650e-1_p 3207x(2)=-9.827304186751329_p 3208w(2)=1.302837734791813_p 3209x(3)=-8.202371648876978_p 3210w(3)=1.924040556473184_p 3211x(4)=-6.034134710947886_p 3212w(4)=2.371930216739249_p 3213x(5)=-3.532519154844243_p 3214w(5)=2.500032507423756_p 3215x(6)=-9.931293307695769e-1_p 3216w(6)=1.811026954340551_p 3217x(7)=1.553247093489355_p 3218w(7)=4.783966911827539e-1_p 3219x(8)=4.674137392351274_p 3220w(8)=3.268520140355065e-2_p 3221x(9)=8.647513858582936_p 3222w(9)=7.775798753353983e-4_p 3223x(10)=13.60240145139177_p 3224w(10)=6.848290274946937e-6_p 3225x(11)=19.88603347485617_p 3226w(11)=1.655768579381007e-8_p 3227x(12)=28.45722477396785_p 3228w(12)=4.599196977957570e-12_p 3229else if(N==13)then 3230x(1)=-10.79621303745627_p 3231w(1)=5.212630858308258e-1_p 3232x(2)=-9.941243247727559_p 3233w(2)=1.179382550773611_p 3234x(3)=-8.464353240239506_p 3235w(3)=1.756348933132279_p 3236x(4)=-6.471766431651170_p 3237w(4)=2.198249403389463_p 3238x(5)=-4.127221660567272_p 3239w(5)=2.407779305984453_p 3240x(6)=-1.672813491248375_p 3241w(6)=2.037999572277041_p 3242x(7)=7.366115279868961e-1_p 3243w(7)=8.045026876378819e-1_p 3244x(8)=3.502674463063621_p 3245w(8)=9.086665889624776e-2_p 3246x(9)=6.989455384228512_p 3247w(9)=3.564118629838643e-3_p 3248x(10)=11.27385993921902_p 3249w(10)=5.999369847965241e-5_p 3250x(11)=16.51682131214645_p 3251w(11)=3.906113559571343e-7_p 3252x(12)=23.09078459343871_p 3253w(12)=6.997008889216947e-10_p 3254x(13)=31.98117821965935_p 3255w(13)=1.401423184139801e-13_p 3256else if(N==14)then 3257x(1)=-10.81483819606758_p 3258w(1)=4.738075654700418e-1_p 3259x(2)=-10.03638879540547_p 3260w(2)=1.075695504850944_p 3261x(3)=-8.684983250157350_p 3262w(3)=1.612669982853399_p 3263x(4)=-6.845697138576836_p 3264w(4)=2.042075301653227_p 3265x(5)=-4.648807499448858_p 3266w(5)=2.295482338542401_p 3267x(6)=-2.288846527819193_p 3268w(6)=2.142780532907360_p 3269x(7)=3.628873460098322e-2_p 3270w(7)=1.143366133426465_p 3271x(8)=2.544378116189421_p 3272w(8)=2.017225058399903e-1_p 3273x(9)=5.648881097333830_p 3274w(9)=1.208293064041726e-2_p 3275x(10)=9.440994464911249_p 3276w(10)=3.297218380869522e-4_p 3277x(11)=13.99630146169319_p 3278w(11)=4.162880556735363e-6_p 3279x(12)=19.50210642802058_p 3280w(12)=2.063042410894373e-8_p 3281x(13)=26.34586808531682_p 3282w(13)=2.800138846651182e-11_p 3283x(14)=35.53601149655011_p 3284w(14)=4.128660023161775e-15_p 3285else if(N==15)then 3286x(1)=-10.83054053021924_p 3287w(1)=4.337665215529432e-1_p 3288x(2)=-10.11688756567325_p 3289w(2)=9.875609420451147e-1_p 3290x(3)=-8.872931514541385_p 3291w(3)=1.488598547755311_p 3292x(4)=-7.167908344559863_p 3293w(4)=1.902422568612996_p 3294x(5)=-5.107294299902393_p 3295w(5)=2.178542581508068_p 3296x(6)=-2.847710565778171_p 3297w(6)=2.164647348492025_p 3298x(7)=-5.855907698670407e-1_p 3299w(7)=1.436858882996260_p 3300x(8)=1.742828258252498_p 3301w(8)=3.735017593115197e-1_p 3302x(9)=4.538502753411830_p 3303w(9)=3.277314142403338e-2_p 3304x(10)=7.945535821281977_p 3305w(10)=1.317035129285695e-3_p 3306x(11)=11.9978706110408_p 3307w(11)=2.710675383388254e-5_p 3308x(12)=16.79817958994163_p 3309w(12)=2.649575814348327e-7_p 3310x(13)=22.5474713586678_p 3311w(13)=1.021277988238018e-9_p 3312x(14)=29.64408266205186_p 3313w(14)=1.069697888049399e-12_p 3314x(15)=39.11735339025716_p 3315w(15)=1.181674883435511e-16_p 3316else if(N==16)then 3317x(1)=-10.84393862655224_p 3318w(1)=3.995782023494962e-1_p 3319x(2)=-10.18577483760463_p 3320w(2)=9.118503258455836e-1_p 3321x(3)=-9.034676375024970_p 3322w(3)=1.380648776551495_p 3323x(4)=-7.447775912885660_p 3324w(4)=1.777664762810675_p 3325x(5)=-5.511768478537978_p 3326w(5)=2.064185304760844_p 3327x(6)=-3.354034517270591_p 3328w(6)=2.137115460686855_p 3329x(7)=-1.150779524327043_p 3330w(7)=1.654136495087671_p 3331x(8)=1.056819424614515_p 3332w(8)=5.959294135671345e-1_p 3333x(9)=3.602557384114439_p 3334w(9)=7.461375506642509e-2_p 3335x(10)=6.695235535662052_p 3336w(10)=4.166319709045423e-3_p 3337x(11)=10.35638891076118_p 3338w(11)=1.258417253561759e-4_p 3339x(12)=14.64119571898533_p 3340w(12)=2.027672269875739e-6_p 3341x(13)=19.66757077791914_p 3342w(13)=1.568060553421413e-8_p 3343x(14)=25.6446559612548_p 3344w(14)=4.782323786832186e-11_p 3345x(15)=32.97975949095325_p 3346w(15)=3.925221140474113e-14_p 3347x(16)=42.72172815385868_p 3348w(16)=3.298365531597999e-18_p 3349else if(N==17)then 3350x(1)=-10.85549099982975_p 3351w(1)=3.700829605797171e-1_p 3352x(2)=-10.24531797362763_p 3353w(2)=8.462005405554566e-1_p 3354x(3)=-9.175138050864573_p 3355w(3)=1.286057544525065_p 3356x(4)=-7.692673068422883_p 3357w(4)=1.666064018022895_p 3358x(5)=-5.870119930691639_p 3359w(5)=1.955626213664033_p 3360x(6)=-3.812376102388810_p 3361w(6)=2.082644027376542_p 3362x(7)=-1.670675393725759_p 3363w(7)=1.792378666886351_p 3364x(8)=4.554150112559257e-1_p 3365w(8)=8.424230427172471e-1_p 3366x(9)=2.802535452965667_p 3367w(9)=1.470518922214807e-1_p 3368x(10)=5.631257822947817_p 3369w(10)=1.102062752750342e-2_p 3370x(11)=8.975115793878858_p 3371w(11)=4.561681098994223e-4_p 3372x(12)=12.85979095386209_p 3373w(12)=1.085838162489236e-5_p 3374x(13)=17.35795648554185_p 3375w(13)=1.401196858025951e-7_p 3376x(14)=22.59541886600556_p 3377w(14)=8.716822864693781e-10_p 3378x(15)=28.78713776373321_p 3379w(15)=2.133601243235924e-12_p 3380x(16)=36.34834057160742_p 3381w(16)=1.390447631845921e-15_p 3382x(17)=46.34632356299704_p 3383w(17)=9.006459533113421e-20_p 3384else 3385call GD(-11) 3386end if 3387end subroutine GF_m11 3388 3389! [-10kT;infkT] 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.589291604880055_p 3395w(1)=5.675311882692907_p 3396x(2)=-1.221802100721404_p 3397w(2)=4.324733516206310_p 3398else if(N==3)then 3399x(1)=-8.585496555093298_p 3400w(1)=3.477526165098068_p 3401x(2)=-3.820530664777785_p 3402w(2)=5.186811694320807_p 3403x(3)=9.860666955813724e-1_p 3404w(3)=1.335707539480342_p 3405else if(N==4)then 3406x(1)=-9.045154604993709_p 3407w(1)=2.387438931678964_p 3408x(2)=-5.505463619299148_p 3409w(2)=4.342786828407171_p 3410x(3)=-1.157816323315435_p 3411w(3)=3.060088862366499_p 3412x(4)=3.295961913561928_p 3413w(4)=2.097307764465837e-1_p 3414else if(N==5)then 3415x(1)=-9.297150997381326_p 3416w(1)=1.772164747565641_p 3417x(2)=-6.568033857374443_p 3418w(2)=3.511187681918511_p 3419x(3)=-2.735520320810697_p 3420w(3)=3.627022219007637_p 3421x(4)=9.341767625781312e-1_p 3422w(4)=1.072723065897711_p 3423x(5)=6.006574317458223_p 3424w(5)=1.694768450971705e-2_p 3425else if(N==6)then 3426x(1)=-9.452099644090413_p 3427w(1)=1.388124608118155_p 3428x(2)=-7.268242767389183_p 3429w(2)=2.879830505762380_p 3430x(3)=-3.963938304413228_p 3431w(3)=3.481266741848998_p 3432x(4)=-5.310681376130680e-1_p 3433w(4)=2.063661054138478_p 3434x(5)=3.132688689823216_p 3435w(5)=1.862097379559514e-1_p 3436x(6)=8.993027010392536_p 3437w(6)=9.527510752550011e-4_p 3438else if(N==7)then 3439x(1)=-9.555320552439506_p 3440w(1)=1.130015410502581_p 3441x(2)=-7.753725776689699_p 3442w(2)=2.411049249581520_p 3443x(3)=-4.904511670069176_p 3444w(3)=3.149315366919483_p 3445x(4)=-1.685779131852667_p 3446w(4)=2.644314743151385_p 3447x(5)=1.448645955438238_p 3448w(5)=6.472142083152083e-1_p 3449x(6)=5.647385498519457_p 3450w(6)=1.809243818044958e-2_p 3451x(7)=12.14658196402564_p 3452w(7)=4.398224859028073e-5_p 3453else if(N==8)then 3454x(1)=-9.628228432679833_p 3455w(1)=9.466604043129438e-1_p 3456x(2)=-8.105484817588136_p 3457w(2)=2.057582109189131_p 3458x(3)=-5.627717747742147_p 3459w(3)=2.811270590156890_p 3460x(4)=-2.656520346047210_p 3461w(4)=2.809366434036807_p 3462x(5)=2.633552229731640e-1_p 3463w(5)=1.269983201718754_p 3464x(6)=3.616143170833610_p 3465w(6)=1.038955516751187e-1_p 3466x(7)=8.393930661409803_p 3467w(7)=1.285321320373140e-3_p 3468x(8)=15.41279614012964_p 3469w(8)=1.786489199307664e-6_p 3470else if(N==9)then 3471x(1)=-9.682065265471909_p 3472w(1)=8.107341271459941e-1_p 3473x(2)=-8.369781210751535_p 3474w(2)=1.785079818178739_p 3475x(3)=-6.192345665022462_p 3476w(3)=2.511032584486491_p 3477x(4)=-3.473805652680996_p 3478w(4)=2.750687100015107_p 3479x(5)=-6.831205857299746e-1_p 3480w(5)=1.809690141636326_p 3481x(6)=2.205969577947786_p 3482w(6)=3.221677848190707e-1_p 3483x(7)=6.046663086454349_p 3484w(7)=1.057747756893992e-2_p 3485x(8)=11.29297056115455_p 3486w(8)=7.629887743216598e-5_p 3487x(9)=18.76137286350605_p 3488w(9)=6.617111634194061e-8_p 3489else if(N==10)then 3490x(1)=-9.723225912935650_p 3491w(1)=7.065181875747334e-1_p 3492x(2)=-8.574375512923954_p 3493w(2)=1.570348197971932_p 3494x(3)=-6.641129380929998_p 3495w(3)=2.254158866230011_p 3496x(4)=-4.159028746082773_p 3497w(4)=2.604370153471480_p 3498x(5)=-1.494255554382590_p 3499w(5)=2.143421464281334_p 3500x(6)=1.147456409070011_p 3501w(6)=6.740721035813015e-1_p 3502x(7)=4.375411858186191_p 3503w(7)=4.630860182317514e-2_p 3504x(8)=8.664596261603462_p 3505w(8)=8.438204905595268e-4_p 3506x(9)=14.30216830431625_p 3507w(9)=4.001190274391857e-6_p 3508x(10)=22.17327084772196_p 3509w(10)=2.284415371247907e-9_p 3510else if(N==11)then 3511x(1)=-9.755584638087310_p 3512w(1)=6.244149508235040e-1_p 3513x(2)=-8.736712816004236_p 3514w(2)=1.397754776597229_p 3515x(3)=-7.004092507102143_p 3516w(3)=2.036301124410628_p 3517x(4)=-4.734305854678002_p 3518w(4)=2.433863384245550_p 3519x(5)=-2.207092188727888_p 3520w(5)=2.285934600432631_p 3521x(6)=2.974975611905444e-1_p 3522w(6)=1.080706625075275_p 3523x(7)=3.109612898457574_p 3524w(7)=1.362296513384349e-1_p 3525x(8)=6.758483175591900_p 3526w(8)=4.782303192475306e-3_p 3527x(9)=11.41448003146258_p 3528w(9)=5.779176576773219e-5_p 3529x(10)=17.39664226434477_p 3530w(10)=1.909431331368885e-7_p 3531x(11)=25.63558657924636_p 3532w(11)=7.458792298595650e-11_p 3533else if(N==12)then 3534x(1)=-9.781610693787981_p 3535w(1)=5.582722257073239e-1_p 3536x(2)=-8.868208874694258_p 3537w(2)=1.256586940224353_p 3538x(3)=-7.302350343691741_p 3539w(3)=1.851261376345065_p 3540x(4)=-5.219920298420468_p 3541w(4)=2.264885128363835_p 3542x(5)=-2.836082968818161_p 3543w(5)=2.303070054888020_p 3544x(6)=-4.248042791416450e-1_p 3545w(6)=1.445885480028356_p 3546x(7)=2.111354759992304_p 3547w(7)=3.016980176149446e-1_p 3548x(8)=5.288934251927386_p 3549w(8)=1.797308559436643e-2_p 3550x(9)=9.293640430066443_p 3551w(9)=4.095442204460728e-4_p 3552x(10)=14.26536368563016_p 3553w(10)=3.537459425466003e-6_p 3554x(11)=20.55989999334495_p 3555w(11)=8.450754014891253e-9_p 3556x(12)=29.13911975763506_p 3557w(12)=2.327225813128926e-12_p 3558else if(N==13)then 3559x(1)=-9.802944732523734_p 3560w(1)=5.039844922558308e-1_p 3561x(2)=-8.976600168688634_p 3562w(2)=1.139344727564864_p 3563x(3)=-7.550947734773477_p 3564w(3)=1.693243714786153_p 3565x(4)=-5.632881188773164_p 3566w(4)=2.106965465095334_p 3567x(5)=-3.390590997206719_p 3568w(5)=2.252110967401716_p 3569x(6)=-1.062427565763326_p 3570w(6)=1.712940860843568_p 3571x(7)=1.296258290404108_p 3572w(7)=5.387043188637678e-1_p 3573x(8)=4.113636022933184_p 3574w(8)=5.084447146040432e-2_p 3575x(9)=7.638761996184767_p 3576w(9)=1.875353894531170e-3_p 3577x(10)=11.94280699436571_p 3578w(10)=3.082835528110794e-5_p 3579x(11)=17.19782582794715_p 3580w(11)=1.980261942598798e-7_p 3581x(12)=23.78018745948154_p 3582w(12)=3.515021562956727e-10_p 3583x(13)=32.67705704476367_p 3584w(13)=6.991842078754533e-14_p 3585else if(N==14)then 3586x(1)=-9.820715399240081_p 3587w(1)=4.587178817484152e-1_p 3588x(2)=-9.067290760279867_p 3589w(2)=1.040661830292795_p 3590x(3)=-7.760786036078033_p 3591w(3)=1.557374432697868_p 3592x(4)=-5.986874546981522_p 3593w(4)=1.962951442444875_p 3594x(5)=-3.879384879735112_p 3595w(5)=2.168757815058630_p 3596x(6)=-1.636362636593299_p 3597w(6)=1.873680436703043_p 3598x(7)=6.076261950491434e-1_p 3599w(7)=8.151481659627882e-1_p 3600x(8)=3.149679035408263_p 3601w(8)=1.162078426306880e-1_p 3602x(9)=6.299235055376679_p 3603w(9)=6.374633917770719e-3_p 3604x(10)=10.11459940747394_p 3605w(10)=1.688085776503636e-4_p 3606x(11)=14.68342795068508_p 3607w(11)=2.098554196419095e-6_p 3608x(12)=20.19831363617556_p 3609w(12)=1.029661982637806e-8_p 3610x(13)=27.04873165877067_p 3611w(13)=1.387576472596986e-11_p 3612x(14)=36.24419992586615_p 3613w(14)=2.034418814482857e-15_p 3614else if(N==15)then 3615x(1)=-9.835722302194297_p 3616w(1)=4.204592640834092e-1_p 3617x(2)=-9.144155853134679_p 3618w(2)=9.566186407401555e-1_p 3619x(3)=-7.939903362394818_p 3620w(3)=1.439703317064570_p 3621x(4)=-6.292740056243495_p 3622w(4)=1.832965113597395_p 3623x(5)=-4.310946473016213_p 3624w(5)=2.072518869957828_p 3625x(6)=-2.156786402685434_p 3626w(6)=1.948145348572929_p 3627x(7)=7.026720934025918e-3_p 3628w(7)=1.087394009358152_p 3629x(8)=2.343063434227752_p 3630w(8)=2.241321691315286e-1_p 3631x(9)=5.187734112726094_p 3632w(9)=1.742199581152172e-2_p 3633x(10)=8.622479265534754_p 3634w(10)=6.729362875407564e-4_p 3635x(11)=12.69014058353754_p 3636w(11)=1.360229958020217e-5_p 3637x(12)=17.50038557291997_p 3638w(12)=1.314911347008956e-7_p 3639x(13)=23.25675783059448_p 3640w(13)=5.029477482249950e-10_p 3641x(14)=30.35876496038322_p 3642w(14)=5.237684587624757e-13_p 3643x(15)=39.83648451639409_p 3644w(15)=5.758943641997787e-17_p 3645else if(N==16)then 3646x(1)=-9.848546410402642_p 3647w(1)=3.877427563080178e-1_p 3648x(2)=-9.210038691584955_p 3649w(2)=8.842973839595019e-1_p 3650x(3)=-8.094327341284350_p 3651w(3)=1.337067488842792_p 3652x(4)=-6.559035068833240_p 3653w(4)=1.716068141607882_p 3654x(5)=-4.693089822199627_p 3655w(5)=1.973466485874236_p 3656x(6)=-2.629555448067344_p 3657w(6)=1.963033828943381_p 3658x(7)=-5.304147728205207e-1_p 3659w(7)=1.320008615282153_p 3660x(8)=1.655450064520418_p 3661w(8)=3.759392240556383e-1_p 3662x(9)=4.248695706614122_p 3663w(9)=4.022880985918401e-2_p 3664x(10)=7.374171113759405_p 3665w(10)=2.128730318583768e-3_p 3666x(11)=11.05287298112113_p 3667w(11)=6.292475329715783e-5_p 3668x(12)=15.34862820048992_p 3669w(12)=1.001391700914861e-6_p 3670x(13)=20.38262232770834_p 3671w(13)=7.679551516240357e-9_p 3672x(14)=26.36537447050511_p 3673w(14)=2.327895432405632e-11_p 3674x(15)=33.70493289992374_p 3675w(15)=1.901678239195193e-14_p 3676x(16)=43.45066909176157_p 3677w(16)=1.591684500096668e-18_p 3678else if(N==17)then 3679x(1)=-9.859619164663929_p 3680w(1)=3.594777908646137e-1_p 3681x(2)=-9.267067748562157_p 3682w(2)=8.214881979554354e-1_p 3683x(3)=-8.228649861241962_p 3684w(3)=1.246938746489436_p 3685x(4)=-6.792534667847691_p 3686w(4)=1.610974456153249_p 3687x(5)=-5.032723688559221_p 3688w(5)=1.876614919095088_p 3689x(6)=-3.059143980397058_p 3690w(6)=1.940718363363861_p 3691x(7)=-1.019815143174315_p 3692w(7)=1.495398974015314_p 3693x(8)=1.058112767942232_p 3694w(8)=5.614981559494947e-1_p 3695x(9)=3.444228762828166_p 3696w(9)=8.105790262535478e-2_p 3697x(10)=6.310793925911792_p 3698w(10)=5.644947738379057e-3_p 3699x(11)=9.674916736007203_p 3700w(11)=2.275353130079171e-4_p 3701x(12)=13.57172985398879_p 3702w(12)=5.340623935663579e-6_p 3703x(13)=18.07814020038539_p 3704w(13)=6.828896197907607e-8_p 3705x(14)=23.32162535089521_p 3706w(14)=4.220568446252464e-10_p 3707x(15)=29.51797482411764_p 3708w(15)=1.027964937260599e-12_p 3709x(16)=37.0829123184892_p 3710w(16)=6.672809861986115e-16_p 3711x(17)=47.08412315306948_p 3712w(17)=4.307689766877253e-20_p 3713else 3714call GD(-10) 3715end if 3716end subroutine GF_m10 3717 3718! [-9kT;infkT] 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.781260852918477_p 3724w(1)=5.214314237558836_p 3725x(2)=-9.236268371767800e-1_p 3726w(2)=3.785809164630887_p 3727else if(N==3)then 3728x(1)=-7.683954151714736_p 3729w(1)=3.232601260062967_p 3730x(2)=-3.271349655999011_p 3731w(2)=4.705941078364771_p 3732x(3)=1.297723451491527_p 3733w(3)=1.061581063761986_p 3734else if(N==4)then 3735x(1)=-8.104403839348128_p 3736w(1)=2.237917820800087_p 3737x(2)=-4.794759873890775_p 3738w(2)=4.027699918324601_p 3739x(3)=-7.489886595383116e-1_p 3740w(3)=2.590639732769998_p 3741x(4)=3.704167848071610_p 3742w(4)=1.438659302950360e-1_p 3743else if(N==5)then 3744x(1)=-8.336658183800775_p 3745w(1)=1.671747601583987_p 3746x(2)=-5.766653705586105_p 3747w(2)=3.292411052253654_p 3748x(3)=-2.187822788996405_p 3749w(3)=3.230796736230749_p 3750x(4)=1.342701985908042_p 3751w(4)=7.946965335244519e-1_p 3752x(5)=6.498878996243528_p 3753w(5)=1.047147859688094e-2_p 3754else if(N==6)then 3755x(1)=-8.480357673407347_p 3756w(1)=1.316007789854031_p 3757x(2)=-6.412636685663035_p 3758w(2)=2.719238535012091_p 3759x(3)=-3.304752232639726_p 3760w(3)=3.198813660559332_p 3761x(4)=-7.417349258797230e-2_p 3762w(4)=1.646817535822792_p 3763x(5)=3.619130794649189_p 3764w(5)=1.186927755246831e-1_p 3765x(6)=9.541947047575144_p 3766w(6)=5.531054167935924e-4_p 3767else if(N==7)then 3768x(1)=-8.576580389680734_p 3769w(1)=1.075622160235427_p 3770x(2)=-6.863446578096177_p 3771w(2)=2.288139551653221_p 3772x(3)=-4.167503453092448_p 3773w(3)=2.942091252124726_p 3774x(4)=-1.148802123107691_p 3775w(4)=2.244550218314371_p 3776x(5)=1.929838343876886_p 3777w(5)=4.391713585010832e-1_p 3778x(6)=6.200997042306462_p 3779w(6)=1.052439917569892e-2_p 3780x(7)=12.73626044555126_p 3781w(7)=2.446218519667578e-5_p 3782else if(N==8)then 3783x(1)=-8.644841616996203_p 3784w(1)=9.040850980206296e-1_p 3785x(2)=-7.191781617272031_p 3786w(2)=1.960412344713226_p 3787x(3)=-4.836375792778110_p 3788w(3)=2.651495433552247_p 3789x(4)=-2.038790547526094_p 3790w(4)=2.494457332260455_p 3791x(5)=7.594847970428568e-1_p 3792w(5)=9.273201502151485e-1_p 3793x(6)=4.166742587470021_p 3794w(6)=6.164162966399555e-2_p 3795x(7)=8.992251431355157_p 3796w(7)=7.104518352858954e-4_p 3797x(8)=16.03384823426031_p 3798w(8)=9.619287355999905e-7_p 3799else if(N==9)then 3800x(1)=-8.695434853613001_p 3801w(1)=7.764318563897410e-1_p 3802x(2)=-7.439536012185579_p 3803w(2)=1.706244755850808_p 3804x(3)=-5.361973955255759_p 3805w(3)=2.383081503426771_p 3806x(4)=-2.789019396533470_p 3807w(4)=2.513649000224065_p 3808x(5)=-1.484044883245808e-1_p 3809w(5)=1.415510087816152_p 3810x(6)=2.749973494721224_p 3811w(6)=1.993180622614897e-1_p 3812x(7)=6.649312671876570_p 3813w(7)=5.847354460903985e-3_p 3814x(8)=11.92346311940306_p 3815w(8)=4.074703657604473e-5_p 3816x(9)=19.4075974240917_p 3817w(9)=3.472321702332459e-8_p 3818else if(N==10)then 3819x(1)=-8.734239982638096_p 3820w(1)=6.782359036478686e-1_p 3821x(2)=-7.632019272933647_p 3822w(2)=1.505024798189425_p 3823x(3)=-5.781870068031213_p 3824w(3)=2.148844128719436_p 3825x(4)=-3.421893522424452_p 3826w(4)=2.422348541677218_p 3827x(5)=-9.078113964842383e-1_p 3828w(5)=1.776984751988813_p 3829x(6)=1.689927974115049_p 3830w(6)=4.423834139619237e-1_p 3831x(7)=4.977649713444378_p 3832w(7)=2.585153210361654e-2_p 3833x(8)=9.302091283829512_p 3834w(8)=4.482488768073187e-4_p 3835x(9)=14.95762642568723_p 3836w(9)=2.081850966478539e-6_p 3837x(10)=22.84028090058109_p 3838w(10)=1.173647689686265e-9_p 3839else if(N==11)then 3840x(1)=-8.764832536833886_p 3841w(1)=6.006530743470894e-1_p 3842x(2)=-7.785221956785437_p 3843w(2)=1.342673234020999_p 3844x(3)=-6.122876699590067_p 3845w(3)=1.947809127661576_p 3846x(4)=-3.956601717083454_p 3847w(4)=2.289142725229494_p 3848x(5)=-1.567602921726896_p 3849w(5)=1.982049369003556_p 3850x(6)=8.505108107636895e-1_p 3851w(6)=7.574181649538489e-1_p 3852x(7)=3.707625609570740_p 3853w(7)=7.781128696304400e-2_p 3854x(8)=7.400246158712635_p 3855w(8)=2.536455523247765e-3_p 3856x(9)=12.07756748455563_p 3857w(9)=2.986715398130378e-5_p 3858x(10)=18.07236139544845_p 3859w(10)=9.729524258320348e-8_p 3860x(11)=26.32013607452222_p 3861w(11)=3.764495208532974e-11_p 3862else if(N==12)then 3863x(1)=-8.789498952641047_p 3864w(1)=5.379940965621900e-1_p 3865x(2)=-7.909654989867835_p 3866w(2)=1.209454858844759_p 3867x(3)=-6.404059817746219_p 3868w(3)=1.775684381132815_p 3869x(4)=-4.410433139448481_p 3870w(4)=2.146123472557842_p 3871x(5)=-2.148874933278524_p 3872w(5)=2.061956354783386_p 3873x(6)=1.517845497100739e-1_p 3874w(6)=1.080238078654534_p 3875x(7)=2.704086597542274_p 3876w(7)=1.788940019575335e-1_p 3877x(8)=5.932109148059223_p 3878w(8)=9.565714248073053e-3_p 3879x(9)=9.962628646986015_p 3880w(9)=2.106493023130368e-4_p 3881x(10)=14.9486321705431_p 3882w(10)=1.789913003020195e-6_p 3883x(11)=21.25255058704104_p 3884w(11)=4.232118326942672e-9_p 3885x(12)=29.83872568952323_p 3886w(12)=1.156814412978154e-12_p 3887else if(N==13)then 3888x(1)=-8.809762951425064_p 3889w(1)=4.864504055302774e-1_p 3890x(2)=-8.012469026329438_p 3891w(2)=1.098508511718315_p 3892x(3)=-6.639114887467832_p 3893w(3)=1.627832681406808_p 3894x(4)=-4.798107869167244_p 3895w(4)=2.007030872560923_p 3896x(5)=-2.662915525880427_p 3897w(5)=2.061302478052335_p 3898x(6)=-4.532255675760256e-1_p 3899w(6)=1.355011683031785_p 3900x(7)=1.886631292110175_p 3901w(7)=3.356675005986293e-1_p 3902x(8)=4.755464846124475_p 3903w(8)=2.734152896324917e-2_p 3904x(9)=8.311922329750464_p 3905w(9)=9.621312385886590e-4_p 3906x(10)=12.63238402701029_p 3907w(10)=1.551042280550551e-5_p 3908x(11)=17.89769393924876_p 3909w(11)=9.849251397313379e-8_p 3910x(12)=24.48729082926344_p 3911w(12)=1.734598918584223e-10_p 3912x(13)=33.38976970695389_p 3913w(13)=3.429821150085738e-14_p 3914else if(N==14)then 3915x(1)=-8.826675566422185_p 3916w(1)=4.433856754394452e-1_p 3917x(2)=-8.098675659507492_p 3918w(2)=1.004899117674761_p 3919x(3)=-6.838028059548679_p 3920w(3)=1.500127292507859_p 3921x(4)=-5.131670770944996_p 3922w(4)=1.877215508416541_p 3923x(5)=-3.118107400374313_p 3924w(5)=2.015239559761733_p 3925x(6)=-9.909161240749585e-1_p 3926w(6)=1.554679585000322_p 3927x(7)=1.202002768013199_p 3928w(7)=5.375246841280691e-1_p 3929x(8)=3.788000984443570_p 3930w(8)=6.369554901760474e-2_p 3931x(9)=6.974816463866687_p 3932w(9)=3.270824921752079e-3_p 3933x(10)=10.80929780290089_p 3934w(10)=8.456261115484613e-5_p 3935x(11)=15.38955673392627_p 3936w(11)=1.037655731423165e-6_p 3937x(12)=20.91221851835054_p 3938w(12)=5.047986911980888e-9_p 3939x(13)=27.76837559367717_p 3940w(13)=6.760862614541254e-12_p 3941x(14)=36.96845534141407_p 3942w(14)=9.864341644219247e-16_p 3943else if(N==15)then 3944x(1)=-8.840983244470365_p 3945w(1)=4.069223240861285e-1_p 3946x(2)=-8.171879305433423_p 3947w(2)=9.250064479448887e-1_p 3948x(3)=-7.008199962257097_p 3949w(3)=1.389121762935146_p 3950x(4)=-5.420792802044534_p 3951w(4)=1.758291795629356_p 3952x(5)=-3.521845515936899_p 3953w(5)=1.946209764164095_p 3954x(6)=-1.475691065213292_p 3955w(6)=1.678686179234516_p 3956x(7)=6.131653977072158e-1_p 3957w(7)=7.601069317112646e-1_p 3958x(8)=2.977001718567611_p 3959w(8)=1.264642328502698e-1_p 3960x(9)=5.863965508298815_p 3961w(9)=8.971110623940714e-3_p 3962x(10)=9.321159745420164_p 3963w(10)=3.360957574747674e-4_p 3964x(11)=13.40162783255745_p 3965w(11)=6.692915124069260e-6_p 3966x(12)=18.22032414347779_p 3967w(12)=6.409372151508129e-8_p 3968x(13)=23.98277186216882_p 3969w(13)=2.435446203171561e-10_p 3970x(14)=31.08943374016003_p 3971w(14)=2.523708784371553e-13_p 3972x(15)=40.57100558641628_p 3973w(15)=2.763647641116974e-17_p 3974else if(N==16)then 3975x(1)=-8.853229541210652_p 3976w(1)=3.756899965282597e-1_p 3977x(2)=-8.234731533061728_p 3978w(2)=8.561257129625162e-1_p 3979x(3)=-7.155203550747760_p 3980w(3)=1.292005122691869_p 3981x(4)=-5.673189950925535_p 3982w(4)=1.650242451428187_p 3983x(5)=-3.880830895719098_p 3984w(5)=1.867243662395137_p 3985x(6)=-1.915733605562518_p 3986w(6)=1.740783298602063_p 3987x(7)=9.439839320421535e-2_p 3988w(7)=9.756246239357651e-1_p 3989x(8)=2.285967105673965_p 3990w(8)=2.204328550979857e-1_p 3991x(9)=4.923871959086783_p 3992w(9)=2.088272686750026e-2_p 3993x(10)=8.075713406715050_p 3994w(10)=1.061623814051293e-3_p 3995x(11)=11.76888073519236_p 3996w(11)=3.083848220089594e-5_p 3997x(12)=16.0738764304774_p 3998w(12)=4.856749025604627e-7_p 3999x(13)=21.11437452580694_p 4000w(13)=3.698125165898673e-9_p 4001x(14)=27.10199590569329_p 4002w(14)=1.115156112378649e-11_p 4003x(15)=34.44539891917539_p 4004w(15)=9.072765584090337e-15_p 4005x(16)=44.19439709725511_p 4006w(16)=7.567902049282212e-19_p 4007else if(N==17)then 4008x(1)=-8.863818940047986_p 4009w(1)=3.486670338847219e-1_p 4010x(2)=-8.289222062907617_p 4011w(2)=7.962018700371281e-1_p 4012x(3)=-7.283299546622056_p 4013w(3)=1.206502037810051_p 4014x(4)=-5.895021906323899_p 4015w(4)=1.552374599379671_p 4016x(5)=-4.201032125392087_p 4017w(5)=1.785556021239550_p 4018x(6)=-2.316358185329777_p 4019w(6)=1.758160775487709_p 4020x(7)=-3.716388440108341e-1_p 4021w(7)=1.162393985757352_p 4022x(8)=1.688080020691938_p 4023w(8)=3.446782039107160e-1_p 4024x(9)=4.116901980213625_p 4025w(9)=4.265899081060199e-2_p 4026x(10)=7.014072832392166_p 4027w(10)=2.816103748420969e-3_p 4028x(11)=10.3946575436228_p 4029w(11)=1.111681405018292e-4_p 4030x(12)=14.3016224442002_p 4031w(12)=2.579058655823524e-6_p 4032x(13)=18.81503127128776_p 4033w(13)=3.272303860004126e-8_p 4034x(14)=24.06366989782795_p 4035w(14)=2.011167619304753e-10_p 4036x(15)=30.26400209704936_p 4037w(15)=4.877640576952688e-13_p 4038x(16)=37.83216362658488_p 4039w(16)=3.155469019965567e-16_p 4040x(17)=47.83616893166293_p 4041w(17)=2.031106405326982e-20_p 4042else 4043call GD(-9) 4044end if 4045end subroutine GF_m9 4046 4047! [-8kT;infkT] 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.971704484755712_p 4053w(1)=4.752846008513156_p 4054x(2)=-6.083138548639736e-1_p 4055w(2)=3.247489397859739_p 4056else if(N==3)then 4057x(1)=-6.781796996285888_p 4058w(1)=2.987695812996957_p 4059x(2)=-2.720431276468587_p 4060w(2)=4.201208061361022_p 4061x(3)=1.642726007373623_p 4062w(3)=8.114315320149164e-1_p 4063else if(N==4)then 4064x(1)=-7.163458354920818_p 4065w(1)=2.088130210028070_p 4066x(2)=-4.084906596437593_p 4067w(2)=3.696910776704428_p 4068x(3)=-3.256325843255794e-1_p 4069w(3)=2.120784966674070_p 4070x(4)=4.150707425983287_p 4071w(4)=9.450945296632805e-2_p 4072else if(N==5)then 4073x(1)=-7.376161323223533_p 4074w(1)=1.570880762786066_p 4075x(2)=-4.966390087432366_p 4076w(2)=3.065082738871327_p 4077x(3)=-1.640485541089629_p 4078w(3)=2.798925012474315_p 4079x(4)=1.786660581332027_p 4080w(4)=5.592009592467970e-1_p 4081x(5)=7.024657706723565_p 4082w(5)=6.245932994392010e-3_p 4083else if(N==6)then 4084x(1)=-7.508698539121582_p 4085w(1)=1.243365717087255_p 4086x(2)=-5.558157102196564_p 4087w(2)=2.553369838592851_p 4088x(3)=-2.650139972896226_p 4089w(3)=2.881253501791746_p 4090x(4)=4.025782404775194e-1_p 4091w(4)=1.249767160024774_p 4092x(5)=4.143587040919606_p 4093w(5)=7.226759645952095e-2_p 4094x(6)=10.1201578781191_p 4095w(6)=3.115924167494456e-4_p 4096else if(N==7)then 4097x(1)=-7.597961519522404_p 4098w(1)=1.020687250979850_p 4099x(2)=-5.974250721386938_p 4100w(2)=2.161551519859335_p 4101x(3)=-3.435253935893861_p 4102w(3)=2.710582240414992_p 4103x(4)=-6.079159231743126e-1_p 4104w(4)=1.820425967762249_p 4105x(5)=2.449099572936666_p 4106w(5)=2.811591016223564e-1_p 4107x(6)=6.786471392417435_p 4108w(6)=5.916079475319015e-3_p 4109x(7)=13.35226069409756_p 4110w(7)=1.324625879291145e-5_p 4111else if(N==8)then 4112x(1)=-7.661591120563749_p 4113w(1)=8.609805077627389e-1_p 4114x(2)=-6.279099710626079_p 4115w(2)=1.860448254246041_p 4116x(3)=-4.049213500567708_p 4117w(3)=2.475609857837928_p 4118x(4)=-1.425904496184196_p 4119w(4)=2.132982610181226_p 4120x(5)=1.284938515574827_p 4121w(5)=6.348846238529070e-1_p 4122x(6)=4.752743837249968_p 4123w(6)=3.504733912434832e-2_p 4124x(7)=9.618035471386074_p 4125w(7)=3.817078773650964e-4_p 4126x(8)=16.67895960931263_p 4127w(8)=5.054903416745884e-7_p 4128else if(N==9)then 4129x(1)=-7.708944172923838_p 4130w(1)=7.416255383547740e-1_p 4131x(2)=-6.510243892247484_p 4132w(2)=1.625161996585911_p 4133x(3)=-4.535194024222826_p 4134w(3)=2.244054161795198_p 4135x(4)=-2.111920316461438_p 4136w(4)=2.231472390181074_p 4137x(5)=4.018954640317268e-1_p 4138w(5)=1.038152902524167_p 4139x(6)=3.331829897569342_p 4140w(6)=1.167144006636555e-1_p 4141x(7)=7.281192125443246_p 4142w(7)=3.132776778976132e-3_p 4143x(8)=12.57853699897118_p 4144w(8)=2.122167278651418e-5_p 4145x(9)=20.07607804308665_p 4146w(9)=1.781635356877070e-8_p 4147else if(N==10)then 4148x(1)=-7.745391413262365_p 4149w(1)=6.494796558712893e-1_p 4150x(2)=-6.690548061062068_p 4151w(2)=1.437822720124065_p 4152x(3)=-4.925721256206491_p 4153w(3)=2.035524014740347_p 4154x(4)=-2.692610414818553_p 4155w(4)=2.204552514493824_p 4156x(5)=-3.182303357840279e-1_p 4157w(5)=1.387364902674204_p 4158x(6)=2.268397201907328_p 4159w(6)=2.714489433857648e-1_p 4160x(7)=5.611654376094484_p 4161w(7)=1.390963910973527e-2_p 4162x(8)=9.964925525249795_p 4163w(8)=2.319566017436088e-4_p 4164x(9)=15.63556425340802_p 4165w(9)=1.058781431749568e-6_p 4166x(10)=23.52806890323502_p 4167w(10)=5.904903281031823e-10_p 4168else if(N==11)then 4169x(1)=-7.774212626358096_p 4170w(1)=5.764482022045164e-1_p 4171x(2)=-6.834551371714124_p 4172w(2)=1.285979188400628_p 4173x(3)=-5.244389052811934_p 4174w(3)=1.853254967722821_p 4175x(4)=-3.186062338206511_p 4176w(4)=2.117720807901230_p 4177x(5)=-9.329594721988036e-1_p 4178w(5)=1.630762009929484_p 4179x(6)=1.432283659680858_p 4180w(6)=4.923931354593727e-1_p 4181x(7)=4.340202524114698_p 4182w(7)=4.245394058239790e-2_p 4183x(8)=8.068503894602269_p 4184w(8)=1.308025431479046e-3_p 4185x(9)=12.76345507165985_p 4186w(9)=1.508017897111975e-5_p 4187x(10)=18.76892156894252_p 4188w(10)=4.854336597749911e-8_p 4189x(11)=27.02422627585608_p 4190w(11)=1.862987835303757e-11_p 4191else if(N==12)then 4192x(1)=-7.797512995123328_p 4193w(1)=5.173029254492326e-1_p 4194x(2)=-6.951861296093401_p 4195w(2)=1.160911998045820_p 4196x(3)=-5.508190976723723_p 4197w(3)=1.695332741234358_p 4198x(4)=-3.607273242055292_p 4199w(4)=2.007537295100961_p 4200x(5)=-1.470321544671981_p 4201w(5)=1.767501123622087_p 4202x(6)=7.465797386209292e-1_p 4203w(6)=7.465820347584596e-1_p 4204x(7)=3.333102220030201_p 4205w(7)=1.001265309087667e-1_p 4206x(8)=6.603438295084541_p 4207w(8)=4.934094235261560e-3_p 4208x(9)=10.65491227669144_p 4209w(9)=1.057743245019653e-4_p 4210x(10)=15.65284928132677_p 4211w(10)=8.866147445220168e-7_p 4212x(11)=21.96471328238662_p 4213w(11)=2.078138185062090e-9_p 4214x(12)=30.55681911035632_p 4215w(12)=5.644454296415192e-13_p 4216else if(N==13)then 4217x(1)=-7.816700139028605_p 4218w(1)=4.685313704717695e-1_p 4219x(2)=-7.049043088332863_p 4220w(2)=1.056420173420873_p 4221x(3)=-5.729453756095666_p 4222w(3)=1.558538780648529_p 4223x(4)=-3.968891356709220_p 4224w(4)=1.892142325863793_p 4225x(5)=-1.945080296790062_p 4226w(5)=1.821690446735003_p 4227x(6)=1.635346426039999e-1_p 4228w(6)=9.933795103242946e-1_p 4229x(7)=2.512345256751103_p 4230w(7)=1.949696369705463e-1_p 4231x(8)=5.427569065324672_p 4232w(8)=1.417414655607245e-2_p 4233x(9)=9.009110683925208_p 4234w(9)=4.813303156408335e-4_p 4235x(10)=13.34310810581653_p 4236w(10)=7.636952085578775e-6_p 4237x(11)=18.61706684375507_p 4238w(11)=4.803024502352647e-8_p 4239x(12)=25.21279925153272_p 4240w(12)=8.402772899337569e-11_p 4241x(13)=34.12006066496256_p 4242w(13)=1.653053725450887e-14_p 4243else if(N==14)then 4244x(1)=-7.832747918085063_p 4245w(1)=4.276944470467446e-1_p 4246x(2)=-7.130715807593774_p 4247w(2)=9.680126440683062e-1_p 4248x(3)=-5.917234318166122_p 4249w(3)=1.439639905363374_p 4250x(4)=-4.281367662099484_p 4251w(4)=1.779938487567924_p 4252x(5)=-2.366548939315894_p 4253w(5)=1.820926111920528_p 4254x(6)=-3.463658992791592e-1_p 4255w(6)=1.202045088072821_p 4256x(7)=1.827345433376777_p 4257w(7)=3.270109105670478e-1_p 4258x(8)=4.458850692520672_p 4259w(8)=3.339234512858705e-2_p 4260x(9)=7.675457744180641_p 4261w(9)=1.633525401022309e-3_p 4262x(10)=11.52545786332539_p 4263w(10)=4.143580728279047e-5_p 4264x(11)=16.11523813957688_p 4265w(11)=5.029965710274545e-7_p 4266x(12)=21.64445569369362_p 4267w(12)=2.429449201034003e-9_p 4268x(13)=28.5054836408139_p 4269w(13)=3.236834171218763e-12_p 4270x(14)=37.709494843451_p 4271w(14)=4.703076810152302e-16_p 4272else if(N==15)then 4273x(1)=-7.846349843383503_p 4274w(1)=3.930500850569563e-1_p 4275x(2)=-7.200212780721510_p 4276w(2)=8.923766496784828e-1_p 4277x(3)=-6.078285891998825_p 4278w(3)=1.335779191392118_p 4279x(4)=-4.553199522556747_p 4280w(4)=1.674495361909566_p 4281x(5)=-2.741807921693480_p 4282w(5)=1.787052520749459_p 4283x(6)=-8.010431824809821e-1_p 4284w(6)=1.358405317396674_p 4285x(7)=1.243038221721552_p 4286w(7)=4.869820243718193e-1_p 4287x(8)=3.645184313953717_p 4288w(8)=6.754335450586325e-2_p 4289x(9)=6.566626499754731_p 4290w(9)=4.483561614944169e-3_p 4291x(10)=10.04175900081047_p 4292w(10)=1.640811031174348e-4_p 4293x(11)=14.13278336917193_p 4294w(11)=3.227809179528759e-6_p 4295x(12)=18.95855928690206_p 4296w(12)=3.066870702528196e-8_p 4297x(13)=24.72613922432276_p 4298w(13)=1.158891144257284e-10_p 4299x(14)=31.83675407517413_p 4300w(14)=1.195842007188665e-13_p 4301x(15)=41.32160989979974_p 4302w(15)=1.305020715857999e-17_p 4303else if(N==16)then 4304x(1)=-7.858012165280253_p 4305w(1)=3.633235536417537e-1_p 4306x(2)=-7.259993501749259_p 4307w(2)=8.270257697278727e-1_p 4308x(3)=-6.217719682458290_p 4309w(3)=1.244549764056912_p 4310x(4)=-4.791244134048377_p 4311w(4)=1.577040109658284_p 4312x(5)=-3.076824081165363_p 4313w(5)=1.734860551193228_p 4314x(6)=-1.211393922145977_p 4315w(6)=1.462308985101094_p 4316x(7)=7.343655161714918e-1_p 4317w(7)=6.593171000844729e-1_p 4318x(8)=2.951068376773286_p 4319w(8)=1.209016799370815e-1_p 4320x(9)=5.627156030311122_p 4321w(9)=1.047586577365416e-2_p 4322x(10)=8.799804955992537_p 4323w(10)=5.169854010609160e-4_p 4324x(11)=12.50474986944939_p 4325w(11)=1.480882496228599e-5_p 4326x(12)=16.8174307994364_p 4327w(12)=2.312171805223908e-7_p 4328x(13)=21.86339585976377_p 4329w(13)=1.750080769336847e-9_p 4330x(14)=27.85513621783102_p 4331w(14)=5.254007512235276e-12_p 4332x(15)=35.20180565932991_p 4333w(15)=4.259828202197813e-15_p 4334x(16)=44.95358443207187_p 4335w(16)=3.542935060048560e-19_p 4336else if(N==17)then 4337x(1)=-7.868112452578593_p 4338w(1)=3.375622570701008e-1_p 4339x(2)=-7.311908514487195_p 4340w(2)=7.700635147732918e-1_p 4341x(3)=-6.339460089003557_p 4342w(3)=1.163962125243489_p 4343x(4)=-5.001028018680998_p 4344w(4)=1.487687324400281_p 4345x(5)=-3.376790193486193_p 4346w(5)=1.673612514854653_p 4347x(6)=-1.584334124677638_p 4348w(6)=1.521535717216005_p 4349x(7)=2.833804482699752e-1_p 4350w(7)=8.273153496367401e-1_p 4351x(8)=2.350928446112280_p 4352w(8)=1.956102512622671e-1_p 4353x(9)=4.819521234353796_p 4354w(9)=2.156218367665623e-2_p 4355x(10)=7.740736397264266_p 4356w(10)=1.369734324888927e-3_p 4357x(11)=11.13454134759788_p 4358w(11)=5.319602233718197e-5_p 4359x(12)=15.04988015276141_p 4360w(12)=1.222388011951527e-6_p 4361x(13)=19.56914019142362_p 4362w(13)=1.540968090782899e-8_p 4363x(14)=24.82212062964095_p 4364w(14)=9.426426041804118e-11_p 4365x(15)=31.02582536286678_p 4366w(15)=2.277963183893434e-13_p 4367x(16)=38.59672705975511_p 4368w(16)=1.469422334960487e-16_p 4369x(17)=48.60311432537922_p 4370w(17)=9.434867322116007e-21_p 4371else 4372call GD(-8) 4373end if 4374end subroutine GF_m8 4375 4376! [-7kT;infkT] 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.160732875462740_p 4382w(1)=4.287642623828432_p 4383x(2)=-2.708834502215777e-1_p 4384w(2)=2.713268842625342_p 4385else if(N==3)then 4386x(1)=-5.879247476516393_p 4387w(1)=2.740849985870782_p 4388x(2)=-2.166717815483878_p 4389w(2)=3.668240033493143_p 4390x(3)=2.027331940039729_p 4391w(3)=5.918214470898486e-1_p 4392else if(N==4)then 4393x(1)=-6.222514589498077_p 4394w(1)=1.936778221836928_p 4395x(2)=-3.376756511950506_p 4396w(2)=3.341544008164287_p 4397x(3)=1.189399752807954e-1_p 4398w(3)=1.663299174775770_p 4399x(4)=4.638561481204779_p 4400w(4)=5.929006167678859e-2_p 4401else if(N==5)then 4402x(1)=-6.415821409347330_p 4403w(1)=1.468625606657609_p 4404x(2)=-4.168254380749758_p 4405w(2)=2.822662239413804_p 4406x(3)=-1.090172436827608_p 4407w(3)=2.334693877325914_p 4408x(4)=2.271877840062589_p 4409w(4)=3.713390311157983e-1_p 4410x(5)=7.585676552772365_p 4411w(5)=3.590711940648021e-3_p 4412else if(N==6)then 4413x(1)=-6.537253895977168_p 4414w(1)=1.169478573668147_p 4415x(2)=-4.705671129420211_p 4416w(2)=2.377768589844318_p 4417x(3)=-2.000049993285920_p 4418w(3)=2.518938166683133_p 4419x(4)=9.077658292611508e-1_p 4420w(4)=8.925448127968291e-1_p 4421x(5)=4.707624586683007_p 4422w(5)=4.201122627130725e-2_p 4423x(6)=10.72912879874509_p 4424w(6)=1.700971900398587e-4_p 4425else if(N==7)then 4426x(1)=-6.619572996078730_p 4427w(1)=9.646354285120770e-1_p 4428x(2)=-5.086851344158783_p 4429w(2)=2.028134425854754_p 4430x(3)=-2.709014797704946_p 4431w(3)=2.442581326999243_p 4432x(4)=-5.547663555474947e-2_p 4433w(4)=1.392805617237254_p 4434x(5)=3.010051377975343_p 4435w(5)=1.695358406801828e-1_p 4436x(6)=7.404765234775069_p 4437w(6)=3.211852610148665e-3_p 4438x(7)=13.99587907197572_p 4439w(7)=6.974560113888754e-6_p 4440else if(N==8)then 4441x(1)=-6.678568682791337_p 4442w(1)=8.168726510573617e-1_p 4443x(2)=-5.368028435683444_p 4444w(2)=1.755350957615773_p 4445x(3)=-3.267747922781133_p 4446w(3)=2.273263583296715_p 4447x(4)=-8.136676356571579e-1_p 4448w(4)=1.731091373615664_p 4449x(5)=1.847202253147159_p 4450w(5)=4.050173600240265e-1_p 4451x(6)=5.374633061798622_p 4452w(6)=1.911611640681823e-2_p 4453x(7)=10.27226814344805_p 4454w(7)=1.991654944809848e-4_p 4455x(8)=17.34930852585619_p 4456w(8)=2.589429355544204e-7_p 4457else if(N==9)then 4458x(1)=-6.722671542479262_p 4459w(1)=7.059153455293034e-1_p 4460x(2)=-5.582398822866604_p 4461w(2)=1.540020269268474_p 4462x(3)=-3.713444890651290_p 4463w(3)=2.085942262226576_p 4464x(4)=-1.441423394577962_p 4465w(4)=1.896398008448712_p 4466x(5)=9.777865083098330e-1_p 4467w(5)=7.061548186406501e-1_p 4468x(6)=3.952599958695761_p 4469w(6)=6.484360111074960e-2_p 4470x(7)=7.942850899905654_p 4471w(7)=1.626383606402848e-3_p 4472x(8)=13.2591634432553_p 4473w(8)=1.076869408364379e-5_p 4474x(9)=20.76790823873101_p 4475w(9)=8.928822129903011e-9_p 4476else if(N==10)then 4477x(1)=-6.756747953974071_p 4478w(1)=6.199058313235667e-1_p 4479x(2)=-5.750382170776092_p 4480w(2)=1.367290406075574_p 4481x(3)=-4.073960723103365_p 4482w(3)=1.908070445582586_p 4483x(4)=-1.971881004220637_p 4484w(4)=1.937290063798746_p 4485x(5)=2.840174913968520e-1_p 4486w(5)=1.005082061000970_p 4487x(6)=2.886423853547879_p 4488w(6)=1.559327435123258e-1_p 4489x(7)=6.277445657921155_p 4490w(7)=7.222534903170660e-3_p 4491x(8)=10.65382077273259_p 4492w(8)=1.168541188161124e-4_p 4493x(9)=16.33692249956611_p 4494w(9)=5.258473779300965e-7_p 4495x(10)=24.23766413571828_p 4496w(10)=2.906405772597700e-10_p 4497else if(N==11)then 4498x(1)=-6.783784193523358_p 4499w(1)=5.515005422614565e-1_p 4500x(2)=-5.885063611909764_p 4501w(2)=1.226477027639625_p 4502x(3)=-4.369744240344058_p 4503w(3)=1.747884807841899_p 4504x(4)=-2.424175070992249_p 4505w(4)=1.905354425100778_p 4506x(5)=-2.962734049360579e-1_p 4507w(5)=1.250706009823171_p 4508x(6)=2.050042061448758_p 4509w(6)=2.961264038842545e-1_p 4510x(7)=5.007072543821070_p 4511w(7)=2.219900556561920e-2_p 4512x(8)=8.763646652455986_p 4513w(8)=6.557872768284072e-4_p 4514x(9)=13.47291991504403_p 4515w(9)=7.433357586578905e-6_p 4516x(10)=19.48723272054261_p 4517w(10)=2.369352555477278e-8_p 4518x(11)=27.74883541046728_p 4519w(11)=9.031416791542008e-12_p 4520else if(N==12)then 4521x(1)=-6.805705228215542_p 4522w(1)=4.959338727401570e-1_p 4523x(2)=-5.995144337265913_p 4524w(2)=1.109951575723864_p 4525x(3)=-4.615715099476364_p 4526w(3)=1.606442270915588_p 4527x(4)=-2.812175828440878_p 4528w(4)=1.836458671128030_p 4529x(5)=-7.966214469957079e-1_p 4530w(5)=1.422853441040588_p 4531x(6)=1.369782397414446_p 4532w(6)=4.735794495494906e-1_p 4533x(7)=3.998709922260554_p 4534w(7)=5.317129806701618e-2_p 4535x(8)=7.302879893152477_p 4536w(8)=2.468630862487171e-3_p 4537x(9)=11.37107716579373_p 4538w(9)=5.182582280037053e-5_p 4539x(10)=16.37880480210119_p 4540w(10)=4.296037895643607e-7_p 4541x(11)=22.69726975081418_p 4542w(11)=9.996930921017189e-10_p 4543x(12)=31.29433614244931_p 4544w(12)=2.700901203019447e-13_p 4545else if(N==13)then 4546x(1)=-6.823803030182701_p 4547w(1)=4.499909666032574e-1_p 4548x(2)=-6.086601650584498_p 4549w(2)=1.012216542755284_p 4550x(3)=-4.822814838521177_p 4551w(3)=1.482317831164958_p 4552x(4)=-3.146967002674428_p 4553w(4)=1.751664245307058_p 4554x(5)=-1.235748468860900_p 4555w(5)=1.525059785275471_p 4556x(6)=7.990288793192459e-1_p 4557w(6)=6.661853843033101e-1_p 4558x(7)=3.175633001302077_p 4559w(7)=1.061376054628756e-1_p 4560x(8)=6.129438229366868_p 4561w(8)=7.100632950770860e-3_p 4562x(9)=9.730673136364844_p 4563w(9)=2.347719932065643e-4_p 4564x(10)=14.07564064232909_p 4565w(10)=3.677650847957657e-6_p 4566x(11)=19.35673222952262_p 4567w(11)=2.294680388513678e-8_p 4568x(12)=25.95756871708445_p 4569w(12)=3.992363750137890e-11_p 4570x(13)=34.86883031440527_p 4571w(13)=7.820753777804737e-15_p 4572else if(N==14)then 4573x(1)=-6.838974453543950_p 4574w(1)=4.114312622545860e-1_p 4575x(2)=-6.163659899045252_p 4576w(2)=9.292512868511958e-1_p 4577x(3)=-4.999154754020225_p 4578w(3)=1.373401637089483_p 4579x(4)=-3.437599718023760_p 4580w(4)=1.662357586594054_p 4581x(5)=-1.624981300829633_p 4582w(5)=1.571828475490998_p 4583x(6)=3.073860589611547e-1_p 4584w(6)=8.508812848661587e-1_p 4585x(7)=2.488923108730682_p 4586w(7)=1.841260244404869e-1_p 4587x(8)=5.161421903857861_p 4588w(8)=1.681941703618571e-2_p 4589x(9)=8.401197078704243_p 4590w(9)=7.944002786416838e-4_p 4591x(10)=12.26359604264705_p 4592w(10)=1.985153139057175e-5_p 4593x(11)=16.86116423428894_p 4594w(11)=2.388721603466720e-7_p 4595x(12)=22.39580473009955_p 4596w(12)=1.146911214280249e-9_p 4597x(13)=29.26088836711309_p 4598w(13)=1.521433021131212e-12_p 4599x(14)=38.46818784265015_p 4600w(14)=2.202956713651811e-16_p 4601else if(N==15)then 4602x(1)=-6.851860099941162_p 4603w(1)=3.786492951240081e-1_p 4604x(2)=-6.229379499885659_p 4605w(2)=8.580674520734982e-1_p 4606x(3)=-5.150827338589209_p 4607w(3)=1.277568472186279_p 4608x(4)=-3.691460830224796_p 4609w(4)=1.574368557973873_p 4610x(5)=-1.972022113097914_p 4611w(5)=1.579313112629698_p 4612x(6)=-1.250628861134395e-1_p 4613w(6)=1.010656330307271_p 4614x(7)=1.905138206016190_p 4615w(7)=2.856494414987216e-1_p 4616x(8)=4.347026153644869_p 4617w(8)=3.438128129795415e-2_p 4618x(9)=7.295376051646293_p 4619w(9)=2.177700808989979e-3_p 4620x(10)=10.78462139822742_p 4621w(10)=7.828317469947773e-5_p 4622x(11)=14.88419826621857_p 4623w(11)=1.524928711490845e-6_p 4624x(12)=19.71579496733577_p 4625w(12)=1.439586576050429e-8_p 4626x(13)=25.48762863223686_p 4627w(13)=5.414831381678957e-11_p 4628x(14)=32.60153703674864_p 4629w(14)=5.567917005000606e-14_p 4630x(15)=42.08913953391856_p 4631w(15)=6.058741071979626e-18_p 4632else if(N==16)then 4633x(1)=-6.862928873602605_p 4634w(1)=3.504668715265291e-1_p 4635x(2)=-6.286026363124892_p 4636w(2)=7.964083007238340e-1_p 4637x(3)=-5.282471782021204_p 4638w(3)=1.192905569640211_p 4639x(4)=-3.914561020621210_p 4640w(4)=1.490497775677145_p 4641x(5)=-2.282715845390953_p 4642w(5)=1.561031388206735_p 4643x(6)=-5.113792235690318e-1_p 4644w(6)=1.136934289714598_p 4645x(7)=1.400352479744204_p 4646w(7)=4.047635015002862e-1_p 4647x(8)=3.651240299653571_p 4648w(8)=6.255851699470522e-2_p 4649x(9)=6.357793768022679_p 4650w(9)=5.092314739249698e-3_p 4651x(10)=9.546578765752253_p 4652w(10)=2.458639364032831e-4_p 4653x(11)=13.26096083102272_p 4654w(11)=6.964992911177251e-6_p 4655x(12)=17.57991838399455_p 4656w(12)=1.079854089359304e-7_p 4657x(13)=22.63039296885453_p 4658w(13)=8.133237843911377e-10_p 4659x(14)=28.62555202806078_p 4660w(14)=2.432779208575223e-12_p 4661x(15)=35.97494435178854_p 4662w(15)=1.966763659638753e-15_p 4663x(16)=45.72904873613477_p 4664w(16)=1.631795987367392e-19_p 4665else if(N==17)then 4666x(1)=-6.872531358576040_p 4667w(1)=3.260012174431878e-1_p 4668x(2)=-6.335310607631081_p 4669w(2)=7.425437261614006e-1_p 4670x(3)=-5.397668357646336_p 4671w(3)=1.117767799741111_p 4672x(4)=-4.111787883534224_p 4673w(4)=1.411932507090397_p 4674x(5)=-2.561828134464525_p 4675w(5)=1.526897021199453_p 4676x(6)=-8.602324609203910e-1_p 4677w(6)=1.228410871493749_p 4678x(7)=9.570247246431930e-1_p 4679w(7)=5.326418660389357e-1_p 4680x(8)=3.049163875831097_p 4681w(8)=1.035250508639119e-1_p 4682x(9)=5.550987417668241_p 4683w(9)=1.051594287424849e-2_p 4684x(10)=8.490656358964847_p 4685w(10)=6.499632985341456e-4_p 4686x(11)=11.89492305570144_p 4687w(11)=2.492473316387887e-5_p 4688x(12)=15.81704986059548_p 4689w(12)=5.683453039756231e-7_p 4690x(13)=20.34111189512522_p 4691w(13)=7.126845650141571e-9_p 4692x(14)=25.59768182960326_p 4693w(14)=4.342753845022763e-11_p 4694x(15)=31.80418866565116_p 4695w(15)=1.046328507768977e-13_p 4696x(16)=39.37737544580634_p 4697w(16)=6.733216258430752e-17_p 4698x(17)=49.38575488983272_p 4699w(17)=4.314287129111325e-21_p 4700else 4701call GD(-7) 4702end if 4703end subroutine GF_m7 4704 4705! [-6kT;infkT] 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.348502560241204_p 4711w(1)=3.813108199858906_p 4712x(2)=9.542185547940388e-2_p 4713w(2)=2.189367485278825_p 4714else if(N==3)then 4715x(1)=-4.976655278461227_p 4716w(1)=2.488346388775657_p 4717x(2)=-1.607600757629958_p 4718w(2)=3.105729842484512_p 4719x(3)=2.458422916064378_p 4720w(3)=4.083994538775620e-1_p 4721else if(N==4)then 4722x(1)=-5.281875075783540_p 4723w(1)=1.781349146222501_p 4724x(2)=-2.670786162954550_p 4725w(2)=2.950357904971129_p 4726x(3)=5.934080418735456e-1_p 4727w(3)=1.235342181183617_p 4728x(4)=5.170697719252064_p 4729w(4)=3.542645276048271e-2_p 4730else if(N==5)then 4731x(1)=-5.455882564574141_p 4732w(1)=1.363155751768411_p 4733x(2)=-3.373390349960227_p 4734w(2)=2.554815261683073_p 4735x(3)=-5.306083503952688e-1_p 4736w(3)=1.850995539698647_p 4737x(4)=2.803652478695313_p 4738w(4)=2.315232055827914e-1_p 4739x(5)=8.183922342183012_p 4740w(5)=1.985926404808333e-3_p 4741else if(N==6)then 4742x(1)=-5.566221424189560_p 4743w(1)=1.092942410233749_p 4744x(2)=-3.856300960121768_p 4745w(2)=2.184652998319181_p 4746x(3)=-1.352274648795763_p 4747w(3)=2.107764020807349_p 4748x(4)=1.450608746202754_p 4749w(4)=5.937144038311041e-1_p 4750x(5)=5.312657582073431_p 4751w(5)=2.331202410221634e-2_p 4752x(6)=11.3705817548425_p 4753w(6)=8.982784413158834e-5_p 4754else if(N==7)then 4755x(1)=-5.641577534522524_p 4756w(1)=9.063421853428689e-1_p 4757x(2)=-4.202223472943160_p 4758w(2)=1.882081648772496_p 4759x(3)=-1.989065395154232_p 4760w(3)=2.124818713667728_p 4761x(4)=5.188915778594440e-1_p 4762w(4)=9.912365181674928e-1_p 4763x(5)=3.615183216508282_p 4764w(5)=9.631040820457371e-2_p 4765x(6)=8.057047198230974_p 4766w(6)=1.682645640187241e-3_p 4767x(7)=14.66866913555335_p 4768w(7)=3.565342383689880e-6_p 4769else if(N==8)then 4770x(1)=-5.695910609412882_p 4771w(1)=7.708326499523819e-1_p 4772x(2)=-4.459396062703736_p 4773w(2)=1.640670224406497_p 4774x(3)=-2.493257991510210_p 4775w(3)=2.029999869495779_p 4776x(4)=-1.940064073850039e-1_p 4777w(4)=1.310793413189056_p 4778x(5)=2.452270278595861_p 4779w(5)=2.400682739658139e-1_p 4780x(6)=6.032933417584495_p 4781w(6)=1.001031789829324e-2_p 4782x(7)=10.95616931174244_p 4783w(7)=1.008071079469607e-4_p 4784x(8)=18.04632928089712_p 4785w(8)=1.291219624887180e-7_p 4786else if(N==9)then 4787x(1)=-5.736732988266551_p 4788w(1)=6.685155508133097e-1_p 4789x(2)=-4.656705848807945_p 4790w(2)=1.447302194855121_p 4791x(3)=-2.898280608873420_p 4792w(3)=1.896005260635911_p 4793x(4)=-7.729818714325473e-1_p 4794w(4)=1.513630457551130_p 4795x(5)=1.589120205927763_p 4796w(5)=4.419186843366105e-1_p 4797x(6)=4.612686480194077_p 4798w(6)=3.428044315416959e-2_p 4799x(7)=8.635075343013344_p 4800w(7)=8.177715454883339e-4_p 4801x(8)=13.9665490066177_p 4802w(8)=5.317881169846807e-6_p 4803x(9)=21.48443340874128_p 4804w(9)=4.364820477976463e-9_p 4805else if(N==10)then 4806x(1)=-5.768409760045492_p 4807w(1)=5.888371955573343e-1_p 4808x(2)=-4.812127097743256_p 4809w(2)=1.290569640066507_p 4810x(3)=-3.228130472857214_p 4811w(3)=1.755930606348675_p 4812x(4)=-1.258041637671119_p 4813w(4)=1.612498276307700_p 4814x(5)=9.106139586401357e-1_p 4815w(5)=6.667708271265470e-1_p 4816x(6)=3.545750387994133_p 4817w(6)=8.418986091150533e-2_p 4818x(7)=6.975256570670164_p 4819w(7)=3.621763118635388e-3_p 4820x(8)=11.36972811653598_p 4821w(8)=5.726081401000751e-5_p 4822x(9)=17.0628762024961_p 4823w(9)=2.547470458050963e-7_p 4824x(10)=24.97034215926358_p 4825w(10)=1.397711939505373e-10_p 4826else if(N==11)then 4827x(1)=-5.793634745134553_p 4828w(1)=5.252174523369195e-1_p 4829x(2)=-4.937284085238042_p 4830w(2)=1.161788962518515_p 4831x(3)=-3.500373400448377_p 4832w(3)=1.623074176448075_p 4833x(4)=-1.671078257357869_p 4834w(4)=1.637496303582879_p 4835x(5)=3.533465960428439e-1_p 4836w(5)=8.782897193082345e-1_p 4837x(6)=2.708517584653859_p 4838w(6)=1.651315867758936e-1_p 4839x(7)=5.707944833305461_p 4840w(7)=1.115438393364926e-2_p 4841x(8)=9.486308958960398_p 4842w(8)=3.195152705642022e-4_p 4843x(9)=14.206962796206_p 4844w(9)=3.573658109754221e-6_p 4845x(10)=20.22843625637127_p 4846w(10)=1.130060708789487e-8_p 4847x(11)=28.49518182571371_p 4848w(11)=4.283689136796933e-12_p 4849else if(N==12)then 4850x(1)=-5.814152909845197_p 4851w(1)=4.733618106353753e-1_p 4852x(2)=-5.039964642992890_p 4853w(2)=1.054556293594009_p 4854x(3)=-3.727928021564856_p 4855w(3)=1.501932551277255_p 4856x(4)=-2.026242622391789_p 4857w(4)=1.616611737484296_p 4858x(5)=-1.193576289138952e-1_p 4859w(5)=1.052650776816281_p 4860x(6)=2.029758029315665_p 4861w(6)=2.752118432382543e-1_p 4862x(7)=4.700514515255163_p 4863w(7)=2.692728190464693e-2_p 4864x(8)=8.030664747474352_p 4865w(8)=1.198426830745170e-3_p 4866x(9)=12.1119318565597_p 4867w(9)=2.475946158020573e-5_p 4868x(10)=17.12750916502244_p 4869w(10)=2.034245550255282e-7_p 4870x(11)=23.45132908845637_p 4871w(11)=4.706061245778672e-10_p 4872x(12)=32.05244676285847_p 4873w(12)=1.265954048937915e-13_p 4874else if(N==13)then 4875x(1)=-5.831140454504716_p 4876w(1)=4.303590108746587e-1_p 4877x(2)=-5.125552132058016_p 4878w(2)=9.641578884114441e-1_p 4879x(3)=-3.920361981609359_p 4880w(3)=1.393292609442032_p 4881x(4)=-2.333884163423006_p 4882w(4)=1.569964175207095_p 4883x(5)=-5.293975572034304e-1_p 4884w(5)=1.180894173753558_p 4885x(6)=1.464482315403647_p 4886w(6)=4.057128144477561e-1_p 4887x(7)=3.876903075076063_p 4888w(7)=5.453895592484628e-2_p 4889x(8)=6.860824429775076_p 4890w(8)=3.442716992941684e-3_p 4891x(9)=10.47719185593653_p 4892w(9)=1.115986737335389e-4_p 4893x(10)=14.83085736385807_p 4894w(10)=1.730661164713803e-6_p 4895x(11)=20.11769521288808_p 4896w(11)=1.072991113679017e-8_p 4897x(12)=26.72267801222931_p 4898w(12)=1.858473900164034e-11_p 4899x(13)=35.6372067678117_p 4900w(13)=3.628007783505876e-15_p 4901else if(N==14)then 4902x(1)=-5.845416979653525_p 4903w(1)=3.941713970805997e-1_p 4904x(2)=-5.197871383156821_p 4905w(2)=8.870938895369851e-1_p 4906x(3)=-4.084833754020618_p 4907w(3)=1.296470581123930_p 4908x(4)=-2.602078211736133_p 4909w(4)=1.510391760352184_p 4910x(5)=-8.903975315615557e-1_p 4911w(5)=1.264842035645411_p 4912x(6)=9.827587717527917e-1_p 4913w(6)=5.442677769312317e-1_p 4914x(7)=3.189101544328227_p 4915w(7)=9.668544183113613e-2_p 4916x(8)=5.895003927202153_p 4917w(8)=8.167209470803903e-3_p 4918x(9)=9.152339148647144_p 4919w(9)=3.761888522031041e-4_p 4920x(10)=13.02444292249742_p 4921w(10)=9.292743403478369e-6_p 4922x(11)=17.62823710650921_p 4923w(11)=1.110385516274894e-7_p 4924x(12)=23.16725891995263_p 4925w(12)=5.305885861683995e-10_p 4926x(13)=30.03564029154991_p 4927w(13)=7.013676352100825e-13_p 4928x(14)=39.2456255685735_p 4929w(14)=1.012668469185796e-16_p 4930else if(N==15)then 4931x(1)=-5.857569900797222_p 4932w(1)=3.633333764645710e-1_p 4933x(2)=-5.259706108946122_p 4934w(2)=8.207332055116433e-1_p 4935x(3)=-4.226763735655675_p 4936w(3)=1.210280231742132_p 4937x(4)=-2.837301141817394_p 4938w(4)=1.445576525750115_p 4939x(5)=-1.211352068568793_p 4940w(5)=1.311746905161294_p 4941x(6)=5.641376136059315e-1_p 4942w(6)=6.786462372002746e-1_p 4943x(7)=2.604689210653065_p 4944w(7)=1.543172109696473e-1_p 4945x(8)=5.081561027129704_p 4946w(8)=1.677613234458038e-2_p 4947x(9)=8.050179192747239_p 4948w(9)=1.028664912652554e-3_p 4949x(10)=11.55031406787403_p 4950w(10)=3.648323665357100e-5_p 4951x(11)=15.65666919385195_p 4952w(11)=7.051963286970581e-7_p 4953x(12)=20.49294155073038_p 4954w(12)=6.622993866432613e-9_p 4955x(13)=26.26821852896522_p 4956w(13)=2.481900152890861e-11_p 4957x(14)=33.384806797626_p 4958w(14)=2.544798577276066e-14_p 4959x(15)=42.87465277547525_p 4960w(15)=2.762607610054699e-18_p 4961else if(N==16)then 4962x(1)=-5.868030510088636_p 4963w(1)=3.367657757817372e-1_p 4964x(2)=-5.313125640492607_p 4965w(2)=7.630709861212595e-1_p 4966x(3)=-4.350308121101810_p 4967w(3)=1.133443434367536_p 4968x(4)=-3.044805196146363_p 4969w(4)=1.379924463931903_p 4970x(5)=-1.498633545021019_p 4971w(5)=1.330287907537945_p 4972x(6)=1.944579699083359e-1_p 4973w(6)=7.994260894864145e-1_p 4974x(7)=2.100673306022401_p 4975w(7)=2.262434447565171e-1_p 4976x(8)=4.385727701916625_p 4977w(8)=3.079338997502847e-2_p 4978x(9)=7.115355170608958_p 4979w(9)=2.402770489595289e-3_p 4980x(10)=10.31641108213076_p 4981w(10)=1.141664787430222e-4_p 4982x(11)=14.0381990789152_p 4983w(11)=3.206404484045102e-6_p 4984x(12)=18.36216712284909_p 4985w(12)=4.943460228324245e-8_p 4986x(13)=23.41627528756345_p 4987w(13)=3.708582949890098e-10_p 4988x(14)=29.41420557687702_p 4989w(14)=1.106004070237965e-12_p 4990x(15)=36.76581458408585_p 4991w(15)=8.920466366975612e-16_p 4992x(16)=46.52181855238116_p 4993w(16)=7.386484823470691e-20_p 4994else if(N==17)then 4995x(1)=-5.877122166677395_p 4996w(1)=3.136575612894595e-1_p 4997x(2)=-5.359697296929018_p 4998w(2)=7.125589762974057e-1_p 4999x(3)=-4.458693674349978_p 5000w(3)=1.064755433648541_p 5001x(4)=-3.228873811990802_p 5002w(4)=1.315861557872872_p 5003x(5)=-1.757068113067542_p 5004w(5)=1.328409569710653_p 5005x(6)=-1.361882160387193e-1_p 5006w(6)=9.010153917398427e-1_p 5007x(7)=1.660177807039901_p 5008w(7)=3.093091992137851e-1_p 5009x(8)=3.782938210997594_p 5010w(8)=5.163090369533667e-2_p 5011x(9)=6.310459096003555_p 5012w(9)=4.964454636604126e-3_p 5013x(10)=9.263981425650011_p 5014w(10)=3.009453574678251e-4_p 5015x(11)=12.67636721897787_p 5016w(11)=1.142938491996260e-5_p 5017x(12)=16.60387577494992_p 5018w(12)=2.590366564741577e-7_p 5019x(13)=21.13178840718116_p 5020w(13)=3.234491360705495e-9_p 5021x(14)=26.39125692593752_p 5022w(14)=1.964781486346964e-11_p 5023x(15)=32.60003756802946_p 5024w(15)=4.722429965355586e-14_p 5025x(16)=40.17508538724624_p 5026w(16)=3.032976001349117e-17_p 5027x(17)=50.18509207747311_p 5028w(17)=1.940074184487975e-21_p 5029else 5030call GD(-6) 5031end if 5032end subroutine GF_m6 5033 5034! [-5kT;infkT] 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.535012775782224_p 5040w(1)=3.320511014672565_p 5041x(2)=4.997493694082198e-1_p 5042w(2)=1.686204333816553_p 5043else if(N==3)then 5044x(1)=-4.074467843133754_p 5045w(1)=2.223447088051925_p 5046x(2)=-1.037808919795278_p 5047w(2)=2.518893662791505_p 5048x(3)=2.943265627228397_p 5049w(3)=2.643745976456878e-1_p 5050else if(N==4)then 5051x(1)=-4.341958070523551_p 5052w(1)=1.617041927364643_p 5053x(2)=-1.966113417180336_p 5054w(2)=2.512463468101026_p 5055x(3)=1.108298096284762_p 5056w(3)=8.571026168052063e-1_p 5057x(4)=5.750233419733130_p 5058w(4)=2.010733621824280e-2_p 5059else if(N==5)then 5060x(1)=-4.496690631525474_p 5061w(1)=1.250887632864157_p 5062x(2)=-2.582573106598828_p 5063w(2)=2.247120285415605_p 5064x(3)=4.812899615534253e-2_p 5065w(3)=1.372564060357862_p 5066x(4)=3.386481683092881_p 5067w(4)=1.350890277822859e-1_p 5068x(5)=8.821768038702933_p 5069w(5)=1.054342069208626e-3_p 5070else if(N==6)then 5071x(1)=-4.595884530478747_p 5072w(1)=1.010955618478988_p 5073x(2)=-3.011208318839239_p 5074w(2)=1.961385097702911_p 5075x(3)=-7.008054885271557e-1_p 5076w(3)=1.657147011903349_p 5077x(4)=2.039877200225108_p 5078w(4)=3.648393612525572e-1_p 5079x(5)=5.960207686686298_p 5080w(5)=1.234246337332063e-2_p 5081x(6)=12.04664647971878_p 5082w(6)=4.579577799244883e-5_p 5083else if(N==7)then 5084x(1)=-4.664210116772231_p 5085w(1)=8.435356232250003e-1_p 5086x(2)=-3.321526296749007_p 5087w(2)=1.713143129484348_p 5088x(3)=-1.273053551246420_p 5089w(3)=1.750202946936065_p 5090x(4)=1.127234378144698_p 5091w(4)=6.473602348769782e-1_p 5092x(5)=4.266138410488425_p 5093w(5)=5.162208740935208e-2_p 5094x(6)=8.744853651491418_p 5095w(6)=8.495604903079898e-4_p 5096x(7)=15.37259025543052_p 5097w(7)=1.766067066075928e-6_p 5098else if(N==8)then 5099x(1)=-4.713814736647345_p 5100w(1)=7.209652862298241e-1_p 5101x(2)=-3.554257333094895_p 5102w(2)=1.508133065180222_p 5103x(3)=-1.725563100862022_p 5104w(3)=1.730794270382585_p 5105x(4)=4.450990322727980e-1_p 5106w(4)=9.094032070863199e-1_p 5107x(5)=3.104159135070200_p 5108w(5)=1.323361392011064e-1_p 5109x(6)=6.728448557998139_p 5110w(6)=5.033897540708062e-3_p 5111x(7)=11.67133284613836_p 5112w(7)=4.942030602301849e-5_p 5113x(8)=18.77185412051121_p 5114w(8)=6.256232990923725e-8_p 5115else if(N==9)then 5116x(1)=-4.751297544569715_p 5117w(1)=6.278097549906080e-1_p 5118x(2)=-3.734099724984756_p 5119w(2)=1.340237425087397_p 5120x(3)=-2.090576711955368_p 5121w(3)=1.657412783954600_p 5122x(4)=-9.715698879820041e-2_p 5123w(4)=1.109858813729422_p 5124x(5)=2.243895418909657_p 5125w(5)=2.537063524749994e-1_p 5126x(6)=5.312331505453814_p 5127w(6)=1.728977696774972e-2_p 5128x(7)=9.359023779821149_p 5129w(7)=3.978874518350784e-4_p 5130x(8)=14.70226967093871_p 5131w(8)=2.551754780018669e-6_p 5132x(9)=22.22738646013163_p 5133w(9)=2.077726116245712e-9_p 5134else if(N==10)then 5135x(1)=-4.780523172001149_p 5136w(1)=5.548705927236507e-1_p 5137x(2)=-3.876606791897109_p 5138w(2)=1.202020557472167_p 5139x(3)=-2.389549253131537_p 5140w(3)=1.563158961613514_p 5141x(4)=-5.449457897190041e-1_p 5142w(4)=1.240271374364788_p 5143x(5)=1.573136922883120_p 5144w(5)=4.016751439497273e-1_p 5145x(6)=4.246911543292023_p 5146w(6)=4.293727246582172e-2_p 5147x(7)=7.705700691739606_p 5148w(7)=1.754066269673085e-3_p 5149x(8)=12.11395429224607_p 5150w(8)=2.725936628304467e-5_p 5151x(9)=17.81496359652102_p 5152w(9)=1.201979268124036e-7_p 5153x(10)=25.72775476899081_p 5154w(10)=6.556676160218234e-11_p 5155else if(N==11)then 5156x(1)=-4.803892442842028_p 5157w(1)=4.963633039236983e-1_p 5158x(2)=-3.991940704217801_p 5159w(2)=1.087135208588879_p 5160x(3)=-2.637736040760180_p 5161w(3)=1.464610102690596_p 5162x(4)=-9.234390578208435e-1_p 5163w(4)=1.310412788847701_p 5164x(5)=1.029157175280041_p 5165w(5)=5.567457425289710e-1_p 5166x(6)=3.409949766825174_p 5167w(6)=8.590016708649816e-2_p 5168x(7)=6.442826231214915_p 5169w(7)=5.395191967610373e-3_p 5170x(8)=10.23748765467458_p 5171w(8)=1.511641026707637e-4_p 5172x(9)=14.96693090468261_p 5173w(9)=1.673491508770218e-6_p 5174x(10)=20.99402902358407_p 5175w(10)=5.258999271024585e-9_p 5176x(11)=29.26484884964963_p 5177w(11)=1.984776738950862e-12_p 5178else if(N==12)then 5179x(1)=-4.822969412158161_p 5180w(1)=4.484856877513126e-1_p 5181x(2)=-4.086968567792361_p 5182w(2)=9.906121337028658e-1_p 5183x(3)=-2.846288422195755_p 5184w(3)=1.369409582600441_p 5185x(4)=-1.248146249394707_p 5186w(4)=1.335727445706762_p 5187x(5)=5.742770025535534e-1_p 5188w(5)=7.016403191947588e-1_p 5189x(6)=2.731727224649865_p 5190w(6)=1.472064409410078e-1_p 5191x(7)=5.438048674281468_p 5192w(7)=1.305772773856279e-2_p 5193x(8)=8.787414153781175_p 5194w(8)=5.643954112969694e-4_p 5195x(9)=12.87862370312144_p 5196w(9)=1.152121737093803e-5_p 5197x(10)=17.90031216464668_p 5198w(10)=9.400820069806018e-8_p 5199x(11)=24.22834734287337_p 5200w(11)=2.164809970627889e-10_p 5201x(12)=32.83267509014083_p 5202w(12)=5.803502836028110e-14_p 5203else if(N==13)then 5204x(1)=-4.838813581880773_p 5205w(1)=4.086446019662087e-1_p 5206x(2)=-4.166471929490602_p 5207w(2)=9.086550185044729e-1_p 5208x(3)=-3.023490478903042_p 5209w(3)=1.280712042842002_p 5210x(4)=-1.529609436366940_p 5211w(4)=1.330644462642721_p 5212x(5)=1.848659411447271e-1_p 5213w(5)=8.251520422333597e-1_p 5214x(6)=2.168553708474380_p 5215w(6)=2.246039430515867e-1_p 5216x(7)=4.615672633515015_p 5217w(7)=2.663408421679521e-2_p 5218x(8)=7.621899191638792_p 5219w(8)=1.616695437964978e-3_p 5220x(9)=11.2495929607278_p 5221w(9)=5.165773276780698e-5_p 5222x(10)=15.60996201571671_p 5223w(10)=7.949486286889605e-7_p 5224x(11)=20.90129317541786_p 5225w(11)=4.904145303503997e-9_p 5226x(12)=27.509544223108_p 5227w(12)=8.464280968846664e-12_p 5228x(13)=36.4266620157954_p 5229w(13)=1.647814901465260e-15_p 5230else if(N==14)then 5231x(1)=-4.852166471173950_p 5232w(1)=3.750155522916409e-1_p 5233x(2)=-4.233869219135433_p 5234w(2)=8.383722117176265e-1_p 5235x(3)=-3.175578839826579_p 5236w(3)=1.199500189675244_p 5237x(4)=-1.775551632198979_p 5238w(4)=1.306332233843269_p 5239x(5)=-1.544143302851829e-1_p 5240w(5)=9.224378319843725e-1_p 5241x(6)=1.691318188349490_p 5242w(6)=3.132627752733252e-1_p 5243x(7)=3.928166550877194_p 5244w(7)=4.778534348902386e-2_p 5245x(8)=6.659273523667566_p 5246w(8)=3.831517461695694e-3_p 5247x(9)=9.929554019092146_p 5248w(9)=1.733959100070816e-4_p 5249x(10)=13.80905148504845_p 5250w(10)=4.246139762329820e-6_p 5251x(11)=18.41767941593532_p 5252w(11)=5.046260446078077e-8_p 5253x(12)=23.96013655026737_p 5254w(12)=2.402287891810972e-10_p 5255x(13)=30.83111973479408_p 5256w(13)=3.166668204685077e-13_p 5257x(14)=40.04323349076413_p 5258w(14)=4.561929351547118e-17_p 5259else if(N==15)then 5260x(1)=-4.863561606296808_p 5261w(1)=3.462802548574155e-1_p 5262x(2)=-4.291661788948626_p 5263w(2)=7.775486987589767e-1_p 5264x(3)=-3.307308652590444_p 5265w(3)=1.125743946474784_p 5266x(4)=-1.991913987761078_p 5267w(4)=1.270652865383152_p 5268x(5)=-4.538829092533093e-1_p 5269w(5)=9.934472886237905e-1_p 5270x(6)=1.279833372181653_p 5271w(6)=4.070891228729844e-1_p 5272x(7)=3.343667990996705_p 5273w(7)=7.758429797869423e-2_p 5274x(8)=5.848011554664972_p 5275w(8)=7.879361869865766e-3_p 5276x(9)=8.831403534436742_p 5277w(9)=4.725944526064225e-4_p 5278x(10)=12.33972848522235_p 5279w(10)=1.659534596290056e-5_p 5280x(11)=16.45130481795013_p 5281w(11)=3.188769510212568e-7_p 5282x(12)=21.29122323476453_p 5283w(12)=2.982778393845225e-9_p 5284x(13)=27.06920508933438_p 5285w(13)=1.114504681017497e-11_p 5286x(14)=34.18790914523273_p 5287w(14)=1.140180562733431e-14_p 5288x(15)=43.67953313369314_p 5289w(15)=1.235458892183165e-18_p 5290else if(N==16)then 5291x(1)=-4.873392082831924_p 5292w(1)=3.214640722652746e-1_p 5293x(2)=-4.341717844737500_p 5294w(2)=7.244721625656340e-1_p 5295x(3)=-3.422350580784834_p 5296w(3)=1.058971783924326_p 5297x(4)=-2.183403467456416_p 5298w(4)=1.228849174724195_p 5299x(5)=-7.207674158154861e-1_p 5300w(5)=1.040944419597307_p 5301x(6)=9.197309787606596e-1_p 5302w(6)=5.000657209385858e-1_p 5303x(7)=2.839758736276077_p 5304w(7)=1.162779630682220e-1_p 5305x(8)=5.153483593036241_p 5306w(8)=1.451545246566081e-2_p 5307x(9)=7.899854594147108_p 5308w(9)=1.101400584725639e-3_p 5309x(10)=11.11001440656802_p 5310w(10)=5.173257423934329e-5_p 5311x(11)=14.83745710248147_p 5312w(11)=1.443456451471200e-6_p 5313x(12)=19.16530966682718_p 5314w(12)=2.215828518926732e-8_p 5315x(13)=24.2222595570374_p 5316w(13)=1.657176145076859e-10_p 5317x(14)=30.22236972777358_p 5318w(14)=4.930637991976751e-13_p 5319x(15)=37.57572975298933_p 5320w(15)=3.969444251950597e-16_p 5321x(16)=47.33323921959551_p 5322w(16)=3.281677235623607e-20_p 5323else if(N==17)then 5324x(1)=-4.881953553252527_p 5325w(1)=2.998318814240050e-1_p 5326x(2)=-4.385458272535963_p 5327w(2)=6.778049942853402e-1_p 5328x(3)=-3.523572145047269_p 5329w(3)=9.985493629387643e-1_p 5330x(4)=-2.353816186821800_p 5331w(4)=1.184298164189399_p 5332x(5)=-9.603513439424077e-1_p 5333w(5)=1.068887955792316_p 5334x(6)=6.005984859393217e-1_p 5335w(6)=5.872160818244664e-1_p 5336x(7)=2.400076624508204_p 5337w(7)=1.632182697803277e-1_p 5338x(8)=4.551295694189363_p 5339w(8)=2.449449549502730e-2_p 5340x(9)=7.097556471062322_p 5341w(9)=2.272970008148895e-3_p 5342x(10)=10.06122056285275_p 5343w(10)=1.359305263610022e-4_p 5344x(11)=13.47974494245141_p 5345w(11)=5.125161648644752e-6_p 5346x(12)=17.41139980807499_p 5347w(12)=1.156156716307758e-7_p 5348x(13)=21.94231013033913_p 5349w(13)=1.438902506669514e-9_p 5350x(14)=27.20405029650005_p 5351w(14)=8.719171682882796e-12_p 5352x(15)=33.41462138737806_p 5353w(15)=2.091698144776814e-14_p 5354x(16)=40.9911398952324_p 5355w(16)=1.341313194123526e-17_p 5356x(17)=51.00243626036887_p 5357w(17)=8.568316791786754e-22_p 5358else 5359call GD(-5) 5360end if 5361end subroutine GF_m5 5362 5363! [-4kT;infkT] 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.719496190229457_p 5369w(1)=2.798302111467206_p 5370x(2)=9.542779203722508e-1_p 5371w(2)=1.219847816450604_p 5372else if(N==3)then 5373x(1)=-3.173001310886673_p 5374w(1)=1.934954911735428_p 5375x(2)=-4.480232897721722e-1_p 5376w(2)=1.923940244706907_p 5377x(3)=3.489292096308511_p 5378w(3)=1.592547714754745e-1_p 5379else if(N==4)then 5380x(1)=-3.403203716818599_p 5381w(1)=1.435140040703270_p 5382x(2)=-1.258690835561112_p 5383w(2)=2.024550424353285_p 5384x(3)=1.675328392593702_p 5385w(3)=5.476514908739840e-1_p 5386x(4)=6.380734546885206_p 5387w(4)=1.080797198727147e-2_p 5388else if(N==5)then 5389x(1)=-3.538652280896523_p 5390w(1)=1.124996109689236_p 5391x(2)=-1.794879981956074_p 5392w(2)=1.884612722489621_p 5393x(3)=6.595794635421018e-1_p 5394w(3)=9.343628094167140e-1_p 5395x(4)=4.024142799184552_p 5396w(4)=7.364250385850382e-2_p 5397x(5)=9.502238752860208_p 5398w(5)=5.357824637350607e-4_p 5399else if(N==6)then 5400x(1)=-3.626594928827350_p 5401w(1)=9.180157518247676e-1_p 5402x(2)=-2.170764128671303_p 5403w(2)=1.690798048143879_p 5404x(3)=-3.442507328367793e-2_p 5405w(3)=1.196895395681665_p 5406x(4)=2.682865451992741_p 5407w(4)=2.061896498403964e-1_p 5408x(5)=6.652249530046832_p 5409w(5)=6.228604579439121e-3_p 5410x(6)=12.76010979182192_p 5411w(6)=2.247784766239062e-5_p 5412else if(N==7)then 5413x(1)=-3.687771966085986_p 5414w(1)=7.716548615709768e-1_p 5415x(2)=-2.445597229507797_p 5416w(2)=1.505362578535941_p 5417x(3)=-5.536860324320598e-1_p 5418w(3)=1.330467714148563_p 5419x(4)=1.781359346285596_p 5420w(4)=3.841008316201496e-1_p 5421x(5)=4.964277652952540_p 5422w(5)=2.615049574063351e-2_p 5423x(6)=9.470326698165286_p 5424w(6)=4.126007923598767e-4_p 5425x(7)=16.11024418351231_p 5426w(7)=8.455091858659624e-7_p 5427else if(N==8)then 5428x(1)=-3.732540276057644_p 5429w(1)=6.634018442822618e-1_p 5430x(2)=-2.653581974660928_p 5431w(2)=1.343740791550228_p 5432x(3)=-9.607020301271685e-1_p 5433w(3)=1.371507617209881_p 5434x(4)=1.118033017140109_p 5435w(4)=5.689632895687637e-1_p 5436x(5)=3.805197099172307_p 5437w(5)=6.808338894796565e-2_p 5438x(6)=7.462547802641441_p 5439w(6)=2.429549470920933e-3_p 5440x(7)=12.41994824579345_p 5441w(7)=2.341750553036774e-5_p 5442x(8)=19.52833803510411_p 5443w(8)=2.938225775273478e-8_p 5444else if(N==9)then 5445x(1)=-3.766590224822862_p 5446w(1)=5.804541477849965e-1_p 5447x(2)=-2.815550344375922_p 5448w(2)=1.206707811827298_p 5449x(3)=-1.288600559391299_p 5450w(3)=1.356834071368443_p 5451x(4)=6.002298748286895e-1_p 5452w(4)=7.316476672048814e-1_p 5453x(5)=2.947335471214548_p 5454w(5)=1.339849590605708e-1_p 5455x(6)=6.052120577815452_p 5456w(6)=8.333039841110099e-3_p 5457x(7)=10.116435423086_p 5458w(7)=1.870426121933438e-4_p 5459x(8)=15.46848300837569_p 5460w(8)=1.187257473769629e-6_p 5461x(9)=22.99910211473202_p 5462w(9)=9.608425333109669e-10_p 5463else if(N==10)then 5464x(1)=-3.793285361611701_p 5465w(1)=5.150712489010336e-1_p 5466x(2)=-2.944741127563285_p 5467w(2)=1.091133156089099_p 5468x(3)=-1.557828766737705_p 5469w(3)=1.312425356709811_p 5470x(4)=1.794456935717927e-1_p 5471w(4)=8.583551200701367e-1_p 5472x(5)=2.280668119189426_p 5473w(5)=2.195538166170430e-1_p 5474x(6)=4.990086506057731_p 5475w(6)=2.077867603917830e-2_p 5476x(7)=8.469986244812661_p 5477w(7)=8.199136123996438e-4_p 5478x(8)=12.88836204250315_p 5479w(8)=1.258472776121331e-5_p 5480x(9)=18.59528947192073_p 5481w(9)=5.512141099163872e-8_p 5482x(10)=26.51213502978445_p 5483w(10)=2.993568732125546e-11_p 5484else if(N==11)then 5485x(1)=-3.814731621081473_p 5486w(1)=4.623295447642554e-1_p 5487x(2)=-3.049887019675561_p 5488w(2)=9.933345398765657e-1_p 5489x(3)=-1.782212958402775_p 5490w(3)=1.254146131056476_p 5491x(4)=-1.720588449732285e-1_p 5492w(4)=9.471442589528163e-1_p 5493x(5)=1.743641697789831_p 5494w(5)=3.166235767363454e-1_p 5495x(6)=4.154984122319658_p 5496w(6)=4.198819145798703e-2_p 5497x(7)=7.212313131730185_p 5498w(7)=2.513573622347536e-3_p 5499x(8)=11.0187295635431_p 5500w(8)=6.934713642966460e-5_p 5501x(9)=15.75471153052168_p 5502w(9)=7.619305368080670e-7_p 5503x(10)=21.78605872306332_p 5504w(10)=2.383153867655311e-9_p 5505x(11)=30.0599816085353_p 5506w(11)=8.964146137041740e-13_p 5507else if(N==12)then 5508x(1)=-3.832310151859461_p 5509w(1)=4.189623052349011e-1_p 5510x(2)=-3.136941137491463_p 5511w(2)=9.100279886943470e-1_p 5512x(3)=-1.971598991985317_p 5513w(3)=1.190986850455831_p 5514x(4)=-4.713961676759626e-1_p 5515w(4)=1.002517034840670_p 5516x(5)=1.298753218498669_p 5517w(5)=4.161970051118782e-1_p 5518x(6)=3.477948843993753_p 5519w(6)=7.311694561168249e-2_p 5520x(7)=6.211293653329241_p 5521w(7)=6.078916272982507e-3_p 5522x(8)=9.574316579480229_p 5523w(8)=2.576258675999527e-4_p 5524x(9)=13.672823031183_p 5525w(9)=5.213410146579507e-6_p 5526x(10)=18.69908995022282_p 5527w(10)=4.232062814549456e-8_p 5528x(11)=25.03031580024707_p 5529w(11)=9.711673107304868e-11_p 5530x(12)=33.63708886997951_p 5531w(12)=2.596750431115907e-14_p 5532else if(N==13)then 5533x(1)=-3.846961996608427_p 5534w(1)=3.827240471772317e-1_p 5535x(2)=-3.210081037714196_p 5536w(2)=8.385141929946818e-1_p 5537x(3)=-2.133221023377039_p 5538w(3)=1.127787345666233_p 5539x(4)=-7.298775689269931e-1_p 5540w(4)=1.031279438384283_p 5541x(5)=9.218702850817959e-1_p 5542w(5)=5.106651271543704e-1_p 5543x(6)=2.916102580156255_p 5544w(6)=1.139955456895590e-1_p 5545x(7)=5.391472071316332_p 5546w(7)=1.242540698342369e-2_p 5547x(8)=8.413435952905141_p 5548w(8)=7.352119297281033e-4_p 5549x(9)=12.04931999968408_p 5550w(9)=2.325393156277268e-5_p 5551x(10)=16.41466560646656_p 5552w(10)=3.558160744795055e-7_p 5553x(11)=21.70937654778343_p 5554w(11)=2.186896508530504e-9_p 5555x(12)=28.32010460615908_p 5556w(12)=3.764382513480109e-12_p 5557x(13)=37.23919482761491_p 5558w(13)=7.313131796676132e-16_p 5559else if(N==14)then 5560x(1)=-3.859349130181753_p 5561w(1)=3.520242626733072e-1_p 5562x(2)=-3.272313900046066_p 5563w(2)=7.766368489937069e-1_p 5564x(3)=-2.272510150963738_p 5565w(3)=1.067011259363854_p 5566x(4)=-9.554439023445880e-1_p 5567w(4)=1.040204022149905_p 5568x(5)=5.968449242400848e-1_p 5569w(5)=5.948113303766220e-1_p 5570x(6)=2.440987959433897_p 5571w(6)=1.632337863283484e-1_p 5572x(7)=4.705585902922793_p 5573w(7)=2.241059878580326e-2_p 5574x(8)=7.454535162238527_p 5575w(8)=1.738191683268944e-3_p 5576x(9)=10.73403822964859_p 5577w(9)=7.771404622081156e-5_p 5578x(10)=14.61896867486415_p 5579w(10)=1.891027365760797e-6_p 5580x(11)=19.23120839188639_p 5581w(11)=2.238301281746990e-8_p 5582x(12)=24.77625602338563_p 5583w(12)=1.062545044673711e-10_p 5584x(13)=31.64921287633956_p 5585w(13)=1.397678948761916e-13_p 5586x(14)=40.86294826681807_p 5587w(14)=2.010066705214156e-17_p 5588else if(N==15)then 5589x(1)=-3.869950001929692_p 5590w(1)=3.257070350693366e-1_p 5591x(2)=-3.325853495258499_p 5592w(2)=7.226875796854740e-1_p 5593x(3)=-2.393613162420416_p 5594w(3)=1.009798835216924_p 5595x(4)=-1.153948535923723_p 5596w(4)=1.035034677325866_p 5597x(5)=3.125203572668829e-1_p 5598w(5)=6.658591117701642e-1_p 5599x(6)=2.032841809111928_p 5600w(6)=2.185714947005432e-1_p 5601x(7)=4.122071328267885_p 5602w(7)=3.670184521579924e-2_p 5603x(8)=6.646189360220503_p 5604w(8)=3.570799296418388e-3_p 5605x(9)=9.639968591565653_p 5606w(9)=2.110491386045293e-4_p 5607x(10)=13.15424364554522_p 5608w(10)=7.358409656558229e-6_p 5609x(11)=17.26969344933164_p 5610w(11)=1.407713064232906e-7_p 5611x(12)=22.11234706950023_p 5612w(12)=1.312816857482748e-9_p 5613x(13)=27.8923721662219_p 5614w(13)=4.894489189259917e-12_p 5615x(14)=35.0126822416731_p 5616w(14)=4.998706761432617e-15_p 5617x(15)=44.50566087568308_p 5618w(15)=5.408720788113946e-19_p 5619else if(N==16)then 5620x(1)=-3.879118554001132_p 5621w(1)=3.029133952686350e-1_p 5622x(2)=-3.372362112936842_p 5623w(2)=6.753119360297316e-1_p 5624x(3)=-2.499742004059966_p 5625w(3)=9.565679049166960e-1_p 5626x(4)=-1.329869258346857_p 5627w(4)=1.020252025877571_p 5628x(5)=6.095898790083282e-2_p 5629w(5)=7.230045243347641e-1_p 5630x(6)=1.677477832901121_p 5631w(6)=2.773279575676338e-1_p 5632x(7)=3.618823217942657_p 5633w(7)=5.567682409448289e-2_p 5634x(8)=5.953866227079200_p 5635w(8)=6.581411315677459e-3_p 5636x(9)=8.711897541023292_p 5637w(9)=4.904533699562327e-4_p 5638x(10)=11.92859079381349_p 5639w(10)=2.285081527029739e-5_p 5640x(11)=15.66019582826463_p 5641w(11)=6.345452621848705e-7_p 5642x(12)=19.99094678316752_p 5643w(12)=9.709467085167308e-9_p 5644x(13)=25.05003422899292_p 5645w(13)=7.244658812314480e-11_p 5646x(14)=31.05179316447884_p 5647w(14)=2.151720317278307e-13_p 5648x(15)=38.40648297241354_p 5649w(15)=1.729824071889025e-16_p 5650x(16)=48.16513945928085_p 5651w(16)=1.428390826412944e-20_p 5652else if(N==17)then 5653x(1)=-3.887121961559238_p 5654w(1)=2.829925221845728e-1_p 5655x(2)=-3.413110067439127_p 5656w(2)=6.334308096425728e-1_p 5657x(3)=-2.593416527513122_p 5658w(3)=9.073515870469383e-1_p 5659x(4)=-1.486726296768327_p 5660w(4)=9.991827935564415e-1_p 5661x(5)=-1.636489755537441e-1_p 5662w(5)=7.667928007314285e-1_p 5663x(6)=1.364458148498536_p 5664w(6)=3.368221937136067e-1_p 5665x(7)=3.179783480410599_p 5666w(7)=7.937468606312904e-2_p 5667x(8)=5.353274307858534_p 5668w(8)=1.113037579104377e-2_p 5669x(9)=7.912533038446577_p 5670w(9)=1.010019962221872e-3_p 5671x(10)=10.88338460445297_p 5672w(10)=5.984356698074633e-5_p 5673x(11)=14.30638873795387_p 5674w(11)=2.244569305236143e-6_p 5675x(12)=18.24111968739302_p 5676w(12)=5.045931994662644e-8_p 5677x(13)=22.7742751589325_p 5678w(13)=6.264504455737253e-10_p 5679x(14)=28.03772739796758_p 5680w(14)=3.789039829154228e-12_p 5681x(15)=34.24965401469627_p 5682w(15)=9.076676731119903e-15_p 5683x(16)=41.82728983210698_p 5684w(16)=5.813631933040804e-18_p 5685x(17)=51.83956877083747_p 5686w(17)=3.709949510143784e-22_p 5687else 5688call GD(-4) 5689end if 5690end subroutine GF_m4 5691 5692! [-3kT;infkT] 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.899025451431811_p 5698w(1)=2.236589553831101_p 5699x(2)=1.474550524950370_p 5700w(2)=8.119977977426408e-1_p 5701else if(N==3)then 5702x(1)=-2.271684148710932_p 5703w(1)=1.607697463227898_p 5704x(2)=1.763422405853526e-1_p 5705w(2)=1.352267400931320_p 5706x(3)=4.104040432467021_p 5707w(3)=8.862248741452430e-2_p 5708else if(N==4)then 5709x(1)=-2.465647510253731_p 5710w(1)=1.221926823371651_p 5711x(2)=-5.388484633369968e-1_p 5712w(2)=1.502930070329095_p 5713x(3)=2.306222747594586_p 5714w(3)=3.182500245553618e-1_p 5715x(4)=7.066637280270300_p 5716w(4)=5.480433317633632e-3_p 5717else if(N==5)then 5718x(1)=-2.581972320670878_p 5719w(1)=9.738600781466518e-1_p 5720x(2)=-1.005143745126413_p 5721w(2)=1.463844805515510_p 5722x(3)=1.319566207332200_p 5723w(3)=5.731493040551519e-1_p 5724x(4)=4.720168467374710_p 5725w(4)=3.747356852418503e-2_p 5726x(5)=10.22937489265078_p 5727w(5)=2.595953322437444e-4_p 5728else if(N==6)then 5729x(1)=-2.658598519676396_p 5730w(1)=8.042774313652157e-1_p 5731x(2)=-1.332495468922910_p 5732w(2)=1.358929688914632_p 5733x(3)=6.631964875195999e-1_p 5734w(3)=7.752543076771192e-1_p 5735x(4)=3.385006713842561_p 5736w(4)=1.071253825835620e-1_p 5737x(5)=7.391621269998611_p 5738w(5)=2.989958656780908e-3_p 5739x(6)=13.51475552406082_p 5740w(6)=1.058237643230077e-5_p 5741else if(N==7)then 5742x(1)=-2.712508406670877_p 5743w(1)=6.822525943187800e-1_p 5744x(2)=-1.573409789180229_p 5745w(2)=1.240993416254945_p 5746x(3)=1.829286559696374e-1_p 5747w(3)=9.063179914909502e-1_p 5748x(4)=2.490862202745343_p 5749w(4)=2.062999226149193e-1_p 5750x(5)=5.711359546810002_p 5751w(5)=1.253083547884352e-2_p 5752x(6)=10.23653211983373_p 5753w(6)=1.922015612098988e-4_p 5754x(7)=16.88519623493936_p 5755w(7)=3.898540945311145e-7_p 5756else if(N==8)then 5757x(1)=-2.752318299871486_p 5758w(1)=5.907907151392341e-1_p 5759x(2)=-1.757106707048736_p 5760w(2)=1.129177169165370_p 5761x(3)=-1.881736325908012e-1_p 5762w(3)=9.765288900508544e-1_p 5763x(4)=1.838534870554975_p 5764w(4)=3.181299941462148e-1_p 5765x(5)=4.556930987302778_p 5766w(5)=3.282631301288555e-2_p 5767x(6)=8.237496055984282_p 5768w(6)=1.123563920189885e-3_p 5769x(7)=13.20510085480177_p 5770w(7)=1.069280812870013e-5_p 5771x(8)=20.31916336922565_p 5772w(8)=1.333086416449382e-8_p 5773else if(N==9)then 5774x(1)=-2.782824115046858_p 5775w(1)=5.199663077105474e-1_p 5776x(2)=-1.901198075217537_p 5777w(2)=1.029144731359285_p 5778x(3)=-4.849404183990648e-1_p 5779w(3)=1.002989421528803_p 5780x(4)=1.335371570629916_p 5781w(4)=4.270574173056941e-1_p 5782x(5)=3.702267068162861_p 5783w(5)=6.550544022784177e-2_p 5784x(6)=6.833449974786993_p 5785w(6)=3.838752972328793e-3_p 5786x(7)=10.90991121265801_p 5787w(7)=8.474601389644325e-5_p 5788x(8)=16.26821510155897_p 5789w(8)=5.340250524088635e-7_p 5790x(9)=23.8028070543703_p 5791w(9)=4.302928044829102e-10_p 5792else if(N==10)then 5793x(1)=-2.806891369984961_p 5794w(1)=4.636573179417861e-1_p 5795x(2)=-2.016882864550538_p 5796w(2)=9.415440997593838e-1_p 5797x(3)=-7.279578532942766e-1_p 5798w(3)=1.000899317517163_p 5799x(4)=9.317241097024582e-1_p 5800w(4)=5.229567301725837e-1_p 5801x(5)=3.038724810606576_p 5802w(5)=1.095858584214377e-1_p 5803x(6)=5.775911841134979_p 5804w(6)=9.569102986358640e-3_p 5805x(7)=9.270184457898784_p 5806w(7)=3.692806457752157e-4_p 5807x(8)=13.69564111214232_p 5808w(8)=5.619619042536274e-6_p 5809x(9)=19.40680003524885_p 5810w(9)=2.449694976330886e-8_p 5811x(10)=27.32657475621258_p 5812w(10)=1.326162501596241e-11_p 5813else if(N==11)then 5814x(1)=-2.826330533744472_p 5815w(1)=4.179080473040981e-1_p 5816x(2)=-2.111584115994856_p 5817w(2)=8.653203426402654e-1_p 5818x(3)=-9.305318074982529e-1_p 5819w(3)=9.814268346031485e-1_p 5820x(4)=5.984921759525513e-1_p 5821w(4)=6.011581907193652e-1_p 5822x(5)=2.505705070017243_p 5823w(5)=1.622112599911882e-1_p 5824x(6)=4.943905229544062_p 5825w(6)=1.940428604052839e-2_p 5826x(7)=8.017883725959853_p 5827w(7)=1.127272901943668e-3_p 5828x(8)=11.83238612252286_p 5829w(8)=3.077993663431112e-5_p 5830x(9)=16.57299358980877_p 5831w(9)=3.363875670833392e-7_p 5832x(10)=22.60738801330341_p 5833w(10)=1.048609924854115e-9_p 5834x(11)=30.88355332947027_p 5835w(11)=3.934798809333967e-13_p 5836else if(N==12)then 5837x(1)=-2.842338238791084_p 5838w(1)=3.800603192305196e-1_p 5839x(2)=-2.190393901599009_p 5840w(2)=7.989778980240686e-1_p 5841x(3)=-1.101808639621531_p 5842w(3)=9.520845646220329e-1_p 5843x(4)=3.174386007052089e-1_p 5844w(4)=6.609016245418036e-1_p 5845x(5)=2.066187953775957_p 5846w(5)=2.196857677985659e-1_p 5847x(6)=4.269054396696240_p 5848w(6)=3.404178924120808e-2_p 5849x(7)=7.021091630573705_p 5850w(7)=2.719300468099945e-3_p 5851x(8)=10.39336511551197_p 5852w(8)=1.137804421903145e-4_p 5853x(9)=14.49697212402608_p 5854w(9)=2.288652211303285e-6_p 5855x(10)=19.52649746519858_p 5856w(10)=1.851065861640133e-8_p 5857x(11)=25.86001547691611_p 5858w(11)=4.237198359713331e-11_p 5859x(12)=34.46855583121872_p 5860w(12)=1.130825743803179e-14_p 5861else if(N==13)then 5862x(1)=-2.855735322600329_p 5863w(1)=3.482674961233848e-1_p 5864x(2)=-2.256908814252493_p 5865w(2)=7.410416802811640e-1_p 5866x(3)=-1.248349875209718_p 5867w(3)=9.176877698345527e-1_p 5868x(4)=7.648848658877554e-2_p 5869w(4)=7.036747969836897e-1_p 5870x(5)=1.696130840361994_p 5871w(5)=2.783503185429805e-1_p 5872x(6)=3.708945369602473_p 5873w(6)=5.367739899159829e-2_p 5874x(7)=6.204533742171480_p 5875w(7)=5.554168988083602e-3_p 5876x(8)=9.237035266678848_p 5877w(8)=3.234075226006294e-4_p 5878x(9)=12.87856993960566_p 5879w(9)=1.015853738071168e-5_p 5880x(10)=17.24742828934972_p 5881w(10)=1.548176744985082e-7_p 5882x(11)=22.54455292737748_p 5883w(11)=9.490017831646067e-10_p 5884x(12)=29.1570624311646_p 5885w(12)=1.630414863778915e-12_p 5886x(13)=38.07757818671985_p 5887w(13)=3.162651590708204e-16_p 5888else if(N==14)then 5889x(1)=-2.867102627734727_p 5890w(1)=3.212097691635427e-1_p 5891x(2)=-2.313734065897671_p 5892w(2)=6.902062310865545e-1_p 5893x(3)=-1.375009739628357_p 5894w(3)=8.812279084742504e-1_p 5895x(4)=-1.327362034414343e-1_p 5896w(4)=7.319660588014637e-1_p 5897x(5)=1.379212235550803_p 5898w(5)=3.351318886479309e-1_p 5899x(6)=3.235525160617631_p 5900w(6)=7.801912560689638e-2_p 5901x(7)=5.521121434103240_p 5902w(7)=1.002948563495827e-2_p 5903x(8)=8.281956259293532_p 5904w(8)=7.622481909314645e-4_p 5905x(9)=11.56773624374615_p 5906w(9)=3.380724065273759e-5_p 5907x(10)=15.4564672443754_p 5908w(10)=8.190141989454282e-7_p 5909x(11)=20.0712706213056_p 5910w(11)=9.666506649655013e-9_p 5911x(12)=25.61817239190268_p 5912w(12)=4.579536024821547e-11_p 5913x(13)=32.4925497635722_p 5914w(13)=6.014806963641891e-14_p 5915x(14)=41.70745712138547_p 5916w(14)=8.639488313502051e-18_p 5917else if(N==15)then 5918x(1)=-2.876862170936098_p 5919w(1)=2.979204974666648e-1_p 5920x(2)=-2.362798740401403_p 5921w(2)=6.453654181625224e-1_p 5922x(3)=-1.485464120833851_p 5923w(3)=8.445147751177222e-1_p 5924x(4)=-3.162851380175881e-1_p 5925w(4)=7.484905520603550e-1_p 5926x(5)=1.103965898549687_p 5927w(5)=3.877778285165842e-1_p 5928x(6)=2.829348092423341_p 5929w(6)=1.063822939436416e-1_p 5930x(7)=4.939464148932697_p 5931w(7)=1.647874022850235e-2_p 5932x(8)=7.476794166075763_p 5933w(8)=1.562528995058080e-3_p 5934x(9)=10.47755124341232_p 5935w(9)=9.148194434503215e-5_p 5936x(10)=13.99594771881186_p 5937w(10)=3.174038545095139e-6_p 5938x(11)=18.11412923506294_p 5939w(11)=6.053437356935083e-8_p 5940x(12)=22.95873110043706_p 5941w(12)=5.633287991229625e-10_p 5942x(13)=28.74022089100704_p 5943w(13)=2.096907612281704e-12_p 5944x(14)=35.8616874937595_p 5945w(14)=2.138926915994174e-15_p 5946x(15)=45.35564508341947_p 5947w(15)=2.311993250874741e-19_p 5948else if(N==16)then 5949x(1)=-2.885327613509993_p 5950w(1)=2.776764915941406e-1_p 5951x(2)=-2.405559169768672_p 5952w(2)=6.055991114215119e-1_p 5953x(3)=-1.582548888429578_p 5954w(3)=8.086094233017816e-1_p 5955x(4)=-4.786756178045187e-1_p 5956w(4)=7.557823951771155e-1_p 5957x(5)=8.621059870763124e-1_p 5958w(5)=4.348650131391440e-1_p 5959x(6)=2.476445813473343_p 5960w(6)=1.378226737727832e-1_p 5961x(7)=4.437629055103358_p 5962w(7)=2.513369403795938e-2_p 5963x(8)=6.787095199247492_p 5964w(8)=2.876500347942871e-3_p 5965x(9)=9.552871634346740_p 5966w(9)=2.119514439897626e-4_p 5967x(10)=12.7740424127033_p 5968w(10)=9.821336041297548e-6_p 5969x(11)=16.50856263323497_p 5970w(11)=2.718205478765205e-7_p 5971x(12)=20.84136781783912_p 5972w(12)=4.149780163362767e-9_p 5973x(13)=25.90198145030125_p 5974w(13)=3.091201841368238e-11_p 5975x(14)=31.9049236199006_p 5976w(14)=9.169497182998229e-14_p 5977x(15)=39.26057140298346_p 5978w(15)=7.364140287882228e-17_p 5979x(16)=49.0200567408209_p 5980w(16)=6.075622299499072e-21_p 5981else if(N==17)then 5982x(1)=-2.892736725485689_p 5983w(1)=2.599265292922975e-1_p 5984x(2)=-2.443133774468004_p 5985w(2)=5.701471028892356e-1_p 5986x(3)=-1.668486030329298_p 5987w(3)=7.741045703882460e-1_p 5988x(4)=-6.233755247958535e-1_p 5989w(4)=7.560224548892671e-1_p 5990x(5)=6.474968074928356e-1_p 5991w(5)=4.756828016007665e-1_p 5992x(6)=2.166500881407613_p 5993w(6)=1.712734659378802e-1_p 5994x(7)=3.999724724731790_p 5995w(7)=3.610452282284166e-2_p 5996x(8)=6.188640295200850_p 5997w(8)=4.863882953246339e-3_p 5998x(9)=8.756461446156228_p 5999w(9)=4.354013321968351e-4_p 6000x(10)=11.73218418267267_p 6001w(10)=2.563951507635899e-5_p 6002x(11)=15.15830241921805_p 6003w(11)=9.581961937045604e-7_p 6004x(12)=19.09520226940076_p 6005w(12)=2.148856800031164e-8_p 6006x(13)=23.62995428824362_p 6007w(13)=2.663137029741628e-10_p 6008x(14)=28.89463104003911_p 6009w(14)=1.608656414725144e-12_p 6010x(15)=35.1075312635004_p 6011w(15)=3.849564238874113e-15_p 6012x(16)=42.68597222044092_p 6013w(16)=2.463567653093367e-18_p 6014x(17)=52.69896112006001_p 6015w(17)=1.570954518028828e-22_p 6016else 6017call GD(-3) 6018end if 6019end subroutine GF_m3 6020 6021! [-2kT;infkT] 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.066219022963170_p 6027w(1)=1.641101497176529_p 6028x(2)=2.078600418313979_p 6029w(2)=4.858265138664436e-1_p 6030else if(N==3)then 6031x(1)=-1.367356231323794_p 6032w(1)=1.231471527208014_p 6033x(2)=8.549450459676792e-1_p 6034w(2)=8.501892795661649e-1_p 6035x(3)=4.795098731628099_p 6036w(3)=4.526720426879353e-2_p 6037else if(N==4)then 6038x(1)=-1.527758522688313_p 6039w(1)=9.633827403146467e-1_p 6040x(2)=2.103257912251834e-1_p 6041w(2)=9.940876813710295e-1_p 6042x(3)=3.011210490610731_p 6043w(3)=1.668490404108140e-1_p 6044x(4)=7.813498472750431_p 6045w(4)=2.608548946482357e-3_p 6046else if(N==5)then 6047x(1)=-1.625833553382936_p 6048w(1)=7.833920657864845e-1_p 6049x(2)=-2.009896653424005e-1_p 6050w(2)=1.013089401889349_p 6051x(3)=2.043321062584543_p 6052w(3)=3.125477730084710e-1_p 6053x(4)=5.478359593775568_p 6054w(4)=1.777945592332448e-2_p 6055x(5)=11.00843598371968_p 6056w(5)=1.193144353436136e-4_p 6057else if(N==6)then 6058x(1)=-1.691430500526304_p 6059w(1)=6.565854403506320e-1_p 6060x(2)=-4.878482492359962e-1_p 6061w(2)=9.761658231958015e-1_p 6062x(3)=1.410605943191935_p 6063w(3)=4.415302028717195e-1_p 6064x(4)=4.150216704576321_p 6065w(4)=5.128095283291732e-2_p 6066x(5)=8.182259616158492_p 6067w(5)=1.360836446374211e-3_p 6068x(6)=14.3155582240346_p 6069w(6)=4.755345527951026e-6_p 6070else if(N==7)then 6071x(1)=-1.738145243212661_p 6072w(1)=5.632940627040226e-1_p 6073x(2)=-6.990919598400156e-1_p 6074w(2)=9.183843645299515e-1_p 6075x(3)=9.558326585567990e-1_p 6076w(3)=5.388742848377983e-1_p 6077x(4)=3.262112279567420_p 6078w(4)=1.006128804629916e-1_p 6079x(5)=6.510004468797175_p 6080w(5)=5.676710634021832e-3_p 6081x(6)=11.04763743931781_p 6082w(6)=8.553555652338806e-5_p 6083x(7)=17.70216025090167_p 6084w(7)=1.723176632328094e-7_p 6085else if(N==8)then 6086x(1)=-1.772984992481520_p 6087w(1)=4.921660572298100e-1_p 6088x(2)=-8.607546046559785e-1_p 6089w(2)=8.557261661082416e-1_p 6090x(3)=6.095334706150166e-1_p 6091w(3)=6.045093619146975e-1_p 6092x(4)=2.616735949158334_p 6093w(4)=1.591472685143311e-1_p 6094x(5)=5.361044598798482_p 6095w(5)=1.487800930866558e-2_p 6096x(6)=9.056630868890718_p 6097w(6)=4.964562611850428e-4_p 6098x(7)=14.03094275028928_p 6099w(7)=4.685889082742266e-6_p 6100x(8)=21.14881661753862_p 6101w(8)=5.816958868061738e-9_p 6102else if(N==9)then 6103x(1)=-1.799902693232007_p 6104w(1)=4.363351445733010e-1_p 6105x(2)=-9.881655153441032e-1_p 6106w(2)=7.949925604242531e-1_p 6107x(3)=3.354926571570169e-1_p 6108w(3)=6.439758094902146e-1_p 6109x(4)=2.122062123454675_p 6110w(4)=2.200471199433607e-1_p 6111x(5)=4.510294409407023_p 6112w(5)=2.985219479903238e-2_p 6113x(6)=7.658773055255134_p 6114w(6)=1.688070153640836e-3_p 6115x(7)=11.74307065428292_p 6116w(7)=3.688018854598124e-5_p 6117x(8)=17.10552542658949_p 6118w(8)=2.312848134587328e-7_p 6119x(9)=24.64278936493966_p 6120w(9)=1.858104255598128e-10_p 6121else if(N==10)then 6122x(1)=-1.821287332144799_p 6123w(1)=3.914521941829920e-1_p 6124x(2)=-1.090968012604787_p 6125w(2)=7.387845837685421e-1_p 6126x(3)=1.126057743609709e-1_p 6127w(3)=6.637762831284887e-1_p 6128x(4)=1.728317475968686_p 6129w(4)=2.781075811482584e-1_p 6130x(5)=3.849935629756687_p 6131w(5)=5.044763542450551e-2_p 6132x(6)=6.605961534323868_p 6133w(6)=4.197492786338716e-3_p 6134x(7)=10.10937255748285_p 6135w(7)=1.598115992975290e-4_p 6136x(8)=14.53946239974696_p 6137w(8)=2.418489623591975e-6_p 6138x(9)=20.25344202454972_p 6139w(9)=1.050924887647386e-8_p 6140x(10)=28.17518737442196_p 6141w(10)=5.677093285927114e-12_p 6142else if(N==11)then 6143x(1)=-1.838663163802687_p 6144w(1)=3.546475239251867e-1_p 6145x(2)=-1.175530583316538_p 6146w(2)=6.878283192179104e-1_p 6147x(3)=-7.245540578890269e-2_p 6148w(3)=6.695879517062723e-1_p 6149x(4)=1.405955699506372_p 6150w(4)=3.301170710369017e-1_p 6151x(5)=3.319985087216567_p 6152w(5)=7.573771540446372e-2_p 6153x(6)=5.777551969373607_p 6154w(6)=8.510379576436241e-3_p 6155x(7)=8.862040272162803_p 6156w(7)=4.857301445464996e-4_p 6157x(8)=12.68175597971531_p 6158w(8)=1.317608995942566e-5_p 6159x(9)=17.42541782746396_p 6160w(9)=1.434948207059103e-7_p 6161x(10)=23.46184832834664_p 6162w(10)=4.463076354383755e-10_p 6163x(11)=31.73952229076624_p 6164w(11)=1.672007087998206e-13_p 6165else if(N==12)then 6166x(1)=-1.853046235248405_p 6167w(1)=3.239595810711310e-1_p 6168x(2)=-1.246222549133243_p 6169w(2)=6.420415343733986e-1_p 6170x(3)=-2.286260598603770e-1_p 6171w(3)=6.658251942308738e-1_p 6172x(4)=1.136237242398086_p 6173w(4)=3.745397747279435e-1_p 6174x(5)=2.883822951860602_p 6175w(5)=1.043811681905549e-1_p 6176x(6)=5.105468341984945_p 6177w(6)=1.496329627904583e-2_p 6178x(7)=7.869333948308167_p 6179w(7)=1.167995059035959e-3_p 6180x(8)=11.2474863597046_p 6181w(8)=4.848775340225872e-5_p 6182x(9)=15.3544269779034_p 6183w(9)=9.715011539138681e-7_p 6184x(10)=20.3861144841645_p 6185w(10)=7.838514987874651e-9_p 6186x(11)=26.72116609238129_p 6187w(11)=1.791288361056194e-11_p 6188x(12)=35.33089529997958_p 6189w(12)=4.774540398207929e-15_p 6190else if(N==13)then 6191x(1)=-1.865138705882564_p 6192w(1)=2.980061943060472e-1_p 6193x(2)=-1.306136684465914_p 6194w(2)=6.010212806255508e-1_p 6195x(3)=-3.621731090043983e-1_p 6196w(3)=6.557272372354608e-1_p 6197x(4)=9.066547483971303e-1_p 6198w(4)=4.110167985652274e-1_p 6199x(5)=2.517617610208000_p 6200w(5)=1.349311899551000e-1_p 6201x(6)=4.547565547079387_p 6202w(6)=2.370287849862072e-2_p 6203x(7)=7.056123203257781_p 6204w(7)=2.380770033382608e-3_p 6205x(8)=10.0952391270531_p 6206w(8)=1.373023642619847e-4_p 6207x(9)=13.74042594555213_p 6208w(9)=4.293793125561243e-6_p 6209x(10)=18.11159836136361_p 6210w(10)=6.526614852126675e-8_p 6211x(11)=23.41032914272238_p 6212w(11)=3.993615146650344e-10_p 6213x(12)=30.0240315079637_p 6214w(12)=6.852341677768506e-13_p 6215x(13)=38.94550606197298_p 6216w(13)=1.327855822454459e-16_p 6217else if(N==14)then 6218x(1)=-1.875440708410614_p 6219w(1)=2.757875538059690e-1_p 6220x(2)=-1.357520374550541_p 6221w(2)=5.642651249495931e-1_p 6222x(3)=-4.776480472133245e-1_p 6223w(3)=6.415951873110346e-1_p 6224x(4)=7.085084886291031e-1_p 6225w(4)=4.399114726007684e-1_p 6226x(5)=2.205113720995127_p 6227w(5)=1.660457518889829e-1_p 6228x(6)=4.076023893376093_p 6229w(6)=3.469038886468504e-2_p 6230x(7)=6.375443474799791_p 6231w(7)=4.295338238566693e-3_p 6232x(8)=9.143673097446859_p 6233w(8)=3.226088685692609e-4_p 6234x(9)=12.43346270985806_p 6235w(9)=1.423653857407678e-5_p 6236x(10)=16.32467801168846_p 6237w(10)=3.439057144764571e-7_p 6238x(11)=20.94117792390452_p 6239w(11)=4.051322324952133e-9_p 6240x(12)=26.48931569822851_p 6241w(12)=1.916746974271973e-11_p 6242x(13)=33.36464474219746_p 6243w(13)=2.514914349966035e-14_p 6244x(14)=42.58034019950018_p 6245w(14)=3.609347831244095e-18_p 6246else if(N==15)then 6247x(1)=-1.884317747404781_p 6248w(1)=2.565637650592077e-1_p 6249x(2)=-1.402043804169261_p 6250w(2)=5.312688679101522e-1_p 6251x(3)=-5.784488820674794e-1_p 6252w(3)=6.250316105842272e-1_p 6253x(4)=5.355354415257988e-1_p 6254w(4)=4.619686287313959e-1_p 6255x(5)=1.934813349599864_p 6256w(5)=1.966025567857466e-1_p 6257x(6)=3.671590513670808_p 6258w(6)=4.773346688014062e-2_p 6259x(7)=5.796015964295285_p 6260w(7)=7.059682827862439e-3_p 6261x(8)=8.341532774149588_p 6262w(8)=6.596794284646360e-4_p 6263x(9)=11.34669530288836_p 6264w(9)=3.839921508638950e-5_p 6265x(10)=14.86776336475236_p 6266w(10)=1.328106878580237e-6_p 6267x(11)=18.98774231852413_p 6268w(11)=2.527803382362830e-8_p 6269x(12)=23.83363715890204_p 6270w(12)=2.349020247422821e-10_p 6271x(13)=29.61610452613794_p 6272w(13)=8.734673791487696e-13_p 6273x(14)=36.73834619621103_p 6274w(14)=8.902375114216720e-16_p 6275x(15)=46.23296195744641_p 6276w(15)=9.616046425445025e-20_p 6277else if(N==16)then 6278x(1)=-1.892042908946991_p 6279w(1)=2.397762583747070e-1_p 6280x(2)=-1.440972647871681_p 6281w(2)=5.015666792302307e-1_p 6282x(3)=-6.671697172203744e-1_p 6283w(3)=6.071372489141857e-1_p 6284x(4)=3.830937510146878e-1_p 6285w(4)=4.780874540693750e-1_p 6286x(5)=1.698342046157031_p 6287w(5)=2.257413546350734e-1_p 6288x(6)=3.320447076496158_p 6289w(6)=6.252945223652945e-2_p 6290x(7)=5.296010724772942_p 6291w(7)=1.078447019234758e-2_p 6292x(8)=7.654428826176578_p 6293w(8)=1.212166088689610e-3_p 6294x(9)=10.42504185740955_p 6295w(9)=8.871576456957151e-5_p 6296x(10)=13.64908914585825_p 6297w(10)=4.096664601599155e-6_p 6298x(11)=17.3855160322403_p 6299w(11)=1.131351954037188e-7_p 6300x(12)=21.71967841002202_p 6301w(12)=1.724596972559302e-9_p 6302x(13)=26.78130689276319_p 6303w(13)=1.283250474648261e-11_p 6304x(14)=32.78503946125716_p 6305w(14)=3.803317753984380e-14_p 6306x(15)=40.1413293823798_p 6307w(15)=3.052422225826414e-17_p 6308x(16)=49.90137185665707_p 6309w(16)=2.516867647518318e-21_p 6310else if(N==17)then 6311x(1)=-1.898824187090161_p 6312w(1)=2.249958871327784e-1_p 6313x(2)=-1.475282594522571_p 6314w(2)=4.747445182261920e-1_p 6315x(3)=-7.458279178962095e-1_p 6316w(3)=5.886592457447304e-1_p 6317x(4)=2.476568041400507e-1_p 6318w(4)=4.891837565983304e-1_p 6319x(5)=1.489449796961681_p 6320w(5)=2.528590824695349e-1_p 6321x(6)=3.012384331132667_p 6322w(6)=7.870962611964445e-2_p 6323x(7)=4.859631210166215_p 6324w(7)=1.553589618793056e-2_p 6325x(8)=7.058197440378294_p 6326w(8)=2.047123894513348e-3_p 6327x(9)=9.631315495442829_p 6328w(9)=1.818031887614066e-4_p 6329x(10)=12.61013825956577_p 6330w(10)=1.066483299575196e-5_p 6331x(11)=16.03828030436574_p 6332w(11)=3.976335354540412e-7_p 6333x(12)=19.9766065166588_p 6334w(12)=8.903147167824586e-9_p 6335x(13)=24.51241625311388_p 6336w(13)=1.102115731245025e-10_p 6337x(14)=29.77790839454906_p 6338w(14)=6.651444276332604e-13_p 6339x(15)=35.99145938895295_p 6340w(15)=1.590611035580853e-15_p 6341x(16)=43.57044010521439_p 6342w(16)=1.017350181079685e-18_p 6343x(17)=53.58390612640017_p 6344w(17)=6.484159300282983e-23_p 6345else 6346call GD(-2) 6347end if 6348end subroutine GF_m2 6349 6350! [-1kT;infkT] 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.078062663077150e-1_p 6356w(1)=1.057155732901310_p 6357x(2)=2.782863716513927_p 6358w(2)=2.561059546169127e-1_p 6359else if(N==3)then 6360x(1)=-4.522745221968787e-1_p 6361w(1)=8.263519492383066e-1_p 6362x(2)=1.608264350878083_p 6363w(2)=4.657801599377602e-1_p 6364x(3)=5.568719235907259_p 6365w(3)=2.112957834215611e-2_p 6366else if(N==4)then 6367x(1)=-5.846764535985927e-1_p 6368w(1)=6.659151638031704e-1_p 6369x(2)=1.010156732431460_p 6370w(2)=5.673788332892165e-1_p 6371x(3)=3.796864067639880_p 6372w(3)=7.880799132168421e-2_p 6373x(4)=8.626824391181561_p 6374w(4)=1.159699104151790e-3_p 6375else if(N==5)then 6376x(1)=-6.669498791547245e-1_p 6377w(1)=5.533390176074376e-1_p 6378x(2)=6.366629216886428e-1_p 6379w(2)=6.008944974944520e-1_p 6380x(3)=2.841302070601595_p 6381w(3)=1.511187440821858e-1_p 6382x(4)=6.302059873121433_p 6383w(4)=7.857678655872806e-3_p 6384x(5)=11.84482010191209_p 6385w(5)=5.174967827451130e-5_p 6386else if(N==6)then 6387x(1)=-7.227341290012128e-1_p 6388w(1)=4.714021948849164e-1_p 6389x(2)=3.790798502406825e-1_p 6390w(2)=5.988731027197903e-1_p 6391x(3)=2.222653753505264_p 6392w(3)=2.196951881998307e-1_p 6393x(4)=4.980703591582445_p 6394w(4)=2.270399232077194e-2_p 6395x(5)=9.028231218329397_p 6396w(5)=5.851801248751673e-4_p 6397x(6)=15.16769432034242_p 6398w(6)=2.029268038260190e-6_p 6399else if(N==7)then 6400x(1)=-7.629135240163035e-1_p 6401w(1)=4.096072201050895e-1_p 6402x(2)=1.902895517251881e-1_p 6403w(2)=5.798584578856252e-1_p 6404x(3)=1.782905808817384_p 6405w(3)=2.764219192995133e-1_p 6406x(4)=4.097833823028209_p 6407w(4)=4.490941122558972e-2_p 6408x(5)=7.362947134432840_p 6409w(5)=2.428391141876180e-3_p 6410x(6)=11.90798818372219_p 6411w(6)=3.621520391593606e-5_p 6412x(7)=18.56608169043936_p 6413w(7)=7.265661311048939e-8_p 6414else if(N==8)then 6415x(1)=-7.931645848954029e-1_p 6416w(1)=3.615648240811711e-1_p 6417x(2)=4.596506193945705e-2_p 6418w(2)=5.535604358900100e-1_p 6419x(3)=1.451576914626440_p 6420w(3)=3.196038634986650e-1_p 6421x(4)=3.457374440659069_p 6422w(4)=7.197022505787321e-2_p 6423x(5)=6.219077885995737_p 6424w(5)=6.351440963181871e-3_p 6425x(6)=9.923493382428624_p 6426w(6)=2.089331921240929e-4_p 6427x(7)=14.90182853693781_p 6428w(7)=1.962405470950789e-6_p 6429x(8)=22.0220295728796_p 6430w(8)=2.429726502300689e-9_p 6431else if(N==9)then 6432x(1)=-8.167253529380544e-1_p 6433w(1)=3.232557455219645e-1_p 6434x(2)=-6.788527017641360e-2_p 6435w(2)=5.249092609696150e-1_p 6436x(3)=1.191747011614960_p 6437w(3)=3.504435762756363e-1_p 6438x(4)=2.967884863271346_p 6439w(4)=1.011748822344772e-1_p 6440x(5)=5.372155139080400_p 6441w(5)=1.275549242113048e-2_p 6442x(6)=8.530806020073229_p 6443w(6)=7.072747297093296e-4_p 6444x(7)=12.61972969804914_p 6445w(7)=1.535924546656190e-5_p 6446x(8)=17.98469192752994_p 6447w(8)=9.604320249886829e-8_p 6448x(9)=25.52358790388824_p 6449w(9)=7.702095609538006e-11_p 6450else if(N==10)then 6451x(1)=-8.355724217858526e-1_p 6452w(1)=2.920554040863521e-1_p 6453x(2)=-1.599262318414068e-1_p 6454w(2)=4.963473172527608e-1_p 6455x(3)=9.819411472449060e-1_p 6456w(3)=3.710889026923449e-1_p 6457x(4)=2.579767875404461_p 6458w(4)=1.303145249074940e-1_p 6459x(5)=4.714848906825367_p 6460w(5)=2.163485417928015e-2_p 6461x(6)=7.482112360183733_p 6462w(6)=1.753427974792968e-3_p 6463x(7)=10.99084358433154_p 6464w(7)=6.625276095506136e-5_p 6465x(8)=15.42370023868374_p 6466w(8)=9.993277747788312e-7_p 6467x(9)=21.13938938566968_p 6468w(9)=4.334129815819639e-9_p 6469x(10)=29.06233818443954_p 6470w(10)=2.338236949752624e-12_p 6471else if(N==11)then 6472x(1)=-8.509781984361839e-1_p 6473w(1)=2.661891058594442e-1_p 6474x(2)=-2.358238902499765e-1_p 6475w(2)=4.690318363793670e-1_p 6476x(3)=8.086968502233496e-1_p 6477w(3)=3.837422949153444e-1_p 6478x(4)=2.263437341157070_p 6479w(4)=1.578613848775742e-1_p 6480x(5)=4.187541781539194_p 6481w(5)=3.268160779496063e-2_p 6482x(6)=6.656998432043386_p 6483w(6)=3.549353202016796e-3_p 6484x(7)=9.747546443109584_p 6485w(7)=2.006239289577751e-4_p 6486x(8)=13.57033775168111_p 6487w(8)=5.421458791987395e-6_p 6488x(9)=18.31583599348842_p 6489w(9)=5.891869390063424e-8_p 6490x(10)=24.35350238037818_p 6491w(10)=1.830035420602442e-10_p 6492x(11)=32.63209734133484_p 6493w(11)=6.849096577610393e-14_p 6494else if(N==12)then 6495x(1)=-8.637975933129440e-1_p 6496w(1)=2.444190442567030e-1_p 6497x(2)=-2.994429930645706e-1_p 6498w(2)=4.434567516144923e-1_p 6499x(3)=6.630852756565013e-1_p 6500w(3)=3.903240729817136e-1_p 6501x(4)=2.000023168928342_p 6502w(4)=1.829018334147764e-1_p 6503x(5)=3.753870050496275_p 6504w(5)=4.541963232512305e-2_p 6505x(6)=5.987579140323186_p 6506w(6)=6.239064611250130e-3_p 6507x(7)=8.758237888928917_p 6508w(7)=4.810087199217154e-4_p 6509x(8)=12.13981664383068_p 6510w(8)=1.987901359811700e-5_p 6511x(9)=16.24874458492109_p 6512w(9)=3.973718291541035e-7_p 6513x(10)=21.28173664256028_p 6514w(10)=3.201504592278314e-9_p 6515x(11)=27.61771984614172_p 6516w(11)=7.308793152546015e-12_p 6517x(12)=36.22817452581152_p 6518w(12)=1.946595714428201e-15_p 6519else if(N==13)then 6520x(1)=-8.746255992156230e-1_p 6521w(1)=2.258580982844257e-1_p 6522x(2)=-3.535105772162788e-1_p 6523w(2)=4.197755737476777e-1_p 6524x(3)=5.389189953669623e-1_p 6525w(3)=3.923903197429601e-1_p 6526x(4)=1.776867254091248_p 6527w(4)=2.049918179235032e-1_p 6528x(5)=3.390166916488427_p 6529w(5)=5.931586124121783e-2_p 6530x(6)=5.431870221077532_p 6531w(6)=9.893840707556152e-3_p 6532x(7)=7.947896159080197_p 6533w(7)=9.782808406107971e-4_p 6534x(8)=10.99082410682873_p 6535w(8)=5.611788918595108e-5_p 6536x(9)=14.63816849655416_p 6537w(9)=1.750413777677665e-6_p 6538x(10)=19.01072854324293_p 6539w(10)=2.656465453811726e-8_p 6540x(11)=24.31043031258292_p 6541w(11)=1.623747451146479e-10_p 6542x(12)=30.9248575658776_p 6543w(12)=2.783890998876818e-13_p 6544x(13)=39.84691695454377_p 6545w(13)=5.391319277174862e-17_p 6546else if(N==14)then 6547x(1)=-8.838887115942743e-1_p 6548w(1)=2.098551876955256e-1_p 6549x(2)=-4.000056011476302e-1_p 6550w(2)=3.979705678762466e-1_p 6551x(3)=4.317576739673050e-1_p 6552w(3)=3.911543203416706e-1_p 6553x(4)=1.585133219286028_p 6554w(4)=2.240116501771912e-1_p 6555x(5)=3.080270944982133_p 6556w(5)=7.385547213171581e-2_p 6557x(6)=4.962186821762510_p 6558w(6)=1.451476151386979e-2_p 6559x(7)=7.269645012122608_p 6560w(7)=1.762289674717601e-3_p 6561x(8)=10.04209702768937_p 6562w(8)=1.315102732471519e-4_p 6563x(9)=13.33423297957614_p 6564w(9)=5.786637026490315e-6_p 6565x(10)=17.22692843254824_p 6566w(10)=1.395471926943950e-7_p 6567x(11)=21.84444907773623_p 6568w(11)=1.642046611717434e-9_p 6569x(12)=27.39333496913789_p 6570w(12)=7.762477099903662e-12_p 6571x(13)=34.26924242807092_p 6572w(13)=1.017865416798627e-14_p 6573x(14)=43.48541839441337_p 6574w(14)=1.460077767924167e-18_p 6575else if(N==15)then 6576x(1)=-8.919004067432992e-1_p 6577w(1)=1.959224028093058e-1_p 6578x(2)=-4.403985379361532e-1_p 6579w(2)=3.779420667068715e-1_p 6580x(3)=3.383226888340083e-1_p 6581w(3)=3.875416904655967e-1_p 6582x(4)=1.418448635198189_p 6583w(4)=2.400475745993209e-1_p 6584x(5)=2.812726558299743_p 6585w(5)=8.858463327722467e-2_p 6586x(6)=4.559387054261535_p 6587w(6)=2.004490100332959e-2_p 6588x(7)=6.692280230345889_p 6589w(7)=2.893980760465883e-3_p 6590x(8)=9.242441051147171_p 6591w(8)=2.683226919727132e-4_p 6592x(9)=12.25015678907598_p 6593w(9)=1.556745920355194e-5_p 6594x(10)=15.7728057864785_p 6595w(10)=5.374330557345694e-7_p 6596x(11)=19.89386093069952_p 6597w(11)=1.021666330742667e-8_p 6598x(12)=24.74053531489034_p 6599w(12)=9.485960457792133e-11_p 6600x(13)=30.52359483059938_p 6601w(13)=3.525042479655123e-13_p 6602x(14)=37.6463075936263_p 6603w(14)=3.590925401368079e-16_p 6604x(15)=47.14132447998269_p 6605w(15)=3.877164994571304e-20_p 6606else if(N==16)then 6607x(1)=-8.988961148321751e-1_p 6608w(1)=1.836873326710328e-1_p 6609x(2)=-4.758044237154717e-1_p 6610w(2)=3.595557000076985e-1_p 6611x(3)=2.561353408742535e-1_p 6612w(3)=3.822495453464758e-1_p 6613x(4)=1.272091508426079_p 6614w(4)=2.533047605144738e-1_p 6615x(5)=2.579166654761371_p 6616w(5)=1.031293588997698e-1_p 6617x(6)=4.209741526465959_p 6618w(6)=2.638510615974319e-2_p 6619x(7)=6.194036480851649_p 6620w(7)=4.420150037954850e-3_p 6621x(8)=8.557516033537555_p 6622w(8)=4.921497713335690e-4_p 6623x(9)=11.33090602852305_p 6624w(9)=3.588410632176021e-5_p 6625x(10)=14.55664330240902_p 6626w(10)=1.653693471487087e-6_p 6627x(11)=18.29420606160937_p 6628w(11)=4.561012693462718e-8_p 6629x(12)=22.62918351362939_p 6630w(12)=6.946397035059951e-10_p 6631x(13)=27.69142469935632_p 6632w(13)=5.165291021375550e-12_p 6633x(14)=33.69563627128149_p 6634w(14)=1.530113651878590e-14_p 6635x(15)=41.05231647184506_p 6636w(15)=1.227514793339574e-17_p 6637x(16)=50.81269836015395_p 6638w(16)=1.011785483136970e-21_p 6639else if(N==17)then 6640x(1)=-9.050559981758302e-1_p 6641w(1)=1.728610598430222e-1_p 6642x(2)=-5.070838072881326e-1_p 6643w(2)=3.426671524035674e-1_p 6644x(3)=1.832840250231241e-1_p 6645w(3)=3.757987361520771e-1_p 6646x(4)=1.142481301318092_p 6647w(4)=2.640476206057937e-1_p 6648x(5)=2.373326638934221_p 6649w(5)=1.171988419092913e-1_p 6650x(6)=3.903109952299493_p 6651w(6)=3.340957559589156e-2_p 6652x(7)=5.759173926492903_p 6653w(7)=6.370900637343354e-3_p 6654x(8)=7.963198913258323_p 6655w(8)=8.299529121447372e-4_p 6656x(9)=10.53933216714149_p 6657w(9)=7.338834606823674e-5_p 6658x(10)=13.5199625477223_p 6659w(10)=4.295554040284807e-6_p 6660x(11)=16.94930395640382_p 6661w(11)=1.599368280732924e-7_p 6662x(12)=20.88848341414215_p 6663w(12)=3.577630746592141e-9_p 6664x(13)=25.42492966109191_p 6665w(13)=4.425650875427032e-11_p 6666x(14)=30.69091455115232_p 6667w(14)=2.669536113644145e-13_p 6668x(15)=36.90486005377125_p 6669w(15)=6.381193320584724e-16_p 6670x(16)=44.484168793686_p 6671w(16)=4.079985783984987e-19_p 6672x(17)=54.49792537276351_p 6673w(17)=2.599623172706327e-23_p 6674else 6675call GD(-1) 6676end if 6677end subroutine GF_m1 6678 6679! [0kT;infkT] 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.905392554041752e-1_p 6685w(1)=5.746633478970105e-1_p 6686x(2)=3.592384070408228_p 6687w(2)=1.184838326629348e-1_p 6688else if(N==3)then 6689x(1)=4.840534751554061e-1_p 6690w(1)=4.633605519204452e-1_p 6691x(2)=2.446744868967085_p 6692w(2)=2.207494135774719e-1_p 6693x(3)=6.424352261225516_p 6694w(3)=9.037215062028254e-3_p 6695else if(N==4)then 6696x(1)=3.712756620850277e-1_p 6697w(1)=3.825388156952151e-1_p 6698x(2)=1.875432820833205_p 6699w(2)=2.763012417698876e-1_p 6700x(3)=4.661471088260850_p 6701w(3)=3.382553344606828e-2_p 6702x(4)=9.507093662076505_p 6703w(4)=4.815896487743821e-4_p 6704else if(N==5)then 6705x(1)=3.004771004745241e-1_p 6706w(1)=3.238083464690713e-1_p 6707x(2)=1.524152872017077_p 6708w(2)=3.004808234726896e-1_p 6709x(3)=3.713704503646147_p 6710w(3)=6.559139578626215e-2_p 6711x(4)=7.189957524003015_p 6712w(4)=3.245451726705576e-3_p 6713x(5)=12.7395431732222_p 6714w(5)=2.116310521660557e-5_p 6715else if(N==6)then 6716x(1)=2.520174458196917e-1_p 6717w(1)=2.798766579655337e-1_p 6718x(2)=1.284314149366321_p 6719w(2)=3.068344174354263e-1_p 6720x(3)=3.102998171059898_p 6721w(3)=9.682968827815576e-2_p 6722x(4)=5.873789871207389_p 6723w(4)=9.367751308199846e-3_p 6724x(5)=9.929605296596467_p 6725w(5)=2.378441532483348e-4_p 6726x(6)=16.07238534570181_p 6727w(6)=8.214193813231147e-7_p 6728else if(N==7)then 6729x(1)=2.168233305172354e-1_p 6730w(1)=2.460173041548890e-1_p 6731x(2)=1.109593250256884_p 6732w(2)=3.035895698770797e-1_p 6733x(3)=2.671365693969538_p 6734w(3)=1.239653022750305e-1_p 6735x(4)=4.994839418054564_p 6736w(4)=1.857743335953853e-2_p 6737x(5)=8.269285176702109_p 6738w(5)=9.829610093600074e-4_p 6739x(6)=12.81824859636541_p 6740w(6)=1.458069672848966e-5_p 6741x(7)=19.47826877980403_p 6742w(7)=2.918731897329437e-8_p 6743else if(N==8)then 6744x(1)=1.901344747358959e-1_p 6745w(1)=2.192266547494495e-1_p 6746x(2)=9.764779476202812e-1_p 6747w(2)=2.953900683193310e-1_p 6748x(3)=2.348059740004623_p 6749w(3)=1.459472287884359e-1_p 6750x(4)=4.357744312104359_p 6751w(4)=2.993373149684017e-2_p 6752x(5)=7.129170219982503_p 6753w(5)=2.564945897484104e-3_p 6754x(6)=10.83820831903568_p 6755w(6)=8.376561104959234e-5_p 6756x(7)=15.81868805472317_p 6757w(7)=7.847271242337231e-7_p 6758x(8)=22.94014552113654_p 6759w(8)=9.702308405829972e-10_p 6760else if(N==9)then 6761x(1)=1.692176334349495e-1_p 6762w(1)=1.975514669429050e-1_p 6763x(2)=8.716448419223213e-1_p 6764w(2)=2.848149272192623e-1_p 6765x(3)=2.095919914044832_p 6766w(3)=1.629413743693064e-1_p 6767x(4)=3.871444549139930_p 6768w(4)=4.240317444163187e-2_p 6769x(5)=6.285160012270786_p 6770w(5)=5.147437279298788e-3_p 6771x(6)=9.449114143009451_p 6772w(6)=2.826433928762481e-4_p 6773x(7)=13.54047365083015_p 6774w(7)=6.118682320566103e-6_p 6775x(8)=18.90677834262067_p 6776w(8)=3.820173826214879e-8_p 6777x(9)=26.4465551425336_p 6778w(9)=3.060584517389215e-11_p 6779else if(N==10)then 6780x(1)=1.523935763598589e-1_p 6781w(1)=1.796818593186601e-1_p 6782x(2)=7.869403592271879e-1_p 6783w(2)=2.732916540455503e-1_p 6784x(3)=1.893320817998023_p 6785w(3)=1.755859710522999e-1_p 6786x(4)=3.486516058083401_p 6787w(4)=5.512470186086788e-2_p 6788x(5)=5.630201307150046_p 6789w(5)=8.737253435005771e-3_p 6790x(6)=8.403344459605853_p 6791w(6)=6.990323083359971e-4_p 6792x(7)=11.91484585682358_p 6793w(7)=2.631065415787850e-5_p 6794x(8)=16.3491709388166_p 6795w(8)=3.961677102784019e-7_p 6796x(9)=22.06577699881644_p 6797w(9)=1.716431779996861e-9_p 6798x(10)=29.98937490042952_p 6799w(10)=9.253522677688020e-13_p 6800else if(N==11)then 6801x(1)=1.385747378442940e-1_p 6802w(1)=1.647124596185756e-1_p 6803x(2)=7.170808382243067e-1_p 6804w(2)=2.616057689250482e-1_p 6805x(3)=1.726728853585884_p 6806w(3)=1.846308915722753e-1_p 6807x(4)=3.173429233501669_p 6808w(4)=6.747762704395904e-2_p 6809x(5)=5.104880356389756_p 6810w(5)=1.322609564367359e-2_p 6811x(6)=7.580631246985890_p 6812w(6)=1.412704959677264e-3_p 6813x(7)=10.67430672069099_p 6814w(7)=7.946631344137202e-5_p 6815x(8)=14.49871552104411_p 6816w(8)=2.143146050988891e-6_p 6817x(9)=19.24519259686949_p 6818w(9)=2.326500775314294e-8_p 6819x(10)=25.28352229712721_p 6820w(10)=7.220915732941059e-11_p 6821x(11)=33.56261367055433_p 6822w(11)=2.701061050019496e-14_p 6823else if(N==12)then 6824x(1)=1.270262753424029e-1_p 6825w(1)=1.520000238830440e-1_p 6826x(2)=6.584865938216736e-1_p 6827w(2)=2.501817487526245e-1_p 6828x(3)=1.587198672413710_p 6829w(3)=1.907829656912683e-1_p 6830x(4)=2.913311386299704_p 6831w(4)=7.906173787099657e-2_p 6832x(5)=4.672978572605234_p 6833w(5)=1.844157083709677e-2_p 6834x(6)=6.913204428829729_p 6835w(6)=2.481017134374080e-3_p 6836x(7)=9.687349591107623_p 6837w(7)=1.901195017269480e-4_p 6838x(8)=13.07071383562855_p 6839w(8)=7.839117874309118e-6_p 6840x(9)=17.18069423641608_p 6841w(9)=1.565081064762062e-7_p 6842x(10)=22.21438311037711_p 6843w(10)=1.259957690791670e-9_p 6844x(11)=28.55086639495061_p 6845w(11)=2.874824683596239e-12_p 6846x(12)=37.16171182861083_p 6847w(12)=7.653508235767676e-16_p 6848else if(N==13)then 6849x(1)=1.172341018310048e-1_p 6850w(1)=1.410762111497642e-1_p 6851x(2)=6.086441447662309e-1_p 6852w(2)=2.392391492940452e-1_p 6853x(3)=1.468559459638358_p 6854w(3)=1.946513897775082e-1_p 6855x(4)=2.693476208000259_p 6856w(4)=8.964971846235624e-2_p 6857x(5)=4.310928544363007_p 6858w(5)=2.418837612171095e-2_p 6859x(6)=6.359172528297489_p 6860w(6)=3.933551521492815e-3_p 6861x(7)=8.879024286051289_p 6862w(7)=3.860030342739448e-4_p 6863x(8)=11.92392146565029_p 6864w(8)=2.208283451679074e-5_p 6865x(9)=15.57240077218079_p 6866w(9)=6.878699011090878e-7_p 6867x(10)=19.94569845557895_p 6868w(10)=1.043054701830937e-8_p 6869x(11)=25.24591942776766_p 6870w(11)=6.371967305921315e-11_p 6871x(12)=31.86073577457862_p 6872w(12)=1.092006885081078e-13_p 6873x(13)=40.78310995749683_p 6874w(13)=2.114089657724995e-17_p 6875else if(N==14)then 6876x(1)=1.088279551691404e-1_p 6877w(1)=1.315925605666356e-1_p 6878x(2)=5.657359307176808e-1_p 6879w(2)=2.288805738177078e-1_p 6880x(3)=1.366405413254442_p 6881w(3)=1.967382499463331e-1_p 6882x(4)=2.505051688598354_p 6883w(4)=9.913844744896573e-2_p 6884x(5)=4.002633644072031_p 6885w(5)=3.027557543888319e-2_p 6886x(6)=5.890926112153244_p 6887w(6)=5.773367924256626e-3_p 6888x(7)=8.202511156759972_p 6889w(7)=6.944248563287938e-4_p 6890x(8)=10.97712765633433_p 6891w(8)=5.165572559321110e-5_p 6892x(9)=14.27048917140992_p 6893w(9)=2.269508204831061e-6_p 6894x(10)=18.16396757817548_p 6895w(10)=5.468095369785378e-8_p 6896x(11)=22.78203194614557_p 6897w(11)=6.430401985480557e-10_p 6898x(12)=28.33131809133604_p 6899w(12)=3.038534401047352e-12_p 6900x(13)=35.20753596275942_p 6901w(13)=3.982999083812457e-15_p 6902x(14)=44.42397040611259_p 6903w(14)=5.711860189500878e-19_p 6904else if(N==15)then 6905x(1)=1.015344947424082e-1_p 6906w(1)=1.232847930051944e-1_p 6907x(2)=5.284147334178626e-1_p 6908w(2)=2.191419693960622e-1_p 6909x(3)=1.277500608985740_p 6910w(3)=1.974473810321536e-1_p 6911x(4)=2.341631360175820_p 6912w(4)=1.075084928066252e-1_p 6913x(5)=3.736677838673561_p 6914w(5)=3.653196034048861e-2_p 6915x(6)=5.489384374387769_p 6916w(6)=7.981783672638808e-3_p 6917x(7)=7.626652177618869_p 6918w(7)=1.139263265855043e-3_p 6919x(8)=10.17917884716605_p 6920w(8)=1.052279928403015e-4_p 6921x(9)=13.18821869929745_p 6922w(9)=6.094811325272587e-6_p 6923x(10)=16.71169970119415_p 6924w(10)=2.102060824464642e-7_p 6925x(11)=20.83332592708516_p 6926w(11)=3.993479898278182e-9_p 6927x(12)=25.6804160618949_p 6928w(12)=3.706174790622195e-11_p 6929x(13)=31.46379247226527_p 6930w(13)=1.376768232920523e-13_p 6931x(14)=38.5867579870667_p 6932w(14)=1.402123870626300e-16_p 6933x(15)=48.08199052039756_p 6934w(15)=1.513547476275949e-20_p 6935else if(N==16)then 6936x(1)=9.514760195581037e-2_p 6937w(1)=1.159490407982464e-1_p 6938x(2)=4.956606748446008e-1_p 6939w(2)=2.100217560670347e-1_p 6940x(3)=1.199411336587502_p 6941w(3)=1.970991379895803e-1_p 6942x(4)=2.198464642407805_p 6943w(4)=1.147935229246652e-1_p 6944x(5)=3.504715741318919_p 6945w(5)=4.281293865813461e-2_p 6946x(6)=5.140866880105158_p 6947w(6)=1.052434095775765e-2_p 6948x(7)=7.129720645858495_p 6949w(7)=1.739006003613811e-3_p 6950x(8)=9.495767399383292_p 6951w(8)=1.927463155380731e-4_p 6952x(9)=12.27058743918371_p 6953w(9)=1.402702794217669e-5_p 6954x(10)=15.49720938515852_p 6955w(10)=6.457464349313414e-7_p 6956x(11)=19.23537257091838_p 6957w(11)=1.779804416729033e-8_p 6958x(12)=23.57078337207755_p 6959w(12)=2.709334507714500e-10_p 6960x(13)=28.63335157066905_p 6961w(13)=2.013927684770142e-12_p 6962x(14)=34.63781951229616_p 6963w(14)=5.964222600825111e-15_p 6964x(15)=41.99470904507229_p 6965w(15)=4.783666887739649e-18_p 6966x(16)=51.75527330299429_p 6967w(16)=3.942211078905222e-22_p 6968else if(N==17)then 6969x(1)=8.950895482544206e-2_p 6970w(1)=1.094256411339050e-1_p 6971x(2)=4.666874727997759e-1_p 6972w(2)=2.014978600488022e-1_p 6973x(3)=1.130269941213794_p 6974w(3)=1.959456614777226e-1_p 6975x(4)=2.071948969684054_p 6976w(4)=1.210584994219921e-1_p 6977x(5)=3.300492343911909_p 6978w(5)=4.900206004059156e-2_p 6979x(6)=4.835272010755396_p 6980w(6)=1.335656028278536e-2_p 6981x(7)=6.696009543592456_p 6982w(7)=2.505836088754779e-3_p 6983x(8)=8.902796769665928_p 6984w(8)=3.246760433668300e-4_p 6985x(9)=11.48047241627778_p 6986w(9)=2.864742435443103e-5_p 6987x(10)=14.46204383146127_p 6988w(10)=1.674871630331007e-6_p 6989x(11)=17.89201672044946_p 6990w(11)=6.231547361836524e-8_p 6991x(12)=21.83164841807303_p 6992w(12)=1.393233922578766e-9_p 6993x(13)=26.36843349333713_p 6994w(13)=1.722840332271432e-11_p 6995x(14)=31.63468149418602_p 6996w(14)=1.038917042059309e-13_p 6997x(15)=37.84883814183487_p 6998w(15)=2.482845129747591e-16_p 6999x(16)=45.4283227676358_p 7000w(16)=1.587179743967912e-19_p 7001x(17)=55.44223538443698_p 7002w(17)=1.011130648651416e-23_p 7003else 7004call GD(0) 7005end if 7006end subroutine GF_0 7007 7008! [1kT;infkT] 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.631825457147633_p 7014w(1)=2.640326502502725e-1_p 7015x(2)=4.490327172598123_p 7016w(2)=4.922903726795031e-2_p 7017else if(N==3)then 7018x(1)=1.446129770198734_p 7019w(1)=2.168209748212968e-1_p 7020x(2)=3.359537308471753_p 7021w(2)=9.283914357047311e-2_p 7022x(3)=7.347311682333117_p 7023w(3)=3.601569126452891e-3_p 7024else if(N==4)then 7025x(1)=1.344410627263788_p 7026w(1)=1.816945187097640e-1_p 7027x(2)=2.801542066030032_p 7028w(2)=1.178919783683790e-1_p 7029x(3)=5.589749957979830_p 7030w(3)=1.348615847299144e-2_p 7031x(4)=10.44295141644978_p 7032w(4)=1.890319670883401e-4_p 7033else if(N==5)then 7034x(1)=1.280244368915715_p 7035w(1)=1.556327068119685e-1_p 7036x(2)=2.461333257637843_p 7037w(2)=1.300826665044902e-1_p 7038x(3)=4.646266205134497_p 7039w(3)=2.626853870868262e-2_p 7040x(4)=8.130233969265630_p 7041w(4)=1.269535195894290e-3_p 7042x(5)=13.68303339164334_p 7043w(5)=8.240297187269972e-6_p 7044else if(N==6)then 7045x(1)=1.236106939096659_p 7046w(1)=1.358031882872357e-1_p 7047x(2)=2.230465782213953_p 7048w(2)=1.346609004494306e-1_p 7049x(3)=4.039605211255465_p 7050w(3)=3.904513391903808e-2_p 7051x(4)=6.817136815938837_p 7052w(4)=3.659861191043489e-3_p 7053x(5)=10.87683006080952_p 7054w(5)=9.228556483241816e-5_p 7055x(6)=17.02117190735555_p 7056w(6)=3.181066425819039e-7_p 7057else if(N==7)then 7058x(1)=1.203904985640319_p 7059w(1)=1.203051554269644e-1_p 7060x(2)=2.062987690895406_p 7061w(2)=1.349126990140938e-1_p 7062x(3)=3.611929318751232_p 7063w(3)=5.039601491048983e-2_p 7064x(4)=5.940505504576837_p 7065w(4)=7.261712187509977e-3_p 7066x(5)=9.219332615218041_p 7067w(5)=3.804650611132524e-4_p 7068x(6)=13.77012293571594_p 7069w(6)=5.629660540283936e-6_p 7070x(7)=20.43105126595995_p 7071w(7)=1.125751128597015e-8_p 7072else if(N==8)then 7073x(1)=1.179384458364056_p 7074w(1)=1.078995778025939e-1_p 7075x(2)=1.935751277265470_p 7076w(2)=1.327585957802792e-1_p 7077x(3)=3.292458449811021_p 7078w(3)=5.985641324145288e-2_p 7079x(4)=5.305339658128823_p 7080w(4)=1.172328923880719e-2_p 7081x(5)=8.081389357471338_p 7082w(5)=9.912435521841735e-4_p 7083x(6)=11.79256282332997_p 7084w(6)=3.226562701851471e-5_p 7085x(7)=16.77404531282744_p 7086w(7)=3.019028642939500e-7_p 7087x(8)=23.89609487559465_p 7088w(8)=3.730227669891089e-10_p 7089else if(N==9)then 7090x(1)=1.160096147612447_p 7091w(1)=9.776423787597080e-2_p 7092x(2)=1.835732869997467_p 7093w(2)=1.293098520758114e-1_p 7094x(3)=3.043974353313172_p 7095w(3)=6.743157061765180e-2_p 7096x(4)=4.820780150912666_p 7097w(4)=1.665727207745995e-2_p 7098x(5)=7.239091801372807_p 7099w(5)=1.987722351450495e-3_p 7100x(6)=10.40548472343024_p 7101w(6)=1.086687802250866e-4_p 7102x(7)=14.49797405132223_p 7103w(7)=2.349072190819031e-6_p 7104x(8)=19.8649078150593_p 7105w(8)=1.465572624072739e-8_p 7106x(9)=27.40509941979979_p 7107w(9)=1.173627886776425e-11_p 7108else if(N==10)then 7109x(1)=1.144530812733780_p 7110w(1)=8.933843382835734e-2_p 7111x(2)=1.755011534897136_p 7112w(2)=1.252121061736947e-1_p 7113x(3)=2.844809960886372_p 7114w(3)=7.331979499485602e-2_p 7115x(4)=4.437506058977834_p 7116w(4)=2.173904909683783e-2_p 7117x(5)=6.585526747756972_p 7118w(5)=3.373692854851474e-3_p 7119x(6)=9.361372839917882_p 7120w(6)=2.683746983951595e-4_p 7121x(7)=12.87414959116489_p 7122w(7)=1.008350626911651e-5_p 7123x(8)=17.30915882514746_p 7124w(8)=1.517076368531481e-7_p 7125x(9)=23.02619484044726_p 7126w(9)=6.569702625157694e-10_p 7127x(10)=30.95009818115675_p 7128w(10)=3.540644236824984e-13_p 7129else if(N==11)then 7130x(1)=1.131708020045589_p 7131w(1)=8.222909694548738e-2_p 7132x(2)=1.688480843772763_p 7133w(2)=1.208422552811536e-1_p 7134x(3)=2.681411069530446_p 7135w(3)=7.777604400328791e-2_p 7136x(4)=4.126035124891367_p 7137w(4)=2.673148338719774e-2_p 7138x(5)=6.061382008798081_p 7139w(5)=5.109768012095561e-3_p 7140x(6)=8.540037609223283_p 7141w(6)=5.418007458411510e-4_p 7142x(7)=11.6351439793436_p 7143w(7)=3.041082082501006e-5_p 7144x(8)=15.46030194185222_p 7145w(8)=8.194043001950059e-7_p 7146x(9)=20.20723608349648_p 7147w(9)=8.890439583069598e-9_p 7148x(10)=26.24587683780739_p 7149w(10)=2.758440293881416e-11_p 7150x(11)=34.52520161824585_p 7151w(11)=1.031565505874829e-14_p 7152else if(N==12)then 7153x(1)=1.120963361531172_p 7154w(1)=7.615355128545444e-2_p 7155x(2)=1.632695779808703_p 7156w(2)=1.164201470400979e-1_p 7157x(3)=2.544828192604971_p 7158w(3)=8.105105605378533e-2_p 7159x(4)=3.867511931019000_p 7160w(4)=3.147771327378453e-2_p 7161x(5)=5.630511510350205_p 7162w(5)=7.132645671571423e-3_p 7163x(6)=7.873769228424456_p 7164w(6)=9.508531512809259e-4_p 7165x(7)=10.64950229572174_p 7166w(7)=7.266771299970772e-5_p 7167x(8)=14.03368862492925_p 7168w(8)=2.993123762985969e-6_p 7169x(9)=18.14415838031072_p 7170w(9)=5.972376167591018e-8_p 7171x(10)=23.17817294556086_p 7172w(10)=4.806273127509273e-10_p 7173x(11)=29.51489068943418_p 7174w(11)=1.096359995651083e-12_p 7175x(12)=38.12591971469993_p 7176w(12)=2.918215713591543e-16_p 7177else if(N==13)then 7178x(1)=1.111830718702915_p 7179w(1)=7.090379901940640e-2_p 7180x(2)=1.585245657785080_p 7181w(2)=1.120725724253825e-1_p 7182x(3)=2.428897188478961_p 7183w(3)=8.336770990717048e-2_p 7184x(4)=3.649252346974097_p 7185w(4)=3.588412902000854e-2_p 7186x(5)=5.269398546209541_p 7187w(5)=9.370424072639416e-3_p 7188x(6)=7.320723718302037_p 7189w(6)=1.506975509206342e-3_p 7190x(7)=9.842313490077471_p 7191w(7)=1.473896823571272e-4_p 7192x(8)=12.88811220569236_p 7193w(8)=8.421715250086878e-6_p 7194x(9)=16.53711689632826_p 7195w(9)=2.621686293425533e-7_p 7196x(10)=20.91075823347651_p 7197w(10)=3.973861378351321e-9_p 7198x(11)=26.21122197282972_p 7199w(11)=2.426964004057320e-11_p 7200x(12)=32.82622068507959_p 7201w(12)=4.158435210687702e-14_p 7202x(13)=41.74874266854479_p 7203w(13)=8.049334778262508e-18_p 7204else if(N==14)then 7205x(1)=1.103973486089625_p 7206w(1)=6.632364114556119e-2_p 7207x(2)=1.544392005882057_p 7208w(2)=1.078705222263859e-1_p 7209x(3)=2.329225223256199_p 7210w(3)=8.491468767514575e-2_p 7211x(4)=3.462379817362143_p 7212w(4)=3.990303435373736e-2_p 7213x(5)=4.961981080845175_p 7214w(5)=1.175261632870806e-2_p 7215x(6)=6.853329549996070_p 7216w(6)=2.211681683071360e-3_p 7217x(7)=9.166788449313252_p 7218w(7)=2.649393268414414e-4_p 7219x(8)=11.94239075428618_p 7220w(8)=1.967968765124483e-5_p 7221x(9)=15.23631706407013_p 7222w(9)=8.640361307923302e-7_p 7223x(10)=19.13015904770709_p 7224w(10)=2.080918819762618e-8_p 7225x(11)=23.74847698286029_p 7226w(11)=2.446441993037409e-10_p 7227x(12)=29.29795029535154_p 7228w(12)=1.155773405465745e-12_p 7229x(13)=36.17431360147533_p 7230w(13)=1.514786078108285e-15_p 7231x(14)=45.39086932578818_p 7232w(14)=2.172016811566946e-19_p 7233else if(N==15)then 7234x(1)=1.097142548658342_p 7235w(1)=6.229363529359060e-2_p 7236x(2)=1.508849023324746_p 7237w(2)=1.038512514072469e-1_p 7238x(3)=2.242592503122460_p 7239w(3)=8.584761837550219e-2_p 7240x(4)=3.300481076537485_p 7241w(4)=4.351823493146953e-2_p 7242x(5)=4.696865992236480_p 7243w(5)=1.421572753569841e-2_p 7244x(6)=6.452536258143514_p 7245w(6)=3.058388884863591e-3_p 7246x(7)=8.591793672208789_p 7247w(7)=4.343778345585383e-4_p 7248x(8)=11.14539310732393_p 7249w(8)=4.005367538200040e-5_p 7250x(9)=14.15504039067419_p 7251w(9)=2.318132949087763e-6_p 7252x(10)=17.67890646094952_p 7253w(10)=7.991505876450381e-8_p 7254x(11)=21.80079832644351_p 7255w(11)=1.517768116346525e-9_p 7256x(12)=26.64808244878951_p 7257w(12)=1.408275285315510e-11_p 7258x(13)=32.43160703760337_p 7259w(13)=5.230621131029297e-14_p 7260x(14)=39.55469092619757_p 7261w(14)=5.326283364834755e-17_p 7262x(15)=49.05002458388863_p 7263w(15)=5.748941280364384e-21_p 7264else if(N==16)then 7265x(1)=1.091149614938640_p 7266w(1)=5.872096275593369e-2_p 7267x(2)=1.477644994779333_p 7268w(2)=1.000315569394808e-1_p 7269x(3)=2.166582595843798_p 7270w(3)=8.629302846622064e-2_p 7271x(4)=3.158798738914707_p 7272w(4)=4.673411261706234e-2_p 7273x(5)=4.465722500680142_p 7274w(5)=1.670573408762656e-2_p 7275x(6)=6.104687621589759_p 7276w(6)=4.034664320809328e-3_p 7277x(7)=8.095622609997658_p 7278w(7)=6.627362886213111e-4_p 7279x(8)=10.46282939206236_p 7280w(8)=7.330942292623787e-5_p 7281x(9)=13.23830250159561_p 7282w(9)=5.330482966275387e-6_p 7283x(10)=16.46533249074774_p 7284w(10)=2.452748326235921e-7_p 7285x(11)=20.20377424639546_p 7286w(11)=6.758122754164373e-9_p 7287x(12)=24.53938681479589_p 7288w(12)=1.028536366549980e-10_p 7289x(13)=29.60210763483169_p 7290w(13)=7.644147745905128e-13_p 7291x(14)=35.6066954366253_p 7292w(14)=2.263515425319883e-15_p 7293x(15)=42.96368297005754_p 7294w(15)=1.815288378228604e-18_p 7295x(16)=52.72433270022925_p 7296w(16)=1.495842215399052e-22_p 7297else if(N==17)then 7298x(1)=1.085849737726306_p 7299w(1)=5.553244849785476e-2_p 7300x(2)=1.450031775500649_p 7301w(2)=9.641587972054798e-2_p 7302x(3)=2.099345049160424_p 7303w(3)=8.635296561049692e-2_p 7304x(4)=3.033724436993589_p 7305w(4)=4.956776780414940e-2_p 7306x(5)=4.262304419855115_p 7307w(5)=1.917863380006429e-2_p 7308x(6)=5.799701219280963_p 7309w(6)=5.124365622778747e-3_p 7310x(7)=7.662585079210328_p 7311w(7)=9.546834350326389e-4_p 7312x(8)=9.870617458786562_p 7313w(8)=1.234052139351636e-4_p 7314x(9)=12.44899443308057_p 7315w(9)=1.087798709578606e-5_p 7316x(10)=15.43099836206934_p 7317w(10)=6.356491185657155e-7_p 7318x(11)=18.8612634653133_p 7319w(11)=2.364211451957453e-8_p 7320x(12)=22.80110528309696_p 7321w(12)=5.284608648244445e-10_p 7322x(13)=27.33804820611652_p 7323w(13)=6.533697397276202e-12_p 7324x(14)=32.60441901605714_p 7325w(14)=3.939467770554742e-14_p 7326x(15)=38.81867436101819_p 7327w(15)=9.413710111115469e-17_p 7328x(16)=46.39824129788396_p 7329w(16)=6.017273390493764e-20_p 7330x(17)=56.4122270082702_p 7331w(17)=3.833079647132000e-24_p 7332else 7333call GD(1) 7334end if 7335end subroutine GF_1 7336 7337! [2kT;infkT] 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.604167183757946_p 7343w(1)=1.077990760637123e-1_p 7344x(2)=5.444197002537470_p 7345w(2)=1.912893497926020e-2_p 7346else if(N==3)then 7347x(1)=2.427959798575556_p 7348w(1)=8.929229892218352e-2_p 7349x(2)=4.320004818778931_p 7350w(2)=3.626216334939591e-2_p 7351x(3)=8.312536492313045_p 7352w(3)=1.373548771393071e-3_p 7353else if(N==4)then 7354x(1)=2.331363065401635_p 7355w(1)=7.537002832017947e-2_p 7356x(2)=3.767797750350079_p 7357w(2)=4.634390542961134e-2_p 7358x(3)=6.557513466350604_p 7359w(3)=5.142468686773940e-3_p 7360x(4)=11.41393881959208_p 7361w(4)=7.160860640774651e-5_p 7362else if(N==5)then 7363x(1)=2.270311610079028_p 7364w(1)=6.493878441001875e-2_p 7365x(2)=3.432389196057478_p 7366w(2)=5.147291798541093e-2_p 7367x(3)=5.616011515544880_p 7368w(3)=1.003308004038921e-2_p 7369x(4)=9.103299324639670_p 7370w(4)=4.801182599692678e-4_p 7371x(5)=14.65744805016286_p 7372w(5)=3.110347184336294e-6_p 7373else if(N==6)then 7374x(1)=2.228228116104285_p 7375w(1)=5.693640428691236e-2_p 7376x(2)=3.205430371603062_p 7377w(2)=5.361990880403181e-2_p 7378x(3)=5.011153949204796_p 7379w(3)=1.495369560255635e-2_p 7380x(4)=7.791660599132540_p 7381w(4)=1.383105794048266e-3_p 7382x(5)=11.85297509986655_p 7383w(5)=3.477677685874437e-5_p 7384x(6)=17.9979725593116_p 7385w(6)=1.197785649633325e-7_p 7386else if(N==7)then 7387x(1)=2.197462222157174_p 7388w(1)=5.063880081841453e-2_p 7389x(2)=3.041132278656752_p 7390w(2)=5.403374976991079e-2_p 7391x(3)=4.585196649846221_p 7392w(3)=1.936573931420941e-2_p 7393x(4)=6.916133137458679_p 7394w(4)=2.744392750696529e-3_p 7395x(5)=10.19679278929976_p 7396w(5)=1.432073261981279e-4_p 7397x(6)=14.74834545343288_p 7398w(6)=2.116832422112686e-6_p 7399x(7)=21.40965509031545_p 7400w(7)=4.231121004054822e-9_p 7401else if(N==8)then 7402x(1)=2.173991143106510_p 7403w(1)=4.556843101009667e-2_p 7404x(2)=2.916499542657732_p 7405w(2)=5.345488957306401e-2_p 7406x(3)=4.267367215475987_p 7407w(3)=2.308625427645942e-2_p 7408x(4)=6.281876027396669_p 7409w(4)=4.433387361655760e-3_p 7410x(5)=9.059869105002445_p 7411w(5)=3.728163385490518e-4_p 7412x(6)=12.77192946675603_p 7413w(6)=1.211900537379581e-5_p 7414x(7)=17.75383114277978_p 7415w(7)=1.133377757943168e-7_p 7416x(8)=24.87612921562634_p 7417w(8)=1.399980000475311e-10_p 7418else if(N==9)then 7419x(1)=2.155496708457618_p 7420w(1)=4.140535901473420e-2_p 7421x(2)=2.818632361412937_p 7422w(2)=5.231904760694379e-2_p 7423x(3)=4.020436760190826_p 7424w(3)=2.610832539734941e-2_p 7425x(4)=5.798120151721728_p 7426w(4)=6.306337423498786e-3_p 7427x(5)=8.218381675092825_p 7428w(5)=7.472744878751244e-4_p 7429x(6)=11.38578458149232_p 7430w(6)=4.078059502397447e-5_p 7431x(7)=15.47874416864005_p 7432w(7)=8.810181885384596e-7_p 7433x(8)=20.84594113617331_p 7434w(8)=5.494959166876677e-9_p 7435x(9)=28.38630673852454_p 7436w(9)=4.399511300145134e-12_p 7437else if(N==10)then 7438x(1)=2.140548799167912_p 7439w(1)=3.792964489882648e-2_p 7440x(2)=2.739705961209696_p 7441w(2)=5.088440474484408e-2_p 7442x(3)=3.822728818760103_p 7443w(3)=2.849873841084468e-2_p 7444x(4)=5.415592864654275_p 7445w(4)=8.242596969895630e-3_p 7446x(5)=7.565479209433001_p 7447w(5)=1.268144551094684e-3_p 7448x(6)=10.34244362722613_p 7449w(6)=1.006456224383602e-4_p 7450x(7)=13.85574906643519_p 7451w(7)=3.778765982020367e-6_p 7452x(8)=18.29104365425896_p 7453w(8)=5.683284876807739e-8_p 7454x(9)=24.00825958949367_p 7455w(9)=2.460651929143673e-10_p 7456x(10)=31.93229097531508_p 7457w(10)=1.325947783205479e-13_p 7458else if(N==11)then 7459x(1)=2.128217242207024_p 7460w(1)=3.498603450482291e-2_p 7461x(2)=2.674687520106045_p 7462w(2)=4.930522584139656e-2_p 7463x(3)=3.660684980718251_p 7464w(3)=3.034735467993536e-2_p 7465x(4)=5.104836271364089_p 7466w(4)=1.015365637763333e-2_p 7467x(5)=7.041894061282068_p 7468w(5)=1.920959770559078e-3_p 7469x(6)=9.521752701664351_p 7470w(6)=2.030811352829479e-4_p 7471x(7)=12.61745018381991_p 7472w(7)=1.138865091867864e-5_p 7473x(8)=16.44291962344799_p 7474w(8)=3.067446777729808e-7_p 7475x(9)=21.19004458509064_p 7476w(9)=3.327419482130404e-9_p 7477x(10)=27.22881548469999_p 7478w(10)=1.032251920019247e-11_p 7479x(11)=35.50823805722698_p 7480w(11)=3.859875549614891e-15_p 7481else if(N==12)then 7482x(1)=2.117870908201984_p 7483w(1)=3.246220273959290e-2_p 7484x(2)=2.620188328384834_p 7485w(2)=4.767409600222394e-2_p 7486x(3)=3.525356201748456_p 7487w(3)=3.174423670780796e-2_p 7488x(4)=4.847006138575543_p 7489w(4)=1.198045555261701e-2_p 7490x(5)=6.611511940256212_p 7491w(5)=2.682404730646144e-3_p 7492x(6)=8.856029082485087_p 7493w(6)=3.562749393739243e-4_p 7494x(7)=11.6324163744062_p 7495w(7)=2.719807266492540e-5_p 7496x(8)=15.01694341669643_p 7497w(8)=1.119779490590805e-6_p 7498x(9)=19.12761699722076_p 7499w(9)=2.233840386193687e-8_p 7500x(10)=24.16176758075082_p 7501w(10)=1.797411604460484e-10_p 7502x(11)=30.49858339741751_p 7503w(11)=4.099642544382726e-13_p 7504x(12)=39.10968930240404_p 7505w(12)=1.091125289562045e-16_p 7506else if(N==13)then 7507x(1)=2.109066486772597_p 7508w(1)=3.027506029300914e-2_p 7509x(2)=2.573841008824670_p 7510w(2)=4.604641639158882e-2_p 7511x(3)=3.410581989010161_p 7512w(3)=3.277049047501436e-2_p 7513x(4)=4.629422571269727_p 7514w(4)=1.368714918255022e-2_p 7515x(5)=6.250838529541559_p 7516w(5)=3.525986431873108e-3_p 7517x(6)=8.303449900341318_p 7518w(6)=5.645210331152620e-4_p 7519x(7)=10.82575449370919_p 7520w(7)=5.513874025208245e-5_p 7521x(8)=13.87192571060391_p 7522w(8)=3.148998085608541e-6_p 7523x(9)=17.52114871616296_p 7524w(9)=9.800314125573227e-8_p 7525x(10)=21.89493331517639_p 7526w(10)=1.485257172982489e-9_p 7527x(11)=27.19549844724479_p 7528w(11)=9.069929581410528e-12_p 7529x(12)=33.81057341904142_p 7530w(12)=1.553942279484815e-14_p 7531x(13)=42.73315726425659_p 7532w(13)=3.007713645100045e-18_p 7533else if(N==14)then 7534x(1)=2.101483467109804_p 7535w(1)=2.836191630154691e-2_p 7536x(2)=2.533940671994059_p 7537w(2)=4.445485456021889e-2_p 7538x(3)=3.311975057475479_p 7539w(3)=3.349554180432016e-2_p 7540x(4)=4.443209811422312_p 7541w(4)=1.525478813150826e-2_p 7542x(5)=5.943827324570010_p 7543w(5)=4.425720563501691e-3_p 7544x(6)=7.836460324487856_p 7545w(6)=8.284285975559549e-4_p 7546x(7)=10.15068932061175_p 7547w(7)=9.907537232258721e-5_p 7548x(8)=12.92669780122612_p 7549w(8)=7.355016899458846e-6_p 7550x(9)=16.22085823762439_p 7551w(9)=3.228297003920107e-7_p 7552x(10)=20.11485151747254_p 7553w(10)=7.773586144689158e-9_p 7554x(11)=24.73327520054348_p 7555w(11)=9.137980600663726e-11_p 7556x(12)=30.28282667863103_p 7557w(12)=4.316692907051264e-13_p 7558x(13)=37.15925078218692_p 7559w(13)=5.657200513132989e-16_p 7560x(14)=46.37585724560678_p 7561w(14)=8.111295785660345e-20_p 7562else if(N==15)then 7563x(1)=2.094884378812865_p 7564w(1)=2.667463050771931e-2_p 7565x(2)=2.499227800169955_p 7566w(2)=4.291802441637896e-2_p 7567x(3)=3.226322106555470_p 7568w(3)=3.397724844834713e-2_p 7569x(4)=4.281953875925048_p 7570w(4)=1.667607934515250e-2_p 7571x(5)=5.679095788789033_p 7572w(5)=5.358172418648751e-3_p 7573x(6)=7.436023175443120_p 7574w(6)=1.145609946480484e-3_p 7575x(7)=9.576098432126917_p 7576w(7)=1.623865195652016e-4_p 7577x(8)=12.13013878762318_p 7578w(8)=1.496329212665650e-5_p 7579x(9)=15.14003726121159_p 7580w(9)=8.657368579404555e-7_p 7581x(10)=18.66406328162769_p 7582w(10)=2.983976426106656e-8_p 7583x(11)=22.7860657709008_p 7584w(11)=5.666544678894614e-10_p 7585x(12)=27.63343080658401_p 7586w(12)=5.257290509591858e-12_p 7587x(13)=33.41701726975307_p 7588w(13)=1.952534775894327e-14_p 7589x(14)=40.54015062802455_p 7590w(14)=1.988140121909904e-17_p 7591x(15)=50.03552657450839_p 7592w(15)=2.145810343048945e-21_p 7593else if(N==16)then 7594x(1)=2.089089539728724_p 7595w(1)=2.517565137505315e-2_p 7596x(2)=2.468751445736048_p 7597w(2)=4.144579015020391e-2_p 7598x(3)=3.151213507345833_p 7599w(3)=3.426312384429561e-2_p 7600x(4)=4.140896162460901_p 7601w(4)=1.795141429192757e-2_p 7602x(5)=5.448320208485168_p 7603w(5)=6.303358104291060e-3_p 7604x(6)=7.088492805318612_p 7605w(6)=1.511516994065375e-3_p 7606x(7)=9.080284312907589_p 7607w(7)=2.476951831740271e-4_p 7608x(8)=11.44796692102575_p 7609w(8)=2.737705106004491e-5_p 7610x(9)=14.2237094460309_p 7611w(9)=1.989942050620465e-6_p 7612x(10)=17.45090861709747_p 7613w(10)=9.154612113816486e-8_p 7614x(11)=21.18946621658074_p 7615w(11)=2.522063543021801e-9_p 7616x(12)=25.52516284233871_p 7617w(12)=3.838038236696373e-11_p 7618x(13)=30.5879473235679_p 7619w(13)=2.852257723930819e-13_p 7620x(14)=36.59258516629779_p 7621w(14)=8.445394612479866e-16_p 7622x(15)=43.9496136429925_p 7623w(15)=6.772723591954544e-19_p 7624x(16)=53.71029910271984_p 7625w(16)=5.580682272642912e-23_p 7626else if(N==17)then 7627x(1)=2.083960489474742_p 7628w(1)=2.383527301637595e-2_p 7629x(2)=2.441780029132626_p 7630w(2)=4.004255703493441e-2_p 7631x(3)=3.084805527505249_p 7632w(3)=3.439187440885615e-2_p 7633x(4)=4.016427094000594_p 7634w(4)=1.908600789229957e-2_p 7635x(5)=5.245258991938815_p 7636w(5)=7.244941197712563e-3_p 7637x(6)=6.783795181382604_p 7638w(6)=1.920234093837691e-3_p 7639x(7)=8.647564267111969_p 7640w(7)=3.567472575271681e-4_p 7641x(8)=10.85610661371349_p 7642w(8)=4.607051959658207e-5_p 7643x(9)=13.43477224240858_p 7644w(9)=4.059442573105106e-6_p 7645x(10)=16.41695516328348_p 7646w(10)=2.371600624810172e-7_p 7647x(11)=19.84734161166365_p 7648w(11)=8.819623508918393e-9_p 7649x(12)=23.78727086409174_p 7650w(12)=1.971216334487823e-10_p 7651x(13)=28.32427956038993_p 7652w(13)=2.436965113300854e-12_p 7653x(14)=33.59070159405694_p 7654w(14)=1.469277909219673e-14_p 7655x(15)=39.80499813673207_p 7656w(15)=3.510817306523202e-17_p 7657x(16)=47.38459945207035_p 7658w(16)=2.244044518238012e-20_p 7659x(17)=57.39861570652735_p 7660w(17)=1.429439413608321e-24_p 7661else 7662call GD(2) 7663end if 7664end subroutine GF_2 7665 7666! [3kT;infkT] 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.592777482481761_p 7672w(1)=4.139326979111708e-2_p 7673x(2)=6.425554897065060_p 7674w(2)=7.194081782624971e-3_p 7675else if(N==3)then 7676x(1)=3.420419578026696_p 7677w(1)=3.440930298480709e-2_p 7678x(2)=5.304013104946703_p 7679w(2)=1.366534910583379e-2_p 7680x(3)=9.298489428375097_p 7681w(3)=5.126994831011750e-4_p 7682else if(N==4)then 7683x(1)=3.325914347303423_p 7684w(1)=2.913198180995831e-2_p 7685x(2)=4.754105684656246_p 7686w(2)=1.750944830184729e-2_p 7687x(3)=7.544517698839821_p 7688w(3)=1.919264317268226e-3_p 7689x(4)=12.40220885070952_p 7690w(4)=2.665714466823139e-5_p 7691else if(N==5)then 7692x(1)=3.266142562895556_p 7693w(1)=2.516203837161066e-2_p 7694x(2)=4.420600245752952_p 7695w(2)=1.949879018741334e-2_p 7696x(3)=6.603826710378993_p 7697w(3)=3.746761912953112e-3_p 7698x(4)=10.09242385850943_p 7699w(4)=1.786049153380387e-4_p 7700x(5)=15.6470994130527_p 7701w(5)=1.156186426907988e-6_p 7702else if(N==6)then 7703x(1)=3.224907467409672_p 7704w(1)=2.210605152435183e-2_p 7705x(2)=4.195193239226616_p 7706w(2)=2.036389570729541e-2_p 7707x(3)=5.999695646727879_p 7708w(3)=5.590087193796250e-3_p 7709x(4)=8.781387366143313_p 7710w(4)=5.143540177987547e-4_p 7711x(5)=12.84333355998581_p 7712w(5)=1.291864989284971e-5_p 7713x(6)=18.98858696389288_p 7714w(6)=4.448060695499855e-8_p 7715else if(N==7)then 7716x(1)=3.194737504400996_p 7717w(1)=1.969414075538954e-2_p 7718x(2)=4.032161338348158_p 7719w(2)=2.056989706761946e-2_p 7720x(3)=5.574422499362289_p 7721w(3)=7.248779787786367e-3_p 7722x(4)=7.906316278711023_p 7723w(4)=1.020574552807710e-3_p 7724x(5)=11.18768986565015_p 7725w(5)=5.317218409962793e-5_p 7726x(6)=15.73953933268312_p 7727w(6)=7.856559414237960e-7_p 7728x(7)=22.40099782781274_p 7729w(7)=1.570097930459758e-9_p 7730else if(N==8)then 7731x(1)=3.171703655418446_p 7732w(1)=1.774747590596954e-2_p 7733x(2)=3.908568951983391_p 7734w(2)=2.039409191163830e-2_p 7735x(3)=5.257241696211993_p 7736w(3)=8.653832237223562e-3_p 7737x(4)=7.272433528557709_p 7738w(4)=1.649033571018669e-3_p 7739x(5)=10.05118505024312_p 7740w(5)=1.383799464193231e-4_p 7741x(6)=13.76358995756068_p 7742w(6)=4.495911744121850e-6_p 7743x(7)=18.74565495255004_p 7744w(7)=4.203780790098878e-8_p 7745x(8)=25.86805001710151_p 7746w(8)=5.192063619202114e-11_p 7747else if(N==9)then 7748x(1)=3.153541110052763_p 7749w(1)=1.614577982068474e-2_p 7750x(2)=3.811564502539182_p 7751w(2)=2.000071973428951e-2_p 7752x(3)=5.010922692779316_p 7753w(3)=9.801432073054292e-3_p 7754x(4)=6.789006244741636_p 7755w(4)=2.346651806808376e-3_p 7756x(5)=9.210031478519275_p 7757w(5)=2.773160580994178e-4_p 7758x(6)=12.3778261945391_p 7759w(6)=1.512339443591519e-5_p 7760x(7)=16.47096863877549_p 7761w(7)=3.266476595601581e-7_p 7762x(8)=21.83826818490173_p 7763w(8)=2.037079397709989e-9_p 7764x(9)=29.3787016754275_p 7765w(9)=1.630855572386299e-12_p 7766else if(N==10)then 7767x(1)=3.138852096867737_p 7768w(1)=1.480609307442752e-2_p 7769x(2)=3.733360580643016_p 7770w(2)=1.948783738896570e-2_p 7771x(3)=4.813786895569073_p 7772w(3)=1.071524236247133e-2_p 7773x(4)=6.406781542641570_p 7774w(4)=3.068866008984038e-3_p 7775x(5)=8.557402675008353_p 7776w(5)=4.705772956252572e-4_p 7777x(6)=11.33480067902188_p 7778w(6)=3.731372978373501e-5_p 7779x(7)=14.84831131708381_p 7780w(7)=1.400560508183006e-6_p 7781x(8)=19.28371695719835_p 7782w(8)=2.106174476472109e-8_p 7783x(9)=25.00100301312996_p 7784w(9)=9.118239714820968e-11_p 7785x(10)=32.92508434190673_p 7786w(10)=4.913191678598642e-14_p 7787else if(N==11)then 7788x(1)=3.126727065760888_p 7789w(1)=1.366968656487091e-2_p 7790x(2)=3.668952984478016_p 7791w(2)=1.891455605270004e-2_p 7792x(3)=4.652275155473134_p 7793w(3)=1.142772116879230e-2_p 7794x(4)=6.096311831091350_p 7795w(4)=3.782936704756689e-3_p 7796x(5)=8.034048783727487_p 7797w(5)=7.128413983096925e-4_p 7798x(6)=10.51437396778257_p 7799w(6)=7.527488735592071e-5_p 7800x(7)=13.61030051253688_p 7801w(7)=4.219917018359063e-6_p 7802x(8)=17.43589099650412_p 7803w(8)=1.136434673648487e-7_p 7804x(9)=22.18309024729134_p 7805w(9)=1.232645581352173e-9_p 7806x(10)=28.22191186296971_p 7807w(10)=3.823773228654498e-12_p 7808x(11)=36.50137256700256_p 7809w(11)=1.429756052953779e-15_p 7810else if(N==12)then 7811x(1)=3.116548587180367_p 7812w(1)=1.269396308466115e-2_p 7813x(2)=3.614974940995369_p 7814w(2)=1.831673246959881e-2_p 7815x(3)=4.517439098842976_p 7816w(3)=1.197164533685451e-2_p 7817x(4)=5.838757925963275_p 7818w(4)=4.466950674183615e-3_p 7819x(5)=7.603868203230765_p 7820w(5)=9.955235551959397e-4_p 7821x(6)=9.848874266050666_p 7822w(6)=1.320378200681063e-4_p 7823x(7)=12.62551476013824_p 7824w(7)=1.007554030403995e-5_p 7825x(8)=16.01017401880815_p 7826w(8)=4.147530419259056e-7_p 7827x(9)=20.12092686720093_p 7828w(9)=8.273118172949891e-9_p 7829x(10)=25.15513041009295_p 7830w(10)=6.656393382820364e-11_p 7831x(11)=31.49198443854532_p 7832w(11)=1.518166481265812e-13_p 7833x(12)=40.1031203124655_p 7834w(12)=4.040491148440750e-17_p 7835else if(N==13)then 7836x(1)=3.107882768164613_p 7837w(1)=1.184734223193252e-2_p 7838x(2)=3.569075989269102_p 7839w(2)=1.771611148733355e-2_p 7840x(3)=4.403119905459755_p 7841w(3)=1.237668166877001e-2_p 7842x(4)=5.621442160024117_p 7843w(4)=5.107528229129483e-3_p 7844x(5)=7.243375579241824_p 7845w(5)=1.308868748909872e-3_p 7846x(6)=9.296487184255287_p 7847w(6)=2.091941022014954e-4_p 7848x(7)=11.81906819390493_p 7849w(7)=2.042217151796716e-5_p 7850x(8)=14.86538376352692_p 7851w(8)=1.166093165520775e-6_p 7852x(9)=18.51469158093371_p 7853w(9)=3.628750813194222e-8_p 7854x(10)=22.88853191337769_p 7855w(10)=5.499097944800237e-10_p 7856x(11)=28.18913652261747_p 7857w(11)=3.357955087075914e-12_p 7858x(12)=34.80424120210733_p 7859w(12)=5.752968145401771e-15_p 7860x(13)=43.7268491558621_p 7861w(13)=1.113480167531876e-18_p 7862else if(N==14)then 7863x(1)=3.100415761358047_p 7864w(1)=1.110594917602239e-2_p 7865x(2)=3.529564395547654_p 7866w(2)=1.712574640286623e-2_p 7867x(3)=4.304932556158708_p 7868w(3)=1.266833257462505e-2_p 7869x(4)=5.435489557290837_p 7870w(4)=5.697505225095722e-3_p 7871x(5)=6.936530663304787_p 7872w(5)=1.643308543201237e-3_p 7873x(6)=8.829664574279505_p 7874w(6)=3.069747886224050e-4_p 7875x(7)=11.14419122632296_p 7876w(7)=3.668936320145681e-5_p 7877x(8)=13.92035690855301_p 7878w(8)=2.723079191887023e-6_p 7879x(9)=17.21460820054421_p 7880w(9)=1.195093956125042e-7_p 7881x(10)=21.10866029117819_p 7882w(10)=2.877535704874063e-9_p 7883x(11)=25.7271251190674_p 7884w(11)=3.382436943741719e-11_p 7885x(12)=31.27670702881623_p 7886w(12)=1.597777440298316e-13_p 7887x(13)=38.15315481257046_p 7888w(13)=2.093898974514955e-16_p 7889x(14)=47.36978104522365_p 7890w(14)=3.002170460822529e-20_p 7891else if(N==15)then 7892x(1)=3.093914929328384_p 7893w(1)=1.045141768257969e-2_p 7894x(2)=3.495190969648343_p 7895w(2)=1.655327246607173e-2_p 7896x(3)=4.219666300175089_p 7897w(3)=1.286793506266515e-2_p 7898x(4)=5.274486231429704_p 7899w(4)=6.234013018622815e-3_p 7900x(5)=6.671955228211445_p 7901w(5)=1.990210419140642e-3_p 7902x(6)=8.429374559893459_p 7903w(6)=4.245055940313680e-4_p 7904x(7)=10.5697659139508_p 7905w(7)=6.012666309836359e-5_p 7906x(8)=13.12397672635341_p 7907w(8)=5.538980491384396e-6_p 7908x(9)=16.1339725708816_p 7909w(9)=3.204317054801222e-7_p 7910x(10)=19.6580607148358_p 7911w(10)=1.104367435838852e-8_p 7912x(11)=23.78010621755156_p 7913w(11)=2.097082802773619e-10_p 7914x(12)=28.62750273642902_p 7915w(12)=1.945558389426805e-12_p 7916x(13)=34.41111328646148_p 7917w(13)=7.225531843467786e-15_p 7918x(14)=41.53426590961458_p 7919w(14)=7.357142298554932e-18_p 7920x(15)=51.02965832932762_p 7921w(15)=7.940466138588236e-22_p 7922else if(N==16)then 7923x(1)=3.088204171184394_p 7924w(1)=9.869398128907849e-3_p 7925x(2)=3.465012949317233_p 7926w(2)=1.600291885212500e-2_p 7927x(3)=4.144914134078348_p 7928w(3)=1.299307872413702e-2_p 7929x(4)=5.133673400539460_p 7930w(4)=6.717023824178929e-3_p 7931x(5)=6.441328483979043_p 7932w(5)=2.342207630721952e-3_p 7933x(6)=8.081975708201528_p 7934w(6)=5.601161818791521e-4_p 7935x(7)=10.07409838253435_p 7936w(7)=9.170431384583882e-5_p 7937x(8)=12.44196476911248_p 7938w(8)=1.013268574717955e-5_p 7939x(9)=15.21781161727535_p 7940w(9)=7.364092358799221e-7_p 7941x(10)=18.44507644274188_p 7942w(10)=3.387544737653386e-8_p 7943x(11)=22.18367905599239_p 7944w(11)=9.332091076119410e-10_p 7945x(12)=26.51940837006189_p 7946w(12)=1.420092292832554e-11_p 7947x(13)=31.5822176213027_p 7948w(13)=1.055320524899626e-13_p 7949x(14)=37.58687494224691_p 7950w(14)=3.124687105619295e-16_p 7951x(15)=44.94391936082729_p 7952w(15)=2.505778243429054e-19_p 7953x(16)=54.70461873592418_p 7954w(16)=2.064715727033206e-23_p 7955else if(N==17)then 7956x(1)=3.083147730489466_p 7957w(1)=9.348522295793821e-3_p 7958x(2)=3.438305303695380_p 7959w(2)=1.547676489978579e-2_p 7960x(3)=4.078834896678162_p 7961w(3)=1.305814771023560e-2_p 7962x(4)=5.009441242529086_p 7963w(4)=7.148302462800354e-3_p 7964x(5)=6.238410786897129_p 7965w(5)=2.693270504091635e-3_p 7966x(6)=7.777397330755830_p 7967w(6)=7.116327273200940e-4_p 7968x(7)=9.641508944701229_p 7969w(7)=1.320686326012109e-4_p 7970x(8)=11.85024811210654_p 7971w(8)=1.704921952565860e-5_p 7972x(9)=14.42902539729253_p 7973w(9)=1.502040242895834e-6_p 7974x(10)=17.41127772086032_p 7975w(10)=8.774460085239374e-8_p 7976x(11)=20.84171129003582_p 7977w(11)=3.262912705565907e-9_p 7978x(12)=24.78167452571406_p 7979w(12)=7.292446824466369e-11_p 7980x(13)=29.31870880151145_p 7981w(13)=9.015216810369502e-13_p 7982x(14)=34.58515076496442_p 7983w(14)=5.435274910179990e-15_p 7984x(15)=40.79946334189039_p 7985w(15)=1.298728608231089e-17_p 7986x(16)=48.37907804095411_p 7987w(16)=8.301097956683270e-21_p 7988x(17)=58.39310618903319_p 7989w(17)=5.287671220113230e-25_p 7990else 7991call GD(3) 7992end if 7993end subroutine GF_3 7994 7995! [4kT;infkT] 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.588391371578517_p 8001w(1)=1.548099378803193e-2_p 8002x(2)=7.418430488729950_p 8003w(2)=2.668934129777814e-3_p 8004else if(N==3)then 8005x(1)=4.417506835278497_p 8006w(1)=1.288667123597650e-2_p 8007x(2)=6.297899500714727_p 8008w(2)=5.073594964446512e-3_p 8009x(3)=10.29312191090159_p 8010w(3)=1.896617173867308e-4_p 8011else if(N==4)then 8012x(1)=4.323804125001076_p 8013w(1)=1.092298452478774e-2_p 8014x(2)=5.748865050012787_p 8015w(2)=6.507145111845759e-3_p 8016x(3)=8.539555921389839_p 8017w(3)=7.099471807270610e-4_p 8018x(4)=13.39772509672886_p 8019w(4)=9.851100449183233e-6_p 8020else if(N==5)then 8021x(1)=4.264524573694274_p 8022w(1)=9.443490859905536e-3_p 8023x(2)=5.416081304008356_p 8024w(2)=7.253774816467304e-3_p 8025x(3)=7.599176519875028_p 8026w(3)=1.386249915399743e-3_p 8027x(4)=11.08826894909748_p 8028w(4)=6.598529559652344e-5_p 8029x(5)=16.64314302132507_p 8030w(5)=4.270304406337071e-7_p 8031else if(N==6)then 8032x(1)=4.223616534547756_p 8033w(1)=8.303101502456002e-3_p 8034x(2)=5.191263021496387_p 8035w(2)=7.582988140726062e-3_p 8036x(3)=6.995322896324596_p 8037w(3)=2.069048354351840e-3_p 8038x(4)=9.777464592308254_p 8039w(4)=1.900033023177890e-4_p 8040x(5)=13.83964861050429_p 8041w(5)=4.770195488994089e-6_p 8042x(6)=19.98499845141024_p 8043w(6)=1.642246905256638e-8_p 8044else if(N==7)then 8045x(1)=4.193676736889514_p 8046w(1)=7.402051835574058e-3_p 8047x(2)=5.028711992398342_p 8048w(2)=7.666683674178906e-3_p 8049x(3)=6.570309769558416_p 8050w(3)=2.684274316508100e-3_p 8051x(4)=8.902569511077516_p 8052w(4)=3.769973766856853e-4_p 8053x(5)=12.18421185897266_p 8054w(5)=1.963013006823147e-5_p 8055x(6)=16.736173034703_p 8056w(6)=2.900052698362968e-7_p 8057x(7)=23.39768761687636_p 8058w(7)=5.795249230411888e-10_p 8059else if(N==8)then 8060x(1)=4.170812034587225_p 8061w(1)=6.674116260789474e-3_p 8062x(2)=4.905515232098844_p 8063w(2)=7.607553442365852e-3_p 8064x(3)=6.253374728727389_p 8065w(3)=3.206306898423448e-3_p 8066x(4)=8.268830952766885_p 8067w(4)=6.091957823417335e-4_p 8068x(5)=11.04786817113195_p 8069w(5)=5.108073402428521e-5_p 8070x(6)=14.76040264130745_p 8071w(6)=1.659267322992058e-6_p 8072x(7)=19.74252912191173_p 8073w(7)=1.551338225822102e-8_p 8074x(8)=26.86496072694327_p 8075w(8)=1.915969786497367e-11_p 8076else if(N==9)then 8077x(1)=4.152778066160002_p 8078w(1)=6.074686421593540e-3_p 8079x(2)=4.808839330480810_p 8080w(2)=7.466568541876027e-3_p 8081x(3)=6.007286989123551_p 8082w(3)=3.633568224089538e-3_p 8083x(4)=7.785529880497535_p 8084w(4)=8.670437308981192e-4_p 8085x(5)=10.20684318052355_p 8086w(5)=1.023590267259164e-4_p 8087x(6)=13.37478514599264_p 8088w(6)=5.580694478850987e-6_p 8089x(7)=17.46799637666217_p 8090w(7)=1.205259410349969e-7_p 8091x(8)=22.83533454536802_p 8092w(8)=7.516050083667545e-10_p 8093x(9)=30.37579360833984_p 8094w(9)=6.017069089245159e-13_p 8095else if(N==10)then 8096x(1)=4.138189476406565_p 8097w(1)=5.572955049142991e-3_p 8098x(2)=4.730910938084459_p 8099w(2)=7.280234037363104e-3_p 8100x(3)=5.810367396528386_p 8101w(3)=3.974637116751234e-3_p 8102x(4)=7.403420997824604_p 8103w(4)=1.134122077764423e-3_p 8104x(5)=9.554319866790241_p 8105w(5)=1.736874457281205e-4_p 8106x(6)=12.33188077793166_p 8107w(6)=1.376767599415097e-5_p 8108x(7)=15.84546854941127_p 8109w(7)=5.167114441150728e-7_p 8110x(8)=20.28091597834547_p 8111w(8)=7.769966037384805e-9_p 8112x(9)=25.99822843564899_p 8113w(9)=3.363744049283962e-11_p 8114x(10)=33.92232857455281_p 8115w(10)=1.812453115757491e-14_p 8116else if(N==11)then 8117x(1)=4.126144642695412_p 8118w(1)=5.147088674343997e-3_p 8119x(2)=4.666736622617665_p 8120w(2)=7.070628997894826e-3_p 8121x(3)=5.649056668477319_p 8122w(3)=4.241369381458555e-3_p 8123x(4)=7.093060717304805_p 8124w(4)=1.398362067210474e-3_p 8125x(5)=9.031055143298680_p 8126w(5)=2.631077980763891e-4_p 8127x(6)=11.51155562779995_p 8128w(6)=2.777192629911696e-5_p 8129x(7)=14.60756822060826_p 8130w(7)=1.556696526543469e-6_p 8131x(8)=18.43320422686212_p 8132w(8)=4.191991471382830e-8_p 8133x(9)=23.18043143628027_p 8134w(9)=4.546741883088784e-10_p 8135x(10)=29.2192721461624_p 8136w(10)=1.410409029634719e-12_p 8137x(11)=37.49874720987829_p 8138w(11)=5.273612280545280e-16_p 8139else if(N==12)then 8140x(1)=4.116031408743314_p 8141w(1)=4.781235658870366e-3_p 8142x(2)=4.612957870394703_p 8143w(2)=6.851199563849155e-3_p 8144x(3)=5.514406766956005_p 8145w(3)=4.445771534172049e-3_p 8146x(4)=6.835611860900147_p 8147w(4)=1.651676902140948e-3_p 8148x(5)=8.600952235607005_p 8149w(5)=3.674606491540958e-4_p 8150x(6)=10.84614207534423_p 8151w(6)=4.871109810931389e-5_p 8152x(7)=13.62287763677273_p 8153w(7)=3.716459629923566e-6_p 8154x(8)=17.00758659056667_p 8155w(8)=1.529759578373988e-7_p 8156x(9)=21.11836925843785_p 8157w(9)=3.051320247955183e-9_p 8158x(10)=26.15259273314047_p 8159w(10)=2.454979613921063e-11_p 8160x(11)=32.48946114700063_p 8161w(11)=5.599142499068957e-14_p 8162x(12)=41.10060830536519_p 8163w(12)=1.490153678853352e-17_p 8164else if(N==13)then 8165x(1)=4.107419510915247_p 8166w(1)=4.463633859226564e-3_p 8167x(2)=4.567230595259875_p 8168w(2)=6.630140076198747e-3_p 8169x(3)=5.400259546124237_p 8170w(3)=4.598731459198710e-3_p 8171x(4)=6.618397687648168_p 8172w(4)=1.889118253054746e-3_p 8173x(5)=8.240529202260312_p 8174w(5)=4.831559396665935e-4_p 8175x(6)=10.29382896471243_p 8176w(6)=7.717233764275216e-5_p 8177x(7)=12.81651372026188_p 8178w(7)=7.532345389313752e-6_p 8179x(8)=15.86288351639161_p 8180w(8)=4.300608898450047e-7_p 8181x(9)=19.51222322497793_p 8182w(9)=1.338250505718830e-8_p 8183x(10)=23.88608452618695_p 8184w(10)=2.027969572866543e-10_p 8185x(11)=29.18670399286824_p 8186w(11)=1.238333942028582e-12_p 8187x(12)=35.80181985542121_p 8188w(12)=2.121532248229395e-15_p 8189x(13)=44.72443688596331_p 8190w(13)=4.106161064160844e-19_p 8191else if(N==14)then 8192x(1)=4.099997672703980_p 8193w(1)=4.185384196771444e-3_p 8194x(2)=4.527868026247746_p 8195w(2)=6.412401390481058e-3_p 8196x(3)=5.302230861140174_p 8197w(3)=4.709623513196937e-3_p 8198x(4)=6.432543587496152_p 8199w(4)=2.108024297385946e-3_p 8200x(5)=7.933748182621161_p 8201w(5)=6.066722363640418e-4_p 8202x(6)=9.827070692459060_p 8203w(6)=1.132415759833525e-4_p 8204x(7)=12.14170903977425_p 8205w(7)=1.353135323114830e-5_p 8206x(8)=14.91793374477857_p 8207w(8)=1.004210224823790e-6_p 8208x(9)=18.21221918553704_p 8209w(9)=4.407054004958675e-8_p 8210x(10)=22.10629339535975_p 8211w(10)=1.061099327819282e-9_p 8212x(11)=26.72477370400309_p 8213w(11)=1.247261645386763e-11_p 8214x(12)=32.27436706647736_p 8215w(12)=5.891674489561023e-14_p 8216x(13)=39.15082376365038_p 8217w(13)=7.721008866990378e-17_p 8218x(14)=48.36745743860776_p 8219w(14)=1.107006752880331e-20_p 8220else if(N==15)then 8221x(1)=4.093535123198168_p 8222w(1)=3.939636094129949e-3_p 8223x(2)=4.493624873458277_p 8224w(2)=6.200906199892112e-3_p 8225x(3)=5.217110928662637_p 8226w(3)=4.786302433324217e-3_p 8227x(4)=6.271635767867186_p 8228w(4)=2.307314369369613e-3_p 8229x(5)=7.669232600729252_p 8230w(5)=7.348321979315897e-4_p 8231x(6)=9.426837399705960_p 8232w(6)=1.565977031491044e-4_p 8233x(7)=11.56734736445615_p 8234w(7)=2.217409738191733e-5_p 8235x(8)=14.12162214722951_p 8236w(8)=2.042517651054822e-6_p 8237x(9)=17.13165457325953_p 8238w(9)=1.181548421256871e-7_p 8239x(10)=20.65576607455909_p 8240w(10)=4.072094452847787e-9_p 8241x(11)=24.77782775672669_p 8242w(11)=7.732357987056774e-11_p 8243x(12)=29.62523612125607_p 8244w(12)=7.173564561451397e-13_p 8245x(13)=35.40885573580128_p 8246w(13)=2.664135608389006e-15_p 8247x(14)=42.53201560987999_p 8248w(14)=2.712641012296908e-18_p 8249x(15)=52.02741423051398_p 8250w(15)=2.927698441017195e-22_p 8251else if(N==16)then 8252x(1)=4.087857145902794_p 8253w(1)=3.721033789866416e-3_p 8254x(2)=4.463561469468163_p 8255w(2)=5.997297625535924e-3_p 8256x(3)=5.142493733356781_p 8257w(3)=4.835252701497998e-3_p 8258x(4)=6.130915424423178_p 8259w(4)=2.486954684405407e-3_p 8260x(5)=7.438662793588585_p 8261w(5)=8.649236831913581e-4_p 8262x(6)=9.079489256094961_p 8263w(6)=2.066265745429902e-4_p 8264x(7)=11.0717362103761_p 8265w(7)=3.381824784633303e-5_p 8266x(8)=13.43967154026332_p 8267w(8)=3.736247668776421e-6_p 8268x(9)=16.21555756479704_p 8269w(9)=2.715239430431410e-7_p 8270x(10)=19.44284706683832_p 8271w(10)=1.248996666667651e-8_p 8272x(11)=23.18146660746458_p 8273w(11)=3.440700581215264e-10_p 8274x(12)=27.51720821781268_p 8275w(12)=5.235746222236941e-12_p 8276x(13)=32.5800267887309_p 8277w(13)=3.890827869516049e-14_p 8278x(14)=38.58469143948113_p 8279w(14)=1.152021992207601e-16_p 8280x(15)=45.94174185785482_p 8281w(15)=9.238343778540371e-20_p 8282x(16)=55.7024464705862_p 8283w(16)=7.612185699902155e-24_p 8284else if(N==17)then 8285x(1)=4.082829030535089_p 8286w(1)=3.525331848132285e-3_p 8287x(2)=4.436955262290367_p 8288w(2)=5.802407723703149e-3_p 8289x(3)=5.076539077553138_p 8290w(3)=4.861784673205654e-3_p 8291x(4)=6.006772677852315_p 8292w(4)=2.647573297760093e-3_p 8293x(5)=7.235799874919820_p 8294w(5)=9.947258237244486e-4_p 8295x(6)=8.774956844685043_p 8296w(6)=2.625287693038792e-4_p 8297x(7)=10.63919703750996_p 8298w(7)=4.870212924607829e-5_p 8299x(8)=12.84801001865237_p 8300w(8)=6.286281570022739e-6_p 8301x(9)=15.42682921649167_p 8302w(9)=5.537912204234495e-7_p 8303x(10)=18.40910761655969_p 8304w(10)=3.234977460505029e-8_p 8305x(11)=21.83955890078095_p 8306w(11)=1.202949791030180e-9_p 8307x(12)=25.77953491702259_p 8308w(12)=2.688494420542487e-11_p 8309x(13)=30.31657881516849_p 8310w(13)=3.323590323922009e-13_p 8311x(14)=35.5830282769929_p 8312w(14)=2.003776723210810e-15_p 8313x(15)=41.79734688743438_p 8314w(15)=4.787882005363908e-18_p 8315x(16)=49.37696662318096_p 8316w(16)=3.060259624862077e-21_p 8317x(17)=59.39099924757192_p 8318w(17)=1.949329039614873e-25_p 8319else 8320call GD(4) 8321end if 8322end subroutine GF_4 8323 8324! [5kT;infkT] 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.586749326513009_p 8330w(1)=5.730412731293692e-3_p 8331x(2)=8.415771069400188_p 8332w(2)=9.849357578243765e-4_p 8333else if(N==3)then 8334x(1)=5.416415084176649_p 8335w(1)=4.772553910177009e-3_p 8336x(2)=7.295617120048452_p 8337w(2)=1.872877208781131e-3_p 8338x(3)=11.29111841657932_p 8339w(3)=6.991737015992867e-5_p 8340else if(N==4)then 8341x(1)=5.323012394079078_p 8342w(1)=4.047075421657101e-3_p 8343x(2)=6.746907707739948_p 8344w(2)=2.402932330935080e-3_p 8345x(3)=9.537704451888931_p 8346w(3)=2.617105911692491e-4_p 8347x(4)=14.39605124868471_p 8348w(4)=3.630145356638063e-6_p 8349else if(N==5)then 8350x(1)=5.263917036178604_p 8351w(1)=3.500165209599780e-3_p 8352x(2)=6.414392560334878_p 8353w(2)=2.679653449020504e-3_p 8354x(3)=8.597441603646109_p 8355w(3)=5.110592851564178e-4_p 8356x(4)=12.08671817862579_p 8357w(4)=2.431321643899597e-5_p 8358x(5)=17.64166595365878_p 8359w(5)=1.573289023710174e-7_p 8360else if(N==6)then 8361x(1)=5.223131483765298_p 8362w(1)=3.078400031672386e-3_p 8363x(2)=6.189793418626479_p 8364w(2)=2.802289050780555e-3_p 8365x(3)=7.993691522709384_p 8366w(3)=7.628899941272090e-4_p 8367x(4)=10.77600075652079_p 8368w(4)=7.000607070416403e-5_p 8369x(5)=14.83827304086527_p 8370w(5)=1.757292225966444e-6_p 8371x(6)=20.98365868443629_p 8372w(6)=6.049607788452786e-9_p 8373else if(N==7)then 8374x(1)=5.193277948494432_p 8375w(1)=2.745013085549860e-3_p 8376x(2)=6.027421453476767_p 8377w(2)=2.834184226063070e-3_p 8378x(3)=7.568775260810138_p 8379w(3)=9.899104481376668e-4_p 8380x(4)=9.901171603162958_p 8381w(4)=1.389026521182730e-4_p 8382x(5)=13.18291369448373_p 8383w(5)=7.231042105885893e-6_p 8384x(6)=17.73491632505787_p 8385w(6)=1.068216839490809e-7_p 8386x(7)=24.39645172957954_p 8387w(7)=2.134593641336582e-10_p 8388else if(N==8)then 8389x(1)=5.170476679574437_p 8390w(1)=2.475581542171796e-3_p 8391x(2)=5.904372086456097_p 8392w(2)=2.813210121142962e-3_p 8393x(3)=7.251931664364463_p 8394w(3)=1.182663295699749e-3_p 8395x(4)=9.267487030726400_p 8396w(4)=2.244612307406013e-4_p 8397x(5)=12.04663030211315_p 8398w(5)=1.881543692392755e-5_p 8399x(6)=15.75921283642388_p 8400w(6)=6.111416475734843e-7_p 8401x(7)=20.74136213650267_p 8402w(7)=5.713734856368439e-9_p 8403x(8)=27.86380730658074_p 8404w(8)=7.056602344959186e-12_p 8405else if(N==9)then 8406x(1)=5.152490956451965_p 8407w(1)=2.253645460275257e-3_p 8408x(2)=5.807818652824186_p 8409w(2)=2.761872137061402e-3_p 8410x(3)=7.005929914353006_p 8411w(3)=1.340544154282578e-3_p 8412x(4)=8.784233163876067_p 8413w(4)=3.194841275591470e-4_p 8414x(5)=11.20565344958029_p 8415w(5)=3.770256762933444e-5_p 8416x(6)=14.37365002800143_p 8417w(6)=2.055376868224053e-6_p 8418x(7)=18.46688677996249_p 8419w(7)=4.438841699067335e-8_p 8420x(8)=23.83423928343023_p 8421w(8)=2.768035396109876e-10_p 8422x(9)=31.37470783921664_p 8423w(9)=2.215962663501323e-13_p 8424else if(N==10)then 8425x(1)=5.137940066183756_p 8426w(1)=2.067831902461363e-3_p 8427x(2)=5.729993020817409_p 8428w(2)=2.693658997342185e-3_p 8429x(3)=6.809090682965439_p 8430w(3)=1.466691711893533e-3_p 8431x(4)=8.402167543720296_p 8432w(4)=4.179276134509741e-4_p 8433x(5)=10.55316964211079_p 8434w(5)=6.397465271912791e-5_p 8435x(6)=13.33079096713848_p 8436w(6)=5.070447113700494e-6_p 8437x(7)=16.84440734868023_p 8438w(7)=1.902903349332635e-7_p 8439x(8)=21.27987028408118_p 8440w(8)=2.861408214983202e-9_p 8441x(9)=26.99719254019253_p 8442w(9)=1.238736335950252e-11_p 8443x(10)=34.92129966126934_p 8444w(10)=6.674510576754226e-15_p 8445else if(N==11)then 8446x(1)=5.125925351768470_p 8447w(1)=1.910077384702387e-3_p 8448x(2)=5.665905754590173_p 8449w(2)=2.616738963273021e-3_p 8450x(3)=6.647854659191474_p 8451w(3)=1.565455806768385e-3_p 8452x(4)=8.091848086499215_p 8453w(4)=5.153484930156934e-4_p 8454x(5)=10.02993831586132_p 8455w(5)=9.691126892561398e-5_p 8456x(6)=12.51050381142136_p 8457w(6)=1.022770258982069e-5_p 8458x(7)=15.60654831297804_p 8459w(7)=5.732648945300637e-7_p 8460x(8)=19.43220120730472_p 8461w(8)=1.543699738157720e-8_p 8462x(9)=24.17943879176537_p 8463w(9)=1.674316686708784e-10_p 8464x(10)=30.21828658825447_p 8465w(10)=5.193725570402279e-13_p 8466x(11)=38.49776698190055_p 8467w(11)=1.941957090276394e-16_p 8468else if(N==12)then 8469x(1)=5.115836630638133_p 8470w(1)=1.774525476018467e-3_p 8471x(2)=5.612201405984658_p 8472w(2)=2.536093758742425e-3_p 8473x(3)=6.513273941778335_p 8474w(3)=1.641246259731861e-3_p 8475x(4)=7.834438373638309_p 8476w(4)=6.087683567604017e-4_p 8477x(5)=9.599864495143855_p 8478w(5)=1.353499418352760e-4_p 8479x(6)=11.84512249868714_p 8480w(6)=1.793866453753241e-5_p 8481x(7)=14.6218933064864_p 8482w(7)=1.368567534691406e-6_p 8483x(8)=18.00662069234117_p 8484w(8)=5.633130433829040e-8_p 8485x(9)=22.11741442395714_p 8486w(9)=1.123592516462725e-9_p 8487x(10)=27.15164529514155_p 8488w(10)=9.039935983922251e-12_p 8489x(11)=33.48851904783694_p 8490w(11)=2.061752197961332e-14_p 8491x(12)=42.09967039448876_p 8492w(12)=5.487115056460468e-18_p 8493else if(N==13)then 8494x(1)=5.107244998202253_p 8495w(1)=1.656829208518062e-3_p 8496x(2)=5.566538255626211_p 8497w(2)=2.454764825241554e-3_p 8498x(3)=6.399190641868948_p 8499w(3)=1.698064842119621e-3_p 8500x(4)=7.617262020354774_p 8501w(4)=6.963632627622351e-4_p 8502x(5)=9.239467510734681_p 8503w(5)=1.779697635074885e-4_p 8504x(6)=11.29283707923115_p 8505w(6)=2.841955522002080e-5_p 8506x(7)=13.81556029337265_p 8507w(7)=2.773669908990413e-6_p 8508x(8)=16.86195019798814_p 8509w(8)=1.583590114056433e-7_p 8510x(9)=20.51130173700303_p 8511w(9)=4.927698807331538e-9_p 8512x(10)=24.8851708184868_p 8513w(10)=7.467312995494061e-11_p 8514x(11)=30.18579579856955_p 8515w(11)=4.559718881151009e-13_p 8516x(12)=36.8009158113511_p 8517w(12)=7.811743768099938e-16_p 8518x(13)=45.72353621065093_p 8519w(13)=1.511933826066798e-19_p 8520else if(N==14)then 8521x(1)=5.099840141049997_p 8522w(1)=1.553698769088561e-3_p 8523x(2)=5.527231375793264_p 8524w(2)=2.374594079014842e-3_p 8525x(3)=6.301220942439071_p 8526w(3)=1.739359055221525e-3_p 8527x(4)=7.431444562539055_p 8528w(4)=7.771504179483116e-4_p 8529x(5)=8.932710392897235_p 8530w(5)=2.234750736076951e-4_p 8531x(6)=10.82610289822498_p 8532w(6)=4.170211230545300e-5_p 8533x(7)=13.14078264768519_p 8534w(7)=4.982594813338228e-6_p 8535x(8)=15.91702923543107_p 8536w(8)=3.697646452903889e-7_p 8537x(9)=19.21132734197334_p 8538w(9)=1.622715653833369e-8_p 8539x(10)=23.10540975787649_p 8540w(10)=3.907023382470551e-10_p 8541x(11)=27.72389581060959_p 8542w(11)=4.592453531134212e-12_p 8543x(12)=33.27349342297983_p 8544w(12)=2.169321617396953e-14_p 8545x(13)=40.14995342797809_p 8546w(13)=2.842874691620570e-17_p 8547x(14)=49.36658986496259_p 8548w(14)=4.075985897736323e-21_p 8549else if(N==15)then 8550x(1)=5.093391987783847_p 8551w(1)=1.462600971979877e-3_p 8552x(2)=5.493036925797285_p 8553w(2)=2.296672510991207e-3_p 8554x(3)=6.216155420505513_p 8555w(3)=1.768019115363084e-3_p 8556x(4)=7.270572250544711_p 8557w(4)=8.507288262706172e-4_p 8558x(5)=8.668217182649849_p 8559w(5)=2.706967706678957e-4_p 8560x(6)=10.42589084853882_p 8561w(6)=5.766827482481037e-5_p 8562x(7)=12.56644477795651_p 8563w(7)=8.164920462524221e-6_p 8564x(8)=15.12074327365144_p 8565w(8)=7.520659884686106e-7_p 8566x(9)=18.13078926548672_p 8567w(9)=4.350450801952868e-8_p 8568x(10)=21.6549094311086_p 8569w(10)=1.499326463450515e-9_p 8570x(11)=25.7769771159933_p 8571w(11)=2.846999517733926e-11_p 8572x(12)=30.62438987582572_p 8573w(12)=2.641243022816038e-13_p 8574x(13)=36.40801285398565_p 8575w(13)=9.809076186259004e-16_p 8576x(14)=43.53117541885015_p 8577w(14)=9.987639639155565e-19_p 8578x(15)=53.02657634071934_p 8579w(15)=1.077943093225689e-22_p 8580else if(N==16)then 8581x(1)=5.087726340924122_p 8582w(1)=1.381554910284839e-3_p 8583x(2)=5.463016388637585_p 8584w(2)=2.221616728292646e-3_p 8585x(3)=6.141588427605594_p 8586w(3)=1.786432304031147e-3_p 8587x(4)=7.129886278132099_p 8588w(4)=9.170828550858310e-4_p 8589x(5)=8.437668639008521_p 8590w(5)=3.186368323845855e-4_p 8591x(6)=10.07856169686632_p 8592w(6)=7.609215500068342e-5_p 8593x(7)=12.07085471908511_p 8594w(7)=1.245232725095341e-5_p 8595x(8)=14.43881560152746_p 8596w(8)=1.375676986718365e-6_p 8597x(9)=17.21471615173325_p 8598w(9)=9.997254002440857e-8_p 8599x(10)=20.44201480628177_p 8600w(10)=4.598637504639135e-9_p 8601x(11)=24.18064062647218_p 8602w(11)=1.266810601596575e-10_p 8603x(12)=28.516386798928_p 8604w(12)=1.927707821568529e-12_p 8605x(13)=33.57920882787194_p 8606w(13)=1.432527648001968e-14_p 8607x(14)=39.58387619847815_p 8608w(14)=4.241510080129641e-17_p 8609x(15)=46.94092884328651_p 8610w(15)=3.401361820149255e-20_p 8611x(16)=56.70163539970126_p 8612w(16)=2.802639287859272e-24_p 8613else if(N==17)then 8614x(1)=5.082708882525211_p 8615w(1)=1.308990008170298e-3_p 8616x(2)=5.436448134178012_p 8617w(2)=2.149742179098811e-3_p 8618x(3)=6.075680123192580_p 8619w(3)=1.796554676277098e-3_p 8620x(4)=7.005776749754425_p 8621w(4)=9.764406664728713e-4_p 8622x(5)=8.234826160220173_p 8623w(5)=3.664778851695054e-4_p 8624x(6)=9.774046499987303_p 8625w(6)=9.667969849074531e-5_p 8626x(7)=11.63833435900766_p 8627w(7)=1.793256599026321e-5_p 8628x(8)=13.84717469464989_p 8629w(8)=2.314549648572407e-6_p 8630x(9)=16.42600943022058_p 8631w(9)=2.038963903795611e-7_p 8632x(10)=19.408297500767_p 8633w(10)=1.191049118294330e-8_p 8634x(11)=22.83875535609097_p 8635w(11)=4.428969055998891e-10_p 8636x(12)=26.77873611371465_p 8637w(12)=9.898331461960386e-12_p 8638x(13)=31.31578358192048_p 8639w(13)=1.223654038889071e-13_p 8640x(14)=36.58223582595527_p 8641w(14)=7.377329676111630e-16_p 8642x(15)=42.79655667519663_p 8643w(15)=1.762756283292196e-18_p 8644x(16)=50.37617827993273_p 8645w(16)=1.126694702265492e-21_p 8646x(17)=60.3902125654294_p 8647w(17)=7.176825405752797e-26_p 8648else 8649call GD(5) 8650end if 8651end subroutine GF_5 8652 8653end module m_gauss_fermi_inf 8654