(git:ccc2433)
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 ! **************************************************************************************************
19 MODULE 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 
31 CONTAINS
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 
8802 END 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_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
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_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