(git:374b731)
Loading...
Searching...
No Matches
minimax_exp_k15.F
Go to the documentation of this file.
1!--------------------------------------------------------------------------------------------------!
2! CP2K: A general program to perform molecular dynamics simulations !
3! Copyright 2000-2024 CP2K developers group <https://cp2k.org> !
4! !
5! SPDX-License-Identifier: GPL-2.0-or-later !
6!--------------------------------------------------------------------------------------------------!
7
8! **************************************************************************************************
9!> \brief Routines to calculate the minimax coefficients in order to
10!> approximate 1/x as a sum over exponential functions
11!> 1/x ~ SUM_{i}^{K} w_i EXP(-a_i * x) for x belonging to [1:Rc].
12!> This module contains coefficients for minimax approximations with 1 <= k <= 15.
13!> \par History
14!> 11.2012 created [Mauro Del Ben]
15!> 02.2015 changed module name minimax to minimax_k15 to replace this module
16!> with new minimax module, added function to get minimax error
17!> [Patrick Seewald]
18! **************************************************************************************************
19MODULE minimax_exp_k15
20 USE kinds, ONLY: dp
21#include "../base/base_uses.f90"
22
23 IMPLICIT NONE
24
25 PRIVATE
26
27 CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'minimax_exp_k15'
28
29 PUBLIC :: get_minimax_coeff_k15, check_range_k15, get_minimax_numerical_error
30
31CONTAINS
32
33! **************************************************************************************************
34!> \brief Check that the range for the minimax approximation is not too small
35!> for the chosen number of integration point, or that the number of
36!> integration point is not exceeding the maximum allowed by the actual
37!> implementation.
38!> \param k ...
39!> \param Rc ...
40!> \param ierr ...
41!> \author Mauro Del Ben
42! **************************************************************************************************
43 SUBROUTINE check_range_k15(k, Rc, ierr)
44 INTEGER, INTENT(IN) :: k
45 REAL(kind=dp), INTENT(IN) :: rc
46 INTEGER :: ierr
47
48 REAL(kind=dp) :: r_min
49
50 ierr = 0
51 r_min = 0.0_dp
52
53 SELECT CASE (k)
54 CASE (1)
55 r_min = 2.0000000000000000e+00_dp
56 CASE (2)
57 r_min = 2.0000000000000000e+00_dp
58 CASE (3)
59 r_min = 2.0000000000000000e+00_dp
60 CASE (4)
61 r_min = 3.0000000000000000e+00_dp
62 CASE (5)
63 r_min = 4.0000000000000000e+00_dp
64 CASE (6)
65 r_min = 5.0000000000000000e+00_dp
66 CASE (7)
67 r_min = 7.0000000000000000e+00_dp
68 CASE (8)
69 r_min = 1.0000000000000000e+01_dp
70 CASE (9)
71 r_min = 1.0000000000000000e+01_dp
72 CASE (10)
73 r_min = 1.0000000000000000e+01_dp
74 CASE (11)
75 r_min = 1.0000000000000000e+01_dp
76 CASE (12)
77 r_min = 1.0000000000000000e+01_dp
78 CASE (13)
79 r_min = 1.0000000000000000e+01_dp
80 CASE (14)
81 r_min = 1.0000000000000000e+01_dp
82 CASE (15)
83 r_min = 2.0000000000000000e+01_dp
84 CASE DEFAULT
85 ierr = -1
86 END SELECT
87
88 IF (rc < r_min .AND. ierr == 0) ierr = 1
89
90 END SUBROUTINE check_range_k15
91
92! **************************************************************************************************
93!> \brief Sample numerical error and return its maximum.
94!> \param Rc ...
95!> \param aw ...
96!> \return ...
97!> \author Patrick Seewald
98! **************************************************************************************************
99 FUNCTION get_minimax_numerical_error(Rc, aw) RESULT(numerr)
100 REAL(kind=dp), INTENT(IN) :: rc
101 REAL(kind=dp), DIMENSION(:), INTENT(IN) :: aw
102 REAL(kind=dp) :: numerr
103
104 INTEGER, PARAMETER :: npoints = 100
105
106 INTEGER :: j, k, np
107 REAL(kind=dp) :: mm, x
108
109 k = SIZE(aw)/2
110 numerr = 0.0_dp
111 DO np = 1, npoints
112 x = 1.0_dp + (rc - 1.0_dp)*(npoints - np)/(npoints - 1)
113 mm = 0.0_dp
114 DO j = 1, k
115 mm = mm + aw(j + k)*exp(-aw(j)*x)
116 END DO
117 numerr = max(numerr, abs(mm - 1.0_dp/x))
118 END DO
119
120 END FUNCTION get_minimax_numerical_error
121
122! **************************************************************************************************
123!> \brief Get minimax coefficients: k15 implementation (coefficients up to k=15 terms).
124!> All a_i and w_i have been fitted with a 12th order polynomial as
125!> a function of Rc for each value of K.
126!> \param k ...
127!> \param Rc ...
128!> \param aw ...
129!> \param mm_error ...
130!> \author Mauro Del Ben
131! **************************************************************************************************
132 SUBROUTINE get_minimax_coeff_k15(k, Rc, aw, mm_error)
133 INTEGER, INTENT(IN) :: k
134 REAL(kind=dp), INTENT(IN) :: rc
135 REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
136 REAL(kind=dp), INTENT(OUT), OPTIONAL :: mm_error
137
138 CHARACTER(LEN=*), PARAMETER :: routinen = 'get_minimax_coeff_k15'
139
140 INTEGER :: handle, icoef, kkk
141 REAL(kind=dp) :: l_b, r_max, r_min, r_transf, u_b
142 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
143
144 CALL timeset(routinen, handle)
145 r_min = 0.0_dp
146 r_max = 0.0_dp
147
148 SELECT CASE (k)
149 CASE (1)
150 r_min = 2.0000000000000000e+00_dp
151 r_max = 8.6669999999999998e+00_dp
152 CASE (2)
153 r_min = 2.0000000000000000e+00_dp
154 r_max = 4.1539999999999999e+01_dp
155 CASE (3)
156 r_min = 2.0000000000000000e+00_dp
157 r_max = 1.4680000000000001e+02_dp
158 CASE (4)
159 r_min = 3.0000000000000000e+00_dp
160 r_max = 4.3610000000000002e+02_dp
161 CASE (5)
162 r_min = 4.0000000000000000e+00_dp
163 r_max = 1.1540000000000000e+03_dp
164 CASE (6)
165 r_min = 5.0000000000000000e+00_dp
166 r_max = 2.8070000000000000e+03_dp
167 CASE (7)
168 r_min = 7.0000000000000000e+00_dp
169 r_max = 6.3730000000000000e+03_dp
170 CASE (8)
171 r_min = 1.0000000000000000e+01_dp
172 r_max = 1.3749000000000000e+04_dp
173 CASE (9)
174 r_min = 1.0000000000000000e+01_dp
175 r_max = 2.8387000000000000e+04_dp
176 CASE (10)
177 r_min = 1.0000000000000000e+01_dp
178 r_max = 5.6502000000000000e+04_dp
179 CASE (11)
180 r_min = 1.0000000000000000e+01_dp
181 r_max = 1.0890000000000000e+05_dp
182 CASE (12)
183 r_min = 1.0000000000000000e+01_dp
184 r_max = 2.0420000000000000e+05_dp
185 CASE (13)
186 r_min = 1.0000000000000000e+01_dp
187 r_max = 3.7370000000000000e+05_dp
188 CASE (14)
189 r_min = 1.0000000000000000e+01_dp
190 r_max = 6.6910000000000000e+05_dp
191 CASE (15)
192 r_min = 2.0000000000000000e+01_dp
193 r_max = 1.1750000000000000e+06_dp
194 CASE DEFAULT
195 cpabort("")
196 END SELECT
197
198 fit_coef = 0.0
199 aw = 0.0
200 IF (rc < r_min) THEN
201 cpabort("")
202 ELSE
203 SELECT CASE (k)
204 CASE (1)
205 IF (rc >= r_max) THEN
206 aw(1) = 4.4649260629947779e-01_dp
207 aw(2) = 1.4290997869805788e+00_dp
208 ELSE
209 CALL get_fit_coef_k1(k, fit_coef, l_b, u_b)
210 END IF
211 CASE (2)
212 IF (rc >= r_max) THEN
213 aw(1) = 9.3106172568836743e-02_dp
214 aw(2) = 1.0301539335400713e+00_dp
215 aw(3) = 2.9765554323276328e-01_dp
216 aw(4) = 1.9917443679019897e+00_dp
217 ELSE
218 CALL get_fit_coef_k2(k, fit_coef, l_b, u_b)
219 END IF
220 CASE (3)
221 IF (rc >= r_max) THEN
222 aw(1) = 2.6349272848143715e-02_dp
223 aw(2) = 2.8996855484815137e-01_dp
224 aw(3) = 1.5533661852788561e+00_dp
225 aw(4) = 8.4233696465358193e-02_dp
226 aw(5) = 5.5403643315333395e-01_dp
227 aw(6) = 2.3557688429224690e+00_dp
228 ELSE
229 CALL get_fit_coef_k3(k, fit_coef, l_b, u_b)
230 END IF
231 CASE (4)
232 IF (rc >= r_max) THEN
233 aw(1) = 8.8685367946663256e-03_dp
234 aw(2) = 9.7565835027097439e-02_dp
235 aw(3) = 5.1691899901700877e-01_dp
236 aw(4) = 2.0308311260118175e+00_dp
237 aw(5) = 2.8350982414551848e-02_dp
238 aw(6) = 1.8628933861057068e-01_dp
239 aw(7) = 7.6510507307920383e-01_dp
240 aw(8) = 2.6286812528458148e+00_dp
241 ELSE
242 CALL get_fit_coef_k4(k, fit_coef, l_b, u_b)
243 END IF
244 CASE (5)
245 IF (rc >= r_max) THEN
246 aw(1) = 3.3529112764591387e-03_dp
247 aw(2) = 3.6885523808630270e-02_dp
248 aw(3) = 1.9524288957651931e-01_dp
249 aw(4) = 7.5508129953934144e-01_dp
250 aw(5) = 2.4730352459564653e+00_dp
251 aw(6) = 1.0718601062497496e-02_dp
252 aw(7) = 7.0423935703868623e-02_dp
253 aw(8) = 2.8840120533084923e-01_dp
254 aw(9) = 9.4333101049811663e-01_dp
255 aw(10) = 2.8485313369244247e+00_dp
256 ELSE
257 IF (rc <= 100.0_dp) THEN
258 CALL get_fit_coef_k5_sh(k, fit_coef, l_b, u_b)
259 ELSE
260 CALL get_fit_coef_k5_lo(k, fit_coef, l_b, u_b)
261 END IF
262 END IF
263 CASE (6)
264 IF (rc >= r_max) THEN
265 aw(1) = 1.3802019452414500e-03_dp
266 aw(2) = 1.5183614381572768e-02_dp
267 aw(3) = 8.0361511855253240e-02_dp
268 aw(4) = 3.1025560863277402e-01_dp
269 aw(5) = 9.9661148626887119e-01_dp
270 aw(6) = 2.8871396539466740e+00_dp
271 aw(7) = 4.4122353526579831e-03_dp
272 aw(8) = 2.8989220321940696e-02_dp
273 aw(9) = 1.1867791139299246e-01_dp
274 aw(10) = 3.8613951254853507e-01_dp
275 aw(11) = 1.0973265611814316e+00_dp
276 aw(12) = 3.0334106111925840e+00_dp
277 ELSE
278 IF (rc <= 100.0_dp) THEN
279 CALL get_fit_coef_k6_sh(k, fit_coef, l_b, u_b)
280 ELSE
281 CALL get_fit_coef_k6_lo(k, fit_coef, l_b, u_b)
282 END IF
283 END IF
284 CASE (7)
285 IF (rc >= r_max) THEN
286 aw(1) = 6.0680046054254941e-04_dp
287 aw(2) = 6.6754145503086018e-03_dp
288 aw(3) = 3.5330085311658307e-02_dp
289 aw(4) = 1.3636790644450009e-01_dp
290 aw(5) = 4.3692597185507065e-01_dp
291 aw(6) = 1.2378541669818244e+00_dp
292 aw(7) = 3.2781922981409610e+00_dp
293 aw(8) = 1.9398222440315960e-03_dp
294 aw(9) = 1.2744981074293062e-02_dp
295 aw(10) = 5.2173800858709714e-02_dp
296 aw(11) = 1.6963212116290538e-01_dp
297 aw(12) = 4.7830405076036075e-01_dp
298 aw(13) = 1.2328765453712285e+00_dp
299 aw(14) = 3.1933984156189350e+00_dp
300 ELSE
301 IF (rc <= 100.0_dp) THEN
302 CALL get_fit_coef_k7_sh(k, fit_coef, l_b, u_b)
303 ELSE
304 CALL get_fit_coef_k7_lo(k, fit_coef, l_b, u_b)
305 END IF
306 END IF
307 CASE (8)
308 IF (rc >= r_max) THEN
309 aw(1) = 2.8127089949768415e-04_dp
310 aw(2) = 3.0942621869177655e-03_dp
311 aw(3) = 1.6376552972548756e-02_dp
312 aw(4) = 6.3208135461484877e-02_dp
313 aw(5) = 2.0243640179262407e-01_dp
314 aw(6) = 5.7158548817956678e-01_dp
315 aw(7) = 1.4769970948293096e+00_dp
316 aw(8) = 3.6498865034832644e+00_dp
317 aw(9) = 8.9916798455210248e-04_dp
318 aw(10) = 5.9076940528835931e-03_dp
319 aw(11) = 2.4183992214449269e-02_dp
320 aw(12) = 7.8619729999942961e-02_dp
321 aw(13) = 2.2140056400660871e-01_dp
322 aw(14) = 5.6481870666490019e-01_dp
323 aw(15) = 1.3539633386811780e+00_dp
324 aw(16) = 3.3347117690388681e+00_dp
325 ELSE
326 IF (rc <= 100.0_dp) THEN
327 CALL get_fit_coef_k8_sh(k, fit_coef, l_b, u_b)
328 ELSE
329 CALL get_fit_coef_k8_lo(k, fit_coef, l_b, u_b)
330 END IF
331 END IF
332 CASE (9)
333 IF (rc >= r_max) THEN
334 aw(1) = 1.3620787587729222e-04_dp
335 aw(2) = 1.4984233172990983e-03_dp
336 aw(3) = 7.9304843136686811e-03_dp
337 aw(4) = 3.0608852526075443e-02_dp
338 aw(5) = 9.8023317512591052e-02_dp
339 aw(6) = 2.7660071140675380e-01_dp
340 aw(7) = 7.1177472290822164e-01_dp
341 aw(8) = 1.7131253759530025e+00_dp
342 aw(9) = 4.0050154343014466e+00_dp
343 aw(10) = 4.3542990561554510e-04_dp
344 aw(11) = 2.8608520316584030e-03_dp
345 aw(12) = 1.1711291382515341e-02_dp
346 aw(13) = 3.8071387509506595e-02_dp
347 aw(14) = 1.0718758733492406e-01_dp
348 aw(15) = 2.7293433084542407e-01_dp
349 aw(16) = 6.4600134991152369e-01_dp
350 aw(17) = 1.4634218815677373e+00_dp
351 aw(18) = 3.4614670015318758e+00_dp
352 ELSE
353 IF (rc <= 100.0_dp) THEN
354 CALL get_fit_coef_k9_sh(k, fit_coef, l_b, u_b)
355 ELSE
356 CALL get_fit_coef_k9_lo(k, fit_coef, l_b, u_b)
357 END IF
358 END IF
359 CASE (10)
360 IF (rc >= r_max) THEN
361 aw(1) = 6.8443901388305083e-05_dp
362 aw(2) = 7.5295159558786751e-04_dp
363 aw(3) = 3.9850355998364926e-03_dp
364 aw(4) = 1.5380799076269465e-02_dp
365 aw(5) = 4.9255465262658012e-02_dp
366 aw(6) = 1.3897073828118570e-01_dp
367 aw(7) = 3.5731192893101876e-01_dp
368 aw(8) = 8.5579284635745334e-01_dp
369 aw(9) = 1.9457922045681717e+00_dp
370 aw(10) = 4.3457510815955152e+00_dp
371 aw(11) = 2.1880174937623183e-04_dp
372 aw(12) = 1.4375664500890244e-03_dp
373 aw(13) = 5.8848743519528662e-03_dp
374 aw(14) = 1.9130624082222252e-02_dp
375 aw(15) = 5.3858487442246458e-02_dp
376 aw(16) = 1.3708846821179432e-01_dp
377 aw(17) = 3.2364445020328991e-01_dp
378 aw(18) = 7.2229153747049757e-01_dp
379 aw(19) = 1.5633339391232095e+00_dp
380 aw(20) = 3.5765361929512172e+00_dp
381 ELSE
382 IF (rc <= 100.0_dp) THEN
383 CALL get_fit_coef_k10_sh(k, fit_coef, l_b, u_b)
384 ELSE
385 CALL get_fit_coef_k10_lo(k, fit_coef, l_b, u_b)
386 END IF
387 END IF
388 CASE (11)
389 IF (rc >= r_max) THEN
390 aw(1) = 3.5503484659246813e-05_dp
391 aw(2) = 3.9057395758855312e-04_dp
392 aw(3) = 2.0671330057150483e-03_dp
393 aw(4) = 7.9783846601041101e-03_dp
394 aw(5) = 2.5549886450088238e-02_dp
395 aw(6) = 7.2085122754821276e-02_dp
396 aw(7) = 1.8530557881445084e-01_dp
397 aw(8) = 4.4334723019604549e-01_dp
398 aw(9) = 1.0024332764988158e+00_dp
399 aw(10) = 2.1748065663060481e+00_dp
400 aw(11) = 4.6738220578828598e+00_dp
401 aw(12) = 1.1349768781191745e-04_dp
402 aw(13) = 7.4570001674067511e-04_dp
403 aw(14) = 3.0526245415056301e-03_dp
404 aw(15) = 9.9235004487624248e-03_dp
405 aw(16) = 2.7937353788559310e-02_dp
406 aw(17) = 7.1104122225773142e-02_dp
407 aw(18) = 1.6777050240847788e-01_dp
408 aw(19) = 3.7320560837397676e-01_dp
409 aw(20) = 7.9414366264691305e-01_dp
410 aw(21) = 1.6552701124330567e+00_dp
411 aw(22) = 3.6820059233978353e+00_dp
412 ELSE
413 IF (rc <= 100.0_dp) THEN
414 CALL get_fit_coef_k11_sh(k, fit_coef, l_b, u_b)
415 ELSE
416 IF (rc <= 1000.0_dp) THEN
417 CALL get_fit_coef_k11_mi(k, fit_coef, l_b, u_b)
418 ELSE
419 CALL get_fit_coef_k11_lo(k, fit_coef, l_b, u_b)
420 END IF
421 END IF
422 END IF
423 CASE (12)
424 IF (rc >= r_max) THEN
425 aw(1) = 1.8934012296256358e-05_dp
426 aw(2) = 2.0829314615342741e-04_dp
427 aw(3) = 1.1024023520154727e-03_dp
428 aw(4) = 4.2548734477736863e-03_dp
429 aw(5) = 1.3625745873543612e-02_dp
430 aw(6) = 3.8442710765665453e-02_dp
431 aw(7) = 9.8818287645666872e-02_dp
432 aw(8) = 2.3636401719642108e-01_dp
433 aw(9) = 5.3373454579640744e-01_dp
434 aw(10) = 1.1508219943995057e+00_dp
435 aw(11) = 2.4001213099764143e+00_dp
436 aw(12) = 4.9906311509941723e+00_dp
437 aw(13) = 6.0528329999281435e-05_dp
438 aw(14) = 3.9768193515047327e-04_dp
439 aw(15) = 1.6279651361197933e-03_dp
440 aw(16) = 5.2922029903677377e-03_dp
441 aw(17) = 1.4898953114611908e-02_dp
442 aw(18) = 3.7918950606510460e-02_dp
443 aw(19) = 8.9457745237352296e-02_dp
444 aw(20) = 1.9884427477508254e-01_dp
445 aw(21) = 4.2144796502526766e-01_dp
446 aw(22) = 8.6198574283723861e-01_dp
447 aw(23) = 1.7404432216810901e+00_dp
448 aw(24) = 3.7794416490913081e+00_dp
449 ELSE
450 IF (rc <= 100.0_dp) THEN
451 CALL get_fit_coef_k12_sh(k, fit_coef, l_b, u_b)
452 ELSE
453 IF (rc <= 1000.0_dp) THEN
454 CALL get_fit_coef_k12_mi(k, fit_coef, l_b, u_b)
455 ELSE
456 CALL get_fit_coef_k12_lo(k, fit_coef, l_b, u_b)
457 END IF
458 END IF
459 END IF
460 CASE (13)
461 IF (rc >= r_max) THEN
462 aw(1) = 1.0347391661194427e-05_dp
463 aw(2) = 1.1383169144875790e-04_dp
464 aw(3) = 6.0246014985531054e-04_dp
465 aw(4) = 2.3252777266436543e-03_dp
466 aw(5) = 7.4464345169693259e-03_dp
467 aw(6) = 2.1008804344928592e-02_dp
468 aw(7) = 5.4003219260973512e-02_dp
469 aw(8) = 1.2916211533151045e-01_dp
470 aw(9) = 2.9156437505279720e-01_dp
471 aw(10) = 6.2769461815368310e-01_dp
472 aw(11) = 1.3003150067055842e+00_dp
473 aw(12) = 2.6217712688276107e+00_dp
474 aw(13) = 5.2973357440769391e+00_dp
475 aw(14) = 3.3078584812160216e-05_dp
476 aw(15) = 2.1733219160086539e-04_dp
477 aw(16) = 8.8967889768721382e-04_dp
478 aw(17) = 2.8921756053065669e-03_dp
479 aw(18) = 8.1422349627770872e-03_dp
480 aw(19) = 2.0722487658696522e-02_dp
481 aw(20) = 4.8886434214697162e-02_dp
482 aw(21) = 1.0864184956111259e-01_dp
483 aw(22) = 2.3003323004923831e-01_dp
484 aw(23) = 4.6829507330399833e-01_dp
485 aw(24) = 9.2620553596664335e-01_dp
486 aw(25) = 1.8198087510110939e+00_dp
487 aw(26) = 3.8700490617962435e+00_dp
488 ELSE
489 IF (rc <= 100.0_dp) THEN
490 CALL get_fit_coef_k13_sh(k, fit_coef, l_b, u_b)
491 ELSE
492 IF (rc <= 1000.0_dp) THEN
493 CALL get_fit_coef_k13_mi(k, fit_coef, l_b, u_b)
494 ELSE
495 CALL get_fit_coef_k13_lo(k, fit_coef, l_b, u_b)
496 END IF
497 END IF
498 END IF
499 CASE (14)
500 IF (rc >= r_max) THEN
501 aw(1) = 5.7793103608868073e-06_dp
502 aw(2) = 6.3578213256604128e-05_dp
503 aw(3) = 3.3649100160858427e-04_dp
504 aw(4) = 1.2987332474693207e-03_dp
505 aw(5) = 4.1590436292552775e-03_dp
506 aw(6) = 1.1734004029327220e-02_dp
507 aw(7) = 3.0162212092092591e-02_dp
508 aw(8) = 7.2139138815286746e-02_dp
509 aw(9) = 1.6282875663814733e-01_dp
510 aw(10) = 3.5040070791304617e-01_dp
511 aw(11) = 7.2459730019137303e-01_dp
512 aw(12) = 1.4504311395006662e+00_dp
513 aw(13) = 2.8398376292459662e+00_dp
514 aw(14) = 5.5949042429760905e+00_dp
515 aw(15) = 1.8475323460824520e-05_dp
516 aw(16) = 1.2138616450563895e-04_dp
517 aw(17) = 4.9691078029321441e-04_dp
518 aw(18) = 1.6153616951963146e-03_dp
519 aw(19) = 4.5476671955009150e-03_dp
520 aw(20) = 1.1574075510211794e-02_dp
521 aw(21) = 2.7304150630042847e-02_dp
522 aw(22) = 6.0675597068478228e-02_dp
523 aw(23) = 1.2843669732401369e-01_dp
524 aw(24) = 2.6114026945752189e-01_dp
525 aw(25) = 5.1372708252492216e-01_dp
526 aw(26) = 9.8714811599006669e-01_dp
527 aw(27) = 1.8941325485709735e+00_dp
528 aw(28) = 3.9547772395130827e+00_dp
529 ELSE
530 IF (rc <= 100.0_dp) THEN
531 CALL get_fit_coef_k14_sh(k, fit_coef, l_b, u_b)
532 ELSE
533 IF (rc <= 1000.0_dp) THEN
534 CALL get_fit_coef_k14_mi(k, fit_coef, l_b, u_b)
535 ELSE
536 CALL get_fit_coef_k14_lo(k, fit_coef, l_b, u_b)
537 END IF
538 END IF
539 END IF
540 CASE (15)
541 IF (rc >= r_max) THEN
542 aw(1) = 3.2916678993378631e-06_dp
543 aw(2) = 3.6211649942309474e-05_dp
544 aw(3) = 1.9165204138720421e-04_dp
545 aw(4) = 7.3970738152952427e-04_dp
546 aw(5) = 2.3688276459558682e-03_dp
547 aw(6) = 6.6832262130187142e-03_dp
548 aw(7) = 1.7179191903350474e-02_dp
549 aw(8) = 4.1087365085774624e-02_dp
550 aw(9) = 9.2737907068114855e-02_dp
551 aw(10) = 1.9954458193741717e-01_dp
552 aw(11) = 4.1243407495664974e-01_dp
553 aw(12) = 8.2392876030355866e-01_dp
554 aw(13) = 1.6008068838318577e+00_dp
555 aw(14) = 3.0544270604919670e+00_dp
556 aw(15) = 5.8841569972355829e+00_dp
557 aw(16) = 1.0522817667026174e-05_dp
558 aw(17) = 6.9136785573218804e-05_dp
559 aw(18) = 2.8302083846862936e-04_dp
560 aw(19) = 9.2004648989894703e-04_dp
561 aw(20) = 2.5901722444491987e-03_dp
562 aw(21) = 6.5921351784279962e-03_dp
563 aw(22) = 1.5551321239944434e-02_dp
564 aw(23) = 3.4557794033658169e-02_dp
565 aw(24) = 7.3145459688388037e-02_dp
566 aw(25) = 1.4866796426944323e-01_dp
567 aw(26) = 2.9202494628235121e-01_dp
568 aw(27) = 5.5775841334330534e-01_dp
569 aw(28) = 1.0451182163084207e+00_dp
570 aw(29) = 1.9640378140134063e+00_dp
571 aw(30) = 4.0343871534325908e+00_dp
572 ELSE
573 IF (rc <= 100.0_dp) THEN
574 CALL get_fit_coef_k15_sh(k, fit_coef, l_b, u_b)
575 ELSE
576 IF (rc <= 1000.0_dp) THEN
577 CALL get_fit_coef_k15_mi(k, fit_coef, l_b, u_b)
578 ELSE
579 CALL get_fit_coef_k15_lo(k, fit_coef, l_b, u_b)
580 END IF
581 END IF
582 END IF
583 CASE DEFAULT
584 cpabort("")
585 END SELECT
586 END IF
587
588 IF (rc < r_max .AND. rc >= r_min) THEN
589 r_transf = sqrt(l_b/rc)
590 r_transf = sqrt(r_transf)*(sqrt(u_b/(u_b - l_b)) - sqrt(rc/(u_b - l_b)))
591 DO kkk = 1, 2*k
592 aw(kkk) = fit_coef(0, kkk)
593 DO icoef = 1, 12
594 aw(kkk) = aw(kkk) + fit_coef(icoef, kkk)*r_transf**icoef
595 END DO
596 END DO
597 END IF
598
599 IF (PRESENT(mm_error)) mm_error = get_minimax_numerical_error(rc, aw)
600
601 CALL timestop(handle)
602
603 END SUBROUTINE get_minimax_coeff_k15
604
605! **************************************************************************************************
606!> \brief ...
607!> \param k ...
608!> \param fit_coef ...
609!> \param L_b ...
610!> \param U_b ...
611! **************************************************************************************************
612 SUBROUTINE get_fit_coef_k1(k, fit_coef, L_b, U_b)
613 INTEGER :: k
614 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
615 REAL(kind=dp) :: l_b, u_b
616
617 l_b = 2.0000000000000000e+00_dp
618 u_b = 8.6669999999999998e+00_dp
619 fit_coef(0, 1) = 4.4649260681804581e-01_dp
620 fit_coef(1, 1) = 3.0675836870877398e-06_dp
621 fit_coef(2, 1) = 1.2472664651690426e+00_dp
622 fit_coef(3, 1) = -1.4325378312702204e+00_dp
623 fit_coef(4, 1) = -2.8852101654931545e-01_dp
624 fit_coef(5, 1) = 1.3224636333703371e+01_dp
625 fit_coef(6, 1) = -5.6553448268455575e+01_dp
626 fit_coef(7, 1) = 1.5090215216505641e+02_dp
627 fit_coef(8, 1) = -2.8212708107138189e+02_dp
628 fit_coef(9, 1) = 3.6970660684742296e+02_dp
629 fit_coef(10, 1) = -3.2374043561240165e+02_dp
630 fit_coef(11, 1) = 1.6996735688896140e+02_dp
631 fit_coef(12, 1) = -4.0395921268987330e+01_dp
632 fit_coef(0, 2) = 1.4290997884622449e+00_dp
633 fit_coef(1, 2) = 5.6745594674266576e-06_dp
634 fit_coef(2, 2) = 2.4380748907132181e+00_dp
635 fit_coef(3, 2) = -2.8016418715477878e+00_dp
636 fit_coef(4, 2) = 3.7584116167213760e-01_dp
637 fit_coef(5, 2) = 2.3327242171726457e+01_dp
638 fit_coef(6, 2) = -1.0520185473804629e+02_dp
639 fit_coef(7, 2) = 2.8832898650596110e+02_dp
640 fit_coef(8, 2) = -5.4924137182200832e+02_dp
641 fit_coef(9, 2) = 7.3027624158467188e+02_dp
642 fit_coef(10, 2) = -6.4709409025644425e+02_dp
643 fit_coef(11, 2) = 3.4309801277522899e+02_dp
644 fit_coef(12, 2) = -8.2224836383626666e+01_dp
645
646 END SUBROUTINE get_fit_coef_k1
647
648! **************************************************************************************************
649!> \brief ...
650!> \param k ...
651!> \param fit_coef ...
652!> \param L_b ...
653!> \param U_b ...
654! **************************************************************************************************
655 SUBROUTINE get_fit_coef_k2(k, fit_coef, L_b, U_b)
656 INTEGER :: k
657 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
658 REAL(kind=dp) :: l_b, u_b
659
660 l_b = 2.0000000000000000e+00_dp
661 u_b = 4.1539999999999999e+01_dp
662 fit_coef(0, 1) = 9.3106187850842653e-02_dp
663 fit_coef(1, 1) = -5.0629856861437123e-05_dp
664 fit_coef(2, 1) = 1.0015082423014863e+00_dp
665 fit_coef(3, 1) = -3.5061593037011978e+00_dp
666 fit_coef(4, 1) = 1.4483017017771591e+01_dp
667 fit_coef(5, 1) = -4.5087114171411322e+01_dp
668 fit_coef(6, 1) = 1.0677856101159048e+02_dp
669 fit_coef(7, 1) = -1.8217614209987144e+02_dp
670 fit_coef(8, 1) = 2.1105105002638726e+02_dp
671 fit_coef(9, 1) = -1.5567397052444477e+02_dp
672 fit_coef(10, 1) = 6.5143729915539296e+01_dp
673 fit_coef(11, 1) = -1.1144201390642060e+01_dp
674 fit_coef(12, 1) = -4.0413697217822347e-01_dp
675 fit_coef(0, 2) = 1.0301539533889652e+00_dp
676 fit_coef(1, 2) = -1.8120259734086499e-04_dp
677 fit_coef(2, 2) = 3.9565096665651787e+00_dp
678 fit_coef(3, 2) = -1.3814853129007110e+01_dp
679 fit_coef(4, 2) = 5.7316987025660488e+01_dp
680 fit_coef(5, 2) = -1.7656913969609036e+02_dp
681 fit_coef(6, 2) = 4.1570794568371764e+02_dp
682 fit_coef(7, 2) = -7.0182518512857257e+02_dp
683 fit_coef(8, 2) = 8.0388072043543650e+02_dp
684 fit_coef(9, 2) = -5.9083346503424480e+02_dp
685 fit_coef(10, 2) = 2.5295462667462738e+02_dp
686 fit_coef(11, 2) = -4.9543705304205133e+01_dp
687 fit_coef(12, 2) = 1.0078618878729646e+00_dp
688 fit_coef(0, 3) = 2.9765555120179177e-01_dp
689 fit_coef(1, 3) = -1.0353208854227029e-04_dp
690 fit_coef(2, 3) = 2.3095283302989413e+00_dp
691 fit_coef(3, 3) = -8.0576570729831154e+00_dp
692 fit_coef(4, 3) = 3.3739368092954251e+01_dp
693 fit_coef(5, 3) = -1.0475419759213936e+02_dp
694 fit_coef(6, 3) = 2.4672759964823950e+02_dp
695 fit_coef(7, 3) = -4.1482385671796834e+02_dp
696 fit_coef(8, 3) = 4.6585822070233695e+02_dp
697 fit_coef(9, 3) = -3.2366345592266214e+02_dp
698 fit_coef(10, 3) = 1.1849771979400440e+02_dp
699 fit_coef(11, 3) = -1.0906004349060501e+01_dp
700 fit_coef(12, 3) = -3.7598063728027054e+00_dp
701 fit_coef(0, 4) = 1.9917444037245748e+00_dp
702 fit_coef(1, 4) = -1.5897415044355091e-04_dp
703 fit_coef(2, 4) = 3.2506199533242417e+00_dp
704 fit_coef(3, 4) = -1.1373065869782103e+01_dp
705 fit_coef(4, 4) = 4.6558059922949951e+01_dp
706 fit_coef(5, 4) = -1.4224165879889640e+02_dp
707 fit_coef(6, 4) = 3.3658512396870015e+02_dp
708 fit_coef(7, 4) = -5.7666672132123392e+02_dp
709 fit_coef(8, 4) = 6.8845868913664435e+02_dp
710 fit_coef(9, 4) = -5.5227838411317748e+02_dp
711 fit_coef(10, 4) = 2.8109979885115376e+02_dp
712 fit_coef(11, 4) = -8.0922550511268881e+01_dp
713 fit_coef(12, 4) = 9.8057271611259083e+00_dp
714
715 END SUBROUTINE get_fit_coef_k2
716
717! **************************************************************************************************
718!> \brief ...
719!> \param k ...
720!> \param fit_coef ...
721!> \param L_b ...
722!> \param U_b ...
723! **************************************************************************************************
724 SUBROUTINE get_fit_coef_k3(k, fit_coef, L_b, U_b)
725 INTEGER :: k
726 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
727 REAL(kind=dp) :: l_b, u_b
728
729 l_b = 2.0000000000000000e+00_dp
730 u_b = 1.4680000000000001e+02_dp
731 fit_coef(0, 1) = 2.6348727105229584e-02_dp
732 fit_coef(1, 1) = 2.0153944068439938e-04_dp
733 fit_coef(2, 1) = 6.1530657742665373e-01_dp
734 fit_coef(3, 1) = -3.1917423654295867e+00_dp
735 fit_coef(4, 1) = 1.8476493141601150e+01_dp
736 fit_coef(5, 1) = -7.6512288788660001e+01_dp
737 fit_coef(6, 1) = 2.3572982749223701e+02_dp
738 fit_coef(7, 1) = -5.2565813705739686e+02_dp
739 fit_coef(8, 1) = 8.2467549297012602e+02_dp
740 fit_coef(9, 1) = -8.8144565993107483e+02_dp
741 fit_coef(10, 1) = 6.0887047274283691e+02_dp
742 fit_coef(11, 1) = -2.4457518923875350e+02_dp
743 fit_coef(12, 1) = 4.3343959760454148e+01_dp
744 fit_coef(0, 2) = 2.8996604313967794e-01_dp
745 fit_coef(1, 2) = 9.1966653451787525e-04_dp
746 fit_coef(2, 2) = 2.9603964889982954e+00_dp
747 fit_coef(3, 2) = -1.5436155715607415e+01_dp
748 fit_coef(4, 2) = 8.9046449784370381e+01_dp
749 fit_coef(5, 2) = -3.6819211532781554e+02_dp
750 fit_coef(6, 2) = 1.1368031324897308e+03_dp
751 fit_coef(7, 2) = -2.5382696326038131e+03_dp
752 fit_coef(8, 2) = 3.9825571880586440e+03_dp
753 fit_coef(9, 2) = -4.2549854059515601e+03_dp
754 fit_coef(10, 2) = 2.9378687444731368e+03_dp
755 fit_coef(11, 2) = -1.1796924244872741e+03_dp
756 fit_coef(12, 2) = 2.0901178723785654e+02_dp
757 fit_coef(0, 3) = 1.5533604484128483e+00_dp
758 fit_coef(1, 3) = 2.0797203873888733e-03_dp
759 fit_coef(2, 3) = 6.8823846111885398e+00_dp
760 fit_coef(3, 3) = -3.6081265871868659e+01_dp
761 fit_coef(4, 3) = 2.0382721580134501e+02_dp
762 fit_coef(5, 3) = -8.3588368834778782e+02_dp
763 fit_coef(6, 3) = 2.5589042797513875e+03_dp
764 fit_coef(7, 3) = -5.6774399573846031e+03_dp
765 fit_coef(8, 3) = 8.8818039188117691e+03_dp
766 fit_coef(9, 3) = -9.4791778618478966e+03_dp
767 fit_coef(10, 3) = 6.5412200642397502e+03_dp
768 fit_coef(11, 3) = -2.6248240660426704e+03_dp
769 fit_coef(12, 3) = 4.6461771734428112e+02_dp
770 fit_coef(0, 4) = 8.4232388261126792e-02_dp
771 fit_coef(1, 4) = 4.8315351483134558e-04_dp
772 fit_coef(2, 4) = 1.4901688878913604e+00_dp
773 fit_coef(3, 4) = -7.7278009557035778e+00_dp
774 fit_coef(4, 4) = 4.5200180529539338e+01_dp
775 fit_coef(5, 4) = -1.8811770415936255e+02_dp
776 fit_coef(6, 4) = 5.8400962109149202e+02_dp
777 fit_coef(7, 4) = -1.3122325202133370e+03_dp
778 fit_coef(8, 4) = 2.0704762349353055e+03_dp
779 fit_coef(9, 4) = -2.2210949812031968e+03_dp
780 fit_coef(10, 4) = 1.5374220056673389e+03_dp
781 fit_coef(11, 4) = -6.1817894452963594e+02_dp
782 fit_coef(12, 4) = 1.0958974382960224e+02_dp
783 fit_coef(0, 5) = 5.5403377016655386e-01_dp
784 fit_coef(1, 5) = 9.6266405874694016e-04_dp
785 fit_coef(2, 5) = 3.2463696099948760e+00_dp
786 fit_coef(3, 5) = -1.7046533273203099e+01_dp
787 fit_coef(4, 5) = 9.6159163168231984e+01_dp
788 fit_coef(5, 5) = -3.9387879060912519e+02_dp
789 fit_coef(6, 5) = 1.2057094045527570e+03_dp
790 fit_coef(7, 5) = -2.6721670291204064e+03_dp
791 fit_coef(8, 5) = 4.1758049164403919e+03_dp
792 fit_coef(9, 5) = -4.4574085233127789e+03_dp
793 fit_coef(10, 5) = 3.0806227002555916e+03_dp
794 fit_coef(11, 5) = -1.2391922190720968e+03_dp
795 fit_coef(12, 5) = 2.1996432808098118e+02_dp
796 fit_coef(0, 6) = 2.3557652649415379e+00_dp
797 fit_coef(1, 6) = 1.2866271731043475e-03_dp
798 fit_coef(2, 6) = 4.2915899775667716e+00_dp
799 fit_coef(3, 6) = -2.2590368917521662e+01_dp
800 fit_coef(4, 6) = 1.2467969331840358e+02_dp
801 fit_coef(5, 6) = -5.0586944026595319e+02_dp
802 fit_coef(6, 6) = 1.5294941344789261e+03_dp
803 fit_coef(7, 6) = -3.3597570045760758e+03_dp
804 fit_coef(8, 6) = 5.2196087711777982e+03_dp
805 fit_coef(9, 6) = -5.5365578831549756e+03_dp
806 fit_coef(10, 6) = 3.7972016920254159e+03_dp
807 fit_coef(11, 6) = -1.5146892655309941e+03_dp
808 fit_coef(12, 6) = 2.6667582714296555e+02_dp
809
810 END SUBROUTINE get_fit_coef_k3
811
812! **************************************************************************************************
813!> \brief ...
814!> \param k ...
815!> \param fit_coef ...
816!> \param L_b ...
817!> \param U_b ...
818! **************************************************************************************************
819 SUBROUTINE get_fit_coef_k4(k, fit_coef, L_b, U_b)
820 INTEGER :: k
821 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
822 REAL(kind=dp) :: l_b, u_b
823
824 l_b = 2.0000000000000000e+00_dp
825 u_b = 4.3610000000000002e+02_dp
826 fit_coef(0, 1) = 8.8672649711285020e-03_dp
827 fit_coef(1, 1) = 5.7946595950817889e-04_dp
828 fit_coef(2, 1) = 3.5675945534374653e-01_dp
829 fit_coef(3, 1) = -2.0716213353930191e+00_dp
830 fit_coef(4, 1) = 1.2657470729413074e+01_dp
831 fit_coef(5, 1) = -4.9885844724999998e+01_dp
832 fit_coef(6, 1) = 1.4055190870387446e+02_dp
833 fit_coef(7, 1) = -2.8346908048131127e+02_dp
834 fit_coef(8, 1) = 4.0424697790393645e+02_dp
835 fit_coef(9, 1) = -3.9722796612734163e+02_dp
836 fit_coef(10, 1) = 2.5527240184308903e+02_dp
837 fit_coef(11, 1) = -9.6356867177556367e+01_dp
838 fit_coef(12, 1) = 1.6170840941701190e+01_dp
839 fit_coef(0, 2) = 9.7559203877924675e-02_dp
840 fit_coef(1, 2) = 3.0161149229635965e-03_dp
841 fit_coef(2, 2) = 1.8835046917379701e+00_dp
842 fit_coef(3, 2) = -1.1044051251373379e+01_dp
843 fit_coef(4, 2) = 6.6851851055246527e+01_dp
844 fit_coef(5, 2) = -2.6245846800700389e+02_dp
845 fit_coef(6, 2) = 7.3917115340985299e+02_dp
846 fit_coef(7, 2) = -1.4908588623752182e+03_dp
847 fit_coef(8, 2) = 2.1239922172484485e+03_dp
848 fit_coef(9, 2) = -2.0828446618499129e+03_dp
849 fit_coef(10, 2) = 1.3350612779873063e+03_dp
850 fit_coef(11, 2) = -5.0262753942439002e+02_dp
851 fit_coef(12, 2) = 8.4153648005965323e+01_dp
852 fit_coef(0, 3) = 5.1690155310834918e-01_dp
853 fit_coef(1, 3) = 7.9435328867281975e-03_dp
854 fit_coef(2, 3) = 5.1805612337915026e+00_dp
855 fit_coef(3, 3) = -3.1004834727213211e+01_dp
856 fit_coef(4, 3) = 1.8433410572917765e+02_dp
857 fit_coef(5, 3) = -7.2586403084370136e+02_dp
858 fit_coef(6, 3) = 2.0342579068012742e+03_dp
859 fit_coef(7, 3) = -4.0678145171858919e+03_dp
860 fit_coef(8, 3) = 5.7545086314708260e+03_dp
861 fit_coef(9, 3) = -5.6192254926256765e+03_dp
862 fit_coef(10, 3) = 3.5949228753416078e+03_dp
863 fit_coef(11, 3) = -1.3527284950245175e+03_dp
864 fit_coef(12, 3) = 2.2651488475207483e+02_dp
865 fit_coef(0, 4) = 2.0307980329330455e+00_dp
866 fit_coef(1, 4) = 1.5103721465188732e-02_dp
867 fit_coef(2, 4) = 1.0170027292275309e+01_dp
868 fit_coef(3, 4) = -6.1629536377936731e+01_dp
869 fit_coef(4, 4) = 3.6339135279187411e+02_dp
870 fit_coef(5, 4) = -1.4370905260427323e+03_dp
871 fit_coef(6, 4) = 4.0240409210934931e+03_dp
872 fit_coef(7, 4) = -8.0281015706711596e+03_dp
873 fit_coef(8, 4) = 1.1327126412565874e+04_dp
874 fit_coef(9, 4) = -1.1018179056966479e+04_dp
875 fit_coef(10, 4) = 7.0109171513047604e+03_dp
876 fit_coef(11, 4) = -2.6210011647009460e+03_dp
877 fit_coef(12, 4) = 4.3584541357166989e+02_dp
878 fit_coef(0, 5) = 2.8347760489671650e-02_dp
879 fit_coef(1, 5) = 1.4649670575243566e-03_dp
880 fit_coef(2, 5) = 8.8299650888912973e-01_dp
881 fit_coef(3, 5) = -5.0888392853266016e+00_dp
882 fit_coef(4, 5) = 3.1075839685772152e+01_dp
883 fit_coef(5, 5) = -1.2128602025520448e+02_dp
884 fit_coef(6, 5) = 3.3937414729640119e+02_dp
885 fit_coef(7, 5) = -6.8302048253288706e+02_dp
886 fit_coef(8, 5) = 9.7534981752611350e+02_dp
887 fit_coef(9, 5) = -9.6151742177938490e+02_dp
888 fit_coef(10, 5) = 6.2037394636212662e+02_dp
889 fit_coef(11, 5) = -2.3512801932664019e+02_dp
890 fit_coef(12, 5) = 3.9611471687460110e+01_dp
891 fit_coef(0, 6) = 1.8628153335173334e-01_dp
892 fit_coef(1, 6) = 3.5520276122272556e-03_dp
893 fit_coef(2, 6) = 2.3086588899079099e+00_dp
894 fit_coef(3, 6) = -1.3800728356647832e+01_dp
895 fit_coef(4, 6) = 8.2177612215645453e+01_dp
896 fit_coef(5, 6) = -3.2302705970393248e+02_dp
897 fit_coef(6, 6) = 9.0586751432164715e+02_dp
898 fit_coef(7, 6) = -1.8072280789056376e+03_dp
899 fit_coef(8, 6) = 2.5395651527460632e+03_dp
900 fit_coef(9, 6) = -2.4571249439954981e+03_dp
901 fit_coef(10, 6) = 1.5570737965484213e+03_dp
902 fit_coef(11, 6) = -5.8102885219535062e+02_dp
903 fit_coef(12, 6) = 9.6652055418531859e+01_dp
904 fit_coef(0, 7) = 7.6509143586699357e-01_dp
905 fit_coef(1, 7) = 6.2314075869334632e-03_dp
906 fit_coef(2, 7) = 4.2963285111812013e+00_dp
907 fit_coef(3, 7) = -2.6274891972880781e+01_dp
908 fit_coef(4, 7) = 1.5420391696751719e+02_dp
909 fit_coef(5, 7) = -6.1288005128817349e+02_dp
910 fit_coef(6, 7) = 1.7216536923227670e+03_dp
911 fit_coef(7, 7) = -3.4485704001993868e+03_dp
912 fit_coef(8, 7) = 4.8977145964963656e+03_dp
913 fit_coef(9, 7) = -4.8034792371771946e+03_dp
914 fit_coef(10, 7) = 3.0816756873370769e+03_dp
915 fit_coef(11, 7) = -1.1601064628670051e+03_dp
916 fit_coef(12, 7) = 1.9390631611709998e+02_dp
917 fit_coef(0, 8) = 2.6286642321590428e+00_dp
918 fit_coef(1, 8) = 7.7803605643329997e-03_dp
919 fit_coef(2, 8) = 5.3941542397285547e+00_dp
920 fit_coef(3, 8) = -3.3087210185862091e+01_dp
921 fit_coef(4, 8) = 1.9273310816176871e+02_dp
922 fit_coef(5, 8) = -7.6265175017497995e+02_dp
923 fit_coef(6, 8) = 2.1209378243539750e+03_dp
924 fit_coef(7, 8) = -4.1903565462442602e+03_dp
925 fit_coef(8, 8) = 5.8461185745331686e+03_dp
926 fit_coef(9, 8) = -5.6134540471156033e+03_dp
927 fit_coef(10, 8) = 3.5238957022458790e+03_dp
928 fit_coef(11, 8) = -1.3009219235427045e+03_dp
929 fit_coef(12, 8) = 2.1404715392962453e+02_dp
930
931 END SUBROUTINE get_fit_coef_k4
932
933! **************************************************************************************************
934!> \brief ...
935!> \param k ...
936!> \param fit_coef ...
937!> \param L_b ...
938!> \param U_b ...
939! **************************************************************************************************
940 SUBROUTINE get_fit_coef_k5_sh(k, fit_coef, L_b, U_b)
941 INTEGER :: k
942 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
943 REAL(kind=dp) :: l_b, u_b
944
945 l_b = 2.0000000000000000e+00_dp
946 u_b = 1.0000000000000000e+02_dp
947 fit_coef(0, 1) = 1.2552725467386876e-02_dp
948 fit_coef(1, 1) = 4.6649769538903360e-02_dp
949 fit_coef(2, 1) = 9.2959477678781308e-02_dp
950 fit_coef(3, 1) = 1.0149142608425701e-01_dp
951 fit_coef(4, 1) = 2.8480683386527764e-02_dp
952 fit_coef(5, 1) = 1.1113054160128813e-01_dp
953 fit_coef(6, 1) = -6.0921078972010467e-01_dp
954 fit_coef(7, 1) = 1.2596196983676409e+00_dp
955 fit_coef(8, 1) = -1.8451880523904862e+00_dp
956 fit_coef(9, 1) = 1.7957653403032408e+00_dp
957 fit_coef(10, 1) = -1.0556136831977423e+00_dp
958 fit_coef(11, 1) = 3.3910276380778348e-01_dp
959 fit_coef(12, 1) = -4.6181724196745676e-02_dp
960 fit_coef(0, 2) = 8.6549382218897089e-02_dp
961 fit_coef(1, 2) = 2.4941345083475788e-01_dp
962 fit_coef(2, 2) = 4.9245083501834641e-01_dp
963 fit_coef(3, 2) = 5.3644207042808922e-01_dp
964 fit_coef(4, 2) = 1.2428540956728855e-01_dp
965 fit_coef(5, 2) = 6.7557445154066409e-01_dp
966 fit_coef(6, 2) = -3.7485327413027623e+00_dp
967 fit_coef(7, 2) = 8.1470783598203376e+00_dp
968 fit_coef(8, 2) = -1.2089572776244864e+01_dp
969 fit_coef(9, 2) = 1.1847479598929507e+01_dp
970 fit_coef(10, 2) = -7.1090620100857240e+00_dp
971 fit_coef(11, 2) = 2.3701867666711376e+00_dp
972 fit_coef(12, 2) = -3.3987884749260155e-01_dp
973 fit_coef(0, 3) = 3.3100121276962868e-01_dp
974 fit_coef(1, 3) = 6.4559516531419092e-01_dp
975 fit_coef(2, 3) = 1.1695370338909203e+00_dp
976 fit_coef(3, 3) = 1.1909933210765451e+00_dp
977 fit_coef(4, 3) = 3.2031142163339787e-01_dp
978 fit_coef(5, 3) = 1.9886975419904467e+00_dp
979 fit_coef(6, 3) = -9.7799471531969644e+00_dp
980 fit_coef(7, 3) = 2.2252882892705870e+01_dp
981 fit_coef(8, 3) = -3.7167325466273596e+01_dp
982 fit_coef(9, 3) = 4.2278212835435340e+01_dp
983 fit_coef(10, 3) = -2.9956267208984151e+01_dp
984 fit_coef(11, 3) = 1.1968794532343871e+01_dp
985 fit_coef(12, 3) = -2.0781674372557291e+00_dp
986 fit_coef(0, 4) = 1.0393831770652862e+00_dp
987 fit_coef(1, 4) = 1.2828501087122686e+00_dp
988 fit_coef(2, 4) = 2.0825379734819873e+00_dp
989 fit_coef(3, 4) = 1.7998297820064115e+00_dp
990 fit_coef(4, 4) = 2.5080914149094569e-01_dp
991 fit_coef(5, 4) = 4.4983607972730759e+00_dp
992 fit_coef(6, 4) = -1.8966342225496536e+01_dp
993 fit_coef(7, 4) = 4.5287344234453357e+01_dp
994 fit_coef(8, 4) = -7.1920958793917023e+01_dp
995 fit_coef(9, 4) = 6.9428467733194353e+01_dp
996 fit_coef(10, 4) = -3.7831237207121376e+01_dp
997 fit_coef(11, 4) = 1.0235977584153179e+01_dp
998 fit_coef(12, 4) = -9.4268597782017161e-01_dp
999 fit_coef(0, 5) = 2.9584698863596302e+00_dp
1000 fit_coef(1, 5) = 2.1184323245195742e+00_dp
1001 fit_coef(2, 5) = 3.1709055258739989e+00_dp
1002 fit_coef(3, 5) = 2.2881184795555805e+00_dp
1003 fit_coef(4, 5) = 1.3681290961089937e-01_dp
1004 fit_coef(5, 5) = 5.7626338647647000e+00_dp
1005 fit_coef(6, 5) = -2.2759359631501187e+01_dp
1006 fit_coef(7, 5) = 5.5231152856101538e+01_dp
1007 fit_coef(8, 5) = -8.4310336806818569e+01_dp
1008 fit_coef(9, 5) = 7.9823159301719699e+01_dp
1009 fit_coef(10, 5) = -4.7210036737799030e+01_dp
1010 fit_coef(11, 5) = 1.6850346492810033e+01_dp
1011 fit_coef(12, 5) = -2.8940063886358156e+00_dp
1012 fit_coef(0, 6) = 3.4210297969183165e-02_dp
1013 fit_coef(1, 6) = 1.1998863470153487e-01_dp
1014 fit_coef(2, 6) = 2.4069816123621954e-01_dp
1015 fit_coef(3, 6) = 2.6041301008819967e-01_dp
1016 fit_coef(4, 6) = 6.3759797012621147e-02_dp
1017 fit_coef(5, 6) = 2.9954791472086834e-01_dp
1018 fit_coef(6, 6) = -1.6121273118458419e+00_dp
1019 fit_coef(7, 6) = 3.4105969041090662e+00_dp
1020 fit_coef(8, 6) = -5.1176148344713379e+00_dp
1021 fit_coef(9, 6) = 5.1110976139035680e+00_dp
1022 fit_coef(10, 6) = -3.1089038444203969e+00_dp
1023 fit_coef(11, 6) = 1.0468712585814062e+00_dp
1024 fit_coef(12, 6) = -1.5183313871493764e-01_dp
1025 fit_coef(0, 7) = 1.3026228141842919e-01_dp
1026 fit_coef(1, 7) = 2.9032232823923010e-01_dp
1027 fit_coef(2, 7) = 5.4877493441677716e-01_dp
1028 fit_coef(3, 7) = 5.9286988770199878e-01_dp
1029 fit_coef(4, 7) = 1.6832665275575420e-01_dp
1030 fit_coef(5, 7) = 7.6364041194666443e-01_dp
1031 fit_coef(6, 7) = -4.1778527336132214e+00_dp
1032 fit_coef(7, 7) = 8.2782930216328303e+00_dp
1033 fit_coef(8, 7) = -1.0896573954399400e+01_dp
1034 fit_coef(9, 7) = 9.5485112538544357e+00_dp
1035 fit_coef(10, 7) = -5.1102322033174294e+00_dp
1036 fit_coef(11, 7) = 1.4792267331631863e+00_dp
1037 fit_coef(12, 7) = -1.7439726860494367e-01_dp
1038 fit_coef(0, 8) = 4.0415838257065068e-01_dp
1039 fit_coef(1, 8) = 5.1255268146080202e-01_dp
1040 fit_coef(2, 8) = 7.9992895750622572e-01_dp
1041 fit_coef(3, 8) = 6.6970622776170818e-01_dp
1042 fit_coef(4, 8) = 3.1464540387258828e-02_dp
1043 fit_coef(5, 8) = 2.7391878500879105e+00_dp
1044 fit_coef(6, 8) = -1.1671256087331150e+01_dp
1045 fit_coef(7, 8) = 3.2335565030282325e+01_dp
1046 fit_coef(8, 8) = -6.2446813951907615e+01_dp
1047 fit_coef(9, 8) = 7.6210993792312763e+01_dp
1048 fit_coef(10, 8) = -5.5813236665948722e+01_dp
1049 fit_coef(11, 8) = 2.2568205101339789e+01_dp
1050 fit_coef(12, 8) = -3.8998743959104960e+00_dp
1051 fit_coef(0, 9) = 1.1232181639604371e+00_dp
1052 fit_coef(1, 9) = 7.5524302843049163e-01_dp
1053 fit_coef(2, 9) = 1.0162656347519898e+00_dp
1054 fit_coef(3, 9) = 5.2091134380973092e-01_dp
1055 fit_coef(4, 9) = 6.2773571552543109e-02_dp
1056 fit_coef(5, 9) = 4.7009056670980359e-01_dp
1057 fit_coef(6, 9) = 9.6931752144443684e-01_dp
1058 fit_coef(7, 9) = -8.1767165915400302e+00_dp
1059 fit_coef(8, 9) = 3.1589453385128493e+01_dp
1060 fit_coef(9, 9) = -6.0876284446976854e+01_dp
1061 fit_coef(10, 9) = 6.0604503383962623e+01_dp
1062 fit_coef(11, 9) = -3.0336494827398063e+01_dp
1063 fit_coef(12, 9) = 6.0926762476688889e+00_dp
1064 fit_coef(0, 10) = 3.0638169445090688e+00_dp
1065 fit_coef(1, 10) = 8.9165891212009063e-01_dp
1066 fit_coef(2, 10) = 1.1487286532265266e+00_dp
1067 fit_coef(3, 10) = 5.1064617564126968e-01_dp
1068 fit_coef(4, 10) = -4.7446553971131300e-01_dp
1069 fit_coef(5, 10) = 3.6370240067130397e+00_dp
1070 fit_coef(6, 10) = -1.5479102145878249e+01_dp
1071 fit_coef(7, 10) = 4.6883317751508919e+01_dp
1072 fit_coef(8, 10) = -8.9069835651344420e+01_dp
1073 fit_coef(9, 10) = 1.1482810068630945e+02_dp
1074 fit_coef(10, 10) = -9.5886031308673950e+01_dp
1075 fit_coef(11, 10) = 4.5677182175500711e+01_dp
1076 fit_coef(12, 10) = -9.3187455185522623e+00_dp
1077
1078 END SUBROUTINE get_fit_coef_k5_sh
1079
1080! **************************************************************************************************
1081!> \brief ...
1082!> \param k ...
1083!> \param fit_coef ...
1084!> \param L_b ...
1085!> \param U_b ...
1086! **************************************************************************************************
1087 SUBROUTINE get_fit_coef_k5_lo(k, fit_coef, L_b, U_b)
1088 INTEGER :: k
1089 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
1090 REAL(kind=dp) :: l_b, u_b
1091
1092 l_b = 1.0000000000000000e+02_dp
1093 u_b = 1.1540000000000000e+03_dp
1094 fit_coef(0, 1) = 3.3529086066115803e-03_dp
1095 fit_coef(1, 1) = -8.2268999028435328e-06_dp
1096 fit_coef(2, 1) = 3.3611781342021224e-02_dp
1097 fit_coef(3, 1) = -1.3832592990876919e-01_dp
1098 fit_coef(4, 1) = 6.8079696115130983e-01_dp
1099 fit_coef(5, 1) = -2.6681612815812645e+00_dp
1100 fit_coef(6, 1) = 8.2290959869689022e+00_dp
1101 fit_coef(7, 1) = -1.9074468376984107e+01_dp
1102 fit_coef(8, 1) = 3.2127429353482611e+01_dp
1103 fit_coef(9, 1) = -3.7859356041773175e+01_dp
1104 fit_coef(10, 1) = 2.9446783510204408e+01_dp
1105 fit_coef(11, 1) = -1.3538459324077703e+01_dp
1106 fit_coef(12, 1) = 2.7808973445415268e+00_dp
1107 fit_coef(0, 2) = 3.6885509656511273e-02_dp
1108 fit_coef(1, 2) = -4.6135404124615802e-05_dp
1109 fit_coef(2, 2) = 1.8694797387922529e-01_dp
1110 fit_coef(3, 2) = -7.7044086984549065e-01_dp
1111 fit_coef(4, 2) = 3.7458845491550794e+00_dp
1112 fit_coef(5, 2) = -1.4597914775662142e+01_dp
1113 fit_coef(6, 2) = 4.4865271280504238e+01_dp
1114 fit_coef(7, 2) = -1.0374981069891059e+02_dp
1115 fit_coef(8, 2) = 1.7445816708209344e+02_dp
1116 fit_coef(9, 2) = -2.0533721999642813e+02_dp
1117 fit_coef(10, 2) = 1.5956721649659403e+02_dp
1118 fit_coef(11, 2) = -7.3312269788822348e+01_dp
1119 fit_coef(12, 2) = 1.5050733022098333e+01_dp
1120 fit_coef(0, 3) = 1.9524285077618225e-01_dp
1121 fit_coef(1, 3) = -1.3983711740977594e-04_dp
1122 fit_coef(2, 3) = 5.5888718949926475e-01_dp
1123 fit_coef(3, 3) = -2.3088502072129957e+00_dp
1124 fit_coef(4, 3) = 1.0999754812308348e+01_dp
1125 fit_coef(5, 3) = -4.2542674867782623e+01_dp
1126 fit_coef(6, 3) = 1.2991866971851243e+02_dp
1127 fit_coef(7, 3) = -2.9910040841843386e+02_dp
1128 fit_coef(8, 3) = 5.0131493127323301e+02_dp
1129 fit_coef(9, 3) = -5.8857681580426390e+02_dp
1130 fit_coef(10, 3) = 4.5649949573815150e+02_dp
1131 fit_coef(11, 3) = -2.0942533223478736e+02_dp
1132 fit_coef(12, 3) = 4.2945558512158080e+01_dp
1133 fit_coef(0, 4) = 7.5508121759060887e-01_dp
1134 fit_coef(1, 4) = -3.1605312969997662e-04_dp
1135 fit_coef(2, 4) = 1.2522786699714503e+00_dp
1136 fit_coef(3, 4) = -5.1813437090592105e+00_dp
1137 fit_coef(4, 4) = 2.4364506762575651e+01_dp
1138 fit_coef(5, 4) = -9.3776364610573921e+01_dp
1139 fit_coef(6, 4) = 2.8515029307910078e+02_dp
1140 fit_coef(7, 4) = -6.5452025447927747e+02_dp
1141 fit_coef(8, 4) = 1.0946041909024659e+03_dp
1142 fit_coef(9, 4) = -1.2829510036669149e+03_dp
1143 fit_coef(10, 4) = 9.9375334913507118e+02_dp
1144 fit_coef(11, 4) = -4.5544368131405361e+02_dp
1145 fit_coef(12, 4) = 9.3324529570079108e+01_dp
1146 fit_coef(0, 5) = 2.4730351053385511e+00_dp
1147 fit_coef(1, 5) = -5.6369602817021478e-04_dp
1148 fit_coef(2, 5) = 2.2229968075692117e+00_dp
1149 fit_coef(3, 5) = -9.2054846165557898e+00_dp
1150 fit_coef(4, 5) = 4.2976267592818459e+01_dp
1151 fit_coef(5, 5) = -1.6496009719447150e+02_dp
1152 fit_coef(6, 5) = 5.0038928803322085e+02_dp
1153 fit_coef(7, 5) = -1.1466294337635131e+03_dp
1154 fit_coef(8, 5) = 1.9151887594969048e+03_dp
1155 fit_coef(9, 5) = -2.2425568445298004e+03_dp
1156 fit_coef(10, 5) = 1.7357499822754255e+03_dp
1157 fit_coef(11, 5) = -7.9505099488495580e+02_dp
1158 fit_coef(12, 5) = 1.6284234597227066e+02_dp
1159 fit_coef(0, 6) = 1.0718594277376004e-02_dp
1160 fit_coef(1, 6) = -2.0665714271050207e-05_dp
1161 fit_coef(2, 6) = 8.4582172811458273e-02_dp
1162 fit_coef(3, 6) = -3.4797663076359847e-01_dp
1163 fit_coef(4, 6) = 1.7165661645244641e+00_dp
1164 fit_coef(5, 6) = -6.7291693231375893e+00_dp
1165 fit_coef(6, 6) = 2.0768418975747345e+01_dp
1166 fit_coef(7, 6) = -4.8168030617751583e+01_dp
1167 fit_coef(8, 6) = 8.1164964031411273e+01_dp
1168 fit_coef(9, 6) = -9.5679411237784350e+01_dp
1169 fit_coef(10, 6) = 7.4441710956106434e+01_dp
1170 fit_coef(11, 6) = -3.4234363834212587e+01_dp
1171 fit_coef(12, 6) = 7.0335229296269830e+00_dp
1172 fit_coef(0, 7) = 7.0423918791211709e-02_dp
1173 fit_coef(1, 7) = -6.0238742257850590e-05_dp
1174 fit_coef(2, 7) = 2.4113679202510896e-01_dp
1175 fit_coef(3, 7) = -9.9588383189867091e-01_dp
1176 fit_coef(4, 7) = 4.7554782250087468e+00_dp
1177 fit_coef(5, 7) = -1.8401716891304922e+01_dp
1178 fit_coef(6, 7) = 5.6243855385486498e+01_dp
1179 fit_coef(7, 7) = -1.2955708976498997e+02_dp
1180 fit_coef(8, 7) = 2.1724259904024584e+02_dp
1181 fit_coef(9, 7) = -2.5514786204737450e+02_dp
1182 fit_coef(10, 7) = 1.9794444495810336e+02_dp
1183 fit_coef(11, 7) = -9.0825962860161653e+01_dp
1184 fit_coef(12, 7) = 1.8627265430579317e+01_dp
1185 fit_coef(0, 8) = 2.8840117189215214e-01_dp
1186 fit_coef(1, 8) = -1.3225944743723339e-04_dp
1187 fit_coef(2, 8) = 5.2242393022997591e-01_dp
1188 fit_coef(3, 8) = -2.1627434438440303e+00_dp
1189 fit_coef(4, 8) = 1.0121981765560314e+01_dp
1190 fit_coef(5, 8) = -3.8888859154975577e+01_dp
1191 fit_coef(6, 8) = 1.1806445276665656e+02_dp
1192 fit_coef(7, 8) = -2.7069811465697614e+02_dp
1193 fit_coef(8, 8) = 4.5233627491539119e+02_dp
1194 fit_coef(9, 8) = -5.2982955497378055e+02_dp
1195 fit_coef(10, 8) = 4.1019408642078287e+02_dp
1196 fit_coef(11, 8) = -1.8792358285758019e+02_dp
1197 fit_coef(12, 8) = 3.8496219600202558e+01_dp
1198 fit_coef(0, 9) = 9.4333095808344458e-01_dp
1199 fit_coef(1, 9) = -2.1878257569565257e-04_dp
1200 fit_coef(2, 9) = 8.5869507294830094e-01_dp
1201 fit_coef(3, 9) = -3.5589224290290429e+00_dp
1202 fit_coef(4, 9) = 1.6493170506220842e+01_dp
1203 fit_coef(5, 9) = -6.3130491079340260e+01_dp
1204 fit_coef(6, 9) = 1.9101930146767009e+02_dp
1205 fit_coef(7, 9) = -4.3694612969128224e+02_dp
1206 fit_coef(8, 9) = 7.2886349059237500e+02_dp
1207 fit_coef(9, 9) = -8.5258297326024899e+02_dp
1208 fit_coef(10, 9) = 6.5938598174532456e+02_dp
1209 fit_coef(11, 9) = -3.0184732852622824e+02_dp
1210 fit_coef(12, 9) = 6.1796237778410379e+01_dp
1211 fit_coef(0, 10) = 2.8485312741055728e+00_dp
1212 fit_coef(1, 10) = -2.6597242771707791e-04_dp
1213 fit_coef(2, 10) = 1.0421996494576409e+00_dp
1214 fit_coef(3, 10) = -4.3207432293774151e+00_dp
1215 fit_coef(4, 10) = 1.9972564302073831e+01_dp
1216 fit_coef(5, 10) = -7.6371765475451213e+01_dp
1217 fit_coef(6, 10) = 2.3088260828483425e+02_dp
1218 fit_coef(7, 10) = -5.2780572532914982e+02_dp
1219 fit_coef(8, 10) = 8.8002099877005821e+02_dp
1220 fit_coef(9, 10) = -1.0290334029188657e+03_dp
1221 fit_coef(10, 10) = 7.9563294851641638e+02_dp
1222 fit_coef(11, 10) = -3.6413961414797035e+02_dp
1223 fit_coef(12, 10) = 7.4536963875157937e+01_dp
1224
1225 END SUBROUTINE get_fit_coef_k5_lo
1226
1227! **************************************************************************************************
1228!> \brief ...
1229!> \param k ...
1230!> \param fit_coef ...
1231!> \param L_b ...
1232!> \param U_b ...
1233! **************************************************************************************************
1234 SUBROUTINE get_fit_coef_k6_sh(k, fit_coef, L_b, U_b)
1235 INTEGER :: k
1236 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
1237 REAL(kind=dp) :: l_b, u_b
1238
1239 l_b = 2.0000000000000000e+00_dp
1240 u_b = 1.0000000000000000e+02_dp
1241 fit_coef(0, 1) = 1.0105361899470566e-02_dp
1242 fit_coef(1, 1) = 3.9366983227627925e-02_dp
1243 fit_coef(2, 1) = 7.8053377439735977e-02_dp
1244 fit_coef(3, 1) = 8.6837580919162383e-02_dp
1245 fit_coef(4, 1) = 4.6771807433750277e-02_dp
1246 fit_coef(5, 1) = -6.6734672326170835e-02_dp
1247 fit_coef(6, 1) = 9.9926171459107288e-02_dp
1248 fit_coef(7, 1) = -4.1644827063229539e-01_dp
1249 fit_coef(8, 1) = 7.6706989454888019e-01_dp
1250 fit_coef(9, 1) = -8.7152052671237190e-01_dp
1251 fit_coef(10, 1) = 6.5955681044267345e-01_dp
1252 fit_coef(11, 1) = -2.9363049092199256e-01_dp
1253 fit_coef(12, 1) = 5.6414782302946012e-02_dp
1254 fit_coef(0, 2) = 6.3047382400045412e-02_dp
1255 fit_coef(1, 2) = 2.1292104950028926e-01_dp
1256 fit_coef(2, 2) = 4.1580501626077238e-01_dp
1257 fit_coef(3, 2) = 4.5381507206227650e-01_dp
1258 fit_coef(4, 2) = 2.3261948283202027e-01_dp
1259 fit_coef(5, 2) = -3.7333612007818145e-01_dp
1260 fit_coef(6, 2) = 5.8891901066912178e-01_dp
1261 fit_coef(7, 2) = -2.2435149407329531e+00_dp
1262 fit_coef(8, 2) = 4.0761036364131602e+00_dp
1263 fit_coef(9, 2) = -4.5995236732489717e+00_dp
1264 fit_coef(10, 2) = 3.4552630197713277e+00_dp
1265 fit_coef(11, 2) = -1.5313736452266173e+00_dp
1266 fit_coef(12, 2) = 2.9408638427612482e-01_dp
1267 fit_coef(0, 3) = 2.1176071064496055e-01_dp
1268 fit_coef(1, 3) = 5.4982332295197556e-01_dp
1269 fit_coef(2, 3) = 1.0068197532238754e+00_dp
1270 fit_coef(3, 3) = 1.0684972989083634e+00_dp
1271 fit_coef(4, 3) = 6.0915448276900608e-01_dp
1272 fit_coef(5, 3) = -1.0238203491794160e+00_dp
1273 fit_coef(6, 3) = 2.1584333978631443e+00_dp
1274 fit_coef(7, 3) = -8.0611200001081951e+00_dp
1275 fit_coef(8, 3) = 1.5009961267213102e+01_dp
1276 fit_coef(9, 3) = -1.6828339663434313e+01_dp
1277 fit_coef(10, 3) = 1.2012563864685774e+01_dp
1278 fit_coef(11, 3) = -4.9849632599680698e+00_dp
1279 fit_coef(12, 3) = 9.0294945051842401e-01_dp
1280 fit_coef(0, 4) = 5.9366013171339316e-01_dp
1281 fit_coef(1, 4) = 1.1012914782020269e+00_dp
1282 fit_coef(2, 4) = 1.8080642501136919e+00_dp
1283 fit_coef(3, 4) = 1.7378820099827390e+00_dp
1284 fit_coef(4, 4) = 9.4465841905941816e-01_dp
1285 fit_coef(5, 4) = -7.9254597628432621e-01_dp
1286 fit_coef(6, 4) = 8.0775877014080266e-01_dp
1287 fit_coef(7, 4) = -2.8523919108461318e+00_dp
1288 fit_coef(8, 4) = -5.3307961129947901e-01_dp
1289 fit_coef(9, 4) = 6.7453388823676228e+00_dp
1290 fit_coef(10, 4) = -6.9248289720281742e+00_dp
1291 fit_coef(11, 4) = 2.9021292958698686e+00_dp
1292 fit_coef(12, 4) = -4.5434573537973694e-01_dp
1293 fit_coef(0, 5) = 1.5164074934712080e+00_dp
1294 fit_coef(1, 5) = 1.8998922859528067e+00_dp
1295 fit_coef(2, 5) = 2.7894259870776525e+00_dp
1296 fit_coef(3, 5) = 2.2836065839718458e+00_dp
1297 fit_coef(4, 5) = 1.2416212609604089e+00_dp
1298 fit_coef(5, 5) = -1.9153393783150017e+00_dp
1299 fit_coef(6, 5) = 7.9420474748342826e+00_dp
1300 fit_coef(7, 5) = -2.4492358033298018e+01_dp
1301 fit_coef(8, 5) = 4.7450493814300060e+01_dp
1302 fit_coef(9, 5) = -6.6407651969522661e+01_dp
1303 fit_coef(10, 5) = 6.0384585557333999e+01_dp
1304 fit_coef(11, 5) = -3.0372584465966241e+01_dp
1305 fit_coef(12, 5) = 6.3523080267784335e+00_dp
1306 fit_coef(0, 6) = 3.7104671974427847e+00_dp
1307 fit_coef(1, 6) = 2.8916704696341959e+00_dp
1308 fit_coef(2, 6) = 3.9056283047263785e+00_dp
1309 fit_coef(3, 6) = 2.7310607551007684e+00_dp
1310 fit_coef(4, 6) = 1.4374042741229791e+00_dp
1311 fit_coef(5, 6) = -3.4614723670541747e+00_dp
1312 fit_coef(6, 6) = 1.5897273148597373e+01_dp
1313 fit_coef(7, 6) = -4.2970295002223452e+01_dp
1314 fit_coef(8, 6) = 7.7894359559436722e+01_dp
1315 fit_coef(9, 6) = -9.5319740659866412e+01_dp
1316 fit_coef(10, 6) = 7.1950730534128169e+01_dp
1317 fit_coef(11, 6) = -2.9556628041991047e+01_dp
1318 fit_coef(12, 6) = 5.0101543449317205e+00_dp
1319 fit_coef(0, 7) = 2.6903751790128751e-02_dp
1320 fit_coef(1, 7) = 1.0173916967403172e-01_dp
1321 fit_coef(2, 7) = 2.0130716226577558e-01_dp
1322 fit_coef(3, 7) = 2.2172005830916267e-01_dp
1323 fit_coef(4, 7) = 1.1797631841567084e-01_dp
1324 fit_coef(5, 7) = -1.7271060154154347e-01_dp
1325 fit_coef(6, 7) = 2.7144317536179635e-01_dp
1326 fit_coef(7, 7) = -1.1089252106255005e+00_dp
1327 fit_coef(8, 7) = 2.0389731343247885e+00_dp
1328 fit_coef(9, 7) = -2.3121180806820467e+00_dp
1329 fit_coef(10, 7) = 1.7413776939963503e+00_dp
1330 fit_coef(11, 7) = -7.7162742625008818e-01_dp
1331 fit_coef(12, 7) = 1.4782756356123158e-01_dp
1332 fit_coef(0, 8) = 8.6888406935520149e-02_dp
1333 fit_coef(1, 8) = 2.4888995444204018e-01_dp
1334 fit_coef(2, 8) = 4.7199012197419227e-01_dp
1335 fit_coef(3, 8) = 5.1105786073145709e-01_dp
1336 fit_coef(4, 8) = 2.5740296918257327e-01_dp
1337 fit_coef(5, 8) = -4.3538515482693113e-01_dp
1338 fit_coef(6, 8) = 6.0029937052834403e-01_dp
1339 fit_coef(7, 8) = -2.3033251784048994e+00_dp
1340 fit_coef(8, 8) = 4.3994596232924978e+00_dp
1341 fit_coef(9, 8) = -5.1923409302629455e+00_dp
1342 fit_coef(10, 8) = 4.0222988922179050e+00_dp
1343 fit_coef(11, 8) = -1.8176576142253549e+00_dp
1344 fit_coef(12, 8) = 3.5423906095949409e-01_dp
1345 fit_coef(0, 9) = 2.3221985873092740e-01_dp
1346 fit_coef(1, 9) = 4.3438739423022149e-01_dp
1347 fit_coef(2, 9) = 7.0152946783034409e-01_dp
1348 fit_coef(3, 9) = 6.7672001661556891e-01_dp
1349 fit_coef(4, 9) = 4.8622153708717586e-01_dp
1350 fit_coef(5, 9) = -8.1041365351394823e-01_dp
1351 fit_coef(6, 9) = 2.6701912318720957e+00_dp
1352 fit_coef(7, 9) = -8.7205715741371570e+00_dp
1353 fit_coef(8, 9) = 1.3607358717959904e+01_dp
1354 fit_coef(9, 9) = -1.1724874566877528e+01_dp
1355 fit_coef(10, 9) = 5.7575285125779478e+00_dp
1356 fit_coef(11, 9) = -1.4357902050465099e+00_dp
1357 fit_coef(12, 9) = 1.1555583770987149e-01_dp
1358 fit_coef(0, 10) = 5.7977445413011319e-01_dp
1359 fit_coef(1, 10) = 6.7547720201746209e-01_dp
1360 fit_coef(2, 10) = 8.9708210777254471e-01_dp
1361 fit_coef(3, 10) = 6.3516703724773627e-01_dp
1362 fit_coef(4, 10) = 1.3236506065579925e-01_dp
1363 fit_coef(5, 10) = 1.1242277490562433e+00_dp
1364 fit_coef(6, 10) = -4.2391903965270812e+00_dp
1365 fit_coef(7, 10) = 1.3658960134998143e+01_dp
1366 fit_coef(8, 10) = -2.7055678231066494e+01_dp
1367 fit_coef(9, 10) = 2.7613753748428412e+01_dp
1368 fit_coef(10, 10) = -1.3209392906437861e+01_dp
1369 fit_coef(11, 10) = 1.7306395341708665e+00_dp
1370 fit_coef(12, 10) = 4.1257627070756253e-01_dp
1371 fit_coef(0, 11) = 1.3735367200768180e+00_dp
1372 fit_coef(1, 11) = 9.1204205070843380e-01_dp
1373 fit_coef(2, 11) = 1.0566274747133615e+00_dp
1374 fit_coef(3, 11) = 4.5662075463077345e-01_dp
1375 fit_coef(4, 11) = 4.9184167220410918e-01_dp
1376 fit_coef(5, 11) = -3.3759011651764603e+00_dp
1377 fit_coef(6, 11) = 1.7420644860890455e+01_dp
1378 fit_coef(7, 11) = -5.0539046535940329e+01_dp
1379 fit_coef(8, 11) = 1.0164085731266914e+02_dp
1380 fit_coef(9, 11) = -1.3287580093754113e+02_dp
1381 fit_coef(10, 11) = 1.0416384226984417e+02_dp
1382 fit_coef(11, 11) = -4.4207454491849361e+01_dp
1383 fit_coef(12, 11) = 7.8051805666697041e+00_dp
1384 fit_coef(0, 12) = 3.3571561549545903e+00_dp
1385 fit_coef(1, 12) = 1.0554507466925072e+00_dp
1386 fit_coef(2, 12) = 1.1790184249005025e+00_dp
1387 fit_coef(3, 12) = 4.8131299480494466e-01_dp
1388 fit_coef(4, 12) = -1.4373971957160242e-01_dp
1389 fit_coef(5, 12) = 7.0579667305022653e-01_dp
1390 fit_coef(6, 12) = -2.8433888321215206e+00_dp
1391 fit_coef(7, 12) = 1.4837347864587512e+01_dp
1392 fit_coef(8, 12) = -3.6747200470183884e+01_dp
1393 fit_coef(9, 12) = 5.8955148084383744e+01_dp
1394 fit_coef(10, 12) = -5.7353458415070598e+01_dp
1395 fit_coef(11, 12) = 2.9868904883232268e+01_dp
1396 fit_coef(12, 12) = -6.3780881018464042e+00_dp
1397
1398 END SUBROUTINE get_fit_coef_k6_sh
1399
1400! **************************************************************************************************
1401!> \brief ...
1402!> \param k ...
1403!> \param fit_coef ...
1404!> \param L_b ...
1405!> \param U_b ...
1406! **************************************************************************************************
1407 SUBROUTINE get_fit_coef_k6_lo(k, fit_coef, L_b, U_b)
1408 INTEGER :: k
1409 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
1410 REAL(kind=dp) :: l_b, u_b
1411
1412 l_b = 1.0000000000000000e+02_dp
1413 u_b = 2.8070000000000000e+03_dp
1414 fit_coef(0, 1) = 1.3801918030773162e-03_dp
1415 fit_coef(1, 1) = -1.2020528483486374e-05_dp
1416 fit_coef(2, 1) = 2.3317704806718915e-02_dp
1417 fit_coef(3, 1) = -1.1872432794031121e-01_dp
1418 fit_coef(4, 1) = 6.7174538480429080e-01_dp
1419 fit_coef(5, 1) = -2.7971289614009751e+00_dp
1420 fit_coef(6, 1) = 8.6652048337367535e+00_dp
1421 fit_coef(7, 1) = -1.9404181258270555e+01_dp
1422 fit_coef(8, 1) = 3.0766165134677419e+01_dp
1423 fit_coef(9, 1) = -3.3559777770469893e+01_dp
1424 fit_coef(10, 1) = 2.3905145262192065e+01_dp
1425 fit_coef(11, 1) = -9.9977817398860651e+00_dp
1426 fit_coef(12, 1) = 1.8600935931530318e+00_dp
1427 fit_coef(0, 2) = 1.5183557920944469e-02_dp
1428 fit_coef(1, 2) = -7.0300568913718165e-05_dp
1429 fit_coef(2, 2) = 1.3444945392494670e-01_dp
1430 fit_coef(3, 2) = -6.8712467440053460e-01_dp
1431 fit_coef(4, 2) = 3.8439092624947708e+00_dp
1432 fit_coef(5, 2) = -1.5943863755337579e+01_dp
1433 fit_coef(6, 2) = 4.9281124351364589e+01_dp
1434 fit_coef(7, 2) = -1.1020727704358747e+02_dp
1435 fit_coef(8, 2) = 1.7458545156698841e+02_dp
1436 fit_coef(9, 2) = -1.9032304924079617e+02_dp
1437 fit_coef(10, 2) = 1.3551010987771855e+02_dp
1438 fit_coef(11, 2) = -5.6654664500478205e+01_dp
1439 fit_coef(12, 2) = 1.0537734527387647e+01_dp
1440 fit_coef(0, 3) = 8.0361343459697018e-02_dp
1441 fit_coef(1, 3) = -2.2644879609720777e-04_dp
1442 fit_coef(2, 3) = 4.2400787838782916e-01_dp
1443 fit_coef(3, 3) = -2.1793513661368733e+00_dp
1444 fit_coef(4, 3) = 1.1986721121277252e+01_dp
1445 fit_coef(5, 3) = -4.9550061013597045e+01_dp
1446 fit_coef(6, 3) = 1.5269170262558245e+02_dp
1447 fit_coef(7, 3) = -3.4093496564056039e+02_dp
1448 fit_coef(8, 3) = 5.3967525217022001e+02_dp
1449 fit_coef(9, 3) = -5.8799761545490060e+02_dp
1450 fit_coef(10, 3) = 4.1842708147977544e+02_dp
1451 fit_coef(11, 3) = -1.7483665022530386e+02_dp
1452 fit_coef(12, 3) = 3.2499971977161401e+01_dp
1453 fit_coef(0, 4) = 3.1025521547243406e-01_dp
1454 fit_coef(1, 4) = -5.5670514020829420e-04_dp
1455 fit_coef(2, 4) = 1.0283519940275256e+00_dp
1456 fit_coef(3, 4) = -5.3051948737708079e+00_dp
1457 fit_coef(4, 4) = 2.8857705580976056e+01_dp
1458 fit_coef(5, 4) = -1.1904005396455449e+02_dp
1459 fit_coef(6, 4) = 3.6607040216746668e+02_dp
1460 fit_coef(7, 4) = -8.1652968181369386e+02_dp
1461 fit_coef(8, 4) = 1.2917726681162258e+03_dp
1462 fit_coef(9, 4) = -1.4068028264311984e+03_dp
1463 fit_coef(10, 4) = 1.0006527523899351e+03_dp
1464 fit_coef(11, 4) = -4.1792217327242378e+02_dp
1465 fit_coef(12, 4) = 7.7650266966660254e+01_dp
1466 fit_coef(0, 5) = 9.9661072333548284e-01_dp
1467 fit_coef(1, 5) = -1.1171889827697565e-03_dp
1468 fit_coef(2, 5) = 2.0461119945840913e+00_dp
1469 fit_coef(3, 5) = -1.0580601944377532e+01_dp
1470 fit_coef(4, 5) = 5.7146266925973983e+01_dp
1471 fit_coef(5, 5) = -2.3540296082342908e+02_dp
1472 fit_coef(6, 5) = 7.2293490323806668e+02_dp
1473 fit_coef(7, 5) = -1.6114328355080609e+03_dp
1474 fit_coef(8, 5) = 2.5483891682119961e+03_dp
1475 fit_coef(9, 5) = -2.7745316619650062e+03_dp
1476 fit_coef(10, 5) = 1.9729645919543370e+03_dp
1477 fit_coef(11, 5) = -8.2377007268050909e+02_dp
1478 fit_coef(12, 5) = 1.5301212059298075e+02_dp
1479 fit_coef(0, 6) = 2.8871384041721235e+00_dp
1480 fit_coef(1, 6) = -1.8663713535930727e-03_dp
1481 fit_coef(2, 6) = 3.4015318790079183e+00_dp
1482 fit_coef(3, 6) = -1.7613395948721490e+01_dp
1483 fit_coef(4, 6) = 9.4741249061261925e+01_dp
1484 fit_coef(5, 6) = -3.8994245150367010e+02_dp
1485 fit_coef(6, 6) = 1.1965993777329293e+03_dp
1486 fit_coef(7, 6) = -2.6661783300231391e+03_dp
1487 fit_coef(8, 6) = 4.2155136266861591e+03_dp
1488 fit_coef(9, 6) = -4.5888706525865791e+03_dp
1489 fit_coef(10, 6) = 3.2626368424723773e+03_dp
1490 fit_coef(11, 6) = -1.3620271028068767e+03_dp
1491 fit_coef(12, 6) = 2.5294961462574193e+02_dp
1492 fit_coef(0, 7) = 4.4122094885822010e-03_dp
1493 fit_coef(1, 7) = -3.0506026172807132e-05_dp
1494 fit_coef(2, 7) = 5.9262798671013028e-02_dp
1495 fit_coef(3, 7) = -3.0161167176282039e-01_dp
1496 fit_coef(4, 7) = 1.7086225790243108e+00_dp
1497 fit_coef(5, 7) = -7.1111130868609358e+00_dp
1498 fit_coef(6, 7) = 2.2029502145209662e+01_dp
1499 fit_coef(7, 7) = -4.9330933530700591e+01_dp
1500 fit_coef(8, 7) = 7.8203553981541233e+01_dp
1501 fit_coef(9, 7) = -8.5283995941844253e+01_dp
1502 fit_coef(10, 7) = 6.0734937581336254e+01_dp
1503 fit_coef(11, 7) = -2.5396331019128979e+01_dp
1504 fit_coef(12, 7) = 4.7244104190757472e+00_dp
1505 fit_coef(0, 8) = 2.8989148486487894e-02_dp
1506 fit_coef(1, 8) = -9.5531400887653847e-05_dp
1507 fit_coef(2, 8) = 1.7940835754435794e-01_dp
1508 fit_coef(3, 8) = -9.2139806209629660e-01_dp
1509 fit_coef(4, 8) = 5.0793149159385784e+00_dp
1510 fit_coef(5, 8) = -2.0996406588101028e+01_dp
1511 fit_coef(6, 8) = 6.4728578095110564e+01_dp
1512 fit_coef(7, 8) = -1.4454498390418735e+02_dp
1513 fit_coef(8, 8) = 2.2882213635238523e+02_dp
1514 fit_coef(9, 8) = -2.4934889854822558e+02_dp
1515 fit_coef(10, 8) = 1.7747811343984634e+02_dp
1516 fit_coef(11, 8) = -7.4175788381531561e+01_dp
1517 fit_coef(12, 8) = 1.3791699026484896e+01_dp
1518 fit_coef(0, 9) = 1.1867775101904349e-01_dp
1519 fit_coef(1, 9) = -2.3002545083394702e-04_dp
1520 fit_coef(2, 9) = 4.2351088978816531e-01_dp
1521 fit_coef(3, 9) = -2.1868332609774375e+00_dp
1522 fit_coef(4, 9) = 1.1863193969553315e+01_dp
1523 fit_coef(5, 9) = -4.8911381713192242e+01_dp
1524 fit_coef(6, 9) = 1.5033689264253886e+02_dp
1525 fit_coef(7, 9) = -3.3524655332010315e+02_dp
1526 fit_coef(8, 9) = 5.3030221224968204e+02_dp
1527 fit_coef(9, 9) = -5.7746463929962727e+02_dp
1528 fit_coef(10, 9) = 4.1070292367082004e+02_dp
1529 fit_coef(11, 9) = -1.7150997861389590e+02_dp
1530 fit_coef(12, 9) = 3.1862954979470953e+01_dp
1531 fit_coef(0, 10) = 3.8613921710382521e-01_dp
1532 fit_coef(1, 10) = -4.4141730884221628e-04_dp
1533 fit_coef(2, 10) = 8.0440006468030922e-01_dp
1534 fit_coef(3, 10) = -4.1653901689708244e+00_dp
1535 fit_coef(4, 10) = 2.2403190787145370e+01_dp
1536 fit_coef(5, 10) = -9.2211974413485876e+01_dp
1537 fit_coef(6, 10) = 2.8295925585741463e+02_dp
1538 fit_coef(7, 10) = -6.3046689253660929e+02_dp
1539 fit_coef(8, 10) = 9.9682217293895803e+02_dp
1540 fit_coef(9, 10) = -1.0850822438050727e+03_dp
1541 fit_coef(10, 10) = 7.7146124564531726e+02_dp
1542 fit_coef(11, 10) = -3.2204769431435153e+02_dp
1543 fit_coef(12, 10) = 5.9807896790490901e+01_dp
1544 fit_coef(0, 11) = 1.0973261216294632e+00_dp
1545 fit_coef(1, 11) = -6.7305790071552931e-04_dp
1546 fit_coef(2, 11) = 1.2191563472414737e+00_dp
1547 fit_coef(3, 11) = -6.3236622978399160e+00_dp
1548 fit_coef(4, 11) = 3.3838641149158832e+01_dp
1549 fit_coef(5, 11) = -1.3912998330249843e+02_dp
1550 fit_coef(6, 11) = 4.2651665499720167e+02_dp
1551 fit_coef(7, 11) = -9.4985408069387211e+02_dp
1552 fit_coef(8, 11) = 1.5014096221052871e+03_dp
1553 fit_coef(9, 11) = -1.6340457638756484e+03_dp
1554 fit_coef(10, 11) = 1.1615527639524207e+03_dp
1555 fit_coef(11, 11) = -4.8480157740581882e+02_dp
1556 fit_coef(12, 11) = 9.0015704436915854e+01_dp
1557 fit_coef(0, 12) = 3.0334100910855679e+00_dp
1558 fit_coef(1, 12) = -8.0128677103265039e-04_dp
1559 fit_coef(2, 12) = 1.4492945609869972e+00_dp
1560 fit_coef(3, 12) = -7.5204430315974555e+00_dp
1561 fit_coef(4, 12) = 4.0192517443549171e+01_dp
1562 fit_coef(5, 12) = -1.6520813224035805e+02_dp
1563 fit_coef(6, 12) = 5.0634186437136140e+02_dp
1564 fit_coef(7, 12) = -1.1274845628371224e+03_dp
1565 fit_coef(8, 12) = 1.7820754347486288e+03_dp
1566 fit_coef(9, 12) = -1.9394275221726205e+03_dp
1567 fit_coef(10, 12) = 1.3785794074607632e+03_dp
1568 fit_coef(11, 12) = -5.7535942912689143e+02_dp
1569 fit_coef(12, 12) = 1.0682548193028630e+02_dp
1570
1571 END SUBROUTINE get_fit_coef_k6_lo
1572
1573! **************************************************************************************************
1574!> \brief ...
1575!> \param k ...
1576!> \param fit_coef ...
1577!> \param L_b ...
1578!> \param U_b ...
1579! **************************************************************************************************
1580 SUBROUTINE get_fit_coef_k7_sh(k, fit_coef, L_b, U_b)
1581 INTEGER :: k
1582 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
1583 REAL(kind=dp) :: l_b, u_b
1584
1585 l_b = 2.0000000000000000e+00_dp
1586 u_b = 1.0000000000000000e+02_dp
1587 fit_coef(0, 1) = 8.4890821794056659e-03_dp
1588 fit_coef(1, 1) = 3.3909965321659449e-02_dp
1589 fit_coef(2, 1) = 6.7634541203882806e-02_dp
1590 fit_coef(3, 1) = 7.6353562644566234e-02_dp
1591 fit_coef(4, 1) = 3.5948563267733900e-02_dp
1592 fit_coef(5, 1) = -2.5771176000865662e-02_dp
1593 fit_coef(6, 1) = -4.0945070980132330e-02_dp
1594 fit_coef(7, 1) = -4.3343260753829285e-02_dp
1595 fit_coef(8, 1) = 1.3815432901925578e-01_dp
1596 fit_coef(9, 1) = -1.7538024437982933e-01_dp
1597 fit_coef(10, 1) = 1.6543062150575619e-01_dp
1598 fit_coef(11, 1) = -9.1169573964789280e-02_dp
1599 fit_coef(12, 1) = 2.0264349482170308e-02_dp
1600 fit_coef(0, 2) = 5.0116642286956788e-02_dp
1601 fit_coef(1, 2) = 1.8365009326344528e-01_dp
1602 fit_coef(2, 2) = 3.5986371694373215e-01_dp
1603 fit_coef(3, 2) = 3.9798008193331352e-01_dp
1604 fit_coef(4, 2) = 1.7835093713215566e-01_dp
1605 fit_coef(5, 2) = -1.3327325046872260e-01_dp
1606 fit_coef(6, 2) = -2.2419539361558347e-01_dp
1607 fit_coef(7, 2) = -1.5459559592831851e-01_dp
1608 fit_coef(8, 2) = 5.7498920152238775e-01_dp
1609 fit_coef(9, 2) = -7.2077559903241084e-01_dp
1610 fit_coef(10, 2) = 6.9718992787938672e-01_dp
1611 fit_coef(11, 2) = -3.9787065520994253e-01_dp
1612 fit_coef(12, 2) = 9.0654023942071268e-02_dp
1613 fit_coef(0, 3) = 1.5366998360970857e-01_dp
1614 fit_coef(1, 3) = 4.7204846669452077e-01_dp
1615 fit_coef(2, 3) = 8.8325935893055196e-01_dp
1616 fit_coef(3, 3) = 9.5894564770013224e-01_dp
1617 fit_coef(4, 3) = 4.2827132793975348e-01_dp
1618 fit_coef(5, 3) = -3.2332267433019096e-01_dp
1619 fit_coef(6, 3) = -6.1277314101509384e-01_dp
1620 fit_coef(7, 3) = -3.1904891130696167e-01_dp
1621 fit_coef(8, 3) = 1.7347388703763822e+00_dp
1622 fit_coef(9, 3) = -2.4531109689297721e+00_dp
1623 fit_coef(10, 3) = 2.2903712151885607e+00_dp
1624 fit_coef(11, 3) = -1.2225979103964606e+00_dp
1625 fit_coef(12, 3) = 2.6689160566637776e-01_dp
1626 fit_coef(0, 4) = 3.9160355914825828e-01_dp
1627 fit_coef(1, 4) = 9.3781039645429920e-01_dp
1628 fit_coef(2, 4) = 1.6046991663294892e+00_dp
1629 fit_coef(3, 4) = 1.6443527376353326e+00_dp
1630 fit_coef(4, 4) = 8.0944769705145370e-01_dp
1631 fit_coef(5, 4) = -5.1143473303498077e-01_dp
1632 fit_coef(6, 4) = -5.2679642212467515e-01_dp
1633 fit_coef(7, 4) = -1.8364447956089240e+00_dp
1634 fit_coef(8, 4) = 2.5683156855002216e+00_dp
1635 fit_coef(9, 4) = 1.5501948487951303e-01_dp
1636 fit_coef(10, 4) = -1.8725579182282932e+00_dp
1637 fit_coef(11, 4) = 1.2221919802984111e+00_dp
1638 fit_coef(12, 4) = -2.7544768102671480e-01_dp
1639 fit_coef(0, 5) = 9.1783363747242741e-01_dp
1640 fit_coef(1, 5) = 1.6309461105431255e+00_dp
1641 fit_coef(2, 5) = 2.4937510867743007e+00_dp
1642 fit_coef(3, 5) = 2.2928527582942770e+00_dp
1643 fit_coef(4, 5) = 9.1128547426324147e-01_dp
1644 fit_coef(5, 5) = 9.6182376136104375e-01_dp
1645 fit_coef(6, 5) = -6.3804461030632824e+00_dp
1646 fit_coef(7, 5) = 1.5896262996437345e+01_dp
1647 fit_coef(8, 5) = -3.2697959752155285e+01_dp
1648 fit_coef(9, 5) = 4.0204694276308771e+01_dp
1649 fit_coef(10, 5) = -2.6993883785520257e+01_dp
1650 fit_coef(11, 5) = 9.1873159371192017e+00_dp
1651 fit_coef(12, 5) = -1.2193412409631701e+00_dp
1652 fit_coef(0, 6) = 2.0447798807240689e+00_dp
1653 fit_coef(1, 6) = 2.5647815805469976e+00_dp
1654 fit_coef(2, 6) = 3.5222500643076748e+00_dp
1655 fit_coef(3, 6) = 2.7811523063687598e+00_dp
1656 fit_coef(4, 6) = 1.2018538663100924e+00_dp
1657 fit_coef(5, 6) = -5.4703655436328180e-01_dp
1658 fit_coef(6, 6) = 3.2225185493071979e+00_dp
1659 fit_coef(7, 6) = -1.4146455603976277e+01_dp
1660 fit_coef(8, 6) = 3.4172972270754862e+01_dp
1661 fit_coef(9, 6) = -5.7518986665041560e+01_dp
1662 fit_coef(10, 6) = 5.7935519876217747e+01_dp
1663 fit_coef(11, 6) = -3.0472542712278077e+01_dp
1664 fit_coef(12, 6) = 6.4684369280250085e+00_dp
1665 fit_coef(0, 7) = 4.4889127849133947e+00_dp
1666 fit_coef(1, 7) = 3.6844329124185262e+00_dp
1667 fit_coef(2, 7) = 4.6629325988561545e+00_dp
1668 fit_coef(3, 7) = 3.2053175028746703e+00_dp
1669 fit_coef(4, 7) = 1.1894024823027469e+00_dp
1670 fit_coef(5, 7) = -5.5664546189271846e-01_dp
1671 fit_coef(6, 7) = 4.4797254977157817e+00_dp
1672 fit_coef(7, 7) = -1.3162135892918478e+01_dp
1673 fit_coef(8, 7) = 2.6920639733012177e+01_dp
1674 fit_coef(9, 7) = -3.7885356014248515e+01_dp
1675 fit_coef(10, 7) = 3.0404958289755267e+01_dp
1676 fit_coef(11, 7) = -1.2048234826847173e+01_dp
1677 fit_coef(12, 7) = 1.7536434043357469e+00_dp
1678 fit_coef(0, 8) = 2.2333642667863175e-02_dp
1679 fit_coef(1, 8) = 8.7650336191702150e-02_dp
1680 fit_coef(2, 8) = 1.7407545680352357e-01_dp
1681 fit_coef(3, 8) = 1.9523723539373550e-01_dp
1682 fit_coef(4, 8) = 9.1078382735736693e-02_dp
1683 fit_coef(5, 8) = -6.5238131379128483e-02_dp
1684 fit_coef(6, 8) = -1.0790743432696713e-01_dp
1685 fit_coef(7, 8) = -1.0055162956331706e-01_dp
1686 fit_coef(8, 8) = 3.3608939631307738e-01_dp
1687 fit_coef(9, 8) = -4.2744783871398162e-01_dp
1688 fit_coef(10, 8) = 4.0569757577173882e-01_dp
1689 fit_coef(11, 8) = -2.2517859275370616e-01_dp
1690 fit_coef(12, 8) = 5.0308943083685061e-02_dp
1691 fit_coef(0, 9) = 6.5162011076589435e-02_dp
1692 fit_coef(1, 9) = 2.1474236673046285e-01_dp
1693 fit_coef(2, 9) = 4.1104112490299882e-01_dp
1694 fit_coef(3, 9) = 4.4722258512292351e-01_dp
1695 fit_coef(4, 9) = 1.8925685414469240e-01_dp
1696 fit_coef(5, 9) = -1.5238925014408933e-01_dp
1697 fit_coef(6, 9) = -2.8181109625687978e-01_dp
1698 fit_coef(7, 9) = 4.2073721801476338e-03_dp
1699 fit_coef(8, 9) = 2.9605389145708244e-01_dp
1700 fit_coef(9, 9) = -3.8389360909607761e-01_dp
1701 fit_coef(10, 9) = 4.5264861145927554e-01_dp
1702 fit_coef(11, 9) = -3.0203559346875924e-01_dp
1703 fit_coef(12, 9) = 7.4860217823464928e-02_dp
1704 fit_coef(0, 10) = 1.5346948637055580e-01_dp
1705 fit_coef(1, 10) = 3.6854433133610354e-01_dp
1706 fit_coef(2, 10) = 6.2892668627471893e-01_dp
1707 fit_coef(3, 10) = 6.5477471935299725e-01_dp
1708 fit_coef(4, 10) = 3.3294850052423303e-01_dp
1709 fit_coef(5, 10) = -2.7649376642801776e-01_dp
1710 fit_coef(6, 10) = -8.0513348586680189e-03_dp
1711 fit_coef(7, 10) = -2.0751899699120990e+00_dp
1712 fit_coef(8, 10) = 5.2487682729558243e+00_dp
1713 fit_coef(9, 10) = -6.5715600622772241e+00_dp
1714 fit_coef(10, 10) = 4.9805286462168388e+00_dp
1715 fit_coef(11, 10) = -2.1493517756117457e+00_dp
1716 fit_coef(12, 10) = 4.0028581387747814e-01_dp
1717 fit_coef(0, 11) = 3.4692296309076204e-01_dp
1718 fit_coef(1, 11) = 5.7228042968532444e-01_dp
1719 fit_coef(2, 11) = 8.0923016588837160e-01_dp
1720 fit_coef(3, 11) = 6.8825242004374665e-01_dp
1721 fit_coef(4, 11) = 3.0900931504334961e-01_dp
1722 fit_coef(5, 11) = 5.2224154947033075e-01_dp
1723 fit_coef(6, 11) = -2.6356703498487173e+00_dp
1724 fit_coef(7, 11) = 8.5966604379962970e+00_dp
1725 fit_coef(8, 11) = -2.2765680947013255e+01_dp
1726 fit_coef(9, 11) = 3.4684627103439190e+01_dp
1727 fit_coef(10, 11) = -2.9504573991969686e+01_dp
1728 fit_coef(11, 11) = 1.3352471045720314e+01_dp
1729 fit_coef(12, 11) = -2.5338463087754426e+00_dp
1730 fit_coef(0, 12) = 7.5471792316070130e-01_dp
1731 fit_coef(1, 12) = 8.1698667304635597e-01_dp
1732 fit_coef(2, 12) = 9.6453392023721507e-01_dp
1733 fit_coef(3, 12) = 5.8219771460039760e-01_dp
1734 fit_coef(4, 12) = 5.6834288665372115e-02_dp
1735 fit_coef(5, 12) = 9.5294461790630214e-01_dp
1736 fit_coef(6, 12) = -1.9967581073724616e+00_dp
1737 fit_coef(7, 12) = 3.9290913995308978e+00_dp
1738 fit_coef(8, 12) = 7.8240450388508198e-01_dp
1739 fit_coef(9, 12) = -1.8452411993447775e+01_dp
1740 fit_coef(10, 12) = 2.9544447334169273e+01_dp
1741 fit_coef(11, 12) = -1.9185547926257918e+01_dp
1742 fit_coef(12, 12) = 4.6420265475532112e+00_dp
1743 fit_coef(0, 13) = 1.6044221851675884e+00_dp
1744 fit_coef(1, 13) = 1.0402801401561750e+00_dp
1745 fit_coef(2, 13) = 1.0858841570371729e+00_dp
1746 fit_coef(3, 13) = 4.1610384890729457e-01_dp
1747 fit_coef(4, 13) = 3.6067842390926969e-01_dp
1748 fit_coef(5, 13) = -2.5175945757607381e+00_dp
1749 fit_coef(6, 13) = 1.3559516170001507e+01_dp
1750 fit_coef(7, 13) = -3.8412585801701184e+01_dp
1751 fit_coef(8, 13) = 7.5725440762246222e+01_dp
1752 fit_coef(9, 13) = -9.4629438016079902e+01_dp
1753 fit_coef(10, 13) = 6.8485370488181275e+01_dp
1754 fit_coef(11, 13) = -2.5761663952186389e+01_dp
1755 fit_coef(12, 13) = 3.8061288493554284e+00_dp
1756 fit_coef(0, 14) = 3.6234684753265820e+00_dp
1757 fit_coef(1, 14) = 1.1911013659903149e+00_dp
1758 fit_coef(2, 14) = 1.2089364306597108e+00_dp
1759 fit_coef(3, 14) = 4.6442125027798664e-01_dp
1760 fit_coef(4, 14) = -3.1777576152208559e-01_dp
1761 fit_coef(5, 14) = 2.0241094124978116e+00_dp
1762 fit_coef(6, 14) = -8.2031751444577026e+00_dp
1763 fit_coef(7, 14) = 2.9168093356344343e+01_dp
1764 fit_coef(8, 14) = -6.1746832221017200e+01_dp
1765 fit_coef(9, 14) = 8.7168512210629885e+01_dp
1766 fit_coef(10, 14) = -7.6686519988709378e+01_dp
1767 fit_coef(11, 14) = 3.7037473909730942e+01_dp
1768 fit_coef(12, 14) = -7.4610849374495922e+00_dp
1769
1770 END SUBROUTINE get_fit_coef_k7_sh
1771
1772! **************************************************************************************************
1773!> \brief ...
1774!> \param k ...
1775!> \param fit_coef ...
1776!> \param L_b ...
1777!> \param U_b ...
1778! **************************************************************************************************
1779 SUBROUTINE get_fit_coef_k7_lo(k, fit_coef, L_b, U_b)
1780 INTEGER :: k
1781 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
1782 REAL(kind=dp) :: l_b, u_b
1783
1784 l_b = 1.0000000000000000e+02_dp
1785 u_b = 6.3730000000000000e+03_dp
1786 fit_coef(0, 1) = 6.0677583366177139e-04_dp
1787 fit_coef(1, 1) = 1.2203511941973786e-05_dp
1788 fit_coef(2, 1) = 1.5542282929846361e-02_dp
1789 fit_coef(3, 1) = -8.9625369583599124e-02_dp
1790 fit_coef(4, 1) = 5.4937244690257003e-01_dp
1791 fit_coef(5, 1) = -2.3465783422261945e+00_dp
1792 fit_coef(6, 1) = 7.2618002882762989e+00_dp
1793 fit_coef(7, 1) = -1.5964210654587358e+01_dp
1794 fit_coef(8, 1) = 2.4547214366628502e+01_dp
1795 fit_coef(9, 1) = -2.5732576011672748e+01_dp
1796 fit_coef(10, 1) = 1.7495704575487210e+01_dp
1797 fit_coef(11, 1) = -6.9489399028728807e+00_dp
1798 fit_coef(12, 1) = 1.2232329673889215e+00_dp
1799 fit_coef(0, 2) = 6.6752714913863925e-03_dp
1800 fit_coef(1, 2) = 7.0822129335160658e-05_dp
1801 fit_coef(2, 2) = 9.1986377885775919e-02_dp
1802 fit_coef(3, 2) = -5.3405428642774699e-01_dp
1803 fit_coef(4, 2) = 3.2354397768485041e+00_dp
1804 fit_coef(5, 2) = -1.3775260985114405e+01_dp
1805 fit_coef(6, 2) = 4.2538770413228939e+01_dp
1806 fit_coef(7, 2) = -9.3398515752623808e+01_dp
1807 fit_coef(8, 2) = 1.4350316188715925e+02_dp
1808 fit_coef(9, 2) = -1.5036166589456491e+02_dp
1809 fit_coef(10, 2) = 1.0220160925073999e+02_dp
1810 fit_coef(11, 2) = -4.0584863952257315e+01_dp
1811 fit_coef(12, 2) = 7.1433481247893695e+00_dp
1812 fit_coef(0, 3) = 3.5329627891532003e-02_dp
1813 fit_coef(1, 3) = 2.2595479303685819e-04_dp
1814 fit_coef(2, 3) = 3.0068670299306055e-01_dp
1815 fit_coef(3, 3) = -1.7613684261571489e+00_dp
1816 fit_coef(4, 3) = 1.0488351739421789e+01_dp
1817 fit_coef(5, 3) = -4.4542175766068205e+01_dp
1818 fit_coef(6, 3) = 1.3710066819725051e+02_dp
1819 fit_coef(7, 3) = -3.0052458124580761e+02_dp
1820 fit_coef(8, 3) = 4.6158839612526646e+02_dp
1821 fit_coef(9, 3) = -4.8381807226730933e+02_dp
1822 fit_coef(10, 3) = 3.2906228868490689e+02_dp
1823 fit_coef(11, 3) = -1.3076538707988345e+02_dp
1824 fit_coef(12, 3) = 2.3031862239615609e+01_dp
1825 fit_coef(0, 4) = 1.3636675797272446e-01_dp
1826 fit_coef(1, 4) = 5.6647704292489109e-04_dp
1827 fit_coef(2, 4) = 7.6618173910360343e-01_dp
1828 fit_coef(3, 4) = -4.5142657914579676e+00_dp
1829 fit_coef(4, 4) = 2.6580955043085275e+01_dp
1830 fit_coef(5, 4) = -1.1272540497018385e+02_dp
1831 fit_coef(6, 4) = 3.4623696291949358e+02_dp
1832 fit_coef(7, 4) = -7.5826687162428038e+02_dp
1833 fit_coef(8, 4) = 1.1645610278715124e+03_dp
1834 fit_coef(9, 4) = -1.2210276266592973e+03_dp
1835 fit_coef(10, 4) = 8.3085597800660651e+02_dp
1836 fit_coef(11, 4) = -3.3033932676724800e+02_dp
1837 fit_coef(12, 4) = 5.8211140143063389e+01_dp
1838 fit_coef(0, 5) = 4.3692354129416011e-01_dp
1839 fit_coef(1, 5) = 1.1976571152026670e-03_dp
1840 fit_coef(2, 5) = 1.6377604996306871e+00_dp
1841 fit_coef(3, 5) = -9.6866759364374868e+00_dp
1842 fit_coef(4, 5) = 5.6612700356628949e+01_dp
1843 fit_coef(5, 5) = -2.3984102923713382e+02_dp
1844 fit_coef(6, 5) = 7.3561273922776581e+02_dp
1845 fit_coef(7, 5) = -1.6099560282310861e+03_dp
1846 fit_coef(8, 5) = 2.4723564756113196e+03_dp
1847 fit_coef(9, 5) = -2.5927151309452665e+03_dp
1848 fit_coef(10, 5) = 1.7647692924297401e+03_dp
1849 fit_coef(11, 5) = -7.0188939174830352e+02_dp
1850 fit_coef(12, 5) = 1.2372418269084275e+02_dp
1851 fit_coef(0, 6) = 1.2378497399176813e+00_dp
1852 fit_coef(1, 6) = 2.1799404763566546e-03_dp
1853 fit_coef(2, 6) = 3.0033304053549266e+00_dp
1854 fit_coef(3, 6) = -1.7809339259291960e+01_dp
1855 fit_coef(4, 6) = 1.0356146048512531e+02_dp
1856 fit_coef(5, 6) = -4.3841186307805572e+02_dp
1857 fit_coef(6, 6) = 1.3433098010233427e+03_dp
1858 fit_coef(7, 6) = -2.9385308911410843e+03_dp
1859 fit_coef(8, 6) = 4.5121527260780776e+03_dp
1860 fit_coef(9, 6) = -4.7323142457902477e+03_dp
1861 fit_coef(10, 6) = 3.2217506991135392e+03_dp
1862 fit_coef(11, 6) = -1.2816488835906916e+03_dp
1863 fit_coef(12, 6) = 2.2596889581599186e+02_dp
1864 fit_coef(0, 7) = 3.2781853114633690e+00_dp
1865 fit_coef(1, 7) = 3.4389001435898561e-03_dp
1866 fit_coef(2, 7) = 4.7592429785757018e+00_dp
1867 fit_coef(3, 7) = -2.8265375133025159e+01_dp
1868 fit_coef(4, 7) = 1.6386545527527471e+02_dp
1869 fit_coef(5, 7) = -6.9336876574524956e+02_dp
1870 fit_coef(6, 7) = 2.1232162962264451e+03_dp
1871 fit_coef(7, 7) = -4.6431587196422133e+03_dp
1872 fit_coef(8, 7) = 7.1291035126709503e+03_dp
1873 fit_coef(9, 7) = -7.4773722512143786e+03_dp
1874 fit_coef(10, 7) = 5.0911609048640648e+03_dp
1875 fit_coef(11, 7) = -2.0255881694388165e+03_dp
1876 fit_coef(12, 7) = 3.5717987126526839e+02_dp
1877 fit_coef(0, 8) = 1.9397592535656612e-03_dp
1878 fit_coef(1, 8) = 3.1224136945126820e-05_dp
1879 fit_coef(2, 8) = 3.9794210955105026e-02_dp
1880 fit_coef(3, 8) = -2.2945121723050055e-01_dp
1881 fit_coef(4, 8) = 1.4081093618036822e+00_dp
1882 fit_coef(5, 8) = -6.0128883949026397e+00_dp
1883 fit_coef(6, 8) = 1.8615856974219142e+01_dp
1884 fit_coef(7, 8) = -4.0950738259707443e+01_dp
1885 fit_coef(8, 8) = 6.2995147189900791e+01_dp
1886 fit_coef(9, 8) = -6.6049282238872578e+01_dp
1887 fit_coef(10, 8) = 4.4906773129267386e+01_dp
1888 fit_coef(11, 8) = -1.7833720418073618e+01_dp
1889 fit_coef(12, 8) = 3.1386820276994531e+00_dp
1890 fit_coef(0, 9) = 1.2744789430102283e-02_dp
1891 fit_coef(1, 9) = 9.4709522213266069e-05_dp
1892 fit_coef(2, 9) = 1.2561186892205739e-01_dp
1893 fit_coef(3, 9) = -7.3485105104893944e-01_dp
1894 fit_coef(4, 9) = 4.3871454899236513e+00_dp
1895 fit_coef(5, 9) = -1.8627306443837497e+01_dp
1896 fit_coef(6, 9) = 5.7355825078700910e+01_dp
1897 fit_coef(7, 9) = -1.2570281346740651e+02_dp
1898 fit_coef(8, 9) = 1.9298761023815177e+02_dp
1899 fit_coef(9, 9) = -2.0218882506002689e+02_dp
1900 fit_coef(10, 9) = 1.3746187852198693e+02_dp
1901 fit_coef(11, 9) = -5.4608420832822929e+01_dp
1902 fit_coef(12, 9) = 9.6158489721068801e+00_dp
1903 fit_coef(0, 10) = 5.2173333294315491e-02_dp
1904 fit_coef(1, 10) = 2.3055569105486745e-04_dp
1905 fit_coef(2, 10) = 3.1278409064824336e-01_dp
1906 fit_coef(3, 10) = -1.8448833978165269e+00_dp
1907 fit_coef(4, 10) = 1.0840143395546759e+01_dp
1908 fit_coef(5, 10) = -4.5958901600709979e+01_dp
1909 fit_coef(6, 10) = 1.4110750881102726e+02_dp
1910 fit_coef(7, 10) = -3.0897514713921822e+02_dp
1911 fit_coef(8, 10) = 4.7453270093475732e+02_dp
1912 fit_coef(9, 10) = -4.9757949866356881e+02_dp
1913 fit_coef(10, 10) = 3.3861207241883631e+02_dp
1914 fit_coef(11, 10) = -1.3464036769091453e+02_dp
1915 fit_coef(12, 10) = 2.3727726896949317e+01_dp
1916 fit_coef(0, 11) = 1.6963116889689617e-01_dp
1917 fit_coef(1, 11) = 4.6901741492581534e-04_dp
1918 fit_coef(2, 11) = 6.4447000621439654e-01_dp
1919 fit_coef(3, 11) = -3.8181538304305924e+00_dp
1920 fit_coef(4, 11) = 2.2242335828744238e+01_dp
1921 fit_coef(5, 11) = -9.4193777329169180e+01_dp
1922 fit_coef(6, 11) = 2.8872166699409729e+02_dp
1923 fit_coef(7, 11) = -6.3173717103578508e+02_dp
1924 fit_coef(8, 11) = 9.7012917536585030e+02_dp
1925 fit_coef(9, 11) = -1.0174610499996350e+03_dp
1926 fit_coef(10, 11) = 6.9265148866175264e+02_dp
1927 fit_coef(11, 11) = -2.7552649004097742e+02_dp
1928 fit_coef(12, 11) = 4.8575054818192108e+01_dp
1929 fit_coef(0, 12) = 4.7830241431219889e-01_dp
1930 fit_coef(1, 12) = 8.0536633187941779e-04_dp
1931 fit_coef(2, 12) = 1.1161391199045863e+00_dp
1932 fit_coef(3, 12) = -6.6319638481849212e+00_dp
1933 fit_coef(4, 12) = 3.8412707149315935e+01_dp
1934 fit_coef(5, 12) = -1.6252589178932661e+02_dp
1935 fit_coef(6, 12) = 4.9759933805308168e+02_dp
1936 fit_coef(7, 12) = -1.0881301553940079e+03_dp
1937 fit_coef(8, 12) = 1.6707481111324018e+03_dp
1938 fit_coef(9, 12) = -1.7524442770987675e+03_dp
1939 fit_coef(10, 12) = 1.1932577680169172e+03_dp
1940 fit_coef(11, 12) = -4.7477746229497609e+02_dp
1941 fit_coef(12, 12) = 8.3723024185087226e+01_dp
1942 fit_coef(0, 13) = 1.2328742147617662e+00_dp
1943 fit_coef(1, 13) = 1.1464277359986964e-03_dp
1944 fit_coef(2, 13) = 1.5973172261127475e+00_dp
1945 fit_coef(3, 13) = -9.5083265310456007e+00_dp
1946 fit_coef(4, 13) = 5.4875950711264657e+01_dp
1947 fit_coef(5, 13) = -2.3203772329691336e+02_dp
1948 fit_coef(6, 13) = 7.0989929741104845e+02_dp
1949 fit_coef(7, 13) = -1.5517453595579404e+03_dp
1950 fit_coef(8, 13) = 2.3823114822950174e+03_dp
1951 fit_coef(9, 13) = -2.4989178165580306e+03_dp
1952 fit_coef(10, 13) = 1.7017491667373313e+03_dp
1953 fit_coef(11, 13) = -6.7719904341330835e+02_dp
1954 fit_coef(12, 13) = 1.1943636331258227e+02_dp
1955 fit_coef(0, 14) = 3.1933956854310037e+00_dp
1956 fit_coef(1, 14) = 1.3428436858287465e-03_dp
1957 fit_coef(2, 14) = 1.8732506344005615e+00_dp
1958 fit_coef(3, 14) = -1.1155445162652324e+01_dp
1959 fit_coef(4, 14) = 6.4329861295470778e+01_dp
1960 fit_coef(5, 14) = -2.7197046053760539e+02_dp
1961 fit_coef(6, 14) = 8.3192845835379330e+02_dp
1962 fit_coef(7, 14) = -1.8182993373416557e+03_dp
1963 fit_coef(8, 14) = 2.7914396608814409e+03_dp
1964 fit_coef(9, 14) = -2.9280874922129306e+03_dp
1965 fit_coef(10, 14) = 1.9940610145207027e+03_dp
1966 fit_coef(11, 14) = -7.9354809788071543e+02_dp
1967 fit_coef(12, 14) = 1.3996131946484607e+02_dp
1968
1969 END SUBROUTINE get_fit_coef_k7_lo
1970
1971! **************************************************************************************************
1972!> \brief ...
1973!> \param k ...
1974!> \param fit_coef ...
1975!> \param L_b ...
1976!> \param U_b ...
1977! **************************************************************************************************
1978 SUBROUTINE get_fit_coef_k8_sh(k, fit_coef, L_b, U_b)
1979 INTEGER :: k
1980 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
1981 REAL(kind=dp) :: l_b, u_b
1982
1983 l_b = 1.0000000000000000e+01_dp
1984 u_b = 1.0000000000000000e+02_dp
1985 fit_coef(0, 1) = 7.3303678789083827e-03_dp
1986 fit_coef(1, 1) = 1.9068147607663823e-02_dp
1987 fit_coef(2, 1) = 2.4523188619260956e-02_dp
1988 fit_coef(3, 1) = 1.7843299989374534e-02_dp
1989 fit_coef(4, 1) = 5.4214701717497675e-03_dp
1990 fit_coef(5, 1) = -2.4694578878648259e-03_dp
1991 fit_coef(6, 1) = -3.0284493938072380e-03_dp
1992 fit_coef(7, 1) = -1.6609340715173272e-05_dp
1993 fit_coef(8, 1) = 5.8996552393493821e-04_dp
1994 fit_coef(9, 1) = -5.5212702213677864e-05_dp
1995 fit_coef(10, 1) = 3.4862398750072344e-04_dp
1996 fit_coef(11, 1) = -3.9218355438884901e-04_dp
1997 fit_coef(12, 1) = 1.2569394142797241e-04_dp
1998 fit_coef(0, 2) = 4.1899841856663761e-02_dp
1999 fit_coef(1, 2) = 1.0302234723218924e-01_dp
2000 fit_coef(2, 2) = 1.3023821601879626e-01_dp
2001 fit_coef(3, 2) = 9.3099102625574220e-02_dp
2002 fit_coef(4, 2) = 2.7404221544145291e-02_dp
2003 fit_coef(5, 2) = -1.3085499573245986e-02_dp
2004 fit_coef(6, 2) = -1.5582408546316897e-02_dp
2005 fit_coef(7, 2) = 5.2970248514313688e-04_dp
2006 fit_coef(8, 2) = 2.2609393067795900e-03_dp
2007 fit_coef(9, 2) = 4.6279627025403949e-04_dp
2008 fit_coef(10, 2) = 1.4146159928236672e-03_dp
2009 fit_coef(11, 2) = -1.9800386255810288e-03_dp
2010 fit_coef(12, 2) = 6.6847497768620658e-04_dp
2011 fit_coef(0, 3) = 1.2090283026330555e-01_dp
2012 fit_coef(1, 3) = 2.6358046342322966e-01_dp
2013 fit_coef(2, 3) = 3.2173608677475352e-01_dp
2014 fit_coef(3, 3) = 2.2555617000622660e-01_dp
2015 fit_coef(4, 3) = 6.4242254728770876e-02_dp
2016 fit_coef(5, 3) = -3.3531313583337982e-02_dp
2017 fit_coef(6, 3) = -3.7471068968577388e-02_dp
2018 fit_coef(7, 3) = 3.6816061058378741e-03_dp
2019 fit_coef(8, 3) = 6.5687067201372204e-03_dp
2020 fit_coef(9, 3) = -2.6384863361432163e-03_dp
2021 fit_coef(10, 3) = 6.4385556221874555e-03_dp
2022 fit_coef(11, 3) = -6.0511747469316332e-03_dp
2023 fit_coef(12, 3) = 1.8525016625111832e-03_dp
2024 fit_coef(0, 4) = 2.8592429103323302e-01_dp
2025 fit_coef(1, 4) = 5.1841367625987889e-01_dp
2026 fit_coef(2, 4) = 5.9115684453736916e-01_dp
2027 fit_coef(3, 4) = 4.0105593630503783e-01_dp
2028 fit_coef(4, 4) = 1.1948149198856918e-01_dp
2029 fit_coef(5, 4) = -5.2658401069846560e-02_dp
2030 fit_coef(6, 4) = -7.3898713202086491e-02_dp
2031 fit_coef(7, 4) = 9.1566644314021242e-03_dp
2032 fit_coef(8, 4) = -1.1867605759483740e-02_dp
2033 fit_coef(9, 4) = 4.8318451940700932e-02_dp
2034 fit_coef(10, 4) = -3.5186576456035019e-02_dp
2035 fit_coef(11, 4) = 7.7443536084135598e-03_dp
2036 fit_coef(12, 4) = 6.1488354568711538e-04_dp
2037 fit_coef(0, 5) = 6.2290281260653402e-01_dp
2038 fit_coef(1, 5) = 8.9580902133545759e-01_dp
2039 fit_coef(2, 5) = 9.2609808946198835e-01_dp
2040 fit_coef(3, 5) = 5.8224600441757135e-01_dp
2041 fit_coef(4, 5) = 1.7839482993919215e-01_dp
2042 fit_coef(5, 5) = -4.6849100928790438e-02_dp
2043 fit_coef(6, 5) = -8.6070770575879779e-02_dp
2044 fit_coef(7, 5) = -1.8640277231677663e-02_dp
2045 fit_coef(8, 5) = 1.1471460387476767e-02_dp
2046 fit_coef(9, 5) = -4.1058254270079884e-02_dp
2047 fit_coef(10, 5) = 1.1306530929746011e-01_dp
2048 fit_coef(11, 5) = -8.8348931981328011e-02_dp
2049 fit_coef(12, 5) = 2.3298598302007475e-02_dp
2050 fit_coef(0, 6) = 1.2950331297092936e+00_dp
2051 fit_coef(1, 6) = 1.4208263619906618e+00_dp
2052 fit_coef(2, 6) = 1.3168706585134538e+00_dp
2053 fit_coef(3, 6) = 7.3735161688744788e-01_dp
2054 fit_coef(4, 6) = 2.1308021650008105e-01_dp
2055 fit_coef(5, 6) = -2.2140636924009825e-02_dp
2056 fit_coef(6, 6) = -6.5523715696762824e-02_dp
2057 fit_coef(7, 6) = -5.5227429757704954e-03_dp
2058 fit_coef(8, 6) = -3.6319163794681919e-02_dp
2059 fit_coef(9, 6) = -2.1057002605029421e-02_dp
2060 fit_coef(10, 6) = 6.7929722094043590e-02_dp
2061 fit_coef(11, 6) = -2.9821898442364107e-02_dp
2062 fit_coef(12, 6) = 2.5847668701003404e-03_dp
2063 fit_coef(0, 7) = 2.6150915219181412e+00_dp
2064 fit_coef(1, 7) = 2.0925013488168447e+00_dp
2065 fit_coef(2, 7) = 1.7517994308499847e+00_dp
2066 fit_coef(3, 7) = 8.5858648940090110e-01_dp
2067 fit_coef(4, 7) = 2.1877243019911102e-01_dp
2068 fit_coef(5, 7) = 9.2380438422983800e-03_dp
2069 fit_coef(6, 7) = -3.5233332041510933e-02_dp
2070 fit_coef(7, 7) = 5.9579661965596109e-02_dp
2071 fit_coef(8, 7) = -1.5530877010597718e-01_dp
2072 fit_coef(9, 7) = 1.1970417799859782e-01_dp
2073 fit_coef(10, 7) = -7.3859936805166476e-02_dp
2074 fit_coef(11, 7) = 3.9401452538859211e-02_dp
2075 fit_coef(12, 7) = -8.0701941615812720e-03_dp
2076 fit_coef(0, 8) = 5.2886811819505075e+00_dp
2077 fit_coef(1, 8) = 2.8791408561019143e+00_dp
2078 fit_coef(2, 8) = 2.2282496597143453e+00_dp
2079 fit_coef(3, 8) = 9.6463274698100221e-01_dp
2080 fit_coef(4, 8) = 2.0804339162869817e-01_dp
2081 fit_coef(5, 8) = 3.8463667107493361e-02_dp
2082 fit_coef(6, 8) = 6.2738138193085286e-03_dp
2083 fit_coef(7, 8) = 1.0100983178342585e-01_dp
2084 fit_coef(8, 8) = -1.8879341637967198e-01_dp
2085 fit_coef(9, 8) = 1.2577637243618989e-01_dp
2086 fit_coef(10, 8) = -4.4240946155634182e-02_dp
2087 fit_coef(11, 8) = -2.7654276880568853e-03_dp
2088 fit_coef(12, 8) = 7.1269217913952432e-03_dp
2089 fit_coef(0, 9) = 1.9153697185214646e-02_dp
2090 fit_coef(1, 9) = 4.9243996218940246e-02_dp
2091 fit_coef(2, 9) = 6.3063039313140626e-02_dp
2092 fit_coef(3, 9) = 4.5675586741478570e-02_dp
2093 fit_coef(4, 9) = 1.3789973749172879e-02_dp
2094 fit_coef(5, 9) = -6.3486543694890422e-03_dp
2095 fit_coef(6, 9) = -7.7438232796799697e-03_dp
2096 fit_coef(7, 9) = 4.2857574556254048e-05_dp
2097 fit_coef(8, 9) = 1.4170649293170209e-03_dp
2098 fit_coef(9, 9) = -6.5915991195257174e-05_dp
2099 fit_coef(10, 9) = 8.5657276913500048e-04_dp
2100 fit_coef(11, 9) = -1.0012786918386677e-03_dp
2101 fit_coef(12, 9) = 3.2416699208711279e-04_dp
2102 fit_coef(0, 10) = 5.2487499010059821e-02_dp
2103 fit_coef(1, 10) = 1.2020367140285117e-01_dp
2104 fit_coef(2, 10) = 1.4885896496539552e-01_dp
2105 fit_coef(3, 10) = 1.0446916703848536e-01_dp
2106 fit_coef(4, 10) = 2.9452247957851872e-02_dp
2107 fit_coef(5, 10) = -1.5096946389090963e-02_dp
2108 fit_coef(6, 10) = -1.6978769798053302e-02_dp
2109 fit_coef(7, 10) = 1.5621840217608987e-03_dp
2110 fit_coef(8, 10) = 1.1498062866988877e-03_dp
2111 fit_coef(9, 10) = 1.5932508408093571e-03_dp
2112 fit_coef(10, 10) = 1.2044209864296811e-03_dp
2113 fit_coef(11, 10) = -2.2799861036947064e-03_dp
2114 fit_coef(12, 10) = 8.0794913771834831e-04_dp
2115 fit_coef(0, 11) = 1.1214831732759308e-01_dp
2116 fit_coef(1, 11) = 2.0374016088705749e-01_dp
2117 fit_coef(2, 11) = 2.3269755141858203e-01_dp
2118 fit_coef(3, 11) = 1.5862165696203001e-01_dp
2119 fit_coef(4, 11) = 4.5536019398208713e-02_dp
2120 fit_coef(5, 11) = -2.4771937060547151e-02_dp
2121 fit_coef(6, 11) = -2.8674783757891342e-02_dp
2122 fit_coef(7, 11) = 3.5158594299659887e-03_dp
2123 fit_coef(8, 11) = 9.3535039711395342e-03_dp
2124 fit_coef(9, 11) = -3.0604392897587429e-03_dp
2125 fit_coef(10, 11) = -6.0143657962914525e-04_dp
2126 fit_coef(11, 11) = 4.2950330778982355e-04_dp
2127 fit_coef(12, 11) = 1.9255873491051108e-05_dp
2128 fit_coef(0, 12) = 2.3171781907279218e-01_dp
2129 fit_coef(1, 12) = 3.1091079731599292e-01_dp
2130 fit_coef(2, 12) = 3.0389179989885584e-01_dp
2131 fit_coef(3, 12) = 1.8532205840012622e-01_dp
2132 fit_coef(4, 12) = 6.2306830325449335e-02_dp
2133 fit_coef(5, 12) = -7.6106859087436904e-03_dp
2134 fit_coef(6, 12) = -3.6599453891127606e-02_dp
2135 fit_coef(7, 12) = 1.5509386794819603e-03_dp
2136 fit_coef(8, 12) = -4.0853132735310875e-02_dp
2137 fit_coef(9, 12) = 6.6595641401483052e-02_dp
2138 fit_coef(10, 12) = -1.8834300269643112e-02_dp
2139 fit_coef(11, 12) = -1.5460640921107466e-02_dp
2140 fit_coef(12, 12) = 8.1050164047865251e-03_dp
2141 fit_coef(0, 13) = 4.6839273718001340e-01_dp
2142 fit_coef(1, 13) = 4.4848685344087941e-01_dp
2143 fit_coef(2, 13) = 3.6456593426754630e-01_dp
2144 fit_coef(3, 13) = 1.7154603893334677e-01_dp
2145 fit_coef(4, 13) = 5.0029581620847113e-02_dp
2146 fit_coef(5, 13) = 1.7043310105799386e-02_dp
2147 fit_coef(6, 13) = 1.3624711461006474e-02_dp
2148 fit_coef(7, 13) = -4.0467589755335792e-02_dp
2149 fit_coef(8, 13) = 6.0917156869027100e-02_dp
2150 fit_coef(9, 13) = -1.7391850945484083e-01_dp
2151 fit_coef(10, 13) = 1.9540773247888954e-01_dp
2152 fit_coef(11, 13) = -8.8667454786059030e-02_dp
2153 fit_coef(12, 13) = 1.3511223411471382e-02_dp
2154 fit_coef(0, 14) = 9.2519886811346685e-01_dp
2155 fit_coef(1, 14) = 6.0160298038546722e-01_dp
2156 fit_coef(2, 14) = 4.1486918310874005e-01_dp
2157 fit_coef(3, 14) = 1.3735307260002044e-01_dp
2158 fit_coef(4, 14) = 1.8815781506297060e-02_dp
2159 fit_coef(5, 14) = 3.0299118585638541e-02_dp
2160 fit_coef(6, 14) = 2.2993724328518487e-02_dp
2161 fit_coef(7, 14) = 6.5423665107552431e-02_dp
2162 fit_coef(8, 14) = -1.4716829076991533e-01_dp
2163 fit_coef(9, 14) = 1.9132722353109541e-01_dp
2164 fit_coef(10, 14) = -2.2566102318270043e-01_dp
2165 fit_coef(11, 14) = 1.4512891962640706e-01_dp
2166 fit_coef(12, 14) = -3.4869303190922442e-02_dp
2167 fit_coef(0, 15) = 1.8180761389140441e+00_dp
2168 fit_coef(1, 15) = 7.3545411157338625e-01_dp
2169 fit_coef(2, 15) = 4.5382578616281255e-01_dp
2170 fit_coef(3, 15) = 1.0815904182157396e-01_dp
2171 fit_coef(4, 15) = -5.0564441213593594e-03_dp
2172 fit_coef(5, 15) = 3.1009296969077782e-02_dp
2173 fit_coef(6, 15) = 3.8543619111406462e-02_dp
2174 fit_coef(7, 15) = 4.9577607054581169e-02_dp
2175 fit_coef(8, 15) = -6.0901972233113555e-02_dp
2176 fit_coef(9, 15) = 4.4164548268671569e-02_dp
2177 fit_coef(10, 15) = -1.6420936751689871e-02_dp
2178 fit_coef(11, 15) = -1.9128788572305898e-02_dp
2179 fit_coef(12, 15) = 1.2610902336520378e-02_dp
2180 fit_coef(0, 16) = 3.8678537708718710e+00_dp
2181 fit_coef(1, 16) = 8.3755983422995561e-01_dp
2182 fit_coef(2, 16) = 5.0744880083562161e-01_dp
2183 fit_coef(3, 16) = 1.1252857834008548e-01_dp
2184 fit_coef(4, 16) = -1.3783956985565306e-02_dp
2185 fit_coef(5, 16) = 2.6967047539614656e-02_dp
2186 fit_coef(6, 16) = 4.1533124322160005e-02_dp
2187 fit_coef(7, 16) = 4.2761766824422134e-02_dp
2188 fit_coef(8, 16) = -3.1110880765649707e-02_dp
2189 fit_coef(9, 16) = 1.0013876986386597e-02_dp
2190 fit_coef(10, 16) = 2.7350239856939598e-02_dp
2191 fit_coef(11, 16) = -3.3885317157732221e-02_dp
2192 fit_coef(12, 16) = 1.0044298911104206e-02_dp
2193
2194 END SUBROUTINE get_fit_coef_k8_sh
2195
2196! **************************************************************************************************
2197!> \brief ...
2198!> \param k ...
2199!> \param fit_coef ...
2200!> \param L_b ...
2201!> \param U_b ...
2202! **************************************************************************************************
2203 SUBROUTINE get_fit_coef_k8_lo(k, fit_coef, L_b, U_b)
2204 INTEGER :: k
2205 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
2206 REAL(kind=dp) :: l_b, u_b
2207
2208 l_b = 1.0000000000000000e+02_dp
2209 u_b = 1.3749000000000000e+04_dp
2210 fit_coef(0, 1) = 2.8123802981039521e-04_dp
2211 fit_coef(1, 1) = 1.5926645040140255e-05_dp
2212 fit_coef(2, 1) = 1.0329030933196252e-02_dp
2213 fit_coef(3, 1) = -6.4007908632844474e-02_dp
2214 fit_coef(4, 1) = 4.1161308446326278e-01_dp
2215 fit_coef(5, 1) = -1.7624808185774974e+00_dp
2216 fit_coef(6, 1) = 5.3986045573131776e+00_dp
2217 fit_coef(7, 1) = -1.1672753089064145e+01_dp
2218 fit_coef(8, 1) = 1.7591571465892009e+01_dp
2219 fit_coef(9, 1) = -1.8028596170855813e+01_dp
2220 fit_coef(10, 1) = 1.1956816057777168e+01_dp
2221 fit_coef(11, 1) = -4.6228922203591667e+00_dp
2222 fit_coef(12, 1) = 7.9068650631410775e-01_dp
2223 fit_coef(0, 2) = 3.0940667380651658e-03_dp
2224 fit_coef(1, 2) = 9.4603372213690319e-05_dp
2225 fit_coef(2, 2) = 6.2371593714423038e-02_dp
2226 fit_coef(3, 2) = -3.9061079256549203e-01_dp
2227 fit_coef(4, 2) = 2.4800148089165819e+00_dp
2228 fit_coef(5, 2) = -1.0590097222199683e+01_dp
2229 fit_coef(6, 2) = 3.2358288023437467e+01_dp
2230 fit_coef(7, 2) = -6.9843326031928697e+01_dp
2231 fit_coef(8, 2) = 1.0512898764379077e+02_dp
2232 fit_coef(9, 2) = -1.0764631696630022e+02_dp
2233 fit_coef(10, 2) = 7.1348387712368961e+01_dp
2234 fit_coef(11, 2) = -2.7573670968312566e+01_dp
2235 fit_coef(12, 2) = 4.7147055876112587e+00_dp
2236 fit_coef(0, 3) = 1.6375908158103483e-02_dp
2237 fit_coef(1, 3) = 3.1160349661731832e-04_dp
2238 fit_coef(2, 3) = 2.0927456992109450e-01_dp
2239 fit_coef(3, 3) = -1.3273785824948792e+00_dp
2240 fit_coef(4, 3) = 8.2688701711323898e+00_dp
2241 fit_coef(5, 3) = -3.5220567469598883e+01_dp
2242 fit_coef(6, 3) = 1.0701331897299248e+02_dp
2243 fit_coef(7, 3) = -2.2989760166900771e+02_dp
2244 fit_coef(8, 3) = 3.4493893446724235e+02_dp
2245 fit_coef(9, 3) = -3.5248615129301214e+02_dp
2246 fit_coef(10, 3) = 2.3334466251650863e+02_dp
2247 fit_coef(11, 3) = -9.0116552857752083e+01_dp
2248 fit_coef(12, 3) = 1.5403005349166568e+01_dp
2249 fit_coef(0, 4) = 6.3206454085883088e-02_dp
2250 fit_coef(1, 4) = 8.1154192163640840e-04_dp
2251 fit_coef(2, 4) = 5.5144861056801797e-01_dp
2252 fit_coef(3, 4) = -3.5260842601451339e+00_dp
2253 fit_coef(4, 4) = 2.1693237689818268e+01_dp
2254 fit_coef(5, 4) = -9.2258467452491558e+01_dp
2255 fit_coef(6, 4) = 2.7922864280490649e+02_dp
2256 fit_coef(7, 4) = -5.9806470556712168e+02_dp
2257 fit_coef(8, 4) = 8.9553395470219289e+02_dp
2258 fit_coef(9, 4) = -9.1394179906769205e+02_dp
2259 fit_coef(10, 4) = 6.0454016322906523e+02_dp
2260 fit_coef(11, 4) = -2.3336202357129835e+02_dp
2261 fit_coef(12, 4) = 3.9877696019475444e+01_dp
2262 fit_coef(0, 5) = 2.0243266526935697e-01_dp
2263 fit_coef(1, 5) = 1.8020515157672840e-03_dp
2264 fit_coef(2, 5) = 1.2344900509541614e+00_dp
2265 fit_coef(3, 5) = -7.9367169391085666e+00_dp
2266 fit_coef(4, 5) = 4.8422935474594851e+01_dp
2267 fit_coef(5, 5) = -2.0571215987444512e+02_dp
2268 fit_coef(6, 5) = 6.2097865514974285e+02_dp
2269 fit_coef(7, 5) = -1.3272491727851836e+03_dp
2270 fit_coef(8, 5) = 1.9845109548223063e+03_dp
2271 fit_coef(9, 5) = -2.0233745953849727e+03_dp
2272 fit_coef(10, 5) = 1.3376052915228147e+03_dp
2273 fit_coef(11, 5) = -5.1616417908155108e+02_dp
2274 fit_coef(12, 5) = 8.8189346087826550e+01_dp
2275 fit_coef(0, 6) = 5.7157821118623775e-01_dp
2276 fit_coef(1, 6) = 3.5076317937191783e-03_dp
2277 fit_coef(2, 6) = 2.4171981047624476e+00_dp
2278 fit_coef(3, 6) = -1.5600811633970423e+01_dp
2279 fit_coef(4, 6) = 9.4627104824817778e+01_dp
2280 fit_coef(5, 6) = -4.0167179845150463e+02_dp
2281 fit_coef(6, 6) = 1.2102930856782566e+03_dp
2282 fit_coef(7, 6) = -2.5828405060244945e+03_dp
2283 fit_coef(8, 6) = 3.8576577717746441e+03_dp
2284 fit_coef(9, 6) = -3.9303584111835289e+03_dp
2285 fit_coef(10, 6) = 2.5970876357091988e+03_dp
2286 fit_coef(11, 6) = -1.0019128608117558e+03_dp
2287 fit_coef(12, 6) = 1.7115745096843858e+02_dp
2288 fit_coef(0, 7) = 1.4769845791046401e+00_dp
2289 fit_coef(1, 7) = 6.0305390650928353e-03_dp
2290 fit_coef(2, 7) = 4.1735972990944301e+00_dp
2291 fit_coef(3, 7) = -2.7010363741735947e+01_dp
2292 fit_coef(4, 7) = 1.6316505318502820e+02_dp
2293 fit_coef(5, 7) = -6.9218832414970177e+02_dp
2294 fit_coef(6, 7) = 2.0829974158076584e+03_dp
2295 fit_coef(7, 7) = -4.4403073409985855e+03_dp
2296 fit_coef(8, 7) = 6.6265908711188122e+03_dp
2297 fit_coef(9, 7) = -6.7478402025357373e+03_dp
2298 fit_coef(10, 7) = 4.4572806839765526e+03_dp
2299 fit_coef(11, 7) = -1.7191849878725106e+03_dp
2300 fit_coef(12, 7) = 2.9365492248421521e+02_dp
2301 fit_coef(0, 8) = 3.6498674343702047e+00_dp
2302 fit_coef(1, 8) = 9.1861328914861536e-03_dp
2303 fit_coef(2, 8) = 6.3746908376074938e+00_dp
2304 fit_coef(3, 8) = -4.1325382231508740e+01_dp
2305 fit_coef(4, 8) = 2.4901070747707607e+02_dp
2306 fit_coef(5, 8) = -1.0559668335879119e+03_dp
2307 fit_coef(6, 8) = 3.1752073241924800e+03_dp
2308 fit_coef(7, 8) = -6.7638081975788209e+03_dp
2309 fit_coef(8, 8) = 1.0088934681089724e+04_dp
2310 fit_coef(9, 8) = -1.0269971775238855e+04_dp
2311 fit_coef(10, 8) = 6.7823044591615362e+03_dp
2312 fit_coef(11, 8) = -2.6155916262455330e+03_dp
2313 fit_coef(12, 8) = 4.4673488306700750e+02_dp
2314 fit_coef(0, 9) = 8.9908324754226225e-04_dp
2315 fit_coef(1, 9) = 4.1044297500840920e-05_dp
2316 fit_coef(2, 9) = 2.6592960271921522e-02_dp
2317 fit_coef(3, 9) = -1.6475343310038174e-01_dp
2318 fit_coef(4, 9) = 1.0601282924777382e+00_dp
2319 fit_coef(5, 9) = -4.5352614218846243e+00_dp
2320 fit_coef(6, 9) = 1.3894117699928159e+01_dp
2321 fit_coef(7, 9) = -3.0070697693720529e+01_dp
2322 fit_coef(8, 9) = 4.5371751202142313e+01_dp
2323 fit_coef(9, 9) = -4.6549283112947627e+01_dp
2324 fit_coef(10, 9) = 3.0899823469725881e+01_dp
2325 fit_coef(11, 9) = -1.1955338603808340e+01_dp
2326 fit_coef(12, 9) = 2.0459285416163961e+00_dp
2327 fit_coef(0, 10) = 5.9074268743020538e-03_dp
2328 fit_coef(1, 10) = 1.2917982248413781e-04_dp
2329 fit_coef(2, 10) = 8.6643119919001477e-02_dp
2330 fit_coef(3, 10) = -5.4867858026705008e-01_dp
2331 fit_coef(4, 10) = 3.4301753057411557e+00_dp
2332 fit_coef(5, 10) = -1.4614938748597057e+01_dp
2333 fit_coef(6, 10) = 4.4473633864726359e+01_dp
2334 fit_coef(7, 10) = -9.5626734151356388e+01_dp
2335 fit_coef(8, 10) = 1.4351698350787132e+02_dp
2336 fit_coef(9, 10) = -1.4665263177842959e+02_dp
2337 fit_coef(10, 10) = 9.7069655720786628e+01_dp
2338 fit_coef(11, 10) = -3.7481250052554522e+01_dp
2339 fit_coef(12, 10) = 6.4052741628428116e+00_dp
2340 fit_coef(0, 11) = 2.4183310977353760e-02_dp
2341 fit_coef(1, 11) = 3.2874969051224556e-04_dp
2342 fit_coef(2, 11) = 2.2379265645203872e-01_dp
2343 fit_coef(3, 11) = -1.4327470925490047e+00_dp
2344 fit_coef(4, 11) = 8.7976488483593407e+00_dp
2345 fit_coef(5, 11) = -3.7406648187178646e+01_dp
2346 fit_coef(6, 11) = 1.1314765967557075e+02_dp
2347 fit_coef(7, 11) = -2.4223242835221623e+02_dp
2348 fit_coef(8, 11) = 3.6262537126551155e+02_dp
2349 fit_coef(9, 11) = -3.7003484902257611e+02_dp
2350 fit_coef(10, 11) = 2.4474926980111050e+02_dp
2351 fit_coef(11, 11) = -9.4473072063769564e+01_dp
2352 fit_coef(12, 11) = 1.6143361281904095e+01_dp
2353 fit_coef(0, 12) = 7.8618264891410383e-02_dp
2354 fit_coef(1, 12) = 7.0637070558397471e-04_dp
2355 fit_coef(2, 12) = 4.8525758636061883e-01_dp
2356 fit_coef(3, 12) = -3.1258030882321890e+00_dp
2357 fit_coef(4, 12) = 1.9013088969838954e+01_dp
2358 fit_coef(5, 12) = -8.0742838543906203e+01_dp
2359 fit_coef(6, 12) = 2.4349690163060086e+02_dp
2360 fit_coef(7, 12) = -5.2005299814464468e+02_dp
2361 fit_coef(8, 12) = 7.7720399577073124e+02_dp
2362 fit_coef(9, 12) = -7.9217171146497253e+02_dp
2363 fit_coef(10, 12) = 5.2358376975962551e+02_dp
2364 fit_coef(11, 12) = -2.0202246440009665e+02_dp
2365 fit_coef(12, 12) = 3.4515024598323109e+01_dp
2366 fit_coef(0, 13) = 2.2139783616846259e-01_dp
2367 fit_coef(1, 13) = 1.3144046612244267e-03_dp
2368 fit_coef(2, 13) = 9.0893314563834471e-01_dp
2369 fit_coef(3, 13) = -5.8797685805649715e+00_dp
2370 fit_coef(4, 13) = 3.5538337045891197e+01_dp
2371 fit_coef(5, 13) = -1.5078315089899843e+02_dp
2372 fit_coef(6, 13) = 4.5381740391672264e+02_dp
2373 fit_coef(7, 13) = -9.6759884283658630e+02_dp
2374 fit_coef(8, 13) = 1.4442703065970643e+03_dp
2375 fit_coef(9, 13) = -1.4708851169077066e+03_dp
2376 fit_coef(10, 13) = 9.7168186776942412e+02_dp
2377 fit_coef(11, 13) = -3.7480558358376271e+02_dp
2378 fit_coef(12, 13) = 6.4023927170066514e+01_dp
2379 fit_coef(0, 14) = 5.6481431024685758e-01_dp
2380 fit_coef(1, 14) = 2.1175592913405812e-03_dp
2381 fit_coef(2, 14) = 1.4715067019515555e+00_dp
2382 fit_coef(3, 14) = -9.5481410751299673e+00_dp
2383 fit_coef(4, 14) = 5.7450639914728498e+01_dp
2384 fit_coef(5, 14) = -2.4358417666644485e+02_dp
2385 fit_coef(6, 14) = 7.3209348863097784e+02_dp
2386 fit_coef(7, 14) = -1.5589336783178264e+03_dp
2387 fit_coef(8, 14) = 2.3247369231211455e+03_dp
2388 fit_coef(9, 14) = -2.3660752817146231e+03_dp
2389 fit_coef(10, 14) = 1.5624107971537085e+03_dp
2390 fit_coef(11, 14) = -6.0251181283667290e+02_dp
2391 fit_coef(12, 14) = 1.0290483462401868e+02_dp
2392 fit_coef(0, 15) = 1.3539573260602098e+00_dp
2393 fit_coef(1, 15) = 2.8953150568411467e-03_dp
2394 fit_coef(2, 15) = 2.0183462102822127e+00_dp
2395 fit_coef(3, 15) = -1.3121809745507548e+01_dp
2396 fit_coef(4, 15) = 7.8730592243301871e+01_dp
2397 fit_coef(5, 15) = -3.3365664063421633e+02_dp
2398 fit_coef(6, 15) = 1.0019300382950731e+03_dp
2399 fit_coef(7, 15) = -2.1317727140515958e+03_dp
2400 fit_coef(8, 15) = 3.1770143228209445e+03_dp
2401 fit_coef(9, 15) = -3.2321383186557791e+03_dp
2402 fit_coef(10, 15) = 2.1337098849426625e+03_dp
2403 fit_coef(11, 15) = -8.2267510237563181e+02_dp
2404 fit_coef(12, 15) = 1.4049188918686588e+02_dp
2405 fit_coef(0, 16) = 3.3347047868343913e+00_dp
2406 fit_coef(1, 16) = 3.3620771239965489e-03_dp
2407 fit_coef(2, 16) = 2.3453111222189276e+00_dp
2408 fit_coef(3, 16) = -1.5253659417099389e+01_dp
2409 fit_coef(4, 16) = 9.1468857073866545e+01_dp
2410 fit_coef(5, 16) = -3.8760249737899488e+02_dp
2411 fit_coef(6, 16) = 1.1637180704439147e+03_dp
2412 fit_coef(7, 16) = -2.4755718153726775e+03_dp
2413 fit_coef(8, 16) = 3.6888887814157529e+03_dp
2414 fit_coef(9, 16) = -3.7525428895000127e+03_dp
2415 fit_coef(10, 16) = 2.4771015308842470e+03_dp
2416 fit_coef(11, 16) = -9.5503423745582688e+02_dp
2417 fit_coef(12, 16) = 1.6309118629666474e+02_dp
2418
2419 END SUBROUTINE get_fit_coef_k8_lo
2420
2421! **************************************************************************************************
2422!> \brief ...
2423!> \param k ...
2424!> \param fit_coef ...
2425!> \param L_b ...
2426!> \param U_b ...
2427! **************************************************************************************************
2428 SUBROUTINE get_fit_coef_k9_sh(k, fit_coef, L_b, U_b)
2429 INTEGER :: k
2430 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
2431 REAL(kind=dp) :: l_b, u_b
2432
2433 l_b = 1.0000000000000000e+01_dp
2434 u_b = 1.0000000000000000e+02_dp
2435 fit_coef(0, 1) = 6.4552940952308244e-03_dp
2436 fit_coef(1, 1) = 1.6981103140462521e-02_dp
2437 fit_coef(2, 1) = 2.1954315188636421e-02_dp
2438 fit_coef(3, 1) = 1.6041342676653195e-02_dp
2439 fit_coef(4, 1) = 4.8873501014382193e-03_dp
2440 fit_coef(5, 1) = -2.2607549832820450e-03_dp
2441 fit_coef(6, 1) = -2.5816889517990111e-03_dp
2442 fit_coef(7, 1) = -3.3177472147924311e-04_dp
2443 fit_coef(8, 1) = 6.7633586217191212e-04_dp
2444 fit_coef(9, 1) = 5.0154491931341720e-04_dp
2445 fit_coef(10, 1) = -7.5477037926869911e-04_dp
2446 fit_coef(11, 1) = 4.3750564946997106e-04_dp
2447 fit_coef(12, 1) = -1.0884574145659750e-04_dp
2448 fit_coef(0, 2) = 3.6158523047046677e-02_dp
2449 fit_coef(1, 2) = 9.1448302892550112e-02_dp
2450 fit_coef(2, 2) = 1.1643393031728949e-01_dp
2451 fit_coef(3, 2) = 8.3846218207491621e-02_dp
2452 fit_coef(4, 2) = 2.4929838698097138e-02_dp
2453 fit_coef(5, 2) = -1.2000438048214228e-02_dp
2454 fit_coef(6, 2) = -1.3233969051869923e-02_dp
2455 fit_coef(7, 2) = -1.6781088808427976e-03_dp
2456 fit_coef(8, 2) = 3.7175799646608039e-03_dp
2457 fit_coef(9, 2) = 2.3200967656010554e-03_dp
2458 fit_coef(10, 2) = -3.7296821680115493e-03_dp
2459 fit_coef(11, 2) = 2.1900296497794772e-03_dp
2460 fit_coef(12, 2) = -5.4966296541064880e-04_dp
2461 fit_coef(0, 3) = 1.0021175251987058e-01_dp
2462 fit_coef(1, 3) = 2.3290658157250768e-01_dp
2463 fit_coef(2, 3) = 2.8826132533071419e-01_dp
2464 fit_coef(3, 3) = 2.0349781078404069e-01_dp
2465 fit_coef(4, 3) = 5.8186389475606060e-02_dp
2466 fit_coef(5, 3) = -3.0264996373773254e-02_dp
2467 fit_coef(6, 3) = -3.0958058136578551e-02_dp
2468 fit_coef(7, 3) = -3.3385124438745062e-03_dp
2469 fit_coef(8, 3) = 9.8293593154800095e-03_dp
2470 fit_coef(9, 3) = 3.3092123173594926e-03_dp
2471 fit_coef(10, 3) = -6.9541522350748128e-03_dp
2472 fit_coef(11, 3) = 4.3124239191782493e-03_dp
2473 fit_coef(12, 3) = -1.1315599631624136e-03_dp
2474 fit_coef(0, 4) = 2.2411697245587953e-01_dp
2475 fit_coef(1, 4) = 4.5426701810076259e-01_dp
2476 fit_coef(2, 4) = 5.3412584957488496e-01_dp
2477 fit_coef(3, 4) = 3.6826576404725364e-01_dp
2478 fit_coef(4, 4) = 1.0602701865363849e-01_dp
2479 fit_coef(5, 4) = -5.4577502966425870e-02_dp
2480 fit_coef(6, 4) = -5.8813664835258211e-02_dp
2481 fit_coef(7, 4) = -6.1835169673331971e-03_dp
2482 fit_coef(8, 4) = 1.9342657781255358e-02_dp
2483 fit_coef(9, 4) = 1.5715487208569516e-02_dp
2484 fit_coef(10, 4) = -2.9256796795427198e-02_dp
2485 fit_coef(11, 4) = 1.8078340581926571e-02_dp
2486 fit_coef(12, 4) = -4.4135712366918118e-03_dp
2487 fit_coef(0, 5) = 4.5965700239101925e-01_dp
2488 fit_coef(1, 5) = 7.7718614768161642e-01_dp
2489 fit_coef(2, 5) = 8.4369237846467748e-01_dp
2490 fit_coef(3, 5) = 5.5382304325752407e-01_dp
2491 fit_coef(4, 5) = 1.6629027091834961e-01_dp
2492 fit_coef(5, 5) = -6.3214899288962637e-02_dp
2493 fit_coef(6, 5) = -8.7377144006966334e-02_dp
2494 fit_coef(7, 5) = -1.9259962748352861e-02_dp
2495 fit_coef(8, 5) = 5.7845664647801637e-03_dp
2496 fit_coef(9, 5) = 4.9430272241004450e-02_dp
2497 fit_coef(10, 5) = -3.0204735992589018e-02_dp
2498 fit_coef(11, 5) = 1.1560750816998883e-03_dp
2499 fit_coef(12, 5) = 2.2620193192966114e-03_dp
2500 fit_coef(0, 6) = 9.0150523193514287e-01_dp
2501 fit_coef(1, 6) = 1.2281870858285731e+00_dp
2502 fit_coef(2, 6) = 1.2075268204406777e+00_dp
2503 fit_coef(3, 6) = 7.2753542801068738e-01_dp
2504 fit_coef(4, 6) = 2.1703768564838269e-01_dp
2505 fit_coef(5, 6) = -4.9393451753158686e-02_dp
2506 fit_coef(6, 6) = -7.2910241488968047e-02_dp
2507 fit_coef(7, 6) = -7.2551142234446420e-02_dp
2508 fit_coef(8, 6) = 8.0982810239361422e-02_dp
2509 fit_coef(9, 6) = -1.2121381989765857e-01_dp
2510 fit_coef(10, 6) = 1.5600379928593311e-01_dp
2511 fit_coef(11, 6) = -8.4966639309547370e-02_dp
2512 fit_coef(12, 6) = 1.6060557175561714e-02_dp
2513 fit_coef(0, 7) = 1.7180040458559993e+00_dp
2514 fit_coef(1, 7) = 1.8243250896998631e+00_dp
2515 fit_coef(2, 7) = 1.6163577010542527e+00_dp
2516 fit_coef(3, 7) = 8.7029777481360915e-01_dp
2517 fit_coef(4, 7) = 2.4164335157245592e-01_dp
2518 fit_coef(5, 7) = -2.1288880285781901e-02_dp
2519 fit_coef(6, 7) = -4.1346282161013680e-02_dp
2520 fit_coef(7, 7) = -5.2892337289649802e-02_dp
2521 fit_coef(8, 7) = 1.2566897761471612e-02_dp
2522 fit_coef(9, 7) = -3.1238115025798451e-02_dp
2523 fit_coef(10, 7) = 8.8197509236568605e-03_dp
2524 fit_coef(11, 7) = 3.4268320342607482e-02_dp
2525 fit_coef(12, 7) = -1.7500888643553550e-02_dp
2526 fit_coef(0, 8) = 3.2202910229369826e+00_dp
2527 fit_coef(1, 8) = 2.5584863603841099e+00_dp
2528 fit_coef(2, 8) = 2.0603420885505477e+00_dp
2529 fit_coef(3, 8) = 9.8186936771714084e-01_dp
2530 fit_coef(4, 8) = 2.4292352348458562e-01_dp
2531 fit_coef(5, 8) = 1.0777326484119814e-02_dp
2532 fit_coef(6, 8) = 3.4596476543145072e-03_dp
2533 fit_coef(7, 8) = -2.5878994552358304e-02_dp
2534 fit_coef(8, 8) = -2.8942176969688937e-02_dp
2535 fit_coef(9, 8) = 1.7377801484123011e-02_dp
2536 fit_coef(10, 8) = -5.3614378940648612e-02_dp
2537 fit_coef(11, 8) = 5.9949568881798150e-02_dp
2538 fit_coef(12, 8) = -1.7982770689698030e-02_dp
2539 fit_coef(0, 9) = 6.1060543796063369e+00_dp
2540 fit_coef(1, 9) = 3.4046538736762950e+00_dp
2541 fit_coef(2, 9) = 2.5438587661473857e+00_dp
2542 fit_coef(3, 9) = 1.0825640947785635e+00_dp
2543 fit_coef(4, 9) = 2.3188547903431525e-01_dp
2544 fit_coef(5, 9) = 4.0838177926133055e-02_dp
2545 fit_coef(6, 9) = 5.8580319059672786e-02_dp
2546 fit_coef(7, 9) = -2.5983271132225795e-02_dp
2547 fit_coef(8, 9) = 1.2322432042298232e-02_dp
2548 fit_coef(9, 9) = -5.5917635514737024e-02_dp
2549 fit_coef(10, 9) = 2.7316598068796355e-02_dp
2550 fit_coef(11, 9) = 1.8442499628175768e-03_dp
2551 fit_coef(12, 9) = -1.7781863984523483e-03_dp
2552 fit_coef(0, 10) = 1.6794417808730849e-02_dp
2553 fit_coef(1, 10) = 4.3812238879122306e-02_dp
2554 fit_coef(2, 10) = 5.6433388526163281e-02_dp
2555 fit_coef(3, 10) = 4.1089213098926332e-02_dp
2556 fit_coef(4, 10) = 1.2450115917928132e-02_dp
2557 fit_coef(5, 10) = -5.8158386932097572e-03_dp
2558 fit_coef(6, 10) = -6.5845058729652479e-03_dp
2559 fit_coef(7, 10) = -8.4117835741441777e-04_dp
2560 fit_coef(8, 10) = 1.7550704199386239e-03_dp
2561 fit_coef(9, 10) = 1.2453478991127647e-03_dp
2562 fit_coef(10, 10) = -1.9039470025569718e-03_dp
2563 fit_coef(11, 10) = 1.1072558306069514e-03_dp
2564 fit_coef(12, 10) = -2.7613956295636030e-04_dp
2565 fit_coef(0, 11) = 4.4208436478371291e-02_dp
2566 fit_coef(1, 11) = 1.0636068480303659e-01_dp
2567 fit_coef(2, 11) = 1.3297982738437528e-01_dp
2568 fit_coef(3, 11) = 9.4166685284241089e-02_dp
2569 fit_coef(4, 11) = 2.7104946950991506e-02_dp
2570 fit_coef(5, 11) = -1.3725955515035670e-02_dp
2571 fit_coef(6, 11) = -1.4441472385392985e-02_dp
2572 fit_coef(7, 11) = -1.8001873375527177e-03_dp
2573 fit_coef(8, 11) = 4.3120736020466057e-03_dp
2574 fit_coef(9, 11) = 2.3403116157563499e-03_dp
2575 fit_coef(10, 11) = -3.9978958575902293e-03_dp
2576 fit_coef(11, 11) = 2.3671743796162751e-03_dp
2577 fit_coef(12, 11) = -5.9737357121890616e-04_dp
2578 fit_coef(0, 12) = 8.7964729281669957e-02_dp
2579 fit_coef(1, 12) = 1.7861597760308465e-01_dp
2580 fit_coef(2, 12) = 2.1020751169557236e-01_dp
2581 fit_coef(3, 12) = 1.4439439121052172e-01_dp
2582 fit_coef(4, 12) = 3.9618119968394774e-02_dp
2583 fit_coef(5, 12) = -2.3084280501379426e-02_dp
2584 fit_coef(6, 12) = -2.1408162571924363e-02_dp
2585 fit_coef(7, 12) = -1.6462884108872455e-03_dp
2586 fit_coef(8, 12) = 1.0736589853496247e-02_dp
2587 fit_coef(9, 12) = -4.2541437088059438e-03_dp
2588 fit_coef(10, 12) = -9.3740060359603919e-05_dp
2589 fit_coef(11, 12) = 1.2300444443144750e-03_dp
2590 fit_coef(12, 12) = -5.1803647309730399e-04_dp
2591 fit_coef(0, 13) = 1.6822075290435659e-01_dp
2592 fit_coef(1, 13) = 2.6777049222376398e-01_dp
2593 fit_coef(2, 13) = 2.7956089737268164e-01_dp
2594 fit_coef(3, 13) = 1.8086459490735671e-01_dp
2595 fit_coef(4, 13) = 5.6336421826288820e-02_dp
2596 fit_coef(5, 13) = -2.0705833559352838e-02_dp
2597 fit_coef(6, 13) = -3.4790488764663681e-02_dp
2598 fit_coef(7, 13) = -2.0331621831735812e-03_dp
2599 fit_coef(8, 13) = -1.1735723784168657e-02_dp
2600 fit_coef(9, 13) = 6.1673712195088486e-02_dp
2601 fit_coef(10, 13) = -6.7206330987665763e-02_dp
2602 fit_coef(11, 13) = 3.3093275404480781e-02_dp
2603 fit_coef(12, 13) = -6.5493688196066237e-03_dp
2604 fit_coef(0, 14) = 3.1816462977746751e-01_dp
2605 fit_coef(1, 14) = 3.8275682615881462e-01_dp
2606 fit_coef(2, 14) = 3.3806848941519918e-01_dp
2607 fit_coef(3, 14) = 1.8434916370789287e-01_dp
2608 fit_coef(4, 14) = 5.9808120500728569e-02_dp
2609 fit_coef(5, 14) = 4.0170881027690826e-03_dp
2610 fit_coef(6, 14) = -9.8506182208028918e-03_dp
2611 fit_coef(7, 14) = -4.1552347574310020e-02_dp
2612 fit_coef(8, 14) = 4.0058352212536501e-02_dp
2613 fit_coef(9, 14) = -1.0194992831605759e-01_dp
2614 fit_coef(10, 14) = 1.6261296510646620e-01_dp
2615 fit_coef(11, 14) = -1.0779408129071036e-01_dp
2616 fit_coef(12, 14) = 2.6181546202421097e-02_dp
2617 fit_coef(0, 15) = 5.9260717069203162e-01_dp
2618 fit_coef(1, 15) = 5.2236714064676937e-01_dp
2619 fit_coef(2, 15) = 3.8810235742485544e-01_dp
2620 fit_coef(3, 15) = 1.5987501622242634e-01_dp
2621 fit_coef(4, 15) = 3.8676464470426337e-02_dp
2622 fit_coef(5, 15) = 2.2397530474472072e-02_dp
2623 fit_coef(6, 15) = 2.9241369156544045e-02_dp
2624 fit_coef(7, 15) = -2.8237942949318490e-02_dp
2625 fit_coef(8, 15) = 2.5790590509430979e-02_dp
2626 fit_coef(9, 15) = -7.6958891581302161e-02_dp
2627 fit_coef(10, 15) = 3.2763833296732159e-02_dp
2628 fit_coef(11, 15) = 3.0093663681386516e-02_dp
2629 fit_coef(12, 15) = -1.8130008571038608e-02_dp
2630 fit_coef(0, 16) = 1.0894766158803928e+00_dp
2631 fit_coef(1, 16) = 6.6875957514002238e-01_dp
2632 fit_coef(2, 16) = 4.2769216255296599e-01_dp
2633 fit_coef(3, 16) = 1.2558051545388288e-01_dp
2634 fit_coef(4, 16) = 1.1302801231878518e-02_dp
2635 fit_coef(5, 16) = 3.1745607467806851e-02_dp
2636 fit_coef(6, 16) = 3.5806902619106150e-02_dp
2637 fit_coef(7, 16) = 4.4306027813559613e-02_dp
2638 fit_coef(8, 16) = -1.0289320673076535e-01_dp
2639 fit_coef(9, 16) = 1.4936934424649737e-01_dp
2640 fit_coef(10, 16) = -1.9115632729633894e-01_dp
2641 fit_coef(11, 16) = 1.1798136645873131e-01_dp
2642 fit_coef(12, 16) = -2.5669389351849693e-02_dp
2643 fit_coef(0, 17) = 2.0166575300282217e+00_dp
2644 fit_coef(1, 17) = 7.9409079746788347e-01_dp
2645 fit_coef(2, 17) = 4.6030756808902995e-01_dp
2646 fit_coef(3, 17) = 1.0086447786948728e-01_dp
2647 fit_coef(4, 17) = -6.7793884282790666e-03_dp
2648 fit_coef(5, 17) = 3.1537489875332711e-02_dp
2649 fit_coef(6, 17) = 5.2729459288171666e-02_dp
2650 fit_coef(7, 17) = 6.4791698755050928e-03_dp
2651 fit_coef(8, 17) = 2.1264307513768375e-02_dp
2652 fit_coef(9, 17) = -5.0214257290051294e-02_dp
2653 fit_coef(10, 17) = 5.5541231917168123e-02_dp
2654 fit_coef(11, 17) = -4.9625274322895069e-02_dp
2655 fit_coef(12, 17) = 1.7390208326760141e-02_dp
2656 fit_coef(0, 18) = 4.0940777457341033e+00_dp
2657 fit_coef(1, 18) = 9.0230847484016108e-01_dp
2658 fit_coef(2, 18) = 5.1722017559623490e-01_dp
2659 fit_coef(3, 18) = 1.0860069828810702e-01_dp
2660 fit_coef(4, 18) = -1.3407150393913490e-02_dp
2661 fit_coef(5, 18) = 2.8202598978792404e-02_dp
2662 fit_coef(6, 18) = 5.5571528490456060e-02_dp
2663 fit_coef(7, 18) = 1.1439449932901843e-03_dp
2664 fit_coef(8, 18) = 4.1437472839587285e-02_dp
2665 fit_coef(9, 18) = -6.3654618071805502e-02_dp
2666 fit_coef(10, 18) = 6.9641516666139436e-02_dp
2667 fit_coef(11, 18) = -4.3730228367233441e-02_dp
2668 fit_coef(12, 18) = 9.7082624411000788e-03_dp
2669
2670 END SUBROUTINE get_fit_coef_k9_sh
2671
2672! **************************************************************************************************
2673!> \brief ...
2674!> \param k ...
2675!> \param fit_coef ...
2676!> \param L_b ...
2677!> \param U_b ...
2678! **************************************************************************************************
2679 SUBROUTINE get_fit_coef_k9_lo(k, fit_coef, L_b, U_b)
2680 INTEGER :: k
2681 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
2682 REAL(kind=dp) :: l_b, u_b
2683
2684 l_b = 1.0000000000000000e+02_dp
2685 u_b = 2.8387000000000000e+04_dp
2686 fit_coef(0, 1) = 1.3617241890792169e-04_dp
2687 fit_coef(1, 1) = 1.7628977768292345e-05_dp
2688 fit_coef(2, 1) = 6.8456013917834527e-03_dp
2689 fit_coef(3, 1) = -4.3895761081829160e-02_dp
2690 fit_coef(4, 1) = 2.9175828400673420e-01_dp
2691 fit_coef(5, 1) = -1.2306713809247385e+00_dp
2692 fit_coef(6, 1) = 3.6801538863592786e+00_dp
2693 fit_coef(7, 1) = -7.7402871595381262e+00_dp
2694 fit_coef(8, 1) = 1.1345092910279265e+01_dp
2695 fit_coef(9, 1) = -1.1320431537786655e+01_dp
2696 fit_coef(10, 1) = 7.3192031213325555e+00_dp
2697 fit_coef(11, 1) = -2.7615646170479575e+00_dp
2698 fit_coef(12, 1) = 4.6126151831636680e-01_dp
2699 fit_coef(0, 2) = 1.4982089284441154e-03_dp
2700 fit_coef(1, 2) = 1.0653572616093308e-04_dp
2701 fit_coef(2, 2) = 4.2011508058427197e-02_dp
2702 fit_coef(3, 2) = -2.7370993918916198e-01_dp
2703 fit_coef(4, 2) = 1.7939751803412998e+00_dp
2704 fit_coef(5, 2) = -7.5589803739294439e+00_dp
2705 fit_coef(6, 2) = 2.2557089057857102e+01_dp
2706 fit_coef(7, 2) = -4.7359259599571885e+01_dp
2707 fit_coef(8, 2) = 6.9309690166002625e+01_dp
2708 fit_coef(9, 2) = -6.9067026631983438e+01_dp
2709 fit_coef(10, 2) = 4.4604006663335653e+01_dp
2710 fit_coef(11, 2) = -1.6812960687505747e+01_dp
2711 fit_coef(12, 2) = 2.8059777999526059e+00_dp
2712 fit_coef(0, 3) = 7.9297670024187777e-03_dp
2713 fit_coef(1, 3) = 3.5670578026461845e-04_dp
2714 fit_coef(2, 3) = 1.4395693117221828e-01_dp
2715 fit_coef(3, 3) = -9.5715933171411527e-01_dp
2716 fit_coef(4, 3) = 6.1575946587200887e+00_dp
2717 fit_coef(5, 3) = -2.6009500954650985e+01_dp
2718 fit_coef(6, 3) = 7.7302143694085373e+01_dp
2719 fit_coef(7, 3) = -1.6146363554826667e+02_dp
2720 fit_coef(8, 3) = 2.3520423885679529e+02_dp
2721 fit_coef(9, 3) = -2.3348174715185502e+02_dp
2722 fit_coef(10, 3) = 1.5031746608470456e+02_dp
2723 fit_coef(11, 3) = -5.6519157967148246e+01_dp
2724 fit_coef(12, 3) = 9.4136465031151371e+00_dp
2725 fit_coef(0, 4) = 3.0606944390022209e-02_dp
2726 fit_coef(1, 4) = 9.4936819479453946e-04_dp
2727 fit_coef(2, 4) = 3.8897471198892203e-01_dp
2728 fit_coef(3, 4) = -2.6197251988016608e+00_dp
2729 fit_coef(4, 4) = 1.6650781475997896e+01_dp
2730 fit_coef(5, 4) = -7.0453305665193994e+01_dp
2731 fit_coef(6, 4) = 2.0877294584192904e+02_dp
2732 fit_coef(7, 4) = -4.3466952414824391e+02_dp
2733 fit_coef(8, 4) = 6.3140792713339783e+02_dp
2734 fit_coef(9, 4) = -6.2527262377050522e+02_dp
2735 fit_coef(10, 4) = 4.0172259183111106e+02_dp
2736 fit_coef(11, 4) = -1.5078038623522440e+02_dp
2737 fit_coef(12, 4) = 2.5075879780026515e+01_dp
2738 fit_coef(0, 5) = 9.8018953522175933e-02_dp
2739 fit_coef(1, 5) = 2.1720322644464903e-03_dp
2740 fit_coef(2, 5) = 8.9930042879493677e-01_dp
2741 fit_coef(3, 5) = -6.1094240846085883e+00_dp
2742 fit_coef(4, 5) = 3.8522442672428134e+01_dp
2743 fit_coef(5, 5) = -1.6318345003883445e+02_dp
2744 fit_coef(6, 5) = 4.8266158600585260e+02_dp
2745 fit_coef(7, 5) = -1.0027451259770581e+03_dp
2746 fit_coef(8, 5) = 1.4536819184010467e+03_dp
2747 fit_coef(9, 5) = -1.4370066077396380e+03_dp
2748 fit_coef(10, 5) = 9.2184153436145550e+02_dp
2749 fit_coef(11, 5) = -3.4555746263788461e+02_dp
2750 fit_coef(12, 5) = 5.7407542232062980e+01_dp
2751 fit_coef(0, 6) = 2.7659185448391987e-01_dp
2752 fit_coef(1, 6) = 4.4094406641574943e-03_dp
2753 fit_coef(2, 6) = 1.8398642403823151e+00_dp
2754 fit_coef(3, 6) = -1.2577480695844354e+01_dp
2755 fit_coef(4, 6) = 7.8862889072705556e+01_dp
2756 fit_coef(5, 6) = -3.3434171658322168e+02_dp
2757 fit_coef(6, 6) = 9.8773755594540955e+02_dp
2758 fit_coef(7, 6) = -2.0489450065104556e+03_dp
2759 fit_coef(8, 6) = 2.9660415791608848e+03_dp
2760 fit_coef(9, 6) = -2.9282468772949642e+03_dp
2761 fit_coef(10, 6) = 1.8764113820048669e+03_dp
2762 fit_coef(11, 6) = -7.0273375035027368e+02_dp
2763 fit_coef(12, 6) = 1.1665511108284656e+02_dp
2764 fit_coef(0, 7) = 7.1175857336521264e-01_dp
2765 fit_coef(1, 7) = 8.0417831942619766e-03_dp
2766 fit_coef(2, 7) = 3.3752364445702137e+00_dp
2767 fit_coef(3, 7) = -2.3180805628186413e+01_dp
2768 fit_coef(4, 7) = 1.4475705309197897e+02_dp
2769 fit_coef(5, 7) = -6.1407495752819284e+02_dp
2770 fit_coef(6, 7) = 1.8127278994439107e+03_dp
2771 fit_coef(7, 7) = -3.7561578028747299e+03_dp
2772 fit_coef(8, 7) = 5.4315325157499246e+03_dp
2773 fit_coef(9, 7) = -5.3571860391096889e+03_dp
2774 fit_coef(10, 7) = 3.4300556791845847e+03_dp
2775 fit_coef(11, 7) = -1.2837010342914398e+03_dp
2776 fit_coef(12, 7) = 2.1297330497738872e+02_dp
2777 fit_coef(0, 8) = 1.7130988759895882e+00_dp
2778 fit_coef(1, 8) = 1.3197929578399978e-02_dp
2779 fit_coef(2, 8) = 5.5632864218169500e+00_dp
2780 fit_coef(3, 8) = -3.8336822165302195e+01_dp
2781 fit_coef(4, 8) = 2.3871040314392795e+02_dp
2782 fit_coef(5, 8) = -1.0130802214079603e+03_dp
2783 fit_coef(6, 8) = 2.9890590755362450e+03_dp
2784 fit_coef(7, 8) = -6.1888221737685317e+03_dp
2785 fit_coef(8, 8) = 8.9422907047984954e+03_dp
2786 fit_coef(9, 8) = -8.8137663823846488e+03_dp
2787 fit_coef(10, 8) = 5.6398489234791505e+03_dp
2788 fit_coef(11, 8) = -2.1096575748430814e+03_dp
2789 fit_coef(12, 8) = 3.4985649609391197e+02_dp
2790 fit_coef(0, 9) = 4.0049762380285738e+00_dp
2791 fit_coef(1, 9) = 1.9523136227240855e-02_dp
2792 fit_coef(2, 9) = 8.2524358089376726e+00_dp
2793 fit_coef(3, 9) = -5.6989983733349561e+01_dp
2794 fit_coef(4, 9) = 3.5421093521195178e+02_dp
2795 fit_coef(5, 9) = -1.5036827242000363e+03_dp
2796 fit_coef(6, 9) = 4.4352294689617192e+03_dp
2797 fit_coef(7, 9) = -9.1786236202633227e+03_dp
2798 fit_coef(8, 9) = 1.3255721756847372e+04_dp
2799 fit_coef(9, 9) = -1.3059405760710591e+04_dp
2800 fit_coef(10, 9) = 8.3534120377636300e+03_dp
2801 fit_coef(11, 9) = -3.1236948984785458e+03_dp
2802 fit_coef(12, 9) = 5.1787990413580712e+02_dp
2803 fit_coef(0, 10) = 4.3533793103490108e-04_dp
2804 fit_coef(1, 10) = 4.5700924266841888e-05_dp
2805 fit_coef(2, 10) = 1.7699021404652904e-02_dp
2806 fit_coef(3, 10) = -1.1339163743096678e-01_dp
2807 fit_coef(4, 10) = 7.5317562249438585e-01_dp
2808 fit_coef(5, 10) = -3.1670388958213715e+00_dp
2809 fit_coef(6, 10) = 9.4488857516948261e+00_dp
2810 fit_coef(7, 10) = -1.9855290060320243e+01_dp
2811 fit_coef(8, 10) = 2.9102458261293140e+01_dp
2812 fit_coef(9, 10) = -2.9053092441811895e+01_dp
2813 fit_coef(10, 10) = 1.8796923562697987e+01_dp
2814 fit_coef(11, 10) = -7.0973082087264441e+00_dp
2815 fit_coef(12, 10) = 1.1862930929920559e+00_dp
2816 fit_coef(0, 11) = 2.8605561196639808e-03_dp
2817 fit_coef(1, 11) = 1.4711961159333449e-04_dp
2818 fit_coef(2, 11) = 5.9181533881525895e-02_dp
2819 fit_coef(3, 11) = -3.9234994207703527e-01_dp
2820 fit_coef(4, 11) = 2.5337109677677274e+00_dp
2821 fit_coef(5, 11) = -1.0698664293959414e+01_dp
2822 fit_coef(6, 11) = 3.1866930157362180e+01_dp
2823 fit_coef(7, 11) = -6.6687974631903131e+01_dp
2824 fit_coef(8, 11) = 9.7258475471561397e+01_dp
2825 fit_coef(9, 11) = -9.6610121349263864e+01_dp
2826 fit_coef(10, 11) = 6.2222012749124062e+01_dp
2827 fit_coef(11, 11) = -2.3400982843737399e+01_dp
2828 fit_coef(12, 11) = 3.8982563637438763e+00_dp
2829 fit_coef(0, 12) = 1.1710521653280541e-02_dp
2830 fit_coef(1, 12) = 3.8298132150440530e-04_dp
2831 fit_coef(2, 12) = 1.5720490880478075e-01_dp
2832 fit_coef(3, 12) = -1.0604827594360497e+00_dp
2833 fit_coef(4, 12) = 6.7293547068829866e+00_dp
2834 fit_coef(5, 12) = -2.8478199973116869e+01_dp
2835 fit_coef(6, 12) = 8.4349514492679333e+01_dp
2836 fit_coef(7, 12) = -1.7552622863849189e+02_dp
2837 fit_coef(8, 12) = 2.5489178159805036e+02_dp
2838 fit_coef(9, 12) = -2.5238005448515145e+02_dp
2839 fit_coef(10, 12) = 1.6214051051889587e+02_dp
2840 fit_coef(11, 12) = -6.0856023343944223e+01_dp
2841 fit_coef(12, 12) = 1.0120675732982292e+01_dp
2842 fit_coef(0, 13) = 3.8069679293470479e-02_dp
2843 fit_coef(1, 13) = 8.5030453244577039e-04_dp
2844 fit_coef(2, 13) = 3.5319383125255671e-01_dp
2845 fit_coef(3, 13) = -2.4058326640152856e+00_dp
2846 fit_coef(4, 13) = 1.5130832210336226e+01_dp
2847 fit_coef(5, 13) = -6.4118678617210037e+01_dp
2848 fit_coef(6, 13) = 1.8951627589384418e+02_dp
2849 fit_coef(7, 13) = -3.9344807722056498e+02_dp
2850 fit_coef(8, 13) = 5.7003275418870396e+02_dp
2851 fit_coef(9, 13) = -5.6318587947825517e+02_dp
2852 fit_coef(10, 13) = 3.6110912251064480e+02_dp
2853 fit_coef(11, 13) = -1.3530674224009485e+02_dp
2854 fit_coef(12, 13) = 2.2470490007659631e+01_dp
2855 fit_coef(0, 14) = 1.0718425215372540e-01_dp
2856 fit_coef(1, 14) = 1.6606498612547411e-03_dp
2857 fit_coef(2, 14) = 6.9558041141151850e-01_dp
2858 fit_coef(3, 14) = -4.7698051853919008e+00_dp
2859 fit_coef(4, 14) = 2.9821463877897131e+01_dp
2860 fit_coef(5, 14) = -1.2648112443458319e+02_dp
2861 fit_coef(6, 14) = 3.7339814874668650e+02_dp
2862 fit_coef(7, 14) = -7.7395557459000918e+02_dp
2863 fit_coef(8, 14) = 1.1195459460253383e+03_dp
2864 fit_coef(9, 14) = -1.1045564613814279e+03_dp
2865 fit_coef(10, 14) = 7.0739903710729982e+02_dp
2866 fit_coef(11, 14) = -2.6480250102979971e+02_dp
2867 fit_coef(12, 14) = 4.3940376198319392e+01_dp
2868 fit_coef(0, 15) = 2.7292854447821768e-01_dp
2869 fit_coef(1, 15) = 2.8818089651899471e-03_dp
2870 fit_coef(2, 15) = 1.2148125826442298e+00_dp
2871 fit_coef(3, 15) = -8.3719688971021089e+00_dp
2872 fit_coef(4, 15) = 5.2119215804340925e+01_dp
2873 fit_coef(5, 15) = -2.2119562023064080e+02_dp
2874 fit_coef(6, 15) = 6.5252980054868908e+02_dp
2875 fit_coef(7, 15) = -1.3509643415136143e+03_dp
2876 fit_coef(8, 15) = 1.9519497444270371e+03_dp
2877 fit_coef(9, 15) = -1.9238403235944149e+03_dp
2878 fit_coef(10, 15) = 1.2310185427991041e+03_dp
2879 fit_coef(11, 15) = -4.6046906916991361e+02_dp
2880 fit_coef(12, 15) = 7.6360956106162789e+01_dp
2881 fit_coef(0, 16) = 6.4599249663823077e-01_dp
2882 fit_coef(1, 16) = 4.4100315779845725e-03_dp
2883 fit_coef(2, 16) = 1.8680668872908257e+00_dp
2884 fit_coef(3, 16) = -1.2921923578119841e+01_dp
2885 fit_coef(4, 16) = 8.0194113618089176e+01_dp
2886 fit_coef(5, 16) = -3.4051136254025738e+02_dp
2887 fit_coef(6, 16) = 1.0040346645389629e+03_dp
2888 fit_coef(7, 16) = -2.0769701859400898e+03_dp
2889 fit_coef(8, 16) = 2.9983623465977071e+03_dp
2890 fit_coef(9, 16) = -2.9529215447188330e+03_dp
2891 fit_coef(10, 16) = 1.8882605454973300e+03_dp
2892 fit_coef(11, 16) = -7.0592135980760236e+02_dp
2893 fit_coef(12, 16) = 1.1701028544478041e+02_dp
2894 fit_coef(0, 17) = 1.4634101645424438e+00_dp
2895 fit_coef(1, 17) = 5.8372190193024661e-03_dp
2896 fit_coef(2, 17) = 2.4803142380725367e+00_dp
2897 fit_coef(3, 17) = -1.7197461327455997e+01_dp
2898 fit_coef(4, 17) = 1.0652223495438764e+02_dp
2899 fit_coef(5, 17) = -4.5244169342907389e+02_dp
2900 fit_coef(6, 17) = 1.3337313060706883e+03_dp
2901 fit_coef(7, 17) = -2.7575829556743033e+03_dp
2902 fit_coef(8, 17) = 3.9787771328072104e+03_dp
2903 fit_coef(9, 17) = -3.9165784027159407e+03_dp
2904 fit_coef(10, 17) = 2.5034305875991531e+03_dp
2905 fit_coef(11, 17) = -9.3557062065768866e+02_dp
2906 fit_coef(12, 17) = 1.5502979180126792e+02_dp
2907 fit_coef(0, 18) = 3.4614534817764171e+00_dp
2908 fit_coef(1, 18) = 6.7354426924417570e-03_dp
2909 fit_coef(2, 18) = 2.8636831995229377e+00_dp
2910 fit_coef(3, 18) = -1.9864414118527225e+01_dp
2911 fit_coef(4, 18) = 1.2299824240049257e+02_dp
2912 fit_coef(5, 18) = -5.2245197249800015e+02_dp
2913 fit_coef(6, 18) = 1.5400592407663903e+03_dp
2914 fit_coef(7, 18) = -3.1838942159350613e+03_dp
2915 fit_coef(8, 18) = 4.5934235919896164e+03_dp
2916 fit_coef(9, 18) = -4.5212045254281238e+03_dp
2917 fit_coef(10, 18) = 2.8896730980666093e+03_dp
2918 fit_coef(11, 18) = -1.0798434840197956e+03_dp
2919 fit_coef(12, 18) = 1.7892665893271254e+02_dp
2920
2921 END SUBROUTINE get_fit_coef_k9_lo
2922
2923! **************************************************************************************************
2924!> \brief ...
2925!> \param k ...
2926!> \param fit_coef ...
2927!> \param L_b ...
2928!> \param U_b ...
2929! **************************************************************************************************
2930 SUBROUTINE get_fit_coef_k10_sh(k, fit_coef, L_b, U_b)
2931 INTEGER :: k
2932 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
2933 REAL(kind=dp) :: l_b, u_b
2934
2935 l_b = 1.0000000000000000e+01_dp
2936 u_b = 1.0000000000000000e+02_dp
2937 fit_coef(0, 1) = 5.7695951023970724e-03_dp
2938 fit_coef(1, 1) = 1.5304265823073267e-02_dp
2939 fit_coef(2, 1) = 1.9872484454133494e-02_dp
2940 fit_coef(3, 1) = 1.4567559207979195e-02_dp
2941 fit_coef(4, 1) = 4.4496400713523688e-03_dp
2942 fit_coef(5, 1) = -2.0505040635942838e-03_dp
2943 fit_coef(6, 1) = -2.4017738586966987e-03_dp
2944 fit_coef(7, 1) = -2.1712350568040649e-04_dp
2945 fit_coef(8, 1) = 5.6984531809305442e-04_dp
2946 fit_coef(9, 1) = 3.6792198394363707e-04_dp
2947 fit_coef(10, 1) = -4.8212959819146314e-04_dp
2948 fit_coef(11, 1) = 2.3577845786711992e-04_dp
2949 fit_coef(12, 1) = -5.1828587653862264e-05_dp
2950 fit_coef(0, 2) = 3.1885037358175702e-02_dp
2951 fit_coef(1, 2) = 8.2163350099799248e-02_dp
2952 fit_coef(2, 2) = 1.0528892661444159e-01_dp
2953 fit_coef(3, 2) = 7.6258768872869365e-02_dp
2954 fit_coef(4, 2) = 2.2829853937072226e-02_dp
2955 fit_coef(5, 2) = -1.0880783303710033e-02_dp
2956 fit_coef(6, 2) = -1.2408166352033598e-02_dp
2957 fit_coef(7, 2) = -9.9928746104626666e-04_dp
2958 fit_coef(8, 2) = 2.9811486982521352e-03_dp
2959 fit_coef(9, 2) = 1.8293482458015533e-03_dp
2960 fit_coef(10, 2) = -2.4355182872439814e-03_dp
2961 fit_coef(11, 2) = 1.1814205683589125e-03_dp
2962 fit_coef(12, 2) = -2.5780560125925923e-04_dp
2963 fit_coef(0, 3) = 8.5985451133225102e-02_dp
2964 fit_coef(1, 3) = 2.0835675405554938e-01_dp
2965 fit_coef(2, 3) = 2.6074125375875318e-01_dp
2966 fit_coef(3, 3) = 1.8534648507356308e-01_dp
2967 fit_coef(4, 3) = 5.3562405566639951e-02_dp
2968 fit_coef(5, 3) = -2.7120042620104229e-02_dp
2969 fit_coef(6, 3) = -2.9327190422043962e-02_dp
2970 fit_coef(7, 3) = -1.7334511896438729e-03_dp
2971 fit_coef(8, 3) = 7.0440054029393588e-03_dp
2972 fit_coef(9, 3) = 4.0411619935981176e-03_dp
2973 fit_coef(10, 3) = -5.4238824013001187e-03_dp
2974 fit_coef(11, 3) = 2.5591744878845188e-03_dp
2975 fit_coef(12, 3) = -5.4685946652433383e-04_dp
2976 fit_coef(0, 4) = 1.8459848405035967e-01_dp
2977 fit_coef(1, 4) = 4.0371818510223983e-01_dp
2978 fit_coef(2, 4) = 4.8557108030340618e-01_dp
2979 fit_coef(3, 4) = 3.3806374668738176e-01_dp
2980 fit_coef(4, 4) = 9.5858897409524330e-02_dp
2981 fit_coef(5, 4) = -5.0962592261426340e-02_dp
2982 fit_coef(6, 4) = -5.3586938181428435e-02_dp
2983 fit_coef(7, 4) = -2.2127455334925599e-03_dp
2984 fit_coef(8, 4) = 1.6831832652833605e-02_dp
2985 fit_coef(9, 4) = 3.0255279721402920e-03_dp
2986 fit_coef(10, 4) = -8.9664127863715425e-03_dp
2987 fit_coef(11, 4) = 5.2862341907787443e-03_dp
2988 fit_coef(12, 4) = -1.2820544869880796e-03_dp
2989 fit_coef(0, 5) = 3.6074777273994402e-01_dp
2990 fit_coef(1, 5) = 6.8428202854170017e-01_dp
2991 fit_coef(2, 5) = 7.7269339647894841e-01_dp
2992 fit_coef(3, 5) = 5.2037619710849736e-01_dp
2993 fit_coef(4, 5) = 1.5184339437662456e-01_dp
2994 fit_coef(5, 5) = -6.9927558231047474e-02_dp
2995 fit_coef(6, 5) = -8.7838357618212293e-02_dp
2996 fit_coef(7, 5) = -2.6261703222456140e-03_dp
2997 fit_coef(8, 5) = 7.4641639246942270e-04_dp
2998 fit_coef(9, 5) = 6.0318746256968377e-02_dp
2999 fit_coef(10, 5) = -6.1544498098345557e-02_dp
3000 fit_coef(11, 5) = 2.6700632837816051e-02_dp
3001 fit_coef(12, 5) = -4.6151870101819167e-03_dp
3002 fit_coef(0, 6) = 6.7343634143757625e-01_dp
3003 fit_coef(1, 6) = 1.0727120778542409e+00_dp
3004 fit_coef(2, 6) = 1.1129907008803974e+00_dp
3005 fit_coef(3, 6) = 7.0510865936118905e-01_dp
3006 fit_coef(4, 6) = 2.1018587810883321e-01_dp
3007 fit_coef(5, 6) = -6.7282163797883557e-02_dp
3008 fit_coef(6, 6) = -1.0027943290324723e-01_dp
3009 fit_coef(7, 6) = -3.5384540450618285e-02_dp
3010 fit_coef(8, 6) = 2.7298363384797509e-02_dp
3011 fit_coef(9, 6) = -1.7363812432330001e-02_dp
3012 fit_coef(10, 6) = 7.1528999902988041e-02_dp
3013 fit_coef(11, 6) = -6.3212218372623016e-02_dp
3014 fit_coef(12, 6) = 1.7361608127688759e-02_dp
3015 fit_coef(0, 7) = 1.2230817482271914e+00_dp
3016 fit_coef(1, 7) = 1.5911587218644585e+00_dp
3017 fit_coef(2, 7) = 1.4985802851816239e+00_dp
3018 fit_coef(3, 7) = 8.6838937807453775e-01_dp
3019 fit_coef(4, 7) = 2.5143747366687763e-01_dp
3020 fit_coef(5, 7) = -4.6498700536608512e-02_dp
3021 fit_coef(6, 7) = -7.6008644969091751e-02_dp
3022 fit_coef(7, 7) = -6.7454078584185465e-02_dp
3023 fit_coef(8, 7) = 6.4705093608466005e-02_dp
3024 fit_coef(9, 7) = -1.2642157251641012e-01_dp
3025 fit_coef(10, 7) = 1.5991737393743985e-01_dp
3026 fit_coef(11, 7) = -7.4991121735080518e-02_dp
3027 fit_coef(12, 7) = 1.0660115126825225e-02_dp
3028 fit_coef(0, 8) = 2.1806860083417416e+00_dp
3029 fit_coef(1, 8) = 2.2497241492451168e+00_dp
3030 fit_coef(2, 8) = 1.9203525211709502e+00_dp
3031 fit_coef(3, 8) = 9.9969616591345500e-01_dp
3032 fit_coef(4, 8) = 2.6834037626429591e-01_dp
3033 fit_coef(5, 8) = -1.4414826654982551e-02_dp
3034 fit_coef(6, 8) = -4.5077253602132578e-02_dp
3035 fit_coef(7, 8) = -2.2179502828276729e-02_dp
3036 fit_coef(8, 8) = -4.7039179966872090e-02_dp
3037 fit_coef(9, 8) = 2.8411736628542274e-02_dp
3038 fit_coef(10, 8) = -4.1123712302139126e-02_dp
3039 fit_coef(11, 8) = 5.9491575141153316e-02_dp
3040 fit_coef(12, 8) = -2.2126040786265226e-02_dp
3041 fit_coef(0, 9) = 3.8549835579963414e+00_dp
3042 fit_coef(1, 9) = 3.0378827588214725e+00_dp
3043 fit_coef(2, 9) = 2.3710751843734088e+00_dp
3044 fit_coef(3, 9) = 1.1032804253025836e+00_dp
3045 fit_coef(4, 9) = 2.6679454698903354e-01_dp
3046 fit_coef(5, 9) = 2.0134331862044223e-02_dp
3047 fit_coef(6, 9) = -3.9522591450155079e-04_dp
3048 fit_coef(7, 9) = 7.4771871672822615e-03_dp
3049 fit_coef(8, 9) = -8.2968039659936169e-02_dp
3050 fit_coef(9, 9) = 5.7925277454710461e-02_dp
3051 fit_coef(10, 9) = -6.7746771231294078e-02_dp
3052 fit_coef(11, 9) = 5.6397993380196895e-02_dp
3053 fit_coef(12, 9) = -1.4614807655446010e-02_dp
3054 fit_coef(0, 10) = 6.9382542461265118e+00_dp
3055 fit_coef(1, 10) = 3.9362780471139174e+00_dp
3056 fit_coef(2, 10) = 2.8610007550879040e+00_dp
3057 fit_coef(3, 10) = 1.1997673683708834e+00_dp
3058 fit_coef(4, 10) = 2.5581466127865921e-01_dp
3059 fit_coef(5, 10) = 5.3143801132552647e-02_dp
3060 fit_coef(6, 10) = 5.1417759773000900e-02_dp
3061 fit_coef(7, 10) = 1.7678646974295765e-02_dp
3062 fit_coef(8, 10) = -5.9075047650367432e-02_dp
3063 fit_coef(9, 10) = 3.3432194957975334e-03_dp
3064 fit_coef(10, 10) = 3.6827535376516749e-03_dp
3065 fit_coef(11, 10) = 1.1242355647481125e-03_dp
3066 fit_coef(12, 10) = 9.1270977158394349e-04_dp
3067 fit_coef(0, 11) = 1.4966733342014741e-02_dp
3068 fit_coef(1, 11) = 3.9453275484996823e-02_dp
3069 fit_coef(2, 11) = 5.1068715597025638e-02_dp
3070 fit_coef(3, 11) = 3.7329091135728701e-02_dp
3071 fit_coef(4, 11) = 1.1348488247113217e-02_dp
3072 fit_coef(5, 11) = -5.2730834502581489e-03_dp
3073 fit_coef(6, 11) = -6.1356690848579278e-03_dp
3074 fit_coef(7, 11) = -5.3965409284480723e-04_dp
3075 fit_coef(8, 11) = 1.4598866172702007e-03_dp
3076 fit_coef(9, 11) = 9.3119411997548570e-04_dp
3077 fit_coef(10, 11) = -1.2246113300432057e-03_dp
3078 fit_coef(11, 11) = 5.9768922566995949e-04_dp
3079 fit_coef(12, 11) = -1.3116685473996465e-04_dp
3080 fit_coef(0, 12) = 3.8347028757142743e-02_dp
3081 fit_coef(1, 12) = 9.5250205763913104e-02_dp
3082 fit_coef(2, 12) = 1.2014345228064902e-01_dp
3083 fit_coef(3, 12) = 8.5770121052551718e-02_dp
3084 fit_coef(4, 12) = 2.5026676932284449e-02_dp
3085 fit_coef(5, 12) = -1.2425272424457500e-02_dp
3086 fit_coef(6, 12) = -1.3711933166334719e-02_dp
3087 fit_coef(7, 12) = -9.4665591048253780e-04_dp
3088 fit_coef(8, 12) = 3.3417995277827857e-03_dp
3089 fit_coef(9, 12) = 1.9446347870976362e-03_dp
3090 fit_coef(10, 12) = -2.6369332046548466e-03_dp
3091 fit_coef(11, 12) = 1.2654540755567044e-03_dp
3092 fit_coef(12, 12) = -2.7319897896357627e-04_dp
3093 fit_coef(0, 13) = 7.2491464313657286e-02_dp
3094 fit_coef(1, 13) = 1.5872975379092427e-01_dp
3095 fit_coef(2, 13) = 1.9076646279106174e-01_dp
3096 fit_coef(3, 13) = 1.3193323939107945e-01_dp
3097 fit_coef(4, 13) = 3.6136743102133911e-02_dp
3098 fit_coef(5, 13) = -2.0313520615877108e-02_dp
3099 fit_coef(6, 13) = -1.9992174365017833e-02_dp
3100 fit_coef(7, 13) = -1.5921233024662168e-04_dp
3101 fit_coef(8, 13) = 5.1319901147546939e-03_dp
3102 fit_coef(9, 13) = 1.3342159647477779e-03_dp
3103 fit_coef(10, 13) = -2.2525420201435871e-03_dp
3104 fit_coef(11, 13) = 9.7269009421198751e-04_dp
3105 fit_coef(12, 13) = -2.0108283608299456e-04_dp
3106 fit_coef(0, 14) = 1.3008928188788060e-01_dp
3107 fit_coef(1, 14) = 2.3463488136486438e-01_dp
3108 fit_coef(2, 14) = 2.5759089406615687e-01_dp
3109 fit_coef(3, 14) = 1.7130271768667638e-01_dp
3110 fit_coef(4, 14) = 4.9321273379861225e-02_dp
3111 fit_coef(5, 14) = -2.5370622060839100e-02_dp
3112 fit_coef(6, 14) = -2.9809532415184900e-02_dp
3113 fit_coef(7, 14) = -1.5417020754737089e-03_dp
3114 fit_coef(8, 14) = 1.0746594499561295e-02_dp
3115 fit_coef(9, 14) = 9.4386979195149809e-03_dp
3116 fit_coef(10, 14) = -1.9447726689701503e-02_dp
3117 fit_coef(11, 14) = 1.2247210595444594e-02_dp
3118 fit_coef(12, 14) = -2.9200822587582783e-03_dp
3119 fit_coef(0, 15) = 2.3180186914323608e-01_dp
3120 fit_coef(1, 15) = 3.3040402783496398e-01_dp
3121 fit_coef(2, 15) = 3.1506693954203840e-01_dp
3122 fit_coef(3, 15) = 1.8838521756146479e-01_dp
3123 fit_coef(4, 15) = 6.0573038457003757e-02_dp
3124 fit_coef(5, 15) = -8.8248929607627029e-03_dp
3125 fit_coef(6, 15) = -3.2842705061116521e-02_dp
3126 fit_coef(7, 15) = -3.8281459849134332e-03_dp
3127 fit_coef(8, 15) = -3.5375767464361246e-02_dp
3128 fit_coef(9, 15) = 6.9092174166339268e-02_dp
3129 fit_coef(10, 15) = -3.1110614611766781e-02_dp
3130 fit_coef(11, 15) = -4.5781884002109160e-03_dp
3131 fit_coef(12, 15) = 4.8446541181232632e-03_dp
3132 fit_coef(0, 16) = 4.0986431246574251e-01_dp
3133 fit_coef(1, 16) = 4.5035445709902655e-01_dp
3134 fit_coef(2, 16) = 3.6429713371972472e-01_dp
3135 fit_coef(3, 16) = 1.7696011433627806e-01_dp
3136 fit_coef(4, 16) = 5.2443940811353028e-02_dp
3137 fit_coef(5, 16) = 1.2731147310719145e-02_dp
3138 fit_coef(6, 16) = 1.2109883658619791e-02_dp
3139 fit_coef(7, 16) = -5.9511768374893713e-02_dp
3140 fit_coef(8, 16) = 9.3282598295030036e-02_dp
3141 fit_coef(9, 16) = -2.1484669589298355e-01_dp
3142 fit_coef(10, 16) = 2.5063354943196953e-01_dp
3143 fit_coef(11, 16) = -1.3015721063956481e-01_dp
3144 fit_coef(12, 16) = 2.5163533574069471e-02_dp
3145 fit_coef(0, 17) = 7.1698706857622740e-01_dp
3146 fit_coef(1, 17) = 5.8839597496590568e-01_dp
3147 fit_coef(2, 17) = 4.0531879096886647e-01_dp
3148 fit_coef(3, 17) = 1.4784602258417653e-01_dp
3149 fit_coef(4, 17) = 2.8867088347120023e-02_dp
3150 fit_coef(5, 17) = 2.7968490127980788e-02_dp
3151 fit_coef(6, 17) = 2.8408348764650926e-02_dp
3152 fit_coef(7, 17) = 1.6630805867207835e-02_dp
3153 fit_coef(8, 17) = -6.5625993058929091e-02_dp
3154 fit_coef(9, 17) = 7.6969150282882134e-02_dp
3155 fit_coef(10, 17) = -1.3660437598545347e-01_dp
3156 fit_coef(11, 17) = 1.2266105788436464e-01_dp
3157 fit_coef(12, 17) = -3.7327615955604555e-02_dp
3158 fit_coef(0, 18) = 1.2469010615236285e+00_dp
3159 fit_coef(1, 18) = 7.2690110706329647e-01_dp
3160 fit_coef(2, 18) = 4.3679155042183249e-01_dp
3161 fit_coef(3, 18) = 1.1545454220850887e-01_dp
3162 fit_coef(4, 18) = 6.1457460689058442e-03_dp
3163 fit_coef(5, 18) = 3.4446450178461388e-02_dp
3164 fit_coef(6, 18) = 3.6803538637622653e-02_dp
3165 fit_coef(7, 18) = 4.9357342985472417e-02_dp
3166 fit_coef(8, 18) = -9.8393813847182057e-02_dp
3167 fit_coef(9, 18) = 1.3063016463318536e-01_dp
3168 fit_coef(10, 18) = -1.5004086198844574e-01_dp
3169 fit_coef(11, 18) = 7.8940423149777589e-02_dp
3170 fit_coef(12, 18) = -1.3100508732995670e-02_dp
3171 fit_coef(0, 19) = 2.2020857144301220e+00_dp
3172 fit_coef(1, 19) = 8.4496482669483042e-01_dp
3173 fit_coef(2, 19) = 4.6567133382072923e-01_dp
3174 fit_coef(3, 19) = 9.5046757527473213e-02_dp
3175 fit_coef(4, 19) = -7.6836222188503209e-03_dp
3176 fit_coef(5, 19) = 3.4125967755404704e-02_dp
3177 fit_coef(6, 19) = 5.0617003282733740e-02_dp
3178 fit_coef(7, 19) = 1.2669228101081176e-02_dp
3179 fit_coef(8, 19) = 1.4598367047566483e-02_dp
3180 fit_coef(9, 19) = -4.8146800081324943e-02_dp
3181 fit_coef(10, 19) = 6.4386938465572141e-02_dp
3182 fit_coef(11, 19) = -5.7857218864180007e-02_dp
3183 fit_coef(12, 19) = 1.9235315360114507e-02_dp
3184 fit_coef(0, 20) = 4.3050004435836158e+00_dp
3185 fit_coef(1, 20) = 9.5976454358976238e-01_dp
3186 fit_coef(2, 20) = 5.2630087854492191e-01_dp
3187 fit_coef(3, 20) = 1.0553767791618235e-01_dp
3188 fit_coef(4, 20) = -1.2890279709804050e-02_dp
3189 fit_coef(5, 20) = 3.1631245951617148e-02_dp
3190 fit_coef(6, 20) = 5.1846721167766188e-02_dp
3191 fit_coef(7, 20) = 1.3931333624011479e-02_dp
3192 fit_coef(8, 20) = 1.8289419861101722e-02_dp
3193 fit_coef(9, 20) = -3.6941691804435302e-02_dp
3194 fit_coef(10, 20) = 5.2037604092826852e-02_dp
3195 fit_coef(11, 20) = -3.6753728963893388e-02_dp
3196 fit_coef(12, 20) = 8.3623158625230273e-03_dp
3197
3198 END SUBROUTINE get_fit_coef_k10_sh
3199
3200! **************************************************************************************************
3201!> \brief ...
3202!> \param k ...
3203!> \param fit_coef ...
3204!> \param L_b ...
3205!> \param U_b ...
3206! **************************************************************************************************
3207 SUBROUTINE get_fit_coef_k10_lo(k, fit_coef, L_b, U_b)
3208 INTEGER :: k
3209 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
3210 REAL(kind=dp) :: l_b, u_b
3211
3212 l_b = 1.0000000000000000e+02_dp
3213 u_b = 5.6502000000000000e+04_dp
3214 fit_coef(0, 1) = 6.8411577604394062e-05_dp
3215 fit_coef(1, 1) = 1.6187597727541771e-05_dp
3216 fit_coef(2, 1) = 4.5871906583389663e-03_dp
3217 fit_coef(3, 1) = -3.0179373289852002e-02_dp
3218 fit_coef(4, 1) = 2.0974369374411136e-01_dp
3219 fit_coef(5, 1) = -8.7935873765434858e-01_dp
3220 fit_coef(6, 1) = 2.5878525249126527e+00_dp
3221 fit_coef(7, 1) = -5.3179060500186415e+00_dp
3222 fit_coef(8, 1) = 7.5892153487240241e+00_dp
3223 fit_coef(9, 1) = -7.3662068168070789e+00_dp
3224 fit_coef(10, 1) = 4.6344768125153601e+00_dp
3225 fit_coef(11, 1) = -1.7032106343424485e+00_dp
3226 fit_coef(12, 1) = 2.7741991549383826e-01_dp
3227 fit_coef(0, 2) = 7.5275323624865811e-04_dp
3228 fit_coef(1, 2) = 9.9232481710528875e-05_dp
3229 fit_coef(2, 2) = 2.8524678297215784e-02_dp
3230 fit_coef(3, 2) = -1.9184050122553747e-01_dp
3231 fit_coef(4, 2) = 1.3126341229840768e+00_dp
3232 fit_coef(5, 2) = -5.5140690139707527e+00_dp
3233 fit_coef(6, 2) = 1.6223500597815761e+01_dp
3234 fit_coef(7, 2) = -3.3331549263061540e+01_dp
3235 fit_coef(8, 2) = 4.7557073952296840e+01_dp
3236 fit_coef(9, 2) = -4.6143966985722287e+01_dp
3237 fit_coef(10, 2) = 2.9018553303790554e+01_dp
3238 fit_coef(11, 2) = -1.0658983662222605e+01_dp
3239 fit_coef(12, 2) = 1.7351738260550609e+00_dp
3240 fit_coef(0, 3) = 3.9843606366604320e-03_dp
3241 fit_coef(1, 3) = 3.3764501333670899e-04_dp
3242 fit_coef(2, 3) = 9.9383477377645593e-02_dp
3243 fit_coef(3, 3) = -6.8774784004509004e-01_dp
3244 fit_coef(4, 3) = 4.6197752367269072e+00_dp
3245 fit_coef(5, 3) = -1.9617538089460556e+01_dp
3246 fit_coef(6, 3) = 5.7821554084121672e+01_dp
3247 fit_coef(7, 3) = -1.1866755198936438e+02_dp
3248 fit_coef(8, 3) = 1.6899851790071165e+02_dp
3249 fit_coef(9, 3) = -1.6365529688728941e+02_dp
3250 fit_coef(10, 3) = 1.0272818227085014e+02_dp
3251 fit_coef(11, 3) = -3.7670599569470930e+01_dp
3252 fit_coef(12, 3) = 6.1231647953439321e+00_dp
3253 fit_coef(0, 4) = 1.5378969066141557e-02_dp
3254 fit_coef(1, 4) = 9.1548502345901116e-04_dp
3255 fit_coef(2, 4) = 2.7372675256892554e-01_dp
3256 fit_coef(3, 4) = -1.9285608309876876e+00_dp
3257 fit_coef(4, 4) = 1.2803726769725465e+01_dp
3258 fit_coef(5, 4) = -5.4755620729323439e+01_dp
3259 fit_coef(6, 4) = 1.6149496474022160e+02_dp
3260 fit_coef(7, 4) = -3.3133212972051763e+02_dp
3261 fit_coef(8, 4) = 4.7168386050627021e+02_dp
3262 fit_coef(9, 4) = -4.5657552176306115e+02_dp
3263 fit_coef(10, 4) = 2.8644979600872671e+02_dp
3264 fit_coef(11, 4) = -1.0497888439910341e+02_dp
3265 fit_coef(12, 4) = 1.7052642506098298e+01_dp
3266 fit_coef(0, 5) = 4.9251180618047154e-02_dp
3267 fit_coef(1, 5) = 2.1434954065410114e-03_dp
3268 fit_coef(2, 5) = 6.4789716785013773e-01_dp
3269 fit_coef(3, 5) = -4.6201666914403452e+00_dp
3270 fit_coef(4, 5) = 3.0440812558042978e+01_dp
3271 fit_coef(5, 5) = -1.3079799887515426e+02_dp
3272 fit_coef(6, 5) = 3.8607450191762678e+02_dp
3273 fit_coef(7, 5) = -7.9209798040256953e+02_dp
3274 fit_coef(8, 5) = 1.1273243950495682e+03_dp
3275 fit_coef(9, 5) = -1.0907316178904814e+03_dp
3276 fit_coef(10, 5) = 6.8394210358544069e+02_dp
3277 fit_coef(11, 5) = -2.5050774766365097e+02_dp
3278 fit_coef(12, 5) = 4.0668458941697637e+01_dp
3279 fit_coef(0, 6) = 1.3896177117430439e-01_dp
3280 fit_coef(1, 6) = 4.4858622820344507e-03_dp
3281 fit_coef(2, 6) = 1.3666220193198582e+00_dp
3282 fit_coef(3, 6) = -9.8301126837720361e+00_dp
3283 fit_coef(4, 6) = 6.4421339807998407e+01_dp
3284 fit_coef(5, 6) = -2.7772758192096933e+02_dp
3285 fit_coef(6, 6) = 8.2039176215178543e+02_dp
3286 fit_coef(7, 6) = -1.6832836477463704e+03_dp
3287 fit_coef(8, 6) = 2.3951662567438020e+03_dp
3288 fit_coef(9, 6) = -2.3166358021581445e+03_dp
3289 fit_coef(10, 6) = 1.4520770947679368e+03_dp
3290 fit_coef(11, 6) = -5.3163751269775196e+02_dp
3291 fit_coef(12, 6) = 8.6273624073151339e+01_dp
3292 fit_coef(0, 7) = 3.5729488480195148e-01_dp
3293 fit_coef(1, 7) = 8.5259570236280655e-03_dp
3294 fit_coef(2, 7) = 2.6129406592915587e+00_dp
3295 fit_coef(3, 7) = -1.8917534003546230e+01_dp
3296 fit_coef(4, 7) = 1.2348529805386671e+02_dp
3297 fit_coef(5, 7) = -5.3366943392175176e+02_dp
3298 fit_coef(6, 7) = 1.5775492634594218e+03_dp
3299 fit_coef(7, 7) = -3.2371204369651055e+03_dp
3300 fit_coef(8, 7) = 4.6054333227458374e+03_dp
3301 fit_coef(9, 7) = -4.4533030686941875e+03_dp
3302 fit_coef(10, 7) = 2.7905356324814979e+03_dp
3303 fit_coef(11, 7) = -1.0213693901858213e+03_dp
3304 fit_coef(12, 7) = 1.6569764375256605e+02_dp
3305 fit_coef(0, 8) = 8.5576326888027310e-01_dp
3306 fit_coef(1, 8) = 1.4794510243735135e-02_dp
3307 fit_coef(2, 8) = 4.5547377508589388e+00_dp
3308 fit_coef(3, 8) = -3.3139938275450689e+01_dp
3309 fit_coef(4, 8) = 2.1567954334326745e+02_dp
3310 fit_coef(5, 8) = -9.3383264595716162e+02_dp
3311 fit_coef(6, 8) = 2.7621813661246701e+03_dp
3312 fit_coef(7, 8) = -5.6685491647807048e+03_dp
3313 fit_coef(8, 8) = 8.0637217679143905e+03_dp
3314 fit_coef(9, 8) = -7.7958512685636942e+03_dp
3315 fit_coef(10, 8) = 4.8839651073288114e+03_dp
3316 fit_coef(11, 8) = -1.7871820510264045e+03_dp
3317 fit_coef(12, 8) = 2.8987122244652051e+02_dp
3318 fit_coef(0, 9) = 1.9457453939982912e+00_dp
3319 fit_coef(1, 9) = 2.3412967111721320e-02_dp
3320 fit_coef(2, 9) = 7.2322818888009728e+00_dp
3321 fit_coef(3, 9) = -5.2813697786989756e+01_dp
3322 fit_coef(4, 9) = 3.4297595366907478e+02_dp
3323 fit_coef(5, 9) = -1.4869895685428958e+03_dp
3324 fit_coef(6, 9) = 4.4006178698965341e+03_dp
3325 fit_coef(7, 9) = -9.0318062878397541e+03_dp
3326 fit_coef(8, 9) = 1.2847105139427764e+04_dp
3327 fit_coef(9, 9) = -1.2418582634546168e+04_dp
3328 fit_coef(10, 9) = 7.7787564640697719e+03_dp
3329 fit_coef(11, 9) = -2.8459924565854521e+03_dp
3330 fit_coef(12, 9) = 4.6152903795316814e+02_dp
3331 fit_coef(0, 10) = 4.3456834390820589e+00_dp
3332 fit_coef(1, 10) = 3.3830817174057760e-02_dp
3333 fit_coef(2, 10) = 1.0473175894252773e+01_dp
3334 fit_coef(3, 10) = -7.6661420311861534e+01_dp
3335 fit_coef(4, 10) = 4.9715082005031553e+02_dp
3336 fit_coef(5, 10) = -2.1572931305206675e+03_dp
3337 fit_coef(6, 10) = 6.3865758669205397e+03_dp
3338 fit_coef(7, 10) = -1.3108704020006919e+04_dp
3339 fit_coef(8, 10) = 1.8645335870199138e+04_dp
3340 fit_coef(9, 10) = -1.8021767528763816e+04_dp
3341 fit_coef(10, 10) = 1.1287284370105295e+04_dp
3342 fit_coef(11, 10) = -4.1291992041477679e+03_dp
3343 fit_coef(12, 10) = 6.6955320372977019e+02_dp
3344 fit_coef(0, 11) = 2.1871793237239991e-04_dp
3345 fit_coef(1, 11) = 4.1996695354716680e-05_dp
3346 fit_coef(2, 11) = 1.1909044603489627e-02_dp
3347 fit_coef(3, 11) = -7.8370180707781900e-02_dp
3348 fit_coef(4, 11) = 5.4437980679476261e-01_dp
3349 fit_coef(5, 11) = -2.2731288629006801e+00_dp
3350 fit_coef(6, 11) = 6.6595389300613057e+00_dp
3351 fit_coef(7, 11) = -1.3637699933400350e+01_dp
3352 fit_coef(8, 11) = 1.9415873433968578e+01_dp
3353 fit_coef(9, 11) = -1.8815612032886889e+01_dp
3354 fit_coef(10, 11) = 1.1826000388483891e+01_dp
3355 fit_coef(11, 11) = -4.3434643915415521e+00_dp
3356 fit_coef(12, 11) = 7.0720998747701980e-01_dp
3357 fit_coef(0, 12) = 1.4372890424941905e-03_dp
3358 fit_coef(1, 12) = 1.3870980955592494e-04_dp
3359 fit_coef(2, 12) = 4.0623488722695424e-02_dp
3360 fit_coef(3, 12) = -2.7976182205365724e-01_dp
3361 fit_coef(4, 12) = 1.8859471674798522e+00_dp
3362 fit_coef(5, 12) = -7.9899664094381135e+00_dp
3363 fit_coef(6, 12) = 2.3590888671742746e+01_dp
3364 fit_coef(7, 12) = -4.8520694758407572e+01_dp
3365 fit_coef(8, 12) = 6.9210085374286393e+01_dp
3366 fit_coef(9, 12) = -6.7087759398956806e+01_dp
3367 fit_coef(10, 12) = 4.2134889802249333e+01_dp
3368 fit_coef(11, 12) = -1.5455367957037941e+01_dp
3369 fit_coef(12, 12) = 2.5125419036554626e+00_dp
3370 fit_coef(0, 13) = 5.8841380648918286e-03_dp
3371 fit_coef(1, 13) = 3.6831095166302676e-04_dp
3372 fit_coef(2, 13) = 1.1027978007247614e-01_dp
3373 fit_coef(3, 13) = -7.7842683175317762e-01_dp
3374 fit_coef(4, 13) = 5.1600304775061447e+00_dp
3375 fit_coef(5, 13) = -2.2078165304729261e+01_dp
3376 fit_coef(6, 13) = 6.5091858701369759e+01_dp
3377 fit_coef(7, 13) = -1.3345586681486435e+02_dp
3378 fit_coef(8, 13) = 1.8988777441894680e+02_dp
3379 fit_coef(9, 13) = -1.8375507399027742e+02_dp
3380 fit_coef(10, 13) = 1.1527676579024002e+02_dp
3381 fit_coef(11, 13) = -4.2248714108699794e+01_dp
3382 fit_coef(12, 13) = 6.8635207622576706e+00_dp
3383 fit_coef(0, 14) = 1.9128947829258891e-02_dp
3384 fit_coef(1, 14) = 8.3862411750444427e-04_dp
3385 fit_coef(2, 14) = 2.5428661374901718e-01_dp
3386 fit_coef(3, 14) = -1.8194680686167399e+00_dp
3387 fit_coef(4, 14) = 1.1961590588350870e+01_dp
3388 fit_coef(5, 14) = -5.1467768848618732e+01_dp
3389 fit_coef(6, 14) = 1.5192487004386140e+02_dp
3390 fit_coef(7, 14) = -3.1168857906892379e+02_dp
3391 fit_coef(8, 14) = 4.4359497200294106e+02_dp
3392 fit_coef(9, 14) = -4.2917874847834634e+02_dp
3393 fit_coef(10, 14) = 2.6909129512594421e+02_dp
3394 fit_coef(11, 14) = -9.8546840419864964e+01_dp
3395 fit_coef(12, 14) = 1.5995921552846303e+01_dp
3396 fit_coef(0, 15) = 5.3855099007751053e-02_dp
3397 fit_coef(1, 15) = 1.6951202894427357e-03_dp
3398 fit_coef(2, 15) = 5.1828197057808256e-01_dp
3399 fit_coef(3, 15) = -3.7423907453765741e+00_dp
3400 fit_coef(4, 15) = 2.4465983174552605e+01_dp
3401 fit_coef(5, 15) = -1.0563582904908276e+02_dp
3402 fit_coef(6, 15) = 3.1210473924282360e+02_dp
3403 fit_coef(7, 15) = -6.4036928643586384e+02_dp
3404 fit_coef(8, 15) = 9.1110483535702542e+02_dp
3405 fit_coef(9, 15) = -8.8110226224210760e+02_dp
3406 fit_coef(10, 15) = 5.5218119224018108e+02_dp
3407 fit_coef(11, 15) = -2.0212810880984674e+02_dp
3408 fit_coef(12, 15) = 3.2795085750230733e+01_dp
3409 fit_coef(0, 16) = 1.3708229195964663e-01_dp
3410 fit_coef(1, 16) = 3.0894965681102504e-03_dp
3411 fit_coef(2, 16) = 9.5049659850978763e-01_dp
3412 fit_coef(3, 16) = -6.9100459255840390e+00_dp
3413 fit_coef(4, 16) = 4.4990748234228938e+01_dp
3414 fit_coef(5, 16) = -1.9474683678177831e+02_dp
3415 fit_coef(6, 16) = 5.7588070574709627e+02_dp
3416 fit_coef(7, 16) = -1.1817334181055951e+03_dp
3417 fit_coef(8, 16) = 1.6810743266760862e+03_dp
3418 fit_coef(9, 16) = -1.6252829227456073e+03_dp
3419 fit_coef(10, 16) = 1.0182493640037462e+03_dp
3420 fit_coef(11, 16) = -3.7261997804392706e+02_dp
3421 fit_coef(12, 16) = 6.0438944235281710e+01_dp
3422 fit_coef(0, 17) = 3.2363428278830764e-01_dp
3423 fit_coef(1, 17) = 5.0854788099187554e-03_dp
3424 fit_coef(2, 17) = 1.5721133863814079e+00_dp
3425 fit_coef(3, 17) = -1.1489215181637956e+01_dp
3426 fit_coef(4, 17) = 7.4573534244656926e+01_dp
3427 fit_coef(5, 17) = -3.2342087496454349e+02_dp
3428 fit_coef(6, 17) = 9.5710734682470525e+02_dp
3429 fit_coef(7, 17) = -1.9642973854914649e+03_dp
3430 fit_coef(8, 17) = 2.7939950801758901e+03_dp
3431 fit_coef(9, 17) = -2.7007178237082067e+03_dp
3432 fit_coef(10, 17) = 1.6916202883905507e+03_dp
3433 fit_coef(11, 17) = -6.1888646191941052e+02_dp
3434 fit_coef(12, 17) = 1.0035990724886408e+02_dp
3435 fit_coef(0, 18) = 7.2227658357344648e-01_dp
3436 fit_coef(1, 18) = 7.4788858723735070e-03_dp
3437 fit_coef(2, 18) = 2.3204406383068310e+00_dp
3438 fit_coef(3, 18) = -1.7025391312911438e+01_dp
3439 fit_coef(4, 18) = 1.1025201945927834e+02_dp
3440 fit_coef(5, 18) = -4.7884421266123894e+02_dp
3441 fit_coef(6, 18) = 1.4179656218358291e+03_dp
3442 fit_coef(7, 18) = -2.9105197632238601e+03_dp
3443 fit_coef(8, 18) = 4.1395786832377917e+03_dp
3444 fit_coef(9, 18) = -4.0007691450093103e+03_dp
3445 fit_coef(10, 18) = 2.5054759345520029e+03_dp
3446 fit_coef(11, 18) = -9.1647339178452830e+02_dp
3447 fit_coef(12, 18) = 1.4859116561702967e+02_dp
3448 fit_coef(0, 19) = 1.5633146329155199e+00_dp
3449 fit_coef(1, 19) = 9.6549690016911830e-03_dp
3450 fit_coef(2, 19) = 3.0024364887949786e+00_dp
3451 fit_coef(3, 19) = -2.2083956048519831e+01_dp
3452 fit_coef(4, 19) = 1.4280565323321272e+02_dp
3453 fit_coef(5, 19) = -6.2078293004938610e+02_dp
3454 fit_coef(6, 19) = 1.8390901346312414e+03_dp
3455 fit_coef(7, 19) = -3.7753165401987344e+03_dp
3456 fit_coef(8, 19) = 5.3693456762596288e+03_dp
3457 fit_coef(9, 19) = -5.1888078370584299e+03_dp
3458 fit_coef(10, 19) = 3.2491199407176041e+03_dp
3459 fit_coef(11, 19) = -1.1883539144960864e+03_dp
3460 fit_coef(12, 19) = 1.9265088532272543e+02_dp
3461 fit_coef(0, 20) = 3.5765140128766371e+00_dp
3462 fit_coef(1, 20) = 1.1092017818854312e-02_dp
3463 fit_coef(2, 20) = 3.4506220465727910e+00_dp
3464 fit_coef(3, 20) = -2.5391055124716122e+01_dp
3465 fit_coef(4, 20) = 1.6415262153898755e+02_dp
3466 fit_coef(5, 20) = -7.1368338873477956e+02_dp
3467 fit_coef(6, 20) = 2.1144976599358906e+03_dp
3468 fit_coef(7, 20) = -4.3407867181744632e+03_dp
3469 fit_coef(8, 20) = 6.1735437097235817e+03_dp
3470 fit_coef(9, 20) = -5.9658726159362077e+03_dp
3471 fit_coef(10, 20) = 3.7356297419849939e+03_dp
3472 fit_coef(11, 20) = -1.3662663971818399e+03_dp
3473 fit_coef(12, 20) = 2.2148914181168524e+02_dp
3474
3475 END SUBROUTINE get_fit_coef_k10_lo
3476
3477! **************************************************************************************************
3478!> \brief ...
3479!> \param k ...
3480!> \param fit_coef ...
3481!> \param L_b ...
3482!> \param U_b ...
3483! **************************************************************************************************
3484 SUBROUTINE get_fit_coef_k11_sh(k, fit_coef, L_b, U_b)
3485 INTEGER :: k
3486 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
3487 REAL(kind=dp) :: l_b, u_b
3488
3489 l_b = 1.0000000000000000e+01_dp
3490 u_b = 1.0000000000000000e+02_dp
3491 fit_coef(0, 1) = 5.2171158533482745e-03_dp
3492 fit_coef(1, 1) = 1.3928278169011961e-02_dp
3493 fit_coef(2, 1) = 1.8150859480949404e-02_dp
3494 fit_coef(3, 1) = 1.3341207416860837e-02_dp
3495 fit_coef(4, 1) = 4.0847907407787400e-03_dp
3496 fit_coef(5, 1) = -1.8862057580171247e-03_dp
3497 fit_coef(6, 1) = -2.2005927300723840e-03_dp
3498 fit_coef(7, 1) = -2.1569598773101882e-04_dp
3499 fit_coef(8, 1) = 5.3374114714500355e-04_dp
3500 fit_coef(9, 1) = 3.6786248990713488e-04_dp
3501 fit_coef(10, 1) = -4.9716456588384794e-04_dp
3502 fit_coef(11, 1) = 2.5364063357271070e-04_dp
3503 fit_coef(12, 1) = -5.7560771366250216e-05_dp
3504 fit_coef(0, 2) = 2.8561321333081039e-02_dp
3505 fit_coef(1, 2) = 7.4577106385596906e-02_dp
3506 fit_coef(2, 2) = 9.6095992956011567e-02_dp
3507 fit_coef(3, 2) = 6.9921004219163585e-02_dp
3508 fit_coef(4, 2) = 2.1046006027983205e-02_dp
3509 fit_coef(5, 2) = -1.0007180795562516e-02_dp
3510 fit_coef(6, 2) = -1.1398359734540125e-02_dp
3511 fit_coef(7, 2) = -1.0344153575843251e-03_dp
3512 fit_coef(8, 2) = 2.8187351548754256e-03_dp
3513 fit_coef(9, 2) = 1.8266346026223723e-03_dp
3514 fit_coef(10, 2) = -2.5228015867621856e-03_dp
3515 fit_coef(11, 2) = 1.2855087989079601e-03_dp
3516 fit_coef(12, 2) = -2.9136730780610450e-04_dp
3517 fit_coef(0, 3) = 7.5565672474912859e-02_dp
3518 fit_coef(1, 3) = 1.8837838893012882e-01_dp
3519 fit_coef(2, 3) = 2.3788031159177950e-01_dp
3520 fit_coef(3, 3) = 1.7019649338979928e-01_dp
3521 fit_coef(4, 3) = 4.9702597603960480e-02_dp
3522 fit_coef(5, 3) = -2.4843028083216520e-02_dp
3523 fit_coef(6, 3) = -2.7107463499384012e-02_dp
3524 fit_coef(7, 3) = -2.0998400355075556e-03_dp
3525 fit_coef(8, 3) = 6.8537414053824698e-03_dp
3526 fit_coef(9, 3) = 4.1037972870635875e-03_dp
3527 fit_coef(10, 3) = -5.8343544319931773e-03_dp
3528 fit_coef(11, 3) = 2.9563811258876472e-03_dp
3529 fit_coef(12, 3) = -6.6659895709530450e-04_dp
3530 fit_coef(0, 4) = 1.5746184306040770e-01_dp
3531 fit_coef(1, 4) = 3.6307100829710298e-01_dp
3532 fit_coef(2, 4) = 4.4411067220455136e-01_dp
3533 fit_coef(3, 4) = 3.1156735023866838e-01_dp
3534 fit_coef(4, 4) = 8.8318376917750713e-02_dp
3535 fit_coef(5, 4) = -4.6905172790974697e-02_dp
3536 fit_coef(6, 4) = -4.8633790525923246e-02_dp
3537 fit_coef(7, 4) = -2.6374461756591546e-03_dp
3538 fit_coef(8, 4) = 1.4152819458865665e-02_dp
3539 fit_coef(9, 4) = 4.0713403471031064e-03_dp
3540 fit_coef(10, 4) = -8.1648840133065614e-03_dp
3541 fit_coef(11, 4) = 4.4172781177938061e-03_dp
3542 fit_coef(12, 4) = -1.0468849549327278e-03_dp
3543 fit_coef(0, 5) = 2.9628095459795201e-01_dp
3544 fit_coef(1, 5) = 6.1067548081671130e-01_dp
3545 fit_coef(2, 5) = 7.1073485839444905e-01_dp
3546 fit_coef(3, 5) = 4.8623515872109696e-01_dp
3547 fit_coef(4, 5) = 1.3873344982657515e-01_dp
3548 fit_coef(5, 5) = -7.1183381958692823e-02_dp
3549 fit_coef(6, 5) = -7.9018683634448778e-02_dp
3550 fit_coef(7, 5) = -4.1849522345858052e-03_dp
3551 fit_coef(8, 5) = 1.8669075914354103e-02_dp
3552 fit_coef(9, 5) = 2.5640549363637480e-02_dp
3553 fit_coef(10, 5) = -3.7238167104347006e-02_dp
3554 fit_coef(11, 5) = 2.0235521804447935e-02_dp
3555 fit_coef(12, 5) = -4.4633644085237409e-03_dp
3556 fit_coef(0, 6) = 5.3079425354928900e-01_dp
3557 fit_coef(1, 6) = 9.4909599974912540e-01_dp
3558 fit_coef(2, 6) = 1.0298933488572886e+00_dp
3559 fit_coef(3, 6) = 6.7464315041251843e-01_dp
3560 fit_coef(4, 6) = 1.9785397712598238e-01_dp
3561 fit_coef(5, 6) = -8.0277433825610117e-02_dp
3562 fit_coef(6, 6) = -1.0862148180963889e-01_dp
3563 fit_coef(7, 6) = -1.2190533137530357e-02_dp
3564 fit_coef(8, 6) = -4.3235690156727307e-03_dp
3565 fit_coef(9, 6) = 7.1406154351795634e-02_dp
3566 fit_coef(10, 6) = -4.7520764363596951e-02_dp
3567 fit_coef(11, 6) = 6.9200248215417976e-03_dp
3568 fit_coef(12, 6) = 1.7348958867823125e-03_dp
3569 fit_coef(0, 7) = 9.2513564519354430e-01_dp
3570 fit_coef(1, 7) = 1.3995257053484436e+00_dp
3571 fit_coef(2, 7) = 1.3941989426918036e+00_dp
3572 fit_coef(3, 7) = 8.5298558301770655e-01_dp
3573 fit_coef(4, 7) = 2.5029080019290989e-01_dp
3574 fit_coef(5, 7) = -6.9418886584503764e-02_dp
3575 fit_coef(6, 7) = -1.0048676489518746e-01_dp
3576 fit_coef(7, 7) = -6.5140068180983265e-02_dp
3577 fit_coef(8, 7) = 7.1961159826162302e-02_dp
3578 fit_coef(9, 7) = -1.0845933619226010e-01_dp
3579 fit_coef(10, 7) = 1.7018602738764302e-01_dp
3580 fit_coef(11, 7) = -1.0954176694571671e-01_dp
3581 fit_coef(12, 7) = 2.4968149530473070e-02_dp
3582 fit_coef(0, 8) = 1.5835046294778308e+00_dp
3583 fit_coef(1, 8) = 1.9791294738794438e+00_dp
3584 fit_coef(2, 8) = 1.7961980138940286e+00_dp
3585 fit_coef(3, 8) = 1.0051925409840725e+00_dp
3586 fit_coef(4, 8) = 2.8272786197343069e-01_dp
3587 fit_coef(5, 8) = -4.3458147169371041e-02_dp
3588 fit_coef(6, 8) = -7.1388547183826534e-02_dp
3589 fit_coef(7, 8) = -6.9105034008714997e-02_dp
3590 fit_coef(8, 8) = 4.9061162554567488e-02_dp
3591 fit_coef(9, 8) = -1.0568300110809625e-01_dp
3592 fit_coef(10, 8) = 1.1802618075924728e-01_dp
3593 fit_coef(11, 8) = -3.4740368047083123e-02_dp
3594 fit_coef(12, 8) = -2.0070688342111883e-03_dp
3595 fit_coef(0, 9) = 2.6780451266380028e+00_dp
3596 fit_coef(1, 9) = 2.6926034999618897e+00_dp
3597 fit_coef(2, 9) = 2.2273953918391149e+00_dp
3598 fit_coef(3, 9) = 1.1263680392434321e+00_dp
3599 fit_coef(4, 9) = 2.9395288063392006e-01_dp
3600 fit_coef(5, 9) = -8.9510678035254702e-03_dp
3601 fit_coef(6, 9) = -3.6852206543507286e-02_dp
3602 fit_coef(7, 9) = -2.0316323307418317e-02_dp
3603 fit_coef(8, 9) = -6.2348519142117052e-02_dp
3604 fit_coef(9, 9) = 5.0424313584454393e-02_dp
3605 fit_coef(10, 9) = -7.4016849780124558e-02_dp
3606 fit_coef(11, 9) = 8.1891720384978092e-02_dp
3607 fit_coef(12, 9) = -2.7202540553906623e-02_dp
3608 fit_coef(0, 10) = 4.5149548116067084e+00_dp
3609 fit_coef(1, 10) = 3.5279902941181556e+00_dp
3610 fit_coef(2, 10) = 2.6834197969535900e+00_dp
3611 fit_coef(3, 10) = 1.2234297318240759e+00_dp
3612 fit_coef(4, 10) = 2.9061691203379159e-01_dp
3613 fit_coef(5, 10) = 2.6998851164527955e-02_dp
3614 fit_coef(6, 10) = 1.1503151087891473e-02_dp
3615 fit_coef(7, 10) = -2.9263858448428439e-04_dp
3616 fit_coef(8, 10) = -7.4172023234369305e-02_dp
3617 fit_coef(9, 10) = 4.4507509039308939e-02_dp
3618 fit_coef(10, 10) = -6.0661296025507475e-02_dp
3619 fit_coef(11, 10) = 5.4037676664233973e-02_dp
3620 fit_coef(12, 10) = -1.3914979544265946e-02_dp
3621 fit_coef(0, 11) = 7.7831432490395818e+00_dp
3622 fit_coef(1, 11) = 4.4728899281150136e+00_dp
3623 fit_coef(2, 11) = 3.1793306487074551e+00_dp
3624 fit_coef(3, 11) = 1.3166282129264584e+00_dp
3625 fit_coef(4, 11) = 2.7989649807784495e-01_dp
3626 fit_coef(5, 11) = 6.1709167955964331e-02_dp
3627 fit_coef(6, 11) = 6.5030571914413512e-02_dp
3628 fit_coef(7, 11) = 5.8652910860924629e-03_dp
3629 fit_coef(8, 11) = -4.3479817133538171e-02_dp
3630 fit_coef(9, 11) = -1.5946703925855100e-02_dp
3631 fit_coef(10, 11) = 1.4840762855674984e-02_dp
3632 fit_coef(11, 11) = -1.6764580405545060e-03_dp
3633 fit_coef(12, 11) = 1.0361409280594497e-03_dp
3634 fit_coef(0, 12) = 1.3505623056792662e-02_dp
3635 fit_coef(1, 12) = 3.5881778901904388e-02_dp
3636 fit_coef(2, 12) = 4.6635585408641191e-02_dp
3637 fit_coef(3, 12) = 3.4196109564738703e-02_dp
3638 fit_coef(4, 12) = 1.0427820008519861e-02_dp
3639 fit_coef(5, 12) = -4.8496513706743740e-03_dp
3640 fit_coef(6, 12) = -5.6249874188544387e-03_dp
3641 fit_coef(7, 12) = -5.4152291061643394e-04_dp
3642 fit_coef(8, 12) = 1.3707635274310744e-03_dp
3643 fit_coef(9, 12) = 9.3081024123118999e-04_dp
3644 fit_coef(10, 12) = -1.2643999344426028e-03_dp
3645 fit_coef(11, 12) = 6.4488398114361249e-04_dp
3646 fit_coef(12, 12) = -1.4631445736861331e-04_dp
3647 fit_coef(0, 13) = 3.3953336933937019e-02_dp
3648 fit_coef(1, 13) = 8.6200605204820452e-02_dp
3649 fit_coef(2, 13) = 1.0956860661445041e-01_dp
3650 fit_coef(3, 13) = 7.8748352145278117e-02_dp
3651 fit_coef(4, 13) = 2.3201917648793789e-02_dp
3652 fit_coef(5, 13) = -1.1428692068356564e-02_dp
3653 fit_coef(6, 13) = -1.2646975774724427e-02_dp
3654 fit_coef(7, 13) = -1.0364501016809282e-03_dp
3655 fit_coef(8, 13) = 3.2018633266795151e-03_dp
3656 fit_coef(9, 13) = 1.9223995549073674e-03_dp
3657 fit_coef(10, 13) = -2.7320063801979958e-03_dp
3658 fit_coef(11, 13) = 1.3899117897301057e-03_dp
3659 fit_coef(12, 13) = -3.1441281031980347e-04_dp
3660 fit_coef(0, 14) = 6.1851572757860851e-02_dp
3661 fit_coef(1, 14) = 1.4267393289529001e-01_dp
3662 fit_coef(2, 14) = 1.7418539035135686e-01_dp
3663 fit_coef(3, 14) = 1.2141235983496969e-01_dp
3664 fit_coef(4, 14) = 3.3706874354447809e-02_dp
3665 fit_coef(5, 14) = -1.8360609527326543e-02_dp
3666 fit_coef(6, 14) = -1.8541339179191114e-02_dp
3667 fit_coef(7, 14) = -8.8529750610819111e-04_dp
3668 fit_coef(8, 14) = 4.7747853958221521e-03_dp
3669 fit_coef(9, 14) = 2.4689097936542491e-03_dp
3670 fit_coef(10, 14) = -3.6719910751692379e-03_dp
3671 fit_coef(11, 14) = 1.8252247936231616e-03_dp
3672 fit_coef(12, 14) = -4.0633639834620388e-04_dp
3673 fit_coef(0, 15) = 1.0551618877519962e-01_dp
3674 fit_coef(1, 15) = 2.0866982892328420e-01_dp
3675 fit_coef(2, 15) = 2.3758645562105263e-01_dp
3676 fit_coef(3, 15) = 1.6022711660180100e-01_dp
3677 fit_coef(4, 15) = 4.3995832787546506e-02_dp
3678 fit_coef(5, 15) = -2.5306890576195295e-02_dp
3679 fit_coef(6, 15) = -2.5168288399177011e-02_dp
3680 fit_coef(7, 15) = -9.3194538735970800e-04_dp
3681 fit_coef(8, 15) = 1.1886232926624151e-02_dp
3682 fit_coef(9, 15) = -3.1847717078905507e-03_dp
3683 fit_coef(10, 15) = -2.3213252827938664e-03_dp
3684 fit_coef(11, 15) = 2.4083825205789490e-03_dp
3685 fit_coef(12, 15) = -7.2529680267051182e-04_dp
3686 fit_coef(0, 16) = 1.7844852042063208e-01_dp
3687 fit_coef(1, 16) = 2.8956711047461353e-01_dp
3688 fit_coef(2, 16) = 2.9424320012524147e-01_dp
3689 fit_coef(3, 16) = 1.8566958335038000e-01_dp
3690 fit_coef(4, 16) = 5.6552619188388630e-02_dp
3691 fit_coef(5, 16) = -1.9536083908459775e-02_dp
3692 fit_coef(6, 16) = -3.5122564007741566e-02_dp
3693 fit_coef(7, 16) = -1.5160502263432738e-04_dp
3694 fit_coef(8, 16) = -1.8782648209524570e-02_dp
3695 fit_coef(9, 16) = 6.7898727329487735e-02_dp
3696 fit_coef(10, 16) = -6.6952173441897606e-02_dp
3697 fit_coef(11, 16) = 3.0244889278910881e-02_dp
3698 fit_coef(12, 16) = -5.4548300942684411e-03_dp
3699 fit_coef(0, 17) = 3.0103516162173788e-01_dp
3700 fit_coef(1, 17) = 3.9093832828366182e-01_dp
3701 fit_coef(2, 17) = 3.4287403235055175e-01_dp
3702 fit_coef(3, 17) = 1.8694079224619659e-01_dp
3703 fit_coef(4, 17) = 5.8759826809024841e-02_dp
3704 fit_coef(5, 17) = 1.8203291052277864e-03_dp
3705 fit_coef(6, 17) = -1.4847774478906702e-02_dp
3706 fit_coef(7, 17) = -3.0225726948560502e-02_dp
3707 fit_coef(8, 17) = 1.7580090339776970e-02_dp
3708 fit_coef(9, 17) = -6.3682901560076013e-02_dp
3709 fit_coef(10, 17) = 1.2826078376018740e-01_dp
3710 fit_coef(11, 17) = -9.3634524667592312e-02_dp
3711 fit_coef(12, 17) = 2.4194956180134675e-02_dp
3712 fit_coef(0, 18) = 5.0459047494440223e-01_dp
3713 fit_coef(1, 18) = 5.1293218387604667e-01_dp
3714 fit_coef(2, 18) = 3.8452848514240090e-01_dp
3715 fit_coef(3, 18) = 1.6703912013390276e-01_dp
3716 fit_coef(4, 18) = 4.3712588651811067e-02_dp
3717 fit_coef(5, 18) = 1.9051249953627954e-02_dp
3718 fit_coef(6, 18) = 2.5883902146128887e-02_dp
3719 fit_coef(7, 18) = -5.0770600600935537e-02_dp
3720 fit_coef(8, 18) = 7.7584684197698039e-02_dp
3721 fit_coef(9, 18) = -1.7926872234928357e-01_dp
3722 fit_coef(10, 18) = 1.6678298865222213e-01_dp
3723 fit_coef(11, 18) = -5.5645139244720254e-02_dp
3724 fit_coef(12, 18) = 2.7420024112079135e-03_dp
3725 fit_coef(0, 19) = 8.3992248227121313e-01_dp
3726 fit_coef(1, 19) = 6.4715555436372529e-01_dp
3727 fit_coef(2, 19) = 4.1796785083991977e-01_dp
3728 fit_coef(3, 19) = 1.3654955607272076e-01_dp
3729 fit_coef(4, 19) = 2.1070840652137535e-02_dp
3730 fit_coef(5, 19) = 3.1743033314222624e-02_dp
3731 fit_coef(6, 19) = 2.9784087155825711e-02_dp
3732 fit_coef(7, 19) = 4.1081836375772660e-02_dp
3733 fit_coef(8, 19) = -1.1439519939475226e-01_dp
3734 fit_coef(9, 19) = 1.6305361885018524e-01_dp
3735 fit_coef(10, 19) = -2.2346150468788073e-01_dp
3736 fit_coef(11, 19) = 1.6036296981154594e-01_dp
3737 fit_coef(12, 19) = -4.2164356684994284e-02_dp
3738 fit_coef(0, 20) = 1.3973915504793548e+00_dp
3739 fit_coef(1, 20) = 7.7764466691628698e-01_dp
3740 fit_coef(2, 20) = 4.4348607986397731e-01_dp
3741 fit_coef(3, 20) = 1.0694241439192023e-01_dp
3742 fit_coef(4, 20) = 2.6327294220292721e-03_dp
3743 fit_coef(5, 20) = 3.5966741485323687e-02_dp
3744 fit_coef(6, 20) = 4.1705374001031803e-02_dp
3745 fit_coef(7, 20) = 3.8907029803020722e-02_dp
3746 fit_coef(8, 20) = -6.8120058033489070e-02_dp
3747 fit_coef(9, 20) = 8.2786813906914350e-02_dp
3748 fit_coef(10, 20) = -9.1368844284995504e-02_dp
3749 fit_coef(11, 20) = 3.7752943929935098e-02_dp
3750 fit_coef(12, 20) = -1.9232870385022373e-03_dp
3751 fit_coef(0, 21) = 2.3760047811723362e+00_dp
3752 fit_coef(1, 21) = 8.8976406037305356e-01_dp
3753 fit_coef(2, 21) = 4.7037419059997421e-01_dp
3754 fit_coef(3, 21) = 9.0428943264851042e-02_dp
3755 fit_coef(4, 21) = -8.0951525285273343e-03_dp
3756 fit_coef(5, 21) = 3.5586564490451805e-02_dp
3757 fit_coef(6, 21) = 5.2837656508520334e-02_dp
3758 fit_coef(7, 21) = 6.4161552882951054e-03_dp
3759 fit_coef(8, 21) = 2.7554689120903888e-02_dp
3760 fit_coef(9, 21) = -6.3909420973179670e-02_dp
3761 fit_coef(10, 21) = 7.9771394321258737e-02_dp
3762 fit_coef(11, 21) = -6.5034308453826573e-02_dp
3763 fit_coef(12, 21) = 2.0094355264141887e-02_dp
3764 fit_coef(0, 22) = 4.5028432526721405e+00_dp
3765 fit_coef(1, 22) = 1.0114482591044458e+00_dp
3766 fit_coef(2, 22) = 5.3486119037036706e-01_dp
3767 fit_coef(3, 22) = 1.0317932221763447e-01_dp
3768 fit_coef(4, 22) = -1.2314024715229079e-02_dp
3769 fit_coef(5, 22) = 3.3690522473128488e-02_dp
3770 fit_coef(6, 22) = 5.3663513056946451e-02_dp
3771 fit_coef(7, 22) = 1.0785244432659307e-02_dp
3772 fit_coef(8, 22) = 2.2642841476459809e-02_dp
3773 fit_coef(9, 22) = -3.9218764804072916e-02_dp
3774 fit_coef(10, 22) = 5.2080967974292493e-02_dp
3775 fit_coef(11, 22) = -3.5217909102649027e-02_dp
3776 fit_coef(12, 22) = 7.5721478110433137e-03_dp
3777
3778 END SUBROUTINE get_fit_coef_k11_sh
3779
3780! **************************************************************************************************
3781!> \brief ...
3782!> \param k ...
3783!> \param fit_coef ...
3784!> \param L_b ...
3785!> \param U_b ...
3786! **************************************************************************************************
3787 SUBROUTINE get_fit_coef_k11_mi(k, fit_coef, L_b, U_b)
3788 INTEGER :: k
3789 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
3790 REAL(kind=dp) :: l_b, u_b
3791
3792 l_b = 1.0000000000000000e+02_dp
3793 u_b = 1.1533853671352736e+03_dp
3794 fit_coef(0, 1) = 7.3828894587718401e-04_dp
3795 fit_coef(1, 1) = 2.0775080037103563e-03_dp
3796 fit_coef(2, 1) = 2.9605504652653850e-03_dp
3797 fit_coef(3, 1) = 2.5239761597293463e-03_dp
3798 fit_coef(4, 1) = 1.1723403873630633e-03_dp
3799 fit_coef(5, 1) = 4.6491653525586301e-05_dp
3800 fit_coef(6, 1) = -2.5819644062415552e-04_dp
3801 fit_coef(7, 1) = -3.9831509458327039e-05_dp
3802 fit_coef(8, 1) = -4.0413534671757017e-05_dp
3803 fit_coef(9, 1) = 2.5700229767237757e-04_dp
3804 fit_coef(10, 1) = -2.8744580127669869e-04_dp
3805 fit_coef(11, 1) = 1.4858790649392180e-04_dp
3806 fit_coef(12, 1) = -3.1394148877043504e-05_dp
3807 fit_coef(0, 2) = 4.3620891975219853e-03_dp
3808 fit_coef(1, 2) = 1.1465965739592934e-02_dp
3809 fit_coef(2, 2) = 1.6004195686742342e-02_dp
3810 fit_coef(3, 2) = 1.3390829030018066e-02_dp
3811 fit_coef(4, 2) = 6.0723492355871950e-03_dp
3812 fit_coef(5, 2) = 1.7271227012111563e-04_dp
3813 fit_coef(6, 2) = -1.3295013600067558e-03_dp
3814 fit_coef(7, 2) = -2.0819503017025333e-04_dp
3815 fit_coef(8, 2) = -1.9485312280291003e-04_dp
3816 fit_coef(9, 2) = 1.3461436514495772e-03_dp
3817 fit_coef(10, 2) = -1.5381432319053760e-03_dp
3818 fit_coef(11, 2) = 8.0871429267979347e-04_dp
3819 fit_coef(12, 2) = -1.7336433357221408e-04_dp
3820 fit_coef(0, 3) = 1.3393965217340013e-02_dp
3821 fit_coef(1, 3) = 3.0758021534147448e-02_dp
3822 fit_coef(2, 3) = 4.0863508679567187e-02_dp
3823 fit_coef(3, 3) = 3.3137344564780624e-02_dp
3824 fit_coef(4, 3) = 1.4642382183959756e-02_dp
3825 fit_coef(5, 3) = 1.8546563333903454e-04_dp
3826 fit_coef(6, 3) = -3.2981507356429299e-03_dp
3827 fit_coef(7, 3) = -5.0371329478405473e-04_dp
3828 fit_coef(8, 3) = -3.3526812040834221e-04_dp
3829 fit_coef(9, 3) = 3.3638986135397790e-03_dp
3830 fit_coef(10, 3) = -4.0699164251672606e-03_dp
3831 fit_coef(11, 3) = 2.2132500698992790e-03_dp
3832 fit_coef(12, 3) = -4.8530598400547189e-04_dp
3833 fit_coef(0, 4) = 3.4178972479544684e-02_dp
3834 fit_coef(1, 4) = 6.5546031770227484e-02_dp
3835 fit_coef(2, 4) = 8.0042248964935656e-02_dp
3836 fit_coef(3, 4) = 6.0702076580615758e-02_dp
3837 fit_coef(4, 4) = 2.5719498592455581e-02_dp
3838 fit_coef(5, 4) = 6.3119790847243661e-04_dp
3839 fit_coef(6, 4) = -5.4349702628550432e-03_dp
3840 fit_coef(7, 4) = -1.2659291521318623e-03_dp
3841 fit_coef(8, 4) = -1.2216416836694759e-03_dp
3842 fit_coef(9, 4) = 6.6635331234771687e-03_dp
3843 fit_coef(10, 4) = -7.2400923612061709e-03_dp
3844 fit_coef(11, 4) = 3.7136157185037903e-03_dp
3845 fit_coef(12, 4) = -7.8916627439796453e-04_dp
3846 fit_coef(0, 5) = 8.0104328961022445e-02_dp
3847 fit_coef(1, 5) = 1.2586958566619899e-01_dp
3848 fit_coef(2, 5) = 1.3877416617876437e-01_dp
3849 fit_coef(3, 5) = 9.4435072367624009e-02_dp
3850 fit_coef(4, 5) = 3.5574728421505095e-02_dp
3851 fit_coef(5, 5) = 4.6709813565982229e-04_dp
3852 fit_coef(6, 5) = -5.5823066584693949e-03_dp
3853 fit_coef(7, 5) = -2.2508074433607930e-03_dp
3854 fit_coef(8, 5) = -4.8236909977057691e-04_dp
3855 fit_coef(9, 5) = 5.8248465053641401e-03_dp
3856 fit_coef(10, 5) = -7.4300192099394369e-03_dp
3857 fit_coef(11, 5) = 4.5059815374626708e-03_dp
3858 fit_coef(12, 5) = -1.1055416581292031e-03_dp
3859 fit_coef(0, 6) = 1.7731760423288304e-01_dp
3860 fit_coef(1, 6) = 2.2598655727257688e-01_dp
3861 fit_coef(2, 6) = 2.2430968436915458e-01_dp
3862 fit_coef(3, 6) = 1.3311060621110593e-01_dp
3863 fit_coef(4, 6) = 4.0488867018282172e-02_dp
3864 fit_coef(5, 6) = -2.1669989611095342e-03_dp
3865 fit_coef(6, 6) = -3.8187866091584140e-03_dp
3866 fit_coef(7, 6) = -2.1306428597222633e-03_dp
3867 fit_coef(8, 6) = 7.7683777527477076e-04_dp
3868 fit_coef(9, 6) = 4.9822370243334966e-03_dp
3869 fit_coef(10, 6) = -9.5726170222928900e-03_dp
3870 fit_coef(11, 6) = 6.8634964686467978e-03_dp
3871 fit_coef(12, 6) = -1.7999298724748951e-03_dp
3872 fit_coef(0, 7) = 3.7517258865761766e-01_dp
3873 fit_coef(1, 7) = 3.8333519695677720e-01_dp
3874 fit_coef(2, 7) = 3.4375707015157120e-01_dp
3875 fit_coef(3, 7) = 1.7423153407071543e-01_dp
3876 fit_coef(4, 7) = 3.7337456774139702e-02_dp
3877 fit_coef(5, 7) = -7.4660271581285850e-03_dp
3878 fit_coef(6, 7) = 5.8400107303188187e-04_dp
3879 fit_coef(7, 7) = -2.5244872448215655e-03_dp
3880 fit_coef(8, 7) = 4.2884385157431048e-03_dp
3881 fit_coef(9, 7) = 1.0453917543656458e-03_dp
3882 fit_coef(10, 7) = -9.2913505401427225e-03_dp
3883 fit_coef(11, 7) = 8.1349139258150831e-03_dp
3884 fit_coef(12, 7) = -2.3025720564300821e-03_dp
3885 fit_coef(0, 8) = 7.6460515920837613e-01_dp
3886 fit_coef(1, 8) = 6.1549142645707966e-01_dp
3887 fit_coef(2, 8) = 5.0182800509604020e-01_dp
3888 fit_coef(3, 8) = 2.1325320085467817e-01_dp
3889 fit_coef(4, 8) = 2.3360017105729571e-02_dp
3890 fit_coef(5, 8) = -1.4054384598267826e-02_dp
3891 fit_coef(6, 8) = 9.0661378414736218e-03_dp
3892 fit_coef(7, 8) = -4.7433494326856486e-03_dp
3893 fit_coef(8, 8) = 1.0160041902537189e-02_dp
3894 fit_coef(9, 8) = -6.9427342461860627e-03_dp
3895 fit_coef(10, 8) = -5.4907207434525202e-03_dp
3896 fit_coef(11, 8) = 8.0763791261621969e-03_dp
3897 fit_coef(12, 8) = -2.6484224072421108e-03_dp
3898 fit_coef(0, 9) = 1.5114021780363067e+00_dp
3899 fit_coef(1, 9) = 9.3368349741314893e-01_dp
3900 fit_coef(2, 9) = 6.9854171505894413e-01_dp
3901 fit_coef(3, 9) = 2.4498257864430506e-01_dp
3902 fit_coef(4, 9) = -2.7117345776915117e-03_dp
3903 fit_coef(5, 9) = -1.9684397407321690e-02_dp
3904 fit_coef(6, 9) = 2.2750102305246520e-02_dp
3905 fit_coef(7, 9) = -9.9596165022990610e-03_dp
3906 fit_coef(8, 9) = 1.8166084113835305e-02_dp
3907 fit_coef(9, 9) = -1.9043752557357005e-02_dp
3908 fit_coef(10, 9) = 2.2864257000369307e-03_dp
3909 fit_coef(11, 9) = 6.3623059846125004e-03_dp
3910 fit_coef(12, 9) = -2.7468174322941873e-03_dp
3911 fit_coef(0, 10) = 2.9272838679658890e+00_dp
3912 fit_coef(1, 10) = 1.3344095709119908e+00_dp
3913 fit_coef(2, 10) = 9.2872428481763736e-01_dp
3914 fit_coef(3, 10) = 2.6731240098857367e-01_dp
3915 fit_coef(4, 10) = -3.9323628602554263e-02_dp
3916 fit_coef(5, 10) = -2.2664729979783912e-02_dp
3917 fit_coef(6, 10) = 4.1418459538349613e-02_dp
3918 fit_coef(7, 10) = -1.8765822971615966e-02_dp
3919 fit_coef(8, 10) = 2.8023480739935883e-02_dp
3920 fit_coef(9, 10) = -3.4574149384271238e-02_dp
3921 fit_coef(10, 10) = 1.3734227321286851e-02_dp
3922 fit_coef(11, 10) = 2.9343888906998264e-03_dp
3923 fit_coef(12, 10) = -2.5433341475355697e-03_dp
3924 fit_coef(0, 11) = 5.7131838450036696e+00_dp
3925 fit_coef(1, 11) = 1.8005538920264632e+00_dp
3926 fit_coef(2, 11) = 1.1880536006356908e+00_dp
3927 fit_coef(3, 11) = 2.8559106021602204e-01_dp
3928 fit_coef(4, 11) = -8.2639115843313488e-02_dp
3929 fit_coef(5, 11) = -2.3761780940649874e-02_dp
3930 fit_coef(6, 11) = 6.3493180678645345e-02_dp
3931 fit_coef(7, 11) = -3.0273355255164173e-02_dp
3932 fit_coef(8, 11) = 3.9310329422917428e-02_dp
3933 fit_coef(9, 11) = -5.2371339180397693e-02_dp
3934 fit_coef(10, 11) = 2.7484059561085201e-02_dp
3935 fit_coef(11, 11) = -1.5309209297749292e-03_dp
3936 fit_coef(12, 11) = -2.1659478188002048e-03_dp
3937 fit_coef(0, 12) = 1.9426697312926121e-03_dp
3938 fit_coef(1, 12) = 5.3902355339823542e-03_dp
3939 fit_coef(2, 12) = 7.6460050852952361e-03_dp
3940 fit_coef(3, 12) = 6.4861449445603606e-03_dp
3941 fit_coef(4, 12) = 2.9975041609363725e-03_dp
3942 fit_coef(5, 12) = 1.1267866675204334e-04_dp
3943 fit_coef(6, 12) = -6.6052089732986108e-04_dp
3944 fit_coef(7, 12) = -1.0429593050340101e-04_dp
3945 fit_coef(8, 12) = -9.6642089460867778e-05_dp
3946 fit_coef(9, 12) = 6.5468723131356925e-04_dp
3947 fit_coef(10, 12) = -7.3909338726213167e-04_dp
3948 fit_coef(11, 12) = 3.8434400387220237e-04_dp
3949 fit_coef(12, 12) = -8.1587630115757833e-05_dp
3950 fit_coef(0, 13) = 5.6766583157203338e-03_dp
3951 fit_coef(1, 13) = 1.3746861086398525e-02_dp
3952 fit_coef(2, 13) = 1.8677286574891313e-02_dp
3953 fit_coef(3, 13) = 1.5318320571135682e-02_dp
3954 fit_coef(4, 13) = 6.7566786656071713e-03_dp
3955 fit_coef(5, 13) = 7.1919811741634156e-05_dp
3956 fit_coef(6, 13) = -1.4743272069088146e-03_dp
3957 fit_coef(7, 13) = -2.0331439016954778e-04_dp
3958 fit_coef(8, 13) = -1.9066551850151903e-04_dp
3959 fit_coef(9, 13) = 1.4614366852185527e-03_dp
3960 fit_coef(10, 13) = -1.7182804418019637e-03_dp
3961 fit_coef(11, 13) = 9.2385541265890814e-04_dp
3962 fit_coef(12, 13) = -2.0177461300662419e-04_dp
3963 fit_coef(0, 14) = 1.3396971882867550e-02_dp
3964 fit_coef(1, 14) = 2.5745664924886561e-02_dp
3965 fit_coef(2, 14) = 3.1409108695941872e-02_dp
3966 fit_coef(3, 14) = 2.3978671080145342e-02_dp
3967 fit_coef(4, 14) = 1.0268221460486631e-02_dp
3968 fit_coef(5, 14) = 1.2930798224983239e-04_dp
3969 fit_coef(6, 14) = -2.4415003996848300e-03_dp
3970 fit_coef(7, 14) = -4.3479841388968817e-04_dp
3971 fit_coef(8, 14) = -5.2954762444991550e-04_dp
3972 fit_coef(9, 14) = 3.3920573298805374e-03_dp
3973 fit_coef(10, 14) = -3.9601620536706839e-03_dp
3974 fit_coef(11, 14) = 2.1033319510085288e-03_dp
3975 fit_coef(12, 14) = -4.5128467093780031e-04_dp
3976 fit_coef(0, 15) = 3.0313612771117847e-02_dp
3977 fit_coef(1, 15) = 4.5511722981043855e-02_dp
3978 fit_coef(2, 15) = 4.7843577097949709e-02_dp
3979 fit_coef(3, 15) = 3.0848847485647288e-02_dp
3980 fit_coef(4, 15) = 1.1173391444445794e-02_dp
3981 fit_coef(5, 15) = 5.3673413927424196e-04_dp
3982 fit_coef(6, 15) = -1.2788112460830441e-03_dp
3983 fit_coef(7, 15) = -1.2106504102044236e-03_dp
3984 fit_coef(8, 15) = -1.3614299287656570e-04_dp
3985 fit_coef(9, 15) = 8.4193596534928113e-04_dp
3986 fit_coef(10, 15) = -4.9266376268823403e-04_dp
3987 fit_coef(11, 15) = 2.4264482966524924e-04_dp
3988 fit_coef(12, 15) = -8.0800915180974188e-05_dp
3989 fit_coef(0, 16) = 6.5727773851375626e-02_dp
3990 fit_coef(1, 16) = 7.7524625497591287e-02_dp
3991 fit_coef(2, 16) = 7.0866135281020856e-02_dp
3992 fit_coef(3, 16) = 3.6455648551271543e-02_dp
3993 fit_coef(4, 16) = 7.9253539051012834e-03_dp
3994 fit_coef(5, 16) = -1.2114748812317041e-03_dp
3995 fit_coef(6, 16) = 8.2015105160121449e-04_dp
3996 fit_coef(7, 16) = -3.0470170403903876e-04_dp
3997 fit_coef(8, 16) = 8.4675959307711432e-04_dp
3998 fit_coef(9, 16) = -6.9307175814985243e-04_dp
3999 fit_coef(10, 16) = -1.7074186347168978e-03_dp
4000 fit_coef(11, 16) = 2.1004252363773243e-03_dp
4001 fit_coef(12, 16) = -6.5954156111989743e-04_dp
4002 fit_coef(0, 17) = 1.3663204308698063e-01_dp
4003 fit_coef(1, 17) = 1.2566212501641080e-01_dp
4004 fit_coef(2, 17) = 1.0142604274144125e-01_dp
4005 fit_coef(3, 17) = 4.0492590765185132e-02_dp
4006 fit_coef(4, 17) = 1.3893599733611069e-03_dp
4007 fit_coef(5, 17) = -4.0829840345847287e-03_dp
4008 fit_coef(6, 17) = 2.8641937242071414e-03_dp
4009 fit_coef(7, 17) = 1.4034997283466152e-04_dp
4010 fit_coef(8, 17) = 2.2130109369625853e-03_dp
4011 fit_coef(9, 17) = -1.9780643203207446e-03_dp
4012 fit_coef(10, 17) = -1.3761639970619644e-03_dp
4013 fit_coef(11, 17) = 1.9654825472193074e-03_dp
4014 fit_coef(12, 17) = -6.0411821444792237e-04_dp
4015 fit_coef(0, 18) = 2.7371713350977883e-01_dp
4016 fit_coef(1, 18) = 1.9207380047459294e-01_dp
4017 fit_coef(2, 18) = 1.3829663189483482e-01_dp
4018 fit_coef(3, 18) = 4.0969959876443064e-02_dp
4019 fit_coef(4, 18) = -8.1744595653702960e-03_dp
4020 fit_coef(5, 18) = -6.2758002950377006e-03_dp
4021 fit_coef(6, 18) = 6.1933985486500821e-03_dp
4022 fit_coef(7, 18) = -1.1137257661482085e-03_dp
4023 fit_coef(8, 18) = 4.7491704854226244e-03_dp
4024 fit_coef(9, 18) = -5.9366942385150516e-03_dp
4025 fit_coef(10, 18) = 1.9770890986731604e-03_dp
4026 fit_coef(11, 18) = 6.2460690633304441e-04_dp
4027 fit_coef(12, 18) = -4.2628349475002297e-04_dp
4028 fit_coef(0, 19) = 5.3176214769076025e-01_dp
4029 fit_coef(1, 19) = 2.7427114346332437e-01_dp
4030 fit_coef(2, 19) = 1.7786670623161183e-01_dp
4031 fit_coef(3, 19) = 3.6141984545340726e-02_dp
4032 fit_coef(4, 19) = -2.0019481045233233e-02_dp
4033 fit_coef(5, 19) = -6.5029597037300265e-03_dp
4034 fit_coef(6, 19) = 1.0978881646568977e-02_dp
4035 fit_coef(7, 19) = -3.5326165348373130e-03_dp
4036 fit_coef(8, 19) = 6.9664331496620468e-03_dp
4037 fit_coef(9, 19) = -1.0072536637310938e-02_dp
4038 fit_coef(10, 19) = 5.7316495954974223e-03_dp
4039 fit_coef(11, 19) = -8.1951094019536695e-04_dp
4040 fit_coef(12, 19) = -2.4352440718963261e-04_dp
4041 fit_coef(0, 20) = 1.0110078977345236e+00_dp
4042 fit_coef(1, 20) = 3.6158811802096996e-01_dp
4043 fit_coef(2, 20) = 2.1462317218559554e-01_dp
4044 fit_coef(3, 20) = 2.6882407712661614e-02_dp
4045 fit_coef(4, 20) = -3.1860390881090057e-02_dp
4046 fit_coef(5, 20) = -4.4365197992393256e-03_dp
4047 fit_coef(6, 20) = 1.6356522282533974e-02_dp
4048 fit_coef(7, 20) = -7.0191772084550030e-03_dp
4049 fit_coef(8, 20) = 9.0001998656736130e-03_dp
4050 fit_coef(9, 20) = -1.4010401343075048e-02_dp
4051 fit_coef(10, 20) = 9.7773201744224356e-03_dp
4052 fit_coef(11, 20) = -2.6263089272930114e-03_dp
4053 fit_coef(12, 20) = 5.8079667692654174e-05_dp
4054 fit_coef(0, 21) = 1.9229902544572308e+00_dp
4055 fit_coef(1, 21) = 4.3639570130727606e-01_dp
4056 fit_coef(2, 21) = 2.4465083184076966e-01_dp
4057 fit_coef(3, 21) = 1.8632226021993891e-02_dp
4058 fit_coef(4, 21) = -4.0654823075276181e-02_dp
4059 fit_coef(5, 21) = -1.6438863848394413e-03_dp
4060 fit_coef(6, 21) = 2.0679654468894963e-02_dp
4061 fit_coef(7, 21) = -1.0433989825777933e-02_dp
4062 fit_coef(8, 21) = 1.0631019238151107e-02_dp
4063 fit_coef(9, 21) = -1.6823436574756146e-02_dp
4064 fit_coef(10, 21) = 1.2861656736955324e-02_dp
4065 fit_coef(11, 21) = -4.1063260520761953e-03_dp
4066 fit_coef(12, 21) = 3.2620599079153290e-04_dp
4067 fit_coef(0, 22) = 3.9876478956152801e+00_dp
4068 fit_coef(1, 22) = 4.9699973939632702e-01_dp
4069 fit_coef(2, 22) = 2.7726332870042114e-01_dp
4070 fit_coef(3, 22) = 2.0557461247107046e-02_dp
4071 fit_coef(4, 22) = -4.5589994159230353e-02_dp
4072 fit_coef(5, 22) = -1.1953594192753122e-03_dp
4073 fit_coef(6, 22) = 2.3317546922334211e-02_dp
4074 fit_coef(7, 22) = -1.2287704350934838e-02_dp
4075 fit_coef(8, 22) = 1.1987190724120066e-02_dp
4076 fit_coef(9, 22) = -1.8798325292619430e-02_dp
4077 fit_coef(10, 22) = 1.4466982948530036e-02_dp
4078 fit_coef(11, 22) = -4.6627474463343845e-03_dp
4079 fit_coef(12, 22) = 3.8343338955871208e-04_dp
4080
4081 END SUBROUTINE get_fit_coef_k11_mi
4082
4083! **************************************************************************************************
4084!> \brief ...
4085!> \param k ...
4086!> \param fit_coef ...
4087!> \param L_b ...
4088!> \param U_b ...
4089! **************************************************************************************************
4090 SUBROUTINE get_fit_coef_k11_lo(k, fit_coef, L_b, U_b)
4091 INTEGER :: k
4092 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
4093 REAL(kind=dp) :: l_b, u_b
4094
4095 l_b = 1.0000000000000000e+02_dp
4096 u_b = 1.0890000000000000e+05_dp
4097 fit_coef(0, 1) = 3.5476589277685659e-05_dp
4098 fit_coef(1, 1) = 1.4120924025631340e-05_dp
4099 fit_coef(2, 1) = 3.1076536118129984e-03_dp
4100 fit_coef(3, 1) = -2.0920445403620737e-02_dp
4101 fit_coef(4, 1) = 1.5503824842219388e-01_dp
4102 fit_coef(5, 1) = -6.5946634106067126e-01_dp
4103 fit_coef(6, 1) = 1.9567718308121806e+00_dp
4104 fit_coef(7, 1) = -4.0223034504541495e+00_dp
4105 fit_coef(8, 1) = 5.7073753184657754e+00_dp
4106 fit_coef(9, 1) = -5.4854200724345779e+00_dp
4107 fit_coef(10, 1) = 3.4084108118688103e+00_dp
4108 fit_coef(11, 1) = -1.2351133915217054e+00_dp
4109 fit_coef(12, 1) = 1.9818096546374844e-01_dp
4110 fit_coef(0, 2) = 3.9040597969308965e-04_dp
4111 fit_coef(1, 2) = 8.7958193593917847e-05_dp
4112 fit_coef(2, 2) = 1.9518122056059333e-02_dp
4113 fit_coef(3, 2) = -1.3498019724834617e-01_dp
4114 fit_coef(4, 2) = 9.8104943789195032e-01_dp
4115 fit_coef(5, 2) = -4.1896253590373966e+00_dp
4116 fit_coef(6, 2) = 1.2439540817050382e+01_dp
4117 fit_coef(7, 2) = -2.5590801859617393e+01_dp
4118 fit_coef(8, 2) = 3.6347431140247103e+01_dp
4119 fit_coef(9, 2) = -3.4967385668188783e+01_dp
4120 fit_coef(10, 2) = 2.1745312479785735e+01_dp
4121 fit_coef(11, 2) = -7.8852461430485148e+00_dp
4122 fit_coef(12, 2) = 1.2659121491127978e+00_dp
4123 fit_coef(0, 3) = 2.0665460609606825e-03_dp
4124 fit_coef(1, 3) = 3.0623598182770673e-04_dp
4125 fit_coef(2, 3) = 6.8781938169008475e-02_dp
4126 fit_coef(3, 3) = -4.9168954382575458e-01_dp
4127 fit_coef(4, 3) = 3.4930362601920923e+00_dp
4128 fit_coef(5, 3) = -1.5167014240164407e+01_dp
4129 fit_coef(6, 3) = 4.5295440057571241e+01_dp
4130 fit_coef(7, 3) = -9.3377006161805866e+01_dp
4131 fit_coef(8, 3) = 1.3271885253969418e+02_dp
4132 fit_coef(9, 3) = -1.2770077780864555e+02_dp
4133 fit_coef(10, 3) = 7.9411953123430422e+01_dp
4134 fit_coef(11, 3) = -2.8793930151510978e+01_dp
4135 fit_coef(12, 3) = 4.6222166428791578e+00_dp
4136 fit_coef(0, 4) = 7.9767528386571820e-03_dp
4137 fit_coef(1, 4) = 8.4910081412428783e-04_dp
4138 fit_coef(2, 4) = 1.9200935759540066e-01_dp
4139 fit_coef(3, 4) = -1.4007008225024304e+00_dp
4140 fit_coef(4, 4) = 9.8035873307907426e+00_dp
4141 fit_coef(5, 4) = -4.2999162330329014e+01_dp
4142 fit_coef(6, 4) = 1.2867236226296961e+02_dp
4143 fit_coef(7, 4) = -2.6546890298183149e+02_dp
4144 fit_coef(8, 4) = 3.7764422948289194e+02_dp
4145 fit_coef(9, 4) = -3.6371847327447421e+02_dp
4146 fit_coef(10, 4) = 2.2639866330975411e+02_dp
4147 fit_coef(11, 4) = -8.2161179736409451e+01_dp
4148 fit_coef(12, 4) = 1.3199047691946380e+01_dp
4149 fit_coef(0, 5) = 2.5545969787194346e-02_dp
4150 fit_coef(1, 5) = 2.0342070978811074e-03_dp
4151 fit_coef(2, 5) = 4.6216853849385225e-01_dp
4152 fit_coef(3, 5) = -3.4177493858793202e+00_dp
4153 fit_coef(4, 5) = 2.3691045823517857e+01_dp
4154 fit_coef(5, 5) = -1.0461938927709393e+02_dp
4155 fit_coef(6, 5) = 3.1370386858745627e+02_dp
4156 fit_coef(7, 5) = -6.4798973211308271e+02_dp
4157 fit_coef(8, 5) = 9.2266003511934855e+02_dp
4158 fit_coef(9, 5) = -8.8927522399842849e+02_dp
4159 fit_coef(10, 5) = 5.5383510055109002e+02_dp
4160 fit_coef(11, 5) = -2.0107166636215129e+02_dp
4161 fit_coef(12, 5) = 3.2311819146896454e+01_dp
4162 fit_coef(0, 6) = 7.2076697268762174e-02_dp
4163 fit_coef(1, 6) = 4.3697938638884411e-03_dp
4164 fit_coef(2, 6) = 9.9608072915738466e-01_dp
4165 fit_coef(3, 6) = -7.4383652629013977e+00_dp
4166 fit_coef(4, 6) = 5.1208554327170454e+01_dp
4167 fit_coef(5, 6) = -2.2721354633426219e+02_dp
4168 fit_coef(6, 6) = 6.8250267908846160e+02_dp
4169 fit_coef(7, 6) = -1.4111404970254437e+03_dp
4170 fit_coef(8, 6) = 2.0105465406328890e+03_dp
4171 fit_coef(9, 6) = -1.9386324350975158e+03_dp
4172 fit_coef(10, 6) = 1.2077495454590323e+03_dp
4173 fit_coef(11, 6) = -4.3858368013964258e+02_dp
4174 fit_coef(12, 6) = 7.0492945521981113e+01_dp
4175 fit_coef(0, 7) = 1.8528902440326048e-01_dp
4176 fit_coef(1, 7) = 8.5761877628560846e-03_dp
4177 fit_coef(2, 7) = 1.9596400785319805e+00_dp
4178 fit_coef(3, 7) = -1.4742195445863704e+01_dp
4179 fit_coef(4, 7) = 1.0097053276986436e+02_dp
4180 fit_coef(5, 7) = -4.4958224203673950e+02_dp
4181 fit_coef(6, 7) = 1.3525059945742282e+03_dp
4182 fit_coef(7, 7) = -2.7986628560219651e+03_dp
4183 fit_coef(8, 7) = 3.9893201483629923e+03_dp
4184 fit_coef(9, 7) = -3.8478121346267285e+03_dp
4185 fit_coef(10, 7) = 2.3976749678349697e+03_dp
4186 fit_coef(11, 7) = -8.7083742454840910e+02_dp
4187 fit_coef(12, 7) = 1.3998610570704449e+02_dp
4188 fit_coef(0, 8) = 4.4331726198419791e-01_dp
4189 fit_coef(1, 8) = 1.5511309832479217e-02_dp
4190 fit_coef(2, 8) = 3.5507741823714190e+00_dp
4191 fit_coef(3, 8) = -2.6865693016984693e+01_dp
4192 fit_coef(4, 8) = 1.8327560251896824e+02_dp
4193 fit_coef(5, 8) = -8.1823836532717723e+02_dp
4194 fit_coef(6, 8) = 2.4647768105667869e+03_dp
4195 fit_coef(7, 8) = -5.1036331419270782e+03_dp
4196 fit_coef(8, 8) = 7.2776337187971394e+03_dp
4197 fit_coef(9, 8) = -7.0211118090420277e+03_dp
4198 fit_coef(10, 8) = 4.3757325625709809e+03_dp
4199 fit_coef(11, 8) = -1.5894501984451088e+03_dp
4200 fit_coef(12, 8) = 2.5552396179932322e+02_dp
4201 fit_coef(0, 9) = 1.0023832039292297e+00_dp
4202 fit_coef(1, 9) = 2.5898302934575013e-02_dp
4203 fit_coef(2, 9) = 5.9367320140376343e+00_dp
4204 fit_coef(3, 9) = -4.5119163651256045e+01_dp
4205 fit_coef(4, 9) = 3.0685214719931554e+02_dp
4206 fit_coef(5, 9) = -1.3727570869476449e+03_dp
4207 fit_coef(6, 9) = 4.1397102479948817e+03_dp
4208 fit_coef(7, 9) = -8.5765932664076063e+03_dp
4209 fit_coef(8, 9) = 1.2233664390647617e+04_dp
4210 fit_coef(9, 9) = -1.1804562465563917e+04_dp
4211 fit_coef(10, 9) = 7.3577527032167036e+03_dp
4212 fit_coef(11, 9) = -2.6728608608039476e+03_dp
4213 fit_coef(12, 9) = 4.2972086937637658e+02_dp
4214 fit_coef(0, 10) = 2.1747295228003427e+00_dp
4215 fit_coef(1, 10) = 3.9825856965749605e-02_dp
4216 fit_coef(2, 10) = 9.1386038693541103e+00_dp
4217 fit_coef(3, 10) = -6.9684875108374484e+01_dp
4218 fit_coef(4, 10) = 4.7283781908541010e+02_dp
4219 fit_coef(5, 10) = -2.1185130397402854e+03_dp
4220 fit_coef(6, 10) = 6.3941973699549608e+03_dp
4221 fit_coef(7, 10) = -1.3253289025658554e+04_dp
4222 fit_coef(8, 10) = 1.8908933653764056e+04_dp
4223 fit_coef(9, 10) = -1.8248136599625253e+04_dp
4224 fit_coef(10, 10) = 1.1374965884570694e+04_dp
4225 fit_coef(11, 10) = -4.1324304505338878e+03_dp
4226 fit_coef(12, 10) = 6.6440472838840810e+02_dp
4227 fit_coef(0, 11) = 4.6737127719821085e+00_dp
4228 fit_coef(1, 11) = 5.6471682863233792e-02_dp
4229 fit_coef(2, 11) = 1.2966744420426899e+01_dp
4230 fit_coef(3, 11) = -9.9092986263943558e+01_dp
4231 fit_coef(4, 11) = 6.7136997890125622e+02_dp
4232 fit_coef(5, 11) = -3.0109895935607155e+03_dp
4233 fit_coef(6, 11) = 9.0933208665348502e+03_dp
4234 fit_coef(7, 11) = -1.8853514883165644e+04_dp
4235 fit_coef(8, 11) = 2.6903247532779991e+04_dp
4236 fit_coef(9, 11) = -2.5965395036313621e+04_dp
4237 fit_coef(10, 11) = 1.6186393937419709e+04_dp
4238 fit_coef(11, 11) = -5.8805907336782202e+03_dp
4239 fit_coef(12, 11) = 9.4549381336496526e+02_dp
4240 fit_coef(0, 12) = 1.1342816745586836e-04_dp
4241 fit_coef(1, 12) = 3.6576968324737305e-05_dp
4242 fit_coef(2, 12) = 8.1035507833661872e-03_dp
4243 fit_coef(3, 12) = -5.4754734634044767e-02_dp
4244 fit_coef(4, 12) = 4.0635660271826546e-01_dp
4245 fit_coef(5, 12) = -1.7252011567424357e+00_dp
4246 fit_coef(6, 12) = 5.0991785559775868e+00_dp
4247 fit_coef(7, 12) = -1.0443089131832354e+01_dp
4248 fit_coef(8, 12) = 1.4772607027520992e+01_dp
4249 fit_coef(9, 12) = -1.4163309607497387e+01_dp
4250 fit_coef(10, 12) = 8.7833832339673332e+00_dp
4251 fit_coef(11, 12) = -3.1779319684136769e+00_dp
4252 fit_coef(12, 12) = 5.0928471655731977e-01_dp
4253 fit_coef(0, 13) = 7.4546004903846121e-04_dp
4254 fit_coef(1, 13) = 1.2519052310895946e-04_dp
4255 fit_coef(2, 13) = 2.7990742019097205e-02_dp
4256 fit_coef(3, 13) = -1.9878830068107795e-01_dp
4257 fit_coef(4, 13) = 1.4175816998714001e+00_dp
4258 fit_coef(5, 13) = -6.1266447654072609e+00_dp
4259 fit_coef(6, 13) = 1.8316162032568503e+01_dp
4260 fit_coef(7, 13) = -3.7851604364859433e+01_dp
4261 fit_coef(8, 13) = 5.3922831469585589e+01_dp
4262 fit_coef(9, 13) = -5.1975301110470006e+01_dp
4263 fit_coef(10, 13) = 3.2361327142046470e+01_dp
4264 fit_coef(11, 13) = -1.1743599901510185e+01_dp
4265 fit_coef(12, 13) = 1.8861805928420110e+00_dp
4266 fit_coef(0, 14) = 3.0519693802336465e-03_dp
4267 fit_coef(1, 14) = 3.4087975510808114e-04_dp
4268 fit_coef(2, 14) = 7.7167269766524146e-02_dp
4269 fit_coef(3, 14) = -5.6411267648401553e-01_dp
4270 fit_coef(4, 14) = 3.9421610586910765e+00_dp
4271 fit_coef(5, 14) = -1.7305564712941042e+01_dp
4272 fit_coef(6, 14) = 5.1769587328365290e+01_dp
4273 fit_coef(7, 14) = -1.0670184531108517e+02_dp
4274 fit_coef(8, 14) = 1.5162660340890758e+02_dp
4275 fit_coef(9, 14) = -1.4590770106048981e+02_dp
4276 fit_coef(10, 14) = 9.0764737150408479e+01_dp
4277 fit_coef(11, 14) = -3.2925715085693440e+01_dp
4278 fit_coef(12, 14) = 5.2881884424153274e+00_dp
4279 fit_coef(0, 15) = 9.9219657650822073e-03_dp
4280 fit_coef(1, 15) = 7.9669846000388241e-04_dp
4281 fit_coef(2, 15) = 1.8124096946957050e-01_dp
4282 fit_coef(3, 15) = -1.3450166921157356e+00_dp
4283 fit_coef(4, 15) = 9.2993195019520840e+00_dp
4284 fit_coef(5, 15) = -4.1141390542063078e+01_dp
4285 fit_coef(6, 15) = 1.2339197373801343e+02_dp
4286 fit_coef(7, 15) = -2.5492312646946198e+02_dp
4287 fit_coef(8, 15) = 3.6308859133318100e+02_dp
4288 fit_coef(9, 15) = -3.5006957300050141e+02_dp
4289 fit_coef(10, 15) = 2.1808828321735942e+02_dp
4290 fit_coef(11, 15) = -7.9197426579451133e+01_dp
4291 fit_coef(12, 15) = 1.2729290836050698e+01_dp
4292 fit_coef(0, 16) = 2.7934155736110411e-02_dp
4293 fit_coef(1, 16) = 1.6577256632979880e-03_dp
4294 fit_coef(2, 16) = 3.7842445866661195e-01_dp
4295 fit_coef(3, 16) = -2.8373077002350295e+00_dp
4296 fit_coef(4, 16) = 1.9477723226227106e+01_dp
4297 fit_coef(5, 16) = -8.6598640916868774e+01_dp
4298 fit_coef(6, 16) = 2.6025925292176282e+02_dp
4299 fit_coef(7, 16) = -5.3828360062495688e+02_dp
4300 fit_coef(8, 16) = 7.6712698683802557e+02_dp
4301 fit_coef(9, 16) = -7.3983293131025414e+02_dp
4302 fit_coef(10, 16) = 4.6097553662229262e+02_dp
4303 fit_coef(11, 16) = -1.6741742993909008e+02_dp
4304 fit_coef(12, 16) = 2.6911040347084413e+01_dp
4305 fit_coef(0, 17) = 7.1098068080604329e-02_dp
4306 fit_coef(1, 17) = 3.1344747909274207e-03_dp
4307 fit_coef(2, 17) = 7.1727119916633186e-01_dp
4308 fit_coef(3, 17) = -5.4188366020725613e+00_dp
4309 fit_coef(4, 17) = 3.7004431896986794e+01_dp
4310 fit_coef(5, 17) = -1.6510685856094676e+02_dp
4311 fit_coef(6, 17) = 4.9706150634055501e+02_dp
4312 fit_coef(7, 17) = -1.0289510132785595e+03_dp
4313 fit_coef(8, 17) = 1.4670886352439184e+03_dp
4314 fit_coef(9, 17) = -1.4153076846774175e+03_dp
4315 fit_coef(10, 17) = 8.8203709163857422e+02_dp
4316 fit_coef(11, 17) = -3.2039085416412871e+02_dp
4317 fit_coef(12, 17) = 5.1506838572455884e+01_dp
4318 fit_coef(0, 18) = 1.6776001286461931e-01_dp
4319 fit_coef(1, 18) = 5.4256243545789283e-03_dp
4320 fit_coef(2, 18) = 1.2438301964496239e+00_dp
4321 fit_coef(3, 18) = -9.4525365959341521e+00_dp
4322 fit_coef(4, 18) = 6.4287530580546374e+01_dp
4323 fit_coef(5, 18) = -2.8761451534054112e+02_dp
4324 fit_coef(6, 18) = 8.6715581047564865e+02_dp
4325 fit_coef(7, 18) = -1.7963912098780600e+03_dp
4326 fit_coef(8, 18) = 2.5623050325486606e+03_dp
4327 fit_coef(9, 18) = -2.4724333743568150e+03_dp
4328 fit_coef(10, 18) = 1.5410800293083496e+03_dp
4329 fit_coef(11, 18) = -5.5983897666404175e+02_dp
4330 fit_coef(12, 18) = 9.0007748058412503e+01_dp
4331 fit_coef(0, 19) = 3.7318901847591823e-01_dp
4332 fit_coef(1, 19) = 8.5741894158780207e-03_dp
4333 fit_coef(2, 19) = 1.9684022818381477e+00_dp
4334 fit_coef(3, 19) = -1.5029124759115470e+01_dp
4335 fit_coef(4, 19) = 1.0188619253386351e+02_dp
4336 fit_coef(5, 19) = -4.5678606319996516e+02_dp
4337 fit_coef(6, 19) = 1.3789467638499050e+03_dp
4338 fit_coef(7, 19) = -2.8584140258154093e+03_dp
4339 fit_coef(8, 19) = 4.0784585124208406e+03_dp
4340 fit_coef(9, 19) = -3.9361263103870356e+03_dp
4341 fit_coef(10, 19) = 2.4536814783734530e+03_dp
4342 fit_coef(11, 19) = -8.9143170846733369e+02_dp
4343 fit_coef(12, 19) = 1.4332667121452164e+02_dp
4344 fit_coef(0, 20) = 7.9411999812197465e-01_dp
4345 fit_coef(1, 20) = 1.2222970002666296e-02_dp
4346 fit_coef(2, 20) = 2.8089778868006130e+00_dp
4347 fit_coef(3, 20) = -2.1523724383534741e+01_dp
4348 fit_coef(4, 20) = 1.4555880546046066e+02_dp
4349 fit_coef(5, 20) = -6.5361423760505409e+02_dp
4350 fit_coef(6, 20) = 1.9751646032271344e+03_dp
4351 fit_coef(7, 20) = -4.0964475425550763e+03_dp
4352 fit_coef(8, 20) = 5.8464616672416569e+03_dp
4353 fit_coef(9, 20) = -5.6432337456166642e+03_dp
4354 fit_coef(10, 20) = 3.5181407559250561e+03_dp
4355 fit_coef(11, 20) = -1.2782197709057280e+03_dp
4356 fit_coef(12, 20) = 2.0552243167477678e+02_dp
4357 fit_coef(0, 21) = 1.6552401388491180e+00_dp
4358 fit_coef(1, 21) = 1.5475484985637764e-02_dp
4359 fit_coef(2, 21) = 3.5586577312092178e+00_dp
4360 fit_coef(3, 21) = -2.7328423530790474e+01_dp
4361 fit_coef(4, 21) = 1.8453595318851117e+02_dp
4362 fit_coef(5, 21) = -8.2943501604533219e+02_dp
4363 fit_coef(6, 21) = 2.5081783317335353e+03_dp
4364 fit_coef(7, 21) = -5.2037296899464609e+03_dp
4365 fit_coef(8, 21) = 7.4280891345363261e+03_dp
4366 fit_coef(9, 21) = -7.1705455707166202e+03_dp
4367 fit_coef(10, 21) = 4.4705361605949456e+03_dp
4368 fit_coef(11, 21) = -1.6242951789399854e+03_dp
4369 fit_coef(12, 21) = 2.6117201512280747e+02_dp
4370 fit_coef(0, 22) = 3.6819715912926032e+00_dp
4371 fit_coef(1, 22) = 1.7724765507747240e-02_dp
4372 fit_coef(2, 22) = 4.0762275279679621e+00_dp
4373 fit_coef(3, 22) = -3.1313218015726726e+01_dp
4374 fit_coef(4, 22) = 2.1139684580404636e+02_dp
4375 fit_coef(5, 22) = -9.5029615455661258e+02_dp
4376 fit_coef(6, 22) = 2.8739893385614673e+03_dp
4377 fit_coef(7, 22) = -5.9630507500813519e+03_dp
4378 fit_coef(8, 22) = 8.5122490258366070e+03_dp
4379 fit_coef(9, 22) = -8.2172415036707516e+03_dp
4380 fit_coef(10, 22) = 5.1231461949378099e+03_dp
4381 fit_coef(11, 22) = -1.8614171279369891e+03_dp
4382 fit_coef(12, 22) = 2.9929960798773016e+02_dp
4383
4384 END SUBROUTINE get_fit_coef_k11_lo
4385
4386! **************************************************************************************************
4387!> \brief ...
4388!> \param k ...
4389!> \param fit_coef ...
4390!> \param L_b ...
4391!> \param U_b ...
4392! **************************************************************************************************
4393 SUBROUTINE get_fit_coef_k12_sh(k, fit_coef, L_b, U_b)
4394 INTEGER :: k
4395 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
4396 REAL(kind=dp) :: l_b, u_b
4397
4398 l_b = 1.0000000000000000e+01_dp
4399 u_b = 1.0000000000000000e+02_dp
4400 fit_coef(0, 1) = 4.7621173842280597e-03_dp
4401 fit_coef(1, 1) = 1.2779124179361450e-02_dp
4402 fit_coef(2, 1) = 1.6703410753614655e-02_dp
4403 fit_coef(3, 1) = 1.2304881409550545e-02_dp
4404 fit_coef(4, 1) = 3.7749685318705707e-03_dp
4405 fit_coef(5, 1) = -1.7434526435310602e-03_dp
4406 fit_coef(6, 1) = -2.0397823012582900e-03_dp
4407 fit_coef(7, 1) = -1.9667552585414541e-04_dp
4408 fit_coef(8, 1) = 4.9733991832847789e-04_dp
4409 fit_coef(9, 1) = 3.3438174942184307e-04_dp
4410 fit_coef(10, 1) = -4.5000255284931892e-04_dp
4411 fit_coef(11, 1) = 2.2568471250347118e-04_dp
4412 fit_coef(12, 1) = -5.0451245801427364e-05_dp
4413 fit_coef(0, 2) = 2.5892231310748540e-02_dp
4414 fit_coef(1, 2) = 6.8272349594299786e-02_dp
4415 fit_coef(2, 2) = 8.8380776497241700e-02_dp
4416 fit_coef(3, 2) = 6.4547463586032264e-02_dp
4417 fit_coef(4, 2) = 1.9512355251434594e-02_dp
4418 fit_coef(5, 2) = -9.2451673534127178e-03_dp
4419 fit_coef(6, 2) = -1.0592986518352070e-02_dp
4420 fit_coef(7, 2) = -9.5129033192623013e-04_dp
4421 fit_coef(8, 2) = 2.6222990485926024e-03_dp
4422 fit_coef(9, 2) = 1.6749335092584598e-03_dp
4423 fit_coef(10, 2) = -2.2956689993050795e-03_dp
4424 fit_coef(11, 2) = 1.1496135531876962e-03_dp
4425 fit_coef(12, 2) = -2.5655891388629779e-04_dp
4426 fit_coef(0, 3) = 6.7567184232783226e-02_dp
4427 fit_coef(1, 3) = 1.7186061352294887e-01_dp
4428 fit_coef(2, 3) = 2.1865383385874831e-01_dp
4429 fit_coef(3, 3) = 1.5733674301194298e-01_dp
4430 fit_coef(4, 3) = 4.6341817240479470e-02_dp
4431 fit_coef(5, 3) = -2.2920074974133117e-02_dp
4432 fit_coef(6, 3) = -2.5337146772633146e-02_dp
4433 fit_coef(7, 3) = -1.9861858355440082e-03_dp
4434 fit_coef(8, 3) = 6.4137367343312197e-03_dp
4435 fit_coef(9, 3) = 3.7881539374578659e-03_dp
4436 fit_coef(10, 3) = -5.3502220389785920e-03_dp
4437 fit_coef(11, 3) = 2.6697483796138425e-03_dp
4438 fit_coef(12, 3) = -5.9317689227171935e-04_dp
4439 fit_coef(0, 4) = 1.3773723556451323e-01_dp
4440 fit_coef(1, 4) = 3.2976491191003016e-01_dp
4441 fit_coef(2, 4) = 4.0862257137690161e-01_dp
4442 fit_coef(3, 4) = 2.8864406700326678e-01_dp
4443 fit_coef(4, 4) = 8.2368391636866115e-02_dp
4444 fit_coef(5, 4) = -4.3117011034440302e-02_dp
4445 fit_coef(6, 4) = -4.5352842098712653e-02_dp
4446 fit_coef(7, 4) = -2.5963365652366087e-03_dp
4447 fit_coef(8, 4) = 1.2026849031951965e-02_dp
4448 fit_coef(9, 4) = 5.5083059863503094e-03_dp
4449 fit_coef(10, 4) = -8.5515536696519658e-03_dp
4450 fit_coef(11, 4) = 4.2807103276345489e-03_dp
4451 fit_coef(12, 4) = -9.5472120253031029e-04_dp
4452 fit_coef(0, 5) = 2.5166827573794959e-01_dp
4453 fit_coef(1, 5) = 5.5126096550816395e-01_dp
4454 fit_coef(2, 5) = 6.5643230451689671e-01_dp
4455 fit_coef(3, 5) = 4.5390238114819420e-01_dp
4456 fit_coef(4, 5) = 1.2801802686296021e-01_dp
4457 fit_coef(5, 5) = -6.8438409988043361e-02_dp
4458 fit_coef(6, 5) = -7.1938494310622186e-02_dp
4459 fit_coef(7, 5) = -3.7818617497551153e-03_dp
4460 fit_coef(8, 5) = 2.2624574898233631e-02_dp
4461 fit_coef(9, 5) = 7.8302540970164088e-03_dp
4462 fit_coef(10, 5) = -1.7136424214551770e-02_dp
4463 fit_coef(11, 5) = 9.9150152558899352e-03_dp
4464 fit_coef(12, 5) = -2.3421367209343525e-03_dp
4465 fit_coef(0, 6) = 4.3589892832098903e-01_dp
4466 fit_coef(1, 6) = 8.5015779653011903e-01_dp
4467 fit_coef(2, 6) = 9.5612932461007116e-01_dp
4468 fit_coef(3, 6) = 6.4033701313877844e-01_dp
4469 fit_coef(4, 6) = 1.8409747302118074e-01_dp
4470 fit_coef(5, 6) = -8.6870444790686202e-02_dp
4471 fit_coef(6, 6) = -1.0566638795756129e-01_dp
4472 fit_coef(7, 6) = -4.6671972769434591e-03_dp
4473 fit_coef(8, 6) = 3.7389422606596834e-03_dp
4474 fit_coef(9, 6) = 6.9425181522878909e-02_dp
4475 fit_coef(10, 6) = -7.1984629461529587e-02_dp
4476 fit_coef(11, 6) = 3.1646309655079689e-02_dp
4477 fit_coef(12, 6) = -5.6112243049874127e-03_dp
4478 fit_coef(0, 7) = 7.3351111106633227e-01_dp
4479 fit_coef(1, 7) = 1.2445631654341636e+00_dp
4480 fit_coef(2, 7) = 1.3007750122826698e+00_dp
4481 fit_coef(3, 7) = 8.2747315487381601e-01_dp
4482 fit_coef(4, 7) = 2.4170033735886270e-01_dp
4483 fit_coef(5, 7) = -8.6239790315945988e-02_dp
4484 fit_coef(6, 7) = -1.2071103017063417e-01_dp
4485 fit_coef(7, 7) = -3.2654987483749273e-02_dp
4486 fit_coef(8, 7) = 1.8998066989690098e-02_dp
4487 fit_coef(9, 7) = 1.4613127895351082e-02_dp
4488 fit_coef(10, 7) = 4.0069718709076961e-02_dp
4489 fit_coef(11, 7) = -5.0009415078673951e-02_dp
4490 fit_coef(12, 7) = 1.5360303269937313e-02_dp
4491 fit_coef(0, 8) = 1.2123305472983175e+00_dp
4492 fit_coef(1, 8) = 1.7528922824057094e+00_dp
4493 fit_coef(2, 8) = 1.6839617270590670e+00_dp
4494 fit_coef(3, 8) = 9.9693839370582804e-01_dp
4495 fit_coef(4, 8) = 2.8670772642350745e-01_dp
4496 fit_coef(5, 8) = -6.8905744965899102e-02_dp
4497 fit_coef(6, 8) = -9.8654503643879704e-02_dp
4498 fit_coef(7, 8) = -8.3833733804509133e-02_dp
4499 fit_coef(8, 8) = 9.6718797026550299e-02_dp
4500 fit_coef(9, 8) = -1.6741156687903433e-01_dp
4501 fit_coef(10, 8) = 2.2372278410722946e-01_dp
4502 fit_coef(11, 8) = -1.2395029372556110e-01_dp
4503 fit_coef(12, 8) = 2.4118562336799924e-02_dp
4504 fit_coef(0, 9) = 1.9789993531060730e+00_dp
4505 fit_coef(1, 9) = 2.3876726133812909e+00_dp
4506 fit_coef(2, 9) = 2.0983662040251230e+00_dp
4507 fit_coef(3, 9) = 1.1384504548954626e+00_dp
4508 fit_coef(4, 9) = 3.1166074671817184e-01_dp
4509 fit_coef(5, 9) = -3.8607395105363457e-02_dp
4510 fit_coef(6, 9) = -6.8592782585259429e-02_dp
4511 fit_coef(7, 9) = -5.9599143650154687e-02_dp
4512 fit_coef(8, 9) = 1.5691989539307449e-02_dp
4513 fit_coef(9, 9) = -6.2725923481489740e-02_dp
4514 fit_coef(10, 9) = 6.0324082207683011e-02_dp
4515 fit_coef(11, 9) = 8.7062543323561756e-03_dp
4516 fit_coef(12, 9) = -1.3873325190108787e-02_dp
4517 fit_coef(0, 10) = 3.2058934682668765e+00_dp
4518 fit_coef(1, 10) = 3.1496633677047572e+00_dp
4519 fit_coef(2, 10) = 2.5365793238247520e+00_dp
4520 fit_coef(3, 10) = 1.2508497217707608e+00_dp
4521 fit_coef(4, 10) = 3.1872392758788848e-01_dp
4522 fit_coef(5, 10) = -2.0600061181166207e-03_dp
4523 fit_coef(6, 10) = -3.1041845624322214e-02_dp
4524 fit_coef(7, 10) = -1.2321496532646232e-02_dp
4525 fit_coef(8, 10) = -8.3121266244633590e-02_dp
4526 fit_coef(9, 10) = 7.0964635310385341e-02_dp
4527 fit_coef(10, 10) = -9.6237663309511903e-02_dp
4528 fit_coef(11, 10) = 9.4035522256218335e-02_dp
4529 fit_coef(12, 10) = -2.9123579370706108e-02_dp
4530 fit_coef(0, 11) = 5.1968506439191477e+00_dp
4531 fit_coef(1, 11) = 4.0268304189360205e+00_dp
4532 fit_coef(2, 11) = 2.9970061410634696e+00_dp
4533 fit_coef(3, 11) = 1.3425771299145335e+00_dp
4534 fit_coef(4, 11) = 3.1423213151024637e-01_dp
4535 fit_coef(5, 11) = 3.5373029368206500e-02_dp
4536 fit_coef(6, 11) = 1.9061738352272550e-02_dp
4537 fit_coef(7, 11) = 2.6409588889696359e-03_dp
4538 fit_coef(8, 11) = -8.0417831524322025e-02_dp
4539 fit_coef(9, 11) = 4.2275831208402226e-02_dp
4540 fit_coef(10, 11) = -5.5418627131360906e-02_dp
4541 fit_coef(11, 11) = 4.9224692889938519e-02_dp
4542 fit_coef(12, 11) = -1.2095050837781235e-02_dp
4543 fit_coef(0, 12) = 8.6390361849437944e+00_dp
4544 fit_coef(1, 12) = 5.0136507853028878e+00_dp
4545 fit_coef(2, 12) = 3.4986136939910475e+00_dp
4546 fit_coef(3, 12) = 1.4331799180952967e+00_dp
4547 fit_coef(4, 12) = 3.0383064834623563e-01_dp
4548 fit_coef(5, 12) = 7.1865533368803650e-02_dp
4549 fit_coef(6, 12) = 7.2720154429931433e-02_dp
4550 fit_coef(7, 12) = 9.0385929014071293e-03_dp
4551 fit_coef(8, 12) = -5.0215078840340335e-02_dp
4552 fit_coef(9, 12) = -1.6285869510121675e-02_dp
4553 fit_coef(10, 12) = 1.8810174768165218e-02_dp
4554 fit_coef(11, 12) = -4.9947183805966527e-03_dp
4555 fit_coef(12, 12) = 2.0646826965866082e-03_dp
4556 fit_coef(0, 13) = 1.2309045987914696e-02_dp
4557 fit_coef(1, 13) = 3.2903305474272386e-02_dp
4558 fit_coef(2, 13) = 4.2910210824443497e-02_dp
4559 fit_coef(3, 13) = 3.1546310458948443e-02_dp
4560 fit_coef(4, 13) = 9.6441395261976804e-03_dp
4561 fit_coef(5, 13) = -4.4817476203074733e-03_dp
4562 fit_coef(6, 13) = -5.2171109042265578e-03_dp
4563 fit_coef(7, 13) = -4.9480341958360466e-04_dp
4564 fit_coef(8, 13) = 1.2767786392278010e-03_dp
4565 fit_coef(9, 13) = 8.4783300412091171e-04_dp
4566 fit_coef(10, 13) = -1.1459374668372458e-03_dp
4567 fit_coef(11, 13) = 5.7451555318326379e-04_dp
4568 fit_coef(12, 13) = -1.2838651639065425e-04_dp
4569 fit_coef(0, 14) = 3.0520606650124064e-02_dp
4570 fit_coef(1, 14) = 7.8713058722533771e-02_dp
4571 fit_coef(2, 14) = 1.0070665977979393e-01_dp
4572 fit_coef(3, 14) = 7.2776550328791670e-02_dp
4573 fit_coef(4, 14) = 2.1600668660132882e-02_dp
4574 fit_coef(5, 14) = -1.0555564054529464e-02_dp
4575 fit_coef(6, 14) = -1.1793835693071972e-02_dp
4576 fit_coef(7, 14) = -9.6297146505358621e-04_dp
4577 fit_coef(8, 14) = 2.9732450457490918e-03_dp
4578 fit_coef(9, 14) = 1.7819794140024070e-03_dp
4579 fit_coef(10, 14) = -2.5012216511924486e-03_dp
4580 fit_coef(11, 14) = 1.2501076056785740e-03_dp
4581 fit_coef(12, 14) = -2.7830976323044436e-04_dp
4582 fit_coef(0, 15) = 5.4104615066817303e-02_dp
4583 fit_coef(1, 15) = 1.2949473893963137e-01_dp
4584 fit_coef(2, 15) = 1.6007411910969396e-01_dp
4585 fit_coef(3, 15) = 1.1246986879057709e-01_dp
4586 fit_coef(4, 15) = 3.1687096013120898e-02_dp
4587 fit_coef(5, 15) = -1.6843831926749306e-02_dp
4588 fit_coef(6, 15) = -1.7499787344842720e-02_dp
4589 fit_coef(7, 15) = -1.0003535746501569e-03_dp
4590 fit_coef(8, 15) = 4.5492268626677436e-03_dp
4591 fit_coef(9, 15) = 2.3968134835377171e-03_dp
4592 fit_coef(10, 15) = -3.5437690918133768e-03_dp
4593 fit_coef(11, 15) = 1.7505580597451528e-03_dp
4594 fit_coef(12, 15) = -3.8471361244187636e-04_dp
4595 fit_coef(0, 16) = 8.8713962386069239e-02_dp
4596 fit_coef(1, 16) = 1.8782619870062861e-01_dp
4597 fit_coef(2, 16) = 2.1958966435206734e-01_dp
4598 fit_coef(3, 16) = 1.4951615375763633e-01_dp
4599 fit_coef(4, 16) = 4.0416134448872314e-02_dp
4600 fit_coef(5, 16) = -2.3556358508589833e-02_dp
4601 fit_coef(6, 16) = -2.2705784163903314e-02_dp
4602 fit_coef(7, 16) = -2.4239170766668074e-04_dp
4603 fit_coef(8, 16) = 7.8042834525613135e-03_dp
4604 fit_coef(9, 16) = -4.9113258408041134e-04_dp
4605 fit_coef(10, 16) = -1.9479282277976330e-03_dp
4606 fit_coef(11, 16) = 1.2196593353575873e-03_dp
4607 fit_coef(12, 16) = -3.1694142020982456e-04_dp
4608 fit_coef(0, 17) = 1.4348763712172333e-01_dp
4609 fit_coef(1, 17) = 2.5746461675937976e-01_dp
4610 fit_coef(2, 17) = 2.7495919513020706e-01_dp
4611 fit_coef(3, 17) = 1.7887972591601542e-01_dp
4612 fit_coef(4, 17) = 5.1311785540495640e-02_dp
4613 fit_coef(5, 17) = -2.4925938907640350e-02_dp
4614 fit_coef(6, 17) = -3.1142444913188724e-02_dp
4615 fit_coef(7, 17) = -2.1097798874644825e-03_dp
4616 fit_coef(8, 17) = 6.5586673591109508e-03_dp
4617 fit_coef(9, 17) = 2.0478515204581191e-02_dp
4618 fit_coef(10, 17) = -2.9823701948863770e-02_dp
4619 fit_coef(11, 17) = 1.6872186230723108e-02_dp
4620 fit_coef(12, 17) = -3.7548105037558685e-03_dp
4621 fit_coef(0, 18) = 2.3202358256485947e-01_dp
4622 fit_coef(1, 18) = 3.4341973939523573e-01_dp
4623 fit_coef(2, 18) = 3.2325120093458798e-01_dp
4624 fit_coef(3, 18) = 1.9035817858464060e-01_dp
4625 fit_coef(4, 18) = 5.9225378877332230e-02_dp
4626 fit_coef(5, 18) = -9.4096717658205004e-03_dp
4627 fit_coef(6, 18) = -3.1716501677007125e-02_dp
4628 fit_coef(7, 18) = -3.4342725566089858e-03_dp
4629 fit_coef(8, 18) = -3.6117207531663649e-02_dp
4630 fit_coef(9, 18) = 7.0489947329726826e-02_dp
4631 fit_coef(10, 18) = -3.4005775663369868e-02_dp
4632 fit_coef(11, 18) = -2.1420043382904190e-03_dp
4633 fit_coef(12, 18) = 4.1297341956319060e-03_dp
4634 fit_coef(0, 19) = 3.7428328098642150e-01_dp
4635 fit_coef(1, 19) = 4.4856859975928659e-01_dp
4636 fit_coef(2, 19) = 3.6501433131086519e-01_dp
4637 fit_coef(3, 19) = 1.8076014515005295e-01_dp
4638 fit_coef(4, 19) = 5.3394895281397445e-02_dp
4639 fit_coef(5, 19) = 9.7271953924831494e-03_dp
4640 fit_coef(6, 19) = 6.5024998766183614e-03_dp
4641 fit_coef(7, 19) = -5.6807667997414525e-02_dp
4642 fit_coef(8, 19) = 8.5060380392462415e-02_dp
4643 fit_coef(9, 19) = -2.0020496460057130e-01_dp
4644 fit_coef(10, 19) = 2.5161185176172424e-01_dp
4645 fit_coef(11, 19) = -1.4235287380012143e-01_dp
4646 fit_coef(12, 19) = 3.0493092100125858e-02_dp
4647 fit_coef(0, 20) = 6.0072363160772879e-01_dp
4648 fit_coef(1, 20) = 5.7028422329589301e-01_dp
4649 fit_coef(2, 20) = 4.0013007703573727e-01_dp
4650 fit_coef(3, 20) = 1.5645364840008563e-01_dp
4651 fit_coef(4, 20) = 3.5325876772107849e-02_dp
4652 fit_coef(5, 20) = 2.4573063136551693e-02_dp
4653 fit_coef(6, 20) = 3.0002223471025873e-02_dp
4654 fit_coef(7, 20) = -1.9881304587976378e-02_dp
4655 fit_coef(8, 20) = 1.0115048553542312e-02_dp
4656 fit_coef(9, 20) = -5.4992791578093891e-02_dp
4657 fit_coef(10, 20) = 7.6777053071169160e-03_dp
4658 fit_coef(11, 20) = 4.6072145627107347e-02_dp
4659 fit_coef(12, 20) = -2.2183512517221421e-02_dp
4660 fit_coef(0, 21) = 9.6043920592225018e-01_dp
4661 fit_coef(1, 21) = 6.9944535349071602e-01_dp
4662 fit_coef(2, 21) = 4.2734572555968520e-01_dp
4663 fit_coef(3, 21) = 1.2636666009694217e-01_dp
4664 fit_coef(4, 21) = 1.5064634695905944e-02_dp
4665 fit_coef(5, 21) = 3.4716238870572014e-02_dp
4666 fit_coef(6, 21) = 3.1317370170347261e-02_dp
4667 fit_coef(7, 21) = 5.3593201219119903e-02_dp
4668 fit_coef(8, 21) = -1.3301585636639335e-01_dp
4669 fit_coef(9, 21) = 1.9267279137188889e-01_dp
4670 fit_coef(10, 21) = -2.4206546149930569e-01_dp
4671 fit_coef(11, 21) = 1.5617787264354296e-01_dp
4672 fit_coef(12, 21) = -3.7036502375757153e-02_dp
4673 fit_coef(0, 22) = 1.5411563268918131e+00_dp
4674 fit_coef(1, 22) = 8.2232573092114225e-01_dp
4675 fit_coef(2, 22) = 4.4862113308179175e-01_dp
4676 fit_coef(3, 22) = 9.9831855190677568e-02_dp
4677 fit_coef(4, 22) = 2.0555253555204072e-04_dp
4678 fit_coef(5, 22) = 3.7473053552323943e-02_dp
4679 fit_coef(6, 22) = 4.4849690487304791e-02_dp
4680 fit_coef(7, 22) = 3.0975652422523699e-02_dp
4681 fit_coef(8, 22) = -4.3734383490695965e-02_dp
4682 fit_coef(9, 22) = 4.2410222686447063e-02_dp
4683 fit_coef(10, 22) = -4.1372075255841384e-02_dp
4684 fit_coef(11, 22) = 3.9840636595015544e-03_dp
4685 fit_coef(12, 22) = 6.7429310166998080e-03_dp
4686 fit_coef(0, 23) = 2.5398045384820884e+00_dp
4687 fit_coef(1, 23) = 9.2972371375931584e-01_dp
4688 fit_coef(2, 23) = 4.7467813354768001e-01_dp
4689 fit_coef(3, 23) = 8.6733603768484421e-02_dp
4690 fit_coef(4, 23) = -8.2527901024651990e-03_dp
4691 fit_coef(5, 23) = 3.7146900277764211e-02_dp
4692 fit_coef(6, 23) = 5.3317290655855602e-02_dp
4693 fit_coef(7, 23) = 4.9026643386959707e-03_dp
4694 fit_coef(8, 23) = 3.1627402676112949e-02_dp
4695 fit_coef(9, 23) = -6.8971662666575367e-02_dp
4696 fit_coef(10, 23) = 8.6156199337311154e-02_dp
4697 fit_coef(11, 23) = -6.7821612909471307e-02_dp
4698 fit_coef(12, 23) = 2.0108151024555578e-02_dp
4699 fit_coef(0, 24) = 4.6893655829446335e+00_dp
4700 fit_coef(1, 24) = 1.0584609550444721e+00_dp
4701 fit_coef(2, 24) = 5.4301054603506849e-01_dp
4702 fit_coef(3, 24) = 1.0134661869424059e-01_dp
4703 fit_coef(4, 24) = -1.1773405982811336e-02_dp
4704 fit_coef(5, 24) = 3.5814305836818772e-02_dp
4705 fit_coef(6, 24) = 5.3896955561631099e-02_dp
4706 fit_coef(7, 24) = 1.1794245491552634e-02_dp
4707 fit_coef(8, 24) = 2.0345857593909816e-02_dp
4708 fit_coef(9, 24) = -3.4998963970591324e-02_dp
4709 fit_coef(10, 24) = 4.8444694673587890e-02_dp
4710 fit_coef(11, 24) = -3.2817041946018727e-02_dp
4711 fit_coef(12, 24) = 6.8092769866170090e-03_dp
4712
4713 END SUBROUTINE get_fit_coef_k12_sh
4714
4715! **************************************************************************************************
4716!> \brief ...
4717!> \param k ...
4718!> \param fit_coef ...
4719!> \param L_b ...
4720!> \param U_b ...
4721! **************************************************************************************************
4722 SUBROUTINE get_fit_coef_k12_mi(k, fit_coef, L_b, U_b)
4723 INTEGER :: k
4724 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
4725 REAL(kind=dp) :: l_b, u_b
4726
4727 l_b = 1.0000000000000000e+02_dp
4728 u_b = 1.1533853671352736e+03_dp
4729 fit_coef(0, 1) = 6.6326907649095958e-04_dp
4730 fit_coef(1, 1) = 1.8894159031673920e-03_dp
4731 fit_coef(2, 1) = 2.7089355355061177e-03_dp
4732 fit_coef(3, 1) = 2.3224757764888754e-03_dp
4733 fit_coef(4, 1) = 1.0863117203975862e-03_dp
4734 fit_coef(5, 1) = 4.5151540703808010e-05_dp
4735 fit_coef(6, 1) = -2.3515149052107272e-04_dp
4736 fit_coef(7, 1) = -8.2929268974049080e-05_dp
4737 fit_coef(8, 1) = 1.1614919956202285e-04_dp
4738 fit_coef(9, 1) = -2.5284724218147597e-05_dp
4739 fit_coef(10, 1) = -1.3858258705778020e-05_dp
4740 fit_coef(11, 1) = 8.0009405004549032e-06_dp
4741 fit_coef(12, 1) = -1.0748701295750969e-06_dp
4742 fit_coef(0, 2) = 3.8227101929591994e-03_dp
4743 fit_coef(1, 2) = 1.0364280264194323e-02_dp
4744 fit_coef(2, 2) = 1.4590446568112637e-02_dp
4745 fit_coef(3, 2) = 1.2309386146930817e-02_dp
4746 fit_coef(4, 2) = 5.6468571531384185e-03_dp
4747 fit_coef(5, 2) = 1.8293346115620324e-04_dp
4748 fit_coef(6, 2) = -1.2260374384726667e-03_dp
4749 fit_coef(7, 2) = -4.2679063675895478e-04_dp
4750 fit_coef(8, 2) = 6.4562440386666691e-04_dp
4751 fit_coef(9, 2) = -2.0425912250358465e-04_dp
4752 fit_coef(10, 2) = -1.0718250746829363e-05_dp
4753 fit_coef(11, 2) = 1.3450401493497087e-05_dp
4754 fit_coef(12, 2) = 3.6903867124824597e-08_dp
4755 fit_coef(0, 3) = 1.1208738658104969e-02_dp
4756 fit_coef(1, 3) = 2.7433467450107527e-02_dp
4757 fit_coef(2, 3) = 3.7122781203738041e-02_dp
4758 fit_coef(3, 3) = 3.0505000476205493e-02_dp
4759 fit_coef(4, 3) = 1.3613669155986628e-02_dp
4760 fit_coef(5, 3) = 2.0805962290796248e-04_dp
4761 fit_coef(6, 3) = -3.0074089272987834e-03_dp
4762 fit_coef(7, 3) = -1.0066712315667174e-03_dp
4763 fit_coef(8, 3) = 1.8121892538119837e-03_dp
4764 fit_coef(9, 3) = -8.6670466868856387e-04_dp
4765 fit_coef(10, 3) = 2.3031588351142570e-04_dp
4766 fit_coef(11, 3) = -6.1244719299360145e-05_dp
4767 fit_coef(12, 3) = 1.5021644001300220e-05_dp
4768 fit_coef(0, 4) = 2.7060109838528964e-02_dp
4769 fit_coef(1, 4) = 5.7181276021668774e-02_dp
4770 fit_coef(2, 4) = 7.2163197996693393e-02_dp
4771 fit_coef(3, 4) = 5.6401492360043291e-02_dp
4772 fit_coef(4, 4) = 2.4397958649191483e-02_dp
4773 fit_coef(5, 4) = 4.1542953141707141e-04_dp
4774 fit_coef(6, 4) = -5.4082092785117776e-03_dp
4775 fit_coef(7, 4) = -1.9248439551360079e-03_dp
4776 fit_coef(8, 4) = 2.9200980290588186e-03_dp
4777 fit_coef(9, 4) = -9.7952619465276037e-04_dp
4778 fit_coef(10, 4) = 1.6789215463763337e-04_dp
4779 fit_coef(11, 4) = -1.4147604636971736e-04_dp
4780 fit_coef(12, 4) = 6.0667969636576076e-05_dp
4781 fit_coef(0, 5) = 6.0162354447464560e-02_dp
4782 fit_coef(1, 5) = 1.0720429058942169e-01_dp
4783 fit_coef(2, 5) = 1.2343759565688829e-01_dp
4784 fit_coef(3, 5) = 8.8531585067086430e-02_dp
4785 fit_coef(4, 5) = 3.5364287351100372e-02_dp
4786 fit_coef(5, 5) = 6.0629507679625032e-04_dp
4787 fit_coef(6, 5) = -6.6115157196993245e-03_dp
4788 fit_coef(7, 5) = -3.1579068142273776e-03_dp
4789 fit_coef(8, 5) = 5.0366482632659849e-03_dp
4790 fit_coef(9, 5) = -5.0447339830031095e-03_dp
4791 fit_coef(10, 5) = 4.5014753449279963e-03_dp
4792 fit_coef(11, 5) = -2.3546672147255598e-03_dp
4793 fit_coef(12, 5) = 5.0845127538551175e-04_dp
4794 fit_coef(0, 6) = 1.2715764725238982e-01_dp
4795 fit_coef(1, 6) = 1.8881057094422343e-01_dp
4796 fit_coef(2, 6) = 1.9672779228400020e-01_dp
4797 fit_coef(3, 6) = 1.2577665875739202e-01_dp
4798 fit_coef(4, 6) = 4.3061470368101699e-02_dp
4799 fit_coef(5, 6) = -9.4453422287111893e-04_dp
4800 fit_coef(6, 6) = -6.1901712508776350e-03_dp
4801 fit_coef(7, 6) = -2.9123796915168040e-03_dp
4802 fit_coef(8, 6) = 7.5406628009243720e-03_dp
4803 fit_coef(9, 6) = -1.0878759759659724e-02_dp
4804 fit_coef(10, 6) = 9.0511431231051973e-03_dp
4805 fit_coef(11, 6) = -3.9841133010950968e-03_dp
4806 fit_coef(12, 6) = 7.4476527248770687e-04_dp
4807 fit_coef(0, 7) = 2.5849300626981397e-01_dp
4808 fit_coef(1, 7) = 3.1665344505552956e-01_dp
4809 fit_coef(2, 7) = 2.9840462942608115e-01_dp
4810 fit_coef(3, 7) = 1.6655149775226027e-01_dp
4811 fit_coef(4, 7) = 4.4635943287943819e-02_dp
4812 fit_coef(5, 7) = -5.0840338248153878e-03_dp
4813 fit_coef(6, 7) = -4.1935958573150935e-03_dp
4814 fit_coef(7, 7) = -1.2238069004985115e-03_dp
4815 fit_coef(8, 7) = 1.0355993093508651e-02_dp
4816 fit_coef(9, 7) = -1.8364631667690871e-02_dp
4817 fit_coef(10, 7) = 1.5416014403986910e-02_dp
4818 fit_coef(11, 7) = -6.8470052029501608e-03_dp
4819 fit_coef(12, 7) = 1.3249810031683059e-03_dp
4820 fit_coef(0, 8) = 5.0864125871117427e-01_dp
4821 fit_coef(1, 8) = 5.0748696881076827e-01_dp
4822 fit_coef(2, 8) = 4.3378556875785329e-01_dp
4823 fit_coef(3, 8) = 2.0761241946020209e-01_dp
4824 fit_coef(4, 8) = 3.7494223843576979e-02_dp
4825 fit_coef(5, 8) = -1.1199453066603072e-02_dp
4826 fit_coef(6, 8) = 2.6211861457654248e-04_dp
4827 fit_coef(7, 8) = 1.0181856045809953e-03_dp
4828 fit_coef(8, 8) = 1.3617506208780007e-02_dp
4829 fit_coef(9, 8) = -2.9083172474373836e-02_dp
4830 fit_coef(10, 8) = 2.6093940387631132e-02_dp
4831 fit_coef(11, 8) = -1.2187538547457615e-02_dp
4832 fit_coef(12, 8) = 2.4442839760494672e-03_dp
4833 fit_coef(0, 9) = 9.7351269086421022e-01_dp
4834 fit_coef(1, 9) = 7.7682804453441712e-01_dp
4835 fit_coef(2, 9) = 6.0537341804741274e-01_dp
4836 fit_coef(3, 9) = 2.4417103093525630e-01_dp
4837 fit_coef(4, 9) = 1.9643095133629673e-02_dp
4838 fit_coef(5, 9) = -1.7552027242727909e-02_dp
4839 fit_coef(6, 9) = 8.2268681071634708e-03_dp
4840 fit_coef(7, 9) = 3.3800170464644732e-03_dp
4841 fit_coef(8, 9) = 1.5951520448433745e-02_dp
4842 fit_coef(9, 9) = -4.2082858702406162e-02_dp
4843 fit_coef(10, 9) = 4.0832752772189854e-02_dp
4844 fit_coef(11, 9) = -1.9914993594640506e-02_dp
4845 fit_coef(12, 9) = 4.0828025408897019e-03_dp
4846 fit_coef(0, 10) = 1.8218150409063079e+00_dp
4847 fit_coef(1, 10) = 1.1328940612144838e+00_dp
4848 fit_coef(2, 10) = 8.1145165005204600e-01_dp
4849 fit_coef(3, 10) = 2.7169894714361381e-01_dp
4850 fit_coef(4, 10) = -9.2391365403536683e-03_dp
4851 fit_coef(5, 10) = -2.1969808519198136e-02_dp
4852 fit_coef(6, 10) = 2.0246181533686430e-02_dp
4853 fit_coef(7, 10) = 5.2443671348299629e-03_dp
4854 fit_coef(8, 10) = 1.6294437997198600e-02_dp
4855 fit_coef(9, 10) = -5.6113566142827496e-02_dp
4856 fit_coef(10, 10) = 5.9108716717708169e-02_dp
4857 fit_coef(11, 10) = -3.0017787615102216e-02_dp
4858 fit_coef(12, 10) = 6.2851355640176588e-03_dp
4859 fit_coef(0, 11) = 3.3638892281286350e+00_dp
4860 fit_coef(1, 11) = 1.5701436592256290e+00_dp
4861 fit_coef(2, 11) = 1.0468794820440899e+00_dp
4862 fit_coef(3, 11) = 2.8932244841622851e-01_dp
4863 fit_coef(4, 11) = -4.7147330695069850e-02_dp
4864 fit_coef(5, 11) = -2.3231305463748575e-02_dp
4865 fit_coef(6, 11) = 3.5814349205865105e-02_dp
4866 fit_coef(7, 11) = 6.1681105190574941e-03_dp
4867 fit_coef(8, 11) = 1.4380388978420344e-02_dp
4868 fit_coef(9, 11) = -7.0072767054186372e-02_dp
4869 fit_coef(10, 11) = 7.9925293980236525e-02_dp
4870 fit_coef(11, 11) = -4.2106160715496485e-02_dp
4871 fit_coef(12, 11) = 8.9934277746186089e-03_dp
4872 fit_coef(0, 12) = 6.2958157177735696e+00_dp
4873 fit_coef(1, 12) = 2.0736278555613925e+00_dp
4874 fit_coef(2, 12) = 1.3100027104859728e+00_dp
4875 fit_coef(3, 12) = 3.0309841684283917e-01_dp
4876 fit_coef(4, 12) = -9.0874734045887973e-02_dp
4877 fit_coef(5, 12) = -2.2511990033847892e-02_dp
4878 fit_coef(6, 12) = 5.3762327238007911e-02_dp
4879 fit_coef(7, 12) = 6.4301275560599072e-03_dp
4880 fit_coef(8, 12) = 1.1130561807738493e-02_dp
4881 fit_coef(9, 12) = -8.4343774419336590e-02_dp
4882 fit_coef(10, 12) = 1.0282039809053546e-01_dp
4883 fit_coef(11, 12) = -5.5735942843285882e-02_dp
4884 fit_coef(12, 12) = 1.2089953955292771e-02_dp
4885 fit_coef(0, 13) = 1.7361176995326563e-03_dp
4886 fit_coef(1, 13) = 4.8950464700643088e-03_dp
4887 fit_coef(2, 13) = 6.9887889000087690e-03_dp
4888 fit_coef(3, 13) = 5.9681592147681978e-03_dp
4889 fit_coef(4, 13) = 2.7797694969593904e-03_dp
4890 fit_coef(5, 13) = 1.0974079237570183e-04_dp
4891 fit_coef(6, 13) = -6.0276261358583726e-04_dp
4892 fit_coef(7, 13) = -2.1159566479273911e-04_dp
4893 fit_coef(8, 13) = 3.0294248744461766e-04_dp
4894 fit_coef(9, 13) = -7.4399992147188479e-05_dp
4895 fit_coef(10, 13) = -2.7468045558828552e-05_dp
4896 fit_coef(11, 13) = 1.6865141251068427e-05_dp
4897 fit_coef(12, 13) = -2.0377510281004492e-06_dp
4898 fit_coef(0, 14) = 4.8355092096145566e-03_dp
4899 fit_coef(1, 14) = 1.2333932959289709e-02_dp
4900 fit_coef(2, 14) = 1.6972825457174837e-02_dp
4901 fit_coef(3, 14) = 1.4060909191254103e-02_dp
4902 fit_coef(4, 14) = 6.2955683700635671e-03_dp
4903 fit_coef(5, 14) = 1.2177301196491723e-04_dp
4904 fit_coef(6, 14) = -1.3677107176344808e-03_dp
4905 fit_coef(7, 14) = -4.6095049437820380e-04_dp
4906 fit_coef(8, 14) = 7.6937933826695876e-04_dp
4907 fit_coef(9, 14) = -3.3164200459717756e-04_dp
4908 fit_coef(10, 14) = 8.1724364865420408e-05_dp
4909 fit_coef(11, 14) = -2.9312146170772606e-05_dp
4910 fit_coef(12, 14) = 8.9970999683901846e-06_dp
4911 fit_coef(0, 15) = 1.0612378818881555e-02_dp
4912 fit_coef(1, 15) = 2.2459336506101473e-02_dp
4913 fit_coef(2, 15) = 2.8371129792457078e-02_dp
4914 fit_coef(3, 15) = 2.2261852601842439e-02_dp
4915 fit_coef(4, 15) = 9.5999731643326893e-03_dp
4916 fit_coef(5, 15) = -1.8558563529812452e-05_dp
4917 fit_coef(6, 15) = -2.2357421491240670e-03_dp
4918 fit_coef(7, 15) = -7.4423534393391617e-04_dp
4919 fit_coef(8, 15) = 1.5057122702193376e-03_dp
4920 fit_coef(9, 15) = -7.0297537707829122e-04_dp
4921 fit_coef(10, 15) = 7.1959722147797053e-05_dp
4922 fit_coef(11, 15) = 4.6639800520364974e-05_dp
4923 fit_coef(12, 15) = -1.2660883153173911e-05_dp
4924 fit_coef(0, 16) = 2.2502651094608313e-02_dp
4925 fit_coef(1, 16) = 3.8302915711040345e-02_dp
4926 fit_coef(2, 16) = 4.2327776536488830e-02_dp
4927 fit_coef(3, 16) = 2.9242971747304312e-02_dp
4928 fit_coef(4, 16) = 1.1483493368870591e-02_dp
4929 fit_coef(5, 16) = 4.4372686263633332e-04_dp
4930 fit_coef(6, 16) = -2.1409365324177557e-03_dp
4931 fit_coef(7, 16) = -1.1499475056719786e-03_dp
4932 fit_coef(8, 16) = 9.9305143157658372e-04_dp
4933 fit_coef(9, 16) = -8.6357250324013148e-04_dp
4934 fit_coef(10, 16) = 1.4327807191970657e-03_dp
4935 fit_coef(11, 16) = -1.0670863396023819e-03_dp
4936 fit_coef(12, 16) = 2.8011891218022886e-04_dp
4937 fit_coef(0, 17) = 4.6379852772014826e-02_dp
4938 fit_coef(1, 17) = 6.3632440293261802e-02_dp
4939 fit_coef(2, 17) = 6.1214298124389097e-02_dp
4940 fit_coef(3, 17) = 3.4856680478514791e-02_dp
4941 fit_coef(4, 17) = 9.8511055688256591e-03_dp
4942 fit_coef(5, 17) = -4.1408424159966774e-04_dp
4943 fit_coef(6, 17) = -2.7116403636660304e-04_dp
4944 fit_coef(7, 17) = -8.3345412989501344e-04_dp
4945 fit_coef(8, 17) = 2.8388169463227923e-03_dp
4946 fit_coef(9, 17) = -6.0896330652201345e-03_dp
4947 fit_coef(10, 17) = 5.4431369422386086e-03_dp
4948 fit_coef(11, 17) = -2.2497263945134662e-03_dp
4949 fit_coef(12, 17) = 3.6399313731776849e-04_dp
4950 fit_coef(0, 18) = 9.2521202823536430e-02_dp
4951 fit_coef(1, 18) = 1.0203973195050642e-01_dp
4952 fit_coef(2, 18) = 8.6453931343429755e-02_dp
4953 fit_coef(3, 18) = 3.9391412232875435e-02_dp
4954 fit_coef(4, 18) = 5.0815288567403350e-03_dp
4955 fit_coef(5, 18) = -2.8315021323427666e-03_dp
4956 fit_coef(6, 18) = 1.1044933352897194e-03_dp
4957 fit_coef(7, 18) = 1.2026713128526101e-03_dp
4958 fit_coef(8, 18) = 2.3687414607481347e-03_dp
4959 fit_coef(9, 18) = -5.9882091197473600e-03_dp
4960 fit_coef(10, 18) = 4.5247728538859366e-03_dp
4961 fit_coef(11, 18) = -1.7071153745195653e-03_dp
4962 fit_coef(12, 18) = 2.9758468692744693e-04_dp
4963 fit_coef(0, 19) = 1.7895123701529778e-01_dp
4964 fit_coef(1, 19) = 1.5649170004661517e-01_dp
4965 fit_coef(2, 19) = 1.1781626034461101e-01_dp
4966 fit_coef(3, 19) = 4.1616478405439042e-02_dp
4967 fit_coef(4, 19) = -2.3717162520277809e-03_dp
4968 fit_coef(5, 19) = -5.3386440882515086e-03_dp
4969 fit_coef(6, 19) = 3.0469549759779353e-03_dp
4970 fit_coef(7, 19) = 2.0334444707206275e-03_dp
4971 fit_coef(8, 19) = 3.2479855073872382e-03_dp
4972 fit_coef(9, 19) = -9.1986286972097365e-03_dp
4973 fit_coef(10, 19) = 8.5242332274741671e-03_dp
4974 fit_coef(11, 19) = -4.1329263555985006e-03_dp
4975 fit_coef(12, 19) = 8.6616145809027139e-04_dp
4976 fit_coef(0, 20) = 3.3684611079928783e-01_dp
4977 fit_coef(1, 20) = 2.2786610373174537e-01_dp
4978 fit_coef(2, 20) = 1.5339071016684352e-01_dp
4979 fit_coef(3, 20) = 3.9677854839472344e-02_dp
4980 fit_coef(4, 20) = -1.2264564209904332e-02_dp
4981 fit_coef(5, 20) = -6.5927521643919379e-03_dp
4982 fit_coef(6, 20) = 6.0512561434243684e-03_dp
4983 fit_coef(7, 20) = 2.3902542529467478e-03_dp
4984 fit_coef(8, 20) = 3.0195138462315793e-03_dp
4985 fit_coef(9, 20) = -1.2050135993152236e-02_dp
4986 fit_coef(10, 20) = 1.2762387029635221e-02_dp
4987 fit_coef(11, 20) = -6.5239286773536758e-03_dp
4988 fit_coef(12, 20) = 1.3694468177831019e-03_dp
4989 fit_coef(0, 21) = 6.2004160201378677e-01_dp
4990 fit_coef(1, 21) = 3.1231452836704038e-01_dp
4991 fit_coef(2, 21) = 1.8949289978076236e-01_dp
4992 fit_coef(3, 21) = 3.2623505491414392e-02_dp
4993 fit_coef(4, 21) = -2.3505999675060181e-02_dp
4994 fit_coef(5, 21) = -5.7260158711334771e-03_dp
4995 fit_coef(6, 21) = 9.9807237729862951e-03_dp
4996 fit_coef(7, 21) = 2.2222797839610000e-03_dp
4997 fit_coef(8, 21) = 1.4664130053888486e-03_dp
4998 fit_coef(9, 21) = -1.3740779304315174e-02_dp
4999 fit_coef(10, 21) = 1.6640549191351679e-02_dp
5000 fit_coef(11, 21) = -8.9416960852337218e-03_dp
5001 fit_coef(12, 21) = 1.9187092435646925e-03_dp
5002 fit_coef(0, 22) = 1.1255181435117496e+00_dp
5003 fit_coef(1, 22) = 3.9889498776431231e-01_dp
5004 fit_coef(2, 22) = 2.2171584629075095e-01_dp
5005 fit_coef(3, 22) = 2.2225826529528901e-02_dp
5006 fit_coef(4, 22) = -3.3907556115484502e-02_dp
5007 fit_coef(5, 22) = -2.8764770890914323e-03_dp
5008 fit_coef(6, 22) = 1.3968131777336038e-02_dp
5009 fit_coef(7, 22) = 1.4214928484319333e-03_dp
5010 fit_coef(8, 22) = -8.3453566281261021e-04_dp
5011 fit_coef(9, 22) = -1.4109958929870586e-02_dp
5012 fit_coef(10, 22) = 1.9726438913848971e-02_dp
5013 fit_coef(11, 22) = -1.1193142315748616e-02_dp
5014 fit_coef(12, 22) = 2.4755702682764356e-03_dp
5015 fit_coef(0, 23) = 2.0598610404318460e+00_dp
5016 fit_coef(1, 23) = 4.7243372474599793e-01_dp
5017 fit_coef(2, 23) = 2.4849210820527318e-01_dp
5018 fit_coef(3, 23) = 1.4006813172765054e-02_dp
5019 fit_coef(4, 23) = -4.1308949825231950e-02_dp
5020 fit_coef(5, 23) = 1.5690842161415170e-04_dp
5021 fit_coef(6, 23) = 1.6942861921432139e-02_dp
5022 fit_coef(7, 23) = 4.7152452086483685e-04_dp
5023 fit_coef(8, 23) = -2.8341187428894861e-03_dp
5024 fit_coef(9, 23) = -1.3846753524951650e-02_dp
5025 fit_coef(10, 23) = 2.1790170949455349e-02_dp
5026 fit_coef(11, 23) = -1.2886556590999076e-02_dp
5027 fit_coef(12, 23) = 2.9162146561646620e-03_dp
5028 fit_coef(0, 24) = 4.1434250198174896e+00_dp
5029 fit_coef(1, 24) = 5.3740865227175982e-01_dp
5030 fit_coef(2, 24) = 2.8197846608440591e-01_dp
5031 fit_coef(3, 24) = 1.6092456027878326e-02_dp
5032 fit_coef(4, 24) = -4.6040710751708042e-02_dp
5033 fit_coef(5, 24) = 6.5042394570127837e-04_dp
5034 fit_coef(6, 24) = 1.8932659149369899e-02_dp
5035 fit_coef(7, 24) = 2.4082473716184700e-04_dp
5036 fit_coef(8, 24) = -3.3484787514316723e-03_dp
5037 fit_coef(9, 24) = -1.5284105573369426e-02_dp
5038 fit_coef(10, 24) = 2.4407280609082902e-02_dp
5039 fit_coef(11, 24) = -1.4513713351654377e-02_dp
5040 fit_coef(12, 24) = 3.2970008560632581e-03_dp
5041
5042 END SUBROUTINE get_fit_coef_k12_mi
5043
5044! **************************************************************************************************
5045!> \brief ...
5046!> \param k ...
5047!> \param fit_coef ...
5048!> \param L_b ...
5049!> \param U_b ...
5050! **************************************************************************************************
5051 SUBROUTINE get_fit_coef_k12_lo(k, fit_coef, L_b, U_b)
5052 INTEGER :: k
5053 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
5054 REAL(kind=dp) :: l_b, u_b
5055
5056 l_b = 1.0000000000000000e+02_dp
5057 u_b = 1.0890000000000000e+05_dp
5058 fit_coef(0, 1) = 2.3129808933247259e-05_dp
5059 fit_coef(1, 1) = 1.3229791040971861e-04_dp
5060 fit_coef(2, 1) = 8.9078224043542527e-04_dp
5061 fit_coef(3, 1) = 3.5906725339575205e-04_dp
5062 fit_coef(4, 1) = 1.4513983588735334e-02_dp
5063 fit_coef(5, 1) = -5.2233430638158315e-02_dp
5064 fit_coef(6, 1) = 1.6441632828707831e-01_dp
5065 fit_coef(7, 1) = -3.6058840741824150e-01_dp
5066 fit_coef(8, 1) = 5.3428676974850686e-01_dp
5067 fit_coef(9, 1) = -5.2731672647478189e-01_dp
5068 fit_coef(10, 1) = 3.3265094311193522e-01_dp
5069 fit_coef(11, 1) = -1.2145741283688967e-01_dp
5070 fit_coef(12, 1) = 1.9537487536713263e-02_dp
5071 fit_coef(0, 2) = 2.3455247909237882e-04_dp
5072 fit_coef(1, 2) = 8.2160398869974953e-04_dp
5073 fit_coef(2, 2) = 5.3319821419640272e-03_dp
5074 fit_coef(3, 2) = 6.4575814983609142e-04_dp
5075 fit_coef(4, 2) = 8.7822372114111175e-02_dp
5076 fit_coef(5, 2) = -3.2631392232557216e-01_dp
5077 fit_coef(6, 2) = 1.0208260875409669e+00_dp
5078 fit_coef(7, 2) = -2.2300026314422441e+00_dp
5079 fit_coef(8, 2) = 3.3057374126568657e+00_dp
5080 fit_coef(9, 2) = -3.2713127430468321e+00_dp
5081 fit_coef(10, 2) = 2.0709853451512608e+00_dp
5082 fit_coef(11, 2) = -7.5901118153106462e-01_dp
5083 fit_coef(12, 2) = 1.2254511188136619e-01_dp
5084 fit_coef(0, 3) = 1.1944107046876868e-03_dp
5085 fit_coef(1, 3) = 2.8490802943664383e-03_dp
5086 fit_coef(2, 3) = 1.7507904217475573e-02_dp
5087 fit_coef(3, 3) = -6.4522716917725272e-03_dp
5088 fit_coef(4, 3) = 2.8224130041588374e-01_dp
5089 fit_coef(5, 3) = -1.1757205798515102e+00_dp
5090 fit_coef(6, 3) = 3.7822941249117266e+00_dp
5091 fit_coef(7, 3) = -8.2843383024642065e+00_dp
5092 fit_coef(8, 3) = 1.2238481082417001e+01_dp
5093 fit_coef(9, 3) = -1.2055852436649243e+01_dp
5094 fit_coef(10, 3) = 7.6007782878436343e+00_dp
5095 fit_coef(11, 3) = -2.7765219925860354e+00_dp
5096 fit_coef(12, 3) = 4.4718773429739378e-01_dp
5097 fit_coef(0, 4) = 4.5120683484607405e-03_dp
5098 fit_coef(1, 4) = 7.9095288831978021e-03_dp
5099 fit_coef(2, 4) = 4.6697868261753268e-02_dp
5100 fit_coef(3, 4) = -3.3544522740173804e-02_dp
5101 fit_coef(4, 4) = 7.2425137774094894e-01_dp
5102 fit_coef(5, 4) = -3.2633003302313521e+00_dp
5103 fit_coef(6, 4) = 1.0450673822567490e+01_dp
5104 fit_coef(7, 4) = -2.2594031368355793e+01_dp
5105 fit_coef(8, 4) = 3.3109462208134374e+01_dp
5106 fit_coef(9, 4) = -3.2506292757603717e+01_dp
5107 fit_coef(10, 4) = 2.0487989626895530e+01_dp
5108 fit_coef(11, 4) = -7.4948539272232253e+00_dp
5109 fit_coef(12, 4) = 1.2099196036738793e+00_dp
5110 fit_coef(0, 5) = 1.4248952254027877e-02_dp
5111 fit_coef(1, 5) = 1.9074798942523639e-02_dp
5112 fit_coef(2, 5) = 1.0943167990343619e-01_dp
5113 fit_coef(3, 5) = -1.0671670298403642e-01_dp
5114 fit_coef(4, 5) = 1.6526275275600326e+00_dp
5115 fit_coef(5, 5) = -7.8775178049382024e+00_dp
5116 fit_coef(6, 5) = 2.5305646502994179e+01_dp
5117 fit_coef(7, 5) = -5.4666053461159009e+01_dp
5118 fit_coef(8, 5) = 8.0167059237163343e+01_dp
5119 fit_coef(9, 5) = -7.8825322292091528e+01_dp
5120 fit_coef(10, 5) = 4.9764390489009351e+01_dp
5121 fit_coef(11, 5) = -1.8233568839424560e+01_dp
5122 fit_coef(12, 5) = 2.9478228744193333e+00_dp
5123 fit_coef(0, 6) = 3.9801596054429601e-02_dp
5124 fit_coef(1, 6) = 4.1447021761176796e-02_dp
5125 fit_coef(2, 6) = 2.3270073234920230e-01_dp
5126 fit_coef(3, 6) = -2.7292288542272475e-01_dp
5127 fit_coef(4, 6) = 3.4506136511101664e+00_dp
5128 fit_coef(5, 6) = -1.7124854042561445e+01_dp
5129 fit_coef(6, 6) = 5.5335626634127287e+01_dp
5130 fit_coef(7, 6) = -1.1966893675071402e+02_dp
5131 fit_coef(8, 6) = 1.7554731067692325e+02_dp
5132 fit_coef(9, 6) = -1.7262672563793396e+02_dp
5133 fit_coef(10, 6) = 1.0899761858660371e+02_dp
5134 fit_coef(11, 6) = -3.9946406626328411e+01_dp
5135 fit_coef(12, 6) = 6.4605650754876507e+00_dp
5136 fit_coef(0, 7) = 1.0153848301405891e-01_dp
5137 fit_coef(1, 7) = 8.2744575115798746e-02_dp
5138 fit_coef(2, 7) = 4.5675281550800451e-01_dp
5139 fit_coef(3, 7) = -6.0755960983591895e-01_dp
5140 fit_coef(4, 7) = 6.6840425945230333e+00_dp
5141 fit_coef(5, 7) = -3.4181153764390729e+01_dp
5142 fit_coef(6, 7) = 1.1120663926638191e+02_dp
5143 fit_coef(7, 7) = -2.4092641084144972e+02_dp
5144 fit_coef(8, 7) = 3.5355143552413938e+02_dp
5145 fit_coef(9, 7) = -3.4765931274190069e+02_dp
5146 fit_coef(10, 7) = 2.1950666813842750e+02_dp
5147 fit_coef(11, 7) = -8.0451830347244339e+01_dp
5148 fit_coef(12, 7) = 1.3013672905602384e+01_dp
5149 fit_coef(0, 8) = 2.4141648240665145e-01_dp
5150 fit_coef(1, 8) = 1.5335953037887173e-01_dp
5151 fit_coef(2, 8) = 8.3504832050626976e-01_dp
5152 fit_coef(3, 8) = -1.2178157194978934e+00_dp
5153 fit_coef(4, 8) = 1.2099585014816819e+01_dp
5154 fit_coef(5, 8) = -6.3313617826158982e+01_dp
5155 fit_coef(6, 8) = 2.0741722770815861e+02_dp
5156 fit_coef(7, 8) = -4.5029790616194964e+02_dp
5157 fit_coef(8, 8) = 6.6110515192856462e+02_dp
5158 fit_coef(9, 8) = -6.5007509234254940e+02_dp
5159 fit_coef(10, 8) = 4.1040648800886731e+02_dp
5160 fit_coef(11, 8) = -1.5041026682712433e+02_dp
5161 fit_coef(12, 8) = 2.4330155922976292e+01_dp
5162 fit_coef(0, 9) = 5.4247999033308114e-01_dp
5163 fit_coef(1, 9) = 2.6499445034705121e-01_dp
5164 fit_coef(2, 9) = 1.4268709589831525e+00_dp
5165 fit_coef(3, 9) = -2.2313886617958429e+00_dp
5166 fit_coef(4, 9) = 2.0518890229005105e+01_dp
5167 fit_coef(5, 9) = -1.0930947078396949e+02_dp
5168 fit_coef(6, 9) = 3.6045833696584418e+02_dp
5169 fit_coef(7, 9) = -7.8423527312908436e+02_dp
5170 fit_coef(8, 9) = 1.1520122421721351e+03_dp
5171 fit_coef(9, 9) = -1.1328174992310501e+03_dp
5172 fit_coef(10, 9) = 7.1509445979181294e+02_dp
5173 fit_coef(11, 9) = -2.6204807849728383e+02_dp
5174 fit_coef(12, 9) = 4.2385855620433802e+01_dp
5175 fit_coef(0, 10) = 1.1649235984334310e+00_dp
5176 fit_coef(1, 10) = 4.2669860434201973e-01_dp
5177 fit_coef(2, 10) = 2.2769218254498678e+00_dp
5178 fit_coef(3, 10) = -3.7556598199553419e+00_dp
5179 fit_coef(4, 10) = 3.2554151177465044e+01_dp
5180 fit_coef(5, 10) = -1.7584595871324311e+02_dp
5181 fit_coef(6, 10) = 5.8329724780519552e+02_dp
5182 fit_coef(7, 10) = -1.2717006032060506e+03_dp
5183 fit_coef(8, 10) = 1.8691949694429402e+03_dp
5184 fit_coef(9, 10) = -1.8381765181945018e+03_dp
5185 fit_coef(10, 10) = 1.1602510916037054e+03_dp
5186 fit_coef(11, 10) = -4.2512958735964088e+02_dp
5187 fit_coef(12, 10) = 6.8758003199532453e+01_dp
5188 fit_coef(0, 11) = 2.4212426991212057e+00_dp
5189 fit_coef(1, 11) = 6.3843606877537262e-01_dp
5190 fit_coef(2, 11) = 3.3832944732267647e+00_dp
5191 fit_coef(3, 11) = -5.8032061767073824e+00_dp
5192 fit_coef(4, 11) = 4.8167947114080192e+01_dp
5193 fit_coef(5, 11) = -2.6286759432487781e+02_dp
5194 fit_coef(6, 11) = 8.7620572915548814e+02_dp
5195 fit_coef(7, 11) = -1.9137694452215110e+03_dp
5196 fit_coef(8, 11) = 2.8145274374678247e+03_dp
5197 fit_coef(9, 11) = -2.7680919699076530e+03_dp
5198 fit_coef(10, 11) = 1.7471091763340671e+03_dp
5199 fit_coef(11, 11) = -6.4010183684923209e+02_dp
5200 fit_coef(12, 11) = 1.0351773205889742e+02_dp
5201 fit_coef(0, 12) = 5.0200579894610868e+00_dp
5202 fit_coef(1, 12) = 8.8885387561015605e-01_dp
5203 fit_coef(2, 12) = 4.6883210461508416e+00_dp
5204 fit_coef(3, 12) = -8.2512193578220483e+00_dp
5205 fit_coef(4, 12) = 6.6560605008919623e+01_dp
5206 fit_coef(5, 12) = -3.6572207879590201e+02_dp
5207 fit_coef(6, 12) = 1.2232199700982205e+03_dp
5208 fit_coef(7, 12) = -2.6752268847851810e+03_dp
5209 fit_coef(8, 12) = 3.9360821093174841e+03_dp
5210 fit_coef(9, 12) = -3.8714869910206562e+03_dp
5211 fit_coef(10, 12) = 2.4434517488097472e+03_dp
5212 fit_coef(11, 12) = -8.9517007084930697e+02_dp
5213 fit_coef(12, 12) = 1.4475878519184542e+02_dp
5214 fit_coef(0, 13) = 7.1480283160792286e-05_dp
5215 fit_coef(1, 13) = 3.4522475460442413e-04_dp
5216 fit_coef(2, 13) = 2.3289358018025357e-03_dp
5217 fit_coef(3, 13) = 8.6564456187697154e-04_dp
5218 fit_coef(4, 13) = 3.9444759289228873e-02_dp
5219 fit_coef(5, 13) = -1.4607809825480644e-01_dp
5220 fit_coef(6, 13) = 4.5801849703119135e-01_dp
5221 fit_coef(7, 13) = -9.9551749039632609e-01_dp
5222 fit_coef(8, 13) = 1.4633991701280600e+00_dp
5223 fit_coef(9, 13) = -1.4351206048684466e+00_dp
5224 fit_coef(10, 13) = 9.0075138053758774e-01_dp
5225 fit_coef(11, 13) = -3.2755040336927682e-01_dp
5226 fit_coef(12, 13) = 5.2516019203549216e-02_dp
5227 fit_coef(0, 14) = 4.3512255060467424e-04_dp
5228 fit_coef(1, 14) = 1.1619032009340215e-03_dp
5229 fit_coef(2, 14) = 7.2125439844170202e-03_dp
5230 fit_coef(3, 14) = -1.5997165186082474e-03_dp
5231 fit_coef(4, 14) = 1.1580962215615681e-01_dp
5232 fit_coef(5, 14) = -4.5588347118168826e-01_dp
5233 fit_coef(6, 14) = 1.4668513671508041e+00_dp
5234 fit_coef(7, 14) = -3.2658979984403209e+00_dp
5235 fit_coef(8, 14) = 4.9101588767499029e+00_dp
5236 fit_coef(9, 14) = -4.9103950358935151e+00_dp
5237 fit_coef(10, 14) = 3.1335239775801118e+00_dp
5238 fit_coef(11, 14) = -1.1555673477193260e+00_dp
5239 fit_coef(12, 14) = 1.8749662399467892e-01_dp
5240 fit_coef(0, 15) = 1.7310205801983041e-03_dp
5241 fit_coef(1, 15) = 3.1669171624321819e-03_dp
5242 fit_coef(2, 15) = 1.8644195870254832e-02_dp
5243 fit_coef(3, 15) = -1.4397262238866691e-02_dp
5244 fit_coef(4, 15) = 2.9169977531123992e-01_dp
5245 fit_coef(5, 15) = -1.3313481914883316e+00_dp
5246 fit_coef(6, 15) = 4.2756251478512226e+00_dp
5247 fit_coef(7, 15) = -9.1958972503690166e+00_dp
5248 fit_coef(8, 15) = 1.3362193435862070e+01_dp
5249 fit_coef(9, 15) = -1.3004184796302695e+01_dp
5250 fit_coef(10, 15) = 8.1326698622082620e+00_dp
5251 fit_coef(11, 15) = -2.9559537831500120e+00_dp
5252 fit_coef(12, 15) = 4.7473220658578025e-01_dp
5253 fit_coef(0, 16) = 5.5360416394316771e-03_dp
5254 fit_coef(1, 16) = 7.4544925165475080e-03_dp
5255 fit_coef(2, 16) = 4.2442503620852397e-02_dp
5256 fit_coef(3, 16) = -4.4215606043728234e-02_dp
5257 fit_coef(4, 16) = 6.3386466456182333e-01_dp
5258 fit_coef(5, 16) = -3.0715020425513488e+00_dp
5259 fit_coef(6, 16) = 9.8361982985015253e+00_dp
5260 fit_coef(7, 16) = -2.1180667612485266e+01_dp
5261 fit_coef(8, 16) = 3.1043088235838166e+01_dp
5262 fit_coef(9, 16) = -3.0559569250108336e+01_dp
5263 fit_coef(10, 16) = 1.9330505471141983e+01_dp
5264 fit_coef(11, 16) = -7.0975069725987057e+00_dp
5265 fit_coef(12, 16) = 1.1497097136190815e+00_dp
5266 fit_coef(0, 17) = 1.5414916387788672e-02_dp
5267 fit_coef(1, 17) = 1.5715678851517083e-02_dp
5268 fit_coef(2, 17) = 8.7468870899845605e-02_dp
5269 fit_coef(3, 17) = -1.0975140358097349e-01_dp
5270 fit_coef(4, 17) = 1.2852966018847800e+00_dp
5271 fit_coef(5, 17) = -6.4984894179776092e+00_dp
5272 fit_coef(6, 17) = 2.1000940295849389e+01_dp
5273 fit_coef(7, 17) = -4.5396783297216288e+01_dp
5274 fit_coef(8, 17) = 6.6608738269027413e+01_dp
5275 fit_coef(9, 17) = -6.5525352583359691e+01_dp
5276 fit_coef(10, 17) = 4.1386945120960981e+01_dp
5277 fit_coef(11, 17) = -1.5171963717870183e+01_dp
5278 fit_coef(12, 17) = 2.4543585537353447e+00_dp
5279 fit_coef(0, 18) = 3.8916898079420920e-02_dp
5280 fit_coef(1, 18) = 3.0312084028360865e-02_dp
5281 fit_coef(2, 18) = 1.6576784827897006e-01_dp
5282 fit_coef(3, 18) = -2.3516121046359606e-01_dp
5283 fit_coef(4, 18) = 2.4050118552826443e+00_dp
5284 fit_coef(5, 18) = -1.2525237294764612e+01_dp
5285 fit_coef(6, 18) = 4.0835140514931439e+01_dp
5286 fit_coef(7, 18) = -8.8493887923230830e+01_dp
5287 fit_coef(8, 18) = 1.2986858749858015e+02_dp
5288 fit_coef(9, 18) = -1.2770555910039072e+02_dp
5289 fit_coef(10, 18) = 8.0636021175329191e+01_dp
5290 fit_coef(11, 18) = -2.9558075550791788e+01_dp
5291 fit_coef(12, 18) = 4.7822089064411317e+00_dp
5292 fit_coef(0, 19) = 9.1240612545516228e-02_dp
5293 fit_coef(1, 19) = 5.4034493382966092e-02_dp
5294 fit_coef(2, 19) = 2.9135349130073102e-01_dp
5295 fit_coef(3, 19) = -4.5212301023387952e-01_dp
5296 fit_coef(4, 19) = 4.1878151793085188e+00_dp
5297 fit_coef(5, 19) = -2.2306599564702282e+01_dp
5298 fit_coef(6, 19) = 7.3348603292660968e+01_dp
5299 fit_coef(7, 19) = -1.5938432150171050e+02_dp
5300 fit_coef(8, 19) = 2.3403743136945869e+02_dp
5301 fit_coef(9, 19) = -2.3012589740957122e+02_dp
5302 fit_coef(10, 19) = 1.4528076150095299e+02_dp
5303 fit_coef(11, 19) = -5.3246238298596822e+01_dp
5304 fit_coef(12, 19) = 8.6138613725490618e+00_dp
5305 fit_coef(0, 20) = 2.0179304564503545e-01_dp
5306 fit_coef(1, 20) = 8.9210315804133342e-02_dp
5307 fit_coef(2, 20) = 4.7545204864558721e-01_dp
5308 fit_coef(3, 20) = -7.9032122760761392e-01_dp
5309 fit_coef(4, 20) = 6.7848792396969912e+00_dp
5310 fit_coef(5, 20) = -3.6782770745377228e+01_dp
5311 fit_coef(6, 20) = 1.2191045579708324e+02_dp
5312 fit_coef(7, 20) = -2.6562927550077575e+02_dp
5313 fit_coef(8, 20) = 3.9032415807076654e+02_dp
5314 fit_coef(9, 20) = -3.8381139592009845e+02_dp
5315 fit_coef(10, 20) = 2.4226291326011409e+02_dp
5316 fit_coef(11, 20) = -8.8773520901146185e+01_dp
5317 fit_coef(12, 20) = 1.4358956500859366e+01_dp
5318 fit_coef(0, 21) = 4.2593952773320098e-01_dp
5319 fit_coef(1, 21) = 1.3568653118311338e-01_dp
5320 fit_coef(2, 21) = 7.1623822743042354e-01_dp
5321 fit_coef(3, 21) = -1.2560727864754864e+00_dp
5322 fit_coef(4, 21) = 1.0163959042284175e+01_dp
5323 fit_coef(5, 21) = -5.5870348063658447e+01_dp
5324 fit_coef(6, 21) = 1.8650175155799977e+02_dp
5325 fit_coef(7, 21) = -4.0744671452434335e+02_dp
5326 fit_coef(8, 21) = 5.9919650717200875e+02_dp
5327 fit_coef(9, 21) = -5.8926562705630113e+02_dp
5328 fit_coef(10, 21) = 3.7190276855784708e+02_dp
5329 fit_coef(11, 21) = -1.3625501508902701e+02_dp
5330 fit_coef(12, 21) = 2.2035594424138168e+01_dp
5331 fit_coef(0, 22) = 8.6820953800091549e-01_dp
5332 fit_coef(1, 22) = 1.8780376015732225e-01_dp
5333 fit_coef(2, 22) = 9.8395493031048986e-01_dp
5334 fit_coef(3, 22) = -1.7957997667101941e+00_dp
5335 fit_coef(4, 22) = 1.3905769981465895e+01_dp
5336 fit_coef(5, 22) = -7.7228503961529029e+01_dp
5337 fit_coef(6, 22) = 2.5935228694562625e+02_dp
5338 fit_coef(7, 22) = -5.6796297694678856e+02_dp
5339 fit_coef(8, 22) = 8.3593005414822915e+02_dp
5340 fit_coef(9, 22) = -8.2221938772784824e+02_dp
5341 fit_coef(10, 22) = 5.1889603350223433e+02_dp
5342 fit_coef(11, 22) = -1.9008494460566484e+02_dp
5343 fit_coef(12, 22) = 3.0737084830973959e+01_dp
5344 fit_coef(0, 23) = 1.7481856703690022e+00_dp
5345 fit_coef(1, 23) = 2.3346689762517508e-01_dp
5346 fit_coef(2, 23) = 1.2175326565887574e+00_dp
5347 fit_coef(3, 23) = -2.2759160332795787e+00_dp
5348 fit_coef(4, 23) = 1.7165218972872630e+01_dp
5349 fit_coef(5, 23) = -9.5910398735102618e+01_dp
5350 fit_coef(6, 23) = 3.2337485666569609e+02_dp
5351 fit_coef(7, 23) = -7.0937150908633851e+02_dp
5352 fit_coef(8, 23) = 1.0447103125794226e+03_dp
5353 fit_coef(9, 23) = -1.0277535716241930e+03_dp
5354 fit_coef(10, 23) = 6.4860244114600755e+02_dp
5355 fit_coef(11, 23) = -2.3758314620598588e+02_dp
5356 fit_coef(12, 23) = 3.8414439806414237e+01_dp
5357 fit_coef(0, 24) = 3.7882878590945706e+00_dp
5358 fit_coef(1, 24) = 2.6672643511994515e-01_dp
5359 fit_coef(2, 24) = 1.3901597873378935e+00_dp
5360 fit_coef(3, 24) = -2.6062582764354025e+00_dp
5361 fit_coef(4, 24) = 1.9594239409959744e+01_dp
5362 fit_coef(5, 24) = -1.0955141547937794e+02_dp
5363 fit_coef(6, 24) = 3.6959856539692777e+02_dp
5364 fit_coef(7, 24) = -8.1102106918375466e+02_dp
5365 fit_coef(8, 24) = 1.1945701938386849e+03_dp
5366 fit_coef(9, 24) = -1.1752376758852338e+03_dp
5367 fit_coef(10, 24) = 7.4168531728428854e+02_dp
5368 fit_coef(11, 24) = -2.7167776208361096e+02_dp
5369 fit_coef(12, 24) = 4.3926613983789913e+01_dp
5370
5371 END SUBROUTINE get_fit_coef_k12_lo
5372
5373! **************************************************************************************************
5374!> \brief ...
5375!> \param k ...
5376!> \param fit_coef ...
5377!> \param L_b ...
5378!> \param U_b ...
5379! **************************************************************************************************
5380 SUBROUTINE get_fit_coef_k13_sh(k, fit_coef, L_b, U_b)
5381 INTEGER :: k
5382 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
5383 REAL(kind=dp) :: l_b, u_b
5384
5385 l_b = 1.0000000000000000e+01_dp
5386 u_b = 1.0000000000000000e+02_dp
5387 fit_coef(0, 1) = 4.3806959251380109e-03_dp
5388 fit_coef(1, 1) = 1.1805095681240434e-02_dp
5389 fit_coef(2, 1) = 1.5469511812292528e-02_dp
5390 fit_coef(3, 1) = 1.1417683853936199e-02_dp
5391 fit_coef(4, 1) = 3.5089172870450503e-03_dp
5392 fit_coef(5, 1) = -1.6212006877380839e-03_dp
5393 fit_coef(6, 1) = -1.8991808677819510e-03_dp
5394 fit_coef(7, 1) = -1.8247535956842715e-04_dp
5395 fit_coef(8, 1) = 4.6296227124327700e-04_dp
5396 fit_coef(9, 1) = 3.1714051554687601e-04_dp
5397 fit_coef(10, 1) = -4.2555794580904834e-04_dp
5398 fit_coef(11, 1) = 2.1260104216928313e-04_dp
5399 fit_coef(12, 1) = -4.7302059547381066e-05_dp
5400 fit_coef(0, 2) = 2.3696032787686165e-02_dp
5401 fit_coef(1, 2) = 6.2953090652548949e-02_dp
5402 fit_coef(2, 2) = 8.1812508977763682e-02_dp
5403 fit_coef(3, 2) = 5.9935099274848913e-02_dp
5404 fit_coef(4, 2) = 1.8183698651738394e-02_dp
5405 fit_coef(5, 2) = -8.5926086043909885e-03_dp
5406 fit_coef(6, 2) = -9.8822906424356552e-03_dp
5407 fit_coef(7, 2) = -8.9212086720690355e-04_dp
5408 fit_coef(8, 2) = 2.4413793189226370e-03_dp
5409 fit_coef(9, 2) = 1.5997746303520928e-03_dp
5410 fit_coef(10, 2) = -2.1816355097527334e-03_dp
5411 fit_coef(11, 2) = 1.0890520189793466e-03_dp
5412 fit_coef(12, 2) = -2.4201086567176617e-04_dp
5413 fit_coef(0, 3) = 6.1206818631275799e-02_dp
5414 fit_coef(1, 3) = 1.5800300818436122e-01_dp
5415 fit_coef(2, 3) = 2.0228324543170234e-01_dp
5416 fit_coef(3, 3) = 1.4627045924471369e-01_dp
5417 fit_coef(4, 3) = 4.3383951728004834e-02_dp
5418 fit_coef(5, 3) = -2.1290904984850527e-02_dp
5419 fit_coef(6, 3) = -2.3732647813102206e-02_dp
5420 fit_coef(7, 3) = -1.9047854738674234e-03_dp
5421 fit_coef(8, 3) = 5.9890949427493156e-03_dp
5422 fit_coef(9, 3) = 3.6484212780910821e-03_dp
5423 fit_coef(10, 3) = -5.1182607229190253e-03_dp
5424 fit_coef(11, 3) = 2.5506650132351419e-03_dp
5425 fit_coef(12, 3) = -5.6515120961717785e-04_dp
5426 fit_coef(0, 4) = 1.2273976907574904e-01_dp
5427 fit_coef(1, 4) = 3.0202610531899604e-01_dp
5428 fit_coef(2, 4) = 3.7810599512667076e-01_dp
5429 fit_coef(3, 4) = 2.6877539512343529e-01_dp
5430 fit_coef(4, 4) = 7.7369990738750394e-02_dp
5431 fit_coef(5, 4) = -3.9931781197404183e-02_dp
5432 fit_coef(6, 4) = -4.2604215569189550e-02_dp
5433 fit_coef(7, 4) = -2.7223623128689494e-03_dp
5434 fit_coef(8, 4) = 1.1010550845635398e-02_dp
5435 fit_coef(9, 4) = 5.9806779753877508e-03_dp
5436 fit_coef(10, 4) = -8.7651481516437067e-03_dp
5437 fit_coef(11, 4) = 4.3537113139725109e-03_dp
5438 fit_coef(12, 4) = -9.6064235434420908e-04_dp
5439 fit_coef(0, 5) = 2.1922884952130442e-01_dp
5440 fit_coef(1, 5) = 5.0239277267534854e-01_dp
5441 fit_coef(2, 5) = 6.0878683083947316e-01_dp
5442 fit_coef(3, 5) = 4.2445143636733651e-01_dp
5443 fit_coef(4, 5) = 1.1949507494490993e-01_dp
5444 fit_coef(5, 5) = -6.4343269144918072e-02_dp
5445 fit_coef(6, 5) = -6.6581789191562657e-02_dp
5446 fit_coef(7, 5) = -3.2621357858438767e-03_dp
5447 fit_coef(8, 5) = 2.0013098730936332e-02_dp
5448 fit_coef(9, 5) = 5.6869475340117050e-03_dp
5449 fit_coef(10, 5) = -1.2059838120484294e-02_dp
5450 fit_coef(11, 5) = 6.5584888368600807e-03_dp
5451 fit_coef(12, 5) = -1.5261431175938014e-03_dp
5452 fit_coef(0, 6) = 3.6944915773408882e-01_dp
5453 fit_coef(1, 6) = 7.6979797793437166e-01_dp
5454 fit_coef(2, 6) = 8.9033669564805873e-01_dp
5455 fit_coef(3, 6) = 6.0532992150591614e-01_dp
5456 fit_coef(4, 6) = 1.7130397954922461e-01_dp
5457 fit_coef(5, 6) = -8.8192182985475279e-02_dp
5458 fit_coef(6, 6) = -9.7966070392074389e-02_dp
5459 fit_coef(7, 6) = -4.8436829553671259e-03_dp
5460 fit_coef(8, 6) = 2.0833002694907763e-02_dp
5461 fit_coef(9, 6) = 3.5063121112200099e-02_dp
5462 fit_coef(10, 6) = -4.7438965646280404e-02_dp
5463 fit_coef(11, 6) = 2.4703796048967528e-02_dp
5464 fit_coef(12, 6) = -5.2577610515280489e-03_dp
5465 fit_coef(0, 7) = 6.0348926202620468e-01_dp
5466 fit_coef(1, 7) = 1.1189609399540368e+00_dp
5467 fit_coef(2, 7) = 1.2166554041301936e+00_dp
5468 fit_coef(3, 7) = 7.9564460112103685e-01_dp
5469 fit_coef(4, 7) = 2.2942989193522059e-01_dp
5470 fit_coef(5, 7) = -9.7714358227207448e-02_dp
5471 fit_coef(6, 7) = -1.2746711453160517e-01_dp
5472 fit_coef(7, 7) = -1.1047808976133488e-02_dp
5473 fit_coef(8, 7) = -6.1793196597745570e-03_dp
5474 fit_coef(9, 7) = 8.7267129421221348e-02_dp
5475 fit_coef(10, 7) = -6.4166653350011871e-02_dp
5476 fit_coef(11, 7) = 1.4747313101772477e-02_dp
5477 fit_coef(12, 7) = 2.3977301657934416e-04_dp
5478 fit_coef(0, 8) = 9.6768723967411674e-01_dp
5479 fit_coef(1, 8) = 1.5668848161581139e+00_dp
5480 fit_coef(2, 8) = 1.5818658236819807e+00_dp
5481 fit_coef(3, 8) = 9.7733015664802736e-01_dp
5482 fit_coef(4, 8) = 2.8255279451553161e-01_dp
5483 fit_coef(5, 8) = -8.9391803088038346e-02_dp
5484 fit_coef(6, 8) = -1.2421016153669295e-01_dp
5485 fit_coef(7, 8) = -6.1021516900378492e-02_dp
5486 fit_coef(8, 8) = 6.2677519441489124e-02_dp
5487 fit_coef(9, 8) = -8.0250399433389449e-02_dp
5488 fit_coef(10, 8) = 1.5369427952945630e-01_dp
5489 fit_coef(11, 8) = -1.1092684421625504e-01_dp
5490 fit_coef(12, 8) = 2.7549923051188644e-02_dp
5491 fit_coef(0, 9) = 1.5325340819017725e+00_dp
5492 fit_coef(1, 9) = 2.1287996982316222e+00_dp
5493 fit_coef(2, 9) = 1.9799152367840203e+00_dp
5494 fit_coef(3, 9) = 1.1370787116857501e+00_dp
5495 fit_coef(4, 9) = 3.2008697898446903e-01_dp
5496 fit_coef(5, 9) = -6.6640990523988475e-02_dp
5497 fit_coef(6, 9) = -9.5466135919243425e-02_dp
5498 fit_coef(7, 9) = -9.2042888056781805e-02_dp
5499 fit_coef(8, 9) = 9.7360896464160462e-02_dp
5500 fit_coef(9, 9) = -1.8127317675763444e-01_dp
5501 fit_coef(10, 9) = 2.2214526244390012e-01_dp
5502 fit_coef(11, 9) = -1.0494335632769292e-01_dp
5503 fit_coef(12, 9) = 1.5481275818011413e-02_dp
5504 fit_coef(0, 10) = 2.4061866675798735e+00_dp
5505 fit_coef(1, 10) = 2.8132877393110070e+00_dp
5506 fit_coef(2, 10) = 2.4037430753636428e+00_dp
5507 fit_coef(3, 10) = 1.2687163022362127e+00_dp
5508 fit_coef(4, 10) = 3.3899108614443485e-01_dp
5509 fit_coef(5, 10) = -3.2980562806816459e-02_dp
5510 fit_coef(6, 10) = -6.4495629707069638e-02_dp
5511 fit_coef(7, 10) = -4.9196501013761162e-02_dp
5512 fit_coef(8, 10) = -1.8973498191644747e-02_dp
5513 fit_coef(9, 10) = -1.6127741943174356e-02_dp
5514 fit_coef(10, 10) = 1.0778655156935451e-03_dp
5515 fit_coef(11, 10) = 4.9661103678829296e-02_dp
5516 fit_coef(12, 10) = -2.4208904460265530e-02_dp
5517 fit_coef(0, 11) = 3.7607303248227026e+00_dp
5518 fit_coef(1, 11) = 3.6183981611913807e+00_dp
5519 fit_coef(2, 11) = 2.8473208041198181e+00_dp
5520 fit_coef(3, 11) = 1.3735956585457292e+00_dp
5521 fit_coef(4, 11) = 3.4303721265244597e-01_dp
5522 fit_coef(5, 11) = 5.1365790260944994e-03_dp
5523 fit_coef(6, 11) = -2.3683792375462247e-02_dp
5524 fit_coef(7, 11) = -7.7157824160531199e-03_dp
5525 fit_coef(8, 11) = -9.7425777898074148e-02_dp
5526 fit_coef(9, 11) = 8.3518836722114576e-02_dp
5527 fit_coef(10, 11) = -1.1044052160199369e-01_dp
5528 fit_coef(11, 11) = 1.0133376735634138e-01_dp
5529 fit_coef(12, 11) = -2.9906470245636543e-02_dp
5530 fit_coef(0, 12) = 5.8979582300825903e+00_dp
5531 fit_coef(1, 12) = 4.5329131993702125e+00_dp
5532 fit_coef(2, 12) = 3.3115813786557839e+00_dp
5533 fit_coef(3, 12) = 1.4609520855498697e+00_dp
5534 fit_coef(4, 12) = 3.3783414333423767e-01_dp
5535 fit_coef(5, 12) = 4.3826302981445429e-02_dp
5536 fit_coef(6, 12) = 2.7923917468353154e-02_dp
5537 fit_coef(7, 12) = 2.7776299343854542e-03_dp
5538 fit_coef(8, 12) = -8.3036915110656417e-02_dp
5539 fit_coef(9, 12) = 3.7742211424302625e-02_dp
5540 fit_coef(10, 12) = -4.9885068616704199e-02_dp
5541 fit_coef(11, 12) = 4.5143513558608316e-02_dp
5542 fit_coef(12, 12) = -1.0663317459135431e-02_dp
5543 fit_coef(0, 13) = 9.5045784867374294e+00_dp
5544 fit_coef(1, 13) = 5.5579146894547398e+00_dp
5545 fit_coef(2, 13) = 3.8186762276220274e+00_dp
5546 fit_coef(3, 13) = 1.5494988454410836e+00_dp
5547 fit_coef(4, 13) = 3.2780283598581783e-01_dp
5548 fit_coef(5, 13) = 8.1835332761182517e-02_dp
5549 fit_coef(6, 13) = 8.1960790462737673e-02_dp
5550 fit_coef(7, 13) = 8.9017910412122984e-03_dp
5551 fit_coef(8, 13) = -5.2756529738479566e-02_dp
5552 fit_coef(9, 13) = -1.9132069822996558e-02_dp
5553 fit_coef(10, 13) = 2.2550262525116004e-02_dp
5554 fit_coef(11, 13) = -7.1174631455651191e-03_dp
5555 fit_coef(12, 13) = 2.6153386964695999e-03_dp
5556 fit_coef(0, 14) = 1.1310131998968936e-02_dp
5557 fit_coef(1, 14) = 3.0381882917892972e-02_dp
5558 fit_coef(2, 14) = 3.9735561262063152e-02_dp
5559 fit_coef(3, 14) = 2.9276417146478988e-02_dp
5560 fit_coef(4, 14) = 8.9698683531803033e-03_dp
5561 fit_coef(5, 14) = -4.1668138620200067e-03_dp
5562 fit_coef(6, 14) = -4.8597312635549313e-03_dp
5563 fit_coef(7, 14) = -4.6021605223065968e-04_dp
5564 fit_coef(8, 14) = 1.1885176206365188e-03_dp
5565 fit_coef(9, 14) = 8.0548775761279056e-04_dp
5566 fit_coef(10, 14) = -1.0849907036440899e-03_dp
5567 fit_coef(11, 14) = 5.4194768198807949e-04_dp
5568 fit_coef(12, 14) = -1.2054873767366686e-04_dp
5569 fit_coef(0, 15) = 2.7754333434518740e-02_dp
5570 fit_coef(1, 15) = 7.2425221320615574e-02_dp
5571 fit_coef(2, 15) = 9.3171796368255483e-02_dp
5572 fit_coef(3, 15) = 6.7635165400501615e-02_dp
5573 fit_coef(4, 15) = 2.0195124261742557e-02_dp
5574 fit_coef(5, 15) = -9.8067712377566344e-03_dp
5575 fit_coef(6, 15) = -1.1030330619304156e-02_dp
5576 fit_coef(7, 15) = -9.1656688079229311e-04_dp
5577 fit_coef(8, 15) = 2.7689224656143080e-03_dp
5578 fit_coef(9, 15) = 1.7173968423888279e-03_dp
5579 fit_coef(10, 15) = -2.3913024611684291e-03_dp
5580 fit_coef(11, 15) = 1.1924633353927081e-03_dp
5581 fit_coef(12, 15) = -2.6453134445543388e-04_dp
5582 fit_coef(0, 16) = 4.8205145888088087e-02_dp
5583 fit_coef(1, 16) = 1.1851851999761799e-01_dp
5584 fit_coef(2, 16) = 1.4800321928791688e-01_dp
5585 fit_coef(3, 16) = 1.0475875377187537e-01_dp
5586 fit_coef(4, 16) = 2.9891263684815553e-02_dp
5587 fit_coef(5, 16) = -1.5617974138582616e-02_dp
5588 fit_coef(6, 16) = -1.6518323399901058e-02_dp
5589 fit_coef(7, 16) = -1.0386542240169942e-03_dp
5590 fit_coef(8, 16) = 4.3031804541452875e-03_dp
5591 fit_coef(9, 16) = 2.3296942214223468e-03_dp
5592 fit_coef(10, 16) = -3.4336179918521620e-03_dp
5593 fit_coef(11, 16) = 1.7042723642156064e-03_dp
5594 fit_coef(12, 16) = -3.7515429160435323e-04_dp
5595 fit_coef(0, 17) = 7.6637000090091376e-02_dp
5596 fit_coef(1, 17) = 1.7073623076407599e-01_dp
5597 fit_coef(2, 17) = 2.0360358978335744e-01_dp
5598 fit_coef(3, 17) = 1.3981725357818653e-01_dp
5599 fit_coef(4, 17) = 3.7911755072739847e-02_dp
5600 fit_coef(5, 17) = -2.1730826974108042e-02_dp
5601 fit_coef(6, 17) = -2.1165853445559209e-02_dp
5602 fit_coef(7, 17) = -4.3396413995129904e-04_dp
5603 fit_coef(8, 17) = 5.9819715180725796e-03_dp
5604 fit_coef(9, 17) = 1.7458780018996711e-03_dp
5605 fit_coef(10, 17) = -3.3770780241614367e-03_dp
5606 fit_coef(11, 17) = 1.6967821161902551e-03_dp
5607 fit_coef(12, 17) = -3.7810404338462888e-04_dp
5608 fit_coef(0, 18) = 1.1941431468383547e-01_dp
5609 fit_coef(1, 18) = 2.3176044822900177e-01_dp
5610 fit_coef(2, 18) = 2.5706191693734187e-01_dp
5611 fit_coef(3, 18) = 1.7029046402780762e-01_dp
5612 fit_coef(4, 18) = 4.6762674262981342e-02_dp
5613 fit_coef(5, 18) = -2.6181781674092602e-02_dp
5614 fit_coef(6, 18) = -2.7357912314188080e-02_dp
5615 fit_coef(7, 18) = -1.4374470171699591e-03_dp
5616 fit_coef(8, 18) = 1.2160163836047608e-02_dp
5617 fit_coef(9, 18) = 7.2851082934719002e-04_dp
5618 fit_coef(10, 18) = -7.7359567257111982e-03_dp
5619 fit_coef(11, 18) = 5.4157372236747318e-03_dp
5620 fit_coef(12, 18) = -1.3750847828525607e-03_dp
5621 fit_coef(0, 19) = 1.8596241285720252e-01_dp
5622 fit_coef(1, 19) = 3.0553364801134103e-01_dp
5623 fit_coef(2, 19) = 3.0496827359436179e-01_dp
5624 fit_coef(3, 19) = 1.8871536236922606e-01_dp
5625 fit_coef(4, 19) = 5.6375245286351912e-02_dp
5626 fit_coef(5, 19) = -1.8700350814395448e-02_dp
5627 fit_coef(6, 19) = -3.4527217392530681e-02_dp
5628 fit_coef(7, 19) = -6.3872694617221477e-05_dp
5629 fit_coef(8, 19) = -2.2205235124562510e-02_dp
5630 fit_coef(9, 19) = 7.0816767471594697e-02_dp
5631 fit_coef(10, 19) = -6.6120085860146768e-02_dp
5632 fit_coef(11, 19) = 2.8289249488746906e-02_dp
5633 fit_coef(12, 19) = -4.7843132337791906e-03_dp
5634 fit_coef(0, 20) = 2.8971434006808466e-01_dp
5635 fit_coef(1, 20) = 3.9569789839598735e-01_dp
5636 fit_coef(2, 20) = 3.4670622356516184e-01_dp
5637 fit_coef(3, 20) = 1.8876868004229172e-01_dp
5638 fit_coef(4, 20) = 5.7788519919382296e-02_dp
5639 fit_coef(5, 20) = 5.4887363554269302e-05_dp
5640 fit_coef(6, 20) = -1.7484482268241279e-02_dp
5641 fit_coef(7, 20) = -2.3812061294207602e-02_dp
5642 fit_coef(8, 20) = 3.6673498428854141e-03_dp
5643 fit_coef(9, 20) = -3.6033615474019322e-02_dp
5644 fit_coef(10, 20) = 9.9463288944652603e-02_dp
5645 fit_coef(11, 20) = -7.9311225375931868e-02_dp
5646 fit_coef(12, 20) = 2.1453780314514743e-02_dp
5647 fit_coef(0, 21) = 4.5021808525283785e-01_dp
5648 fit_coef(1, 21) = 5.0277275639459118e-01_dp
5649 fit_coef(2, 21) = 3.8272861573261618e-01_dp
5650 fit_coef(3, 21) = 1.7235807446302881e-01_dp
5651 fit_coef(4, 21) = 4.6572363862520262e-02_dp
5652 fit_coef(5, 21) = 1.5881707525432769e-02_dp
5653 fit_coef(6, 21) = 2.2025322210179048e-02_dp
5654 fit_coef(7, 21) = -6.2308984089511119e-02_dp
5655 fit_coef(8, 21) = 1.0309535046393066e-01_dp
5656 fit_coef(9, 21) = -2.2967091111578883e-01_dp
5657 fit_coef(10, 21) = 2.4313367642185343e-01_dp
5658 fit_coef(11, 21) = -1.1137814444194188e-01_dp
5659 fit_coef(12, 21) = 1.7887958008893388e-02_dp
5660 fit_coef(0, 22) = 6.9710873795862005e-01_dp
5661 fit_coef(1, 22) = 6.2256041357045133e-01_dp
5662 fit_coef(2, 22) = 4.1216050290755374e-01_dp
5663 fit_coef(3, 22) = 1.4610725607133404e-01_dp
5664 fit_coef(4, 22) = 2.8009636014951746e-02_dp
5665 fit_coef(5, 22) = 2.9171197185645873e-02_dp
5666 fit_coef(6, 22) = 3.0389459142154723e-02_dp
5667 fit_coef(7, 22) = 1.2605729292193118e-02_dp
5668 fit_coef(8, 22) = -6.0485512980266130e-02_dp
5669 fit_coef(9, 22) = 7.0433726753735382e-02_dp
5670 fit_coef(10, 22) = -1.3375453829923470e-01_dp
5671 fit_coef(11, 22) = 1.2456403150558767e-01_dp
5672 fit_coef(12, 22) = -3.8728626230412060e-02_dp
5673 fit_coef(0, 23) = 1.0779765313876117e+00_dp
5674 fit_coef(1, 23) = 7.4609279169328480e-01_dp
5675 fit_coef(2, 23) = 4.3439321318574559e-01_dp
5676 fit_coef(3, 23) = 1.1738611843507005e-01_dp
5677 fit_coef(4, 23) = 1.0530309563700853e-02_dp
5678 fit_coef(5, 23) = 3.6897191893439256e-02_dp
5679 fit_coef(6, 23) = 3.4044088146621569e-02_dp
5680 fit_coef(7, 23) = 5.5410057699209495e-02_dp
5681 fit_coef(8, 23) = -1.2792045350588788e-01_dp
5682 fit_coef(9, 23) = 1.8262592506787398e-01_dp
5683 fit_coef(10, 23) = -2.1867054150540904e-01_dp
5684 fit_coef(11, 23) = 1.2980623399937813e-01_dp
5685 fit_coef(12, 23) = -2.7516040284682932e-02_dp
5686 fit_coef(0, 24) = 1.6785411350231978e+00_dp
5687 fit_coef(1, 24) = 8.6201990862233702e-01_dp
5688 fit_coef(2, 24) = 4.5273971353495590e-01_dp
5689 fit_coef(3, 24) = 9.3905664009676981e-02_dp
5690 fit_coef(4, 24) = -1.4517367291959843e-03_dp
5691 fit_coef(5, 24) = 3.8726538172099936e-02_dp
5692 fit_coef(6, 24) = 4.7579808176484301e-02_dp
5693 fit_coef(7, 24) = 2.3323849168230236e-02_dp
5694 fit_coef(8, 24) = -2.2238667006060801e-02_dp
5695 fit_coef(9, 24) = 8.3019689769436942e-03_dp
5696 fit_coef(10, 24) = -8.7391379765216180e-04_dp
5697 fit_coef(11, 24) = -2.1892298772107112e-02_dp
5698 fit_coef(12, 24) = 1.2948019279576950e-02_dp
5699 fit_coef(0, 25) = 2.6946568599370697e+00_dp
5700 fit_coef(1, 25) = 9.6576339244071330e-01_dp
5701 fit_coef(2, 25) = 4.7873508727946390e-01_dp
5702 fit_coef(3, 25) = 8.3762183149891992e-02_dp
5703 fit_coef(4, 25) = -8.2300319329272915e-03_dp
5704 fit_coef(5, 25) = 3.8469555958125901e-02_dp
5705 fit_coef(6, 25) = 5.3859007054592130e-02_dp
5706 fit_coef(7, 25) = 3.4301845918780008e-03_dp
5707 fit_coef(8, 25) = 3.4783546363171880e-02_dp
5708 fit_coef(9, 25) = -7.1844324491727757e-02_dp
5709 fit_coef(10, 25) = 8.9320542108673212e-02_dp
5710 fit_coef(11, 25) = -6.8466536447383028e-02_dp
5711 fit_coef(12, 25) = 1.9631577406052880e-02_dp
5712 fit_coef(0, 26) = 4.8659851910149703e+00_dp
5713 fit_coef(1, 26) = 1.1016222687932846e+00_dp
5714 fit_coef(2, 26) = 5.5082141072412572e-01_dp
5715 fit_coef(3, 26) = 9.9924055011494373e-02_dp
5716 fit_coef(4, 26) = -1.1242348443643024e-02_dp
5717 fit_coef(5, 26) = 3.7638525869382183e-02_dp
5718 fit_coef(6, 26) = 5.4458588514965843e-02_dp
5719 fit_coef(7, 26) = 1.1975138580003340e-02_dp
5720 fit_coef(8, 26) = 1.9387184067595927e-02_dp
5721 fit_coef(9, 26) = -3.2120751380981701e-02_dp
5722 fit_coef(10, 26) = 4.5502034364108004e-02_dp
5723 fit_coef(11, 26) = -3.0627416778773675e-02_dp
5724 fit_coef(12, 26) = 6.0865046197086294e-03_dp
5725
5726 END SUBROUTINE get_fit_coef_k13_sh
5727
5728! **************************************************************************************************
5729!> \brief ...
5730!> \param k ...
5731!> \param fit_coef ...
5732!> \param L_b ...
5733!> \param U_b ...
5734! **************************************************************************************************
5735 SUBROUTINE get_fit_coef_k13_mi(k, fit_coef, L_b, U_b)
5736 INTEGER :: k
5737 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
5738 REAL(kind=dp) :: l_b, u_b
5739
5740 l_b = 1.0000000000000000e+02_dp
5741 u_b = 1.1693251854461644e+03_dp
5742 fit_coef(0, 1) = 5.9571247085285603e-04_dp
5743 fit_coef(1, 1) = 1.7200118003776515e-03_dp
5744 fit_coef(2, 1) = 2.4894492611009689e-03_dp
5745 fit_coef(3, 1) = 2.1537471215151561e-03_dp
5746 fit_coef(4, 1) = 1.0174139924949508e-03_dp
5747 fit_coef(5, 1) = 4.6357691642043961e-05_dp
5748 fit_coef(6, 1) = -2.2922455590426252e-04_dp
5749 fit_coef(7, 1) = -4.5027856096292727e-05_dp
5750 fit_coef(8, 1) = 3.2368140787386204e-05_dp
5751 fit_coef(9, 1) = 7.8015031488317424e-05_dp
5752 fit_coef(10, 1) = -9.1410611282450338e-05_dp
5753 fit_coef(11, 1) = 4.0455359969903499e-05_dp
5754 fit_coef(12, 1) = -6.8554946194150892e-06_dp
5755 fit_coef(0, 2) = 3.3749978736579119e-03_dp
5756 fit_coef(1, 2) = 9.3865303071796868e-03_dp
5757 fit_coef(2, 2) = 1.3370050944546014e-02_dp
5758 fit_coef(3, 2) = 1.1408817834538747e-02_dp
5759 fit_coef(4, 2) = 5.3018599368705056e-03_dp
5760 fit_coef(5, 2) = 1.9895208136664570e-04_dp
5761 fit_coef(6, 2) = -1.2013959538153690e-03_dp
5762 fit_coef(7, 2) = -2.1522942347644450e-04_dp
5763 fit_coef(8, 2) = 1.6227159652722640e-04_dp
5764 fit_coef(9, 2) = 4.0937759938008522e-04_dp
5765 fit_coef(10, 2) = -4.8203337203911678e-04_dp
5766 fit_coef(11, 2) = 2.1503525076000546e-04_dp
5767 fit_coef(12, 2) = -3.6767133200206401e-05_dp
5768 fit_coef(0, 3) = 9.5695858129820257e-03_dp
5769 fit_coef(1, 3) = 2.4594246941685691e-02_dp
5770 fit_coef(2, 3) = 3.3909912181295111e-02_dp
5771 fit_coef(3, 3) = 2.8275272197259928e-02_dp
5772 fit_coef(4, 3) = 1.2793089131376839e-02_dp
5773 fit_coef(5, 3) = 2.8137691410500335e-04_dp
5774 fit_coef(6, 3) = -2.9348509030753785e-03_dp
5775 fit_coef(7, 3) = -4.3154495298106305e-04_dp
5776 fit_coef(8, 3) = 4.1400164345487900e-04_dp
5777 fit_coef(9, 3) = 9.1497967805617892e-04_dp
5778 fit_coef(10, 3) = -1.1243533488522371e-03_dp
5779 fit_coef(11, 3) = 5.1331094158916764e-04_dp
5780 fit_coef(12, 3) = -8.9543140456745687e-05_dp
5781 fit_coef(0, 4) = 2.2102062421629307e-02_dp
5782 fit_coef(1, 4) = 5.0388239734107464e-02_dp
5783 fit_coef(2, 4) = 6.5597474400466413e-02_dp
5784 fit_coef(3, 4) = 5.2593837264420067e-02_dp
5785 fit_coef(4, 4) = 2.3138245186338603e-02_dp
5786 fit_coef(5, 4) = 3.5363359503456162e-04_dp
5787 fit_coef(6, 4) = -5.4308630565349861e-03_dp
5788 fit_coef(7, 4) = -7.1690573641355025e-04_dp
5789 fit_coef(8, 4) = 4.5525716627285349e-04_dp
5790 fit_coef(9, 4) = 2.3355643424946655e-03_dp
5791 fit_coef(10, 4) = -2.6681070004726240e-03_dp
5792 fit_coef(11, 4) = 1.2090694842315898e-03_dp
5793 fit_coef(12, 4) = -2.1156836663214308e-04_dp
5794 fit_coef(0, 5) = 4.6953984288651295e-02_dp
5795 fit_coef(1, 5) = 9.2513506061771736e-02_dp
5796 fit_coef(2, 5) = 1.1114827337176617e-01_dp
5797 fit_coef(3, 5) = 8.3233678613110429e-02_dp
5798 fit_coef(4, 5) = 3.4608571546062436e-02_dp
5799 fit_coef(5, 5) = 6.2863207858912962e-04_dp
5800 fit_coef(6, 5) = -7.4478035609513958e-03_dp
5801 fit_coef(7, 5) = -1.1406622073555459e-03_dp
5802 fit_coef(8, 5) = 6.1142108219932139e-05_dp
5803 fit_coef(9, 5) = 2.8713082420645268e-03_dp
5804 fit_coef(10, 5) = -2.3152373063920332e-03_dp
5805 fit_coef(11, 5) = 6.9898905114079072e-04_dp
5806 fit_coef(12, 5) = -6.0162701114697736e-05_dp
5807 fit_coef(0, 6) = 9.5182645385563286e-02_dp
5808 fit_coef(1, 6) = 1.5985393660033628e-01_dp
5809 fit_coef(2, 6) = 1.7511073340807867e-01_dp
5810 fit_coef(3, 6) = 1.1909736973485001e-01_dp
5811 fit_coef(4, 6) = 4.4162492084356325e-02_dp
5812 fit_coef(5, 6) = -1.7481218668970254e-04_dp
5813 fit_coef(6, 6) = -7.8382486311276943e-03_dp
5814 fit_coef(7, 6) = -6.5498122365884547e-04_dp
5815 fit_coef(8, 6) = 7.2110889562901611e-05_dp
5816 fit_coef(9, 6) = 9.5978488993906188e-04_dp
5817 fit_coef(10, 6) = -6.1518613580109974e-04_dp
5818 fit_coef(11, 6) = 2.4316501239763139e-04_dp
5819 fit_coef(12, 6) = -5.3529912569972472e-05_dp
5820 fit_coef(0, 7) = 1.8645165311079259e-01_dp
5821 fit_coef(1, 7) = 2.6436160380537138e-01_dp
5822 fit_coef(2, 7) = 2.6302083875944771e-01_dp
5823 fit_coef(3, 7) = 1.5910774510414938e-01_dp
5824 fit_coef(4, 7) = 4.9073653325355709e-02_dp
5825 fit_coef(5, 7) = -3.2795187276607025e-03_dp
5826 fit_coef(6, 7) = -6.8810055747994857e-03_dp
5827 fit_coef(7, 7) = 2.0021507448155459e-03_dp
5828 fit_coef(8, 7) = -1.4027814134567758e-03_dp
5829 fit_coef(9, 7) = 6.9098043550271603e-04_dp
5830 fit_coef(10, 7) = -1.0637655745511332e-03_dp
5831 fit_coef(11, 7) = 9.2536193146607883e-04_dp
5832 fit_coef(12, 7) = -2.4940185896462312e-04_dp
5833 fit_coef(0, 8) = 3.5501666895531042e-01_dp
5834 fit_coef(1, 8) = 4.2062390191703830e-01_dp
5835 fit_coef(2, 8) = 3.8014762337012359e-01_dp
5836 fit_coef(3, 8) = 2.0109387264368472e-01_dp
5837 fit_coef(4, 8) = 4.6954945508850141e-02_dp
5838 fit_coef(5, 8) = -8.7244019551801829e-03_dp
5839 fit_coef(6, 8) = -4.0487338235444901e-03_dp
5840 fit_coef(7, 8) = 5.9512521905139611e-03_dp
5841 fit_coef(8, 8) = -3.7498978634030503e-03_dp
5842 fit_coef(9, 8) = 2.1099763933573197e-04_dp
5843 fit_coef(10, 8) = -4.3311783252141623e-04_dp
5844 fit_coef(11, 8) = 7.0199947379022344e-04_dp
5845 fit_coef(12, 8) = -2.0527979943177016e-04_dp
5846 fit_coef(0, 9) = 6.5960294052628099e-01_dp
5847 fit_coef(1, 9) = 6.4434244249393713e-01_dp
5848 fit_coef(2, 9) = 5.3018928176744540e-01_dp
5849 fit_coef(3, 9) = 2.4130639214143917e-01_dp
5850 fit_coef(4, 9) = 3.5653141239669908e-02_dp
5851 fit_coef(5, 9) = -1.5407439897727408e-02_dp
5852 fit_coef(6, 9) = 1.6157905391085510e-03_dp
5853 fit_coef(7, 9) = 1.0708866394811738e-02_dp
5854 fit_coef(8, 9) = -8.0705877921707705e-03_dp
5855 fit_coef(9, 9) = 1.9585451901869654e-04_dp
5856 fit_coef(10, 9) = 1.1606320581042068e-03_dp
5857 fit_coef(11, 9) = -2.3231700639256246e-04_dp
5858 fit_coef(12, 9) = -1.9173218066136157e-05_dp
5859 fit_coef(0, 10) = 1.1999125471871359e+00_dp
5860 fit_coef(1, 10) = 9.4887754086202536e-01_dp
5861 fit_coef(2, 10) = 7.1392148306788861e-01_dp
5862 fit_coef(3, 10) = 2.7502418030970321e-01_dp
5863 fit_coef(4, 10) = 1.3864789499781904e-02_dp
5864 fit_coef(5, 10) = -2.1424737017769674e-02_dp
5865 fit_coef(6, 10) = 1.0990606216211212e-02_dp
5866 fit_coef(7, 10) = 1.5754376025894169e-02_dp
5867 fit_coef(8, 10) = -1.5720284237712618e-02_dp
5868 fit_coef(9, 10) = 2.0987333422688541e-03_dp
5869 fit_coef(10, 10) = 2.9263737858274525e-03_dp
5870 fit_coef(11, 10) = -1.6119558060080142e-03_dp
5871 fit_coef(12, 10) = 2.7700177106853099e-04_dp
5872 fit_coef(0, 11) = 2.1464589921277430e+00_dp
5873 fit_coef(1, 11) = 1.3398008082135153e+00_dp
5874 fit_coef(2, 11) = 9.2855004111736639e-01_dp
5875 fit_coef(3, 11) = 2.9850369229739804e-01_dp
5876 fit_coef(4, 11) = -1.8024501913163959e-02_dp
5877 fit_coef(5, 11) = -2.4792994220460485e-02_dp
5878 fit_coef(6, 11) = 2.4309270311746085e-02_dp
5879 fit_coef(7, 11) = 2.0376050200980579e-02_dp
5880 fit_coef(8, 11) = -2.7413278630826550e-02_dp
5881 fit_coef(9, 11) = 7.1577405110793838e-03_dp
5882 fit_coef(10, 11) = 4.1376588773677659e-03_dp
5883 fit_coef(11, 11) = -3.2837333351403799e-03_dp
5884 fit_coef(12, 11) = 6.9015069153665373e-04_dp
5885 fit_coef(0, 12) = 3.8079327315676679e+00_dp
5886 fit_coef(1, 12) = 1.8102136985271529e+00_dp
5887 fit_coef(2, 12) = 1.1693768610866579e+00_dp
5888 fit_coef(3, 12) = 3.1192154530912264e-01_dp
5889 fit_coef(4, 12) = -5.7801420614916721e-02_dp
5890 fit_coef(5, 12) = -2.4725077881519446e-02_dp
5891 fit_coef(6, 12) = 4.0887008920651363e-02_dp
5892 fit_coef(7, 12) = 2.4169421898620948e-02_dp
5893 fit_coef(8, 12) = -4.2916907464272722e-02_dp
5894 fit_coef(9, 12) = 1.5836520381657740e-02_dp
5895 fit_coef(10, 12) = 4.2153911444231572e-03_dp
5896 fit_coef(11, 12) = -5.0069163439141369e-03_dp
5897 fit_coef(12, 12) = 1.1850222139382642e-03_dp
5898 fit_coef(0, 13) = 6.8767988424609685e+00_dp
5899 fit_coef(1, 13) = 2.3477041904049458e+00_dp
5900 fit_coef(2, 13) = 1.4371470680965179e+00_dp
5901 fit_coef(3, 13) = 3.2177727032276354e-01_dp
5902 fit_coef(4, 13) = -1.0285806633893342e-01_dp
5903 fit_coef(5, 13) = -2.2677975661685234e-02_dp
5904 fit_coef(6, 13) = 5.9703880119426990e-02_dp
5905 fit_coef(7, 13) = 2.7586476735575311e-02_dp
5906 fit_coef(8, 13) = -6.1182232779440265e-02_dp
5907 fit_coef(9, 13) = 2.7103387955214536e-02_dp
5908 fit_coef(10, 13) = 3.4260870398828006e-03_dp
5909 fit_coef(11, 13) = -6.7215676437135359e-03_dp
5910 fit_coef(12, 13) = 1.7275038459318248e-03_dp
5911 fit_coef(0, 14) = 1.5536180830079045e-03_dp
5912 fit_coef(1, 14) = 4.4506140115349617e-03_dp
5913 fit_coef(2, 14) = 6.4178048727277781e-03_dp
5914 fit_coef(3, 14) = 5.5342602456232345e-03_dp
5915 fit_coef(4, 14) = 2.6046871795835742e-03_dp
5916 fit_coef(5, 14) = 1.1368344431687511e-04_dp
5917 fit_coef(6, 14) = -5.8781627121643181e-04_dp
5918 fit_coef(7, 14) = -1.1285527376227048e-04_dp
5919 fit_coef(8, 14) = 8.2159134979200638e-05_dp
5920 fit_coef(9, 14) = 1.9994801604583968e-04_dp
5921 fit_coef(10, 14) = -2.3463016476463693e-04_dp
5922 fit_coef(11, 14) = 1.0405614708917490e-04_dp
5923 fit_coef(12, 14) = -1.7674175132111243e-05_dp
5924 fit_coef(0, 15) = 4.1834098874360473e-03_dp
5925 fit_coef(1, 15) = 1.1102877368401057e-02_dp
5926 fit_coef(2, 15) = 1.5508145773336595e-02_dp
5927 fit_coef(3, 15) = 1.3020239177249622e-02_dp
5928 fit_coef(4, 15) = 5.9265544529938010e-03_dp
5929 fit_coef(5, 15) = 1.6028851543557779e-04_dp
5930 fit_coef(6, 15) = -1.3496676957738614e-03_dp
5931 fit_coef(7, 15) = -2.1194238008936958e-04_dp
5932 fit_coef(8, 15) = 1.6858962619466225e-04_dp
5933 fit_coef(9, 15) = 4.6274241631720910e-04_dp
5934 fit_coef(10, 15) = -5.4510567016319549e-04_dp
5935 fit_coef(11, 15) = 2.4471543070832161e-04_dp
5936 fit_coef(12, 15) = -4.2146500465828684e-05_dp
5937 fit_coef(0, 16) = 8.6718931437848486e-03_dp
5938 fit_coef(1, 16) = 1.9798273846496010e-02_dp
5939 fit_coef(2, 16) = 2.5805909237192746e-02_dp
5940 fit_coef(3, 16) = 2.0709762497138948e-02_dp
5941 fit_coef(4, 16) = 9.0267828044289580e-03_dp
5942 fit_coef(5, 16) = -8.2030242003155534e-06_dp
5943 fit_coef(6, 16) = -2.1466923201882496e-03_dp
5944 fit_coef(7, 16) = -2.3839418666152536e-04_dp
5945 fit_coef(8, 16) = 3.9713557969496511e-04_dp
5946 fit_coef(9, 16) = 5.4418611978137037e-04_dp
5947 fit_coef(10, 16) = -7.9800986012929951e-04_dp
5948 fit_coef(11, 16) = 3.9897082718071900e-04_dp
5949 fit_coef(12, 16) = -7.5484271874357470e-05_dp
5950 fit_coef(0, 17) = 1.7358581030722377e-02_dp
5951 fit_coef(1, 17) = 3.2741569114568887e-02_dp
5952 fit_coef(2, 17) = 3.8005765925330802e-02_dp
5953 fit_coef(3, 17) = 2.7705507640870534e-02_dp
5954 fit_coef(4, 17) = 1.1375410029678385e-02_dp
5955 fit_coef(5, 17) = 2.5826247104955189e-04_dp
5956 fit_coef(6, 17) = -2.6224716007508839e-03_dp
5957 fit_coef(7, 17) = -3.1373038771318260e-04_dp
5958 fit_coef(8, 17) = -6.4482138467522902e-04_dp
5959 fit_coef(9, 17) = 2.3188017066251647e-03_dp
5960 fit_coef(10, 17) = -1.8974564925171979e-03_dp
5961 fit_coef(11, 17) = 6.6385240884256846e-04_dp
5962 fit_coef(12, 17) = -8.2217281900096977e-05_dp
5963 fit_coef(0, 18) = 3.4131291193668846e-02_dp
5964 fit_coef(1, 18) = 5.2991311639389929e-02_dp
5965 fit_coef(2, 18) = 5.3873497163302024e-02_dp
5966 fit_coef(3, 18) = 3.3395673340616244e-02_dp
5967 fit_coef(4, 18) = 1.1018355439494237e-02_dp
5968 fit_coef(5, 18) = 1.9602178372730269e-05_dp
5969 fit_coef(6, 18) = -1.1688901927899766e-03_dp
5970 fit_coef(7, 18) = -4.0116811266019766e-04_dp
5971 fit_coef(8, 18) = 3.2072961899086736e-04_dp
5972 fit_coef(9, 18) = -1.9201145783602021e-03_dp
5973 fit_coef(10, 18) = 2.5996845486259772e-03_dp
5974 fit_coef(11, 18) = -1.3613851440031023e-03_dp
5975 fit_coef(12, 18) = 2.6284577266591210e-04_dp
5976 fit_coef(0, 19) = 6.5506726065987148e-02_dp
5977 fit_coef(1, 19) = 8.3686618695792928e-02_dp
5978 fit_coef(2, 19) = 7.4994836901648418e-02_dp
5979 fit_coef(3, 19) = 3.8175402517462660e-02_dp
5980 fit_coef(4, 19) = 7.6429339054575234e-03_dp
5981 fit_coef(5, 19) = -1.8419060705385749e-03_dp
5982 fit_coef(6, 19) = 2.7308690208177329e-04_dp
5983 fit_coef(7, 19) = 1.6627660280614655e-03_dp
5984 fit_coef(8, 19) = -8.3731649392740858e-04_dp
5985 fit_coef(9, 19) = -8.4805699699116934e-04_dp
5986 fit_coef(10, 19) = 1.7342012245697370e-05_dp
5987 fit_coef(11, 19) = 6.1766339244338580e-04_dp
5988 fit_coef(12, 19) = -2.3138634064074576e-04_dp
5989 fit_coef(0, 20) = 1.2258176989295384e-01_dp
5990 fit_coef(1, 20) = 1.2778305763600906e-01_dp
5991 fit_coef(2, 20) = 1.0172491446523661e-01_dp
5992 fit_coef(3, 20) = 4.1491871675887949e-02_dp
5993 fit_coef(4, 20) = 1.7844232528150912e-03_dp
5994 fit_coef(5, 20) = -4.3718842072007049e-03_dp
5995 fit_coef(6, 20) = 1.7506621259053797e-03_dp
5996 fit_coef(7, 20) = 3.4297516381714774e-03_dp
5997 fit_coef(8, 20) = -1.8677852767092760e-03_dp
5998 fit_coef(9, 20) = -2.5672855213340693e-04_dp
5999 fit_coef(10, 20) = -1.3122155242537307e-04_dp
6000 fit_coef(11, 20) = 3.0827036993633989e-04_dp
6001 fit_coef(12, 20) = -7.5397667904590979e-05_dp
6002 fit_coef(0, 21) = 2.2407341908539469e-01_dp
6003 fit_coef(1, 21) = 1.8741517537369246e-01_dp
6004 fit_coef(2, 21) = 1.3316931550316194e-01_dp
6005 fit_coef(3, 21) = 4.1846304068269342e-02_dp
6006 fit_coef(4, 21) = -6.3923892927403468e-03_dp
6007 fit_coef(5, 21) = -6.3290486135616480e-03_dp
6008 fit_coef(6, 21) = 4.0785090266698392e-03_dp
6009 fit_coef(7, 21) = 4.4129649982871406e-03_dp
6010 fit_coef(8, 21) = -3.0701955863932482e-03_dp
6011 fit_coef(9, 21) = -5.0155854005366068e-04_dp
6012 fit_coef(10, 21) = 1.2677059967610719e-03_dp
6013 fit_coef(11, 21) = -6.5728561506278344e-04_dp
6014 fit_coef(12, 21) = 1.3236733395452350e-04_dp
6015 fit_coef(0, 22) = 4.0125849549125764e-01_dp
6016 fit_coef(1, 22) = 2.6234441978160788e-01_dp
6017 fit_coef(2, 22) = 1.6705808644309805e-01_dp
6018 fit_coef(3, 22) = 3.7759081921101723e-02_dp
6019 fit_coef(4, 22) = -1.6444808051945672e-02_dp
6020 fit_coef(5, 22) = -6.7086735514358875e-03_dp
6021 fit_coef(6, 22) = 7.4079840573032128e-03_dp
6022 fit_coef(7, 22) = 5.0153636055701280e-03_dp
6023 fit_coef(8, 22) = -5.8034207254719751e-03_dp
6024 fit_coef(9, 22) = 7.1487044000835261e-04_dp
6025 fit_coef(10, 22) = 1.7935699565438628e-03_dp
6026 fit_coef(11, 22) = -1.1756448775298205e-03_dp
6027 fit_coef(12, 22) = 2.3788942753303003e-04_dp
6028 fit_coef(0, 23) = 7.0683650900241923e-01_dp
6029 fit_coef(1, 23) = 3.4775269742355053e-01_dp
6030 fit_coef(2, 23) = 1.9991809868316918e-01_dp
6031 fit_coef(3, 23) = 2.8998979248009617e-02_dp
6032 fit_coef(4, 23) = -2.7072247921548855e-02_dp
6033 fit_coef(5, 23) = -4.9720416004814215e-03_dp
6034 fit_coef(6, 23) = 1.1386666180451437e-02_dp
6035 fit_coef(7, 23) = 4.9476484479521700e-03_dp
6036 fit_coef(8, 23) = -9.6210622467224182e-03_dp
6037 fit_coef(9, 23) = 3.3069098482828903e-03_dp
6038 fit_coef(10, 23) = 1.6164601539057236e-03_dp
6039 fit_coef(11, 23) = -1.5619532900798120e-03_dp
6040 fit_coef(12, 23) = 3.5694695591620168e-04_dp
6041 fit_coef(0, 24) = 1.2349305749929025e+00_dp
6042 fit_coef(1, 24) = 4.3289986648386525e-01_dp
6043 fit_coef(2, 24) = 2.2845857393019400e-01_dp
6044 fit_coef(3, 24) = 1.7946385370009432e-02_dp
6045 fit_coef(4, 24) = -3.6314829777361717e-02_dp
6046 fit_coef(5, 24) = -1.6120574652244938e-03_dp
6047 fit_coef(6, 24) = 1.5127251697612880e-02_dp
6048 fit_coef(7, 24) = 4.2179377246450477e-03_dp
6049 fit_coef(8, 24) = -1.3727271503534512e-02_dp
6050 fit_coef(9, 24) = 6.9063396049124318e-03_dp
6051 fit_coef(10, 24) = 6.9366312151399967e-04_dp
6052 fit_coef(11, 24) = -1.7353304432909385e-03_dp
6053 fit_coef(12, 24) = 4.6246138244891298e-04_dp
6054 fit_coef(0, 25) = 2.1884594395954422e+00_dp
6055 fit_coef(1, 25) = 5.0512490214011563e-01_dp
6056 fit_coef(2, 25) = 2.5294331999124109e-01_dp
6057 fit_coef(3, 25) = 9.9552977533875799e-03_dp
6058 fit_coef(4, 25) = -4.2741646955111831e-02_dp
6059 fit_coef(5, 25) = 1.4996753556095149e-03_dp
6060 fit_coef(6, 25) = 1.7828818970966834e-02_dp
6061 fit_coef(7, 25) = 3.4400974982679682e-03_dp
6062 fit_coef(8, 25) = -1.7077573476609768e-02_dp
6063 fit_coef(9, 25) = 1.0264977475261727e-02_dp
6064 fit_coef(10, 25) = -4.9655867540557698e-04_dp
6065 fit_coef(11, 25) = -1.6960953173867819e-03_dp
6066 fit_coef(12, 25) = 5.2021831684559222e-04_dp
6067 fit_coef(0, 26) = 4.2896812115374434e+00_dp
6068 fit_coef(1, 26) = 5.7441806238555526e-01_dp
6069 fit_coef(2, 26) = 2.8764315098250082e-01_dp
6070 fit_coef(3, 26) = 1.2205511996262715e-02_dp
6071 fit_coef(4, 26) = -4.7500863719757744e-02_dp
6072 fit_coef(5, 26) = 1.9853897004354611e-03_dp
6073 fit_coef(6, 26) = 1.9866889885557001e-02_dp
6074 fit_coef(7, 26) = 3.6718675673585712e-03_dp
6075 fit_coef(8, 26) = -1.9405833778650398e-02_dp
6076 fit_coef(9, 26) = 1.1968919361045174e-02_dp
6077 fit_coef(10, 26) = -8.6190027805330149e-04_dp
6078 fit_coef(11, 26) = -1.8010240017088701e-03_dp
6079 fit_coef(12, 26) = 5.7196032777695038e-04_dp
6080
6081 END SUBROUTINE get_fit_coef_k13_mi
6082
6083! **************************************************************************************************
6084!> \brief ...
6085!> \param k ...
6086!> \param fit_coef ...
6087!> \param L_b ...
6088!> \param U_b ...
6089! **************************************************************************************************
6090 SUBROUTINE get_fit_coef_k13_lo(k, fit_coef, L_b, U_b)
6091 INTEGER :: k
6092 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
6093 REAL(kind=dp) :: l_b, u_b
6094
6095 l_b = 1.0000000000000000e+02_dp
6096 u_b = 3.7370000000000000e+05_dp
6097 fit_coef(0, 1) = 1.0328373040080946e-05_dp
6098 fit_coef(1, 1) = 1.0231661765573473e-05_dp
6099 fit_coef(2, 1) = 1.4274421628573503e-03_dp
6100 fit_coef(3, 1) = -9.2218261005801595e-03_dp
6101 fit_coef(4, 1) = 7.9453452208337924e-02_dp
6102 fit_coef(5, 1) = -3.4395924855303062e-01_dp
6103 fit_coef(6, 1) = 1.0503011873064374e+00_dp
6104 fit_coef(7, 1) = -2.2107082564421301e+00_dp
6105 fit_coef(8, 1) = 3.1904625274566456e+00_dp
6106 fit_coef(9, 1) = -3.1005928635963018e+00_dp
6107 fit_coef(10, 1) = 1.9388301331438162e+00_dp
6108 fit_coef(11, 1) = -7.0437721043920587e-01_dp
6109 fit_coef(12, 1) = 1.1297211307192120e-01_dp
6110 fit_coef(0, 2) = 1.1370944761350369e-04_dp
6111 fit_coef(1, 2) = 6.5461398441333884e-05_dp
6112 fit_coef(2, 2) = 9.0857762128942112e-03_dp
6113 fit_coef(3, 2) = -6.1037659291954947e-02_dp
6114 fit_coef(4, 2) = 5.0701553071696137e-01_dp
6115 fit_coef(5, 2) = -2.2094585548616172e+00_dp
6116 fit_coef(6, 2) = 6.7357245459730972e+00_dp
6117 fit_coef(7, 2) = -1.4152000667009908e+01_dp
6118 fit_coef(8, 2) = 2.0402127724921442e+01_dp
6119 fit_coef(9, 2) = -1.9817215032938513e+01_dp
6120 fit_coef(10, 2) = 1.2389779868005123e+01_dp
6121 fit_coef(11, 2) = -4.5013495035293962e+00_dp
6122 fit_coef(12, 2) = 7.2205686510589684e-01_dp
6123 fit_coef(0, 3) = 6.0201360833921547e-04_dp
6124 fit_coef(1, 3) = 2.3713142412530957e-04_dp
6125 fit_coef(2, 3) = 3.2408075864146658e-02_dp
6126 fit_coef(3, 3) = -2.2633769436834197e-01_dp
6127 fit_coef(4, 3) = 1.7944183579800783e+00_dp
6128 fit_coef(5, 3) = -8.0322858690413170e+00_dp
6129 fit_coef(6, 3) = 2.4758947246186221e+01_dp
6130 fit_coef(7, 3) = -5.2297882977111676e+01_dp
6131 fit_coef(8, 3) = 7.5599300021495196e+01_dp
6132 fit_coef(9, 3) = -7.3529871053182731e+01_dp
6133 fit_coef(10, 3) = 4.5999098353208382e+01_dp
6134 fit_coef(11, 3) = -1.6715853539005085e+01_dp
6135 fit_coef(12, 3) = 2.6814682156594003e+00_dp
6136 fit_coef(0, 4) = 2.3239931463444295e-03_dp
6137 fit_coef(1, 4) = 6.7915483564538726e-04_dp
6138 fit_coef(2, 4) = 9.2065143976354222e-02_dp
6139 fit_coef(3, 4) = -6.5920735047309242e-01_dp
6140 fit_coef(4, 4) = 5.0701238208447936e+00_dp
6141 fit_coef(5, 4) = -2.3078149685475569e+01_dp
6142 fit_coef(6, 4) = 7.1252230915973797e+01_dp
6143 fit_coef(7, 4) = -1.5026332268406557e+02_dp
6144 fit_coef(8, 4) = 2.1682358395745959e+02_dp
6145 fit_coef(9, 4) = -2.1059821196596170e+02_dp
6146 fit_coef(10, 4) = 1.3162443597110655e+02_dp
6147 fit_coef(11, 4) = -4.7803836464227409e+01_dp
6148 fit_coef(12, 4) = 7.6658373170675951e+00_dp
6149 fit_coef(0, 5) = 7.4432405183934578e-03_dp
6150 fit_coef(1, 5) = 1.6828152409194407e-03_dp
6151 fit_coef(2, 5) = 2.2645498811467052e-01_dp
6152 fit_coef(3, 5) = -1.6470414947742027e+00_dp
6153 fit_coef(4, 5) = 1.2406213814972343e+01_dp
6154 fit_coef(5, 5) = -5.7052515747077990e+01_dp
6155 fit_coef(6, 5) = 1.7648148382559137e+02_dp
6156 fit_coef(7, 5) = -3.7241542082575245e+02_dp
6157 fit_coef(8, 5) = 5.3766501171349421e+02_dp
6158 fit_coef(9, 5) = -5.2248797832997366e+02_dp
6159 fit_coef(10, 5) = 3.2669873907570917e+02_dp
6160 fit_coef(11, 5) = -1.1869478309408113e+02_dp
6161 fit_coef(12, 5) = 1.9039603955629481e+01_dp
6162 fit_coef(0, 6) = 2.1001669881294191e-02_dp
6163 fit_coef(1, 6) = 3.7493611984017344e-03_dp
6164 fit_coef(2, 6) = 5.0174562015489310e-01_dp
6165 fit_coef(3, 6) = -3.6903350557230272e+00_dp
6166 fit_coef(4, 6) = 2.7380167524745204e+01_dp
6167 fit_coef(5, 6) = -1.2680883651700998e+02_dp
6168 fit_coef(6, 6) = 3.9315723208637161e+02_dp
6169 fit_coef(7, 6) = -8.3061013874245850e+02_dp
6170 fit_coef(8, 6) = 1.2000077154718190e+03_dp
6171 fit_coef(9, 6) = -1.1666285380811528e+03_dp
6172 fit_coef(10, 6) = 7.2965528810276930e+02_dp
6173 fit_coef(11, 6) = -2.6514064826477511e+02_dp
6174 fit_coef(12, 6) = 4.2535848707897181e+01_dp
6175 fit_coef(0, 7) = 5.3988578814712126e-02_dp
6176 fit_coef(1, 7) = 7.6787040162035062e-03_dp
6177 fit_coef(2, 7) = 1.0229613253807799e+00_dp
6178 fit_coef(3, 7) = -7.5874025191500545e+00_dp
6179 fit_coef(4, 7) = 5.5644821860203081e+01_dp
6180 fit_coef(5, 7) = -2.5903592714657515e+02_dp
6181 fit_coef(6, 7) = 8.0491520561775883e+02_dp
6182 fit_coef(7, 7) = -1.7025740847831944e+03_dp
6183 fit_coef(8, 7) = 2.4614597158125571e+03_dp
6184 fit_coef(9, 7) = -2.3939670515607563e+03_dp
6185 fit_coef(10, 7) = 1.4976634167179416e+03_dp
6186 fit_coef(11, 7) = -5.4431186678214578e+02_dp
6187 fit_coef(12, 7) = 8.7333538775326986e+01_dp
6188 fit_coef(0, 8) = 1.2913416270542125e-01_dp
6189 fit_coef(1, 8) = 1.4637308467888006e-02_dp
6190 fit_coef(2, 8) = 1.9427142860381650e+00_dp
6191 fit_coef(3, 8) = -1.4504186559531496e+01_dp
6192 fit_coef(4, 8) = 1.0539283356781200e+02_dp
6193 fit_coef(5, 8) = -4.9250973009160060e+02_dp
6194 fit_coef(6, 8) = 1.5335961739523964e+03_dp
6195 fit_coef(7, 8) = -3.2477036056116422e+03_dp
6196 fit_coef(8, 8) = 4.6984634605620395e+03_dp
6197 fit_coef(9, 8) = -4.5714722547915217e+03_dp
6198 fit_coef(10, 8) = 2.8606360597296798e+03_dp
6199 fit_coef(11, 8) = -1.0398487637572459e+03_dp
6200 fit_coef(12, 8) = 1.6686131315440755e+02_dp
6201 fit_coef(0, 9) = 2.9151438803227880e-01_dp
6202 fit_coef(1, 9) = 2.6141059594544370e-02_dp
6203 fit_coef(2, 9) = 3.4585779341218914e+00_dp
6204 fit_coef(3, 9) = -2.5957371800387559e+01_dp
6205 fit_coef(4, 9) = 1.8719902735916295e+02_dp
6206 fit_coef(5, 9) = -8.7738902954943887e+02_dp
6207 fit_coef(6, 9) = 2.7372194924276941e+03_dp
6208 fit_coef(7, 9) = -5.8030086010828445e+03_dp
6209 fit_coef(8, 9) = 8.4006232674596267e+03_dp
6210 fit_coef(9, 9) = -8.1767388699954290e+03_dp
6211 fit_coef(10, 9) = 5.1179187652543951e+03_dp
6212 fit_coef(11, 9) = -1.8606812820509087e+03_dp
6213 fit_coef(12, 9) = 2.9861178044260612e+02_dp
6214 fit_coef(0, 10) = 6.2761071501945276e-01_dp
6215 fit_coef(1, 10) = 4.3829697389904873e-02_dp
6216 fit_coef(2, 10) = 5.7833019860251502e+00_dp
6217 fit_coef(3, 10) = -4.3589104975069581e+01_dp
6218 fit_coef(4, 10) = 3.1240972247660102e+02_dp
6219 fit_coef(5, 10) = -1.4676188400419255e+03_dp
6220 fit_coef(6, 10) = 4.5862715204341948e+03_dp
6221 fit_coef(7, 10) = -9.7328856974721111e+03_dp
6222 fit_coef(8, 10) = 1.4098068171267152e+04_dp
6223 fit_coef(9, 10) = -1.3727352353131695e+04_dp
6224 fit_coef(10, 10) = 8.5941131147490141e+03_dp
6225 fit_coef(11, 10) = -3.1249775864789372e+03_dp
6226 fit_coef(12, 10) = 5.0156651089860543e+02_dp
6227 fit_coef(0, 11) = 1.3001830139334465e+00_dp
6228 fit_coef(1, 11) = 6.8889203557683909e-02_dp
6229 fit_coef(2, 11) = 9.0695201480430416e+00_dp
6230 fit_coef(3, 11) = -6.8588523830477001e+01_dp
6231 fit_coef(4, 11) = 4.8911175818178219e+02_dp
6232 fit_coef(5, 11) = -2.3017939006101778e+03_dp
6233 fit_coef(6, 11) = 7.2034170829290761e+03_dp
6234 fit_coef(7, 11) = -1.5300571255050740e+04_dp
6235 fit_coef(8, 11) = 2.2174747250984612e+04_dp
6236 fit_coef(9, 11) = -2.1598799766875782e+04_dp
6237 fit_coef(10, 11) = 1.3524962200868669e+04_dp
6238 fit_coef(11, 11) = -4.9186216136818812e+03_dp
6239 fit_coef(12, 11) = 7.8952838092425554e+02_dp
6240 fit_coef(0, 12) = 2.6215772490899263e+00_dp
6241 fit_coef(1, 12) = 1.0119187877095515e-01_dp
6242 fit_coef(2, 12) = 1.3298790450785793e+01_dp
6243 fit_coef(3, 12) = -1.0082948191003250e+02_dp
6244 fit_coef(4, 12) = 7.1624051882694800e+02_dp
6245 fit_coef(5, 12) = -3.3750615698310812e+03_dp
6246 fit_coef(6, 12) = 1.0574350973373779e+04_dp
6247 fit_coef(7, 12) = -2.2477084129138388e+04_dp
6248 fit_coef(8, 12) = 3.2590012647996798e+04_dp
6249 fit_coef(9, 12) = -3.1752355473368389e+04_dp
6250 fit_coef(10, 12) = 1.9886579242865319e+04_dp
6251 fit_coef(11, 12) = -7.2330170769743845e+03_dp
6252 fit_coef(12, 12) = 1.1611278007055782e+03_dp
6253 fit_coef(0, 13) = 5.2970688415539806e+00_dp
6254 fit_coef(1, 13) = 1.3913815821587258e-01_dp
6255 fit_coef(2, 13) = 1.8263424659829006e+01_dp
6256 fit_coef(3, 13) = -1.3870952790580026e+02_dp
6257 fit_coef(4, 13) = 9.8271245072947818e+02_dp
6258 fit_coef(5, 13) = -4.6347205083298186e+03_dp
6259 fit_coef(6, 13) = 1.4532606648412351e+04_dp
6260 fit_coef(7, 13) = -3.0906783800217447e+04_dp
6261 fit_coef(8, 13) = 4.4826644713674119e+04_dp
6262 fit_coef(9, 13) = -4.3683152384513414e+04_dp
6263 fit_coef(10, 13) = 2.7362388150846749e+04_dp
6264 fit_coef(11, 13) = -9.9529300467619232e+03_dp
6265 fit_coef(12, 13) = 1.5978560147630030e+03_dp
6266 fit_coef(0, 14) = 3.3029079169995746e-05_dp
6267 fit_coef(1, 14) = 2.6643361318081685e-05_dp
6268 fit_coef(2, 14) = 3.7453854295855472e-03_dp
6269 fit_coef(3, 14) = -2.4461573064643052e-02_dp
6270 fit_coef(4, 14) = 2.1192677272898949e-01_dp
6271 fit_coef(5, 14) = -9.2298813642259792e-01_dp
6272 fit_coef(6, 14) = 2.8202954491441887e+00_dp
6273 fit_coef(7, 14) = -5.9307601899579083e+00_dp
6274 fit_coef(8, 14) = 8.5478350235106983e+00_dp
6275 fit_coef(9, 14) = -8.2958924766363573e+00_dp
6276 fit_coef(10, 14) = 5.1810926707806537e+00_dp
6277 fit_coef(11, 14) = -1.8802314403008740e+00_dp
6278 fit_coef(12, 14) = 3.0127397290756769e-01_dp
6279 fit_coef(0, 15) = 2.1715120936896851e-04_dp
6280 fit_coef(1, 15) = 9.6158838084655870e-05_dp
6281 fit_coef(2, 15) = 1.3102183838061880e-02_dp
6282 fit_coef(3, 15) = -9.0442571305710165e-02_dp
6283 fit_coef(4, 15) = 7.2073640737136146e-01_dp
6284 fit_coef(5, 15) = -3.1779329684848223e+00_dp
6285 fit_coef(6, 15) = 9.7478690828954182e+00_dp
6286 fit_coef(7, 15) = -2.0582241665854877e+01_dp
6287 fit_coef(8, 15) = 2.9794991676852089e+01_dp
6288 fit_coef(9, 15) = -2.9037927118237850e+01_dp
6289 fit_coef(10, 15) = 1.8203528955433185e+01_dp
6290 fit_coef(11, 15) = -6.6278898854648514e+00_dp
6291 fit_coef(12, 15) = 1.0650411372773607e+00_dp
6292 fit_coef(0, 16) = 8.8916557085975359e-04_dp
6293 fit_coef(1, 16) = 2.7147003112010167e-04_dp
6294 fit_coef(2, 16) = 3.6886711972600503e-02_dp
6295 fit_coef(3, 16) = -2.6522390438189170e-01_dp
6296 fit_coef(4, 16) = 2.0383361789339589e+00_dp
6297 fit_coef(5, 16) = -9.3159312869424529e+00_dp
6298 fit_coef(6, 16) = 2.8836230573430583e+01_dp
6299 fit_coef(7, 16) = -6.0862901561188608e+01_dp
6300 fit_coef(8, 16) = 8.7796437530891168e+01_dp
6301 fit_coef(9, 16) = -8.5203527246658652e+01_dp
6302 fit_coef(10, 16) = 5.3197256397040526e+01_dp
6303 fit_coef(11, 16) = -1.9300241563707537e+01_dp
6304 fit_coef(12, 16) = 3.0920034178994409e+00_dp
6305 fit_coef(0, 17) = 2.8909222386173440e-03_dp
6306 fit_coef(1, 17) = 6.5986499705299726e-04_dp
6307 fit_coef(2, 17) = 8.8661109522972403e-02_dp
6308 fit_coef(3, 17) = -6.4720090249728535e-01_dp
6309 fit_coef(4, 17) = 4.8509444516645317e+00_dp
6310 fit_coef(5, 17) = -2.2365482960360204e+01_dp
6311 fit_coef(6, 17) = 6.9142722370552491e+01_dp
6312 fit_coef(7, 17) = -1.4576807130419496e+02_dp
6313 fit_coef(8, 17) = 2.1031616948122442e+02_dp
6314 fit_coef(9, 17) = -2.0432151206915759e+02_dp
6315 fit_coef(10, 17) = 1.2775135126432421e+02_dp
6316 fit_coef(11, 17) = -4.6418220663487915e+01_dp
6317 fit_coef(12, 17) = 7.4470095221066224e+00_dp
6318 fit_coef(0, 18) = 8.1395124276193651e-03_dp
6319 fit_coef(1, 18) = 1.4295080919928922e-03_dp
6320 fit_coef(2, 18) = 1.9095038913922552e-01_dp
6321 fit_coef(3, 18) = -1.4103276835369478e+00_dp
6322 fit_coef(4, 18) = 1.0406506856630042e+01_dp
6323 fit_coef(5, 18) = -4.8337660891823411e+01_dp
6324 fit_coef(6, 18) = 1.4991827465085015e+02_dp
6325 fit_coef(7, 18) = -3.1676057422657112e+02_dp
6326 fit_coef(8, 18) = 4.5769739592136420e+02_dp
6327 fit_coef(9, 18) = -4.4502674091606121e+02_dp
6328 fit_coef(10, 18) = 2.7836644169317543e+02_dp
6329 fit_coef(11, 18) = -1.0115946637317019e+02_dp
6330 fit_coef(12, 18) = 1.6229500712924121e+01_dp
6331 fit_coef(0, 19) = 2.0717076029345759e-02_dp
6332 fit_coef(1, 19) = 2.8356072593395381e-03_dp
6333 fit_coef(2, 19) = 3.7697026585720034e-01_dp
6334 fit_coef(3, 19) = -2.8080135576835485e+00_dp
6335 fit_coef(4, 19) = 2.0474949195105673e+01_dp
6336 fit_coef(5, 19) = -9.5582095227962725e+01_dp
6337 fit_coef(6, 19) = 2.9724241292709326e+02_dp
6338 fit_coef(7, 19) = -6.2897377141618983e+02_dp
6339 fit_coef(8, 19) = 9.0952762860883638e+02_dp
6340 fit_coef(9, 19) = -8.8470183512709411e+02_dp
6341 fit_coef(10, 19) = 5.5351047071161520e+02_dp
6342 fit_coef(11, 19) = -2.0117820626571816e+02_dp
6343 fit_coef(12, 19) = 3.2279767274864902e+01_dp
6344 fit_coef(0, 20) = 4.8876460483642845e-02_dp
6345 fit_coef(1, 20) = 5.2174808763164821e-03_dp
6346 fit_coef(2, 20) = 6.9090200030553239e-01_dp
6347 fit_coef(3, 20) = -5.1804295291616596e+00_dp
6348 fit_coef(4, 20) = 3.7420371100773927e+01_dp
6349 fit_coef(5, 20) = -1.7533661861799825e+02_dp
6350 fit_coef(6, 20) = 5.4658265990827033e+02_dp
6351 fit_coef(7, 20) = -1.1581864472600616e+03_dp
6352 fit_coef(8, 20) = 1.6761108303901358e+03_dp
6353 fit_coef(9, 20) = -1.6311266679849095e+03_dp
6354 fit_coef(10, 20) = 1.0208160076430613e+03_dp
6355 fit_coef(11, 20) = -3.7110037560401321e+02_dp
6356 fit_coef(12, 20) = 5.9552981560922035e+01_dp
6357 fit_coef(0, 21) = 1.0862470653291458e-01_dp
6358 fit_coef(1, 21) = 8.9557210597009419e-03_dp
6359 fit_coef(2, 21) = 1.1819761188507145e+00_dp
6360 fit_coef(3, 21) = -8.9092575248149508e+00_dp
6361 fit_coef(4, 21) = 6.3862158642253107e+01_dp
6362 fit_coef(5, 21) = -3.0008394292824050e+02_dp
6363 fit_coef(6, 21) = 9.3746815308631687e+02_dp
6364 fit_coef(7, 21) = -1.9889858954576416e+03_dp
6365 fit_coef(8, 21) = 2.8805735949038526e+03_dp
6366 fit_coef(9, 21) = -2.8045287776281298e+03_dp
6367 fit_coef(10, 21) = 1.7556741628884376e+03_dp
6368 fit_coef(11, 21) = -6.3836601287630617e+02_dp
6369 fit_coef(12, 21) = 1.0245612268571801e+02_dp
6370 fit_coef(0, 22) = 2.3000575937054105e-01_dp
6371 fit_coef(1, 22) = 1.4334607293667794e-02_dp
6372 fit_coef(2, 22) = 1.8864545891903439e+00_dp
6373 fit_coef(3, 22) = -1.4280352788842627e+01_dp
6374 fit_coef(4, 22) = 1.0170803299679834e+02_dp
6375 fit_coef(5, 22) = -4.7898216088621695e+02_dp
6376 fit_coef(6, 22) = 1.4991893689445949e+03_dp
6377 fit_coef(7, 22) = -3.1844797903553772e+03_dp
6378 fit_coef(8, 22) = 4.6151825676230128e+03_dp
6379 fit_coef(9, 22) = -4.4952731839222251e+03_dp
6380 fit_coef(10, 22) = 2.8148739884496081e+03_dp
6381 fit_coef(11, 22) = -1.0236785820690926e+03_dp
6382 fit_coef(12, 22) = 1.6431836962570071e+02_dp
6383 fit_coef(0, 23) = 4.6825429870000890e-01_dp
6384 fit_coef(1, 23) = 2.1256443046165384e-02_dp
6385 fit_coef(2, 23) = 2.7905151165222755e+00_dp
6386 fit_coef(3, 23) = -2.1197457436160700e+01_dp
6387 fit_coef(4, 23) = 1.5017192005334016e+02_dp
6388 fit_coef(5, 23) = -7.0843773023664141e+02_dp
6389 fit_coef(6, 23) = 2.2210314991220407e+03_dp
6390 fit_coef(7, 23) = -4.7227286038286647e+03_dp
6391 fit_coef(8, 23) = 6.8489146048021994e+03_dp
6392 fit_coef(9, 23) = -6.6736306428096368e+03_dp
6393 fit_coef(10, 23) = 4.1800022473986091e+03_dp
6394 fit_coef(11, 23) = -1.5203921664836910e+03_dp
6395 fit_coef(12, 23) = 2.4407860279057451e+02_dp
6396 fit_coef(0, 24) = 9.2615015167881409e-01_dp
6397 fit_coef(1, 24) = 2.8851029357722529e-02_dp
6398 fit_coef(2, 24) = 3.7800720586882299e+00_dp
6399 fit_coef(3, 24) = -2.8790145745264784e+01_dp
6400 fit_coef(4, 24) = 2.0311830055185206e+02_dp
6401 fit_coef(5, 24) = -9.5941022550967875e+02_dp
6402 fit_coef(6, 24) = 3.0118661422758710e+03_dp
6403 fit_coef(7, 24) = -6.4099639194822603e+03_dp
6404 fit_coef(8, 24) = 9.3008315617510980e+03_dp
6405 fit_coef(9, 24) = -9.0659183663546519e+03_dp
6406 fit_coef(10, 24) = 5.6796728484798878e+03_dp
6407 fit_coef(11, 24) = -2.0661781228629306e+03_dp
6408 fit_coef(12, 24) = 3.3173195728147749e+02_dp
6409 fit_coef(0, 25) = 1.8197406882188483e+00_dp
6410 fit_coef(1, 25) = 3.5439117125219140e-02_dp
6411 fit_coef(2, 25) = 4.6374741775348376e+00_dp
6412 fit_coef(3, 25) = -3.5376154233726169e+01_dp
6413 fit_coef(4, 25) = 2.4894862911423743e+02_dp
6414 fit_coef(5, 25) = -1.1767196794716788e+03_dp
6415 fit_coef(6, 25) = 3.6971703023290502e+03_dp
6416 fit_coef(7, 25) = -7.8729723077281906e+03_dp
6417 fit_coef(8, 25) = 1.1427813147275856e+04_dp
6418 fit_coef(9, 25) = -1.1141769814002466e+04_dp
6419 fit_coef(10, 25) = 6.9812302395124789e+03_dp
6420 fit_coef(11, 25) = -2.5399272897012484e+03_dp
6421 fit_coef(12, 25) = 4.0782349862907824e+02_dp
6422 fit_coef(0, 26) = 3.8699714083339569e+00_dp
6423 fit_coef(1, 26) = 4.0430697875251408e-02_dp
6424 fit_coef(2, 26) = 5.2898404083820747e+00_dp
6425 fit_coef(3, 26) = -4.0359075619765512e+01_dp
6426 fit_coef(4, 26) = 2.8393314652682147e+02_dp
6427 fit_coef(5, 26) = -1.3421543359055597e+03_dp
6428 fit_coef(6, 26) = 4.2173994053467277e+03_dp
6429 fit_coef(7, 26) = -8.9814986542291372e+03_dp
6430 fit_coef(8, 26) = 1.3037566274562520e+04_dp
6431 fit_coef(9, 26) = -1.2711681344703467e+04_dp
6432 fit_coef(10, 26) = 7.9650982603751236e+03_dp
6433 fit_coef(11, 26) = -2.8979280791052265e+03_dp
6434 fit_coef(12, 26) = 4.6531132823912742e+02_dp
6435
6436 END SUBROUTINE get_fit_coef_k13_lo
6437
6438! **************************************************************************************************
6439!> \brief ...
6440!> \param k ...
6441!> \param fit_coef ...
6442!> \param L_b ...
6443!> \param U_b ...
6444! **************************************************************************************************
6445 SUBROUTINE get_fit_coef_k14_sh(k, fit_coef, L_b, U_b)
6446 INTEGER :: k
6447 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
6448 REAL(kind=dp) :: l_b, u_b
6449
6450 l_b = 1.0000000000000000e+01_dp
6451 u_b = 1.0000000000000000e+02_dp
6452 fit_coef(0, 1) = 4.0562245241676015e-03_dp
6453 fit_coef(1, 1) = 1.0969040206552460e-02_dp
6454 fit_coef(2, 1) = 1.4405191275649688e-02_dp
6455 fit_coef(3, 1) = 1.0649635686233358e-02_dp
6456 fit_coef(4, 1) = 3.2778746107621219e-03_dp
6457 fit_coef(5, 1) = -1.5147809086133006e-03_dp
6458 fit_coef(6, 1) = -1.7768378644379805e-03_dp
6459 fit_coef(7, 1) = -1.7040745050157837e-04_dp
6460 fit_coef(8, 1) = 4.3464032657914310e-04_dp
6461 fit_coef(9, 1) = 2.9772666014833774e-04_dp
6462 fit_coef(10, 1) = -3.9919353211016935e-04_dp
6463 fit_coef(11, 1) = 1.9832458267342404e-04_dp
6464 fit_coef(12, 1) = -4.3867764193471502e-05_dp
6465 fit_coef(0, 2) = 2.1853974229517521e-02_dp
6466 fit_coef(1, 2) = 5.8406086298247388e-02_dp
6467 fit_coef(2, 2) = 7.6152918249589960e-02_dp
6468 fit_coef(3, 2) = 5.5933948505163415e-02_dp
6469 fit_coef(4, 2) = 1.7021801576352837e-02_dp
6470 fit_coef(5, 2) = -8.0247279189159457e-03_dp
6471 fit_coef(6, 2) = -9.2606257683723776e-03_dp
6472 fit_coef(7, 2) = -8.4039046464910933e-04_dp
6473 fit_coef(8, 2) = 2.2920465602860878e-03_dp
6474 fit_coef(9, 2) = 1.5096114542523550e-03_dp
6475 fit_coef(10, 2) = -2.0536902896596300e-03_dp
6476 fit_coef(11, 2) = 1.0198430679936156e-03_dp
6477 fit_coef(12, 2) = -2.2535568541917208e-04_dp
6478 fit_coef(0, 3) = 5.6010245407281063e-02_dp
6479 fit_coef(1, 3) = 1.4622279778697206e-01_dp
6480 fit_coef(2, 3) = 1.8818537023914636e-01_dp
6481 fit_coef(3, 3) = 1.3664268008941158e-01_dp
6482 fit_coef(4, 3) = 4.0762241157569830e-02_dp
6483 fit_coef(5, 3) = -1.9875823087429162e-02_dp
6484 fit_coef(6, 3) = -2.2308862126762034e-02_dp
6485 fit_coef(7, 3) = -1.8247566176568901e-03_dp
6486 fit_coef(8, 3) = 5.6284318752787164e-03_dp
6487 fit_coef(9, 3) = 3.4697564866730192e-03_dp
6488 fit_coef(10, 3) = -4.8438240685035059e-03_dp
6489 fit_coef(11, 3) = 2.4030731708201193e-03_dp
6490 fit_coef(12, 3) = -5.2978518261630908e-04_dp
6491 fit_coef(0, 4) = 1.1092328992892893e-01_dp
6492 fit_coef(1, 4) = 2.7859680338891873e-01_dp
6493 fit_coef(2, 4) = 3.5169352998000031e-01_dp
6494 fit_coef(3, 4) = 2.5142478390455381e-01_dp
6495 fit_coef(4, 4) = 7.2990020531424102e-02_dp
6496 fit_coef(5, 4) = -3.7221206950039602e-02_dp
6497 fit_coef(6, 4) = -4.0210444834685513e-02_dp
6498 fit_coef(7, 4) = -2.7577403917926737e-03_dp
6499 fit_coef(8, 4) = 1.0362436751946298e-02_dp
6500 fit_coef(9, 4) = 5.8637315949354504e-03_dp
6501 fit_coef(10, 4) = -8.4785224237194489e-03_dp
6502 fit_coef(11, 4) = 4.1965838668479400e-03_dp
6503 fit_coef(12, 4) = -9.2121396633372532e-04_dp
6504 fit_coef(0, 5) = 1.9465685621238632e-01_dp
6505 fit_coef(1, 5) = 4.6152338108270852e-01_dp
6506 fit_coef(2, 5) = 5.6693470576329441e-01_dp
6507 fit_coef(3, 5) = 3.9807380880317028e-01_dp
6508 fit_coef(4, 5) = 1.1253953929433713e-01_dp
6509 fit_coef(5, 5) = -6.0165003179139975e-02_dp
6510 fit_coef(6, 5) = -6.2492236340615785e-02_dp
6511 fit_coef(7, 5) = -3.1516877242773393e-03_dp
6512 fit_coef(8, 5) = 1.7371050989592705e-02_dp
6513 fit_coef(9, 5) = 6.8885779131374857e-03_dp
6514 fit_coef(10, 5) = -1.1712499657108166e-02_dp
6515 fit_coef(11, 5) = 5.9558759087716033e-03_dp
6516 fit_coef(12, 5) = -1.3302080306339819e-03_dp
6517 fit_coef(0, 6) = 3.2087033276941335e-01_dp
6518 fit_coef(1, 6) = 7.0343427128207259e-01_dp
6519 fit_coef(2, 6) = 8.3155424687895485e-01_dp
6520 fit_coef(3, 6) = 5.7158103074002242e-01_dp
6521 fit_coef(4, 6) = 1.6033482878158128e-01_dp
6522 fit_coef(5, 6) = -8.5970624138830110e-02_dp
6523 fit_coef(6, 6) = -9.0709492543919121e-02_dp
6524 fit_coef(7, 6) = -4.6906764752169330e-03_dp
6525 fit_coef(8, 6) = 2.7054261624413843e-02_dp
6526 fit_coef(9, 6) = 1.4112534091895116e-02_dp
6527 fit_coef(10, 6) = -2.5828598206741545e-02_dp
6528 fit_coef(11, 6) = 1.4364571586594627e-02_dp
6529 fit_coef(12, 6) = -3.2730781292866435e-03_dp
6530 fit_coef(0, 7) = 5.1123719677822987e-01_dp
6531 fit_coef(1, 7) = 1.0160745695891158e+00_dp
6532 fit_coef(2, 7) = 1.1406376033091816e+00_dp
6533 fit_coef(3, 7) = 7.6072431018364839e-01_dp
6534 fit_coef(4, 7) = 2.1623548132157380e-01_dp
6535 fit_coef(5, 7) = -1.0385662211042419e-01_dp
6536 fit_coef(6, 7) = -1.2398076049296762e-01_dp
6537 fit_coef(7, 7) = -5.5258832288643421e-03_dp
6538 fit_coef(8, 7) = 5.4749667731452062e-03_dp
6539 fit_coef(9, 7) = 7.8756125030946533e-02_dp
6540 fit_coef(10, 7) = -8.1450501282583770e-02_dp
6541 fit_coef(11, 7) = 3.5582766973436604e-02_dp
6542 fit_coef(12, 7) = -6.2851848529127960e-03_dp
6543 fit_coef(0, 8) = 7.9862454256130755e-01_dp
6544 fit_coef(1, 8) = 1.4140917795956391e+00_dp
6545 fit_coef(2, 8) = 1.4887439734322301e+00_dp
6546 fit_coef(3, 8) = 9.4959856751799310e-01_dp
6547 fit_coef(4, 8) = 2.7310813416061092e-01_dp
6548 fit_coef(5, 8) = -1.0471167639057280e-01_dp
6549 fit_coef(6, 8) = -1.4117735675446755e-01_dp
6550 fit_coef(7, 8) = -2.8720200153060829e-02_dp
6551 fit_coef(8, 8) = 9.9988658384949844e-03_dp
6552 fit_coef(9, 8) = 4.4994288100147821e-02_dp
6553 fit_coef(10, 8) = 9.8296298107774047e-03_dp
6554 fit_coef(11, 8) = -3.6510317397394888e-02_dp
6555 fit_coef(12, 8) = 1.3048706811534378e-02_dp
6556 fit_coef(0, 9) = 1.2318540903074773e+00_dp
6557 fit_coef(1, 9) = 1.9126535284122799e+00_dp
6558 fit_coef(2, 9) = 1.8706375498146159e+00_dp
6559 fit_coef(3, 9) = 1.1237046593985318e+00_dp
6560 fit_coef(4, 9) = 3.2033236887832522e-01_dp
6561 fit_coef(5, 9) = -9.0264012269780411e-02_dp
6562 fit_coef(6, 9) = -1.2294629287092433e-01_dp
6563 fit_coef(7, 9) = -8.7215860683106217e-02_dp
6564 fit_coef(8, 9) = 1.0323515038061323e-01_dp
6565 fit_coef(9, 9) = -1.6774909880232289e-01_dp
6566 fit_coef(10, 9) = 2.4446069536217355e-01_dp
6567 fit_coef(11, 9) = -1.4978114145464044e-01_dp
6568 fit_coef(12, 9) = 3.2845034249025538e-02_dp
6569 fit_coef(0, 10) = 1.8833267667765345e+00_dp
6570 fit_coef(1, 10) = 2.5238922534191865e+00_dp
6571 fit_coef(2, 10) = 2.2803847971690017e+00_dp
6572 fit_coef(3, 10) = 1.2737526428801398e+00_dp
6573 fit_coef(4, 10) = 3.5105123224520401e-01_dp
6574 fit_coef(5, 10) = -6.2857188281637041e-02_dp
6575 fit_coef(6, 10) = -9.2210310288645597e-02_dp
6576 fit_coef(7, 10) = -9.0722133116613465e-02_dp
6577 fit_coef(8, 10) = 7.7837218665255559e-02_dp
6578 fit_coef(9, 10) = -1.6015129533752295e-01_dp
6579 fit_coef(10, 10) = 1.8283995908504222e-01_dp
6580 fit_coef(11, 10) = -6.6325970667744996e-02_dp
6581 fit_coef(12, 10) = 3.0820539987197176e-03_dp
6582 fit_coef(0, 11) = 2.8620729078671019e+00_dp
6583 fit_coef(1, 11) = 3.2531972126791606e+00_dp
6584 fit_coef(2, 11) = 2.7114279585314924e+00_dp
6585 fit_coef(3, 11) = 1.3964902193137803e+00_dp
6586 fit_coef(4, 11) = 3.6517639119142786e-01_dp
6587 fit_coef(5, 11) = -2.6597116040773625e-02_dp
6588 fit_coef(6, 11) = -5.9694762140569908e-02_dp
6589 fit_coef(7, 11) = -3.8758341163376515e-02_dp
6590 fit_coef(8, 11) = -5.1332218924274670e-02_dp
6591 fit_coef(9, 11) = 2.5767378796536407e-02_dp
6592 fit_coef(10, 11) = -4.9870158292428322e-02_dp
6593 fit_coef(11, 11) = 8.2792987390825273e-02_dp
6594 fit_coef(12, 11) = -3.1947335725901589e-02_dp
6595 fit_coef(0, 12) = 4.3396108413641770e+00_dp
6596 fit_coef(1, 12) = 4.0968755914648138e+00_dp
6597 fit_coef(2, 12) = 3.1592385203472810e+00_dp
6598 fit_coef(3, 12) = 1.4949577953660931e+00_dp
6599 fit_coef(4, 12) = 3.6703288840113468e-01_dp
6600 fit_coef(5, 12) = 1.2827934117818336e-02_dp
6601 fit_coef(6, 12) = -1.5966885082492444e-02_dp
6602 fit_coef(7, 12) = -4.1769471548348015e-03_dp
6603 fit_coef(8, 12) = -1.0829887623228632e-01_dp
6604 fit_coef(9, 12) = 9.0063525913958845e-02_dp
6605 fit_coef(10, 12) = -1.1718852204865197e-01_dp
6606 fit_coef(11, 12) = 1.0379976023591850e-01_dp
6607 fit_coef(12, 12) = -2.9513628601409953e-02_dp
6608 fit_coef(0, 13) = 6.6160518775236428e+00_dp
6609 fit_coef(1, 13) = 5.0450926097390525e+00_dp
6610 fit_coef(2, 13) = 3.6269712810913406e+00_dp
6611 fit_coef(3, 13) = 1.5787210925267479e+00_dp
6612 fit_coef(4, 13) = 3.6140765183946116e-01_dp
6613 fit_coef(5, 13) = 5.2660795733846105e-02_dp
6614 fit_coef(6, 13) = 3.6679818035805827e-02_dp
6615 fit_coef(7, 13) = 3.0817238462290870e-03_dp
6616 fit_coef(8, 13) = -8.5513616434734735e-02_dp
6617 fit_coef(9, 13) = 3.2480437301242795e-02_dp
6618 fit_coef(10, 13) = -4.3097395900725401e-02_dp
6619 fit_coef(11, 13) = 4.0285499498477921e-02_dp
6620 fit_coef(12, 13) = -9.0795169799425725e-03_dp
6621 fit_coef(0, 14) = 1.0378663082522372e+01_dp
6622 fit_coef(1, 14) = 6.1051748119732530e+00_dp
6623 fit_coef(2, 14) = 4.1393929927065685e+00_dp
6624 fit_coef(3, 14) = 1.6656362128427478e+00_dp
6625 fit_coef(4, 14) = 3.5175946384380213e-01_dp
6626 fit_coef(5, 14) = 9.2053766494033781e-02_dp
6627 fit_coef(6, 14) = 9.0977018487087655e-02_dp
6628 fit_coef(7, 14) = 9.2641513651703887e-03_dp
6629 fit_coef(8, 14) = -5.5705669679808022e-02_dp
6630 fit_coef(9, 14) = -2.2165364299652109e-02_dp
6631 fit_coef(10, 14) = 2.7050501330544607e-02_dp
6632 fit_coef(11, 14) = -9.8544712706888447e-03_dp
6633 fit_coef(12, 14) = 3.3393463606462780e-03_dp
6634 fit_coef(0, 15) = 1.0463061146787979e-02_dp
6635 fit_coef(1, 15) = 2.8219919737545576e-02_dp
6636 fit_coef(2, 15) = 3.6997970832918815e-02_dp
6637 fit_coef(3, 15) = 2.7310442581655728e-02_dp
6638 fit_coef(4, 15) = 8.3833807447771629e-03_dp
6639 fit_coef(5, 15) = -3.8927429936348136e-03_dp
6640 fit_coef(6, 15) = -4.5483815262270738e-03_dp
6641 fit_coef(7, 15) = -4.3064267744574074e-04_dp
6642 fit_coef(8, 15) = 1.1157764240345824e-03_dp
6643 fit_coef(9, 15) = 7.5712564333480544e-04_dp
6644 fit_coef(10, 15) = -1.0186473443121876e-03_dp
6645 fit_coef(11, 15) = 5.0602854051267157e-04_dp
6646 fit_coef(12, 15) = -1.1190592947238425e-04_dp
6647 fit_coef(0, 16) = 2.5471251770259992e-02_dp
6648 fit_coef(1, 16) = 6.7073734523031128e-02_dp
6649 fit_coef(2, 16) = 8.6686390148806164e-02_dp
6650 fit_coef(3, 16) = 6.3163726138437945e-02_dp
6651 fit_coef(4, 16) = 1.8954077181435283e-02_dp
6652 fit_coef(5, 16) = -9.1546883000010616e-03_dp
6653 fit_coef(6, 16) = -1.0357597642743745e-02_dp
6654 fit_coef(7, 16) = -8.7389112118697681e-04_dp
6655 fit_coef(8, 16) = 2.5999493392185090e-03_dp
6656 fit_coef(9, 16) = 1.6312506180299385e-03_dp
6657 fit_coef(10, 16) = -2.2608110574895506e-03_dp
6658 fit_coef(11, 16) = 1.1220090537728696e-03_dp
6659 fit_coef(12, 16) = -2.4758294844337260e-04_dp
6660 fit_coef(0, 17) = 4.3551694119749178e-02_dp
6661 fit_coef(1, 17) = 1.0925569190527253e-01_dp
6662 fit_coef(2, 17) = 1.3759390563727888e-01_dp
6663 fit_coef(3, 17) = 9.8026280776137426e-02_dp
6664 fit_coef(4, 17) = 2.8264281628926104e-02_dp
6665 fit_coef(5, 17) = -1.4570182357127179e-02_dp
6666 fit_coef(6, 17) = -1.5618085831617121e-02_dp
6667 fit_coef(7, 17) = -1.0386286860505113e-03_dp
6668 fit_coef(8, 17) = 4.0623648670812191e-03_dp
6669 fit_coef(9, 17) = 2.2393521384181845e-03_dp
6670 fit_coef(10, 17) = -3.2758370140128020e-03_dp
6671 fit_coef(11, 17) = 1.6218936224125669e-03_dp
6672 fit_coef(12, 17) = -3.5585220637753326e-04_dp
6673 fit_coef(0, 18) = 6.7585710312796060e-02_dp
6674 fit_coef(1, 18) = 1.5648129031717098e-01_dp
6675 fit_coef(2, 18) = 1.8950121838341139e-01_dp
6676 fit_coef(3, 18) = 1.3119730563134613e-01_dp
6677 fit_coef(4, 18) = 3.5948846183710491e-02_dp
6678 fit_coef(5, 18) = -2.0164654606078806e-02_dp
6679 fit_coef(6, 18) = -2.0055622446027831e-02_dp
6680 fit_coef(7, 18) = -6.9996789003826023e-04_dp
6681 fit_coef(8, 18) = 5.4059447836637305e-03_dp
6682 fit_coef(9, 18) = 2.3753238258316855e-03_dp
6683 fit_coef(10, 18) = -3.8252579297800944e-03_dp
6684 fit_coef(11, 18) = 1.8835729864486405e-03_dp
6685 fit_coef(12, 18) = -4.0977704401502611e-04_dp
6686 fit_coef(0, 19) = 1.0211824263133877e-01_dp
6687 fit_coef(1, 19) = 2.1075731039578760e-01_dp
6688 fit_coef(2, 19) = 2.4059034712033525e-01_dp
6689 fit_coef(3, 19) = 1.6134884680771011e-01_dp
6690 fit_coef(4, 19) = 4.3350649255430605e-02_dp
6691 fit_coef(5, 19) = -2.5429945851545656e-02_dp
6692 fit_coef(6, 19) = -2.4808194209897237e-02_dp
6693 fit_coef(7, 19) = -4.5717313943595194e-04_dp
6694 fit_coef(8, 19) = 9.7364264196386652e-03_dp
6695 fit_coef(9, 19) = -9.7009624494576196e-04_dp
6696 fit_coef(10, 19) = -2.9110931341643355e-03_dp
6697 fit_coef(11, 19) = 2.0554438206790630e-03_dp
6698 fit_coef(12, 19) = -5.3799541981056737e-04_dp
6699 fit_coef(0, 20) = 1.5387007707293665e-01_dp
6700 fit_coef(1, 20) = 2.7502702312847982e-01_dp
6701 fit_coef(2, 20) = 2.8778273930986864e-01_dp
6702 fit_coef(3, 20) = 1.8376769806731383e-01_dp
6703 fit_coef(4, 20) = 5.2375278020144772e-02_dp
6704 fit_coef(5, 20) = -2.4188675683434760e-02_dp
6705 fit_coef(6, 20) = -3.1878082611254147e-02_dp
6706 fit_coef(7, 20) = -2.0440498451142863e-03_dp
6707 fit_coef(8, 20) = 1.7743467113242066e-03_dp
6708 fit_coef(9, 20) = 2.9993028484423083e-02_dp
6709 fit_coef(10, 20) = -3.7493397222034638e-02_dp
6710 fit_coef(11, 20) = 1.9771570359339716e-02_dp
6711 fit_coef(12, 20) = -4.1700973428850313e-03_dp
6712 fit_coef(0, 21) = 2.3226494166758732e-01_dp
6713 fit_coef(1, 21) = 3.5273736189295163e-01_dp
6714 fit_coef(2, 21) = 3.2946524583838299e-01_dp
6715 fit_coef(3, 21) = 1.9174149746173408e-01_dp
6716 fit_coef(4, 21) = 5.8141887677596829e-02_dp
6717 fit_coef(5, 21) = -9.7825016932211791e-03_dp
6718 fit_coef(6, 21) = -3.0972124419450422e-02_dp
6719 fit_coef(7, 21) = -2.8877801446827007e-03_dp
6720 fit_coef(8, 21) = -3.6764584475810547e-02_dp
6721 fit_coef(9, 21) = 7.0959072404975718e-02_dp
6722 fit_coef(10, 21) = -3.5178291993696188e-02_dp
6723 fit_coef(11, 21) = -9.8088379200671617e-04_dp
6724 fit_coef(12, 21) = 3.7618284525752117e-03_dp
6725 fit_coef(0, 22) = 3.5052467022994122e-01_dp
6726 fit_coef(1, 22) = 4.4588641535984419e-01_dp
6727 fit_coef(2, 22) = 3.6589831022304731e-01_dp
6728 fit_coef(3, 22) = 1.8352935077226612e-01_dp
6729 fit_coef(4, 22) = 5.3697669457182857e-02_dp
6730 fit_coef(5, 22) = 7.4149644860502300e-03_dp
6731 fit_coef(6, 22) = 1.2817157120917000e-03_dp
6732 fit_coef(7, 22) = -5.0033726005623343e-02_dp
6733 fit_coef(8, 22) = 6.8349818056791897e-02_dp
6734 fit_coef(9, 22) = -1.7000421175238506e-01_dp
6735 fit_coef(10, 22) = 2.3036729897077399e-01_dp
6736 fit_coef(11, 22) = -1.3857914112066141e-01_dp
6737 fit_coef(12, 22) = 3.1478942190343064e-02_dp
6738 fit_coef(0, 23) = 5.2779750339667775e-01_dp
6739 fit_coef(1, 23) = 5.5332389225129053e-01_dp
6740 fit_coef(2, 23) = 3.9690230471520443e-01_dp
6741 fit_coef(3, 23) = 1.6312883734215308e-01_dp
6742 fit_coef(4, 23) = 3.9552650126779464e-02_dp
6743 fit_coef(5, 23) = 2.1230303801123101e-02_dp
6744 fit_coef(6, 23) = 2.9571154052233411e-02_dp
6745 fit_coef(7, 23) = -4.5494947806276824e-02_dp
6746 fit_coef(8, 23) = 6.6833147701713960e-02_dp
6747 fit_coef(9, 23) = -1.5861734029387040e-01_dp
6748 fit_coef(10, 23) = 1.3362195160908977e-01_dp
6749 fit_coef(11, 23) = -3.0781412640455877e-02_dp
6750 fit_coef(12, 23) = -4.0950711211332350e-03_dp
6751 fit_coef(0, 24) = 7.9293469396592242e-01_dp
6752 fit_coef(1, 24) = 6.7009858113053966e-01_dp
6753 fit_coef(2, 24) = 4.2145481861873185e-01_dp
6754 fit_coef(3, 24) = 1.3642048218640376e-01_dp
6755 fit_coef(4, 24) = 2.1922752252294477e-02_dp
6756 fit_coef(5, 24) = 3.2874744499942446e-02_dp
6757 fit_coef(6, 24) = 3.0227410874256264e-02_dp
6758 fit_coef(7, 24) = 3.7127938956607313e-02_dp
6759 fit_coef(8, 24) = -1.1080272293058828e-01_dp
6760 fit_coef(9, 24) = 1.5696651468543765e-01_dp
6761 fit_coef(10, 24) = -2.2158444445106978e-01_dp
6762 fit_coef(11, 24) = 1.6507639589038958e-01_dp
6763 fit_coef(12, 24) = -4.4931540554666242e-02_dp
6764 fit_coef(0, 25) = 1.1922412385770986e+00_dp
6765 fit_coef(1, 25) = 7.8786890944540700e-01_dp
6766 fit_coef(2, 25) = 4.3978600997964423e-01_dp
6767 fit_coef(3, 25) = 1.0955812452827124e-01_dp
6768 fit_coef(4, 25) = 7.1243000175333282e-03_dp
6769 fit_coef(5, 25) = 3.8586652562380884e-02_dp
6770 fit_coef(6, 25) = 3.7152220150416283e-02_dp
6771 fit_coef(7, 25) = 5.1558439446380777e-02_dp
6772 fit_coef(8, 25) = -1.1083564016687726e-01_dp
6773 fit_coef(9, 25) = 1.5290802796167138e-01_dp
6774 fit_coef(10, 25) = -1.7624313473286510e-01_dp
6775 fit_coef(11, 25) = 9.5327501416994614e-02_dp
6776 fit_coef(12, 25) = -1.7028005023958050e-02_dp
6777 fit_coef(0, 26) = 1.8099472486487456e+00_dp
6778 fit_coef(1, 26) = 8.9758639724651268e-01_dp
6779 fit_coef(2, 26) = 4.5619407404374801e-01_dp
6780 fit_coef(3, 26) = 8.8963048208584819e-02_dp
6781 fit_coef(4, 26) = -2.5842727308316919e-03_dp
6782 fit_coef(5, 26) = 3.9852736978965124e-02_dp
6783 fit_coef(6, 26) = 4.9637846366422017e-02_dp
6784 fit_coef(7, 26) = 1.7104716626654703e-02_dp
6785 fit_coef(8, 26) = -5.1404130029074147e-03_dp
6786 fit_coef(9, 26) = -1.8271352476782278e-02_dp
6787 fit_coef(10, 26) = 3.0152636564646153e-02_dp
6788 fit_coef(11, 26) = -4.0913238884136026e-02_dp
6789 fit_coef(12, 26) = 1.7209300973137127e-02_dp
6790 fit_coef(0, 27) = 2.8415520058389325e+00_dp
6791 fit_coef(1, 27) = 9.9858013711246008e-01_dp
6792 fit_coef(2, 27) = 4.8263553345863242e-01_dp
6793 fit_coef(3, 27) = 8.1362436826961093e-02_dp
6794 fit_coef(4, 27) = -8.1050564154871527e-03_dp
6795 fit_coef(5, 27) = 3.9674059022610446e-02_dp
6796 fit_coef(6, 27) = 5.4176205880144122e-02_dp
6797 fit_coef(7, 27) = 2.6408258437705550e-03_dp
6798 fit_coef(8, 27) = 3.6418581121829920e-02_dp
6799 fit_coef(9, 27) = -7.2590963148842197e-02_dp
6800 fit_coef(10, 27) = 9.0190833590845856e-02_dp
6801 fit_coef(11, 27) = -6.7850000466319185e-02_dp
6802 fit_coef(12, 27) = 1.8925208943418582e-02_dp
6803 fit_coef(0, 28) = 5.0338617688312999e+00_dp
6804 fit_coef(1, 28) = 1.1415572014123594e+00_dp
6805 fit_coef(2, 28) = 5.5834539482924794e-01_dp
6806 fit_coef(3, 28) = 9.8824807093161326e-02_dp
6807 fit_coef(4, 28) = -1.0740041647079411e-02_dp
6808 fit_coef(5, 28) = 3.9309450063690091e-02_dp
6809 fit_coef(6, 28) = 5.4929203884089291e-02_dp
6810 fit_coef(7, 28) = 1.2322580840140561e-02_dp
6811 fit_coef(8, 28) = 1.8323929549560497e-02_dp
6812 fit_coef(9, 28) = -2.9383377972038723e-02_dp
6813 fit_coef(10, 28) = 4.2820470862085666e-02_dp
6814 fit_coef(11, 28) = -2.8686857835350920e-02_dp
6815 fit_coef(12, 28) = 5.4565805278581868e-03_dp
6816
6817 END SUBROUTINE get_fit_coef_k14_sh
6818
6819! **************************************************************************************************
6820!> \brief ...
6821!> \param k ...
6822!> \param fit_coef ...
6823!> \param L_b ...
6824!> \param U_b ...
6825! **************************************************************************************************
6826 SUBROUTINE get_fit_coef_k14_mi(k, fit_coef, L_b, U_b)
6827 INTEGER :: k
6828 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
6829 REAL(kind=dp) :: l_b, u_b
6830
6831 l_b = 1.0000000000000000e+02_dp
6832 u_b = 1.1722808202408223e+03_dp
6833 fit_coef(0, 1) = 5.4467895546803416e-04_dp
6834 fit_coef(1, 1) = 1.5857771854287006e-03_dp
6835 fit_coef(2, 1) = 2.3073428933440593e-03_dp
6836 fit_coef(3, 1) = 2.0056780241026078e-03_dp
6837 fit_coef(4, 1) = 9.5252806530394737e-04_dp
6838 fit_coef(5, 1) = 4.5225480425719547e-05_dp
6839 fit_coef(6, 1) = -2.1217629613097376e-04_dp
6840 fit_coef(7, 1) = -5.0216895355491796e-05_dp
6841 fit_coef(8, 1) = 3.8287705248810476e-05_dp
6842 fit_coef(9, 1) = 7.2535948309621214e-05_dp
6843 fit_coef(10, 1) = -9.2252835912099736e-05_dp
6844 fit_coef(11, 1) = 4.3983534472290816e-05_dp
6845 fit_coef(12, 1) = -8.2237204784032551e-06_dp
6846 fit_coef(0, 2) = 3.0464535721029173e-03_dp
6847 fit_coef(1, 2) = 8.6149108928923676e-03_dp
6848 fit_coef(2, 2) = 1.2362165768730629e-02_dp
6849 fit_coef(3, 2) = 1.0619459122609453e-02_dp
6850 fit_coef(4, 2) = 4.9727394573446972e-03_dp
6851 fit_coef(5, 2) = 2.0040047900640227e-04_dp
6852 fit_coef(6, 2) = -1.1121250175071501e-03_dp
6853 fit_coef(7, 2) = -2.5253190910672047e-04_dp
6854 fit_coef(8, 2) = 2.0786942223541925e-04_dp
6855 fit_coef(9, 2) = 3.6647453679821519e-04_dp
6856 fit_coef(10, 2) = -4.7725200991211036e-04_dp
6857 fit_coef(11, 2) = 2.3017003059152598e-04_dp
6858 fit_coef(12, 2) = -4.3440212796964786e-05_dp
6859 fit_coef(0, 3) = 8.4179094658504636e-03_dp
6860 fit_coef(1, 3) = 2.2382112298387765e-02_dp
6861 fit_coef(2, 3) = 3.1254689785869226e-02_dp
6862 fit_coef(3, 3) = 2.6305836769925709e-02_dp
6863 fit_coef(4, 3) = 1.2019230418388028e-02_dp
6864 fit_coef(5, 3) = 3.2210723317093755e-04_dp
6865 fit_coef(6, 3) = -2.7056207855165560e-03_dp
6866 fit_coef(7, 3) = -5.6040022077270704e-04_dp
6867 fit_coef(8, 3) = 5.4121141114160339e-04_dp
6868 fit_coef(9, 3) = 8.1004167044932199e-04_dp
6869 fit_coef(10, 3) = -1.1112740690897719e-03_dp
6870 fit_coef(11, 3) = 5.4779892766252693e-04_dp
6871 fit_coef(12, 3) = -1.0512838684553561e-04_dp
6872 fit_coef(0, 4) = 1.8743574617056585e-02_dp
6873 fit_coef(1, 4) = 4.5210340778486291e-02_dp
6874 fit_coef(2, 4) = 6.0224002984973317e-02_dp
6875 fit_coef(3, 4) = 4.9094876694850402e-02_dp
6876 fit_coef(4, 4) = 2.1831501314762986e-02_dp
6877 fit_coef(5, 4) = 3.2839489812930983e-04_dp
6878 fit_coef(6, 4) = -5.0144416787406901e-03_dp
6879 fit_coef(7, 4) = -9.7843840294365748e-04_dp
6880 fit_coef(8, 4) = 1.0342060306701268e-03_dp
6881 fit_coef(9, 4) = 1.5910763103707255e-03_dp
6882 fit_coef(10, 4) = -2.2573252364893278e-03_dp
6883 fit_coef(11, 4) = 1.1445941503911742e-03_dp
6884 fit_coef(12, 4) = -2.2506139447365695e-04_dp
6885 fit_coef(0, 5) = 3.8243937154880572e-02_dp
6886 fit_coef(1, 5) = 8.1467829047918827e-02_dp
6887 fit_coef(2, 5) = 1.0129786520932144e-01_dp
6888 fit_coef(3, 5) = 7.8216152968887814e-02_dp
6889 fit_coef(4, 5) = 3.3350941393280653e-02_dp
6890 fit_coef(5, 5) = 5.2823533556460426e-04_dp
6891 fit_coef(6, 5) = -7.3749832466795265e-03_dp
6892 fit_coef(7, 5) = -1.5646554141616070e-03_dp
6893 fit_coef(8, 5) = 9.1282587135457208e-04_dp
6894 fit_coef(9, 5) = 2.8481769249969957e-03_dp
6895 fit_coef(10, 5) = -3.1292839864729078e-03_dp
6896 fit_coef(11, 5) = 1.3433122010827140e-03_dp
6897 fit_coef(12, 5) = -2.2591769996675308e-04_dp
6898 fit_coef(0, 6) = 7.4571737250878262e-02_dp
6899 fit_coef(1, 6) = 1.3811565890497141e-01_dp
6900 fit_coef(2, 6) = 1.5798315551672285e-01_dp
6901 fit_coef(3, 6) = 1.1260753901599996e-01_dp
6902 fit_coef(4, 6) = 4.4100222118730312e-02_dp
6903 fit_coef(5, 6) = 2.1773862891778066e-04_dp
6904 fit_coef(6, 6) = -8.3087822491922161e-03_dp
6905 fit_coef(7, 6) = -2.1043028241427880e-03_dp
6906 fit_coef(8, 6) = 1.8792681898943972e-03_dp
6907 fit_coef(9, 6) = 3.1606237510210035e-04_dp
6908 fit_coef(10, 6) = -5.4242874432157808e-04_dp
6909 fit_coef(11, 6) = 2.2538605364452114e-04_dp
6910 fit_coef(12, 6) = -5.0219363398529674e-05_dp
6911 fit_coef(0, 7) = 1.4098571554579828e-01_dp
6912 fit_coef(1, 7) = 2.2478771441370507e-01_dp
6913 fit_coef(2, 7) = 2.3494329165976915e-01_dp
6914 fit_coef(3, 7) = 1.5140646411833683e-01_dp
6915 fit_coef(4, 7) = 5.1480514391188670e-02_dp
6916 fit_coef(5, 7) = -1.9136093640078735e-03_dp
6917 fit_coef(6, 7) = -7.8257777325216969e-03_dp
6918 fit_coef(7, 7) = -9.9807084346081507e-04_dp
6919 fit_coef(8, 7) = 2.2963464957662357e-03_dp
6920 fit_coef(9, 7) = -1.9447302259471774e-03_dp
6921 fit_coef(10, 7) = 4.3017240890955453e-04_dp
6922 fit_coef(11, 7) = 4.7144332953281682e-04_dp
6923 fit_coef(12, 7) = -2.1997791857150025e-04_dp
6924 fit_coef(0, 8) = 2.5999858418452071e-01_dp
6925 fit_coef(1, 8) = 3.5368499241454637e-01_dp
6926 fit_coef(2, 8) = 3.3704821274394664e-01_dp
6927 fit_coef(3, 8) = 1.9318903274447125e-01_dp
6928 fit_coef(4, 8) = 5.3280944838378592e-02_dp
6929 fit_coef(5, 8) = -6.3861100195045095e-03_dp
6930 fit_coef(6, 8) = -5.8003810200407740e-03_dp
6931 fit_coef(7, 8) = 1.4075796032845642e-03_dp
6932 fit_coef(8, 8) = 2.4434092283670862e-03_dp
6933 fit_coef(9, 8) = -4.5616600603175456e-03_dp
6934 fit_coef(10, 8) = 1.8926356543785563e-03_dp
6935 fit_coef(11, 8) = 2.2201716818935917e-04_dp
6936 fit_coef(12, 8) = -2.2032045330927993e-04_dp
6937 fit_coef(0, 9) = 4.6927925194228570e-01_dp
6938 fit_coef(1, 9) = 5.3896976247930295e-01_dp
6939 fit_coef(2, 9) = 4.6838489154168161e-01_dp
6940 fit_coef(3, 9) = 2.3526229136436330e-01_dp
6941 fit_coef(4, 9) = 4.7454952056688732e-02_dp
6942 fit_coef(5, 9) = -1.2685981031239016e-02_dp
6943 fit_coef(6, 9) = -1.4744220873732451e-03_dp
6944 fit_coef(7, 9) = 4.2905695407292228e-03_dp
6945 fit_coef(8, 9) = 2.4711991371951058e-03_dp
6946 fit_coef(9, 9) = -8.6550441967466144e-03_dp
6947 fit_coef(10, 9) = 5.5989569069497076e-03_dp
6948 fit_coef(11, 9) = -1.3463966560621509e-03_dp
6949 fit_coef(12, 9) = 5.6917396181052615e-05_dp
6950 fit_coef(0, 10) = 8.3113745246756776e-01_dp
6951 fit_coef(1, 10) = 7.9501654600703975e-01_dp
6952 fit_coef(2, 10) = 6.3118071249392171e-01_dp
6953 fit_coef(3, 10) = 2.7364530371013518e-01_dp
6954 fit_coef(4, 10) = 3.2333401581906181e-02_dp
6955 fit_coef(5, 10) = -1.9422043063657940e-02_dp
6956 fit_coef(6, 10) = 6.0392759901066601e-03_dp
6957 fit_coef(7, 10) = 7.1646103557214402e-03_dp
6958 fit_coef(8, 10) = 1.3209371123133807e-03_dp
6959 fit_coef(9, 10) = -1.3329493616005855e-02_dp
6960 fit_coef(10, 10) = 1.1118391120775293e-02_dp
6961 fit_coef(11, 10) = -3.9802162789608605e-03_dp
6962 fit_coef(12, 10) = 5.4198727348417862e-04_dp
6963 fit_coef(0, 11) = 1.4482023274879392e+00_dp
6964 fit_coef(1, 11) = 1.1330048924955463e+00_dp
6965 fit_coef(2, 11) = 8.2485522761522434e-01_dp
6966 fit_coef(3, 11) = 3.0394925510152571e-01_dp
6967 fit_coef(4, 11) = 7.2638847029286640e-03_dp
6968 fit_coef(5, 11) = -2.4671422910119499e-02_dp
6969 fit_coef(6, 11) = 1.7366475605224755e-02_dp
6970 fit_coef(7, 11) = 9.3584526548286841e-03_dp
6971 fit_coef(8, 11) = -1.8731252836985278e-03_dp
6972 fit_coef(9, 11) = -1.7532663892185343e-02_dp
6973 fit_coef(10, 11) = 1.7972283371407362e-02_dp
6974 fit_coef(11, 11) = -7.6180802914050756e-03_dp
6975 fit_coef(12, 11) = 1.2561263859800901e-03_dp
6976 fit_coef(0, 12) = 2.4920360801417596e+00_dp
6977 fit_coef(1, 12) = 1.5562052067140830e+00_dp
6978 fit_coef(2, 12) = 1.0460115631746023e+00_dp
6979 fit_coef(3, 12) = 3.2329508963929127e-01_dp
6980 fit_coef(4, 12) = -2.6843427897215052e-02_dp
6981 fit_coef(5, 12) = -2.6728379775572533e-02_dp
6982 fit_coef(6, 12) = 3.2440057594826148e-02_dp
6983 fit_coef(7, 12) = 1.0203339477948091e-02_dp
6984 fit_coef(8, 12) = -7.5116389543029823e-03_dp
6985 fit_coef(9, 12) = -2.0251551518009794e-02_dp
6986 fit_coef(10, 12) = 2.5495522854135564e-02_dp
6987 fit_coef(11, 12) = -1.2104045379629679e-02_dp
6988 fit_coef(12, 12) = 2.2002184184182066e-03_dp
6989 fit_coef(0, 13) = 4.2695725351678870e+00_dp
6990 fit_coef(1, 13) = 2.0569142521947663e+00_dp
6991 fit_coef(2, 13) = 1.2906701222000276e+00_dp
6992 fit_coef(3, 13) = 3.3274287972587252e-01_dp
6993 fit_coef(4, 13) = -6.7760240413352227e-02_dp
6994 fit_coef(5, 13) = -2.5210323779882499e-02_dp
6995 fit_coef(6, 13) = 5.0470840558373135e-02_dp
6996 fit_coef(7, 13) = 9.5160539695092316e-03_dp
6997 fit_coef(8, 13) = -1.5360600121122914e-02_dp
6998 fit_coef(9, 13) = -2.1060084216392275e-02_dp
6999 fit_coef(10, 13) = 3.3061137892312159e-02_dp
7000 fit_coef(11, 13) = -1.7135171327692631e-02_dp
7001 fit_coef(12, 13) = 3.3198097857474905e-03_dp
7002 fit_coef(0, 14) = 7.4706366451203330e+00_dp
7003 fit_coef(1, 14) = 2.6255475168075386e+00_dp
7004 fit_coef(2, 14) = 1.5617856992687866e+00_dp
7005 fit_coef(3, 14) = 3.3898821868503676e-01_dp
7006 fit_coef(4, 14) = -1.1349423621812627e-01_dp
7007 fit_coef(5, 14) = -2.1752415544934678e-02_dp
7008 fit_coef(6, 14) = 7.0659941513993574e-02_dp
7009 fit_coef(7, 14) = 7.9261305614328585e-03_dp
7010 fit_coef(8, 14) = -2.4678202093857821e-02_dp
7011 fit_coef(9, 14) = -2.0791238512333610e-02_dp
7012 fit_coef(10, 14) = 4.0834605352408383e-02_dp
7013 fit_coef(11, 14) = -2.2601414883140436e-02_dp
7014 fit_coef(12, 14) = 4.5678225526306271e-03_dp
7015 fit_coef(0, 15) = 1.4166144548081244e-03_dp
7016 fit_coef(1, 15) = 4.0988329863504650e-03_dp
7017 fit_coef(2, 15) = 5.9448187504450257e-03_dp
7018 fit_coef(3, 15) = 5.1533064863913264e-03_dp
7019 fit_coef(4, 15) = 2.4394418491756548e-03_dp
7020 fit_coef(5, 15) = 1.1163214246871172e-04_dp
7021 fit_coef(6, 15) = -5.4395417380967090e-04_dp
7022 fit_coef(7, 15) = -1.2744617101115058e-04_dp
7023 fit_coef(8, 15) = 9.9020248580942340e-05_dp
7024 fit_coef(9, 15) = 1.8429376434903194e-04_dp
7025 fit_coef(10, 15) = -2.3572941138030507e-04_dp
7026 fit_coef(11, 15) = 1.1270257688728590e-04_dp
7027 fit_coef(12, 15) = -2.1120306082703953e-05_dp
7028 fit_coef(0, 16) = 3.7180060821504178e-03_dp
7029 fit_coef(1, 16) = 1.0136250443655282e-02_dp
7030 fit_coef(2, 16) = 1.4300959605183702e-02_dp
7031 fit_coef(3, 16) = 1.2111006697402966e-02_dp
7032 fit_coef(4, 16) = 5.5715231524265116e-03_dp
7033 fit_coef(5, 16) = 1.7441962760050931e-04_dp
7034 fit_coef(6, 16) = -1.2509495746884976e-03_dp
7035 fit_coef(7, 16) = -2.6932600471792030e-04_dp
7036 fit_coef(8, 16) = 2.4202856508010202e-04_dp
7037 fit_coef(9, 16) = 3.9544082532111499e-04_dp
7038 fit_coef(10, 16) = -5.2934481355649469e-04_dp
7039 fit_coef(11, 16) = 2.5870684688921450e-04_dp
7040 fit_coef(12, 16) = -4.9352748645601205e-05_dp
7041 fit_coef(0, 17) = 7.3573792852102415e-03_dp
7042 fit_coef(1, 17) = 1.7769053739351975e-02_dp
7043 fit_coef(2, 17) = 2.3686656634361428e-02_dp
7044 fit_coef(3, 17) = 1.9285714809028087e-02_dp
7045 fit_coef(4, 17) = 8.4872745881098346e-03_dp
7046 fit_coef(5, 17) = 3.4696339797671155e-05_dp
7047 fit_coef(6, 17) = -1.9464426054708341e-03_dp
7048 fit_coef(7, 17) = -3.4174035665184455e-04_dp
7049 fit_coef(8, 17) = 4.7554753790861559e-04_dp
7050 fit_coef(9, 17) = 4.2925599708472817e-04_dp
7051 fit_coef(10, 17) = -7.0959124228041825e-04_dp
7052 fit_coef(11, 17) = 3.7293802063667668e-04_dp
7053 fit_coef(12, 17) = -7.4872640261499496e-05_dp
7054 fit_coef(0, 18) = 1.3977177746865988e-02_dp
7055 fit_coef(1, 18) = 2.8606023538180633e-02_dp
7056 fit_coef(2, 18) = 3.4571612966699722e-02_dp
7057 fit_coef(3, 18) = 2.6149166759159050e-02_dp
7058 fit_coef(4, 18) = 1.0984913521363774e-02_dp
7059 fit_coef(5, 18) = 7.7055787642742803e-05_dp
7060 fit_coef(6, 18) = -2.5922755331103330e-03_dp
7061 fit_coef(7, 18) = -4.8489977776779012e-04_dp
7062 fit_coef(8, 18) = 1.5912901418092180e-04_dp
7063 fit_coef(9, 18) = 1.5881868365226204e-03_dp
7064 fit_coef(10, 18) = -1.8151464311114490e-03_dp
7065 fit_coef(11, 18) = 8.5592821993186205e-04_dp
7066 fit_coef(12, 18) = -1.5937383356627851e-04_dp
7067 fit_coef(0, 19) = 2.6264101814506675e-02_dp
7068 fit_coef(1, 19) = 4.5069161923578932e-02_dp
7069 fit_coef(2, 19) = 4.8169189713700107e-02_dp
7070 fit_coef(3, 19) = 3.1904492882075079e-02_dp
7071 fit_coef(4, 19) = 1.1603766261612461e-02_dp
7072 fit_coef(5, 19) = 1.8449908333587032e-04_dp
7073 fit_coef(6, 19) = -1.7877726122463406e-03_dp
7074 fit_coef(7, 19) = -7.5764206916605059e-04_dp
7075 fit_coef(8, 19) = 2.8343231172872694e-04_dp
7076 fit_coef(9, 19) = -5.9914897854961122e-04_dp
7077 fit_coef(10, 19) = 1.3517055951379382e-03_dp
7078 fit_coef(11, 19) = -9.4046015820634316e-04_dp
7079 fit_coef(12, 19) = 2.2350581726021887e-04_dp
7080 fit_coef(0, 20) = 4.8542207101173400e-02_dp
7081 fit_coef(1, 20) = 6.9832820033889687e-02_dp
7082 fit_coef(2, 20) = 6.5995740079255238e-02_dp
7083 fit_coef(3, 20) = 3.6752596227584124e-02_dp
7084 fit_coef(4, 20) = 9.4571244340008204e-03_dp
7085 fit_coef(5, 20) = -1.0484402051494153e-03_dp
7086 fit_coef(6, 20) = -1.5752390773495777e-04_dp
7087 fit_coef(7, 20) = 1.0876735653687303e-04_dp
7088 fit_coef(8, 20) = 1.0073470936970389e-03_dp
7089 fit_coef(9, 20) = -3.0335098186363291e-03_dp
7090 fit_coef(10, 20) = 2.1855940575857963e-03_dp
7091 fit_coef(11, 20) = -4.5502298284867644e-04_dp
7092 fit_coef(12, 20) = -3.4790305788945764e-05_dp
7093 fit_coef(0, 21) = 8.7942456610255598e-02_dp
7094 fit_coef(1, 21) = 1.0555324383884353e-01_dp
7095 fit_coef(2, 21) = 8.8752093517154698e-02_dp
7096 fit_coef(3, 21) = 4.0620455348294761e-02_dp
7097 fit_coef(4, 21) = 4.9418858666300082e-03_dp
7098 fit_coef(5, 21) = -3.3032510647944919e-03_dp
7099 fit_coef(6, 21) = 1.1546343697416441e-03_dp
7100 fit_coef(7, 21) = 1.9549734572505361e-03_dp
7101 fit_coef(8, 21) = 5.6213884018718063e-05_dp
7102 fit_coef(9, 21) = -1.9404012109824945e-03_dp
7103 fit_coef(10, 21) = 5.3863092062487572e-04_dp
7104 fit_coef(11, 21) = 3.8099987718174182e-04_dp
7105 fit_coef(12, 21) = -1.6063218378014254e-04_dp
7106 fit_coef(0, 22) = 1.5620880999122425e-01_dp
7107 fit_coef(1, 22) = 1.5462937480065686e-01_dp
7108 fit_coef(2, 22) = 1.1615728166593994e-01_dp
7109 fit_coef(3, 22) = 4.2496601438037490e-02_dp
7110 fit_coef(4, 22) = -1.6862132065151886e-03_dp
7111 fit_coef(5, 22) = -5.5527712863935753e-03_dp
7112 fit_coef(6, 22) = 3.0288231280584822e-03_dp
7113 fit_coef(7, 22) = 2.7239270206899919e-03_dp
7114 fit_coef(8, 22) = 2.3923207067007299e-04_dp
7115 fit_coef(9, 22) = -3.4467494238847617e-03_dp
7116 fit_coef(10, 22) = 2.6143123206984532e-03_dp
7117 fit_coef(11, 22) = -9.5623661147149601e-04_dp
7118 fit_coef(12, 22) = 1.5884529743136178e-04_dp
7119 fit_coef(0, 23) = 2.7248883355523357e-01_dp
7120 fit_coef(1, 23) = 2.1839288076669880e-01_dp
7121 fit_coef(2, 23) = 1.4690508945871661e-01_dp
7122 fit_coef(3, 23) = 4.0972405769053262e-02_dp
7123 fit_coef(4, 23) = -1.0255836491498508e-02_dp
7124 fit_coef(5, 23) = -6.8103039861294205e-03_dp
7125 fit_coef(6, 23) = 5.7774256001662866e-03_dp
7126 fit_coef(7, 23) = 2.9716307657906005e-03_dp
7127 fit_coef(8, 23) = -3.8415214985403008e-04_dp
7128 fit_coef(9, 23) = -4.5597005257117969e-03_dp
7129 fit_coef(10, 23) = 4.6944833426410494e-03_dp
7130 fit_coef(11, 23) = -2.1231572186145029e-03_dp
7131 fit_coef(12, 23) = 3.8196379187575797e-04_dp
7132 fit_coef(0, 24) = 4.6789642997790454e-01_dp
7133 fit_coef(1, 24) = 2.9564830559342764e-01_dp
7134 fit_coef(2, 24) = 1.7859318172912267e-01_dp
7135 fit_coef(3, 24) = 3.5029171279950352e-02_dp
7136 fit_coef(4, 24) = -2.0106998533844407e-02_dp
7137 fit_coef(5, 24) = -6.3290051255165099e-03_dp
7138 fit_coef(6, 24) = 9.3627910136797072e-03_dp
7139 fit_coef(7, 24) = 2.6599389408438201e-03_dp
7140 fit_coef(8, 24) = -2.0615332759583711e-03_dp
7141 fit_coef(9, 24) = -4.6173560793899586e-03_dp
7142 fit_coef(10, 24) = 6.2747096995400117e-03_dp
7143 fit_coef(11, 24) = -3.1434465968595239e-03_dp
7144 fit_coef(12, 24) = 5.9448478612450029e-04_dp
7145 fit_coef(0, 25) = 7.9390404143601678e-01_dp
7146 fit_coef(1, 25) = 3.8094350576553354e-01_dp
7147 fit_coef(2, 25) = 2.0815634677459935e-01_dp
7148 fit_coef(3, 25) = 2.5054416108850112e-02_dp
7149 fit_coef(4, 25) = -2.9877418297843340e-02_dp
7150 fit_coef(5, 25) = -3.8648566065354233e-03_dp
7151 fit_coef(6, 25) = 1.3281740014574807e-02_dp
7152 fit_coef(7, 25) = 1.6073039898392629e-03_dp
7153 fit_coef(8, 25) = -4.3975022763734321e-03_dp
7154 fit_coef(9, 25) = -3.6092937145507167e-03_dp
7155 fit_coef(10, 25) = 7.3177671091434133e-03_dp
7156 fit_coef(11, 25) = -4.1069025396153367e-03_dp
7157 fit_coef(12, 25) = 8.3442522049861077e-04_dp
7158 fit_coef(0, 26) = 1.3421299372909123e+00_dp
7159 fit_coef(1, 26) = 4.6409313440446603e-01_dp
7160 fit_coef(2, 26) = 2.3339441406477554e-01_dp
7161 fit_coef(3, 26) = 1.3785053308326188e-02_dp
7162 fit_coef(4, 26) = -3.7941211960007708e-02_dp
7163 fit_coef(5, 26) = -1.7132484132012456e-04_dp
7164 fit_coef(6, 26) = 1.6722419910236191e-02_dp
7165 fit_coef(7, 26) = 4.5287606479249242e-05_dp
7166 fit_coef(8, 26) = -6.8396430449082519e-03_dp
7167 fit_coef(9, 26) = -1.7433447611092249e-03_dp
7168 fit_coef(10, 26) = 7.6094558147861901e-03_dp
7169 fit_coef(11, 26) = -4.8080400030221532e-03_dp
7170 fit_coef(12, 26) = 1.0435040492483968e-03_dp
7171 fit_coef(0, 27) = 2.3127647897779702e+00_dp
7172 fit_coef(1, 27) = 5.3494805569190185e-01_dp
7173 fit_coef(2, 27) = 2.5603491110440707e-01_dp
7174 fit_coef(3, 27) = 6.2124469115487774e-03_dp
7175 fit_coef(4, 27) = -4.3500571617098645e-02_dp
7176 fit_coef(5, 27) = 2.9267102310614004e-03_dp
7177 fit_coef(6, 27) = 1.9176839114778386e-02_dp
7178 fit_coef(7, 27) = -1.3114239457504276e-03_dp
7179 fit_coef(8, 27) = -8.7196471933934649e-03_dp
7180 fit_coef(9, 27) = -1.4236987601663990e-05_dp
7181 fit_coef(10, 27) = 7.5377946011018363e-03_dp
7182 fit_coef(11, 27) = -5.2272346094548762e-03_dp
7183 fit_coef(12, 27) = 1.1857786912012739e-03_dp
7184 fit_coef(0, 28) = 4.4310556767314351e+00_dp
7185 fit_coef(1, 28) = 6.0851379611857248e-01_dp
7186 fit_coef(2, 28) = 2.9194514151733547e-01_dp
7187 fit_coef(3, 28) = 8.6001943701959644e-03_dp
7188 fit_coef(4, 28) = -4.8295972382001021e-02_dp
7189 fit_coef(5, 28) = 3.4189484756573089e-03_dp
7190 fit_coef(6, 28) = 2.1364281048084820e-02_dp
7191 fit_coef(7, 28) = -1.6460148108292097e-03_dp
7192 fit_coef(8, 28) = -9.8467342034871362e-03_dp
7193 fit_coef(9, 28) = 1.9090555066223413e-04_dp
7194 fit_coef(10, 28) = 8.3032333199491645e-03_dp
7195 fit_coef(11, 28) = -5.8101678643582262e-03_dp
7196 fit_coef(12, 28) = 1.3244384992621098e-03_dp
7197
7198 END SUBROUTINE get_fit_coef_k14_mi
7199
7200! **************************************************************************************************
7201!> \brief ...
7202!> \param k ...
7203!> \param fit_coef ...
7204!> \param L_b ...
7205!> \param U_b ...
7206! **************************************************************************************************
7207 SUBROUTINE get_fit_coef_k14_lo(k, fit_coef, L_b, U_b)
7208 INTEGER :: k
7209 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
7210 REAL(kind=dp) :: l_b, u_b
7211
7212 l_b = 9.4708858956711737e+01_dp
7213 u_b = 6.6910000000000000e+05_dp
7214 fit_coef(0, 1) = 5.7644508135195325e-06_dp
7215 fit_coef(1, 1) = 8.8059899546543633e-06_dp
7216 fit_coef(2, 1) = 9.8246367093007174e-04_dp
7217 fit_coef(3, 1) = -5.7370459929060305e-03_dp
7218 fit_coef(4, 1) = 5.4909691175756163e-02_dp
7219 fit_coef(5, 1) = -2.3201875112604708e-01_dp
7220 fit_coef(6, 1) = 7.0724150950356890e-01_dp
7221 fit_coef(7, 1) = -1.4925604266418715e+00_dp
7222 fit_coef(8, 1) = 2.1603279291789366e+00_dp
7223 fit_coef(9, 1) = -2.1043657951755335e+00_dp
7224 fit_coef(10, 1) = 1.3179096181212082e+00_dp
7225 fit_coef(11, 1) = -4.7916040323369041e-01_dp
7226 fit_coef(12, 1) = 7.6853944770310323e-02_dp
7227 fit_coef(0, 2) = 6.3482217934141788e-05_dp
7228 fit_coef(1, 2) = 5.6715849587820812e-05_dp
7229 fit_coef(2, 2) = 6.2902935744076748e-03_dp
7230 fit_coef(3, 2) = -3.8825646732371183e-02_dp
7231 fit_coef(4, 2) = 3.5215367034308359e-01_dp
7232 fit_coef(5, 2) = -1.5068239503633283e+00_dp
7233 fit_coef(6, 2) = 4.5854281378525714e+00_dp
7234 fit_coef(7, 2) = -9.6460393022334507e+00_dp
7235 fit_coef(8, 2) = 1.3925086681528807e+01_dp
7236 fit_coef(9, 2) = -1.3538171863016146e+01_dp
7237 fit_coef(10, 2) = 8.4668043138765512e+00_dp
7238 fit_coef(11, 2) = -3.0752413149585256e+00_dp
7239 fit_coef(12, 2) = 4.9288840241270471e-01_dp
7240 fit_coef(0, 3) = 3.3613588297925877e-04_dp
7241 fit_coef(1, 3) = 2.0810718441537009e-04_dp
7242 fit_coef(2, 3) = 2.2496352429605227e-02_dp
7243 fit_coef(3, 3) = -1.4508680125471160e-01_dp
7244 fit_coef(4, 3) = 1.2240878955617038e+00_dp
7245 fit_coef(5, 3) = -5.4269306653344804e+00_dp
7246 fit_coef(6, 3) = 1.6783138844933998e+01_dp
7247 fit_coef(7, 3) = -3.5628143752717627e+01_dp
7248 fit_coef(8, 3) = 5.1720421721162715e+01_dp
7249 fit_coef(9, 3) = -5.0458114469889409e+01_dp
7250 fit_coef(10, 3) = 3.1625635386312588e+01_dp
7251 fit_coef(11, 3) = -1.1502746293672999e+01_dp
7252 fit_coef(12, 3) = 1.8452512921088244e+00_dp
7253 fit_coef(0, 4) = 1.2977058344000711e-03_dp
7254 fit_coef(1, 4) = 6.0051493044492425e-04_dp
7255 fit_coef(2, 4) = 6.4379175573630529e-02_dp
7256 fit_coef(3, 4) = -4.2944616668718744e-01_dp
7257 fit_coef(4, 4) = 3.4645304257752727e+00_dp
7258 fit_coef(5, 4) = -1.5790291716256178e+01_dp
7259 fit_coef(6, 4) = 4.9078910409345937e+01_dp
7260 fit_coef(7, 4) = -1.0406732095355643e+02_dp
7261 fit_coef(8, 4) = 1.5069319179330122e+02_dp
7262 fit_coef(9, 4) = -1.4664743032705482e+02_dp
7263 fit_coef(10, 4) = 9.1717900592693681e+01_dp
7264 fit_coef(11, 4) = -3.3301586691674665e+01_dp
7265 fit_coef(12, 4) = 5.3348395481918729e+00_dp
7266 fit_coef(0, 5) = 4.1564666328203293e-03_dp
7267 fit_coef(1, 5) = 1.5024272029496644e-03_dp
7268 fit_coef(2, 5) = 1.5961690430876282e-01_dp
7269 fit_coef(3, 5) = -1.0856048657785689e+00_dp
7270 fit_coef(4, 5) = 8.4819759793848739e+00_dp
7271 fit_coef(5, 5) = -3.9236853866944621e+01_dp
7272 fit_coef(6, 5) = 1.2225270389761864e+02_dp
7273 fit_coef(7, 5) = -2.5932080520941867e+02_dp
7274 fit_coef(8, 5) = 3.7560378396472731e+02_dp
7275 fit_coef(9, 5) = -3.6564399683386677e+02_dp
7276 fit_coef(10, 5) = 2.2876919730710458e+02_dp
7277 fit_coef(11, 5) = -8.3091860520998807e+01_dp
7278 fit_coef(12, 5) = 1.3315159702194723e+01_dp
7279 fit_coef(0, 6) = 1.1728185806559138e-02_dp
7280 fit_coef(1, 6) = 3.3854671547705814e-03_dp
7281 fit_coef(2, 6) = 3.5708079041567914e-01_dp
7282 fit_coef(3, 6) = -2.4616715243590788e+00_dp
7283 fit_coef(4, 6) = 1.8784735712246597e+01_dp
7284 fit_coef(5, 6) = -8.7758450553219319e+01_dp
7285 fit_coef(6, 6) = 2.7430420638340945e+02_dp
7286 fit_coef(7, 6) = -5.8284545441781790e+02_dp
7287 fit_coef(8, 6) = 8.4515131830014900e+02_dp
7288 fit_coef(9, 6) = -8.2334556633746092e+02_dp
7289 fit_coef(10, 6) = 5.1537716566398308e+02_dp
7290 fit_coef(11, 6) = -1.8724712324686436e+02_dp
7291 fit_coef(12, 6) = 3.0011313266344054e+01_dp
7292 fit_coef(0, 7) = 3.0150116177462289e-02_dp
7293 fit_coef(1, 7) = 7.0271320856721093e-03_dp
7294 fit_coef(2, 7) = 7.3674268137292198e-01_dp
7295 fit_coef(3, 7) = -5.1296976804148287e+00_dp
7296 fit_coef(4, 7) = 3.8429636567626652e+01_dp
7297 fit_coef(5, 7) = -1.8076150868535993e+02_dp
7298 fit_coef(6, 7) = 5.6676422159052879e+02_dp
7299 fit_coef(7, 7) = -1.2064911489924480e+03_dp
7300 fit_coef(8, 7) = 1.7514726329556534e+03_dp
7301 fit_coef(9, 7) = -1.7075068700281913e+03_dp
7302 fit_coef(10, 7) = 1.0693144394521294e+03_dp
7303 fit_coef(11, 7) = -3.8862358061084939e+02_dp
7304 fit_coef(12, 7) = 6.2300629367049794e+01_dp
7305 fit_coef(0, 8) = 7.2115669678109895e-02_dp
7306 fit_coef(1, 8) = 1.3616506829774023e-02_dp
7307 fit_coef(2, 8) = 1.4203294247117737e+00_dp
7308 fit_coef(3, 8) = -9.9648479573798241e+00_dp
7309 fit_coef(4, 8) = 7.3547304516631314e+01_dp
7310 fit_coef(5, 8) = -3.4763570685939845e+02_dp
7311 fit_coef(6, 8) = 1.0931366005010798e+03_dp
7312 fit_coef(7, 8) = -2.3311962044304441e+03_dp
7313 fit_coef(8, 8) = 3.3880559926822129e+03_dp
7314 fit_coef(9, 8) = -3.3054142191968185e+03_dp
7315 fit_coef(10, 8) = 2.0709975619174938e+03_dp
7316 fit_coef(11, 8) = -7.5292079976886191e+02_dp
7317 fit_coef(12, 8) = 1.2073055461067925e+02_dp
7318 fit_coef(0, 9) = 1.6278592399460171e-01_dp
7319 fit_coef(1, 9) = 2.4823462702639722e-02_dp
7320 fit_coef(2, 9) = 2.5779844651162875e+00_dp
7321 fit_coef(3, 9) = -1.8195793409897270e+01_dp
7322 fit_coef(4, 9) = 1.3264400733833980e+02_dp
7323 fit_coef(5, 9) = -6.2921784847028903e+02_dp
7324 fit_coef(6, 9) = 1.9837274033715200e+03_dp
7325 fit_coef(7, 9) = -4.2376252580133068e+03_dp
7326 fit_coef(8, 9) = 6.1654716911349278e+03_dp
7327 fit_coef(9, 9) = -6.0193635625448478e+03_dp
7328 fit_coef(10, 9) = 3.7732320110600213e+03_dp
7329 fit_coef(11, 9) = -1.3722389889916640e+03_dp
7330 fit_coef(12, 9) = 2.2009155940297515e+02_dp
7331 fit_coef(0, 10) = 3.5032689539851275e-01_dp
7332 fit_coef(1, 10) = 4.2737381729215401e-02_dp
7333 fit_coef(2, 10) = 4.4215419106194087e+00_dp
7334 fit_coef(3, 10) = -3.1358951004261929e+01_dp
7335 fit_coef(4, 10) = 2.2622710383931096e+02_dp
7336 fit_coef(5, 10) = -1.0760101708193520e+03_dp
7337 fit_coef(6, 10) = 3.4001822298289899e+03_dp
7338 fit_coef(7, 10) = -7.2748054353872876e+03_dp
7339 fit_coef(8, 10) = 1.0595181287227540e+04_dp
7340 fit_coef(9, 10) = -1.0351115266133067e+04_dp
7341 fit_coef(10, 10) = 6.4916005963247544e+03_dp
7342 fit_coef(11, 10) = -2.3616229307375006e+03_dp
7343 fit_coef(12, 10) = 3.7886792111335615e+02_dp
7344 fit_coef(0, 11) = 7.2447713579898398e-01_dp
7345 fit_coef(1, 11) = 6.9519327565965100e-02_dp
7346 fit_coef(2, 11) = 7.1687589104301583e+00_dp
7347 fit_coef(3, 11) = -5.1041793387291833e+01_dp
7348 fit_coef(4, 11) = 3.6499013684520196e+02_dp
7349 fit_coef(5, 11) = -1.7394623733769292e+03_dp
7350 fit_coef(6, 11) = 5.5078086466424802e+03_dp
7351 fit_coef(7, 11) = -1.1800797526080492e+04_dp
7352 fit_coef(8, 11) = 1.7203067323847517e+04_dp
7353 fit_coef(9, 11) = -1.6817396268950357e+04_dp
7354 fit_coef(10, 11) = 1.0551469125979243e+04_dp
7355 fit_coef(11, 11) = -3.8397827922054616e+03_dp
7356 fit_coef(12, 11) = 6.1614478300189171e+02_dp
7357 fit_coef(0, 12) = 1.4502467390425808e+00_dp
7358 fit_coef(1, 12) = 1.0661107753602478e-01_dp
7359 fit_coef(2, 12) = 1.0963185897291746e+01_dp
7360 fit_coef(3, 12) = -7.8300692460550920e+01_dp
7361 fit_coef(4, 12) = 5.5584223144558530e+02_dp
7362 fit_coef(5, 12) = -2.6528572306059414e+03_dp
7363 fit_coef(6, 12) = 8.4143371492021706e+03_dp
7364 fit_coef(7, 12) = -1.8050418749368942e+04_dp
7365 fit_coef(8, 12) = 2.6335573301758028e+04_dp
7366 fit_coef(9, 12) = -2.5759713754102195e+04_dp
7367 fit_coef(10, 12) = 1.6168369713625771e+04_dp
7368 fit_coef(11, 12) = -5.8854889464635708e+03_dp
7369 fit_coef(12, 12) = 9.4460223869839535e+02_dp
7370 fit_coef(0, 13) = 2.8395717023886369e+00_dp
7371 fit_coef(1, 13) = 1.5366537352589704e-01_dp
7372 fit_coef(2, 13) = 1.5767280021363437e+01_dp
7373 fit_coef(3, 13) = -1.1287621706718255e+02_dp
7374 fit_coef(4, 13) = 7.9673183153700211e+02_dp
7375 fit_coef(5, 13) = -3.8063687624389750e+03_dp
7376 fit_coef(6, 13) = 1.2089346236379877e+04_dp
7377 fit_coef(7, 13) = -2.5959938226844133e+04_dp
7378 fit_coef(8, 13) = 3.7901426581098414e+04_dp
7379 fit_coef(9, 13) = -3.7090020172809200e+04_dp
7380 fit_coef(10, 13) = 2.3287606333954678e+04_dp
7381 fit_coef(11, 13) = -8.4789859745242975e+03_dp
7382 fit_coef(12, 13) = 1.3610885265396084e+03_dp
7383 fit_coef(0, 14) = 5.5945431735079278e+00_dp
7384 fit_coef(1, 14) = 2.0856787151109613e-01_dp
7385 fit_coef(2, 14) = 2.1367891445332752e+01_dp
7386 fit_coef(3, 14) = -1.5321402782127791e+02_dp
7387 fit_coef(4, 14) = 1.0771822980689246e+03_dp
7388 fit_coef(5, 14) = -5.1495462635748599e+03_dp
7389 fit_coef(6, 14) = 1.6370767484953010e+04_dp
7390 fit_coef(7, 14) = -3.5178430776828289e+04_dp
7391 fit_coef(8, 14) = 5.1385383840132439e+04_dp
7392 fit_coef(9, 14) = -5.0302167209417865e+04_dp
7393 fit_coef(10, 14) = 3.1590534978260897e+04_dp
7394 fit_coef(11, 14) = -1.1504033487227012e+04_dp
7395 fit_coef(12, 14) = 1.8469177824866308e+03_dp
7396 fit_coef(0, 15) = 1.8436235820019048e-05_dp
7397 fit_coef(1, 15) = 2.3107371865340239e-05_dp
7398 fit_coef(2, 15) = 2.5779879028853276e-03_dp
7399 fit_coef(3, 15) = -1.5220660379968103e-02_dp
7400 fit_coef(4, 15) = 1.4674238877197790e-01_dp
7401 fit_coef(5, 15) = -6.2720720593806745e-01_dp
7402 fit_coef(6, 15) = 1.9196496962860754e+00_dp
7403 fit_coef(7, 15) = -4.0563204420089054e+00_dp
7404 fit_coef(8, 15) = 5.8719543662268974e+00_dp
7405 fit_coef(9, 15) = -5.7179931070241752e+00_dp
7406 fit_coef(10, 15) = 3.5792099623773965e+00_dp
7407 fit_coef(11, 15) = -1.3005810138247331e+00_dp
7408 fit_coef(12, 15) = 2.0848698369596702e-01_dp
7409 fit_coef(0, 16) = 1.2124348449172285e-04_dp
7410 fit_coef(1, 16) = 8.3813269418456530e-05_dp
7411 fit_coef(2, 16) = 9.0897102638036447e-03_dp
7412 fit_coef(3, 16) = -5.7911668892308865e-02_dp
7413 fit_coef(4, 16) = 4.9294344453578842e-01_dp
7414 fit_coef(5, 16) = -2.1314596717186927e+00_dp
7415 fit_coef(6, 16) = 6.5094911565878411e+00_dp
7416 fit_coef(7, 16) = -1.3738226450588236e+01_dp
7417 fit_coef(8, 16) = 1.9897297045097488e+01_dp
7418 fit_coef(9, 16) = -1.9402396684702406e+01_dp
7419 fit_coef(10, 16) = 1.2166199138851475e+01_dp
7420 fit_coef(11, 16) = -4.4288923635919755e+00_dp
7421 fit_coef(12, 16) = 7.1121697870477651e-01_dp
7422 fit_coef(0, 17) = 4.9649968043970563e-04_dp
7423 fit_coef(1, 17) = 2.4013320731623524e-04_dp
7424 fit_coef(2, 17) = 2.5742527096276644e-02_dp
7425 fit_coef(3, 17) = -1.7243873414770514e-01_dp
7426 fit_coef(4, 17) = 1.3895762899290705e+00_dp
7427 fit_coef(5, 17) = -6.3761453454497428e+00_dp
7428 fit_coef(6, 17) = 1.9936814180089332e+01_dp
7429 fit_coef(7, 17) = -4.2440835139836899e+01_dp
7430 fit_coef(8, 17) = 6.1588254511673313e+01_dp
7431 fit_coef(9, 17) = -5.9991544128378500e+01_dp
7432 fit_coef(10, 17) = 3.7528872717238954e+01_dp
7433 fit_coef(11, 17) = -1.3623706398668176e+01_dp
7434 fit_coef(12, 17) = 2.1816169197074027e+00_dp
7435 fit_coef(0, 18) = 1.6143519027172607e-03_dp
7436 fit_coef(1, 18) = 5.8859169571603552e-04_dp
7437 fit_coef(2, 18) = 6.2478735725773553e-02_dp
7438 fit_coef(3, 18) = -4.2711342899465948e-01_dp
7439 fit_coef(4, 18) = 3.3147135916470036e+00_dp
7440 fit_coef(5, 18) = -1.5401373294982442e+01_dp
7441 fit_coef(6, 18) = 4.7954953793067048e+01_dp
7442 fit_coef(7, 18) = -1.0153978302120807e+02_dp
7443 fit_coef(8, 18) = 1.4682909652330889e+02_dp
7444 fit_coef(9, 18) = -1.4276036864090156e+02_dp
7445 fit_coef(10, 18) = 8.9245840751766565e+01_dp
7446 fit_coef(11, 18) = -3.2398300584951542e+01_dp
7447 fit_coef(12, 18) = 5.1900908130178340e+00_dp
7448 fit_coef(0, 19) = 4.5454454347221614e-03_dp
7449 fit_coef(1, 19) = 1.2919916988711280e-03_dp
7450 fit_coef(2, 19) = 1.3597866025632654e-01_dp
7451 fit_coef(3, 19) = -9.4213191119816730e-01_dp
7452 fit_coef(4, 19) = 7.1313517958816419e+00_dp
7453 fit_coef(5, 19) = -3.3458248656849491e+01_dp
7454 fit_coef(6, 19) = 1.0462115349553649e+02_dp
7455 fit_coef(7, 19) = -2.2230013365840125e+02_dp
7456 fit_coef(8, 19) = 3.2237995602287663e+02_dp
7457 fit_coef(9, 19) = -3.1411722628668201e+02_dp
7458 fit_coef(10, 19) = 1.9665741705687799e+02_dp
7459 fit_coef(11, 19) = -7.1459843200825901e+01_dp
7460 fit_coef(12, 19) = 1.1454531272981891e+01_dp
7461 fit_coef(0, 20) = 1.1569593836045351e-02_dp
7462 fit_coef(1, 20) = 2.6018407470241437e-03_dp
7463 fit_coef(2, 20) = 2.7208902236045929e-01_dp
7464 fit_coef(3, 20) = -1.9039272645212668e+00_dp
7465 fit_coef(4, 20) = 1.4140811044678967e+01_dp
7466 fit_coef(5, 20) = -6.6772929853793315e+01_dp
7467 fit_coef(6, 20) = 2.0958553375037602e+02_dp
7468 fit_coef(7, 20) = -4.4639362838727067e+02_dp
7469 fit_coef(8, 20) = 6.4825457307516922e+02_dp
7470 fit_coef(9, 20) = -6.3211066495078410e+02_dp
7471 fit_coef(10, 20) = 3.9589944611561242e+02_dp
7472 fit_coef(11, 20) = -1.4389110171301371e+02_dp
7473 fit_coef(12, 20) = 2.3067990020945253e+01_dp
7474 fit_coef(0, 21) = 2.7295736154530334e-02_dp
7475 fit_coef(1, 21) = 4.8782968254850083e-03_dp
7476 fit_coef(2, 21) = 5.0739031138062951e-01_dp
7477 fit_coef(3, 21) = -3.5769970240701987e+00_dp
7478 fit_coef(4, 21) = 2.6164736431475280e+01_dp
7479 fit_coef(5, 21) = -1.2410237515226034e+02_dp
7480 fit_coef(6, 21) = 3.9082320961974159e+02_dp
7481 fit_coef(7, 21) = -8.3417851759708878e+02_dp
7482 fit_coef(8, 21) = 1.2129937424978116e+03_dp
7483 fit_coef(9, 21) = -1.1837877342560605e+03_dp
7484 fit_coef(10, 21) = 7.4185106985661810e+02_dp
7485 fit_coef(11, 21) = -2.6974056955563321e+02_dp
7486 fit_coef(12, 21) = 4.3256996209012456e+01_dp
7487 fit_coef(0, 22) = 6.0660781563425317e-02_dp
7488 fit_coef(1, 22) = 8.5794040217948859e-03_dp
7489 fit_coef(2, 22) = 8.8821388130041634e-01_dp
7490 fit_coef(3, 22) = -6.2985610532830956e+00_dp
7491 fit_coef(4, 22) = 4.5492645494685874e+01_dp
7492 fit_coef(5, 22) = -2.1647261584955578e+02_dp
7493 fit_coef(6, 22) = 6.8370044474800454e+02_dp
7494 fit_coef(7, 22) = -1.4621335320610413e+03_dp
7495 fit_coef(8, 22) = 2.1287754889346256e+03_dp
7496 fit_coef(9, 22) = -2.0792410286940094e+03_dp
7497 fit_coef(10, 22) = 1.3037501245395274e+03_dp
7498 fit_coef(11, 22) = -4.7423981275141949e+02_dp
7499 fit_coef(12, 22) = 7.6073607209164223e+01_dp
7500 fit_coef(0, 23) = 1.2841217227424742e-01_dp
7501 fit_coef(1, 23) = 1.4188057337444604e-02_dp
7502 fit_coef(2, 23) = 1.4629508408620973e+00_dp
7503 fit_coef(3, 23) = -1.0423327628190115e+01_dp
7504 fit_coef(4, 23) = 7.4479996989370790e+01_dp
7505 fit_coef(5, 23) = -3.5524319107213654e+02_dp
7506 fit_coef(6, 23) = 1.1248481685847394e+03_dp
7507 fit_coef(7, 23) = -2.4098075097537289e+03_dp
7508 fit_coef(8, 23) = 3.5126267297370300e+03_dp
7509 fit_coef(9, 23) = -3.4335802646233810e+03_dp
7510 fit_coef(10, 23) = 2.1541281893481446e+03_dp
7511 fit_coef(11, 23) = -7.8386608937552410e+02_dp
7512 fit_coef(12, 23) = 1.2577649211754711e+02_dp
7513 fit_coef(0, 24) = 2.6110218583026157e-01_dp
7514 fit_coef(1, 24) = 2.2013210715212957e-02_dp
7515 fit_coef(2, 24) = 2.2618021820392888e+00_dp
7516 fit_coef(3, 24) = -1.6177325764415730e+01_dp
7517 fit_coef(4, 24) = 1.1453533241330872e+02_dp
7518 fit_coef(5, 24) = -5.4723833721116853e+02_dp
7519 fit_coef(6, 24) = 1.7366429607985401e+03_dp
7520 fit_coef(7, 24) = -3.7264526069498952e+03_dp
7521 fit_coef(8, 24) = 5.4376949325389724e+03_dp
7522 fit_coef(9, 24) = -5.3192362305534161e+03_dp
7523 fit_coef(10, 24) = 3.3388433630606642e+03_dp
7524 fit_coef(11, 24) = -1.2154181459321210e+03_dp
7525 fit_coef(12, 24) = 1.9507456139845061e+02_dp
7526 fit_coef(0, 25) = 5.1367200823804149e-01_dp
7527 fit_coef(1, 25) = 3.1811354680997252e-02_dp
7528 fit_coef(2, 25) = 3.2585980335370284e+00_dp
7529 fit_coef(3, 25) = -2.3379379060808798e+01_dp
7530 fit_coef(4, 25) = 1.6424152452481010e+02_dp
7531 fit_coef(5, 25) = -7.8569152121234890e+02_dp
7532 fit_coef(6, 25) = 2.4981080171697954e+03_dp
7533 fit_coef(7, 25) = -5.3680206518529076e+03_dp
7534 fit_coef(8, 25) = 7.8407527495523063e+03_dp
7535 fit_coef(9, 25) = -7.6750999224540392e+03_dp
7536 fit_coef(10, 25) = 4.8198767192823361e+03_dp
7537 fit_coef(11, 25) = -1.7551476130824467e+03_dp
7538 fit_coef(12, 25) = 2.8177229346472944e+02_dp
7539 fit_coef(0, 26) = 9.8707480111071055e-01_dp
7540 fit_coef(1, 26) = 4.2323366844794610e-02_dp
7541 fit_coef(2, 26) = 4.3248620683488594e+00_dp
7542 fit_coef(3, 26) = -3.1101768723183273e+01_dp
7543 fit_coef(4, 26) = 2.1715876476583264e+02_dp
7544 fit_coef(5, 26) = -1.0396442548695900e+03_dp
7545 fit_coef(6, 26) = 3.3104927069027003e+03_dp
7546 fit_coef(7, 26) = -7.1219751261209803e+03_dp
7547 fit_coef(8, 26) = 1.0411115847803250e+04_dp
7548 fit_coef(9, 26) = -1.0196927796670321e+04_dp
7549 fit_coef(10, 26) = 6.4061259733442739e+03_dp
7550 fit_coef(11, 26) = -2.3334570806260454e+03_dp
7551 fit_coef(12, 26) = 3.7469580771614551e+02_dp
7552 fit_coef(0, 27) = 1.8940435475450061e+00_dp
7553 fit_coef(1, 27) = 5.1360926179740848e-02_dp
7554 fit_coef(2, 27) = 5.2404454262865769e+00_dp
7555 fit_coef(3, 27) = -3.7737331118803013e+01_dp
7556 fit_coef(4, 27) = 2.6250426447967351e+02_dp
7557 fit_coef(5, 27) = -1.2571969272125693e+03_dp
7558 fit_coef(6, 27) = 4.0068677681386607e+03_dp
7559 fit_coef(7, 27) = -8.6264349397777878e+03_dp
7560 fit_coef(8, 27) = 1.2616976771304368e+04_dp
7561 fit_coef(9, 27) = -1.2361959020546034e+04_dp
7562 fit_coef(10, 27) = 7.7683322759890580e+03_dp
7563 fit_coef(11, 27) = -2.8301914681580724e+03_dp
7564 fit_coef(12, 27) = 4.5452476900845880e+02_dp
7565 fit_coef(0, 28) = 3.9546758238329791e+00_dp
7566 fit_coef(1, 28) = 5.8523148761978797e-02_dp
7567 fit_coef(2, 28) = 5.9702778386920183e+00_dp
7568 fit_coef(3, 28) = -4.2997287866308362e+01_dp
7569 fit_coef(4, 28) = 2.9898597699426614e+02_dp
7570 fit_coef(5, 28) = -1.4318903472750299e+03_dp
7571 fit_coef(6, 28) = 4.5640259927402913e+03_dp
7572 fit_coef(7, 28) = -9.8267478597299942e+03_dp
7573 fit_coef(8, 28) = 1.4373446674375520e+04_dp
7574 fit_coef(9, 28) = -1.4083574897310356e+04_dp
7575 fit_coef(10, 28) = 8.8505067497423279e+03_dp
7576 fit_coef(11, 28) = -3.2245357392636670e+03_dp
7577 fit_coef(12, 28) = 5.1786594922938832e+02_dp
7578
7579 END SUBROUTINE get_fit_coef_k14_lo
7580
7581! **************************************************************************************************
7582!> \brief ...
7583!> \param k ...
7584!> \param fit_coef ...
7585!> \param L_b ...
7586!> \param U_b ...
7587! **************************************************************************************************
7588 SUBROUTINE get_fit_coef_k15_sh(k, fit_coef, L_b, U_b)
7589 INTEGER :: k
7590 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
7591 REAL(kind=dp) :: l_b, u_b
7592
7593 l_b = 2.0000000000000000e+01_dp
7594 u_b = 1.0000000000000000e+02_dp
7595 fit_coef(0, 1) = 3.7767636658328917e-03_dp
7596 fit_coef(1, 1) = 8.1211740094389931e-03_dp
7597 fit_coef(2, 1) = 8.4713080613072721e-03_dp
7598 fit_coef(3, 1) = 4.9722625039685525e-03_dp
7599 fit_coef(4, 1) = 1.2149725765861214e-03_dp
7600 fit_coef(5, 1) = -4.4528795735146096e-04_dp
7601 fit_coef(6, 1) = -4.1397080234777437e-04_dp
7602 fit_coef(7, 1) = -3.3426994813408613e-05_dp
7603 fit_coef(8, 1) = 6.8763616446013435e-05_dp
7604 fit_coef(9, 1) = 2.6807372741525578e-05_dp
7605 fit_coef(10, 1) = -2.8714180956136556e-05_dp
7606 fit_coef(11, 1) = 9.6272015928166124e-06_dp
7607 fit_coef(12, 1) = -1.2744413786197213e-06_dp
7608 fit_coef(0, 2) = 2.0284783343273730e-02_dp
7609 fit_coef(1, 2) = 4.3187845019499065e-02_dp
7610 fit_coef(2, 2) = 4.4768123513328789e-02_dp
7611 fit_coef(3, 2) = 2.6126720474645704e-02_dp
7612 fit_coef(4, 2) = 6.3201115983603541e-03_dp
7613 fit_coef(5, 2) = -2.3578759036246063e-03_dp
7614 fit_coef(6, 2) = -2.1606459505341194e-03_dp
7615 fit_coef(7, 2) = -1.6580374853951958e-04_dp
7616 fit_coef(8, 2) = 3.6074887455186000e-04_dp
7617 fit_coef(9, 2) = 1.3781750573407730e-04_dp
7618 fit_coef(10, 2) = -1.4977975033955343e-04_dp
7619 fit_coef(11, 2) = 5.0490744097337301e-05_dp
7620 fit_coef(12, 2) = -6.7504814416040953e-06_dp
7621 fit_coef(0, 3) = 5.1673260780627950e-02_dp
7622 fit_coef(1, 3) = 1.0789295508104972e-01_dp
7623 fit_coef(2, 3) = 1.1057351883667553e-01_dp
7624 fit_coef(3, 3) = 6.3878269616968825e-02_dp
7625 fit_coef(4, 3) = 1.5180871067702629e-02_dp
7626 fit_coef(5, 3) = -5.8375073829049018e-03_dp
7627 fit_coef(6, 3) = -5.2188107945168550e-03_dp
7628 fit_coef(7, 3) = -3.6420812718932399e-04_dp
7629 fit_coef(8, 3) = 8.7905419776698594e-04_dp
7630 fit_coef(9, 3) = 3.2415893028994188e-04_dp
7631 fit_coef(10, 3) = -3.6139234804234916e-04_dp
7632 fit_coef(11, 3) = 1.2287995757801328e-04_dp
7633 fit_coef(12, 3) = -1.6675660997752087e-05_dp
7634 fit_coef(0, 4) = 1.0134621267461434e-01_dp
7635 fit_coef(1, 4) = 2.0498960034213551e-01_dp
7636 fit_coef(2, 4) = 2.0657812668218858e-01_dp
7637 fit_coef(3, 4) = 1.1767379558549464e-01_dp
7638 fit_coef(4, 4) = 2.7288178413390367e-02_dp
7639 fit_coef(5, 4) = -1.0924148745488705e-02_dp
7640 fit_coef(6, 4) = -9.4432740413890777e-03_dp
7641 fit_coef(7, 4) = -5.6769752225927254e-04_dp
7642 fit_coef(8, 4) = 1.6082317938650511e-03_dp
7643 fit_coef(9, 4) = 5.6496352365318649e-04_dp
7644 fit_coef(10, 4) = -6.5204939503955980e-04_dp
7645 fit_coef(11, 4) = 2.2378537926777479e-04_dp
7646 fit_coef(12, 4) = -3.0821862755447693e-05_dp
7647 fit_coef(0, 5) = 1.7540646948915822e-01_dp
7648 fit_coef(1, 5) = 3.3841107332002812e-01_dp
7649 fit_coef(2, 5) = 3.3317753537976630e-01_dp
7650 fit_coef(3, 5) = 1.8664213256865744e-01_dp
7651 fit_coef(4, 5) = 4.2122973931643735e-02_dp
7652 fit_coef(5, 5) = -1.7653496250856538e-02_dp
7653 fit_coef(6, 5) = -1.4677820339754412e-02_dp
7654 fit_coef(7, 5) = -6.7172992100736459e-04_dp
7655 fit_coef(8, 5) = 2.5463509524145020e-03_dp
7656 fit_coef(9, 5) = 7.9689495762103719e-04_dp
7657 fit_coef(10, 5) = -9.9176850710568391e-04_dp
7658 fit_coef(11, 5) = 3.5040533908774847e-04_dp
7659 fit_coef(12, 5) = -5.0509200990651491e-05_dp
7660 fit_coef(0, 6) = 2.8403858696731338e-01_dp
7661 fit_coef(1, 6) = 5.1354379131383487e-01_dp
7662 fit_coef(2, 6) = 4.8963667336603639e-01_dp
7663 fit_coef(3, 6) = 2.6912774693427816e-01_dp
7664 fit_coef(4, 6) = 5.9724553513996380e-02_dp
7665 fit_coef(5, 6) = -2.5703789609353513e-02_dp
7666 fit_coef(6, 6) = -2.1114838016090463e-02_dp
7667 fit_coef(7, 6) = -7.0228514229756346e-04_dp
7668 fit_coef(8, 6) = 3.8581969229036879e-03_dp
7669 fit_coef(9, 6) = 1.2194767346868753e-03_dp
7670 fit_coef(10, 6) = -1.8021363838819021e-03_dp
7671 fit_coef(11, 6) = 7.5507648660773613e-04_dp
7672 fit_coef(12, 6) = -1.3075406318307264e-04_dp
7673 fit_coef(0, 7) = 4.4325614880929831e-01_dp
7674 fit_coef(1, 7) = 7.3781666079304498e-01_dp
7675 fit_coef(2, 7) = 6.7367679967887084e-01_dp
7676 fit_coef(3, 7) = 3.6132751402347024e-01_dp
7677 fit_coef(4, 7) = 8.0499595178773156e-02_dp
7678 fit_coef(5, 7) = -3.3029532312549834e-02_dp
7679 fit_coef(6, 7) = -2.8790475820923794e-02_dp
7680 fit_coef(7, 7) = -1.7795611862018949e-03_dp
7681 fit_coef(8, 7) = 5.1379466412685825e-03_dp
7682 fit_coef(9, 7) = 3.1353774828616044e-03_dp
7683 fit_coef(10, 7) = -3.3341189829340133e-03_dp
7684 fit_coef(11, 7) = 9.5780853222126921e-04_dp
7685 fit_coef(12, 7) = -4.7564006414347488e-05_dp
7686 fit_coef(0, 8) = 6.7707705919780792e-01_dp
7687 fit_coef(1, 8) = 1.0208946341910239e+00_dp
7688 fit_coef(2, 8) = 8.8225292727415439e-01_dp
7689 fit_coef(3, 8) = 4.5683990983568840e-01_dp
7690 fit_coef(4, 8) = 1.0315634645104643e-01_dp
7691 fit_coef(5, 8) = -3.6302702410040397e-02_dp
7692 fit_coef(6, 8) = -3.5178064788216744e-02_dp
7693 fit_coef(7, 8) = -5.4614672692391321e-03_dp
7694 fit_coef(8, 8) = 5.9947422484209678e-03_dp
7695 fit_coef(9, 8) = 2.7277018733018010e-03_dp
7696 fit_coef(10, 8) = 9.2005661112863006e-04_dp
7697 fit_coef(11, 8) = -2.7491424308858183e-03_dp
7698 fit_coef(12, 8) = 9.3417034494363172e-04_dp
7699 fit_coef(0, 9) = 1.0205594171746224e+00_dp
7700 fit_coef(1, 9) = 1.3737393203947723e+00_dp
7701 fit_coef(2, 9) = 1.1123746840237188e+00_dp
7702 fit_coef(3, 9) = 5.4861957447712506e-01_dp
7703 fit_coef(4, 9) = 1.2420055508662378e-01_dp
7704 fit_coef(5, 9) = -3.4071192988448372e-02_dp
7705 fit_coef(6, 9) = -3.6752879111842843e-02_dp
7706 fit_coef(7, 9) = -9.8874781786285233e-03_dp
7707 fit_coef(8, 9) = 5.0195565707678762e-03_dp
7708 fit_coef(9, 9) = -7.6508018734261539e-04_dp
7709 fit_coef(10, 9) = 7.1843501967062814e-03_dp
7710 fit_coef(11, 9) = -4.9459397204347057e-03_dp
7711 fit_coef(12, 9) = 8.9782856131910235e-04_dp
7712 fit_coef(0, 10) = 1.5244258156390766e+00_dp
7713 fit_coef(1, 10) = 1.8066993429217002e+00_dp
7714 fit_coef(2, 10) = 1.3609242838483797e+00_dp
7715 fit_coef(3, 10) = 6.3115404377443018e-01_dp
7716 fit_coef(4, 10) = 1.4030025341356947e-01_dp
7717 fit_coef(5, 10) = -2.7329038046514077e-02_dp
7718 fit_coef(6, 10) = -3.2676873494217773e-02_dp
7719 fit_coef(7, 10) = -1.1415330583361451e-02_dp
7720 fit_coef(8, 10) = -4.9009191168826780e-06_dp
7721 fit_coef(9, 10) = 1.3306667731994193e-04_dp
7722 fit_coef(10, 10) = 3.7437558621727469e-03_dp
7723 fit_coef(11, 10) = 4.8589108656243562e-04_dp
7724 fit_coef(12, 10) = -1.0469727509729387e-03_dp
7725 fit_coef(0, 11) = 2.2624235303155098e+00_dp
7726 fit_coef(1, 11) = 2.3271837597685869e+00_dp
7727 fit_coef(2, 11) = 1.6242573707008741e+00_dp
7728 fit_coef(3, 11) = 7.0131249760739722e-01_dp
7729 fit_coef(4, 11) = 1.5012768567411283e-01_dp
7730 fit_coef(5, 11) = -1.7685800296799118e-02_dp
7731 fit_coef(6, 11) = -2.4133853082992485e-02_dp
7732 fit_coef(7, 11) = -1.0124353385573369e-02_dp
7733 fit_coef(8, 11) = -5.4053355656654414e-03_dp
7734 fit_coef(9, 11) = 2.0601323692594885e-03_dp
7735 fit_coef(10, 11) = -1.9168010184212245e-03_dp
7736 fit_coef(11, 11) = 5.2635221561462978e-03_dp
7737 fit_coef(12, 11) = -2.0650943061245367e-03_dp
7738 fit_coef(0, 12) = 3.3440185138398908e+00_dp
7739 fit_coef(1, 12) = 2.9374869303015658e+00_dp
7740 fit_coef(2, 12) = 1.8986970103463769e+00_dp
7741 fit_coef(3, 12) = 7.5852460527436116e-01_dp
7742 fit_coef(4, 12) = 1.5431087315065109e-01_dp
7743 fit_coef(5, 12) = -6.2637714258166168e-03_dp
7744 fit_coef(6, 12) = -1.2867661430609648e-02_dp
7745 fit_coef(7, 12) = -7.7297513116621266e-03_dp
7746 fit_coef(8, 12) = -7.9684475195776500e-03_dp
7747 fit_coef(9, 12) = 7.0191640613392089e-04_dp
7748 fit_coef(10, 12) = -2.3205524009468916e-03_dp
7749 fit_coef(11, 12) = 4.7115703272364142e-03_dp
7750 fit_coef(12, 12) = -1.3939780575372204e-03_dp
7751 fit_coef(0, 13) = 4.9400406076482417e+00_dp
7752 fit_coef(1, 13) = 3.6338865240810336e+00_dp
7753 fit_coef(2, 13) = 2.1823364183861980e+00_dp
7754 fit_coef(3, 13) = 8.0486953703551811e-01_dp
7755 fit_coef(4, 13) = 1.5444706443796333e-01_dp
7756 fit_coef(5, 13) = 6.2245841342081663e-03_dp
7757 fit_coef(6, 13) = -4.5752093352805732e-04_dp
7758 fit_coef(7, 13) = -4.9804550111796943e-03_dp
7759 fit_coef(8, 13) = -8.4778512610873564e-03_dp
7760 fit_coef(9, 13) = -2.0214510332599842e-03_dp
7761 fit_coef(10, 13) = 2.4374313233334989e-04_dp
7762 fit_coef(11, 13) = 1.9195383981977568e-03_dp
7763 fit_coef(12, 13) = -3.7228313108121918e-04_dp
7764 fit_coef(0, 14) = 7.3492824088289943e+00_dp
7765 fit_coef(1, 14) = 4.4099530097240827e+00_dp
7766 fit_coef(2, 14) = 2.4783620449758916e+00_dp
7767 fit_coef(3, 14) = 8.4513384310546469e-01_dp
7768 fit_coef(4, 14) = 1.5211923704319483e-01_dp
7769 fit_coef(5, 14) = 1.9150817795865041e-02_dp
7770 fit_coef(6, 14) = 1.2175087669328011e-02_dp
7771 fit_coef(7, 14) = -1.9876602775734512e-03_dp
7772 fit_coef(8, 14) = -8.3964504059626105e-03_dp
7773 fit_coef(9, 14) = -3.7517484520995536e-03_dp
7774 fit_coef(10, 14) = 2.5098290732908429e-03_dp
7775 fit_coef(11, 14) = -2.2174814827198228e-04_dp
7776 fit_coef(12, 14) = 1.7762122632969973e-04_dp
7777 fit_coef(0, 15) = 1.1260372250288922e+01_dp
7778 fit_coef(1, 15) = 5.2761367256188780e+00_dp
7779 fit_coef(2, 15) = 2.8037057941841899e+00_dp
7780 fit_coef(3, 15) = 8.8780102116211801e-01_dp
7781 fit_coef(4, 15) = 1.4843982592096647e-01_dp
7782 fit_coef(5, 15) = 3.2027815482417170e-02_dp
7783 fit_coef(6, 15) = 2.5031908188376327e-02_dp
7784 fit_coef(7, 15) = 1.3905318224525349e-03_dp
7785 fit_coef(8, 15) = -8.2768851858847706e-03_dp
7786 fit_coef(9, 15) = -4.1010656916587729e-03_dp
7787 fit_coef(10, 15) = 3.7595505954445777e-03_dp
7788 fit_coef(11, 15) = -1.2076253125456195e-03_dp
7789 fit_coef(12, 15) = 2.7539917666371817e-04_dp
7790 fit_coef(0, 16) = 9.7353035224829500e-03_dp
7791 fit_coef(1, 16) = 2.0886976749800733e-02_dp
7792 fit_coef(2, 16) = 2.1755665531631045e-02_dp
7793 fit_coef(3, 16) = 1.2752382400370278e-02_dp
7794 fit_coef(4, 16) = 3.1086335160659716e-03_dp
7795 fit_coef(5, 16) = -1.1441703553915466e-03_dp
7796 fit_coef(6, 16) = -1.0600438281376386e-03_dp
7797 fit_coef(7, 16) = -8.4585212227881147e-05_dp
7798 fit_coef(8, 16) = 1.7629742631278603e-04_dp
7799 fit_coef(9, 16) = 6.8399637396386302e-05_dp
7800 fit_coef(10, 16) = -7.3517685522867944e-05_dp
7801 fit_coef(11, 16) = 2.4681600354643785e-05_dp
7802 fit_coef(12, 16) = -3.2754157510708014e-06_dp
7803 fit_coef(0, 17) = 2.3550935618358620e-02_dp
7804 fit_coef(1, 17) = 4.9522562600574506e-02_dp
7805 fit_coef(2, 17) = 5.0940261314895138e-02_dp
7806 fit_coef(3, 17) = 2.9520151355165270e-02_dp
7807 fit_coef(4, 17) = 7.0526431743143485e-03_dp
7808 fit_coef(5, 17) = -2.6886627324933282e-03_dp
7809 fit_coef(6, 17) = -2.4209379054065576e-03_dp
7810 fit_coef(7, 17) = -1.7381016208850244e-04_dp
7811 fit_coef(8, 17) = 4.0675731507373121e-04_dp
7812 fit_coef(9, 17) = 1.5152633434160025e-04_dp
7813 fit_coef(10, 17) = -1.6769671036439022e-04_dp
7814 fit_coef(11, 17) = 5.6896776687533419e-05_dp
7815 fit_coef(12, 17) = -7.6947045683246862e-06_dp
7816 fit_coef(0, 18) = 3.9777578377675531e-02_dp
7817 fit_coef(1, 18) = 8.0346278051875858e-02_dp
7818 fit_coef(2, 18) = 8.0791839568255266e-02_dp
7819 fit_coef(3, 18) = 4.5890106592349850e-02_dp
7820 fit_coef(4, 18) = 1.0581783818106148e-02_dp
7821 fit_coef(5, 18) = -4.2772167663816868e-03_dp
7822 fit_coef(6, 18) = -3.6711065186785822e-03_dp
7823 fit_coef(7, 18) = -2.1295067951996251e-04_dp
7824 fit_coef(8, 18) = 6.2748074852499950e-04_dp
7825 fit_coef(9, 18) = 2.1773104607889315e-04_dp
7826 fit_coef(10, 18) = -2.5378512352868573e-04_dp
7827 fit_coef(11, 18) = 8.7481966065534113e-05_dp
7828 fit_coef(12, 18) = -1.2141070019913610e-05_dp
7829 fit_coef(0, 19) = 6.0562131081817058e-02_dp
7830 fit_coef(1, 19) = 1.1449873938476936e-01_dp
7831 fit_coef(2, 19) = 1.1129944008292268e-01_dp
7832 fit_coef(3, 19) = 6.1560590847477989e-02_dp
7833 fit_coef(4, 19) = 1.3534891528073901e-02_dp
7834 fit_coef(5, 19) = -5.9033543536541871e-03_dp
7835 fit_coef(6, 19) = -4.7450366895801120e-03_dp
7836 fit_coef(7, 19) = -1.7764449860279051e-04_dp
7837 fit_coef(8, 19) = 8.2604161016353668e-04_dp
7838 fit_coef(9, 19) = 2.5651846839713858e-04_dp
7839 fit_coef(10, 19) = -3.2185438255892302e-04_dp
7840 fit_coef(11, 19) = 1.1225233677891509e-04_dp
7841 fit_coef(12, 19) = -1.5831921058481165e-05_dp
7842 fit_coef(0, 20) = 8.9226696029307800e-02_dp
7843 fit_coef(1, 20) = 1.5322995807536874e-01_dp
7844 fit_coef(2, 20) = 1.4178721914749884e-01_dp
7845 fit_coef(3, 20) = 7.6128391563680162e-02_dp
7846 fit_coef(4, 20) = 1.6136643158648808e-02_dp
7847 fit_coef(5, 20) = -7.5330493292977262e-03_dp
7848 fit_coef(6, 20) = -5.7529238965828419e-03_dp
7849 fit_coef(7, 20) = -1.1707762217534482e-05_dp
7850 fit_coef(8, 20) = 1.0894518853190246e-03_dp
7851 fit_coef(9, 20) = 1.8904025635640227e-04_dp
7852 fit_coef(10, 20) = -3.8503303956792745e-04_dp
7853 fit_coef(11, 20) = 1.6892465284271444e-04_dp
7854 fit_coef(12, 20) = -3.1503784546561519e-05_dp
7855 fit_coef(0, 21) = 1.3067133728179103e-01_dp
7856 fit_coef(1, 21) = 1.9826805579875501e-01_dp
7857 fit_coef(2, 21) = 1.7073403778885513e-01_dp
7858 fit_coef(3, 21) = 8.8223081054500926e-02_dp
7859 fit_coef(4, 21) = 1.9182613501886863e-02_dp
7860 fit_coef(5, 21) = -8.2278999968844989e-03_dp
7861 fit_coef(6, 21) = -7.1938427008996124e-03_dp
7862 fit_coef(7, 21) = -2.3630795339020511e-04_dp
7863 fit_coef(8, 21) = 1.4678849246082021e-03_dp
7864 fit_coef(9, 21) = 1.0431379287022221e-03_dp
7865 fit_coef(10, 21) = -1.5357712204035895e-03_dp
7866 fit_coef(11, 21) = 7.1343365682177630e-04_dp
7867 fit_coef(12, 21) = -1.2573122208893727e-04_dp
7868 fit_coef(0, 22) = 1.9171789962238633e-01_dp
7869 fit_coef(1, 22) = 2.5190501212777222e-01_dp
7870 fit_coef(2, 22) = 1.9682158960117535e-01_dp
7871 fit_coef(3, 22) = 9.5068036046292548e-02_dp
7872 fit_coef(4, 22) = 2.2164921662634080e-02_dp
7873 fit_coef(5, 22) = -5.7919264320229974e-03_dp
7874 fit_coef(6, 22) = -7.7045178800915467e-03_dp
7875 fit_coef(7, 22) = -2.2724175760734976e-03_dp
7876 fit_coef(8, 22) = 1.0118193318505186e-03_dp
7877 fit_coef(9, 22) = 2.0169812523148983e-03_dp
7878 fit_coef(10, 22) = -9.2577594680840871e-06_dp
7879 fit_coef(11, 22) = -1.3014429778002868e-03_dp
7880 fit_coef(12, 22) = 5.2474898728580737e-04_dp
7881 fit_coef(0, 23) = 2.8169225019506716e-01_dp
7882 fit_coef(1, 23) = 3.1611118986493281e-01_dp
7883 fit_coef(2, 23) = 2.1983832131612513e-01_dp
7884 fit_coef(3, 23) = 9.4742330833316193e-02_dp
7885 fit_coef(4, 23) = 2.2513794210120210e-02_dp
7886 fit_coef(5, 23) = -5.0847893755973886e-04_dp
7887 fit_coef(6, 23) = -4.3926536784528831e-03_dp
7888 fit_coef(7, 23) = -4.7592264209054850e-03_dp
7889 fit_coef(8, 23) = 5.4373390930081153e-04_dp
7890 fit_coef(9, 23) = -3.2404033623214612e-03_dp
7891 fit_coef(10, 23) = 7.9533405554355376e-03_dp
7892 fit_coef(11, 23) = -5.0278147899489754e-03_dp
7893 fit_coef(12, 23) = 1.0211564000482632e-03_dp
7894 fit_coef(0, 24) = 4.1360870667704458e-01_dp
7895 fit_coef(1, 24) = 3.9134279925186166e-01_dp
7896 fit_coef(2, 24) = 2.3989520225411959e-01_dp
7897 fit_coef(3, 24) = 8.7887165884511398e-02_dp
7898 fit_coef(4, 24) = 1.8986346126332081e-02_dp
7899 fit_coef(5, 24) = 4.7658422103979536e-03_dp
7900 fit_coef(6, 24) = 1.3492788485409764e-03_dp
7901 fit_coef(7, 24) = -3.3357808918414787e-03_dp
7902 fit_coef(8, 24) = -3.1088669483680088e-03_dp
7903 fit_coef(9, 24) = -1.8511419844152608e-03_dp
7904 fit_coef(10, 24) = 1.7736202675366283e-03_dp
7905 fit_coef(11, 24) = 2.1114330344624466e-03_dp
7906 fit_coef(12, 24) = -1.3226303250553409e-03_dp
7907 fit_coef(0, 25) = 6.0621802446427508e-01_dp
7908 fit_coef(1, 25) = 4.7585064174951042e-01_dp
7909 fit_coef(2, 25) = 2.5658915757225498e-01_dp
7910 fit_coef(3, 25) = 7.6658354342588539e-02_dp
7911 fit_coef(4, 25) = 1.2995988704122139e-02_dp
7912 fit_coef(5, 25) = 8.4318408777111463e-03_dp
7913 fit_coef(6, 25) = 6.5820665925556696e-03_dp
7914 fit_coef(7, 25) = 1.8845523065198023e-04_dp
7915 fit_coef(8, 25) = -6.1170321098400040e-03_dp
7916 fit_coef(9, 25) = 2.6963328854067922e-03_dp
7917 fit_coef(10, 25) = -6.7464598603185540e-03_dp
7918 fit_coef(11, 25) = 6.8191427136023554e-03_dp
7919 fit_coef(12, 25) = -1.9275464800632919e-03_dp
7920 fit_coef(0, 26) = 8.8764155033206149e-01_dp
7921 fit_coef(1, 26) = 5.6552140990150657e-01_dp
7922 fit_coef(2, 26) = 2.6943393742267280e-01_dp
7923 fit_coef(3, 26) = 6.3561620296985116e-02_dp
7924 fit_coef(4, 26) = 6.7821546029915858e-03_dp
7925 fit_coef(5, 26) = 1.0671885911308030e-02_dp
7926 fit_coef(6, 26) = 1.0202617186318210e-02_dp
7927 fit_coef(7, 26) = 2.0623230180061023e-03_dp
7928 fit_coef(8, 26) = -4.0999080350069333e-03_dp
7929 fit_coef(9, 26) = 3.3757569259654344e-04_dp
7930 fit_coef(10, 26) = -3.2168362434274113e-03_dp
7931 fit_coef(11, 26) = 1.9561977675803606e-03_dp
7932 fit_coef(12, 26) = -1.0127854359087637e-05_dp
7933 fit_coef(0, 27) = 1.3031121163620227e+00_dp
7934 fit_coef(1, 27) = 6.5442627957957644e-01_dp
7935 fit_coef(2, 27) = 2.7907544789512745e-01_dp
7936 fit_coef(3, 27) = 5.1209194718773846e-02_dp
7937 fit_coef(4, 27) = 1.8680237447576146e-03_dp
7938 fit_coef(5, 27) = 1.2060225663826541e-02_dp
7939 fit_coef(6, 27) = 1.2057587702851754e-02_dp
7940 fit_coef(7, 27) = 2.6179284359982300e-03_dp
7941 fit_coef(8, 27) = -1.2404837715336242e-03_dp
7942 fit_coef(9, 27) = -2.5831650098316326e-03_dp
7943 fit_coef(10, 27) = 1.8086181493242913e-03_dp
7944 fit_coef(11, 27) = -2.3645920962560019e-03_dp
7945 fit_coef(12, 27) = 1.0746225263111922e-03_dp
7946 fit_coef(0, 28) = 1.9357875429827360e+00_dp
7947 fit_coef(1, 28) = 7.3707936760259829e-01_dp
7948 fit_coef(2, 28) = 2.8863411383043175e-01_dp
7949 fit_coef(3, 28) = 4.2272421989736957e-02_dp
7950 fit_coef(4, 28) = -1.3236760602961552e-03_dp
7951 fit_coef(5, 28) = 1.2811295424819810e-02_dp
7952 fit_coef(6, 28) = 1.2606618885406514e-02_dp
7953 fit_coef(7, 28) = 2.8686367951981208e-03_dp
7954 fit_coef(8, 28) = -4.2949161661710804e-05_dp
7955 fit_coef(9, 28) = -2.4420917937843715e-03_dp
7956 fit_coef(10, 28) = 2.7346339142362607e-03_dp
7957 fit_coef(11, 28) = -2.7192205830173727e-03_dp
7958 fit_coef(12, 28) = 8.3334329375208966e-04_dp
7959 fit_coef(0, 29) = 2.9813305217729247e+00_dp
7960 fit_coef(1, 29) = 8.1556707900662084e-01_dp
7961 fit_coef(2, 29) = 3.0574250813204679e-01_dp
7962 fit_coef(3, 29) = 3.9576605747462988e-02_dp
7963 fit_coef(4, 29) = -3.1516191139201481e-03_dp
7964 fit_coef(5, 29) = 1.2947548079823706e-02_dp
7965 fit_coef(6, 29) = 1.2648514261782698e-02_dp
7966 fit_coef(7, 29) = 3.1343334418898880e-03_dp
7967 fit_coef(8, 29) = 1.2305058520847782e-04_dp
7968 fit_coef(9, 29) = -9.8020686398801802e-04_dp
7969 fit_coef(10, 29) = 1.7095022610177765e-03_dp
7970 fit_coef(11, 29) = -1.5105150611297968e-03_dp
7971 fit_coef(12, 29) = 2.8195377606949853e-04_dp
7972 fit_coef(0, 30) = 5.1939564822259765e+00_dp
7973 fit_coef(1, 30) = 9.3452037903374208e-01_dp
7974 fit_coef(2, 30) = 3.5551447159259092e-01_dp
7975 fit_coef(3, 30) = 4.8826933534516080e-02_dp
7976 fit_coef(4, 30) = -4.0672239419310479e-03_dp
7977 fit_coef(5, 30) = 1.2876916535847991e-02_dp
7978 fit_coef(6, 30) = 1.3347608970308627e-02_dp
7979 fit_coef(7, 30) = 3.7439290651003427e-03_dp
7980 fit_coef(8, 30) = 1.3798569341874731e-04_dp
7981 fit_coef(9, 30) = 1.7467286573212931e-04_dp
7982 fit_coef(10, 30) = 9.2180740758796703e-04_dp
7983 fit_coef(11, 30) = -5.6981792340525463e-04_dp
7984 fit_coef(12, 30) = -3.5378278861525159e-05_dp
7985
7986 END SUBROUTINE get_fit_coef_k15_sh
7987
7988! **************************************************************************************************
7989!> \brief ...
7990!> \param k ...
7991!> \param fit_coef ...
7992!> \param L_b ...
7993!> \param U_b ...
7994! **************************************************************************************************
7995 SUBROUTINE get_fit_coef_k15_mi(k, fit_coef, L_b, U_b)
7996 INTEGER :: k
7997 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
7998 REAL(kind=dp) :: l_b, u_b
7999
8000 l_b = 1.0000000000000000e+02_dp
8001 u_b = 1.1738988511192356e+03_dp
8002 fit_coef(0, 1) = 5.0212735786207190e-04_dp
8003 fit_coef(1, 1) = 1.4715598436560518e-03_dp
8004 fit_coef(2, 1) = 2.1503966610512443e-03_dp
8005 fit_coef(3, 1) = 1.8763892029773810e-03_dp
8006 fit_coef(4, 1) = 8.9509317267188646e-04_dp
8007 fit_coef(5, 1) = 4.4252413515572752e-05_dp
8008 fit_coef(6, 1) = -1.9929035057866966e-04_dp
8009 fit_coef(7, 1) = -5.0485804346307633e-05_dp
8010 fit_coef(8, 1) = 4.3968375574232470e-05_dp
8011 fit_coef(9, 1) = 5.5154425679931483e-05_dp
8012 fit_coef(10, 1) = -7.3825809523082769e-05_dp
8013 fit_coef(11, 1) = 3.4418190236750298e-05_dp
8014 fit_coef(12, 1) = -6.1654048128061428e-06_dp
8015 fit_coef(0, 2) = 2.7813466099976822e-03_dp
8016 fit_coef(1, 2) = 7.9639349588492489e-03_dp
8017 fit_coef(2, 2) = 1.1498418447714263e-02_dp
8018 fit_coef(3, 2) = 9.9309054844448665e-03_dp
8019 fit_coef(4, 2) = 4.6793464572880547e-03_dp
8020 fit_coef(5, 2) = 2.0134378481332076e-04_dp
8021 fit_coef(6, 2) = -1.0461830621068451e-03_dp
8022 fit_coef(7, 2) = -2.5547396359220325e-04_dp
8023 fit_coef(8, 2) = 2.3777699827707836e-04_dp
8024 fit_coef(9, 2) = 2.7502067371517350e-04_dp
8025 fit_coef(10, 2) = -3.7882475853089022e-04_dp
8026 fit_coef(11, 2) = 1.7838098098998129e-04_dp
8027 fit_coef(12, 2) = -3.2173474626321743e-05_dp
8028 fit_coef(0, 3) = 7.5356589508119715e-03_dp
8029 fit_coef(1, 3) = 2.0547011268364480e-02_dp
8030 fit_coef(2, 3) = 2.8986632022747129e-02_dp
8031 fit_coef(3, 3) = 2.4585742824888547e-02_dp
8032 fit_coef(4, 3) = 1.1332324461894762e-02_dp
8033 fit_coef(5, 3) = 3.5501376638767630e-04_dp
8034 fit_coef(6, 3) = -2.5488497267062661e-03_dp
8035 fit_coef(7, 3) = -5.7872409900516482e-04_dp
8036 fit_coef(8, 3) = 6.0733088515269604e-04_dp
8037 fit_coef(9, 3) = 6.0352400231591973e-04_dp
8038 fit_coef(10, 3) = -8.7889897017369044e-04_dp
8039 fit_coef(11, 3) = 4.2107155921709870e-04_dp
8040 fit_coef(12, 3) = -7.6791853388456923e-05_dp
8041 fit_coef(0, 4) = 1.6293654129500710e-02_dp
8042 fit_coef(1, 4) = 4.1034183058244827e-02_dp
8043 fit_coef(2, 4) = 5.5669340450143955e-02_dp
8044 fit_coef(3, 4) = 4.5958232995003026e-02_dp
8045 fit_coef(4, 4) = 2.0631055086044563e-02_dp
8046 fit_coef(5, 4) = 3.6554527705558160e-04_dp
8047 fit_coef(6, 4) = -4.7143452832445311e-03_dp
8048 fit_coef(7, 4) = -9.9264691382352382e-04_dp
8049 fit_coef(8, 4) = 1.2322009627532241e-03_dp
8050 fit_coef(9, 4) = 9.8185260435618648e-04_dp
8051 fit_coef(10, 4) = -1.5959947544011608e-03_dp
8052 fit_coef(11, 4) = 7.9825857947420098e-04_dp
8053 fit_coef(12, 4) = -1.5065823877361689e-04_dp
8054 fit_coef(0, 5) = 3.2116880043710744e-02_dp
8055 fit_coef(1, 5) = 7.2781942537050448e-02_dp
8056 fit_coef(2, 5) = 9.3125631841889350e-02_dp
8057 fit_coef(3, 5) = 7.3591074240215937e-02_dp
8058 fit_coef(4, 5) = 3.1935152140736278e-02_dp
8059 fit_coef(5, 5) = 4.5831309250835472e-04_dp
8060 fit_coef(6, 5) = -7.2579368033050861e-03_dp
8061 fit_coef(7, 5) = -1.5242456005729315e-03_dp
8062 fit_coef(8, 5) = 1.3880778676825922e-03_dp
8063 fit_coef(9, 5) = 2.2376670079413724e-03_dp
8064 fit_coef(10, 5) = -2.8229103749250520e-03_dp
8065 fit_coef(11, 5) = 1.2683701333535493e-03_dp
8066 fit_coef(12, 5) = -2.1655233738863679e-04_dp
8067 fit_coef(0, 6) = 6.0477196624071472e-02_dp
8068 fit_coef(1, 6) = 1.2125095461882505e-01_dp
8069 fit_coef(2, 6) = 1.4404594415379110e-01_dp
8070 fit_coef(3, 6) = 1.0653676582778267e-01_dp
8071 fit_coef(4, 6) = 4.3372431118558187e-02_dp
8072 fit_coef(5, 6) = 4.1288606887333705e-04_dp
8073 fit_coef(6, 6) = -8.8579280488838095e-03_dp
8074 fit_coef(7, 6) = -2.2179852026296800e-03_dp
8075 fit_coef(8, 6) = 2.0958278133874500e-03_dp
8076 fit_coef(9, 6) = 6.9556540802001902e-04_dp
8077 fit_coef(10, 6) = -7.7943766158600528e-04_dp
8078 fit_coef(11, 6) = 1.1446740869183900e-04_dp
8079 fit_coef(12, 6) = 2.7632689805845764e-05_dp
8080 fit_coef(0, 7) = 1.1064399319041990e-01_dp
8081 fit_coef(1, 7) = 1.9418438863145457e-01_dp
8082 fit_coef(2, 7) = 2.1228094292888233e-01_dp
8083 fit_coef(3, 7) = 1.4399775783971039e-01_dp
8084 fit_coef(4, 7) = 5.2541209241390302e-02_dp
8085 fit_coef(5, 7) = -9.2537655514377752e-04_dp
8086 fit_coef(6, 7) = -9.0102109734644890e-03_dp
8087 fit_coef(7, 7) = -1.8871157279751268e-03_dp
8088 fit_coef(8, 7) = 3.1309099680042760e-03_dp
8089 fit_coef(9, 7) = -2.5004066194694607e-03_dp
8090 fit_coef(10, 7) = 1.5656511931140620e-03_dp
8091 fit_coef(11, 7) = -4.6135496029970502e-04_dp
8092 fit_coef(12, 7) = 3.2764384769675960e-05_dp
8093 fit_coef(0, 8) = 1.9798263302865093e-01_dp
8094 fit_coef(1, 8) = 3.0162627763842398e-01_dp
8095 fit_coef(2, 8) = 3.0217808443088900e-01_dp
8096 fit_coef(3, 8) = 1.8500065299157431e-01_dp
8097 fit_coef(4, 8) = 5.7340548130963523e-02_dp
8098 fit_coef(5, 8) = -4.3765501944754721e-03_dp
8099 fit_coef(6, 8) = -7.8869300696153017e-03_dp
8100 fit_coef(7, 8) = 1.3835188624175719e-04_dp
8101 fit_coef(8, 8) = 3.3750918634805581e-03_dp
8102 fit_coef(9, 8) = -5.0244120026273721e-03_dp
8103 fit_coef(10, 8) = 2.8097352620888730e-03_dp
8104 fit_coef(11, 8) = -4.8749664373366714e-04_dp
8105 fit_coef(12, 8) = -3.4446077687337908e-05_dp
8106 fit_coef(0, 9) = 3.4762598832467834e-01_dp
8107 fit_coef(1, 9) = 4.5573634191690915e-01_dp
8108 fit_coef(2, 9) = 4.1780164140817255e-01_dp
8109 fit_coef(3, 9) = 2.2768957404533277e-01_dp
8110 fit_coef(4, 9) = 5.5879258865385507e-02_dp
8111 fit_coef(5, 9) = -9.9081094692702303e-03_dp
8112 fit_coef(6, 9) = -5.0068528611206149e-03_dp
8113 fit_coef(7, 9) = 3.0160271964011468e-03_dp
8114 fit_coef(8, 9) = 3.6222265118699710e-03_dp
8115 fit_coef(9, 9) = -8.8397638670103182e-03_dp
8116 fit_coef(10, 9) = 5.9259674015836239e-03_dp
8117 fit_coef(11, 9) = -1.7478385304278991e-03_dp
8118 fit_coef(12, 9) = 1.9988838059233530e-04_dp
8119 fit_coef(0, 10) = 6.0023140973611755e-01_dp
8120 fit_coef(1, 10) = 6.6999181383267858e-01_dp
8121 fit_coef(2, 10) = 5.6210771610729648e-01_dp
8122 fit_coef(3, 10) = 2.6900784986520249e-01_dp
8123 fit_coef(4, 10) = 4.6435418682624782e-02_dp
8124 fit_coef(5, 10) = -1.6642885693320342e-02_dp
8125 fit_coef(6, 10) = 3.8014327565738168e-04_dp
8126 fit_coef(7, 10) = 6.2610253146593775e-03_dp
8127 fit_coef(8, 10) = 3.2146802606417453e-03_dp
8128 fit_coef(9, 10) = -1.3711754453203115e-02_dp
8129 fit_coef(10, 10) = 1.1099834233825179e-02_dp
8130 fit_coef(11, 10) = -4.2111321446896338e-03_dp
8131 fit_coef(12, 10) = 6.7715733841587470e-04_dp
8132 fit_coef(0, 11) = 1.0210655880657196e+00_dp
8133 fit_coef(1, 11) = 9.5730192228839006e-01_dp
8134 fit_coef(2, 11) = 7.3607353846396317e-01_dp
8135 fit_coef(3, 11) = 3.0496319982420517e-01_dp
8136 fit_coef(4, 11) = 2.7825470684213698e-02_dp
8137 fit_coef(5, 11) = -2.3036487360505412e-02_dp
8138 fit_coef(6, 11) = 9.0002346429021024e-03_dp
8139 fit_coef(7, 11) = 9.4071699260299454e-03_dp
8140 fit_coef(8, 11) = 1.1246072531079006e-03_dp
8141 fit_coef(9, 11) = -1.8600382884449367e-02_dp
8142 fit_coef(10, 11) = 1.7805450549655721e-02_dp
8143 fit_coef(11, 11) = -7.6910226916182545e-03_dp
8144 fit_coef(12, 11) = 1.3712121437792250e-03_dp
8145 fit_coef(0, 12) = 1.7149561293339615e+00_dp
8146 fit_coef(1, 12) = 1.3267744256882403e+00_dp
8147 fit_coef(2, 12) = 9.3812895165305032e-01_dp
8148 fit_coef(3, 12) = 3.3164771999234482e-01_dp
8149 fit_coef(4, 12) = -4.9178162808578741e-05_dp
8150 fit_coef(5, 12) = -2.7249300178168019e-02_dp
8151 fit_coef(6, 12) = 2.1205458082480019e-02_dp
8152 fit_coef(7, 12) = 1.1807990512194026e-02_dp
8153 fit_coef(8, 12) = -3.3661868556830038e-03_dp
8154 fit_coef(9, 12) = -2.2430236127638940e-02_dp
8155 fit_coef(10, 12) = 2.5486188136087912e-02_dp
8156 fit_coef(11, 12) = -1.2102581018395429e-02_dp
8157 fit_coef(12, 12) = 2.3004381707239473e-03_dp
8158 fit_coef(0, 13) = 2.8539608561967360e+00_dp
8159 fit_coef(1, 13) = 1.7797688368810891e+00_dp
8160 fit_coef(2, 13) = 1.1646443061164560e+00_dp
8161 fit_coef(3, 13) = 3.4701820688332419e-01_dp
8162 fit_coef(4, 13) = -3.5929878683565182e-02_dp
8163 fit_coef(5, 13) = -2.7887790242899075e-02_dp
8164 fit_coef(6, 13) = 3.6702245498739489e-02_dp
8165 fit_coef(7, 13) = 1.2908675248958822e-02_dp
8166 fit_coef(8, 13) = -1.0507576982805505e-02_dp
8167 fit_coef(9, 13) = -2.4256099909163161e-02_dp
8168 fit_coef(10, 13) = 3.3404768253646827e-02_dp
8169 fit_coef(11, 13) = -1.7212687576065637e-02_dp
8170 fit_coef(12, 13) = 3.4428516812536531e-03_dp
8171 fit_coef(0, 14) = 4.7432936777438393e+00_dp
8172 fit_coef(1, 14) = 2.3082382103412251e+00_dp
8173 fit_coef(2, 14) = 1.4124938166206138e+00_dp
8174 fit_coef(3, 14) = 3.5283333252051396e-01_dp
8175 fit_coef(4, 14) = -7.7696363994240056e-02_dp
8176 fit_coef(5, 14) = -2.4914689387708116e-02_dp
8177 fit_coef(6, 14) = 5.4698262510218663e-02_dp
8178 fit_coef(7, 14) = 1.2640616949106807e-02_dp
8179 fit_coef(8, 14) = -1.9941323208816249e-02_dp
8180 fit_coef(9, 14) = -2.3878392941469071e-02_dp
8181 fit_coef(10, 14) = 4.1055603040417131e-02_dp
8182 fit_coef(11, 14) = -2.2734874408993563e-02_dp
8183 fit_coef(12, 14) = 4.7400588393736497e-03_dp
8184 fit_coef(0, 15) = 8.0710112216342775e+00_dp
8185 fit_coef(1, 15) = 2.9055595870824633e+00_dp
8186 fit_coef(2, 15) = 1.6866060964430423e+00_dp
8187 fit_coef(3, 15) = 3.5581815059695143e-01_dp
8188 fit_coef(4, 15) = -1.2393245100043256e-01_dp
8189 fit_coef(5, 15) = -2.0058383552301023e-02_dp
8190 fit_coef(6, 15) = 7.4640422271172679e-02_dp
8191 fit_coef(7, 15) = 1.1638820236828815e-02_dp
8192 fit_coef(8, 15) = -3.0928127527058424e-02_dp
8193 fit_coef(9, 15) = -2.2331476973823049e-02_dp
8194 fit_coef(10, 15) = 4.8851141745373840e-02_dp
8195 fit_coef(11, 15) = -2.8681346469043273e-02_dp
8196 fit_coef(12, 15) = 6.1686347014912515e-03_dp
8197 fit_coef(0, 16) = 1.3032066476244642e-03_dp
8198 fit_coef(1, 16) = 3.8001657920981851e-03_dp
8199 fit_coef(2, 16) = 5.5378064823689123e-03_dp
8200 fit_coef(3, 16) = 4.8206577899485006e-03_dp
8201 fit_coef(4, 16) = 2.2930144045863621e-03_dp
8202 fit_coef(5, 16) = 1.0986261495124486e-04_dp
8203 fit_coef(6, 16) = -5.1106328320878528e-04_dp
8204 fit_coef(7, 16) = -1.2833639292522648e-04_dp
8205 fit_coef(8, 16) = 1.1356979226852716e-04_dp
8206 fit_coef(9, 16) = 1.3973942184720303e-04_dp
8207 fit_coef(10, 16) = -1.8830360701542777e-04_dp
8208 fit_coef(11, 16) = 8.7997162572425538e-05_dp
8209 fit_coef(12, 16) = -1.5788992466518323e-05_dp
8210 fit_coef(0, 17) = 3.3544869799214628e-03_dp
8211 fit_coef(1, 17) = 9.3282083632741895e-03_dp
8212 fit_coef(2, 17) = 1.3271370703308300e-02_dp
8213 fit_coef(3, 17) = 1.1319835500098886e-02_dp
8214 fit_coef(4, 17) = 5.2524178309963383e-03_dp
8215 fit_coef(5, 17) = 1.8435087221054173e-04_dp
8216 fit_coef(6, 17) = -1.1797404048471125e-03_dp
8217 fit_coef(7, 17) = -2.7516373364939583e-04_dp
8218 fit_coef(8, 17) = 2.7734414812233385e-04_dp
8219 fit_coef(9, 17) = 2.9073439175898594e-04_dp
8220 fit_coef(10, 17) = -4.1550528469613449e-04_dp
8221 fit_coef(11, 17) = 1.9807893770328183e-04_dp
8222 fit_coef(12, 17) = -3.6025500379600989e-05_dp
8223 fit_coef(0, 18) = 6.3980511048867201e-03_dp
8224 fit_coef(1, 18) = 1.6128813328333793e-02_dp
8225 fit_coef(2, 18) = 2.1881033183460945e-02_dp
8226 fit_coef(3, 18) = 1.8021417293275506e-02_dp
8227 fit_coef(4, 18) = 8.0169003498435417e-03_dp
8228 fit_coef(5, 18) = 8.7835720128096682e-05_dp
8229 fit_coef(6, 18) = -1.8255106100472426e-03_dp
8230 fit_coef(7, 18) = -3.5831804749509092e-04_dp
8231 fit_coef(8, 18) = 4.8285099003593436e-04_dp
8232 fit_coef(9, 18) = 3.2465264639707240e-04_dp
8233 fit_coef(10, 18) = -5.5521076066674020e-04_dp
8234 fit_coef(11, 18) = 2.7719905231653717e-04_dp
8235 fit_coef(12, 18) = -5.1820236344809990e-05_dp
8236 fit_coef(0, 19) = 1.1614376264492066e-02_dp
8237 fit_coef(1, 19) = 2.5394323464202898e-02_dp
8238 fit_coef(2, 19) = 3.1733081124309684e-02_dp
8239 fit_coef(3, 19) = 2.4647015498881791e-02_dp
8240 fit_coef(4, 19) = 1.0500322632906088e-02_dp
8241 fit_coef(5, 19) = -1.2365877291301032e-05_dp
8242 fit_coef(6, 19) = -2.4904038430234622e-03_dp
8243 fit_coef(7, 19) = -4.8516369798151703e-04_dp
8244 fit_coef(8, 19) = 6.1030277836899595e-04_dp
8245 fit_coef(9, 19) = 7.4056213117855896e-04_dp
8246 fit_coef(10, 19) = -1.1330531422737624e-03_dp
8247 fit_coef(11, 19) = 5.8028785292689455e-04_dp
8248 fit_coef(12, 19) = -1.1292938481673382e-04_dp
8249 fit_coef(0, 20) = 2.0921907643278354e-02_dp
8250 fit_coef(1, 20) = 3.9009588349526253e-02_dp
8251 fit_coef(2, 20) = 4.3627398050961781e-02_dp
8252 fit_coef(3, 20) = 3.0443034676393681e-02_dp
8253 fit_coef(4, 20) = 1.1774589070303968e-02_dp
8254 fit_coef(5, 20) = 1.7741503302715373e-04_dp
8255 fit_coef(6, 20) = -2.3187359164888160e-03_dp
8256 fit_coef(7, 20) = -6.1637368205092694e-04_dp
8257 fit_coef(8, 20) = -5.3221714109514493e-05_dp
8258 fit_coef(9, 20) = 8.1942339340144803e-04_dp
8259 fit_coef(10, 20) = -2.2354982629820732e-04_dp
8260 fit_coef(11, 20) = -2.0305492301268794e-04_dp
8261 fit_coef(12, 20) = 9.4193850816527892e-05_dp
8262 fit_coef(0, 21) = 3.7306315930286466e-02_dp
8263 fit_coef(1, 21) = 5.9218420616905736e-02_dp
8264 fit_coef(2, 21) = 5.8868131527264646e-02_dp
8265 fit_coef(3, 21) = 3.5324612409341802e-02_dp
8266 fit_coef(4, 21) = 1.0684265753661753e-02_dp
8267 fit_coef(5, 21) = -4.9371106930299301e-04_dp
8268 fit_coef(6, 21) = -8.1292928450316614e-04_dp
8269 fit_coef(7, 21) = -5.1619725924012061e-04_dp
8270 fit_coef(8, 21) = 1.3804573307375741e-03_dp
8271 fit_coef(9, 21) = -3.4663308659499629e-03_dp
8272 fit_coef(10, 21) = 3.3745183791109305e-03_dp
8273 fit_coef(11, 21) = -1.4291379899595120e-03_dp
8274 fit_coef(12, 21) = 2.2454897381750800e-04_dp
8275 fit_coef(0, 22) = 6.5528592554674012e-02_dp
8276 fit_coef(1, 22) = 8.8324441729528691e-02_dp
8277 fit_coef(2, 22) = 7.8339185211631426e-02_dp
8278 fit_coef(3, 22) = 3.9448552741652813e-02_dp
8279 fit_coef(4, 22) = 7.3083551980621516e-03_dp
8280 fit_coef(5, 22) = -2.3247267042822940e-03_dp
8281 fit_coef(6, 22) = 4.5294755854382923e-04_dp
8282 fit_coef(7, 22) = 1.2969150143151570e-03_dp
8283 fit_coef(8, 22) = 4.6541067893071160e-04_dp
8284 fit_coef(9, 22) = -2.5032569665157803e-03_dp
8285 fit_coef(10, 22) = 1.1684561968462262e-03_dp
8286 fit_coef(11, 22) = 1.5370128957771531e-04_dp
8287 fit_coef(12, 22) = -1.4620664545141759e-04_dp
8288 fit_coef(0, 23) = 1.1324428651781197e-01_dp
8289 fit_coef(1, 23) = 1.2859806173609753e-01_dp
8290 fit_coef(2, 23) = 1.0214609707305304e-01_dp
8291 fit_coef(3, 23) = 4.2253398459926365e-02_dp
8292 fit_coef(4, 23) = 1.9762536371264882e-03_dp
8293 fit_coef(5, 23) = -4.5714996217850632e-03_dp
8294 fit_coef(6, 23) = 1.8868500721209416e-03_dp
8295 fit_coef(7, 23) = 2.5695589529597719e-03_dp
8296 fit_coef(8, 23) = 2.3850425890078301e-04_dp
8297 fit_coef(9, 23) = -3.0200640644662698e-03_dp
8298 fit_coef(10, 23) = 1.9503667616499671e-03_dp
8299 fit_coef(11, 23) = -5.5257674937112412e-04_dp
8300 fit_coef(12, 23) = 7.8113401323294423e-05_dp
8301 fit_coef(0, 24) = 1.9267245469427555e-01_dp
8302 fit_coef(1, 24) = 1.8189882938781768e-01_dp
8303 fit_coef(2, 24) = 1.2960901455552834e-01_dp
8304 fit_coef(3, 24) = 4.2611091038268031e-02_dp
8305 fit_coef(4, 24) = -5.1926218101019609e-03_dp
8306 fit_coef(5, 24) = -6.3425612842204224e-03_dp
8307 fit_coef(6, 24) = 4.0010538098000379e-03_dp
8308 fit_coef(7, 24) = 3.1214642561276981e-03_dp
8309 fit_coef(8, 24) = 1.0563824093820107e-04_dp
8310 fit_coef(9, 24) = -4.5110524003026762e-03_dp
8311 fit_coef(10, 24) = 4.2402114420073420e-03_dp
8312 fit_coef(11, 24) = -1.9163626754183359e-03_dp
8313 fit_coef(12, 24) = 3.6969348039378312e-04_dp
8314 fit_coef(0, 25) = 3.2317976642569807e-01_dp
8315 fit_coef(1, 25) = 2.4881850229416846e-01_dp
8316 fit_coef(2, 25) = 1.5917736470901570e-01_dp
8317 fit_coef(3, 25) = 3.9343328717200927e-02_dp
8318 fit_coef(4, 25) = -1.3902519808734082e-02_dp
8319 fit_coef(5, 25) = -6.8640926105066162e-03_dp
8320 fit_coef(6, 25) = 6.9006071006695079e-03_dp
8321 fit_coef(7, 25) = 3.2927740290179990e-03_dp
8322 fit_coef(8, 25) = -1.0983902176266030e-03_dp
8323 fit_coef(9, 25) = -5.0555007528979004e-03_dp
8324 fit_coef(10, 25) = 6.0190910606148324e-03_dp
8325 fit_coef(11, 25) = -2.9821080457428841e-03_dp
8326 fit_coef(12, 25) = 5.8221139171923042e-04_dp
8327 fit_coef(0, 26) = 5.3554089995575782e-01_dp
8328 fit_coef(1, 26) = 3.2739155636224210e-01_dp
8329 fit_coef(2, 26) = 1.8848689258384349e-01_dp
8330 fit_coef(3, 26) = 3.1884980883658924e-02_dp
8331 fit_coef(4, 26) = -2.3339754433360369e-02_dp
8332 fit_coef(5, 26) = -5.6037573210389264e-03_dp
8333 fit_coef(6, 26) = 1.0403698986274485e-02_dp
8334 fit_coef(7, 26) = 2.8865920265869838e-03_dp
8335 fit_coef(8, 26) = -3.2033768610669569e-03_dp
8336 fit_coef(9, 26) = -4.5416607006448602e-03_dp
8337 fit_coef(10, 26) = 7.3043246118188162e-03_dp
8338 fit_coef(11, 26) = -3.9689298970288006e-03_dp
8339 fit_coef(12, 26) = 8.1056551195733142e-04_dp
8340 fit_coef(0, 27) = 8.8000603036746139e-01_dp
8341 fit_coef(1, 27) = 4.1182532361787932e-01_dp
8342 fit_coef(2, 27) = 2.1497937217091584e-01_dp
8343 fit_coef(3, 27) = 2.1108047064593377e-02_dp
8344 fit_coef(4, 27) = -3.2191882260831459e-02_dp
8345 fit_coef(5, 27) = -2.5724974235411323e-03_dp
8346 fit_coef(6, 27) = 1.3955680448193437e-02_dp
8347 fit_coef(7, 27) = 1.8152463536498431e-03_dp
8348 fit_coef(8, 27) = -5.8233926497395817e-03_dp
8349 fit_coef(9, 27) = -2.9482077294913736e-03_dp
8350 fit_coef(10, 27) = 7.9261411558925292e-03_dp
8351 fit_coef(11, 27) = -4.8132854344172145e-03_dp
8352 fit_coef(12, 27) = 1.0440601147544259e-03_dp
8353 fit_coef(0, 28) = 1.4460627242259527e+00_dp
8354 fit_coef(1, 28) = 4.9271419953901929e-01_dp
8355 fit_coef(2, 28) = 2.3743318711644951e-01_dp
8356 fit_coef(3, 28) = 9.9076815053936729e-03_dp
8357 fit_coef(4, 28) = -3.9191794449869852e-02_dp
8358 fit_coef(5, 28) = 1.3099534113565326e-03_dp
8359 fit_coef(6, 28) = 1.6894034568497723e-02_dp
8360 fit_coef(7, 28) = 3.7043982265874470e-04_dp
8361 fit_coef(8, 28) = -8.3968062748629741e-03_dp
8362 fit_coef(9, 28) = -6.6028855186588131e-04_dp
8363 fit_coef(10, 28) = 7.8140284723942129e-03_dp
8364 fit_coef(11, 28) = -5.3528674153974880e-03_dp
8365 fit_coef(12, 28) = 1.2297837544111832e-03_dp
8366 fit_coef(0, 29) = 2.4319559958545311e+00_dp
8367 fit_coef(1, 29) = 5.6229813567117626e-01_dp
8368 fit_coef(2, 29) = 2.5870101698993758e-01_dp
8369 fit_coef(3, 29) = 2.8306941439785287e-03_dp
8370 fit_coef(4, 29) = -4.4047429705758694e-02_dp
8371 fit_coef(5, 29) = 4.3384122634558238e-03_dp
8372 fit_coef(6, 29) = 1.8978692315301807e-02_dp
8373 fit_coef(7, 29) = -7.9790741322960021e-04_dp
8374 fit_coef(8, 29) = -1.0330971785215522e-02_dp
8375 fit_coef(9, 29) = 1.2390333347493327e-03_dp
8376 fit_coef(10, 29) = 7.5464073935277154e-03_dp
8377 fit_coef(11, 29) = -5.6851817992854548e-03_dp
8378 fit_coef(12, 29) = 1.3586302192394280e-03_dp
8379 fit_coef(0, 30) = 4.5666853091127635e+00_dp
8380 fit_coef(1, 30) = 6.4009785574659228e-01_dp
8381 fit_coef(2, 30) = 2.9587958616654764e-01_dp
8382 fit_coef(3, 30) = 5.3258996536484551e-03_dp
8383 fit_coef(4, 30) = -4.8921450862390199e-02_dp
8384 fit_coef(5, 30) = 4.8519904409378041e-03_dp
8385 fit_coef(6, 30) = 2.1138966562008546e-02_dp
8386 fit_coef(7, 30) = -9.9509468782633297e-04_dp
8387 fit_coef(8, 30) = -1.1615586429846661e-02_dp
8388 fit_coef(9, 30) = 1.4899160811089988e-03_dp
8389 fit_coef(10, 30) = 8.3912654254730754e-03_dp
8390 fit_coef(11, 30) = -6.3525637249113569e-03_dp
8391 fit_coef(12, 30) = 1.5228141862253625e-03_dp
8392
8393 END SUBROUTINE get_fit_coef_k15_mi
8394
8395! **************************************************************************************************
8396!> \brief ...
8397!> \param k ...
8398!> \param fit_coef ...
8399!> \param L_b ...
8400!> \param U_b ...
8401! **************************************************************************************************
8402 SUBROUTINE get_fit_coef_k15_lo(k, fit_coef, L_b, U_b)
8403 INTEGER :: k
8404 REAL(kind=dp), DIMENSION(0:12, 2*k) :: fit_coef
8405 REAL(kind=dp) :: l_b, u_b
8406
8407 l_b = 9.3527642781376642e+01_dp
8408 u_b = 1.1750000000000000e+06_dp
8409 fit_coef(0, 1) = 3.2793279985494519e-06_dp
8410 fit_coef(1, 1) = 7.2761221861298733e-06_dp
8411 fit_coef(2, 1) = 6.6879597248076629e-04_dp
8412 fit_coef(3, 1) = -3.3377387242640721e-03_dp
8413 fit_coef(4, 1) = 3.6932190908574580e-02_dp
8414 fit_coef(5, 1) = -1.4859062400069553e-01_dp
8415 fit_coef(6, 1) = 4.4629627390711790e-01_dp
8416 fit_coef(7, 1) = -9.3682363031214910e-01_dp
8417 fit_coef(8, 1) = 1.3525709274164297e+00_dp
8418 fit_coef(9, 1) = -1.3157143856436124e+00_dp
8419 fit_coef(10, 1) = 8.2321722743838222e-01_dp
8420 fit_coef(11, 1) = -2.9905777894458391e-01_dp
8421 fit_coef(12, 1) = 4.7927187586119996e-02_dp
8422 fit_coef(0, 2) = 3.6131623637423831e-05_dp
8423 fit_coef(1, 2) = 4.7106962333648227e-05_dp
8424 fit_coef(2, 2) = 4.3052245932532632e-03_dp
8425 fit_coef(3, 2) = -2.3337397086091179e-02_dp
8426 fit_coef(4, 2) = 2.3805631448383252e-01_dp
8427 fit_coef(5, 2) = -9.8141547342868762e-01_dp
8428 fit_coef(6, 2) = 2.9514193901676489e+00_dp
8429 fit_coef(7, 2) = -6.1764264357918330e+00_dp
8430 fit_coef(8, 2) = 8.8882482060089814e+00_dp
8431 fit_coef(9, 2) = -8.6216924305612981e+00_dp
8432 fit_coef(10, 2) = 5.3820183799751744e+00_dp
8433 fit_coef(11, 2) = -1.9515484948325068e+00_dp
8434 fit_coef(12, 2) = 3.1228748667302658e-01_dp
8435 fit_coef(0, 3) = 1.9135313464109315e-04_dp
8436 fit_coef(1, 3) = 1.7460510061267730e-04_dp
8437 fit_coef(2, 3) = 1.5413483600038124e-02_dp
8438 fit_coef(3, 3) = -8.7803353742691062e-02_dp
8439 fit_coef(4, 3) = 8.0147578597001090e-01_dp
8440 fit_coef(5, 3) = -3.4506170283047766e+00_dp
8441 fit_coef(6, 3) = 1.0597559824370764e+01_dp
8442 fit_coef(7, 3) = -2.2472933987251839e+01_dp
8443 fit_coef(8, 3) = 3.2637358630788739e+01_dp
8444 fit_coef(9, 3) = -3.1863935196267601e+01_dp
8445 fit_coef(10, 3) = 1.9983399971045149e+01_dp
8446 fit_coef(11, 3) = -7.2707478368141611e+00_dp
8447 fit_coef(12, 3) = 1.1664152307259732e+00_dp
8448 fit_coef(0, 4) = 7.3883732820766948e-04_dp
8449 fit_coef(1, 4) = 5.0733833618914323e-04_dp
8450 fit_coef(2, 4) = 4.4370796269257232e-02_dp
8451 fit_coef(3, 4) = -2.6481196747393215e-01_dp
8452 fit_coef(4, 4) = 2.2595142950561815e+00_dp
8453 fit_coef(5, 4) = -1.0181630118704184e+01_dp
8454 fit_coef(6, 4) = 3.1679590172936724e+01_dp
8455 fit_coef(7, 4) = -6.7336030116199026e+01_dp
8456 fit_coef(8, 4) = 9.7677953648704644e+01_dp
8457 fit_coef(9, 4) = -9.5149794831930734e+01_dp
8458 fit_coef(10, 4) = 5.9530024414743906e+01_dp
8459 fit_coef(11, 4) = -2.1611138637657191e+01_dp
8460 fit_coef(12, 4) = 3.4601757819555536e+00_dp
8461 fit_coef(0, 5) = 2.3666313203208780e-03_dp
8462 fit_coef(1, 5) = 1.2786885886632092e-03_dp
8463 fit_coef(2, 5) = 1.1076208254179676e-01_dp
8464 fit_coef(3, 5) = -6.7839594619191412e-01_dp
8465 fit_coef(4, 5) = 5.5114285011328183e+00_dp
8466 fit_coef(5, 5) = -2.5395097951060229e+01_dp
8467 fit_coef(6, 5) = 7.9307253014224088e+01_dp
8468 fit_coef(7, 5) = -1.6859211837607822e+02_dp
8469 fit_coef(8, 5) = 2.4452261050037967e+02_dp
8470 fit_coef(9, 5) = -2.3820141119829208e+02_dp
8471 fit_coef(10, 5) = 1.4905893976672397e+02_dp
8472 fit_coef(11, 5) = -5.4127909713308576e+01_dp
8473 fit_coef(12, 5) = 8.6691001852426552e+00_dp
8474 fit_coef(0, 6) = 6.6782258468515501e-03_dp
8475 fit_coef(1, 6) = 2.9071241132673617e-03_dp
8476 fit_coef(2, 6) = 2.4975031064405542e-01_dp
8477 fit_coef(3, 6) = -1.5562125797528150e+00_dp
8478 fit_coef(4, 6) = 1.2185079476552678e+01_dp
8479 fit_coef(5, 6) = -5.6926325045922916e+01_dp
8480 fit_coef(6, 6) = 1.7855104053066674e+02_dp
8481 fit_coef(7, 6) = -3.8050660514368747e+02_dp
8482 fit_coef(8, 6) = 5.5288905790672220e+02_dp
8483 fit_coef(9, 6) = -5.3932598394454135e+02_dp
8484 fit_coef(10, 6) = 3.3782483380582988e+02_dp
8485 fit_coef(11, 6) = -1.2276125245641836e+02_dp
8486 fit_coef(12, 6) = 1.9671382604642698e+01_dp
8487 fit_coef(0, 7) = 1.7168691373333111e-02_dp
8488 fit_coef(1, 7) = 6.0978405270416770e-03_dp
8489 fit_coef(2, 7) = 5.2025306168908569e-01_dp
8490 fit_coef(3, 7) = -3.2821022955670651e+00_dp
8491 fit_coef(4, 7) = 2.4958349575372374e+01_dp
8492 fit_coef(5, 7) = -1.1765023272930763e+02_dp
8493 fit_coef(6, 7) = 3.7056008209422993e+02_dp
8494 fit_coef(7, 7) = -7.9184187030173371e+02_dp
8495 fit_coef(8, 7) = 1.1527200840436421e+03_dp
8496 fit_coef(9, 7) = -1.1258727391755413e+03_dp
8497 fit_coef(10, 7) = 7.0584825509402651e+02_dp
8498 fit_coef(11, 7) = -2.5665682670985007e+02_dp
8499 fit_coef(12, 7) = 4.1145879034693607e+01_dp
8500 fit_coef(0, 8) = 4.1066740219417780e-02_dp
8501 fit_coef(1, 8) = 1.1965752322210791e-02_dp
8502 fit_coef(2, 8) = 1.0148791234031664e+00_dp
8503 fit_coef(3, 8) = -6.4624725502258276e+00_dp
8504 fit_coef(4, 8) = 4.7976535067054421e+01_dp
8505 fit_coef(5, 8) = -2.2750659978981074e+02_dp
8506 fit_coef(6, 8) = 7.1929276146624795e+02_dp
8507 fit_coef(7, 8) = -1.5410667800156759e+03_dp
8508 fit_coef(8, 8) = 2.2474354642090384e+03_dp
8509 fit_coef(9, 8) = -2.1978239495400421e+03_dp
8510 fit_coef(10, 8) = 1.3791127707578614e+03_dp
8511 fit_coef(11, 8) = -5.0179288602294997e+02_dp
8512 fit_coef(12, 8) = 8.0484577079207980e+01_dp
8513 fit_coef(0, 9) = 9.2699687800883265e-02_dp
8514 fit_coef(1, 9) = 2.2155471885187787e-02_dp
8515 fit_coef(2, 9) = 1.8695902697850499e+00_dp
8516 fit_coef(3, 9) = -1.1991899383860448e+01_dp
8517 fit_coef(4, 9) = 8.7242978410239118e+01_dp
8518 fit_coef(5, 9) = -4.1536938867885857e+02_dp
8519 fit_coef(6, 9) = 1.3176623596141608e+03_dp
8520 fit_coef(7, 9) = -2.8299350356509945e+03_dp
8521 fit_coef(8, 9) = 4.1340902247522199e+03_dp
8522 fit_coef(9, 9) = -4.0476690586057271e+03_dp
8523 fit_coef(10, 9) = 2.5420687410683036e+03_dp
8524 fit_coef(11, 9) = -9.2553103476606759e+02_dp
8525 fit_coef(12, 9) = 1.4852229538367158e+02_dp
8526 fit_coef(0, 10) = 1.9947743279902694e-01_dp
8527 fit_coef(1, 10) = 3.8899312951373388e-02_dp
8528 fit_coef(2, 10) = 3.2680572849945402e+00_dp
8529 fit_coef(3, 10) = -2.1084081716614804e+01_dp
8530 fit_coef(4, 10) = 1.5075557198241123e+02_dp
8531 fit_coef(5, 10) = -7.1967411375827533e+02_dp
8532 fit_coef(6, 10) = 2.2897159192976455e+03_dp
8533 fit_coef(7, 10) = -4.9285687810081845e+03_dp
8534 fit_coef(8, 10) = 7.2112684192795978e+03_dp
8535 fit_coef(9, 10) = -7.0684961344198391e+03_dp
8536 fit_coef(10, 10) = 4.4429042040785398e+03_dp
8537 fit_coef(11, 10) = -1.6185943473816480e+03_dp
8538 fit_coef(12, 10) = 2.5986231052596014e+02_dp
8539 fit_coef(0, 11) = 4.1232198870536146e-01_dp
8540 fit_coef(1, 11) = 6.4893474864739994e-02_dp
8541 fit_coef(2, 11) = 5.4310004234894391e+00_dp
8542 fit_coef(3, 11) = -3.5204004815099751e+01_dp
8543 fit_coef(4, 11) = 2.4798012213498384e+02_dp
8544 fit_coef(5, 11) = -1.1858431117066064e+03_dp
8545 fit_coef(6, 11) = 3.7825064907174756e+03_dp
8546 fit_coef(7, 11) = -8.1581937192205814e+03_dp
8547 fit_coef(8, 11) = 1.1954131106568948e+04_dp
8548 fit_coef(9, 11) = -1.1729786611671518e+04_dp
8549 fit_coef(10, 11) = 7.3784592386581926e+03_dp
8550 fit_coef(11, 11) = -2.6896086736495204e+03_dp
8551 fit_coef(12, 11) = 4.3200462908615089e+02_dp
8552 fit_coef(0, 12) = 8.2375109973285454e-01_dp
8553 fit_coef(1, 12) = 1.0280784827845055e-01_dp
8554 fit_coef(2, 12) = 8.5755836263465604e+00_dp
8555 fit_coef(3, 12) = -5.5800839220514590e+01_dp
8556 fit_coef(4, 12) = 3.8804437171318665e+02_dp
8557 fit_coef(5, 12) = -1.8575547029234676e+03_dp
8558 fit_coef(6, 12) = 5.9379886844425691e+03_dp
8559 fit_coef(7, 12) = -1.2830180852831514e+04_dp
8560 fit_coef(8, 12) = 1.8824783357291468e+04_dp
8561 fit_coef(9, 12) = -1.8489266233281007e+04_dp
8562 fit_coef(10, 12) = 1.1638691611847828e+04_dp
8563 fit_coef(11, 12) = -4.2448366640433251e+03_dp
8564 fit_coef(12, 12) = 6.8208814863958401e+02_dp
8565 fit_coef(0, 13) = 1.6005401729604098e+00_dp
8566 fit_coef(1, 13) = 1.5427671373341209e-01_dp
8567 fit_coef(2, 13) = 1.2832947943920599e+01_dp
8568 fit_coef(3, 13) = -8.3759357589093241e+01_dp
8569 fit_coef(4, 13) = 5.7621942259264915e+02_dp
8570 fit_coef(5, 13) = -2.7598336160779349e+03_dp
8571 fit_coef(6, 13) = 8.8381623335643399e+03_dp
8572 fit_coef(7, 13) = -1.9126056849476197e+04_dp
8573 fit_coef(8, 13) = 2.8094638893959345e+04_dp
8574 fit_coef(9, 13) = -2.7617301955762628e+04_dp
8575 fit_coef(10, 13) = 1.7395609257161428e+04_dp
8576 fit_coef(11, 13) = -6.3475238166994641e+03_dp
8577 fit_coef(12, 13) = 1.0203400395817024e+03_dp
8578 fit_coef(0, 14) = 3.0540489317639166e+00_dp
8579 fit_coef(1, 14) = 2.1865700868129184e-01_dp
8580 fit_coef(2, 14) = 1.8148202718663860e+01_dp
8581 fit_coef(3, 14) = -1.1872710055025075e+02_dp
8582 fit_coef(4, 14) = 8.0984788084197976e+02_dp
8583 fit_coef(5, 14) = -3.8796556939052798e+03_dp
8584 fit_coef(6, 14) = 1.2441638354776058e+04_dp
8585 fit_coef(7, 14) = -2.6957427016371610e+04_dp
8586 fit_coef(8, 14) = 3.9635425931543767e+04_dp
8587 fit_coef(9, 14) = -3.8989060841935432e+04_dp
8588 fit_coef(10, 14) = 2.4571211983659101e+04_dp
8589 fit_coef(11, 14) = -8.9693909543608097e+03_dp
8590 fit_coef(12, 14) = 1.4422380562945843e+03_dp
8591 fit_coef(0, 15) = 5.8836496088258903e+00_dp
8592 fit_coef(1, 15) = 2.9333916159882772e-01_dp
8593 fit_coef(2, 15) = 2.4309148431266522e+01_dp
8594 fit_coef(3, 15) = -1.5928663857255199e+02_dp
8595 fit_coef(4, 15) = 1.0800144511418321e+03_dp
8596 fit_coef(5, 15) = -5.1742775717293125e+03_dp
8597 fit_coef(6, 15) = 1.6609418151702128e+04_dp
8598 fit_coef(7, 15) = -3.6019371990459913e+04_dp
8599 fit_coef(8, 15) = 5.2994637899369998e+04_dp
8600 fit_coef(9, 15) = -5.2156366955415026e+04_dp
8601 fit_coef(10, 15) = 3.2881619526078182e+04_dp
8602 fit_coef(11, 15) = -1.2006412191447664e+04_dp
8603 fit_coef(12, 15) = 1.9310054306610489e+03_dp
8604 fit_coef(0, 16) = 1.0490015508948160e-05_dp
8605 fit_coef(1, 16) = 1.9245918297480574e-05_dp
8606 fit_coef(2, 16) = 1.7514019628420299e-03_dp
8607 fit_coef(3, 16) = -8.7825475436631283e-03_dp
8608 fit_coef(4, 16) = 9.8132135498064849e-02_dp
8609 fit_coef(5, 16) = -4.0139357711585455e-01_dp
8610 fit_coef(6, 16) = 1.2151507236457464e+00_dp
8611 fit_coef(7, 16) = -2.5608071661985146e+00_dp
8612 fit_coef(8, 16) = 3.7049308475400640e+00_dp
8613 fit_coef(9, 16) = -3.6079085144794738e+00_dp
8614 fit_coef(10, 16) = 2.2586411450421502e+00_dp
8615 fit_coef(11, 16) = -8.2071784242647206e-01_dp
8616 fit_coef(12, 16) = 1.3153768317036563e-01_dp
8617 fit_coef(0, 17) = 6.9018219767429348e-05_dp
8618 fit_coef(1, 17) = 6.9648188439671224e-05_dp
8619 fit_coef(2, 17) = 6.2459333601416062e-03_dp
8620 fit_coef(3, 17) = -3.5441557914769072e-02_dp
8621 fit_coef(4, 17) = 3.2906922405173999e-01_dp
8622 fit_coef(5, 17) = -1.3703072930999050e+00_dp
8623 fit_coef(6, 17) = 4.1206399805320482e+00_dp
8624 fit_coef(7, 17) = -8.6245400433435595e+00_dp
8625 fit_coef(8, 17) = 1.2424942794117596e+01_dp
8626 fit_coef(9, 17) = -1.2071284705492808e+01_dp
8627 fit_coef(10, 17) = 7.5482859678406982e+00_dp
8628 fit_coef(11, 17) = -2.7416411252527824e+00_dp
8629 fit_coef(12, 17) = 4.3940704181003898e-01_dp
8630 fit_coef(0, 18) = 2.8267117174337328e-04_dp
8631 fit_coef(1, 18) = 2.0340536143980756e-04_dp
8632 fit_coef(2, 18) = 1.7678726727191417e-02_dp
8633 fit_coef(3, 18) = -1.0545298250093989e-01_dp
8634 fit_coef(4, 18) = 8.9650844672191476e-01_dp
8635 fit_coef(5, 18) = -4.0700645201639842e+00_dp
8636 fit_coef(6, 18) = 1.2778228701375353e+01_dp
8637 fit_coef(7, 18) = -2.7365134031898545e+01_dp
8638 fit_coef(8, 18) = 3.9913427510994921e+01_dp
8639 fit_coef(9, 18) = -3.9026449660683376e+01_dp
8640 fit_coef(10, 18) = 2.4477897493830259e+01_dp
8641 fit_coef(11, 18) = -8.9007828894477790e+00_dp
8642 fit_coef(12, 18) = 1.4266184467905938e+00_dp
8643 fit_coef(0, 19) = 9.1918738520005492e-04_dp
8644 fit_coef(1, 19) = 5.0032919937804867e-04_dp
8645 fit_coef(2, 19) = 4.3364999825556638e-02_dp
8646 fit_coef(3, 19) = -2.6781408638943244e-01_dp
8647 fit_coef(4, 19) = 2.1566125289358995e+00_dp
8648 fit_coef(5, 19) = -1.0022123878208944e+01_dp
8649 fit_coef(6, 19) = 3.1317396694353242e+01_dp
8650 fit_coef(7, 19) = -6.6447554440483501e+01_dp
8651 fit_coef(8, 19) = 9.6141728832817350e+01_dp
8652 fit_coef(9, 19) = -9.3449718908958914e+01_dp
8653 fit_coef(10, 19) = 5.8372166225769881e+01_dp
8654 fit_coef(11, 19) = -2.1166765338703282e+01_dp
8655 fit_coef(12, 19) = 3.3863816402153009e+00_dp
8656 fit_coef(0, 20) = 2.5882618681224243e-03_dp
8657 fit_coef(1, 20) = 1.1101963800374212e-03_dp
8658 fit_coef(2, 20) = 9.5153090359631570e-02_dp
8659 fit_coef(3, 20) = -5.9667092259469967e-01_dp
8660 fit_coef(4, 20) = 4.6158300825488254e+00_dp
8661 fit_coef(5, 20) = -2.1702960038752170e+01_dp
8662 fit_coef(6, 20) = 6.8104607605264903e+01_dp
8663 fit_coef(7, 20) = -1.4509864087700180e+02_dp
8664 fit_coef(8, 20) = 2.1082070081369434e+02_dp
8665 fit_coef(9, 20) = -2.0567820908774044e+02_dp
8666 fit_coef(10, 20) = 1.2886369297377382e+02_dp
8667 fit_coef(11, 20) = -4.6839217031726335e+01_dp
8668 fit_coef(12, 20) = 7.5072963372495414e+00_dp
8669 fit_coef(0, 21) = 6.5882379082633398e-03_dp
8670 fit_coef(1, 21) = 2.2621691339110277e-03_dp
8671 fit_coef(2, 21) = 1.9246964638130989e-01_dp
8672 fit_coef(3, 21) = -1.2217276753530955e+00_dp
8673 fit_coef(4, 21) = 9.1698242992620767e+00_dp
8674 fit_coef(5, 21) = -4.3465513365240064e+01_dp
8675 fit_coef(6, 21) = 1.3710631049681336e+02_dp
8676 fit_coef(7, 21) = -2.9321690733250756e+02_dp
8677 fit_coef(8, 21) = 4.2710092920695109e+02_dp
8678 fit_coef(9, 21) = -4.1732542801681706e+02_dp
8679 fit_coef(10, 21) = 2.6170639243954514e+02_dp
8680 fit_coef(11, 21) = -9.5176513369112968e+01_dp
8681 fit_coef(12, 21) = 1.5259801532746318e+01_dp
8682 fit_coef(0, 22) = 1.5543900572102644e-02_dp
8683 fit_coef(1, 22) = 4.3029374070070658e-03_dp
8684 fit_coef(2, 22) = 3.6379929804956312e-01_dp
8685 fit_coef(3, 22) = -2.3299690981198706e+00_dp
8686 fit_coef(4, 22) = 1.7060773313313661e+01_dp
8687 fit_coef(5, 22) = -8.1273230384261126e+01_dp
8688 fit_coef(6, 22) = 2.5746624440333989e+02_dp
8689 fit_coef(7, 22) = -5.5230172621897168e+02_dp
8690 fit_coef(8, 22) = 8.0612603717585921e+02_dp
8691 fit_coef(9, 22) = -7.8876694465068897e+02_dp
8692 fit_coef(10, 22) = 4.9512974619778498e+02_dp
8693 fit_coef(11, 22) = -1.8020197227270759e+02_dp
8694 fit_coef(12, 22) = 2.8909017650939049e+01_dp
8695 fit_coef(0, 23) = 3.4544493883799224e-02_dp
8696 fit_coef(1, 23) = 7.7057465719973899e-03_dp
8697 fit_coef(2, 23) = 6.4801783632712762e-01_dp
8698 fit_coef(3, 23) = -4.1791996544114722e+00_dp
8699 fit_coef(4, 23) = 2.9972887604114607e+01_dp
8700 fit_coef(5, 23) = -1.4323654947892643e+02_dp
8701 fit_coef(6, 23) = 4.5543253426208781e+02_dp
8702 fit_coef(7, 23) = -9.7965395620159916e+02_dp
8703 fit_coef(8, 23) = 1.4326296354673486e+03_dp
8704 fit_coef(9, 23) = -1.4036958339933367e+03_dp
8705 fit_coef(10, 23) = 8.8201906011468520e+02_dp
8706 fit_coef(11, 23) = -3.2125145658138058e+02_dp
8707 fit_coef(12, 23) = 5.1566695258306126e+01_dp
8708 fit_coef(0, 24) = 7.3122924052638857e-02_dp
8709 fit_coef(1, 24) = 1.3047345576674729e-02_dp
8710 fit_coef(2, 24) = 1.0921563698572587e+00_dp
8711 fit_coef(3, 24) = -7.0828159501016552e+00_dp
8712 fit_coef(4, 24) = 4.9900195235442546e+01_dp
8713 fit_coef(5, 24) = -2.3893035920690767e+02_dp
8714 fit_coef(6, 24) = 7.6209216068295359e+02_dp
8715 fit_coef(7, 24) = -1.6433368571765945e+03_dp
8716 fit_coef(8, 24) = 2.4074464958116155e+03_dp
8717 fit_coef(9, 24) = -2.3618333223611826e+03_dp
8718 fit_coef(10, 24) = 1.4854588983048657e+03_dp
8719 fit_coef(11, 24) = -5.4141801556510109e+02_dp
8720 fit_coef(12, 24) = 8.6954202781474834e+01_dp
8721 fit_coef(0, 25) = 1.4863184827325007e-01_dp
8722 fit_coef(1, 25) = 2.0897369993486958e-02_dp
8723 fit_coef(2, 25) = 1.7422013268701704e+00_dp
8724 fit_coef(3, 25) = -1.1349892975305522e+01_dp
8725 fit_coef(4, 25) = 7.8731198009107700e+01_dp
8726 fit_coef(5, 25) = -3.7738777230483873e+02_dp
8727 fit_coef(6, 25) = 1.2069682708983435e+03_dp
8728 fit_coef(7, 25) = -2.6084306788827607e+03_dp
8729 fit_coef(8, 25) = 3.8275166346901069e+03_dp
8730 fit_coef(9, 25) = -3.7594561324724668e+03_dp
8731 fit_coef(10, 25) = 2.3665593844071400e+03_dp
8732 fit_coef(11, 25) = -8.6313167371072871e+02_dp
8733 fit_coef(12, 25) = 1.3869371175524410e+02_dp
8734 fit_coef(0, 26) = 2.9197038671042685e-01_dp
8735 fit_coef(1, 26) = 3.1553064146021624e-02_dp
8736 fit_coef(2, 26) = 2.6212810102963688e+00_dp
8737 fit_coef(3, 26) = -1.7140795787714239e+01_dp
8738 fit_coef(4, 26) = 1.1729936023843838e+02_dp
8739 fit_coef(5, 26) = -5.6251944415470587e+02_dp
8740 fit_coef(6, 26) = 1.8032102744423644e+03_dp
8741 fit_coef(7, 26) = -3.9047643960741279e+03_dp
8742 fit_coef(8, 26) = 5.7382582448223930e+03_dp
8743 fit_coef(9, 26) = -5.6424075077151520e+03_dp
8744 fit_coef(10, 26) = 3.5547702376861953e+03_dp
8745 fit_coef(11, 26) = -1.2973000963117572e+03_dp
8746 fit_coef(12, 26) = 2.0855898009649175e+02_dp
8747 fit_coef(0, 27) = 5.5768130937544869e-01_dp
8748 fit_coef(1, 27) = 4.4572128359602628e-02_dp
8749 fit_coef(2, 27) = 3.6916856472540940e+00_dp
8750 fit_coef(3, 27) = -2.4213381713827740e+01_dp
8751 fit_coef(4, 27) = 1.6378750132966567e+02_dp
8752 fit_coef(5, 27) = -7.8545555955911163e+02_dp
8753 fit_coef(6, 27) = 2.5226651741402102e+03_dp
8754 fit_coef(7, 27) = -5.4722074342493534e+03_dp
8755 fit_coef(8, 27) = 8.0523685521856414e+03_dp
8756 fit_coef(9, 27) = -7.9256723613351096e+03_dp
8757 fit_coef(10, 27) = 4.9969395283607182e+03_dp
8758 fit_coef(11, 27) = -1.8246427440641146e+03_dp
8759 fit_coef(12, 27) = 2.9346534721488899e+02_dp
8760 fit_coef(0, 28) = 1.0450173925119002e+00_dp
8761 fit_coef(1, 28) = 5.8265207981760117e-02_dp
8762 fit_coef(2, 28) = 4.8143926353121813e+00_dp
8763 fit_coef(3, 28) = -3.1648523514665637e+01_dp
8764 fit_coef(4, 28) = 2.1213334922148832e+02_dp
8765 fit_coef(5, 28) = -1.0169903912741421e+03_dp
8766 fit_coef(6, 28) = 3.2709939445720015e+03_dp
8767 fit_coef(7, 28) = -7.1053218328636922e+03_dp
8768 fit_coef(8, 28) = 1.0466780738282137e+04_dp
8769 fit_coef(9, 28) = -1.0310448956212835e+04_dp
8770 fit_coef(10, 28) = 6.5044600754848825e+03_dp
8771 fit_coef(11, 28) = -2.3762315782073229e+03_dp
8772 fit_coef(12, 28) = 3.8231992824865711e+02_dp
8773 fit_coef(0, 29) = 1.9639167282286836e+00_dp
8774 fit_coef(1, 29) = 6.9961149923850899e-02_dp
8775 fit_coef(2, 29) = 5.7725439445353004e+00_dp
8776 fit_coef(3, 29) = -3.7996769718433761e+01_dp
8777 fit_coef(4, 29) = 2.5327571805969885e+02_dp
8778 fit_coef(5, 29) = -1.2137919470627476e+03_dp
8779 fit_coef(6, 29) = 3.9071985303035226e+03_dp
8780 fit_coef(7, 29) = -8.4944480629188183e+03_dp
8781 fit_coef(8, 29) = 1.2521478684961125e+04_dp
8782 fit_coef(9, 29) = -1.2340746128541903e+04_dp
8783 fit_coef(10, 29) = 7.7883138533160081e+03_dp
8784 fit_coef(11, 29) = -2.8461039477634558e+03_dp
8785 fit_coef(12, 29) = 4.5802666012412590e+02_dp
8786 fit_coef(0, 30) = 4.0342493016500347e+00_dp
8787 fit_coef(1, 30) = 7.9647259264362835e-02_dp
8788 fit_coef(2, 30) = 6.5710181771750698e+00_dp
8789 fit_coef(3, 30) = -4.3255572360835060e+01_dp
8790 fit_coef(4, 30) = 2.8820713216838652e+02_dp
8791 fit_coef(5, 30) = -1.3810306152021003e+03_dp
8792 fit_coef(6, 30) = 4.4457135475846326e+03_dp
8793 fit_coef(7, 30) = -9.6658445565099519e+03_dp
8794 fit_coef(8, 30) = 1.4249062004096166e+04_dp
8795 fit_coef(9, 30) = -1.4044077033410062e+04_dp
8796 fit_coef(10, 30) = 8.8636369152484167e+03_dp
8797 fit_coef(11, 30) = -3.2391609850813516e+03_dp
8798 fit_coef(12, 30) = 5.2129451486951780e+02_dp
8799
8800 END SUBROUTINE get_fit_coef_k15_lo
8801
8802END MODULE minimax_exp_k15
kinds
Defines the basic variable types.
Definition kinds.F:23
kinds::dp
integer, parameter, public dp
Definition kinds.F:34
minimax_exp_k15
Routines to calculate the minimax coefficients in order to approximate 1/x as a sum over exponential ...
Definition minimax_exp_k15.F:19
minimax_exp_k15::get_minimax_numerical_error
real(kind=dp) function, public get_minimax_numerical_error(rc, aw)
Sample numerical error and return its maximum.
Definition minimax_exp_k15.F:100
minimax_exp_k15::check_range_k15
subroutine, public check_range_k15(k, rc, ierr)
Check that the range for the minimax approximation is not too small for the chosen number of integrat...
Definition minimax_exp_k15.F:44
minimax_exp_k15::get_minimax_coeff_k15
subroutine, public get_minimax_coeff_k15(k, rc, aw, mm_error)
Get minimax coefficients: k15 implementation (coefficients up to k=15 terms). All a_i and w_i have be...
Definition minimax_exp_k15.F:133