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