(git:e7e05ae)
minimax_exp_gw.F
Go to the documentation of this file.
1 !--------------------------------------------------------------------------------------------------!
2 ! CP2K: A general program to perform molecular dynamics simulations !
3 ! Copyright 2000-2024 CP2K developers group <https://cp2k.org> !
4 ! !
5 ! SPDX-License-Identifier: GPL-2.0-or-later !
6 !--------------------------------------------------------------------------------------------------!
7 
8 ! **************************************************************************************************
9 !> \brief Routines to calculate the minimax coefficients in order to
10 !> approximate 1/x as a sum over exponential functions
11 !> 1/x ~ SUM_{i}^{K} w_i EXP(-a_i * x) for x belonging to [1:Rc].
12 !> This module contains coefficients for minimax approximations with 26, 28, 30, 32, 34 points
13 !> that give well-converged GW results
14 !> \par History
15 !> 03.2020 created [Jan Wilhelm]
16 ! **************************************************************************************************
17 MODULE minimax_exp_gw
18  USE kinds, ONLY: dp
19 #include "../base/base_uses.f90"
20 
21  IMPLICIT NONE
22 
23  PRIVATE
24 
25  CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'minimax_exp_gw'
26 
27  PUBLIC :: get_exp_minimax_coeff_gw
28 
29 CONTAINS
30 
31 ! **************************************************************************************************
32 !> \brief ...
33 !> \param k ...
34 !> \param E_range ...
35 !> \param aw ...
36 ! **************************************************************************************************
37  SUBROUTINE get_exp_minimax_coeff_gw(k, E_range, aw)
38  INTEGER, INTENT(IN) :: k
39  REAL(kind=dp), INTENT(IN) :: e_range
40  REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
41 
42  CHARACTER(LEN=*), PARAMETER :: routinen = 'get_exp_minimax_coeff_gw'
43 
44  INTEGER :: handle
45  REAL(kind=dp) :: e_ratio
46 
47  CALL timeset(routinen, handle)
48 
49  SELECT CASE (k)
50  CASE (26)
51  CALL get_coeff_26(k, e_range, aw, e_ratio)
52  CASE (28)
53  CALL get_coeff_28(k, e_range, aw, e_ratio)
54  CASE (30)
55  CALL get_coeff_30(k, e_range, aw, e_ratio)
56  CASE (32)
57  CALL get_coeff_32(k, e_range, aw, e_ratio)
58  CASE (34)
59  CALL get_coeff_34(k, e_range, aw, e_ratio)
60  CASE DEFAULT
61  cpabort("The grid size you choose is not available.")
62  END SELECT
63 
64  CALL rescale_grid(aw, e_ratio)
65 
66  CALL timestop(handle)
67 
68  END SUBROUTINE get_exp_minimax_coeff_gw
69 
70 ! **************************************************************************************************
71 !> \brief ...
72 !> \param aw ...
73 !> \param E_ratio ...
74 ! **************************************************************************************************
75  PURE SUBROUTINE rescale_grid(aw, E_ratio)
76  REAL(kind=dp), DIMENSION(:), INTENT(INOUT) :: aw
77  REAL(kind=dp), INTENT(INOUT) :: e_ratio
78 
79  IF (e_ratio > 1.5_dp) THEN
80  e_ratio = e_ratio/1.5_dp
81  ELSE
82  e_ratio = 1.0_dp
83  END IF
84  aw(:) = aw(:)*e_ratio
85  END SUBROUTINE
86 
87 ! **************************************************************************************************
88 !> \brief ...
89 !> \param k ...
90 !> \param E_range ...
91 !> \param aw ...
92 !> \param E_ratio ...
93 ! **************************************************************************************************
94  PURE SUBROUTINE get_coeff_26(k, E_range, aw, E_ratio)
95  INTEGER, INTENT(IN) :: k
96  REAL(kind=dp), INTENT(IN) :: e_range
97  REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
98  REAL(kind=dp), INTENT(OUT) :: e_ratio
99 
100  e_ratio = 1.0_dp
101  IF (e_range < 799.0_dp) THEN
102  e_ratio = 799.0_dp/e_range
103  aw(:) = (/ &
104  0.00037867004555797054_dp, &
105  0.002019373143542281_dp, &
106  0.005074452374668418_dp, &
107  0.009741339051894624_dp, &
108  0.016351249099763064_dp, &
109  0.025426574118427834_dp, &
110  0.03775841037254848_dp, &
111  0.05450081932003549_dp, &
112  0.0772810957375601_dp, &
113  0.1083363446608876_dp, &
114  0.15069589349866513_dp, &
115  0.20843076717336742_dp, &
116  0.2869911650766578_dp, &
117  0.3936564974164155_dp, &
118  0.5381309695975518_dp, &
119  0.7333307052011886_dp, &
120  0.996427988952117_dp, &
121  1.3502505778649674_dp, &
122  1.8251937089224979_dp, &
123  2.4619239536701665_dp, &
124  3.3154239654767634_dp, &
125  4.461579856601731_dp, &
126  6.009262672635442_dp, &
127  8.12630074937428_dp, &
128  11.10929348730981_dp, &
129  15.660501844751538_dp, &
130  0.0009745069197489692_dp, &
131  0.002323920525926464_dp, &
132  0.003818499918990434_dp, &
133  0.005569525222864092_dp, &
134  0.007736056032946723_dp, &
135  0.01054486610207425_dp, &
136  0.014309337959120037_dp, &
137  0.01944447015531593_dp, &
138  0.026485944451580964_dp, &
139  0.03612533116765179_dp, &
140  0.04926670257709911_dp, &
141  0.06710398765236568_dp, &
142  0.09122022393749045_dp, &
143  0.12371484118454482_dp, &
144  0.16736960998240946_dp, &
145  0.2258689406847251_dp, &
146  0.30409900038431836_dp, &
147  0.40856816694415354_dp, &
148  0.548030961075663_dp, &
149  0.7344894715293502_dp, &
150  0.9849728438705977_dp, &
151  1.3251021306723128_dp, &
152  1.7972852200464182_dp, &
153  2.4831111234607426_dp, &
154  3.582848552118199_dp, &
155  5.8876320817174905_dp/)
156  ELSE IF (e_range < 995.0_dp) THEN
157  aw(:) = (/ &
158  0.00031416617596844365_dp, &
159  0.0016768070133771967_dp, &
160  0.004220387402167522_dp, &
161  0.008122019548232636_dp, &
162  0.013681535061623657_dp, &
163  0.021375962641606915_dp, &
164  0.03193242611639194_dp, &
165  0.04641604327774391_dp, &
166  0.0663338368572065_dp, &
167  0.09376694799993701_dp, &
168  0.13155072067060036_dp, &
169  0.18352265415559924_dp, &
170  0.2548586347835214_dp, &
171  0.3525227140309385_dp, &
172  0.4858648853075939_dp, &
173  0.667414665262307_dp, &
174  0.9139380450657599_dp, &
175  1.2478576632771592_dp, &
176  1.699195061182984_dp, &
177  2.3083135493129188_dp, &
178  3.13000622971369_dp, &
179  4.240119346476375_dp, &
180  5.747638276053859_dp, &
181  7.820581475731412_dp, &
182  10.755506760817696_dp, &
183  15.2531099085639_dp, &
184  0.0008086633399478686_dp, &
185  0.001931716707111731_dp, &
186  0.0031843549489835176_dp, &
187  0.0046679761695975755_dp, &
188  0.006529332077378777_dp, &
189  0.008979243990088065_dp, &
190  0.012309502604654843_dp, &
191  0.016906748893981475_dp, &
192  0.023272740862285972_dp, &
193  0.03206195264016037_dp, &
194  0.04413963056111703_dp, &
195  0.060659468387992695_dp, &
196  0.08316331669118938_dp, &
197  0.11371010407957528_dp, &
198  0.15504510373245767_dp, &
199  0.21082547573489732_dp, &
200  0.28592663287586667_dp, &
201  0.38687165073350616_dp, &
202  0.5224647206101295_dp, &
203  0.7047999539903935_dp, &
204  0.951040871895601_dp, &
205  1.286968657510818_dp, &
206  1.7551267580277088_dp, &
207  2.437087428172129_dp, &
208  3.5325565753903243_dp, &
209  5.829332987897013_dp/)
210  ELSE IF (e_range < 1293.0_dp) THEN
211  aw(:) = (/ &
212  0.000251216262630506_dp, &
213  0.0013422657589387847_dp, &
214  0.0033852831378795366_dp, &
215  0.006535679555855439_dp, &
216  0.01105946790435755_dp, &
217  0.017384205344456737_dp, &
218  0.02616631610050564_dp, &
219  0.03837171615696803_dp, &
220  0.05537294469791371_dp, &
221  0.07907682374899021_dp, &
222  0.11210158563747868_dp, &
223  0.15802208108125124_dp, &
224  0.22170328658555793_dp, &
225  0.3097484547351596_dp, &
226  0.43109811316492785_dp, &
227  0.5978298541062674_dp, &
228  0.826228906983008_dp, &
229  1.1382318360717252_dp, &
230  1.5634041077266412_dp, &
231  2.1417299191833186_dp, &
232  2.9277541939220253_dp, &
233  3.9972537939524453_dp, &
234  5.459336924183542_dp, &
235  7.482255655971381_dp, &
236  10.362568049094785_dp, &
237  14.79927594838438_dp, &
238  0.0006467895131307655_dp, &
239  0.0015483789662149572_dp, &
240  0.002562990408244027_dp, &
241  0.00378128864955077_dp, &
242  0.005336413195947385_dp, &
243  0.0074211270754708444_dp, &
244  0.010302498712647285_dp, &
245  0.014334977955021215_dp, &
246  0.01998237358756267_dp, &
247  0.027857715884000284_dp, &
248  0.038782119259036095_dp, &
249  0.05386231670249176_dp, &
250  0.07459076970770032_dp, &
251  0.10297648694866778_dp, &
252  0.1417181535853474_dp, &
253  0.19443583384059848_dp, &
254  0.26598602063677856_dp, &
255  0.36290208001606944_dp, &
256  0.4940399248668749_dp, &
257  0.671597172994337_dp, &
258  0.9128949281590978_dp, &
259  1.2439090969479831_dp, &
260  1.7073582868867894_dp, &
261  2.3848234540233704_dp, &
262  3.4754029453297375_dp, &
263  5.763153512206444_dp/)
264  ELSE IF (e_range < 1738.0_dp) THEN
265  aw(:) = (/ &
266  0.0001950376405774879_dp, &
267  0.0010434591619187578_dp, &
268  0.002638226324824606_dp, &
269  0.005113292156951265_dp, &
270  0.00870086598207974_dp, &
271  0.013778342596377403_dp, &
272  0.020929407226154117_dp, &
273  0.031017048599119232_dp, &
274  0.04527407877688829_dp, &
275  0.06542623021788685_dp, &
276  0.09386550782858209_dp, &
277  0.1338911807639374_dp, &
278  0.19003887760085253_dp, &
279  0.26852546690556994_dp, &
280  0.3778478282417773_dp, &
281  0.5295878007623821_dp, &
282  0.739496104873784_dp, &
283  1.0289606432203449_dp, &
284  1.427022553455354_dp, &
285  1.9732190338166054_dp, &
286  2.721788596346289_dp, &
287  3.7484019634398744_dp, &
288  5.162286381612833_dp, &
289  7.131961441982249_dp, &
290  9.954041146838616_dp, &
291  14.32582187195048_dp, &
292  0.0005022997712497699_dp, &
293  0.0012056339745159519_dp, &
294  0.0020057022650528562_dp, &
295  0.0029823455742529125_dp, &
296  0.004254672143777001_dp, &
297  0.0059963576674781395_dp, &
298  0.008448134528374854_dp, &
299  0.011930608474038368_dp, &
300  0.016868224194481772_dp, &
301  0.023830776674747995_dp, &
302  0.03359223660591877_dp, &
303  0.04720772204797841_dp, &
304  0.06611395904656978_dp, &
305  0.09226211932358148_dp, &
306  0.12829508657243463_dp, &
307  0.17778587596291995_dp, &
308  0.24556239855995798_dp, &
309  0.3381606409098896_dp, &
310  0.4644850568708377_dp, &
311  0.6368412465900805_dp, &
312  0.8727231844202037_dp, &
313  1.198329166055601_dp, &
314  1.6565902038491545_dp, &
315  2.329130996306286_dp, &
316  3.414441737018883_dp, &
317  5.692646250049292_dp/)
318  ELSE IF (e_range < 2238.0_dp) THEN
319  aw(:) = (/ &
320  0.0001570075292014777_dp, &
321  0.0008410019818081912_dp, &
322  0.002131222620982682_dp, &
323  0.004145569234358363_dp, &
324  0.007090677510918224_dp, &
325  0.011305441203226727_dp, &
326  0.01731697219552165_dp, &
327  0.02590771238094241_dp, &
328  0.03820108916428952_dp, &
329  0.05578097500511556_dp, &
330  0.08086136666211902_dp, &
331  0.11652297811189155_dp, &
332  0.16703767866605654_dp, &
333  0.23830959694579532_dp, &
334  0.33847251734047956_dp, &
335  0.47869779524697986_dp, &
336  0.6742880172162485_dp, &
337  0.9461646148413084_dp, &
338  1.3229154365464835_dp, &
339  1.8436824667954244_dp, &
340  2.5624225632785795_dp, &
341  3.5546935048363073_dp, &
342  4.929807210724086_dp, &
343  6.856512184015644_dp, &
344  9.631510529999963_dp, &
345  13.950799086937636_dp, &
346  0.0004044673162152666_dp, &
347  0.0009731515874605558_dp, &
348  0.0016264516115000137_dp, &
349  0.002435950210582391_dp, &
350  0.0035098078378292706_dp, &
351  0.005006471432500407_dp, &
352  0.0071456103103081205_dp, &
353  0.010221155980366915_dp, &
354  0.01462678603467543_dp, &
355  0.02089809034158199_dp, &
356  0.02977080559865047_dp, &
357  0.042257136734592034_dp, &
358  0.059746455952240894_dp, &
359  0.08413972088086426_dp, &
360  0.11803003373030124_dp, &
361  0.1649465354635964_dp, &
362  0.22968730801733273_dp, &
363  0.31878354856943114_dp, &
364  0.44117315496449167_dp, &
365  0.6092463295611383_dp, &
366  0.8406397450171417_dp, &
367  1.161742484167732_dp, &
368  1.6156774111835495_dp, &
369  2.2841323787971173_dp, &
370  3.36513821401701_dp, &
371  5.635684641787822_dp/)
372  ELSE IF (e_range < 3009.0_dp) THEN
373  aw(:) = (/ &
374  0.00012173433282636892_dp, &
375  0.000653044843078349_dp, &
376  0.0016597094198001826_dp, &
377  0.0032432122902587715_dp, &
378  0.005583731099072486_dp, &
379  0.00897974690437299_dp, &
380  0.01389829106398585_dp, &
381  0.021035914001762628_dp, &
382  0.03139940878203811_dp, &
383  0.046421111007702805_dp, &
384  0.06812376578216424_dp, &
385  0.09935124887637425_dp, &
386  0.1440867725430818_dp, &
387  0.20788864079466032_dp, &
388  0.29848482929563186_dp, &
389  0.42658280937440796_dp, &
390  0.6069727081348725_dp, &
391  0.8600354677167223_dp, &
392  1.213825493528422_dp, &
393  1.7070100456167858_dp, &
394  2.393195963336712_dp, &
395  3.3477843441213753_dp, &
396  4.680165709088339_dp, &
397  6.5593534066075065_dp, &
398  9.282192058087176_dp, &
399  13.54332387201712_dp, &
400  0.00031370730222591084_dp, &
401  0.0007570695990484558_dp, &
402  0.0012727251500342805_dp, &
403  0.0019236429401252328_dp, &
404  0.0028062999069873792_dp, &
405  0.004062578033501044_dp, &
406  0.00588929507373728_dp, &
407  0.00855186255429553_dp, &
408  0.012411138722817702_dp, &
409  0.017965594962442332_dp, &
410  0.025908461038187995_dp, &
411  0.03720320806718786_dp, &
412  0.05318444551258281_dp, &
413  0.0756939715032581_dp, &
414  0.10726485539108421_dp, &
415  0.1513713746489183_dp, &
416  0.21277116226058032_dp, &
417  0.297982246389678_dp, &
418  0.41597262011480124_dp, &
419  0.5792223633874778_dp, &
420  0.8055284041136077_dp, &
421  1.1215023110944804_dp, &
422  1.5705011278690364_dp, &
423  2.234313406989394_dp, &
424  3.310497107984999_dp, &
425  5.57261913216792_dp/)
426  ELSE IF (e_range < 4377.0_dp) THEN
427  aw(:) = (/ &
428  8.814790587980884e-05_dp, &
429  0.0004738555483452858_dp, &
430  0.001209162224838196_dp, &
431  0.0023779784718090265_dp, &
432  0.004131730232456246_dp, &
433  0.006724209366814066_dp, &
434  0.010555208090639503_dp, &
435  0.01622487926307075_dp, &
436  0.02460909648355756_dp, &
437  0.036969426022926015_dp, &
438  0.05511124918766332_dp, &
439  0.08160627715945637_dp, &
440  0.12010201314867164_dp, &
441  0.17574961207193285_dp, &
442  0.2557933011845474_dp, &
443  0.37038042948632577_dp, &
444  0.5336738618256365_dp, &
445  0.7653829566132899_dp, &
446  1.092887558492255_dp, &
447  1.5542408605150586_dp, &
448  2.2025803308040364_dp, &
449  3.113074354623969_dp, &
450  4.395181735531908_dp, &
451  6.218242520601409_dp, &
452  8.87933263258288_dp, &
453  13.071612343557268_dp, &
454  0.0002272629071152242_dp, &
455  0.0005507552663901378_dp, &
456  0.000933441836691016_dp, &
457  0.001428839311231769_dp, &
458  0.002120237386026644_dp, &
459  0.0031304749854564546_dp, &
460  0.0046303259129662575_dp, &
461  0.006853192947474817_dp, &
462  0.01012290436688526_dp, &
463  0.014894995829624644_dp, &
464  0.021812185159477044_dp, &
465  0.03177875816649789_dp, &
466  0.046061554071504564_dp, &
467  0.06642770441212868_dp, &
468  0.09533262717257988_dp, &
469  0.1361769876776064_dp, &
470  0.19366000664329205_dp, &
471  0.27427258699605633_dp, &
472  0.38700765699040135_dp, &
473  0.5444449877078907_dp, &
474  0.7645728576669742_dp, &
475  1.0742808530249828_dp, &
476  1.517233705376216_dp, &
477  2.175383868205045_dp, &
478  3.245782737215517_dp, &
479  5.498017132429984_dp/)
480  ELSE IF (e_range < 6256.0_dp) THEN
481  aw(:) = (/ &
482  6.476469600717215e-05_dp, &
483  0.00034891783555501116_dp, &
484  0.0008941569546994692_dp, &
485  0.001770490093242039_dp, &
486  0.003106199645499256_dp, &
487  0.0051184335340408015_dp, &
488  0.008151285145167414_dp, &
489  0.012724953439821175_dp, &
490  0.019606591631387022_dp, &
491  0.029915037575018_dp, &
492  0.04527205344500337_dp, &
493  0.06801655695473027_dp, &
494  0.10150518730808944_dp, &
495  0.1505317627030831_dp, &
496  0.22191039986921127_dp, &
497  0.32528375402693044_dp, &
498  0.4742415082162232_dp, &
499  0.6878698417118773_dp, &
500  0.9929114555738491_dp, &
501  1.426826349178114_dp, &
502  2.0422826887022167_dp, &
503  2.914194983288514_dp, &
504  4.152054985305785_dp, &
505  5.925500508772846_dp, &
506  8.531868435284434_dp, &
507  12.663118219514553_dp, &
508  0.00016705896835219716_dp, &
509  0.0004066434009563924_dp, &
510  0.0006951433499719869_dp, &
511  0.0010783855735630424_dp, &
512  0.0016285976932411544_dp, &
513  0.002452428674095891_dp, &
514  0.003698822692463904_dp, &
515  0.005574655476173014_dp, &
516  0.008372611367675033_dp, &
517  0.012511058447330109_dp, &
518  0.01858785984880576_dp, &
519  0.027453700962179424_dp, &
520  0.04031295449132496_dp, &
521  0.058862610090479196_dp, &
522  0.08548341120436852_dp, &
523  0.12350282964756092_dp, &
524  0.17755835622889385_dp, &
525  0.25410556179535176_dp, &
526  0.3621484874152968_dp, &
527  0.5143475290193675_dp, &
528  0.728860394738634_dp, &
529  1.0328353641593397_dp, &
530  1.470237966477004_dp, &
531  2.1232087233584265_dp, &
532  3.1884016755763915_dp, &
533  5.431943610280663_dp/)
534  ELSE IF (e_range < 9034.0_dp) THEN
535  aw(:) = (/ &
536  4.714267869850108e-05_dp, &
537  0.00025461261481751654_dp, &
538  0.0006556761719344113_dp, &
539  0.001308468824945838_dp, &
540  0.002321150197926946_dp, &
541  0.003878461874698709_dp, &
542  0.006274894154406174_dp, &
543  0.009959418801224819_dp, &
544  0.01560204953263909_dp, &
545  0.02419303582580116_dp, &
546  0.03718681238787033_dp, &
547  0.056707527706112246_dp, &
548  0.08584014778037409_dp, &
549  0.12904063424870618_dp, &
550  0.19271144671607915_dp, &
551  0.2860061442236756_dp, &
552  0.4219516424878554_dp, &
553  0.6190135338939492_dp, &
554  0.903289679923842_dp, &
555  1.3116275192031754_dp, &
556  1.8961959695325519_dp, &
557  2.7316203672239747_dp, &
558  3.927395419802043_dp, &
559  5.653448502577673_dp, &
560  8.207416056488858_dp, &
561  12.280210966173971_dp, &
562  0.00012167157119425256_dp, &
563  0.00029765224752192887_dp, &
564  0.0005138446741296063_dp, &
565  0.0008093181914490766_dp, &
566  0.0012462946084647903_dp, &
567  0.0019166924309280847_dp, &
568  0.002949916160920999_dp, &
569  0.004529176144148134_dp, &
570  0.006918766955709136_dp, &
571  0.010502242217013015_dp, &
572  0.01583456242948638_dp, &
573  0.02371430118668526_dp, &
574  0.03528415663667773_dp, &
575  0.05217068929971722_dp, &
576  0.07667811497799712_dp, &
577  0.11205676769912475_dp, &
578  0.16287592945291882_dp, &
579  0.23554669511627027_dp, &
580  0.3390729578857381_dp, &
581  0.4861840636834821_dp, &
582  0.6951983617349604_dp, &
583  0.9935218371108636_dp, &
584  1.4254333766864864_dp, &
585  2.073293734219426_dp, &
586  3.133425653975384_dp, &
587  5.368705541720747_dp/)
588  ELSE IF (e_range < 15564.0_dp) THEN
589  aw(:) = (/ &
590  2.9443353786715123e-05_dp, &
591  0.00015968865887835848_dp, &
592  0.0004146519996900374_dp, &
593  0.0008385653229066657_dp, &
594  0.0015154710444555315_dp, &
595  0.002590553782265674_dp, &
596  0.004297458120933096_dp, &
597  0.0069977275055487075_dp, &
598  0.011241365987483699_dp, &
599  0.017857778834567364_dp, &
600  0.02808897944065483_dp, &
601  0.043782322061949784_dp, &
602  0.06766742773244867_dp, &
603  0.1037518951041952_dp, &
604  0.1578839462681274_dp, &
605  0.2385489270378087_dp, &
606  0.3579930679384087_dp, &
607  0.5338068043298525_dp, &
608  0.791161589813274_dp, &
609  1.1660045885058554_dp, &
610  1.7097467191304874_dp, &
611  2.496543051760848_dp, &
612  3.635839789357852_dp, &
613  5.297957374408996_dp, &
614  7.7810148585358885_dp, &
615  11.774676503198675_dp, &
616  7.606243073747058e-05_dp, &
617  0.000187654111092642_dp, &
618  0.00032937906982910266_dp, &
619  0.0005320965908695892_dp, &
620  0.0008454741794288284_dp, &
621  0.0013429974722876687_dp, &
622  0.0021300795419892347_dp, &
623  0.003360638155325681_dp, &
624  0.005262693302642904_dp, &
625  0.008173980176265023_dp, &
626  0.0125917789247931_dp, &
627  0.01924336061080778_dp, &
628  0.029185562811316818_dp, &
629  0.043945018416338716_dp, &
630  0.0657148857554778_dp, &
631  0.09763017054646428_dp, &
632  0.1441532549628787_dp, &
633  0.2116173831358168_dp, &
634  0.3090075514896036_dp, &
635  0.4491309451933545_dp, &
636  0.6505180076674358_dp, &
637  0.9409371471889534_dp, &
638  1.3651313188527026_dp, &
639  2.0058258806612064_dp, &
640  3.0589785756980588_dp, &
641  5.283171742769873_dp/)
642  ELSE IF (e_range < 19500.0_dp) THEN
643  aw(:) = (/ &
644  2.4221939880648916e-05_dp, &
645  0.00013162518783252502_dp, &
646  0.0003431050538880391_dp, &
647  0.000698189132475488_dp, &
648  0.001272589233863707_dp, &
649  0.0021976433259721703_dp, &
650  0.0036856546266738404_dp, &
651  0.00606744928063478_dp, &
652  0.009850534125738348_dp, &
653  0.015806672884776662_dp, &
654  0.025100760660057786_dp, &
655  0.03947837634367904_dp, &
656  0.06153686837154947_dp, &
657  0.09511493193970912_dp, &
658  0.14584951983758487_dp, &
659  0.22196820786998617_dp, &
660  0.335412339591795_dp, &
661  0.5034260546260962_dp, &
662  0.7508088209241689_dp, &
663  1.1131398816244866_dp, &
664  1.6415127034352714_dp, &
665  2.409875693114849_dp, &
666  3.527638075049888_dp, &
667  5.165269756856301_dp, &
668  7.621098250903887_dp, &
669  11.584360794128232_dp, &
670  6.260081073117763e-05_dp, &
671  0.0001550481237336088_dp, &
672  0.00027425459381644776_dp, &
673  0.0004482075757040794_dp, &
674  0.0007220779147665958_dp, &
675  0.0011628086873198505_dp, &
676  0.0018674017508154028_dp, &
677  0.0029793398493427954_dp, &
678  0.004713349903984844_dp, &
679  0.00739000908391551_dp, &
680  0.011484659947886356_dp, &
681  0.017697084080236986_dp, &
682  0.0270505598375803_dp, &
683  0.04103207563980036_dp, &
684  0.06178995726179555_dp, &
685  0.09241161287658448_dp, &
686  0.13731382654384652_dp, &
687  0.20279428302236951_dp, &
688  0.2978245159544139_dp, &
689  0.43523615879690214_dp, &
690  0.6336386632046422_dp, &
691  0.9209431632237726_dp, &
692  1.3420830429471422_dp, &
693  1.9799449671624767_dp, &
694  3.0303736903126226_dp, &
695  5.250335959421828_dp/)
696  ELSE IF (e_range < 22300.0_dp) THEN
697  aw(:) = (/ &
698  2.1564828392874976e-05_dp, &
699  0.00011732900716735743_dp, &
700  0.00030658459101179467_dp, &
701  0.0006263105810174703_dp, &
702  0.0011476627771254888_dp, &
703  0.001994368166545555_dp, &
704  0.0033669949117497793_dp, &
705  0.005579455105811666_dp, &
706  0.009115754087433222_dp, &
707  0.014715595238257124_dp, &
708  0.023500724387693545_dp, &
709  0.037159447358704495_dp, &
710  0.058214268280899095_dp, &
711  0.09040780191303678_dp, &
712  0.1392561892112249_dp, &
713  0.21283882379303048_dp, &
714  0.32292082611394995_dp, &
715  0.48654501997143224_dp, &
716  0.728293233827829_dp, &
717  1.0835278065593024_dp, &
718  1.6031531143244464_dp, &
719  2.360992062122655_dp, &
720  3.466427749396279_dp, &
721  5.090015465029667_dp, &
722  7.53020860247837_dp, &
723  11.47601339726731_dp, &
724  5.574871333711635e-05_dp, &
725  0.00013841643320123116_dp, &
726  0.0002460246878681958_dp, &
727  0.00040498060578160683_dp, &
728  0.0006579585426571892_dp, &
729  0.0010682911223034433_dp, &
730  0.0017283542359863323_dp, &
731  0.002775834478515568_dp, &
732  0.0044179824445092115_dp, &
733  0.006965640555090498_dp, &
734  0.010881623599671406_dp, &
735  0.01684992291318925_dp, &
736  0.025874425224763156_dp, &
737  0.03941906165439105_dp, &
738  0.05960588810571241_dp, &
739  0.08949416080199679_dp, &
740  0.13347332726212882_dp, &
741  0.1978191873760846_dp, &
742  0.29149390319797547_dp, &
743  0.4273416663588288_dp, &
744  0.6240165631691874_dp, &
745  0.9095125059692878_dp, &
746  1.3288753869034111_dp, &
747  1.9650901753832044_dp, &
748  3.013944114046813_dp, &
749  5.231485480677545_dp/)
750  ELSE IF (e_range < 24783.0_dp) THEN
751  aw(:) = (/ &
752  1.968079412594506e-05_dp, &
753  0.00010718493641102105_dp, &
754  0.0002806353581711279_dp, &
755  0.0005751273705017238_dp, &
756  0.0010584284934163331_dp, &
757  0.001848589008502448_dp, &
758  0.003137423022955394_dp, &
759  0.005226209962089254_dp, &
760  0.008581348030605833_dp, &
761  0.013918427654363913_dp, &
762  0.022326614770472653_dp, &
763  0.03545081033521797_dp, &
764  0.0557565940780925_dp, &
765  0.0869132477657862_dp, &
766  0.1343443806186961_dp, &
767  0.20601549407747916_dp, &
768  0.31355578173538573_dp, &
769  0.4738522008187966_dp, &
770  0.7113173707719063_dp, &
771  1.061144148921342_dp, &
772  1.574088149869358_dp, &
773  2.323872276609698_dp, &
774  3.4198568581275923_dp, &
775  5.032662209058464_dp, &
776  7.460841068394957_dp, &
777  11.393228561803523_dp, &
778  5.0889409017427654e-05_dp, &
779  0.00012660472263169967_dp, &
780  0.0002259210980998603_dp, &
781  0.0003740655095418279_dp, &
782  0.0006118384940478349_dp, &
783  0.000999874816429794_dp, &
784  0.0016270976310772938_dp, &
785  0.0026268356436642305_dp, &
786  0.004200673380690335_dp, &
787  0.006652036004218306_dp, &
788  0.010434155159748769_dp, &
789  0.016218897955811638_dp, &
790  0.02499520138410832_dp, &
791  0.038209141684542064_dp, &
792  0.05796233141783732_dp, &
793  0.08729199004516089_dp, &
794  0.13056598592688773_dp, &
795  0.19404256395643912_dp, &
796  0.2866758412418721_dp, &
797  0.4213188646546868_dp, &
798  0.6166595702412992_dp, &
799  0.900755794469128_dp, &
800  1.3187413549017004_dp, &
801  1.9536794891939209_dp, &
802  3.00131680399958_dp, &
803  5.21699996325917_dp/)
804  ELSE IF (e_range < 41198.0_dp) THEN
805  aw(:) = (/ &
806  1.2674056285680165e-05_dp, &
807  6.938931077849002e-05_dp, &
808  0.0001836100520485683_dp, &
809  0.0003826779493233582_dp, &
810  0.0007202040757498056_dp, &
811  0.0012903838734080182_dp, &
812  0.002248236525495258_dp, &
813  0.00384173613615444_dp, &
814  0.006462366726733287_dp, &
815  0.010722120046078792_dp, &
816  0.017568831387303644_dp, &
817  0.028457372697558436_dp, &
818  0.04560190325370437_dp, &
819  0.07234504966297221_dp, &
820  0.11369479964375559_dp, &
821  0.1771007906182374_dp, &
822  0.2735712154870606_dp, &
823  0.4192744014302692_dp, &
824  0.637834936286395_dp, &
825  0.9636469742972286_dp, &
826  1.4467538592483378_dp, &
827  2.1603857309953622_dp, &
828  3.2137696680006567_dp, &
829  4.777814618678099_dp, &
830  7.151554564591586_dp, &
831  11.0231252332385_dp, &
832  3.2810000033385146e-05_dp, &
833  8.24959243779711e-05_dp, &
834  0.00015031831931530549_dp, &
835  0.0002565196061853303_dp, &
836  0.0004339110517853371_dp, &
837  0.0007317640998323022_dp, &
838  0.0012244457171152918_dp, &
839  0.0020265452915832964_dp, &
840  0.0033148331774103383_dp, &
841  0.005359851622721186_dp, &
842  0.008571929299584299_dp, &
843  0.013568145467107103_dp, &
844  0.021269239209990003_dp, &
845  0.033039016114448296_dp, &
846  0.05088380967787895_dp, &
847  0.07773666161595308_dp, &
848  0.11786137108586371_dp, &
849  0.177428416908905_dp, &
850  0.26534598308886587_dp, &
851  0.3944982542877601_dp, &
852  0.583721306443492_dp, &
853  0.8613658745137791_dp, &
854  1.2729807136647084_dp, &
855  1.9020150846924464_dp, &
856  2.9440730604569967_dp, &
857  5.151372469471086_dp/)
858  ELSE IF (e_range < 94407.0_dp) THEN
859  aw(:) = (/ &
860  6.186479912580181e-06_dp, &
861  3.4233291323971405e-05_dp, &
862  9.256119767321995e-05_dp, &
863  0.00019951435503347473_dp, &
864  0.000391782808208518_dp, &
865  0.0007348447007241284_dp, &
866  0.0013393430685668998_dp, &
867  0.0023881407715703996_dp, &
868  0.004179359736833124_dp, &
869  0.007193105406189777_dp, &
870  0.012193603475754204_dp, &
871  0.020384081500457202_dp, &
872  0.03363963393153156_dp, &
873  0.054854535910931194_dp, &
874  0.0884563818462964_dp, &
875  0.1411619416118249_dp, &
876  0.22308161106495417_dp, &
877  0.3493255541517698_dp, &
878  0.5423345187791336_dp, &
879  0.835274429372801_dp, &
880  1.277059229828611_dp, &
881  1.9400953490632433_dp, &
882  2.933324383841704_dp, &
883  4.428041894721328_dp, &
884  6.724054874045832_dp, &
885  10.508722000292966_dp, &
886  1.605270034684411e-05_dp, &
887  4.1236777606757607e-05_dp, &
888  7.834646084720584e-05_dp, &
889  0.00014151002746774427_dp, &
890  0.0002536786392750537_dp, &
891  0.00045044627173442046_dp, &
892  0.0007883280940822237_dp, &
893  0.0013578695679215443_dp, &
894  0.0023029240253660617_dp, &
895  0.0038494157006882636_dp, &
896  0.006348322282988488_dp, &
897  0.010339483088961496_dp, &
898  0.016645606665935727_dp, &
899  0.026509781185170438_dp, &
900  0.04179532069895724_dp, &
901  0.06527461060266015_dp, &
902  0.10104501326885583_dp, &
903  0.15512766861607885_dp, &
904  0.23633651295613511_dp, &
905  0.3575717157671407_dp, &
906  0.5378622500972828_dp, &
907  0.8059829678217727_dp, &
908  1.2081212436199635_dp, &
909  1.8283703742955213_dp, &
910  2.862256950464903_dp, &
911  5.057682060420358_dp/)
912  ELSE IF (e_range < 189080.0_dp) THEN
913  aw(:) = (/ &
914  3.398642214192787e-06_dp, &
915  1.9025312202899538e-05_dp, &
916  5.266161038810626e-05_dp, &
917  0.00011755445811565422_dp, &
918  0.00024054583577387794_dp, &
919  0.00047036774204517446_dp, &
920  0.0008915989199018158_dp, &
921  0.0016480620414409948_dp, &
922  0.00298048536052862_dp, &
923  0.005285920675047294_dp, &
924  0.009210353187127669_dp, &
925  0.01579153884075367_dp, &
926  0.026677173353753962_dp, &
927  0.044455103994883116_dp, &
928  0.07314891087057689_dp, &
929  0.11895589362798491_dp, &
930  0.19133835932619525_dp, &
931  0.3046280564326354_dp, &
932  0.48037697428284243_dp, &
933  0.7508072430736709_dp, &
934  1.1639388014245502_dp, &
935  1.7914938071058262_dp, &
936  2.7421307814095353_dp, &
937  4.18739539739007_dp, &
938  6.427708444690209_dp, &
939  10.150038983021496_dp, &
940  8.840904815568487e-06_dp, &
941  2.3243411245798182e-05_dp, &
942  4.61419948505059e-05_dp, &
943  8.798822647972772e-05_dp, &
944  0.0001658923006259312_dp, &
945  0.0003074688101295367_dp, &
946  0.0005583537180990002_dp, &
947  0.0009937301893068423_dp, &
948  0.001735787847791623_dp, &
949  0.002980424755862107_dp, &
950  0.005037848905051201_dp, &
951  0.008393759041169294_dp, &
952  0.013800737687712429_dp, &
953  0.022413678806554142_dp, &
954  0.03598900168633015_dp, &
955  0.057175813550115986_dp, &
956  0.08993936716796855_dp, &
957  0.1401758115607063_dp, &
958  0.21660925146824841_dp, &
959  0.33212798532910376_dp, &
960  0.5058820683958832_dp, &
961  0.7669510501463104_dp, &
962  1.1620122321700583_dp, &
963  1.775691260253936_dp, &
964  2.8035588004499257_dp, &
965  4.990540570288636_dp/)
966  ELSE IF (e_range < 457444.0_dp) THEN
967  aw(:) = (/ &
968  1.5924512725077461e-06_dp, &
969  9.091861526358144e-06_dp, &
970  2.617525769293245e-05_dp, &
971  6.171102340282755e-05_dp, &
972  0.00013395463159750724_dp, &
973  0.00027703236128610273_dp, &
974  0.0005524440573740519_dp, &
975  0.0010685815369178362_dp, &
976  0.002012774020332085_dp, &
977  0.0037030176407984823_dp, &
978  0.006670370391832498_dp, &
979  0.011788596543354984_dp, &
980  0.020475865129561125_dp, &
981  0.03500529115221168_dp, &
982  0.058978461638664194_dp, &
983  0.09804109351785203_dp, &
984  0.16095595007242294_dp, &
985  0.26120029165707_dp, &
986  0.41933283009911826_dp, &
987  0.6664993354060413_dp, &
988  1.0496740893941348_dp, &
989  1.6397469396988835_dp, &
990  2.54498795937397_dp, &
991  3.9371777982755236_dp, &
992  6.11745128618483_dp, &
993  9.772519404832513_dp, &
994  4.1599386041678434e-06_dp, &
995  1.1373735340879785e-05_dp, &
996  2.420740702971419e-05_dp, &
997  4.980537853880897e-05_dp, &
998  0.00010018420860309139_dp, &
999  0.00019590630897285626_dp, &
1000  0.0003724648960236611_dp, &
1001  0.0006901948951647627_dp, &
1002  0.0012498546464018527_dp, &
1003  0.0022170391172995803_dp, &
1004  0.0038600176308915607_dp, &
1005  0.006607746433407134_dp, &
1006  0.011137935349822067_dp, &
1007  0.018509521510997304_dp, &
1008  0.030360279138384877_dp, &
1009  0.04919938780336098_dp, &
1010  0.07883793047658633_dp, &
1011  0.12502011000770785_dp, &
1012  0.19635093903737422_dp, &
1013  0.3056814182538295_dp, &
1014  0.47227226126957916_dp, &
1015  0.7255282521113733_dp, &
1016  1.112683210316189_dp, &
1017  1.7190059451835937_dp, &
1018  2.7402160914459284_dp, &
1019  4.918151105513321_dp/)
1020  ELSE IF (e_range < 2101965.0_dp) THEN
1021  aw(:) = (/ &
1022  4.376362889407548e-07_dp, &
1023  2.643443650482503e-06_dp, &
1024  8.433114286038146e-06_dp, &
1025  2.2439275175400065e-05_dp, &
1026  5.458751916823435e-05_dp, &
1027  0.00012469615312218161_dp, &
1028  0.00027090154346575427_dp, &
1029  0.0005643774226213476_dp, &
1030  0.001134437804378847_dp, &
1031  0.0022105491534259005_dp, &
1032  0.004191467146338867_dp, &
1033  0.007757292968144634_dp, &
1034  0.014048601297429358_dp, &
1035  0.024949196870902246_dp, &
1036  0.04352732410856656_dp, &
1037  0.07471686858797275_dp, &
1038  0.12635898905420878_dp, &
1039  0.21078138430975438_dp, &
1040  0.3471766909066865_dp, &
1041  0.5651735745080563_dp, &
1042  0.9102276762862731_dp, &
1043  1.451965060215205_dp, &
1044  2.2979916853626663_dp, &
1045  3.6203271934806356_dp, &
1046  5.721128905491445_dp, &
1047  9.287036012890901_dp, &
1048  1.15698350323011e-06_dp, &
1049  3.5239168925237668e-06_dp, &
1050  8.790907369106611e-06_dp, &
1051  2.0802473841355257e-05_dp, &
1052  4.666225571530836e-05_dp, &
1053  9.967519249166123e-05_dp, &
1054  0.00020419454443829576_dp, &
1055  0.0004036329368680413_dp, &
1056  0.0007736164897230748_dp, &
1057  0.0014432538211834921_dp, &
1058  0.002629031662183179_dp, &
1059  0.004688130413199208_dp, &
1060  0.008201289641287034_dp, &
1061  0.014100202125235302_dp, &
1062  0.023861417673799547_dp, &
1063  0.03979881543108159_dp, &
1064  0.06550130495364699_dp, &
1065  0.10648414776164583_dp, &
1066  0.17115716235174305_dp, &
1067  0.27227855433947445_dp, &
1068  0.42921718067635106_dp, &
1069  0.6717958687439105_dp, &
1070  1.048026560686365_dp, &
1071  1.6441450980118213_dp, &
1072  2.656245656029467_dp, &
1073  4.82228579092364_dp/)
1074  ELSE IF (e_range < 14140999.0_dp) THEN
1075  aw(:) = (/ &
1076  9.23626066730038e-08_dp, &
1077  6.508986506667573e-07_dp, &
1078  2.548256199033377e-06_dp, &
1079  8.121244988671366e-06_dp, &
1080  2.280050217208556e-05_dp, &
1081  5.838011937544951e-05_dp, &
1082  0.00013919237871694767_dp, &
1083  0.0003133658603796936_dp, &
1084  0.0006727986081208618_dp, &
1085  0.0013877632092122146_dp, &
1086  0.002765631333703304_dp, &
1087  0.005348711634689046_dp, &
1088  0.010074592422860395_dp, &
1089  0.018535050517138794_dp, &
1090  0.03338852029027121_dp, &
1091  0.05900918410430352_dp, &
1092  0.10249708343303293_dp, &
1093  0.17523445903983162_dp, &
1094  0.2952639242558341_dp, &
1095  0.4909040641368631_dp, &
1096  0.8062587841364091_dp, &
1097  1.3097798505481377_dp, &
1098  2.1083909166084847_dp, &
1099  3.3742290423813217_dp, &
1100  5.410341564313699_dp, &
1101  8.903545764950158_dp, &
1102  2.5312239739000636e-07_dp, &
1103  9.960996067355009e-07_dp, &
1104  3.1628525158730217e-06_dp, &
1105  8.836550056217969e-06_dp, &
1106  2.2389728532275477e-05_dp, &
1107  5.264557648617341e-05_dp, &
1108  0.0001166810769940904_dp, &
1109  0.00024642731945934143_dp, &
1110  0.0004998727804625503_dp, &
1111  0.0009797084412907111_dp, &
1112  0.0018638236468942935_dp, &
1113  0.00345441392005227_dp, &
1114  0.0062559619517267165_dp, &
1115  0.011097497158462704_dp, &
1116  0.019322067389699597_dp, &
1117  0.03307729968505806_dp, &
1118  0.05575685817980752_dp, &
1119  0.09266621527033955_dp, &
1120  0.15202316630925258_dp, &
1121  0.24647013442575488_dp, &
1122  0.39542567933234785_dp, &
1123  0.6290352095921129_dp, &
1124  0.9959743276132635_dp, &
1125  1.583367038071677_dp, &
1126  2.5877759334182198_dp, &
1127  4.74419254971056_dp/)
1128  ELSE
1129  aw(:) = (/ &
1130  1.6637944502107968e-08_dp, &
1131  1.8303408054343632e-07_dp, &
1132  9.687195306133241e-07_dp, &
1133  3.7389122528334316e-06_dp, &
1134  1.1973447021251308e-05_dp, &
1135  3.378096920589386e-05_dp, &
1136  8.68338189070593e-05_dp, &
1137  0.00020767968945116668_dp, &
1138  0.00046874696407475663_dp, &
1139  0.001008553647726778_dp, &
1140  0.0020841046186256115_dp, &
1141  0.0041598936699362606_dp, &
1142  0.008056312504669037_dp, &
1143  0.015193061067365586_dp, &
1144  0.02798246122774749_dp, &
1145  0.050456461866690214_dp, &
1146  0.08925401954572831_dp, &
1147  0.15515900119886547_dp, &
1148  0.2654733104360881_dp, &
1149  0.44765566677475566_dp, &
1150  0.7449030289121367_dp, &
1151  1.2248551649261998_dp, &
1152  1.9939328236196414_dp, &
1153  3.2243037705041826_dp, &
1154  5.219599665831332_dp, &
1155  8.666863277748455_dp, &
1156  5.318821639180232e-08_dp, &
1157  3.4945656362875746e-07_dp, &
1158  1.4305518660978924e-06_dp, &
1159  4.650456118314243e-06_dp, &
1160  1.30922605762957e-05_dp, &
1161  3.33205562494026e-05_dp, &
1162  7.860562991572967e-05_dp, &
1163  0.00017467466389322248_dp, &
1164  0.0003697061169016621_dp, &
1165  0.0007513106176187417_dp, &
1166  0.0014748157046539873_dp, &
1167  0.0028095645215491876_dp, &
1168  0.005213528655212034_dp, &
1169  0.009451865748843455_dp, &
1170  0.016782910646881463_dp, &
1171  0.029246610819691533_dp, &
1172  0.05010725392331038_dp, &
1173  0.08452724443086411_dp, &
1174  0.14058736988255555_dp, &
1175  0.23083686098028847_dp, &
1176  0.37470521981828925_dp, &
1177  0.6025298048228135_dp, &
1178  0.9634165096071392_dp, &
1179  1.5450976370872966_dp, &
1180  2.5445132697805617_dp, &
1181  4.694880341120372_dp/)
1182  END IF
1183  END SUBROUTINE
1184 
1185 ! **************************************************************************************************
1186 !> \brief ...
1187 !> \param k ...
1188 !> \param E_range ...
1189 !> \param aw ...
1190 !> \param E_ratio ...
1191 ! **************************************************************************************************
1192  PURE SUBROUTINE get_coeff_28(k, E_range, aw, E_ratio)
1193  INTEGER, INTENT(IN) :: k
1194  REAL(kind=dp), INTENT(IN) :: e_range
1195  REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
1196  REAL(kind=dp), INTENT(OUT) :: e_ratio
1197 
1198  e_ratio = 1.0_dp
1199  IF (e_range < 1545.0_dp) THEN
1200  e_ratio = 1545.0_dp/e_range
1201  aw(:) = (/ &
1202  0.00019912749139307142_dp, &
1203  0.0010623606743332262_dp, &
1204  0.002671743519332409_dp, &
1205  0.00513532276440788_dp, &
1206  0.008635195625198482_dp, &
1207  0.013459847519256876_dp, &
1208  0.020047630847673463_dp, &
1209  0.029039389901087887_dp, &
1210  0.04134031090156478_dp, &
1211  0.05819756722342521_dp, &
1212  0.0813050912035362_dp, &
1213  0.11294734291964816_dp, &
1214  0.156193889583069_dp, &
1215  0.21515890144425773_dp, &
1216  0.2953443526600425_dp, &
1217  0.4040922882505582_dp, &
1218  0.5511803231110346_dp, &
1219  0.7496069714265129_dp, &
1220  1.016632455219541_dp, &
1221  1.3751727396754474_dp, &
1222  1.8557042554346754_dp, &
1223  2.4989586763196456_dp, &
1224  3.3599578911008456_dp, &
1225  4.514593597566258_dp, &
1226  6.071708534726409_dp, &
1227  8.199087984832916_dp, &
1228  11.19334614657497_dp, &
1229  15.75712024734422_dp, &
1230  0.0005125044577801448_dp, &
1231  0.0012232237231645984_dp, &
1232  0.00201318827111783_dp, &
1233  0.0029437832219448537_dp, &
1234  0.004103311596300065_dp, &
1235  0.005618171589079525_dp, &
1236  0.007663188401742024_dp, &
1237  0.010469929287815255_dp, &
1238  0.01433805703894519_dp, &
1239  0.01965640843594298_dp, &
1240  0.026936172517646257_dp, &
1241  0.036855644579373535_dp, &
1242  0.05031748334107659_dp, &
1243  0.06852207829804384_dp, &
1244  0.09306268185731213_dp, &
1245  0.12604985461633972_dp, &
1246  0.1702755103243793_dp, &
1247  0.22943160937864643_dp, &
1248  0.30840755489079047_dp, &
1249  0.4137086894086003_dp, &
1250  0.5540782272946391_dp, &
1251  0.741497238773558_dp, &
1252  0.9929644420040254_dp, &
1253  1.3340651862992305_dp, &
1254  1.8071782497597113_dp, &
1255  2.4938998954135005_dp, &
1256  3.5946345041711467_dp, &
1257  5.901304226915114_dp/)
1258  ELSE IF (e_range < 2002.0_dp) THEN
1259  aw(:) = (/ &
1260  0.00015937273545708875_dp, &
1261  0.0008511031358508971_dp, &
1262  0.0021444475784000504_dp, &
1263  0.004133806965295614_dp, &
1264  0.006979927658415096_dp, &
1265  0.010939953042854741_dp, &
1266  0.016407375175241108_dp, &
1267  0.02396000912675003_dp, &
1268  0.034417229669099075_dp, &
1269  0.04891406525328216_dp, &
1270  0.06900316741446434_dp, &
1271  0.09679560984224389_dp, &
1272  0.13515199610246875_dp, &
1273  0.18793838914519878_dp, &
1274  0.2603666777263224_dp, &
1275  0.3594458206099125_dp, &
1276  0.494579482258333_dp, &
1277  0.6783583159834518_dp, &
1278  0.927614454599119_dp, &
1279  1.2648378420472655_dp, &
1280  1.7201130600602677_dp, &
1281  2.3338552489887388_dp, &
1282  3.1608903963862245_dp, &
1283  4.2770721150582895_dp, &
1284  5.7913663447139845_dp, &
1285  7.871758093638662_dp, &
1286  10.814809416909151_dp, &
1287  15.321476179970999_dp, &
1288  0.00041027809665924954_dp, &
1289  0.0009811723452880425_dp, &
1290  0.001620915236450962_dp, &
1291  0.0023840944111134044_dp, &
1292  0.0033503311465523967_dp, &
1293  0.004634503191430588_dp, &
1294  0.006395709602901231_dp, &
1295  0.008844913900028784_dp, &
1296  0.012257024616981905_dp, &
1297  0.016993101307172367_dp, &
1298  0.02353379728419698_dp, &
1299  0.03252363542798268_dp, &
1300  0.04482787026200198_dp, &
1301  0.06160612640371776_dp, &
1302  0.08440876245542936_dp, &
1303  0.11530375228655552_dp, &
1304  0.15704466612137769_dp, &
1305  0.21329510792248377_dp, &
1306  0.28893382637364007_dp, &
1307  0.39048261973383075_dp, &
1308  0.5267381633327601_dp, &
1309  0.7097795124230211_dp, &
1310  0.9567475153369529_dp, &
1311  1.2933958092367415_dp, &
1312  1.762243934642854_dp, &
1313  2.4448656022179347_dp, &
1314  3.5410603027618426_dp, &
1315  5.839188641520334_dp/)
1316  ELSE IF (e_range < 2600.0_dp) THEN
1317  aw(:) = (/ &
1318  0.00012724350537371705_dp, &
1319  0.0006802420548887551_dp, &
1320  0.0017174005833444652_dp, &
1321  0.0033210405572595314_dp, &
1322  0.005632832416553322_dp, &
1323  0.008881578544535886_dp, &
1324  0.013419698685145537_dp, &
1325  0.019766846961404197_dp, &
1326  0.028663060595610065_dp, &
1327  0.041139669406250204_dp, &
1328  0.058618369068556976_dp, &
1329  0.08304861028830621_dp, &
1330  0.11709467333563459_dp, &
1331  0.16438742365500805_dp, &
1332  0.2298611471707931_dp, &
1333  0.32020292243210463_dp, &
1334  0.44445136041510835_dp, &
1335  0.6147946527884036_dp, &
1336  0.8476375115705392_dp, &
1337  1.1650387509190727_dp, &
1338  1.5966797391113152_dp, &
1339  2.1826420752053064_dp, &
1340  2.9775354931417777_dp, &
1341  4.057156308900191_dp, &
1342  5.530582551166736_dp, &
1343  7.5660060038749855_dp, &
1344  10.45997985096501_dp, &
1345  14.911921279047414_dp, &
1346  0.00032764611790808316_dp, &
1347  0.0007852281095230586_dp, &
1348  0.001302499732766977_dp, &
1349  0.001927928018050743_dp, &
1350  0.0027331746862386277_dp, &
1351  0.0038223319490506384_dp, &
1352  0.005339653436386936_dp, &
1353  0.0074768267093066575_dp, &
1354  0.010485860861582824_dp, &
1355  0.01470204224626301_dp, &
1356  0.020577182689456824_dp, &
1357  0.028723198501018832_dp, &
1358  0.03996852241361688_dp, &
1359  0.05543195597157087_dp, &
1360  0.07662014166796133_dp, &
1361  0.10555670439639143_dp, &
1362  0.14495398753342661_dp, &
1363  0.1984431170697882_dp, &
1364  0.27088687577758624_dp, &
1365  0.36881736713632424_dp, &
1366  0.501078546468407_dp, &
1367  0.6798426309902373_dp, &
1368  0.9223911021644032_dp, &
1369  1.2546500752337444_dp, &
1370  1.719292335657813_dp, &
1371  2.3978939243834243_dp, &
1372  3.489702010303218_dp, &
1373  5.779704886427998_dp/)
1374  ELSE IF (e_range < 3300.0_dp) THEN
1375  aw(:) = (/ &
1376  0.0001035812061619439_dp, &
1377  0.000554312958948722_dp, &
1378  0.0014022178351092648_dp, &
1379  0.0027199186238307522_dp, &
1380  0.004633626332072742_dp, &
1381  0.007348901862042884_dp, &
1382  0.011184100569752935_dp, &
1383  0.016610348266822107_dp, &
1384  0.02430141997172798_dp, &
1385  0.03520198814732897_dp, &
1386  0.05062394356636958_dp, &
1387  0.0723803681708885_dp, &
1388  0.10296857818003698_dp, &
1389  0.14581768397450023_dp, &
1390  0.2056217187942231_dp, &
1391  0.28878665461351954_dp, &
1392  0.4040292970175386_dp, &
1393  0.5631795391897031_dp, &
1394  0.7822574690472879_dp, &
1395  1.0829291748663241_dp, &
1396  1.4945032140919154_dp, &
1397  2.056746330708999_dp, &
1398  2.8240560994099004_dp, &
1399  3.87216062398999_dp, &
1400  5.31022885971396_dp, &
1401  7.306643557351196_dp, &
1402  10.157983272563953_dp, &
1403  14.562388075641433_dp, &
1404  0.000266779348158189_dp, &
1405  0.0006406783010995833_dp, &
1406  0.0010669475657666657_dp, &
1407  0.0015890577230093321_dp, &
1408  0.0022720547662622424_dp, &
1409  0.003210897076964011_dp, &
1410  0.004537212534376952_dp, &
1411  0.006426464787961385_dp, &
1412  0.009111540381231737_dp, &
1413  0.012906037854636046_dp, &
1414  0.018237038812244945_dp, &
1415  0.025687953276114096_dp, &
1416  0.036054499502532374_dp, &
1417  0.05041868971863853_dp, &
1418  0.070247180509793_dp, &
1419  0.0975222869562315_dp, &
1420  0.134916933126155_dp, &
1421  0.1860296678962944_dp, &
1422  0.2557045471811927_dp, &
1423  0.3504778528812439_dp, &
1424  0.4792309189974202_dp, &
1425  0.6542157222577841_dp, &
1426  0.8928389893219679_dp, &
1427  1.2211855078507017_dp, &
1428  1.6820762830637361_dp, &
1429  2.357109509558417_dp, &
1430  3.4450757129111187_dp, &
1431  5.728067480861656_dp/)
1432  ELSE IF (e_range < 4000.0_dp) THEN
1433  aw(:) = (/ &
1434  8.771437194659891e-05_dp, &
1435  0.00046981282949284237_dp, &
1436  0.0011904567715385075_dp, &
1437  0.0023152670914235655_dp, &
1438  0.003959200577898668_dp, &
1439  0.006310722793342447_dp, &
1440  0.009662905002781183_dp, &
1441  0.01445070779560698_dp, &
1442  0.021298505075191456_dp, &
1443  0.031086296591640365_dp, &
1444  0.04504371996352949_dp, &
1445  0.06488109904164477_dp, &
1446  0.09296905461591826_dp, &
1447  0.13258247030343728_dp, &
1448  0.1882303453180191_dp, &
1449  0.26610050569058297_dp, &
1450  0.3746580755427752_dp, &
1451  0.5254504247939676_dp, &
1452  0.7341916622638109_dp, &
1453  1.0222323068269783_dp, &
1454  1.418577696146867_dp, &
1455  1.9627342158223895_dp, &
1456  2.7089187483169885_dp, &
1457  3.732793667761796_dp, &
1458  5.14359311285564_dp, &
1459  7.109854244554064_dp, &
1460  9.928196448146211_dp, &
1461  14.295810062691444_dp, &
1462  0.0002259584596775983_dp, &
1463  0.0005436014065931008_dp, &
1464  0.0009083522994476501_dp, &
1465  0.001360022022949313_dp, &
1466  0.0019587330256291995_dp, &
1467  0.0027925453027995255_dp, &
1468  0.003983542841235872_dp, &
1469  0.005695043198214815_dp, &
1470  0.008145671980235551_dp, &
1471  0.011632693203529134_dp, &
1472  0.01656425108725137_dp, &
1473  0.023501595060412054_dp, &
1474  0.03321470050609412_dp, &
1475  0.04675631004359308_dp, &
1476  0.06556089291033432_dp, &
1477  0.09157703564672734_dp, &
1478  0.1274448334217016_dp, &
1479  0.17673475828550625_dp, &
1480  0.2442731132825866_dp, &
1481  0.33659611474367285_dp, &
1482  0.4626113339076691_dp, &
1483  0.6346313704421029_dp, &
1484  0.8701615672163753_dp, &
1485  1.1954150913540855_dp, &
1486  1.6533375661453558_dp, &
1487  2.325557793916785_dp, &
1488  3.410528405591019_dp, &
1489  5.688122811462863_dp/)
1490  ELSE IF (e_range < 5000.0_dp) THEN
1491  aw(:) = (/ &
1492  7.231152188478278e-05_dp, &
1493  0.00038772726865815517_dp, &
1494  0.0009844837786035514_dp, &
1495  0.0019209126836657545_dp, &
1496  0.003300157154162172_dp, &
1497  0.005292557663606624_dp, &
1498  0.008164163748376724_dp, &
1499  0.012311171926660728_dp, &
1500  0.018304991861179568_dp, &
1501  0.026956176212698496_dp, &
1502  0.03940566382368068_dp, &
1503  0.057252298754729467_dp, &
1504  0.08272831849932695_dp, &
1505  0.11893897414817305_dp, &
1506  0.17018831821850053_dp, &
1507  0.2424208413642749_dp, &
1508  0.34381888188337045_dp, &
1509  0.48560994949960345_dp, &
1510  0.68315888981334_dp, &
1511  0.9574526915358277_dp, &
1512  1.3371435383436294_dp, &
1513  1.8614300851160115_dp, &
1514  2.5843101667934096_dp, &
1515  3.5813587287033566_dp, &
1516  4.961876490500659_dp, &
1517  6.894579341534884_dp, &
1518  9.676154843478928_dp, &
1519  14.002777296643712_dp, &
1520  0.00018632498066864197_dp, &
1521  0.00044921855213653585_dp, &
1522  0.0007537638296544074_dp, &
1523  0.0011359077842782092_dp, &
1524  0.0016504930186307747_dp, &
1525  0.002378087896208448_dp, &
1526  0.0034304274436559386_dp, &
1527  0.004957778020056624_dp, &
1528  0.007163453510160269_dp, &
1529  0.010326973559848835_dp, &
1530  0.0148355888498722_dp, &
1531  0.02122577871325675_dp, &
1532  0.030238442499465622_dp, &
1533  0.04289294382786412_dp, &
1534  0.06058666241299866_dp, &
1535  0.08522882557656473_dp, &
1536  0.11942055225842414_dp, &
1537  0.16669801861501937_dp, &
1538  0.23186426244014152_dp, &
1539  0.32145183283272727_dp, &
1540  0.44439450297432675_dp, &
1541  0.6130709874752484_dp, &
1542  0.8450980113616935_dp, &
1543  1.1668375144951064_dp, &
1544  1.621384532244084_dp, &
1545  2.290416624110755_dp, &
1546  3.3720270933942214_dp, &
1547  5.643641293866133_dp/)
1548  ELSE IF (e_range < 5800.0_dp) THEN
1549  aw(:) = (/ &
1550  6.358752692633583e-05_dp, &
1551  0.0003412046362365837_dp, &
1552  0.0008676052314903817_dp, &
1553  0.001696724618707933_dp, &
1554  0.0029245257586060763_dp, &
1555  0.004710233349785592_dp, &
1556  0.007303215812339811_dp, &
1557  0.011075692416141687_dp, &
1558  0.016566304596355927_dp, &
1559  0.024542556688053108_dp, &
1560  0.03609017098515814_dp, &
1561  0.05273820097743335_dp, &
1562  0.07663171929303365_dp, &
1563  0.11076846568614528_dp, &
1564  0.15932179622752599_dp, &
1565  0.22808006029257497_dp, &
1566  0.32504298834606_dp, &
1567  0.4612301705022223_dp, &
1568  0.6517778001414668_dp, &
1569  0.9174329759430668_dp, &
1570  1.2866126278634253_dp, &
1571  1.7983078281539955_dp, &
1572  2.506365504219328_dp, &
1573  3.4862959694100204_dp, &
1574  4.847438621720606_dp, &
1575  6.7586271477598405_dp, &
1576  9.516604972737115_dp, &
1577  13.816917061150304_dp, &
1578  0.00016387366227471576_dp, &
1579  0.0003956833555057065_dp, &
1580  0.0006658661861317086_dp, &
1581  0.0010080085317879625_dp, &
1582  0.0014736812958346364_dp, &
1583  0.002138763598196897_dp, &
1584  0.00310853235933617_dp, &
1585  0.004525172218371909_dp, &
1586  0.006582500342505047_dp, &
1587  0.0095488999069641_dp, &
1588  0.013798331312490912_dp, &
1589  0.01985134913295637_dp, &
1590  0.028429999006008653_dp, &
1591  0.04053182527263095_dp, &
1592  0.05752974961085405_dp, &
1593  0.08130676932209915_dp, &
1594  0.11443765763930915_dp, &
1595  0.16043487908983078_dp, &
1596  0.2240845367272352_dp, &
1597  0.311914711856157_dp, &
1598  0.4328741422164402_dp, &
1599  0.5993829816920151_dp, &
1600  0.8291300891292139_dp, &
1601  1.1485759543667498_dp, &
1602  1.6009173789914857_dp, &
1603  2.2678714811822975_dp, &
1604  3.3473105643753676_dp, &
1605  5.615101807506323_dp/)
1606  ELSE IF (e_range < 7000.0_dp) THEN
1607  aw(:) = (/ &
1608  5.40208922943882e-05_dp, &
1609  0.0002901574218009231_dp, &
1610  0.0007392141971595068_dp, &
1611  0.0014500283280455789_dp, &
1612  0.002510177021344463_dp, &
1613  0.0040657991238261465_dp, &
1614  0.006346521670349522_dp, &
1615  0.009696151598289092_dp, &
1616  0.01461448675071523_dp, &
1617  0.021817888400210955_dp, &
1618  0.03232620376087572_dp, &
1619  0.047584791601727995_dp, &
1620  0.06963362235719665_dp, &
1621  0.10134008926088696_dp, &
1622  0.14671822700211287_dp, &
1623  0.21136500303928102_dp, &
1624  0.30305507802937337_dp, &
1625  0.43255028902361986_dp, &
1626  0.6147016140691686_dp, &
1627  0.8699548471471977_dp, &
1628  1.2264290200274872_dp, &
1629  1.7228495271474296_dp, &
1630  2.412866754832892_dp, &
1631  3.371902180409746_dp, &
1632  4.7093379807234985_dp, &
1633  6.594155669520039_dp, &
1634  9.323180769772668_dp, &
1635  13.591212022178699_dp, &
1636  0.00013925034927611353_dp, &
1637  0.00033689758020930645_dp, &
1638  0.0005691288628998808_dp, &
1639  0.000866760965686723_dp, &
1640  0.0012774771286669078_dp, &
1641  0.0018715412342993915_dp, &
1642  0.0027465275546555167_dp, &
1643  0.004035039597245034_dp, &
1644  0.0059195955044671665_dp, &
1645  0.0086551765726244_dp, &
1646  0.012599568036048066_dp, &
1647  0.018253775832994857_dp, &
1648  0.02631653618635365_dp, &
1649  0.03775822887923194_dp, &
1650  0.053921093309633066_dp, &
1651  0.07665492497469895_dp, &
1652  0.10850075471633389_dp, &
1653  0.1529401192419044_dp, &
1654  0.2147361484742657_dp, &
1655  0.30040908293128193_dp, &
1656  0.41892390451696465_dp, &
1657  0.5827503975591537_dp, &
1658  0.8096664957210812_dp, &
1659  1.1262568684972982_dp, &
1660  1.5758496574356475_dp, &
1661  2.240219834134439_dp, &
1662  3.316979586478506_dp, &
1663  5.5800996039424104_dp/)
1664  ELSE IF (e_range < 8500.0_dp) THEN
1665  aw(:) = (/ &
1666  4.564555265477108e-05_dp, &
1667  0.0002454346685212948_dp, &
1668  0.0006265784407134182_dp, &
1669  0.001233158622447077_dp, &
1670  0.0021448652153409154_dp, &
1671  0.0034954182642228226_dp, &
1672  0.005495608826652996_dp, &
1673  0.00846210660098653_dp, &
1674  0.012857585326682552_dp, &
1675  0.01934938119006627_dp, &
1676  0.028893873468546265_dp, &
1677  0.04285529874482882_dp, &
1678  0.06317112153384097_dp, &
1679  0.0925808252186819_dp, &
1680  0.13494115158016368_dp, &
1681  0.19565897567855495_dp, &
1682  0.2822840227867385_dp, &
1683  0.405318874954234_dp, &
1684  0.5793256641233082_dp, &
1685  0.8244427232040404_dp, &
1686  1.168482383587411_dp, &
1687  1.6498933305311403_dp, &
1688  2.322117411253598_dp, &
1689  3.2604766389691147_dp, &
1690  4.574390024972901_dp, &
1691  6.432989341834178_dp, &
1692  9.133196407474784_dp, &
1693  13.369095389855303_dp, &
1694  0.00011768969816977658_dp, &
1695  0.00028534927032496446_dp, &
1696  0.0004840726346740154_dp, &
1697  0.0007420579710874475_dp, &
1698  0.0011032591807000774_dp, &
1699  0.0016325138217318865_dp, &
1700  0.002419994753070502_dp, &
1701  0.0035891515886961726_dp, &
1702  0.005311642196826666_dp, &
1703  0.007829394245850389_dp, &
1704  0.011484246513613412_dp, &
1705  0.016757755663488007_dp, &
1706  0.024325289635545783_dp, &
1707  0.03512979233715042_dp, &
1708  0.05048226189921966_dp, &
1709  0.07219835845965666_dp, &
1710  0.1027839824530896_dp, &
1711  0.14568785531725492_dp, &
1712  0.20564777829998312_dp, &
1713  0.2891735001868529_dp, &
1714  0.4052436947742419_dp, &
1715  0.5663760127138803_dp, &
1716  0.7904374777760682_dp, &
1717  1.1041398360339376_dp, &
1718  1.5509491079980848_dp, &
1719  2.21270825293388_dp, &
1720  3.2867828515308894_dp, &
1721  5.5452724054483005_dp/)
1722  ELSE IF (e_range < 11000.0_dp) THEN
1723  aw(:) = (/ &
1724  3.6488006929306264e-05_dp, &
1725  0.00019649151810584802_dp, &
1726  0.000503107877439482_dp, &
1727  0.000994818980265892_dp, &
1728  0.0017419330458111762_dp, &
1729  0.00286324584306399_dp, &
1730  0.004546790823266163_dp, &
1731  0.0070764254736432365_dp, &
1732  0.01086988103008825_dp, &
1733  0.01653489379720316_dp, &
1734  0.024950193189557313_dp, &
1735  0.0373800572984858_dp, &
1736  0.05563473102373159_dp, &
1737  0.08229382069514388_dp, &
1738  0.12101608504744633_dp, &
1739  0.1769674560118736_dp, &
1740  0.25741052665895353_dp, &
1741  0.3725145015640989_dp, &
1742  0.5364671734722614_dp, &
1743  0.7690049629152851_dp, &
1744  1.0975352324996732_dp, &
1745  1.5601365551801154_dp, &
1746  2.209966148011392_dp, &
1747  3.1222026085468673_dp, &
1748  4.406302512891578_dp, &
1749  6.231592566777427_dp, &
1750  8.895138025566414_dp, &
1751  13.09015522563044_dp, &
1752  9.411058161764564e-05_dp, &
1753  0.00022887458151702356_dp, &
1754  0.00039057680221556677_dp, &
1755  0.0006042814819193009_dp, &
1756  0.0009094035245976271_dp, &
1757  0.0013641332935019103_dp, &
1758  0.002049648033435726_dp, &
1759  0.003078322757949694_dp, &
1760  0.004608548064372825_dp, &
1761  0.006866051954909783_dp, &
1762  0.010172626387128262_dp, &
1763  0.014985141010389004_dp, &
1764  0.021949052283394388_dp, &
1765  0.03197188778843743_dp, &
1766  0.046323942696241904_dp, &
1767  0.0667759221190767_dp, &
1768  0.09578682159309504_dp, &
1769  0.13676065620689198_dp, &
1770  0.19439935510505243_dp, &
1771  0.27519525733539296_dp, &
1772  0.3881406112452913_dp, &
1773  0.5458114344320582_dp, &
1774  0.7661884133896568_dp, &
1775  1.0761497928442625_dp, &
1776  1.519347409242135_dp, &
1777  2.177726198492106_dp, &
1778  3.2483564776686458_dp, &
1779  5.5009815780981555_dp/)
1780  ELSE IF (e_range < 14000.0_dp) THEN
1781  aw(:) = (/ &
1782  2.9588446308604547e-05_dp, &
1783  0.00015957764714927812_dp, &
1784  0.00040980061859442377_dp, &
1785  0.0008141581268268158_dp, &
1786  0.0014351942867949477_dp, &
1787  0.002379218143911262_dp, &
1788  0.003815130228038144_dp, &
1789  0.0059991869926145835_dp, &
1790  0.009311238414156518_dp, &
1791  0.014308514375164259_dp, &
1792  0.021803455514145805_dp, &
1793  0.03297432754720971_dp, &
1794  0.04952104060181237_dp, &
1795  0.07388347387186651_dp, &
1796  0.1095460460641794_dp, &
1797  0.16146092263899975_dp, &
1798  0.23663401107846255_dp, &
1799  0.3449341441338246_dp, &
1800  0.5002090250697223_dp, &
1801  0.7218265976855273_dp, &
1802  1.036819021323394_dp, &
1803  1.4829173538285452_dp, &
1804  2.113006031585928_dp, &
1805  3.002118887270464_dp, &
1806  4.25973634734891_dp, &
1807  6.055362139002693_dp, &
1808  8.68620971747294_dp, &
1809  12.84476212055696_dp, &
1810  7.634110961434247e-05_dp, &
1811  0.00018622528846790902_dp, &
1812  0.00031969127466536623_dp, &
1813  0.0004991918529001643_dp, &
1814  0.0007602900708133781_dp, &
1815  0.0011555100382159716_dp, &
1816  0.0017584338105163752_dp, &
1817  0.0026721061529931525_dp, &
1818  0.004043591457129711_dp, &
1819  0.00608455281208252_dp, &
1820  0.009099150682157118_dp, &
1821  0.013522328657324851_dp, &
1822  0.01997274372862434_dp, &
1823  0.029325909214924503_dp, &
1824  0.04281497070968849_dp, &
1825  0.06216914194983893_dp, &
1826  0.08980351557167271_dp, &
1827  0.12907941549114965_dp, &
1828  0.184663246594884_dp, &
1829  0.2630278258762335_dp, &
1830  0.3731736346682672_dp, &
1831  0.5277260380561264_dp, &
1832  0.7447670823860634_dp, &
1833  1.051327938626868_dp, &
1834  1.4912362410625788_dp, &
1835  2.1465432019415753_dp, &
1836  3.214074319529515_dp, &
1837  5.461496007193266_dp/)
1838  ELSE IF (e_range < 18000.0_dp) THEN
1839  aw(:) = (/ &
1840  2.3779414127343956e-05_dp, &
1841  0.00012846422005240743_dp, &
1842  0.0003309928831073909_dp, &
1843  0.0006610841016675125_dp, &
1844  0.001174111517851935_dp, &
1845  0.001964735642046167_dp, &
1846  0.0031839437046973372_dp, &
1847  0.005062138452978201_dp, &
1848  0.007943587365676456_dp, &
1849  0.012337793711020667_dp, &
1850  0.01899408520862755_dp, &
1851  0.02900819673889348_dp, &
1852  0.0439733623874622_dp, &
1853  0.06619336766731646_dp, &
1854  0.09898159274083276_dp, &
1855  0.1470789732012216_dp, &
1856  0.2172359337388872_dp, &
1857  0.31902010927146557_dp, &
1858  0.465935489961852_dp, &
1859  0.676974407399601_dp, &
1860  0.9787827564627841_dp, &
1861  1.4087293747222094_dp, &
1862  2.0194090526711066_dp, &
1863  2.8856949554637783_dp, &
1864  4.117081205191889_dp, &
1865  5.883249820883165_dp, &
1866  8.481580484406694_dp, &
1867  12.603865500485162_dp, &
1868  6.137647450224398e-05_dp, &
1869  0.00015022918522230813_dp, &
1870  0.00025961689799477495_dp, &
1871  0.00040956404897364297_dp, &
1872  0.0006319903102840593_dp, &
1873  0.0009740518614949558_dp, &
1874  0.0015022032585384295_dp, &
1875  0.002310722155775527_dp, &
1876  0.0035358702066416604_dp, &
1877  0.005375683414999454_dp, &
1878  0.008117044767788793_dp, &
1879  0.012173222749539778_dp, &
1880  0.018136165890969762_dp, &
1881  0.026849214184554587_dp, &
1882  0.03950783752538176_dp, &
1883  0.057798731689314514_dp, &
1884  0.08409142368704033_dp, &
1885  0.1217021378276602_dp, &
1886  0.17525857508663245_dp, &
1887  0.2512102337617962_dp, &
1888  0.3585618870750593_dp, &
1889  0.5099851018896473_dp, &
1890  0.7236623896941952_dp, &
1891  1.0267809590048702_dp, &
1892  1.4633527890610423_dp, &
1893  2.1155495825866195_dp, &
1894  3.1799713652899073_dp, &
1895  5.422242322222096_dp/)
1896  ELSE IF (e_range < 22000.0_dp) THEN
1897  aw(:) = (/ &
1898  1.996975719114667e-05_dp, &
1899  0.00010803766024790043_dp, &
1900  0.00027914946672295566_dp, &
1901  0.0005600685201304379_dp, &
1902  0.0010010455833094946_dp, &
1903  0.0016883469263468778_dp, &
1904  0.0027600190175514337_dp, &
1905  0.004427777354772284_dp, &
1906  0.0070100858816421925_dp, &
1907  0.010981630036803518_dp, &
1908  0.017045370162921285_dp, &
1909  0.026235975775831418_dp, &
1910  0.04006720477930825_dp, &
1911  0.060740772707250645_dp, &
1912  0.09144094582526643_dp, &
1913  0.13674817658247623_dp, &
1914  0.20321752055734807_dp, &
1915  0.3001847449852204_dp, &
1916  0.44088738725627163_dp, &
1917  0.6440243823419953_dp, &
1918  0.9359372859467849_dp, &
1919  1.3537064463445627_dp, &
1920  1.9496922567626198_dp, &
1921  2.798633041764183_dp, &
1922  4.010025863301125_dp, &
1923  5.753689968035089_dp, &
1924  8.327144493740365_dp, &
1925  12.421679016019592_dp, &
1926  5.156001410295644e-05_dp, &
1927  0.00012656590579908283_dp, &
1928  0.00021996531665695752_dp, &
1929  0.00035003655094498806_dp, &
1930  0.0005460402965281552_dp, &
1931  0.0008512186113124776_dp, &
1932  0.0013268718440107125_dp, &
1933  0.0020609116400843674_dp, &
1934  0.0031816393309671174_dp, &
1935  0.004876914587104125_dp, &
1936  0.007420595371219653_dp, &
1937  0.011209484450019506_dp, &
1938  0.016815094297439877_dp, &
1939  0.02505596575962014_dp, &
1940  0.037098296020097635_dp, &
1941  0.05459544297770877_dp, &
1942  0.07988080804958117_dp, &
1943  0.11623432159124078_dp, &
1944  0.16825175472580994_dp, &
1945  0.2423620424395829_dp, &
1946  0.3475704605516449_dp, &
1947  0.4965817576093905_dp, &
1948  0.7076548141522077_dp, &
1949  1.0080986813480735_dp, &
1950  1.4420727665642223_dp, &
1951  2.09185113214404_dp, &
1952  3.1538737345296277_dp, &
1953  5.392217904025483_dp/)
1954  ELSE IF (e_range < 30000.0_dp) THEN
1955  aw(:) = (/ &
1956  1.5245472100141073e-05_dp, &
1957  8.267520676446116e-05_dp, &
1958  0.0002146253100574728_dp, &
1959  0.00043387740900171205_dp, &
1960  0.0007836944027554964_dp, &
1961  0.0013387930663292789_dp, &
1962  0.0022193817580203824_dp, &
1963  0.0036113909961874636_dp, &
1964  0.005797519906650395_dp, &
1965  0.009203847862920226_dp, &
1966  0.01446808989009802_dp, &
1967  0.022538313347044602_dp, &
1968  0.034814713569521594_dp, &
1969  0.05335209638799308_dp, &
1970  0.0811475703355085_dp, &
1971  0.12254732266532327_dp, &
1972  0.18381921201396537_dp, &
1973  0.27395570440350625_dp, &
1974  0.40579685475434923_dp, &
1975  0.5976003453364507_dp, &
1976  0.875245772613848_dp, &
1977  1.2753705825844541_dp, &
1978  1.8499693672606738_dp, &
1979  2.6735624079289133_dp, &
1980  3.855638524201632_dp, &
1981  5.566220151857392_dp, &
1982  8.103052167483417_dp, &
1983  12.156727650422702_dp, &
1984  3.9383299458817714e-05_dp, &
1985  9.713918675705757e-05_dp, &
1986  0.000170421510611186_dp, &
1987  0.0002751089399893439_dp, &
1988  0.0004367526322332042_dp, &
1989  0.0006931539398019088_dp, &
1990  0.0010985049239842675_dp, &
1991  0.0017318671480729233_dp, &
1992  0.0027102869498213354_dp, &
1993  0.004207039027136905_dp, &
1994  0.006477134639756053_dp, &
1995  0.009893360814081634_dp, &
1996  0.014997191697894255_dp, &
1997  0.02257042180249529_dp, &
1998  0.03373549826844379_dp, &
1999  0.05009547634855471_dp, &
2000  0.07392862462849442_dp, &
2001  0.10845863055245018_dp, &
2002  0.15823054590725322_dp, &
2003  0.22963859190692054_dp, &
2004  0.33168416368000975_dp, &
2005  0.47711716376192037_dp, &
2006  0.6843078702870563_dp, &
2007  0.9807484854746213_dp, &
2008  1.4108257998358733_dp, &
2009  2.0569814817847933_dp, &
2010  3.1154409728311463_dp, &
2011  5.348031605731007_dp/)
2012  ELSE IF (e_range < 40000.0_dp) THEN
2013  aw(:) = (/ &
2014  1.1868158588050793e-05_dp, &
2015  6.451496656973e-05_dp, &
2016  0.00016828367389327262_dp, &
2017  0.0003428138578813575_dp, &
2018  0.0006257728657443166_dp, &
2019  0.001082546664145262_dp, &
2020  0.0018189122009131555_dp, &
2021  0.002999899699939122_dp, &
2022  0.004879035508307028_dp, &
2023  0.007842398392055541_dp, &
2024  0.012473504017331851_dp, &
2025  0.019647823262643315_dp, &
2026  0.030669526100067415_dp, &
2027  0.04746815571454119_dp, &
2028  0.07287994053111492_dp, &
2029  0.11104807754173227_dp, &
2030  0.16798957023910677_dp, &
2031  0.2523945702323838_dp, &
2032  0.37675011948627407_dp, &
2033  0.5589184164507482_dp, &
2034  0.8243607282457994_dp, &
2035  1.209308359311203_dp, &
2036  1.7654144169432378_dp, &
2037  2.566987933665634_dp, &
2038  3.7234969430883793_dp, &
2039  5.405141983044582_dp, &
2040  7.9098851591902335_dp, &
2041  11.927751732780631_dp, &
2042  3.067518035880976e-05_dp, &
2043  7.602736152767003e-05_dp, &
2044  0.00013466099350051709_dp, &
2045  0.0002205156203375216_dp, &
2046  0.00035609796830194946_dp, &
2047  0.0005747749473125263_dp, &
2048  0.0009249835582363322_dp, &
2049  0.0014785254567841132_dp, &
2050  0.0023430318256698933_dp, &
2051  0.003679400712048183_dp, &
2052  0.005726484701954953_dp, &
2053  0.008836295353538897_dp, &
2054  0.013524092658912494_dp, &
2055  0.02053931124436599_dp, &
2056  0.030965498069383788_dp, &
2057  0.04636050178159656_dp, &
2058  0.06895241489824191_dp, &
2059  0.1019128924749107_dp, &
2060  0.14973885102211165_dp, &
2061  0.2187896005944566_dp, &
2062  0.31805835198625043_dp, &
2063  0.4603305714250192_dp, &
2064  0.6640726964679041_dp, &
2065  0.9569407810619277_dp, &
2066  1.3835309605116226_dp, &
2067  2.026448697565121_dp, &
2068  3.0817527233540427_dp, &
2069  5.309325429687417_dp/)
2070  ELSE IF (e_range < 55000.0_dp) THEN
2071  aw(:) = (/ &
2072  8.994970387322457e-06_dp, &
2073  4.9038651219381535e-05_dp, &
2074  0.00012866021417541092_dp, &
2075  0.00026454506965524195_dp, &
2076  0.0004890218504779385_dp, &
2077  0.0008585083873106919_dp, &
2078  0.0014649004957659442_dp, &
2079  0.002453066714438582_dp, &
2080  0.00404818477662515_dp, &
2081  0.006597100721999991_dp, &
2082  0.010629669867507806_dp, &
2083  0.016948840913414677_dp, &
2084  0.026762034057250313_dp, &
2085  0.041871547214080776_dp, &
2086  0.06494887934178976_dp, &
2087  0.09992774926372437_dp, &
2088  0.15256426013426896_dp, &
2089  0.2312316469143259_dp, &
2090  0.3480438390880272_dp, &
2091  0.520441341810499_dp, &
2092  0.7734349455842019_dp, &
2093  1.1428133579373827_dp, &
2094  1.6798513048817534_dp, &
2095  2.4586158447712725_dp, &
2096  3.5885384348523433_dp, &
2097  5.240004673003719_dp, &
2098  7.7112226946250795_dp, &
2099  11.691667476075265_dp, &
2100  2.3263971840934205e-05_dp, &
2101  5.799733961007195e-05_dp, &
2102  0.00010391874644151258_dp, &
2103  0.0001730995125618299_dp, &
2104  0.0002850761818642179_dp, &
2105  0.00046892999174830916_dp, &
2106  0.0007675526539416234_dp, &
2107  0.0012456339379473573_dp, &
2108  0.0020014080059075953_dp, &
2109  0.0031832610399331806_dp, &
2110  0.005013553854404307_dp, &
2111  0.007822909693482165_dp, &
2112  0.012099368861470802_dp, &
2113  0.018558470273632704_dp, &
2114  0.02824263531163439_dp, &
2115  0.04266142900862469_dp, &
2116  0.06398871559990858_dp, &
2117  0.09533906369189366_dp, &
2118  0.14115536539598936_dp, &
2119  0.20775581572804178_dp, &
2120  0.3041200099484807_dp, &
2121  0.4430661693538553_dp, &
2122  0.6431592914657807_dp, &
2123  0.9322296232686789_dp, &
2124  1.355102086814327_dp, &
2125  1.9945706936958254_dp, &
2126  3.046542150566686_dp, &
2127  5.268893998445498_dp/)
2128  ELSE IF (e_range < 75000.0_dp) THEN
2129  aw(:) = (/ &
2130  6.8673479673260504e-06_dp, &
2131  3.755590753670896e-05_dp, &
2132  9.915139981458229e-05_dp, &
2133  0.00020590986120619216_dp, &
2134  0.00038570411969655687_dp, &
2135  0.0006874225835250557_dp, &
2136  0.0011912995282688835_dp, &
2137  0.0020251938479038355_dp, &
2138  0.0033901629916074914_dp, &
2139  0.005599342672133319_dp, &
2140  0.009136035642934201_dp, &
2141  0.0147397005849582_dp, &
2142  0.023532325447503034_dp, &
2143  0.03720291582111918_dp, &
2144  0.05827512485526659_dp, &
2145  0.09049318420974399_dp, &
2146  0.13937535368635193_dp, &
2147  0.21300368025384273_dp, &
2148  0.3231464746438852_dp, &
2149  0.4868502227776408_dp, &
2150  0.7287007191729763_dp, &
2151  1.0840642579491595_dp, &
2152  1.6038486600019533_dp, &
2153  2.3618790984089095_dp, &
2154  3.467539083950752_dp, &
2155  5.09138219825452_dp, &
2156  7.53185924341038_dp, &
2157  11.47798005469671_dp, &
2158  1.7773461657358013e-05_dp, &
2159  4.458780785431919e-05_dp, &
2160  8.088403265892346e-05_dp, &
2161  0.00013715743270713957_dp, &
2162  0.00023041539243485957_dp, &
2163  0.00038613012816423253_dp, &
2164  0.0006425163485643913_dp, &
2165  0.001058147634119284_dp, &
2166  0.0017230321030210073_dp, &
2167  0.002774473725192771_dp, &
2168  0.004420090523231148_dp, &
2169  0.006971221027705693_dp, &
2170  0.010891151319944746_dp, &
2171  0.01686432115872218_dp, &
2172  0.025895072083461815_dp, &
2173  0.03944781877116618_dp, &
2174  0.059645137430023996_dp, &
2175  0.0895468281752171_dp, &
2176  0.13354285706817015_dp, &
2177  0.1979094322641605_dp, &
2178  0.291608890942118_dp, &
2179  0.42748519623553954_dp, &
2180  0.6241916121496675_dp, &
2181  0.9097205132707596_dp, &
2182  1.3291156770565788_dp, &
2183  1.965360170512719_dp, &
2184  3.0142420912237333_dp, &
2185  5.231825921337635_dp/)
2186  ELSE IF (e_range < 100000.0_dp) THEN
2187  aw(:) = (/ &
2188  5.34722652436438e-06_dp, &
2189  2.9335345788005576e-05_dp, &
2190  7.794420445994551e-05_dp, &
2191  0.0001635102977617264_dp, &
2192  0.0003103380666014091_dp, &
2193  0.0005612614423847721_dp, &
2194  0.0009871305012123896_dp, &
2195  0.0017020454525922442_dp, &
2196  0.002887383643586052_dp, &
2197  0.004828517011721044_dp, &
2198  0.007970062065688042_dp, &
2199  0.012998268728170836_dp, &
2200  0.02096295289681554_dp, &
2201  0.03345668031415268_dp, &
2202  0.052876323139595754_dp, &
2203  0.08280245241436206_dp, &
2204  0.1285464334202786_dp, &
2205  0.19793519202552176_dp, &
2206  0.30243198793781245_dp, &
2207  0.4587328138519049_dp, &
2208  0.6910421452320579_dp, &
2209  1.0343433822030452_dp, &
2210  1.5392071335504423_dp, &
2211  2.279230497059965_dp, &
2212  3.3637429883435237_dp, &
2213  4.96344347806973_dp, &
2214  7.377008968134632_dp, &
2215  11.293074733218035_dp, &
2216  1.3848866712786266e-05_dp, &
2217  3.496420645730977e-05_dp, &
2218  6.422528074399328e-05_dp, &
2219  0.00011085156828305275_dp, &
2220  0.00018979249819623976_dp, &
2221  0.0003236153897281577_dp, &
2222  0.0005467478277421638_dp, &
2223  0.000912713310709869_dp, &
2224  0.001504624320381209_dp, &
2225  0.0024504009658675406_dp, &
2226  0.003945073258731463_dp, &
2227  0.006283381657271798_dp, &
2228  0.009907137885517564_dp, &
2229  0.015473588963650402_dp, &
2230  0.023953503710281564_dp, &
2231  0.03677113226590553_dp, &
2232  0.056002962059688105_dp, &
2233  0.08465896050001478_dp, &
2234  0.1270800799647972_dp, &
2235  0.18950233376937137_dp, &
2236  0.2808690547904898_dp, &
2237  0.4140431391215438_dp, &
2238  0.6077531842367035_dp, &
2239  0.8901351666158656_dp, &
2240  1.3064316369806335_dp, &
2241  1.9398043844798791_dp, &
2242  2.9859550412644587_dp, &
2243  5.199382405454911_dp/)
2244  ELSE IF (e_range < 140000.0_dp) THEN
2245  aw(:) = (/ &
2246  3.991479954961762e-06_dp, &
2247  2.198720501971829e-05_dp, &
2248  5.890526173006801e-05_dp, &
2249  0.00012518031616235489_dp, &
2250  0.00024153524567753135_dp, &
2251  0.00044471016635781095_dp, &
2252  0.0007960973675010948_dp, &
2253  0.0013958401833713643_dp, &
2254  0.0024051630337238337_dp, &
2255  0.004080730226383008_dp, &
2256  0.0068267899198047955_dp, &
2257  0.011273593700680132_dp, &
2258  0.018394388130399692_dp, &
2259  0.029678633788751282_dp, &
2260  0.04738664952634921_dp, &
2261  0.07492145227987683_dp, &
2262  0.11736834467836472_dp, &
2263  0.18227349630314565_dp, &
2264  0.2807619982420454_dp, &
2265  0.42913828874392707_dp, &
2266  0.65117720616762_dp, &
2267  0.9814263687158781_dp, &
2268  1.4700673778736164_dp, &
2269  2.190427750165236_dp, &
2270  3.2517634440541547_dp, &
2271  4.824930255638227_dp, &
2272  7.208868255000471_dp, &
2273  11.091834807498854_dp, &
2274  1.0346862342302347e-05_dp, &
2275  2.6338249637987535e-05_dp, &
2276  4.916412854301245e-05_dp, &
2277  8.674834277534896e-05_dp, &
2278  0.00015194758780428323_dp, &
2279  0.00026440532385478294_dp, &
2280  0.00045469618333409404_dp, &
2281  0.0007711009718467_dp, &
2282  0.0012894728448137978_dp, &
2283  0.002127757911813279_dp, &
2284  0.0034674947327675617_dp, &
2285  0.005585492420042323_dp, &
2286  0.008900179331682422_dp, &
2287  0.014038952538275588_dp, &
2288  0.02193542166778625_dp, &
2289  0.033968992230147974_dp, &
2290  0.05216418521519709_dp, &
2291  0.07947410573244414_dp, &
2292  0.12018284604662782_dp, &
2293  0.18047837042907597_dp, &
2294  0.26927867836352665_dp, &
2295  0.3994632895161757_dp, &
2296  0.5898412436801937_dp, &
2297  0.8687080586761889_dp, &
2298  1.2815327235597582_dp, &
2299  1.91168824489995_dp, &
2300  2.954800144592791_dp, &
2301  5.163666162590388_dp/)
2302  ELSE IF (e_range < 200000.0_dp) THEN
2303  aw(:) = (/ &
2304  2.9287097241919463e-06_dp, &
2305  1.6211294489452685e-05_dp, &
2306  4.3860626639419625e-05_dp, &
2307  9.463310124321836e-05_dp, &
2308  0.00018604994609815954_dp, &
2309  0.0003493943765511619_dp, &
2310  0.0006375682448360294_dp, &
2311  0.0011380795201948043_dp, &
2312  0.001993709375951546_dp, &
2313  0.00343456904920158_dp, &
2314  0.005827197217933671_dp, &
2315  0.009749051421957427_dp, &
2316  0.016100560249175083_dp, &
2317  0.026272317263678777_dp, &
2318  0.042392659447799845_dp, &
2319  0.06769166630053426_dp, &
2320  0.10703277867836304_dp, &
2321  0.16768452950177593_dp, &
2322  0.26043499640668427_dp, &
2323  0.4011952042193507_dp, &
2324  0.6133044483273886_dp, &
2325  0.9308639628203111_dp, &
2326  1.4036513854446626_dp, &
2327  2.1047075037398466_dp, &
2328  3.143200044406983_dp, &
2329  4.6901364769963045_dp, &
2330  7.044731962208944_dp, &
2331  10.894906305627384_dp, &
2332  7.599945789593838e-06_dp, &
2333  1.9535340209099297e-05_dp, &
2334  3.7160656136204285e-05_dp, &
2335  6.722566694134913e-05_dp, &
2336  0.00012069652213103665_dp, &
2337  0.00021459840053591846_dp, &
2338  0.0003759981286012543_dp, &
2339  0.0006483001768113125_dp, &
2340  0.0011005125730724488_dp, &
2341  0.0018410833738741884_dp, &
2342  0.0030385893339244744_dp, &
2343  0.004952462825414513_dp, &
2344  0.007978278215654642_dp, &
2345  0.012714011523554197_dp, &
2346  0.02005632833363888_dp, &
2347  0.03133963591517064_dp, &
2348  0.04853577656951428_dp, &
2349  0.07453950556949848_dp, &
2350  0.11357558363229604_dp, &
2351  0.17178036896999477_dp, &
2352  0.2580420507206907_dp, &
2353  0.3852520170265286_dp, &
2354  0.5722961014253114_dp, &
2355  0.847629061135607_dp, &
2356  1.2569519792288701_dp, &
2357  1.8838624046566568_dp, &
2358  2.923931086168498_dp, &
2359  5.1282957309537895_dp/)
2360  ELSE IF (e_range < 280000.0_dp) THEN
2361  aw(:) = (/ &
2362  2.187887975241367e-06_dp, &
2363  1.217302105778866e-05_dp, &
2364  3.3280277384650595e-05_dp, &
2365  7.294651585196924e-05_dp, &
2366  0.0001461477506435841_dp, &
2367  0.0002798259055981046_dp, &
2368  0.0005201025046636251_dp, &
2369  0.0009442991970046586_dp, &
2370  0.0016801646722205163_dp, &
2371  0.0029359404461932336_dp, &
2372  0.005046805926292481_dp, &
2373  0.008545920293678393_dp, &
2374  0.014272096616783494_dp, &
2375  0.023531600046055763_dp, &
2376  0.038339327744621156_dp, &
2377  0.061775614958965434_dp, &
2378  0.09851040024837446_dp, &
2379  0.15556831587766237_dp, &
2380  0.243439200558_dp, &
2381  0.3776832590482275_dp, &
2382  0.5812481524315448_dp, &
2383  0.8878298248851654_dp, &
2384  1.3468344739190594_dp, &
2385  2.031033514764075_dp, &
2386  3.0495035108172392_dp, &
2387  4.573381799063933_dp, &
2388  6.902137854735053_dp, &
2389  10.723425645457905_dp, &
2390  5.683864101635673e-06_dp, &
2391  1.4761618602067145e-05_dp, &
2392  2.863922084439926e-05_dp, &
2393  5.31200028912619e-05_dp, &
2394  9.765726111159933e-05_dp, &
2395  0.00017719091014345152_dp, &
2396  0.00031593721698955905_dp, &
2397  0.0005532594185059319_dp, &
2398  0.000952423486460829_dp, &
2399  0.001613835283450162_dp, &
2400  0.002695001718544619_dp, &
2401  0.004440391442639413_dp, &
2402  0.007225736946277607_dp, &
2403  0.01162326005144731_dp, &
2404  0.018497020133015078_dp, &
2405  0.02914136949940742_dp, &
2406  0.04548081139069081_dp, &
2407  0.07035707490413387_dp, &
2408  0.10794019701910468_dp, &
2409  0.1643177452299961_dp, &
2410  0.24834763708314758_dp, &
2411  0.37292767817567907_dp, &
2412  0.5570086406904123_dp, &
2413  0.829186245882319_dp, &
2414  1.2353723738001468_dp, &
2415  1.8593753882752646_dp, &
2416  2.896735710900212_dp, &
2417  5.0971507815821235_dp/)
2418  ELSE IF (e_range < 400000.0_dp) THEN
2419  aw(:) = (/ &
2420  1.6070031867276192e-06_dp, &
2421  8.996223208889756e-06_dp, &
2422  2.4903330256736718e-05_dp, &
2423  5.5597271413213874e-05_dp, &
2424  0.00011378123225419507_dp, &
2425  0.00022251943620373886_dp, &
2426  0.0004218452833351526_dp, &
2427  0.0007798397462569304_dp, &
2428  0.001410464737003683_dp, &
2429  0.0025017001910060442_dp, &
2430  0.0043594012767892145_dp, &
2431  0.007474944527557248_dp, &
2432  0.012628553354571935_dp, &
2433  0.021045689348535686_dp, &
2434  0.03463175327773065_dp, &
2435  0.05632151430959264_dp, &
2436  0.09059550579868533_dp, &
2437  0.1442379871996754_dp, &
2438  0.2274428250359289_dp, &
2439  0.35541953739182136_dp, &
2440  0.5507212109659467_dp, &
2441  0.8466317459799636_dp, &
2442  1.2921752687688919_dp, &
2443  1.9598406408284006_dp, &
2444  2.9586009577769_dp, &
2445  4.459717588193107_dp, &
2446  6.762921787948558_dp, &
2447  10.555632767123296_dp, &
2448  4.180340751600858e-06_dp, &
2449  1.099130280826382e-05_dp, &
2450  2.1822771688601605e-05_dp, &
2451  4.1621175974422805e-05_dp, &
2452  7.848461568768336e-05_dp, &
2453  0.00014548449813908576_dp, &
2454  0.00026422505480514413_dp, &
2455  0.0004703011644186479_dp, &
2456  0.0008215666081596167_dp, &
2457  0.0014107803843716492_dp, &
2458  0.002384836263299515_dp, &
2459  0.0039737397649737246_dp, &
2460  0.006533894710819361_dp, &
2461  0.010612242095881175_dp, &
2462  0.017040581368346817_dp, &
2463  0.027073311442312262_dp, &
2464  0.04258730399078407_dp, &
2465  0.06637038094501468_dp, &
2466  0.10253618298821561_dp, &
2467  0.15712087871604702_dp, &
2468  0.23894860519216926_dp, &
2469  0.36091957483420634_dp, &
2470  0.5420459855749467_dp, &
2471  0.8110632955302136_dp, &
2472  1.2140975460551333_dp, &
2473  1.8351776848641823_dp, &
2474  2.8698308488017825_dp, &
2475  5.066349620899207_dp/)
2476  ELSE IF (e_range < 700000.0_dp) THEN
2477  aw(:) = (/ &
2478  9.917609137977847e-07_dp, &
2479  5.61571565668021e-06_dp, &
2480  1.5905578931798044e-05_dp, &
2481  3.668045117366575e-05_dp, &
2482  7.779911321491552e-05_dp, &
2483  0.0001574703243782781_dp, &
2484  0.0003080352227521647_dp, &
2485  0.0005857339949829306_dp, &
2486  0.0010866136806263423_dp, &
2487  0.0019719871993643633_dp, &
2488  0.0035086606810778888_dp, &
2489  0.006131766091278258_dp, &
2490  0.010541856280946737_dp, &
2491  0.017853461412239566_dp, &
2492  0.029820286970471933_dp, &
2493  0.049173663410606715_dp, &
2494  0.08012714696416229_dp, &
2495  0.1291233103698595_dp, &
2496  0.20593171918618178_dp, &
2497  0.32525471926745003_dp, &
2498  0.5090693312937355_dp, &
2499  0.7900513389150534_dp, &
2500  1.216653152188614_dp, &
2501  1.8609312710223198_dp, &
2502  2.831687087034342_dp, &
2503  4.300351181611193_dp, &
2504  6.567047622277454_dp, &
2505  10.318912411219488_dp, &
2506  2.5862090723245625e-06_dp, &
2507  6.95626109831625e-06_dp, &
2508  1.4392071614748994e-05_dp, &
2509  2.874925884264212e-05_dp, &
2510  5.642970465568392e-05_dp, &
2511  0.00010814505912642593_dp, &
2512  0.0002021008939835649_dp, &
2513  0.0003688922773676731_dp, &
2514  0.0006591003182679095_dp, &
2515  0.0011550942822986209_dp, &
2516  0.0019891964272602783_dp, &
2517  0.0033713558748037233_dp, &
2518  0.0056309115068987_dp, &
2519  0.00927906547653282_dp, &
2520  0.015101574633332329_dp, &
2521  0.024295245067122773_dp, &
2522  0.03866754865528627_dp, &
2523  0.060926803424727255_dp, &
2524  0.09510216196058996_dp, &
2525  0.14715087305959354_dp, &
2526  0.22584200604915872_dp, &
2527  0.34407208794479094_dp, &
2528  0.5209358458550991_dp, &
2529  0.7853686557167923_dp, &
2530  1.1838124863793347_dp, &
2531  1.8006332661854303_dp, &
2532  2.8313699702065134_dp, &
2533  5.0223450191392205_dp/)
2534  ELSE IF (e_range < 1200000.0_dp) THEN
2535  aw(:) = (/ &
2536  6.243870742444705e-07_dp, &
2537  3.5837547513507616e-06_dp, &
2538  1.0424530634626105e-05_dp, &
2539  2.4910967538724005e-05_dp, &
2540  5.48216536959138e-05_dp, &
2541  0.0001148065303999889_dp, &
2542  0.000231490488679646_dp, &
2543  0.00045215860524583124_dp, &
2544  0.0008590837338469464_dp, &
2545  0.0015927682432411259_dp, &
2546  0.0028891299956185297_dp, &
2547  0.005138253059658019_dp, &
2548  0.008976135083193377_dp, &
2549  0.015426433468499803_dp, &
2550  0.026117293389759495_dp, &
2551  0.043609983170991296_dp, &
2552  0.0718927383781267_dp, &
2553  0.11711702885780055_dp, &
2554  0.18868749571084845_dp, &
2555  0.3008660121451099_dp, &
2556  0.47512403493520045_dp, &
2557  0.7435972663838382_dp, &
2558  1.154222692676153_dp, &
2559  1.7786576652841575_dp, &
2560  2.7255320837393326_dp, &
2561  4.166412460588324_dp, &
2562  6.401776404663582_dp, &
2563  10.11856522638141_dp, &
2564  1.6329106731735064e-06_dp, &
2565  4.511304110662316e-06_dp, &
2566  9.770509823422929e-06_dp, &
2567  2.0454024246766166e-05_dp, &
2568  4.172679855059072e-05_dp, &
2569  8.25404415798886e-05_dp, &
2570  0.00015847711044459983_dp, &
2571  0.00029619555479324744_dp, &
2572  0.0005404696680087612_dp, &
2573  0.000965266351597196_dp, &
2574  0.0016909815488903273_dp, &
2575  0.0029109600865339395_dp, &
2576  0.004931885217935304_dp, &
2577  0.008234716202420396_dp, &
2578  0.01356583086594651_dp, &
2579  0.022072242618732946_dp, &
2580  0.035500720158786525_dp, &
2581  0.05648910800327906_dp, &
2582  0.08899040639475064_dp, &
2583  0.13888891315246274_dp, &
2584  0.21489980129365738_dp, &
2585  0.32990928766337146_dp, &
2586  0.5030773832314516_dp, &
2587  0.7635106326257592_dp, &
2588  1.157931116384902_dp, &
2589  1.771014718506682_dp, &
2590  2.798340277794168_dp, &
2591  4.984574132350961_dp/)
2592  ELSE IF (e_range < 2000000.0_dp) THEN
2593  aw(:) = (/ &
2594  4.0370316213559476e-07_dp, &
2595  2.3541711422913717e-06_dp, &
2596  7.057573612279361e-06_dp, &
2597  1.751162431119145e-05_dp, &
2598  3.998197703771905e-05_dp, &
2599  8.651758104084795e-05_dp, &
2600  0.00017950101241220228_dp, &
2601  0.00035945947508640393_dp, &
2602  0.0006981140824218166_dp, &
2603  0.001319810424458466_dp, &
2604  0.0024361923309759396_dp, &
2605  0.004401544013890147_dp, &
2606  0.007800025204094134_dp, &
2607  0.013581611201940205_dp, &
2608  0.023271704375636543_dp, &
2609  0.03929119474223725_dp, &
2610  0.06544075124204898_dp, &
2611  0.10762751156023793_dp, &
2612  0.17494730054790258_dp, &
2613  0.2812860986936203_dp, &
2614  0.44768004577537496_dp, &
2615  0.705795087398322_dp, &
2616  1.1031142167130359_dp, &
2617  1.7109362858917831_dp, &
2618  2.6377277178978358_dp, &
2619  4.055162275207615_dp, &
2620  6.264028054745519_dp, &
2621  9.951137323627291_dp, &
2622  1.0593262130160056e-06_dp, &
2623  3.0185707613834373e-06_dp, &
2624  6.8658831794879865e-06_dp, &
2625  1.5046778554922312e-05_dp, &
2626  3.182893187575826e-05_dp, &
2627  6.484710011709137e-05_dp, &
2628  0.00012766407757989652_dp, &
2629  0.000243860437909589_dp, &
2630  0.00045361234593234906_dp, &
2631  0.0008241579727338823_dp, &
2632  0.001466238321223863_dp, &
2633  0.002559617356616681_dp, &
2634  0.004392266266516603_dp, &
2635  0.0074199303035661236_dp, &
2636  0.012355848225194005_dp, &
2637  0.02030472924789548_dp, &
2638  0.0329612503015901_dp, &
2639  0.05290210344877982_dp, &
2640  0.08401329609895744_dp, &
2641  0.13211363792116823_dp, &
2642  0.20586780977743016_dp, &
2643  0.3181478896142563_dp, &
2644  0.48816468770340044_dp, &
2645  0.7451687687530838_dp, &
2646  1.1361253599700833_dp, &
2647  1.7459877749472628_dp, &
2648  2.7703909434425067_dp, &
2649  4.952626774509824_dp/)
2650  ELSE IF (e_range < 4500000.0_dp) THEN
2651  aw(:) = (/ &
2652  2.0330900665342417e-07_dp, &
2653  1.2259721995909777e-06_dp, &
2654  3.9000493864165235e-06_dp, &
2655  1.0346548674455454e-05_dp, &
2656  2.5104573254227977e-05_dp, &
2657  5.722321695341548e-05_dp, &
2658  0.0001240915794841191_dp, &
2659  0.00025812480274594484_dp, &
2660  0.0005181574776824829_dp, &
2661  0.0010084979886612006_dp, &
2662  0.0019102647242876139_dp, &
2663  0.003532146072512572_dp, &
2664  0.0063914997207670885_dp, &
2665  0.011342304908756772_dp, &
2666  0.019774721642387954_dp, &
2667  0.03392304253932974_dp, &
2668  0.05733626485492922_dp, &
2669  0.0955906794116426_dp, &
2670  0.15736013123361753_dp, &
2671  0.2560121769552906_dp, &
2672  0.4119766499624099_dp, &
2673  0.6562580036536524_dp, &
2674  1.0356912360288544_dp, &
2675  1.6210528978513052_dp, &
2676  2.5205569278227222_dp, &
2677  3.906010837038453_dp, &
2678  6.07864411392436_dp, &
2679  9.725147433824423_dp, &
2680  5.372960626792664e-07_dp, &
2681  1.6313777234005112e-06_dp, &
2682  4.053582188809558e-06_dp, &
2683  9.562645330678188e-06_dp, &
2684  2.140029237042944e-05_dp, &
2685  4.5628018410594356e-05_dp, &
2686  9.332815320834305e-05_dp, &
2687  0.00018423715674012751_dp, &
2688  0.0003527071740962291_dp, &
2689  0.0006573395283833412_dp, &
2690  0.0011963286460791483_dp, &
2691  0.0021315852595548933_dp, &
2692  0.003726211411404738_dp, &
2693  0.006402085885163769_dp, &
2694  0.010827471574921069_dp, &
2695  0.018049062427338197_dp, &
2696  0.029689317308315376_dp, &
2697  0.048239120452325215_dp, &
2698  0.0774890829270111_dp, &
2699  0.12316278045588097_dp, &
2700  0.1938483490800667_dp, &
2701  0.30239008881049667_dp, &
2702  0.4680611192958136_dp, &
2703  0.7203071572907666_dp, &
2704  1.1064348627930074_dp, &
2705  1.7118002420359797_dp, &
2706  2.732149945273555_dp, &
2707  4.908937928661797_dp/)
2708  ELSE IF (e_range < 10000000.0_dp) THEN
2709  aw(:) = (/ &
2710  1.0453117858944355e-07_dp, &
2711  6.608617412970565e-07_dp, &
2712  2.263239779628554e-06_dp, &
2713  6.456580799232289e-06_dp, &
2714  1.6648773232985477e-05_dp, &
2715  3.988538010811069e-05_dp, &
2716  9.013431830037881e-05_dp, &
2717  0.00019412595183632066_dp, &
2718  0.00040148594866505004_dp, &
2719  0.000801953768960446_dp, &
2720  0.0015541047607406542_dp, &
2721  0.002932474750123789_dp, &
2722  0.0054037297272779_dp, &
2723  0.0097481213186169_dp, &
2724  0.01725076571642057_dp, &
2725  0.029999477630049398_dp, &
2726  0.05134367891607686_dp, &
2727  0.08659470336954253_dp, &
2728  0.14408515309896788_dp, &
2729  0.2367592019652705_dp, &
2730  0.3845463783654337_dp, &
2731  0.6178989765753549_dp, &
2732  0.9831034515051852_dp, &
2733  1.5504849076462728_dp, &
2734  2.4280266299570483_dp, &
2735  3.7876319869184405_dp, &
2736  5.930901453777237_dp, &
2737  9.544473553973464_dp, &
2738  2.7911359387760054e-07_dp, &
2739  9.225699169205882e-07_dp, &
2740  2.525970869540034e-06_dp, &
2741  6.400448408750558e-06_dp, &
2742  1.5105857774384374e-05_dp, &
2743  3.360200325419909e-05_dp, &
2744  7.118848251951222e-05_dp, &
2745  0.00014478894137667428_dp, &
2746  0.0002844248664965114_dp, &
2747  0.0005421792095475284_dp, &
2748  0.001006646872918385_dp, &
2749  0.0018259034247645597_dp, &
2750  0.003243545770723624_dp, &
2751  0.0056545862514208655_dp, &
2752  0.009691209964763319_dp, &
2753  0.016353052767086353_dp, &
2754  0.027203315594152448_dp, &
2755  0.044661579803193296_dp, &
2756  0.07243798977464_dp, &
2757  0.11617410461859103_dp, &
2758  0.18438950337219645_dp, &
2759  0.2898984327270837_dp, &
2760  0.45201785956261764_dp, &
2761  0.7003495143727266_dp, &
2762  1.0824839695902242_dp, &
2763  1.6841236033891487_dp, &
2764  2.701136203287264_dp, &
2765  4.87352184807004_dp/)
2766  ELSE IF (e_range < 50000000.0_dp) THEN
2767  aw(:) = (/ &
2768  2.883608355013751e-08_dp, &
2769  2.1533521290478e-07_dp, &
2770  8.922309745530507e-07_dp, &
2771  2.9625449220607536e-06_dp, &
2772  8.567451943237967e-06_dp, &
2773  2.243432347635065e-05_dp, &
2774  5.4443793898855104e-05_dp, &
2775  0.00012434900771925045_dp, &
2776  0.0002702071667839422_dp, &
2777  0.0005630773934606482_dp, &
2778  0.001132097168889575_dp, &
2779  0.0022064607569192898_dp, &
2780  0.004184511435918261_dp, &
2781  0.007745737975074526_dp, &
2782  0.014029823575166972_dp, &
2783  0.024919304936911416_dp, &
2784  0.04348066531140458_dp, &
2785  0.07464540686704813_dp, &
2786  0.12625156513534663_dp, &
2787  0.2106228965724005_dp, &
2788  0.34694729093744464_dp, &
2789  0.5648480693819434_dp, &
2790  0.9097754411882123_dp, &
2791  1.4513508415022998_dp, &
2792  2.297177622667234_dp, &
2793  3.619275978541861_dp, &
2794  5.719806682040045_dp, &
2795  9.28540894538464_dp, &
2796  8.026935386394373e-08_dp, &
2797  3.431660125547769e-07_dp, &
2798  1.1507249938591508e-06_dp, &
2799  3.3255150480524145e-06_dp, &
2800  8.631544858985621e-06_dp, &
2801  2.0673889190163757e-05_dp, &
2802  4.650257994599218e-05_dp, &
2803  9.941521329490123e-05_dp, &
2804  0.0002037413884778986_dp, &
2805  0.00040284592225487954_dp, &
2806  0.0007722776557802875_dp, &
2807  0.0014410293829550617_dp, &
2808  0.0026254207291881958_dp, &
2809  0.0046823958218659345_dp, &
2810  0.008192369379080482_dp, &
2811  0.014086602667824237_dp, &
2812  0.023841088169455484_dp, &
2813  0.039769020002557186_dp, &
2814  0.06545851893082533_dp, &
2815  0.1064240118543133_dp, &
2816  0.1710745747479101_dp, &
2817  0.2721680114354786_dp, &
2818  0.42907347105223687_dp, &
2819  0.671615155080402_dp, &
2820  1.0478076752969256_dp, &
2821  1.6438903234547084_dp, &
2822  2.6559588426369642_dp, &
2823  4.821957836337722_dp/)
2824  ELSE
2825  aw(:) = (/ &
2826  7.2246193648183315e-09_dp, &
2827  7.947805205434051e-08_dp, &
2828  4.2064242178143404e-07_dp, &
2829  1.6235298675242196e-06_dp, &
2830  5.1991703168705275e-06_dp, &
2831  1.4668546651111404e-05_dp, &
2832  3.7705424076918065e-05_dp, &
2833  9.01796708136201e-05_dp, &
2834  0.0002035415234868656_dp, &
2835  0.0004379390624442907_dp, &
2836  0.0009049701100068852_dp, &
2837  0.0018063291005268592_dp, &
2838  0.0034982504743316482_dp, &
2839  0.006597202794116675_dp, &
2840  0.012150671665557649_dp, &
2841  0.021909404675932484_dp, &
2842  0.03875606413936719_dp, &
2843  0.06737255773930659_dp, &
2844  0.11526829896699824_dp, &
2845  0.1943501837935314_dp, &
2846  0.3233020082512726_dp, &
2847  0.5311764928093146_dp, &
2848  0.8628395371729328_dp, &
2849  1.3874103242942566_dp, &
2850  2.212207252365476_dp, &
2851  3.5093118591573305_dp, &
2852  5.581272308767191_dp, &
2853  9.114780312141413_dp, &
2854  2.3095697901478273e-08_dp, &
2855  1.5174284298730647e-07_dp, &
2856  6.211817019789001e-07_dp, &
2857  2.0193446034719265e-06_dp, &
2858  5.684986670359784e-06_dp, &
2859  1.4468629362219993e-05_dp, &
2860  3.413251437719442e-05_dp, &
2861  7.584802072328596e-05_dp, &
2862  0.00016053557840876553_dp, &
2863  0.0003262378591667722_dp, &
2864  0.0006404016188164239_dp, &
2865  0.0012199823490146536_dp, &
2866  0.0022638430447923645_dp, &
2867  0.0041042325427612_dp, &
2868  0.007287543243404729_dp, &
2869  0.012699528275383098_dp, &
2870  0.021757390677572788_dp, &
2871  0.03670161910421734_dp, &
2872  0.061035614898498174_dp, &
2873  0.10018369236083766_dp, &
2874  0.16247380492926894_dp, &
2875  0.26061721476056016_dp, &
2876  0.41400956019249524_dp, &
2877  0.6526199011491635_dp, &
2878  1.0247530046294373_dp, &
2879  1.617029280212683_dp, &
2880  2.625732716141634_dp, &
2881  4.78747600908045_dp/)
2882  END IF
2883  END SUBROUTINE
2884 
2885 ! **************************************************************************************************
2886 !> \brief ...
2887 !> \param k ...
2888 !> \param E_range ...
2889 !> \param aw ...
2890 !> \param E_ratio ...
2891 ! **************************************************************************************************
2892  PURE SUBROUTINE get_coeff_30(k, E_range, aw, E_ratio)
2893  INTEGER, INTENT(IN) :: k
2894  REAL(kind=dp), INTENT(IN) :: e_range
2895  REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
2896  REAL(kind=dp), INTENT(OUT) :: e_ratio
2897 
2898  e_ratio = 1.0_dp
2899 
2900  IF (e_range < 2906.0_dp) THEN
2901  e_ratio = 2906.0_dp/e_range
2902  aw(:) = (/ &
2903  0.00010719782131833758_dp, &
2904  0.0005720967766785331_dp, &
2905  0.001439669174001423_dp, &
2906  0.002769849121659816_dp, &
2907  0.004664000049778321_dp, &
2908  0.007283241780546586_dp, &
2909  0.010873000028774003_dp, &
2910  0.015792629918665993_dp, &
2911  0.02255038608921401_dp, &
2912  0.031847782299297675_dp, &
2913  0.04463988143266245_dp, &
2914  0.06221821662158963_dp, &
2915  0.08632310206096853_dp, &
2916  0.11929354905847961_dp, &
2917  0.16426574047985984_dp, &
2918  0.2254347024266385_dp, &
2919  0.30839852293765396_dp, &
2920  0.42061064113062563_dp, &
2921  0.5719741696129382_dp, &
2922  0.7756243966360713_dp, &
2923  1.0489645297600516_dp, &
2924  1.415051852321483_dp, &
2925  1.9044914330966105_dp, &
2926  2.558117126903484_dp, &
2927  3.4310117702125913_dp, &
2928  4.5990752550643395_dp, &
2929  6.171106184489477_dp, &
2930  8.314824292369494_dp, &
2931  11.326871889957468_dp, &
2932  15.91048796379593_dp, &
2933  0.0002759212187476099_dp, &
2934  0.0006589920695996667_dp, &
2935  0.001085937188673809_dp, &
2936  0.0015910122106733914_dp, &
2937  0.0022237295869651035_dp, &
2938  0.003055163774041633_dp, &
2939  0.004183672861951183_dp, &
2940  0.005739573533927359_dp, &
2941  0.007891868776677179_dp, &
2942  0.010860734164881057_dp, &
2943  0.014936866838559482_dp, &
2944  0.020507383044696917_dp, &
2945  0.02808894961545452_dp, &
2946  0.038370325842103176_dp, &
2947  0.052267550952526234_dp, &
2948  0.07099592893538823_dp, &
2949  0.09616415398590554_dp, &
2950  0.1298977096485147_dp, &
2951  0.17500152116499199_dp, &
2952  0.235176717264172_dp, &
2953  0.3153154828400979_dp, &
2954  0.4219165107665381_dp, &
2955  0.5637038218742615_dp, &
2956  0.7526245591453196_dp, &
2957  1.005629375577748_dp, &
2958  1.3482480324070423_dp, &
2959  1.8228149068796895_dp, &
2960  2.510939848106289_dp, &
2961  3.6132439344998795_dp, &
2962  5.9228966909439205_dp/)
2963  ELSE IF (e_range < 3236.0_dp) THEN
2964  aw(:) = (/ &
2965  9.76676051737233e-05_dp, &
2966  0.000521439839796676_dp, &
2967  0.0013131673080453233_dp, &
2968  0.0025293903535565823_dp, &
2969  0.0042661250059111795_dp, &
2970  0.0066765801036800295_dp, &
2971  0.009994783165295324_dp, &
2972  0.014564000812497294_dp, &
2973  0.020870492553693578_dp, &
2974  0.02958685422269625_dp, &
2975  0.04163138568046643_dp, &
2976  0.058249942771901375_dp, &
2977  0.08112692839971898_dp, &
2978  0.11253369957795559_dp, &
2979  0.15552549205786806_dp, &
2980  0.2142017013001525_dp, &
2981  0.29404913356355256_dp, &
2982  0.4023941070276559_dp, &
2983  0.5489978387767454_dp, &
2984  0.7468418586806641_dp, &
2985  1.0131691905482183_dp, &
2986  1.3708791149003934_dp, &
2987  1.8504330035916199_dp, &
2988  2.4925505474173923_dp, &
2989  3.3522463174174093_dp, &
2990  4.505410618668513_dp, &
2991  6.060890691327169_dp, &
2992  8.186478838726869_dp, &
2993  11.178786177384513_dp, &
2994  15.74038405881577_dp, &
2995  0.00025141352623809566_dp, &
2996  0.0006009323005964832_dp, &
2997  0.0009917485369505094_dp, &
2998  0.0014564055840763494_dp, &
2999  0.002042200574311218_dp, &
3000  0.0028172406584227633_dp, &
3001  0.003875825130607345_dp, &
3002  0.005342947480157929_dp, &
3003  0.00738116098048549_dp, &
3004  0.010203263291670922_dp, &
3005  0.014091611662835478_dp, &
3006  0.019423788992341998_dp, &
3007  0.026705494627716198_dp, &
3008  0.03661296179988794_dp, &
3009  0.05004819563708869_dp, &
3010  0.06821123613467164_dp, &
3011  0.09269486715309114_dp, &
3012  0.12560901090026905_dp, &
3013  0.16974491105273157_dp, &
3014  0.22879407342136257_dp, &
3015  0.30764598759629597_dp, &
3016  0.4128070021079015_dp, &
3017  0.5530226357541534_dp, &
3018  0.7402778334602197_dp, &
3019  0.9915767219176012_dp, &
3020  1.332510891997349_dp, &
3021  1.8054641559432192_dp, &
3022  2.49203146209568_dp, &
3023  3.5925935804922893_dp, &
3024  5.89893592679766_dp/)
3025  ELSE IF (e_range < 3810.0_dp) THEN
3026  aw(:) = (/ &
3027  8.47819458078811e-05_dp, &
3028  0.00045292247232938765_dp, &
3029  0.0011419488590203569_dp, &
3030  0.0022036034544386665_dp, &
3031  0.0037263081029974285_dp, &
3032  0.005851972143509195_dp, &
3033  0.008798246612654406_dp, &
3034  0.012885194918659285_dp, &
3035  0.018567320347579703_dp, &
3036  0.026475458982841895_dp, &
3037  0.03747475660944132_dp, &
3038  0.05274484615883288_dp, &
3039  0.07388876569982615_dp, &
3040  0.103079000554941_dp, &
3041  0.14325196624460337_dp, &
3042  0.19836605747691327_dp, &
3043  0.27374326191660053_dp, &
3044  0.3765207493043709_dp, &
3045  0.5162475872690495_dp, &
3046  0.7056742360429414_dp, &
3047  0.9618016216492792_dp, &
3048  1.3072886416997354_dp, &
3049  1.772376230882795_dp, &
3050  2.39760681930879_dp, &
3051  3.237886311434963_dp, &
3052  4.369085529708981_dp, &
3053  5.900122672480505_dp, &
3054  7.998902446784312_dp, &
3055  10.962002095892634_dp, &
3056  15.491026703179935_dp, &
3057  0.00021827426323305446_dp, &
3058  0.0005223668404015434_dp, &
3059  0.0008641224881204865_dp, &
3060  0.0012736436118541284_dp, &
3061  0.001795042273807457_dp, &
3062  0.0024921178119473955_dp, &
3063  0.00345325315447348_dp, &
3064  0.004795711504484412_dp, &
3065  0.006672726568911133_dp, &
3066  0.009286420295701826_dp, &
3067  0.012906984705977642_dp, &
3068  0.017897959998054307_dp, &
3069  0.02474875419566456_dp, &
3070  0.0341168643096291_dp, &
3071  0.046883167956700916_dp, &
3072  0.06422456826044022_dp, &
3073  0.08770953467687731_dp, &
3074  0.11942394754852313_dp, &
3075  0.16213754631449626_dp, &
3076  0.21952613567742027_dp, &
3077  0.2964736644552558_dp, &
3078  0.39949638395652903_dp, &
3079  0.5373706722452656_dp, &
3080  0.7221373998987525_dp, &
3081  0.9708812677144617_dp, &
3082  1.309288667276434_dp, &
3083  1.7798217912856973_dp, &
3084  2.464060270734846_dp, &
3085  3.5620371023687465_dp, &
3086  5.8635023001897295_dp/)
3087  ELSE IF (e_range < 4405.0_dp) THEN
3088  aw(:) = (/ &
3089  7.475415175359787e-05_dp, &
3090  0.0003995782940364109_dp, &
3091  0.0010085401523130205_dp, &
3092  0.0019494530926649103_dp, &
3093  0.003304487334168418_dp, &
3094  0.005206188391856581_dp, &
3095  0.007858547072014874_dp, &
3096  0.011562196417307553_dp, &
3097  0.01674502130839572_dp, &
3098  0.02400284151062447_dp, &
3099  0.03415615402045192_dp, &
3100  0.04832877588615427_dp, &
3101  0.06805486346691048_dp, &
3102  0.09542279350363236_dp, &
3103  0.13326739942725138_dp, &
3104  0.18542592486136436_dp, &
3105  0.25707802147355546_dp, &
3106  0.3551966628680496_dp, &
3107  0.48914575629830964_dp, &
3108  0.6714729217979144_dp, &
3109  0.9189652081581203_dp, &
3110  1.2540675821639358_dp, &
3111  1.706822983665265_dp, &
3112  2.3176124905704714_dp, &
3113  3.1412403932005213_dp, &
3114  4.253555048851896_dp, &
3115  5.763534315696107_dp, &
3116  7.839184077942836_dp, &
3117  10.777063260156016_dp, &
3118  15.27796168145106_dp, &
3119  0.00019248226458298544_dp, &
3120  0.0004611671410305988_dp, &
3121  0.0007645470771240003_dp, &
3122  0.0011307064674945877_dp, &
3123  0.001601097912084883_dp, &
3124  0.002235885143791768_dp, &
3125  0.003118439955104845_dp, &
3126  0.00435950977219228_dp, &
3127  0.006104510985566756_dp, &
3128  0.008546583020796826_dp, &
3129  0.011945581030119579_dp, &
3130  0.016652984461283625_dp, &
3131  0.02314408570724871_dp, &
3132  0.03206002850298206_dp, &
3133  0.044263120398424796_dp, &
3134  0.06090977430142275_dp, &
3135  0.08354673398267808_dp, &
3136  0.11423814381228614_dp, &
3137  0.15573394602932067_dp, &
3138  0.2116949419787466_dp, &
3139  0.28699873776286255_dp, &
3140  0.38816866941911854_dp, &
3141  0.5240067210209787_dp, &
3142  0.7066019007188943_dp, &
3143  0.9531097377337013_dp, &
3144  1.2893015561438181_dp, &
3145  1.7577121859945424_dp, &
3146  2.439914418694296_dp, &
3147  3.5356481389173076_dp, &
3148  5.832916244207001_dp/)
3149  ELSE IF (e_range < 5400.0_dp) THEN
3150  aw(:) = (/ &
3151  6.263685476987877e-05_dp, &
3152  0.0003350864107617077_dp, &
3153  0.0008471021406263553_dp, &
3154  0.0016414732496533968_dp, &
3155  0.0027923267352349805_dp, &
3156  0.004420069092229887_dp, &
3157  0.006710856247430801_dp, &
3158  0.009939856329159545_dp, &
3159  0.014500042255919464_dp, &
3160  0.02094127936473627_dp, &
3161  0.030025328730095918_dp, &
3162  0.042802276529506474_dp, &
3163  0.06071482338334902_dp, &
3164  0.08573906273600417_dp, &
3165  0.1205734666631485_dp, &
3166  0.168891746293846_dp, &
3167  0.23568035070007362_dp, &
3168  0.3276881055094081_dp, &
3169  0.4540246498488577_dp, &
3170  0.6269572963379791_dp, &
3171  0.8629754834557104_dp, &
3172  1.1842241235652444_dp, &
3173  1.6204657246854692_dp, &
3174  2.2118496417292866_dp, &
3175  3.0130302596964915_dp, &
3176  4.099816741357715_dp, &
3177  5.581265514191353_dp, &
3178  7.625526452879397_dp, &
3179  10.52915117245689_dp, &
3180  14.99185357007055_dp, &
3181  0.00016131234676709978_dp, &
3182  0.0003871323803883455_dp, &
3183  0.0006438639425224474_dp, &
3184  0.0009569827684469891_dp, &
3185  0.0013644640382973136_dp, &
3186  0.0019216628235682472_dp, &
3187  0.002705305661659533_dp, &
3188  0.003817552287654078_dp, &
3189  0.005393559577915718_dp, &
3190  0.007614615789728071_dp, &
3191  0.0107267793784036_dp, &
3192  0.01506524759897237_dp, &
3193  0.02108608211163133_dp, &
3194  0.029407976403737046_dp, &
3195  0.040867556214958384_dp, &
3196  0.05659266977268607_dp, &
3197  0.07809948510740791_dp, &
3198  0.10742117687653448_dp, &
3199  0.1472789549319935_dp, &
3200  0.20131104861420793_dp, &
3201  0.27438405593923587_dp, &
3202  0.3730286538370253_dp, &
3203  0.50607994537212_dp, &
3204  0.6856919919465865_dp, &
3205  0.9291183488974969_dp, &
3206  1.2622503775094018_dp, &
3207  1.7277292939880777_dp, &
3208  2.407128771305674_dp, &
3209  3.4998023815666013_dp, &
3210  5.791398263742947_dp/)
3211  ELSE IF (e_range < 6800.0_dp) THEN
3212  aw(:) = (/ &
3213  5.1260796624319686e-05_dp, &
3214  0.00027449998212479283_dp, &
3215  0.0006952559402364613_dp, &
3216  0.0013512581469068891_dp, &
3217  0.0023084695955214183_dp, &
3218  0.0036748571064951344_dp, &
3219  0.005618146035815099_dp, &
3220  0.008387084892047715_dp, &
3221  0.012338401496919359_dp, &
3222  0.01797419704821914_dp, &
3223  0.025994966614220735_dp, &
3224  0.03737346294738748_dp, &
3225  0.05345583818085436_dp, &
3226  0.0760988446106003_dp, &
3227  0.10785503448538585_dp, &
3228  0.15222193676863333_dp, &
3229  0.2139764359272559_dp, &
3230  0.29962253812775563_dp, &
3231  0.4179901608236006_dp, &
3232  0.5810358869798488_dp, &
3233  0.8049164836351872_dp, &
3234  1.11143825413834_dp, &
3235  1.5300435290071273_dp, &
3236  2.1006127473331047_dp, &
3237  2.8776209315806276_dp, &
3238  3.93682226153259_dp, &
3239  5.387354342884511_dp, &
3240  7.397531351751853_dp, &
3241  10.263919356557402_dp, &
3242  14.685102820756857_dp, &
3243  0.00013204473011131683_dp, &
3244  0.0003175248324260899_dp, &
3245  0.0005301211290638112_dp, &
3246  0.000792646090309341_dp, &
3247  0.0011394726365449568_dp, &
3248  0.0016209075495792747_dp, &
3249  0.0023066917116162182_dp, &
3250  0.0032900298122596973_dp, &
3251  0.004695415042196518_dp, &
3252  0.0066917090579473775_dp, &
3253  0.009510290459434545_dp, &
3254  0.013468802311717997_dp, &
3255  0.019002357781084556_dp, &
3256  0.02670497738030662_dp, &
3257  0.037384817040713114_dp, &
3258  0.05213776033026327_dp, &
3259  0.072445378072951_dp, &
3260  0.10030529745315488_dp, &
3261  0.13840505606579703_dp, &
3262  0.19035539860923475_dp, &
3263  0.2610076849435031_dp, &
3264  0.3568973694825793_dp, &
3265  0.48689310015691706_dp, &
3266  0.6632189222745253_dp, &
3267  0.9032371034193576_dp, &
3268  1.2329755271865048_dp, &
3269  1.695201274879912_dp, &
3270  2.3715025399546223_dp, &
3271  3.4608285109987857_dp, &
3272  5.746290251951392_dp/)
3273  ELSE IF (e_range < 8400.0_dp) THEN
3274  aw(:) = (/ &
3275  4.264827171158114e-05_dp, &
3276  0.00022859921129368268_dp, &
3277  0.0005800651655637003_dp, &
3278  0.0011306618266057897_dp, &
3279  0.001939659276932296_dp, &
3280  0.0031047255791507274_dp, &
3281  0.004778205945319036_dp, &
3282  0.007186731964418128_dp, &
3283  0.010656673525706605_dp, &
3284  0.01565005735652159_dp, &
3285  0.02281575734702256_dp, &
3286  0.03306097534037487_dp, &
3287  0.04764947470167637_dp, &
3288  0.0683354702649706_dp, &
3289  0.09754528626464402_dp, &
3290  0.13862301432535307_dp, &
3291  0.19616179200890152_dp, &
3292  0.27644949046799433_dp, &
3293  0.3880673249123362_dp, &
3294  0.5426935306072133_dp, &
3295  0.7561844283103211_dp, &
3296  1.0500376608384598_dp, &
3297  1.4534003880410857_dp, &
3298  2.005901250325418_dp, &
3299  2.7618425195091647_dp, &
3300  3.796918364528742_dp, &
3301  5.220333260426152_dp, &
3302  7.200552079960992_dp, &
3303  10.034172866297915_dp, &
3304  14.41882124837872_dp, &
3305  0.0001098833579123983_dp, &
3306  0.0002647437855875365_dp, &
3307  0.0004436472669265954_dp, &
3308  0.0006672101026873376_dp, &
3309  0.0009667895306084336_dp, &
3310  0.0013884135997529708_dp, &
3311  0.0019959070037335724_dp, &
3312  0.0028749526284055213_dp, &
3313  0.004141093118158889_dp, &
3314  0.005952643864305207_dp, &
3315  0.008528340123693306_dp, &
3316  0.01217052007837369_dp, &
3317  0.017295858304956554_dp, &
3318  0.024476476682491477_dp, &
3319  0.03449505017711748_dp, &
3320  0.04841859097574648_dp, &
3321  0.06769708781585487_dp, &
3322  0.09429528482789237_dp, &
3323  0.13086897935334732_dp, &
3324  0.1810021324793278_dp, &
3325  0.24952974948475865_dp, &
3326  0.3429885311920854_dp, &
3327  0.4702742651357602_dp, &
3328  0.6436716531183656_dp, &
3329  0.880640225748484_dp, &
3330  1.2073331130934455_dp, &
3331  1.6666371474517014_dp, &
3332  2.3401654531537157_dp, &
3333  3.4265253480645885_dp, &
3334  5.706615197039722_dp/)
3335  ELSE IF (e_range < 10000.0_dp) THEN
3336  aw(:) = (/ &
3337  3.6638445936143444e-05_dp, &
3338  0.00019654898584533858_dp, &
3339  0.0004995365456010348_dp, &
3340  0.0009761629469610179_dp, &
3341  0.001680692380508944_dp, &
3342  0.0027030234477272513_dp, &
3343  0.004183824314963024_dp, &
3344  0.006332898868769434_dp, &
3345  0.009453508422633638_dp, &
3346  0.013977114132271049_dp, &
3347  0.020513053005428484_dp, &
3348  0.02991804681839935_dp, &
3349  0.043392038467264346_dp, &
3350  0.06260934488416951_dp, &
3351  0.089897358898568_dp, &
3352  0.12847922117893293_dp, &
3353  0.18280238941596594_dp, &
3354  0.25898237331386087_dp, &
3355  0.36540085871444006_dp, &
3356  0.5135113514430796_dp, &
3357  0.718925939367594_dp, &
3358  1.0028894169830442_dp, &
3359  1.3943048957706679_dp, &
3360  1.9325902027814568_dp, &
3361  2.6718997828791795_dp, &
3362  3.6878719059499683_dp, &
3363  5.089761008341865_dp, &
3364  7.046156150294659_dp, &
3365  9.853694451194254_dp, &
3366  14.209263474504755_dp, &
3367  9.441684068693651e-05_dp, &
3368  0.00022786014262271372_dp, &
3369  0.00038307351711976584_dp, &
3370  0.0005790223101422384_dp, &
3371  0.0008447661561374952_dp, &
3372  0.0012230417856923205_dp, &
3373  0.0017731334822002557_dp, &
3374  0.002574990545123123_dp, &
3375  0.003737321923840727_dp, &
3376  0.005410302324390409_dp, &
3377  0.007802786243657_dp, &
3378  0.011205034742082835_dp, &
3379  0.016019061597614896_dp, &
3380  0.02279945700439318_dp, &
3381  0.032308353668577205_dp, &
3382  0.04558931015753348_dp, &
3383  0.06406643328220389_dp, &
3384  0.08967722561429306_dp, &
3385  0.1250507942222136_dp, &
3386  0.17374800817672645_dp, &
3387  0.24058882427995695_dp, &
3388  0.3321088613980677_dp, &
3389  0.4572237934265981_dp, &
3390  0.6282658627647734_dp, &
3391  0.8627730246821379_dp, &
3392  1.187001575527606_dp, &
3393  1.6439399241381616_dp, &
3394  2.3152296444802993_dp, &
3395  3.3992160109205325_dp, &
3396  5.6750508010285134_dp/)
3397  ELSE IF (e_range < 12000.0_dp) THEN
3398  aw(:) = (/ &
3399  3.125352048295285e-05_dp, &
3400  0.00016781351172929327_dp, &
3401  0.00042725280780375096_dp, &
3402  0.0008372368297287864_dp, &
3403  0.0014472482996344947_dp, &
3404  0.0023397061489668085_dp, &
3405  0.00364397706459525_dp, &
3406  0.005553554215846271_dp, &
3407  0.008349288769114196_dp, &
3408  0.012432933353972381_dp, &
3409  0.018375235671074245_dp, &
3410  0.0269833920064158_dp, &
3411  0.03939439104594155_dp, &
3412  0.057203310896803944_dp, &
3413  0.08263890933961444_dp, &
3414  0.118803108858221_dp, &
3415  0.16999660677619183_dp, &
3416  0.24216036024367976_dp, &
3417  0.3434728927615001_dp, &
3418  0.4851575786991668_dp, &
3419  0.6825748514741242_dp, &
3420  0.956707159367906_dp, &
3421  1.3362022902301018_dp, &
3422  1.8602550523674573_dp, &
3423  2.582860494442485_dp, &
3424  3.5795923551771076_dp, &
3425  4.959752013207221_dp, &
3426  6.892057403111867_dp, &
3427  9.673196873736643_dp, &
3428  13.999332658018544_dp, &
3429  8.055654719138439e-05_dp, &
3430  0.0001947658525515697_dp, &
3431  0.00032859686532794565_dp, &
3432  0.0004994306825817649_dp, &
3433  0.0007340947583837473_dp, &
3434  0.0010721035282296792_dp, &
3435  0.001568310846736925_dp, &
3436  0.002297102568888374_dp, &
3437  0.0033605346972129828_dp, &
3438  0.00490077013024238_dp, &
3439  0.0071168327918336724_dp, &
3440  0.010286868707377024_dp, &
3441  0.01479808821232481_dp, &
3442  0.021187271898748812_dp, &
3443  0.03019555503700218_dp, &
3444  0.042842362400043486_dp, &
3445  0.06052496436664667_dp, &
3446  0.08515234916902564_dp, &
3447  0.11932532276255173_dp, &
3448  0.16657974696296404_dp, &
3449  0.23171843775477596_dp, &
3450  0.3212739304330216_dp, &
3451  0.4441803236632917_dp, &
3452  0.6128171239515162_dp, &
3453  0.8448023886795951_dp, &
3454  1.1664998500858539_dp, &
3455  1.6210063652060114_dp, &
3456  2.2900001311037035_dp, &
3457  3.371570229987856_dp, &
3458  5.643112922874634_dp/)
3459  ELSE IF (e_range < 15000.0_dp) THEN
3460  aw(:) = (/ &
3461  2.572460674430881e-05_dp, &
3462  0.00013828809639808773_dp, &
3463  0.0003528803185321503_dp, &
3464  0.0006939963784805861_dp, &
3465  0.0012058419667301263_dp, &
3466  0.00196250811153749_dp, &
3467  0.003080710120197529_dp, &
3468  0.004735659001322314_dp, &
3469  0.007183065998906602_dp, &
3470  0.010791253848864667_dp, &
3471  0.016087325873200328_dp, &
3472  0.02382213056319325_dp, &
3473  0.03506059129972535_dp, &
3474  0.051306532736392435_dp, &
3475  0.07467445268948096_dp, &
3476  0.10812503757927873_dp, &
3477  0.15578699671299615_dp, &
3478  0.2233955307214805_dp, &
3479  0.31888824542436384_dp, &
3480  0.45321390622010965_dp, &
3481  0.6414306299530386_dp, &
3482  0.9042033223791973_dp, &
3483  1.2698679478183343_dp, &
3484  1.7773436933847355_dp, &
3485  2.4804246798636003_dp, &
3486  3.4545978455659587_dp, &
3487  4.80921488681201_dp, &
3488  6.713149815396915_dp, &
3489  9.463167209838238_dp, &
3490  13.75460415331797_dp, &
3491  6.632324623333035e-05_dp, &
3492  0.00016073115506706547_dp, &
3493  0.0002724186286744679_dp, &
3494  0.00041700914328903177_dp, &
3495  0.0006188187442380069_dp, &
3496  0.000913709771883424_dp, &
3497  0.0013515392555132155_dp, &
3498  0.002000450746020119_dp, &
3499  0.0029549917404197673_dp, &
3500  0.004348167160940399_dp, &
3501  0.006367634264735562_dp, &
3502  0.009277411142785488_dp, &
3503  0.013447324345434384_dp, &
3504  0.01939310256171694_dp, &
3505  0.027830892296757826_dp, &
3506  0.03975118351588367_dp, &
3507  0.056518799068157294_dp, &
3508  0.08000790205760616_dp, &
3509  0.11278427119956595_dp, &
3510  0.15835215912014322_dp, &
3511  0.2214916578911036_dp, &
3512  0.3087289982044895_dp, &
3513  0.42901765162073763_dp, &
3514  0.5947915793660636_dp, &
3515  0.8237640916060611_dp, &
3516  1.142429482918768_dp, &
3517  1.5940199744065582_dp, &
3518  2.2602675888442345_dp, &
3519  3.3389719364130626_dp, &
3520  5.605477212236766_dp/)
3521  ELSE IF (e_range < 20000.0_dp) THEN
3522  aw(:) = (/ &
3523  2.0010353507234397e-05_dp, &
3524  0.0001077433422458143_dp, &
3525  0.00027580023006758454_dp, &
3526  0.0005451258515021734_dp, &
3527  0.0009539529098224693_dp, &
3528  0.0015668441726082855_dp, &
3529  0.0024859562396115408_dp, &
3530  0.003865438814677545_dp, &
3531  0.005931997279200694_dp, &
3532  0.009015206545406032_dp, &
3533  0.013591237471033118_dp, &
3534  0.020344680291656994_dp, &
3535  0.03025506904355767_dp, &
3536  0.04471729454363523_dp, &
3537  0.0657084625235162_dp, &
3538  0.09601821543882148_dp, &
3539  0.13956549956219141_dp, &
3540  0.2018327748807436_dp, &
3541  0.2904595479070126_dp, &
3542  0.41605219017177664_dp, &
3543  0.5932887745998796_dp, &
3544  0.8424313672051914_dp, &
3545  1.1914160744119529_dp, &
3546  1.678803642976038_dp, &
3547  2.3581208348346263_dp, &
3548  3.3047307785320212_dp, &
3549  4.6280385004171025_dp, &
3550  6.497115386386612_dp, &
3551  9.208843054933286_dp, &
3552  13.457588010635305_dp, &
3553  5.1609539489171625e-05_dp, &
3554  0.00012547938250585046_dp, &
3555  0.00021401951207906163_dp, &
3556  0.0003308508348857692_dp, &
3557  0.0004973777574979467_dp, &
3558  0.0007451991801870302_dp, &
3559  0.0011183825299403462_dp, &
3560  0.0016778698024847744_dp, &
3561  0.0025094583225573333_dp, &
3562  0.0037353071207149595_dp, &
3563  0.005529432603001048_dp, &
3564  0.008138731296629963_dp, &
3565  0.011911786975259289_dp, &
3566  0.0173383968709882_dp, &
3567  0.02510367274551181_dp, &
3568  0.03616185208550007_dp, &
3569  0.05183670042056887_dp, &
3570  0.07395778747131394_dp, &
3571  0.10504533244757883_dp, &
3572  0.14856147943385148_dp, &
3573  0.20925449434054086_dp, &
3574  0.2936386766166653_dp, &
3575  0.41068755123213285_dp, &
3576  0.5728998438821491_dp, &
3577  0.7981069410955339_dp, &
3578  1.1129693992413612_dp, &
3579  1.5608972768887142_dp, &
3580  2.223705100788062_dp, &
3581  3.298855550400102_dp, &
3582  5.559194240832182_dp/)
3583  ELSE IF (e_range < 28000.0_dp) THEN
3584  aw(:) = (/ &
3585  1.4913158562437485e-05_dp, &
3586  8.046249863674396e-05_dp, &
3587  0.00020679269836799646_dp, &
3588  0.00041135606175085387_dp, &
3589  0.000726429457279576_dp, &
3590  0.001206954515218603_dp, &
3591  0.0019403041016435166_dp, &
3592  0.0030592205520702234_dp, &
3593  0.004760844972277948_dp, &
3594  0.007334997531745175_dp, &
3595  0.011205132165430936_dp, &
3596  0.016986616421301493_dp, &
3597  0.025568952229820977_dp, &
3598  0.03823114994605764_dp, &
3599  0.056802896237992014_dp, &
3600  0.08388874591064059_dp, &
3601  0.12317874197383723_dp, &
3602  0.17987720132408636_dp, &
3603  0.26129273365588884_dp, &
3604  0.3776482327688284_dp, &
3605  0.5431920469707082_dp, &
3606  0.7777259064649447_dp, &
3607  1.1087233079248426_dp, &
3608  1.5743236370665366_dp, &
3609  2.2277313150621567_dp, &
3610  3.144149304477041_dp, &
3611  4.433028932012796_dp, &
3612  6.263665410565493_dp, &
3613  8.933099495687644_dp, &
3614  13.134684015624826_dp, &
3615  3.848089108885685e-05_dp, &
3616  9.39454195069688e-05_dp, &
3617  0.00016153027576924122_dp, &
3618  0.0002528432683507074_dp, &
3619  0.0003863006748200446_dp, &
3620  0.000589103857593431_dp, &
3621  0.0008994092337673156_dp, &
3622  0.0013708168552981645_dp, &
3623  0.0020800635852347526_dp, &
3624  0.0031378613819817206_dp, &
3625  0.004703620407911122_dp, &
3626  0.007005705166384156_dp, &
3627  0.010369489117192241_dp, &
3628  0.015256172448531693_dp, &
3629  0.02231631000951314_dp, &
3630  0.03246335096484727_dp, &
3631  0.04697433098325742_dp, &
3632  0.06762737851039459_dp, &
3633  0.09688924910721004_dp, &
3634  0.13817140362709024_dp, &
3635  0.19618184162864452_dp, &
3636  0.2774160356134996_dp, &
3637  0.39086437274546876_dp, &
3638  0.5490937144681445_dp, &
3639  0.7700664939132916_dp, &
3640  1.0806338759241187_dp, &
3641  1.5244170903885788_dp, &
3642  2.183343539374224_dp, &
3643  3.254529601017961_dp, &
3644  5.508095437648589_dp/)
3645  ELSE IF (e_range < 38000.0_dp) THEN
3646  aw(:) = (/ &
3647  1.1418872198921082e-05_dp, &
3648  6.173413750253069e-05_dp, &
3649  0.00015929220328335313_dp, &
3650  0.00031889503854739523_dp, &
3651  0.0005682342649483396_dp, &
3652  0.0009547547779672074_dp, &
3653  0.0015542608919948567_dp, &
3654  0.0024827272879236525_dp, &
3655  0.003914044995780404_dp, &
3656  0.006106526724782397_dp, &
3657  0.009441451620849054_dp, &
3658  0.01447827421468276_dp, &
3659  0.022033096235727034_dp, &
3660  0.03328960553532699_dp, &
3661  0.04995516756713029_dp, &
3662  0.07447945346316431_dp, &
3663  0.11035934551634245_dp, &
3664  0.16256247169247554_dp, &
3665  0.23811344985212937_dp, &
3666  0.3469031346310937_dp, &
3667  0.5028042883523934_dp, &
3668  0.7252121362263632_dp, &
3669  1.0411867545570728_dp, &
3670  1.4884852069632906_dp, &
3671  2.120012518561155_dp, &
3672  3.0108136851550755_dp, &
3673  4.2703677397197355_dp, &
3674  6.068165404997884_dp, &
3675  8.701408700808228_dp, &
3676  12.8626331750244_dp, &
3677  2.947787098787719e-05_dp, &
3678  7.225954134028555e-05_dp, &
3679  0.0001252402865134724_dp, &
3680  0.00019846473664424758_dp, &
3681  0.00030798161384563543_dp, &
3682  0.0004775038459907116_dp, &
3683  0.0007405481153276563_dp, &
3684  0.0011449321771295313_dp, &
3685  0.0017601237436588445_dp, &
3686  0.0026874815648166833_dp, &
3687  0.004074324357547685_dp, &
3688  0.0061335185303593494_dp, &
3689  0.009170846038462778_dp, &
3690  0.013623145317805922_dp, &
3691  0.020111251332522298_dp, &
3692  0.029513178507526473_dp, &
3693  0.043064913823154624_dp, &
3694  0.062498815014491525_dp, &
3695  0.09023329634576005_dp, &
3696  0.12963292767495377_dp, &
3697  0.18536685282870904_dp, &
3698  0.26390946533406945_dp, &
3699  0.3742607782294386_dp, &
3700  0.5290426355523791_dp, &
3701  0.7463296721416969_dp, &
3702  1.0531417380773798_dp, &
3703  1.493293292834725_dp, &
3704  2.1488272848196677_dp, &
3705  3.216586556758033_dp, &
3706  5.464388958502095_dp/)
3707  ELSE IF (e_range < 50000.0_dp) THEN
3708  aw(:) = (/ &
3709  8.982546693806235e-06_dp, &
3710  4.865818678309805e-05_dp, &
3711  0.00012604148335636865_dp, &
3712  0.00025390861901678955_dp, &
3713  0.0004563995854196066_dp, &
3714  0.0007750952045840026_dp, &
3715  0.0012767265489376275_dp, &
3716  0.002064101925548432_dp, &
3717  0.0032927700122513484_dp, &
3718  0.005195994959981289_dp, &
3719  0.008121235122746024_dp, &
3720  0.012582721029292343_dp, &
3721  0.019336695756878207_dp, &
3722  0.029488494866509965_dp, &
3723  0.044644170175709534_dp, &
3724  0.06712415308115761_dp, &
3725  0.10026296333569998_dp, &
3726  0.14882782019535817_dp, &
3727  0.2196010954609523_dp, &
3728  0.3221882442730784_dp, &
3729  0.47013658664261176_dp, &
3730  0.6824859983381489_dp, &
3731  0.9859314820504801_dp, &
3732  1.417888163895422_dp, &
3733  2.030988118342932_dp, &
3734  2.900125529064684_dp, &
3735  4.134793295219112_dp, &
3736  5.904650857570968_dp, &
3737  8.50705581410213_dp, &
3738  12.633884453832914_dp, &
3739  2.3198709666506916e-05_dp, &
3740  5.709307522017352e-05_dp, &
3741  9.972792415428492e-05_dp, &
3742  0.0001599273928986242_dp, &
3743  0.0002518605559821019_dp, &
3744  0.00039647689416403176_dp, &
3745  0.0006236485188629505_dp, &
3746  0.0009766180462365724_dp, &
3747  0.0015189982582493745_dp, &
3748  0.0023445004429086033_dp, &
3749  0.0035904524574293063_dp, &
3750  0.005456804956339633_dp, &
3751  0.008232881015796438_dp, &
3752  0.012334887697009843_dp, &
3753  0.01835828332102448_dp, &
3754  0.027150564163334993_dp, &
3755  0.03991202944665125_dp, &
3756  0.05833481297012722_dp, &
3757  0.08479428042701978_dp, &
3758  0.12261246982859136_dp, &
3759  0.17642213365813839_dp, &
3760  0.2526759210340022_dp, &
3761  0.3603782883628389_dp, &
3762  0.5121951678672628_dp, &
3763  0.7262964913958404_dp, &
3764  1.0298496814196687_dp, &
3765  1.4668430564566999_dp, &
3766  2.119432331068027_dp, &
3767  3.1842446525056274_dp, &
3768  5.427158434113688_dp/)
3769  ELSE IF (e_range < 64000.0_dp) THEN
3770  aw(:) = (/ &
3771  7.238349702296008e-06_dp, &
3772  3.928458373506955e-05_dp, &
3773  0.00010214563688496669_dp, &
3774  0.00020702207021802802_dp, &
3775  0.0003752580104799391_dp, &
3776  0.0006437818300993232_dp, &
3777  0.001072114382774453_dp, &
3778  0.0017525850080720873_dp, &
3779  0.002826070350614258_dp, &
3780  0.004505651346498813_dp, &
3781  0.007111320652225213_dp, &
3782  0.011120302372900251_dp, &
3783  0.017239502228764955_dp, &
3784  0.026509227663294707_dp, &
3785  0.04045088318380033_dp, &
3786  0.06127621597555976_dp, &
3787  0.09218233054747209_dp, &
3788  0.13776574927878416_dp, &
3789  0.2046011860485274_dp, &
3790  0.3020478300836994_dp, &
3791  0.443370229666864_dp, &
3792  0.6472971651730427_dp, &
3793  0.9402012658200933_dp, &
3794  1.3591924682162404_dp, &
3795  1.956655369037565_dp, &
3796  2.8073424394429862_dp, &
3797  4.020750844752612_dp, &
3798  5.766686098521229_dp, &
3799  8.342653009498491_dp, &
3800  12.439991369032668_dp, &
3801  1.8702020468622055e-05_dp, &
3802  4.6203219782190167e-05_dp, &
3803  8.131762180666392e-05_dp, &
3804  0.00013190143534228278_dp, &
3805  0.00021061299324796057_dp, &
3806  0.0003361903026363539_dp, &
3807  0.000535605997735673_dp, &
3808  0.0008484276122519987_dp, &
3809  0.0013334887847408908_dp, &
3810  0.0020781819161196638_dp, &
3811  0.003211507934451115_dp, &
3812  0.004922574199422692_dp, &
3813  0.007486789650255751_dp, &
3814  0.011302797934300408_dp, &
3815  0.016944298667165195_dp, &
3816  0.02523242357196762_dp, &
3817  0.03733639323117268_dp, &
3818  0.05491299477721061_dp, &
3819  0.08029934786534572_dp, &
3820  0.11677913471088484_dp, &
3821  0.16895145657274943_dp, &
3822  0.24324744526263437_dp, &
3823  0.3486724489732179_dp, &
3824  0.49792796808610074_dp, &
3825  0.7092652162431419_dp, &
3826  1.009980880755789_dp, &
3827  1.4442192775687972_dp, &
3828  2.094243792411222_dp, &
3829  3.1565101709731045_dp, &
3830  5.395251764843703_dp/)
3831  ELSE IF (e_range < 84000.0_dp) THEN
3832  aw(:) = (/ &
3833  5.706429844293361e-06_dp, &
3834  3.1040364829701505e-05_dp, &
3835  8.107328661660111e-05_dp, &
3836  0.00016550326188419503_dp, &
3837  0.0003029763316477536_dp, &
3838  0.0005259009041296794_dp, &
3839  0.0008867852843333584_dp, &
3840  0.0014677450288040894_dp, &
3841  0.002395273728414361_dp, &
3842  0.003862517134876226_dp, &
3843  0.006162129729070569_dp, &
3844  0.00973422779264423_dp, &
3845  0.015235895683403678_dp, &
3846  0.023641332048275565_dp, &
3847  0.03638532798309582_dp, &
3848  0.055567718600602306_dp, &
3849  0.08424323176407787_dp, &
3850  0.12683043751734444_dp, &
3851  0.18968622248619452_dp, &
3852  0.2819098113026998_dp, &
3853  0.4164652673968472_dp, &
3854  0.6117484077902107_dp, &
3855  0.893783996100621_dp, &
3856  1.2993493017998998_dp, &
3857  1.8805551654919748_dp, &
3858  2.7119921346520504_dp, &
3859  3.9031533013982855_dp, &
3860  5.623997981838861_dp, &
3861  8.172198452849088_dp, &
3862  12.238558563265647_dp, &
3863  1.4751349028333799e-05_dp, &
3864  3.660909835718544e-05_dp, &
3865  6.501211560655282e-05_dp, &
3866  0.00010687536539993863_dp, &
3867  0.00017337123549154558_dp, &
3868  0.00028107588099189824_dp, &
3869  0.000454137569267576_dp, &
3870  0.0007285000756826098_dp, &
3871  0.001158211238344495_dp, &
3872  0.0018242672088928367_dp, &
3873  0.0028471735084972696_dp, &
3874  0.004404897269066725_dp, &
3875  0.006758454939132606_dp, &
3876  0.01028819929336629_dp, &
3877  0.01554501319618277_dp, &
3878  0.023322182186959424_dp, &
3879  0.03475584758118297_dp, &
3880  0.05146485198022031_dp, &
3881  0.07574483876932264_dp, &
3882  0.11083732616584702_dp, &
3883  0.16130359908425193_dp, &
3884  0.23354923720333218_dp, &
3885  0.3365774511982118_dp, &
3886  0.48312462993088157_dp, &
3887  0.6915266416555069_dp, &
3888  0.9892183849743513_dp, &
3889  1.420514754404278_dp, &
3890  2.0678032116600904_dp, &
3891  3.127373080182709_dp, &
3892  5.361746811812883_dp/)
3893  ELSE IF (e_range < 110000.0_dp) THEN
3894  aw(:) = (/ &
3895  4.507925303711096e-06_dp, &
3896  2.4580451494530444e-05_dp, &
3897  6.451263281768541e-05_dp, &
3898  0.00013272058871030806_dp, &
3899  0.0002455197572529811_dp, &
3900  0.0004313910776655633_dp, &
3901  0.0007367445062259567_dp, &
3902  0.001234786889942828_dp, &
3903  0.002039383465959761_dp, &
3904  0.00332603532508658_dp, &
3905  0.005363004530984576_dp, &
3906  0.008557044500582709_dp, &
3907  0.01352012174944254_dp, &
3908  0.021166153619467505_dp, &
3909  0.03285042829603399_dp, &
3910  0.05056939685207151_dp, &
3911  0.07724543673788668_dp, &
3912  0.11713067199112848_dp, &
3913  0.17637697527453522_dp, &
3914  0.263837336282913_dp, &
3915  0.39218930488595755_dp, &
3916  0.5795089364205666_dp, &
3917  0.8514842120807159_dp, &
3918  1.2445671334250805_dp, &
3919  1.8105970655011243_dp, &
3920  2.6239991397280553_dp, &
3921  3.7942542214271437_dp, &
3922  5.491467032685958_dp, &
3923  8.013480504379215_dp, &
3924  12.05062051565182_dp, &
3925  1.165943020924494e-05_dp, &
3926  2.907711562944157e-05_dp, &
3927  5.2135381292650646e-05_dp, &
3928  8.692931914146652e-05_dp, &
3929  0.00014332433921579002_dp, &
3930  0.00023600989072825049_dp, &
3931  0.0003866717964299752_dp, &
3932  0.0006280479343018203_dp, &
3933  0.0010098870748762492_dp, &
3934  0.001607379741603303_dp, &
3935  0.00253325997236095_dp, &
3936  0.003955231709080428_dp, &
3937  0.006120960061358173_dp, &
3938  0.009393712743103142_dp, &
3939  0.014302912174317341_dp, &
3940  0.02161546778139668_dp, &
3941  0.03243595167457546_dp, &
3942  0.04834668628642002_dp, &
3943  0.07160299218511915_dp, &
3944  0.10540485530435402_dp, &
3945  0.15427553890661685_dp, &
3946  0.22459367842315606_dp, &
3947  0.3253574621758251_dp, &
3948  0.46933370101682803_dp, &
3949  0.6749372715340488_dp, &
3950  0.9697356715189667_dp, &
3951  1.3982111886845372_dp, &
3952  2.0428791235793997_dp, &
3953  3.099885407679866_dp, &
3954  5.330156088439341_dp/)
3955  ELSE IF (e_range < 160000.0_dp) THEN
3956  aw(:) = (/ &
3957  3.2492504706355543e-06_dp, &
3958  1.7782935938647487e-05_dp, &
3959  4.702094527107548e-05_dp, &
3960  9.788765130060788e-05_dp, &
3961  0.00018394800566011574_dp, &
3962  0.0003290226690843259_dp, &
3963  0.0005722787919864911_dp, &
3964  0.0009762934532250238_dp, &
3965  0.0016397346725346576_dp, &
3966  0.002716663917457915_dp, &
3967  0.004445425742834286_dp, &
3968  0.007191491449190322_dp, &
3969  0.011510534331810433_dp, &
3970  0.01824066242763528_dp, &
3971  0.02863642038498904_dp, &
3972  0.044562287024877995_dp, &
3973  0.06877046943314344_dp, &
3974  0.10529755457345026_dp, &
3975  0.16002804271088766_dp, &
3976  0.24149146592791995_dp, &
3977  0.361986165199179_dp, &
3978  0.5391615439925698_dp, &
3979  0.7982521139849742_dp, &
3980  1.1752670593405194_dp, &
3981  1.7216703901842698_dp, &
3982  2.511651208522495_dp, &
3983  3.654660979891775_dp, &
3984  5.320994285506342_dp, &
3985  7.808735565003434_dp, &
3986  11.80762543615471_dp, &
3987  8.410837332223653e-06_dp, &
3988  2.113245841372446e-05_dp, &
3989  3.845111058827689e-05_dp, &
3990  6.548419810172488e-05_dp, &
3991  0.00011052592304298797_dp, &
3992  0.00018602054544749434_dp, &
3993  0.0003107143750285354_dp, &
3994  0.0005134448260073493_dp, &
3995  0.0008386432327700857_dp, &
3996  0.0013542399463937198_dp, &
3997  0.002163165180703502_dp, &
3998  0.0034200707057045_dp, &
3999  0.0053555078104983965_dp, &
4000  0.008310672199526598_dp, &
4001  0.012787041135722151_dp, &
4002  0.019516894799063707_dp, &
4003  0.029562998187469335_dp, &
4004  0.044458853860523784_dp, &
4005  0.0664052872217014_dp, &
4006  0.09854535532252624_dp, &
4007  0.14534905940024856_dp, &
4008  0.2131554574377401_dp, &
4009  0.3109515151654752_dp, &
4010  0.4515398978356489_dp, &
4011  0.653437304234083_dp, &
4012  0.9443877723109725_dp, &
4013  1.3691021780052584_dp, &
4014  2.010279336423766_dp, &
4015  3.063897971847719_dp, &
4016  5.288820184644417_dp/)
4017  ELSE IF (e_range < 220000.0_dp) THEN
4018  aw(:) = (/ &
4019  2.460537860443357e-06_dp, &
4020  1.3513517677623214e-05_dp, &
4021  3.598515389781885e-05_dp, &
4022  7.575261086818076e-05_dp, &
4023  0.0001444216294004159_dp, &
4024  0.00026247903310060725_dp, &
4025  0.0004639039840208787_dp, &
4026  0.0008036114726657992_dp, &
4027  0.001369205915452374_dp, &
4028  0.0022989755449385045_dp, &
4029  0.0038090333768977967_dp, &
4030  0.006233886266199457_dp, &
4031  0.01008661073890614_dp, &
4032  0.016147469119526157_dp, &
4033  0.025593516684082565_dp, &
4034  0.04018693519947543_dp, &
4035  0.06254703089827915_dp, &
4036  0.0965408099871576_dp, &
4037  0.14784085162679408_dp, &
4038  0.22471839016516207_dp, &
4039  0.33916659817804756_dp, &
4040  0.5084886871639984_dp, &
4041  0.7575478060875892_dp, &
4042  1.1219864437669036_dp, &
4043  1.6529529420726783_dp, &
4044  2.4244318079577103_dp, &
4045  3.5458393070593472_dp, &
4046  5.187620119758077_dp, &
4047  7.648065546110419_dp, &
4048  11.61648316806262_dp, &
4049  6.374120402922641e-06_dp, &
4050  1.6128252577743594e-05_dp, &
4051  2.9754113670763418e-05_dp, &
4052  5.166430893732005e-05_dp, &
4053  8.901502625196717e-05_dp, &
4054  0.00015264214630912148_dp, &
4055  0.0002591687585053359_dp, &
4056  0.00043455383137211705_dp, &
4057  0.000719240735481554_dp, &
4058  0.0011756556233951615_dp, &
4059  0.0018992288700902785_dp, &
4060  0.003034542038483531_dp, &
4061  0.004798831948386736_dp, &
4062  0.007515980097531093_dp, &
4063  0.011665360331427038_dp, &
4064  0.017951632069288924_dp, &
4065  0.027403921176393425_dp, &
4066  0.041516070343442624_dp, &
4067  0.06244414300326091_dp, &
4068  0.0932837802259788_dp, &
4069  0.13845969920620585_dp, &
4070  0.20427585444540086_dp, &
4071  0.2997063234922189_dp, &
4072  0.43757882986144675_dp, &
4073  0.6364895482287001_dp, &
4074  0.9243252918542686_dp, &
4075  1.3459866886820373_dp, &
4076  1.9843322156142236_dp, &
4077  3.035224685946777_dp, &
4078  5.255903429150008_dp/)
4079  ELSE IF (e_range < 370000.0_dp) THEN
4080  aw(:) = (/ &
4081  1.5637740408395342e-06_dp, &
4082  8.644581438556428e-06_dp, &
4083  2.3326026659580105e-05_dp, &
4084  5.012244143843333e-05_dp, &
4085  9.804997776691128e-05_dp, &
4086  0.000183175648888439_dp, &
4087  0.0003325825937550191_dp, &
4088  0.0005909069030179598_dp, &
4089  0.0010307262850542825_dp, &
4090  0.001768639145774748_dp, &
4091  0.0029898323691103764_dp, &
4092  0.004985271727949821_dp, &
4093  0.008207526024267482_dp, &
4094  0.013353895620644004_dp, &
4095  0.0214892751837372_dp, &
4096  0.034226463130117915_dp, &
4097  0.053989018153179254_dp, &
4098  0.08439206340451581_dp, &
4099  0.1307907673641504_dp, &
4100  0.20106621537104283_dp, &
4101  0.3067466011130968_dp, &
4102  0.46460274135109153_dp, &
4103  0.698920779817791_dp, &
4104  1.0447664262134877_dp, &
4105  1.5527831264532448_dp, &
4106  2.296617666855539_dp, &
4107  3.3856119528633637_dp, &
4108  4.990434105875191_dp, &
4109  7.4097119078577_dp, &
4110  11.33215729315795_dp, &
4111  4.056801137252665e-06_dp, &
4112  1.0400304864325584e-05_dp, &
4113  1.968307964805301e-05_dp, &
4114  3.537211676997081e-05_dp, &
4115  6.309758174077909e-05_dp, &
4116  0.00011156144898932593_dp, &
4117  0.0001945228908869725_dp, &
4118  0.0003339605532184735_dp, &
4119  0.000564711446670201_dp, &
4120  0.0009413729224733118_dp, &
4121  0.0015485976328911168_dp, &
4122  0.0025163527439127716_dp, &
4123  0.004042366217657837_dp, &
4124  0.006424908889055276_dp, &
4125  0.010110351754549359_dp, &
4126  0.01576172006986062_dp, &
4127  0.02435693199744164_dp, &
4128  0.03732881710193292_dp, &
4129  0.05676374129839576_dp, &
4130  0.08568239505343193_dp, &
4131  0.12843634401072082_dp, &
4132  0.19127041101280928_dp, &
4133  0.28313227875730185_dp, &
4134  0.41688110772833514_dp, &
4135  0.6112296495300013_dp, &
4136  0.8942832614684186_dp, &
4137  1.3112417204467246_dp, &
4138  1.9452277892500305_dp, &
4139  2.9919599852080703_dp, &
4140  5.206267501211972_dp/)
4141  ELSE IF (e_range < 520000.0_dp) THEN
4142  aw(:) = (/ &
4143  1.162904999603526e-06_dp, &
4144  6.460220717190712e-06_dp, &
4145  1.7606607480068412e-05_dp, &
4146  3.8410731277459235e-05_dp, &
4147  7.652869912290393e-05_dp, &
4148  0.00014570244755436322_dp, &
4149  0.00026937164379552174_dp, &
4150  0.0004866802067040396_dp, &
4151  0.0008620687596415197_dp, &
4152  0.001500239074857704_dp, &
4153  0.0025692139442485516_dp, &
4154  0.004335527408651135_dp, &
4155  0.00721744537817494_dp, &
4156  0.011864777494471953_dp, &
4157  0.01927761941951377_dp, &
4158  0.030981700048419165_dp, &
4159  0.04928550606403292_dp, &
4160  0.07765484694198317_dp, &
4161  0.12125517110926898_dp, &
4162  0.18773242857967326_dp, &
4163  0.2883321960866146_dp, &
4164  0.43949878526491704_dp, &
4165  0.6651609536255874_dp, &
4166  1.0000229662476519_dp, &
4167  1.4944068851808134_dp, &
4168  2.2217383426459816_dp, &
4169  3.2913012165448343_dp, &
4170  4.873895944019108_dp, &
4171  7.268367413333011_dp, &
4172  11.163103194460474_dp, &
4173  3.0200745063435063e-06_dp, &
4174  7.819224105572315e-06_dp, &
4175  1.5081156733800399e-05_dp, &
4176  2.776801766506454e-05_dp, &
4177  5.0700455074630125e-05_dp, &
4178  9.145615638049602e-05_dp, &
4179  0.0001622504928743556_dp, &
4180  0.00028286367265657205_dp, &
4181  0.0004849887879932366_dp, &
4182  0.0008187828750348566_dp, &
4183  0.0013627221411797283_dp, &
4184  0.002238314348285273_dp, &
4185  0.003631885398877431_dp, &
4186  0.005826597760169261_dp, &
4187  0.009249172128608455_dp, &
4188  0.014537611686674936_dp, &
4189  0.0226387619956523_dp, &
4190  0.03494804598497715_dp, &
4191  0.053508604450163914_dp, &
4192  0.0812939971568708_dp, &
4193  0.12260888215529167_dp, &
4194  0.18365876903663883_dp, &
4195  0.27337120427563866_dp, &
4196  0.4046203209300098_dp, &
4197  0.5961868839329513_dp, &
4198  0.8763095433545912_dp, &
4199  1.2903758814089559_dp, &
4200  1.9216820534456363_dp, &
4201  2.9658783009061263_dp, &
4202  5.176364379511127_dp/)
4203  ELSE IF (e_range < 700000.0_dp) THEN
4204  aw(:) = (/ &
4205  8.982200709109713e-07_dp, &
4206  5.013746520038623e-06_dp, &
4207  1.3797556086375253e-05_dp, &
4208  3.053886905121258e-05_dp, &
4209  6.188411270912267e-05_dp, &
4210  0.00011984809712211666_dp, &
4211  0.00022515174308936954_dp, &
4212  0.00041280335546669807_dp, &
4213  0.0007410557365297971_dp, &
4214  0.0013054805064640572_dp, &
4215  0.0022608163607798406_dp, &
4216  0.003854540538433318_dp, &
4217  0.006477967304857807_dp, &
4218  0.010743336152506139_dp, &
4219  0.01759914400488243_dp, &
4220  0.028501352515678965_dp, &
4221  0.04566568530951012_dp, &
4222  0.07243687914225057_dp, &
4223  0.11382566141804518_dp, &
4224  0.17728511649027562_dp, &
4225  0.2738276317065499_dp, &
4226  0.41962643246873177_dp, &
4227  0.6383115216108352_dp, &
4228  0.9642825901967439_dp, &
4229  1.4475879782153047_dp, &
4230  2.1614613507414213_dp, &
4231  3.2151308325865324_dp, &
4232  4.779503431415253_dp, &
4233  7.153609650797204_dp, &
4234  11.025589359258367_dp, &
4235  2.33509910395076e-06_dp, &
4236  6.10398857813977e-06_dp, &
4237  1.1988268517456785e-05_dp, &
4238  2.2570731247056643e-05_dp, &
4239  4.206867163196105e-05_dp, &
4240  7.722227756857685e-05_dp, &
4241  0.00013907449507452585_dp, &
4242  0.0002457091386543816_dp, &
4243  0.00042636927263886435_dp, &
4244  0.0007277240308901886_dp, &
4245  0.0012233619517539264_dp, &
4246  0.0020280492037779985_dp, &
4247  0.0033189631613667883_dp, &
4248  0.005367062740884365_dp, &
4249  0.008583092022062843_dp, &
4250  0.0135845766573915_dp, &
4251  0.021292762750234086_dp, &
4252  0.033072042665578866_dp, &
4253  0.05092942142345538_dp, &
4254  0.07779867772338114_dp, &
4255  0.11794435500606822_dp, &
4256  0.17753757154997848_dp, &
4257  0.26548687080483935_dp, &
4258  0.3946762763128839_dp, &
4259  0.5839408961339644_dp, &
4260  0.8616294721408878_dp, &
4261  1.27328786626255_dp, &
4262  1.902362545255473_dp, &
4263  2.944458259522062_dp, &
4264  5.1518134931437265_dp/)
4265  ELSE IF (e_range < 1100000.0_dp) THEN
4266  aw(:) = (/ &
4267  6.070765776691511e-07_dp, &
4268  3.416871225040894e-06_dp, &
4269  9.561919657171797e-06_dp, &
4270  2.1683051083242104e-05_dp, &
4271  4.515689173365717e-05_dp, &
4272  8.982491421280511e-05_dp, &
4273  0.00017296367691311632_dp, &
4274  0.00032428348083868487_dp, &
4275  0.0005940202656656541_dp, &
4276  0.001065793876730367_dp, &
4277  0.0018767883279394732_dp, &
4278  0.0032490764599530236_dp, &
4279  0.0055377486897541_dp, &
4280  0.009304158830434279_dp, &
4281  0.015426407047504075_dp, &
4282  0.02526460961553787_dp, &
4283  0.0409062041812229_dp, &
4284  0.06552740429734295_dp, &
4285  0.10392219781712_dp, &
4286  0.16327176797255086_dp, &
4287  0.25425762049527484_dp, &
4288  0.3926657116824371_dp, &
4289  0.6016960744289409_dp, &
4290  0.9153062522487351_dp, &
4291  1.3831427017478757_dp, &
4292  2.0781516959653166_dp, &
4293  3.1094698633638336_dp, &
4294  4.64815163738497_dp, &
4295  6.99350202546865_dp, &
4296  10.833342615226073_dp, &
4297  1.5810344568110277e-06_dp, &
4298  4.201983132608034e-06_dp, &
4299  8.509301559244783e-06_dp, &
4300  1.660217499192091e-05_dp, &
4301  3.1937948250709083e-05_dp, &
4302  6.0196622838881555e-05_dp, &
4303  0.00011090164490251824_dp, &
4304  0.00019990225033881748_dp, &
4305  0.0003531805009952824_dp, &
4306  0.000612721804071078_dp, &
4307  0.0010454964371682956_dp, &
4308  0.0017570690249359784_dp, &
4309  0.0029120339233426416_dp, &
4310  0.004764440773172712_dp, &
4311  0.007702737556158165_dp, &
4312  0.012315669576916223_dp, &
4313  0.019488241944529968_dp, &
4314  0.03054057337997689_dp, &
4315  0.0474276677063864_dp, &
4316  0.0730254826754342_dp, &
4317  0.11153946595828376_dp, &
4318  0.1690888848289202_dp, &
4319  0.2545515426791882_dp, &
4320  0.3808215765752087_dp, &
4321  0.5668083660036856_dp, &
4322  0.8410170454494971_dp, &
4323  1.2492234533619844_dp, &
4324  1.8750991975085831_dp, &
4325  2.91420232217261_dp, &
4326  5.117153113908438_dp/)
4327  ELSE IF (e_range < 1800000.0_dp) THEN
4328  aw(:) = (/ &
4329  3.9676424024146875e-07_dp, &
4330  2.2573188915559954e-06_dp, &
4331  6.453978574008018e-06_dp, &
4332  1.5076014172691726e-05_dp, &
4333  3.241300804980766e-05_dp, &
4334  6.644316731632574e-05_dp, &
4335  0.00013145859105193587_dp, &
4336  0.0002525113816701914_dp, &
4337  0.0004726891479758136_dp, &
4338  0.0008648183450896165_dp, &
4339  0.0015500448519401517_dp, &
4340  0.00272698303228361_dp, &
4341  0.004716941205527944_dp, &
4342  0.008033374074156422_dp, &
4343  0.013487530814882825_dp, &
4344  0.022347744374551653_dp, &
4345  0.03657761361377878_dp, &
4346  0.0591894063537043_dp, &
4347  0.09476465831169727_dp, &
4348  0.15021601736547668_dp, &
4349  0.23589569241536856_dp, &
4350  0.3672011309219512_dp, &
4351  0.5668972518738795_dp, &
4352  0.8684896297613345_dp, &
4353  1.3212084913196627_dp, &
4354  1.9976957850654782_dp, &
4355  3.00698161245029_dp, &
4356  4.520261622699826_dp, &
4357  6.837125864760079_dp, &
4358  10.645115539809895_dp, &
4359  1.0356874216884052e-06_dp, &
4360  2.812088667709278e-06_dp, &
4361  5.914445821533368e-06_dp, &
4362  1.2021336664547268e-05_dp, &
4363  2.3940050145157427e-05_dp, &
4364  4.6430499419310365e-05_dp, &
4365  8.765815047744608e-05_dp, &
4366  0.00016143932217372545_dp, &
4367  0.0002907528424437285_dp, &
4368  0.0005132235070598931_dp, &
4369  0.0008895970920506905_dp, &
4370  0.0015167009659352298_dp, &
4371  0.0025470709958953243_dp, &
4372  0.004218406965056695_dp, &
4373  0.006897410357753999_dp, &
4374  0.011144514451186464_dp, &
4375  0.017808764773569234_dp, &
4376  0.028165958189904933_dp, &
4377  0.044118529654135305_dp, &
4378  0.0684833014292294_dp, &
4379  0.1054043456969387_dp, &
4380  0.16094570015015752_dp, &
4381  0.24395004441521287_dp, &
4382  0.3673168074143_dp, &
4383  0.550025709656669_dp, &
4384  0.8207374761240367_dp, &
4385  1.2254629611475691_dp, &
4386  1.8481116761650778_dp, &
4387  2.884215749911384_dp, &
4388  5.082816358644647_dp/)
4389  ELSE IF (e_range < 3300000.0_dp) THEN
4390  aw(:) = (/ &
4391  2.3571329342099874e-07_dp, &
4392  1.3632343165414816e-06_dp, &
4393  4.023756596461991e-06_dp, &
4394  9.795394424152668e-06_dp, &
4395  2.195714519062327e-05_dp, &
4396  4.674841254419276e-05_dp, &
4397  9.563512339593217e-05_dp, &
4398  0.00018918230274547437_dp, &
4399  0.00036348321259617266_dp, &
4400  0.0006806544569921736_dp, &
4401  0.001245724390748882_dp, &
4402  0.002233454990133142_dp, &
4403  0.00393042938989855_dp, &
4404  0.0068003647335751725_dp, &
4405  0.011584430850915652_dp, &
4406  0.019453873577319414_dp, &
4407  0.032240162866761804_dp, &
4408  0.052779185694875504_dp, &
4409  0.08542204924536101_dp, &
4410  0.136787796738067_dp, &
4411  0.2168656674798965_dp, &
4412  0.3406212481786099_dp, &
4413  0.5303313641534245_dp, &
4414  0.8189892522205988_dp, &
4415  1.2553469341161432_dp, &
4416  1.9116889104572583_dp, &
4417  2.896909089589307_dp, &
4418  4.382351904816623_dp, &
4419  6.667935664555373_dp, &
4420  10.44093549828013_dp, &
4421  6.17436261768095e-07_dp, &
4422  1.7313881986083482e-06_dp, &
4423  3.841234035608705e-06_dp, &
4424  8.228727173271725e-06_dp, &
4425  1.709820341911912e-05_dp, &
4426  3.4332974259821285e-05_dp, &
4427  6.676429369632049e-05_dp, &
4428  0.00012617607786624823_dp, &
4429  0.0002325052400773221_dp, &
4430  0.0004189073145508487_dp, &
4431  0.000739676578430109_dp, &
4432  0.0012824873185346604_dp, &
4433  0.0021871159459730906_dp, &
4434  0.0036737980596718025_dp, &
4435  0.006085791120718465_dp, &
4436  0.009952725340223944_dp, &
4437  0.01608416328295351_dp, &
4438  0.02570677247015947_dp, &
4439  0.04066411629576856_dp, &
4440  0.06370600198386596_dp, &
4441  0.09890586632566792_dp, &
4442  0.15226260044097462_dp, &
4443  0.23257478024275838_dp, &
4444  0.35274192070832605_dp, &
4445  0.5318168800175598_dp, &
4446  0.7986316416317844_dp, &
4447  1.1994633292908101_dp, &
4448  1.8185003473260537_dp, &
4449  2.851271019221645_dp, &
4450  5.045111765749473_dp/)
4451  ELSE IF (e_range < 6000000.0_dp) THEN
4452  aw(:) = (/ &
4453  1.4156108142769783e-07_dp, &
4454  8.358408090279267e-07_dp, &
4455  2.563425668333653e-06_dp, &
4456  6.532496957198105e-06_dp, &
4457  1.529085429435563e-05_dp, &
4458  3.381004239065925e-05_dp, &
4459  7.145759572627074e-05_dp, &
4460  0.0001454048583206386_dp, &
4461  0.0002863676783658706_dp, &
4462  0.0005481076173216848_dp, &
4463  0.0010229120533241523_dp, &
4464  0.0018664583231752616_dp, &
4465  0.0033372345185815654_dp, &
4466  0.005858297289124_dp, &
4467  0.010112965971934416_dp, &
4468  0.017191603273076256_dp, &
4469  0.028814641239522522_dp, &
4470  0.04766849746482397_dp, &
4471  0.07790741829272711_dp, &
4472  0.12589760019317675_dp, &
4473  0.2013131761655887_dp, &
4474  0.3187416881227427_dp, &
4475  0.5000288557106496_dp, &
4476  0.7777107650960449_dp, &
4477  1.200107192058866_dp, &
4478  1.8391727503056268_dp, &
4479  2.803666178964093_dp, &
4480  4.265054523983134_dp, &
4481  6.5235529232359735_dp, &
4482  10.266242055151874_dp, &
4483  3.724391604535185e-07_dp, &
4484  1.0869250980985111e-06_dp, &
4485  2.5605516562597e-06_dp, &
4486  5.7850356623393795e-06_dp, &
4487  1.2528619638131183e-05_dp, &
4488  2.6016291223482876e-05_dp, &
4489  5.204832564381964e-05_dp, &
4490  0.00010081228246405614_dp, &
4491  0.00018982349811898816_dp, &
4492  0.0003486351977763963_dp, &
4493  0.000626280938172421_dp, &
4494  0.0011028905979224082_dp, &
4495  0.0019076162117445236_dp, &
4496  0.0032460080919710396_dp, &
4497  0.005441424633595424_dp, &
4498  0.00899711363781583_dp, &
4499  0.01468851247521531_dp, &
4500  0.023699427657021866_dp, &
4501  0.03782154672437762_dp, &
4502  0.059744945747629535_dp, &
4503  0.09347917704011861_dp, &
4504  0.1449628687820927_dp, &
4505  0.2229515840638538_dp, &
4506  0.34033980700933175_dp, &
4507  0.5162398701965166_dp, &
4508  0.7796319970356158_dp, &
4509  1.1770306615230532_dp, &
4510  1.7928810285625805_dp, &
4511  2.8227297861916565_dp, &
4512  5.012462806749877_dp/)
4513  ELSE IF (e_range < 18000000.0_dp) THEN
4514  aw(:) = (/ &
4515  5.619543540742037e-08_dp, &
4516  3.5072928313745456e-07_dp, &
4517  1.1785442886447028e-06_dp, &
4518  3.3029924055616623e-06_dp, &
4519  8.394882189434066e-06_dp, &
4520  1.987896075698813e-05_dp, &
4521  4.449626404673206e-05_dp, &
4522  9.506973724339386e-05_dp, &
4523  0.00019528307697601834_dp, &
4524  0.0003877720465039687_dp, &
4525  0.0007475784942017128_dp, &
4526  0.001404160723388905_dp, &
4527  0.002576876821658531_dp, &
4528  0.004631430044514_dp, &
4529  0.008168570072664031_dp, &
4530  0.014161927673231893_dp, &
4531  0.024169988544510326_dp, &
4532  0.04065896918886588_dp, &
4533  0.06749026098429482_dp, &
4534  0.1106503055340562_dp, &
4535  0.17933541972048098_dp, &
4536  0.28755422315274737_dp, &
4537  0.45648527437792397_dp, &
4538  0.7179486868235401_dp, &
4539  1.119577032884951_dp, &
4540  1.7327879813628193_dp, &
4541  2.6661030665007965_dp, &
4542  4.091161983842176_dp, &
4543  6.3086506803163065_dp, &
4544  10.005419833797736_dp, &
4545  1.4962249041277701e-07_dp, &
4546  4.835223883864694e-07_dp, &
4547  1.2927723889950915e-06_dp, &
4548  3.221113081192073e-06_dp, &
4549  7.5085382788298944e-06_dp, &
4550  1.653889597388599e-05_dp, &
4551  3.475621269796358e-05_dp, &
4552  7.020789074538884e-05_dp, &
4553  0.000137107896070371_dp, &
4554  0.0002600215543190807_dp, &
4555  0.00048059369103468994_dp, &
4556  0.0008682158907070847_dp, &
4557  0.0015367276921454673_dp, &
4558  0.0026702645844449866_dp, &
4559  0.004562839898703722_dp, &
4560  0.007678366608423676_dp, &
4561  0.012740848501038493_dp, &
4562  0.02086877544772841_dp, &
4563  0.03377384609132226_dp, &
4564  0.05405280484981297_dp, &
4565  0.08561371875294983_dp, &
4566  0.13429708936338725_dp, &
4567  0.20878452860262342_dp, &
4568  0.32195328331951945_dp, &
4569  0.4929981089833493_dp, &
4570  0.7511227960385115_dp, &
4571  1.1432128213684527_dp, &
4572  1.7541296769802968_dp, &
4573  2.7794877584199225_dp, &
4574  4.963023556769552_dp/)
4575  ELSE IF (e_range < 50000000.0_dp) THEN
4576  aw(:) = (/ &
4577  2.4343774571442308e-08_dp, &
4578  1.6513085830933388e-07_dp, &
4579  6.196802532079424e-07_dp, &
4580  1.9114039978346155e-06_dp, &
4581  5.2375690334248195e-06_dp, &
4582  1.316277905469794e-05_dp, &
4583  3.092030271194152e-05_dp, &
4584  6.876819455159673e-05_dp, &
4585  0.0001461441409773963_dp, &
4586  0.0002988264714800754_dp, &
4587  0.0005910302376020617_dp, &
4588  0.0011354771724870155_dp, &
4589  0.0021261659208679307_dp, &
4590  0.0038911087717360972_dp, &
4591  0.0069760886290369745_dp, &
4592  0.012276085772085119_dp, &
4593  0.021239226973771258_dp, &
4594  0.03618004618429005_dp, &
4595  0.060756103616981624_dp, &
4596  0.10068683961443668_dp, &
4597  0.16482922554469034_dp, &
4598  0.2667764798918916_dp, &
4599  0.4272231990996556_dp, &
4600  0.6774637303634756_dp, &
4601  1.064618278549332_dp, &
4602  1.6596947503579922_dp, &
4603  2.5710208535654164_dp, &
4604  3.9703478472317504_dp, &
4605  6.158711044835771_dp, &
4606  9.822845740299956_dp, &
4607  6.607779435757453e-08_dp, &
4608  2.4531316662915766e-07_dp, &
4609  7.456766806787507e-07_dp, &
4610  2.026328956129065e-06_dp, &
4611  5.0327732385235214e-06_dp, &
4612  1.1652295901214502e-05_dp, &
4613  2.5505955301673674e-05_dp, &
4614  5.331453501898778e-05_dp, &
4615  0.0001072058234797249_dp, &
4616  0.00020853777085767683_dp, &
4617  0.0003941273627591354_dp, &
4618  0.0007262462873395727_dp, &
4619  0.0013084426047463612_dp, &
4620  0.00231027419159065_dp, &
4621  0.004005535279633006_dp, &
4622  0.006830718203653046_dp, &
4623  0.011473559821092195_dp, &
4624  0.019005957730023747_dp, &
4625  0.031081856143062504_dp, &
4626  0.0502296954993904_dp, &
4627  0.08028203266369409_dp, &
4628  0.12700459445500437_dp, &
4629  0.19901982937944282_dp, &
4630  0.3091853239783209_dp, &
4631  0.4767481905112323_dp, &
4632  0.7310696923220488_dp, &
4633  1.1193069602208368_dp, &
4634  1.72663775937696_dp, &
4635  2.74875508795335_dp, &
4636  4.927904659791831_dp/)
4637  ELSE
4638  aw(:) = (/ &
4639  3.3134286206436378e-09_dp, &
4640  3.608476731974466e-08_dp, &
4641  1.9011771017402648e-07_dp, &
4642  7.319641454121685e-07_dp, &
4643  2.3402664590560514e-06_dp, &
4644  6.59508695658557e-06_dp, &
4645  1.6937909149354525e-05_dp, &
4646  4.048237319663682e-05_dp, &
4647  9.132011445721631e-05_dp, &
4648  0.00019639172259169963_dp, &
4649  0.0004056673541505352_dp, &
4650  0.0008094360939409007_dp, &
4651  0.001567130287522824_dp, &
4652  0.0029545924806747004_dp, &
4653  0.005440438931022152_dp, &
4654  0.009807773172795757_dp, &
4655  0.017345795847210112_dp, &
4656  0.030148043017114434_dp, &
4657  0.0515717640546498_dp, &
4658  0.08693872933672857_dp, &
4659  0.14459504048117927_dp, &
4660  0.23750169179013617_dp, &
4661  0.3856081802743787_dp, &
4662  0.6193889538319287_dp, &
4663  0.9851526108818242_dp, &
4664  1.5532426287786882_dp, &
4665  2.431651849778814_dp, &
4666  3.7922799603529507_dp, &
4667  5.93671227399739_dp, &
4668  9.551588089060862_dp, &
4669  1.0546633313159667e-08_dp, &
4670  6.866238130433312e-08_dp, &
4671  2.8014791592507246e-07_dp, &
4672  9.089927672975243e-07_dp, &
4673  2.5558210419120903e-06_dp, &
4674  6.498693707400478e-06_dp, &
4675  1.531991208406891e-05_dp, &
4676  3.4023779895267246e-05_dp, &
4677  7.197856727334818e-05_dp, &
4678  0.00014621506144801751_dp, &
4679  0.0002869199340733901_dp, &
4680  0.0005464264697957605_dp, &
4681  0.0010137006051227095_dp, &
4682  0.0018373548659257801_dp, &
4683  0.0032617470785987366_dp, &
4684  0.005682944230668296_dp, &
4685  0.009734554219352109_dp, &
4686  0.016418075032354977_dp, &
4687  0.02729906435610205_dp, &
4688  0.04479995778261982_dp, &
4689  0.07263414004010217_dp, &
4690  0.11644650227746163_dp, &
4691  0.1847594577631817_dp, &
4692  0.2903885825624092_dp, &
4693  0.4526492240843357_dp, &
4694  0.7011369514153092_dp, &
4695  1.0834309171758731_dp, &
4696  1.6852193328076974_dp, &
4697  2.7023644845108916_dp, &
4698  4.874923027763007_dp/)
4699  END IF
4700  END SUBROUTINE
4701 
4702 ! **************************************************************************************************
4703 !> \brief ...
4704 !> \param k ...
4705 !> \param E_range ...
4706 !> \param aw ...
4707 !> \param E_ratio ...
4708 ! **************************************************************************************************
4709  PURE SUBROUTINE get_coeff_32(k, E_range, aw, E_ratio)
4710  INTEGER, INTENT(IN) :: k
4711  REAL(kind=dp), INTENT(IN) :: e_range
4712  REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
4713  REAL(kind=dp), INTENT(OUT) :: e_ratio
4714 
4715  e_ratio = 1.0_dp
4716  IF (e_range < 4862.0_dp) THEN
4717  e_ratio = 4862.0_dp/e_range
4718  aw(:) = (/ &
4719  6.390102821995496e-05_dp, &
4720  0.0003410048490902184_dp, &
4721  0.000858015893339577_dp, &
4722  0.0016504328288047757_dp, &
4723  0.002778247721262644_dp, &
4724  0.004336751679872466_dp, &
4725  0.0064710209548362084_dp, &
4726  0.009393407912277671_dp, &
4727  0.01340416788754177_dp, &
4728  0.018917565422190717_dp, &
4729  0.026497301468281335_dp, &
4730  0.036905213045864395_dp, &
4731  0.0511672148624311_dp, &
4732  0.07066128158960995_dp, &
4733  0.09723384839331731_dp, &
4734  0.13335312533591778_dp, &
4735  0.18231048817210543_dp, &
4736  0.24848450523394644_dp, &
4737  0.3376865863344385_dp, &
4738  0.4576131552357413_dp, &
4739  0.6184374387625521_dp, &
4740  0.8335859250026539_dp, &
4741  1.1207633263472254_dp, &
4742  1.5033220996389998_dp, &
4743  2.0121331479703484_dp, &
4744  2.6882384204905283_dp, &
4745  3.5868412256539663_dp, &
4746  4.783852020373796_dp, &
4747  6.387973693919086_dp, &
4748  8.566792744620582_dp, &
4749  11.61702931918549_dp, &
4750  16.243244163196902_dp, &
4751  0.0001644750107629364_dp, &
4752  0.0003927652580734362_dp, &
4753  0.0006470526340880139_dp, &
4754  0.0009476004809462573_dp, &
4755  0.0013236672585754251_dp, &
4756  0.00181722804655121_dp, &
4757  0.0024863648293148356_dp, &
4758  0.0034080264366486593_dp, &
4759  0.004681956510169319_dp, &
4760  0.006437986099490384_dp, &
4761  0.00884737093390095_dp, &
4762  0.01213798662642807_dp, &
4763  0.01661375946425665_dp, &
4764  0.022679584239104586_dp, &
4765  0.030873595466529645_dp, &
4766  0.0419091652309378_dp, &
4767  0.05672961944641861_dp, &
4768  0.07657952416894345_dp, &
4769  0.10309761695759492_dp, &
4770  0.13843826485639682_dp, &
4771  0.18543118617833296_dp, &
4772  0.24779409719067566_dp, &
4773  0.3304222201755898_dp, &
4774  0.43979746242641576_dp, &
4775  0.5846010059990558_dp, &
4776  0.7767070228661042_dp, &
4777  1.0329650164221098_dp, &
4778  1.3787901136203442_dp, &
4779  1.8564287417380754_dp, &
4780  2.547529279131862_dp, &
4781  3.6531886321446416_dp, &
4782  5.969270620351697_dp/)
4783  ELSE IF (e_range < 5846.0_dp) THEN
4784  aw(:) = (/ &
4785  5.442349002883837e-05_dp, &
4786  0.0002906163628933693_dp, &
4787  0.0007321293214401846_dp, &
4788  0.0014109784539713872_dp, &
4789  0.0023816365307190094_dp, &
4790  0.0037311772208214787_dp, &
4791  0.005592773584012946_dp, &
4792  0.0081619152463338_dp, &
4793  0.011715729132325964_dp, &
4794  0.016637929524033673_dp, &
4795  0.023453105417011018_dp, &
4796  0.03287403908552556_dp, &
4797  0.045865900699847945_dp, &
4798  0.06373214396298486_dp, &
4799  0.08822857905561622_dp, &
4800  0.12171425464017217_dp, &
4801  0.16735049859917261_dp, &
4802  0.22936294868166074_dp, &
4803  0.3133859506800179_dp, &
4804  0.4269147709487938_dp, &
4805  0.5798994400836499_dp, &
4806  0.7855261781163106_dp, &
4807  1.0612512378052221_dp, &
4808  1.4301841263166695_dp, &
4809  1.9229772371853768_dp, &
4810  2.580501782235826_dp, &
4811  3.4578625966778955_dp, &
4812  4.630962088019041_dp, &
4813  6.208582258228505_dp, &
4814  8.358418878620247_dp, &
4815  11.37712612667173_dp, &
4816  15.968170544511102_dp, &
4817  0.0001401015051695221_dp, &
4818  0.00033499665110023704_dp, &
4819  0.0005532522530987489_dp, &
4820  0.0008133560062402562_dp, &
4821  0.0011422450286066607_dp, &
4822  0.0015787618621387204_dp, &
4823  0.002176697085238142_dp, &
4824  0.0030073676766694266_dp, &
4825  0.004163649639092577_dp, &
4826  0.005767402761174793_dp, &
4827  0.007980687395399007_dp, &
4828  0.011020625281672214_dp, &
4829  0.015178459352483943_dp, &
4830  0.020844174229750198_dp, &
4831  0.028538588286649656_dp, &
4832  0.03895532923923562_dp, &
4833  0.05301575138551127_dp, &
4834  0.07194074865569469_dp, &
4835  0.09734467595148226_dp, &
4836  0.1313584288969531_dp, &
4837  0.17679160298883081_dp, &
4838  0.23734854692003116_dp, &
4839  0.31792227850976007_dp, &
4840  0.42500882037583165_dp, &
4841  0.5673248919963556_dp, &
4842  0.7568049338284129_dp, &
4843  1.0103817704846647_dp, &
4844  1.3535647228420928_dp, &
4845  1.8286721197765015_dp, &
4846  2.517319618502594_dp, &
4847  3.6202102280059703_dp, &
4848  5.930981680526662_dp/)
4849  ELSE IF (e_range < 6665.0_dp) THEN
4850  aw(:) = (/ &
4851  4.8544808464658475e-05_dp, &
4852  0.0002593485712181486_dp, &
4853  0.0006539518705617748_dp, &
4854  0.0012620998863735048_dp, &
4855  0.002134648029009164_dp, &
4856  0.003353250117842424_dp, &
4857  0.005043178699940835_dp, &
4858  0.007388686080392843_dp, &
4859  0.010651467508498257_dp, &
4860  0.01519484467183565_dp, &
4861  0.02151725732341947_dp, &
4862  0.03029858754646109_dp, &
4863  0.04246309490817034_dp, &
4864  0.05926381239480956_dp, &
4865  0.08239494336727046_dp, &
4866  0.11414097839482948_dp, &
4867  0.15757400511758252_dp, &
4868  0.21681422548727597_dp, &
4869  0.29737332757633034_dp, &
4870  0.4066065418252456_dp, &
4871  0.5543077141349219_dp, &
4872  0.7534939940706474_dp, &
4873  1.0214457127670413_dp, &
4874  1.3810991072747199_dp, &
4875  1.8629492914867638_dp, &
4876  2.5077428833752067_dp, &
4877  3.370510682262872_dp, &
4878  4.52714545796296_dp, &
4879  6.086483167699423_dp, &
4880  8.216299008759131_dp, &
4881  11.213210923746692_dp, &
4882  15.779945298966286_dp, &
4883  0.00012498176375406726_dp, &
4884  0.000299130758824733_dp, &
4885  0.0004949254877793316_dp, &
4886  0.0007296849915859161_dp, &
4887  0.0010288042473983914_dp, &
4888  0.0014290235014882077_dp, &
4889  0.0019812415860893163_dp, &
4890  0.0027529950493393966_dp, &
4891  0.00383257137438519_dp, &
4892  0.005336492795437645_dp, &
4893  0.007420608589016774_dp, &
4894  0.01029470391501449_dp, &
4895  0.014241296894904196_dp, &
4896  0.01964004703493962_dp, &
4897  0.02699971016577413_dp, &
4898  0.03700007872604122_dp, &
4899  0.050547012803328586_dp, &
4900  0.06884458868981981_dp, &
4901  0.09348967784530542_dp, &
4902  0.12659613160197555_dp, &
4903  0.17095862941207848_dp, &
4904  0.2302711267303353_dp, &
4905  0.3094239152326776_dp, &
4906  0.4149216994326361_dp, &
4907  0.555505084520509_dp, &
4908  0.7431502415960526_dp, &
4909  0.9948487920453783_dp, &
4910  1.3361777826685788_dp, &
4911  1.809509286088653_dp, &
4912  2.496441460806496_dp, &
4913  3.597410863544938_dp, &
4914  5.9045255378523525_dp/)
4915  ELSE IF (e_range < 7800.0_dp) THEN
4916  aw(:) = (/ &
4917  4.2319791684398945e-05_dp, &
4918  0.0002262256833340046_dp, &
4919  0.0005710759339812151_dp, &
4920  0.0011041000499916853_dp, &
4921  0.0018721273080030145_dp, &
4922  0.002950744254164121_dp, &
4923  0.004456329948077625_dp, &
4924  0.006560445775378507_dp, &
4925  0.009507343812482433_dp, &
4926  0.013637283047013359_dp, &
4927  0.01941907839765781_dp, &
4928  0.027495223047590025_dp, &
4929  0.03874330338636378_dp, &
4930  0.054358588747561776_dp, &
4931  0.07596440384363516_dp, &
4932  0.10575909660902735_dp, &
4933  0.14671121294566578_dp, &
4934  0.20281810337064493_dp, &
4935  0.27944792395127677_dp, &
4936  0.38379131316561327_dp, &
4937  0.525457692252208_dp, &
4938  0.7172635733637082_dp, &
4939  0.9762793617085143_dp, &
4940  1.3252331952635001_dp, &
4941  1.7944297509586076_dp, &
4942  2.4244629711653745_dp, &
4943  3.270270626899914_dp, &
4944  4.407729666691881_dp, &
4945  5.945738068832148_dp, &
4946  8.052167730865541_dp, &
4947  11.023603896745234_dp, &
4948  15.561924493694205_dp, &
4949  0.00010896980958811763_dp, &
4950  0.0002611185815588283_dp, &
4951  0.00043301817888623847_dp, &
4952  0.0006406820460768114_dp, &
4953  0.0009077674409158128_dp, &
4954  0.001268624601649587_dp, &
4955  0.0017708556976942175_dp, &
4956  0.002477704567241762_dp, &
4957  0.0034722665030748113_dp, &
4958  0.004865004260125733_dp, &
4959  0.006804656478190395_dp, &
4960  0.009492536281842186_dp, &
4961  0.013201017163803366_dp, &
4962  0.01829768554187978_dp, &
4963  0.025277118873799437_dp, &
4964  0.034802761118126926_dp, &
4965  0.04776205831199323_dp, &
4966  0.06533896907314592_dp, &
4967  0.08910928388293891_dp, &
4968  0.1211660799438405_dp, &
4969  0.16428554188642505_dp, &
4970  0.22214824519628396_dp, &
4971  0.29963998828115096_dp, &
4972  0.40327442471190905_dp, &
4973  0.5418192779326029_dp, &
4974  0.7272994796496782_dp, &
4975  0.9767765646718063_dp, &
4976  1.315909458684106_dp, &
4977  1.7871373292268897_dp, &
4978  2.4720433230436907_dp, &
4979  3.5707586649853615_dp, &
4980  5.873612522584144_dp/)
4981  ELSE IF (e_range < 10044.0_dp) THEN
4982  aw(:) = (/ &
4983  3.393255390660133e-05_dp, &
4984  0.00018157221465841256_dp, &
4985  0.0004592307676320871_dp, &
4986  0.0008905276367436023_dp, &
4987  0.0015164746316516245_dp, &
4988  0.0024038182425049908_dp, &
4989  0.003655880996707775_dp, &
4990  0.0054255179504103905_dp, &
4991  0.007931245931576318_dp, &
4992  0.0114792650369607_dp, &
4993  0.01649451279684121_dp, &
4994  0.023563843280162002_dp, &
4995  0.033494992691347265_dp, &
4996  0.047396265575400595_dp, &
4997  0.06678363974811272_dp, &
4998  0.093724229945987_dp, &
4999  0.13102792038715239_dp, &
5000  0.18250270781166214_dp, &
5001  0.2532942033927338_dp, &
5002  0.3503362853107127_dp, &
5003  0.4829488331079465_dp, &
5004  0.6636312054412428_dp, &
5005  0.9091194626135006_dp, &
5006  1.241807411536441_dp, &
5007  1.6916904363164948_dp, &
5008  2.299110603722669_dp, &
5009  3.1188473050465815_dp, &
5010  4.226742880544712_dp, &
5011  5.73178901479017_dp, &
5012  7.802015996740442_dp, &
5013  10.73398018079764_dp, &
5014  15.228283328315147_dp, &
5015  8.739335036060486e-05_dp, &
5016  0.00020983760313852035_dp, &
5017  0.0003493229451058535_dp, &
5018  0.0005199664146008647_dp, &
5019  0.0007428694438573918_dp, &
5020  0.001048824687194698_dp, &
5021  0.0014805150854819704_dp, &
5022  0.0020948189118065326_dp, &
5023  0.0029671598393268173_dp, &
5024  0.004198990073584458_dp, &
5025  0.005928343272370908_dp, &
5026  0.008343628060712927_dp, &
5027  0.011701624144711492_dp, &
5028  0.0163512213147089_dp, &
5029  0.022764888824347185_dp, &
5030  0.03158039794694182_dp, &
5031  0.04365605404949107_dp, &
5032  0.06014369592103612_dp, &
5033  0.08258509281019695_dp, &
5034  0.11303931699899293_dp, &
5035  0.1542516135087157_dp, &
5036  0.20987914795565896_dp, &
5037  0.28479788380848736_dp, &
5038  0.38553266378218126_dp, &
5039  0.5208913754190811_dp, &
5040  0.7029743313415381_dp, &
5041  0.9489538722825864_dp, &
5042  1.2846216880545815_dp, &
5043  1.7525303625505235_dp, &
5044  2.4342520367725067_dp, &
5045  3.5294590063092537_dp, &
5046  5.82574638448254_dp/)
5047  ELSE IF (e_range < 14058.0_dp) THEN
5048  aw(:) = (/ &
5049  2.5286922170354894e-05_dp, &
5050  0.00013550300515152938_dp, &
5051  0.00034365254863389185_dp, &
5052  0.0006692829830793605_dp, &
5053  0.0011467768099562_dp, &
5054  0.0018326842825994733_dp, &
5055  0.0028151146148173586_dp, &
5056  0.004225026003742279_dp, &
5057  0.006250780019705354_dp, &
5058  0.009158586718943748_dp, &
5059  0.013321604127882514_dp, &
5060  0.01926054419553751_dp, &
5061  0.02769941545264008_dp, &
5062  0.03964139074601272_dp, &
5063  0.056471580120530336_dp, &
5064  0.08009577889831763_dp, &
5065  0.11312722824816804_dp, &
5066  0.15913731138320336_dp, &
5067  0.22299123810302657_dp, &
5068  0.3112966160076166_dp, &
5069  0.43300212495019025_dp, &
5070  0.6001966661049284_dp, &
5071  0.8291790761739616_dp, &
5072  1.141900704443846_dp, &
5073  1.5679415214227161_dp, &
5074  2.147298128643314_dp, &
5075  2.934523705189343_dp, &
5076  4.00539737112386_dp, &
5077  5.469022915149277_dp, &
5078  7.493643904207673_dp, &
5079  10.375817412384437_dp, &
5080  14.814601510443076_dp, &
5081  6.514769920993364e-05_dp, &
5082  0.00015687397983623111_dp, &
5083  0.00026260059811101074_dp, &
5084  0.000394267458907849_dp, &
5085  0.000569987485627106_dp, &
5086  0.0008163276402528582_dp, &
5087  0.0011701237352853642_dp, &
5088  0.001680758396099781_dp, &
5089  0.002414639429717159_dp, &
5090  0.0034624986342827427_dp, &
5091  0.004949404187288667_dp, &
5092  0.00704789552613599_dp, &
5093  0.00999535091125554_dp, &
5094  0.014117167183015276_dp, &
5095  0.019857768872086755_dp, &
5096  0.02782204007098351_dp, &
5097  0.03883055990410155_dp, &
5098  0.05399308565310966_dp, &
5099  0.07480617533828689_dp, &
5100  0.1032828703661818_dp, &
5101  0.14212537017885443_dp, &
5102  0.19495650401901887_dp, &
5103  0.2666345532300576_dp, &
5104  0.3636933937165475_dp, &
5105  0.4949878042793592_dp, &
5106  0.6727122940047311_dp, &
5107  0.91418280277028_dp, &
5108  1.2453685853158643_dp, &
5109  1.7089820529103965_dp, &
5110  2.3866034784779506_dp, &
5111  3.4773514427582293_dp, &
5112  5.765409584335823_dp/)
5113  ELSE IF (e_range < 19114.0_dp) THEN
5114  aw(:) = (/ &
5115  1.932135319864962e-05_dp, &
5116  0.00010368197789193328_dp, &
5117  0.0002636661772942731_dp, &
5118  0.0005157191470705282_dp, &
5119  0.0008891130218806238_dp, &
5120  0.0014324323017507073_dp, &
5121  0.002221781063255329_dp, &
5122  0.003370774273254239_dp, &
5123  0.005043864110016273_dp, &
5124  0.00747544974094905_dp, &
5125  0.010997228176632299_dp, &
5126  0.01607649385487372_dp, &
5127  0.023369007932130658_dp, &
5128  0.033791453456649585_dp, &
5129  0.04862029962984213_dp, &
5130  0.06962623074409648_dp, &
5131  0.09925634818539467_dp, &
5132  0.14088037853305638_dp, &
5133  0.199122452009721_dp, &
5134  0.2803071363072363_dp, &
5135  0.39305808457961094_dp, &
5136  0.549101229063986_dp, &
5137  0.7643445772055675_dp, &
5138  1.0603390883163382_dp, &
5139  1.466283147413628_dp, &
5140  2.0218493641999524_dp, &
5141  2.781370504056042_dp, &
5142  3.8205517999540817_dp, &
5143  5.248586694740235_dp, &
5144  7.23391404025796_dp, &
5145  10.073125286074314_dp, &
5146  14.464007598891323_dp, &
5147  4.9794334064441845e-05_dp, &
5148  0.0001202442466871008_dp, &
5149  0.00020239142207391234_dp, &
5150  0.00030648388928353133_dp, &
5151  0.00044826394218884584_dp, &
5152  0.0006508962458350465_dp, &
5153  0.0009465213181019036_dp, &
5154  0.001378560941846276_dp, &
5155  0.002006235556189542_dp, &
5156  0.002911588665713435_dp, &
5157  0.004208981250342487_dp, &
5158  0.006057652087479506_dp, &
5159  0.008678530354123182_dp, &
5160  0.012376893766972177_dp, &
5161  0.01757291406967402_dp, &
5162  0.02484274557305271_dp, &
5163  0.034973648086824426_dp, &
5164  0.04903775694722466_dp, &
5165  0.0684906283923225_dp, &
5166  0.09530279631811456_dp, &
5167  0.1321356654214213_dp, &
5168  0.1825779770666456_dp, &
5169  0.2514677535724369_dp, &
5170  0.34534170861863805_dp, &
5171  0.473091186246975_dp, &
5172  0.6469906291688993_dp, &
5173  0.8844828931716822_dp, &
5174  1.2116994219481383_dp, &
5175  1.6715060390575855_dp, &
5176  2.3455108368533817_dp, &
5177  3.432378601360354_dp, &
5178  5.713384147526647_dp/)
5179  ELSE IF (e_range < 25870.0_dp) THEN
5180  aw(:) = (/ &
5181  1.4818639796865528e-05_dp, &
5182  7.963886363515554e-05_dp, &
5183  0.00020311223580610354_dp, &
5184  0.00039911404589973475_dp, &
5185  0.0006926333595966217_dp, &
5186  0.0011254943882583104_dp, &
5187  0.0017635291623248677_dp, &
5188  0.0027054780460561163_dp, &
5189  0.004095260696633318_dp, &
5190  0.006139843660554759_dp, &
5191  0.009134914466544177_dp, &
5192  0.013500979005727987_dp, &
5193  0.019833495884515773_dp, &
5194  0.02897206838249403_dp, &
5195  0.042095533039198385_dp, &
5196  0.06085215831868936_dp, &
5197  0.08753730146299196_dp, &
5198  0.1253350272549887_dp, &
5199  0.17864571781396288_dp, &
5200  0.2535290933953418_dp, &
5201  0.35830209305587557_dp, &
5202  0.5043450664128841_dp, &
5203  0.7071902955364795_dp, &
5204  0.9879995840794562_dp, &
5205  1.3755955013642696_dp, &
5206  1.9093257812455384_dp, &
5207  2.6432950751333295_dp, &
5208  3.6531218956627853_dp, &
5209  5.048075954994877_dp, &
5210  6.99678689342338_dp, &
5211  9.795906582751762_dp, &
5212  14.142088288126018_dp, &
5213  3.820307739174523e-05_dp, &
5214  9.253211423715926e-05_dp, &
5215  0.00015666144789002137_dp, &
5216  0.00023941035175647392_dp, &
5217  0.0003544795957843895_dp, &
5218  0.0005220706038556393_dp, &
5219  0.0007702567427026573_dp, &
5220  0.0011373348215882129_dp, &
5221  0.001676302988186351_dp, &
5222  0.002461551034244103_dp, &
5223  0.003597851119996275_dp, &
5224  0.005232383925906072_dp, &
5225  0.007571020540645877_dp, &
5226  0.01090045623553385_dp, &
5227  0.01561826230147036_dp, &
5228  0.022273572546892197_dp, &
5229  0.03162200007875945_dp, &
5230  0.04469955727258082_dp, &
5231  0.06292193738822648_dp, &
5232  0.08821770562181855_dp, &
5233  0.12320712191071415_dp, &
5234  0.17144328423198826_dp, &
5235  0.23774090556227068_dp, &
5236  0.3286348439935499_dp, &
5237  0.45304683721268363_dp, &
5238  0.6233242933376546_dp, &
5239  0.8570306244015214_dp, &
5240  1.1804560303362448_dp, &
5241  1.6366228282940412_dp, &
5242  2.3071833124934_dp, &
5243  3.3903998854623985_dp, &
5244  5.664862602289436_dp/)
5245  ELSE IF (e_range < 35180.0_dp) THEN
5246  aw(:) = (/ &
5247  1.1315989220620849e-05_dp, &
5248  6.091484824470965e-05_dp, &
5249  0.0001558556348063919_dp, &
5250  0.0003078203984115187_dp, &
5251  0.0005380983662976303_dp, &
5252  0.0008826023610964867_dp, &
5253  0.0013981206622491853_dp, &
5254  0.0021702768627684973_dp, &
5255  0.0033248504851841115_dp, &
5256  0.005044444967959304_dp, &
5257  0.007592519217726472_dp, &
5258  0.011347339662602948_dp, &
5259  0.016849450868861544_dp, &
5260  0.024867669342019266_dp, &
5261  0.03649043474384647_dp, &
5262  0.05325176815491175_dp, &
5263  0.07730430050505666_dp, &
5264  0.1116561161775443_dp, &
5265  0.16049387125009024_dp, &
5266  0.22962230812156062_dp, &
5267  0.3270606812998151_dp, &
5268  0.46385106272587334_dp, &
5269  0.6551545548992531_dp, &
5270  0.9217445361800276_dp, &
5271  1.2920638357850092_dp, &
5272  1.8051264992628424_dp, &
5273  2.514796276521399_dp, &
5274  3.496590833178514_dp, &
5275  4.85984548686659_dp, &
5276  6.773380959237685_dp, &
5277  9.533934166411905_dp, &
5278  13.837118014874001_dp, &
5279  2.918394667912216e-05_dp, &
5280  7.092102053120252e-05_dp, &
5281  0.0001208490607819795_dp, &
5282  0.00018654379226223144_dp, &
5283  0.00027989427379719806_dp, &
5284  0.0004184502969887145_dp, &
5285  0.000626673050017551_dp, &
5286  0.0009383293128013663_dp, &
5287  0.0014008572107836192_dp, &
5288  0.002081684144431634_dp, &
5289  0.0030767293366374213_dp, &
5290  0.004521918459768059_dp, &
5291  0.006608939226821494_dp, &
5292  0.009606834282132472_dp, &
5293  0.013891522205312699_dp, &
5294  0.0199860217642558_dp, &
5295  0.028615075699006714_dp, &
5296  0.04077910134384887_dp, &
5297  0.057854053870927825_dp, &
5298  0.08172606721705969_dp, &
5299  0.11497300539733377_dp, &
5300  0.16111009858027334_dp, &
5301  0.22492545113901904_dp, &
5302  0.3129477675464925_dp, &
5303  0.43412426576959084_dp, &
5304  0.6008706467915673_dp, &
5305  0.8308678912066612_dp, &
5306  1.1505656278854524_dp, &
5307  1.6031493439397482_dp, &
5308  2.270331555451258_dp, &
5309  3.3500083706514476_dp, &
5310  5.6182166490122984_dp/)
5311  ELSE IF (e_range < 58986.0_dp) THEN
5312  aw(:) = (/ &
5313  7.188720818598015e-06_dp, &
5314  3.881661788798954e-05_dp, &
5315  9.991514616563082e-05_dp, &
5316  0.00019924670807668527_dp, &
5317  0.0003530921393375012_dp, &
5318  0.0005892390933533132_dp, &
5319  0.0009519594342766803_dp, &
5320  0.0015086954155209336_dp, &
5321  0.0023599840025008696_dp, &
5322  0.003654238190455114_dp, &
5323  0.005609186735480063_dp, &
5324  0.008542461005020551_dp, &
5325  0.01291487453690728_dp, &
5326  0.01939133485309362_dp, &
5327  0.028926175238232574_dp, &
5328  0.04288217331115784_dp, &
5329  0.06319585740381348_dp, &
5330  0.09260618135064007_dp, &
5331  0.13496966452445772_dp, &
5332  0.19569319485572675_dp, &
5333  0.2823266941469131_dp, &
5334  0.40537308432315655_dp, &
5335  0.5793949454394274_dp, &
5336  0.8245311284762115_dp, &
5337  1.1685945009236132_dp, &
5338  1.6500342331912714_dp, &
5339  2.322292524496194_dp, &
5340  3.260691519334744_dp, &
5341  4.574650070688025_dp, &
5342  6.433299519631953_dp, &
5343  9.133561259222846_dp, &
5344  13.369520380969645_dp, &
5345  1.8552570543955455e-05_dp, &
5346  4.5365280395614445e-05_dp, &
5347  7.824430449992235e-05_dp, &
5348  0.000123064841905601_dp, &
5349  0.00018917614532398957_dp, &
5350  0.00029038908164917863_dp, &
5351  0.0004461302902503803_dp, &
5352  0.0006838555287975979_dp, &
5353  0.001043105615047013_dp, &
5354  0.0015811894241096348_dp, &
5355  0.0023809364846653818_dp, &
5356  0.003561415027894291_dp, &
5357  0.005292829489029218_dp, &
5358  0.007817192602841475_dp, &
5359  0.011476902733337355_dp, &
5360  0.01675409107074492_dp, &
5361  0.024324590249295588_dp, &
5362  0.035131696353015066_dp, &
5363  0.050486674490227534_dp, &
5364  0.07220539175013203_dp, &
5365  0.10279391074071534_dp, &
5366  0.14570107833907187_dp, &
5367  0.20566478637597496_dp, &
5368  0.28919483053487227_dp, &
5369  0.40526987079618043_dp, &
5370  0.5664074675124494_dp, &
5371  0.7904744673132619_dp, &
5372  1.1041823544223337_dp, &
5373  1.5509968448017435_dp, &
5374  2.2127606942845244_dp, &
5375  3.286839828729209_dp, &
5376  5.545336982828468_dp/)
5377  ELSE IF (e_range < 85052.0_dp) THEN
5378  aw(:) = (/ &
5379  5.212842853721373e-06_dp, &
5380  2.8216485728556984e-05_dp, &
5381  7.298119875698969e-05_dp, &
5382  0.00014666687860403872_dp, &
5383  0.00026275225618308033_dp, &
5384  0.0004444091505151155_dp, &
5385  0.0007287615881022521_dp, &
5386  0.0011728502574399147_dp, &
5387  0.0018626816535886259_dp, &
5388  0.0029267741621968922_dp, &
5389  0.004555909601317652_dp, &
5390  0.007031533755260647_dp, &
5391  0.01076629475072859_dp, &
5392  0.016361592669832718_dp, &
5393  0.02468887356341755_dp, &
5394  0.03700391916268461_dp, &
5395  0.055106793600662854_dp, &
5396  0.08156471559554047_dp, &
5397  0.12002134058150862_dp, &
5398  0.17562433753378992_dp, &
5399  0.2556145691836236_dp, &
5400  0.370135979817623_dp, &
5401  0.5333479158700739_dp, &
5402  0.7649561302861829_dp, &
5403  1.092336920188996_dp, &
5404  1.5535402649553307_dp, &
5405  2.201701148128128_dp, &
5406  3.111986649331865_dp, &
5407  4.39385578004782_dp, &
5408  6.216650142887412_dp, &
5409  8.877446914810541_dp, &
5410  13.069399675595056_dp, &
5411  1.3460633699481115e-05_dp, &
5412  3.307685267989567e-05_dp, &
5413  5.7604518102217696e-05_dp, &
5414  9.195641910083116e-05_dp, &
5415  0.00014400755053456355_dp, &
5416  0.00022539775962319305_dp, &
5417  0.0003526662335951264_dp, &
5418  0.0005496236389883362_dp, &
5419  0.0008511354053799554_dp, &
5420  0.0013083814172165737_dp, &
5421  0.0019961328695681448_dp, &
5422  0.0030229467394267007_dp, &
5423  0.00454547537639009_dp, &
5424  0.00678848631990991_dp, &
5425  0.010072747132319853_dp, &
5426  0.014853695284454384_dp, &
5427  0.021774843424492554_dp, &
5428  0.03174125164120884_dp, &
5429  0.04602026166587432_dp, &
5430  0.06637923482681696_dp, &
5431  0.0952736156331887_dp, &
5432  0.13610397708422503_dp, &
5433  0.19356942137149777_dp, &
5434  0.27416081565736494_dp, &
5435  0.3868712620397728_dp, &
5436  0.5442810461868627_dp, &
5437  0.7643794009427055_dp, &
5438  1.0740573000929907_dp, &
5439  1.5169810386781961_dp, &
5440  2.1751039860564134_dp, &
5441  3.2454752973208514_dp, &
5442  5.497663131109453_dp/)
5443  ELSE IF (e_range < 126612.0_dp) THEN
5444  aw(:) = (/ &
5445  3.6756703015465298e-06_dp, &
5446  1.9954750677579616e-05_dp, &
5447  5.191549207164041e-05_dp, &
5448  0.00010531730513004429_dp, &
5449  0.00019114894568566566_dp, &
5450  0.0003284345206580502_dp, &
5451  0.0005478574351058358_dp, &
5452  0.0008970642726998205_dp, &
5453  0.001448846563954588_dp, &
5454  0.0023134440610659145_dp, &
5455  0.00365660754627558_dp, &
5456  0.005725809627536767_dp, &
5457  0.008888016831791598_dp, &
5458  0.01368381089343313_dp, &
5459  0.020904518142872384_dp, &
5460  0.031701561841387796_dp, &
5461  0.04774073523681854_dp, &
5462  0.07141882485947987_dp, &
5463  0.10616643258939448_dp, &
5464  0.15686955518574938_dp, &
5465  0.23045435097627895_dp, &
5466  0.33669592809026266_dp, &
5467  0.48933536087816165_dp, &
5468  0.7076244370403264_dp, &
5469  1.0184762856769092_dp, &
5470  1.4595108245228903_dp, &
5471  2.0835241856266555_dp, &
5472  2.965501956804563_dp, &
5473  4.214929989807013_dp, &
5474  6.001367447071038_dp, &
5475  8.622077664029446_dp, &
5476  12.76932426608392_dp, &
5477  9.497600314818484e-06_dp, &
5478  2.347760247868802e-05_dp, &
5479  4.136863276834202e-05_dp, &
5480  6.721947207800727e-05_dp, &
5481  0.00010755652914793868_dp, &
5482  0.00017204310109274583_dp, &
5483  0.00027461020521950513_dp, &
5484  0.00043573410701580053_dp, &
5485  0.0006859083122114215_dp, &
5486  0.0010704829571126738_dp, &
5487  0.0016564711186942442_dp, &
5488  0.0025422076964986724_dp, &
5489  0.003871039755848531_dp, &
5490  0.005850643295798488_dp, &
5491  0.008780144703142966_dp, &
5492  0.013088020403816946_dp, &
5493  0.01938482007375741_dp, &
5494  0.02853620387815694_dp, &
5495  0.04176374049584569_dp, &
5496  0.06078358076425594_dp, &
5497  0.087996854859105_dp, &
5498  0.12675113895160917_dp, &
5499  0.18170115882627896_dp, &
5500  0.2593129035941683_dp, &
5501  0.3685886307380454_dp, &
5502  0.5221684374385586_dp, &
5503  0.7381657526850111_dp, &
5504  1.0436599990100175_dp, &
5505  1.4825352832265704_dp, &
5506  2.136878793265541_dp, &
5507  3.2034437811357703_dp, &
5508  5.449257489548676_dp/)
5509  ELSE IF (e_range < 247709.0_dp) THEN
5510  aw(:) = (/ &
5511  2.0394837579119305e-06_dp, &
5512  1.1136428689231387e-05_dp, &
5513  2.9311026954581983e-05_dp, &
5514  6.057395938117077e-05_dp, &
5515  0.00011273361636596131_dp, &
5516  0.00019945262227642557_dp, &
5517  0.00034307020413915784_dp, &
5518  0.0005789986244949678_dp, &
5519  0.0009626136389075716_dp, &
5520  0.0015797047702976012_dp, &
5521  0.0025620328180390273_dp, &
5522  0.00411027194192014_dp, &
5523  0.006527602589322277_dp, &
5524  0.010268581467814463_dp, &
5525  0.016009798955308914_dp, &
5526  0.02475143770962476_dp, &
5527  0.03796243042890685_dp, &
5528  0.057786831913653906_dp, &
5529  0.0873357482301367_dp, &
5530  0.1310983577206706_dp, &
5531  0.19551814727621097_dp, &
5532  0.2897978980472306_dp, &
5533  0.4270216153720778_dp, &
5534  0.6257183147230295_dp, &
5535  0.9120522680792509_dp, &
5536  1.3229345707400562_dp, &
5537  1.9105866829861018_dp, &
5538  2.7496652071687744_dp, &
5539  3.9496659363104385_dp, &
5540  5.680486965184195_dp, &
5541  8.239732353995374_dp, &
5542  12.318415719148392_dp, &
5543  5.276628830314947e-06_dp, &
5544  1.3196668481729192e-05_dp, &
5545  2.379458469172375e-05_dp, &
5546  3.999888381841533e-05_dp, &
5547  6.655277116013134e-05_dp, &
5548  0.00011053727387478837_dp, &
5549  0.00018248747181848964_dp, &
5550  0.00029842809341232193_dp, &
5551  0.0004828462223872788_dp, &
5552  0.0007729214376067976_dp, &
5553  0.001224631278196218_dp, &
5554  0.001921577765363735_dp, &
5555  0.0029876866735399437_dp, &
5556  0.0046053732161687655_dp, &
5557  0.007041380807008615_dp, &
5558  0.010683336283217822_dp, &
5559  0.016091204665789092_dp, &
5560  0.02406937359680715_dp, &
5561  0.03576720002987578_dp, &
5562  0.05281872257231177_dp, &
5563  0.07753624384014632_dp, &
5564  0.11317828438072734_dp, &
5565  0.16432147566237754_dp, &
5566  0.2373819281103962_dp, &
5567  0.34136408980953675_dp, &
5568  0.48899079151871744_dp, &
5569  0.6985643332266451_dp, &
5570  0.9974643386084848_dp, &
5571  1.4299370040199422_dp, &
5572  2.0783190576822954_dp, &
5573  3.138964327630411_dp, &
5574  5.375073752754771_dp/)
5575  ELSE IF (e_range < 452410.0_dp) THEN
5576  aw(:) = (/ &
5577  1.2029417634752254e-06_dp, &
5578  6.609895643735541e-06_dp, &
5579  1.761886326860991e-05_dp, &
5580  3.714701435066809e-05_dp, &
5581  7.09606454750247e-05_dp, &
5582  0.00012924586800944736_dp, &
5583  0.0002289177620104591_dp, &
5584  0.00039735575327091586_dp, &
5585  0.0006783049971089168_dp, &
5586  0.001140918627613451_dp, &
5587  0.0018934100817969098_dp, &
5588  0.0031034810098270562_dp, &
5589  0.0050286516433828725_dp, &
5590  0.008060966671683137_dp, &
5591  0.012792436500279173_dp, &
5592  0.020110206423758527_dp, &
5593  0.03133410211483852_dp, &
5594  0.04841425570428367_dp, &
5595  0.07421348496567018_dp, &
5596  0.11290867950409522_dp, &
5597  0.1705586323733128_dp, &
5598  0.2559040285419376_dp, &
5599  0.38149111837813177_dp, &
5600  0.5652486706311622_dp, &
5601  0.8327086526705059_dp, &
5602  1.2201713489652732_dp, &
5603  1.7793482729282073_dp, &
5604  2.5845851027859807_dp, &
5605  3.745354303892851_dp, &
5606  5.4318267387256425_dp, &
5607  7.941927006849686_dp, &
5608  11.965772395891321_dp, &
5609  3.1166015808204985e-06_dp, &
5610  7.893584647537054e-06_dp, &
5611  1.4590421523143668e-05_dp, &
5612  2.540166835137321e-05_dp, &
5613  4.38866273658644e-05_dp, &
5614  7.544235506820306e-05_dp, &
5615  0.00012836853819339647_dp, &
5616  0.0002156510284757784_dp, &
5617  0.00035755049600582473_dp, &
5618  0.0005853791673295657_dp, &
5619  0.0009470589489445969_dp, &
5620  0.0015152726995104847_dp, &
5621  0.0023993396733646157_dp, &
5622  0.0037624022005128713_dp, &
5623  0.005846143988201738_dp, &
5624  0.009006130762738474_dp, &
5625  0.01376205648174844_dp, &
5626  0.02086880821287917_dp, &
5627  0.03141648831640661_dp, &
5628  0.04697057987136505_dp, &
5629  0.06976767926454802_dp, &
5630  0.10298830876584288_dp, &
5631  0.1511376630263013_dp, &
5632  0.2205811788480397_dp, &
5633  0.320313759532162_dp, &
5634  0.4631152216015924_dp, &
5635  0.6674360776688134_dp, &
5636  0.9609048344557064_dp, &
5637  1.3880820200304151_dp, &
5638  2.031544618845653_dp, &
5639  3.087377771089118_dp, &
5640  5.31578682998986_dp/)
5641  ELSE IF (e_range < 1104308.0_dp) THEN
5642  aw(:) = (/ &
5643  5.514768391533348e-07_dp, &
5644  3.0661463050989084e-06_dp, &
5645  8.370607042832422e-06_dp, &
5646  1.830793322995512e-05_dp, &
5647  3.65866489044243e-05_dp, &
5648  6.987140555359488e-05_dp, &
5649  0.00012955245746241426_dp, &
5650  0.00023469156977383316_dp, &
5651  0.00041673066301572737_dp, &
5652  0.0007268469188482661_dp, &
5653  0.0012473021552990137_dp, &
5654  0.002108784237240361_dp, &
5655  0.0035166643543472435_dp, &
5656  0.005790416868049286_dp, &
5657  0.009422327737378779_dp, &
5658  0.015164272167993003_dp, &
5659  0.02415507435487594_dp, &
5660  0.038106181361843135_dp, &
5661  0.05957064947730835_dp, &
5662  0.09233052534676135_dp, &
5663  0.14195168557080626_dp, &
5664  0.2165746550862792_dp, &
5665  0.3280373760158957_dp, &
5666  0.493465990037226_dp, &
5667  0.7375325370826453_dp, &
5668  1.0956894156446793_dp, &
5669  1.6189196862917987_dp, &
5670  2.381098691427177_dp, &
5671  3.4916207819996172_dp, &
5672  5.1210060943387665_dp, &
5673  7.5676555925110085_dp, &
5674  11.520669806145102_dp, &
5675  1.4324492833187423e-06_dp, &
5676  3.714945365379106e-06_dp, &
5677  7.187993199450151e-06_dp, &
5678  1.3287667789384625e-05_dp, &
5679  2.435221365340668e-05_dp, &
5680  4.406786544877652e-05_dp, &
5681  7.839477316844559e-05_dp, &
5682  0.00013700432533564813_dp, &
5683  0.00023541888373746023_dp, &
5684  0.0003982417143724247_dp, &
5685  0.0006640223423546365_dp, &
5686  0.0010925276402432504_dp, &
5687  0.0017755203327472222_dp, &
5688  0.0028526152739405167_dp, &
5689  0.0045344377578051915_dp, &
5690  0.007136218994535957_dp, &
5691  0.011126225466246156_dp, &
5692  0.01719515628222213_dp, &
5693  0.026355033830470446_dp, &
5694  0.04007940751399853_dp, &
5695  0.06050127009572156_dp, &
5696  0.09069160330701329_dp, &
5697  0.13505126572297815_dp, &
5698  0.19986523979796597_dp, &
5699  0.2940997147198093_dp, &
5700  0.4305938358212778_dp, &
5701  0.6279833290723216_dp, &
5702  0.9142278655051918_dp, &
5703  1.3343266294937697_dp, &
5704  1.971223529289826_dp, &
5705  3.0207289388880563_dp, &
5706  5.239269717116346_dp/)
5707  ELSE IF (e_range < 2582180.0_dp) THEN
5708  aw(:) = (/ &
5709  2.6346628583772034e-07_dp, &
5710  1.4870682611802608e-06_dp, &
5711  4.18499777462391e-06_dp, &
5712  9.565754079998203e-06_dp, &
5713  2.0095438915823317e-05_dp, &
5714  4.030712638205273e-05_dp, &
5715  7.820310873891258e-05_dp, &
5716  0.0001476189063429688_dp, &
5717  0.00027206125557350966_dp, &
5718  0.0004908276742423054_dp, &
5719  0.0008686422030538531_dp, &
5720  0.0015106576888148007_dp, &
5721  0.0025855700579017434_dp, &
5722  0.0043608859416256075_dp, &
5723  0.007256247781115456_dp, &
5724  0.011923381221441286_dp, &
5725  0.01936500732097008_dp, &
5726  0.031110395247887928_dp, &
5727  0.049472724953768164_dp, &
5728  0.07792391423249093_dp, &
5729  0.12163719777397036_dp, &
5730  0.18826820696011917_dp, &
5731  0.2890741916661454_dp, &
5732  0.44051299024821017_dp, &
5733  0.6665282145336267_dp, &
5734  1.0018392157983365_dp, &
5735  1.4967815518731842_dp, &
5736  2.2247902473537535_dp, &
5737  3.295151802440413_dp, &
5738  4.87866127574686_dp, &
5739  7.274154425483326_dp, &
5740  11.170031678415262_dp, &
5741  6.865691087424058e-07_dp, &
5742  1.8349687179642652e-06_dp, &
5743  3.75363535847515e-06_dp, &
5744  7.406302503889748e-06_dp, &
5745  1.4385998863803715e-05_dp, &
5746  2.7332856632656454e-05_dp, &
5747  5.070293872960844e-05_dp, &
5748  9.194731882902252e-05_dp, &
5749  0.00016333066755487376_dp, &
5750  0.0002847458523672339_dp, &
5751  0.0004880328440654819_dp, &
5752  0.0008235400684252141_dp, &
5753  0.001370000313997599_dp, &
5754  0.002249268185463258_dp, &
5755  0.003648135807576948_dp, &
5756  0.005850384133560756_dp, &
5757  0.009283540163912576_dp, &
5758  0.01458663604211278_dp, &
5759  0.022707798579110823_dp, &
5760  0.03504400012572891_dp, &
5761  0.05364018073213217_dp, &
5762  0.08147187176803067_dp, &
5763  0.12284570471579664_dp, &
5764  0.18396885882280342_dp, &
5765  0.27376977104743744_dp, &
5766  0.4051220237008429_dp, &
5767  0.5968036286827566_dp, &
5768  0.8770477402799991_dp, &
5769  1.2912341021707199_dp, &
5770  1.9226515113345246_dp, &
5771  2.9669527288987725_dp, &
5772  5.177596037459169_dp/)
5773  ELSE IF (e_range < 10786426.0_dp) THEN
5774  aw(:) = (/ &
5775  7.696764691509552e-08_dp, &
5776  4.5183075501644766e-07_dp, &
5777  1.3712733197245156e-06_dp, &
5778  3.452398063116915e-06_dp, &
5779  7.99119238288884e-06_dp, &
5780  1.7499890158507848e-05_dp, &
5781  3.668225172908821e-05_dp, &
5782  7.411367023252019e-05_dp, &
5783  0.0001450609740104884_dp, &
5784  0.0002761333471939282_dp, &
5785  0.0005128366382617873_dp, &
5786  0.0009316733536716902_dp, &
5787  0.0016592776527650684_dp, &
5788  0.0029023227583525545_dp, &
5789  0.004993762465329047_dp, &
5790  0.008463615785356367_dp, &
5791  0.014146318917564842_dp, &
5792  0.02334212828021178_dp, &
5793  0.03805782856888779_dp, &
5794  0.0613630042242151_dp, &
5795  0.0979136503362365_dp, &
5796  0.15471676332581316_dp, &
5797  0.24224053787692895_dp, &
5798  0.3760196167953944_dp, &
5799  0.5789730031642062_dp, &
5800  0.8847668378302425_dp, &
5801  1.3427798213464026_dp, &
5802  2.0257631969638736_dp, &
5803  3.042786371879784_dp, &
5804  4.564995894383141_dp, &
5805  6.891880055654338_dp, &
5806  10.711074682469496_dp, &
5807  2.0224960490304485e-07_dp, &
5808  5.837519191389681e-07_dp, &
5809  1.3534097826701593e-06_dp, &
5810  3.0163324999016133e-06_dp, &
5811  6.464297707355912e-06_dp, &
5812  1.331006273228438e-05_dp, &
5813  2.6438493784462622e-05_dp, &
5814  5.089377871159909e-05_dp, &
5815  9.53135908336066e-05_dp, &
5816  0.00017421956824809404_dp, &
5817  0.0003116271902197154_dp, &
5818  0.0005466663994455823_dp, &
5819  0.0009422361350401303_dp, &
5820  0.0015981946213501235_dp, &
5821  0.0026712728244169207_dp, &
5822  0.004404875333973468_dp, &
5823  0.00717331310959028_dp, &
5824  0.011546952692401411_dp, &
5825  0.018387490277830258_dp, &
5826  0.028986360940377882_dp, &
5827  0.04526460807725196_dp, &
5828  0.07006006488175816_dp, &
5829  0.10753871373789183_dp, &
5830  0.16378446149863707_dp, &
5831  0.24765288245177752_dp, &
5832  0.3720420890669611_dp, &
5833  0.5559074354965244_dp, &
5834  0.8278548563568215_dp, &
5835  1.2338117262467065_dp, &
5836  1.8576021658437778_dp, &
5837  2.8947650724141107_dp, &
5838  5.094894347251689_dp/)
5839  ELSE IF (e_range < 72565710.0_dp) THEN
5840  aw(:) = (/ &
5841  1.5580960122828055e-08_dp, &
5842  1.0192299261551187e-07_dp, &
5843  3.657511654714275e-07_dp, &
5844  1.0874230387694592e-06_dp, &
5845  2.8971440093678986e-06_dp, &
5846  7.1231112287328e-06_dp, &
5847  1.6440376252868036e-05_dp, &
5848  3.6035911594207885e-05_dp, &
5849  7.564822282610485e-05_dp, &
5850  0.0001530604093750471_dp, &
5851  0.0002999674552596099_dp, &
5852  0.0005716626169231291_dp, &
5853  0.0010627819854068627_dp, &
5854  0.0019325381417571955_dp, &
5855  0.0034446462658281212_dp, &
5856  0.006029758821968773_dp, &
5857  0.010382043759726605_dp, &
5858  0.017607085158632928_dp, &
5859  0.02944628039743525_dp, &
5860  0.04861435988540585_dp, &
5861  0.07930297685700823_dp, &
5862  0.12792652074627453_dp, &
5863  0.20421936908257549_dp, &
5864  0.3228415686086713_dp, &
5865  0.5057217947095013_dp, &
5866  0.785484422991801_dp, &
5867  1.2105330871831885_dp, &
5868  1.852886865611021_dp, &
5869  2.8213315422092657_dp, &
5870  4.2873111269979765_dp, &
5871  6.550982976987269_dp, &
5872  10.299461972660755_dp, &
5873  4.192785461816036e-08_dp, &
5874  1.4682586910958697e-07_dp, &
5875  4.248767433871547e-07_dp, &
5876  1.117972412187448e-06_dp, &
5877  2.71251708562224e-06_dp, &
5878  6.166664608205133e-06_dp, &
5879  1.3299698724334126e-05_dp, &
5880  2.7458360437668858e-05_dp, &
5881  5.463565964132874e-05_dp, &
5882  0.00010531494807998692_dp, &
5883  0.0001974602213268062_dp, &
5884  0.0003612942851684024_dp, &
5885  0.0006468325897487988_dp, &
5886  0.001135618706607295_dp, &
5887  0.0019588032650003236_dp, &
5888  0.003324710089253406_dp, &
5889  0.005560469162003084_dp, &
5890  0.009174344598623402_dp, &
5891  0.014948285309521006_dp, &
5892  0.024074306780617383_dp, &
5893  0.03835406948576763_dp, &
5894  0.060489181968959096_dp, &
5895  0.0945015966761899_dp, &
5896  0.1463417320393485_dp, &
5897  0.22477371348415012_dp, &
5898  0.34269334477792374_dp, &
5899  0.5192018690921564_dp, &
5900  0.7832512032052583_dp, &
5901  1.1813099794431254_dp, &
5902  1.7977731364021527_dp, &
5903  2.828182155100705_dp, &
5904  5.018697893750251_dp/)
5905  ELSE
5906  aw(:) = (/ &
5907  1.4796558719757977e-09_dp, &
5908  1.6277762282636202e-08_dp, &
5909  8.615102100471783e-08_dp, &
5910  3.3251166768869524e-07_dp, &
5911  1.064831343891703e-06_dp, &
5912  3.0042406722730696e-06_dp, &
5913  7.722404719947578e-06_dp, &
5914  1.8469628120696557e-05_dp, &
5915  4.168720676495336e-05_dp, &
5916  8.969407716668371e-05_dp, &
5917  0.00018534670944540425_dp, &
5918  0.00036995434452620024_dp, &
5919  0.0007164776276992899_dp, &
5920  0.0013511756947926401_dp, &
5921  0.0024885840769342527_dp, &
5922  0.004487272639985271_dp, &
5923  0.007937634518341114_dp, &
5924  0.013798542180092185_dp, &
5925  0.023607852053926744_dp, &
5926  0.03980353161167122_dp, &
5927  0.06620914631345257_dp, &
5928  0.10876176019481658_dp, &
5929  0.17659514989891748_dp, &
5930  0.28364164912494744_dp, &
5931  0.45099127302133024_dp, &
5932  0.7103683461225575_dp, &
5933  1.109312567732835_dp, &
5934  1.7191679096665389_dp, &
5935  2.648421848786194_dp, &
5936  4.06873544538514_dp, &
5937  6.280858212318488_dp, &
5938  9.971616727521422_dp, &
5939  4.7301698039073534e-09_dp, &
5940  3.1078236876760897e-08_dp, &
5941  1.2722293347158736e-07_dp, &
5942  4.135773629354279e-07_dp, &
5943  1.1643319139692173e-06_dp, &
5944  2.9633030798047164e-06_dp, &
5945  6.990659700961397e-06_dp, &
5946  1.5534394085699292e-05_dp, &
5947  3.28792052583233e-05_dp, &
5948  6.681670495514343e-05_dp, &
5949  0.00013116076656301764_dp, &
5950  0.0002498651223560153_dp, &
5951  0.0004636589258144925_dp, &
5952  0.0008405899279454757_dp, &
5953  0.0014925644239063773_dp, &
5954  0.0026009920182698686_dp, &
5955  0.004456120959091793_dp, &
5956  0.00751677674389606_dp, &
5957  0.012500261250050913_dp, &
5958  0.020516489982978243_dp, &
5959  0.03326657617193578_dp, &
5960  0.053334802223457274_dp, &
5961  0.08461553683522265_dp, &
5962  0.13293582624456382_dp, &
5963  0.20696680596446562_dp, &
5964  0.31958257452387945_dp, &
5965  0.4899879264178536_dp, &
5966  0.7474157763110646_dp, &
5967  1.1388011986618074_dp, &
5968  1.7490627041810483_dp, &
5969  2.7738272660229994_dp, &
5970  4.9565545529977175_dp/)
5971  END IF
5972  END SUBROUTINE
5973 
5974 ! **************************************************************************************************
5975 !> \brief ...
5976 !> \param k ...
5977 !> \param E_range ...
5978 !> \param aw ...
5979 !> \param E_ratio ...
5980 ! **************************************************************************************************
5981  PURE SUBROUTINE get_coeff_34(k, E_range, aw, E_ratio)
5982  INTEGER, INTENT(IN) :: k
5983  REAL(kind=dp), INTENT(IN) :: e_range
5984  REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
5985  REAL(kind=dp), INTENT(OUT) :: e_ratio
5986 
5987  e_ratio = 1.0_dp
5988  IF (e_range < 9649.0_dp) THEN
5989  e_ratio = 9649.0_dp/e_range
5990  aw(:) = (/ &
5991  3.284029233271286e-05_dp, &
5992  0.0001753443602861097_dp, &
5993  0.0004416382833363001_dp, &
5994  0.0008508530310865113_dp, &
5995  0.001435500605855746_dp, &
5996  0.0022474948219129297_dp, &
5997  0.003366173371324329_dp, &
5998  0.004907942966760921_dp, &
5999  0.007037748206337417_dp, &
6000  0.009983831117905245_dp, &
6001  0.014057973412231587_dp, &
6002  0.019683414844193538_dp, &
6003  0.02743271515183254_dp, &
6004  0.03807838736551588_dp, &
6005  0.052660091008446035_dp, &
6006  0.07257342975355677_dp, &
6007  0.09968697353631621_dp, &
6008  0.13649612296545818_dp, &
6009  0.18632500099011615_dp, &
6010  0.2535908886542759_dp, &
6011  0.3441500984275648_dp, &
6012  0.46575004766668_dp, &
6013  0.6286204407593304_dp, &
6014  0.8462483877785438_dp, &
6015  1.1364010501626234_dp, &
6016  1.5224916494827863_dp, &
6017  2.035445381255887_dp, &
6018  2.716346186249304_dp, &
6019  3.620421040738206_dp, &
6020  4.823581438788581_dp, &
6021  6.434509907627798_dp, &
6022  8.620766164346367_dp, &
6023  11.679090118639257_dp, &
6024  16.31432816585662_dp, &
6025  8.4538052355896e-05_dp, &
6026  0.00020209318539166847_dp, &
6027  0.00033361605486797254_dp, &
6028  0.0004901319572083779_dp, &
6029  0.0006876803644732437_dp, &
6030  0.0009493703556928221_dp, &
6031  0.0013072005549165328_dp, &
6032  0.0018035890085942577_dp, &
6033  0.0024937295684409103_dp, &
6034  0.0034499397324379713_dp, &
6035  0.00476826036404788_dp, &
6036  0.0065772141488150675_dp, &
6037  0.009049030640506878_dp, &
6038  0.012414126010019873_dp, &
6039  0.016979951815415794_dp, &
6040  0.02315561592334051_dp, &
6041  0.031484041042937_dp, &
6042  0.04268391545844468_dp, &
6043  0.05770434764295233_dp, &
6044  0.07779602216248598_dp, &
6045  0.10460388481675117_dp, &
6046  0.14028819232415718_dp, &
6047  0.18768361957484037_dp, &
6048  0.2505110517811862_dp, &
6049  0.33366599536844854_dp, &
6050  0.4436264870131247_dp, &
6051  0.5890644515470643_dp, &
6052  0.7818386670916874_dp, &
6053  1.0387776399865274_dp, &
6054  1.3852730956246349_dp, &
6055  1.8635541689521873_dp, &
6056  2.5552790973254864_dp, &
6057  3.661647560244881_dp, &
6058  5.979097365202448_dp/)
6059  ELSE IF (e_range < 15161.0_dp) THEN
6060  aw(:) = (/ &
6061  2.2094687262226044e-05_dp, &
6062  0.00011816317101145329_dp, &
6063  0.00029854362986100777_dp, &
6064  0.0005779739014899124_dp, &
6065  0.0009819112670486493_dp, &
6066  0.0015516034173501654_dp, &
6067  0.0023507187818878183_dp, &
6068  0.0034732685500535195_dp, &
6069  0.00505334279364789_dp, &
6070  0.007278229326144087_dp, &
6071  0.010406819589614869_dp, &
6072  0.014795161155330522_dp, &
6073  0.020931286923915934_dp, &
6074  0.029482154546951286_dp, &
6075  0.04135653654321724_dp, &
6076  0.05778898092867048_dp, &
6077  0.08045158704880996_dp, &
6078  0.11160243319073283_dp, &
6079  0.15428220578421106_dp, &
6080  0.2125741178044686_dp, &
6081  0.2919468573365305_dp, &
6082  0.3997065271731107_dp, &
6083  0.545592087818525_dp, &
6084  0.7425611332686428_dp, &
6085  1.0078318394632224_dp, &
6086  1.3642789958888877_dp, &
6087  1.8423416665523202_dp, &
6088  2.48272174251732_dp, &
6089  3.34042303033154_dp, &
6090  4.49133411535853_dp, &
6091  6.044309582675748_dp, &
6092  8.167153038233048_dp, &
6093  11.156471603344267_dp, &
6094  15.714736908294974_dp, &
6095  5.689777248462453e-05_dp, &
6096  0.0001364647878286462_dp, &
6097  0.0002266959149215116_dp, &
6098  0.0003363227347021138_dp, &
6099  0.0004783149170860289_dp, &
6100  0.0006715498663212837_dp, &
6101  0.0009421913049362618_dp, &
6102  0.0013250426248297155_dp, &
6103  0.0018660179676916586_dp, &
6104  0.00262648268480602_dp, &
6105  0.003689465255982615_dp, &
6106  0.005167783411766887_dp, &
6107  0.007214591621086576_dp, &
6108  0.010037222243044243_dp, &
6109  0.013915457617770334_dp, &
6110  0.01922566776214666_dp, &
6111  0.02647264919678102_dp, &
6112  0.03633153858613665_dp, &
6113  0.049702887216291285_dp, &
6114  0.06778493328431712_dp, &
6115  0.09216841458681874_dp, &
6116  0.12496114099205212_dp, &
6117  0.1689524368948172_dp, &
6118  0.22783243637559455_dp, &
6119  0.3064902609254688_dp, &
6120  0.411433435566918_dp, &
6121  0.5514107558972641_dp, &
6122  0.7384129467740507_dp, &
6123  0.9894523508058952_dp, &
6124  1.3301301240547123_dp, &
6125  1.8028378573543902_dp, &
6126  2.489168614889156_dp, &
6127  3.5894672490279578_dp, &
6128  5.895310588871672_dp/)
6129  ELSE IF (e_range < 29986.0_dp) THEN
6130  aw(:) = (/ &
6131  1.2132019239369146e-05_dp, &
6132  6.506554392462203e-05_dp, &
6133  0.00016528151320033429_dp, &
6134  0.00032271987439700723_dp, &
6135  0.0005549904907647636_dp, &
6136  0.0008912186380916402_dp, &
6137  0.0013769333304078336_dp, &
6138  0.00207998381188429_dp, &
6139  0.0030983248733590404_dp, &
6140  0.004571097441508312_dp, &
6141  0.006694456763746173_dp, &
6142  0.009743704668641925_dp, &
6143  0.0141037713916676_dp, &
6144  0.02031087384545962_dp, &
6145  0.029109193553804015_dp, &
6146  0.04152772200656733_dp, &
6147  0.05898411878582171_dp, &
6148  0.08342465247911345_dp, &
6149  0.11751221427114543_dp, &
6150  0.1648782324800013_dp, &
6151  0.23045938623741916_dp, &
6152  0.3209467823295079_dp, &
6153  0.44538447707509593_dp, &
6154  0.6159672665711226_dp, &
6155  0.8491072823533072_dp, &
6156  1.1668710896432313_dp, &
6157  1.5989474740844776_dp, &
6158  2.1854242653839444_dp, &
6159  2.9809152725739025_dp, &
6160  4.061217864274067_dp, &
6161  5.535407811609172_dp, &
6162  7.571672639611632_dp, &
6163  10.466564989305379_dp, &
6164  14.91952959384994_dp, &
6165  3.126217597574477e-05_dp, &
6166  7.540587737410632e-05_dp, &
6167  0.00012663926218204873_dp, &
6168  0.00019110769108438634_dp, &
6169  0.00027820581560489743_dp, &
6170  0.000401742249839652_dp, &
6171  0.0005808693019056328_dp, &
6172  0.0008413761481210849_dp, &
6173  0.0012182358494751703_dp, &
6174  0.001759637722089599_dp, &
6175  0.00253246317609668_dp, &
6176  0.003629502407336348_dp, &
6177  0.00517906799440672_dp, &
6178  0.0073579025027302025_dp, &
6179  0.01040852585005309_dp, &
6180  0.014662503493069159_dp, &
6181  0.020571571811010672_dp, &
6182  0.028749161300949972_dp, &
6183  0.04002565337439286_dp, &
6184  0.05552176300115481_dp, &
6185  0.07674587007131725_dp, &
6186  0.10572312939601615_dp, &
6187  0.14516718239506418_dp, &
6188  0.19871016099008434_dp, &
6189  0.2712154487579484_dp, &
6190  0.3692151806287191_dp, &
6191  0.5015525805409441_dp, &
6192  0.6803982020135383_dp, &
6193  0.9230308920142081_dp, &
6194  1.2553734442165063_dp, &
6195  1.7200955901449364_dp, &
6196  2.3987730554757754_dp, &
6197  3.4906629653715_dp, &
6198  5.780815874478559_dp/)
6199  ELSE IF (e_range < 49196.0_dp) THEN
6200  aw(:) = (/ &
6201  7.845531705064765e-06_dp, &
6202  4.217579566703759e-05_dp, &
6203  0.0001076255406955941_dp, &
6204  0.0002116704074840506_dp, &
6205  0.0003678026352786526_dp, &
6206  0.000598637239972256_dp, &
6207  0.000939800791185946_dp, &
6208  0.0014447771966513766_dp, &
6209  0.002191627535252642_dp, &
6210  0.0032927972200630018_dp, &
6211  0.004909216880554122_dp, &
6212  0.007270144108734435_dp, &
6213  0.010700753084513917_dp, &
6214  0.015660261119126325_dp, &
6215  0.02279439226673758_dp, &
6216  0.033007300151380946_dp, &
6217  0.04755981744820865_dp, &
6218  0.06820320985515761_dp, &
6219  0.09736066855556012_dp, &
6220  0.13837281589809153_dp, &
6221  0.19582885861759528_dp, &
6222  0.2760121868265214_dp, &
6223  0.3874989458973457_dp, &
6224  0.5419617440352286_dp, &
6225  0.7552508475941064_dp, &
6226  1.048857678610048_dp, &
6227  1.4519234318259462_dp, &
6228  2.004071631268318_dp, &
6229  2.759600998924181_dp, &
6230  3.7942044073242056_dp, &
6231  5.217087596451319_dp, &
6232  7.196718451225344_dp, &
6233  10.029695823161129_dp, &
6234  14.413626849760721_dp, &
6235  2.022742080929783e-05_dp, &
6236  4.902127023830298e-05_dp, &
6237  8.308838409631613e-05_dp, &
6238  0.00012719755797047105_dp, &
6239  0.00018877141608928316_dp, &
6240  0.00027875729779708194_dp, &
6241  0.00041237481957666014_dp, &
6242  0.0006104274314639044_dp, &
6243  0.0009017824485847016_dp, &
6244  0.0013270526990110587_dp, &
6245  0.0019435429478184875_dp, &
6246  0.0028318806888766317_dp, &
6247  0.004105011117474572_dp, &
6248  0.0059204430431561185_dp, &
6249  0.008496895591229079_dp, &
6250  0.012136858469163465_dp, &
6251  0.017257067102487582_dp, &
6252  0.02442954195917895_dp, &
6253  0.03443669419909579_dp, &
6254  0.04834513188831433_dp, &
6255  0.06760433082481605_dp, &
6256  0.09417845588835595_dp, &
6257  0.13072271761835513_dp, &
6258  0.18082056576074482_dp, &
6259  0.2493066841224739_dp, &
6260  0.3427177893721846_dp, &
6261  0.46995019394607707_dp, &
6262  0.6432897947695325_dp, &
6263  0.8801980582788952_dp, &
6264  1.2068306280775711_dp, &
6265  1.6660767737909483_dp, &
6266  2.3395502248176463_dp, &
6267  3.4258517245052684_dp, &
6268  5.7058363778559205_dp/)
6269  ELSE IF (e_range < 109833.0_dp) THEN
6270  aw(:) = (/ &
6271  3.865603619912879e-06_dp, &
6272  2.087430645188353e-05_dp, &
6273  5.3738065099243575e-05_dp, &
6274  0.00010718454630525007_dp, &
6275  0.0001900012319697737_dp, &
6276  0.00031718955789873134_dp, &
6277  0.0005126537329759226_dp, &
6278  0.0008128168395638415_dp, &
6279  0.0012719920833382853_dp, &
6280  0.001970384125983329_dp, &
6281  0.0030256963224515113_dp, &
6282  0.00460969356562721_dp, &
6283  0.006971643847773047_dp, &
6284  0.010471317877795917_dp, &
6285  0.01562522911317097_dp, &
6286  0.023171141484273704_dp, &
6287  0.034157679556524934_dp, &
6288  0.05006830174859498_dp, &
6289  0.0729921440414609_dp, &
6290  0.1058585802344639_dp, &
6291  0.1527581466742932_dp, &
6292  0.2193802673426605_dp, &
6293  0.31360877991591823_dp, &
6294  0.4463309353744743_dp, &
6295  0.6325368438825444_dp, &
6296  0.8928196332263253_dp, &
6297  1.2554443726415525_dp, &
6298  1.759267106284206_dp, &
6299  2.458035348630705_dp, &
6300  3.427215114290294_dp, &
6301  4.77616847618911_dp, &
6302  6.673804689443379_dp, &
6303  9.416907604833742_dp, &
6304  13.70063546514659_dp, &
6305  9.976454765718753e-06_dp, &
6306  2.4397956666150202e-05_dp, &
6307  4.2091633541468636e-05_dp, &
6308  6.622948123983615e-05_dp, &
6309  0.00010186030376456873_dp, &
6310  0.00015644233845744574_dp, &
6311  0.0002404690130604266_dp, &
6312  0.0003687782406776715_dp, &
6313  0.0005627493820533361_dp, &
6314  0.0008533803933831028_dp, &
6315  0.0012854870718438482_dp, &
6316  0.0019235107198793406_dp, &
6317  0.002859592750775737_dp, &
6318  0.004224781787747757_dp, &
6319  0.0062045295634641385_dp, &
6320  0.009060029072853486_dp, &
6321  0.0131574822853581_dp, &
6322  0.019008095244250185_dp, &
6323  0.02732254096178089_dp, &
6324  0.03908488812876366_dp, &
6325  0.055652686745107795_dp, &
6326  0.07889222315477536_dp, &
6327  0.11136127365662019_dp, &
6328  0.15655676737113142_dp, &
6329  0.21925337945032786_dp, &
6330  0.30597553969409247_dp, &
6331  0.42568066454670456_dp, &
6332  0.5908146138910935_dp, &
6333  0.8191119697759165_dp, &
6334  1.137096600179962_dp, &
6335  1.5880319126786595_dp, &
6336  2.2536634913094686_dp, &
6337  3.331728541732483_dp, &
6338  5.597118014202835_dp/)
6339  ELSE IF (e_range < 276208.0_dp) THEN
6340  aw(:) = (/ &
6341  1.7147362511403065e-06_dp, &
6342  9.319802731855972e-06_dp, &
6343  2.4302616807482706e-05_dp, &
6344  4.948261860530359e-05_dp, &
6345  9.026404229610094e-05_dp, &
6346  0.0001560250715046401_dp, &
6347  0.00026193159643869907_dp, &
6348  0.0004316317370034808_dp, &
6349  0.0007014310228413562_dp, &
6350  0.0011265811323026616_dp, &
6351  0.001790538099368303_dp, &
6352  0.002818442710487939_dp, &
6353  0.004396613985562227_dp, &
6354  0.006800572618267542_dp, &
6355  0.01043510374307695_dp, &
6356  0.015891226467704685_dp, &
6357  0.02402679235817231_dp, &
6358  0.03607995947798214_dp, &
6359  0.05382821091103021_dp, &
6360  0.07981021388476216_dp, &
6361  0.11763406509273454_dp, &
6362  0.17240391938168603_dp, &
6363  0.25130849721857534_dp, &
6364  0.36443086121519086_dp, &
6365  0.525861591666699_dp, &
6366  0.7552321345423689_dp, &
6367  1.0798433566303969_dp, &
6368  1.5376756421659512_dp, &
6369  2.1818096583688225_dp, &
6370  3.087384050821325_dp, &
6371  4.363863206811109_dp, &
6372  6.180624421988004_dp, &
6373  8.83477361053772_dp, &
6374  13.019312520088521_dp, &
6375  4.43185996007463e-06_dp, &
6376  1.0980758773489005e-05_dp, &
6377  1.943725634861249e-05_dp, &
6378  3.1800270744211854e-05_dp, &
6379  5.129667367655266e-05_dp, &
6380  8.27095880626353e-05_dp, &
6381  0.0001329766243411858_dp, &
6382  0.00021237174266944332_dp, &
6383  0.0003362840713927107_dp, &
6384  0.0005277050042553842_dp, &
6385  0.0008207467241987074_dp, &
6386  0.001265656823748127_dp, &
6387  0.001935949524221289_dp, &
6388  0.002938498181312597_dp, &
6389  0.004427745609890722_dp, &
6390  0.00662561356009038_dp, &
6391  0.009849268137973679_dp, &
6392  0.01454967083492188_dp, &
6393  0.021364880820575197_dp, &
6394  0.031193465982641635_dp, &
6395  0.04529525929852885_dp, &
6396  0.06542926430703719_dp, &
6397  0.09404211859223464_dp, &
6398  0.13452588222462222_dp, &
6399  0.19157264817324873_dp, &
6400  0.27166955823017896_dp, &
6401  0.3838116245690371_dp, &
6402  0.5405893273969905_dp, &
6403  0.7600124959108089_dp, &
6404  1.0690028998164918_dp, &
6405  1.5112619233396074_dp, &
6406  2.168763561959426_dp, &
6407  3.238506003394989_dp, &
6408  5.489633460260332_dp/)
6409  ELSE IF (e_range < 852991.0_dp) THEN
6410  aw(:) = (/ &
6411  6.35749973501056e-07_dp, &
6412  3.492169089246581e-06_dp, &
6413  9.302356973224121e-06_dp, &
6414  1.9592566972831844e-05_dp, &
6415  3.7377729183938204e-05_dp, &
6416  6.798117415794394e-05_dp, &
6417  0.00012023568563760358_dp, &
6418  0.0002084236297872551_dp, &
6419  0.00035534106272681936_dp, &
6420  0.0005969900768905776_dp, &
6421  0.0009896587375544644_dp, &
6422  0.001620507511517086_dp, &
6423  0.0026232770839453665_dp, &
6424  0.004201426984363522_dp, &
6425  0.006661986770200809_dp, &
6426  0.010464757550535931_dp, &
6427  0.01629338409394917_dp, &
6428  0.025157418466823473_dp, &
6429  0.038538075135755495_dp, &
6430  0.05859528378548497_dp, &
6431  0.088460352930584_dp, &
6432  0.13264771717146925_dp, &
6433  0.19763178422753508_dp, &
6434  0.2926522443111407_dp, &
6435  0.4308357751366649_dp, &
6436  0.6307586891808089_dp, &
6437  0.9186346830441839_dp, &
6438  1.3314221217344053_dp, &
6439  1.9213813610912545_dp, &
6440  2.76319200354934_dp, &
6441  3.9663504041897766_dp, &
6442  5.700732751780247_dp, &
6443  8.263919165830904_dp, &
6444  12.346999008174697_dp, &
6445  1.646994148539095e-06_dp, &
6446  4.168704436960474e-06_dp, &
6447  7.695536879782202e-06_dp, &
6448  1.3374173961844378e-05_dp, &
6449  2.3064311988245763e-05_dp, &
6450  3.958321376425686e-05_dp, &
6451  6.725628425988863e-05_dp, &
6452  0.00011284251346096221_dp, &
6453  0.0001868773135187132_dp, &
6454  0.0003056293856662244_dp, &
6455  0.0004939782736171523_dp, &
6456  0.0007896314087630558_dp, &
6457  0.0012492643080895956_dp, &
6458  0.001957402304692391_dp, &
6459  0.0030391875844591482_dp, &
6460  0.004678623430285177_dp, &
6461  0.007144500300310407_dp, &
6462  0.010827043576140467_dp, &
6463  0.016289458703073287_dp, &
6464  0.024340088611569204_dp, &
6465  0.03613298947254673_dp, &
6466  0.05330759009262987_dp, &
6467  0.07818208570144934_dp, &
6468  0.11402099109647866_dp, &
6469  0.16540631928634394_dp, &
6470  0.23875782212611196_dp, &
6471  0.3430802599354601_dp, &
6472  0.49109150628018977_dp, &
6473  0.7010818269759505_dp, &
6474  1.0004112023843146_dp, &
6475  1.4333015739126787_dp, &
6476  2.0820719815510036_dp, &
6477  3.1430997613534135_dp, &
6478  5.379828456565977_dp/)
6479  ELSE
6480  aw(:) = (/ &
6481  1.117489994479298e-09_dp, &
6482  1.0437767934573854e-08_dp, &
6483  5.084528505414382e-08_dp, &
6484  1.872213850467172e-07_dp, &
6485  5.813350591395648e-07_dp, &
6486  1.6041946888512065e-06_dp, &
6487  4.054564459005386e-06_dp, &
6488  9.568204612679587e-06_dp, &
6489  2.1360561665920905e-05_dp, &
6490  4.553900601252074e-05_dp, &
6491  9.336828090817695e-05_dp, &
6492  0.00018510270750313838_dp, &
6493  0.0003563527131882449_dp, &
6494  0.0006684922084643366_dp, &
6495  0.0012254246986170441_dp, &
6496  0.002200236453707954_dp, &
6497  0.0038770557829877106_dp, &
6498  0.006716063190006149_dp, &
6499  0.011453417554768287_dp, &
6500  0.019253386304452922_dp, &
6501  0.0319378960087355_dp, &
6502  0.052330033425615166_dp, &
6503  0.0847641054822857_dp, &
6504  0.13583764990140365_dp, &
6505  0.21551319196591645_dp, &
6506  0.3387243798072503_dp, &
6507  0.527711765290698_dp, &
6508  0.8154303015314811_dp, &
6509  1.2505960123470905_dp, &
6510  1.9054661547111273_dp, &
6511  2.8889237961629872_dp, &
6512  4.37232400643935_dp, &
6513  6.65560984092506_dp, &
6514  10.426038695834771_dp, &
6515  3.3457340053937633e-09_dp, &
6516  1.873386519501546e-08_dp, &
6517  7.20396391424945e-08_dp, &
6518  2.259124367219339e-07_dp, &
6519  6.20700398368113e-07_dp, &
6520  1.5516519034576341e-06_dp, &
6521  3.6098773524770243e-06_dp, &
6522  7.932321947059267e-06_dp, &
6523  1.6633942623129364e-05_dp, &
6524  3.353876533808818e-05_dp, &
6525  6.539287755778778e-05_dp, &
6526  0.00012384295496778607_dp, &
6527  0.00022861478182158466_dp, &
6528  0.0004125495803926801_dp, &
6529  0.0007294839100515848_dp, &
6530  0.0012664381661580966_dp, &
6531  0.002162272032202245_dp, &
6532  0.003635959152010226_dp, &
6533  0.006029053426126615_dp, &
6534  0.009868936147464018_dp, &
6535  0.015962272528537477_dp, &
6536  0.025532104472748035_dp, &
6537  0.040417626126145245_dp, &
6538  0.06336363493503006_dp, &
6539  0.09843823938908386_dp, &
6540  0.1516353587304579_dp, &
6541  0.23175010955983177_dp, &
6542  0.35168177852781385_dp, &
6543  0.5304884039781542_dp, &
6544  0.7970145382697631_dp, &
6545  1.197557199061726_dp, &
6546  1.8163260289376923_dp, &
6547  2.848850144582029_dp, &
6548  5.042342061181277_dp/)
6549  END IF
6550  END SUBROUTINE
6551 
6552 END MODULE minimax_exp_gw
kinds
Defines the basic variable types.
Definition: kinds.F:23
kinds::dp
integer, parameter, public dp
Definition: kinds.F:34
minimax_exp_gw
Routines to calculate the minimax coefficients in order to approximate 1/x as a sum over exponential ...
Definition: minimax_exp_gw.F:17
minimax_exp_gw::get_exp_minimax_coeff_gw
subroutine, public get_exp_minimax_coeff_gw(k, E_range, aw)
...
Definition: minimax_exp_gw.F:38