(git:374b731)
Loading...
Searching...
No Matches
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! **************************************************************************************************
17MODULE 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
29CONTAINS
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
6552END 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