Line data Source code
1 : !--------------------------------------------------------------------------------------------------!
2 : ! CP2K: A general program to perform molecular dynamics simulations !
3 : ! Copyright 2000-2024 CP2K developers group <https://cp2k.org> !
4 : ! !
5 : ! SPDX-License-Identifier: GPL-2.0-or-later !
6 : !--------------------------------------------------------------------------------------------------!
7 :
8 : ! **************************************************************************************************
9 : !> \brief Routines to calculate the minimax coefficients in order to
10 : !> approximate 1/x as a sum over exponential functions
11 : !> 1/x ~ SUM_{i}^{K} w_i EXP(-a_i * x) for x belonging to [1:Rc].
12 : !> This module contains coefficients for minimax approximations with 26, 28, 30, 32, 34 points
13 : !> that give well-converged GW results
14 : !> \par History
15 : !> 03.2020 created [Jan Wilhelm]
16 : ! **************************************************************************************************
17 : MODULE minimax_exp_gw
18 : USE kinds, ONLY: dp
19 : #include "../base/base_uses.f90"
20 :
21 : IMPLICIT NONE
22 :
23 : PRIVATE
24 :
25 : CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'minimax_exp_gw'
26 :
27 : PUBLIC :: get_exp_minimax_coeff_gw
28 :
29 : CONTAINS
30 :
31 : ! **************************************************************************************************
32 : !> \brief ...
33 : !> \param k ...
34 : !> \param E_range ...
35 : !> \param aw ...
36 : ! **************************************************************************************************
37 4 : 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 4 : CALL timeset(routineN, handle)
48 :
49 0 : SELECT CASE (k)
50 : CASE (26)
51 0 : CALL get_coeff_26(k, E_range, aw, E_ratio)
52 : CASE (28)
53 4 : CALL get_coeff_28(k, E_range, aw, E_ratio)
54 : CASE (30)
55 4 : CALL get_coeff_30(k, E_range, aw, E_ratio)
56 : CASE (32)
57 0 : CALL get_coeff_32(k, E_range, aw, E_ratio)
58 : CASE (34)
59 0 : CALL get_coeff_34(k, E_range, aw, E_ratio)
60 : CASE DEFAULT
61 4 : CPABORT("The grid size you choose is not available.")
62 : END SELECT
63 :
64 4 : CALL rescale_grid(aw, E_ratio)
65 :
66 4 : CALL timestop(handle)
67 :
68 4 : END SUBROUTINE get_exp_minimax_coeff_gw
69 :
70 : ! **************************************************************************************************
71 : !> \brief ...
72 : !> \param aw ...
73 : !> \param E_ratio ...
74 : ! **************************************************************************************************
75 4 : 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 4 : IF (E_ratio > 1.5_dp) THEN
80 4 : E_ratio = E_ratio/1.5_dp
81 : ELSE
82 0 : E_ratio = 1.0_dp
83 : END IF
84 244 : aw(:) = aw(:)*E_ratio
85 4 : END SUBROUTINE
86 :
87 : ! **************************************************************************************************
88 : !> \brief ...
89 : !> \param k ...
90 : !> \param E_range ...
91 : !> \param aw ...
92 : !> \param E_ratio ...
93 : ! **************************************************************************************************
94 0 : 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 0 : E_ratio = 1.0_dp
101 0 : IF (E_range < 799.0_dp) THEN
102 0 : 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 0 : 5.8876320817174905_dp/)
156 0 : 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 0 : 5.829332987897013_dp/)
210 0 : 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 0 : 5.763153512206444_dp/)
264 0 : 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 0 : 5.692646250049292_dp/)
318 0 : 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 0 : 5.635684641787822_dp/)
372 0 : 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 0 : 5.57261913216792_dp/)
426 0 : 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 0 : 5.498017132429984_dp/)
480 0 : 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 0 : 5.431943610280663_dp/)
534 0 : 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 0 : 5.368705541720747_dp/)
588 0 : 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 0 : 5.283171742769873_dp/)
642 0 : 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 0 : 5.250335959421828_dp/)
696 0 : 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 0 : 5.231485480677545_dp/)
750 0 : 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 0 : 5.21699996325917_dp/)
804 0 : 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 0 : 5.151372469471086_dp/)
858 0 : 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 0 : 5.057682060420358_dp/)
912 0 : 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 0 : 4.990540570288636_dp/)
966 0 : 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 0 : 4.918151105513321_dp/)
1020 0 : 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 0 : 4.82228579092364_dp/)
1074 0 : 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 0 : 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 0 : 4.694880341120372_dp/)
1182 : END IF
1183 0 : END SUBROUTINE
1184 :
1185 : ! **************************************************************************************************
1186 : !> \brief ...
1187 : !> \param k ...
1188 : !> \param E_range ...
1189 : !> \param aw ...
1190 : !> \param E_ratio ...
1191 : ! **************************************************************************************************
1192 0 : 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 0 : E_ratio = 1.0_dp
1199 0 : IF (E_range < 1545.0_dp) THEN
1200 0 : 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 0 : 5.901304226915114_dp/)
1258 0 : 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 0 : 5.839188641520334_dp/)
1316 0 : 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 0 : 5.779704886427998_dp/)
1374 0 : 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 0 : 5.728067480861656_dp/)
1432 0 : 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 0 : 5.688122811462863_dp/)
1490 0 : 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 0 : 5.643641293866133_dp/)
1548 0 : 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 0 : 5.615101807506323_dp/)
1606 0 : 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 0 : 5.5800996039424104_dp/)
1664 0 : 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 0 : 5.5452724054483005_dp/)
1722 0 : 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 0 : 5.5009815780981555_dp/)
1780 0 : 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 0 : 5.461496007193266_dp/)
1838 0 : 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 0 : 5.422242322222096_dp/)
1896 0 : 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 0 : 5.392217904025483_dp/)
1954 0 : 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 0 : 5.348031605731007_dp/)
2012 0 : 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 0 : 5.309325429687417_dp/)
2070 0 : 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 0 : 5.268893998445498_dp/)
2128 0 : 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 0 : 5.231825921337635_dp/)
2186 0 : 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 0 : 5.199382405454911_dp/)
2244 0 : 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 0 : 5.163666162590388_dp/)
2302 0 : 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 0 : 5.1282957309537895_dp/)
2360 0 : 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 0 : 5.0971507815821235_dp/)
2418 0 : 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 0 : 5.066349620899207_dp/)
2476 0 : 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 0 : 5.0223450191392205_dp/)
2534 0 : 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 0 : 4.984574132350961_dp/)
2592 0 : 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 0 : 4.952626774509824_dp/)
2650 0 : 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 0 : 4.908937928661797_dp/)
2708 0 : 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 0 : 4.87352184807004_dp/)
2766 0 : 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 0 : 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 0 : 4.78747600908045_dp/)
2882 : END IF
2883 0 : END SUBROUTINE
2884 :
2885 : ! **************************************************************************************************
2886 : !> \brief ...
2887 : !> \param k ...
2888 : !> \param E_range ...
2889 : !> \param aw ...
2890 : !> \param E_ratio ...
2891 : ! **************************************************************************************************
2892 4 : 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 4 : E_ratio = 1.0_dp
2899 :
2900 4 : IF (E_range < 2906.0_dp) THEN
2901 4 : 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 244 : 5.9228966909439205_dp/)
2963 0 : 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 0 : 5.89893592679766_dp/)
3025 0 : 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 0 : 5.8635023001897295_dp/)
3087 0 : 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 0 : 5.832916244207001_dp/)
3149 0 : 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 0 : 5.791398263742947_dp/)
3211 0 : 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 0 : 5.746290251951392_dp/)
3273 0 : 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 0 : 5.706615197039722_dp/)
3335 0 : 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 0 : 5.6750508010285134_dp/)
3397 0 : 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 0 : 5.643112922874634_dp/)
3459 0 : 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 0 : 5.605477212236766_dp/)
3521 0 : 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 0 : 5.559194240832182_dp/)
3583 0 : 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 0 : 5.508095437648589_dp/)
3645 0 : 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 0 : 5.464388958502095_dp/)
3707 0 : 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 0 : 5.427158434113688_dp/)
3769 0 : 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 0 : 5.395251764843703_dp/)
3831 0 : 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 0 : 5.361746811812883_dp/)
3893 0 : 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 0 : 5.330156088439341_dp/)
3955 0 : 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 0 : 5.288820184644417_dp/)
4017 0 : 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 0 : 5.255903429150008_dp/)
4079 0 : 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 0 : 5.206267501211972_dp/)
4141 0 : 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 0 : 5.176364379511127_dp/)
4203 0 : 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 0 : 5.1518134931437265_dp/)
4265 0 : 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 0 : 5.117153113908438_dp/)
4327 0 : 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 0 : 5.082816358644647_dp/)
4389 0 : 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 0 : 5.045111765749473_dp/)
4451 0 : 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 0 : 5.012462806749877_dp/)
4513 0 : 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 0 : 4.963023556769552_dp/)
4575 0 : 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 0 : 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 0 : 4.874923027763007_dp/)
4699 : END IF
4700 4 : END SUBROUTINE
4701 :
4702 : ! **************************************************************************************************
4703 : !> \brief ...
4704 : !> \param k ...
4705 : !> \param E_range ...
4706 : !> \param aw ...
4707 : !> \param E_ratio ...
4708 : ! **************************************************************************************************
4709 0 : 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 0 : E_ratio = 1.0_dp
4716 0 : IF (E_range < 4862.0_dp) THEN
4717 0 : 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 0 : 5.969270620351697_dp/)
4783 0 : 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 0 : 5.930981680526662_dp/)
4849 0 : 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 0 : 5.9045255378523525_dp/)
4915 0 : 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 0 : 5.873612522584144_dp/)
4981 0 : 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 0 : 5.82574638448254_dp/)
5047 0 : 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 0 : 5.765409584335823_dp/)
5113 0 : 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 0 : 5.713384147526647_dp/)
5179 0 : 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 0 : 5.664862602289436_dp/)
5245 0 : 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 0 : 5.6182166490122984_dp/)
5311 0 : 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 0 : 5.545336982828468_dp/)
5377 0 : 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 0 : 5.497663131109453_dp/)
5443 0 : 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 0 : 5.449257489548676_dp/)
5509 0 : 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 0 : 5.375073752754771_dp/)
5575 0 : 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 0 : 5.31578682998986_dp/)
5641 0 : 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 0 : 5.239269717116346_dp/)
5707 0 : 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 0 : 5.177596037459169_dp/)
5773 0 : 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 0 : 5.094894347251689_dp/)
5839 0 : 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 0 : 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 0 : 4.9565545529977175_dp/)
5971 : END IF
5972 0 : END SUBROUTINE
5973 :
5974 : ! **************************************************************************************************
5975 : !> \brief ...
5976 : !> \param k ...
5977 : !> \param E_range ...
5978 : !> \param aw ...
5979 : !> \param E_ratio ...
5980 : ! **************************************************************************************************
5981 0 : 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 0 : E_ratio = 1.0_dp
5988 0 : IF (E_range < 9649.0_dp) THEN
5989 0 : 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 0 : 5.979097365202448_dp/)
6059 0 : 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 0 : 5.895310588871672_dp/)
6129 0 : 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 0 : 5.780815874478559_dp/)
6199 0 : 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 0 : 5.7058363778559205_dp/)
6269 0 : 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 0 : 5.597118014202835_dp/)
6339 0 : 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 0 : 5.489633460260332_dp/)
6409 0 : 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 0 : 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 0 : 5.042342061181277_dp/)
6549 : END IF
6550 0 : END SUBROUTINE
6551 :
6552 : END MODULE minimax_exp_gw
|
