Line data Source code
1 : !--------------------------------------------------------------------------------------------------!
2 : ! CP2K: A general program to perform molecular dynamics simulations !
3 : ! Copyright 2000-2024 CP2K developers group <https://cp2k.org> !
4 : ! !
5 : ! SPDX-License-Identifier: GPL-2.0-or-later !
6 : !--------------------------------------------------------------------------------------------------!
7 :
8 : ! **************************************************************************************************
9 : !> \brief Routines to calculate the minimax coefficients in order to
10 : !> approximate 1/x as a sum over exponential functions
11 : !> 1/x ~ SUM_{i}^{K} w_i EXP(-a_i * x) for x belonging to [1:Rc].
12 : !> This module contains coefficients for minimax approximations with 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 50722 : 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 50722 : ierr = 0
51 50722 : R_min = 0.0_dp
52 :
53 50722 : 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 39422 : R_min = 2.0000000000000000E+00_dp
60 : CASE (4)
61 39422 : R_min = 3.0000000000000000E+00_dp
62 : CASE (5)
63 212 : R_min = 4.0000000000000000E+00_dp
64 : CASE (6)
65 216 : R_min = 5.0000000000000000E+00_dp
66 : CASE (7)
67 184 : R_min = 7.0000000000000000E+00_dp
68 : CASE (8)
69 186 : R_min = 1.0000000000000000E+01_dp
70 : CASE (9)
71 192 : R_min = 1.0000000000000000E+01_dp
72 : CASE (10)
73 232 : R_min = 1.0000000000000000E+01_dp
74 : CASE (11)
75 238 : R_min = 1.0000000000000000E+01_dp
76 : CASE (12)
77 244 : R_min = 1.0000000000000000E+01_dp
78 : CASE (13)
79 250 : R_min = 1.0000000000000000E+01_dp
80 : CASE (14)
81 266 : R_min = 1.0000000000000000E+01_dp
82 : CASE (15)
83 458 : R_min = 2.0000000000000000E+01_dp
84 : CASE DEFAULT
85 50722 : ierr = -1
86 : END SELECT
87 :
88 50722 : IF (Rc < R_min .AND. ierr == 0) ierr = 1
89 :
90 50722 : 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 438772 : 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 438772 : k = SIZE(aw)/2
110 438772 : numerr = 0.0_dp
111 44315972 : DO np = 1, npoints
112 43877200 : x = 1.0_dp + (Rc - 1.0_dp)*(npoints - np)/(npoints - 1)
113 43877200 : mm = 0.0_dp
114 854101800 : DO j = 1, k
115 854101800 : mm = mm + aw(j + k)*EXP(-aw(j)*x)
116 : END DO
117 44315972 : numerr = MAX(numerr, ABS(mm - 1.0_dp/x))
118 : END DO
119 :
120 438772 : 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 49586 : 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 99172 : REAL(KIND=dp), DIMENSION(0:12, 2*k) :: fit_coef
143 :
144 49586 : CALL timeset(routineN, handle)
145 49586 : R_min = 0.0_dp
146 49586 : R_max = 0.0_dp
147 :
148 : SELECT CASE (k)
149 : CASE (1)
150 : R_min = 2.0000000000000000E+00_dp
151 58 : R_max = 8.6669999999999998E+00_dp
152 : CASE (2)
153 58 : R_min = 2.0000000000000000E+00_dp
154 58 : R_max = 4.1539999999999999E+01_dp
155 : CASE (3)
156 8418 : R_min = 2.0000000000000000E+00_dp
157 8418 : R_max = 1.4680000000000001E+02_dp
158 : CASE (4)
159 39356 : R_min = 3.0000000000000000E+00_dp
160 39356 : R_max = 4.3610000000000002E+02_dp
161 : CASE (5)
162 128 : R_min = 4.0000000000000000E+00_dp
163 128 : R_max = 1.1540000000000000E+03_dp
164 : CASE (6)
165 148 : R_min = 5.0000000000000000E+00_dp
166 148 : R_max = 2.8070000000000000E+03_dp
167 : CASE (7)
168 106 : R_min = 7.0000000000000000E+00_dp
169 106 : R_max = 6.3730000000000000E+03_dp
170 : CASE (8)
171 114 : R_min = 1.0000000000000000E+01_dp
172 114 : R_max = 1.3749000000000000E+04_dp
173 : CASE (9)
174 118 : R_min = 1.0000000000000000E+01_dp
175 118 : R_max = 2.8387000000000000E+04_dp
176 : CASE (10)
177 144 : R_min = 1.0000000000000000E+01_dp
178 144 : R_max = 5.6502000000000000E+04_dp
179 : CASE (11)
180 148 : R_min = 1.0000000000000000E+01_dp
181 148 : R_max = 1.0890000000000000E+05_dp
182 : CASE (12)
183 152 : R_min = 1.0000000000000000E+01_dp
184 152 : R_max = 2.0420000000000000E+05_dp
185 : CASE (13)
186 156 : R_min = 1.0000000000000000E+01_dp
187 156 : R_max = 3.7370000000000000E+05_dp
188 : CASE (14)
189 166 : R_min = 1.0000000000000000E+01_dp
190 166 : R_max = 6.6910000000000000E+05_dp
191 : CASE (15)
192 344 : R_min = 2.0000000000000000E+01_dp
193 344 : R_max = 1.1750000000000000E+06_dp
194 : CASE DEFAULT
195 49586 : CPABORT("")
196 : END SELECT
197 :
198 5690802 : fit_coef = 0.0
199 452530 : aw = 0.0
200 49586 : IF (Rc < R_min) THEN
201 0 : CPABORT("")
202 : ELSE
203 30 : SELECT CASE (k)
204 : CASE (1)
205 30 : IF (Rc >= R_max) THEN
206 6 : aw(1) = 4.4649260629947779E-01_dp
207 6 : aw(2) = 1.4290997869805788E+00_dp
208 : ELSE
209 24 : CALL get_fit_coef_k1(k, fit_coef, L_b, U_b)
210 : END IF
211 : CASE (2)
212 58 : IF (Rc >= R_max) THEN
213 6 : aw(1) = 9.3106172568836743E-02_dp
214 6 : aw(2) = 1.0301539335400713E+00_dp
215 6 : aw(3) = 2.9765554323276328E-01_dp
216 6 : aw(4) = 1.9917443679019897E+00_dp
217 : ELSE
218 52 : CALL get_fit_coef_k2(k, fit_coef, L_b, U_b)
219 : END IF
220 : CASE (3)
221 8418 : IF (Rc >= R_max) THEN
222 8306 : aw(1) = 2.6349272848143715E-02_dp
223 8306 : aw(2) = 2.8996855484815137E-01_dp
224 8306 : aw(3) = 1.5533661852788561E+00_dp
225 8306 : aw(4) = 8.4233696465358193E-02_dp
226 8306 : aw(5) = 5.5403643315333395E-01_dp
227 8306 : aw(6) = 2.3557688429224690E+00_dp
228 : ELSE
229 112 : CALL get_fit_coef_k3(k, fit_coef, L_b, U_b)
230 : END IF
231 : CASE (4)
232 39356 : IF (Rc >= R_max) THEN
233 19370 : aw(1) = 8.8685367946663256E-03_dp
234 19370 : aw(2) = 9.7565835027097439E-02_dp
235 19370 : aw(3) = 5.1691899901700877E-01_dp
236 19370 : aw(4) = 2.0308311260118175E+00_dp
237 19370 : aw(5) = 2.8350982414551848E-02_dp
238 19370 : aw(6) = 1.8628933861057068E-01_dp
239 19370 : aw(7) = 7.6510507307920383E-01_dp
240 19370 : aw(8) = 2.6286812528458148E+00_dp
241 : ELSE
242 19986 : CALL get_fit_coef_k4(k, fit_coef, L_b, U_b)
243 : END IF
244 : CASE (5)
245 128 : IF (Rc >= R_max) THEN
246 8 : aw(1) = 3.3529112764591387E-03_dp
247 8 : aw(2) = 3.6885523808630270E-02_dp
248 8 : aw(3) = 1.9524288957651931E-01_dp
249 8 : aw(4) = 7.5508129953934144E-01_dp
250 8 : aw(5) = 2.4730352459564653E+00_dp
251 8 : aw(6) = 1.0718601062497496E-02_dp
252 8 : aw(7) = 7.0423935703868623E-02_dp
253 8 : aw(8) = 2.8840120533084923E-01_dp
254 8 : aw(9) = 9.4333101049811663E-01_dp
255 8 : aw(10) = 2.8485313369244247E+00_dp
256 : ELSE
257 120 : IF (Rc <= 100.0_dp) THEN
258 84 : CALL get_fit_coef_k5_sh(k, fit_coef, L_b, U_b)
259 : ELSE
260 36 : CALL get_fit_coef_k5_lo(k, fit_coef, L_b, U_b)
261 : END IF
262 : END IF
263 : CASE (6)
264 148 : IF (Rc >= R_max) THEN
265 4 : aw(1) = 1.3802019452414500E-03_dp
266 4 : aw(2) = 1.5183614381572768E-02_dp
267 4 : aw(3) = 8.0361511855253240E-02_dp
268 4 : aw(4) = 3.1025560863277402E-01_dp
269 4 : aw(5) = 9.9661148626887119E-01_dp
270 4 : aw(6) = 2.8871396539466740E+00_dp
271 4 : aw(7) = 4.4122353526579831E-03_dp
272 4 : aw(8) = 2.8989220321940696E-02_dp
273 4 : aw(9) = 1.1867791139299246E-01_dp
274 4 : aw(10) = 3.8613951254853507E-01_dp
275 4 : aw(11) = 1.0973265611814316E+00_dp
276 4 : aw(12) = 3.0334106111925840E+00_dp
277 : ELSE
278 144 : IF (Rc <= 100.0_dp) THEN
279 100 : CALL get_fit_coef_k6_sh(k, fit_coef, L_b, U_b)
280 : ELSE
281 44 : CALL get_fit_coef_k6_lo(k, fit_coef, L_b, U_b)
282 : END IF
283 : END IF
284 : CASE (7)
285 106 : IF (Rc >= R_max) THEN
286 4 : aw(1) = 6.0680046054254941E-04_dp
287 4 : aw(2) = 6.6754145503086018E-03_dp
288 4 : aw(3) = 3.5330085311658307E-02_dp
289 4 : aw(4) = 1.3636790644450009E-01_dp
290 4 : aw(5) = 4.3692597185507065E-01_dp
291 4 : aw(6) = 1.2378541669818244E+00_dp
292 4 : aw(7) = 3.2781922981409610E+00_dp
293 4 : aw(8) = 1.9398222440315960E-03_dp
294 4 : aw(9) = 1.2744981074293062E-02_dp
295 4 : aw(10) = 5.2173800858709714E-02_dp
296 4 : aw(11) = 1.6963212116290538E-01_dp
297 4 : aw(12) = 4.7830405076036075E-01_dp
298 4 : aw(13) = 1.2328765453712285E+00_dp
299 4 : aw(14) = 3.1933984156189350E+00_dp
300 : ELSE
301 102 : IF (Rc <= 100.0_dp) THEN
302 44 : CALL get_fit_coef_k7_sh(k, fit_coef, L_b, U_b)
303 : ELSE
304 58 : CALL get_fit_coef_k7_lo(k, fit_coef, L_b, U_b)
305 : END IF
306 : END IF
307 : CASE (8)
308 114 : IF (Rc >= R_max) THEN
309 8 : aw(1) = 2.8127089949768415E-04_dp
310 8 : aw(2) = 3.0942621869177655E-03_dp
311 8 : aw(3) = 1.6376552972548756E-02_dp
312 8 : aw(4) = 6.3208135461484877E-02_dp
313 8 : aw(5) = 2.0243640179262407E-01_dp
314 8 : aw(6) = 5.7158548817956678E-01_dp
315 8 : aw(7) = 1.4769970948293096E+00_dp
316 8 : aw(8) = 3.6498865034832644E+00_dp
317 8 : aw(9) = 8.9916798455210248E-04_dp
318 8 : aw(10) = 5.9076940528835931E-03_dp
319 8 : aw(11) = 2.4183992214449269E-02_dp
320 8 : aw(12) = 7.8619729999942961E-02_dp
321 8 : aw(13) = 2.2140056400660871E-01_dp
322 8 : aw(14) = 5.6481870666490019E-01_dp
323 8 : aw(15) = 1.3539633386811780E+00_dp
324 8 : aw(16) = 3.3347117690388681E+00_dp
325 : ELSE
326 106 : IF (Rc <= 100.0_dp) THEN
327 36 : CALL get_fit_coef_k8_sh(k, fit_coef, L_b, U_b)
328 : ELSE
329 70 : CALL get_fit_coef_k8_lo(k, fit_coef, L_b, U_b)
330 : END IF
331 : END IF
332 : CASE (9)
333 118 : IF (Rc >= R_max) THEN
334 4 : aw(1) = 1.3620787587729222E-04_dp
335 4 : aw(2) = 1.4984233172990983E-03_dp
336 4 : aw(3) = 7.9304843136686811E-03_dp
337 4 : aw(4) = 3.0608852526075443E-02_dp
338 4 : aw(5) = 9.8023317512591052E-02_dp
339 4 : aw(6) = 2.7660071140675380E-01_dp
340 4 : aw(7) = 7.1177472290822164E-01_dp
341 4 : aw(8) = 1.7131253759530025E+00_dp
342 4 : aw(9) = 4.0050154343014466E+00_dp
343 4 : aw(10) = 4.3542990561554510E-04_dp
344 4 : aw(11) = 2.8608520316584030E-03_dp
345 4 : aw(12) = 1.1711291382515341E-02_dp
346 4 : aw(13) = 3.8071387509506595E-02_dp
347 4 : aw(14) = 1.0718758733492406E-01_dp
348 4 : aw(15) = 2.7293433084542407E-01_dp
349 4 : aw(16) = 6.4600134991152369E-01_dp
350 4 : aw(17) = 1.4634218815677373E+00_dp
351 4 : aw(18) = 3.4614670015318758E+00_dp
352 : ELSE
353 114 : IF (Rc <= 100.0_dp) THEN
354 36 : CALL get_fit_coef_k9_sh(k, fit_coef, L_b, U_b)
355 : ELSE
356 78 : CALL get_fit_coef_k9_lo(k, fit_coef, L_b, U_b)
357 : END IF
358 : END IF
359 : CASE (10)
360 144 : IF (Rc >= R_max) THEN
361 4 : aw(1) = 6.8443901388305083E-05_dp
362 4 : aw(2) = 7.5295159558786751E-04_dp
363 4 : aw(3) = 3.9850355998364926E-03_dp
364 4 : aw(4) = 1.5380799076269465E-02_dp
365 4 : aw(5) = 4.9255465262658012E-02_dp
366 4 : aw(6) = 1.3897073828118570E-01_dp
367 4 : aw(7) = 3.5731192893101876E-01_dp
368 4 : aw(8) = 8.5579284635745334E-01_dp
369 4 : aw(9) = 1.9457922045681717E+00_dp
370 4 : aw(10) = 4.3457510815955152E+00_dp
371 4 : aw(11) = 2.1880174937623183E-04_dp
372 4 : aw(12) = 1.4375664500890244E-03_dp
373 4 : aw(13) = 5.8848743519528662E-03_dp
374 4 : aw(14) = 1.9130624082222252E-02_dp
375 4 : aw(15) = 5.3858487442246458E-02_dp
376 4 : aw(16) = 1.3708846821179432E-01_dp
377 4 : aw(17) = 3.2364445020328991E-01_dp
378 4 : aw(18) = 7.2229153747049757E-01_dp
379 4 : aw(19) = 1.5633339391232095E+00_dp
380 4 : aw(20) = 3.5765361929512172E+00_dp
381 : ELSE
382 140 : IF (Rc <= 100.0_dp) THEN
383 44 : CALL get_fit_coef_k10_sh(k, fit_coef, L_b, U_b)
384 : ELSE
385 96 : CALL get_fit_coef_k10_lo(k, fit_coef, L_b, U_b)
386 : END IF
387 : END IF
388 : CASE (11)
389 148 : IF (Rc >= R_max) THEN
390 10 : aw(1) = 3.5503484659246813E-05_dp
391 10 : aw(2) = 3.9057395758855312E-04_dp
392 10 : aw(3) = 2.0671330057150483E-03_dp
393 10 : aw(4) = 7.9783846601041101E-03_dp
394 10 : aw(5) = 2.5549886450088238E-02_dp
395 10 : aw(6) = 7.2085122754821276E-02_dp
396 10 : aw(7) = 1.8530557881445084E-01_dp
397 10 : aw(8) = 4.4334723019604549E-01_dp
398 10 : aw(9) = 1.0024332764988158E+00_dp
399 10 : aw(10) = 2.1748065663060481E+00_dp
400 10 : aw(11) = 4.6738220578828598E+00_dp
401 10 : aw(12) = 1.1349768781191745E-04_dp
402 10 : aw(13) = 7.4570001674067511E-04_dp
403 10 : aw(14) = 3.0526245415056301E-03_dp
404 10 : aw(15) = 9.9235004487624248E-03_dp
405 10 : aw(16) = 2.7937353788559310E-02_dp
406 10 : aw(17) = 7.1104122225773142E-02_dp
407 10 : aw(18) = 1.6777050240847788E-01_dp
408 10 : aw(19) = 3.7320560837397676E-01_dp
409 10 : aw(20) = 7.9414366264691305E-01_dp
410 10 : aw(21) = 1.6552701124330567E+00_dp
411 10 : aw(22) = 3.6820059233978353E+00_dp
412 : ELSE
413 138 : IF (Rc <= 100.0_dp) THEN
414 36 : CALL get_fit_coef_k11_sh(k, fit_coef, L_b, U_b)
415 : ELSE
416 102 : IF (Rc <= 1000.0_dp) THEN
417 34 : CALL get_fit_coef_k11_mi(k, fit_coef, L_b, U_b)
418 : ELSE
419 68 : 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 152 : IF (Rc >= R_max) THEN
425 6 : aw(1) = 1.8934012296256358E-05_dp
426 6 : aw(2) = 2.0829314615342741E-04_dp
427 6 : aw(3) = 1.1024023520154727E-03_dp
428 6 : aw(4) = 4.2548734477736863E-03_dp
429 6 : aw(5) = 1.3625745873543612E-02_dp
430 6 : aw(6) = 3.8442710765665453E-02_dp
431 6 : aw(7) = 9.8818287645666872E-02_dp
432 6 : aw(8) = 2.3636401719642108E-01_dp
433 6 : aw(9) = 5.3373454579640744E-01_dp
434 6 : aw(10) = 1.1508219943995057E+00_dp
435 6 : aw(11) = 2.4001213099764143E+00_dp
436 6 : aw(12) = 4.9906311509941723E+00_dp
437 6 : aw(13) = 6.0528329999281435E-05_dp
438 6 : aw(14) = 3.9768193515047327E-04_dp
439 6 : aw(15) = 1.6279651361197933E-03_dp
440 6 : aw(16) = 5.2922029903677377E-03_dp
441 6 : aw(17) = 1.4898953114611908E-02_dp
442 6 : aw(18) = 3.7918950606510460E-02_dp
443 6 : aw(19) = 8.9457745237352296E-02_dp
444 6 : aw(20) = 1.9884427477508254E-01_dp
445 6 : aw(21) = 4.2144796502526766E-01_dp
446 6 : aw(22) = 8.6198574283723861E-01_dp
447 6 : aw(23) = 1.7404432216810901E+00_dp
448 6 : aw(24) = 3.7794416490913081E+00_dp
449 : ELSE
450 146 : IF (Rc <= 100.0_dp) THEN
451 36 : CALL get_fit_coef_k12_sh(k, fit_coef, L_b, U_b)
452 : ELSE
453 110 : IF (Rc <= 1000.0_dp) THEN
454 34 : CALL get_fit_coef_k12_mi(k, fit_coef, L_b, U_b)
455 : ELSE
456 76 : 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 156 : IF (Rc >= R_max) THEN
462 4 : aw(1) = 1.0347391661194427E-05_dp
463 4 : aw(2) = 1.1383169144875790E-04_dp
464 4 : aw(3) = 6.0246014985531054E-04_dp
465 4 : aw(4) = 2.3252777266436543E-03_dp
466 4 : aw(5) = 7.4464345169693259E-03_dp
467 4 : aw(6) = 2.1008804344928592E-02_dp
468 4 : aw(7) = 5.4003219260973512E-02_dp
469 4 : aw(8) = 1.2916211533151045E-01_dp
470 4 : aw(9) = 2.9156437505279720E-01_dp
471 4 : aw(10) = 6.2769461815368310E-01_dp
472 4 : aw(11) = 1.3003150067055842E+00_dp
473 4 : aw(12) = 2.6217712688276107E+00_dp
474 4 : aw(13) = 5.2973357440769391E+00_dp
475 4 : aw(14) = 3.3078584812160216E-05_dp
476 4 : aw(15) = 2.1733219160086539E-04_dp
477 4 : aw(16) = 8.8967889768721382E-04_dp
478 4 : aw(17) = 2.8921756053065669E-03_dp
479 4 : aw(18) = 8.1422349627770872E-03_dp
480 4 : aw(19) = 2.0722487658696522E-02_dp
481 4 : aw(20) = 4.8886434214697162E-02_dp
482 4 : aw(21) = 1.0864184956111259E-01_dp
483 4 : aw(22) = 2.3003323004923831E-01_dp
484 4 : aw(23) = 4.6829507330399833E-01_dp
485 4 : aw(24) = 9.2620553596664335E-01_dp
486 4 : aw(25) = 1.8198087510110939E+00_dp
487 4 : aw(26) = 3.8700490617962435E+00_dp
488 : ELSE
489 152 : IF (Rc <= 100.0_dp) THEN
490 36 : CALL get_fit_coef_k13_sh(k, fit_coef, L_b, U_b)
491 : ELSE
492 116 : IF (Rc <= 1000.0_dp) THEN
493 34 : CALL get_fit_coef_k13_mi(k, fit_coef, L_b, U_b)
494 : ELSE
495 82 : 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 166 : IF (Rc >= R_max) THEN
501 4 : aw(1) = 5.7793103608868073E-06_dp
502 4 : aw(2) = 6.3578213256604128E-05_dp
503 4 : aw(3) = 3.3649100160858427E-04_dp
504 4 : aw(4) = 1.2987332474693207E-03_dp
505 4 : aw(5) = 4.1590436292552775E-03_dp
506 4 : aw(6) = 1.1734004029327220E-02_dp
507 4 : aw(7) = 3.0162212092092591E-02_dp
508 4 : aw(8) = 7.2139138815286746E-02_dp
509 4 : aw(9) = 1.6282875663814733E-01_dp
510 4 : aw(10) = 3.5040070791304617E-01_dp
511 4 : aw(11) = 7.2459730019137303E-01_dp
512 4 : aw(12) = 1.4504311395006662E+00_dp
513 4 : aw(13) = 2.8398376292459662E+00_dp
514 4 : aw(14) = 5.5949042429760905E+00_dp
515 4 : aw(15) = 1.8475323460824520E-05_dp
516 4 : aw(16) = 1.2138616450563895E-04_dp
517 4 : aw(17) = 4.9691078029321441E-04_dp
518 4 : aw(18) = 1.6153616951963146E-03_dp
519 4 : aw(19) = 4.5476671955009150E-03_dp
520 4 : aw(20) = 1.1574075510211794E-02_dp
521 4 : aw(21) = 2.7304150630042847E-02_dp
522 4 : aw(22) = 6.0675597068478228E-02_dp
523 4 : aw(23) = 1.2843669732401369E-01_dp
524 4 : aw(24) = 2.6114026945752189E-01_dp
525 4 : aw(25) = 5.1372708252492216E-01_dp
526 4 : aw(26) = 9.8714811599006669E-01_dp
527 4 : aw(27) = 1.8941325485709735E+00_dp
528 4 : aw(28) = 3.9547772395130827E+00_dp
529 : ELSE
530 162 : IF (Rc <= 100.0_dp) THEN
531 36 : CALL get_fit_coef_k14_sh(k, fit_coef, L_b, U_b)
532 : ELSE
533 126 : IF (Rc <= 1000.0_dp) THEN
534 34 : CALL get_fit_coef_k14_mi(k, fit_coef, L_b, U_b)
535 : ELSE
536 92 : 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 344 : IF (Rc >= R_max) THEN
542 8 : aw(1) = 3.2916678993378631E-06_dp
543 8 : aw(2) = 3.6211649942309474E-05_dp
544 8 : aw(3) = 1.9165204138720421E-04_dp
545 8 : aw(4) = 7.3970738152952427E-04_dp
546 8 : aw(5) = 2.3688276459558682E-03_dp
547 8 : aw(6) = 6.6832262130187142E-03_dp
548 8 : aw(7) = 1.7179191903350474E-02_dp
549 8 : aw(8) = 4.1087365085774624E-02_dp
550 8 : aw(9) = 9.2737907068114855E-02_dp
551 8 : aw(10) = 1.9954458193741717E-01_dp
552 8 : aw(11) = 4.1243407495664974E-01_dp
553 8 : aw(12) = 8.2392876030355866E-01_dp
554 8 : aw(13) = 1.6008068838318577E+00_dp
555 8 : aw(14) = 3.0544270604919670E+00_dp
556 8 : aw(15) = 5.8841569972355829E+00_dp
557 8 : aw(16) = 1.0522817667026174E-05_dp
558 8 : aw(17) = 6.9136785573218804E-05_dp
559 8 : aw(18) = 2.8302083846862936E-04_dp
560 8 : aw(19) = 9.2004648989894703E-04_dp
561 8 : aw(20) = 2.5901722444491987E-03_dp
562 8 : aw(21) = 6.5921351784279962E-03_dp
563 8 : aw(22) = 1.5551321239944434E-02_dp
564 8 : aw(23) = 3.4557794033658169E-02_dp
565 8 : aw(24) = 7.3145459688388037E-02_dp
566 8 : aw(25) = 1.4866796426944323E-01_dp
567 8 : aw(26) = 2.9202494628235121E-01_dp
568 8 : aw(27) = 5.5775841334330534E-01_dp
569 8 : aw(28) = 1.0451182163084207E+00_dp
570 8 : aw(29) = 1.9640378140134063E+00_dp
571 8 : aw(30) = 4.0343871534325908E+00_dp
572 : ELSE
573 336 : IF (Rc <= 100.0_dp) THEN
574 28 : CALL get_fit_coef_k15_sh(k, fit_coef, L_b, U_b)
575 : ELSE
576 308 : IF (Rc <= 1000.0_dp) THEN
577 142 : CALL get_fit_coef_k15_mi(k, fit_coef, L_b, U_b)
578 : ELSE
579 166 : 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 49586 : CPABORT("")
585 : END SELECT
586 : END IF
587 :
588 49586 : IF (Rc < R_max .AND. Rc >= R_min) THEN
589 21834 : R_transf = SQRT(L_b/Rc)
590 21834 : R_transf = SQRT(R_transf)*(SQRT(U_b/(U_b - L_b)) - SQRT(Rc/(U_b - L_b)))
591 218662 : DO kkk = 1, 2*k
592 196828 : aw(kkk) = fit_coef(0, kkk)
593 2580598 : DO icoef = 1, 12
594 2558764 : aw(kkk) = aw(kkk) + fit_coef(icoef, kkk)*R_transf**icoef
595 : END DO
596 : END DO
597 : END IF
598 :
599 49586 : IF (PRESENT(mm_error)) mm_error = get_minimax_numerical_error(Rc, aw)
600 :
601 49586 : CALL timestop(handle)
602 :
603 49586 : 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 24 : 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 24 : L_b = 2.0000000000000000E+00_dp
618 24 : U_b = 8.6669999999999998E+00_dp
619 24 : fit_coef(0, 1) = 4.4649260681804581E-01_dp
620 24 : fit_coef(1, 1) = 3.0675836870877398E-06_dp
621 24 : fit_coef(2, 1) = 1.2472664651690426E+00_dp
622 24 : fit_coef(3, 1) = -1.4325378312702204E+00_dp
623 24 : fit_coef(4, 1) = -2.8852101654931545E-01_dp
624 24 : fit_coef(5, 1) = 1.3224636333703371E+01_dp
625 24 : fit_coef(6, 1) = -5.6553448268455575E+01_dp
626 24 : fit_coef(7, 1) = 1.5090215216505641E+02_dp
627 24 : fit_coef(8, 1) = -2.8212708107138189E+02_dp
628 24 : fit_coef(9, 1) = 3.6970660684742296E+02_dp
629 24 : fit_coef(10, 1) = -3.2374043561240165E+02_dp
630 24 : fit_coef(11, 1) = 1.6996735688896140E+02_dp
631 24 : fit_coef(12, 1) = -4.0395921268987330E+01_dp
632 24 : fit_coef(0, 2) = 1.4290997884622449E+00_dp
633 24 : fit_coef(1, 2) = 5.6745594674266576E-06_dp
634 24 : fit_coef(2, 2) = 2.4380748907132181E+00_dp
635 24 : fit_coef(3, 2) = -2.8016418715477878E+00_dp
636 24 : fit_coef(4, 2) = 3.7584116167213760E-01_dp
637 24 : fit_coef(5, 2) = 2.3327242171726457E+01_dp
638 24 : fit_coef(6, 2) = -1.0520185473804629E+02_dp
639 24 : fit_coef(7, 2) = 2.8832898650596110E+02_dp
640 24 : fit_coef(8, 2) = -5.4924137182200832E+02_dp
641 24 : fit_coef(9, 2) = 7.3027624158467188E+02_dp
642 24 : fit_coef(10, 2) = -6.4709409025644425E+02_dp
643 24 : fit_coef(11, 2) = 3.4309801277522899E+02_dp
644 24 : fit_coef(12, 2) = -8.2224836383626666E+01_dp
645 :
646 24 : 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 52 : 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 52 : L_b = 2.0000000000000000E+00_dp
661 52 : U_b = 4.1539999999999999E+01_dp
662 52 : fit_coef(0, 1) = 9.3106187850842653E-02_dp
663 52 : fit_coef(1, 1) = -5.0629856861437123E-05_dp
664 52 : fit_coef(2, 1) = 1.0015082423014863E+00_dp
665 52 : fit_coef(3, 1) = -3.5061593037011978E+00_dp
666 52 : fit_coef(4, 1) = 1.4483017017771591E+01_dp
667 52 : fit_coef(5, 1) = -4.5087114171411322E+01_dp
668 52 : fit_coef(6, 1) = 1.0677856101159048E+02_dp
669 52 : fit_coef(7, 1) = -1.8217614209987144E+02_dp
670 52 : fit_coef(8, 1) = 2.1105105002638726E+02_dp
671 52 : fit_coef(9, 1) = -1.5567397052444477E+02_dp
672 52 : fit_coef(10, 1) = 6.5143729915539296E+01_dp
673 52 : fit_coef(11, 1) = -1.1144201390642060E+01_dp
674 52 : fit_coef(12, 1) = -4.0413697217822347E-01_dp
675 52 : fit_coef(0, 2) = 1.0301539533889652E+00_dp
676 52 : fit_coef(1, 2) = -1.8120259734086499E-04_dp
677 52 : fit_coef(2, 2) = 3.9565096665651787E+00_dp
678 52 : fit_coef(3, 2) = -1.3814853129007110E+01_dp
679 52 : fit_coef(4, 2) = 5.7316987025660488E+01_dp
680 52 : fit_coef(5, 2) = -1.7656913969609036E+02_dp
681 52 : fit_coef(6, 2) = 4.1570794568371764E+02_dp
682 52 : fit_coef(7, 2) = -7.0182518512857257E+02_dp
683 52 : fit_coef(8, 2) = 8.0388072043543650E+02_dp
684 52 : fit_coef(9, 2) = -5.9083346503424480E+02_dp
685 52 : fit_coef(10, 2) = 2.5295462667462738E+02_dp
686 52 : fit_coef(11, 2) = -4.9543705304205133E+01_dp
687 52 : fit_coef(12, 2) = 1.0078618878729646E+00_dp
688 52 : fit_coef(0, 3) = 2.9765555120179177E-01_dp
689 52 : fit_coef(1, 3) = -1.0353208854227029E-04_dp
690 52 : fit_coef(2, 3) = 2.3095283302989413E+00_dp
691 52 : fit_coef(3, 3) = -8.0576570729831154E+00_dp
692 52 : fit_coef(4, 3) = 3.3739368092954251E+01_dp
693 52 : fit_coef(5, 3) = -1.0475419759213936E+02_dp
694 52 : fit_coef(6, 3) = 2.4672759964823950E+02_dp
695 52 : fit_coef(7, 3) = -4.1482385671796834E+02_dp
696 52 : fit_coef(8, 3) = 4.6585822070233695E+02_dp
697 52 : fit_coef(9, 3) = -3.2366345592266214E+02_dp
698 52 : fit_coef(10, 3) = 1.1849771979400440E+02_dp
699 52 : fit_coef(11, 3) = -1.0906004349060501E+01_dp
700 52 : fit_coef(12, 3) = -3.7598063728027054E+00_dp
701 52 : fit_coef(0, 4) = 1.9917444037245748E+00_dp
702 52 : fit_coef(1, 4) = -1.5897415044355091E-04_dp
703 52 : fit_coef(2, 4) = 3.2506199533242417E+00_dp
704 52 : fit_coef(3, 4) = -1.1373065869782103E+01_dp
705 52 : fit_coef(4, 4) = 4.6558059922949951E+01_dp
706 52 : fit_coef(5, 4) = -1.4224165879889640E+02_dp
707 52 : fit_coef(6, 4) = 3.3658512396870015E+02_dp
708 52 : fit_coef(7, 4) = -5.7666672132123392E+02_dp
709 52 : fit_coef(8, 4) = 6.8845868913664435E+02_dp
710 52 : fit_coef(9, 4) = -5.5227838411317748E+02_dp
711 52 : fit_coef(10, 4) = 2.8109979885115376E+02_dp
712 52 : fit_coef(11, 4) = -8.0922550511268881E+01_dp
713 52 : fit_coef(12, 4) = 9.8057271611259083E+00_dp
714 :
715 52 : 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 112 : 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 112 : L_b = 2.0000000000000000E+00_dp
730 112 : U_b = 1.4680000000000001E+02_dp
731 112 : fit_coef(0, 1) = 2.6348727105229584E-02_dp
732 112 : fit_coef(1, 1) = 2.0153944068439938E-04_dp
733 112 : fit_coef(2, 1) = 6.1530657742665373E-01_dp
734 112 : fit_coef(3, 1) = -3.1917423654295867E+00_dp
735 112 : fit_coef(4, 1) = 1.8476493141601150E+01_dp
736 112 : fit_coef(5, 1) = -7.6512288788660001E+01_dp
737 112 : fit_coef(6, 1) = 2.3572982749223701E+02_dp
738 112 : fit_coef(7, 1) = -5.2565813705739686E+02_dp
739 112 : fit_coef(8, 1) = 8.2467549297012602E+02_dp
740 112 : fit_coef(9, 1) = -8.8144565993107483E+02_dp
741 112 : fit_coef(10, 1) = 6.0887047274283691E+02_dp
742 112 : fit_coef(11, 1) = -2.4457518923875350E+02_dp
743 112 : fit_coef(12, 1) = 4.3343959760454148E+01_dp
744 112 : fit_coef(0, 2) = 2.8996604313967794E-01_dp
745 112 : fit_coef(1, 2) = 9.1966653451787525E-04_dp
746 112 : fit_coef(2, 2) = 2.9603964889982954E+00_dp
747 112 : fit_coef(3, 2) = -1.5436155715607415E+01_dp
748 112 : fit_coef(4, 2) = 8.9046449784370381E+01_dp
749 112 : fit_coef(5, 2) = -3.6819211532781554E+02_dp
750 112 : fit_coef(6, 2) = 1.1368031324897308E+03_dp
751 112 : fit_coef(7, 2) = -2.5382696326038131E+03_dp
752 112 : fit_coef(8, 2) = 3.9825571880586440E+03_dp
753 112 : fit_coef(9, 2) = -4.2549854059515601E+03_dp
754 112 : fit_coef(10, 2) = 2.9378687444731368E+03_dp
755 112 : fit_coef(11, 2) = -1.1796924244872741E+03_dp
756 112 : fit_coef(12, 2) = 2.0901178723785654E+02_dp
757 112 : fit_coef(0, 3) = 1.5533604484128483E+00_dp
758 112 : fit_coef(1, 3) = 2.0797203873888733E-03_dp
759 112 : fit_coef(2, 3) = 6.8823846111885398E+00_dp
760 112 : fit_coef(3, 3) = -3.6081265871868659E+01_dp
761 112 : fit_coef(4, 3) = 2.0382721580134501E+02_dp
762 112 : fit_coef(5, 3) = -8.3588368834778782E+02_dp
763 112 : fit_coef(6, 3) = 2.5589042797513875E+03_dp
764 112 : fit_coef(7, 3) = -5.6774399573846031E+03_dp
765 112 : fit_coef(8, 3) = 8.8818039188117691E+03_dp
766 112 : fit_coef(9, 3) = -9.4791778618478966E+03_dp
767 112 : fit_coef(10, 3) = 6.5412200642397502E+03_dp
768 112 : fit_coef(11, 3) = -2.6248240660426704E+03_dp
769 112 : fit_coef(12, 3) = 4.6461771734428112E+02_dp
770 112 : fit_coef(0, 4) = 8.4232388261126792E-02_dp
771 112 : fit_coef(1, 4) = 4.8315351483134558E-04_dp
772 112 : fit_coef(2, 4) = 1.4901688878913604E+00_dp
773 112 : fit_coef(3, 4) = -7.7278009557035778E+00_dp
774 112 : fit_coef(4, 4) = 4.5200180529539338E+01_dp
775 112 : fit_coef(5, 4) = -1.8811770415936255E+02_dp
776 112 : fit_coef(6, 4) = 5.8400962109149202E+02_dp
777 112 : fit_coef(7, 4) = -1.3122325202133370E+03_dp
778 112 : fit_coef(8, 4) = 2.0704762349353055E+03_dp
779 112 : fit_coef(9, 4) = -2.2210949812031968E+03_dp
780 112 : fit_coef(10, 4) = 1.5374220056673389E+03_dp
781 112 : fit_coef(11, 4) = -6.1817894452963594E+02_dp
782 112 : fit_coef(12, 4) = 1.0958974382960224E+02_dp
783 112 : fit_coef(0, 5) = 5.5403377016655386E-01_dp
784 112 : fit_coef(1, 5) = 9.6266405874694016E-04_dp
785 112 : fit_coef(2, 5) = 3.2463696099948760E+00_dp
786 112 : fit_coef(3, 5) = -1.7046533273203099E+01_dp
787 112 : fit_coef(4, 5) = 9.6159163168231984E+01_dp
788 112 : fit_coef(5, 5) = -3.9387879060912519E+02_dp
789 112 : fit_coef(6, 5) = 1.2057094045527570E+03_dp
790 112 : fit_coef(7, 5) = -2.6721670291204064E+03_dp
791 112 : fit_coef(8, 5) = 4.1758049164403919E+03_dp
792 112 : fit_coef(9, 5) = -4.4574085233127789E+03_dp
793 112 : fit_coef(10, 5) = 3.0806227002555916E+03_dp
794 112 : fit_coef(11, 5) = -1.2391922190720968E+03_dp
795 112 : fit_coef(12, 5) = 2.1996432808098118E+02_dp
796 112 : fit_coef(0, 6) = 2.3557652649415379E+00_dp
797 112 : fit_coef(1, 6) = 1.2866271731043475E-03_dp
798 112 : fit_coef(2, 6) = 4.2915899775667716E+00_dp
799 112 : fit_coef(3, 6) = -2.2590368917521662E+01_dp
800 112 : fit_coef(4, 6) = 1.2467969331840358E+02_dp
801 112 : fit_coef(5, 6) = -5.0586944026595319E+02_dp
802 112 : fit_coef(6, 6) = 1.5294941344789261E+03_dp
803 112 : fit_coef(7, 6) = -3.3597570045760758E+03_dp
804 112 : fit_coef(8, 6) = 5.2196087711777982E+03_dp
805 112 : fit_coef(9, 6) = -5.5365578831549756E+03_dp
806 112 : fit_coef(10, 6) = 3.7972016920254159E+03_dp
807 112 : fit_coef(11, 6) = -1.5146892655309941E+03_dp
808 112 : fit_coef(12, 6) = 2.6667582714296555E+02_dp
809 :
810 112 : 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 19986 : 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 19986 : L_b = 2.0000000000000000E+00_dp
825 19986 : U_b = 4.3610000000000002E+02_dp
826 19986 : fit_coef(0, 1) = 8.8672649711285020E-03_dp
827 19986 : fit_coef(1, 1) = 5.7946595950817889E-04_dp
828 19986 : fit_coef(2, 1) = 3.5675945534374653E-01_dp
829 19986 : fit_coef(3, 1) = -2.0716213353930191E+00_dp
830 19986 : fit_coef(4, 1) = 1.2657470729413074E+01_dp
831 19986 : fit_coef(5, 1) = -4.9885844724999998E+01_dp
832 19986 : fit_coef(6, 1) = 1.4055190870387446E+02_dp
833 19986 : fit_coef(7, 1) = -2.8346908048131127E+02_dp
834 19986 : fit_coef(8, 1) = 4.0424697790393645E+02_dp
835 19986 : fit_coef(9, 1) = -3.9722796612734163E+02_dp
836 19986 : fit_coef(10, 1) = 2.5527240184308903E+02_dp
837 19986 : fit_coef(11, 1) = -9.6356867177556367E+01_dp
838 19986 : fit_coef(12, 1) = 1.6170840941701190E+01_dp
839 19986 : fit_coef(0, 2) = 9.7559203877924675E-02_dp
840 19986 : fit_coef(1, 2) = 3.0161149229635965E-03_dp
841 19986 : fit_coef(2, 2) = 1.8835046917379701E+00_dp
842 19986 : fit_coef(3, 2) = -1.1044051251373379E+01_dp
843 19986 : fit_coef(4, 2) = 6.6851851055246527E+01_dp
844 19986 : fit_coef(5, 2) = -2.6245846800700389E+02_dp
845 19986 : fit_coef(6, 2) = 7.3917115340985299E+02_dp
846 19986 : fit_coef(7, 2) = -1.4908588623752182E+03_dp
847 19986 : fit_coef(8, 2) = 2.1239922172484485E+03_dp
848 19986 : fit_coef(9, 2) = -2.0828446618499129E+03_dp
849 19986 : fit_coef(10, 2) = 1.3350612779873063E+03_dp
850 19986 : fit_coef(11, 2) = -5.0262753942439002E+02_dp
851 19986 : fit_coef(12, 2) = 8.4153648005965323E+01_dp
852 19986 : fit_coef(0, 3) = 5.1690155310834918E-01_dp
853 19986 : fit_coef(1, 3) = 7.9435328867281975E-03_dp
854 19986 : fit_coef(2, 3) = 5.1805612337915026E+00_dp
855 19986 : fit_coef(3, 3) = -3.1004834727213211E+01_dp
856 19986 : fit_coef(4, 3) = 1.8433410572917765E+02_dp
857 19986 : fit_coef(5, 3) = -7.2586403084370136E+02_dp
858 19986 : fit_coef(6, 3) = 2.0342579068012742E+03_dp
859 19986 : fit_coef(7, 3) = -4.0678145171858919E+03_dp
860 19986 : fit_coef(8, 3) = 5.7545086314708260E+03_dp
861 19986 : fit_coef(9, 3) = -5.6192254926256765E+03_dp
862 19986 : fit_coef(10, 3) = 3.5949228753416078E+03_dp
863 19986 : fit_coef(11, 3) = -1.3527284950245175E+03_dp
864 19986 : fit_coef(12, 3) = 2.2651488475207483E+02_dp
865 19986 : fit_coef(0, 4) = 2.0307980329330455E+00_dp
866 19986 : fit_coef(1, 4) = 1.5103721465188732E-02_dp
867 19986 : fit_coef(2, 4) = 1.0170027292275309E+01_dp
868 19986 : fit_coef(3, 4) = -6.1629536377936731E+01_dp
869 19986 : fit_coef(4, 4) = 3.6339135279187411E+02_dp
870 19986 : fit_coef(5, 4) = -1.4370905260427323E+03_dp
871 19986 : fit_coef(6, 4) = 4.0240409210934931E+03_dp
872 19986 : fit_coef(7, 4) = -8.0281015706711596E+03_dp
873 19986 : fit_coef(8, 4) = 1.1327126412565874E+04_dp
874 19986 : fit_coef(9, 4) = -1.1018179056966479E+04_dp
875 19986 : fit_coef(10, 4) = 7.0109171513047604E+03_dp
876 19986 : fit_coef(11, 4) = -2.6210011647009460E+03_dp
877 19986 : fit_coef(12, 4) = 4.3584541357166989E+02_dp
878 19986 : fit_coef(0, 5) = 2.8347760489671650E-02_dp
879 19986 : fit_coef(1, 5) = 1.4649670575243566E-03_dp
880 19986 : fit_coef(2, 5) = 8.8299650888912973E-01_dp
881 19986 : fit_coef(3, 5) = -5.0888392853266016E+00_dp
882 19986 : fit_coef(4, 5) = 3.1075839685772152E+01_dp
883 19986 : fit_coef(5, 5) = -1.2128602025520448E+02_dp
884 19986 : fit_coef(6, 5) = 3.3937414729640119E+02_dp
885 19986 : fit_coef(7, 5) = -6.8302048253288706E+02_dp
886 19986 : fit_coef(8, 5) = 9.7534981752611350E+02_dp
887 19986 : fit_coef(9, 5) = -9.6151742177938490E+02_dp
888 19986 : fit_coef(10, 5) = 6.2037394636212662E+02_dp
889 19986 : fit_coef(11, 5) = -2.3512801932664019E+02_dp
890 19986 : fit_coef(12, 5) = 3.9611471687460110E+01_dp
891 19986 : fit_coef(0, 6) = 1.8628153335173334E-01_dp
892 19986 : fit_coef(1, 6) = 3.5520276122272556E-03_dp
893 19986 : fit_coef(2, 6) = 2.3086588899079099E+00_dp
894 19986 : fit_coef(3, 6) = -1.3800728356647832E+01_dp
895 19986 : fit_coef(4, 6) = 8.2177612215645453E+01_dp
896 19986 : fit_coef(5, 6) = -3.2302705970393248E+02_dp
897 19986 : fit_coef(6, 6) = 9.0586751432164715E+02_dp
898 19986 : fit_coef(7, 6) = -1.8072280789056376E+03_dp
899 19986 : fit_coef(8, 6) = 2.5395651527460632E+03_dp
900 19986 : fit_coef(9, 6) = -2.4571249439954981E+03_dp
901 19986 : fit_coef(10, 6) = 1.5570737965484213E+03_dp
902 19986 : fit_coef(11, 6) = -5.8102885219535062E+02_dp
903 19986 : fit_coef(12, 6) = 9.6652055418531859E+01_dp
904 19986 : fit_coef(0, 7) = 7.6509143586699357E-01_dp
905 19986 : fit_coef(1, 7) = 6.2314075869334632E-03_dp
906 19986 : fit_coef(2, 7) = 4.2963285111812013E+00_dp
907 19986 : fit_coef(3, 7) = -2.6274891972880781E+01_dp
908 19986 : fit_coef(4, 7) = 1.5420391696751719E+02_dp
909 19986 : fit_coef(5, 7) = -6.1288005128817349E+02_dp
910 19986 : fit_coef(6, 7) = 1.7216536923227670E+03_dp
911 19986 : fit_coef(7, 7) = -3.4485704001993868E+03_dp
912 19986 : fit_coef(8, 7) = 4.8977145964963656E+03_dp
913 19986 : fit_coef(9, 7) = -4.8034792371771946E+03_dp
914 19986 : fit_coef(10, 7) = 3.0816756873370769E+03_dp
915 19986 : fit_coef(11, 7) = -1.1601064628670051E+03_dp
916 19986 : fit_coef(12, 7) = 1.9390631611709998E+02_dp
917 19986 : fit_coef(0, 8) = 2.6286642321590428E+00_dp
918 19986 : fit_coef(1, 8) = 7.7803605643329997E-03_dp
919 19986 : fit_coef(2, 8) = 5.3941542397285547E+00_dp
920 19986 : fit_coef(3, 8) = -3.3087210185862091E+01_dp
921 19986 : fit_coef(4, 8) = 1.9273310816176871E+02_dp
922 19986 : fit_coef(5, 8) = -7.6265175017497995E+02_dp
923 19986 : fit_coef(6, 8) = 2.1209378243539750E+03_dp
924 19986 : fit_coef(7, 8) = -4.1903565462442602E+03_dp
925 19986 : fit_coef(8, 8) = 5.8461185745331686E+03_dp
926 19986 : fit_coef(9, 8) = -5.6134540471156033E+03_dp
927 19986 : fit_coef(10, 8) = 3.5238957022458790E+03_dp
928 19986 : fit_coef(11, 8) = -1.3009219235427045E+03_dp
929 19986 : fit_coef(12, 8) = 2.1404715392962453E+02_dp
930 :
931 19986 : 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 84 : 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 84 : L_b = 2.0000000000000000E+00_dp
946 84 : U_b = 1.0000000000000000E+02_dp
947 84 : fit_coef(0, 1) = 1.2552725467386876E-02_dp
948 84 : fit_coef(1, 1) = 4.6649769538903360E-02_dp
949 84 : fit_coef(2, 1) = 9.2959477678781308E-02_dp
950 84 : fit_coef(3, 1) = 1.0149142608425701E-01_dp
951 84 : fit_coef(4, 1) = 2.8480683386527764E-02_dp
952 84 : fit_coef(5, 1) = 1.1113054160128813E-01_dp
953 84 : fit_coef(6, 1) = -6.0921078972010467E-01_dp
954 84 : fit_coef(7, 1) = 1.2596196983676409E+00_dp
955 84 : fit_coef(8, 1) = -1.8451880523904862E+00_dp
956 84 : fit_coef(9, 1) = 1.7957653403032408E+00_dp
957 84 : fit_coef(10, 1) = -1.0556136831977423E+00_dp
958 84 : fit_coef(11, 1) = 3.3910276380778348E-01_dp
959 84 : fit_coef(12, 1) = -4.6181724196745676E-02_dp
960 84 : fit_coef(0, 2) = 8.6549382218897089E-02_dp
961 84 : fit_coef(1, 2) = 2.4941345083475788E-01_dp
962 84 : fit_coef(2, 2) = 4.9245083501834641E-01_dp
963 84 : fit_coef(3, 2) = 5.3644207042808922E-01_dp
964 84 : fit_coef(4, 2) = 1.2428540956728855E-01_dp
965 84 : fit_coef(5, 2) = 6.7557445154066409E-01_dp
966 84 : fit_coef(6, 2) = -3.7485327413027623E+00_dp
967 84 : fit_coef(7, 2) = 8.1470783598203376E+00_dp
968 84 : fit_coef(8, 2) = -1.2089572776244864E+01_dp
969 84 : fit_coef(9, 2) = 1.1847479598929507E+01_dp
970 84 : fit_coef(10, 2) = -7.1090620100857240E+00_dp
971 84 : fit_coef(11, 2) = 2.3701867666711376E+00_dp
972 84 : fit_coef(12, 2) = -3.3987884749260155E-01_dp
973 84 : fit_coef(0, 3) = 3.3100121276962868E-01_dp
974 84 : fit_coef(1, 3) = 6.4559516531419092E-01_dp
975 84 : fit_coef(2, 3) = 1.1695370338909203E+00_dp
976 84 : fit_coef(3, 3) = 1.1909933210765451E+00_dp
977 84 : fit_coef(4, 3) = 3.2031142163339787E-01_dp
978 84 : fit_coef(5, 3) = 1.9886975419904467E+00_dp
979 84 : fit_coef(6, 3) = -9.7799471531969644E+00_dp
980 84 : fit_coef(7, 3) = 2.2252882892705870E+01_dp
981 84 : fit_coef(8, 3) = -3.7167325466273596E+01_dp
982 84 : fit_coef(9, 3) = 4.2278212835435340E+01_dp
983 84 : fit_coef(10, 3) = -2.9956267208984151E+01_dp
984 84 : fit_coef(11, 3) = 1.1968794532343871E+01_dp
985 84 : fit_coef(12, 3) = -2.0781674372557291E+00_dp
986 84 : fit_coef(0, 4) = 1.0393831770652862E+00_dp
987 84 : fit_coef(1, 4) = 1.2828501087122686E+00_dp
988 84 : fit_coef(2, 4) = 2.0825379734819873E+00_dp
989 84 : fit_coef(3, 4) = 1.7998297820064115E+00_dp
990 84 : fit_coef(4, 4) = 2.5080914149094569E-01_dp
991 84 : fit_coef(5, 4) = 4.4983607972730759E+00_dp
992 84 : fit_coef(6, 4) = -1.8966342225496536E+01_dp
993 84 : fit_coef(7, 4) = 4.5287344234453357E+01_dp
994 84 : fit_coef(8, 4) = -7.1920958793917023E+01_dp
995 84 : fit_coef(9, 4) = 6.9428467733194353E+01_dp
996 84 : fit_coef(10, 4) = -3.7831237207121376E+01_dp
997 84 : fit_coef(11, 4) = 1.0235977584153179E+01_dp
998 84 : fit_coef(12, 4) = -9.4268597782017161E-01_dp
999 84 : fit_coef(0, 5) = 2.9584698863596302E+00_dp
1000 84 : fit_coef(1, 5) = 2.1184323245195742E+00_dp
1001 84 : fit_coef(2, 5) = 3.1709055258739989E+00_dp
1002 84 : fit_coef(3, 5) = 2.2881184795555805E+00_dp
1003 84 : fit_coef(4, 5) = 1.3681290961089937E-01_dp
1004 84 : fit_coef(5, 5) = 5.7626338647647000E+00_dp
1005 84 : fit_coef(6, 5) = -2.2759359631501187E+01_dp
1006 84 : fit_coef(7, 5) = 5.5231152856101538E+01_dp
1007 84 : fit_coef(8, 5) = -8.4310336806818569E+01_dp
1008 84 : fit_coef(9, 5) = 7.9823159301719699E+01_dp
1009 84 : fit_coef(10, 5) = -4.7210036737799030E+01_dp
1010 84 : fit_coef(11, 5) = 1.6850346492810033E+01_dp
1011 84 : fit_coef(12, 5) = -2.8940063886358156E+00_dp
1012 84 : fit_coef(0, 6) = 3.4210297969183165E-02_dp
1013 84 : fit_coef(1, 6) = 1.1998863470153487E-01_dp
1014 84 : fit_coef(2, 6) = 2.4069816123621954E-01_dp
1015 84 : fit_coef(3, 6) = 2.6041301008819967E-01_dp
1016 84 : fit_coef(4, 6) = 6.3759797012621147E-02_dp
1017 84 : fit_coef(5, 6) = 2.9954791472086834E-01_dp
1018 84 : fit_coef(6, 6) = -1.6121273118458419E+00_dp
1019 84 : fit_coef(7, 6) = 3.4105969041090662E+00_dp
1020 84 : fit_coef(8, 6) = -5.1176148344713379E+00_dp
1021 84 : fit_coef(9, 6) = 5.1110976139035680E+00_dp
1022 84 : fit_coef(10, 6) = -3.1089038444203969E+00_dp
1023 84 : fit_coef(11, 6) = 1.0468712585814062E+00_dp
1024 84 : fit_coef(12, 6) = -1.5183313871493764E-01_dp
1025 84 : fit_coef(0, 7) = 1.3026228141842919E-01_dp
1026 84 : fit_coef(1, 7) = 2.9032232823923010E-01_dp
1027 84 : fit_coef(2, 7) = 5.4877493441677716E-01_dp
1028 84 : fit_coef(3, 7) = 5.9286988770199878E-01_dp
1029 84 : fit_coef(4, 7) = 1.6832665275575420E-01_dp
1030 84 : fit_coef(5, 7) = 7.6364041194666443E-01_dp
1031 84 : fit_coef(6, 7) = -4.1778527336132214E+00_dp
1032 84 : fit_coef(7, 7) = 8.2782930216328303E+00_dp
1033 84 : fit_coef(8, 7) = -1.0896573954399400E+01_dp
1034 84 : fit_coef(9, 7) = 9.5485112538544357E+00_dp
1035 84 : fit_coef(10, 7) = -5.1102322033174294E+00_dp
1036 84 : fit_coef(11, 7) = 1.4792267331631863E+00_dp
1037 84 : fit_coef(12, 7) = -1.7439726860494367E-01_dp
1038 84 : fit_coef(0, 8) = 4.0415838257065068E-01_dp
1039 84 : fit_coef(1, 8) = 5.1255268146080202E-01_dp
1040 84 : fit_coef(2, 8) = 7.9992895750622572E-01_dp
1041 84 : fit_coef(3, 8) = 6.6970622776170818E-01_dp
1042 84 : fit_coef(4, 8) = 3.1464540387258828E-02_dp
1043 84 : fit_coef(5, 8) = 2.7391878500879105E+00_dp
1044 84 : fit_coef(6, 8) = -1.1671256087331150E+01_dp
1045 84 : fit_coef(7, 8) = 3.2335565030282325E+01_dp
1046 84 : fit_coef(8, 8) = -6.2446813951907615E+01_dp
1047 84 : fit_coef(9, 8) = 7.6210993792312763E+01_dp
1048 84 : fit_coef(10, 8) = -5.5813236665948722E+01_dp
1049 84 : fit_coef(11, 8) = 2.2568205101339789E+01_dp
1050 84 : fit_coef(12, 8) = -3.8998743959104960E+00_dp
1051 84 : fit_coef(0, 9) = 1.1232181639604371E+00_dp
1052 84 : fit_coef(1, 9) = 7.5524302843049163E-01_dp
1053 84 : fit_coef(2, 9) = 1.0162656347519898E+00_dp
1054 84 : fit_coef(3, 9) = 5.2091134380973092E-01_dp
1055 84 : fit_coef(4, 9) = 6.2773571552543109E-02_dp
1056 84 : fit_coef(5, 9) = 4.7009056670980359E-01_dp
1057 84 : fit_coef(6, 9) = 9.6931752144443684E-01_dp
1058 84 : fit_coef(7, 9) = -8.1767165915400302E+00_dp
1059 84 : fit_coef(8, 9) = 3.1589453385128493E+01_dp
1060 84 : fit_coef(9, 9) = -6.0876284446976854E+01_dp
1061 84 : fit_coef(10, 9) = 6.0604503383962623E+01_dp
1062 84 : fit_coef(11, 9) = -3.0336494827398063E+01_dp
1063 84 : fit_coef(12, 9) = 6.0926762476688889E+00_dp
1064 84 : fit_coef(0, 10) = 3.0638169445090688E+00_dp
1065 84 : fit_coef(1, 10) = 8.9165891212009063E-01_dp
1066 84 : fit_coef(2, 10) = 1.1487286532265266E+00_dp
1067 84 : fit_coef(3, 10) = 5.1064617564126968E-01_dp
1068 84 : fit_coef(4, 10) = -4.7446553971131300E-01_dp
1069 84 : fit_coef(5, 10) = 3.6370240067130397E+00_dp
1070 84 : fit_coef(6, 10) = -1.5479102145878249E+01_dp
1071 84 : fit_coef(7, 10) = 4.6883317751508919E+01_dp
1072 84 : fit_coef(8, 10) = -8.9069835651344420E+01_dp
1073 84 : fit_coef(9, 10) = 1.1482810068630945E+02_dp
1074 84 : fit_coef(10, 10) = -9.5886031308673950E+01_dp
1075 84 : fit_coef(11, 10) = 4.5677182175500711E+01_dp
1076 84 : fit_coef(12, 10) = -9.3187455185522623E+00_dp
1077 :
1078 84 : 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 36 : 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 36 : L_b = 1.0000000000000000E+02_dp
1093 36 : U_b = 1.1540000000000000E+03_dp
1094 36 : fit_coef(0, 1) = 3.3529086066115803E-03_dp
1095 36 : fit_coef(1, 1) = -8.2268999028435328E-06_dp
1096 36 : fit_coef(2, 1) = 3.3611781342021224E-02_dp
1097 36 : fit_coef(3, 1) = -1.3832592990876919E-01_dp
1098 36 : fit_coef(4, 1) = 6.8079696115130983E-01_dp
1099 36 : fit_coef(5, 1) = -2.6681612815812645E+00_dp
1100 36 : fit_coef(6, 1) = 8.2290959869689022E+00_dp
1101 36 : fit_coef(7, 1) = -1.9074468376984107E+01_dp
1102 36 : fit_coef(8, 1) = 3.2127429353482611E+01_dp
1103 36 : fit_coef(9, 1) = -3.7859356041773175E+01_dp
1104 36 : fit_coef(10, 1) = 2.9446783510204408E+01_dp
1105 36 : fit_coef(11, 1) = -1.3538459324077703E+01_dp
1106 36 : fit_coef(12, 1) = 2.7808973445415268E+00_dp
1107 36 : fit_coef(0, 2) = 3.6885509656511273E-02_dp
1108 36 : fit_coef(1, 2) = -4.6135404124615802E-05_dp
1109 36 : fit_coef(2, 2) = 1.8694797387922529E-01_dp
1110 36 : fit_coef(3, 2) = -7.7044086984549065E-01_dp
1111 36 : fit_coef(4, 2) = 3.7458845491550794E+00_dp
1112 36 : fit_coef(5, 2) = -1.4597914775662142E+01_dp
1113 36 : fit_coef(6, 2) = 4.4865271280504238E+01_dp
1114 36 : fit_coef(7, 2) = -1.0374981069891059E+02_dp
1115 36 : fit_coef(8, 2) = 1.7445816708209344E+02_dp
1116 36 : fit_coef(9, 2) = -2.0533721999642813E+02_dp
1117 36 : fit_coef(10, 2) = 1.5956721649659403E+02_dp
1118 36 : fit_coef(11, 2) = -7.3312269788822348E+01_dp
1119 36 : fit_coef(12, 2) = 1.5050733022098333E+01_dp
1120 36 : fit_coef(0, 3) = 1.9524285077618225E-01_dp
1121 36 : fit_coef(1, 3) = -1.3983711740977594E-04_dp
1122 36 : fit_coef(2, 3) = 5.5888718949926475E-01_dp
1123 36 : fit_coef(3, 3) = -2.3088502072129957E+00_dp
1124 36 : fit_coef(4, 3) = 1.0999754812308348E+01_dp
1125 36 : fit_coef(5, 3) = -4.2542674867782623E+01_dp
1126 36 : fit_coef(6, 3) = 1.2991866971851243E+02_dp
1127 36 : fit_coef(7, 3) = -2.9910040841843386E+02_dp
1128 36 : fit_coef(8, 3) = 5.0131493127323301E+02_dp
1129 36 : fit_coef(9, 3) = -5.8857681580426390E+02_dp
1130 36 : fit_coef(10, 3) = 4.5649949573815150E+02_dp
1131 36 : fit_coef(11, 3) = -2.0942533223478736E+02_dp
1132 36 : fit_coef(12, 3) = 4.2945558512158080E+01_dp
1133 36 : fit_coef(0, 4) = 7.5508121759060887E-01_dp
1134 36 : fit_coef(1, 4) = -3.1605312969997662E-04_dp
1135 36 : fit_coef(2, 4) = 1.2522786699714503E+00_dp
1136 36 : fit_coef(3, 4) = -5.1813437090592105E+00_dp
1137 36 : fit_coef(4, 4) = 2.4364506762575651E+01_dp
1138 36 : fit_coef(5, 4) = -9.3776364610573921E+01_dp
1139 36 : fit_coef(6, 4) = 2.8515029307910078E+02_dp
1140 36 : fit_coef(7, 4) = -6.5452025447927747E+02_dp
1141 36 : fit_coef(8, 4) = 1.0946041909024659E+03_dp
1142 36 : fit_coef(9, 4) = -1.2829510036669149E+03_dp
1143 36 : fit_coef(10, 4) = 9.9375334913507118E+02_dp
1144 36 : fit_coef(11, 4) = -4.5544368131405361E+02_dp
1145 36 : fit_coef(12, 4) = 9.3324529570079108E+01_dp
1146 36 : fit_coef(0, 5) = 2.4730351053385511E+00_dp
1147 36 : fit_coef(1, 5) = -5.6369602817021478E-04_dp
1148 36 : fit_coef(2, 5) = 2.2229968075692117E+00_dp
1149 36 : fit_coef(3, 5) = -9.2054846165557898E+00_dp
1150 36 : fit_coef(4, 5) = 4.2976267592818459E+01_dp
1151 36 : fit_coef(5, 5) = -1.6496009719447150E+02_dp
1152 36 : fit_coef(6, 5) = 5.0038928803322085E+02_dp
1153 36 : fit_coef(7, 5) = -1.1466294337635131E+03_dp
1154 36 : fit_coef(8, 5) = 1.9151887594969048E+03_dp
1155 36 : fit_coef(9, 5) = -2.2425568445298004E+03_dp
1156 36 : fit_coef(10, 5) = 1.7357499822754255E+03_dp
1157 36 : fit_coef(11, 5) = -7.9505099488495580E+02_dp
1158 36 : fit_coef(12, 5) = 1.6284234597227066E+02_dp
1159 36 : fit_coef(0, 6) = 1.0718594277376004E-02_dp
1160 36 : fit_coef(1, 6) = -2.0665714271050207E-05_dp
1161 36 : fit_coef(2, 6) = 8.4582172811458273E-02_dp
1162 36 : fit_coef(3, 6) = -3.4797663076359847E-01_dp
1163 36 : fit_coef(4, 6) = 1.7165661645244641E+00_dp
1164 36 : fit_coef(5, 6) = -6.7291693231375893E+00_dp
1165 36 : fit_coef(6, 6) = 2.0768418975747345E+01_dp
1166 36 : fit_coef(7, 6) = -4.8168030617751583E+01_dp
1167 36 : fit_coef(8, 6) = 8.1164964031411273E+01_dp
1168 36 : fit_coef(9, 6) = -9.5679411237784350E+01_dp
1169 36 : fit_coef(10, 6) = 7.4441710956106434E+01_dp
1170 36 : fit_coef(11, 6) = -3.4234363834212587E+01_dp
1171 36 : fit_coef(12, 6) = 7.0335229296269830E+00_dp
1172 36 : fit_coef(0, 7) = 7.0423918791211709E-02_dp
1173 36 : fit_coef(1, 7) = -6.0238742257850590E-05_dp
1174 36 : fit_coef(2, 7) = 2.4113679202510896E-01_dp
1175 36 : fit_coef(3, 7) = -9.9588383189867091E-01_dp
1176 36 : fit_coef(4, 7) = 4.7554782250087468E+00_dp
1177 36 : fit_coef(5, 7) = -1.8401716891304922E+01_dp
1178 36 : fit_coef(6, 7) = 5.6243855385486498E+01_dp
1179 36 : fit_coef(7, 7) = -1.2955708976498997E+02_dp
1180 36 : fit_coef(8, 7) = 2.1724259904024584E+02_dp
1181 36 : fit_coef(9, 7) = -2.5514786204737450E+02_dp
1182 36 : fit_coef(10, 7) = 1.9794444495810336E+02_dp
1183 36 : fit_coef(11, 7) = -9.0825962860161653E+01_dp
1184 36 : fit_coef(12, 7) = 1.8627265430579317E+01_dp
1185 36 : fit_coef(0, 8) = 2.8840117189215214E-01_dp
1186 36 : fit_coef(1, 8) = -1.3225944743723339E-04_dp
1187 36 : fit_coef(2, 8) = 5.2242393022997591E-01_dp
1188 36 : fit_coef(3, 8) = -2.1627434438440303E+00_dp
1189 36 : fit_coef(4, 8) = 1.0121981765560314E+01_dp
1190 36 : fit_coef(5, 8) = -3.8888859154975577E+01_dp
1191 36 : fit_coef(6, 8) = 1.1806445276665656E+02_dp
1192 36 : fit_coef(7, 8) = -2.7069811465697614E+02_dp
1193 36 : fit_coef(8, 8) = 4.5233627491539119E+02_dp
1194 36 : fit_coef(9, 8) = -5.2982955497378055E+02_dp
1195 36 : fit_coef(10, 8) = 4.1019408642078287E+02_dp
1196 36 : fit_coef(11, 8) = -1.8792358285758019E+02_dp
1197 36 : fit_coef(12, 8) = 3.8496219600202558E+01_dp
1198 36 : fit_coef(0, 9) = 9.4333095808344458E-01_dp
1199 36 : fit_coef(1, 9) = -2.1878257569565257E-04_dp
1200 36 : fit_coef(2, 9) = 8.5869507294830094E-01_dp
1201 36 : fit_coef(3, 9) = -3.5589224290290429E+00_dp
1202 36 : fit_coef(4, 9) = 1.6493170506220842E+01_dp
1203 36 : fit_coef(5, 9) = -6.3130491079340260E+01_dp
1204 36 : fit_coef(6, 9) = 1.9101930146767009E+02_dp
1205 36 : fit_coef(7, 9) = -4.3694612969128224E+02_dp
1206 36 : fit_coef(8, 9) = 7.2886349059237500E+02_dp
1207 36 : fit_coef(9, 9) = -8.5258297326024899E+02_dp
1208 36 : fit_coef(10, 9) = 6.5938598174532456E+02_dp
1209 36 : fit_coef(11, 9) = -3.0184732852622824E+02_dp
1210 36 : fit_coef(12, 9) = 6.1796237778410379E+01_dp
1211 36 : fit_coef(0, 10) = 2.8485312741055728E+00_dp
1212 36 : fit_coef(1, 10) = -2.6597242771707791E-04_dp
1213 36 : fit_coef(2, 10) = 1.0421996494576409E+00_dp
1214 36 : fit_coef(3, 10) = -4.3207432293774151E+00_dp
1215 36 : fit_coef(4, 10) = 1.9972564302073831E+01_dp
1216 36 : fit_coef(5, 10) = -7.6371765475451213E+01_dp
1217 36 : fit_coef(6, 10) = 2.3088260828483425E+02_dp
1218 36 : fit_coef(7, 10) = -5.2780572532914982E+02_dp
1219 36 : fit_coef(8, 10) = 8.8002099877005821E+02_dp
1220 36 : fit_coef(9, 10) = -1.0290334029188657E+03_dp
1221 36 : fit_coef(10, 10) = 7.9563294851641638E+02_dp
1222 36 : fit_coef(11, 10) = -3.6413961414797035E+02_dp
1223 36 : fit_coef(12, 10) = 7.4536963875157937E+01_dp
1224 :
1225 36 : 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 100 : 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 100 : L_b = 2.0000000000000000E+00_dp
1240 100 : U_b = 1.0000000000000000E+02_dp
1241 100 : fit_coef(0, 1) = 1.0105361899470566E-02_dp
1242 100 : fit_coef(1, 1) = 3.9366983227627925E-02_dp
1243 100 : fit_coef(2, 1) = 7.8053377439735977E-02_dp
1244 100 : fit_coef(3, 1) = 8.6837580919162383E-02_dp
1245 100 : fit_coef(4, 1) = 4.6771807433750277E-02_dp
1246 100 : fit_coef(5, 1) = -6.6734672326170835E-02_dp
1247 100 : fit_coef(6, 1) = 9.9926171459107288E-02_dp
1248 100 : fit_coef(7, 1) = -4.1644827063229539E-01_dp
1249 100 : fit_coef(8, 1) = 7.6706989454888019E-01_dp
1250 100 : fit_coef(9, 1) = -8.7152052671237190E-01_dp
1251 100 : fit_coef(10, 1) = 6.5955681044267345E-01_dp
1252 100 : fit_coef(11, 1) = -2.9363049092199256E-01_dp
1253 100 : fit_coef(12, 1) = 5.6414782302946012E-02_dp
1254 100 : fit_coef(0, 2) = 6.3047382400045412E-02_dp
1255 100 : fit_coef(1, 2) = 2.1292104950028926E-01_dp
1256 100 : fit_coef(2, 2) = 4.1580501626077238E-01_dp
1257 100 : fit_coef(3, 2) = 4.5381507206227650E-01_dp
1258 100 : fit_coef(4, 2) = 2.3261948283202027E-01_dp
1259 100 : fit_coef(5, 2) = -3.7333612007818145E-01_dp
1260 100 : fit_coef(6, 2) = 5.8891901066912178E-01_dp
1261 100 : fit_coef(7, 2) = -2.2435149407329531E+00_dp
1262 100 : fit_coef(8, 2) = 4.0761036364131602E+00_dp
1263 100 : fit_coef(9, 2) = -4.5995236732489717E+00_dp
1264 100 : fit_coef(10, 2) = 3.4552630197713277E+00_dp
1265 100 : fit_coef(11, 2) = -1.5313736452266173E+00_dp
1266 100 : fit_coef(12, 2) = 2.9408638427612482E-01_dp
1267 100 : fit_coef(0, 3) = 2.1176071064496055E-01_dp
1268 100 : fit_coef(1, 3) = 5.4982332295197556E-01_dp
1269 100 : fit_coef(2, 3) = 1.0068197532238754E+00_dp
1270 100 : fit_coef(3, 3) = 1.0684972989083634E+00_dp
1271 100 : fit_coef(4, 3) = 6.0915448276900608E-01_dp
1272 100 : fit_coef(5, 3) = -1.0238203491794160E+00_dp
1273 100 : fit_coef(6, 3) = 2.1584333978631443E+00_dp
1274 100 : fit_coef(7, 3) = -8.0611200001081951E+00_dp
1275 100 : fit_coef(8, 3) = 1.5009961267213102E+01_dp
1276 100 : fit_coef(9, 3) = -1.6828339663434313E+01_dp
1277 100 : fit_coef(10, 3) = 1.2012563864685774E+01_dp
1278 100 : fit_coef(11, 3) = -4.9849632599680698E+00_dp
1279 100 : fit_coef(12, 3) = 9.0294945051842401E-01_dp
1280 100 : fit_coef(0, 4) = 5.9366013171339316E-01_dp
1281 100 : fit_coef(1, 4) = 1.1012914782020269E+00_dp
1282 100 : fit_coef(2, 4) = 1.8080642501136919E+00_dp
1283 100 : fit_coef(3, 4) = 1.7378820099827390E+00_dp
1284 100 : fit_coef(4, 4) = 9.4465841905941816E-01_dp
1285 100 : fit_coef(5, 4) = -7.9254597628432621E-01_dp
1286 100 : fit_coef(6, 4) = 8.0775877014080266E-01_dp
1287 100 : fit_coef(7, 4) = -2.8523919108461318E+00_dp
1288 100 : fit_coef(8, 4) = -5.3307961129947901E-01_dp
1289 100 : fit_coef(9, 4) = 6.7453388823676228E+00_dp
1290 100 : fit_coef(10, 4) = -6.9248289720281742E+00_dp
1291 100 : fit_coef(11, 4) = 2.9021292958698686E+00_dp
1292 100 : fit_coef(12, 4) = -4.5434573537973694E-01_dp
1293 100 : fit_coef(0, 5) = 1.5164074934712080E+00_dp
1294 100 : fit_coef(1, 5) = 1.8998922859528067E+00_dp
1295 100 : fit_coef(2, 5) = 2.7894259870776525E+00_dp
1296 100 : fit_coef(3, 5) = 2.2836065839718458E+00_dp
1297 100 : fit_coef(4, 5) = 1.2416212609604089E+00_dp
1298 100 : fit_coef(5, 5) = -1.9153393783150017E+00_dp
1299 100 : fit_coef(6, 5) = 7.9420474748342826E+00_dp
1300 100 : fit_coef(7, 5) = -2.4492358033298018E+01_dp
1301 100 : fit_coef(8, 5) = 4.7450493814300060E+01_dp
1302 100 : fit_coef(9, 5) = -6.6407651969522661E+01_dp
1303 100 : fit_coef(10, 5) = 6.0384585557333999E+01_dp
1304 100 : fit_coef(11, 5) = -3.0372584465966241E+01_dp
1305 100 : fit_coef(12, 5) = 6.3523080267784335E+00_dp
1306 100 : fit_coef(0, 6) = 3.7104671974427847E+00_dp
1307 100 : fit_coef(1, 6) = 2.8916704696341959E+00_dp
1308 100 : fit_coef(2, 6) = 3.9056283047263785E+00_dp
1309 100 : fit_coef(3, 6) = 2.7310607551007684E+00_dp
1310 100 : fit_coef(4, 6) = 1.4374042741229791E+00_dp
1311 100 : fit_coef(5, 6) = -3.4614723670541747E+00_dp
1312 100 : fit_coef(6, 6) = 1.5897273148597373E+01_dp
1313 100 : fit_coef(7, 6) = -4.2970295002223452E+01_dp
1314 100 : fit_coef(8, 6) = 7.7894359559436722E+01_dp
1315 100 : fit_coef(9, 6) = -9.5319740659866412E+01_dp
1316 100 : fit_coef(10, 6) = 7.1950730534128169E+01_dp
1317 100 : fit_coef(11, 6) = -2.9556628041991047E+01_dp
1318 100 : fit_coef(12, 6) = 5.0101543449317205E+00_dp
1319 100 : fit_coef(0, 7) = 2.6903751790128751E-02_dp
1320 100 : fit_coef(1, 7) = 1.0173916967403172E-01_dp
1321 100 : fit_coef(2, 7) = 2.0130716226577558E-01_dp
1322 100 : fit_coef(3, 7) = 2.2172005830916267E-01_dp
1323 100 : fit_coef(4, 7) = 1.1797631841567084E-01_dp
1324 100 : fit_coef(5, 7) = -1.7271060154154347E-01_dp
1325 100 : fit_coef(6, 7) = 2.7144317536179635E-01_dp
1326 100 : fit_coef(7, 7) = -1.1089252106255005E+00_dp
1327 100 : fit_coef(8, 7) = 2.0389731343247885E+00_dp
1328 100 : fit_coef(9, 7) = -2.3121180806820467E+00_dp
1329 100 : fit_coef(10, 7) = 1.7413776939963503E+00_dp
1330 100 : fit_coef(11, 7) = -7.7162742625008818E-01_dp
1331 100 : fit_coef(12, 7) = 1.4782756356123158E-01_dp
1332 100 : fit_coef(0, 8) = 8.6888406935520149E-02_dp
1333 100 : fit_coef(1, 8) = 2.4888995444204018E-01_dp
1334 100 : fit_coef(2, 8) = 4.7199012197419227E-01_dp
1335 100 : fit_coef(3, 8) = 5.1105786073145709E-01_dp
1336 100 : fit_coef(4, 8) = 2.5740296918257327E-01_dp
1337 100 : fit_coef(5, 8) = -4.3538515482693113E-01_dp
1338 100 : fit_coef(6, 8) = 6.0029937052834403E-01_dp
1339 100 : fit_coef(7, 8) = -2.3033251784048994E+00_dp
1340 100 : fit_coef(8, 8) = 4.3994596232924978E+00_dp
1341 100 : fit_coef(9, 8) = -5.1923409302629455E+00_dp
1342 100 : fit_coef(10, 8) = 4.0222988922179050E+00_dp
1343 100 : fit_coef(11, 8) = -1.8176576142253549E+00_dp
1344 100 : fit_coef(12, 8) = 3.5423906095949409E-01_dp
1345 100 : fit_coef(0, 9) = 2.3221985873092740E-01_dp
1346 100 : fit_coef(1, 9) = 4.3438739423022149E-01_dp
1347 100 : fit_coef(2, 9) = 7.0152946783034409E-01_dp
1348 100 : fit_coef(3, 9) = 6.7672001661556891E-01_dp
1349 100 : fit_coef(4, 9) = 4.8622153708717586E-01_dp
1350 100 : fit_coef(5, 9) = -8.1041365351394823E-01_dp
1351 100 : fit_coef(6, 9) = 2.6701912318720957E+00_dp
1352 100 : fit_coef(7, 9) = -8.7205715741371570E+00_dp
1353 100 : fit_coef(8, 9) = 1.3607358717959904E+01_dp
1354 100 : fit_coef(9, 9) = -1.1724874566877528E+01_dp
1355 100 : fit_coef(10, 9) = 5.7575285125779478E+00_dp
1356 100 : fit_coef(11, 9) = -1.4357902050465099E+00_dp
1357 100 : fit_coef(12, 9) = 1.1555583770987149E-01_dp
1358 100 : fit_coef(0, 10) = 5.7977445413011319E-01_dp
1359 100 : fit_coef(1, 10) = 6.7547720201746209E-01_dp
1360 100 : fit_coef(2, 10) = 8.9708210777254471E-01_dp
1361 100 : fit_coef(3, 10) = 6.3516703724773627E-01_dp
1362 100 : fit_coef(4, 10) = 1.3236506065579925E-01_dp
1363 100 : fit_coef(5, 10) = 1.1242277490562433E+00_dp
1364 100 : fit_coef(6, 10) = -4.2391903965270812E+00_dp
1365 100 : fit_coef(7, 10) = 1.3658960134998143E+01_dp
1366 100 : fit_coef(8, 10) = -2.7055678231066494E+01_dp
1367 100 : fit_coef(9, 10) = 2.7613753748428412E+01_dp
1368 100 : fit_coef(10, 10) = -1.3209392906437861E+01_dp
1369 100 : fit_coef(11, 10) = 1.7306395341708665E+00_dp
1370 100 : fit_coef(12, 10) = 4.1257627070756253E-01_dp
1371 100 : fit_coef(0, 11) = 1.3735367200768180E+00_dp
1372 100 : fit_coef(1, 11) = 9.1204205070843380E-01_dp
1373 100 : fit_coef(2, 11) = 1.0566274747133615E+00_dp
1374 100 : fit_coef(3, 11) = 4.5662075463077345E-01_dp
1375 100 : fit_coef(4, 11) = 4.9184167220410918E-01_dp
1376 100 : fit_coef(5, 11) = -3.3759011651764603E+00_dp
1377 100 : fit_coef(6, 11) = 1.7420644860890455E+01_dp
1378 100 : fit_coef(7, 11) = -5.0539046535940329E+01_dp
1379 100 : fit_coef(8, 11) = 1.0164085731266914E+02_dp
1380 100 : fit_coef(9, 11) = -1.3287580093754113E+02_dp
1381 100 : fit_coef(10, 11) = 1.0416384226984417E+02_dp
1382 100 : fit_coef(11, 11) = -4.4207454491849361E+01_dp
1383 100 : fit_coef(12, 11) = 7.8051805666697041E+00_dp
1384 100 : fit_coef(0, 12) = 3.3571561549545903E+00_dp
1385 100 : fit_coef(1, 12) = 1.0554507466925072E+00_dp
1386 100 : fit_coef(2, 12) = 1.1790184249005025E+00_dp
1387 100 : fit_coef(3, 12) = 4.8131299480494466E-01_dp
1388 100 : fit_coef(4, 12) = -1.4373971957160242E-01_dp
1389 100 : fit_coef(5, 12) = 7.0579667305022653E-01_dp
1390 100 : fit_coef(6, 12) = -2.8433888321215206E+00_dp
1391 100 : fit_coef(7, 12) = 1.4837347864587512E+01_dp
1392 100 : fit_coef(8, 12) = -3.6747200470183884E+01_dp
1393 100 : fit_coef(9, 12) = 5.8955148084383744E+01_dp
1394 100 : fit_coef(10, 12) = -5.7353458415070598E+01_dp
1395 100 : fit_coef(11, 12) = 2.9868904883232268E+01_dp
1396 100 : fit_coef(12, 12) = -6.3780881018464042E+00_dp
1397 :
1398 100 : 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 44 : 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 44 : L_b = 1.0000000000000000E+02_dp
1413 44 : U_b = 2.8070000000000000E+03_dp
1414 44 : fit_coef(0, 1) = 1.3801918030773162E-03_dp
1415 44 : fit_coef(1, 1) = -1.2020528483486374E-05_dp
1416 44 : fit_coef(2, 1) = 2.3317704806718915E-02_dp
1417 44 : fit_coef(3, 1) = -1.1872432794031121E-01_dp
1418 44 : fit_coef(4, 1) = 6.7174538480429080E-01_dp
1419 44 : fit_coef(5, 1) = -2.7971289614009751E+00_dp
1420 44 : fit_coef(6, 1) = 8.6652048337367535E+00_dp
1421 44 : fit_coef(7, 1) = -1.9404181258270555E+01_dp
1422 44 : fit_coef(8, 1) = 3.0766165134677419E+01_dp
1423 44 : fit_coef(9, 1) = -3.3559777770469893E+01_dp
1424 44 : fit_coef(10, 1) = 2.3905145262192065E+01_dp
1425 44 : fit_coef(11, 1) = -9.9977817398860651E+00_dp
1426 44 : fit_coef(12, 1) = 1.8600935931530318E+00_dp
1427 44 : fit_coef(0, 2) = 1.5183557920944469E-02_dp
1428 44 : fit_coef(1, 2) = -7.0300568913718165E-05_dp
1429 44 : fit_coef(2, 2) = 1.3444945392494670E-01_dp
1430 44 : fit_coef(3, 2) = -6.8712467440053460E-01_dp
1431 44 : fit_coef(4, 2) = 3.8439092624947708E+00_dp
1432 44 : fit_coef(5, 2) = -1.5943863755337579E+01_dp
1433 44 : fit_coef(6, 2) = 4.9281124351364589E+01_dp
1434 44 : fit_coef(7, 2) = -1.1020727704358747E+02_dp
1435 44 : fit_coef(8, 2) = 1.7458545156698841E+02_dp
1436 44 : fit_coef(9, 2) = -1.9032304924079617E+02_dp
1437 44 : fit_coef(10, 2) = 1.3551010987771855E+02_dp
1438 44 : fit_coef(11, 2) = -5.6654664500478205E+01_dp
1439 44 : fit_coef(12, 2) = 1.0537734527387647E+01_dp
1440 44 : fit_coef(0, 3) = 8.0361343459697018E-02_dp
1441 44 : fit_coef(1, 3) = -2.2644879609720777E-04_dp
1442 44 : fit_coef(2, 3) = 4.2400787838782916E-01_dp
1443 44 : fit_coef(3, 3) = -2.1793513661368733E+00_dp
1444 44 : fit_coef(4, 3) = 1.1986721121277252E+01_dp
1445 44 : fit_coef(5, 3) = -4.9550061013597045E+01_dp
1446 44 : fit_coef(6, 3) = 1.5269170262558245E+02_dp
1447 44 : fit_coef(7, 3) = -3.4093496564056039E+02_dp
1448 44 : fit_coef(8, 3) = 5.3967525217022001E+02_dp
1449 44 : fit_coef(9, 3) = -5.8799761545490060E+02_dp
1450 44 : fit_coef(10, 3) = 4.1842708147977544E+02_dp
1451 44 : fit_coef(11, 3) = -1.7483665022530386E+02_dp
1452 44 : fit_coef(12, 3) = 3.2499971977161401E+01_dp
1453 44 : fit_coef(0, 4) = 3.1025521547243406E-01_dp
1454 44 : fit_coef(1, 4) = -5.5670514020829420E-04_dp
1455 44 : fit_coef(2, 4) = 1.0283519940275256E+00_dp
1456 44 : fit_coef(3, 4) = -5.3051948737708079E+00_dp
1457 44 : fit_coef(4, 4) = 2.8857705580976056E+01_dp
1458 44 : fit_coef(5, 4) = -1.1904005396455449E+02_dp
1459 44 : fit_coef(6, 4) = 3.6607040216746668E+02_dp
1460 44 : fit_coef(7, 4) = -8.1652968181369386E+02_dp
1461 44 : fit_coef(8, 4) = 1.2917726681162258E+03_dp
1462 44 : fit_coef(9, 4) = -1.4068028264311984E+03_dp
1463 44 : fit_coef(10, 4) = 1.0006527523899351E+03_dp
1464 44 : fit_coef(11, 4) = -4.1792217327242378E+02_dp
1465 44 : fit_coef(12, 4) = 7.7650266966660254E+01_dp
1466 44 : fit_coef(0, 5) = 9.9661072333548284E-01_dp
1467 44 : fit_coef(1, 5) = -1.1171889827697565E-03_dp
1468 44 : fit_coef(2, 5) = 2.0461119945840913E+00_dp
1469 44 : fit_coef(3, 5) = -1.0580601944377532E+01_dp
1470 44 : fit_coef(4, 5) = 5.7146266925973983E+01_dp
1471 44 : fit_coef(5, 5) = -2.3540296082342908E+02_dp
1472 44 : fit_coef(6, 5) = 7.2293490323806668E+02_dp
1473 44 : fit_coef(7, 5) = -1.6114328355080609E+03_dp
1474 44 : fit_coef(8, 5) = 2.5483891682119961E+03_dp
1475 44 : fit_coef(9, 5) = -2.7745316619650062E+03_dp
1476 44 : fit_coef(10, 5) = 1.9729645919543370E+03_dp
1477 44 : fit_coef(11, 5) = -8.2377007268050909E+02_dp
1478 44 : fit_coef(12, 5) = 1.5301212059298075E+02_dp
1479 44 : fit_coef(0, 6) = 2.8871384041721235E+00_dp
1480 44 : fit_coef(1, 6) = -1.8663713535930727E-03_dp
1481 44 : fit_coef(2, 6) = 3.4015318790079183E+00_dp
1482 44 : fit_coef(3, 6) = -1.7613395948721490E+01_dp
1483 44 : fit_coef(4, 6) = 9.4741249061261925E+01_dp
1484 44 : fit_coef(5, 6) = -3.8994245150367010E+02_dp
1485 44 : fit_coef(6, 6) = 1.1965993777329293E+03_dp
1486 44 : fit_coef(7, 6) = -2.6661783300231391E+03_dp
1487 44 : fit_coef(8, 6) = 4.2155136266861591E+03_dp
1488 44 : fit_coef(9, 6) = -4.5888706525865791E+03_dp
1489 44 : fit_coef(10, 6) = 3.2626368424723773E+03_dp
1490 44 : fit_coef(11, 6) = -1.3620271028068767E+03_dp
1491 44 : fit_coef(12, 6) = 2.5294961462574193E+02_dp
1492 44 : fit_coef(0, 7) = 4.4122094885822010E-03_dp
1493 44 : fit_coef(1, 7) = -3.0506026172807132E-05_dp
1494 44 : fit_coef(2, 7) = 5.9262798671013028E-02_dp
1495 44 : fit_coef(3, 7) = -3.0161167176282039E-01_dp
1496 44 : fit_coef(4, 7) = 1.7086225790243108E+00_dp
1497 44 : fit_coef(5, 7) = -7.1111130868609358E+00_dp
1498 44 : fit_coef(6, 7) = 2.2029502145209662E+01_dp
1499 44 : fit_coef(7, 7) = -4.9330933530700591E+01_dp
1500 44 : fit_coef(8, 7) = 7.8203553981541233E+01_dp
1501 44 : fit_coef(9, 7) = -8.5283995941844253E+01_dp
1502 44 : fit_coef(10, 7) = 6.0734937581336254E+01_dp
1503 44 : fit_coef(11, 7) = -2.5396331019128979E+01_dp
1504 44 : fit_coef(12, 7) = 4.7244104190757472E+00_dp
1505 44 : fit_coef(0, 8) = 2.8989148486487894E-02_dp
1506 44 : fit_coef(1, 8) = -9.5531400887653847E-05_dp
1507 44 : fit_coef(2, 8) = 1.7940835754435794E-01_dp
1508 44 : fit_coef(3, 8) = -9.2139806209629660E-01_dp
1509 44 : fit_coef(4, 8) = 5.0793149159385784E+00_dp
1510 44 : fit_coef(5, 8) = -2.0996406588101028E+01_dp
1511 44 : fit_coef(6, 8) = 6.4728578095110564E+01_dp
1512 44 : fit_coef(7, 8) = -1.4454498390418735E+02_dp
1513 44 : fit_coef(8, 8) = 2.2882213635238523E+02_dp
1514 44 : fit_coef(9, 8) = -2.4934889854822558E+02_dp
1515 44 : fit_coef(10, 8) = 1.7747811343984634E+02_dp
1516 44 : fit_coef(11, 8) = -7.4175788381531561E+01_dp
1517 44 : fit_coef(12, 8) = 1.3791699026484896E+01_dp
1518 44 : fit_coef(0, 9) = 1.1867775101904349E-01_dp
1519 44 : fit_coef(1, 9) = -2.3002545083394702E-04_dp
1520 44 : fit_coef(2, 9) = 4.2351088978816531E-01_dp
1521 44 : fit_coef(3, 9) = -2.1868332609774375E+00_dp
1522 44 : fit_coef(4, 9) = 1.1863193969553315E+01_dp
1523 44 : fit_coef(5, 9) = -4.8911381713192242E+01_dp
1524 44 : fit_coef(6, 9) = 1.5033689264253886E+02_dp
1525 44 : fit_coef(7, 9) = -3.3524655332010315E+02_dp
1526 44 : fit_coef(8, 9) = 5.3030221224968204E+02_dp
1527 44 : fit_coef(9, 9) = -5.7746463929962727E+02_dp
1528 44 : fit_coef(10, 9) = 4.1070292367082004E+02_dp
1529 44 : fit_coef(11, 9) = -1.7150997861389590E+02_dp
1530 44 : fit_coef(12, 9) = 3.1862954979470953E+01_dp
1531 44 : fit_coef(0, 10) = 3.8613921710382521E-01_dp
1532 44 : fit_coef(1, 10) = -4.4141730884221628E-04_dp
1533 44 : fit_coef(2, 10) = 8.0440006468030922E-01_dp
1534 44 : fit_coef(3, 10) = -4.1653901689708244E+00_dp
1535 44 : fit_coef(4, 10) = 2.2403190787145370E+01_dp
1536 44 : fit_coef(5, 10) = -9.2211974413485876E+01_dp
1537 44 : fit_coef(6, 10) = 2.8295925585741463E+02_dp
1538 44 : fit_coef(7, 10) = -6.3046689253660929E+02_dp
1539 44 : fit_coef(8, 10) = 9.9682217293895803E+02_dp
1540 44 : fit_coef(9, 10) = -1.0850822438050727E+03_dp
1541 44 : fit_coef(10, 10) = 7.7146124564531726E+02_dp
1542 44 : fit_coef(11, 10) = -3.2204769431435153E+02_dp
1543 44 : fit_coef(12, 10) = 5.9807896790490901E+01_dp
1544 44 : fit_coef(0, 11) = 1.0973261216294632E+00_dp
1545 44 : fit_coef(1, 11) = -6.7305790071552931E-04_dp
1546 44 : fit_coef(2, 11) = 1.2191563472414737E+00_dp
1547 44 : fit_coef(3, 11) = -6.3236622978399160E+00_dp
1548 44 : fit_coef(4, 11) = 3.3838641149158832E+01_dp
1549 44 : fit_coef(5, 11) = -1.3912998330249843E+02_dp
1550 44 : fit_coef(6, 11) = 4.2651665499720167E+02_dp
1551 44 : fit_coef(7, 11) = -9.4985408069387211E+02_dp
1552 44 : fit_coef(8, 11) = 1.5014096221052871E+03_dp
1553 44 : fit_coef(9, 11) = -1.6340457638756484E+03_dp
1554 44 : fit_coef(10, 11) = 1.1615527639524207E+03_dp
1555 44 : fit_coef(11, 11) = -4.8480157740581882E+02_dp
1556 44 : fit_coef(12, 11) = 9.0015704436915854E+01_dp
1557 44 : fit_coef(0, 12) = 3.0334100910855679E+00_dp
1558 44 : fit_coef(1, 12) = -8.0128677103265039E-04_dp
1559 44 : fit_coef(2, 12) = 1.4492945609869972E+00_dp
1560 44 : fit_coef(3, 12) = -7.5204430315974555E+00_dp
1561 44 : fit_coef(4, 12) = 4.0192517443549171E+01_dp
1562 44 : fit_coef(5, 12) = -1.6520813224035805E+02_dp
1563 44 : fit_coef(6, 12) = 5.0634186437136140E+02_dp
1564 44 : fit_coef(7, 12) = -1.1274845628371224E+03_dp
1565 44 : fit_coef(8, 12) = 1.7820754347486288E+03_dp
1566 44 : fit_coef(9, 12) = -1.9394275221726205E+03_dp
1567 44 : fit_coef(10, 12) = 1.3785794074607632E+03_dp
1568 44 : fit_coef(11, 12) = -5.7535942912689143E+02_dp
1569 44 : fit_coef(12, 12) = 1.0682548193028630E+02_dp
1570 :
1571 44 : 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 44 : 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 44 : L_b = 2.0000000000000000E+00_dp
1586 44 : U_b = 1.0000000000000000E+02_dp
1587 44 : fit_coef(0, 1) = 8.4890821794056659E-03_dp
1588 44 : fit_coef(1, 1) = 3.3909965321659449E-02_dp
1589 44 : fit_coef(2, 1) = 6.7634541203882806E-02_dp
1590 44 : fit_coef(3, 1) = 7.6353562644566234E-02_dp
1591 44 : fit_coef(4, 1) = 3.5948563267733900E-02_dp
1592 44 : fit_coef(5, 1) = -2.5771176000865662E-02_dp
1593 44 : fit_coef(6, 1) = -4.0945070980132330E-02_dp
1594 44 : fit_coef(7, 1) = -4.3343260753829285E-02_dp
1595 44 : fit_coef(8, 1) = 1.3815432901925578E-01_dp
1596 44 : fit_coef(9, 1) = -1.7538024437982933E-01_dp
1597 44 : fit_coef(10, 1) = 1.6543062150575619E-01_dp
1598 44 : fit_coef(11, 1) = -9.1169573964789280E-02_dp
1599 44 : fit_coef(12, 1) = 2.0264349482170308E-02_dp
1600 44 : fit_coef(0, 2) = 5.0116642286956788E-02_dp
1601 44 : fit_coef(1, 2) = 1.8365009326344528E-01_dp
1602 44 : fit_coef(2, 2) = 3.5986371694373215E-01_dp
1603 44 : fit_coef(3, 2) = 3.9798008193331352E-01_dp
1604 44 : fit_coef(4, 2) = 1.7835093713215566E-01_dp
1605 44 : fit_coef(5, 2) = -1.3327325046872260E-01_dp
1606 44 : fit_coef(6, 2) = -2.2419539361558347E-01_dp
1607 44 : fit_coef(7, 2) = -1.5459559592831851E-01_dp
1608 44 : fit_coef(8, 2) = 5.7498920152238775E-01_dp
1609 44 : fit_coef(9, 2) = -7.2077559903241084E-01_dp
1610 44 : fit_coef(10, 2) = 6.9718992787938672E-01_dp
1611 44 : fit_coef(11, 2) = -3.9787065520994253E-01_dp
1612 44 : fit_coef(12, 2) = 9.0654023942071268E-02_dp
1613 44 : fit_coef(0, 3) = 1.5366998360970857E-01_dp
1614 44 : fit_coef(1, 3) = 4.7204846669452077E-01_dp
1615 44 : fit_coef(2, 3) = 8.8325935893055196E-01_dp
1616 44 : fit_coef(3, 3) = 9.5894564770013224E-01_dp
1617 44 : fit_coef(4, 3) = 4.2827132793975348E-01_dp
1618 44 : fit_coef(5, 3) = -3.2332267433019096E-01_dp
1619 44 : fit_coef(6, 3) = -6.1277314101509384E-01_dp
1620 44 : fit_coef(7, 3) = -3.1904891130696167E-01_dp
1621 44 : fit_coef(8, 3) = 1.7347388703763822E+00_dp
1622 44 : fit_coef(9, 3) = -2.4531109689297721E+00_dp
1623 44 : fit_coef(10, 3) = 2.2903712151885607E+00_dp
1624 44 : fit_coef(11, 3) = -1.2225979103964606E+00_dp
1625 44 : fit_coef(12, 3) = 2.6689160566637776E-01_dp
1626 44 : fit_coef(0, 4) = 3.9160355914825828E-01_dp
1627 44 : fit_coef(1, 4) = 9.3781039645429920E-01_dp
1628 44 : fit_coef(2, 4) = 1.6046991663294892E+00_dp
1629 44 : fit_coef(3, 4) = 1.6443527376353326E+00_dp
1630 44 : fit_coef(4, 4) = 8.0944769705145370E-01_dp
1631 44 : fit_coef(5, 4) = -5.1143473303498077E-01_dp
1632 44 : fit_coef(6, 4) = -5.2679642212467515E-01_dp
1633 44 : fit_coef(7, 4) = -1.8364447956089240E+00_dp
1634 44 : fit_coef(8, 4) = 2.5683156855002216E+00_dp
1635 44 : fit_coef(9, 4) = 1.5501948487951303E-01_dp
1636 44 : fit_coef(10, 4) = -1.8725579182282932E+00_dp
1637 44 : fit_coef(11, 4) = 1.2221919802984111E+00_dp
1638 44 : fit_coef(12, 4) = -2.7544768102671480E-01_dp
1639 44 : fit_coef(0, 5) = 9.1783363747242741E-01_dp
1640 44 : fit_coef(1, 5) = 1.6309461105431255E+00_dp
1641 44 : fit_coef(2, 5) = 2.4937510867743007E+00_dp
1642 44 : fit_coef(3, 5) = 2.2928527582942770E+00_dp
1643 44 : fit_coef(4, 5) = 9.1128547426324147E-01_dp
1644 44 : fit_coef(5, 5) = 9.6182376136104375E-01_dp
1645 44 : fit_coef(6, 5) = -6.3804461030632824E+00_dp
1646 44 : fit_coef(7, 5) = 1.5896262996437345E+01_dp
1647 44 : fit_coef(8, 5) = -3.2697959752155285E+01_dp
1648 44 : fit_coef(9, 5) = 4.0204694276308771E+01_dp
1649 44 : fit_coef(10, 5) = -2.6993883785520257E+01_dp
1650 44 : fit_coef(11, 5) = 9.1873159371192017E+00_dp
1651 44 : fit_coef(12, 5) = -1.2193412409631701E+00_dp
1652 44 : fit_coef(0, 6) = 2.0447798807240689E+00_dp
1653 44 : fit_coef(1, 6) = 2.5647815805469976E+00_dp
1654 44 : fit_coef(2, 6) = 3.5222500643076748E+00_dp
1655 44 : fit_coef(3, 6) = 2.7811523063687598E+00_dp
1656 44 : fit_coef(4, 6) = 1.2018538663100924E+00_dp
1657 44 : fit_coef(5, 6) = -5.4703655436328180E-01_dp
1658 44 : fit_coef(6, 6) = 3.2225185493071979E+00_dp
1659 44 : fit_coef(7, 6) = -1.4146455603976277E+01_dp
1660 44 : fit_coef(8, 6) = 3.4172972270754862E+01_dp
1661 44 : fit_coef(9, 6) = -5.7518986665041560E+01_dp
1662 44 : fit_coef(10, 6) = 5.7935519876217747E+01_dp
1663 44 : fit_coef(11, 6) = -3.0472542712278077E+01_dp
1664 44 : fit_coef(12, 6) = 6.4684369280250085E+00_dp
1665 44 : fit_coef(0, 7) = 4.4889127849133947E+00_dp
1666 44 : fit_coef(1, 7) = 3.6844329124185262E+00_dp
1667 44 : fit_coef(2, 7) = 4.6629325988561545E+00_dp
1668 44 : fit_coef(3, 7) = 3.2053175028746703E+00_dp
1669 44 : fit_coef(4, 7) = 1.1894024823027469E+00_dp
1670 44 : fit_coef(5, 7) = -5.5664546189271846E-01_dp
1671 44 : fit_coef(6, 7) = 4.4797254977157817E+00_dp
1672 44 : fit_coef(7, 7) = -1.3162135892918478E+01_dp
1673 44 : fit_coef(8, 7) = 2.6920639733012177E+01_dp
1674 44 : fit_coef(9, 7) = -3.7885356014248515E+01_dp
1675 44 : fit_coef(10, 7) = 3.0404958289755267E+01_dp
1676 44 : fit_coef(11, 7) = -1.2048234826847173E+01_dp
1677 44 : fit_coef(12, 7) = 1.7536434043357469E+00_dp
1678 44 : fit_coef(0, 8) = 2.2333642667863175E-02_dp
1679 44 : fit_coef(1, 8) = 8.7650336191702150E-02_dp
1680 44 : fit_coef(2, 8) = 1.7407545680352357E-01_dp
1681 44 : fit_coef(3, 8) = 1.9523723539373550E-01_dp
1682 44 : fit_coef(4, 8) = 9.1078382735736693E-02_dp
1683 44 : fit_coef(5, 8) = -6.5238131379128483E-02_dp
1684 44 : fit_coef(6, 8) = -1.0790743432696713E-01_dp
1685 44 : fit_coef(7, 8) = -1.0055162956331706E-01_dp
1686 44 : fit_coef(8, 8) = 3.3608939631307738E-01_dp
1687 44 : fit_coef(9, 8) = -4.2744783871398162E-01_dp
1688 44 : fit_coef(10, 8) = 4.0569757577173882E-01_dp
1689 44 : fit_coef(11, 8) = -2.2517859275370616E-01_dp
1690 44 : fit_coef(12, 8) = 5.0308943083685061E-02_dp
1691 44 : fit_coef(0, 9) = 6.5162011076589435E-02_dp
1692 44 : fit_coef(1, 9) = 2.1474236673046285E-01_dp
1693 44 : fit_coef(2, 9) = 4.1104112490299882E-01_dp
1694 44 : fit_coef(3, 9) = 4.4722258512292351E-01_dp
1695 44 : fit_coef(4, 9) = 1.8925685414469240E-01_dp
1696 44 : fit_coef(5, 9) = -1.5238925014408933E-01_dp
1697 44 : fit_coef(6, 9) = -2.8181109625687978E-01_dp
1698 44 : fit_coef(7, 9) = 4.2073721801476338E-03_dp
1699 44 : fit_coef(8, 9) = 2.9605389145708244E-01_dp
1700 44 : fit_coef(9, 9) = -3.8389360909607761E-01_dp
1701 44 : fit_coef(10, 9) = 4.5264861145927554E-01_dp
1702 44 : fit_coef(11, 9) = -3.0203559346875924E-01_dp
1703 44 : fit_coef(12, 9) = 7.4860217823464928E-02_dp
1704 44 : fit_coef(0, 10) = 1.5346948637055580E-01_dp
1705 44 : fit_coef(1, 10) = 3.6854433133610354E-01_dp
1706 44 : fit_coef(2, 10) = 6.2892668627471893E-01_dp
1707 44 : fit_coef(3, 10) = 6.5477471935299725E-01_dp
1708 44 : fit_coef(4, 10) = 3.3294850052423303E-01_dp
1709 44 : fit_coef(5, 10) = -2.7649376642801776E-01_dp
1710 44 : fit_coef(6, 10) = -8.0513348586680189E-03_dp
1711 44 : fit_coef(7, 10) = -2.0751899699120990E+00_dp
1712 44 : fit_coef(8, 10) = 5.2487682729558243E+00_dp
1713 44 : fit_coef(9, 10) = -6.5715600622772241E+00_dp
1714 44 : fit_coef(10, 10) = 4.9805286462168388E+00_dp
1715 44 : fit_coef(11, 10) = -2.1493517756117457E+00_dp
1716 44 : fit_coef(12, 10) = 4.0028581387747814E-01_dp
1717 44 : fit_coef(0, 11) = 3.4692296309076204E-01_dp
1718 44 : fit_coef(1, 11) = 5.7228042968532444E-01_dp
1719 44 : fit_coef(2, 11) = 8.0923016588837160E-01_dp
1720 44 : fit_coef(3, 11) = 6.8825242004374665E-01_dp
1721 44 : fit_coef(4, 11) = 3.0900931504334961E-01_dp
1722 44 : fit_coef(5, 11) = 5.2224154947033075E-01_dp
1723 44 : fit_coef(6, 11) = -2.6356703498487173E+00_dp
1724 44 : fit_coef(7, 11) = 8.5966604379962970E+00_dp
1725 44 : fit_coef(8, 11) = -2.2765680947013255E+01_dp
1726 44 : fit_coef(9, 11) = 3.4684627103439190E+01_dp
1727 44 : fit_coef(10, 11) = -2.9504573991969686E+01_dp
1728 44 : fit_coef(11, 11) = 1.3352471045720314E+01_dp
1729 44 : fit_coef(12, 11) = -2.5338463087754426E+00_dp
1730 44 : fit_coef(0, 12) = 7.5471792316070130E-01_dp
1731 44 : fit_coef(1, 12) = 8.1698667304635597E-01_dp
1732 44 : fit_coef(2, 12) = 9.6453392023721507E-01_dp
1733 44 : fit_coef(3, 12) = 5.8219771460039760E-01_dp
1734 44 : fit_coef(4, 12) = 5.6834288665372115E-02_dp
1735 44 : fit_coef(5, 12) = 9.5294461790630214E-01_dp
1736 44 : fit_coef(6, 12) = -1.9967581073724616E+00_dp
1737 44 : fit_coef(7, 12) = 3.9290913995308978E+00_dp
1738 44 : fit_coef(8, 12) = 7.8240450388508198E-01_dp
1739 44 : fit_coef(9, 12) = -1.8452411993447775E+01_dp
1740 44 : fit_coef(10, 12) = 2.9544447334169273E+01_dp
1741 44 : fit_coef(11, 12) = -1.9185547926257918E+01_dp
1742 44 : fit_coef(12, 12) = 4.6420265475532112E+00_dp
1743 44 : fit_coef(0, 13) = 1.6044221851675884E+00_dp
1744 44 : fit_coef(1, 13) = 1.0402801401561750E+00_dp
1745 44 : fit_coef(2, 13) = 1.0858841570371729E+00_dp
1746 44 : fit_coef(3, 13) = 4.1610384890729457E-01_dp
1747 44 : fit_coef(4, 13) = 3.6067842390926969E-01_dp
1748 44 : fit_coef(5, 13) = -2.5175945757607381E+00_dp
1749 44 : fit_coef(6, 13) = 1.3559516170001507E+01_dp
1750 44 : fit_coef(7, 13) = -3.8412585801701184E+01_dp
1751 44 : fit_coef(8, 13) = 7.5725440762246222E+01_dp
1752 44 : fit_coef(9, 13) = -9.4629438016079902E+01_dp
1753 44 : fit_coef(10, 13) = 6.8485370488181275E+01_dp
1754 44 : fit_coef(11, 13) = -2.5761663952186389E+01_dp
1755 44 : fit_coef(12, 13) = 3.8061288493554284E+00_dp
1756 44 : fit_coef(0, 14) = 3.6234684753265820E+00_dp
1757 44 : fit_coef(1, 14) = 1.1911013659903149E+00_dp
1758 44 : fit_coef(2, 14) = 1.2089364306597108E+00_dp
1759 44 : fit_coef(3, 14) = 4.6442125027798664E-01_dp
1760 44 : fit_coef(4, 14) = -3.1777576152208559E-01_dp
1761 44 : fit_coef(5, 14) = 2.0241094124978116E+00_dp
1762 44 : fit_coef(6, 14) = -8.2031751444577026E+00_dp
1763 44 : fit_coef(7, 14) = 2.9168093356344343E+01_dp
1764 44 : fit_coef(8, 14) = -6.1746832221017200E+01_dp
1765 44 : fit_coef(9, 14) = 8.7168512210629885E+01_dp
1766 44 : fit_coef(10, 14) = -7.6686519988709378E+01_dp
1767 44 : fit_coef(11, 14) = 3.7037473909730942E+01_dp
1768 44 : fit_coef(12, 14) = -7.4610849374495922E+00_dp
1769 :
1770 44 : 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 58 : 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 58 : L_b = 1.0000000000000000E+02_dp
1785 58 : U_b = 6.3730000000000000E+03_dp
1786 58 : fit_coef(0, 1) = 6.0677583366177139E-04_dp
1787 58 : fit_coef(1, 1) = 1.2203511941973786E-05_dp
1788 58 : fit_coef(2, 1) = 1.5542282929846361E-02_dp
1789 58 : fit_coef(3, 1) = -8.9625369583599124E-02_dp
1790 58 : fit_coef(4, 1) = 5.4937244690257003E-01_dp
1791 58 : fit_coef(5, 1) = -2.3465783422261945E+00_dp
1792 58 : fit_coef(6, 1) = 7.2618002882762989E+00_dp
1793 58 : fit_coef(7, 1) = -1.5964210654587358E+01_dp
1794 58 : fit_coef(8, 1) = 2.4547214366628502E+01_dp
1795 58 : fit_coef(9, 1) = -2.5732576011672748E+01_dp
1796 58 : fit_coef(10, 1) = 1.7495704575487210E+01_dp
1797 58 : fit_coef(11, 1) = -6.9489399028728807E+00_dp
1798 58 : fit_coef(12, 1) = 1.2232329673889215E+00_dp
1799 58 : fit_coef(0, 2) = 6.6752714913863925E-03_dp
1800 58 : fit_coef(1, 2) = 7.0822129335160658E-05_dp
1801 58 : fit_coef(2, 2) = 9.1986377885775919E-02_dp
1802 58 : fit_coef(3, 2) = -5.3405428642774699E-01_dp
1803 58 : fit_coef(4, 2) = 3.2354397768485041E+00_dp
1804 58 : fit_coef(5, 2) = -1.3775260985114405E+01_dp
1805 58 : fit_coef(6, 2) = 4.2538770413228939E+01_dp
1806 58 : fit_coef(7, 2) = -9.3398515752623808E+01_dp
1807 58 : fit_coef(8, 2) = 1.4350316188715925E+02_dp
1808 58 : fit_coef(9, 2) = -1.5036166589456491E+02_dp
1809 58 : fit_coef(10, 2) = 1.0220160925073999E+02_dp
1810 58 : fit_coef(11, 2) = -4.0584863952257315E+01_dp
1811 58 : fit_coef(12, 2) = 7.1433481247893695E+00_dp
1812 58 : fit_coef(0, 3) = 3.5329627891532003E-02_dp
1813 58 : fit_coef(1, 3) = 2.2595479303685819E-04_dp
1814 58 : fit_coef(2, 3) = 3.0068670299306055E-01_dp
1815 58 : fit_coef(3, 3) = -1.7613684261571489E+00_dp
1816 58 : fit_coef(4, 3) = 1.0488351739421789E+01_dp
1817 58 : fit_coef(5, 3) = -4.4542175766068205E+01_dp
1818 58 : fit_coef(6, 3) = 1.3710066819725051E+02_dp
1819 58 : fit_coef(7, 3) = -3.0052458124580761E+02_dp
1820 58 : fit_coef(8, 3) = 4.6158839612526646E+02_dp
1821 58 : fit_coef(9, 3) = -4.8381807226730933E+02_dp
1822 58 : fit_coef(10, 3) = 3.2906228868490689E+02_dp
1823 58 : fit_coef(11, 3) = -1.3076538707988345E+02_dp
1824 58 : fit_coef(12, 3) = 2.3031862239615609E+01_dp
1825 58 : fit_coef(0, 4) = 1.3636675797272446E-01_dp
1826 58 : fit_coef(1, 4) = 5.6647704292489109E-04_dp
1827 58 : fit_coef(2, 4) = 7.6618173910360343E-01_dp
1828 58 : fit_coef(3, 4) = -4.5142657914579676E+00_dp
1829 58 : fit_coef(4, 4) = 2.6580955043085275E+01_dp
1830 58 : fit_coef(5, 4) = -1.1272540497018385E+02_dp
1831 58 : fit_coef(6, 4) = 3.4623696291949358E+02_dp
1832 58 : fit_coef(7, 4) = -7.5826687162428038E+02_dp
1833 58 : fit_coef(8, 4) = 1.1645610278715124E+03_dp
1834 58 : fit_coef(9, 4) = -1.2210276266592973E+03_dp
1835 58 : fit_coef(10, 4) = 8.3085597800660651E+02_dp
1836 58 : fit_coef(11, 4) = -3.3033932676724800E+02_dp
1837 58 : fit_coef(12, 4) = 5.8211140143063389E+01_dp
1838 58 : fit_coef(0, 5) = 4.3692354129416011E-01_dp
1839 58 : fit_coef(1, 5) = 1.1976571152026670E-03_dp
1840 58 : fit_coef(2, 5) = 1.6377604996306871E+00_dp
1841 58 : fit_coef(3, 5) = -9.6866759364374868E+00_dp
1842 58 : fit_coef(4, 5) = 5.6612700356628949E+01_dp
1843 58 : fit_coef(5, 5) = -2.3984102923713382E+02_dp
1844 58 : fit_coef(6, 5) = 7.3561273922776581E+02_dp
1845 58 : fit_coef(7, 5) = -1.6099560282310861E+03_dp
1846 58 : fit_coef(8, 5) = 2.4723564756113196E+03_dp
1847 58 : fit_coef(9, 5) = -2.5927151309452665E+03_dp
1848 58 : fit_coef(10, 5) = 1.7647692924297401E+03_dp
1849 58 : fit_coef(11, 5) = -7.0188939174830352E+02_dp
1850 58 : fit_coef(12, 5) = 1.2372418269084275E+02_dp
1851 58 : fit_coef(0, 6) = 1.2378497399176813E+00_dp
1852 58 : fit_coef(1, 6) = 2.1799404763566546E-03_dp
1853 58 : fit_coef(2, 6) = 3.0033304053549266E+00_dp
1854 58 : fit_coef(3, 6) = -1.7809339259291960E+01_dp
1855 58 : fit_coef(4, 6) = 1.0356146048512531E+02_dp
1856 58 : fit_coef(5, 6) = -4.3841186307805572E+02_dp
1857 58 : fit_coef(6, 6) = 1.3433098010233427E+03_dp
1858 58 : fit_coef(7, 6) = -2.9385308911410843E+03_dp
1859 58 : fit_coef(8, 6) = 4.5121527260780776E+03_dp
1860 58 : fit_coef(9, 6) = -4.7323142457902477E+03_dp
1861 58 : fit_coef(10, 6) = 3.2217506991135392E+03_dp
1862 58 : fit_coef(11, 6) = -1.2816488835906916E+03_dp
1863 58 : fit_coef(12, 6) = 2.2596889581599186E+02_dp
1864 58 : fit_coef(0, 7) = 3.2781853114633690E+00_dp
1865 58 : fit_coef(1, 7) = 3.4389001435898561E-03_dp
1866 58 : fit_coef(2, 7) = 4.7592429785757018E+00_dp
1867 58 : fit_coef(3, 7) = -2.8265375133025159E+01_dp
1868 58 : fit_coef(4, 7) = 1.6386545527527471E+02_dp
1869 58 : fit_coef(5, 7) = -6.9336876574524956E+02_dp
1870 58 : fit_coef(6, 7) = 2.1232162962264451E+03_dp
1871 58 : fit_coef(7, 7) = -4.6431587196422133E+03_dp
1872 58 : fit_coef(8, 7) = 7.1291035126709503E+03_dp
1873 58 : fit_coef(9, 7) = -7.4773722512143786E+03_dp
1874 58 : fit_coef(10, 7) = 5.0911609048640648E+03_dp
1875 58 : fit_coef(11, 7) = -2.0255881694388165E+03_dp
1876 58 : fit_coef(12, 7) = 3.5717987126526839E+02_dp
1877 58 : fit_coef(0, 8) = 1.9397592535656612E-03_dp
1878 58 : fit_coef(1, 8) = 3.1224136945126820E-05_dp
1879 58 : fit_coef(2, 8) = 3.9794210955105026E-02_dp
1880 58 : fit_coef(3, 8) = -2.2945121723050055E-01_dp
1881 58 : fit_coef(4, 8) = 1.4081093618036822E+00_dp
1882 58 : fit_coef(5, 8) = -6.0128883949026397E+00_dp
1883 58 : fit_coef(6, 8) = 1.8615856974219142E+01_dp
1884 58 : fit_coef(7, 8) = -4.0950738259707443E+01_dp
1885 58 : fit_coef(8, 8) = 6.2995147189900791E+01_dp
1886 58 : fit_coef(9, 8) = -6.6049282238872578E+01_dp
1887 58 : fit_coef(10, 8) = 4.4906773129267386E+01_dp
1888 58 : fit_coef(11, 8) = -1.7833720418073618E+01_dp
1889 58 : fit_coef(12, 8) = 3.1386820276994531E+00_dp
1890 58 : fit_coef(0, 9) = 1.2744789430102283E-02_dp
1891 58 : fit_coef(1, 9) = 9.4709522213266069E-05_dp
1892 58 : fit_coef(2, 9) = 1.2561186892205739E-01_dp
1893 58 : fit_coef(3, 9) = -7.3485105104893944E-01_dp
1894 58 : fit_coef(4, 9) = 4.3871454899236513E+00_dp
1895 58 : fit_coef(5, 9) = -1.8627306443837497E+01_dp
1896 58 : fit_coef(6, 9) = 5.7355825078700910E+01_dp
1897 58 : fit_coef(7, 9) = -1.2570281346740651E+02_dp
1898 58 : fit_coef(8, 9) = 1.9298761023815177E+02_dp
1899 58 : fit_coef(9, 9) = -2.0218882506002689E+02_dp
1900 58 : fit_coef(10, 9) = 1.3746187852198693E+02_dp
1901 58 : fit_coef(11, 9) = -5.4608420832822929E+01_dp
1902 58 : fit_coef(12, 9) = 9.6158489721068801E+00_dp
1903 58 : fit_coef(0, 10) = 5.2173333294315491E-02_dp
1904 58 : fit_coef(1, 10) = 2.3055569105486745E-04_dp
1905 58 : fit_coef(2, 10) = 3.1278409064824336E-01_dp
1906 58 : fit_coef(3, 10) = -1.8448833978165269E+00_dp
1907 58 : fit_coef(4, 10) = 1.0840143395546759E+01_dp
1908 58 : fit_coef(5, 10) = -4.5958901600709979E+01_dp
1909 58 : fit_coef(6, 10) = 1.4110750881102726E+02_dp
1910 58 : fit_coef(7, 10) = -3.0897514713921822E+02_dp
1911 58 : fit_coef(8, 10) = 4.7453270093475732E+02_dp
1912 58 : fit_coef(9, 10) = -4.9757949866356881E+02_dp
1913 58 : fit_coef(10, 10) = 3.3861207241883631E+02_dp
1914 58 : fit_coef(11, 10) = -1.3464036769091453E+02_dp
1915 58 : fit_coef(12, 10) = 2.3727726896949317E+01_dp
1916 58 : fit_coef(0, 11) = 1.6963116889689617E-01_dp
1917 58 : fit_coef(1, 11) = 4.6901741492581534E-04_dp
1918 58 : fit_coef(2, 11) = 6.4447000621439654E-01_dp
1919 58 : fit_coef(3, 11) = -3.8181538304305924E+00_dp
1920 58 : fit_coef(4, 11) = 2.2242335828744238E+01_dp
1921 58 : fit_coef(5, 11) = -9.4193777329169180E+01_dp
1922 58 : fit_coef(6, 11) = 2.8872166699409729E+02_dp
1923 58 : fit_coef(7, 11) = -6.3173717103578508E+02_dp
1924 58 : fit_coef(8, 11) = 9.7012917536585030E+02_dp
1925 58 : fit_coef(9, 11) = -1.0174610499996350E+03_dp
1926 58 : fit_coef(10, 11) = 6.9265148866175264E+02_dp
1927 58 : fit_coef(11, 11) = -2.7552649004097742E+02_dp
1928 58 : fit_coef(12, 11) = 4.8575054818192108E+01_dp
1929 58 : fit_coef(0, 12) = 4.7830241431219889E-01_dp
1930 58 : fit_coef(1, 12) = 8.0536633187941779E-04_dp
1931 58 : fit_coef(2, 12) = 1.1161391199045863E+00_dp
1932 58 : fit_coef(3, 12) = -6.6319638481849212E+00_dp
1933 58 : fit_coef(4, 12) = 3.8412707149315935E+01_dp
1934 58 : fit_coef(5, 12) = -1.6252589178932661E+02_dp
1935 58 : fit_coef(6, 12) = 4.9759933805308168E+02_dp
1936 58 : fit_coef(7, 12) = -1.0881301553940079E+03_dp
1937 58 : fit_coef(8, 12) = 1.6707481111324018E+03_dp
1938 58 : fit_coef(9, 12) = -1.7524442770987675E+03_dp
1939 58 : fit_coef(10, 12) = 1.1932577680169172E+03_dp
1940 58 : fit_coef(11, 12) = -4.7477746229497609E+02_dp
1941 58 : fit_coef(12, 12) = 8.3723024185087226E+01_dp
1942 58 : fit_coef(0, 13) = 1.2328742147617662E+00_dp
1943 58 : fit_coef(1, 13) = 1.1464277359986964E-03_dp
1944 58 : fit_coef(2, 13) = 1.5973172261127475E+00_dp
1945 58 : fit_coef(3, 13) = -9.5083265310456007E+00_dp
1946 58 : fit_coef(4, 13) = 5.4875950711264657E+01_dp
1947 58 : fit_coef(5, 13) = -2.3203772329691336E+02_dp
1948 58 : fit_coef(6, 13) = 7.0989929741104845E+02_dp
1949 58 : fit_coef(7, 13) = -1.5517453595579404E+03_dp
1950 58 : fit_coef(8, 13) = 2.3823114822950174E+03_dp
1951 58 : fit_coef(9, 13) = -2.4989178165580306E+03_dp
1952 58 : fit_coef(10, 13) = 1.7017491667373313E+03_dp
1953 58 : fit_coef(11, 13) = -6.7719904341330835E+02_dp
1954 58 : fit_coef(12, 13) = 1.1943636331258227E+02_dp
1955 58 : fit_coef(0, 14) = 3.1933956854310037E+00_dp
1956 58 : fit_coef(1, 14) = 1.3428436858287465E-03_dp
1957 58 : fit_coef(2, 14) = 1.8732506344005615E+00_dp
1958 58 : fit_coef(3, 14) = -1.1155445162652324E+01_dp
1959 58 : fit_coef(4, 14) = 6.4329861295470778E+01_dp
1960 58 : fit_coef(5, 14) = -2.7197046053760539E+02_dp
1961 58 : fit_coef(6, 14) = 8.3192845835379330E+02_dp
1962 58 : fit_coef(7, 14) = -1.8182993373416557E+03_dp
1963 58 : fit_coef(8, 14) = 2.7914396608814409E+03_dp
1964 58 : fit_coef(9, 14) = -2.9280874922129306E+03_dp
1965 58 : fit_coef(10, 14) = 1.9940610145207027E+03_dp
1966 58 : fit_coef(11, 14) = -7.9354809788071543E+02_dp
1967 58 : fit_coef(12, 14) = 1.3996131946484607E+02_dp
1968 :
1969 58 : 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 36 : 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 36 : L_b = 1.0000000000000000E+01_dp
1984 36 : U_b = 1.0000000000000000E+02_dp
1985 36 : fit_coef(0, 1) = 7.3303678789083827E-03_dp
1986 36 : fit_coef(1, 1) = 1.9068147607663823E-02_dp
1987 36 : fit_coef(2, 1) = 2.4523188619260956E-02_dp
1988 36 : fit_coef(3, 1) = 1.7843299989374534E-02_dp
1989 36 : fit_coef(4, 1) = 5.4214701717497675E-03_dp
1990 36 : fit_coef(5, 1) = -2.4694578878648259E-03_dp
1991 36 : fit_coef(6, 1) = -3.0284493938072380E-03_dp
1992 36 : fit_coef(7, 1) = -1.6609340715173272E-05_dp
1993 36 : fit_coef(8, 1) = 5.8996552393493821E-04_dp
1994 36 : fit_coef(9, 1) = -5.5212702213677864E-05_dp
1995 36 : fit_coef(10, 1) = 3.4862398750072344E-04_dp
1996 36 : fit_coef(11, 1) = -3.9218355438884901E-04_dp
1997 36 : fit_coef(12, 1) = 1.2569394142797241E-04_dp
1998 36 : fit_coef(0, 2) = 4.1899841856663761E-02_dp
1999 36 : fit_coef(1, 2) = 1.0302234723218924E-01_dp
2000 36 : fit_coef(2, 2) = 1.3023821601879626E-01_dp
2001 36 : fit_coef(3, 2) = 9.3099102625574220E-02_dp
2002 36 : fit_coef(4, 2) = 2.7404221544145291E-02_dp
2003 36 : fit_coef(5, 2) = -1.3085499573245986E-02_dp
2004 36 : fit_coef(6, 2) = -1.5582408546316897E-02_dp
2005 36 : fit_coef(7, 2) = 5.2970248514313688E-04_dp
2006 36 : fit_coef(8, 2) = 2.2609393067795900E-03_dp
2007 36 : fit_coef(9, 2) = 4.6279627025403949E-04_dp
2008 36 : fit_coef(10, 2) = 1.4146159928236672E-03_dp
2009 36 : fit_coef(11, 2) = -1.9800386255810288E-03_dp
2010 36 : fit_coef(12, 2) = 6.6847497768620658E-04_dp
2011 36 : fit_coef(0, 3) = 1.2090283026330555E-01_dp
2012 36 : fit_coef(1, 3) = 2.6358046342322966E-01_dp
2013 36 : fit_coef(2, 3) = 3.2173608677475352E-01_dp
2014 36 : fit_coef(3, 3) = 2.2555617000622660E-01_dp
2015 36 : fit_coef(4, 3) = 6.4242254728770876E-02_dp
2016 36 : fit_coef(5, 3) = -3.3531313583337982E-02_dp
2017 36 : fit_coef(6, 3) = -3.7471068968577388E-02_dp
2018 36 : fit_coef(7, 3) = 3.6816061058378741E-03_dp
2019 36 : fit_coef(8, 3) = 6.5687067201372204E-03_dp
2020 36 : fit_coef(9, 3) = -2.6384863361432163E-03_dp
2021 36 : fit_coef(10, 3) = 6.4385556221874555E-03_dp
2022 36 : fit_coef(11, 3) = -6.0511747469316332E-03_dp
2023 36 : fit_coef(12, 3) = 1.8525016625111832E-03_dp
2024 36 : fit_coef(0, 4) = 2.8592429103323302E-01_dp
2025 36 : fit_coef(1, 4) = 5.1841367625987889E-01_dp
2026 36 : fit_coef(2, 4) = 5.9115684453736916E-01_dp
2027 36 : fit_coef(3, 4) = 4.0105593630503783E-01_dp
2028 36 : fit_coef(4, 4) = 1.1948149198856918E-01_dp
2029 36 : fit_coef(5, 4) = -5.2658401069846560E-02_dp
2030 36 : fit_coef(6, 4) = -7.3898713202086491E-02_dp
2031 36 : fit_coef(7, 4) = 9.1566644314021242E-03_dp
2032 36 : fit_coef(8, 4) = -1.1867605759483740E-02_dp
2033 36 : fit_coef(9, 4) = 4.8318451940700932E-02_dp
2034 36 : fit_coef(10, 4) = -3.5186576456035019E-02_dp
2035 36 : fit_coef(11, 4) = 7.7443536084135598E-03_dp
2036 36 : fit_coef(12, 4) = 6.1488354568711538E-04_dp
2037 36 : fit_coef(0, 5) = 6.2290281260653402E-01_dp
2038 36 : fit_coef(1, 5) = 8.9580902133545759E-01_dp
2039 36 : fit_coef(2, 5) = 9.2609808946198835E-01_dp
2040 36 : fit_coef(3, 5) = 5.8224600441757135E-01_dp
2041 36 : fit_coef(4, 5) = 1.7839482993919215E-01_dp
2042 36 : fit_coef(5, 5) = -4.6849100928790438E-02_dp
2043 36 : fit_coef(6, 5) = -8.6070770575879779E-02_dp
2044 36 : fit_coef(7, 5) = -1.8640277231677663E-02_dp
2045 36 : fit_coef(8, 5) = 1.1471460387476767E-02_dp
2046 36 : fit_coef(9, 5) = -4.1058254270079884E-02_dp
2047 36 : fit_coef(10, 5) = 1.1306530929746011E-01_dp
2048 36 : fit_coef(11, 5) = -8.8348931981328011E-02_dp
2049 36 : fit_coef(12, 5) = 2.3298598302007475E-02_dp
2050 36 : fit_coef(0, 6) = 1.2950331297092936E+00_dp
2051 36 : fit_coef(1, 6) = 1.4208263619906618E+00_dp
2052 36 : fit_coef(2, 6) = 1.3168706585134538E+00_dp
2053 36 : fit_coef(3, 6) = 7.3735161688744788E-01_dp
2054 36 : fit_coef(4, 6) = 2.1308021650008105E-01_dp
2055 36 : fit_coef(5, 6) = -2.2140636924009825E-02_dp
2056 36 : fit_coef(6, 6) = -6.5523715696762824E-02_dp
2057 36 : fit_coef(7, 6) = -5.5227429757704954E-03_dp
2058 36 : fit_coef(8, 6) = -3.6319163794681919E-02_dp
2059 36 : fit_coef(9, 6) = -2.1057002605029421E-02_dp
2060 36 : fit_coef(10, 6) = 6.7929722094043590E-02_dp
2061 36 : fit_coef(11, 6) = -2.9821898442364107E-02_dp
2062 36 : fit_coef(12, 6) = 2.5847668701003404E-03_dp
2063 36 : fit_coef(0, 7) = 2.6150915219181412E+00_dp
2064 36 : fit_coef(1, 7) = 2.0925013488168447E+00_dp
2065 36 : fit_coef(2, 7) = 1.7517994308499847E+00_dp
2066 36 : fit_coef(3, 7) = 8.5858648940090110E-01_dp
2067 36 : fit_coef(4, 7) = 2.1877243019911102E-01_dp
2068 36 : fit_coef(5, 7) = 9.2380438422983800E-03_dp
2069 36 : fit_coef(6, 7) = -3.5233332041510933E-02_dp
2070 36 : fit_coef(7, 7) = 5.9579661965596109E-02_dp
2071 36 : fit_coef(8, 7) = -1.5530877010597718E-01_dp
2072 36 : fit_coef(9, 7) = 1.1970417799859782E-01_dp
2073 36 : fit_coef(10, 7) = -7.3859936805166476E-02_dp
2074 36 : fit_coef(11, 7) = 3.9401452538859211E-02_dp
2075 36 : fit_coef(12, 7) = -8.0701941615812720E-03_dp
2076 36 : fit_coef(0, 8) = 5.2886811819505075E+00_dp
2077 36 : fit_coef(1, 8) = 2.8791408561019143E+00_dp
2078 36 : fit_coef(2, 8) = 2.2282496597143453E+00_dp
2079 36 : fit_coef(3, 8) = 9.6463274698100221E-01_dp
2080 36 : fit_coef(4, 8) = 2.0804339162869817E-01_dp
2081 36 : fit_coef(5, 8) = 3.8463667107493361E-02_dp
2082 36 : fit_coef(6, 8) = 6.2738138193085286E-03_dp
2083 36 : fit_coef(7, 8) = 1.0100983178342585E-01_dp
2084 36 : fit_coef(8, 8) = -1.8879341637967198E-01_dp
2085 36 : fit_coef(9, 8) = 1.2577637243618989E-01_dp
2086 36 : fit_coef(10, 8) = -4.4240946155634182E-02_dp
2087 36 : fit_coef(11, 8) = -2.7654276880568853E-03_dp
2088 36 : fit_coef(12, 8) = 7.1269217913952432E-03_dp
2089 36 : fit_coef(0, 9) = 1.9153697185214646E-02_dp
2090 36 : fit_coef(1, 9) = 4.9243996218940246E-02_dp
2091 36 : fit_coef(2, 9) = 6.3063039313140626E-02_dp
2092 36 : fit_coef(3, 9) = 4.5675586741478570E-02_dp
2093 36 : fit_coef(4, 9) = 1.3789973749172879E-02_dp
2094 36 : fit_coef(5, 9) = -6.3486543694890422E-03_dp
2095 36 : fit_coef(6, 9) = -7.7438232796799697E-03_dp
2096 36 : fit_coef(7, 9) = 4.2857574556254048E-05_dp
2097 36 : fit_coef(8, 9) = 1.4170649293170209E-03_dp
2098 36 : fit_coef(9, 9) = -6.5915991195257174E-05_dp
2099 36 : fit_coef(10, 9) = 8.5657276913500048E-04_dp
2100 36 : fit_coef(11, 9) = -1.0012786918386677E-03_dp
2101 36 : fit_coef(12, 9) = 3.2416699208711279E-04_dp
2102 36 : fit_coef(0, 10) = 5.2487499010059821E-02_dp
2103 36 : fit_coef(1, 10) = 1.2020367140285117E-01_dp
2104 36 : fit_coef(2, 10) = 1.4885896496539552E-01_dp
2105 36 : fit_coef(3, 10) = 1.0446916703848536E-01_dp
2106 36 : fit_coef(4, 10) = 2.9452247957851872E-02_dp
2107 36 : fit_coef(5, 10) = -1.5096946389090963E-02_dp
2108 36 : fit_coef(6, 10) = -1.6978769798053302E-02_dp
2109 36 : fit_coef(7, 10) = 1.5621840217608987E-03_dp
2110 36 : fit_coef(8, 10) = 1.1498062866988877E-03_dp
2111 36 : fit_coef(9, 10) = 1.5932508408093571E-03_dp
2112 36 : fit_coef(10, 10) = 1.2044209864296811E-03_dp
2113 36 : fit_coef(11, 10) = -2.2799861036947064E-03_dp
2114 36 : fit_coef(12, 10) = 8.0794913771834831E-04_dp
2115 36 : fit_coef(0, 11) = 1.1214831732759308E-01_dp
2116 36 : fit_coef(1, 11) = 2.0374016088705749E-01_dp
2117 36 : fit_coef(2, 11) = 2.3269755141858203E-01_dp
2118 36 : fit_coef(3, 11) = 1.5862165696203001E-01_dp
2119 36 : fit_coef(4, 11) = 4.5536019398208713E-02_dp
2120 36 : fit_coef(5, 11) = -2.4771937060547151E-02_dp
2121 36 : fit_coef(6, 11) = -2.8674783757891342E-02_dp
2122 36 : fit_coef(7, 11) = 3.5158594299659887E-03_dp
2123 36 : fit_coef(8, 11) = 9.3535039711395342E-03_dp
2124 36 : fit_coef(9, 11) = -3.0604392897587429E-03_dp
2125 36 : fit_coef(10, 11) = -6.0143657962914525E-04_dp
2126 36 : fit_coef(11, 11) = 4.2950330778982355E-04_dp
2127 36 : fit_coef(12, 11) = 1.9255873491051108E-05_dp
2128 36 : fit_coef(0, 12) = 2.3171781907279218E-01_dp
2129 36 : fit_coef(1, 12) = 3.1091079731599292E-01_dp
2130 36 : fit_coef(2, 12) = 3.0389179989885584E-01_dp
2131 36 : fit_coef(3, 12) = 1.8532205840012622E-01_dp
2132 36 : fit_coef(4, 12) = 6.2306830325449335E-02_dp
2133 36 : fit_coef(5, 12) = -7.6106859087436904E-03_dp
2134 36 : fit_coef(6, 12) = -3.6599453891127606E-02_dp
2135 36 : fit_coef(7, 12) = 1.5509386794819603E-03_dp
2136 36 : fit_coef(8, 12) = -4.0853132735310875E-02_dp
2137 36 : fit_coef(9, 12) = 6.6595641401483052E-02_dp
2138 36 : fit_coef(10, 12) = -1.8834300269643112E-02_dp
2139 36 : fit_coef(11, 12) = -1.5460640921107466E-02_dp
2140 36 : fit_coef(12, 12) = 8.1050164047865251E-03_dp
2141 36 : fit_coef(0, 13) = 4.6839273718001340E-01_dp
2142 36 : fit_coef(1, 13) = 4.4848685344087941E-01_dp
2143 36 : fit_coef(2, 13) = 3.6456593426754630E-01_dp
2144 36 : fit_coef(3, 13) = 1.7154603893334677E-01_dp
2145 36 : fit_coef(4, 13) = 5.0029581620847113E-02_dp
2146 36 : fit_coef(5, 13) = 1.7043310105799386E-02_dp
2147 36 : fit_coef(6, 13) = 1.3624711461006474E-02_dp
2148 36 : fit_coef(7, 13) = -4.0467589755335792E-02_dp
2149 36 : fit_coef(8, 13) = 6.0917156869027100E-02_dp
2150 36 : fit_coef(9, 13) = -1.7391850945484083E-01_dp
2151 36 : fit_coef(10, 13) = 1.9540773247888954E-01_dp
2152 36 : fit_coef(11, 13) = -8.8667454786059030E-02_dp
2153 36 : fit_coef(12, 13) = 1.3511223411471382E-02_dp
2154 36 : fit_coef(0, 14) = 9.2519886811346685E-01_dp
2155 36 : fit_coef(1, 14) = 6.0160298038546722E-01_dp
2156 36 : fit_coef(2, 14) = 4.1486918310874005E-01_dp
2157 36 : fit_coef(3, 14) = 1.3735307260002044E-01_dp
2158 36 : fit_coef(4, 14) = 1.8815781506297060E-02_dp
2159 36 : fit_coef(5, 14) = 3.0299118585638541E-02_dp
2160 36 : fit_coef(6, 14) = 2.2993724328518487E-02_dp
2161 36 : fit_coef(7, 14) = 6.5423665107552431E-02_dp
2162 36 : fit_coef(8, 14) = -1.4716829076991533E-01_dp
2163 36 : fit_coef(9, 14) = 1.9132722353109541E-01_dp
2164 36 : fit_coef(10, 14) = -2.2566102318270043E-01_dp
2165 36 : fit_coef(11, 14) = 1.4512891962640706E-01_dp
2166 36 : fit_coef(12, 14) = -3.4869303190922442E-02_dp
2167 36 : fit_coef(0, 15) = 1.8180761389140441E+00_dp
2168 36 : fit_coef(1, 15) = 7.3545411157338625E-01_dp
2169 36 : fit_coef(2, 15) = 4.5382578616281255E-01_dp
2170 36 : fit_coef(3, 15) = 1.0815904182157396E-01_dp
2171 36 : fit_coef(4, 15) = -5.0564441213593594E-03_dp
2172 36 : fit_coef(5, 15) = 3.1009296969077782E-02_dp
2173 36 : fit_coef(6, 15) = 3.8543619111406462E-02_dp
2174 36 : fit_coef(7, 15) = 4.9577607054581169E-02_dp
2175 36 : fit_coef(8, 15) = -6.0901972233113555E-02_dp
2176 36 : fit_coef(9, 15) = 4.4164548268671569E-02_dp
2177 36 : fit_coef(10, 15) = -1.6420936751689871E-02_dp
2178 36 : fit_coef(11, 15) = -1.9128788572305898E-02_dp
2179 36 : fit_coef(12, 15) = 1.2610902336520378E-02_dp
2180 36 : fit_coef(0, 16) = 3.8678537708718710E+00_dp
2181 36 : fit_coef(1, 16) = 8.3755983422995561E-01_dp
2182 36 : fit_coef(2, 16) = 5.0744880083562161E-01_dp
2183 36 : fit_coef(3, 16) = 1.1252857834008548E-01_dp
2184 36 : fit_coef(4, 16) = -1.3783956985565306E-02_dp
2185 36 : fit_coef(5, 16) = 2.6967047539614656E-02_dp
2186 36 : fit_coef(6, 16) = 4.1533124322160005E-02_dp
2187 36 : fit_coef(7, 16) = 4.2761766824422134E-02_dp
2188 36 : fit_coef(8, 16) = -3.1110880765649707E-02_dp
2189 36 : fit_coef(9, 16) = 1.0013876986386597E-02_dp
2190 36 : fit_coef(10, 16) = 2.7350239856939598E-02_dp
2191 36 : fit_coef(11, 16) = -3.3885317157732221E-02_dp
2192 36 : fit_coef(12, 16) = 1.0044298911104206E-02_dp
2193 :
2194 36 : 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 70 : 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 70 : L_b = 1.0000000000000000E+02_dp
2209 70 : U_b = 1.3749000000000000E+04_dp
2210 70 : fit_coef(0, 1) = 2.8123802981039521E-04_dp
2211 70 : fit_coef(1, 1) = 1.5926645040140255E-05_dp
2212 70 : fit_coef(2, 1) = 1.0329030933196252E-02_dp
2213 70 : fit_coef(3, 1) = -6.4007908632844474E-02_dp
2214 70 : fit_coef(4, 1) = 4.1161308446326278E-01_dp
2215 70 : fit_coef(5, 1) = -1.7624808185774974E+00_dp
2216 70 : fit_coef(6, 1) = 5.3986045573131776E+00_dp
2217 70 : fit_coef(7, 1) = -1.1672753089064145E+01_dp
2218 70 : fit_coef(8, 1) = 1.7591571465892009E+01_dp
2219 70 : fit_coef(9, 1) = -1.8028596170855813E+01_dp
2220 70 : fit_coef(10, 1) = 1.1956816057777168E+01_dp
2221 70 : fit_coef(11, 1) = -4.6228922203591667E+00_dp
2222 70 : fit_coef(12, 1) = 7.9068650631410775E-01_dp
2223 70 : fit_coef(0, 2) = 3.0940667380651658E-03_dp
2224 70 : fit_coef(1, 2) = 9.4603372213690319E-05_dp
2225 70 : fit_coef(2, 2) = 6.2371593714423038E-02_dp
2226 70 : fit_coef(3, 2) = -3.9061079256549203E-01_dp
2227 70 : fit_coef(4, 2) = 2.4800148089165819E+00_dp
2228 70 : fit_coef(5, 2) = -1.0590097222199683E+01_dp
2229 70 : fit_coef(6, 2) = 3.2358288023437467E+01_dp
2230 70 : fit_coef(7, 2) = -6.9843326031928697E+01_dp
2231 70 : fit_coef(8, 2) = 1.0512898764379077E+02_dp
2232 70 : fit_coef(9, 2) = -1.0764631696630022E+02_dp
2233 70 : fit_coef(10, 2) = 7.1348387712368961E+01_dp
2234 70 : fit_coef(11, 2) = -2.7573670968312566E+01_dp
2235 70 : fit_coef(12, 2) = 4.7147055876112587E+00_dp
2236 70 : fit_coef(0, 3) = 1.6375908158103483E-02_dp
2237 70 : fit_coef(1, 3) = 3.1160349661731832E-04_dp
2238 70 : fit_coef(2, 3) = 2.0927456992109450E-01_dp
2239 70 : fit_coef(3, 3) = -1.3273785824948792E+00_dp
2240 70 : fit_coef(4, 3) = 8.2688701711323898E+00_dp
2241 70 : fit_coef(5, 3) = -3.5220567469598883E+01_dp
2242 70 : fit_coef(6, 3) = 1.0701331897299248E+02_dp
2243 70 : fit_coef(7, 3) = -2.2989760166900771E+02_dp
2244 70 : fit_coef(8, 3) = 3.4493893446724235E+02_dp
2245 70 : fit_coef(9, 3) = -3.5248615129301214E+02_dp
2246 70 : fit_coef(10, 3) = 2.3334466251650863E+02_dp
2247 70 : fit_coef(11, 3) = -9.0116552857752083E+01_dp
2248 70 : fit_coef(12, 3) = 1.5403005349166568E+01_dp
2249 70 : fit_coef(0, 4) = 6.3206454085883088E-02_dp
2250 70 : fit_coef(1, 4) = 8.1154192163640840E-04_dp
2251 70 : fit_coef(2, 4) = 5.5144861056801797E-01_dp
2252 70 : fit_coef(3, 4) = -3.5260842601451339E+00_dp
2253 70 : fit_coef(4, 4) = 2.1693237689818268E+01_dp
2254 70 : fit_coef(5, 4) = -9.2258467452491558E+01_dp
2255 70 : fit_coef(6, 4) = 2.7922864280490649E+02_dp
2256 70 : fit_coef(7, 4) = -5.9806470556712168E+02_dp
2257 70 : fit_coef(8, 4) = 8.9553395470219289E+02_dp
2258 70 : fit_coef(9, 4) = -9.1394179906769205E+02_dp
2259 70 : fit_coef(10, 4) = 6.0454016322906523E+02_dp
2260 70 : fit_coef(11, 4) = -2.3336202357129835E+02_dp
2261 70 : fit_coef(12, 4) = 3.9877696019475444E+01_dp
2262 70 : fit_coef(0, 5) = 2.0243266526935697E-01_dp
2263 70 : fit_coef(1, 5) = 1.8020515157672840E-03_dp
2264 70 : fit_coef(2, 5) = 1.2344900509541614E+00_dp
2265 70 : fit_coef(3, 5) = -7.9367169391085666E+00_dp
2266 70 : fit_coef(4, 5) = 4.8422935474594851E+01_dp
2267 70 : fit_coef(5, 5) = -2.0571215987444512E+02_dp
2268 70 : fit_coef(6, 5) = 6.2097865514974285E+02_dp
2269 70 : fit_coef(7, 5) = -1.3272491727851836E+03_dp
2270 70 : fit_coef(8, 5) = 1.9845109548223063E+03_dp
2271 70 : fit_coef(9, 5) = -2.0233745953849727E+03_dp
2272 70 : fit_coef(10, 5) = 1.3376052915228147E+03_dp
2273 70 : fit_coef(11, 5) = -5.1616417908155108E+02_dp
2274 70 : fit_coef(12, 5) = 8.8189346087826550E+01_dp
2275 70 : fit_coef(0, 6) = 5.7157821118623775E-01_dp
2276 70 : fit_coef(1, 6) = 3.5076317937191783E-03_dp
2277 70 : fit_coef(2, 6) = 2.4171981047624476E+00_dp
2278 70 : fit_coef(3, 6) = -1.5600811633970423E+01_dp
2279 70 : fit_coef(4, 6) = 9.4627104824817778E+01_dp
2280 70 : fit_coef(5, 6) = -4.0167179845150463E+02_dp
2281 70 : fit_coef(6, 6) = 1.2102930856782566E+03_dp
2282 70 : fit_coef(7, 6) = -2.5828405060244945E+03_dp
2283 70 : fit_coef(8, 6) = 3.8576577717746441E+03_dp
2284 70 : fit_coef(9, 6) = -3.9303584111835289E+03_dp
2285 70 : fit_coef(10, 6) = 2.5970876357091988E+03_dp
2286 70 : fit_coef(11, 6) = -1.0019128608117558E+03_dp
2287 70 : fit_coef(12, 6) = 1.7115745096843858E+02_dp
2288 70 : fit_coef(0, 7) = 1.4769845791046401E+00_dp
2289 70 : fit_coef(1, 7) = 6.0305390650928353E-03_dp
2290 70 : fit_coef(2, 7) = 4.1735972990944301E+00_dp
2291 70 : fit_coef(3, 7) = -2.7010363741735947E+01_dp
2292 70 : fit_coef(4, 7) = 1.6316505318502820E+02_dp
2293 70 : fit_coef(5, 7) = -6.9218832414970177E+02_dp
2294 70 : fit_coef(6, 7) = 2.0829974158076584E+03_dp
2295 70 : fit_coef(7, 7) = -4.4403073409985855E+03_dp
2296 70 : fit_coef(8, 7) = 6.6265908711188122E+03_dp
2297 70 : fit_coef(9, 7) = -6.7478402025357373E+03_dp
2298 70 : fit_coef(10, 7) = 4.4572806839765526E+03_dp
2299 70 : fit_coef(11, 7) = -1.7191849878725106E+03_dp
2300 70 : fit_coef(12, 7) = 2.9365492248421521E+02_dp
2301 70 : fit_coef(0, 8) = 3.6498674343702047E+00_dp
2302 70 : fit_coef(1, 8) = 9.1861328914861536E-03_dp
2303 70 : fit_coef(2, 8) = 6.3746908376074938E+00_dp
2304 70 : fit_coef(3, 8) = -4.1325382231508740E+01_dp
2305 70 : fit_coef(4, 8) = 2.4901070747707607E+02_dp
2306 70 : fit_coef(5, 8) = -1.0559668335879119E+03_dp
2307 70 : fit_coef(6, 8) = 3.1752073241924800E+03_dp
2308 70 : fit_coef(7, 8) = -6.7638081975788209E+03_dp
2309 70 : fit_coef(8, 8) = 1.0088934681089724E+04_dp
2310 70 : fit_coef(9, 8) = -1.0269971775238855E+04_dp
2311 70 : fit_coef(10, 8) = 6.7823044591615362E+03_dp
2312 70 : fit_coef(11, 8) = -2.6155916262455330E+03_dp
2313 70 : fit_coef(12, 8) = 4.4673488306700750E+02_dp
2314 70 : fit_coef(0, 9) = 8.9908324754226225E-04_dp
2315 70 : fit_coef(1, 9) = 4.1044297500840920E-05_dp
2316 70 : fit_coef(2, 9) = 2.6592960271921522E-02_dp
2317 70 : fit_coef(3, 9) = -1.6475343310038174E-01_dp
2318 70 : fit_coef(4, 9) = 1.0601282924777382E+00_dp
2319 70 : fit_coef(5, 9) = -4.5352614218846243E+00_dp
2320 70 : fit_coef(6, 9) = 1.3894117699928159E+01_dp
2321 70 : fit_coef(7, 9) = -3.0070697693720529E+01_dp
2322 70 : fit_coef(8, 9) = 4.5371751202142313E+01_dp
2323 70 : fit_coef(9, 9) = -4.6549283112947627E+01_dp
2324 70 : fit_coef(10, 9) = 3.0899823469725881E+01_dp
2325 70 : fit_coef(11, 9) = -1.1955338603808340E+01_dp
2326 70 : fit_coef(12, 9) = 2.0459285416163961E+00_dp
2327 70 : fit_coef(0, 10) = 5.9074268743020538E-03_dp
2328 70 : fit_coef(1, 10) = 1.2917982248413781E-04_dp
2329 70 : fit_coef(2, 10) = 8.6643119919001477E-02_dp
2330 70 : fit_coef(3, 10) = -5.4867858026705008E-01_dp
2331 70 : fit_coef(4, 10) = 3.4301753057411557E+00_dp
2332 70 : fit_coef(5, 10) = -1.4614938748597057E+01_dp
2333 70 : fit_coef(6, 10) = 4.4473633864726359E+01_dp
2334 70 : fit_coef(7, 10) = -9.5626734151356388E+01_dp
2335 70 : fit_coef(8, 10) = 1.4351698350787132E+02_dp
2336 70 : fit_coef(9, 10) = -1.4665263177842959E+02_dp
2337 70 : fit_coef(10, 10) = 9.7069655720786628E+01_dp
2338 70 : fit_coef(11, 10) = -3.7481250052554522E+01_dp
2339 70 : fit_coef(12, 10) = 6.4052741628428116E+00_dp
2340 70 : fit_coef(0, 11) = 2.4183310977353760E-02_dp
2341 70 : fit_coef(1, 11) = 3.2874969051224556E-04_dp
2342 70 : fit_coef(2, 11) = 2.2379265645203872E-01_dp
2343 70 : fit_coef(3, 11) = -1.4327470925490047E+00_dp
2344 70 : fit_coef(4, 11) = 8.7976488483593407E+00_dp
2345 70 : fit_coef(5, 11) = -3.7406648187178646E+01_dp
2346 70 : fit_coef(6, 11) = 1.1314765967557075E+02_dp
2347 70 : fit_coef(7, 11) = -2.4223242835221623E+02_dp
2348 70 : fit_coef(8, 11) = 3.6262537126551155E+02_dp
2349 70 : fit_coef(9, 11) = -3.7003484902257611E+02_dp
2350 70 : fit_coef(10, 11) = 2.4474926980111050E+02_dp
2351 70 : fit_coef(11, 11) = -9.4473072063769564E+01_dp
2352 70 : fit_coef(12, 11) = 1.6143361281904095E+01_dp
2353 70 : fit_coef(0, 12) = 7.8618264891410383E-02_dp
2354 70 : fit_coef(1, 12) = 7.0637070558397471E-04_dp
2355 70 : fit_coef(2, 12) = 4.8525758636061883E-01_dp
2356 70 : fit_coef(3, 12) = -3.1258030882321890E+00_dp
2357 70 : fit_coef(4, 12) = 1.9013088969838954E+01_dp
2358 70 : fit_coef(5, 12) = -8.0742838543906203E+01_dp
2359 70 : fit_coef(6, 12) = 2.4349690163060086E+02_dp
2360 70 : fit_coef(7, 12) = -5.2005299814464468E+02_dp
2361 70 : fit_coef(8, 12) = 7.7720399577073124E+02_dp
2362 70 : fit_coef(9, 12) = -7.9217171146497253E+02_dp
2363 70 : fit_coef(10, 12) = 5.2358376975962551E+02_dp
2364 70 : fit_coef(11, 12) = -2.0202246440009665E+02_dp
2365 70 : fit_coef(12, 12) = 3.4515024598323109E+01_dp
2366 70 : fit_coef(0, 13) = 2.2139783616846259E-01_dp
2367 70 : fit_coef(1, 13) = 1.3144046612244267E-03_dp
2368 70 : fit_coef(2, 13) = 9.0893314563834471E-01_dp
2369 70 : fit_coef(3, 13) = -5.8797685805649715E+00_dp
2370 70 : fit_coef(4, 13) = 3.5538337045891197E+01_dp
2371 70 : fit_coef(5, 13) = -1.5078315089899843E+02_dp
2372 70 : fit_coef(6, 13) = 4.5381740391672264E+02_dp
2373 70 : fit_coef(7, 13) = -9.6759884283658630E+02_dp
2374 70 : fit_coef(8, 13) = 1.4442703065970643E+03_dp
2375 70 : fit_coef(9, 13) = -1.4708851169077066E+03_dp
2376 70 : fit_coef(10, 13) = 9.7168186776942412E+02_dp
2377 70 : fit_coef(11, 13) = -3.7480558358376271E+02_dp
2378 70 : fit_coef(12, 13) = 6.4023927170066514E+01_dp
2379 70 : fit_coef(0, 14) = 5.6481431024685758E-01_dp
2380 70 : fit_coef(1, 14) = 2.1175592913405812E-03_dp
2381 70 : fit_coef(2, 14) = 1.4715067019515555E+00_dp
2382 70 : fit_coef(3, 14) = -9.5481410751299673E+00_dp
2383 70 : fit_coef(4, 14) = 5.7450639914728498E+01_dp
2384 70 : fit_coef(5, 14) = -2.4358417666644485E+02_dp
2385 70 : fit_coef(6, 14) = 7.3209348863097784E+02_dp
2386 70 : fit_coef(7, 14) = -1.5589336783178264E+03_dp
2387 70 : fit_coef(8, 14) = 2.3247369231211455E+03_dp
2388 70 : fit_coef(9, 14) = -2.3660752817146231E+03_dp
2389 70 : fit_coef(10, 14) = 1.5624107971537085E+03_dp
2390 70 : fit_coef(11, 14) = -6.0251181283667290E+02_dp
2391 70 : fit_coef(12, 14) = 1.0290483462401868E+02_dp
2392 70 : fit_coef(0, 15) = 1.3539573260602098E+00_dp
2393 70 : fit_coef(1, 15) = 2.8953150568411467E-03_dp
2394 70 : fit_coef(2, 15) = 2.0183462102822127E+00_dp
2395 70 : fit_coef(3, 15) = -1.3121809745507548E+01_dp
2396 70 : fit_coef(4, 15) = 7.8730592243301871E+01_dp
2397 70 : fit_coef(5, 15) = -3.3365664063421633E+02_dp
2398 70 : fit_coef(6, 15) = 1.0019300382950731E+03_dp
2399 70 : fit_coef(7, 15) = -2.1317727140515958E+03_dp
2400 70 : fit_coef(8, 15) = 3.1770143228209445E+03_dp
2401 70 : fit_coef(9, 15) = -3.2321383186557791E+03_dp
2402 70 : fit_coef(10, 15) = 2.1337098849426625E+03_dp
2403 70 : fit_coef(11, 15) = -8.2267510237563181E+02_dp
2404 70 : fit_coef(12, 15) = 1.4049188918686588E+02_dp
2405 70 : fit_coef(0, 16) = 3.3347047868343913E+00_dp
2406 70 : fit_coef(1, 16) = 3.3620771239965489E-03_dp
2407 70 : fit_coef(2, 16) = 2.3453111222189276E+00_dp
2408 70 : fit_coef(3, 16) = -1.5253659417099389E+01_dp
2409 70 : fit_coef(4, 16) = 9.1468857073866545E+01_dp
2410 70 : fit_coef(5, 16) = -3.8760249737899488E+02_dp
2411 70 : fit_coef(6, 16) = 1.1637180704439147E+03_dp
2412 70 : fit_coef(7, 16) = -2.4755718153726775E+03_dp
2413 70 : fit_coef(8, 16) = 3.6888887814157529E+03_dp
2414 70 : fit_coef(9, 16) = -3.7525428895000127E+03_dp
2415 70 : fit_coef(10, 16) = 2.4771015308842470E+03_dp
2416 70 : fit_coef(11, 16) = -9.5503423745582688E+02_dp
2417 70 : fit_coef(12, 16) = 1.6309118629666474E+02_dp
2418 :
2419 70 : 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 36 : 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 36 : L_b = 1.0000000000000000E+01_dp
2434 36 : U_b = 1.0000000000000000E+02_dp
2435 36 : fit_coef(0, 1) = 6.4552940952308244E-03_dp
2436 36 : fit_coef(1, 1) = 1.6981103140462521E-02_dp
2437 36 : fit_coef(2, 1) = 2.1954315188636421E-02_dp
2438 36 : fit_coef(3, 1) = 1.6041342676653195E-02_dp
2439 36 : fit_coef(4, 1) = 4.8873501014382193E-03_dp
2440 36 : fit_coef(5, 1) = -2.2607549832820450E-03_dp
2441 36 : fit_coef(6, 1) = -2.5816889517990111E-03_dp
2442 36 : fit_coef(7, 1) = -3.3177472147924311E-04_dp
2443 36 : fit_coef(8, 1) = 6.7633586217191212E-04_dp
2444 36 : fit_coef(9, 1) = 5.0154491931341720E-04_dp
2445 36 : fit_coef(10, 1) = -7.5477037926869911E-04_dp
2446 36 : fit_coef(11, 1) = 4.3750564946997106E-04_dp
2447 36 : fit_coef(12, 1) = -1.0884574145659750E-04_dp
2448 36 : fit_coef(0, 2) = 3.6158523047046677E-02_dp
2449 36 : fit_coef(1, 2) = 9.1448302892550112E-02_dp
2450 36 : fit_coef(2, 2) = 1.1643393031728949E-01_dp
2451 36 : fit_coef(3, 2) = 8.3846218207491621E-02_dp
2452 36 : fit_coef(4, 2) = 2.4929838698097138E-02_dp
2453 36 : fit_coef(5, 2) = -1.2000438048214228E-02_dp
2454 36 : fit_coef(6, 2) = -1.3233969051869923E-02_dp
2455 36 : fit_coef(7, 2) = -1.6781088808427976E-03_dp
2456 36 : fit_coef(8, 2) = 3.7175799646608039E-03_dp
2457 36 : fit_coef(9, 2) = 2.3200967656010554E-03_dp
2458 36 : fit_coef(10, 2) = -3.7296821680115493E-03_dp
2459 36 : fit_coef(11, 2) = 2.1900296497794772E-03_dp
2460 36 : fit_coef(12, 2) = -5.4966296541064880E-04_dp
2461 36 : fit_coef(0, 3) = 1.0021175251987058E-01_dp
2462 36 : fit_coef(1, 3) = 2.3290658157250768E-01_dp
2463 36 : fit_coef(2, 3) = 2.8826132533071419E-01_dp
2464 36 : fit_coef(3, 3) = 2.0349781078404069E-01_dp
2465 36 : fit_coef(4, 3) = 5.8186389475606060E-02_dp
2466 36 : fit_coef(5, 3) = -3.0264996373773254E-02_dp
2467 36 : fit_coef(6, 3) = -3.0958058136578551E-02_dp
2468 36 : fit_coef(7, 3) = -3.3385124438745062E-03_dp
2469 36 : fit_coef(8, 3) = 9.8293593154800095E-03_dp
2470 36 : fit_coef(9, 3) = 3.3092123173594926E-03_dp
2471 36 : fit_coef(10, 3) = -6.9541522350748128E-03_dp
2472 36 : fit_coef(11, 3) = 4.3124239191782493E-03_dp
2473 36 : fit_coef(12, 3) = -1.1315599631624136E-03_dp
2474 36 : fit_coef(0, 4) = 2.2411697245587953E-01_dp
2475 36 : fit_coef(1, 4) = 4.5426701810076259E-01_dp
2476 36 : fit_coef(2, 4) = 5.3412584957488496E-01_dp
2477 36 : fit_coef(3, 4) = 3.6826576404725364E-01_dp
2478 36 : fit_coef(4, 4) = 1.0602701865363849E-01_dp
2479 36 : fit_coef(5, 4) = -5.4577502966425870E-02_dp
2480 36 : fit_coef(6, 4) = -5.8813664835258211E-02_dp
2481 36 : fit_coef(7, 4) = -6.1835169673331971E-03_dp
2482 36 : fit_coef(8, 4) = 1.9342657781255358E-02_dp
2483 36 : fit_coef(9, 4) = 1.5715487208569516E-02_dp
2484 36 : fit_coef(10, 4) = -2.9256796795427198E-02_dp
2485 36 : fit_coef(11, 4) = 1.8078340581926571E-02_dp
2486 36 : fit_coef(12, 4) = -4.4135712366918118E-03_dp
2487 36 : fit_coef(0, 5) = 4.5965700239101925E-01_dp
2488 36 : fit_coef(1, 5) = 7.7718614768161642E-01_dp
2489 36 : fit_coef(2, 5) = 8.4369237846467748E-01_dp
2490 36 : fit_coef(3, 5) = 5.5382304325752407E-01_dp
2491 36 : fit_coef(4, 5) = 1.6629027091834961E-01_dp
2492 36 : fit_coef(5, 5) = -6.3214899288962637E-02_dp
2493 36 : fit_coef(6, 5) = -8.7377144006966334E-02_dp
2494 36 : fit_coef(7, 5) = -1.9259962748352861E-02_dp
2495 36 : fit_coef(8, 5) = 5.7845664647801637E-03_dp
2496 36 : fit_coef(9, 5) = 4.9430272241004450E-02_dp
2497 36 : fit_coef(10, 5) = -3.0204735992589018E-02_dp
2498 36 : fit_coef(11, 5) = 1.1560750816998883E-03_dp
2499 36 : fit_coef(12, 5) = 2.2620193192966114E-03_dp
2500 36 : fit_coef(0, 6) = 9.0150523193514287E-01_dp
2501 36 : fit_coef(1, 6) = 1.2281870858285731E+00_dp
2502 36 : fit_coef(2, 6) = 1.2075268204406777E+00_dp
2503 36 : fit_coef(3, 6) = 7.2753542801068738E-01_dp
2504 36 : fit_coef(4, 6) = 2.1703768564838269E-01_dp
2505 36 : fit_coef(5, 6) = -4.9393451753158686E-02_dp
2506 36 : fit_coef(6, 6) = -7.2910241488968047E-02_dp
2507 36 : fit_coef(7, 6) = -7.2551142234446420E-02_dp
2508 36 : fit_coef(8, 6) = 8.0982810239361422E-02_dp
2509 36 : fit_coef(9, 6) = -1.2121381989765857E-01_dp
2510 36 : fit_coef(10, 6) = 1.5600379928593311E-01_dp
2511 36 : fit_coef(11, 6) = -8.4966639309547370E-02_dp
2512 36 : fit_coef(12, 6) = 1.6060557175561714E-02_dp
2513 36 : fit_coef(0, 7) = 1.7180040458559993E+00_dp
2514 36 : fit_coef(1, 7) = 1.8243250896998631E+00_dp
2515 36 : fit_coef(2, 7) = 1.6163577010542527E+00_dp
2516 36 : fit_coef(3, 7) = 8.7029777481360915E-01_dp
2517 36 : fit_coef(4, 7) = 2.4164335157245592E-01_dp
2518 36 : fit_coef(5, 7) = -2.1288880285781901E-02_dp
2519 36 : fit_coef(6, 7) = -4.1346282161013680E-02_dp
2520 36 : fit_coef(7, 7) = -5.2892337289649802E-02_dp
2521 36 : fit_coef(8, 7) = 1.2566897761471612E-02_dp
2522 36 : fit_coef(9, 7) = -3.1238115025798451E-02_dp
2523 36 : fit_coef(10, 7) = 8.8197509236568605E-03_dp
2524 36 : fit_coef(11, 7) = 3.4268320342607482E-02_dp
2525 36 : fit_coef(12, 7) = -1.7500888643553550E-02_dp
2526 36 : fit_coef(0, 8) = 3.2202910229369826E+00_dp
2527 36 : fit_coef(1, 8) = 2.5584863603841099E+00_dp
2528 36 : fit_coef(2, 8) = 2.0603420885505477E+00_dp
2529 36 : fit_coef(3, 8) = 9.8186936771714084E-01_dp
2530 36 : fit_coef(4, 8) = 2.4292352348458562E-01_dp
2531 36 : fit_coef(5, 8) = 1.0777326484119814E-02_dp
2532 36 : fit_coef(6, 8) = 3.4596476543145072E-03_dp
2533 36 : fit_coef(7, 8) = -2.5878994552358304E-02_dp
2534 36 : fit_coef(8, 8) = -2.8942176969688937E-02_dp
2535 36 : fit_coef(9, 8) = 1.7377801484123011E-02_dp
2536 36 : fit_coef(10, 8) = -5.3614378940648612E-02_dp
2537 36 : fit_coef(11, 8) = 5.9949568881798150E-02_dp
2538 36 : fit_coef(12, 8) = -1.7982770689698030E-02_dp
2539 36 : fit_coef(0, 9) = 6.1060543796063369E+00_dp
2540 36 : fit_coef(1, 9) = 3.4046538736762950E+00_dp
2541 36 : fit_coef(2, 9) = 2.5438587661473857E+00_dp
2542 36 : fit_coef(3, 9) = 1.0825640947785635E+00_dp
2543 36 : fit_coef(4, 9) = 2.3188547903431525E-01_dp
2544 36 : fit_coef(5, 9) = 4.0838177926133055E-02_dp
2545 36 : fit_coef(6, 9) = 5.8580319059672786E-02_dp
2546 36 : fit_coef(7, 9) = -2.5983271132225795E-02_dp
2547 36 : fit_coef(8, 9) = 1.2322432042298232E-02_dp
2548 36 : fit_coef(9, 9) = -5.5917635514737024E-02_dp
2549 36 : fit_coef(10, 9) = 2.7316598068796355E-02_dp
2550 36 : fit_coef(11, 9) = 1.8442499628175768E-03_dp
2551 36 : fit_coef(12, 9) = -1.7781863984523483E-03_dp
2552 36 : fit_coef(0, 10) = 1.6794417808730849E-02_dp
2553 36 : fit_coef(1, 10) = 4.3812238879122306E-02_dp
2554 36 : fit_coef(2, 10) = 5.6433388526163281E-02_dp
2555 36 : fit_coef(3, 10) = 4.1089213098926332E-02_dp
2556 36 : fit_coef(4, 10) = 1.2450115917928132E-02_dp
2557 36 : fit_coef(5, 10) = -5.8158386932097572E-03_dp
2558 36 : fit_coef(6, 10) = -6.5845058729652479E-03_dp
2559 36 : fit_coef(7, 10) = -8.4117835741441777E-04_dp
2560 36 : fit_coef(8, 10) = 1.7550704199386239E-03_dp
2561 36 : fit_coef(9, 10) = 1.2453478991127647E-03_dp
2562 36 : fit_coef(10, 10) = -1.9039470025569718E-03_dp
2563 36 : fit_coef(11, 10) = 1.1072558306069514E-03_dp
2564 36 : fit_coef(12, 10) = -2.7613956295636030E-04_dp
2565 36 : fit_coef(0, 11) = 4.4208436478371291E-02_dp
2566 36 : fit_coef(1, 11) = 1.0636068480303659E-01_dp
2567 36 : fit_coef(2, 11) = 1.3297982738437528E-01_dp
2568 36 : fit_coef(3, 11) = 9.4166685284241089E-02_dp
2569 36 : fit_coef(4, 11) = 2.7104946950991506E-02_dp
2570 36 : fit_coef(5, 11) = -1.3725955515035670E-02_dp
2571 36 : fit_coef(6, 11) = -1.4441472385392985E-02_dp
2572 36 : fit_coef(7, 11) = -1.8001873375527177E-03_dp
2573 36 : fit_coef(8, 11) = 4.3120736020466057E-03_dp
2574 36 : fit_coef(9, 11) = 2.3403116157563499E-03_dp
2575 36 : fit_coef(10, 11) = -3.9978958575902293E-03_dp
2576 36 : fit_coef(11, 11) = 2.3671743796162751E-03_dp
2577 36 : fit_coef(12, 11) = -5.9737357121890616E-04_dp
2578 36 : fit_coef(0, 12) = 8.7964729281669957E-02_dp
2579 36 : fit_coef(1, 12) = 1.7861597760308465E-01_dp
2580 36 : fit_coef(2, 12) = 2.1020751169557236E-01_dp
2581 36 : fit_coef(3, 12) = 1.4439439121052172E-01_dp
2582 36 : fit_coef(4, 12) = 3.9618119968394774E-02_dp
2583 36 : fit_coef(5, 12) = -2.3084280501379426E-02_dp
2584 36 : fit_coef(6, 12) = -2.1408162571924363E-02_dp
2585 36 : fit_coef(7, 12) = -1.6462884108872455E-03_dp
2586 36 : fit_coef(8, 12) = 1.0736589853496247E-02_dp
2587 36 : fit_coef(9, 12) = -4.2541437088059438E-03_dp
2588 36 : fit_coef(10, 12) = -9.3740060359603919E-05_dp
2589 36 : fit_coef(11, 12) = 1.2300444443144750E-03_dp
2590 36 : fit_coef(12, 12) = -5.1803647309730399E-04_dp
2591 36 : fit_coef(0, 13) = 1.6822075290435659E-01_dp
2592 36 : fit_coef(1, 13) = 2.6777049222376398E-01_dp
2593 36 : fit_coef(2, 13) = 2.7956089737268164E-01_dp
2594 36 : fit_coef(3, 13) = 1.8086459490735671E-01_dp
2595 36 : fit_coef(4, 13) = 5.6336421826288820E-02_dp
2596 36 : fit_coef(5, 13) = -2.0705833559352838E-02_dp
2597 36 : fit_coef(6, 13) = -3.4790488764663681E-02_dp
2598 36 : fit_coef(7, 13) = -2.0331621831735812E-03_dp
2599 36 : fit_coef(8, 13) = -1.1735723784168657E-02_dp
2600 36 : fit_coef(9, 13) = 6.1673712195088486E-02_dp
2601 36 : fit_coef(10, 13) = -6.7206330987665763E-02_dp
2602 36 : fit_coef(11, 13) = 3.3093275404480781E-02_dp
2603 36 : fit_coef(12, 13) = -6.5493688196066237E-03_dp
2604 36 : fit_coef(0, 14) = 3.1816462977746751E-01_dp
2605 36 : fit_coef(1, 14) = 3.8275682615881462E-01_dp
2606 36 : fit_coef(2, 14) = 3.3806848941519918E-01_dp
2607 36 : fit_coef(3, 14) = 1.8434916370789287E-01_dp
2608 36 : fit_coef(4, 14) = 5.9808120500728569E-02_dp
2609 36 : fit_coef(5, 14) = 4.0170881027690826E-03_dp
2610 36 : fit_coef(6, 14) = -9.8506182208028918E-03_dp
2611 36 : fit_coef(7, 14) = -4.1552347574310020E-02_dp
2612 36 : fit_coef(8, 14) = 4.0058352212536501E-02_dp
2613 36 : fit_coef(9, 14) = -1.0194992831605759E-01_dp
2614 36 : fit_coef(10, 14) = 1.6261296510646620E-01_dp
2615 36 : fit_coef(11, 14) = -1.0779408129071036E-01_dp
2616 36 : fit_coef(12, 14) = 2.6181546202421097E-02_dp
2617 36 : fit_coef(0, 15) = 5.9260717069203162E-01_dp
2618 36 : fit_coef(1, 15) = 5.2236714064676937E-01_dp
2619 36 : fit_coef(2, 15) = 3.8810235742485544E-01_dp
2620 36 : fit_coef(3, 15) = 1.5987501622242634E-01_dp
2621 36 : fit_coef(4, 15) = 3.8676464470426337E-02_dp
2622 36 : fit_coef(5, 15) = 2.2397530474472072E-02_dp
2623 36 : fit_coef(6, 15) = 2.9241369156544045E-02_dp
2624 36 : fit_coef(7, 15) = -2.8237942949318490E-02_dp
2625 36 : fit_coef(8, 15) = 2.5790590509430979E-02_dp
2626 36 : fit_coef(9, 15) = -7.6958891581302161E-02_dp
2627 36 : fit_coef(10, 15) = 3.2763833296732159E-02_dp
2628 36 : fit_coef(11, 15) = 3.0093663681386516E-02_dp
2629 36 : fit_coef(12, 15) = -1.8130008571038608E-02_dp
2630 36 : fit_coef(0, 16) = 1.0894766158803928E+00_dp
2631 36 : fit_coef(1, 16) = 6.6875957514002238E-01_dp
2632 36 : fit_coef(2, 16) = 4.2769216255296599E-01_dp
2633 36 : fit_coef(3, 16) = 1.2558051545388288E-01_dp
2634 36 : fit_coef(4, 16) = 1.1302801231878518E-02_dp
2635 36 : fit_coef(5, 16) = 3.1745607467806851E-02_dp
2636 36 : fit_coef(6, 16) = 3.5806902619106150E-02_dp
2637 36 : fit_coef(7, 16) = 4.4306027813559613E-02_dp
2638 36 : fit_coef(8, 16) = -1.0289320673076535E-01_dp
2639 36 : fit_coef(9, 16) = 1.4936934424649737E-01_dp
2640 36 : fit_coef(10, 16) = -1.9115632729633894E-01_dp
2641 36 : fit_coef(11, 16) = 1.1798136645873131E-01_dp
2642 36 : fit_coef(12, 16) = -2.5669389351849693E-02_dp
2643 36 : fit_coef(0, 17) = 2.0166575300282217E+00_dp
2644 36 : fit_coef(1, 17) = 7.9409079746788347E-01_dp
2645 36 : fit_coef(2, 17) = 4.6030756808902995E-01_dp
2646 36 : fit_coef(3, 17) = 1.0086447786948728E-01_dp
2647 36 : fit_coef(4, 17) = -6.7793884282790666E-03_dp
2648 36 : fit_coef(5, 17) = 3.1537489875332711E-02_dp
2649 36 : fit_coef(6, 17) = 5.2729459288171666E-02_dp
2650 36 : fit_coef(7, 17) = 6.4791698755050928E-03_dp
2651 36 : fit_coef(8, 17) = 2.1264307513768375E-02_dp
2652 36 : fit_coef(9, 17) = -5.0214257290051294E-02_dp
2653 36 : fit_coef(10, 17) = 5.5541231917168123E-02_dp
2654 36 : fit_coef(11, 17) = -4.9625274322895069E-02_dp
2655 36 : fit_coef(12, 17) = 1.7390208326760141E-02_dp
2656 36 : fit_coef(0, 18) = 4.0940777457341033E+00_dp
2657 36 : fit_coef(1, 18) = 9.0230847484016108E-01_dp
2658 36 : fit_coef(2, 18) = 5.1722017559623490E-01_dp
2659 36 : fit_coef(3, 18) = 1.0860069828810702E-01_dp
2660 36 : fit_coef(4, 18) = -1.3407150393913490E-02_dp
2661 36 : fit_coef(5, 18) = 2.8202598978792404E-02_dp
2662 36 : fit_coef(6, 18) = 5.5571528490456060E-02_dp
2663 36 : fit_coef(7, 18) = 1.1439449932901843E-03_dp
2664 36 : fit_coef(8, 18) = 4.1437472839587285E-02_dp
2665 36 : fit_coef(9, 18) = -6.3654618071805502E-02_dp
2666 36 : fit_coef(10, 18) = 6.9641516666139436E-02_dp
2667 36 : fit_coef(11, 18) = -4.3730228367233441E-02_dp
2668 36 : fit_coef(12, 18) = 9.7082624411000788E-03_dp
2669 :
2670 36 : 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 78 : 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 78 : L_b = 1.0000000000000000E+02_dp
2685 78 : U_b = 2.8387000000000000E+04_dp
2686 78 : fit_coef(0, 1) = 1.3617241890792169E-04_dp
2687 78 : fit_coef(1, 1) = 1.7628977768292345E-05_dp
2688 78 : fit_coef(2, 1) = 6.8456013917834527E-03_dp
2689 78 : fit_coef(3, 1) = -4.3895761081829160E-02_dp
2690 78 : fit_coef(4, 1) = 2.9175828400673420E-01_dp
2691 78 : fit_coef(5, 1) = -1.2306713809247385E+00_dp
2692 78 : fit_coef(6, 1) = 3.6801538863592786E+00_dp
2693 78 : fit_coef(7, 1) = -7.7402871595381262E+00_dp
2694 78 : fit_coef(8, 1) = 1.1345092910279265E+01_dp
2695 78 : fit_coef(9, 1) = -1.1320431537786655E+01_dp
2696 78 : fit_coef(10, 1) = 7.3192031213325555E+00_dp
2697 78 : fit_coef(11, 1) = -2.7615646170479575E+00_dp
2698 78 : fit_coef(12, 1) = 4.6126151831636680E-01_dp
2699 78 : fit_coef(0, 2) = 1.4982089284441154E-03_dp
2700 78 : fit_coef(1, 2) = 1.0653572616093308E-04_dp
2701 78 : fit_coef(2, 2) = 4.2011508058427197E-02_dp
2702 78 : fit_coef(3, 2) = -2.7370993918916198E-01_dp
2703 78 : fit_coef(4, 2) = 1.7939751803412998E+00_dp
2704 78 : fit_coef(5, 2) = -7.5589803739294439E+00_dp
2705 78 : fit_coef(6, 2) = 2.2557089057857102E+01_dp
2706 78 : fit_coef(7, 2) = -4.7359259599571885E+01_dp
2707 78 : fit_coef(8, 2) = 6.9309690166002625E+01_dp
2708 78 : fit_coef(9, 2) = -6.9067026631983438E+01_dp
2709 78 : fit_coef(10, 2) = 4.4604006663335653E+01_dp
2710 78 : fit_coef(11, 2) = -1.6812960687505747E+01_dp
2711 78 : fit_coef(12, 2) = 2.8059777999526059E+00_dp
2712 78 : fit_coef(0, 3) = 7.9297670024187777E-03_dp
2713 78 : fit_coef(1, 3) = 3.5670578026461845E-04_dp
2714 78 : fit_coef(2, 3) = 1.4395693117221828E-01_dp
2715 78 : fit_coef(3, 3) = -9.5715933171411527E-01_dp
2716 78 : fit_coef(4, 3) = 6.1575946587200887E+00_dp
2717 78 : fit_coef(5, 3) = -2.6009500954650985E+01_dp
2718 78 : fit_coef(6, 3) = 7.7302143694085373E+01_dp
2719 78 : fit_coef(7, 3) = -1.6146363554826667E+02_dp
2720 78 : fit_coef(8, 3) = 2.3520423885679529E+02_dp
2721 78 : fit_coef(9, 3) = -2.3348174715185502E+02_dp
2722 78 : fit_coef(10, 3) = 1.5031746608470456E+02_dp
2723 78 : fit_coef(11, 3) = -5.6519157967148246E+01_dp
2724 78 : fit_coef(12, 3) = 9.4136465031151371E+00_dp
2725 78 : fit_coef(0, 4) = 3.0606944390022209E-02_dp
2726 78 : fit_coef(1, 4) = 9.4936819479453946E-04_dp
2727 78 : fit_coef(2, 4) = 3.8897471198892203E-01_dp
2728 78 : fit_coef(3, 4) = -2.6197251988016608E+00_dp
2729 78 : fit_coef(4, 4) = 1.6650781475997896E+01_dp
2730 78 : fit_coef(5, 4) = -7.0453305665193994E+01_dp
2731 78 : fit_coef(6, 4) = 2.0877294584192904E+02_dp
2732 78 : fit_coef(7, 4) = -4.3466952414824391E+02_dp
2733 78 : fit_coef(8, 4) = 6.3140792713339783E+02_dp
2734 78 : fit_coef(9, 4) = -6.2527262377050522E+02_dp
2735 78 : fit_coef(10, 4) = 4.0172259183111106E+02_dp
2736 78 : fit_coef(11, 4) = -1.5078038623522440E+02_dp
2737 78 : fit_coef(12, 4) = 2.5075879780026515E+01_dp
2738 78 : fit_coef(0, 5) = 9.8018953522175933E-02_dp
2739 78 : fit_coef(1, 5) = 2.1720322644464903E-03_dp
2740 78 : fit_coef(2, 5) = 8.9930042879493677E-01_dp
2741 78 : fit_coef(3, 5) = -6.1094240846085883E+00_dp
2742 78 : fit_coef(4, 5) = 3.8522442672428134E+01_dp
2743 78 : fit_coef(5, 5) = -1.6318345003883445E+02_dp
2744 78 : fit_coef(6, 5) = 4.8266158600585260E+02_dp
2745 78 : fit_coef(7, 5) = -1.0027451259770581E+03_dp
2746 78 : fit_coef(8, 5) = 1.4536819184010467E+03_dp
2747 78 : fit_coef(9, 5) = -1.4370066077396380E+03_dp
2748 78 : fit_coef(10, 5) = 9.2184153436145550E+02_dp
2749 78 : fit_coef(11, 5) = -3.4555746263788461E+02_dp
2750 78 : fit_coef(12, 5) = 5.7407542232062980E+01_dp
2751 78 : fit_coef(0, 6) = 2.7659185448391987E-01_dp
2752 78 : fit_coef(1, 6) = 4.4094406641574943E-03_dp
2753 78 : fit_coef(2, 6) = 1.8398642403823151E+00_dp
2754 78 : fit_coef(3, 6) = -1.2577480695844354E+01_dp
2755 78 : fit_coef(4, 6) = 7.8862889072705556E+01_dp
2756 78 : fit_coef(5, 6) = -3.3434171658322168E+02_dp
2757 78 : fit_coef(6, 6) = 9.8773755594540955E+02_dp
2758 78 : fit_coef(7, 6) = -2.0489450065104556E+03_dp
2759 78 : fit_coef(8, 6) = 2.9660415791608848E+03_dp
2760 78 : fit_coef(9, 6) = -2.9282468772949642E+03_dp
2761 78 : fit_coef(10, 6) = 1.8764113820048669E+03_dp
2762 78 : fit_coef(11, 6) = -7.0273375035027368E+02_dp
2763 78 : fit_coef(12, 6) = 1.1665511108284656E+02_dp
2764 78 : fit_coef(0, 7) = 7.1175857336521264E-01_dp
2765 78 : fit_coef(1, 7) = 8.0417831942619766E-03_dp
2766 78 : fit_coef(2, 7) = 3.3752364445702137E+00_dp
2767 78 : fit_coef(3, 7) = -2.3180805628186413E+01_dp
2768 78 : fit_coef(4, 7) = 1.4475705309197897E+02_dp
2769 78 : fit_coef(5, 7) = -6.1407495752819284E+02_dp
2770 78 : fit_coef(6, 7) = 1.8127278994439107E+03_dp
2771 78 : fit_coef(7, 7) = -3.7561578028747299E+03_dp
2772 78 : fit_coef(8, 7) = 5.4315325157499246E+03_dp
2773 78 : fit_coef(9, 7) = -5.3571860391096889E+03_dp
2774 78 : fit_coef(10, 7) = 3.4300556791845847E+03_dp
2775 78 : fit_coef(11, 7) = -1.2837010342914398E+03_dp
2776 78 : fit_coef(12, 7) = 2.1297330497738872E+02_dp
2777 78 : fit_coef(0, 8) = 1.7130988759895882E+00_dp
2778 78 : fit_coef(1, 8) = 1.3197929578399978E-02_dp
2779 78 : fit_coef(2, 8) = 5.5632864218169500E+00_dp
2780 78 : fit_coef(3, 8) = -3.8336822165302195E+01_dp
2781 78 : fit_coef(4, 8) = 2.3871040314392795E+02_dp
2782 78 : fit_coef(5, 8) = -1.0130802214079603E+03_dp
2783 78 : fit_coef(6, 8) = 2.9890590755362450E+03_dp
2784 78 : fit_coef(7, 8) = -6.1888221737685317E+03_dp
2785 78 : fit_coef(8, 8) = 8.9422907047984954E+03_dp
2786 78 : fit_coef(9, 8) = -8.8137663823846488E+03_dp
2787 78 : fit_coef(10, 8) = 5.6398489234791505E+03_dp
2788 78 : fit_coef(11, 8) = -2.1096575748430814E+03_dp
2789 78 : fit_coef(12, 8) = 3.4985649609391197E+02_dp
2790 78 : fit_coef(0, 9) = 4.0049762380285738E+00_dp
2791 78 : fit_coef(1, 9) = 1.9523136227240855E-02_dp
2792 78 : fit_coef(2, 9) = 8.2524358089376726E+00_dp
2793 78 : fit_coef(3, 9) = -5.6989983733349561E+01_dp
2794 78 : fit_coef(4, 9) = 3.5421093521195178E+02_dp
2795 78 : fit_coef(5, 9) = -1.5036827242000363E+03_dp
2796 78 : fit_coef(6, 9) = 4.4352294689617192E+03_dp
2797 78 : fit_coef(7, 9) = -9.1786236202633227E+03_dp
2798 78 : fit_coef(8, 9) = 1.3255721756847372E+04_dp
2799 78 : fit_coef(9, 9) = -1.3059405760710591E+04_dp
2800 78 : fit_coef(10, 9) = 8.3534120377636300E+03_dp
2801 78 : fit_coef(11, 9) = -3.1236948984785458E+03_dp
2802 78 : fit_coef(12, 9) = 5.1787990413580712E+02_dp
2803 78 : fit_coef(0, 10) = 4.3533793103490108E-04_dp
2804 78 : fit_coef(1, 10) = 4.5700924266841888E-05_dp
2805 78 : fit_coef(2, 10) = 1.7699021404652904E-02_dp
2806 78 : fit_coef(3, 10) = -1.1339163743096678E-01_dp
2807 78 : fit_coef(4, 10) = 7.5317562249438585E-01_dp
2808 78 : fit_coef(5, 10) = -3.1670388958213715E+00_dp
2809 78 : fit_coef(6, 10) = 9.4488857516948261E+00_dp
2810 78 : fit_coef(7, 10) = -1.9855290060320243E+01_dp
2811 78 : fit_coef(8, 10) = 2.9102458261293140E+01_dp
2812 78 : fit_coef(9, 10) = -2.9053092441811895E+01_dp
2813 78 : fit_coef(10, 10) = 1.8796923562697987E+01_dp
2814 78 : fit_coef(11, 10) = -7.0973082087264441E+00_dp
2815 78 : fit_coef(12, 10) = 1.1862930929920559E+00_dp
2816 78 : fit_coef(0, 11) = 2.8605561196639808E-03_dp
2817 78 : fit_coef(1, 11) = 1.4711961159333449E-04_dp
2818 78 : fit_coef(2, 11) = 5.9181533881525895E-02_dp
2819 78 : fit_coef(3, 11) = -3.9234994207703527E-01_dp
2820 78 : fit_coef(4, 11) = 2.5337109677677274E+00_dp
2821 78 : fit_coef(5, 11) = -1.0698664293959414E+01_dp
2822 78 : fit_coef(6, 11) = 3.1866930157362180E+01_dp
2823 78 : fit_coef(7, 11) = -6.6687974631903131E+01_dp
2824 78 : fit_coef(8, 11) = 9.7258475471561397E+01_dp
2825 78 : fit_coef(9, 11) = -9.6610121349263864E+01_dp
2826 78 : fit_coef(10, 11) = 6.2222012749124062E+01_dp
2827 78 : fit_coef(11, 11) = -2.3400982843737399E+01_dp
2828 78 : fit_coef(12, 11) = 3.8982563637438763E+00_dp
2829 78 : fit_coef(0, 12) = 1.1710521653280541E-02_dp
2830 78 : fit_coef(1, 12) = 3.8298132150440530E-04_dp
2831 78 : fit_coef(2, 12) = 1.5720490880478075E-01_dp
2832 78 : fit_coef(3, 12) = -1.0604827594360497E+00_dp
2833 78 : fit_coef(4, 12) = 6.7293547068829866E+00_dp
2834 78 : fit_coef(5, 12) = -2.8478199973116869E+01_dp
2835 78 : fit_coef(6, 12) = 8.4349514492679333E+01_dp
2836 78 : fit_coef(7, 12) = -1.7552622863849189E+02_dp
2837 78 : fit_coef(8, 12) = 2.5489178159805036E+02_dp
2838 78 : fit_coef(9, 12) = -2.5238005448515145E+02_dp
2839 78 : fit_coef(10, 12) = 1.6214051051889587E+02_dp
2840 78 : fit_coef(11, 12) = -6.0856023343944223E+01_dp
2841 78 : fit_coef(12, 12) = 1.0120675732982292E+01_dp
2842 78 : fit_coef(0, 13) = 3.8069679293470479E-02_dp
2843 78 : fit_coef(1, 13) = 8.5030453244577039E-04_dp
2844 78 : fit_coef(2, 13) = 3.5319383125255671E-01_dp
2845 78 : fit_coef(3, 13) = -2.4058326640152856E+00_dp
2846 78 : fit_coef(4, 13) = 1.5130832210336226E+01_dp
2847 78 : fit_coef(5, 13) = -6.4118678617210037E+01_dp
2848 78 : fit_coef(6, 13) = 1.8951627589384418E+02_dp
2849 78 : fit_coef(7, 13) = -3.9344807722056498E+02_dp
2850 78 : fit_coef(8, 13) = 5.7003275418870396E+02_dp
2851 78 : fit_coef(9, 13) = -5.6318587947825517E+02_dp
2852 78 : fit_coef(10, 13) = 3.6110912251064480E+02_dp
2853 78 : fit_coef(11, 13) = -1.3530674224009485E+02_dp
2854 78 : fit_coef(12, 13) = 2.2470490007659631E+01_dp
2855 78 : fit_coef(0, 14) = 1.0718425215372540E-01_dp
2856 78 : fit_coef(1, 14) = 1.6606498612547411E-03_dp
2857 78 : fit_coef(2, 14) = 6.9558041141151850E-01_dp
2858 78 : fit_coef(3, 14) = -4.7698051853919008E+00_dp
2859 78 : fit_coef(4, 14) = 2.9821463877897131E+01_dp
2860 78 : fit_coef(5, 14) = -1.2648112443458319E+02_dp
2861 78 : fit_coef(6, 14) = 3.7339814874668650E+02_dp
2862 78 : fit_coef(7, 14) = -7.7395557459000918E+02_dp
2863 78 : fit_coef(8, 14) = 1.1195459460253383E+03_dp
2864 78 : fit_coef(9, 14) = -1.1045564613814279E+03_dp
2865 78 : fit_coef(10, 14) = 7.0739903710729982E+02_dp
2866 78 : fit_coef(11, 14) = -2.6480250102979971E+02_dp
2867 78 : fit_coef(12, 14) = 4.3940376198319392E+01_dp
2868 78 : fit_coef(0, 15) = 2.7292854447821768E-01_dp
2869 78 : fit_coef(1, 15) = 2.8818089651899471E-03_dp
2870 78 : fit_coef(2, 15) = 1.2148125826442298E+00_dp
2871 78 : fit_coef(3, 15) = -8.3719688971021089E+00_dp
2872 78 : fit_coef(4, 15) = 5.2119215804340925E+01_dp
2873 78 : fit_coef(5, 15) = -2.2119562023064080E+02_dp
2874 78 : fit_coef(6, 15) = 6.5252980054868908E+02_dp
2875 78 : fit_coef(7, 15) = -1.3509643415136143E+03_dp
2876 78 : fit_coef(8, 15) = 1.9519497444270371E+03_dp
2877 78 : fit_coef(9, 15) = -1.9238403235944149E+03_dp
2878 78 : fit_coef(10, 15) = 1.2310185427991041E+03_dp
2879 78 : fit_coef(11, 15) = -4.6046906916991361E+02_dp
2880 78 : fit_coef(12, 15) = 7.6360956106162789E+01_dp
2881 78 : fit_coef(0, 16) = 6.4599249663823077E-01_dp
2882 78 : fit_coef(1, 16) = 4.4100315779845725E-03_dp
2883 78 : fit_coef(2, 16) = 1.8680668872908257E+00_dp
2884 78 : fit_coef(3, 16) = -1.2921923578119841E+01_dp
2885 78 : fit_coef(4, 16) = 8.0194113618089176E+01_dp
2886 78 : fit_coef(5, 16) = -3.4051136254025738E+02_dp
2887 78 : fit_coef(6, 16) = 1.0040346645389629E+03_dp
2888 78 : fit_coef(7, 16) = -2.0769701859400898E+03_dp
2889 78 : fit_coef(8, 16) = 2.9983623465977071E+03_dp
2890 78 : fit_coef(9, 16) = -2.9529215447188330E+03_dp
2891 78 : fit_coef(10, 16) = 1.8882605454973300E+03_dp
2892 78 : fit_coef(11, 16) = -7.0592135980760236E+02_dp
2893 78 : fit_coef(12, 16) = 1.1701028544478041E+02_dp
2894 78 : fit_coef(0, 17) = 1.4634101645424438E+00_dp
2895 78 : fit_coef(1, 17) = 5.8372190193024661E-03_dp
2896 78 : fit_coef(2, 17) = 2.4803142380725367E+00_dp
2897 78 : fit_coef(3, 17) = -1.7197461327455997E+01_dp
2898 78 : fit_coef(4, 17) = 1.0652223495438764E+02_dp
2899 78 : fit_coef(5, 17) = -4.5244169342907389E+02_dp
2900 78 : fit_coef(6, 17) = 1.3337313060706883E+03_dp
2901 78 : fit_coef(7, 17) = -2.7575829556743033E+03_dp
2902 78 : fit_coef(8, 17) = 3.9787771328072104E+03_dp
2903 78 : fit_coef(9, 17) = -3.9165784027159407E+03_dp
2904 78 : fit_coef(10, 17) = 2.5034305875991531E+03_dp
2905 78 : fit_coef(11, 17) = -9.3557062065768866E+02_dp
2906 78 : fit_coef(12, 17) = 1.5502979180126792E+02_dp
2907 78 : fit_coef(0, 18) = 3.4614534817764171E+00_dp
2908 78 : fit_coef(1, 18) = 6.7354426924417570E-03_dp
2909 78 : fit_coef(2, 18) = 2.8636831995229377E+00_dp
2910 78 : fit_coef(3, 18) = -1.9864414118527225E+01_dp
2911 78 : fit_coef(4, 18) = 1.2299824240049257E+02_dp
2912 78 : fit_coef(5, 18) = -5.2245197249800015E+02_dp
2913 78 : fit_coef(6, 18) = 1.5400592407663903E+03_dp
2914 78 : fit_coef(7, 18) = -3.1838942159350613E+03_dp
2915 78 : fit_coef(8, 18) = 4.5934235919896164E+03_dp
2916 78 : fit_coef(9, 18) = -4.5212045254281238E+03_dp
2917 78 : fit_coef(10, 18) = 2.8896730980666093E+03_dp
2918 78 : fit_coef(11, 18) = -1.0798434840197956E+03_dp
2919 78 : fit_coef(12, 18) = 1.7892665893271254E+02_dp
2920 :
2921 78 : 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 44 : 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 44 : L_b = 1.0000000000000000E+01_dp
2936 44 : U_b = 1.0000000000000000E+02_dp
2937 44 : fit_coef(0, 1) = 5.7695951023970724E-03_dp
2938 44 : fit_coef(1, 1) = 1.5304265823073267E-02_dp
2939 44 : fit_coef(2, 1) = 1.9872484454133494E-02_dp
2940 44 : fit_coef(3, 1) = 1.4567559207979195E-02_dp
2941 44 : fit_coef(4, 1) = 4.4496400713523688E-03_dp
2942 44 : fit_coef(5, 1) = -2.0505040635942838E-03_dp
2943 44 : fit_coef(6, 1) = -2.4017738586966987E-03_dp
2944 44 : fit_coef(7, 1) = -2.1712350568040649E-04_dp
2945 44 : fit_coef(8, 1) = 5.6984531809305442E-04_dp
2946 44 : fit_coef(9, 1) = 3.6792198394363707E-04_dp
2947 44 : fit_coef(10, 1) = -4.8212959819146314E-04_dp
2948 44 : fit_coef(11, 1) = 2.3577845786711992E-04_dp
2949 44 : fit_coef(12, 1) = -5.1828587653862264E-05_dp
2950 44 : fit_coef(0, 2) = 3.1885037358175702E-02_dp
2951 44 : fit_coef(1, 2) = 8.2163350099799248E-02_dp
2952 44 : fit_coef(2, 2) = 1.0528892661444159E-01_dp
2953 44 : fit_coef(3, 2) = 7.6258768872869365E-02_dp
2954 44 : fit_coef(4, 2) = 2.2829853937072226E-02_dp
2955 44 : fit_coef(5, 2) = -1.0880783303710033E-02_dp
2956 44 : fit_coef(6, 2) = -1.2408166352033598E-02_dp
2957 44 : fit_coef(7, 2) = -9.9928746104626666E-04_dp
2958 44 : fit_coef(8, 2) = 2.9811486982521352E-03_dp
2959 44 : fit_coef(9, 2) = 1.8293482458015533E-03_dp
2960 44 : fit_coef(10, 2) = -2.4355182872439814E-03_dp
2961 44 : fit_coef(11, 2) = 1.1814205683589125E-03_dp
2962 44 : fit_coef(12, 2) = -2.5780560125925923E-04_dp
2963 44 : fit_coef(0, 3) = 8.5985451133225102E-02_dp
2964 44 : fit_coef(1, 3) = 2.0835675405554938E-01_dp
2965 44 : fit_coef(2, 3) = 2.6074125375875318E-01_dp
2966 44 : fit_coef(3, 3) = 1.8534648507356308E-01_dp
2967 44 : fit_coef(4, 3) = 5.3562405566639951E-02_dp
2968 44 : fit_coef(5, 3) = -2.7120042620104229E-02_dp
2969 44 : fit_coef(6, 3) = -2.9327190422043962E-02_dp
2970 44 : fit_coef(7, 3) = -1.7334511896438729E-03_dp
2971 44 : fit_coef(8, 3) = 7.0440054029393588E-03_dp
2972 44 : fit_coef(9, 3) = 4.0411619935981176E-03_dp
2973 44 : fit_coef(10, 3) = -5.4238824013001187E-03_dp
2974 44 : fit_coef(11, 3) = 2.5591744878845188E-03_dp
2975 44 : fit_coef(12, 3) = -5.4685946652433383E-04_dp
2976 44 : fit_coef(0, 4) = 1.8459848405035967E-01_dp
2977 44 : fit_coef(1, 4) = 4.0371818510223983E-01_dp
2978 44 : fit_coef(2, 4) = 4.8557108030340618E-01_dp
2979 44 : fit_coef(3, 4) = 3.3806374668738176E-01_dp
2980 44 : fit_coef(4, 4) = 9.5858897409524330E-02_dp
2981 44 : fit_coef(5, 4) = -5.0962592261426340E-02_dp
2982 44 : fit_coef(6, 4) = -5.3586938181428435E-02_dp
2983 44 : fit_coef(7, 4) = -2.2127455334925599E-03_dp
2984 44 : fit_coef(8, 4) = 1.6831832652833605E-02_dp
2985 44 : fit_coef(9, 4) = 3.0255279721402920E-03_dp
2986 44 : fit_coef(10, 4) = -8.9664127863715425E-03_dp
2987 44 : fit_coef(11, 4) = 5.2862341907787443E-03_dp
2988 44 : fit_coef(12, 4) = -1.2820544869880796E-03_dp
2989 44 : fit_coef(0, 5) = 3.6074777273994402E-01_dp
2990 44 : fit_coef(1, 5) = 6.8428202854170017E-01_dp
2991 44 : fit_coef(2, 5) = 7.7269339647894841E-01_dp
2992 44 : fit_coef(3, 5) = 5.2037619710849736E-01_dp
2993 44 : fit_coef(4, 5) = 1.5184339437662456E-01_dp
2994 44 : fit_coef(5, 5) = -6.9927558231047474E-02_dp
2995 44 : fit_coef(6, 5) = -8.7838357618212293E-02_dp
2996 44 : fit_coef(7, 5) = -2.6261703222456140E-03_dp
2997 44 : fit_coef(8, 5) = 7.4641639246942270E-04_dp
2998 44 : fit_coef(9, 5) = 6.0318746256968377E-02_dp
2999 44 : fit_coef(10, 5) = -6.1544498098345557E-02_dp
3000 44 : fit_coef(11, 5) = 2.6700632837816051E-02_dp
3001 44 : fit_coef(12, 5) = -4.6151870101819167E-03_dp
3002 44 : fit_coef(0, 6) = 6.7343634143757625E-01_dp
3003 44 : fit_coef(1, 6) = 1.0727120778542409E+00_dp
3004 44 : fit_coef(2, 6) = 1.1129907008803974E+00_dp
3005 44 : fit_coef(3, 6) = 7.0510865936118905E-01_dp
3006 44 : fit_coef(4, 6) = 2.1018587810883321E-01_dp
3007 44 : fit_coef(5, 6) = -6.7282163797883557E-02_dp
3008 44 : fit_coef(6, 6) = -1.0027943290324723E-01_dp
3009 44 : fit_coef(7, 6) = -3.5384540450618285E-02_dp
3010 44 : fit_coef(8, 6) = 2.7298363384797509E-02_dp
3011 44 : fit_coef(9, 6) = -1.7363812432330001E-02_dp
3012 44 : fit_coef(10, 6) = 7.1528999902988041E-02_dp
3013 44 : fit_coef(11, 6) = -6.3212218372623016E-02_dp
3014 44 : fit_coef(12, 6) = 1.7361608127688759E-02_dp
3015 44 : fit_coef(0, 7) = 1.2230817482271914E+00_dp
3016 44 : fit_coef(1, 7) = 1.5911587218644585E+00_dp
3017 44 : fit_coef(2, 7) = 1.4985802851816239E+00_dp
3018 44 : fit_coef(3, 7) = 8.6838937807453775E-01_dp
3019 44 : fit_coef(4, 7) = 2.5143747366687763E-01_dp
3020 44 : fit_coef(5, 7) = -4.6498700536608512E-02_dp
3021 44 : fit_coef(6, 7) = -7.6008644969091751E-02_dp
3022 44 : fit_coef(7, 7) = -6.7454078584185465E-02_dp
3023 44 : fit_coef(8, 7) = 6.4705093608466005E-02_dp
3024 44 : fit_coef(9, 7) = -1.2642157251641012E-01_dp
3025 44 : fit_coef(10, 7) = 1.5991737393743985E-01_dp
3026 44 : fit_coef(11, 7) = -7.4991121735080518E-02_dp
3027 44 : fit_coef(12, 7) = 1.0660115126825225E-02_dp
3028 44 : fit_coef(0, 8) = 2.1806860083417416E+00_dp
3029 44 : fit_coef(1, 8) = 2.2497241492451168E+00_dp
3030 44 : fit_coef(2, 8) = 1.9203525211709502E+00_dp
3031 44 : fit_coef(3, 8) = 9.9969616591345500E-01_dp
3032 44 : fit_coef(4, 8) = 2.6834037626429591E-01_dp
3033 44 : fit_coef(5, 8) = -1.4414826654982551E-02_dp
3034 44 : fit_coef(6, 8) = -4.5077253602132578E-02_dp
3035 44 : fit_coef(7, 8) = -2.2179502828276729E-02_dp
3036 44 : fit_coef(8, 8) = -4.7039179966872090E-02_dp
3037 44 : fit_coef(9, 8) = 2.8411736628542274E-02_dp
3038 44 : fit_coef(10, 8) = -4.1123712302139126E-02_dp
3039 44 : fit_coef(11, 8) = 5.9491575141153316E-02_dp
3040 44 : fit_coef(12, 8) = -2.2126040786265226E-02_dp
3041 44 : fit_coef(0, 9) = 3.8549835579963414E+00_dp
3042 44 : fit_coef(1, 9) = 3.0378827588214725E+00_dp
3043 44 : fit_coef(2, 9) = 2.3710751843734088E+00_dp
3044 44 : fit_coef(3, 9) = 1.1032804253025836E+00_dp
3045 44 : fit_coef(4, 9) = 2.6679454698903354E-01_dp
3046 44 : fit_coef(5, 9) = 2.0134331862044223E-02_dp
3047 44 : fit_coef(6, 9) = -3.9522591450155079E-04_dp
3048 44 : fit_coef(7, 9) = 7.4771871672822615E-03_dp
3049 44 : fit_coef(8, 9) = -8.2968039659936169E-02_dp
3050 44 : fit_coef(9, 9) = 5.7925277454710461E-02_dp
3051 44 : fit_coef(10, 9) = -6.7746771231294078E-02_dp
3052 44 : fit_coef(11, 9) = 5.6397993380196895E-02_dp
3053 44 : fit_coef(12, 9) = -1.4614807655446010E-02_dp
3054 44 : fit_coef(0, 10) = 6.9382542461265118E+00_dp
3055 44 : fit_coef(1, 10) = 3.9362780471139174E+00_dp
3056 44 : fit_coef(2, 10) = 2.8610007550879040E+00_dp
3057 44 : fit_coef(3, 10) = 1.1997673683708834E+00_dp
3058 44 : fit_coef(4, 10) = 2.5581466127865921E-01_dp
3059 44 : fit_coef(5, 10) = 5.3143801132552647E-02_dp
3060 44 : fit_coef(6, 10) = 5.1417759773000900E-02_dp
3061 44 : fit_coef(7, 10) = 1.7678646974295765E-02_dp
3062 44 : fit_coef(8, 10) = -5.9075047650367432E-02_dp
3063 44 : fit_coef(9, 10) = 3.3432194957975334E-03_dp
3064 44 : fit_coef(10, 10) = 3.6827535376516749E-03_dp
3065 44 : fit_coef(11, 10) = 1.1242355647481125E-03_dp
3066 44 : fit_coef(12, 10) = 9.1270977158394349E-04_dp
3067 44 : fit_coef(0, 11) = 1.4966733342014741E-02_dp
3068 44 : fit_coef(1, 11) = 3.9453275484996823E-02_dp
3069 44 : fit_coef(2, 11) = 5.1068715597025638E-02_dp
3070 44 : fit_coef(3, 11) = 3.7329091135728701E-02_dp
3071 44 : fit_coef(4, 11) = 1.1348488247113217E-02_dp
3072 44 : fit_coef(5, 11) = -5.2730834502581489E-03_dp
3073 44 : fit_coef(6, 11) = -6.1356690848579278E-03_dp
3074 44 : fit_coef(7, 11) = -5.3965409284480723E-04_dp
3075 44 : fit_coef(8, 11) = 1.4598866172702007E-03_dp
3076 44 : fit_coef(9, 11) = 9.3119411997548570E-04_dp
3077 44 : fit_coef(10, 11) = -1.2246113300432057E-03_dp
3078 44 : fit_coef(11, 11) = 5.9768922566995949E-04_dp
3079 44 : fit_coef(12, 11) = -1.3116685473996465E-04_dp
3080 44 : fit_coef(0, 12) = 3.8347028757142743E-02_dp
3081 44 : fit_coef(1, 12) = 9.5250205763913104E-02_dp
3082 44 : fit_coef(2, 12) = 1.2014345228064902E-01_dp
3083 44 : fit_coef(3, 12) = 8.5770121052551718E-02_dp
3084 44 : fit_coef(4, 12) = 2.5026676932284449E-02_dp
3085 44 : fit_coef(5, 12) = -1.2425272424457500E-02_dp
3086 44 : fit_coef(6, 12) = -1.3711933166334719E-02_dp
3087 44 : fit_coef(7, 12) = -9.4665591048253780E-04_dp
3088 44 : fit_coef(8, 12) = 3.3417995277827857E-03_dp
3089 44 : fit_coef(9, 12) = 1.9446347870976362E-03_dp
3090 44 : fit_coef(10, 12) = -2.6369332046548466E-03_dp
3091 44 : fit_coef(11, 12) = 1.2654540755567044E-03_dp
3092 44 : fit_coef(12, 12) = -2.7319897896357627E-04_dp
3093 44 : fit_coef(0, 13) = 7.2491464313657286E-02_dp
3094 44 : fit_coef(1, 13) = 1.5872975379092427E-01_dp
3095 44 : fit_coef(2, 13) = 1.9076646279106174E-01_dp
3096 44 : fit_coef(3, 13) = 1.3193323939107945E-01_dp
3097 44 : fit_coef(4, 13) = 3.6136743102133911E-02_dp
3098 44 : fit_coef(5, 13) = -2.0313520615877108E-02_dp
3099 44 : fit_coef(6, 13) = -1.9992174365017833E-02_dp
3100 44 : fit_coef(7, 13) = -1.5921233024662168E-04_dp
3101 44 : fit_coef(8, 13) = 5.1319901147546939E-03_dp
3102 44 : fit_coef(9, 13) = 1.3342159647477779E-03_dp
3103 44 : fit_coef(10, 13) = -2.2525420201435871E-03_dp
3104 44 : fit_coef(11, 13) = 9.7269009421198751E-04_dp
3105 44 : fit_coef(12, 13) = -2.0108283608299456E-04_dp
3106 44 : fit_coef(0, 14) = 1.3008928188788060E-01_dp
3107 44 : fit_coef(1, 14) = 2.3463488136486438E-01_dp
3108 44 : fit_coef(2, 14) = 2.5759089406615687E-01_dp
3109 44 : fit_coef(3, 14) = 1.7130271768667638E-01_dp
3110 44 : fit_coef(4, 14) = 4.9321273379861225E-02_dp
3111 44 : fit_coef(5, 14) = -2.5370622060839100E-02_dp
3112 44 : fit_coef(6, 14) = -2.9809532415184900E-02_dp
3113 44 : fit_coef(7, 14) = -1.5417020754737089E-03_dp
3114 44 : fit_coef(8, 14) = 1.0746594499561295E-02_dp
3115 44 : fit_coef(9, 14) = 9.4386979195149809E-03_dp
3116 44 : fit_coef(10, 14) = -1.9447726689701503E-02_dp
3117 44 : fit_coef(11, 14) = 1.2247210595444594E-02_dp
3118 44 : fit_coef(12, 14) = -2.9200822587582783E-03_dp
3119 44 : fit_coef(0, 15) = 2.3180186914323608E-01_dp
3120 44 : fit_coef(1, 15) = 3.3040402783496398E-01_dp
3121 44 : fit_coef(2, 15) = 3.1506693954203840E-01_dp
3122 44 : fit_coef(3, 15) = 1.8838521756146479E-01_dp
3123 44 : fit_coef(4, 15) = 6.0573038457003757E-02_dp
3124 44 : fit_coef(5, 15) = -8.8248929607627029E-03_dp
3125 44 : fit_coef(6, 15) = -3.2842705061116521E-02_dp
3126 44 : fit_coef(7, 15) = -3.8281459849134332E-03_dp
3127 44 : fit_coef(8, 15) = -3.5375767464361246E-02_dp
3128 44 : fit_coef(9, 15) = 6.9092174166339268E-02_dp
3129 44 : fit_coef(10, 15) = -3.1110614611766781E-02_dp
3130 44 : fit_coef(11, 15) = -4.5781884002109160E-03_dp
3131 44 : fit_coef(12, 15) = 4.8446541181232632E-03_dp
3132 44 : fit_coef(0, 16) = 4.0986431246574251E-01_dp
3133 44 : fit_coef(1, 16) = 4.5035445709902655E-01_dp
3134 44 : fit_coef(2, 16) = 3.6429713371972472E-01_dp
3135 44 : fit_coef(3, 16) = 1.7696011433627806E-01_dp
3136 44 : fit_coef(4, 16) = 5.2443940811353028E-02_dp
3137 44 : fit_coef(5, 16) = 1.2731147310719145E-02_dp
3138 44 : fit_coef(6, 16) = 1.2109883658619791E-02_dp
3139 44 : fit_coef(7, 16) = -5.9511768374893713E-02_dp
3140 44 : fit_coef(8, 16) = 9.3282598295030036E-02_dp
3141 44 : fit_coef(9, 16) = -2.1484669589298355E-01_dp
3142 44 : fit_coef(10, 16) = 2.5063354943196953E-01_dp
3143 44 : fit_coef(11, 16) = -1.3015721063956481E-01_dp
3144 44 : fit_coef(12, 16) = 2.5163533574069471E-02_dp
3145 44 : fit_coef(0, 17) = 7.1698706857622740E-01_dp
3146 44 : fit_coef(1, 17) = 5.8839597496590568E-01_dp
3147 44 : fit_coef(2, 17) = 4.0531879096886647E-01_dp
3148 44 : fit_coef(3, 17) = 1.4784602258417653E-01_dp
3149 44 : fit_coef(4, 17) = 2.8867088347120023E-02_dp
3150 44 : fit_coef(5, 17) = 2.7968490127980788E-02_dp
3151 44 : fit_coef(6, 17) = 2.8408348764650926E-02_dp
3152 44 : fit_coef(7, 17) = 1.6630805867207835E-02_dp
3153 44 : fit_coef(8, 17) = -6.5625993058929091E-02_dp
3154 44 : fit_coef(9, 17) = 7.6969150282882134E-02_dp
3155 44 : fit_coef(10, 17) = -1.3660437598545347E-01_dp
3156 44 : fit_coef(11, 17) = 1.2266105788436464E-01_dp
3157 44 : fit_coef(12, 17) = -3.7327615955604555E-02_dp
3158 44 : fit_coef(0, 18) = 1.2469010615236285E+00_dp
3159 44 : fit_coef(1, 18) = 7.2690110706329647E-01_dp
3160 44 : fit_coef(2, 18) = 4.3679155042183249E-01_dp
3161 44 : fit_coef(3, 18) = 1.1545454220850887E-01_dp
3162 44 : fit_coef(4, 18) = 6.1457460689058442E-03_dp
3163 44 : fit_coef(5, 18) = 3.4446450178461388E-02_dp
3164 44 : fit_coef(6, 18) = 3.6803538637622653E-02_dp
3165 44 : fit_coef(7, 18) = 4.9357342985472417E-02_dp
3166 44 : fit_coef(8, 18) = -9.8393813847182057E-02_dp
3167 44 : fit_coef(9, 18) = 1.3063016463318536E-01_dp
3168 44 : fit_coef(10, 18) = -1.5004086198844574E-01_dp
3169 44 : fit_coef(11, 18) = 7.8940423149777589E-02_dp
3170 44 : fit_coef(12, 18) = -1.3100508732995670E-02_dp
3171 44 : fit_coef(0, 19) = 2.2020857144301220E+00_dp
3172 44 : fit_coef(1, 19) = 8.4496482669483042E-01_dp
3173 44 : fit_coef(2, 19) = 4.6567133382072923E-01_dp
3174 44 : fit_coef(3, 19) = 9.5046757527473213E-02_dp
3175 44 : fit_coef(4, 19) = -7.6836222188503209E-03_dp
3176 44 : fit_coef(5, 19) = 3.4125967755404704E-02_dp
3177 44 : fit_coef(6, 19) = 5.0617003282733740E-02_dp
3178 44 : fit_coef(7, 19) = 1.2669228101081176E-02_dp
3179 44 : fit_coef(8, 19) = 1.4598367047566483E-02_dp
3180 44 : fit_coef(9, 19) = -4.8146800081324943E-02_dp
3181 44 : fit_coef(10, 19) = 6.4386938465572141E-02_dp
3182 44 : fit_coef(11, 19) = -5.7857218864180007E-02_dp
3183 44 : fit_coef(12, 19) = 1.9235315360114507E-02_dp
3184 44 : fit_coef(0, 20) = 4.3050004435836158E+00_dp
3185 44 : fit_coef(1, 20) = 9.5976454358976238E-01_dp
3186 44 : fit_coef(2, 20) = 5.2630087854492191E-01_dp
3187 44 : fit_coef(3, 20) = 1.0553767791618235E-01_dp
3188 44 : fit_coef(4, 20) = -1.2890279709804050E-02_dp
3189 44 : fit_coef(5, 20) = 3.1631245951617148E-02_dp
3190 44 : fit_coef(6, 20) = 5.1846721167766188E-02_dp
3191 44 : fit_coef(7, 20) = 1.3931333624011479E-02_dp
3192 44 : fit_coef(8, 20) = 1.8289419861101722E-02_dp
3193 44 : fit_coef(9, 20) = -3.6941691804435302E-02_dp
3194 44 : fit_coef(10, 20) = 5.2037604092826852E-02_dp
3195 44 : fit_coef(11, 20) = -3.6753728963893388E-02_dp
3196 44 : fit_coef(12, 20) = 8.3623158625230273E-03_dp
3197 :
3198 44 : 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 96 : 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 96 : L_b = 1.0000000000000000E+02_dp
3213 96 : U_b = 5.6502000000000000E+04_dp
3214 96 : fit_coef(0, 1) = 6.8411577604394062E-05_dp
3215 96 : fit_coef(1, 1) = 1.6187597727541771E-05_dp
3216 96 : fit_coef(2, 1) = 4.5871906583389663E-03_dp
3217 96 : fit_coef(3, 1) = -3.0179373289852002E-02_dp
3218 96 : fit_coef(4, 1) = 2.0974369374411136E-01_dp
3219 96 : fit_coef(5, 1) = -8.7935873765434858E-01_dp
3220 96 : fit_coef(6, 1) = 2.5878525249126527E+00_dp
3221 96 : fit_coef(7, 1) = -5.3179060500186415E+00_dp
3222 96 : fit_coef(8, 1) = 7.5892153487240241E+00_dp
3223 96 : fit_coef(9, 1) = -7.3662068168070789E+00_dp
3224 96 : fit_coef(10, 1) = 4.6344768125153601E+00_dp
3225 96 : fit_coef(11, 1) = -1.7032106343424485E+00_dp
3226 96 : fit_coef(12, 1) = 2.7741991549383826E-01_dp
3227 96 : fit_coef(0, 2) = 7.5275323624865811E-04_dp
3228 96 : fit_coef(1, 2) = 9.9232481710528875E-05_dp
3229 96 : fit_coef(2, 2) = 2.8524678297215784E-02_dp
3230 96 : fit_coef(3, 2) = -1.9184050122553747E-01_dp
3231 96 : fit_coef(4, 2) = 1.3126341229840768E+00_dp
3232 96 : fit_coef(5, 2) = -5.5140690139707527E+00_dp
3233 96 : fit_coef(6, 2) = 1.6223500597815761E+01_dp
3234 96 : fit_coef(7, 2) = -3.3331549263061540E+01_dp
3235 96 : fit_coef(8, 2) = 4.7557073952296840E+01_dp
3236 96 : fit_coef(9, 2) = -4.6143966985722287E+01_dp
3237 96 : fit_coef(10, 2) = 2.9018553303790554E+01_dp
3238 96 : fit_coef(11, 2) = -1.0658983662222605E+01_dp
3239 96 : fit_coef(12, 2) = 1.7351738260550609E+00_dp
3240 96 : fit_coef(0, 3) = 3.9843606366604320E-03_dp
3241 96 : fit_coef(1, 3) = 3.3764501333670899E-04_dp
3242 96 : fit_coef(2, 3) = 9.9383477377645593E-02_dp
3243 96 : fit_coef(3, 3) = -6.8774784004509004E-01_dp
3244 96 : fit_coef(4, 3) = 4.6197752367269072E+00_dp
3245 96 : fit_coef(5, 3) = -1.9617538089460556E+01_dp
3246 96 : fit_coef(6, 3) = 5.7821554084121672E+01_dp
3247 96 : fit_coef(7, 3) = -1.1866755198936438E+02_dp
3248 96 : fit_coef(8, 3) = 1.6899851790071165E+02_dp
3249 96 : fit_coef(9, 3) = -1.6365529688728941E+02_dp
3250 96 : fit_coef(10, 3) = 1.0272818227085014E+02_dp
3251 96 : fit_coef(11, 3) = -3.7670599569470930E+01_dp
3252 96 : fit_coef(12, 3) = 6.1231647953439321E+00_dp
3253 96 : fit_coef(0, 4) = 1.5378969066141557E-02_dp
3254 96 : fit_coef(1, 4) = 9.1548502345901116E-04_dp
3255 96 : fit_coef(2, 4) = 2.7372675256892554E-01_dp
3256 96 : fit_coef(3, 4) = -1.9285608309876876E+00_dp
3257 96 : fit_coef(4, 4) = 1.2803726769725465E+01_dp
3258 96 : fit_coef(5, 4) = -5.4755620729323439E+01_dp
3259 96 : fit_coef(6, 4) = 1.6149496474022160E+02_dp
3260 96 : fit_coef(7, 4) = -3.3133212972051763E+02_dp
3261 96 : fit_coef(8, 4) = 4.7168386050627021E+02_dp
3262 96 : fit_coef(9, 4) = -4.5657552176306115E+02_dp
3263 96 : fit_coef(10, 4) = 2.8644979600872671E+02_dp
3264 96 : fit_coef(11, 4) = -1.0497888439910341E+02_dp
3265 96 : fit_coef(12, 4) = 1.7052642506098298E+01_dp
3266 96 : fit_coef(0, 5) = 4.9251180618047154E-02_dp
3267 96 : fit_coef(1, 5) = 2.1434954065410114E-03_dp
3268 96 : fit_coef(2, 5) = 6.4789716785013773E-01_dp
3269 96 : fit_coef(3, 5) = -4.6201666914403452E+00_dp
3270 96 : fit_coef(4, 5) = 3.0440812558042978E+01_dp
3271 96 : fit_coef(5, 5) = -1.3079799887515426E+02_dp
3272 96 : fit_coef(6, 5) = 3.8607450191762678E+02_dp
3273 96 : fit_coef(7, 5) = -7.9209798040256953E+02_dp
3274 96 : fit_coef(8, 5) = 1.1273243950495682E+03_dp
3275 96 : fit_coef(9, 5) = -1.0907316178904814E+03_dp
3276 96 : fit_coef(10, 5) = 6.8394210358544069E+02_dp
3277 96 : fit_coef(11, 5) = -2.5050774766365097E+02_dp
3278 96 : fit_coef(12, 5) = 4.0668458941697637E+01_dp
3279 96 : fit_coef(0, 6) = 1.3896177117430439E-01_dp
3280 96 : fit_coef(1, 6) = 4.4858622820344507E-03_dp
3281 96 : fit_coef(2, 6) = 1.3666220193198582E+00_dp
3282 96 : fit_coef(3, 6) = -9.8301126837720361E+00_dp
3283 96 : fit_coef(4, 6) = 6.4421339807998407E+01_dp
3284 96 : fit_coef(5, 6) = -2.7772758192096933E+02_dp
3285 96 : fit_coef(6, 6) = 8.2039176215178543E+02_dp
3286 96 : fit_coef(7, 6) = -1.6832836477463704E+03_dp
3287 96 : fit_coef(8, 6) = 2.3951662567438020E+03_dp
3288 96 : fit_coef(9, 6) = -2.3166358021581445E+03_dp
3289 96 : fit_coef(10, 6) = 1.4520770947679368E+03_dp
3290 96 : fit_coef(11, 6) = -5.3163751269775196E+02_dp
3291 96 : fit_coef(12, 6) = 8.6273624073151339E+01_dp
3292 96 : fit_coef(0, 7) = 3.5729488480195148E-01_dp
3293 96 : fit_coef(1, 7) = 8.5259570236280655E-03_dp
3294 96 : fit_coef(2, 7) = 2.6129406592915587E+00_dp
3295 96 : fit_coef(3, 7) = -1.8917534003546230E+01_dp
3296 96 : fit_coef(4, 7) = 1.2348529805386671E+02_dp
3297 96 : fit_coef(5, 7) = -5.3366943392175176E+02_dp
3298 96 : fit_coef(6, 7) = 1.5775492634594218E+03_dp
3299 96 : fit_coef(7, 7) = -3.2371204369651055E+03_dp
3300 96 : fit_coef(8, 7) = 4.6054333227458374E+03_dp
3301 96 : fit_coef(9, 7) = -4.4533030686941875E+03_dp
3302 96 : fit_coef(10, 7) = 2.7905356324814979E+03_dp
3303 96 : fit_coef(11, 7) = -1.0213693901858213E+03_dp
3304 96 : fit_coef(12, 7) = 1.6569764375256605E+02_dp
3305 96 : fit_coef(0, 8) = 8.5576326888027310E-01_dp
3306 96 : fit_coef(1, 8) = 1.4794510243735135E-02_dp
3307 96 : fit_coef(2, 8) = 4.5547377508589388E+00_dp
3308 96 : fit_coef(3, 8) = -3.3139938275450689E+01_dp
3309 96 : fit_coef(4, 8) = 2.1567954334326745E+02_dp
3310 96 : fit_coef(5, 8) = -9.3383264595716162E+02_dp
3311 96 : fit_coef(6, 8) = 2.7621813661246701E+03_dp
3312 96 : fit_coef(7, 8) = -5.6685491647807048E+03_dp
3313 96 : fit_coef(8, 8) = 8.0637217679143905E+03_dp
3314 96 : fit_coef(9, 8) = -7.7958512685636942E+03_dp
3315 96 : fit_coef(10, 8) = 4.8839651073288114E+03_dp
3316 96 : fit_coef(11, 8) = -1.7871820510264045E+03_dp
3317 96 : fit_coef(12, 8) = 2.8987122244652051E+02_dp
3318 96 : fit_coef(0, 9) = 1.9457453939982912E+00_dp
3319 96 : fit_coef(1, 9) = 2.3412967111721320E-02_dp
3320 96 : fit_coef(2, 9) = 7.2322818888009728E+00_dp
3321 96 : fit_coef(3, 9) = -5.2813697786989756E+01_dp
3322 96 : fit_coef(4, 9) = 3.4297595366907478E+02_dp
3323 96 : fit_coef(5, 9) = -1.4869895685428958E+03_dp
3324 96 : fit_coef(6, 9) = 4.4006178698965341E+03_dp
3325 96 : fit_coef(7, 9) = -9.0318062878397541E+03_dp
3326 96 : fit_coef(8, 9) = 1.2847105139427764E+04_dp
3327 96 : fit_coef(9, 9) = -1.2418582634546168E+04_dp
3328 96 : fit_coef(10, 9) = 7.7787564640697719E+03_dp
3329 96 : fit_coef(11, 9) = -2.8459924565854521E+03_dp
3330 96 : fit_coef(12, 9) = 4.6152903795316814E+02_dp
3331 96 : fit_coef(0, 10) = 4.3456834390820589E+00_dp
3332 96 : fit_coef(1, 10) = 3.3830817174057760E-02_dp
3333 96 : fit_coef(2, 10) = 1.0473175894252773E+01_dp
3334 96 : fit_coef(3, 10) = -7.6661420311861534E+01_dp
3335 96 : fit_coef(4, 10) = 4.9715082005031553E+02_dp
3336 96 : fit_coef(5, 10) = -2.1572931305206675E+03_dp
3337 96 : fit_coef(6, 10) = 6.3865758669205397E+03_dp
3338 96 : fit_coef(7, 10) = -1.3108704020006919E+04_dp
3339 96 : fit_coef(8, 10) = 1.8645335870199138E+04_dp
3340 96 : fit_coef(9, 10) = -1.8021767528763816E+04_dp
3341 96 : fit_coef(10, 10) = 1.1287284370105295E+04_dp
3342 96 : fit_coef(11, 10) = -4.1291992041477679E+03_dp
3343 96 : fit_coef(12, 10) = 6.6955320372977019E+02_dp
3344 96 : fit_coef(0, 11) = 2.1871793237239991E-04_dp
3345 96 : fit_coef(1, 11) = 4.1996695354716680E-05_dp
3346 96 : fit_coef(2, 11) = 1.1909044603489627E-02_dp
3347 96 : fit_coef(3, 11) = -7.8370180707781900E-02_dp
3348 96 : fit_coef(4, 11) = 5.4437980679476261E-01_dp
3349 96 : fit_coef(5, 11) = -2.2731288629006801E+00_dp
3350 96 : fit_coef(6, 11) = 6.6595389300613057E+00_dp
3351 96 : fit_coef(7, 11) = -1.3637699933400350E+01_dp
3352 96 : fit_coef(8, 11) = 1.9415873433968578E+01_dp
3353 96 : fit_coef(9, 11) = -1.8815612032886889E+01_dp
3354 96 : fit_coef(10, 11) = 1.1826000388483891E+01_dp
3355 96 : fit_coef(11, 11) = -4.3434643915415521E+00_dp
3356 96 : fit_coef(12, 11) = 7.0720998747701980E-01_dp
3357 96 : fit_coef(0, 12) = 1.4372890424941905E-03_dp
3358 96 : fit_coef(1, 12) = 1.3870980955592494E-04_dp
3359 96 : fit_coef(2, 12) = 4.0623488722695424E-02_dp
3360 96 : fit_coef(3, 12) = -2.7976182205365724E-01_dp
3361 96 : fit_coef(4, 12) = 1.8859471674798522E+00_dp
3362 96 : fit_coef(5, 12) = -7.9899664094381135E+00_dp
3363 96 : fit_coef(6, 12) = 2.3590888671742746E+01_dp
3364 96 : fit_coef(7, 12) = -4.8520694758407572E+01_dp
3365 96 : fit_coef(8, 12) = 6.9210085374286393E+01_dp
3366 96 : fit_coef(9, 12) = -6.7087759398956806E+01_dp
3367 96 : fit_coef(10, 12) = 4.2134889802249333E+01_dp
3368 96 : fit_coef(11, 12) = -1.5455367957037941E+01_dp
3369 96 : fit_coef(12, 12) = 2.5125419036554626E+00_dp
3370 96 : fit_coef(0, 13) = 5.8841380648918286E-03_dp
3371 96 : fit_coef(1, 13) = 3.6831095166302676E-04_dp
3372 96 : fit_coef(2, 13) = 1.1027978007247614E-01_dp
3373 96 : fit_coef(3, 13) = -7.7842683175317762E-01_dp
3374 96 : fit_coef(4, 13) = 5.1600304775061447E+00_dp
3375 96 : fit_coef(5, 13) = -2.2078165304729261E+01_dp
3376 96 : fit_coef(6, 13) = 6.5091858701369759E+01_dp
3377 96 : fit_coef(7, 13) = -1.3345586681486435E+02_dp
3378 96 : fit_coef(8, 13) = 1.8988777441894680E+02_dp
3379 96 : fit_coef(9, 13) = -1.8375507399027742E+02_dp
3380 96 : fit_coef(10, 13) = 1.1527676579024002E+02_dp
3381 96 : fit_coef(11, 13) = -4.2248714108699794E+01_dp
3382 96 : fit_coef(12, 13) = 6.8635207622576706E+00_dp
3383 96 : fit_coef(0, 14) = 1.9128947829258891E-02_dp
3384 96 : fit_coef(1, 14) = 8.3862411750444427E-04_dp
3385 96 : fit_coef(2, 14) = 2.5428661374901718E-01_dp
3386 96 : fit_coef(3, 14) = -1.8194680686167399E+00_dp
3387 96 : fit_coef(4, 14) = 1.1961590588350870E+01_dp
3388 96 : fit_coef(5, 14) = -5.1467768848618732E+01_dp
3389 96 : fit_coef(6, 14) = 1.5192487004386140E+02_dp
3390 96 : fit_coef(7, 14) = -3.1168857906892379E+02_dp
3391 96 : fit_coef(8, 14) = 4.4359497200294106E+02_dp
3392 96 : fit_coef(9, 14) = -4.2917874847834634E+02_dp
3393 96 : fit_coef(10, 14) = 2.6909129512594421E+02_dp
3394 96 : fit_coef(11, 14) = -9.8546840419864964E+01_dp
3395 96 : fit_coef(12, 14) = 1.5995921552846303E+01_dp
3396 96 : fit_coef(0, 15) = 5.3855099007751053E-02_dp
3397 96 : fit_coef(1, 15) = 1.6951202894427357E-03_dp
3398 96 : fit_coef(2, 15) = 5.1828197057808256E-01_dp
3399 96 : fit_coef(3, 15) = -3.7423907453765741E+00_dp
3400 96 : fit_coef(4, 15) = 2.4465983174552605E+01_dp
3401 96 : fit_coef(5, 15) = -1.0563582904908276E+02_dp
3402 96 : fit_coef(6, 15) = 3.1210473924282360E+02_dp
3403 96 : fit_coef(7, 15) = -6.4036928643586384E+02_dp
3404 96 : fit_coef(8, 15) = 9.1110483535702542E+02_dp
3405 96 : fit_coef(9, 15) = -8.8110226224210760E+02_dp
3406 96 : fit_coef(10, 15) = 5.5218119224018108E+02_dp
3407 96 : fit_coef(11, 15) = -2.0212810880984674E+02_dp
3408 96 : fit_coef(12, 15) = 3.2795085750230733E+01_dp
3409 96 : fit_coef(0, 16) = 1.3708229195964663E-01_dp
3410 96 : fit_coef(1, 16) = 3.0894965681102504E-03_dp
3411 96 : fit_coef(2, 16) = 9.5049659850978763E-01_dp
3412 96 : fit_coef(3, 16) = -6.9100459255840390E+00_dp
3413 96 : fit_coef(4, 16) = 4.4990748234228938E+01_dp
3414 96 : fit_coef(5, 16) = -1.9474683678177831E+02_dp
3415 96 : fit_coef(6, 16) = 5.7588070574709627E+02_dp
3416 96 : fit_coef(7, 16) = -1.1817334181055951E+03_dp
3417 96 : fit_coef(8, 16) = 1.6810743266760862E+03_dp
3418 96 : fit_coef(9, 16) = -1.6252829227456073E+03_dp
3419 96 : fit_coef(10, 16) = 1.0182493640037462E+03_dp
3420 96 : fit_coef(11, 16) = -3.7261997804392706E+02_dp
3421 96 : fit_coef(12, 16) = 6.0438944235281710E+01_dp
3422 96 : fit_coef(0, 17) = 3.2363428278830764E-01_dp
3423 96 : fit_coef(1, 17) = 5.0854788099187554E-03_dp
3424 96 : fit_coef(2, 17) = 1.5721133863814079E+00_dp
3425 96 : fit_coef(3, 17) = -1.1489215181637956E+01_dp
3426 96 : fit_coef(4, 17) = 7.4573534244656926E+01_dp
3427 96 : fit_coef(5, 17) = -3.2342087496454349E+02_dp
3428 96 : fit_coef(6, 17) = 9.5710734682470525E+02_dp
3429 96 : fit_coef(7, 17) = -1.9642973854914649E+03_dp
3430 96 : fit_coef(8, 17) = 2.7939950801758901E+03_dp
3431 96 : fit_coef(9, 17) = -2.7007178237082067E+03_dp
3432 96 : fit_coef(10, 17) = 1.6916202883905507E+03_dp
3433 96 : fit_coef(11, 17) = -6.1888646191941052E+02_dp
3434 96 : fit_coef(12, 17) = 1.0035990724886408E+02_dp
3435 96 : fit_coef(0, 18) = 7.2227658357344648E-01_dp
3436 96 : fit_coef(1, 18) = 7.4788858723735070E-03_dp
3437 96 : fit_coef(2, 18) = 2.3204406383068310E+00_dp
3438 96 : fit_coef(3, 18) = -1.7025391312911438E+01_dp
3439 96 : fit_coef(4, 18) = 1.1025201945927834E+02_dp
3440 96 : fit_coef(5, 18) = -4.7884421266123894E+02_dp
3441 96 : fit_coef(6, 18) = 1.4179656218358291E+03_dp
3442 96 : fit_coef(7, 18) = -2.9105197632238601E+03_dp
3443 96 : fit_coef(8, 18) = 4.1395786832377917E+03_dp
3444 96 : fit_coef(9, 18) = -4.0007691450093103E+03_dp
3445 96 : fit_coef(10, 18) = 2.5054759345520029E+03_dp
3446 96 : fit_coef(11, 18) = -9.1647339178452830E+02_dp
3447 96 : fit_coef(12, 18) = 1.4859116561702967E+02_dp
3448 96 : fit_coef(0, 19) = 1.5633146329155199E+00_dp
3449 96 : fit_coef(1, 19) = 9.6549690016911830E-03_dp
3450 96 : fit_coef(2, 19) = 3.0024364887949786E+00_dp
3451 96 : fit_coef(3, 19) = -2.2083956048519831E+01_dp
3452 96 : fit_coef(4, 19) = 1.4280565323321272E+02_dp
3453 96 : fit_coef(5, 19) = -6.2078293004938610E+02_dp
3454 96 : fit_coef(6, 19) = 1.8390901346312414E+03_dp
3455 96 : fit_coef(7, 19) = -3.7753165401987344E+03_dp
3456 96 : fit_coef(8, 19) = 5.3693456762596288E+03_dp
3457 96 : fit_coef(9, 19) = -5.1888078370584299E+03_dp
3458 96 : fit_coef(10, 19) = 3.2491199407176041E+03_dp
3459 96 : fit_coef(11, 19) = -1.1883539144960864E+03_dp
3460 96 : fit_coef(12, 19) = 1.9265088532272543E+02_dp
3461 96 : fit_coef(0, 20) = 3.5765140128766371E+00_dp
3462 96 : fit_coef(1, 20) = 1.1092017818854312E-02_dp
3463 96 : fit_coef(2, 20) = 3.4506220465727910E+00_dp
3464 96 : fit_coef(3, 20) = -2.5391055124716122E+01_dp
3465 96 : fit_coef(4, 20) = 1.6415262153898755E+02_dp
3466 96 : fit_coef(5, 20) = -7.1368338873477956E+02_dp
3467 96 : fit_coef(6, 20) = 2.1144976599358906E+03_dp
3468 96 : fit_coef(7, 20) = -4.3407867181744632E+03_dp
3469 96 : fit_coef(8, 20) = 6.1735437097235817E+03_dp
3470 96 : fit_coef(9, 20) = -5.9658726159362077E+03_dp
3471 96 : fit_coef(10, 20) = 3.7356297419849939E+03_dp
3472 96 : fit_coef(11, 20) = -1.3662663971818399E+03_dp
3473 96 : fit_coef(12, 20) = 2.2148914181168524E+02_dp
3474 :
3475 96 : 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 36 : 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 36 : L_b = 1.0000000000000000E+01_dp
3490 36 : U_b = 1.0000000000000000E+02_dp
3491 36 : fit_coef(0, 1) = 5.2171158533482745E-03_dp
3492 36 : fit_coef(1, 1) = 1.3928278169011961E-02_dp
3493 36 : fit_coef(2, 1) = 1.8150859480949404E-02_dp
3494 36 : fit_coef(3, 1) = 1.3341207416860837E-02_dp
3495 36 : fit_coef(4, 1) = 4.0847907407787400E-03_dp
3496 36 : fit_coef(5, 1) = -1.8862057580171247E-03_dp
3497 36 : fit_coef(6, 1) = -2.2005927300723840E-03_dp
3498 36 : fit_coef(7, 1) = -2.1569598773101882E-04_dp
3499 36 : fit_coef(8, 1) = 5.3374114714500355E-04_dp
3500 36 : fit_coef(9, 1) = 3.6786248990713488E-04_dp
3501 36 : fit_coef(10, 1) = -4.9716456588384794E-04_dp
3502 36 : fit_coef(11, 1) = 2.5364063357271070E-04_dp
3503 36 : fit_coef(12, 1) = -5.7560771366250216E-05_dp
3504 36 : fit_coef(0, 2) = 2.8561321333081039E-02_dp
3505 36 : fit_coef(1, 2) = 7.4577106385596906E-02_dp
3506 36 : fit_coef(2, 2) = 9.6095992956011567E-02_dp
3507 36 : fit_coef(3, 2) = 6.9921004219163585E-02_dp
3508 36 : fit_coef(4, 2) = 2.1046006027983205E-02_dp
3509 36 : fit_coef(5, 2) = -1.0007180795562516E-02_dp
3510 36 : fit_coef(6, 2) = -1.1398359734540125E-02_dp
3511 36 : fit_coef(7, 2) = -1.0344153575843251E-03_dp
3512 36 : fit_coef(8, 2) = 2.8187351548754256E-03_dp
3513 36 : fit_coef(9, 2) = 1.8266346026223723E-03_dp
3514 36 : fit_coef(10, 2) = -2.5228015867621856E-03_dp
3515 36 : fit_coef(11, 2) = 1.2855087989079601E-03_dp
3516 36 : fit_coef(12, 2) = -2.9136730780610450E-04_dp
3517 36 : fit_coef(0, 3) = 7.5565672474912859E-02_dp
3518 36 : fit_coef(1, 3) = 1.8837838893012882E-01_dp
3519 36 : fit_coef(2, 3) = 2.3788031159177950E-01_dp
3520 36 : fit_coef(3, 3) = 1.7019649338979928E-01_dp
3521 36 : fit_coef(4, 3) = 4.9702597603960480E-02_dp
3522 36 : fit_coef(5, 3) = -2.4843028083216520E-02_dp
3523 36 : fit_coef(6, 3) = -2.7107463499384012E-02_dp
3524 36 : fit_coef(7, 3) = -2.0998400355075556E-03_dp
3525 36 : fit_coef(8, 3) = 6.8537414053824698E-03_dp
3526 36 : fit_coef(9, 3) = 4.1037972870635875E-03_dp
3527 36 : fit_coef(10, 3) = -5.8343544319931773E-03_dp
3528 36 : fit_coef(11, 3) = 2.9563811258876472E-03_dp
3529 36 : fit_coef(12, 3) = -6.6659895709530450E-04_dp
3530 36 : fit_coef(0, 4) = 1.5746184306040770E-01_dp
3531 36 : fit_coef(1, 4) = 3.6307100829710298E-01_dp
3532 36 : fit_coef(2, 4) = 4.4411067220455136E-01_dp
3533 36 : fit_coef(3, 4) = 3.1156735023866838E-01_dp
3534 36 : fit_coef(4, 4) = 8.8318376917750713E-02_dp
3535 36 : fit_coef(5, 4) = -4.6905172790974697E-02_dp
3536 36 : fit_coef(6, 4) = -4.8633790525923246E-02_dp
3537 36 : fit_coef(7, 4) = -2.6374461756591546E-03_dp
3538 36 : fit_coef(8, 4) = 1.4152819458865665E-02_dp
3539 36 : fit_coef(9, 4) = 4.0713403471031064E-03_dp
3540 36 : fit_coef(10, 4) = -8.1648840133065614E-03_dp
3541 36 : fit_coef(11, 4) = 4.4172781177938061E-03_dp
3542 36 : fit_coef(12, 4) = -1.0468849549327278E-03_dp
3543 36 : fit_coef(0, 5) = 2.9628095459795201E-01_dp
3544 36 : fit_coef(1, 5) = 6.1067548081671130E-01_dp
3545 36 : fit_coef(2, 5) = 7.1073485839444905E-01_dp
3546 36 : fit_coef(3, 5) = 4.8623515872109696E-01_dp
3547 36 : fit_coef(4, 5) = 1.3873344982657515E-01_dp
3548 36 : fit_coef(5, 5) = -7.1183381958692823E-02_dp
3549 36 : fit_coef(6, 5) = -7.9018683634448778E-02_dp
3550 36 : fit_coef(7, 5) = -4.1849522345858052E-03_dp
3551 36 : fit_coef(8, 5) = 1.8669075914354103E-02_dp
3552 36 : fit_coef(9, 5) = 2.5640549363637480E-02_dp
3553 36 : fit_coef(10, 5) = -3.7238167104347006E-02_dp
3554 36 : fit_coef(11, 5) = 2.0235521804447935E-02_dp
3555 36 : fit_coef(12, 5) = -4.4633644085237409E-03_dp
3556 36 : fit_coef(0, 6) = 5.3079425354928900E-01_dp
3557 36 : fit_coef(1, 6) = 9.4909599974912540E-01_dp
3558 36 : fit_coef(2, 6) = 1.0298933488572886E+00_dp
3559 36 : fit_coef(3, 6) = 6.7464315041251843E-01_dp
3560 36 : fit_coef(4, 6) = 1.9785397712598238E-01_dp
3561 36 : fit_coef(5, 6) = -8.0277433825610117E-02_dp
3562 36 : fit_coef(6, 6) = -1.0862148180963889E-01_dp
3563 36 : fit_coef(7, 6) = -1.2190533137530357E-02_dp
3564 36 : fit_coef(8, 6) = -4.3235690156727307E-03_dp
3565 36 : fit_coef(9, 6) = 7.1406154351795634E-02_dp
3566 36 : fit_coef(10, 6) = -4.7520764363596951E-02_dp
3567 36 : fit_coef(11, 6) = 6.9200248215417976E-03_dp
3568 36 : fit_coef(12, 6) = 1.7348958867823125E-03_dp
3569 36 : fit_coef(0, 7) = 9.2513564519354430E-01_dp
3570 36 : fit_coef(1, 7) = 1.3995257053484436E+00_dp
3571 36 : fit_coef(2, 7) = 1.3941989426918036E+00_dp
3572 36 : fit_coef(3, 7) = 8.5298558301770655E-01_dp
3573 36 : fit_coef(4, 7) = 2.5029080019290989E-01_dp
3574 36 : fit_coef(5, 7) = -6.9418886584503764E-02_dp
3575 36 : fit_coef(6, 7) = -1.0048676489518746E-01_dp
3576 36 : fit_coef(7, 7) = -6.5140068180983265E-02_dp
3577 36 : fit_coef(8, 7) = 7.1961159826162302E-02_dp
3578 36 : fit_coef(9, 7) = -1.0845933619226010E-01_dp
3579 36 : fit_coef(10, 7) = 1.7018602738764302E-01_dp
3580 36 : fit_coef(11, 7) = -1.0954176694571671E-01_dp
3581 36 : fit_coef(12, 7) = 2.4968149530473070E-02_dp
3582 36 : fit_coef(0, 8) = 1.5835046294778308E+00_dp
3583 36 : fit_coef(1, 8) = 1.9791294738794438E+00_dp
3584 36 : fit_coef(2, 8) = 1.7961980138940286E+00_dp
3585 36 : fit_coef(3, 8) = 1.0051925409840725E+00_dp
3586 36 : fit_coef(4, 8) = 2.8272786197343069E-01_dp
3587 36 : fit_coef(5, 8) = -4.3458147169371041E-02_dp
3588 36 : fit_coef(6, 8) = -7.1388547183826534E-02_dp
3589 36 : fit_coef(7, 8) = -6.9105034008714997E-02_dp
3590 36 : fit_coef(8, 8) = 4.9061162554567488E-02_dp
3591 36 : fit_coef(9, 8) = -1.0568300110809625E-01_dp
3592 36 : fit_coef(10, 8) = 1.1802618075924728E-01_dp
3593 36 : fit_coef(11, 8) = -3.4740368047083123E-02_dp
3594 36 : fit_coef(12, 8) = -2.0070688342111883E-03_dp
3595 36 : fit_coef(0, 9) = 2.6780451266380028E+00_dp
3596 36 : fit_coef(1, 9) = 2.6926034999618897E+00_dp
3597 36 : fit_coef(2, 9) = 2.2273953918391149E+00_dp
3598 36 : fit_coef(3, 9) = 1.1263680392434321E+00_dp
3599 36 : fit_coef(4, 9) = 2.9395288063392006E-01_dp
3600 36 : fit_coef(5, 9) = -8.9510678035254702E-03_dp
3601 36 : fit_coef(6, 9) = -3.6852206543507286E-02_dp
3602 36 : fit_coef(7, 9) = -2.0316323307418317E-02_dp
3603 36 : fit_coef(8, 9) = -6.2348519142117052E-02_dp
3604 36 : fit_coef(9, 9) = 5.0424313584454393E-02_dp
3605 36 : fit_coef(10, 9) = -7.4016849780124558E-02_dp
3606 36 : fit_coef(11, 9) = 8.1891720384978092E-02_dp
3607 36 : fit_coef(12, 9) = -2.7202540553906623E-02_dp
3608 36 : fit_coef(0, 10) = 4.5149548116067084E+00_dp
3609 36 : fit_coef(1, 10) = 3.5279902941181556E+00_dp
3610 36 : fit_coef(2, 10) = 2.6834197969535900E+00_dp
3611 36 : fit_coef(3, 10) = 1.2234297318240759E+00_dp
3612 36 : fit_coef(4, 10) = 2.9061691203379159E-01_dp
3613 36 : fit_coef(5, 10) = 2.6998851164527955E-02_dp
3614 36 : fit_coef(6, 10) = 1.1503151087891473E-02_dp
3615 36 : fit_coef(7, 10) = -2.9263858448428439E-04_dp
3616 36 : fit_coef(8, 10) = -7.4172023234369305E-02_dp
3617 36 : fit_coef(9, 10) = 4.4507509039308939E-02_dp
3618 36 : fit_coef(10, 10) = -6.0661296025507475E-02_dp
3619 36 : fit_coef(11, 10) = 5.4037676664233973E-02_dp
3620 36 : fit_coef(12, 10) = -1.3914979544265946E-02_dp
3621 36 : fit_coef(0, 11) = 7.7831432490395818E+00_dp
3622 36 : fit_coef(1, 11) = 4.4728899281150136E+00_dp
3623 36 : fit_coef(2, 11) = 3.1793306487074551E+00_dp
3624 36 : fit_coef(3, 11) = 1.3166282129264584E+00_dp
3625 36 : fit_coef(4, 11) = 2.7989649807784495E-01_dp
3626 36 : fit_coef(5, 11) = 6.1709167955964331E-02_dp
3627 36 : fit_coef(6, 11) = 6.5030571914413512E-02_dp
3628 36 : fit_coef(7, 11) = 5.8652910860924629E-03_dp
3629 36 : fit_coef(8, 11) = -4.3479817133538171E-02_dp
3630 36 : fit_coef(9, 11) = -1.5946703925855100E-02_dp
3631 36 : fit_coef(10, 11) = 1.4840762855674984E-02_dp
3632 36 : fit_coef(11, 11) = -1.6764580405545060E-03_dp
3633 36 : fit_coef(12, 11) = 1.0361409280594497E-03_dp
3634 36 : fit_coef(0, 12) = 1.3505623056792662E-02_dp
3635 36 : fit_coef(1, 12) = 3.5881778901904388E-02_dp
3636 36 : fit_coef(2, 12) = 4.6635585408641191E-02_dp
3637 36 : fit_coef(3, 12) = 3.4196109564738703E-02_dp
3638 36 : fit_coef(4, 12) = 1.0427820008519861E-02_dp
3639 36 : fit_coef(5, 12) = -4.8496513706743740E-03_dp
3640 36 : fit_coef(6, 12) = -5.6249874188544387E-03_dp
3641 36 : fit_coef(7, 12) = -5.4152291061643394E-04_dp
3642 36 : fit_coef(8, 12) = 1.3707635274310744E-03_dp
3643 36 : fit_coef(9, 12) = 9.3081024123118999E-04_dp
3644 36 : fit_coef(10, 12) = -1.2643999344426028E-03_dp
3645 36 : fit_coef(11, 12) = 6.4488398114361249E-04_dp
3646 36 : fit_coef(12, 12) = -1.4631445736861331E-04_dp
3647 36 : fit_coef(0, 13) = 3.3953336933937019E-02_dp
3648 36 : fit_coef(1, 13) = 8.6200605204820452E-02_dp
3649 36 : fit_coef(2, 13) = 1.0956860661445041E-01_dp
3650 36 : fit_coef(3, 13) = 7.8748352145278117E-02_dp
3651 36 : fit_coef(4, 13) = 2.3201917648793789E-02_dp
3652 36 : fit_coef(5, 13) = -1.1428692068356564E-02_dp
3653 36 : fit_coef(6, 13) = -1.2646975774724427E-02_dp
3654 36 : fit_coef(7, 13) = -1.0364501016809282E-03_dp
3655 36 : fit_coef(8, 13) = 3.2018633266795151E-03_dp
3656 36 : fit_coef(9, 13) = 1.9223995549073674E-03_dp
3657 36 : fit_coef(10, 13) = -2.7320063801979958E-03_dp
3658 36 : fit_coef(11, 13) = 1.3899117897301057E-03_dp
3659 36 : fit_coef(12, 13) = -3.1441281031980347E-04_dp
3660 36 : fit_coef(0, 14) = 6.1851572757860851E-02_dp
3661 36 : fit_coef(1, 14) = 1.4267393289529001E-01_dp
3662 36 : fit_coef(2, 14) = 1.7418539035135686E-01_dp
3663 36 : fit_coef(3, 14) = 1.2141235983496969E-01_dp
3664 36 : fit_coef(4, 14) = 3.3706874354447809E-02_dp
3665 36 : fit_coef(5, 14) = -1.8360609527326543E-02_dp
3666 36 : fit_coef(6, 14) = -1.8541339179191114E-02_dp
3667 36 : fit_coef(7, 14) = -8.8529750610819111E-04_dp
3668 36 : fit_coef(8, 14) = 4.7747853958221521E-03_dp
3669 36 : fit_coef(9, 14) = 2.4689097936542491E-03_dp
3670 36 : fit_coef(10, 14) = -3.6719910751692379E-03_dp
3671 36 : fit_coef(11, 14) = 1.8252247936231616E-03_dp
3672 36 : fit_coef(12, 14) = -4.0633639834620388E-04_dp
3673 36 : fit_coef(0, 15) = 1.0551618877519962E-01_dp
3674 36 : fit_coef(1, 15) = 2.0866982892328420E-01_dp
3675 36 : fit_coef(2, 15) = 2.3758645562105263E-01_dp
3676 36 : fit_coef(3, 15) = 1.6022711660180100E-01_dp
3677 36 : fit_coef(4, 15) = 4.3995832787546506E-02_dp
3678 36 : fit_coef(5, 15) = -2.5306890576195295E-02_dp
3679 36 : fit_coef(6, 15) = -2.5168288399177011E-02_dp
3680 36 : fit_coef(7, 15) = -9.3194538735970800E-04_dp
3681 36 : fit_coef(8, 15) = 1.1886232926624151E-02_dp
3682 36 : fit_coef(9, 15) = -3.1847717078905507E-03_dp
3683 36 : fit_coef(10, 15) = -2.3213252827938664E-03_dp
3684 36 : fit_coef(11, 15) = 2.4083825205789490E-03_dp
3685 36 : fit_coef(12, 15) = -7.2529680267051182E-04_dp
3686 36 : fit_coef(0, 16) = 1.7844852042063208E-01_dp
3687 36 : fit_coef(1, 16) = 2.8956711047461353E-01_dp
3688 36 : fit_coef(2, 16) = 2.9424320012524147E-01_dp
3689 36 : fit_coef(3, 16) = 1.8566958335038000E-01_dp
3690 36 : fit_coef(4, 16) = 5.6552619188388630E-02_dp
3691 36 : fit_coef(5, 16) = -1.9536083908459775E-02_dp
3692 36 : fit_coef(6, 16) = -3.5122564007741566E-02_dp
3693 36 : fit_coef(7, 16) = -1.5160502263432738E-04_dp
3694 36 : fit_coef(8, 16) = -1.8782648209524570E-02_dp
3695 36 : fit_coef(9, 16) = 6.7898727329487735E-02_dp
3696 36 : fit_coef(10, 16) = -6.6952173441897606E-02_dp
3697 36 : fit_coef(11, 16) = 3.0244889278910881E-02_dp
3698 36 : fit_coef(12, 16) = -5.4548300942684411E-03_dp
3699 36 : fit_coef(0, 17) = 3.0103516162173788E-01_dp
3700 36 : fit_coef(1, 17) = 3.9093832828366182E-01_dp
3701 36 : fit_coef(2, 17) = 3.4287403235055175E-01_dp
3702 36 : fit_coef(3, 17) = 1.8694079224619659E-01_dp
3703 36 : fit_coef(4, 17) = 5.8759826809024841E-02_dp
3704 36 : fit_coef(5, 17) = 1.8203291052277864E-03_dp
3705 36 : fit_coef(6, 17) = -1.4847774478906702E-02_dp
3706 36 : fit_coef(7, 17) = -3.0225726948560502E-02_dp
3707 36 : fit_coef(8, 17) = 1.7580090339776970E-02_dp
3708 36 : fit_coef(9, 17) = -6.3682901560076013E-02_dp
3709 36 : fit_coef(10, 17) = 1.2826078376018740E-01_dp
3710 36 : fit_coef(11, 17) = -9.3634524667592312E-02_dp
3711 36 : fit_coef(12, 17) = 2.4194956180134675E-02_dp
3712 36 : fit_coef(0, 18) = 5.0459047494440223E-01_dp
3713 36 : fit_coef(1, 18) = 5.1293218387604667E-01_dp
3714 36 : fit_coef(2, 18) = 3.8452848514240090E-01_dp
3715 36 : fit_coef(3, 18) = 1.6703912013390276E-01_dp
3716 36 : fit_coef(4, 18) = 4.3712588651811067E-02_dp
3717 36 : fit_coef(5, 18) = 1.9051249953627954E-02_dp
3718 36 : fit_coef(6, 18) = 2.5883902146128887E-02_dp
3719 36 : fit_coef(7, 18) = -5.0770600600935537E-02_dp
3720 36 : fit_coef(8, 18) = 7.7584684197698039E-02_dp
3721 36 : fit_coef(9, 18) = -1.7926872234928357E-01_dp
3722 36 : fit_coef(10, 18) = 1.6678298865222213E-01_dp
3723 36 : fit_coef(11, 18) = -5.5645139244720254E-02_dp
3724 36 : fit_coef(12, 18) = 2.7420024112079135E-03_dp
3725 36 : fit_coef(0, 19) = 8.3992248227121313E-01_dp
3726 36 : fit_coef(1, 19) = 6.4715555436372529E-01_dp
3727 36 : fit_coef(2, 19) = 4.1796785083991977E-01_dp
3728 36 : fit_coef(3, 19) = 1.3654955607272076E-01_dp
3729 36 : fit_coef(4, 19) = 2.1070840652137535E-02_dp
3730 36 : fit_coef(5, 19) = 3.1743033314222624E-02_dp
3731 36 : fit_coef(6, 19) = 2.9784087155825711E-02_dp
3732 36 : fit_coef(7, 19) = 4.1081836375772660E-02_dp
3733 36 : fit_coef(8, 19) = -1.1439519939475226E-01_dp
3734 36 : fit_coef(9, 19) = 1.6305361885018524E-01_dp
3735 36 : fit_coef(10, 19) = -2.2346150468788073E-01_dp
3736 36 : fit_coef(11, 19) = 1.6036296981154594E-01_dp
3737 36 : fit_coef(12, 19) = -4.2164356684994284E-02_dp
3738 36 : fit_coef(0, 20) = 1.3973915504793548E+00_dp
3739 36 : fit_coef(1, 20) = 7.7764466691628698E-01_dp
3740 36 : fit_coef(2, 20) = 4.4348607986397731E-01_dp
3741 36 : fit_coef(3, 20) = 1.0694241439192023E-01_dp
3742 36 : fit_coef(4, 20) = 2.6327294220292721E-03_dp
3743 36 : fit_coef(5, 20) = 3.5966741485323687E-02_dp
3744 36 : fit_coef(6, 20) = 4.1705374001031803E-02_dp
3745 36 : fit_coef(7, 20) = 3.8907029803020722E-02_dp
3746 36 : fit_coef(8, 20) = -6.8120058033489070E-02_dp
3747 36 : fit_coef(9, 20) = 8.2786813906914350E-02_dp
3748 36 : fit_coef(10, 20) = -9.1368844284995504E-02_dp
3749 36 : fit_coef(11, 20) = 3.7752943929935098E-02_dp
3750 36 : fit_coef(12, 20) = -1.9232870385022373E-03_dp
3751 36 : fit_coef(0, 21) = 2.3760047811723362E+00_dp
3752 36 : fit_coef(1, 21) = 8.8976406037305356E-01_dp
3753 36 : fit_coef(2, 21) = 4.7037419059997421E-01_dp
3754 36 : fit_coef(3, 21) = 9.0428943264851042E-02_dp
3755 36 : fit_coef(4, 21) = -8.0951525285273343E-03_dp
3756 36 : fit_coef(5, 21) = 3.5586564490451805E-02_dp
3757 36 : fit_coef(6, 21) = 5.2837656508520334E-02_dp
3758 36 : fit_coef(7, 21) = 6.4161552882951054E-03_dp
3759 36 : fit_coef(8, 21) = 2.7554689120903888E-02_dp
3760 36 : fit_coef(9, 21) = -6.3909420973179670E-02_dp
3761 36 : fit_coef(10, 21) = 7.9771394321258737E-02_dp
3762 36 : fit_coef(11, 21) = -6.5034308453826573E-02_dp
3763 36 : fit_coef(12, 21) = 2.0094355264141887E-02_dp
3764 36 : fit_coef(0, 22) = 4.5028432526721405E+00_dp
3765 36 : fit_coef(1, 22) = 1.0114482591044458E+00_dp
3766 36 : fit_coef(2, 22) = 5.3486119037036706E-01_dp
3767 36 : fit_coef(3, 22) = 1.0317932221763447E-01_dp
3768 36 : fit_coef(4, 22) = -1.2314024715229079E-02_dp
3769 36 : fit_coef(5, 22) = 3.3690522473128488E-02_dp
3770 36 : fit_coef(6, 22) = 5.3663513056946451E-02_dp
3771 36 : fit_coef(7, 22) = 1.0785244432659307E-02_dp
3772 36 : fit_coef(8, 22) = 2.2642841476459809E-02_dp
3773 36 : fit_coef(9, 22) = -3.9218764804072916E-02_dp
3774 36 : fit_coef(10, 22) = 5.2080967974292493E-02_dp
3775 36 : fit_coef(11, 22) = -3.5217909102649027E-02_dp
3776 36 : fit_coef(12, 22) = 7.5721478110433137E-03_dp
3777 :
3778 36 : 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 34 : 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 34 : L_b = 1.0000000000000000E+02_dp
3793 34 : U_b = 1.1533853671352736E+03_dp
3794 34 : fit_coef(0, 1) = 7.3828894587718401E-04_dp
3795 34 : fit_coef(1, 1) = 2.0775080037103563E-03_dp
3796 34 : fit_coef(2, 1) = 2.9605504652653850E-03_dp
3797 34 : fit_coef(3, 1) = 2.5239761597293463E-03_dp
3798 34 : fit_coef(4, 1) = 1.1723403873630633E-03_dp
3799 34 : fit_coef(5, 1) = 4.6491653525586301E-05_dp
3800 34 : fit_coef(6, 1) = -2.5819644062415552E-04_dp
3801 34 : fit_coef(7, 1) = -3.9831509458327039E-05_dp
3802 34 : fit_coef(8, 1) = -4.0413534671757017E-05_dp
3803 34 : fit_coef(9, 1) = 2.5700229767237757E-04_dp
3804 34 : fit_coef(10, 1) = -2.8744580127669869E-04_dp
3805 34 : fit_coef(11, 1) = 1.4858790649392180E-04_dp
3806 34 : fit_coef(12, 1) = -3.1394148877043504E-05_dp
3807 34 : fit_coef(0, 2) = 4.3620891975219853E-03_dp
3808 34 : fit_coef(1, 2) = 1.1465965739592934E-02_dp
3809 34 : fit_coef(2, 2) = 1.6004195686742342E-02_dp
3810 34 : fit_coef(3, 2) = 1.3390829030018066E-02_dp
3811 34 : fit_coef(4, 2) = 6.0723492355871950E-03_dp
3812 34 : fit_coef(5, 2) = 1.7271227012111563E-04_dp
3813 34 : fit_coef(6, 2) = -1.3295013600067558E-03_dp
3814 34 : fit_coef(7, 2) = -2.0819503017025333E-04_dp
3815 34 : fit_coef(8, 2) = -1.9485312280291003E-04_dp
3816 34 : fit_coef(9, 2) = 1.3461436514495772E-03_dp
3817 34 : fit_coef(10, 2) = -1.5381432319053760E-03_dp
3818 34 : fit_coef(11, 2) = 8.0871429267979347E-04_dp
3819 34 : fit_coef(12, 2) = -1.7336433357221408E-04_dp
3820 34 : fit_coef(0, 3) = 1.3393965217340013E-02_dp
3821 34 : fit_coef(1, 3) = 3.0758021534147448E-02_dp
3822 34 : fit_coef(2, 3) = 4.0863508679567187E-02_dp
3823 34 : fit_coef(3, 3) = 3.3137344564780624E-02_dp
3824 34 : fit_coef(4, 3) = 1.4642382183959756E-02_dp
3825 34 : fit_coef(5, 3) = 1.8546563333903454E-04_dp
3826 34 : fit_coef(6, 3) = -3.2981507356429299E-03_dp
3827 34 : fit_coef(7, 3) = -5.0371329478405473E-04_dp
3828 34 : fit_coef(8, 3) = -3.3526812040834221E-04_dp
3829 34 : fit_coef(9, 3) = 3.3638986135397790E-03_dp
3830 34 : fit_coef(10, 3) = -4.0699164251672606E-03_dp
3831 34 : fit_coef(11, 3) = 2.2132500698992790E-03_dp
3832 34 : fit_coef(12, 3) = -4.8530598400547189E-04_dp
3833 34 : fit_coef(0, 4) = 3.4178972479544684E-02_dp
3834 34 : fit_coef(1, 4) = 6.5546031770227484E-02_dp
3835 34 : fit_coef(2, 4) = 8.0042248964935656E-02_dp
3836 34 : fit_coef(3, 4) = 6.0702076580615758E-02_dp
3837 34 : fit_coef(4, 4) = 2.5719498592455581E-02_dp
3838 34 : fit_coef(5, 4) = 6.3119790847243661E-04_dp
3839 34 : fit_coef(6, 4) = -5.4349702628550432E-03_dp
3840 34 : fit_coef(7, 4) = -1.2659291521318623E-03_dp
3841 34 : fit_coef(8, 4) = -1.2216416836694759E-03_dp
3842 34 : fit_coef(9, 4) = 6.6635331234771687E-03_dp
3843 34 : fit_coef(10, 4) = -7.2400923612061709E-03_dp
3844 34 : fit_coef(11, 4) = 3.7136157185037903E-03_dp
3845 34 : fit_coef(12, 4) = -7.8916627439796453E-04_dp
3846 34 : fit_coef(0, 5) = 8.0104328961022445E-02_dp
3847 34 : fit_coef(1, 5) = 1.2586958566619899E-01_dp
3848 34 : fit_coef(2, 5) = 1.3877416617876437E-01_dp
3849 34 : fit_coef(3, 5) = 9.4435072367624009E-02_dp
3850 34 : fit_coef(4, 5) = 3.5574728421505095E-02_dp
3851 34 : fit_coef(5, 5) = 4.6709813565982229E-04_dp
3852 34 : fit_coef(6, 5) = -5.5823066584693949E-03_dp
3853 34 : fit_coef(7, 5) = -2.2508074433607930E-03_dp
3854 34 : fit_coef(8, 5) = -4.8236909977057691E-04_dp
3855 34 : fit_coef(9, 5) = 5.8248465053641401E-03_dp
3856 34 : fit_coef(10, 5) = -7.4300192099394369E-03_dp
3857 34 : fit_coef(11, 5) = 4.5059815374626708E-03_dp
3858 34 : fit_coef(12, 5) = -1.1055416581292031E-03_dp
3859 34 : fit_coef(0, 6) = 1.7731760423288304E-01_dp
3860 34 : fit_coef(1, 6) = 2.2598655727257688E-01_dp
3861 34 : fit_coef(2, 6) = 2.2430968436915458E-01_dp
3862 34 : fit_coef(3, 6) = 1.3311060621110593E-01_dp
3863 34 : fit_coef(4, 6) = 4.0488867018282172E-02_dp
3864 34 : fit_coef(5, 6) = -2.1669989611095342E-03_dp
3865 34 : fit_coef(6, 6) = -3.8187866091584140E-03_dp
3866 34 : fit_coef(7, 6) = -2.1306428597222633E-03_dp
3867 34 : fit_coef(8, 6) = 7.7683777527477076E-04_dp
3868 34 : fit_coef(9, 6) = 4.9822370243334966E-03_dp
3869 34 : fit_coef(10, 6) = -9.5726170222928900E-03_dp
3870 34 : fit_coef(11, 6) = 6.8634964686467978E-03_dp
3871 34 : fit_coef(12, 6) = -1.7999298724748951E-03_dp
3872 34 : fit_coef(0, 7) = 3.7517258865761766E-01_dp
3873 34 : fit_coef(1, 7) = 3.8333519695677720E-01_dp
3874 34 : fit_coef(2, 7) = 3.4375707015157120E-01_dp
3875 34 : fit_coef(3, 7) = 1.7423153407071543E-01_dp
3876 34 : fit_coef(4, 7) = 3.7337456774139702E-02_dp
3877 34 : fit_coef(5, 7) = -7.4660271581285850E-03_dp
3878 34 : fit_coef(6, 7) = 5.8400107303188187E-04_dp
3879 34 : fit_coef(7, 7) = -2.5244872448215655E-03_dp
3880 34 : fit_coef(8, 7) = 4.2884385157431048E-03_dp
3881 34 : fit_coef(9, 7) = 1.0453917543656458E-03_dp
3882 34 : fit_coef(10, 7) = -9.2913505401427225E-03_dp
3883 34 : fit_coef(11, 7) = 8.1349139258150831E-03_dp
3884 34 : fit_coef(12, 7) = -2.3025720564300821E-03_dp
3885 34 : fit_coef(0, 8) = 7.6460515920837613E-01_dp
3886 34 : fit_coef(1, 8) = 6.1549142645707966E-01_dp
3887 34 : fit_coef(2, 8) = 5.0182800509604020E-01_dp
3888 34 : fit_coef(3, 8) = 2.1325320085467817E-01_dp
3889 34 : fit_coef(4, 8) = 2.3360017105729571E-02_dp
3890 34 : fit_coef(5, 8) = -1.4054384598267826E-02_dp
3891 34 : fit_coef(6, 8) = 9.0661378414736218E-03_dp
3892 34 : fit_coef(7, 8) = -4.7433494326856486E-03_dp
3893 34 : fit_coef(8, 8) = 1.0160041902537189E-02_dp
3894 34 : fit_coef(9, 8) = -6.9427342461860627E-03_dp
3895 34 : fit_coef(10, 8) = -5.4907207434525202E-03_dp
3896 34 : fit_coef(11, 8) = 8.0763791261621969E-03_dp
3897 34 : fit_coef(12, 8) = -2.6484224072421108E-03_dp
3898 34 : fit_coef(0, 9) = 1.5114021780363067E+00_dp
3899 34 : fit_coef(1, 9) = 9.3368349741314893E-01_dp
3900 34 : fit_coef(2, 9) = 6.9854171505894413E-01_dp
3901 34 : fit_coef(3, 9) = 2.4498257864430506E-01_dp
3902 34 : fit_coef(4, 9) = -2.7117345776915117E-03_dp
3903 34 : fit_coef(5, 9) = -1.9684397407321690E-02_dp
3904 34 : fit_coef(6, 9) = 2.2750102305246520E-02_dp
3905 34 : fit_coef(7, 9) = -9.9596165022990610E-03_dp
3906 34 : fit_coef(8, 9) = 1.8166084113835305E-02_dp
3907 34 : fit_coef(9, 9) = -1.9043752557357005E-02_dp
3908 34 : fit_coef(10, 9) = 2.2864257000369307E-03_dp
3909 34 : fit_coef(11, 9) = 6.3623059846125004E-03_dp
3910 34 : fit_coef(12, 9) = -2.7468174322941873E-03_dp
3911 34 : fit_coef(0, 10) = 2.9272838679658890E+00_dp
3912 34 : fit_coef(1, 10) = 1.3344095709119908E+00_dp
3913 34 : fit_coef(2, 10) = 9.2872428481763736E-01_dp
3914 34 : fit_coef(3, 10) = 2.6731240098857367E-01_dp
3915 34 : fit_coef(4, 10) = -3.9323628602554263E-02_dp
3916 34 : fit_coef(5, 10) = -2.2664729979783912E-02_dp
3917 34 : fit_coef(6, 10) = 4.1418459538349613E-02_dp
3918 34 : fit_coef(7, 10) = -1.8765822971615966E-02_dp
3919 34 : fit_coef(8, 10) = 2.8023480739935883E-02_dp
3920 34 : fit_coef(9, 10) = -3.4574149384271238E-02_dp
3921 34 : fit_coef(10, 10) = 1.3734227321286851E-02_dp
3922 34 : fit_coef(11, 10) = 2.9343888906998264E-03_dp
3923 34 : fit_coef(12, 10) = -2.5433341475355697E-03_dp
3924 34 : fit_coef(0, 11) = 5.7131838450036696E+00_dp
3925 34 : fit_coef(1, 11) = 1.8005538920264632E+00_dp
3926 34 : fit_coef(2, 11) = 1.1880536006356908E+00_dp
3927 34 : fit_coef(3, 11) = 2.8559106021602204E-01_dp
3928 34 : fit_coef(4, 11) = -8.2639115843313488E-02_dp
3929 34 : fit_coef(5, 11) = -2.3761780940649874E-02_dp
3930 34 : fit_coef(6, 11) = 6.3493180678645345E-02_dp
3931 34 : fit_coef(7, 11) = -3.0273355255164173E-02_dp
3932 34 : fit_coef(8, 11) = 3.9310329422917428E-02_dp
3933 34 : fit_coef(9, 11) = -5.2371339180397693E-02_dp
3934 34 : fit_coef(10, 11) = 2.7484059561085201E-02_dp
3935 34 : fit_coef(11, 11) = -1.5309209297749292E-03_dp
3936 34 : fit_coef(12, 11) = -2.1659478188002048E-03_dp
3937 34 : fit_coef(0, 12) = 1.9426697312926121E-03_dp
3938 34 : fit_coef(1, 12) = 5.3902355339823542E-03_dp
3939 34 : fit_coef(2, 12) = 7.6460050852952361E-03_dp
3940 34 : fit_coef(3, 12) = 6.4861449445603606E-03_dp
3941 34 : fit_coef(4, 12) = 2.9975041609363725E-03_dp
3942 34 : fit_coef(5, 12) = 1.1267866675204334E-04_dp
3943 34 : fit_coef(6, 12) = -6.6052089732986108E-04_dp
3944 34 : fit_coef(7, 12) = -1.0429593050340101E-04_dp
3945 34 : fit_coef(8, 12) = -9.6642089460867778E-05_dp
3946 34 : fit_coef(9, 12) = 6.5468723131356925E-04_dp
3947 34 : fit_coef(10, 12) = -7.3909338726213167E-04_dp
3948 34 : fit_coef(11, 12) = 3.8434400387220237E-04_dp
3949 34 : fit_coef(12, 12) = -8.1587630115757833E-05_dp
3950 34 : fit_coef(0, 13) = 5.6766583157203338E-03_dp
3951 34 : fit_coef(1, 13) = 1.3746861086398525E-02_dp
3952 34 : fit_coef(2, 13) = 1.8677286574891313E-02_dp
3953 34 : fit_coef(3, 13) = 1.5318320571135682E-02_dp
3954 34 : fit_coef(4, 13) = 6.7566786656071713E-03_dp
3955 34 : fit_coef(5, 13) = 7.1919811741634156E-05_dp
3956 34 : fit_coef(6, 13) = -1.4743272069088146E-03_dp
3957 34 : fit_coef(7, 13) = -2.0331439016954778E-04_dp
3958 34 : fit_coef(8, 13) = -1.9066551850151903E-04_dp
3959 34 : fit_coef(9, 13) = 1.4614366852185527E-03_dp
3960 34 : fit_coef(10, 13) = -1.7182804418019637E-03_dp
3961 34 : fit_coef(11, 13) = 9.2385541265890814E-04_dp
3962 34 : fit_coef(12, 13) = -2.0177461300662419E-04_dp
3963 34 : fit_coef(0, 14) = 1.3396971882867550E-02_dp
3964 34 : fit_coef(1, 14) = 2.5745664924886561E-02_dp
3965 34 : fit_coef(2, 14) = 3.1409108695941872E-02_dp
3966 34 : fit_coef(3, 14) = 2.3978671080145342E-02_dp
3967 34 : fit_coef(4, 14) = 1.0268221460486631E-02_dp
3968 34 : fit_coef(5, 14) = 1.2930798224983239E-04_dp
3969 34 : fit_coef(6, 14) = -2.4415003996848300E-03_dp
3970 34 : fit_coef(7, 14) = -4.3479841388968817E-04_dp
3971 34 : fit_coef(8, 14) = -5.2954762444991550E-04_dp
3972 34 : fit_coef(9, 14) = 3.3920573298805374E-03_dp
3973 34 : fit_coef(10, 14) = -3.9601620536706839E-03_dp
3974 34 : fit_coef(11, 14) = 2.1033319510085288E-03_dp
3975 34 : fit_coef(12, 14) = -4.5128467093780031E-04_dp
3976 34 : fit_coef(0, 15) = 3.0313612771117847E-02_dp
3977 34 : fit_coef(1, 15) = 4.5511722981043855E-02_dp
3978 34 : fit_coef(2, 15) = 4.7843577097949709E-02_dp
3979 34 : fit_coef(3, 15) = 3.0848847485647288E-02_dp
3980 34 : fit_coef(4, 15) = 1.1173391444445794E-02_dp
3981 34 : fit_coef(5, 15) = 5.3673413927424196E-04_dp
3982 34 : fit_coef(6, 15) = -1.2788112460830441E-03_dp
3983 34 : fit_coef(7, 15) = -1.2106504102044236E-03_dp
3984 34 : fit_coef(8, 15) = -1.3614299287656570E-04_dp
3985 34 : fit_coef(9, 15) = 8.4193596534928113E-04_dp
3986 34 : fit_coef(10, 15) = -4.9266376268823403E-04_dp
3987 34 : fit_coef(11, 15) = 2.4264482966524924E-04_dp
3988 34 : fit_coef(12, 15) = -8.0800915180974188E-05_dp
3989 34 : fit_coef(0, 16) = 6.5727773851375626E-02_dp
3990 34 : fit_coef(1, 16) = 7.7524625497591287E-02_dp
3991 34 : fit_coef(2, 16) = 7.0866135281020856E-02_dp
3992 34 : fit_coef(3, 16) = 3.6455648551271543E-02_dp
3993 34 : fit_coef(4, 16) = 7.9253539051012834E-03_dp
3994 34 : fit_coef(5, 16) = -1.2114748812317041E-03_dp
3995 34 : fit_coef(6, 16) = 8.2015105160121449E-04_dp
3996 34 : fit_coef(7, 16) = -3.0470170403903876E-04_dp
3997 34 : fit_coef(8, 16) = 8.4675959307711432E-04_dp
3998 34 : fit_coef(9, 16) = -6.9307175814985243E-04_dp
3999 34 : fit_coef(10, 16) = -1.7074186347168978E-03_dp
4000 34 : fit_coef(11, 16) = 2.1004252363773243E-03_dp
4001 34 : fit_coef(12, 16) = -6.5954156111989743E-04_dp
4002 34 : fit_coef(0, 17) = 1.3663204308698063E-01_dp
4003 34 : fit_coef(1, 17) = 1.2566212501641080E-01_dp
4004 34 : fit_coef(2, 17) = 1.0142604274144125E-01_dp
4005 34 : fit_coef(3, 17) = 4.0492590765185132E-02_dp
4006 34 : fit_coef(4, 17) = 1.3893599733611069E-03_dp
4007 34 : fit_coef(5, 17) = -4.0829840345847287E-03_dp
4008 34 : fit_coef(6, 17) = 2.8641937242071414E-03_dp
4009 34 : fit_coef(7, 17) = 1.4034997283466152E-04_dp
4010 34 : fit_coef(8, 17) = 2.2130109369625853E-03_dp
4011 34 : fit_coef(9, 17) = -1.9780643203207446E-03_dp
4012 34 : fit_coef(10, 17) = -1.3761639970619644E-03_dp
4013 34 : fit_coef(11, 17) = 1.9654825472193074E-03_dp
4014 34 : fit_coef(12, 17) = -6.0411821444792237E-04_dp
4015 34 : fit_coef(0, 18) = 2.7371713350977883E-01_dp
4016 34 : fit_coef(1, 18) = 1.9207380047459294E-01_dp
4017 34 : fit_coef(2, 18) = 1.3829663189483482E-01_dp
4018 34 : fit_coef(3, 18) = 4.0969959876443064E-02_dp
4019 34 : fit_coef(4, 18) = -8.1744595653702960E-03_dp
4020 34 : fit_coef(5, 18) = -6.2758002950377006E-03_dp
4021 34 : fit_coef(6, 18) = 6.1933985486500821E-03_dp
4022 34 : fit_coef(7, 18) = -1.1137257661482085E-03_dp
4023 34 : fit_coef(8, 18) = 4.7491704854226244E-03_dp
4024 34 : fit_coef(9, 18) = -5.9366942385150516E-03_dp
4025 34 : fit_coef(10, 18) = 1.9770890986731604E-03_dp
4026 34 : fit_coef(11, 18) = 6.2460690633304441E-04_dp
4027 34 : fit_coef(12, 18) = -4.2628349475002297E-04_dp
4028 34 : fit_coef(0, 19) = 5.3176214769076025E-01_dp
4029 34 : fit_coef(1, 19) = 2.7427114346332437E-01_dp
4030 34 : fit_coef(2, 19) = 1.7786670623161183E-01_dp
4031 34 : fit_coef(3, 19) = 3.6141984545340726E-02_dp
4032 34 : fit_coef(4, 19) = -2.0019481045233233E-02_dp
4033 34 : fit_coef(5, 19) = -6.5029597037300265E-03_dp
4034 34 : fit_coef(6, 19) = 1.0978881646568977E-02_dp
4035 34 : fit_coef(7, 19) = -3.5326165348373130E-03_dp
4036 34 : fit_coef(8, 19) = 6.9664331496620468E-03_dp
4037 34 : fit_coef(9, 19) = -1.0072536637310938E-02_dp
4038 34 : fit_coef(10, 19) = 5.7316495954974223E-03_dp
4039 34 : fit_coef(11, 19) = -8.1951094019536695E-04_dp
4040 34 : fit_coef(12, 19) = -2.4352440718963261E-04_dp
4041 34 : fit_coef(0, 20) = 1.0110078977345236E+00_dp
4042 34 : fit_coef(1, 20) = 3.6158811802096996E-01_dp
4043 34 : fit_coef(2, 20) = 2.1462317218559554E-01_dp
4044 34 : fit_coef(3, 20) = 2.6882407712661614E-02_dp
4045 34 : fit_coef(4, 20) = -3.1860390881090057E-02_dp
4046 34 : fit_coef(5, 20) = -4.4365197992393256E-03_dp
4047 34 : fit_coef(6, 20) = 1.6356522282533974E-02_dp
4048 34 : fit_coef(7, 20) = -7.0191772084550030E-03_dp
4049 34 : fit_coef(8, 20) = 9.0001998656736130E-03_dp
4050 34 : fit_coef(9, 20) = -1.4010401343075048E-02_dp
4051 34 : fit_coef(10, 20) = 9.7773201744224356E-03_dp
4052 34 : fit_coef(11, 20) = -2.6263089272930114E-03_dp
4053 34 : fit_coef(12, 20) = 5.8079667692654174E-05_dp
4054 34 : fit_coef(0, 21) = 1.9229902544572308E+00_dp
4055 34 : fit_coef(1, 21) = 4.3639570130727606E-01_dp
4056 34 : fit_coef(2, 21) = 2.4465083184076966E-01_dp
4057 34 : fit_coef(3, 21) = 1.8632226021993891E-02_dp
4058 34 : fit_coef(4, 21) = -4.0654823075276181E-02_dp
4059 34 : fit_coef(5, 21) = -1.6438863848394413E-03_dp
4060 34 : fit_coef(6, 21) = 2.0679654468894963E-02_dp
4061 34 : fit_coef(7, 21) = -1.0433989825777933E-02_dp
4062 34 : fit_coef(8, 21) = 1.0631019238151107E-02_dp
4063 34 : fit_coef(9, 21) = -1.6823436574756146E-02_dp
4064 34 : fit_coef(10, 21) = 1.2861656736955324E-02_dp
4065 34 : fit_coef(11, 21) = -4.1063260520761953E-03_dp
4066 34 : fit_coef(12, 21) = 3.2620599079153290E-04_dp
4067 34 : fit_coef(0, 22) = 3.9876478956152801E+00_dp
4068 34 : fit_coef(1, 22) = 4.9699973939632702E-01_dp
4069 34 : fit_coef(2, 22) = 2.7726332870042114E-01_dp
4070 34 : fit_coef(3, 22) = 2.0557461247107046E-02_dp
4071 34 : fit_coef(4, 22) = -4.5589994159230353E-02_dp
4072 34 : fit_coef(5, 22) = -1.1953594192753122E-03_dp
4073 34 : fit_coef(6, 22) = 2.3317546922334211E-02_dp
4074 34 : fit_coef(7, 22) = -1.2287704350934838E-02_dp
4075 34 : fit_coef(8, 22) = 1.1987190724120066E-02_dp
4076 34 : fit_coef(9, 22) = -1.8798325292619430E-02_dp
4077 34 : fit_coef(10, 22) = 1.4466982948530036E-02_dp
4078 34 : fit_coef(11, 22) = -4.6627474463343845E-03_dp
4079 34 : fit_coef(12, 22) = 3.8343338955871208E-04_dp
4080 :
4081 34 : 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 68 : 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 68 : L_b = 1.0000000000000000E+02_dp
4096 68 : U_b = 1.0890000000000000E+05_dp
4097 68 : fit_coef(0, 1) = 3.5476589277685659E-05_dp
4098 68 : fit_coef(1, 1) = 1.4120924025631340E-05_dp
4099 68 : fit_coef(2, 1) = 3.1076536118129984E-03_dp
4100 68 : fit_coef(3, 1) = -2.0920445403620737E-02_dp
4101 68 : fit_coef(4, 1) = 1.5503824842219388E-01_dp
4102 68 : fit_coef(5, 1) = -6.5946634106067126E-01_dp
4103 68 : fit_coef(6, 1) = 1.9567718308121806E+00_dp
4104 68 : fit_coef(7, 1) = -4.0223034504541495E+00_dp
4105 68 : fit_coef(8, 1) = 5.7073753184657754E+00_dp
4106 68 : fit_coef(9, 1) = -5.4854200724345779E+00_dp
4107 68 : fit_coef(10, 1) = 3.4084108118688103E+00_dp
4108 68 : fit_coef(11, 1) = -1.2351133915217054E+00_dp
4109 68 : fit_coef(12, 1) = 1.9818096546374844E-01_dp
4110 68 : fit_coef(0, 2) = 3.9040597969308965E-04_dp
4111 68 : fit_coef(1, 2) = 8.7958193593917847E-05_dp
4112 68 : fit_coef(2, 2) = 1.9518122056059333E-02_dp
4113 68 : fit_coef(3, 2) = -1.3498019724834617E-01_dp
4114 68 : fit_coef(4, 2) = 9.8104943789195032E-01_dp
4115 68 : fit_coef(5, 2) = -4.1896253590373966E+00_dp
4116 68 : fit_coef(6, 2) = 1.2439540817050382E+01_dp
4117 68 : fit_coef(7, 2) = -2.5590801859617393E+01_dp
4118 68 : fit_coef(8, 2) = 3.6347431140247103E+01_dp
4119 68 : fit_coef(9, 2) = -3.4967385668188783E+01_dp
4120 68 : fit_coef(10, 2) = 2.1745312479785735E+01_dp
4121 68 : fit_coef(11, 2) = -7.8852461430485148E+00_dp
4122 68 : fit_coef(12, 2) = 1.2659121491127978E+00_dp
4123 68 : fit_coef(0, 3) = 2.0665460609606825E-03_dp
4124 68 : fit_coef(1, 3) = 3.0623598182770673E-04_dp
4125 68 : fit_coef(2, 3) = 6.8781938169008475E-02_dp
4126 68 : fit_coef(3, 3) = -4.9168954382575458E-01_dp
4127 68 : fit_coef(4, 3) = 3.4930362601920923E+00_dp
4128 68 : fit_coef(5, 3) = -1.5167014240164407E+01_dp
4129 68 : fit_coef(6, 3) = 4.5295440057571241E+01_dp
4130 68 : fit_coef(7, 3) = -9.3377006161805866E+01_dp
4131 68 : fit_coef(8, 3) = 1.3271885253969418E+02_dp
4132 68 : fit_coef(9, 3) = -1.2770077780864555E+02_dp
4133 68 : fit_coef(10, 3) = 7.9411953123430422E+01_dp
4134 68 : fit_coef(11, 3) = -2.8793930151510978E+01_dp
4135 68 : fit_coef(12, 3) = 4.6222166428791578E+00_dp
4136 68 : fit_coef(0, 4) = 7.9767528386571820E-03_dp
4137 68 : fit_coef(1, 4) = 8.4910081412428783E-04_dp
4138 68 : fit_coef(2, 4) = 1.9200935759540066E-01_dp
4139 68 : fit_coef(3, 4) = -1.4007008225024304E+00_dp
4140 68 : fit_coef(4, 4) = 9.8035873307907426E+00_dp
4141 68 : fit_coef(5, 4) = -4.2999162330329014E+01_dp
4142 68 : fit_coef(6, 4) = 1.2867236226296961E+02_dp
4143 68 : fit_coef(7, 4) = -2.6546890298183149E+02_dp
4144 68 : fit_coef(8, 4) = 3.7764422948289194E+02_dp
4145 68 : fit_coef(9, 4) = -3.6371847327447421E+02_dp
4146 68 : fit_coef(10, 4) = 2.2639866330975411E+02_dp
4147 68 : fit_coef(11, 4) = -8.2161179736409451E+01_dp
4148 68 : fit_coef(12, 4) = 1.3199047691946380E+01_dp
4149 68 : fit_coef(0, 5) = 2.5545969787194346E-02_dp
4150 68 : fit_coef(1, 5) = 2.0342070978811074E-03_dp
4151 68 : fit_coef(2, 5) = 4.6216853849385225E-01_dp
4152 68 : fit_coef(3, 5) = -3.4177493858793202E+00_dp
4153 68 : fit_coef(4, 5) = 2.3691045823517857E+01_dp
4154 68 : fit_coef(5, 5) = -1.0461938927709393E+02_dp
4155 68 : fit_coef(6, 5) = 3.1370386858745627E+02_dp
4156 68 : fit_coef(7, 5) = -6.4798973211308271E+02_dp
4157 68 : fit_coef(8, 5) = 9.2266003511934855E+02_dp
4158 68 : fit_coef(9, 5) = -8.8927522399842849E+02_dp
4159 68 : fit_coef(10, 5) = 5.5383510055109002E+02_dp
4160 68 : fit_coef(11, 5) = -2.0107166636215129E+02_dp
4161 68 : fit_coef(12, 5) = 3.2311819146896454E+01_dp
4162 68 : fit_coef(0, 6) = 7.2076697268762174E-02_dp
4163 68 : fit_coef(1, 6) = 4.3697938638884411E-03_dp
4164 68 : fit_coef(2, 6) = 9.9608072915738466E-01_dp
4165 68 : fit_coef(3, 6) = -7.4383652629013977E+00_dp
4166 68 : fit_coef(4, 6) = 5.1208554327170454E+01_dp
4167 68 : fit_coef(5, 6) = -2.2721354633426219E+02_dp
4168 68 : fit_coef(6, 6) = 6.8250267908846160E+02_dp
4169 68 : fit_coef(7, 6) = -1.4111404970254437E+03_dp
4170 68 : fit_coef(8, 6) = 2.0105465406328890E+03_dp
4171 68 : fit_coef(9, 6) = -1.9386324350975158E+03_dp
4172 68 : fit_coef(10, 6) = 1.2077495454590323E+03_dp
4173 68 : fit_coef(11, 6) = -4.3858368013964258E+02_dp
4174 68 : fit_coef(12, 6) = 7.0492945521981113E+01_dp
4175 68 : fit_coef(0, 7) = 1.8528902440326048E-01_dp
4176 68 : fit_coef(1, 7) = 8.5761877628560846E-03_dp
4177 68 : fit_coef(2, 7) = 1.9596400785319805E+00_dp
4178 68 : fit_coef(3, 7) = -1.4742195445863704E+01_dp
4179 68 : fit_coef(4, 7) = 1.0097053276986436E+02_dp
4180 68 : fit_coef(5, 7) = -4.4958224203673950E+02_dp
4181 68 : fit_coef(6, 7) = 1.3525059945742282E+03_dp
4182 68 : fit_coef(7, 7) = -2.7986628560219651E+03_dp
4183 68 : fit_coef(8, 7) = 3.9893201483629923E+03_dp
4184 68 : fit_coef(9, 7) = -3.8478121346267285E+03_dp
4185 68 : fit_coef(10, 7) = 2.3976749678349697E+03_dp
4186 68 : fit_coef(11, 7) = -8.7083742454840910E+02_dp
4187 68 : fit_coef(12, 7) = 1.3998610570704449E+02_dp
4188 68 : fit_coef(0, 8) = 4.4331726198419791E-01_dp
4189 68 : fit_coef(1, 8) = 1.5511309832479217E-02_dp
4190 68 : fit_coef(2, 8) = 3.5507741823714190E+00_dp
4191 68 : fit_coef(3, 8) = -2.6865693016984693E+01_dp
4192 68 : fit_coef(4, 8) = 1.8327560251896824E+02_dp
4193 68 : fit_coef(5, 8) = -8.1823836532717723E+02_dp
4194 68 : fit_coef(6, 8) = 2.4647768105667869E+03_dp
4195 68 : fit_coef(7, 8) = -5.1036331419270782E+03_dp
4196 68 : fit_coef(8, 8) = 7.2776337187971394E+03_dp
4197 68 : fit_coef(9, 8) = -7.0211118090420277E+03_dp
4198 68 : fit_coef(10, 8) = 4.3757325625709809E+03_dp
4199 68 : fit_coef(11, 8) = -1.5894501984451088E+03_dp
4200 68 : fit_coef(12, 8) = 2.5552396179932322E+02_dp
4201 68 : fit_coef(0, 9) = 1.0023832039292297E+00_dp
4202 68 : fit_coef(1, 9) = 2.5898302934575013E-02_dp
4203 68 : fit_coef(2, 9) = 5.9367320140376343E+00_dp
4204 68 : fit_coef(3, 9) = -4.5119163651256045E+01_dp
4205 68 : fit_coef(4, 9) = 3.0685214719931554E+02_dp
4206 68 : fit_coef(5, 9) = -1.3727570869476449E+03_dp
4207 68 : fit_coef(6, 9) = 4.1397102479948817E+03_dp
4208 68 : fit_coef(7, 9) = -8.5765932664076063E+03_dp
4209 68 : fit_coef(8, 9) = 1.2233664390647617E+04_dp
4210 68 : fit_coef(9, 9) = -1.1804562465563917E+04_dp
4211 68 : fit_coef(10, 9) = 7.3577527032167036E+03_dp
4212 68 : fit_coef(11, 9) = -2.6728608608039476E+03_dp
4213 68 : fit_coef(12, 9) = 4.2972086937637658E+02_dp
4214 68 : fit_coef(0, 10) = 2.1747295228003427E+00_dp
4215 68 : fit_coef(1, 10) = 3.9825856965749605E-02_dp
4216 68 : fit_coef(2, 10) = 9.1386038693541103E+00_dp
4217 68 : fit_coef(3, 10) = -6.9684875108374484E+01_dp
4218 68 : fit_coef(4, 10) = 4.7283781908541010E+02_dp
4219 68 : fit_coef(5, 10) = -2.1185130397402854E+03_dp
4220 68 : fit_coef(6, 10) = 6.3941973699549608E+03_dp
4221 68 : fit_coef(7, 10) = -1.3253289025658554E+04_dp
4222 68 : fit_coef(8, 10) = 1.8908933653764056E+04_dp
4223 68 : fit_coef(9, 10) = -1.8248136599625253E+04_dp
4224 68 : fit_coef(10, 10) = 1.1374965884570694E+04_dp
4225 68 : fit_coef(11, 10) = -4.1324304505338878E+03_dp
4226 68 : fit_coef(12, 10) = 6.6440472838840810E+02_dp
4227 68 : fit_coef(0, 11) = 4.6737127719821085E+00_dp
4228 68 : fit_coef(1, 11) = 5.6471682863233792E-02_dp
4229 68 : fit_coef(2, 11) = 1.2966744420426899E+01_dp
4230 68 : fit_coef(3, 11) = -9.9092986263943558E+01_dp
4231 68 : fit_coef(4, 11) = 6.7136997890125622E+02_dp
4232 68 : fit_coef(5, 11) = -3.0109895935607155E+03_dp
4233 68 : fit_coef(6, 11) = 9.0933208665348502E+03_dp
4234 68 : fit_coef(7, 11) = -1.8853514883165644E+04_dp
4235 68 : fit_coef(8, 11) = 2.6903247532779991E+04_dp
4236 68 : fit_coef(9, 11) = -2.5965395036313621E+04_dp
4237 68 : fit_coef(10, 11) = 1.6186393937419709E+04_dp
4238 68 : fit_coef(11, 11) = -5.8805907336782202E+03_dp
4239 68 : fit_coef(12, 11) = 9.4549381336496526E+02_dp
4240 68 : fit_coef(0, 12) = 1.1342816745586836E-04_dp
4241 68 : fit_coef(1, 12) = 3.6576968324737305E-05_dp
4242 68 : fit_coef(2, 12) = 8.1035507833661872E-03_dp
4243 68 : fit_coef(3, 12) = -5.4754734634044767E-02_dp
4244 68 : fit_coef(4, 12) = 4.0635660271826546E-01_dp
4245 68 : fit_coef(5, 12) = -1.7252011567424357E+00_dp
4246 68 : fit_coef(6, 12) = 5.0991785559775868E+00_dp
4247 68 : fit_coef(7, 12) = -1.0443089131832354E+01_dp
4248 68 : fit_coef(8, 12) = 1.4772607027520992E+01_dp
4249 68 : fit_coef(9, 12) = -1.4163309607497387E+01_dp
4250 68 : fit_coef(10, 12) = 8.7833832339673332E+00_dp
4251 68 : fit_coef(11, 12) = -3.1779319684136769E+00_dp
4252 68 : fit_coef(12, 12) = 5.0928471655731977E-01_dp
4253 68 : fit_coef(0, 13) = 7.4546004903846121E-04_dp
4254 68 : fit_coef(1, 13) = 1.2519052310895946E-04_dp
4255 68 : fit_coef(2, 13) = 2.7990742019097205E-02_dp
4256 68 : fit_coef(3, 13) = -1.9878830068107795E-01_dp
4257 68 : fit_coef(4, 13) = 1.4175816998714001E+00_dp
4258 68 : fit_coef(5, 13) = -6.1266447654072609E+00_dp
4259 68 : fit_coef(6, 13) = 1.8316162032568503E+01_dp
4260 68 : fit_coef(7, 13) = -3.7851604364859433E+01_dp
4261 68 : fit_coef(8, 13) = 5.3922831469585589E+01_dp
4262 68 : fit_coef(9, 13) = -5.1975301110470006E+01_dp
4263 68 : fit_coef(10, 13) = 3.2361327142046470E+01_dp
4264 68 : fit_coef(11, 13) = -1.1743599901510185E+01_dp
4265 68 : fit_coef(12, 13) = 1.8861805928420110E+00_dp
4266 68 : fit_coef(0, 14) = 3.0519693802336465E-03_dp
4267 68 : fit_coef(1, 14) = 3.4087975510808114E-04_dp
4268 68 : fit_coef(2, 14) = 7.7167269766524146E-02_dp
4269 68 : fit_coef(3, 14) = -5.6411267648401553E-01_dp
4270 68 : fit_coef(4, 14) = 3.9421610586910765E+00_dp
4271 68 : fit_coef(5, 14) = -1.7305564712941042E+01_dp
4272 68 : fit_coef(6, 14) = 5.1769587328365290E+01_dp
4273 68 : fit_coef(7, 14) = -1.0670184531108517E+02_dp
4274 68 : fit_coef(8, 14) = 1.5162660340890758E+02_dp
4275 68 : fit_coef(9, 14) = -1.4590770106048981E+02_dp
4276 68 : fit_coef(10, 14) = 9.0764737150408479E+01_dp
4277 68 : fit_coef(11, 14) = -3.2925715085693440E+01_dp
4278 68 : fit_coef(12, 14) = 5.2881884424153274E+00_dp
4279 68 : fit_coef(0, 15) = 9.9219657650822073E-03_dp
4280 68 : fit_coef(1, 15) = 7.9669846000388241E-04_dp
4281 68 : fit_coef(2, 15) = 1.8124096946957050E-01_dp
4282 68 : fit_coef(3, 15) = -1.3450166921157356E+00_dp
4283 68 : fit_coef(4, 15) = 9.2993195019520840E+00_dp
4284 68 : fit_coef(5, 15) = -4.1141390542063078E+01_dp
4285 68 : fit_coef(6, 15) = 1.2339197373801343E+02_dp
4286 68 : fit_coef(7, 15) = -2.5492312646946198E+02_dp
4287 68 : fit_coef(8, 15) = 3.6308859133318100E+02_dp
4288 68 : fit_coef(9, 15) = -3.5006957300050141E+02_dp
4289 68 : fit_coef(10, 15) = 2.1808828321735942E+02_dp
4290 68 : fit_coef(11, 15) = -7.9197426579451133E+01_dp
4291 68 : fit_coef(12, 15) = 1.2729290836050698E+01_dp
4292 68 : fit_coef(0, 16) = 2.7934155736110411E-02_dp
4293 68 : fit_coef(1, 16) = 1.6577256632979880E-03_dp
4294 68 : fit_coef(2, 16) = 3.7842445866661195E-01_dp
4295 68 : fit_coef(3, 16) = -2.8373077002350295E+00_dp
4296 68 : fit_coef(4, 16) = 1.9477723226227106E+01_dp
4297 68 : fit_coef(5, 16) = -8.6598640916868774E+01_dp
4298 68 : fit_coef(6, 16) = 2.6025925292176282E+02_dp
4299 68 : fit_coef(7, 16) = -5.3828360062495688E+02_dp
4300 68 : fit_coef(8, 16) = 7.6712698683802557E+02_dp
4301 68 : fit_coef(9, 16) = -7.3983293131025414E+02_dp
4302 68 : fit_coef(10, 16) = 4.6097553662229262E+02_dp
4303 68 : fit_coef(11, 16) = -1.6741742993909008E+02_dp
4304 68 : fit_coef(12, 16) = 2.6911040347084413E+01_dp
4305 68 : fit_coef(0, 17) = 7.1098068080604329E-02_dp
4306 68 : fit_coef(1, 17) = 3.1344747909274207E-03_dp
4307 68 : fit_coef(2, 17) = 7.1727119916633186E-01_dp
4308 68 : fit_coef(3, 17) = -5.4188366020725613E+00_dp
4309 68 : fit_coef(4, 17) = 3.7004431896986794E+01_dp
4310 68 : fit_coef(5, 17) = -1.6510685856094676E+02_dp
4311 68 : fit_coef(6, 17) = 4.9706150634055501E+02_dp
4312 68 : fit_coef(7, 17) = -1.0289510132785595E+03_dp
4313 68 : fit_coef(8, 17) = 1.4670886352439184E+03_dp
4314 68 : fit_coef(9, 17) = -1.4153076846774175E+03_dp
4315 68 : fit_coef(10, 17) = 8.8203709163857422E+02_dp
4316 68 : fit_coef(11, 17) = -3.2039085416412871E+02_dp
4317 68 : fit_coef(12, 17) = 5.1506838572455884E+01_dp
4318 68 : fit_coef(0, 18) = 1.6776001286461931E-01_dp
4319 68 : fit_coef(1, 18) = 5.4256243545789283E-03_dp
4320 68 : fit_coef(2, 18) = 1.2438301964496239E+00_dp
4321 68 : fit_coef(3, 18) = -9.4525365959341521E+00_dp
4322 68 : fit_coef(4, 18) = 6.4287530580546374E+01_dp
4323 68 : fit_coef(5, 18) = -2.8761451534054112E+02_dp
4324 68 : fit_coef(6, 18) = 8.6715581047564865E+02_dp
4325 68 : fit_coef(7, 18) = -1.7963912098780600E+03_dp
4326 68 : fit_coef(8, 18) = 2.5623050325486606E+03_dp
4327 68 : fit_coef(9, 18) = -2.4724333743568150E+03_dp
4328 68 : fit_coef(10, 18) = 1.5410800293083496E+03_dp
4329 68 : fit_coef(11, 18) = -5.5983897666404175E+02_dp
4330 68 : fit_coef(12, 18) = 9.0007748058412503E+01_dp
4331 68 : fit_coef(0, 19) = 3.7318901847591823E-01_dp
4332 68 : fit_coef(1, 19) = 8.5741894158780207E-03_dp
4333 68 : fit_coef(2, 19) = 1.9684022818381477E+00_dp
4334 68 : fit_coef(3, 19) = -1.5029124759115470E+01_dp
4335 68 : fit_coef(4, 19) = 1.0188619253386351E+02_dp
4336 68 : fit_coef(5, 19) = -4.5678606319996516E+02_dp
4337 68 : fit_coef(6, 19) = 1.3789467638499050E+03_dp
4338 68 : fit_coef(7, 19) = -2.8584140258154093E+03_dp
4339 68 : fit_coef(8, 19) = 4.0784585124208406E+03_dp
4340 68 : fit_coef(9, 19) = -3.9361263103870356E+03_dp
4341 68 : fit_coef(10, 19) = 2.4536814783734530E+03_dp
4342 68 : fit_coef(11, 19) = -8.9143170846733369E+02_dp
4343 68 : fit_coef(12, 19) = 1.4332667121452164E+02_dp
4344 68 : fit_coef(0, 20) = 7.9411999812197465E-01_dp
4345 68 : fit_coef(1, 20) = 1.2222970002666296E-02_dp
4346 68 : fit_coef(2, 20) = 2.8089778868006130E+00_dp
4347 68 : fit_coef(3, 20) = -2.1523724383534741E+01_dp
4348 68 : fit_coef(4, 20) = 1.4555880546046066E+02_dp
4349 68 : fit_coef(5, 20) = -6.5361423760505409E+02_dp
4350 68 : fit_coef(6, 20) = 1.9751646032271344E+03_dp
4351 68 : fit_coef(7, 20) = -4.0964475425550763E+03_dp
4352 68 : fit_coef(8, 20) = 5.8464616672416569E+03_dp
4353 68 : fit_coef(9, 20) = -5.6432337456166642E+03_dp
4354 68 : fit_coef(10, 20) = 3.5181407559250561E+03_dp
4355 68 : fit_coef(11, 20) = -1.2782197709057280E+03_dp
4356 68 : fit_coef(12, 20) = 2.0552243167477678E+02_dp
4357 68 : fit_coef(0, 21) = 1.6552401388491180E+00_dp
4358 68 : fit_coef(1, 21) = 1.5475484985637764E-02_dp
4359 68 : fit_coef(2, 21) = 3.5586577312092178E+00_dp
4360 68 : fit_coef(3, 21) = -2.7328423530790474E+01_dp
4361 68 : fit_coef(4, 21) = 1.8453595318851117E+02_dp
4362 68 : fit_coef(5, 21) = -8.2943501604533219E+02_dp
4363 68 : fit_coef(6, 21) = 2.5081783317335353E+03_dp
4364 68 : fit_coef(7, 21) = -5.2037296899464609E+03_dp
4365 68 : fit_coef(8, 21) = 7.4280891345363261E+03_dp
4366 68 : fit_coef(9, 21) = -7.1705455707166202E+03_dp
4367 68 : fit_coef(10, 21) = 4.4705361605949456E+03_dp
4368 68 : fit_coef(11, 21) = -1.6242951789399854E+03_dp
4369 68 : fit_coef(12, 21) = 2.6117201512280747E+02_dp
4370 68 : fit_coef(0, 22) = 3.6819715912926032E+00_dp
4371 68 : fit_coef(1, 22) = 1.7724765507747240E-02_dp
4372 68 : fit_coef(2, 22) = 4.0762275279679621E+00_dp
4373 68 : fit_coef(3, 22) = -3.1313218015726726E+01_dp
4374 68 : fit_coef(4, 22) = 2.1139684580404636E+02_dp
4375 68 : fit_coef(5, 22) = -9.5029615455661258E+02_dp
4376 68 : fit_coef(6, 22) = 2.8739893385614673E+03_dp
4377 68 : fit_coef(7, 22) = -5.9630507500813519E+03_dp
4378 68 : fit_coef(8, 22) = 8.5122490258366070E+03_dp
4379 68 : fit_coef(9, 22) = -8.2172415036707516E+03_dp
4380 68 : fit_coef(10, 22) = 5.1231461949378099E+03_dp
4381 68 : fit_coef(11, 22) = -1.8614171279369891E+03_dp
4382 68 : fit_coef(12, 22) = 2.9929960798773016E+02_dp
4383 :
4384 68 : 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 36 : 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 36 : L_b = 1.0000000000000000E+01_dp
4399 36 : U_b = 1.0000000000000000E+02_dp
4400 36 : fit_coef(0, 1) = 4.7621173842280597E-03_dp
4401 36 : fit_coef(1, 1) = 1.2779124179361450E-02_dp
4402 36 : fit_coef(2, 1) = 1.6703410753614655E-02_dp
4403 36 : fit_coef(3, 1) = 1.2304881409550545E-02_dp
4404 36 : fit_coef(4, 1) = 3.7749685318705707E-03_dp
4405 36 : fit_coef(5, 1) = -1.7434526435310602E-03_dp
4406 36 : fit_coef(6, 1) = -2.0397823012582900E-03_dp
4407 36 : fit_coef(7, 1) = -1.9667552585414541E-04_dp
4408 36 : fit_coef(8, 1) = 4.9733991832847789E-04_dp
4409 36 : fit_coef(9, 1) = 3.3438174942184307E-04_dp
4410 36 : fit_coef(10, 1) = -4.5000255284931892E-04_dp
4411 36 : fit_coef(11, 1) = 2.2568471250347118E-04_dp
4412 36 : fit_coef(12, 1) = -5.0451245801427364E-05_dp
4413 36 : fit_coef(0, 2) = 2.5892231310748540E-02_dp
4414 36 : fit_coef(1, 2) = 6.8272349594299786E-02_dp
4415 36 : fit_coef(2, 2) = 8.8380776497241700E-02_dp
4416 36 : fit_coef(3, 2) = 6.4547463586032264E-02_dp
4417 36 : fit_coef(4, 2) = 1.9512355251434594E-02_dp
4418 36 : fit_coef(5, 2) = -9.2451673534127178E-03_dp
4419 36 : fit_coef(6, 2) = -1.0592986518352070E-02_dp
4420 36 : fit_coef(7, 2) = -9.5129033192623013E-04_dp
4421 36 : fit_coef(8, 2) = 2.6222990485926024E-03_dp
4422 36 : fit_coef(9, 2) = 1.6749335092584598E-03_dp
4423 36 : fit_coef(10, 2) = -2.2956689993050795E-03_dp
4424 36 : fit_coef(11, 2) = 1.1496135531876962E-03_dp
4425 36 : fit_coef(12, 2) = -2.5655891388629779E-04_dp
4426 36 : fit_coef(0, 3) = 6.7567184232783226E-02_dp
4427 36 : fit_coef(1, 3) = 1.7186061352294887E-01_dp
4428 36 : fit_coef(2, 3) = 2.1865383385874831E-01_dp
4429 36 : fit_coef(3, 3) = 1.5733674301194298E-01_dp
4430 36 : fit_coef(4, 3) = 4.6341817240479470E-02_dp
4431 36 : fit_coef(5, 3) = -2.2920074974133117E-02_dp
4432 36 : fit_coef(6, 3) = -2.5337146772633146E-02_dp
4433 36 : fit_coef(7, 3) = -1.9861858355440082E-03_dp
4434 36 : fit_coef(8, 3) = 6.4137367343312197E-03_dp
4435 36 : fit_coef(9, 3) = 3.7881539374578659E-03_dp
4436 36 : fit_coef(10, 3) = -5.3502220389785920E-03_dp
4437 36 : fit_coef(11, 3) = 2.6697483796138425E-03_dp
4438 36 : fit_coef(12, 3) = -5.9317689227171935E-04_dp
4439 36 : fit_coef(0, 4) = 1.3773723556451323E-01_dp
4440 36 : fit_coef(1, 4) = 3.2976491191003016E-01_dp
4441 36 : fit_coef(2, 4) = 4.0862257137690161E-01_dp
4442 36 : fit_coef(3, 4) = 2.8864406700326678E-01_dp
4443 36 : fit_coef(4, 4) = 8.2368391636866115E-02_dp
4444 36 : fit_coef(5, 4) = -4.3117011034440302E-02_dp
4445 36 : fit_coef(6, 4) = -4.5352842098712653E-02_dp
4446 36 : fit_coef(7, 4) = -2.5963365652366087E-03_dp
4447 36 : fit_coef(8, 4) = 1.2026849031951965E-02_dp
4448 36 : fit_coef(9, 4) = 5.5083059863503094E-03_dp
4449 36 : fit_coef(10, 4) = -8.5515536696519658E-03_dp
4450 36 : fit_coef(11, 4) = 4.2807103276345489E-03_dp
4451 36 : fit_coef(12, 4) = -9.5472120253031029E-04_dp
4452 36 : fit_coef(0, 5) = 2.5166827573794959E-01_dp
4453 36 : fit_coef(1, 5) = 5.5126096550816395E-01_dp
4454 36 : fit_coef(2, 5) = 6.5643230451689671E-01_dp
4455 36 : fit_coef(3, 5) = 4.5390238114819420E-01_dp
4456 36 : fit_coef(4, 5) = 1.2801802686296021E-01_dp
4457 36 : fit_coef(5, 5) = -6.8438409988043361E-02_dp
4458 36 : fit_coef(6, 5) = -7.1938494310622186E-02_dp
4459 36 : fit_coef(7, 5) = -3.7818617497551153E-03_dp
4460 36 : fit_coef(8, 5) = 2.2624574898233631E-02_dp
4461 36 : fit_coef(9, 5) = 7.8302540970164088E-03_dp
4462 36 : fit_coef(10, 5) = -1.7136424214551770E-02_dp
4463 36 : fit_coef(11, 5) = 9.9150152558899352E-03_dp
4464 36 : fit_coef(12, 5) = -2.3421367209343525E-03_dp
4465 36 : fit_coef(0, 6) = 4.3589892832098903E-01_dp
4466 36 : fit_coef(1, 6) = 8.5015779653011903E-01_dp
4467 36 : fit_coef(2, 6) = 9.5612932461007116E-01_dp
4468 36 : fit_coef(3, 6) = 6.4033701313877844E-01_dp
4469 36 : fit_coef(4, 6) = 1.8409747302118074E-01_dp
4470 36 : fit_coef(5, 6) = -8.6870444790686202E-02_dp
4471 36 : fit_coef(6, 6) = -1.0566638795756129E-01_dp
4472 36 : fit_coef(7, 6) = -4.6671972769434591E-03_dp
4473 36 : fit_coef(8, 6) = 3.7389422606596834E-03_dp
4474 36 : fit_coef(9, 6) = 6.9425181522878909E-02_dp
4475 36 : fit_coef(10, 6) = -7.1984629461529587E-02_dp
4476 36 : fit_coef(11, 6) = 3.1646309655079689E-02_dp
4477 36 : fit_coef(12, 6) = -5.6112243049874127E-03_dp
4478 36 : fit_coef(0, 7) = 7.3351111106633227E-01_dp
4479 36 : fit_coef(1, 7) = 1.2445631654341636E+00_dp
4480 36 : fit_coef(2, 7) = 1.3007750122826698E+00_dp
4481 36 : fit_coef(3, 7) = 8.2747315487381601E-01_dp
4482 36 : fit_coef(4, 7) = 2.4170033735886270E-01_dp
4483 36 : fit_coef(5, 7) = -8.6239790315945988E-02_dp
4484 36 : fit_coef(6, 7) = -1.2071103017063417E-01_dp
4485 36 : fit_coef(7, 7) = -3.2654987483749273E-02_dp
4486 36 : fit_coef(8, 7) = 1.8998066989690098E-02_dp
4487 36 : fit_coef(9, 7) = 1.4613127895351082E-02_dp
4488 36 : fit_coef(10, 7) = 4.0069718709076961E-02_dp
4489 36 : fit_coef(11, 7) = -5.0009415078673951E-02_dp
4490 36 : fit_coef(12, 7) = 1.5360303269937313E-02_dp
4491 36 : fit_coef(0, 8) = 1.2123305472983175E+00_dp
4492 36 : fit_coef(1, 8) = 1.7528922824057094E+00_dp
4493 36 : fit_coef(2, 8) = 1.6839617270590670E+00_dp
4494 36 : fit_coef(3, 8) = 9.9693839370582804E-01_dp
4495 36 : fit_coef(4, 8) = 2.8670772642350745E-01_dp
4496 36 : fit_coef(5, 8) = -6.8905744965899102E-02_dp
4497 36 : fit_coef(6, 8) = -9.8654503643879704E-02_dp
4498 36 : fit_coef(7, 8) = -8.3833733804509133E-02_dp
4499 36 : fit_coef(8, 8) = 9.6718797026550299E-02_dp
4500 36 : fit_coef(9, 8) = -1.6741156687903433E-01_dp
4501 36 : fit_coef(10, 8) = 2.2372278410722946E-01_dp
4502 36 : fit_coef(11, 8) = -1.2395029372556110E-01_dp
4503 36 : fit_coef(12, 8) = 2.4118562336799924E-02_dp
4504 36 : fit_coef(0, 9) = 1.9789993531060730E+00_dp
4505 36 : fit_coef(1, 9) = 2.3876726133812909E+00_dp
4506 36 : fit_coef(2, 9) = 2.0983662040251230E+00_dp
4507 36 : fit_coef(3, 9) = 1.1384504548954626E+00_dp
4508 36 : fit_coef(4, 9) = 3.1166074671817184E-01_dp
4509 36 : fit_coef(5, 9) = -3.8607395105363457E-02_dp
4510 36 : fit_coef(6, 9) = -6.8592782585259429E-02_dp
4511 36 : fit_coef(7, 9) = -5.9599143650154687E-02_dp
4512 36 : fit_coef(8, 9) = 1.5691989539307449E-02_dp
4513 36 : fit_coef(9, 9) = -6.2725923481489740E-02_dp
4514 36 : fit_coef(10, 9) = 6.0324082207683011E-02_dp
4515 36 : fit_coef(11, 9) = 8.7062543323561756E-03_dp
4516 36 : fit_coef(12, 9) = -1.3873325190108787E-02_dp
4517 36 : fit_coef(0, 10) = 3.2058934682668765E+00_dp
4518 36 : fit_coef(1, 10) = 3.1496633677047572E+00_dp
4519 36 : fit_coef(2, 10) = 2.5365793238247520E+00_dp
4520 36 : fit_coef(3, 10) = 1.2508497217707608E+00_dp
4521 36 : fit_coef(4, 10) = 3.1872392758788848E-01_dp
4522 36 : fit_coef(5, 10) = -2.0600061181166207E-03_dp
4523 36 : fit_coef(6, 10) = -3.1041845624322214E-02_dp
4524 36 : fit_coef(7, 10) = -1.2321496532646232E-02_dp
4525 36 : fit_coef(8, 10) = -8.3121266244633590E-02_dp
4526 36 : fit_coef(9, 10) = 7.0964635310385341E-02_dp
4527 36 : fit_coef(10, 10) = -9.6237663309511903E-02_dp
4528 36 : fit_coef(11, 10) = 9.4035522256218335E-02_dp
4529 36 : fit_coef(12, 10) = -2.9123579370706108E-02_dp
4530 36 : fit_coef(0, 11) = 5.1968506439191477E+00_dp
4531 36 : fit_coef(1, 11) = 4.0268304189360205E+00_dp
4532 36 : fit_coef(2, 11) = 2.9970061410634696E+00_dp
4533 36 : fit_coef(3, 11) = 1.3425771299145335E+00_dp
4534 36 : fit_coef(4, 11) = 3.1423213151024637E-01_dp
4535 36 : fit_coef(5, 11) = 3.5373029368206500E-02_dp
4536 36 : fit_coef(6, 11) = 1.9061738352272550E-02_dp
4537 36 : fit_coef(7, 11) = 2.6409588889696359E-03_dp
4538 36 : fit_coef(8, 11) = -8.0417831524322025E-02_dp
4539 36 : fit_coef(9, 11) = 4.2275831208402226E-02_dp
4540 36 : fit_coef(10, 11) = -5.5418627131360906E-02_dp
4541 36 : fit_coef(11, 11) = 4.9224692889938519E-02_dp
4542 36 : fit_coef(12, 11) = -1.2095050837781235E-02_dp
4543 36 : fit_coef(0, 12) = 8.6390361849437944E+00_dp
4544 36 : fit_coef(1, 12) = 5.0136507853028878E+00_dp
4545 36 : fit_coef(2, 12) = 3.4986136939910475E+00_dp
4546 36 : fit_coef(3, 12) = 1.4331799180952967E+00_dp
4547 36 : fit_coef(4, 12) = 3.0383064834623563E-01_dp
4548 36 : fit_coef(5, 12) = 7.1865533368803650E-02_dp
4549 36 : fit_coef(6, 12) = 7.2720154429931433E-02_dp
4550 36 : fit_coef(7, 12) = 9.0385929014071293E-03_dp
4551 36 : fit_coef(8, 12) = -5.0215078840340335E-02_dp
4552 36 : fit_coef(9, 12) = -1.6285869510121675E-02_dp
4553 36 : fit_coef(10, 12) = 1.8810174768165218E-02_dp
4554 36 : fit_coef(11, 12) = -4.9947183805966527E-03_dp
4555 36 : fit_coef(12, 12) = 2.0646826965866082E-03_dp
4556 36 : fit_coef(0, 13) = 1.2309045987914696E-02_dp
4557 36 : fit_coef(1, 13) = 3.2903305474272386E-02_dp
4558 36 : fit_coef(2, 13) = 4.2910210824443497E-02_dp
4559 36 : fit_coef(3, 13) = 3.1546310458948443E-02_dp
4560 36 : fit_coef(4, 13) = 9.6441395261976804E-03_dp
4561 36 : fit_coef(5, 13) = -4.4817476203074733E-03_dp
4562 36 : fit_coef(6, 13) = -5.2171109042265578E-03_dp
4563 36 : fit_coef(7, 13) = -4.9480341958360466E-04_dp
4564 36 : fit_coef(8, 13) = 1.2767786392278010E-03_dp
4565 36 : fit_coef(9, 13) = 8.4783300412091171E-04_dp
4566 36 : fit_coef(10, 13) = -1.1459374668372458E-03_dp
4567 36 : fit_coef(11, 13) = 5.7451555318326379E-04_dp
4568 36 : fit_coef(12, 13) = -1.2838651639065425E-04_dp
4569 36 : fit_coef(0, 14) = 3.0520606650124064E-02_dp
4570 36 : fit_coef(1, 14) = 7.8713058722533771E-02_dp
4571 36 : fit_coef(2, 14) = 1.0070665977979393E-01_dp
4572 36 : fit_coef(3, 14) = 7.2776550328791670E-02_dp
4573 36 : fit_coef(4, 14) = 2.1600668660132882E-02_dp
4574 36 : fit_coef(5, 14) = -1.0555564054529464E-02_dp
4575 36 : fit_coef(6, 14) = -1.1793835693071972E-02_dp
4576 36 : fit_coef(7, 14) = -9.6297146505358621E-04_dp
4577 36 : fit_coef(8, 14) = 2.9732450457490918E-03_dp
4578 36 : fit_coef(9, 14) = 1.7819794140024070E-03_dp
4579 36 : fit_coef(10, 14) = -2.5012216511924486E-03_dp
4580 36 : fit_coef(11, 14) = 1.2501076056785740E-03_dp
4581 36 : fit_coef(12, 14) = -2.7830976323044436E-04_dp
4582 36 : fit_coef(0, 15) = 5.4104615066817303E-02_dp
4583 36 : fit_coef(1, 15) = 1.2949473893963137E-01_dp
4584 36 : fit_coef(2, 15) = 1.6007411910969396E-01_dp
4585 36 : fit_coef(3, 15) = 1.1246986879057709E-01_dp
4586 36 : fit_coef(4, 15) = 3.1687096013120898E-02_dp
4587 36 : fit_coef(5, 15) = -1.6843831926749306E-02_dp
4588 36 : fit_coef(6, 15) = -1.7499787344842720E-02_dp
4589 36 : fit_coef(7, 15) = -1.0003535746501569E-03_dp
4590 36 : fit_coef(8, 15) = 4.5492268626677436E-03_dp
4591 36 : fit_coef(9, 15) = 2.3968134835377171E-03_dp
4592 36 : fit_coef(10, 15) = -3.5437690918133768E-03_dp
4593 36 : fit_coef(11, 15) = 1.7505580597451528E-03_dp
4594 36 : fit_coef(12, 15) = -3.8471361244187636E-04_dp
4595 36 : fit_coef(0, 16) = 8.8713962386069239E-02_dp
4596 36 : fit_coef(1, 16) = 1.8782619870062861E-01_dp
4597 36 : fit_coef(2, 16) = 2.1958966435206734E-01_dp
4598 36 : fit_coef(3, 16) = 1.4951615375763633E-01_dp
4599 36 : fit_coef(4, 16) = 4.0416134448872314E-02_dp
4600 36 : fit_coef(5, 16) = -2.3556358508589833E-02_dp
4601 36 : fit_coef(6, 16) = -2.2705784163903314E-02_dp
4602 36 : fit_coef(7, 16) = -2.4239170766668074E-04_dp
4603 36 : fit_coef(8, 16) = 7.8042834525613135E-03_dp
4604 36 : fit_coef(9, 16) = -4.9113258408041134E-04_dp
4605 36 : fit_coef(10, 16) = -1.9479282277976330E-03_dp
4606 36 : fit_coef(11, 16) = 1.2196593353575873E-03_dp
4607 36 : fit_coef(12, 16) = -3.1694142020982456E-04_dp
4608 36 : fit_coef(0, 17) = 1.4348763712172333E-01_dp
4609 36 : fit_coef(1, 17) = 2.5746461675937976E-01_dp
4610 36 : fit_coef(2, 17) = 2.7495919513020706E-01_dp
4611 36 : fit_coef(3, 17) = 1.7887972591601542E-01_dp
4612 36 : fit_coef(4, 17) = 5.1311785540495640E-02_dp
4613 36 : fit_coef(5, 17) = -2.4925938907640350E-02_dp
4614 36 : fit_coef(6, 17) = -3.1142444913188724E-02_dp
4615 36 : fit_coef(7, 17) = -2.1097798874644825E-03_dp
4616 36 : fit_coef(8, 17) = 6.5586673591109508E-03_dp
4617 36 : fit_coef(9, 17) = 2.0478515204581191E-02_dp
4618 36 : fit_coef(10, 17) = -2.9823701948863770E-02_dp
4619 36 : fit_coef(11, 17) = 1.6872186230723108E-02_dp
4620 36 : fit_coef(12, 17) = -3.7548105037558685E-03_dp
4621 36 : fit_coef(0, 18) = 2.3202358256485947E-01_dp
4622 36 : fit_coef(1, 18) = 3.4341973939523573E-01_dp
4623 36 : fit_coef(2, 18) = 3.2325120093458798E-01_dp
4624 36 : fit_coef(3, 18) = 1.9035817858464060E-01_dp
4625 36 : fit_coef(4, 18) = 5.9225378877332230E-02_dp
4626 36 : fit_coef(5, 18) = -9.4096717658205004E-03_dp
4627 36 : fit_coef(6, 18) = -3.1716501677007125E-02_dp
4628 36 : fit_coef(7, 18) = -3.4342725566089858E-03_dp
4629 36 : fit_coef(8, 18) = -3.6117207531663649E-02_dp
4630 36 : fit_coef(9, 18) = 7.0489947329726826E-02_dp
4631 36 : fit_coef(10, 18) = -3.4005775663369868E-02_dp
4632 36 : fit_coef(11, 18) = -2.1420043382904190E-03_dp
4633 36 : fit_coef(12, 18) = 4.1297341956319060E-03_dp
4634 36 : fit_coef(0, 19) = 3.7428328098642150E-01_dp
4635 36 : fit_coef(1, 19) = 4.4856859975928659E-01_dp
4636 36 : fit_coef(2, 19) = 3.6501433131086519E-01_dp
4637 36 : fit_coef(3, 19) = 1.8076014515005295E-01_dp
4638 36 : fit_coef(4, 19) = 5.3394895281397445E-02_dp
4639 36 : fit_coef(5, 19) = 9.7271953924831494E-03_dp
4640 36 : fit_coef(6, 19) = 6.5024998766183614E-03_dp
4641 36 : fit_coef(7, 19) = -5.6807667997414525E-02_dp
4642 36 : fit_coef(8, 19) = 8.5060380392462415E-02_dp
4643 36 : fit_coef(9, 19) = -2.0020496460057130E-01_dp
4644 36 : fit_coef(10, 19) = 2.5161185176172424E-01_dp
4645 36 : fit_coef(11, 19) = -1.4235287380012143E-01_dp
4646 36 : fit_coef(12, 19) = 3.0493092100125858E-02_dp
4647 36 : fit_coef(0, 20) = 6.0072363160772879E-01_dp
4648 36 : fit_coef(1, 20) = 5.7028422329589301E-01_dp
4649 36 : fit_coef(2, 20) = 4.0013007703573727E-01_dp
4650 36 : fit_coef(3, 20) = 1.5645364840008563E-01_dp
4651 36 : fit_coef(4, 20) = 3.5325876772107849E-02_dp
4652 36 : fit_coef(5, 20) = 2.4573063136551693E-02_dp
4653 36 : fit_coef(6, 20) = 3.0002223471025873E-02_dp
4654 36 : fit_coef(7, 20) = -1.9881304587976378E-02_dp
4655 36 : fit_coef(8, 20) = 1.0115048553542312E-02_dp
4656 36 : fit_coef(9, 20) = -5.4992791578093891E-02_dp
4657 36 : fit_coef(10, 20) = 7.6777053071169160E-03_dp
4658 36 : fit_coef(11, 20) = 4.6072145627107347E-02_dp
4659 36 : fit_coef(12, 20) = -2.2183512517221421E-02_dp
4660 36 : fit_coef(0, 21) = 9.6043920592225018E-01_dp
4661 36 : fit_coef(1, 21) = 6.9944535349071602E-01_dp
4662 36 : fit_coef(2, 21) = 4.2734572555968520E-01_dp
4663 36 : fit_coef(3, 21) = 1.2636666009694217E-01_dp
4664 36 : fit_coef(4, 21) = 1.5064634695905944E-02_dp
4665 36 : fit_coef(5, 21) = 3.4716238870572014E-02_dp
4666 36 : fit_coef(6, 21) = 3.1317370170347261E-02_dp
4667 36 : fit_coef(7, 21) = 5.3593201219119903E-02_dp
4668 36 : fit_coef(8, 21) = -1.3301585636639335E-01_dp
4669 36 : fit_coef(9, 21) = 1.9267279137188889E-01_dp
4670 36 : fit_coef(10, 21) = -2.4206546149930569E-01_dp
4671 36 : fit_coef(11, 21) = 1.5617787264354296E-01_dp
4672 36 : fit_coef(12, 21) = -3.7036502375757153E-02_dp
4673 36 : fit_coef(0, 22) = 1.5411563268918131E+00_dp
4674 36 : fit_coef(1, 22) = 8.2232573092114225E-01_dp
4675 36 : fit_coef(2, 22) = 4.4862113308179175E-01_dp
4676 36 : fit_coef(3, 22) = 9.9831855190677568E-02_dp
4677 36 : fit_coef(4, 22) = 2.0555253555204072E-04_dp
4678 36 : fit_coef(5, 22) = 3.7473053552323943E-02_dp
4679 36 : fit_coef(6, 22) = 4.4849690487304791E-02_dp
4680 36 : fit_coef(7, 22) = 3.0975652422523699E-02_dp
4681 36 : fit_coef(8, 22) = -4.3734383490695965E-02_dp
4682 36 : fit_coef(9, 22) = 4.2410222686447063E-02_dp
4683 36 : fit_coef(10, 22) = -4.1372075255841384E-02_dp
4684 36 : fit_coef(11, 22) = 3.9840636595015544E-03_dp
4685 36 : fit_coef(12, 22) = 6.7429310166998080E-03_dp
4686 36 : fit_coef(0, 23) = 2.5398045384820884E+00_dp
4687 36 : fit_coef(1, 23) = 9.2972371375931584E-01_dp
4688 36 : fit_coef(2, 23) = 4.7467813354768001E-01_dp
4689 36 : fit_coef(3, 23) = 8.6733603768484421E-02_dp
4690 36 : fit_coef(4, 23) = -8.2527901024651990E-03_dp
4691 36 : fit_coef(5, 23) = 3.7146900277764211E-02_dp
4692 36 : fit_coef(6, 23) = 5.3317290655855602E-02_dp
4693 36 : fit_coef(7, 23) = 4.9026643386959707E-03_dp
4694 36 : fit_coef(8, 23) = 3.1627402676112949E-02_dp
4695 36 : fit_coef(9, 23) = -6.8971662666575367E-02_dp
4696 36 : fit_coef(10, 23) = 8.6156199337311154E-02_dp
4697 36 : fit_coef(11, 23) = -6.7821612909471307E-02_dp
4698 36 : fit_coef(12, 23) = 2.0108151024555578E-02_dp
4699 36 : fit_coef(0, 24) = 4.6893655829446335E+00_dp
4700 36 : fit_coef(1, 24) = 1.0584609550444721E+00_dp
4701 36 : fit_coef(2, 24) = 5.4301054603506849E-01_dp
4702 36 : fit_coef(3, 24) = 1.0134661869424059E-01_dp
4703 36 : fit_coef(4, 24) = -1.1773405982811336E-02_dp
4704 36 : fit_coef(5, 24) = 3.5814305836818772E-02_dp
4705 36 : fit_coef(6, 24) = 5.3896955561631099E-02_dp
4706 36 : fit_coef(7, 24) = 1.1794245491552634E-02_dp
4707 36 : fit_coef(8, 24) = 2.0345857593909816E-02_dp
4708 36 : fit_coef(9, 24) = -3.4998963970591324E-02_dp
4709 36 : fit_coef(10, 24) = 4.8444694673587890E-02_dp
4710 36 : fit_coef(11, 24) = -3.2817041946018727E-02_dp
4711 36 : fit_coef(12, 24) = 6.8092769866170090E-03_dp
4712 :
4713 36 : 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 34 : 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 34 : L_b = 1.0000000000000000E+02_dp
4728 34 : U_b = 1.1533853671352736E+03_dp
4729 34 : fit_coef(0, 1) = 6.6326907649095958E-04_dp
4730 34 : fit_coef(1, 1) = 1.8894159031673920E-03_dp
4731 34 : fit_coef(2, 1) = 2.7089355355061177E-03_dp
4732 34 : fit_coef(3, 1) = 2.3224757764888754E-03_dp
4733 34 : fit_coef(4, 1) = 1.0863117203975862E-03_dp
4734 34 : fit_coef(5, 1) = 4.5151540703808010E-05_dp
4735 34 : fit_coef(6, 1) = -2.3515149052107272E-04_dp
4736 34 : fit_coef(7, 1) = -8.2929268974049080E-05_dp
4737 34 : fit_coef(8, 1) = 1.1614919956202285E-04_dp
4738 34 : fit_coef(9, 1) = -2.5284724218147597E-05_dp
4739 34 : fit_coef(10, 1) = -1.3858258705778020E-05_dp
4740 34 : fit_coef(11, 1) = 8.0009405004549032E-06_dp
4741 34 : fit_coef(12, 1) = -1.0748701295750969E-06_dp
4742 34 : fit_coef(0, 2) = 3.8227101929591994E-03_dp
4743 34 : fit_coef(1, 2) = 1.0364280264194323E-02_dp
4744 34 : fit_coef(2, 2) = 1.4590446568112637E-02_dp
4745 34 : fit_coef(3, 2) = 1.2309386146930817E-02_dp
4746 34 : fit_coef(4, 2) = 5.6468571531384185E-03_dp
4747 34 : fit_coef(5, 2) = 1.8293346115620324E-04_dp
4748 34 : fit_coef(6, 2) = -1.2260374384726667E-03_dp
4749 34 : fit_coef(7, 2) = -4.2679063675895478E-04_dp
4750 34 : fit_coef(8, 2) = 6.4562440386666691E-04_dp
4751 34 : fit_coef(9, 2) = -2.0425912250358465E-04_dp
4752 34 : fit_coef(10, 2) = -1.0718250746829363E-05_dp
4753 34 : fit_coef(11, 2) = 1.3450401493497087E-05_dp
4754 34 : fit_coef(12, 2) = 3.6903867124824597E-08_dp
4755 34 : fit_coef(0, 3) = 1.1208738658104969E-02_dp
4756 34 : fit_coef(1, 3) = 2.7433467450107527E-02_dp
4757 34 : fit_coef(2, 3) = 3.7122781203738041E-02_dp
4758 34 : fit_coef(3, 3) = 3.0505000476205493E-02_dp
4759 34 : fit_coef(4, 3) = 1.3613669155986628E-02_dp
4760 34 : fit_coef(5, 3) = 2.0805962290796248E-04_dp
4761 34 : fit_coef(6, 3) = -3.0074089272987834E-03_dp
4762 34 : fit_coef(7, 3) = -1.0066712315667174E-03_dp
4763 34 : fit_coef(8, 3) = 1.8121892538119837E-03_dp
4764 34 : fit_coef(9, 3) = -8.6670466868856387E-04_dp
4765 34 : fit_coef(10, 3) = 2.3031588351142570E-04_dp
4766 34 : fit_coef(11, 3) = -6.1244719299360145E-05_dp
4767 34 : fit_coef(12, 3) = 1.5021644001300220E-05_dp
4768 34 : fit_coef(0, 4) = 2.7060109838528964E-02_dp
4769 34 : fit_coef(1, 4) = 5.7181276021668774E-02_dp
4770 34 : fit_coef(2, 4) = 7.2163197996693393E-02_dp
4771 34 : fit_coef(3, 4) = 5.6401492360043291E-02_dp
4772 34 : fit_coef(4, 4) = 2.4397958649191483E-02_dp
4773 34 : fit_coef(5, 4) = 4.1542953141707141E-04_dp
4774 34 : fit_coef(6, 4) = -5.4082092785117776E-03_dp
4775 34 : fit_coef(7, 4) = -1.9248439551360079E-03_dp
4776 34 : fit_coef(8, 4) = 2.9200980290588186E-03_dp
4777 34 : fit_coef(9, 4) = -9.7952619465276037E-04_dp
4778 34 : fit_coef(10, 4) = 1.6789215463763337E-04_dp
4779 34 : fit_coef(11, 4) = -1.4147604636971736E-04_dp
4780 34 : fit_coef(12, 4) = 6.0667969636576076E-05_dp
4781 34 : fit_coef(0, 5) = 6.0162354447464560E-02_dp
4782 34 : fit_coef(1, 5) = 1.0720429058942169E-01_dp
4783 34 : fit_coef(2, 5) = 1.2343759565688829E-01_dp
4784 34 : fit_coef(3, 5) = 8.8531585067086430E-02_dp
4785 34 : fit_coef(4, 5) = 3.5364287351100372E-02_dp
4786 34 : fit_coef(5, 5) = 6.0629507679625032E-04_dp
4787 34 : fit_coef(6, 5) = -6.6115157196993245E-03_dp
4788 34 : fit_coef(7, 5) = -3.1579068142273776E-03_dp
4789 34 : fit_coef(8, 5) = 5.0366482632659849E-03_dp
4790 34 : fit_coef(9, 5) = -5.0447339830031095E-03_dp
4791 34 : fit_coef(10, 5) = 4.5014753449279963E-03_dp
4792 34 : fit_coef(11, 5) = -2.3546672147255598E-03_dp
4793 34 : fit_coef(12, 5) = 5.0845127538551175E-04_dp
4794 34 : fit_coef(0, 6) = 1.2715764725238982E-01_dp
4795 34 : fit_coef(1, 6) = 1.8881057094422343E-01_dp
4796 34 : fit_coef(2, 6) = 1.9672779228400020E-01_dp
4797 34 : fit_coef(3, 6) = 1.2577665875739202E-01_dp
4798 34 : fit_coef(4, 6) = 4.3061470368101699E-02_dp
4799 34 : fit_coef(5, 6) = -9.4453422287111893E-04_dp
4800 34 : fit_coef(6, 6) = -6.1901712508776350E-03_dp
4801 34 : fit_coef(7, 6) = -2.9123796915168040E-03_dp
4802 34 : fit_coef(8, 6) = 7.5406628009243720E-03_dp
4803 34 : fit_coef(9, 6) = -1.0878759759659724E-02_dp
4804 34 : fit_coef(10, 6) = 9.0511431231051973E-03_dp
4805 34 : fit_coef(11, 6) = -3.9841133010950968E-03_dp
4806 34 : fit_coef(12, 6) = 7.4476527248770687E-04_dp
4807 34 : fit_coef(0, 7) = 2.5849300626981397E-01_dp
4808 34 : fit_coef(1, 7) = 3.1665344505552956E-01_dp
4809 34 : fit_coef(2, 7) = 2.9840462942608115E-01_dp
4810 34 : fit_coef(3, 7) = 1.6655149775226027E-01_dp
4811 34 : fit_coef(4, 7) = 4.4635943287943819E-02_dp
4812 34 : fit_coef(5, 7) = -5.0840338248153878E-03_dp
4813 34 : fit_coef(6, 7) = -4.1935958573150935E-03_dp
4814 34 : fit_coef(7, 7) = -1.2238069004985115E-03_dp
4815 34 : fit_coef(8, 7) = 1.0355993093508651E-02_dp
4816 34 : fit_coef(9, 7) = -1.8364631667690871E-02_dp
4817 34 : fit_coef(10, 7) = 1.5416014403986910E-02_dp
4818 34 : fit_coef(11, 7) = -6.8470052029501608E-03_dp
4819 34 : fit_coef(12, 7) = 1.3249810031683059E-03_dp
4820 34 : fit_coef(0, 8) = 5.0864125871117427E-01_dp
4821 34 : fit_coef(1, 8) = 5.0748696881076827E-01_dp
4822 34 : fit_coef(2, 8) = 4.3378556875785329E-01_dp
4823 34 : fit_coef(3, 8) = 2.0761241946020209E-01_dp
4824 34 : fit_coef(4, 8) = 3.7494223843576979E-02_dp
4825 34 : fit_coef(5, 8) = -1.1199453066603072E-02_dp
4826 34 : fit_coef(6, 8) = 2.6211861457654248E-04_dp
4827 34 : fit_coef(7, 8) = 1.0181856045809953E-03_dp
4828 34 : fit_coef(8, 8) = 1.3617506208780007E-02_dp
4829 34 : fit_coef(9, 8) = -2.9083172474373836E-02_dp
4830 34 : fit_coef(10, 8) = 2.6093940387631132E-02_dp
4831 34 : fit_coef(11, 8) = -1.2187538547457615E-02_dp
4832 34 : fit_coef(12, 8) = 2.4442839760494672E-03_dp
4833 34 : fit_coef(0, 9) = 9.7351269086421022E-01_dp
4834 34 : fit_coef(1, 9) = 7.7682804453441712E-01_dp
4835 34 : fit_coef(2, 9) = 6.0537341804741274E-01_dp
4836 34 : fit_coef(3, 9) = 2.4417103093525630E-01_dp
4837 34 : fit_coef(4, 9) = 1.9643095133629673E-02_dp
4838 34 : fit_coef(5, 9) = -1.7552027242727909E-02_dp
4839 34 : fit_coef(6, 9) = 8.2268681071634708E-03_dp
4840 34 : fit_coef(7, 9) = 3.3800170464644732E-03_dp
4841 34 : fit_coef(8, 9) = 1.5951520448433745E-02_dp
4842 34 : fit_coef(9, 9) = -4.2082858702406162E-02_dp
4843 34 : fit_coef(10, 9) = 4.0832752772189854E-02_dp
4844 34 : fit_coef(11, 9) = -1.9914993594640506E-02_dp
4845 34 : fit_coef(12, 9) = 4.0828025408897019E-03_dp
4846 34 : fit_coef(0, 10) = 1.8218150409063079E+00_dp
4847 34 : fit_coef(1, 10) = 1.1328940612144838E+00_dp
4848 34 : fit_coef(2, 10) = 8.1145165005204600E-01_dp
4849 34 : fit_coef(3, 10) = 2.7169894714361381E-01_dp
4850 34 : fit_coef(4, 10) = -9.2391365403536683E-03_dp
4851 34 : fit_coef(5, 10) = -2.1969808519198136E-02_dp
4852 34 : fit_coef(6, 10) = 2.0246181533686430E-02_dp
4853 34 : fit_coef(7, 10) = 5.2443671348299629E-03_dp
4854 34 : fit_coef(8, 10) = 1.6294437997198600E-02_dp
4855 34 : fit_coef(9, 10) = -5.6113566142827496E-02_dp
4856 34 : fit_coef(10, 10) = 5.9108716717708169E-02_dp
4857 34 : fit_coef(11, 10) = -3.0017787615102216E-02_dp
4858 34 : fit_coef(12, 10) = 6.2851355640176588E-03_dp
4859 34 : fit_coef(0, 11) = 3.3638892281286350E+00_dp
4860 34 : fit_coef(1, 11) = 1.5701436592256290E+00_dp
4861 34 : fit_coef(2, 11) = 1.0468794820440899E+00_dp
4862 34 : fit_coef(3, 11) = 2.8932244841622851E-01_dp
4863 34 : fit_coef(4, 11) = -4.7147330695069850E-02_dp
4864 34 : fit_coef(5, 11) = -2.3231305463748575E-02_dp
4865 34 : fit_coef(6, 11) = 3.5814349205865105E-02_dp
4866 34 : fit_coef(7, 11) = 6.1681105190574941E-03_dp
4867 34 : fit_coef(8, 11) = 1.4380388978420344E-02_dp
4868 34 : fit_coef(9, 11) = -7.0072767054186372E-02_dp
4869 34 : fit_coef(10, 11) = 7.9925293980236525E-02_dp
4870 34 : fit_coef(11, 11) = -4.2106160715496485E-02_dp
4871 34 : fit_coef(12, 11) = 8.9934277746186089E-03_dp
4872 34 : fit_coef(0, 12) = 6.2958157177735696E+00_dp
4873 34 : fit_coef(1, 12) = 2.0736278555613925E+00_dp
4874 34 : fit_coef(2, 12) = 1.3100027104859728E+00_dp
4875 34 : fit_coef(3, 12) = 3.0309841684283917E-01_dp
4876 34 : fit_coef(4, 12) = -9.0874734045887973E-02_dp
4877 34 : fit_coef(5, 12) = -2.2511990033847892E-02_dp
4878 34 : fit_coef(6, 12) = 5.3762327238007911E-02_dp
4879 34 : fit_coef(7, 12) = 6.4301275560599072E-03_dp
4880 34 : fit_coef(8, 12) = 1.1130561807738493E-02_dp
4881 34 : fit_coef(9, 12) = -8.4343774419336590E-02_dp
4882 34 : fit_coef(10, 12) = 1.0282039809053546E-01_dp
4883 34 : fit_coef(11, 12) = -5.5735942843285882E-02_dp
4884 34 : fit_coef(12, 12) = 1.2089953955292771E-02_dp
4885 34 : fit_coef(0, 13) = 1.7361176995326563E-03_dp
4886 34 : fit_coef(1, 13) = 4.8950464700643088E-03_dp
4887 34 : fit_coef(2, 13) = 6.9887889000087690E-03_dp
4888 34 : fit_coef(3, 13) = 5.9681592147681978E-03_dp
4889 34 : fit_coef(4, 13) = 2.7797694969593904E-03_dp
4890 34 : fit_coef(5, 13) = 1.0974079237570183E-04_dp
4891 34 : fit_coef(6, 13) = -6.0276261358583726E-04_dp
4892 34 : fit_coef(7, 13) = -2.1159566479273911E-04_dp
4893 34 : fit_coef(8, 13) = 3.0294248744461766E-04_dp
4894 34 : fit_coef(9, 13) = -7.4399992147188479E-05_dp
4895 34 : fit_coef(10, 13) = -2.7468045558828552E-05_dp
4896 34 : fit_coef(11, 13) = 1.6865141251068427E-05_dp
4897 34 : fit_coef(12, 13) = -2.0377510281004492E-06_dp
4898 34 : fit_coef(0, 14) = 4.8355092096145566E-03_dp
4899 34 : fit_coef(1, 14) = 1.2333932959289709E-02_dp
4900 34 : fit_coef(2, 14) = 1.6972825457174837E-02_dp
4901 34 : fit_coef(3, 14) = 1.4060909191254103E-02_dp
4902 34 : fit_coef(4, 14) = 6.2955683700635671E-03_dp
4903 34 : fit_coef(5, 14) = 1.2177301196491723E-04_dp
4904 34 : fit_coef(6, 14) = -1.3677107176344808E-03_dp
4905 34 : fit_coef(7, 14) = -4.6095049437820380E-04_dp
4906 34 : fit_coef(8, 14) = 7.6937933826695876E-04_dp
4907 34 : fit_coef(9, 14) = -3.3164200459717756E-04_dp
4908 34 : fit_coef(10, 14) = 8.1724364865420408E-05_dp
4909 34 : fit_coef(11, 14) = -2.9312146170772606E-05_dp
4910 34 : fit_coef(12, 14) = 8.9970999683901846E-06_dp
4911 34 : fit_coef(0, 15) = 1.0612378818881555E-02_dp
4912 34 : fit_coef(1, 15) = 2.2459336506101473E-02_dp
4913 34 : fit_coef(2, 15) = 2.8371129792457078E-02_dp
4914 34 : fit_coef(3, 15) = 2.2261852601842439E-02_dp
4915 34 : fit_coef(4, 15) = 9.5999731643326893E-03_dp
4916 34 : fit_coef(5, 15) = -1.8558563529812452E-05_dp
4917 34 : fit_coef(6, 15) = -2.2357421491240670E-03_dp
4918 34 : fit_coef(7, 15) = -7.4423534393391617E-04_dp
4919 34 : fit_coef(8, 15) = 1.5057122702193376E-03_dp
4920 34 : fit_coef(9, 15) = -7.0297537707829122E-04_dp
4921 34 : fit_coef(10, 15) = 7.1959722147797053E-05_dp
4922 34 : fit_coef(11, 15) = 4.6639800520364974E-05_dp
4923 34 : fit_coef(12, 15) = -1.2660883153173911E-05_dp
4924 34 : fit_coef(0, 16) = 2.2502651094608313E-02_dp
4925 34 : fit_coef(1, 16) = 3.8302915711040345E-02_dp
4926 34 : fit_coef(2, 16) = 4.2327776536488830E-02_dp
4927 34 : fit_coef(3, 16) = 2.9242971747304312E-02_dp
4928 34 : fit_coef(4, 16) = 1.1483493368870591E-02_dp
4929 34 : fit_coef(5, 16) = 4.4372686263633332E-04_dp
4930 34 : fit_coef(6, 16) = -2.1409365324177557E-03_dp
4931 34 : fit_coef(7, 16) = -1.1499475056719786E-03_dp
4932 34 : fit_coef(8, 16) = 9.9305143157658372E-04_dp
4933 34 : fit_coef(9, 16) = -8.6357250324013148E-04_dp
4934 34 : fit_coef(10, 16) = 1.4327807191970657E-03_dp
4935 34 : fit_coef(11, 16) = -1.0670863396023819E-03_dp
4936 34 : fit_coef(12, 16) = 2.8011891218022886E-04_dp
4937 34 : fit_coef(0, 17) = 4.6379852772014826E-02_dp
4938 34 : fit_coef(1, 17) = 6.3632440293261802E-02_dp
4939 34 : fit_coef(2, 17) = 6.1214298124389097E-02_dp
4940 34 : fit_coef(3, 17) = 3.4856680478514791E-02_dp
4941 34 : fit_coef(4, 17) = 9.8511055688256591E-03_dp
4942 34 : fit_coef(5, 17) = -4.1408424159966774E-04_dp
4943 34 : fit_coef(6, 17) = -2.7116403636660304E-04_dp
4944 34 : fit_coef(7, 17) = -8.3345412989501344E-04_dp
4945 34 : fit_coef(8, 17) = 2.8388169463227923E-03_dp
4946 34 : fit_coef(9, 17) = -6.0896330652201345E-03_dp
4947 34 : fit_coef(10, 17) = 5.4431369422386086E-03_dp
4948 34 : fit_coef(11, 17) = -2.2497263945134662E-03_dp
4949 34 : fit_coef(12, 17) = 3.6399313731776849E-04_dp
4950 34 : fit_coef(0, 18) = 9.2521202823536430E-02_dp
4951 34 : fit_coef(1, 18) = 1.0203973195050642E-01_dp
4952 34 : fit_coef(2, 18) = 8.6453931343429755E-02_dp
4953 34 : fit_coef(3, 18) = 3.9391412232875435E-02_dp
4954 34 : fit_coef(4, 18) = 5.0815288567403350E-03_dp
4955 34 : fit_coef(5, 18) = -2.8315021323427666E-03_dp
4956 34 : fit_coef(6, 18) = 1.1044933352897194E-03_dp
4957 34 : fit_coef(7, 18) = 1.2026713128526101E-03_dp
4958 34 : fit_coef(8, 18) = 2.3687414607481347E-03_dp
4959 34 : fit_coef(9, 18) = -5.9882091197473600E-03_dp
4960 34 : fit_coef(10, 18) = 4.5247728538859366E-03_dp
4961 34 : fit_coef(11, 18) = -1.7071153745195653E-03_dp
4962 34 : fit_coef(12, 18) = 2.9758468692744693E-04_dp
4963 34 : fit_coef(0, 19) = 1.7895123701529778E-01_dp
4964 34 : fit_coef(1, 19) = 1.5649170004661517E-01_dp
4965 34 : fit_coef(2, 19) = 1.1781626034461101E-01_dp
4966 34 : fit_coef(3, 19) = 4.1616478405439042E-02_dp
4967 34 : fit_coef(4, 19) = -2.3717162520277809E-03_dp
4968 34 : fit_coef(5, 19) = -5.3386440882515086E-03_dp
4969 34 : fit_coef(6, 19) = 3.0469549759779353E-03_dp
4970 34 : fit_coef(7, 19) = 2.0334444707206275E-03_dp
4971 34 : fit_coef(8, 19) = 3.2479855073872382E-03_dp
4972 34 : fit_coef(9, 19) = -9.1986286972097365E-03_dp
4973 34 : fit_coef(10, 19) = 8.5242332274741671E-03_dp
4974 34 : fit_coef(11, 19) = -4.1329263555985006E-03_dp
4975 34 : fit_coef(12, 19) = 8.6616145809027139E-04_dp
4976 34 : fit_coef(0, 20) = 3.3684611079928783E-01_dp
4977 34 : fit_coef(1, 20) = 2.2786610373174537E-01_dp
4978 34 : fit_coef(2, 20) = 1.5339071016684352E-01_dp
4979 34 : fit_coef(3, 20) = 3.9677854839472344E-02_dp
4980 34 : fit_coef(4, 20) = -1.2264564209904332E-02_dp
4981 34 : fit_coef(5, 20) = -6.5927521643919379E-03_dp
4982 34 : fit_coef(6, 20) = 6.0512561434243684E-03_dp
4983 34 : fit_coef(7, 20) = 2.3902542529467478E-03_dp
4984 34 : fit_coef(8, 20) = 3.0195138462315793E-03_dp
4985 34 : fit_coef(9, 20) = -1.2050135993152236E-02_dp
4986 34 : fit_coef(10, 20) = 1.2762387029635221E-02_dp
4987 34 : fit_coef(11, 20) = -6.5239286773536758E-03_dp
4988 34 : fit_coef(12, 20) = 1.3694468177831019E-03_dp
4989 34 : fit_coef(0, 21) = 6.2004160201378677E-01_dp
4990 34 : fit_coef(1, 21) = 3.1231452836704038E-01_dp
4991 34 : fit_coef(2, 21) = 1.8949289978076236E-01_dp
4992 34 : fit_coef(3, 21) = 3.2623505491414392E-02_dp
4993 34 : fit_coef(4, 21) = -2.3505999675060181E-02_dp
4994 34 : fit_coef(5, 21) = -5.7260158711334771E-03_dp
4995 34 : fit_coef(6, 21) = 9.9807237729862951E-03_dp
4996 34 : fit_coef(7, 21) = 2.2222797839610000E-03_dp
4997 34 : fit_coef(8, 21) = 1.4664130053888486E-03_dp
4998 34 : fit_coef(9, 21) = -1.3740779304315174E-02_dp
4999 34 : fit_coef(10, 21) = 1.6640549191351679E-02_dp
5000 34 : fit_coef(11, 21) = -8.9416960852337218E-03_dp
5001 34 : fit_coef(12, 21) = 1.9187092435646925E-03_dp
5002 34 : fit_coef(0, 22) = 1.1255181435117496E+00_dp
5003 34 : fit_coef(1, 22) = 3.9889498776431231E-01_dp
5004 34 : fit_coef(2, 22) = 2.2171584629075095E-01_dp
5005 34 : fit_coef(3, 22) = 2.2225826529528901E-02_dp
5006 34 : fit_coef(4, 22) = -3.3907556115484502E-02_dp
5007 34 : fit_coef(5, 22) = -2.8764770890914323E-03_dp
5008 34 : fit_coef(6, 22) = 1.3968131777336038E-02_dp
5009 34 : fit_coef(7, 22) = 1.4214928484319333E-03_dp
5010 34 : fit_coef(8, 22) = -8.3453566281261021E-04_dp
5011 34 : fit_coef(9, 22) = -1.4109958929870586E-02_dp
5012 34 : fit_coef(10, 22) = 1.9726438913848971E-02_dp
5013 34 : fit_coef(11, 22) = -1.1193142315748616E-02_dp
5014 34 : fit_coef(12, 22) = 2.4755702682764356E-03_dp
5015 34 : fit_coef(0, 23) = 2.0598610404318460E+00_dp
5016 34 : fit_coef(1, 23) = 4.7243372474599793E-01_dp
5017 34 : fit_coef(2, 23) = 2.4849210820527318E-01_dp
5018 34 : fit_coef(3, 23) = 1.4006813172765054E-02_dp
5019 34 : fit_coef(4, 23) = -4.1308949825231950E-02_dp
5020 34 : fit_coef(5, 23) = 1.5690842161415170E-04_dp
5021 34 : fit_coef(6, 23) = 1.6942861921432139E-02_dp
5022 34 : fit_coef(7, 23) = 4.7152452086483685E-04_dp
5023 34 : fit_coef(8, 23) = -2.8341187428894861E-03_dp
5024 34 : fit_coef(9, 23) = -1.3846753524951650E-02_dp
5025 34 : fit_coef(10, 23) = 2.1790170949455349E-02_dp
5026 34 : fit_coef(11, 23) = -1.2886556590999076E-02_dp
5027 34 : fit_coef(12, 23) = 2.9162146561646620E-03_dp
5028 34 : fit_coef(0, 24) = 4.1434250198174896E+00_dp
5029 34 : fit_coef(1, 24) = 5.3740865227175982E-01_dp
5030 34 : fit_coef(2, 24) = 2.8197846608440591E-01_dp
5031 34 : fit_coef(3, 24) = 1.6092456027878326E-02_dp
5032 34 : fit_coef(4, 24) = -4.6040710751708042E-02_dp
5033 34 : fit_coef(5, 24) = 6.5042394570127837E-04_dp
5034 34 : fit_coef(6, 24) = 1.8932659149369899E-02_dp
5035 34 : fit_coef(7, 24) = 2.4082473716184700E-04_dp
5036 34 : fit_coef(8, 24) = -3.3484787514316723E-03_dp
5037 34 : fit_coef(9, 24) = -1.5284105573369426E-02_dp
5038 34 : fit_coef(10, 24) = 2.4407280609082902E-02_dp
5039 34 : fit_coef(11, 24) = -1.4513713351654377E-02_dp
5040 34 : fit_coef(12, 24) = 3.2970008560632581E-03_dp
5041 :
5042 34 : 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 76 : 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 76 : L_b = 1.0000000000000000E+02_dp
5057 76 : U_b = 1.0890000000000000E+05_dp
5058 76 : fit_coef(0, 1) = 2.3129808933247259E-05_dp
5059 76 : fit_coef(1, 1) = 1.3229791040971861E-04_dp
5060 76 : fit_coef(2, 1) = 8.9078224043542527E-04_dp
5061 76 : fit_coef(3, 1) = 3.5906725339575205E-04_dp
5062 76 : fit_coef(4, 1) = 1.4513983588735334E-02_dp
5063 76 : fit_coef(5, 1) = -5.2233430638158315E-02_dp
5064 76 : fit_coef(6, 1) = 1.6441632828707831E-01_dp
5065 76 : fit_coef(7, 1) = -3.6058840741824150E-01_dp
5066 76 : fit_coef(8, 1) = 5.3428676974850686E-01_dp
5067 76 : fit_coef(9, 1) = -5.2731672647478189E-01_dp
5068 76 : fit_coef(10, 1) = 3.3265094311193522E-01_dp
5069 76 : fit_coef(11, 1) = -1.2145741283688967E-01_dp
5070 76 : fit_coef(12, 1) = 1.9537487536713263E-02_dp
5071 76 : fit_coef(0, 2) = 2.3455247909237882E-04_dp
5072 76 : fit_coef(1, 2) = 8.2160398869974953E-04_dp
5073 76 : fit_coef(2, 2) = 5.3319821419640272E-03_dp
5074 76 : fit_coef(3, 2) = 6.4575814983609142E-04_dp
5075 76 : fit_coef(4, 2) = 8.7822372114111175E-02_dp
5076 76 : fit_coef(5, 2) = -3.2631392232557216E-01_dp
5077 76 : fit_coef(6, 2) = 1.0208260875409669E+00_dp
5078 76 : fit_coef(7, 2) = -2.2300026314422441E+00_dp
5079 76 : fit_coef(8, 2) = 3.3057374126568657E+00_dp
5080 76 : fit_coef(9, 2) = -3.2713127430468321E+00_dp
5081 76 : fit_coef(10, 2) = 2.0709853451512608E+00_dp
5082 76 : fit_coef(11, 2) = -7.5901118153106462E-01_dp
5083 76 : fit_coef(12, 2) = 1.2254511188136619E-01_dp
5084 76 : fit_coef(0, 3) = 1.1944107046876868E-03_dp
5085 76 : fit_coef(1, 3) = 2.8490802943664383E-03_dp
5086 76 : fit_coef(2, 3) = 1.7507904217475573E-02_dp
5087 76 : fit_coef(3, 3) = -6.4522716917725272E-03_dp
5088 76 : fit_coef(4, 3) = 2.8224130041588374E-01_dp
5089 76 : fit_coef(5, 3) = -1.1757205798515102E+00_dp
5090 76 : fit_coef(6, 3) = 3.7822941249117266E+00_dp
5091 76 : fit_coef(7, 3) = -8.2843383024642065E+00_dp
5092 76 : fit_coef(8, 3) = 1.2238481082417001E+01_dp
5093 76 : fit_coef(9, 3) = -1.2055852436649243E+01_dp
5094 76 : fit_coef(10, 3) = 7.6007782878436343E+00_dp
5095 76 : fit_coef(11, 3) = -2.7765219925860354E+00_dp
5096 76 : fit_coef(12, 3) = 4.4718773429739378E-01_dp
5097 76 : fit_coef(0, 4) = 4.5120683484607405E-03_dp
5098 76 : fit_coef(1, 4) = 7.9095288831978021E-03_dp
5099 76 : fit_coef(2, 4) = 4.6697868261753268E-02_dp
5100 76 : fit_coef(3, 4) = -3.3544522740173804E-02_dp
5101 76 : fit_coef(4, 4) = 7.2425137774094894E-01_dp
5102 76 : fit_coef(5, 4) = -3.2633003302313521E+00_dp
5103 76 : fit_coef(6, 4) = 1.0450673822567490E+01_dp
5104 76 : fit_coef(7, 4) = -2.2594031368355793E+01_dp
5105 76 : fit_coef(8, 4) = 3.3109462208134374E+01_dp
5106 76 : fit_coef(9, 4) = -3.2506292757603717E+01_dp
5107 76 : fit_coef(10, 4) = 2.0487989626895530E+01_dp
5108 76 : fit_coef(11, 4) = -7.4948539272232253E+00_dp
5109 76 : fit_coef(12, 4) = 1.2099196036738793E+00_dp
5110 76 : fit_coef(0, 5) = 1.4248952254027877E-02_dp
5111 76 : fit_coef(1, 5) = 1.9074798942523639E-02_dp
5112 76 : fit_coef(2, 5) = 1.0943167990343619E-01_dp
5113 76 : fit_coef(3, 5) = -1.0671670298403642E-01_dp
5114 76 : fit_coef(4, 5) = 1.6526275275600326E+00_dp
5115 76 : fit_coef(5, 5) = -7.8775178049382024E+00_dp
5116 76 : fit_coef(6, 5) = 2.5305646502994179E+01_dp
5117 76 : fit_coef(7, 5) = -5.4666053461159009E+01_dp
5118 76 : fit_coef(8, 5) = 8.0167059237163343E+01_dp
5119 76 : fit_coef(9, 5) = -7.8825322292091528E+01_dp
5120 76 : fit_coef(10, 5) = 4.9764390489009351E+01_dp
5121 76 : fit_coef(11, 5) = -1.8233568839424560E+01_dp
5122 76 : fit_coef(12, 5) = 2.9478228744193333E+00_dp
5123 76 : fit_coef(0, 6) = 3.9801596054429601E-02_dp
5124 76 : fit_coef(1, 6) = 4.1447021761176796E-02_dp
5125 76 : fit_coef(2, 6) = 2.3270073234920230E-01_dp
5126 76 : fit_coef(3, 6) = -2.7292288542272475E-01_dp
5127 76 : fit_coef(4, 6) = 3.4506136511101664E+00_dp
5128 76 : fit_coef(5, 6) = -1.7124854042561445E+01_dp
5129 76 : fit_coef(6, 6) = 5.5335626634127287E+01_dp
5130 76 : fit_coef(7, 6) = -1.1966893675071402E+02_dp
5131 76 : fit_coef(8, 6) = 1.7554731067692325E+02_dp
5132 76 : fit_coef(9, 6) = -1.7262672563793396E+02_dp
5133 76 : fit_coef(10, 6) = 1.0899761858660371E+02_dp
5134 76 : fit_coef(11, 6) = -3.9946406626328411E+01_dp
5135 76 : fit_coef(12, 6) = 6.4605650754876507E+00_dp
5136 76 : fit_coef(0, 7) = 1.0153848301405891E-01_dp
5137 76 : fit_coef(1, 7) = 8.2744575115798746E-02_dp
5138 76 : fit_coef(2, 7) = 4.5675281550800451E-01_dp
5139 76 : fit_coef(3, 7) = -6.0755960983591895E-01_dp
5140 76 : fit_coef(4, 7) = 6.6840425945230333E+00_dp
5141 76 : fit_coef(5, 7) = -3.4181153764390729E+01_dp
5142 76 : fit_coef(6, 7) = 1.1120663926638191E+02_dp
5143 76 : fit_coef(7, 7) = -2.4092641084144972E+02_dp
5144 76 : fit_coef(8, 7) = 3.5355143552413938E+02_dp
5145 76 : fit_coef(9, 7) = -3.4765931274190069E+02_dp
5146 76 : fit_coef(10, 7) = 2.1950666813842750E+02_dp
5147 76 : fit_coef(11, 7) = -8.0451830347244339E+01_dp
5148 76 : fit_coef(12, 7) = 1.3013672905602384E+01_dp
5149 76 : fit_coef(0, 8) = 2.4141648240665145E-01_dp
5150 76 : fit_coef(1, 8) = 1.5335953037887173E-01_dp
5151 76 : fit_coef(2, 8) = 8.3504832050626976E-01_dp
5152 76 : fit_coef(3, 8) = -1.2178157194978934E+00_dp
5153 76 : fit_coef(4, 8) = 1.2099585014816819E+01_dp
5154 76 : fit_coef(5, 8) = -6.3313617826158982E+01_dp
5155 76 : fit_coef(6, 8) = 2.0741722770815861E+02_dp
5156 76 : fit_coef(7, 8) = -4.5029790616194964E+02_dp
5157 76 : fit_coef(8, 8) = 6.6110515192856462E+02_dp
5158 76 : fit_coef(9, 8) = -6.5007509234254940E+02_dp
5159 76 : fit_coef(10, 8) = 4.1040648800886731E+02_dp
5160 76 : fit_coef(11, 8) = -1.5041026682712433E+02_dp
5161 76 : fit_coef(12, 8) = 2.4330155922976292E+01_dp
5162 76 : fit_coef(0, 9) = 5.4247999033308114E-01_dp
5163 76 : fit_coef(1, 9) = 2.6499445034705121E-01_dp
5164 76 : fit_coef(2, 9) = 1.4268709589831525E+00_dp
5165 76 : fit_coef(3, 9) = -2.2313886617958429E+00_dp
5166 76 : fit_coef(4, 9) = 2.0518890229005105E+01_dp
5167 76 : fit_coef(5, 9) = -1.0930947078396949E+02_dp
5168 76 : fit_coef(6, 9) = 3.6045833696584418E+02_dp
5169 76 : fit_coef(7, 9) = -7.8423527312908436E+02_dp
5170 76 : fit_coef(8, 9) = 1.1520122421721351E+03_dp
5171 76 : fit_coef(9, 9) = -1.1328174992310501E+03_dp
5172 76 : fit_coef(10, 9) = 7.1509445979181294E+02_dp
5173 76 : fit_coef(11, 9) = -2.6204807849728383E+02_dp
5174 76 : fit_coef(12, 9) = 4.2385855620433802E+01_dp
5175 76 : fit_coef(0, 10) = 1.1649235984334310E+00_dp
5176 76 : fit_coef(1, 10) = 4.2669860434201973E-01_dp
5177 76 : fit_coef(2, 10) = 2.2769218254498678E+00_dp
5178 76 : fit_coef(3, 10) = -3.7556598199553419E+00_dp
5179 76 : fit_coef(4, 10) = 3.2554151177465044E+01_dp
5180 76 : fit_coef(5, 10) = -1.7584595871324311E+02_dp
5181 76 : fit_coef(6, 10) = 5.8329724780519552E+02_dp
5182 76 : fit_coef(7, 10) = -1.2717006032060506E+03_dp
5183 76 : fit_coef(8, 10) = 1.8691949694429402E+03_dp
5184 76 : fit_coef(9, 10) = -1.8381765181945018E+03_dp
5185 76 : fit_coef(10, 10) = 1.1602510916037054E+03_dp
5186 76 : fit_coef(11, 10) = -4.2512958735964088E+02_dp
5187 76 : fit_coef(12, 10) = 6.8758003199532453E+01_dp
5188 76 : fit_coef(0, 11) = 2.4212426991212057E+00_dp
5189 76 : fit_coef(1, 11) = 6.3843606877537262E-01_dp
5190 76 : fit_coef(2, 11) = 3.3832944732267647E+00_dp
5191 76 : fit_coef(3, 11) = -5.8032061767073824E+00_dp
5192 76 : fit_coef(4, 11) = 4.8167947114080192E+01_dp
5193 76 : fit_coef(5, 11) = -2.6286759432487781E+02_dp
5194 76 : fit_coef(6, 11) = 8.7620572915548814E+02_dp
5195 76 : fit_coef(7, 11) = -1.9137694452215110E+03_dp
5196 76 : fit_coef(8, 11) = 2.8145274374678247E+03_dp
5197 76 : fit_coef(9, 11) = -2.7680919699076530E+03_dp
5198 76 : fit_coef(10, 11) = 1.7471091763340671E+03_dp
5199 76 : fit_coef(11, 11) = -6.4010183684923209E+02_dp
5200 76 : fit_coef(12, 11) = 1.0351773205889742E+02_dp
5201 76 : fit_coef(0, 12) = 5.0200579894610868E+00_dp
5202 76 : fit_coef(1, 12) = 8.8885387561015605E-01_dp
5203 76 : fit_coef(2, 12) = 4.6883210461508416E+00_dp
5204 76 : fit_coef(3, 12) = -8.2512193578220483E+00_dp
5205 76 : fit_coef(4, 12) = 6.6560605008919623E+01_dp
5206 76 : fit_coef(5, 12) = -3.6572207879590201E+02_dp
5207 76 : fit_coef(6, 12) = 1.2232199700982205E+03_dp
5208 76 : fit_coef(7, 12) = -2.6752268847851810E+03_dp
5209 76 : fit_coef(8, 12) = 3.9360821093174841E+03_dp
5210 76 : fit_coef(9, 12) = -3.8714869910206562E+03_dp
5211 76 : fit_coef(10, 12) = 2.4434517488097472E+03_dp
5212 76 : fit_coef(11, 12) = -8.9517007084930697E+02_dp
5213 76 : fit_coef(12, 12) = 1.4475878519184542E+02_dp
5214 76 : fit_coef(0, 13) = 7.1480283160792286E-05_dp
5215 76 : fit_coef(1, 13) = 3.4522475460442413E-04_dp
5216 76 : fit_coef(2, 13) = 2.3289358018025357E-03_dp
5217 76 : fit_coef(3, 13) = 8.6564456187697154E-04_dp
5218 76 : fit_coef(4, 13) = 3.9444759289228873E-02_dp
5219 76 : fit_coef(5, 13) = -1.4607809825480644E-01_dp
5220 76 : fit_coef(6, 13) = 4.5801849703119135E-01_dp
5221 76 : fit_coef(7, 13) = -9.9551749039632609E-01_dp
5222 76 : fit_coef(8, 13) = 1.4633991701280600E+00_dp
5223 76 : fit_coef(9, 13) = -1.4351206048684466E+00_dp
5224 76 : fit_coef(10, 13) = 9.0075138053758774E-01_dp
5225 76 : fit_coef(11, 13) = -3.2755040336927682E-01_dp
5226 76 : fit_coef(12, 13) = 5.2516019203549216E-02_dp
5227 76 : fit_coef(0, 14) = 4.3512255060467424E-04_dp
5228 76 : fit_coef(1, 14) = 1.1619032009340215E-03_dp
5229 76 : fit_coef(2, 14) = 7.2125439844170202E-03_dp
5230 76 : fit_coef(3, 14) = -1.5997165186082474E-03_dp
5231 76 : fit_coef(4, 14) = 1.1580962215615681E-01_dp
5232 76 : fit_coef(5, 14) = -4.5588347118168826E-01_dp
5233 76 : fit_coef(6, 14) = 1.4668513671508041E+00_dp
5234 76 : fit_coef(7, 14) = -3.2658979984403209E+00_dp
5235 76 : fit_coef(8, 14) = 4.9101588767499029E+00_dp
5236 76 : fit_coef(9, 14) = -4.9103950358935151E+00_dp
5237 76 : fit_coef(10, 14) = 3.1335239775801118E+00_dp
5238 76 : fit_coef(11, 14) = -1.1555673477193260E+00_dp
5239 76 : fit_coef(12, 14) = 1.8749662399467892E-01_dp
5240 76 : fit_coef(0, 15) = 1.7310205801983041E-03_dp
5241 76 : fit_coef(1, 15) = 3.1669171624321819E-03_dp
5242 76 : fit_coef(2, 15) = 1.8644195870254832E-02_dp
5243 76 : fit_coef(3, 15) = -1.4397262238866691E-02_dp
5244 76 : fit_coef(4, 15) = 2.9169977531123992E-01_dp
5245 76 : fit_coef(5, 15) = -1.3313481914883316E+00_dp
5246 76 : fit_coef(6, 15) = 4.2756251478512226E+00_dp
5247 76 : fit_coef(7, 15) = -9.1958972503690166E+00_dp
5248 76 : fit_coef(8, 15) = 1.3362193435862070E+01_dp
5249 76 : fit_coef(9, 15) = -1.3004184796302695E+01_dp
5250 76 : fit_coef(10, 15) = 8.1326698622082620E+00_dp
5251 76 : fit_coef(11, 15) = -2.9559537831500120E+00_dp
5252 76 : fit_coef(12, 15) = 4.7473220658578025E-01_dp
5253 76 : fit_coef(0, 16) = 5.5360416394316771E-03_dp
5254 76 : fit_coef(1, 16) = 7.4544925165475080E-03_dp
5255 76 : fit_coef(2, 16) = 4.2442503620852397E-02_dp
5256 76 : fit_coef(3, 16) = -4.4215606043728234E-02_dp
5257 76 : fit_coef(4, 16) = 6.3386466456182333E-01_dp
5258 76 : fit_coef(5, 16) = -3.0715020425513488E+00_dp
5259 76 : fit_coef(6, 16) = 9.8361982985015253E+00_dp
5260 76 : fit_coef(7, 16) = -2.1180667612485266E+01_dp
5261 76 : fit_coef(8, 16) = 3.1043088235838166E+01_dp
5262 76 : fit_coef(9, 16) = -3.0559569250108336E+01_dp
5263 76 : fit_coef(10, 16) = 1.9330505471141983E+01_dp
5264 76 : fit_coef(11, 16) = -7.0975069725987057E+00_dp
5265 76 : fit_coef(12, 16) = 1.1497097136190815E+00_dp
5266 76 : fit_coef(0, 17) = 1.5414916387788672E-02_dp
5267 76 : fit_coef(1, 17) = 1.5715678851517083E-02_dp
5268 76 : fit_coef(2, 17) = 8.7468870899845605E-02_dp
5269 76 : fit_coef(3, 17) = -1.0975140358097349E-01_dp
5270 76 : fit_coef(4, 17) = 1.2852966018847800E+00_dp
5271 76 : fit_coef(5, 17) = -6.4984894179776092E+00_dp
5272 76 : fit_coef(6, 17) = 2.1000940295849389E+01_dp
5273 76 : fit_coef(7, 17) = -4.5396783297216288E+01_dp
5274 76 : fit_coef(8, 17) = 6.6608738269027413E+01_dp
5275 76 : fit_coef(9, 17) = -6.5525352583359691E+01_dp
5276 76 : fit_coef(10, 17) = 4.1386945120960981E+01_dp
5277 76 : fit_coef(11, 17) = -1.5171963717870183E+01_dp
5278 76 : fit_coef(12, 17) = 2.4543585537353447E+00_dp
5279 76 : fit_coef(0, 18) = 3.8916898079420920E-02_dp
5280 76 : fit_coef(1, 18) = 3.0312084028360865E-02_dp
5281 76 : fit_coef(2, 18) = 1.6576784827897006E-01_dp
5282 76 : fit_coef(3, 18) = -2.3516121046359606E-01_dp
5283 76 : fit_coef(4, 18) = 2.4050118552826443E+00_dp
5284 76 : fit_coef(5, 18) = -1.2525237294764612E+01_dp
5285 76 : fit_coef(6, 18) = 4.0835140514931439E+01_dp
5286 76 : fit_coef(7, 18) = -8.8493887923230830E+01_dp
5287 76 : fit_coef(8, 18) = 1.2986858749858015E+02_dp
5288 76 : fit_coef(9, 18) = -1.2770555910039072E+02_dp
5289 76 : fit_coef(10, 18) = 8.0636021175329191E+01_dp
5290 76 : fit_coef(11, 18) = -2.9558075550791788E+01_dp
5291 76 : fit_coef(12, 18) = 4.7822089064411317E+00_dp
5292 76 : fit_coef(0, 19) = 9.1240612545516228E-02_dp
5293 76 : fit_coef(1, 19) = 5.4034493382966092E-02_dp
5294 76 : fit_coef(2, 19) = 2.9135349130073102E-01_dp
5295 76 : fit_coef(3, 19) = -4.5212301023387952E-01_dp
5296 76 : fit_coef(4, 19) = 4.1878151793085188E+00_dp
5297 76 : fit_coef(5, 19) = -2.2306599564702282E+01_dp
5298 76 : fit_coef(6, 19) = 7.3348603292660968E+01_dp
5299 76 : fit_coef(7, 19) = -1.5938432150171050E+02_dp
5300 76 : fit_coef(8, 19) = 2.3403743136945869E+02_dp
5301 76 : fit_coef(9, 19) = -2.3012589740957122E+02_dp
5302 76 : fit_coef(10, 19) = 1.4528076150095299E+02_dp
5303 76 : fit_coef(11, 19) = -5.3246238298596822E+01_dp
5304 76 : fit_coef(12, 19) = 8.6138613725490618E+00_dp
5305 76 : fit_coef(0, 20) = 2.0179304564503545E-01_dp
5306 76 : fit_coef(1, 20) = 8.9210315804133342E-02_dp
5307 76 : fit_coef(2, 20) = 4.7545204864558721E-01_dp
5308 76 : fit_coef(3, 20) = -7.9032122760761392E-01_dp
5309 76 : fit_coef(4, 20) = 6.7848792396969912E+00_dp
5310 76 : fit_coef(5, 20) = -3.6782770745377228E+01_dp
5311 76 : fit_coef(6, 20) = 1.2191045579708324E+02_dp
5312 76 : fit_coef(7, 20) = -2.6562927550077575E+02_dp
5313 76 : fit_coef(8, 20) = 3.9032415807076654E+02_dp
5314 76 : fit_coef(9, 20) = -3.8381139592009845E+02_dp
5315 76 : fit_coef(10, 20) = 2.4226291326011409E+02_dp
5316 76 : fit_coef(11, 20) = -8.8773520901146185E+01_dp
5317 76 : fit_coef(12, 20) = 1.4358956500859366E+01_dp
5318 76 : fit_coef(0, 21) = 4.2593952773320098E-01_dp
5319 76 : fit_coef(1, 21) = 1.3568653118311338E-01_dp
5320 76 : fit_coef(2, 21) = 7.1623822743042354E-01_dp
5321 76 : fit_coef(3, 21) = -1.2560727864754864E+00_dp
5322 76 : fit_coef(4, 21) = 1.0163959042284175E+01_dp
5323 76 : fit_coef(5, 21) = -5.5870348063658447E+01_dp
5324 76 : fit_coef(6, 21) = 1.8650175155799977E+02_dp
5325 76 : fit_coef(7, 21) = -4.0744671452434335E+02_dp
5326 76 : fit_coef(8, 21) = 5.9919650717200875E+02_dp
5327 76 : fit_coef(9, 21) = -5.8926562705630113E+02_dp
5328 76 : fit_coef(10, 21) = 3.7190276855784708E+02_dp
5329 76 : fit_coef(11, 21) = -1.3625501508902701E+02_dp
5330 76 : fit_coef(12, 21) = 2.2035594424138168E+01_dp
5331 76 : fit_coef(0, 22) = 8.6820953800091549E-01_dp
5332 76 : fit_coef(1, 22) = 1.8780376015732225E-01_dp
5333 76 : fit_coef(2, 22) = 9.8395493031048986E-01_dp
5334 76 : fit_coef(3, 22) = -1.7957997667101941E+00_dp
5335 76 : fit_coef(4, 22) = 1.3905769981465895E+01_dp
5336 76 : fit_coef(5, 22) = -7.7228503961529029E+01_dp
5337 76 : fit_coef(6, 22) = 2.5935228694562625E+02_dp
5338 76 : fit_coef(7, 22) = -5.6796297694678856E+02_dp
5339 76 : fit_coef(8, 22) = 8.3593005414822915E+02_dp
5340 76 : fit_coef(9, 22) = -8.2221938772784824E+02_dp
5341 76 : fit_coef(10, 22) = 5.1889603350223433E+02_dp
5342 76 : fit_coef(11, 22) = -1.9008494460566484E+02_dp
5343 76 : fit_coef(12, 22) = 3.0737084830973959E+01_dp
5344 76 : fit_coef(0, 23) = 1.7481856703690022E+00_dp
5345 76 : fit_coef(1, 23) = 2.3346689762517508E-01_dp
5346 76 : fit_coef(2, 23) = 1.2175326565887574E+00_dp
5347 76 : fit_coef(3, 23) = -2.2759160332795787E+00_dp
5348 76 : fit_coef(4, 23) = 1.7165218972872630E+01_dp
5349 76 : fit_coef(5, 23) = -9.5910398735102618E+01_dp
5350 76 : fit_coef(6, 23) = 3.2337485666569609E+02_dp
5351 76 : fit_coef(7, 23) = -7.0937150908633851E+02_dp
5352 76 : fit_coef(8, 23) = 1.0447103125794226E+03_dp
5353 76 : fit_coef(9, 23) = -1.0277535716241930E+03_dp
5354 76 : fit_coef(10, 23) = 6.4860244114600755E+02_dp
5355 76 : fit_coef(11, 23) = -2.3758314620598588E+02_dp
5356 76 : fit_coef(12, 23) = 3.8414439806414237E+01_dp
5357 76 : fit_coef(0, 24) = 3.7882878590945706E+00_dp
5358 76 : fit_coef(1, 24) = 2.6672643511994515E-01_dp
5359 76 : fit_coef(2, 24) = 1.3901597873378935E+00_dp
5360 76 : fit_coef(3, 24) = -2.6062582764354025E+00_dp
5361 76 : fit_coef(4, 24) = 1.9594239409959744E+01_dp
5362 76 : fit_coef(5, 24) = -1.0955141547937794E+02_dp
5363 76 : fit_coef(6, 24) = 3.6959856539692777E+02_dp
5364 76 : fit_coef(7, 24) = -8.1102106918375466E+02_dp
5365 76 : fit_coef(8, 24) = 1.1945701938386849E+03_dp
5366 76 : fit_coef(9, 24) = -1.1752376758852338E+03_dp
5367 76 : fit_coef(10, 24) = 7.4168531728428854E+02_dp
5368 76 : fit_coef(11, 24) = -2.7167776208361096E+02_dp
5369 76 : fit_coef(12, 24) = 4.3926613983789913E+01_dp
5370 :
5371 76 : 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 36 : 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 36 : L_b = 1.0000000000000000E+01_dp
5386 36 : U_b = 1.0000000000000000E+02_dp
5387 36 : fit_coef(0, 1) = 4.3806959251380109E-03_dp
5388 36 : fit_coef(1, 1) = 1.1805095681240434E-02_dp
5389 36 : fit_coef(2, 1) = 1.5469511812292528E-02_dp
5390 36 : fit_coef(3, 1) = 1.1417683853936199E-02_dp
5391 36 : fit_coef(4, 1) = 3.5089172870450503E-03_dp
5392 36 : fit_coef(5, 1) = -1.6212006877380839E-03_dp
5393 36 : fit_coef(6, 1) = -1.8991808677819510E-03_dp
5394 36 : fit_coef(7, 1) = -1.8247535956842715E-04_dp
5395 36 : fit_coef(8, 1) = 4.6296227124327700E-04_dp
5396 36 : fit_coef(9, 1) = 3.1714051554687601E-04_dp
5397 36 : fit_coef(10, 1) = -4.2555794580904834E-04_dp
5398 36 : fit_coef(11, 1) = 2.1260104216928313E-04_dp
5399 36 : fit_coef(12, 1) = -4.7302059547381066E-05_dp
5400 36 : fit_coef(0, 2) = 2.3696032787686165E-02_dp
5401 36 : fit_coef(1, 2) = 6.2953090652548949E-02_dp
5402 36 : fit_coef(2, 2) = 8.1812508977763682E-02_dp
5403 36 : fit_coef(3, 2) = 5.9935099274848913E-02_dp
5404 36 : fit_coef(4, 2) = 1.8183698651738394E-02_dp
5405 36 : fit_coef(5, 2) = -8.5926086043909885E-03_dp
5406 36 : fit_coef(6, 2) = -9.8822906424356552E-03_dp
5407 36 : fit_coef(7, 2) = -8.9212086720690355E-04_dp
5408 36 : fit_coef(8, 2) = 2.4413793189226370E-03_dp
5409 36 : fit_coef(9, 2) = 1.5997746303520928E-03_dp
5410 36 : fit_coef(10, 2) = -2.1816355097527334E-03_dp
5411 36 : fit_coef(11, 2) = 1.0890520189793466E-03_dp
5412 36 : fit_coef(12, 2) = -2.4201086567176617E-04_dp
5413 36 : fit_coef(0, 3) = 6.1206818631275799E-02_dp
5414 36 : fit_coef(1, 3) = 1.5800300818436122E-01_dp
5415 36 : fit_coef(2, 3) = 2.0228324543170234E-01_dp
5416 36 : fit_coef(3, 3) = 1.4627045924471369E-01_dp
5417 36 : fit_coef(4, 3) = 4.3383951728004834E-02_dp
5418 36 : fit_coef(5, 3) = -2.1290904984850527E-02_dp
5419 36 : fit_coef(6, 3) = -2.3732647813102206E-02_dp
5420 36 : fit_coef(7, 3) = -1.9047854738674234E-03_dp
5421 36 : fit_coef(8, 3) = 5.9890949427493156E-03_dp
5422 36 : fit_coef(9, 3) = 3.6484212780910821E-03_dp
5423 36 : fit_coef(10, 3) = -5.1182607229190253E-03_dp
5424 36 : fit_coef(11, 3) = 2.5506650132351419E-03_dp
5425 36 : fit_coef(12, 3) = -5.6515120961717785E-04_dp
5426 36 : fit_coef(0, 4) = 1.2273976907574904E-01_dp
5427 36 : fit_coef(1, 4) = 3.0202610531899604E-01_dp
5428 36 : fit_coef(2, 4) = 3.7810599512667076E-01_dp
5429 36 : fit_coef(3, 4) = 2.6877539512343529E-01_dp
5430 36 : fit_coef(4, 4) = 7.7369990738750394E-02_dp
5431 36 : fit_coef(5, 4) = -3.9931781197404183E-02_dp
5432 36 : fit_coef(6, 4) = -4.2604215569189550E-02_dp
5433 36 : fit_coef(7, 4) = -2.7223623128689494E-03_dp
5434 36 : fit_coef(8, 4) = 1.1010550845635398E-02_dp
5435 36 : fit_coef(9, 4) = 5.9806779753877508E-03_dp
5436 36 : fit_coef(10, 4) = -8.7651481516437067E-03_dp
5437 36 : fit_coef(11, 4) = 4.3537113139725109E-03_dp
5438 36 : fit_coef(12, 4) = -9.6064235434420908E-04_dp
5439 36 : fit_coef(0, 5) = 2.1922884952130442E-01_dp
5440 36 : fit_coef(1, 5) = 5.0239277267534854E-01_dp
5441 36 : fit_coef(2, 5) = 6.0878683083947316E-01_dp
5442 36 : fit_coef(3, 5) = 4.2445143636733651E-01_dp
5443 36 : fit_coef(4, 5) = 1.1949507494490993E-01_dp
5444 36 : fit_coef(5, 5) = -6.4343269144918072E-02_dp
5445 36 : fit_coef(6, 5) = -6.6581789191562657E-02_dp
5446 36 : fit_coef(7, 5) = -3.2621357858438767E-03_dp
5447 36 : fit_coef(8, 5) = 2.0013098730936332E-02_dp
5448 36 : fit_coef(9, 5) = 5.6869475340117050E-03_dp
5449 36 : fit_coef(10, 5) = -1.2059838120484294E-02_dp
5450 36 : fit_coef(11, 5) = 6.5584888368600807E-03_dp
5451 36 : fit_coef(12, 5) = -1.5261431175938014E-03_dp
5452 36 : fit_coef(0, 6) = 3.6944915773408882E-01_dp
5453 36 : fit_coef(1, 6) = 7.6979797793437166E-01_dp
5454 36 : fit_coef(2, 6) = 8.9033669564805873E-01_dp
5455 36 : fit_coef(3, 6) = 6.0532992150591614E-01_dp
5456 36 : fit_coef(4, 6) = 1.7130397954922461E-01_dp
5457 36 : fit_coef(5, 6) = -8.8192182985475279E-02_dp
5458 36 : fit_coef(6, 6) = -9.7966070392074389E-02_dp
5459 36 : fit_coef(7, 6) = -4.8436829553671259E-03_dp
5460 36 : fit_coef(8, 6) = 2.0833002694907763E-02_dp
5461 36 : fit_coef(9, 6) = 3.5063121112200099E-02_dp
5462 36 : fit_coef(10, 6) = -4.7438965646280404E-02_dp
5463 36 : fit_coef(11, 6) = 2.4703796048967528E-02_dp
5464 36 : fit_coef(12, 6) = -5.2577610515280489E-03_dp
5465 36 : fit_coef(0, 7) = 6.0348926202620468E-01_dp
5466 36 : fit_coef(1, 7) = 1.1189609399540368E+00_dp
5467 36 : fit_coef(2, 7) = 1.2166554041301936E+00_dp
5468 36 : fit_coef(3, 7) = 7.9564460112103685E-01_dp
5469 36 : fit_coef(4, 7) = 2.2942989193522059E-01_dp
5470 36 : fit_coef(5, 7) = -9.7714358227207448E-02_dp
5471 36 : fit_coef(6, 7) = -1.2746711453160517E-01_dp
5472 36 : fit_coef(7, 7) = -1.1047808976133488E-02_dp
5473 36 : fit_coef(8, 7) = -6.1793196597745570E-03_dp
5474 36 : fit_coef(9, 7) = 8.7267129421221348E-02_dp
5475 36 : fit_coef(10, 7) = -6.4166653350011871E-02_dp
5476 36 : fit_coef(11, 7) = 1.4747313101772477E-02_dp
5477 36 : fit_coef(12, 7) = 2.3977301657934416E-04_dp
5478 36 : fit_coef(0, 8) = 9.6768723967411674E-01_dp
5479 36 : fit_coef(1, 8) = 1.5668848161581139E+00_dp
5480 36 : fit_coef(2, 8) = 1.5818658236819807E+00_dp
5481 36 : fit_coef(3, 8) = 9.7733015664802736E-01_dp
5482 36 : fit_coef(4, 8) = 2.8255279451553161E-01_dp
5483 36 : fit_coef(5, 8) = -8.9391803088038346E-02_dp
5484 36 : fit_coef(6, 8) = -1.2421016153669295E-01_dp
5485 36 : fit_coef(7, 8) = -6.1021516900378492E-02_dp
5486 36 : fit_coef(8, 8) = 6.2677519441489124E-02_dp
5487 36 : fit_coef(9, 8) = -8.0250399433389449E-02_dp
5488 36 : fit_coef(10, 8) = 1.5369427952945630E-01_dp
5489 36 : fit_coef(11, 8) = -1.1092684421625504E-01_dp
5490 36 : fit_coef(12, 8) = 2.7549923051188644E-02_dp
5491 36 : fit_coef(0, 9) = 1.5325340819017725E+00_dp
5492 36 : fit_coef(1, 9) = 2.1287996982316222E+00_dp
5493 36 : fit_coef(2, 9) = 1.9799152367840203E+00_dp
5494 36 : fit_coef(3, 9) = 1.1370787116857501E+00_dp
5495 36 : fit_coef(4, 9) = 3.2008697898446903E-01_dp
5496 36 : fit_coef(5, 9) = -6.6640990523988475E-02_dp
5497 36 : fit_coef(6, 9) = -9.5466135919243425E-02_dp
5498 36 : fit_coef(7, 9) = -9.2042888056781805E-02_dp
5499 36 : fit_coef(8, 9) = 9.7360896464160462E-02_dp
5500 36 : fit_coef(9, 9) = -1.8127317675763444E-01_dp
5501 36 : fit_coef(10, 9) = 2.2214526244390012E-01_dp
5502 36 : fit_coef(11, 9) = -1.0494335632769292E-01_dp
5503 36 : fit_coef(12, 9) = 1.5481275818011413E-02_dp
5504 36 : fit_coef(0, 10) = 2.4061866675798735E+00_dp
5505 36 : fit_coef(1, 10) = 2.8132877393110070E+00_dp
5506 36 : fit_coef(2, 10) = 2.4037430753636428E+00_dp
5507 36 : fit_coef(3, 10) = 1.2687163022362127E+00_dp
5508 36 : fit_coef(4, 10) = 3.3899108614443485E-01_dp
5509 36 : fit_coef(5, 10) = -3.2980562806816459E-02_dp
5510 36 : fit_coef(6, 10) = -6.4495629707069638E-02_dp
5511 36 : fit_coef(7, 10) = -4.9196501013761162E-02_dp
5512 36 : fit_coef(8, 10) = -1.8973498191644747E-02_dp
5513 36 : fit_coef(9, 10) = -1.6127741943174356E-02_dp
5514 36 : fit_coef(10, 10) = 1.0778655156935451E-03_dp
5515 36 : fit_coef(11, 10) = 4.9661103678829296E-02_dp
5516 36 : fit_coef(12, 10) = -2.4208904460265530E-02_dp
5517 36 : fit_coef(0, 11) = 3.7607303248227026E+00_dp
5518 36 : fit_coef(1, 11) = 3.6183981611913807E+00_dp
5519 36 : fit_coef(2, 11) = 2.8473208041198181E+00_dp
5520 36 : fit_coef(3, 11) = 1.3735956585457292E+00_dp
5521 36 : fit_coef(4, 11) = 3.4303721265244597E-01_dp
5522 36 : fit_coef(5, 11) = 5.1365790260944994E-03_dp
5523 36 : fit_coef(6, 11) = -2.3683792375462247E-02_dp
5524 36 : fit_coef(7, 11) = -7.7157824160531199E-03_dp
5525 36 : fit_coef(8, 11) = -9.7425777898074148E-02_dp
5526 36 : fit_coef(9, 11) = 8.3518836722114576E-02_dp
5527 36 : fit_coef(10, 11) = -1.1044052160199369E-01_dp
5528 36 : fit_coef(11, 11) = 1.0133376735634138E-01_dp
5529 36 : fit_coef(12, 11) = -2.9906470245636543E-02_dp
5530 36 : fit_coef(0, 12) = 5.8979582300825903E+00_dp
5531 36 : fit_coef(1, 12) = 4.5329131993702125E+00_dp
5532 36 : fit_coef(2, 12) = 3.3115813786557839E+00_dp
5533 36 : fit_coef(3, 12) = 1.4609520855498697E+00_dp
5534 36 : fit_coef(4, 12) = 3.3783414333423767E-01_dp
5535 36 : fit_coef(5, 12) = 4.3826302981445429E-02_dp
5536 36 : fit_coef(6, 12) = 2.7923917468353154E-02_dp
5537 36 : fit_coef(7, 12) = 2.7776299343854542E-03_dp
5538 36 : fit_coef(8, 12) = -8.3036915110656417E-02_dp
5539 36 : fit_coef(9, 12) = 3.7742211424302625E-02_dp
5540 36 : fit_coef(10, 12) = -4.9885068616704199E-02_dp
5541 36 : fit_coef(11, 12) = 4.5143513558608316E-02_dp
5542 36 : fit_coef(12, 12) = -1.0663317459135431E-02_dp
5543 36 : fit_coef(0, 13) = 9.5045784867374294E+00_dp
5544 36 : fit_coef(1, 13) = 5.5579146894547398E+00_dp
5545 36 : fit_coef(2, 13) = 3.8186762276220274E+00_dp
5546 36 : fit_coef(3, 13) = 1.5494988454410836E+00_dp
5547 36 : fit_coef(4, 13) = 3.2780283598581783E-01_dp
5548 36 : fit_coef(5, 13) = 8.1835332761182517E-02_dp
5549 36 : fit_coef(6, 13) = 8.1960790462737673E-02_dp
5550 36 : fit_coef(7, 13) = 8.9017910412122984E-03_dp
5551 36 : fit_coef(8, 13) = -5.2756529738479566E-02_dp
5552 36 : fit_coef(9, 13) = -1.9132069822996558E-02_dp
5553 36 : fit_coef(10, 13) = 2.2550262525116004E-02_dp
5554 36 : fit_coef(11, 13) = -7.1174631455651191E-03_dp
5555 36 : fit_coef(12, 13) = 2.6153386964695999E-03_dp
5556 36 : fit_coef(0, 14) = 1.1310131998968936E-02_dp
5557 36 : fit_coef(1, 14) = 3.0381882917892972E-02_dp
5558 36 : fit_coef(2, 14) = 3.9735561262063152E-02_dp
5559 36 : fit_coef(3, 14) = 2.9276417146478988E-02_dp
5560 36 : fit_coef(4, 14) = 8.9698683531803033E-03_dp
5561 36 : fit_coef(5, 14) = -4.1668138620200067E-03_dp
5562 36 : fit_coef(6, 14) = -4.8597312635549313E-03_dp
5563 36 : fit_coef(7, 14) = -4.6021605223065968E-04_dp
5564 36 : fit_coef(8, 14) = 1.1885176206365188E-03_dp
5565 36 : fit_coef(9, 14) = 8.0548775761279056E-04_dp
5566 36 : fit_coef(10, 14) = -1.0849907036440899E-03_dp
5567 36 : fit_coef(11, 14) = 5.4194768198807949E-04_dp
5568 36 : fit_coef(12, 14) = -1.2054873767366686E-04_dp
5569 36 : fit_coef(0, 15) = 2.7754333434518740E-02_dp
5570 36 : fit_coef(1, 15) = 7.2425221320615574E-02_dp
5571 36 : fit_coef(2, 15) = 9.3171796368255483E-02_dp
5572 36 : fit_coef(3, 15) = 6.7635165400501615E-02_dp
5573 36 : fit_coef(4, 15) = 2.0195124261742557E-02_dp
5574 36 : fit_coef(5, 15) = -9.8067712377566344E-03_dp
5575 36 : fit_coef(6, 15) = -1.1030330619304156E-02_dp
5576 36 : fit_coef(7, 15) = -9.1656688079229311E-04_dp
5577 36 : fit_coef(8, 15) = 2.7689224656143080E-03_dp
5578 36 : fit_coef(9, 15) = 1.7173968423888279E-03_dp
5579 36 : fit_coef(10, 15) = -2.3913024611684291E-03_dp
5580 36 : fit_coef(11, 15) = 1.1924633353927081E-03_dp
5581 36 : fit_coef(12, 15) = -2.6453134445543388E-04_dp
5582 36 : fit_coef(0, 16) = 4.8205145888088087E-02_dp
5583 36 : fit_coef(1, 16) = 1.1851851999761799E-01_dp
5584 36 : fit_coef(2, 16) = 1.4800321928791688E-01_dp
5585 36 : fit_coef(3, 16) = 1.0475875377187537E-01_dp
5586 36 : fit_coef(4, 16) = 2.9891263684815553E-02_dp
5587 36 : fit_coef(5, 16) = -1.5617974138582616E-02_dp
5588 36 : fit_coef(6, 16) = -1.6518323399901058E-02_dp
5589 36 : fit_coef(7, 16) = -1.0386542240169942E-03_dp
5590 36 : fit_coef(8, 16) = 4.3031804541452875E-03_dp
5591 36 : fit_coef(9, 16) = 2.3296942214223468E-03_dp
5592 36 : fit_coef(10, 16) = -3.4336179918521620E-03_dp
5593 36 : fit_coef(11, 16) = 1.7042723642156064E-03_dp
5594 36 : fit_coef(12, 16) = -3.7515429160435323E-04_dp
5595 36 : fit_coef(0, 17) = 7.6637000090091376E-02_dp
5596 36 : fit_coef(1, 17) = 1.7073623076407599E-01_dp
5597 36 : fit_coef(2, 17) = 2.0360358978335744E-01_dp
5598 36 : fit_coef(3, 17) = 1.3981725357818653E-01_dp
5599 36 : fit_coef(4, 17) = 3.7911755072739847E-02_dp
5600 36 : fit_coef(5, 17) = -2.1730826974108042E-02_dp
5601 36 : fit_coef(6, 17) = -2.1165853445559209E-02_dp
5602 36 : fit_coef(7, 17) = -4.3396413995129904E-04_dp
5603 36 : fit_coef(8, 17) = 5.9819715180725796E-03_dp
5604 36 : fit_coef(9, 17) = 1.7458780018996711E-03_dp
5605 36 : fit_coef(10, 17) = -3.3770780241614367E-03_dp
5606 36 : fit_coef(11, 17) = 1.6967821161902551E-03_dp
5607 36 : fit_coef(12, 17) = -3.7810404338462888E-04_dp
5608 36 : fit_coef(0, 18) = 1.1941431468383547E-01_dp
5609 36 : fit_coef(1, 18) = 2.3176044822900177E-01_dp
5610 36 : fit_coef(2, 18) = 2.5706191693734187E-01_dp
5611 36 : fit_coef(3, 18) = 1.7029046402780762E-01_dp
5612 36 : fit_coef(4, 18) = 4.6762674262981342E-02_dp
5613 36 : fit_coef(5, 18) = -2.6181781674092602E-02_dp
5614 36 : fit_coef(6, 18) = -2.7357912314188080E-02_dp
5615 36 : fit_coef(7, 18) = -1.4374470171699591E-03_dp
5616 36 : fit_coef(8, 18) = 1.2160163836047608E-02_dp
5617 36 : fit_coef(9, 18) = 7.2851082934719002E-04_dp
5618 36 : fit_coef(10, 18) = -7.7359567257111982E-03_dp
5619 36 : fit_coef(11, 18) = 5.4157372236747318E-03_dp
5620 36 : fit_coef(12, 18) = -1.3750847828525607E-03_dp
5621 36 : fit_coef(0, 19) = 1.8596241285720252E-01_dp
5622 36 : fit_coef(1, 19) = 3.0553364801134103E-01_dp
5623 36 : fit_coef(2, 19) = 3.0496827359436179E-01_dp
5624 36 : fit_coef(3, 19) = 1.8871536236922606E-01_dp
5625 36 : fit_coef(4, 19) = 5.6375245286351912E-02_dp
5626 36 : fit_coef(5, 19) = -1.8700350814395448E-02_dp
5627 36 : fit_coef(6, 19) = -3.4527217392530681E-02_dp
5628 36 : fit_coef(7, 19) = -6.3872694617221477E-05_dp
5629 36 : fit_coef(8, 19) = -2.2205235124562510E-02_dp
5630 36 : fit_coef(9, 19) = 7.0816767471594697E-02_dp
5631 36 : fit_coef(10, 19) = -6.6120085860146768E-02_dp
5632 36 : fit_coef(11, 19) = 2.8289249488746906E-02_dp
5633 36 : fit_coef(12, 19) = -4.7843132337791906E-03_dp
5634 36 : fit_coef(0, 20) = 2.8971434006808466E-01_dp
5635 36 : fit_coef(1, 20) = 3.9569789839598735E-01_dp
5636 36 : fit_coef(2, 20) = 3.4670622356516184E-01_dp
5637 36 : fit_coef(3, 20) = 1.8876868004229172E-01_dp
5638 36 : fit_coef(4, 20) = 5.7788519919382296E-02_dp
5639 36 : fit_coef(5, 20) = 5.4887363554269302E-05_dp
5640 36 : fit_coef(6, 20) = -1.7484482268241279E-02_dp
5641 36 : fit_coef(7, 20) = -2.3812061294207602E-02_dp
5642 36 : fit_coef(8, 20) = 3.6673498428854141E-03_dp
5643 36 : fit_coef(9, 20) = -3.6033615474019322E-02_dp
5644 36 : fit_coef(10, 20) = 9.9463288944652603E-02_dp
5645 36 : fit_coef(11, 20) = -7.9311225375931868E-02_dp
5646 36 : fit_coef(12, 20) = 2.1453780314514743E-02_dp
5647 36 : fit_coef(0, 21) = 4.5021808525283785E-01_dp
5648 36 : fit_coef(1, 21) = 5.0277275639459118E-01_dp
5649 36 : fit_coef(2, 21) = 3.8272861573261618E-01_dp
5650 36 : fit_coef(3, 21) = 1.7235807446302881E-01_dp
5651 36 : fit_coef(4, 21) = 4.6572363862520262E-02_dp
5652 36 : fit_coef(5, 21) = 1.5881707525432769E-02_dp
5653 36 : fit_coef(6, 21) = 2.2025322210179048E-02_dp
5654 36 : fit_coef(7, 21) = -6.2308984089511119E-02_dp
5655 36 : fit_coef(8, 21) = 1.0309535046393066E-01_dp
5656 36 : fit_coef(9, 21) = -2.2967091111578883E-01_dp
5657 36 : fit_coef(10, 21) = 2.4313367642185343E-01_dp
5658 36 : fit_coef(11, 21) = -1.1137814444194188E-01_dp
5659 36 : fit_coef(12, 21) = 1.7887958008893388E-02_dp
5660 36 : fit_coef(0, 22) = 6.9710873795862005E-01_dp
5661 36 : fit_coef(1, 22) = 6.2256041357045133E-01_dp
5662 36 : fit_coef(2, 22) = 4.1216050290755374E-01_dp
5663 36 : fit_coef(3, 22) = 1.4610725607133404E-01_dp
5664 36 : fit_coef(4, 22) = 2.8009636014951746E-02_dp
5665 36 : fit_coef(5, 22) = 2.9171197185645873E-02_dp
5666 36 : fit_coef(6, 22) = 3.0389459142154723E-02_dp
5667 36 : fit_coef(7, 22) = 1.2605729292193118E-02_dp
5668 36 : fit_coef(8, 22) = -6.0485512980266130E-02_dp
5669 36 : fit_coef(9, 22) = 7.0433726753735382E-02_dp
5670 36 : fit_coef(10, 22) = -1.3375453829923470E-01_dp
5671 36 : fit_coef(11, 22) = 1.2456403150558767E-01_dp
5672 36 : fit_coef(12, 22) = -3.8728626230412060E-02_dp
5673 36 : fit_coef(0, 23) = 1.0779765313876117E+00_dp
5674 36 : fit_coef(1, 23) = 7.4609279169328480E-01_dp
5675 36 : fit_coef(2, 23) = 4.3439321318574559E-01_dp
5676 36 : fit_coef(3, 23) = 1.1738611843507005E-01_dp
5677 36 : fit_coef(4, 23) = 1.0530309563700853E-02_dp
5678 36 : fit_coef(5, 23) = 3.6897191893439256E-02_dp
5679 36 : fit_coef(6, 23) = 3.4044088146621569E-02_dp
5680 36 : fit_coef(7, 23) = 5.5410057699209495E-02_dp
5681 36 : fit_coef(8, 23) = -1.2792045350588788E-01_dp
5682 36 : fit_coef(9, 23) = 1.8262592506787398E-01_dp
5683 36 : fit_coef(10, 23) = -2.1867054150540904E-01_dp
5684 36 : fit_coef(11, 23) = 1.2980623399937813E-01_dp
5685 36 : fit_coef(12, 23) = -2.7516040284682932E-02_dp
5686 36 : fit_coef(0, 24) = 1.6785411350231978E+00_dp
5687 36 : fit_coef(1, 24) = 8.6201990862233702E-01_dp
5688 36 : fit_coef(2, 24) = 4.5273971353495590E-01_dp
5689 36 : fit_coef(3, 24) = 9.3905664009676981E-02_dp
5690 36 : fit_coef(4, 24) = -1.4517367291959843E-03_dp
5691 36 : fit_coef(5, 24) = 3.8726538172099936E-02_dp
5692 36 : fit_coef(6, 24) = 4.7579808176484301E-02_dp
5693 36 : fit_coef(7, 24) = 2.3323849168230236E-02_dp
5694 36 : fit_coef(8, 24) = -2.2238667006060801E-02_dp
5695 36 : fit_coef(9, 24) = 8.3019689769436942E-03_dp
5696 36 : fit_coef(10, 24) = -8.7391379765216180E-04_dp
5697 36 : fit_coef(11, 24) = -2.1892298772107112E-02_dp
5698 36 : fit_coef(12, 24) = 1.2948019279576950E-02_dp
5699 36 : fit_coef(0, 25) = 2.6946568599370697E+00_dp
5700 36 : fit_coef(1, 25) = 9.6576339244071330E-01_dp
5701 36 : fit_coef(2, 25) = 4.7873508727946390E-01_dp
5702 36 : fit_coef(3, 25) = 8.3762183149891992E-02_dp
5703 36 : fit_coef(4, 25) = -8.2300319329272915E-03_dp
5704 36 : fit_coef(5, 25) = 3.8469555958125901E-02_dp
5705 36 : fit_coef(6, 25) = 5.3859007054592130E-02_dp
5706 36 : fit_coef(7, 25) = 3.4301845918780008E-03_dp
5707 36 : fit_coef(8, 25) = 3.4783546363171880E-02_dp
5708 36 : fit_coef(9, 25) = -7.1844324491727757E-02_dp
5709 36 : fit_coef(10, 25) = 8.9320542108673212E-02_dp
5710 36 : fit_coef(11, 25) = -6.8466536447383028E-02_dp
5711 36 : fit_coef(12, 25) = 1.9631577406052880E-02_dp
5712 36 : fit_coef(0, 26) = 4.8659851910149703E+00_dp
5713 36 : fit_coef(1, 26) = 1.1016222687932846E+00_dp
5714 36 : fit_coef(2, 26) = 5.5082141072412572E-01_dp
5715 36 : fit_coef(3, 26) = 9.9924055011494373E-02_dp
5716 36 : fit_coef(4, 26) = -1.1242348443643024E-02_dp
5717 36 : fit_coef(5, 26) = 3.7638525869382183E-02_dp
5718 36 : fit_coef(6, 26) = 5.4458588514965843E-02_dp
5719 36 : fit_coef(7, 26) = 1.1975138580003340E-02_dp
5720 36 : fit_coef(8, 26) = 1.9387184067595927E-02_dp
5721 36 : fit_coef(9, 26) = -3.2120751380981701E-02_dp
5722 36 : fit_coef(10, 26) = 4.5502034364108004E-02_dp
5723 36 : fit_coef(11, 26) = -3.0627416778773675E-02_dp
5724 36 : fit_coef(12, 26) = 6.0865046197086294E-03_dp
5725 :
5726 36 : 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 34 : 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 34 : L_b = 1.0000000000000000E+02_dp
5741 34 : U_b = 1.1693251854461644E+03_dp
5742 34 : fit_coef(0, 1) = 5.9571247085285603E-04_dp
5743 34 : fit_coef(1, 1) = 1.7200118003776515E-03_dp
5744 34 : fit_coef(2, 1) = 2.4894492611009689E-03_dp
5745 34 : fit_coef(3, 1) = 2.1537471215151561E-03_dp
5746 34 : fit_coef(4, 1) = 1.0174139924949508E-03_dp
5747 34 : fit_coef(5, 1) = 4.6357691642043961E-05_dp
5748 34 : fit_coef(6, 1) = -2.2922455590426252E-04_dp
5749 34 : fit_coef(7, 1) = -4.5027856096292727E-05_dp
5750 34 : fit_coef(8, 1) = 3.2368140787386204E-05_dp
5751 34 : fit_coef(9, 1) = 7.8015031488317424E-05_dp
5752 34 : fit_coef(10, 1) = -9.1410611282450338E-05_dp
5753 34 : fit_coef(11, 1) = 4.0455359969903499E-05_dp
5754 34 : fit_coef(12, 1) = -6.8554946194150892E-06_dp
5755 34 : fit_coef(0, 2) = 3.3749978736579119E-03_dp
5756 34 : fit_coef(1, 2) = 9.3865303071796868E-03_dp
5757 34 : fit_coef(2, 2) = 1.3370050944546014E-02_dp
5758 34 : fit_coef(3, 2) = 1.1408817834538747E-02_dp
5759 34 : fit_coef(4, 2) = 5.3018599368705056E-03_dp
5760 34 : fit_coef(5, 2) = 1.9895208136664570E-04_dp
5761 34 : fit_coef(6, 2) = -1.2013959538153690E-03_dp
5762 34 : fit_coef(7, 2) = -2.1522942347644450E-04_dp
5763 34 : fit_coef(8, 2) = 1.6227159652722640E-04_dp
5764 34 : fit_coef(9, 2) = 4.0937759938008522E-04_dp
5765 34 : fit_coef(10, 2) = -4.8203337203911678E-04_dp
5766 34 : fit_coef(11, 2) = 2.1503525076000546E-04_dp
5767 34 : fit_coef(12, 2) = -3.6767133200206401E-05_dp
5768 34 : fit_coef(0, 3) = 9.5695858129820257E-03_dp
5769 34 : fit_coef(1, 3) = 2.4594246941685691E-02_dp
5770 34 : fit_coef(2, 3) = 3.3909912181295111E-02_dp
5771 34 : fit_coef(3, 3) = 2.8275272197259928E-02_dp
5772 34 : fit_coef(4, 3) = 1.2793089131376839E-02_dp
5773 34 : fit_coef(5, 3) = 2.8137691410500335E-04_dp
5774 34 : fit_coef(6, 3) = -2.9348509030753785E-03_dp
5775 34 : fit_coef(7, 3) = -4.3154495298106305E-04_dp
5776 34 : fit_coef(8, 3) = 4.1400164345487900E-04_dp
5777 34 : fit_coef(9, 3) = 9.1497967805617892E-04_dp
5778 34 : fit_coef(10, 3) = -1.1243533488522371E-03_dp
5779 34 : fit_coef(11, 3) = 5.1331094158916764E-04_dp
5780 34 : fit_coef(12, 3) = -8.9543140456745687E-05_dp
5781 34 : fit_coef(0, 4) = 2.2102062421629307E-02_dp
5782 34 : fit_coef(1, 4) = 5.0388239734107464E-02_dp
5783 34 : fit_coef(2, 4) = 6.5597474400466413E-02_dp
5784 34 : fit_coef(3, 4) = 5.2593837264420067E-02_dp
5785 34 : fit_coef(4, 4) = 2.3138245186338603E-02_dp
5786 34 : fit_coef(5, 4) = 3.5363359503456162E-04_dp
5787 34 : fit_coef(6, 4) = -5.4308630565349861E-03_dp
5788 34 : fit_coef(7, 4) = -7.1690573641355025E-04_dp
5789 34 : fit_coef(8, 4) = 4.5525716627285349E-04_dp
5790 34 : fit_coef(9, 4) = 2.3355643424946655E-03_dp
5791 34 : fit_coef(10, 4) = -2.6681070004726240E-03_dp
5792 34 : fit_coef(11, 4) = 1.2090694842315898E-03_dp
5793 34 : fit_coef(12, 4) = -2.1156836663214308E-04_dp
5794 34 : fit_coef(0, 5) = 4.6953984288651295E-02_dp
5795 34 : fit_coef(1, 5) = 9.2513506061771736E-02_dp
5796 34 : fit_coef(2, 5) = 1.1114827337176617E-01_dp
5797 34 : fit_coef(3, 5) = 8.3233678613110429E-02_dp
5798 34 : fit_coef(4, 5) = 3.4608571546062436E-02_dp
5799 34 : fit_coef(5, 5) = 6.2863207858912962E-04_dp
5800 34 : fit_coef(6, 5) = -7.4478035609513958E-03_dp
5801 34 : fit_coef(7, 5) = -1.1406622073555459E-03_dp
5802 34 : fit_coef(8, 5) = 6.1142108219932139E-05_dp
5803 34 : fit_coef(9, 5) = 2.8713082420645268E-03_dp
5804 34 : fit_coef(10, 5) = -2.3152373063920332E-03_dp
5805 34 : fit_coef(11, 5) = 6.9898905114079072E-04_dp
5806 34 : fit_coef(12, 5) = -6.0162701114697736E-05_dp
5807 34 : fit_coef(0, 6) = 9.5182645385563286E-02_dp
5808 34 : fit_coef(1, 6) = 1.5985393660033628E-01_dp
5809 34 : fit_coef(2, 6) = 1.7511073340807867E-01_dp
5810 34 : fit_coef(3, 6) = 1.1909736973485001E-01_dp
5811 34 : fit_coef(4, 6) = 4.4162492084356325E-02_dp
5812 34 : fit_coef(5, 6) = -1.7481218668970254E-04_dp
5813 34 : fit_coef(6, 6) = -7.8382486311276943E-03_dp
5814 34 : fit_coef(7, 6) = -6.5498122365884547E-04_dp
5815 34 : fit_coef(8, 6) = 7.2110889562901611E-05_dp
5816 34 : fit_coef(9, 6) = 9.5978488993906188E-04_dp
5817 34 : fit_coef(10, 6) = -6.1518613580109974E-04_dp
5818 34 : fit_coef(11, 6) = 2.4316501239763139E-04_dp
5819 34 : fit_coef(12, 6) = -5.3529912569972472E-05_dp
5820 34 : fit_coef(0, 7) = 1.8645165311079259E-01_dp
5821 34 : fit_coef(1, 7) = 2.6436160380537138E-01_dp
5822 34 : fit_coef(2, 7) = 2.6302083875944771E-01_dp
5823 34 : fit_coef(3, 7) = 1.5910774510414938E-01_dp
5824 34 : fit_coef(4, 7) = 4.9073653325355709E-02_dp
5825 34 : fit_coef(5, 7) = -3.2795187276607025E-03_dp
5826 34 : fit_coef(6, 7) = -6.8810055747994857E-03_dp
5827 34 : fit_coef(7, 7) = 2.0021507448155459E-03_dp
5828 34 : fit_coef(8, 7) = -1.4027814134567758E-03_dp
5829 34 : fit_coef(9, 7) = 6.9098043550271603E-04_dp
5830 34 : fit_coef(10, 7) = -1.0637655745511332E-03_dp
5831 34 : fit_coef(11, 7) = 9.2536193146607883E-04_dp
5832 34 : fit_coef(12, 7) = -2.4940185896462312E-04_dp
5833 34 : fit_coef(0, 8) = 3.5501666895531042E-01_dp
5834 34 : fit_coef(1, 8) = 4.2062390191703830E-01_dp
5835 34 : fit_coef(2, 8) = 3.8014762337012359E-01_dp
5836 34 : fit_coef(3, 8) = 2.0109387264368472E-01_dp
5837 34 : fit_coef(4, 8) = 4.6954945508850141E-02_dp
5838 34 : fit_coef(5, 8) = -8.7244019551801829E-03_dp
5839 34 : fit_coef(6, 8) = -4.0487338235444901E-03_dp
5840 34 : fit_coef(7, 8) = 5.9512521905139611E-03_dp
5841 34 : fit_coef(8, 8) = -3.7498978634030503E-03_dp
5842 34 : fit_coef(9, 8) = 2.1099763933573197E-04_dp
5843 34 : fit_coef(10, 8) = -4.3311783252141623E-04_dp
5844 34 : fit_coef(11, 8) = 7.0199947379022344E-04_dp
5845 34 : fit_coef(12, 8) = -2.0527979943177016E-04_dp
5846 34 : fit_coef(0, 9) = 6.5960294052628099E-01_dp
5847 34 : fit_coef(1, 9) = 6.4434244249393713E-01_dp
5848 34 : fit_coef(2, 9) = 5.3018928176744540E-01_dp
5849 34 : fit_coef(3, 9) = 2.4130639214143917E-01_dp
5850 34 : fit_coef(4, 9) = 3.5653141239669908E-02_dp
5851 34 : fit_coef(5, 9) = -1.5407439897727408E-02_dp
5852 34 : fit_coef(6, 9) = 1.6157905391085510E-03_dp
5853 34 : fit_coef(7, 9) = 1.0708866394811738E-02_dp
5854 34 : fit_coef(8, 9) = -8.0705877921707705E-03_dp
5855 34 : fit_coef(9, 9) = 1.9585451901869654E-04_dp
5856 34 : fit_coef(10, 9) = 1.1606320581042068E-03_dp
5857 34 : fit_coef(11, 9) = -2.3231700639256246E-04_dp
5858 34 : fit_coef(12, 9) = -1.9173218066136157E-05_dp
5859 34 : fit_coef(0, 10) = 1.1999125471871359E+00_dp
5860 34 : fit_coef(1, 10) = 9.4887754086202536E-01_dp
5861 34 : fit_coef(2, 10) = 7.1392148306788861E-01_dp
5862 34 : fit_coef(3, 10) = 2.7502418030970321E-01_dp
5863 34 : fit_coef(4, 10) = 1.3864789499781904E-02_dp
5864 34 : fit_coef(5, 10) = -2.1424737017769674E-02_dp
5865 34 : fit_coef(6, 10) = 1.0990606216211212E-02_dp
5866 34 : fit_coef(7, 10) = 1.5754376025894169E-02_dp
5867 34 : fit_coef(8, 10) = -1.5720284237712618E-02_dp
5868 34 : fit_coef(9, 10) = 2.0987333422688541E-03_dp
5869 34 : fit_coef(10, 10) = 2.9263737858274525E-03_dp
5870 34 : fit_coef(11, 10) = -1.6119558060080142E-03_dp
5871 34 : fit_coef(12, 10) = 2.7700177106853099E-04_dp
5872 34 : fit_coef(0, 11) = 2.1464589921277430E+00_dp
5873 34 : fit_coef(1, 11) = 1.3398008082135153E+00_dp
5874 34 : fit_coef(2, 11) = 9.2855004111736639E-01_dp
5875 34 : fit_coef(3, 11) = 2.9850369229739804E-01_dp
5876 34 : fit_coef(4, 11) = -1.8024501913163959E-02_dp
5877 34 : fit_coef(5, 11) = -2.4792994220460485E-02_dp
5878 34 : fit_coef(6, 11) = 2.4309270311746085E-02_dp
5879 34 : fit_coef(7, 11) = 2.0376050200980579E-02_dp
5880 34 : fit_coef(8, 11) = -2.7413278630826550E-02_dp
5881 34 : fit_coef(9, 11) = 7.1577405110793838E-03_dp
5882 34 : fit_coef(10, 11) = 4.1376588773677659E-03_dp
5883 34 : fit_coef(11, 11) = -3.2837333351403799E-03_dp
5884 34 : fit_coef(12, 11) = 6.9015069153665373E-04_dp
5885 34 : fit_coef(0, 12) = 3.8079327315676679E+00_dp
5886 34 : fit_coef(1, 12) = 1.8102136985271529E+00_dp
5887 34 : fit_coef(2, 12) = 1.1693768610866579E+00_dp
5888 34 : fit_coef(3, 12) = 3.1192154530912264E-01_dp
5889 34 : fit_coef(4, 12) = -5.7801420614916721E-02_dp
5890 34 : fit_coef(5, 12) = -2.4725077881519446E-02_dp
5891 34 : fit_coef(6, 12) = 4.0887008920651363E-02_dp
5892 34 : fit_coef(7, 12) = 2.4169421898620948E-02_dp
5893 34 : fit_coef(8, 12) = -4.2916907464272722E-02_dp
5894 34 : fit_coef(9, 12) = 1.5836520381657740E-02_dp
5895 34 : fit_coef(10, 12) = 4.2153911444231572E-03_dp
5896 34 : fit_coef(11, 12) = -5.0069163439141369E-03_dp
5897 34 : fit_coef(12, 12) = 1.1850222139382642E-03_dp
5898 34 : fit_coef(0, 13) = 6.8767988424609685E+00_dp
5899 34 : fit_coef(1, 13) = 2.3477041904049458E+00_dp
5900 34 : fit_coef(2, 13) = 1.4371470680965179E+00_dp
5901 34 : fit_coef(3, 13) = 3.2177727032276354E-01_dp
5902 34 : fit_coef(4, 13) = -1.0285806633893342E-01_dp
5903 34 : fit_coef(5, 13) = -2.2677975661685234E-02_dp
5904 34 : fit_coef(6, 13) = 5.9703880119426990E-02_dp
5905 34 : fit_coef(7, 13) = 2.7586476735575311E-02_dp
5906 34 : fit_coef(8, 13) = -6.1182232779440265E-02_dp
5907 34 : fit_coef(9, 13) = 2.7103387955214536E-02_dp
5908 34 : fit_coef(10, 13) = 3.4260870398828006E-03_dp
5909 34 : fit_coef(11, 13) = -6.7215676437135359E-03_dp
5910 34 : fit_coef(12, 13) = 1.7275038459318248E-03_dp
5911 34 : fit_coef(0, 14) = 1.5536180830079045E-03_dp
5912 34 : fit_coef(1, 14) = 4.4506140115349617E-03_dp
5913 34 : fit_coef(2, 14) = 6.4178048727277781E-03_dp
5914 34 : fit_coef(3, 14) = 5.5342602456232345E-03_dp
5915 34 : fit_coef(4, 14) = 2.6046871795835742E-03_dp
5916 34 : fit_coef(5, 14) = 1.1368344431687511E-04_dp
5917 34 : fit_coef(6, 14) = -5.8781627121643181E-04_dp
5918 34 : fit_coef(7, 14) = -1.1285527376227048E-04_dp
5919 34 : fit_coef(8, 14) = 8.2159134979200638E-05_dp
5920 34 : fit_coef(9, 14) = 1.9994801604583968E-04_dp
5921 34 : fit_coef(10, 14) = -2.3463016476463693E-04_dp
5922 34 : fit_coef(11, 14) = 1.0405614708917490E-04_dp
5923 34 : fit_coef(12, 14) = -1.7674175132111243E-05_dp
5924 34 : fit_coef(0, 15) = 4.1834098874360473E-03_dp
5925 34 : fit_coef(1, 15) = 1.1102877368401057E-02_dp
5926 34 : fit_coef(2, 15) = 1.5508145773336595E-02_dp
5927 34 : fit_coef(3, 15) = 1.3020239177249622E-02_dp
5928 34 : fit_coef(4, 15) = 5.9265544529938010E-03_dp
5929 34 : fit_coef(5, 15) = 1.6028851543557779E-04_dp
5930 34 : fit_coef(6, 15) = -1.3496676957738614E-03_dp
5931 34 : fit_coef(7, 15) = -2.1194238008936958E-04_dp
5932 34 : fit_coef(8, 15) = 1.6858962619466225E-04_dp
5933 34 : fit_coef(9, 15) = 4.6274241631720910E-04_dp
5934 34 : fit_coef(10, 15) = -5.4510567016319549E-04_dp
5935 34 : fit_coef(11, 15) = 2.4471543070832161E-04_dp
5936 34 : fit_coef(12, 15) = -4.2146500465828684E-05_dp
5937 34 : fit_coef(0, 16) = 8.6718931437848486E-03_dp
5938 34 : fit_coef(1, 16) = 1.9798273846496010E-02_dp
5939 34 : fit_coef(2, 16) = 2.5805909237192746E-02_dp
5940 34 : fit_coef(3, 16) = 2.0709762497138948E-02_dp
5941 34 : fit_coef(4, 16) = 9.0267828044289580E-03_dp
5942 34 : fit_coef(5, 16) = -8.2030242003155534E-06_dp
5943 34 : fit_coef(6, 16) = -2.1466923201882496E-03_dp
5944 34 : fit_coef(7, 16) = -2.3839418666152536E-04_dp
5945 34 : fit_coef(8, 16) = 3.9713557969496511E-04_dp
5946 34 : fit_coef(9, 16) = 5.4418611978137037E-04_dp
5947 34 : fit_coef(10, 16) = -7.9800986012929951E-04_dp
5948 34 : fit_coef(11, 16) = 3.9897082718071900E-04_dp
5949 34 : fit_coef(12, 16) = -7.5484271874357470E-05_dp
5950 34 : fit_coef(0, 17) = 1.7358581030722377E-02_dp
5951 34 : fit_coef(1, 17) = 3.2741569114568887E-02_dp
5952 34 : fit_coef(2, 17) = 3.8005765925330802E-02_dp
5953 34 : fit_coef(3, 17) = 2.7705507640870534E-02_dp
5954 34 : fit_coef(4, 17) = 1.1375410029678385E-02_dp
5955 34 : fit_coef(5, 17) = 2.5826247104955189E-04_dp
5956 34 : fit_coef(6, 17) = -2.6224716007508839E-03_dp
5957 34 : fit_coef(7, 17) = -3.1373038771318260E-04_dp
5958 34 : fit_coef(8, 17) = -6.4482138467522902E-04_dp
5959 34 : fit_coef(9, 17) = 2.3188017066251647E-03_dp
5960 34 : fit_coef(10, 17) = -1.8974564925171979E-03_dp
5961 34 : fit_coef(11, 17) = 6.6385240884256846E-04_dp
5962 34 : fit_coef(12, 17) = -8.2217281900096977E-05_dp
5963 34 : fit_coef(0, 18) = 3.4131291193668846E-02_dp
5964 34 : fit_coef(1, 18) = 5.2991311639389929E-02_dp
5965 34 : fit_coef(2, 18) = 5.3873497163302024E-02_dp
5966 34 : fit_coef(3, 18) = 3.3395673340616244E-02_dp
5967 34 : fit_coef(4, 18) = 1.1018355439494237E-02_dp
5968 34 : fit_coef(5, 18) = 1.9602178372730269E-05_dp
5969 34 : fit_coef(6, 18) = -1.1688901927899766E-03_dp
5970 34 : fit_coef(7, 18) = -4.0116811266019766E-04_dp
5971 34 : fit_coef(8, 18) = 3.2072961899086736E-04_dp
5972 34 : fit_coef(9, 18) = -1.9201145783602021E-03_dp
5973 34 : fit_coef(10, 18) = 2.5996845486259772E-03_dp
5974 34 : fit_coef(11, 18) = -1.3613851440031023E-03_dp
5975 34 : fit_coef(12, 18) = 2.6284577266591210E-04_dp
5976 34 : fit_coef(0, 19) = 6.5506726065987148E-02_dp
5977 34 : fit_coef(1, 19) = 8.3686618695792928E-02_dp
5978 34 : fit_coef(2, 19) = 7.4994836901648418E-02_dp
5979 34 : fit_coef(3, 19) = 3.8175402517462660E-02_dp
5980 34 : fit_coef(4, 19) = 7.6429339054575234E-03_dp
5981 34 : fit_coef(5, 19) = -1.8419060705385749E-03_dp
5982 34 : fit_coef(6, 19) = 2.7308690208177329E-04_dp
5983 34 : fit_coef(7, 19) = 1.6627660280614655E-03_dp
5984 34 : fit_coef(8, 19) = -8.3731649392740858E-04_dp
5985 34 : fit_coef(9, 19) = -8.4805699699116934E-04_dp
5986 34 : fit_coef(10, 19) = 1.7342012245697370E-05_dp
5987 34 : fit_coef(11, 19) = 6.1766339244338580E-04_dp
5988 34 : fit_coef(12, 19) = -2.3138634064074576E-04_dp
5989 34 : fit_coef(0, 20) = 1.2258176989295384E-01_dp
5990 34 : fit_coef(1, 20) = 1.2778305763600906E-01_dp
5991 34 : fit_coef(2, 20) = 1.0172491446523661E-01_dp
5992 34 : fit_coef(3, 20) = 4.1491871675887949E-02_dp
5993 34 : fit_coef(4, 20) = 1.7844232528150912E-03_dp
5994 34 : fit_coef(5, 20) = -4.3718842072007049E-03_dp
5995 34 : fit_coef(6, 20) = 1.7506621259053797E-03_dp
5996 34 : fit_coef(7, 20) = 3.4297516381714774E-03_dp
5997 34 : fit_coef(8, 20) = -1.8677852767092760E-03_dp
5998 34 : fit_coef(9, 20) = -2.5672855213340693E-04_dp
5999 34 : fit_coef(10, 20) = -1.3122155242537307E-04_dp
6000 34 : fit_coef(11, 20) = 3.0827036993633989E-04_dp
6001 34 : fit_coef(12, 20) = -7.5397667904590979E-05_dp
6002 34 : fit_coef(0, 21) = 2.2407341908539469E-01_dp
6003 34 : fit_coef(1, 21) = 1.8741517537369246E-01_dp
6004 34 : fit_coef(2, 21) = 1.3316931550316194E-01_dp
6005 34 : fit_coef(3, 21) = 4.1846304068269342E-02_dp
6006 34 : fit_coef(4, 21) = -6.3923892927403468E-03_dp
6007 34 : fit_coef(5, 21) = -6.3290486135616480E-03_dp
6008 34 : fit_coef(6, 21) = 4.0785090266698392E-03_dp
6009 34 : fit_coef(7, 21) = 4.4129649982871406E-03_dp
6010 34 : fit_coef(8, 21) = -3.0701955863932482E-03_dp
6011 34 : fit_coef(9, 21) = -5.0155854005366068E-04_dp
6012 34 : fit_coef(10, 21) = 1.2677059967610719E-03_dp
6013 34 : fit_coef(11, 21) = -6.5728561506278344E-04_dp
6014 34 : fit_coef(12, 21) = 1.3236733395452350E-04_dp
6015 34 : fit_coef(0, 22) = 4.0125849549125764E-01_dp
6016 34 : fit_coef(1, 22) = 2.6234441978160788E-01_dp
6017 34 : fit_coef(2, 22) = 1.6705808644309805E-01_dp
6018 34 : fit_coef(3, 22) = 3.7759081921101723E-02_dp
6019 34 : fit_coef(4, 22) = -1.6444808051945672E-02_dp
6020 34 : fit_coef(5, 22) = -6.7086735514358875E-03_dp
6021 34 : fit_coef(6, 22) = 7.4079840573032128E-03_dp
6022 34 : fit_coef(7, 22) = 5.0153636055701280E-03_dp
6023 34 : fit_coef(8, 22) = -5.8034207254719751E-03_dp
6024 34 : fit_coef(9, 22) = 7.1487044000835261E-04_dp
6025 34 : fit_coef(10, 22) = 1.7935699565438628E-03_dp
6026 34 : fit_coef(11, 22) = -1.1756448775298205E-03_dp
6027 34 : fit_coef(12, 22) = 2.3788942753303003E-04_dp
6028 34 : fit_coef(0, 23) = 7.0683650900241923E-01_dp
6029 34 : fit_coef(1, 23) = 3.4775269742355053E-01_dp
6030 34 : fit_coef(2, 23) = 1.9991809868316918E-01_dp
6031 34 : fit_coef(3, 23) = 2.8998979248009617E-02_dp
6032 34 : fit_coef(4, 23) = -2.7072247921548855E-02_dp
6033 34 : fit_coef(5, 23) = -4.9720416004814215E-03_dp
6034 34 : fit_coef(6, 23) = 1.1386666180451437E-02_dp
6035 34 : fit_coef(7, 23) = 4.9476484479521700E-03_dp
6036 34 : fit_coef(8, 23) = -9.6210622467224182E-03_dp
6037 34 : fit_coef(9, 23) = 3.3069098482828903E-03_dp
6038 34 : fit_coef(10, 23) = 1.6164601539057236E-03_dp
6039 34 : fit_coef(11, 23) = -1.5619532900798120E-03_dp
6040 34 : fit_coef(12, 23) = 3.5694695591620168E-04_dp
6041 34 : fit_coef(0, 24) = 1.2349305749929025E+00_dp
6042 34 : fit_coef(1, 24) = 4.3289986648386525E-01_dp
6043 34 : fit_coef(2, 24) = 2.2845857393019400E-01_dp
6044 34 : fit_coef(3, 24) = 1.7946385370009432E-02_dp
6045 34 : fit_coef(4, 24) = -3.6314829777361717E-02_dp
6046 34 : fit_coef(5, 24) = -1.6120574652244938E-03_dp
6047 34 : fit_coef(6, 24) = 1.5127251697612880E-02_dp
6048 34 : fit_coef(7, 24) = 4.2179377246450477E-03_dp
6049 34 : fit_coef(8, 24) = -1.3727271503534512E-02_dp
6050 34 : fit_coef(9, 24) = 6.9063396049124318E-03_dp
6051 34 : fit_coef(10, 24) = 6.9366312151399967E-04_dp
6052 34 : fit_coef(11, 24) = -1.7353304432909385E-03_dp
6053 34 : fit_coef(12, 24) = 4.6246138244891298E-04_dp
6054 34 : fit_coef(0, 25) = 2.1884594395954422E+00_dp
6055 34 : fit_coef(1, 25) = 5.0512490214011563E-01_dp
6056 34 : fit_coef(2, 25) = 2.5294331999124109E-01_dp
6057 34 : fit_coef(3, 25) = 9.9552977533875799E-03_dp
6058 34 : fit_coef(4, 25) = -4.2741646955111831E-02_dp
6059 34 : fit_coef(5, 25) = 1.4996753556095149E-03_dp
6060 34 : fit_coef(6, 25) = 1.7828818970966834E-02_dp
6061 34 : fit_coef(7, 25) = 3.4400974982679682E-03_dp
6062 34 : fit_coef(8, 25) = -1.7077573476609768E-02_dp
6063 34 : fit_coef(9, 25) = 1.0264977475261727E-02_dp
6064 34 : fit_coef(10, 25) = -4.9655867540557698E-04_dp
6065 34 : fit_coef(11, 25) = -1.6960953173867819E-03_dp
6066 34 : fit_coef(12, 25) = 5.2021831684559222E-04_dp
6067 34 : fit_coef(0, 26) = 4.2896812115374434E+00_dp
6068 34 : fit_coef(1, 26) = 5.7441806238555526E-01_dp
6069 34 : fit_coef(2, 26) = 2.8764315098250082E-01_dp
6070 34 : fit_coef(3, 26) = 1.2205511996262715E-02_dp
6071 34 : fit_coef(4, 26) = -4.7500863719757744E-02_dp
6072 34 : fit_coef(5, 26) = 1.9853897004354611E-03_dp
6073 34 : fit_coef(6, 26) = 1.9866889885557001E-02_dp
6074 34 : fit_coef(7, 26) = 3.6718675673585712E-03_dp
6075 34 : fit_coef(8, 26) = -1.9405833778650398E-02_dp
6076 34 : fit_coef(9, 26) = 1.1968919361045174E-02_dp
6077 34 : fit_coef(10, 26) = -8.6190027805330149E-04_dp
6078 34 : fit_coef(11, 26) = -1.8010240017088701E-03_dp
6079 34 : fit_coef(12, 26) = 5.7196032777695038E-04_dp
6080 :
6081 34 : 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 82 : 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 82 : L_b = 1.0000000000000000E+02_dp
6096 82 : U_b = 3.7370000000000000E+05_dp
6097 82 : fit_coef(0, 1) = 1.0328373040080946E-05_dp
6098 82 : fit_coef(1, 1) = 1.0231661765573473E-05_dp
6099 82 : fit_coef(2, 1) = 1.4274421628573503E-03_dp
6100 82 : fit_coef(3, 1) = -9.2218261005801595E-03_dp
6101 82 : fit_coef(4, 1) = 7.9453452208337924E-02_dp
6102 82 : fit_coef(5, 1) = -3.4395924855303062E-01_dp
6103 82 : fit_coef(6, 1) = 1.0503011873064374E+00_dp
6104 82 : fit_coef(7, 1) = -2.2107082564421301E+00_dp
6105 82 : fit_coef(8, 1) = 3.1904625274566456E+00_dp
6106 82 : fit_coef(9, 1) = -3.1005928635963018E+00_dp
6107 82 : fit_coef(10, 1) = 1.9388301331438162E+00_dp
6108 82 : fit_coef(11, 1) = -7.0437721043920587E-01_dp
6109 82 : fit_coef(12, 1) = 1.1297211307192120E-01_dp
6110 82 : fit_coef(0, 2) = 1.1370944761350369E-04_dp
6111 82 : fit_coef(1, 2) = 6.5461398441333884E-05_dp
6112 82 : fit_coef(2, 2) = 9.0857762128942112E-03_dp
6113 82 : fit_coef(3, 2) = -6.1037659291954947E-02_dp
6114 82 : fit_coef(4, 2) = 5.0701553071696137E-01_dp
6115 82 : fit_coef(5, 2) = -2.2094585548616172E+00_dp
6116 82 : fit_coef(6, 2) = 6.7357245459730972E+00_dp
6117 82 : fit_coef(7, 2) = -1.4152000667009908E+01_dp
6118 82 : fit_coef(8, 2) = 2.0402127724921442E+01_dp
6119 82 : fit_coef(9, 2) = -1.9817215032938513E+01_dp
6120 82 : fit_coef(10, 2) = 1.2389779868005123E+01_dp
6121 82 : fit_coef(11, 2) = -4.5013495035293962E+00_dp
6122 82 : fit_coef(12, 2) = 7.2205686510589684E-01_dp
6123 82 : fit_coef(0, 3) = 6.0201360833921547E-04_dp
6124 82 : fit_coef(1, 3) = 2.3713142412530957E-04_dp
6125 82 : fit_coef(2, 3) = 3.2408075864146658E-02_dp
6126 82 : fit_coef(3, 3) = -2.2633769436834197E-01_dp
6127 82 : fit_coef(4, 3) = 1.7944183579800783E+00_dp
6128 82 : fit_coef(5, 3) = -8.0322858690413170E+00_dp
6129 82 : fit_coef(6, 3) = 2.4758947246186221E+01_dp
6130 82 : fit_coef(7, 3) = -5.2297882977111676E+01_dp
6131 82 : fit_coef(8, 3) = 7.5599300021495196E+01_dp
6132 82 : fit_coef(9, 3) = -7.3529871053182731E+01_dp
6133 82 : fit_coef(10, 3) = 4.5999098353208382E+01_dp
6134 82 : fit_coef(11, 3) = -1.6715853539005085E+01_dp
6135 82 : fit_coef(12, 3) = 2.6814682156594003E+00_dp
6136 82 : fit_coef(0, 4) = 2.3239931463444295E-03_dp
6137 82 : fit_coef(1, 4) = 6.7915483564538726E-04_dp
6138 82 : fit_coef(2, 4) = 9.2065143976354222E-02_dp
6139 82 : fit_coef(3, 4) = -6.5920735047309242E-01_dp
6140 82 : fit_coef(4, 4) = 5.0701238208447936E+00_dp
6141 82 : fit_coef(5, 4) = -2.3078149685475569E+01_dp
6142 82 : fit_coef(6, 4) = 7.1252230915973797E+01_dp
6143 82 : fit_coef(7, 4) = -1.5026332268406557E+02_dp
6144 82 : fit_coef(8, 4) = 2.1682358395745959E+02_dp
6145 82 : fit_coef(9, 4) = -2.1059821196596170E+02_dp
6146 82 : fit_coef(10, 4) = 1.3162443597110655E+02_dp
6147 82 : fit_coef(11, 4) = -4.7803836464227409E+01_dp
6148 82 : fit_coef(12, 4) = 7.6658373170675951E+00_dp
6149 82 : fit_coef(0, 5) = 7.4432405183934578E-03_dp
6150 82 : fit_coef(1, 5) = 1.6828152409194407E-03_dp
6151 82 : fit_coef(2, 5) = 2.2645498811467052E-01_dp
6152 82 : fit_coef(3, 5) = -1.6470414947742027E+00_dp
6153 82 : fit_coef(4, 5) = 1.2406213814972343E+01_dp
6154 82 : fit_coef(5, 5) = -5.7052515747077990E+01_dp
6155 82 : fit_coef(6, 5) = 1.7648148382559137E+02_dp
6156 82 : fit_coef(7, 5) = -3.7241542082575245E+02_dp
6157 82 : fit_coef(8, 5) = 5.3766501171349421E+02_dp
6158 82 : fit_coef(9, 5) = -5.2248797832997366E+02_dp
6159 82 : fit_coef(10, 5) = 3.2669873907570917E+02_dp
6160 82 : fit_coef(11, 5) = -1.1869478309408113E+02_dp
6161 82 : fit_coef(12, 5) = 1.9039603955629481E+01_dp
6162 82 : fit_coef(0, 6) = 2.1001669881294191E-02_dp
6163 82 : fit_coef(1, 6) = 3.7493611984017344E-03_dp
6164 82 : fit_coef(2, 6) = 5.0174562015489310E-01_dp
6165 82 : fit_coef(3, 6) = -3.6903350557230272E+00_dp
6166 82 : fit_coef(4, 6) = 2.7380167524745204E+01_dp
6167 82 : fit_coef(5, 6) = -1.2680883651700998E+02_dp
6168 82 : fit_coef(6, 6) = 3.9315723208637161E+02_dp
6169 82 : fit_coef(7, 6) = -8.3061013874245850E+02_dp
6170 82 : fit_coef(8, 6) = 1.2000077154718190E+03_dp
6171 82 : fit_coef(9, 6) = -1.1666285380811528E+03_dp
6172 82 : fit_coef(10, 6) = 7.2965528810276930E+02_dp
6173 82 : fit_coef(11, 6) = -2.6514064826477511E+02_dp
6174 82 : fit_coef(12, 6) = 4.2535848707897181E+01_dp
6175 82 : fit_coef(0, 7) = 5.3988578814712126E-02_dp
6176 82 : fit_coef(1, 7) = 7.6787040162035062E-03_dp
6177 82 : fit_coef(2, 7) = 1.0229613253807799E+00_dp
6178 82 : fit_coef(3, 7) = -7.5874025191500545E+00_dp
6179 82 : fit_coef(4, 7) = 5.5644821860203081E+01_dp
6180 82 : fit_coef(5, 7) = -2.5903592714657515E+02_dp
6181 82 : fit_coef(6, 7) = 8.0491520561775883E+02_dp
6182 82 : fit_coef(7, 7) = -1.7025740847831944E+03_dp
6183 82 : fit_coef(8, 7) = 2.4614597158125571E+03_dp
6184 82 : fit_coef(9, 7) = -2.3939670515607563E+03_dp
6185 82 : fit_coef(10, 7) = 1.4976634167179416E+03_dp
6186 82 : fit_coef(11, 7) = -5.4431186678214578E+02_dp
6187 82 : fit_coef(12, 7) = 8.7333538775326986E+01_dp
6188 82 : fit_coef(0, 8) = 1.2913416270542125E-01_dp
6189 82 : fit_coef(1, 8) = 1.4637308467888006E-02_dp
6190 82 : fit_coef(2, 8) = 1.9427142860381650E+00_dp
6191 82 : fit_coef(3, 8) = -1.4504186559531496E+01_dp
6192 82 : fit_coef(4, 8) = 1.0539283356781200E+02_dp
6193 82 : fit_coef(5, 8) = -4.9250973009160060E+02_dp
6194 82 : fit_coef(6, 8) = 1.5335961739523964E+03_dp
6195 82 : fit_coef(7, 8) = -3.2477036056116422E+03_dp
6196 82 : fit_coef(8, 8) = 4.6984634605620395E+03_dp
6197 82 : fit_coef(9, 8) = -4.5714722547915217E+03_dp
6198 82 : fit_coef(10, 8) = 2.8606360597296798E+03_dp
6199 82 : fit_coef(11, 8) = -1.0398487637572459E+03_dp
6200 82 : fit_coef(12, 8) = 1.6686131315440755E+02_dp
6201 82 : fit_coef(0, 9) = 2.9151438803227880E-01_dp
6202 82 : fit_coef(1, 9) = 2.6141059594544370E-02_dp
6203 82 : fit_coef(2, 9) = 3.4585779341218914E+00_dp
6204 82 : fit_coef(3, 9) = -2.5957371800387559E+01_dp
6205 82 : fit_coef(4, 9) = 1.8719902735916295E+02_dp
6206 82 : fit_coef(5, 9) = -8.7738902954943887E+02_dp
6207 82 : fit_coef(6, 9) = 2.7372194924276941E+03_dp
6208 82 : fit_coef(7, 9) = -5.8030086010828445E+03_dp
6209 82 : fit_coef(8, 9) = 8.4006232674596267E+03_dp
6210 82 : fit_coef(9, 9) = -8.1767388699954290E+03_dp
6211 82 : fit_coef(10, 9) = 5.1179187652543951E+03_dp
6212 82 : fit_coef(11, 9) = -1.8606812820509087E+03_dp
6213 82 : fit_coef(12, 9) = 2.9861178044260612E+02_dp
6214 82 : fit_coef(0, 10) = 6.2761071501945276E-01_dp
6215 82 : fit_coef(1, 10) = 4.3829697389904873E-02_dp
6216 82 : fit_coef(2, 10) = 5.7833019860251502E+00_dp
6217 82 : fit_coef(3, 10) = -4.3589104975069581E+01_dp
6218 82 : fit_coef(4, 10) = 3.1240972247660102E+02_dp
6219 82 : fit_coef(5, 10) = -1.4676188400419255E+03_dp
6220 82 : fit_coef(6, 10) = 4.5862715204341948E+03_dp
6221 82 : fit_coef(7, 10) = -9.7328856974721111E+03_dp
6222 82 : fit_coef(8, 10) = 1.4098068171267152E+04_dp
6223 82 : fit_coef(9, 10) = -1.3727352353131695E+04_dp
6224 82 : fit_coef(10, 10) = 8.5941131147490141E+03_dp
6225 82 : fit_coef(11, 10) = -3.1249775864789372E+03_dp
6226 82 : fit_coef(12, 10) = 5.0156651089860543E+02_dp
6227 82 : fit_coef(0, 11) = 1.3001830139334465E+00_dp
6228 82 : fit_coef(1, 11) = 6.8889203557683909E-02_dp
6229 82 : fit_coef(2, 11) = 9.0695201480430416E+00_dp
6230 82 : fit_coef(3, 11) = -6.8588523830477001E+01_dp
6231 82 : fit_coef(4, 11) = 4.8911175818178219E+02_dp
6232 82 : fit_coef(5, 11) = -2.3017939006101778E+03_dp
6233 82 : fit_coef(6, 11) = 7.2034170829290761E+03_dp
6234 82 : fit_coef(7, 11) = -1.5300571255050740E+04_dp
6235 82 : fit_coef(8, 11) = 2.2174747250984612E+04_dp
6236 82 : fit_coef(9, 11) = -2.1598799766875782E+04_dp
6237 82 : fit_coef(10, 11) = 1.3524962200868669E+04_dp
6238 82 : fit_coef(11, 11) = -4.9186216136818812E+03_dp
6239 82 : fit_coef(12, 11) = 7.8952838092425554E+02_dp
6240 82 : fit_coef(0, 12) = 2.6215772490899263E+00_dp
6241 82 : fit_coef(1, 12) = 1.0119187877095515E-01_dp
6242 82 : fit_coef(2, 12) = 1.3298790450785793E+01_dp
6243 82 : fit_coef(3, 12) = -1.0082948191003250E+02_dp
6244 82 : fit_coef(4, 12) = 7.1624051882694800E+02_dp
6245 82 : fit_coef(5, 12) = -3.3750615698310812E+03_dp
6246 82 : fit_coef(6, 12) = 1.0574350973373779E+04_dp
6247 82 : fit_coef(7, 12) = -2.2477084129138388E+04_dp
6248 82 : fit_coef(8, 12) = 3.2590012647996798E+04_dp
6249 82 : fit_coef(9, 12) = -3.1752355473368389E+04_dp
6250 82 : fit_coef(10, 12) = 1.9886579242865319E+04_dp
6251 82 : fit_coef(11, 12) = -7.2330170769743845E+03_dp
6252 82 : fit_coef(12, 12) = 1.1611278007055782E+03_dp
6253 82 : fit_coef(0, 13) = 5.2970688415539806E+00_dp
6254 82 : fit_coef(1, 13) = 1.3913815821587258E-01_dp
6255 82 : fit_coef(2, 13) = 1.8263424659829006E+01_dp
6256 82 : fit_coef(3, 13) = -1.3870952790580026E+02_dp
6257 82 : fit_coef(4, 13) = 9.8271245072947818E+02_dp
6258 82 : fit_coef(5, 13) = -4.6347205083298186E+03_dp
6259 82 : fit_coef(6, 13) = 1.4532606648412351E+04_dp
6260 82 : fit_coef(7, 13) = -3.0906783800217447E+04_dp
6261 82 : fit_coef(8, 13) = 4.4826644713674119E+04_dp
6262 82 : fit_coef(9, 13) = -4.3683152384513414E+04_dp
6263 82 : fit_coef(10, 13) = 2.7362388150846749E+04_dp
6264 82 : fit_coef(11, 13) = -9.9529300467619232E+03_dp
6265 82 : fit_coef(12, 13) = 1.5978560147630030E+03_dp
6266 82 : fit_coef(0, 14) = 3.3029079169995746E-05_dp
6267 82 : fit_coef(1, 14) = 2.6643361318081685E-05_dp
6268 82 : fit_coef(2, 14) = 3.7453854295855472E-03_dp
6269 82 : fit_coef(3, 14) = -2.4461573064643052E-02_dp
6270 82 : fit_coef(4, 14) = 2.1192677272898949E-01_dp
6271 82 : fit_coef(5, 14) = -9.2298813642259792E-01_dp
6272 82 : fit_coef(6, 14) = 2.8202954491441887E+00_dp
6273 82 : fit_coef(7, 14) = -5.9307601899579083E+00_dp
6274 82 : fit_coef(8, 14) = 8.5478350235106983E+00_dp
6275 82 : fit_coef(9, 14) = -8.2958924766363573E+00_dp
6276 82 : fit_coef(10, 14) = 5.1810926707806537E+00_dp
6277 82 : fit_coef(11, 14) = -1.8802314403008740E+00_dp
6278 82 : fit_coef(12, 14) = 3.0127397290756769E-01_dp
6279 82 : fit_coef(0, 15) = 2.1715120936896851E-04_dp
6280 82 : fit_coef(1, 15) = 9.6158838084655870E-05_dp
6281 82 : fit_coef(2, 15) = 1.3102183838061880E-02_dp
6282 82 : fit_coef(3, 15) = -9.0442571305710165E-02_dp
6283 82 : fit_coef(4, 15) = 7.2073640737136146E-01_dp
6284 82 : fit_coef(5, 15) = -3.1779329684848223E+00_dp
6285 82 : fit_coef(6, 15) = 9.7478690828954182E+00_dp
6286 82 : fit_coef(7, 15) = -2.0582241665854877E+01_dp
6287 82 : fit_coef(8, 15) = 2.9794991676852089E+01_dp
6288 82 : fit_coef(9, 15) = -2.9037927118237850E+01_dp
6289 82 : fit_coef(10, 15) = 1.8203528955433185E+01_dp
6290 82 : fit_coef(11, 15) = -6.6278898854648514E+00_dp
6291 82 : fit_coef(12, 15) = 1.0650411372773607E+00_dp
6292 82 : fit_coef(0, 16) = 8.8916557085975359E-04_dp
6293 82 : fit_coef(1, 16) = 2.7147003112010167E-04_dp
6294 82 : fit_coef(2, 16) = 3.6886711972600503E-02_dp
6295 82 : fit_coef(3, 16) = -2.6522390438189170E-01_dp
6296 82 : fit_coef(4, 16) = 2.0383361789339589E+00_dp
6297 82 : fit_coef(5, 16) = -9.3159312869424529E+00_dp
6298 82 : fit_coef(6, 16) = 2.8836230573430583E+01_dp
6299 82 : fit_coef(7, 16) = -6.0862901561188608E+01_dp
6300 82 : fit_coef(8, 16) = 8.7796437530891168E+01_dp
6301 82 : fit_coef(9, 16) = -8.5203527246658652E+01_dp
6302 82 : fit_coef(10, 16) = 5.3197256397040526E+01_dp
6303 82 : fit_coef(11, 16) = -1.9300241563707537E+01_dp
6304 82 : fit_coef(12, 16) = 3.0920034178994409E+00_dp
6305 82 : fit_coef(0, 17) = 2.8909222386173440E-03_dp
6306 82 : fit_coef(1, 17) = 6.5986499705299726E-04_dp
6307 82 : fit_coef(2, 17) = 8.8661109522972403E-02_dp
6308 82 : fit_coef(3, 17) = -6.4720090249728535E-01_dp
6309 82 : fit_coef(4, 17) = 4.8509444516645317E+00_dp
6310 82 : fit_coef(5, 17) = -2.2365482960360204E+01_dp
6311 82 : fit_coef(6, 17) = 6.9142722370552491E+01_dp
6312 82 : fit_coef(7, 17) = -1.4576807130419496E+02_dp
6313 82 : fit_coef(8, 17) = 2.1031616948122442E+02_dp
6314 82 : fit_coef(9, 17) = -2.0432151206915759E+02_dp
6315 82 : fit_coef(10, 17) = 1.2775135126432421E+02_dp
6316 82 : fit_coef(11, 17) = -4.6418220663487915E+01_dp
6317 82 : fit_coef(12, 17) = 7.4470095221066224E+00_dp
6318 82 : fit_coef(0, 18) = 8.1395124276193651E-03_dp
6319 82 : fit_coef(1, 18) = 1.4295080919928922E-03_dp
6320 82 : fit_coef(2, 18) = 1.9095038913922552E-01_dp
6321 82 : fit_coef(3, 18) = -1.4103276835369478E+00_dp
6322 82 : fit_coef(4, 18) = 1.0406506856630042E+01_dp
6323 82 : fit_coef(5, 18) = -4.8337660891823411E+01_dp
6324 82 : fit_coef(6, 18) = 1.4991827465085015E+02_dp
6325 82 : fit_coef(7, 18) = -3.1676057422657112E+02_dp
6326 82 : fit_coef(8, 18) = 4.5769739592136420E+02_dp
6327 82 : fit_coef(9, 18) = -4.4502674091606121E+02_dp
6328 82 : fit_coef(10, 18) = 2.7836644169317543E+02_dp
6329 82 : fit_coef(11, 18) = -1.0115946637317019E+02_dp
6330 82 : fit_coef(12, 18) = 1.6229500712924121E+01_dp
6331 82 : fit_coef(0, 19) = 2.0717076029345759E-02_dp
6332 82 : fit_coef(1, 19) = 2.8356072593395381E-03_dp
6333 82 : fit_coef(2, 19) = 3.7697026585720034E-01_dp
6334 82 : fit_coef(3, 19) = -2.8080135576835485E+00_dp
6335 82 : fit_coef(4, 19) = 2.0474949195105673E+01_dp
6336 82 : fit_coef(5, 19) = -9.5582095227962725E+01_dp
6337 82 : fit_coef(6, 19) = 2.9724241292709326E+02_dp
6338 82 : fit_coef(7, 19) = -6.2897377141618983E+02_dp
6339 82 : fit_coef(8, 19) = 9.0952762860883638E+02_dp
6340 82 : fit_coef(9, 19) = -8.8470183512709411E+02_dp
6341 82 : fit_coef(10, 19) = 5.5351047071161520E+02_dp
6342 82 : fit_coef(11, 19) = -2.0117820626571816E+02_dp
6343 82 : fit_coef(12, 19) = 3.2279767274864902E+01_dp
6344 82 : fit_coef(0, 20) = 4.8876460483642845E-02_dp
6345 82 : fit_coef(1, 20) = 5.2174808763164821E-03_dp
6346 82 : fit_coef(2, 20) = 6.9090200030553239E-01_dp
6347 82 : fit_coef(3, 20) = -5.1804295291616596E+00_dp
6348 82 : fit_coef(4, 20) = 3.7420371100773927E+01_dp
6349 82 : fit_coef(5, 20) = -1.7533661861799825E+02_dp
6350 82 : fit_coef(6, 20) = 5.4658265990827033E+02_dp
6351 82 : fit_coef(7, 20) = -1.1581864472600616E+03_dp
6352 82 : fit_coef(8, 20) = 1.6761108303901358E+03_dp
6353 82 : fit_coef(9, 20) = -1.6311266679849095E+03_dp
6354 82 : fit_coef(10, 20) = 1.0208160076430613E+03_dp
6355 82 : fit_coef(11, 20) = -3.7110037560401321E+02_dp
6356 82 : fit_coef(12, 20) = 5.9552981560922035E+01_dp
6357 82 : fit_coef(0, 21) = 1.0862470653291458E-01_dp
6358 82 : fit_coef(1, 21) = 8.9557210597009419E-03_dp
6359 82 : fit_coef(2, 21) = 1.1819761188507145E+00_dp
6360 82 : fit_coef(3, 21) = -8.9092575248149508E+00_dp
6361 82 : fit_coef(4, 21) = 6.3862158642253107E+01_dp
6362 82 : fit_coef(5, 21) = -3.0008394292824050E+02_dp
6363 82 : fit_coef(6, 21) = 9.3746815308631687E+02_dp
6364 82 : fit_coef(7, 21) = -1.9889858954576416E+03_dp
6365 82 : fit_coef(8, 21) = 2.8805735949038526E+03_dp
6366 82 : fit_coef(9, 21) = -2.8045287776281298E+03_dp
6367 82 : fit_coef(10, 21) = 1.7556741628884376E+03_dp
6368 82 : fit_coef(11, 21) = -6.3836601287630617E+02_dp
6369 82 : fit_coef(12, 21) = 1.0245612268571801E+02_dp
6370 82 : fit_coef(0, 22) = 2.3000575937054105E-01_dp
6371 82 : fit_coef(1, 22) = 1.4334607293667794E-02_dp
6372 82 : fit_coef(2, 22) = 1.8864545891903439E+00_dp
6373 82 : fit_coef(3, 22) = -1.4280352788842627E+01_dp
6374 82 : fit_coef(4, 22) = 1.0170803299679834E+02_dp
6375 82 : fit_coef(5, 22) = -4.7898216088621695E+02_dp
6376 82 : fit_coef(6, 22) = 1.4991893689445949E+03_dp
6377 82 : fit_coef(7, 22) = -3.1844797903553772E+03_dp
6378 82 : fit_coef(8, 22) = 4.6151825676230128E+03_dp
6379 82 : fit_coef(9, 22) = -4.4952731839222251E+03_dp
6380 82 : fit_coef(10, 22) = 2.8148739884496081E+03_dp
6381 82 : fit_coef(11, 22) = -1.0236785820690926E+03_dp
6382 82 : fit_coef(12, 22) = 1.6431836962570071E+02_dp
6383 82 : fit_coef(0, 23) = 4.6825429870000890E-01_dp
6384 82 : fit_coef(1, 23) = 2.1256443046165384E-02_dp
6385 82 : fit_coef(2, 23) = 2.7905151165222755E+00_dp
6386 82 : fit_coef(3, 23) = -2.1197457436160700E+01_dp
6387 82 : fit_coef(4, 23) = 1.5017192005334016E+02_dp
6388 82 : fit_coef(5, 23) = -7.0843773023664141E+02_dp
6389 82 : fit_coef(6, 23) = 2.2210314991220407E+03_dp
6390 82 : fit_coef(7, 23) = -4.7227286038286647E+03_dp
6391 82 : fit_coef(8, 23) = 6.8489146048021994E+03_dp
6392 82 : fit_coef(9, 23) = -6.6736306428096368E+03_dp
6393 82 : fit_coef(10, 23) = 4.1800022473986091E+03_dp
6394 82 : fit_coef(11, 23) = -1.5203921664836910E+03_dp
6395 82 : fit_coef(12, 23) = 2.4407860279057451E+02_dp
6396 82 : fit_coef(0, 24) = 9.2615015167881409E-01_dp
6397 82 : fit_coef(1, 24) = 2.8851029357722529E-02_dp
6398 82 : fit_coef(2, 24) = 3.7800720586882299E+00_dp
6399 82 : fit_coef(3, 24) = -2.8790145745264784E+01_dp
6400 82 : fit_coef(4, 24) = 2.0311830055185206E+02_dp
6401 82 : fit_coef(5, 24) = -9.5941022550967875E+02_dp
6402 82 : fit_coef(6, 24) = 3.0118661422758710E+03_dp
6403 82 : fit_coef(7, 24) = -6.4099639194822603E+03_dp
6404 82 : fit_coef(8, 24) = 9.3008315617510980E+03_dp
6405 82 : fit_coef(9, 24) = -9.0659183663546519E+03_dp
6406 82 : fit_coef(10, 24) = 5.6796728484798878E+03_dp
6407 82 : fit_coef(11, 24) = -2.0661781228629306E+03_dp
6408 82 : fit_coef(12, 24) = 3.3173195728147749E+02_dp
6409 82 : fit_coef(0, 25) = 1.8197406882188483E+00_dp
6410 82 : fit_coef(1, 25) = 3.5439117125219140E-02_dp
6411 82 : fit_coef(2, 25) = 4.6374741775348376E+00_dp
6412 82 : fit_coef(3, 25) = -3.5376154233726169E+01_dp
6413 82 : fit_coef(4, 25) = 2.4894862911423743E+02_dp
6414 82 : fit_coef(5, 25) = -1.1767196794716788E+03_dp
6415 82 : fit_coef(6, 25) = 3.6971703023290502E+03_dp
6416 82 : fit_coef(7, 25) = -7.8729723077281906E+03_dp
6417 82 : fit_coef(8, 25) = 1.1427813147275856E+04_dp
6418 82 : fit_coef(9, 25) = -1.1141769814002466E+04_dp
6419 82 : fit_coef(10, 25) = 6.9812302395124789E+03_dp
6420 82 : fit_coef(11, 25) = -2.5399272897012484E+03_dp
6421 82 : fit_coef(12, 25) = 4.0782349862907824E+02_dp
6422 82 : fit_coef(0, 26) = 3.8699714083339569E+00_dp
6423 82 : fit_coef(1, 26) = 4.0430697875251408E-02_dp
6424 82 : fit_coef(2, 26) = 5.2898404083820747E+00_dp
6425 82 : fit_coef(3, 26) = -4.0359075619765512E+01_dp
6426 82 : fit_coef(4, 26) = 2.8393314652682147E+02_dp
6427 82 : fit_coef(5, 26) = -1.3421543359055597E+03_dp
6428 82 : fit_coef(6, 26) = 4.2173994053467277E+03_dp
6429 82 : fit_coef(7, 26) = -8.9814986542291372E+03_dp
6430 82 : fit_coef(8, 26) = 1.3037566274562520E+04_dp
6431 82 : fit_coef(9, 26) = -1.2711681344703467E+04_dp
6432 82 : fit_coef(10, 26) = 7.9650982603751236E+03_dp
6433 82 : fit_coef(11, 26) = -2.8979280791052265E+03_dp
6434 82 : fit_coef(12, 26) = 4.6531132823912742E+02_dp
6435 :
6436 82 : 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 36 : 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 36 : L_b = 1.0000000000000000E+01_dp
6451 36 : U_b = 1.0000000000000000E+02_dp
6452 36 : fit_coef(0, 1) = 4.0562245241676015E-03_dp
6453 36 : fit_coef(1, 1) = 1.0969040206552460E-02_dp
6454 36 : fit_coef(2, 1) = 1.4405191275649688E-02_dp
6455 36 : fit_coef(3, 1) = 1.0649635686233358E-02_dp
6456 36 : fit_coef(4, 1) = 3.2778746107621219E-03_dp
6457 36 : fit_coef(5, 1) = -1.5147809086133006E-03_dp
6458 36 : fit_coef(6, 1) = -1.7768378644379805E-03_dp
6459 36 : fit_coef(7, 1) = -1.7040745050157837E-04_dp
6460 36 : fit_coef(8, 1) = 4.3464032657914310E-04_dp
6461 36 : fit_coef(9, 1) = 2.9772666014833774E-04_dp
6462 36 : fit_coef(10, 1) = -3.9919353211016935E-04_dp
6463 36 : fit_coef(11, 1) = 1.9832458267342404E-04_dp
6464 36 : fit_coef(12, 1) = -4.3867764193471502E-05_dp
6465 36 : fit_coef(0, 2) = 2.1853974229517521E-02_dp
6466 36 : fit_coef(1, 2) = 5.8406086298247388E-02_dp
6467 36 : fit_coef(2, 2) = 7.6152918249589960E-02_dp
6468 36 : fit_coef(3, 2) = 5.5933948505163415E-02_dp
6469 36 : fit_coef(4, 2) = 1.7021801576352837E-02_dp
6470 36 : fit_coef(5, 2) = -8.0247279189159457E-03_dp
6471 36 : fit_coef(6, 2) = -9.2606257683723776E-03_dp
6472 36 : fit_coef(7, 2) = -8.4039046464910933E-04_dp
6473 36 : fit_coef(8, 2) = 2.2920465602860878E-03_dp
6474 36 : fit_coef(9, 2) = 1.5096114542523550E-03_dp
6475 36 : fit_coef(10, 2) = -2.0536902896596300E-03_dp
6476 36 : fit_coef(11, 2) = 1.0198430679936156E-03_dp
6477 36 : fit_coef(12, 2) = -2.2535568541917208E-04_dp
6478 36 : fit_coef(0, 3) = 5.6010245407281063E-02_dp
6479 36 : fit_coef(1, 3) = 1.4622279778697206E-01_dp
6480 36 : fit_coef(2, 3) = 1.8818537023914636E-01_dp
6481 36 : fit_coef(3, 3) = 1.3664268008941158E-01_dp
6482 36 : fit_coef(4, 3) = 4.0762241157569830E-02_dp
6483 36 : fit_coef(5, 3) = -1.9875823087429162E-02_dp
6484 36 : fit_coef(6, 3) = -2.2308862126762034E-02_dp
6485 36 : fit_coef(7, 3) = -1.8247566176568901E-03_dp
6486 36 : fit_coef(8, 3) = 5.6284318752787164E-03_dp
6487 36 : fit_coef(9, 3) = 3.4697564866730192E-03_dp
6488 36 : fit_coef(10, 3) = -4.8438240685035059E-03_dp
6489 36 : fit_coef(11, 3) = 2.4030731708201193E-03_dp
6490 36 : fit_coef(12, 3) = -5.2978518261630908E-04_dp
6491 36 : fit_coef(0, 4) = 1.1092328992892893E-01_dp
6492 36 : fit_coef(1, 4) = 2.7859680338891873E-01_dp
6493 36 : fit_coef(2, 4) = 3.5169352998000031E-01_dp
6494 36 : fit_coef(3, 4) = 2.5142478390455381E-01_dp
6495 36 : fit_coef(4, 4) = 7.2990020531424102E-02_dp
6496 36 : fit_coef(5, 4) = -3.7221206950039602E-02_dp
6497 36 : fit_coef(6, 4) = -4.0210444834685513E-02_dp
6498 36 : fit_coef(7, 4) = -2.7577403917926737E-03_dp
6499 36 : fit_coef(8, 4) = 1.0362436751946298E-02_dp
6500 36 : fit_coef(9, 4) = 5.8637315949354504E-03_dp
6501 36 : fit_coef(10, 4) = -8.4785224237194489E-03_dp
6502 36 : fit_coef(11, 4) = 4.1965838668479400E-03_dp
6503 36 : fit_coef(12, 4) = -9.2121396633372532E-04_dp
6504 36 : fit_coef(0, 5) = 1.9465685621238632E-01_dp
6505 36 : fit_coef(1, 5) = 4.6152338108270852E-01_dp
6506 36 : fit_coef(2, 5) = 5.6693470576329441E-01_dp
6507 36 : fit_coef(3, 5) = 3.9807380880317028E-01_dp
6508 36 : fit_coef(4, 5) = 1.1253953929433713E-01_dp
6509 36 : fit_coef(5, 5) = -6.0165003179139975E-02_dp
6510 36 : fit_coef(6, 5) = -6.2492236340615785E-02_dp
6511 36 : fit_coef(7, 5) = -3.1516877242773393E-03_dp
6512 36 : fit_coef(8, 5) = 1.7371050989592705E-02_dp
6513 36 : fit_coef(9, 5) = 6.8885779131374857E-03_dp
6514 36 : fit_coef(10, 5) = -1.1712499657108166E-02_dp
6515 36 : fit_coef(11, 5) = 5.9558759087716033E-03_dp
6516 36 : fit_coef(12, 5) = -1.3302080306339819E-03_dp
6517 36 : fit_coef(0, 6) = 3.2087033276941335E-01_dp
6518 36 : fit_coef(1, 6) = 7.0343427128207259E-01_dp
6519 36 : fit_coef(2, 6) = 8.3155424687895485E-01_dp
6520 36 : fit_coef(3, 6) = 5.7158103074002242E-01_dp
6521 36 : fit_coef(4, 6) = 1.6033482878158128E-01_dp
6522 36 : fit_coef(5, 6) = -8.5970624138830110E-02_dp
6523 36 : fit_coef(6, 6) = -9.0709492543919121E-02_dp
6524 36 : fit_coef(7, 6) = -4.6906764752169330E-03_dp
6525 36 : fit_coef(8, 6) = 2.7054261624413843E-02_dp
6526 36 : fit_coef(9, 6) = 1.4112534091895116E-02_dp
6527 36 : fit_coef(10, 6) = -2.5828598206741545E-02_dp
6528 36 : fit_coef(11, 6) = 1.4364571586594627E-02_dp
6529 36 : fit_coef(12, 6) = -3.2730781292866435E-03_dp
6530 36 : fit_coef(0, 7) = 5.1123719677822987E-01_dp
6531 36 : fit_coef(1, 7) = 1.0160745695891158E+00_dp
6532 36 : fit_coef(2, 7) = 1.1406376033091816E+00_dp
6533 36 : fit_coef(3, 7) = 7.6072431018364839E-01_dp
6534 36 : fit_coef(4, 7) = 2.1623548132157380E-01_dp
6535 36 : fit_coef(5, 7) = -1.0385662211042419E-01_dp
6536 36 : fit_coef(6, 7) = -1.2398076049296762E-01_dp
6537 36 : fit_coef(7, 7) = -5.5258832288643421E-03_dp
6538 36 : fit_coef(8, 7) = 5.4749667731452062E-03_dp
6539 36 : fit_coef(9, 7) = 7.8756125030946533E-02_dp
6540 36 : fit_coef(10, 7) = -8.1450501282583770E-02_dp
6541 36 : fit_coef(11, 7) = 3.5582766973436604E-02_dp
6542 36 : fit_coef(12, 7) = -6.2851848529127960E-03_dp
6543 36 : fit_coef(0, 8) = 7.9862454256130755E-01_dp
6544 36 : fit_coef(1, 8) = 1.4140917795956391E+00_dp
6545 36 : fit_coef(2, 8) = 1.4887439734322301E+00_dp
6546 36 : fit_coef(3, 8) = 9.4959856751799310E-01_dp
6547 36 : fit_coef(4, 8) = 2.7310813416061092E-01_dp
6548 36 : fit_coef(5, 8) = -1.0471167639057280E-01_dp
6549 36 : fit_coef(6, 8) = -1.4117735675446755E-01_dp
6550 36 : fit_coef(7, 8) = -2.8720200153060829E-02_dp
6551 36 : fit_coef(8, 8) = 9.9988658384949844E-03_dp
6552 36 : fit_coef(9, 8) = 4.4994288100147821E-02_dp
6553 36 : fit_coef(10, 8) = 9.8296298107774047E-03_dp
6554 36 : fit_coef(11, 8) = -3.6510317397394888E-02_dp
6555 36 : fit_coef(12, 8) = 1.3048706811534378E-02_dp
6556 36 : fit_coef(0, 9) = 1.2318540903074773E+00_dp
6557 36 : fit_coef(1, 9) = 1.9126535284122799E+00_dp
6558 36 : fit_coef(2, 9) = 1.8706375498146159E+00_dp
6559 36 : fit_coef(3, 9) = 1.1237046593985318E+00_dp
6560 36 : fit_coef(4, 9) = 3.2033236887832522E-01_dp
6561 36 : fit_coef(5, 9) = -9.0264012269780411E-02_dp
6562 36 : fit_coef(6, 9) = -1.2294629287092433E-01_dp
6563 36 : fit_coef(7, 9) = -8.7215860683106217E-02_dp
6564 36 : fit_coef(8, 9) = 1.0323515038061323E-01_dp
6565 36 : fit_coef(9, 9) = -1.6774909880232289E-01_dp
6566 36 : fit_coef(10, 9) = 2.4446069536217355E-01_dp
6567 36 : fit_coef(11, 9) = -1.4978114145464044E-01_dp
6568 36 : fit_coef(12, 9) = 3.2845034249025538E-02_dp
6569 36 : fit_coef(0, 10) = 1.8833267667765345E+00_dp
6570 36 : fit_coef(1, 10) = 2.5238922534191865E+00_dp
6571 36 : fit_coef(2, 10) = 2.2803847971690017E+00_dp
6572 36 : fit_coef(3, 10) = 1.2737526428801398E+00_dp
6573 36 : fit_coef(4, 10) = 3.5105123224520401E-01_dp
6574 36 : fit_coef(5, 10) = -6.2857188281637041E-02_dp
6575 36 : fit_coef(6, 10) = -9.2210310288645597E-02_dp
6576 36 : fit_coef(7, 10) = -9.0722133116613465E-02_dp
6577 36 : fit_coef(8, 10) = 7.7837218665255559E-02_dp
6578 36 : fit_coef(9, 10) = -1.6015129533752295E-01_dp
6579 36 : fit_coef(10, 10) = 1.8283995908504222E-01_dp
6580 36 : fit_coef(11, 10) = -6.6325970667744996E-02_dp
6581 36 : fit_coef(12, 10) = 3.0820539987197176E-03_dp
6582 36 : fit_coef(0, 11) = 2.8620729078671019E+00_dp
6583 36 : fit_coef(1, 11) = 3.2531972126791606E+00_dp
6584 36 : fit_coef(2, 11) = 2.7114279585314924E+00_dp
6585 36 : fit_coef(3, 11) = 1.3964902193137803E+00_dp
6586 36 : fit_coef(4, 11) = 3.6517639119142786E-01_dp
6587 36 : fit_coef(5, 11) = -2.6597116040773625E-02_dp
6588 36 : fit_coef(6, 11) = -5.9694762140569908E-02_dp
6589 36 : fit_coef(7, 11) = -3.8758341163376515E-02_dp
6590 36 : fit_coef(8, 11) = -5.1332218924274670E-02_dp
6591 36 : fit_coef(9, 11) = 2.5767378796536407E-02_dp
6592 36 : fit_coef(10, 11) = -4.9870158292428322E-02_dp
6593 36 : fit_coef(11, 11) = 8.2792987390825273E-02_dp
6594 36 : fit_coef(12, 11) = -3.1947335725901589E-02_dp
6595 36 : fit_coef(0, 12) = 4.3396108413641770E+00_dp
6596 36 : fit_coef(1, 12) = 4.0968755914648138E+00_dp
6597 36 : fit_coef(2, 12) = 3.1592385203472810E+00_dp
6598 36 : fit_coef(3, 12) = 1.4949577953660931E+00_dp
6599 36 : fit_coef(4, 12) = 3.6703288840113468E-01_dp
6600 36 : fit_coef(5, 12) = 1.2827934117818336E-02_dp
6601 36 : fit_coef(6, 12) = -1.5966885082492444E-02_dp
6602 36 : fit_coef(7, 12) = -4.1769471548348015E-03_dp
6603 36 : fit_coef(8, 12) = -1.0829887623228632E-01_dp
6604 36 : fit_coef(9, 12) = 9.0063525913958845E-02_dp
6605 36 : fit_coef(10, 12) = -1.1718852204865197E-01_dp
6606 36 : fit_coef(11, 12) = 1.0379976023591850E-01_dp
6607 36 : fit_coef(12, 12) = -2.9513628601409953E-02_dp
6608 36 : fit_coef(0, 13) = 6.6160518775236428E+00_dp
6609 36 : fit_coef(1, 13) = 5.0450926097390525E+00_dp
6610 36 : fit_coef(2, 13) = 3.6269712810913406E+00_dp
6611 36 : fit_coef(3, 13) = 1.5787210925267479E+00_dp
6612 36 : fit_coef(4, 13) = 3.6140765183946116E-01_dp
6613 36 : fit_coef(5, 13) = 5.2660795733846105E-02_dp
6614 36 : fit_coef(6, 13) = 3.6679818035805827E-02_dp
6615 36 : fit_coef(7, 13) = 3.0817238462290870E-03_dp
6616 36 : fit_coef(8, 13) = -8.5513616434734735E-02_dp
6617 36 : fit_coef(9, 13) = 3.2480437301242795E-02_dp
6618 36 : fit_coef(10, 13) = -4.3097395900725401E-02_dp
6619 36 : fit_coef(11, 13) = 4.0285499498477921E-02_dp
6620 36 : fit_coef(12, 13) = -9.0795169799425725E-03_dp
6621 36 : fit_coef(0, 14) = 1.0378663082522372E+01_dp
6622 36 : fit_coef(1, 14) = 6.1051748119732530E+00_dp
6623 36 : fit_coef(2, 14) = 4.1393929927065685E+00_dp
6624 36 : fit_coef(3, 14) = 1.6656362128427478E+00_dp
6625 36 : fit_coef(4, 14) = 3.5175946384380213E-01_dp
6626 36 : fit_coef(5, 14) = 9.2053766494033781E-02_dp
6627 36 : fit_coef(6, 14) = 9.0977018487087655E-02_dp
6628 36 : fit_coef(7, 14) = 9.2641513651703887E-03_dp
6629 36 : fit_coef(8, 14) = -5.5705669679808022E-02_dp
6630 36 : fit_coef(9, 14) = -2.2165364299652109E-02_dp
6631 36 : fit_coef(10, 14) = 2.7050501330544607E-02_dp
6632 36 : fit_coef(11, 14) = -9.8544712706888447E-03_dp
6633 36 : fit_coef(12, 14) = 3.3393463606462780E-03_dp
6634 36 : fit_coef(0, 15) = 1.0463061146787979E-02_dp
6635 36 : fit_coef(1, 15) = 2.8219919737545576E-02_dp
6636 36 : fit_coef(2, 15) = 3.6997970832918815E-02_dp
6637 36 : fit_coef(3, 15) = 2.7310442581655728E-02_dp
6638 36 : fit_coef(4, 15) = 8.3833807447771629E-03_dp
6639 36 : fit_coef(5, 15) = -3.8927429936348136E-03_dp
6640 36 : fit_coef(6, 15) = -4.5483815262270738E-03_dp
6641 36 : fit_coef(7, 15) = -4.3064267744574074E-04_dp
6642 36 : fit_coef(8, 15) = 1.1157764240345824E-03_dp
6643 36 : fit_coef(9, 15) = 7.5712564333480544E-04_dp
6644 36 : fit_coef(10, 15) = -1.0186473443121876E-03_dp
6645 36 : fit_coef(11, 15) = 5.0602854051267157E-04_dp
6646 36 : fit_coef(12, 15) = -1.1190592947238425E-04_dp
6647 36 : fit_coef(0, 16) = 2.5471251770259992E-02_dp
6648 36 : fit_coef(1, 16) = 6.7073734523031128E-02_dp
6649 36 : fit_coef(2, 16) = 8.6686390148806164E-02_dp
6650 36 : fit_coef(3, 16) = 6.3163726138437945E-02_dp
6651 36 : fit_coef(4, 16) = 1.8954077181435283E-02_dp
6652 36 : fit_coef(5, 16) = -9.1546883000010616E-03_dp
6653 36 : fit_coef(6, 16) = -1.0357597642743745E-02_dp
6654 36 : fit_coef(7, 16) = -8.7389112118697681E-04_dp
6655 36 : fit_coef(8, 16) = 2.5999493392185090E-03_dp
6656 36 : fit_coef(9, 16) = 1.6312506180299385E-03_dp
6657 36 : fit_coef(10, 16) = -2.2608110574895506E-03_dp
6658 36 : fit_coef(11, 16) = 1.1220090537728696E-03_dp
6659 36 : fit_coef(12, 16) = -2.4758294844337260E-04_dp
6660 36 : fit_coef(0, 17) = 4.3551694119749178E-02_dp
6661 36 : fit_coef(1, 17) = 1.0925569190527253E-01_dp
6662 36 : fit_coef(2, 17) = 1.3759390563727888E-01_dp
6663 36 : fit_coef(3, 17) = 9.8026280776137426E-02_dp
6664 36 : fit_coef(4, 17) = 2.8264281628926104E-02_dp
6665 36 : fit_coef(5, 17) = -1.4570182357127179E-02_dp
6666 36 : fit_coef(6, 17) = -1.5618085831617121E-02_dp
6667 36 : fit_coef(7, 17) = -1.0386286860505113E-03_dp
6668 36 : fit_coef(8, 17) = 4.0623648670812191E-03_dp
6669 36 : fit_coef(9, 17) = 2.2393521384181845E-03_dp
6670 36 : fit_coef(10, 17) = -3.2758370140128020E-03_dp
6671 36 : fit_coef(11, 17) = 1.6218936224125669E-03_dp
6672 36 : fit_coef(12, 17) = -3.5585220637753326E-04_dp
6673 36 : fit_coef(0, 18) = 6.7585710312796060E-02_dp
6674 36 : fit_coef(1, 18) = 1.5648129031717098E-01_dp
6675 36 : fit_coef(2, 18) = 1.8950121838341139E-01_dp
6676 36 : fit_coef(3, 18) = 1.3119730563134613E-01_dp
6677 36 : fit_coef(4, 18) = 3.5948846183710491E-02_dp
6678 36 : fit_coef(5, 18) = -2.0164654606078806E-02_dp
6679 36 : fit_coef(6, 18) = -2.0055622446027831E-02_dp
6680 36 : fit_coef(7, 18) = -6.9996789003826023E-04_dp
6681 36 : fit_coef(8, 18) = 5.4059447836637305E-03_dp
6682 36 : fit_coef(9, 18) = 2.3753238258316855E-03_dp
6683 36 : fit_coef(10, 18) = -3.8252579297800944E-03_dp
6684 36 : fit_coef(11, 18) = 1.8835729864486405E-03_dp
6685 36 : fit_coef(12, 18) = -4.0977704401502611E-04_dp
6686 36 : fit_coef(0, 19) = 1.0211824263133877E-01_dp
6687 36 : fit_coef(1, 19) = 2.1075731039578760E-01_dp
6688 36 : fit_coef(2, 19) = 2.4059034712033525E-01_dp
6689 36 : fit_coef(3, 19) = 1.6134884680771011E-01_dp
6690 36 : fit_coef(4, 19) = 4.3350649255430605E-02_dp
6691 36 : fit_coef(5, 19) = -2.5429945851545656E-02_dp
6692 36 : fit_coef(6, 19) = -2.4808194209897237E-02_dp
6693 36 : fit_coef(7, 19) = -4.5717313943595194E-04_dp
6694 36 : fit_coef(8, 19) = 9.7364264196386652E-03_dp
6695 36 : fit_coef(9, 19) = -9.7009624494576196E-04_dp
6696 36 : fit_coef(10, 19) = -2.9110931341643355E-03_dp
6697 36 : fit_coef(11, 19) = 2.0554438206790630E-03_dp
6698 36 : fit_coef(12, 19) = -5.3799541981056737E-04_dp
6699 36 : fit_coef(0, 20) = 1.5387007707293665E-01_dp
6700 36 : fit_coef(1, 20) = 2.7502702312847982E-01_dp
6701 36 : fit_coef(2, 20) = 2.8778273930986864E-01_dp
6702 36 : fit_coef(3, 20) = 1.8376769806731383E-01_dp
6703 36 : fit_coef(4, 20) = 5.2375278020144772E-02_dp
6704 36 : fit_coef(5, 20) = -2.4188675683434760E-02_dp
6705 36 : fit_coef(6, 20) = -3.1878082611254147E-02_dp
6706 36 : fit_coef(7, 20) = -2.0440498451142863E-03_dp
6707 36 : fit_coef(8, 20) = 1.7743467113242066E-03_dp
6708 36 : fit_coef(9, 20) = 2.9993028484423083E-02_dp
6709 36 : fit_coef(10, 20) = -3.7493397222034638E-02_dp
6710 36 : fit_coef(11, 20) = 1.9771570359339716E-02_dp
6711 36 : fit_coef(12, 20) = -4.1700973428850313E-03_dp
6712 36 : fit_coef(0, 21) = 2.3226494166758732E-01_dp
6713 36 : fit_coef(1, 21) = 3.5273736189295163E-01_dp
6714 36 : fit_coef(2, 21) = 3.2946524583838299E-01_dp
6715 36 : fit_coef(3, 21) = 1.9174149746173408E-01_dp
6716 36 : fit_coef(4, 21) = 5.8141887677596829E-02_dp
6717 36 : fit_coef(5, 21) = -9.7825016932211791E-03_dp
6718 36 : fit_coef(6, 21) = -3.0972124419450422E-02_dp
6719 36 : fit_coef(7, 21) = -2.8877801446827007E-03_dp
6720 36 : fit_coef(8, 21) = -3.6764584475810547E-02_dp
6721 36 : fit_coef(9, 21) = 7.0959072404975718E-02_dp
6722 36 : fit_coef(10, 21) = -3.5178291993696188E-02_dp
6723 36 : fit_coef(11, 21) = -9.8088379200671617E-04_dp
6724 36 : fit_coef(12, 21) = 3.7618284525752117E-03_dp
6725 36 : fit_coef(0, 22) = 3.5052467022994122E-01_dp
6726 36 : fit_coef(1, 22) = 4.4588641535984419E-01_dp
6727 36 : fit_coef(2, 22) = 3.6589831022304731E-01_dp
6728 36 : fit_coef(3, 22) = 1.8352935077226612E-01_dp
6729 36 : fit_coef(4, 22) = 5.3697669457182857E-02_dp
6730 36 : fit_coef(5, 22) = 7.4149644860502300E-03_dp
6731 36 : fit_coef(6, 22) = 1.2817157120917000E-03_dp
6732 36 : fit_coef(7, 22) = -5.0033726005623343E-02_dp
6733 36 : fit_coef(8, 22) = 6.8349818056791897E-02_dp
6734 36 : fit_coef(9, 22) = -1.7000421175238506E-01_dp
6735 36 : fit_coef(10, 22) = 2.3036729897077399E-01_dp
6736 36 : fit_coef(11, 22) = -1.3857914112066141E-01_dp
6737 36 : fit_coef(12, 22) = 3.1478942190343064E-02_dp
6738 36 : fit_coef(0, 23) = 5.2779750339667775E-01_dp
6739 36 : fit_coef(1, 23) = 5.5332389225129053E-01_dp
6740 36 : fit_coef(2, 23) = 3.9690230471520443E-01_dp
6741 36 : fit_coef(3, 23) = 1.6312883734215308E-01_dp
6742 36 : fit_coef(4, 23) = 3.9552650126779464E-02_dp
6743 36 : fit_coef(5, 23) = 2.1230303801123101E-02_dp
6744 36 : fit_coef(6, 23) = 2.9571154052233411E-02_dp
6745 36 : fit_coef(7, 23) = -4.5494947806276824E-02_dp
6746 36 : fit_coef(8, 23) = 6.6833147701713960E-02_dp
6747 36 : fit_coef(9, 23) = -1.5861734029387040E-01_dp
6748 36 : fit_coef(10, 23) = 1.3362195160908977E-01_dp
6749 36 : fit_coef(11, 23) = -3.0781412640455877E-02_dp
6750 36 : fit_coef(12, 23) = -4.0950711211332350E-03_dp
6751 36 : fit_coef(0, 24) = 7.9293469396592242E-01_dp
6752 36 : fit_coef(1, 24) = 6.7009858113053966E-01_dp
6753 36 : fit_coef(2, 24) = 4.2145481861873185E-01_dp
6754 36 : fit_coef(3, 24) = 1.3642048218640376E-01_dp
6755 36 : fit_coef(4, 24) = 2.1922752252294477E-02_dp
6756 36 : fit_coef(5, 24) = 3.2874744499942446E-02_dp
6757 36 : fit_coef(6, 24) = 3.0227410874256264E-02_dp
6758 36 : fit_coef(7, 24) = 3.7127938956607313E-02_dp
6759 36 : fit_coef(8, 24) = -1.1080272293058828E-01_dp
6760 36 : fit_coef(9, 24) = 1.5696651468543765E-01_dp
6761 36 : fit_coef(10, 24) = -2.2158444445106978E-01_dp
6762 36 : fit_coef(11, 24) = 1.6507639589038958E-01_dp
6763 36 : fit_coef(12, 24) = -4.4931540554666242E-02_dp
6764 36 : fit_coef(0, 25) = 1.1922412385770986E+00_dp
6765 36 : fit_coef(1, 25) = 7.8786890944540700E-01_dp
6766 36 : fit_coef(2, 25) = 4.3978600997964423E-01_dp
6767 36 : fit_coef(3, 25) = 1.0955812452827124E-01_dp
6768 36 : fit_coef(4, 25) = 7.1243000175333282E-03_dp
6769 36 : fit_coef(5, 25) = 3.8586652562380884E-02_dp
6770 36 : fit_coef(6, 25) = 3.7152220150416283E-02_dp
6771 36 : fit_coef(7, 25) = 5.1558439446380777E-02_dp
6772 36 : fit_coef(8, 25) = -1.1083564016687726E-01_dp
6773 36 : fit_coef(9, 25) = 1.5290802796167138E-01_dp
6774 36 : fit_coef(10, 25) = -1.7624313473286510E-01_dp
6775 36 : fit_coef(11, 25) = 9.5327501416994614E-02_dp
6776 36 : fit_coef(12, 25) = -1.7028005023958050E-02_dp
6777 36 : fit_coef(0, 26) = 1.8099472486487456E+00_dp
6778 36 : fit_coef(1, 26) = 8.9758639724651268E-01_dp
6779 36 : fit_coef(2, 26) = 4.5619407404374801E-01_dp
6780 36 : fit_coef(3, 26) = 8.8963048208584819E-02_dp
6781 36 : fit_coef(4, 26) = -2.5842727308316919E-03_dp
6782 36 : fit_coef(5, 26) = 3.9852736978965124E-02_dp
6783 36 : fit_coef(6, 26) = 4.9637846366422017E-02_dp
6784 36 : fit_coef(7, 26) = 1.7104716626654703E-02_dp
6785 36 : fit_coef(8, 26) = -5.1404130029074147E-03_dp
6786 36 : fit_coef(9, 26) = -1.8271352476782278E-02_dp
6787 36 : fit_coef(10, 26) = 3.0152636564646153E-02_dp
6788 36 : fit_coef(11, 26) = -4.0913238884136026E-02_dp
6789 36 : fit_coef(12, 26) = 1.7209300973137127E-02_dp
6790 36 : fit_coef(0, 27) = 2.8415520058389325E+00_dp
6791 36 : fit_coef(1, 27) = 9.9858013711246008E-01_dp
6792 36 : fit_coef(2, 27) = 4.8263553345863242E-01_dp
6793 36 : fit_coef(3, 27) = 8.1362436826961093E-02_dp
6794 36 : fit_coef(4, 27) = -8.1050564154871527E-03_dp
6795 36 : fit_coef(5, 27) = 3.9674059022610446E-02_dp
6796 36 : fit_coef(6, 27) = 5.4176205880144122E-02_dp
6797 36 : fit_coef(7, 27) = 2.6408258437705550E-03_dp
6798 36 : fit_coef(8, 27) = 3.6418581121829920E-02_dp
6799 36 : fit_coef(9, 27) = -7.2590963148842197E-02_dp
6800 36 : fit_coef(10, 27) = 9.0190833590845856E-02_dp
6801 36 : fit_coef(11, 27) = -6.7850000466319185E-02_dp
6802 36 : fit_coef(12, 27) = 1.8925208943418582E-02_dp
6803 36 : fit_coef(0, 28) = 5.0338617688312999E+00_dp
6804 36 : fit_coef(1, 28) = 1.1415572014123594E+00_dp
6805 36 : fit_coef(2, 28) = 5.5834539482924794E-01_dp
6806 36 : fit_coef(3, 28) = 9.8824807093161326E-02_dp
6807 36 : fit_coef(4, 28) = -1.0740041647079411E-02_dp
6808 36 : fit_coef(5, 28) = 3.9309450063690091E-02_dp
6809 36 : fit_coef(6, 28) = 5.4929203884089291E-02_dp
6810 36 : fit_coef(7, 28) = 1.2322580840140561E-02_dp
6811 36 : fit_coef(8, 28) = 1.8323929549560497E-02_dp
6812 36 : fit_coef(9, 28) = -2.9383377972038723E-02_dp
6813 36 : fit_coef(10, 28) = 4.2820470862085666E-02_dp
6814 36 : fit_coef(11, 28) = -2.8686857835350920E-02_dp
6815 36 : fit_coef(12, 28) = 5.4565805278581868E-03_dp
6816 :
6817 36 : 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 34 : 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 34 : L_b = 1.0000000000000000E+02_dp
6832 34 : U_b = 1.1722808202408223E+03_dp
6833 34 : fit_coef(0, 1) = 5.4467895546803416E-04_dp
6834 34 : fit_coef(1, 1) = 1.5857771854287006E-03_dp
6835 34 : fit_coef(2, 1) = 2.3073428933440593E-03_dp
6836 34 : fit_coef(3, 1) = 2.0056780241026078E-03_dp
6837 34 : fit_coef(4, 1) = 9.5252806530394737E-04_dp
6838 34 : fit_coef(5, 1) = 4.5225480425719547E-05_dp
6839 34 : fit_coef(6, 1) = -2.1217629613097376E-04_dp
6840 34 : fit_coef(7, 1) = -5.0216895355491796E-05_dp
6841 34 : fit_coef(8, 1) = 3.8287705248810476E-05_dp
6842 34 : fit_coef(9, 1) = 7.2535948309621214E-05_dp
6843 34 : fit_coef(10, 1) = -9.2252835912099736E-05_dp
6844 34 : fit_coef(11, 1) = 4.3983534472290816E-05_dp
6845 34 : fit_coef(12, 1) = -8.2237204784032551E-06_dp
6846 34 : fit_coef(0, 2) = 3.0464535721029173E-03_dp
6847 34 : fit_coef(1, 2) = 8.6149108928923676E-03_dp
6848 34 : fit_coef(2, 2) = 1.2362165768730629E-02_dp
6849 34 : fit_coef(3, 2) = 1.0619459122609453E-02_dp
6850 34 : fit_coef(4, 2) = 4.9727394573446972E-03_dp
6851 34 : fit_coef(5, 2) = 2.0040047900640227E-04_dp
6852 34 : fit_coef(6, 2) = -1.1121250175071501E-03_dp
6853 34 : fit_coef(7, 2) = -2.5253190910672047E-04_dp
6854 34 : fit_coef(8, 2) = 2.0786942223541925E-04_dp
6855 34 : fit_coef(9, 2) = 3.6647453679821519E-04_dp
6856 34 : fit_coef(10, 2) = -4.7725200991211036E-04_dp
6857 34 : fit_coef(11, 2) = 2.3017003059152598E-04_dp
6858 34 : fit_coef(12, 2) = -4.3440212796964786E-05_dp
6859 34 : fit_coef(0, 3) = 8.4179094658504636E-03_dp
6860 34 : fit_coef(1, 3) = 2.2382112298387765E-02_dp
6861 34 : fit_coef(2, 3) = 3.1254689785869226E-02_dp
6862 34 : fit_coef(3, 3) = 2.6305836769925709E-02_dp
6863 34 : fit_coef(4, 3) = 1.2019230418388028E-02_dp
6864 34 : fit_coef(5, 3) = 3.2210723317093755E-04_dp
6865 34 : fit_coef(6, 3) = -2.7056207855165560E-03_dp
6866 34 : fit_coef(7, 3) = -5.6040022077270704E-04_dp
6867 34 : fit_coef(8, 3) = 5.4121141114160339E-04_dp
6868 34 : fit_coef(9, 3) = 8.1004167044932199E-04_dp
6869 34 : fit_coef(10, 3) = -1.1112740690897719E-03_dp
6870 34 : fit_coef(11, 3) = 5.4779892766252693E-04_dp
6871 34 : fit_coef(12, 3) = -1.0512838684553561E-04_dp
6872 34 : fit_coef(0, 4) = 1.8743574617056585E-02_dp
6873 34 : fit_coef(1, 4) = 4.5210340778486291E-02_dp
6874 34 : fit_coef(2, 4) = 6.0224002984973317E-02_dp
6875 34 : fit_coef(3, 4) = 4.9094876694850402E-02_dp
6876 34 : fit_coef(4, 4) = 2.1831501314762986E-02_dp
6877 34 : fit_coef(5, 4) = 3.2839489812930983E-04_dp
6878 34 : fit_coef(6, 4) = -5.0144416787406901E-03_dp
6879 34 : fit_coef(7, 4) = -9.7843840294365748E-04_dp
6880 34 : fit_coef(8, 4) = 1.0342060306701268E-03_dp
6881 34 : fit_coef(9, 4) = 1.5910763103707255E-03_dp
6882 34 : fit_coef(10, 4) = -2.2573252364893278E-03_dp
6883 34 : fit_coef(11, 4) = 1.1445941503911742E-03_dp
6884 34 : fit_coef(12, 4) = -2.2506139447365695E-04_dp
6885 34 : fit_coef(0, 5) = 3.8243937154880572E-02_dp
6886 34 : fit_coef(1, 5) = 8.1467829047918827E-02_dp
6887 34 : fit_coef(2, 5) = 1.0129786520932144E-01_dp
6888 34 : fit_coef(3, 5) = 7.8216152968887814E-02_dp
6889 34 : fit_coef(4, 5) = 3.3350941393280653E-02_dp
6890 34 : fit_coef(5, 5) = 5.2823533556460426E-04_dp
6891 34 : fit_coef(6, 5) = -7.3749832466795265E-03_dp
6892 34 : fit_coef(7, 5) = -1.5646554141616070E-03_dp
6893 34 : fit_coef(8, 5) = 9.1282587135457208E-04_dp
6894 34 : fit_coef(9, 5) = 2.8481769249969957E-03_dp
6895 34 : fit_coef(10, 5) = -3.1292839864729078E-03_dp
6896 34 : fit_coef(11, 5) = 1.3433122010827140E-03_dp
6897 34 : fit_coef(12, 5) = -2.2591769996675308E-04_dp
6898 34 : fit_coef(0, 6) = 7.4571737250878262E-02_dp
6899 34 : fit_coef(1, 6) = 1.3811565890497141E-01_dp
6900 34 : fit_coef(2, 6) = 1.5798315551672285E-01_dp
6901 34 : fit_coef(3, 6) = 1.1260753901599996E-01_dp
6902 34 : fit_coef(4, 6) = 4.4100222118730312E-02_dp
6903 34 : fit_coef(5, 6) = 2.1773862891778066E-04_dp
6904 34 : fit_coef(6, 6) = -8.3087822491922161E-03_dp
6905 34 : fit_coef(7, 6) = -2.1043028241427880E-03_dp
6906 34 : fit_coef(8, 6) = 1.8792681898943972E-03_dp
6907 34 : fit_coef(9, 6) = 3.1606237510210035E-04_dp
6908 34 : fit_coef(10, 6) = -5.4242874432157808E-04_dp
6909 34 : fit_coef(11, 6) = 2.2538605364452114E-04_dp
6910 34 : fit_coef(12, 6) = -5.0219363398529674E-05_dp
6911 34 : fit_coef(0, 7) = 1.4098571554579828E-01_dp
6912 34 : fit_coef(1, 7) = 2.2478771441370507E-01_dp
6913 34 : fit_coef(2, 7) = 2.3494329165976915E-01_dp
6914 34 : fit_coef(3, 7) = 1.5140646411833683E-01_dp
6915 34 : fit_coef(4, 7) = 5.1480514391188670E-02_dp
6916 34 : fit_coef(5, 7) = -1.9136093640078735E-03_dp
6917 34 : fit_coef(6, 7) = -7.8257777325216969E-03_dp
6918 34 : fit_coef(7, 7) = -9.9807084346081507E-04_dp
6919 34 : fit_coef(8, 7) = 2.2963464957662357E-03_dp
6920 34 : fit_coef(9, 7) = -1.9447302259471774E-03_dp
6921 34 : fit_coef(10, 7) = 4.3017240890955453E-04_dp
6922 34 : fit_coef(11, 7) = 4.7144332953281682E-04_dp
6923 34 : fit_coef(12, 7) = -2.1997791857150025E-04_dp
6924 34 : fit_coef(0, 8) = 2.5999858418452071E-01_dp
6925 34 : fit_coef(1, 8) = 3.5368499241454637E-01_dp
6926 34 : fit_coef(2, 8) = 3.3704821274394664E-01_dp
6927 34 : fit_coef(3, 8) = 1.9318903274447125E-01_dp
6928 34 : fit_coef(4, 8) = 5.3280944838378592E-02_dp
6929 34 : fit_coef(5, 8) = -6.3861100195045095E-03_dp
6930 34 : fit_coef(6, 8) = -5.8003810200407740E-03_dp
6931 34 : fit_coef(7, 8) = 1.4075796032845642E-03_dp
6932 34 : fit_coef(8, 8) = 2.4434092283670862E-03_dp
6933 34 : fit_coef(9, 8) = -4.5616600603175456E-03_dp
6934 34 : fit_coef(10, 8) = 1.8926356543785563E-03_dp
6935 34 : fit_coef(11, 8) = 2.2201716818935917E-04_dp
6936 34 : fit_coef(12, 8) = -2.2032045330927993E-04_dp
6937 34 : fit_coef(0, 9) = 4.6927925194228570E-01_dp
6938 34 : fit_coef(1, 9) = 5.3896976247930295E-01_dp
6939 34 : fit_coef(2, 9) = 4.6838489154168161E-01_dp
6940 34 : fit_coef(3, 9) = 2.3526229136436330E-01_dp
6941 34 : fit_coef(4, 9) = 4.7454952056688732E-02_dp
6942 34 : fit_coef(5, 9) = -1.2685981031239016E-02_dp
6943 34 : fit_coef(6, 9) = -1.4744220873732451E-03_dp
6944 34 : fit_coef(7, 9) = 4.2905695407292228E-03_dp
6945 34 : fit_coef(8, 9) = 2.4711991371951058E-03_dp
6946 34 : fit_coef(9, 9) = -8.6550441967466144E-03_dp
6947 34 : fit_coef(10, 9) = 5.5989569069497076E-03_dp
6948 34 : fit_coef(11, 9) = -1.3463966560621509E-03_dp
6949 34 : fit_coef(12, 9) = 5.6917396181052615E-05_dp
6950 34 : fit_coef(0, 10) = 8.3113745246756776E-01_dp
6951 34 : fit_coef(1, 10) = 7.9501654600703975E-01_dp
6952 34 : fit_coef(2, 10) = 6.3118071249392171E-01_dp
6953 34 : fit_coef(3, 10) = 2.7364530371013518E-01_dp
6954 34 : fit_coef(4, 10) = 3.2333401581906181E-02_dp
6955 34 : fit_coef(5, 10) = -1.9422043063657940E-02_dp
6956 34 : fit_coef(6, 10) = 6.0392759901066601E-03_dp
6957 34 : fit_coef(7, 10) = 7.1646103557214402E-03_dp
6958 34 : fit_coef(8, 10) = 1.3209371123133807E-03_dp
6959 34 : fit_coef(9, 10) = -1.3329493616005855E-02_dp
6960 34 : fit_coef(10, 10) = 1.1118391120775293E-02_dp
6961 34 : fit_coef(11, 10) = -3.9802162789608605E-03_dp
6962 34 : fit_coef(12, 10) = 5.4198727348417862E-04_dp
6963 34 : fit_coef(0, 11) = 1.4482023274879392E+00_dp
6964 34 : fit_coef(1, 11) = 1.1330048924955463E+00_dp
6965 34 : fit_coef(2, 11) = 8.2485522761522434E-01_dp
6966 34 : fit_coef(3, 11) = 3.0394925510152571E-01_dp
6967 34 : fit_coef(4, 11) = 7.2638847029286640E-03_dp
6968 34 : fit_coef(5, 11) = -2.4671422910119499E-02_dp
6969 34 : fit_coef(6, 11) = 1.7366475605224755E-02_dp
6970 34 : fit_coef(7, 11) = 9.3584526548286841E-03_dp
6971 34 : fit_coef(8, 11) = -1.8731252836985278E-03_dp
6972 34 : fit_coef(9, 11) = -1.7532663892185343E-02_dp
6973 34 : fit_coef(10, 11) = 1.7972283371407362E-02_dp
6974 34 : fit_coef(11, 11) = -7.6180802914050756E-03_dp
6975 34 : fit_coef(12, 11) = 1.2561263859800901E-03_dp
6976 34 : fit_coef(0, 12) = 2.4920360801417596E+00_dp
6977 34 : fit_coef(1, 12) = 1.5562052067140830E+00_dp
6978 34 : fit_coef(2, 12) = 1.0460115631746023E+00_dp
6979 34 : fit_coef(3, 12) = 3.2329508963929127E-01_dp
6980 34 : fit_coef(4, 12) = -2.6843427897215052E-02_dp
6981 34 : fit_coef(5, 12) = -2.6728379775572533E-02_dp
6982 34 : fit_coef(6, 12) = 3.2440057594826148E-02_dp
6983 34 : fit_coef(7, 12) = 1.0203339477948091E-02_dp
6984 34 : fit_coef(8, 12) = -7.5116389543029823E-03_dp
6985 34 : fit_coef(9, 12) = -2.0251551518009794E-02_dp
6986 34 : fit_coef(10, 12) = 2.5495522854135564E-02_dp
6987 34 : fit_coef(11, 12) = -1.2104045379629679E-02_dp
6988 34 : fit_coef(12, 12) = 2.2002184184182066E-03_dp
6989 34 : fit_coef(0, 13) = 4.2695725351678870E+00_dp
6990 34 : fit_coef(1, 13) = 2.0569142521947663E+00_dp
6991 34 : fit_coef(2, 13) = 1.2906701222000276E+00_dp
6992 34 : fit_coef(3, 13) = 3.3274287972587252E-01_dp
6993 34 : fit_coef(4, 13) = -6.7760240413352227E-02_dp
6994 34 : fit_coef(5, 13) = -2.5210323779882499E-02_dp
6995 34 : fit_coef(6, 13) = 5.0470840558373135E-02_dp
6996 34 : fit_coef(7, 13) = 9.5160539695092316E-03_dp
6997 34 : fit_coef(8, 13) = -1.5360600121122914E-02_dp
6998 34 : fit_coef(9, 13) = -2.1060084216392275E-02_dp
6999 34 : fit_coef(10, 13) = 3.3061137892312159E-02_dp
7000 34 : fit_coef(11, 13) = -1.7135171327692631E-02_dp
7001 34 : fit_coef(12, 13) = 3.3198097857474905E-03_dp
7002 34 : fit_coef(0, 14) = 7.4706366451203330E+00_dp
7003 34 : fit_coef(1, 14) = 2.6255475168075386E+00_dp
7004 34 : fit_coef(2, 14) = 1.5617856992687866E+00_dp
7005 34 : fit_coef(3, 14) = 3.3898821868503676E-01_dp
7006 34 : fit_coef(4, 14) = -1.1349423621812627E-01_dp
7007 34 : fit_coef(5, 14) = -2.1752415544934678E-02_dp
7008 34 : fit_coef(6, 14) = 7.0659941513993574E-02_dp
7009 34 : fit_coef(7, 14) = 7.9261305614328585E-03_dp
7010 34 : fit_coef(8, 14) = -2.4678202093857821E-02_dp
7011 34 : fit_coef(9, 14) = -2.0791238512333610E-02_dp
7012 34 : fit_coef(10, 14) = 4.0834605352408383E-02_dp
7013 34 : fit_coef(11, 14) = -2.2601414883140436E-02_dp
7014 34 : fit_coef(12, 14) = 4.5678225526306271E-03_dp
7015 34 : fit_coef(0, 15) = 1.4166144548081244E-03_dp
7016 34 : fit_coef(1, 15) = 4.0988329863504650E-03_dp
7017 34 : fit_coef(2, 15) = 5.9448187504450257E-03_dp
7018 34 : fit_coef(3, 15) = 5.1533064863913264E-03_dp
7019 34 : fit_coef(4, 15) = 2.4394418491756548E-03_dp
7020 34 : fit_coef(5, 15) = 1.1163214246871172E-04_dp
7021 34 : fit_coef(6, 15) = -5.4395417380967090E-04_dp
7022 34 : fit_coef(7, 15) = -1.2744617101115058E-04_dp
7023 34 : fit_coef(8, 15) = 9.9020248580942340E-05_dp
7024 34 : fit_coef(9, 15) = 1.8429376434903194E-04_dp
7025 34 : fit_coef(10, 15) = -2.3572941138030507E-04_dp
7026 34 : fit_coef(11, 15) = 1.1270257688728590E-04_dp
7027 34 : fit_coef(12, 15) = -2.1120306082703953E-05_dp
7028 34 : fit_coef(0, 16) = 3.7180060821504178E-03_dp
7029 34 : fit_coef(1, 16) = 1.0136250443655282E-02_dp
7030 34 : fit_coef(2, 16) = 1.4300959605183702E-02_dp
7031 34 : fit_coef(3, 16) = 1.2111006697402966E-02_dp
7032 34 : fit_coef(4, 16) = 5.5715231524265116E-03_dp
7033 34 : fit_coef(5, 16) = 1.7441962760050931E-04_dp
7034 34 : fit_coef(6, 16) = -1.2509495746884976E-03_dp
7035 34 : fit_coef(7, 16) = -2.6932600471792030E-04_dp
7036 34 : fit_coef(8, 16) = 2.4202856508010202E-04_dp
7037 34 : fit_coef(9, 16) = 3.9544082532111499E-04_dp
7038 34 : fit_coef(10, 16) = -5.2934481355649469E-04_dp
7039 34 : fit_coef(11, 16) = 2.5870684688921450E-04_dp
7040 34 : fit_coef(12, 16) = -4.9352748645601205E-05_dp
7041 34 : fit_coef(0, 17) = 7.3573792852102415E-03_dp
7042 34 : fit_coef(1, 17) = 1.7769053739351975E-02_dp
7043 34 : fit_coef(2, 17) = 2.3686656634361428E-02_dp
7044 34 : fit_coef(3, 17) = 1.9285714809028087E-02_dp
7045 34 : fit_coef(4, 17) = 8.4872745881098346E-03_dp
7046 34 : fit_coef(5, 17) = 3.4696339797671155E-05_dp
7047 34 : fit_coef(6, 17) = -1.9464426054708341E-03_dp
7048 34 : fit_coef(7, 17) = -3.4174035665184455E-04_dp
7049 34 : fit_coef(8, 17) = 4.7554753790861559E-04_dp
7050 34 : fit_coef(9, 17) = 4.2925599708472817E-04_dp
7051 34 : fit_coef(10, 17) = -7.0959124228041825E-04_dp
7052 34 : fit_coef(11, 17) = 3.7293802063667668E-04_dp
7053 34 : fit_coef(12, 17) = -7.4872640261499496E-05_dp
7054 34 : fit_coef(0, 18) = 1.3977177746865988E-02_dp
7055 34 : fit_coef(1, 18) = 2.8606023538180633E-02_dp
7056 34 : fit_coef(2, 18) = 3.4571612966699722E-02_dp
7057 34 : fit_coef(3, 18) = 2.6149166759159050E-02_dp
7058 34 : fit_coef(4, 18) = 1.0984913521363774E-02_dp
7059 34 : fit_coef(5, 18) = 7.7055787642742803E-05_dp
7060 34 : fit_coef(6, 18) = -2.5922755331103330E-03_dp
7061 34 : fit_coef(7, 18) = -4.8489977776779012E-04_dp
7062 34 : fit_coef(8, 18) = 1.5912901418092180E-04_dp
7063 34 : fit_coef(9, 18) = 1.5881868365226204E-03_dp
7064 34 : fit_coef(10, 18) = -1.8151464311114490E-03_dp
7065 34 : fit_coef(11, 18) = 8.5592821993186205E-04_dp
7066 34 : fit_coef(12, 18) = -1.5937383356627851E-04_dp
7067 34 : fit_coef(0, 19) = 2.6264101814506675E-02_dp
7068 34 : fit_coef(1, 19) = 4.5069161923578932E-02_dp
7069 34 : fit_coef(2, 19) = 4.8169189713700107E-02_dp
7070 34 : fit_coef(3, 19) = 3.1904492882075079E-02_dp
7071 34 : fit_coef(4, 19) = 1.1603766261612461E-02_dp
7072 34 : fit_coef(5, 19) = 1.8449908333587032E-04_dp
7073 34 : fit_coef(6, 19) = -1.7877726122463406E-03_dp
7074 34 : fit_coef(7, 19) = -7.5764206916605059E-04_dp
7075 34 : fit_coef(8, 19) = 2.8343231172872694E-04_dp
7076 34 : fit_coef(9, 19) = -5.9914897854961122E-04_dp
7077 34 : fit_coef(10, 19) = 1.3517055951379382E-03_dp
7078 34 : fit_coef(11, 19) = -9.4046015820634316E-04_dp
7079 34 : fit_coef(12, 19) = 2.2350581726021887E-04_dp
7080 34 : fit_coef(0, 20) = 4.8542207101173400E-02_dp
7081 34 : fit_coef(1, 20) = 6.9832820033889687E-02_dp
7082 34 : fit_coef(2, 20) = 6.5995740079255238E-02_dp
7083 34 : fit_coef(3, 20) = 3.6752596227584124E-02_dp
7084 34 : fit_coef(4, 20) = 9.4571244340008204E-03_dp
7085 34 : fit_coef(5, 20) = -1.0484402051494153E-03_dp
7086 34 : fit_coef(6, 20) = -1.5752390773495777E-04_dp
7087 34 : fit_coef(7, 20) = 1.0876735653687303E-04_dp
7088 34 : fit_coef(8, 20) = 1.0073470936970389E-03_dp
7089 34 : fit_coef(9, 20) = -3.0335098186363291E-03_dp
7090 34 : fit_coef(10, 20) = 2.1855940575857963E-03_dp
7091 34 : fit_coef(11, 20) = -4.5502298284867644E-04_dp
7092 34 : fit_coef(12, 20) = -3.4790305788945764E-05_dp
7093 34 : fit_coef(0, 21) = 8.7942456610255598E-02_dp
7094 34 : fit_coef(1, 21) = 1.0555324383884353E-01_dp
7095 34 : fit_coef(2, 21) = 8.8752093517154698E-02_dp
7096 34 : fit_coef(3, 21) = 4.0620455348294761E-02_dp
7097 34 : fit_coef(4, 21) = 4.9418858666300082E-03_dp
7098 34 : fit_coef(5, 21) = -3.3032510647944919E-03_dp
7099 34 : fit_coef(6, 21) = 1.1546343697416441E-03_dp
7100 34 : fit_coef(7, 21) = 1.9549734572505361E-03_dp
7101 34 : fit_coef(8, 21) = 5.6213884018718063E-05_dp
7102 34 : fit_coef(9, 21) = -1.9404012109824945E-03_dp
7103 34 : fit_coef(10, 21) = 5.3863092062487572E-04_dp
7104 34 : fit_coef(11, 21) = 3.8099987718174182E-04_dp
7105 34 : fit_coef(12, 21) = -1.6063218378014254E-04_dp
7106 34 : fit_coef(0, 22) = 1.5620880999122425E-01_dp
7107 34 : fit_coef(1, 22) = 1.5462937480065686E-01_dp
7108 34 : fit_coef(2, 22) = 1.1615728166593994E-01_dp
7109 34 : fit_coef(3, 22) = 4.2496601438037490E-02_dp
7110 34 : fit_coef(4, 22) = -1.6862132065151886E-03_dp
7111 34 : fit_coef(5, 22) = -5.5527712863935753E-03_dp
7112 34 : fit_coef(6, 22) = 3.0288231280584822E-03_dp
7113 34 : fit_coef(7, 22) = 2.7239270206899919E-03_dp
7114 34 : fit_coef(8, 22) = 2.3923207067007299E-04_dp
7115 34 : fit_coef(9, 22) = -3.4467494238847617E-03_dp
7116 34 : fit_coef(10, 22) = 2.6143123206984532E-03_dp
7117 34 : fit_coef(11, 22) = -9.5623661147149601E-04_dp
7118 34 : fit_coef(12, 22) = 1.5884529743136178E-04_dp
7119 34 : fit_coef(0, 23) = 2.7248883355523357E-01_dp
7120 34 : fit_coef(1, 23) = 2.1839288076669880E-01_dp
7121 34 : fit_coef(2, 23) = 1.4690508945871661E-01_dp
7122 34 : fit_coef(3, 23) = 4.0972405769053262E-02_dp
7123 34 : fit_coef(4, 23) = -1.0255836491498508E-02_dp
7124 34 : fit_coef(5, 23) = -6.8103039861294205E-03_dp
7125 34 : fit_coef(6, 23) = 5.7774256001662866E-03_dp
7126 34 : fit_coef(7, 23) = 2.9716307657906005E-03_dp
7127 34 : fit_coef(8, 23) = -3.8415214985403008E-04_dp
7128 34 : fit_coef(9, 23) = -4.5597005257117969E-03_dp
7129 34 : fit_coef(10, 23) = 4.6944833426410494E-03_dp
7130 34 : fit_coef(11, 23) = -2.1231572186145029E-03_dp
7131 34 : fit_coef(12, 23) = 3.8196379187575797E-04_dp
7132 34 : fit_coef(0, 24) = 4.6789642997790454E-01_dp
7133 34 : fit_coef(1, 24) = 2.9564830559342764E-01_dp
7134 34 : fit_coef(2, 24) = 1.7859318172912267E-01_dp
7135 34 : fit_coef(3, 24) = 3.5029171279950352E-02_dp
7136 34 : fit_coef(4, 24) = -2.0106998533844407E-02_dp
7137 34 : fit_coef(5, 24) = -6.3290051255165099E-03_dp
7138 34 : fit_coef(6, 24) = 9.3627910136797072E-03_dp
7139 34 : fit_coef(7, 24) = 2.6599389408438201E-03_dp
7140 34 : fit_coef(8, 24) = -2.0615332759583711E-03_dp
7141 34 : fit_coef(9, 24) = -4.6173560793899586E-03_dp
7142 34 : fit_coef(10, 24) = 6.2747096995400117E-03_dp
7143 34 : fit_coef(11, 24) = -3.1434465968595239E-03_dp
7144 34 : fit_coef(12, 24) = 5.9448478612450029E-04_dp
7145 34 : fit_coef(0, 25) = 7.9390404143601678E-01_dp
7146 34 : fit_coef(1, 25) = 3.8094350576553354E-01_dp
7147 34 : fit_coef(2, 25) = 2.0815634677459935E-01_dp
7148 34 : fit_coef(3, 25) = 2.5054416108850112E-02_dp
7149 34 : fit_coef(4, 25) = -2.9877418297843340E-02_dp
7150 34 : fit_coef(5, 25) = -3.8648566065354233E-03_dp
7151 34 : fit_coef(6, 25) = 1.3281740014574807E-02_dp
7152 34 : fit_coef(7, 25) = 1.6073039898392629E-03_dp
7153 34 : fit_coef(8, 25) = -4.3975022763734321E-03_dp
7154 34 : fit_coef(9, 25) = -3.6092937145507167E-03_dp
7155 34 : fit_coef(10, 25) = 7.3177671091434133E-03_dp
7156 34 : fit_coef(11, 25) = -4.1069025396153367E-03_dp
7157 34 : fit_coef(12, 25) = 8.3442522049861077E-04_dp
7158 34 : fit_coef(0, 26) = 1.3421299372909123E+00_dp
7159 34 : fit_coef(1, 26) = 4.6409313440446603E-01_dp
7160 34 : fit_coef(2, 26) = 2.3339441406477554E-01_dp
7161 34 : fit_coef(3, 26) = 1.3785053308326188E-02_dp
7162 34 : fit_coef(4, 26) = -3.7941211960007708E-02_dp
7163 34 : fit_coef(5, 26) = -1.7132484132012456E-04_dp
7164 34 : fit_coef(6, 26) = 1.6722419910236191E-02_dp
7165 34 : fit_coef(7, 26) = 4.5287606479249242E-05_dp
7166 34 : fit_coef(8, 26) = -6.8396430449082519E-03_dp
7167 34 : fit_coef(9, 26) = -1.7433447611092249E-03_dp
7168 34 : fit_coef(10, 26) = 7.6094558147861901E-03_dp
7169 34 : fit_coef(11, 26) = -4.8080400030221532E-03_dp
7170 34 : fit_coef(12, 26) = 1.0435040492483968E-03_dp
7171 34 : fit_coef(0, 27) = 2.3127647897779702E+00_dp
7172 34 : fit_coef(1, 27) = 5.3494805569190185E-01_dp
7173 34 : fit_coef(2, 27) = 2.5603491110440707E-01_dp
7174 34 : fit_coef(3, 27) = 6.2124469115487774E-03_dp
7175 34 : fit_coef(4, 27) = -4.3500571617098645E-02_dp
7176 34 : fit_coef(5, 27) = 2.9267102310614004E-03_dp
7177 34 : fit_coef(6, 27) = 1.9176839114778386E-02_dp
7178 34 : fit_coef(7, 27) = -1.3114239457504276E-03_dp
7179 34 : fit_coef(8, 27) = -8.7196471933934649E-03_dp
7180 34 : fit_coef(9, 27) = -1.4236987601663990E-05_dp
7181 34 : fit_coef(10, 27) = 7.5377946011018363E-03_dp
7182 34 : fit_coef(11, 27) = -5.2272346094548762E-03_dp
7183 34 : fit_coef(12, 27) = 1.1857786912012739E-03_dp
7184 34 : fit_coef(0, 28) = 4.4310556767314351E+00_dp
7185 34 : fit_coef(1, 28) = 6.0851379611857248E-01_dp
7186 34 : fit_coef(2, 28) = 2.9194514151733547E-01_dp
7187 34 : fit_coef(3, 28) = 8.6001943701959644E-03_dp
7188 34 : fit_coef(4, 28) = -4.8295972382001021E-02_dp
7189 34 : fit_coef(5, 28) = 3.4189484756573089E-03_dp
7190 34 : fit_coef(6, 28) = 2.1364281048084820E-02_dp
7191 34 : fit_coef(7, 28) = -1.6460148108292097E-03_dp
7192 34 : fit_coef(8, 28) = -9.8467342034871362E-03_dp
7193 34 : fit_coef(9, 28) = 1.9090555066223413E-04_dp
7194 34 : fit_coef(10, 28) = 8.3032333199491645E-03_dp
7195 34 : fit_coef(11, 28) = -5.8101678643582262E-03_dp
7196 34 : fit_coef(12, 28) = 1.3244384992621098E-03_dp
7197 :
7198 34 : 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 92 : 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 92 : L_b = 9.4708858956711737E+01_dp
7213 92 : U_b = 6.6910000000000000E+05_dp
7214 92 : fit_coef(0, 1) = 5.7644508135195325E-06_dp
7215 92 : fit_coef(1, 1) = 8.8059899546543633E-06_dp
7216 92 : fit_coef(2, 1) = 9.8246367093007174E-04_dp
7217 92 : fit_coef(3, 1) = -5.7370459929060305E-03_dp
7218 92 : fit_coef(4, 1) = 5.4909691175756163E-02_dp
7219 92 : fit_coef(5, 1) = -2.3201875112604708E-01_dp
7220 92 : fit_coef(6, 1) = 7.0724150950356890E-01_dp
7221 92 : fit_coef(7, 1) = -1.4925604266418715E+00_dp
7222 92 : fit_coef(8, 1) = 2.1603279291789366E+00_dp
7223 92 : fit_coef(9, 1) = -2.1043657951755335E+00_dp
7224 92 : fit_coef(10, 1) = 1.3179096181212082E+00_dp
7225 92 : fit_coef(11, 1) = -4.7916040323369041E-01_dp
7226 92 : fit_coef(12, 1) = 7.6853944770310323E-02_dp
7227 92 : fit_coef(0, 2) = 6.3482217934141788E-05_dp
7228 92 : fit_coef(1, 2) = 5.6715849587820812E-05_dp
7229 92 : fit_coef(2, 2) = 6.2902935744076748E-03_dp
7230 92 : fit_coef(3, 2) = -3.8825646732371183E-02_dp
7231 92 : fit_coef(4, 2) = 3.5215367034308359E-01_dp
7232 92 : fit_coef(5, 2) = -1.5068239503633283E+00_dp
7233 92 : fit_coef(6, 2) = 4.5854281378525714E+00_dp
7234 92 : fit_coef(7, 2) = -9.6460393022334507E+00_dp
7235 92 : fit_coef(8, 2) = 1.3925086681528807E+01_dp
7236 92 : fit_coef(9, 2) = -1.3538171863016146E+01_dp
7237 92 : fit_coef(10, 2) = 8.4668043138765512E+00_dp
7238 92 : fit_coef(11, 2) = -3.0752413149585256E+00_dp
7239 92 : fit_coef(12, 2) = 4.9288840241270471E-01_dp
7240 92 : fit_coef(0, 3) = 3.3613588297925877E-04_dp
7241 92 : fit_coef(1, 3) = 2.0810718441537009E-04_dp
7242 92 : fit_coef(2, 3) = 2.2496352429605227E-02_dp
7243 92 : fit_coef(3, 3) = -1.4508680125471160E-01_dp
7244 92 : fit_coef(4, 3) = 1.2240878955617038E+00_dp
7245 92 : fit_coef(5, 3) = -5.4269306653344804E+00_dp
7246 92 : fit_coef(6, 3) = 1.6783138844933998E+01_dp
7247 92 : fit_coef(7, 3) = -3.5628143752717627E+01_dp
7248 92 : fit_coef(8, 3) = 5.1720421721162715E+01_dp
7249 92 : fit_coef(9, 3) = -5.0458114469889409E+01_dp
7250 92 : fit_coef(10, 3) = 3.1625635386312588E+01_dp
7251 92 : fit_coef(11, 3) = -1.1502746293672999E+01_dp
7252 92 : fit_coef(12, 3) = 1.8452512921088244E+00_dp
7253 92 : fit_coef(0, 4) = 1.2977058344000711E-03_dp
7254 92 : fit_coef(1, 4) = 6.0051493044492425E-04_dp
7255 92 : fit_coef(2, 4) = 6.4379175573630529E-02_dp
7256 92 : fit_coef(3, 4) = -4.2944616668718744E-01_dp
7257 92 : fit_coef(4, 4) = 3.4645304257752727E+00_dp
7258 92 : fit_coef(5, 4) = -1.5790291716256178E+01_dp
7259 92 : fit_coef(6, 4) = 4.9078910409345937E+01_dp
7260 92 : fit_coef(7, 4) = -1.0406732095355643E+02_dp
7261 92 : fit_coef(8, 4) = 1.5069319179330122E+02_dp
7262 92 : fit_coef(9, 4) = -1.4664743032705482E+02_dp
7263 92 : fit_coef(10, 4) = 9.1717900592693681E+01_dp
7264 92 : fit_coef(11, 4) = -3.3301586691674665E+01_dp
7265 92 : fit_coef(12, 4) = 5.3348395481918729E+00_dp
7266 92 : fit_coef(0, 5) = 4.1564666328203293E-03_dp
7267 92 : fit_coef(1, 5) = 1.5024272029496644E-03_dp
7268 92 : fit_coef(2, 5) = 1.5961690430876282E-01_dp
7269 92 : fit_coef(3, 5) = -1.0856048657785689E+00_dp
7270 92 : fit_coef(4, 5) = 8.4819759793848739E+00_dp
7271 92 : fit_coef(5, 5) = -3.9236853866944621E+01_dp
7272 92 : fit_coef(6, 5) = 1.2225270389761864E+02_dp
7273 92 : fit_coef(7, 5) = -2.5932080520941867E+02_dp
7274 92 : fit_coef(8, 5) = 3.7560378396472731E+02_dp
7275 92 : fit_coef(9, 5) = -3.6564399683386677E+02_dp
7276 92 : fit_coef(10, 5) = 2.2876919730710458E+02_dp
7277 92 : fit_coef(11, 5) = -8.3091860520998807E+01_dp
7278 92 : fit_coef(12, 5) = 1.3315159702194723E+01_dp
7279 92 : fit_coef(0, 6) = 1.1728185806559138E-02_dp
7280 92 : fit_coef(1, 6) = 3.3854671547705814E-03_dp
7281 92 : fit_coef(2, 6) = 3.5708079041567914E-01_dp
7282 92 : fit_coef(3, 6) = -2.4616715243590788E+00_dp
7283 92 : fit_coef(4, 6) = 1.8784735712246597E+01_dp
7284 92 : fit_coef(5, 6) = -8.7758450553219319E+01_dp
7285 92 : fit_coef(6, 6) = 2.7430420638340945E+02_dp
7286 92 : fit_coef(7, 6) = -5.8284545441781790E+02_dp
7287 92 : fit_coef(8, 6) = 8.4515131830014900E+02_dp
7288 92 : fit_coef(9, 6) = -8.2334556633746092E+02_dp
7289 92 : fit_coef(10, 6) = 5.1537716566398308E+02_dp
7290 92 : fit_coef(11, 6) = -1.8724712324686436E+02_dp
7291 92 : fit_coef(12, 6) = 3.0011313266344054E+01_dp
7292 92 : fit_coef(0, 7) = 3.0150116177462289E-02_dp
7293 92 : fit_coef(1, 7) = 7.0271320856721093E-03_dp
7294 92 : fit_coef(2, 7) = 7.3674268137292198E-01_dp
7295 92 : fit_coef(3, 7) = -5.1296976804148287E+00_dp
7296 92 : fit_coef(4, 7) = 3.8429636567626652E+01_dp
7297 92 : fit_coef(5, 7) = -1.8076150868535993E+02_dp
7298 92 : fit_coef(6, 7) = 5.6676422159052879E+02_dp
7299 92 : fit_coef(7, 7) = -1.2064911489924480E+03_dp
7300 92 : fit_coef(8, 7) = 1.7514726329556534E+03_dp
7301 92 : fit_coef(9, 7) = -1.7075068700281913E+03_dp
7302 92 : fit_coef(10, 7) = 1.0693144394521294E+03_dp
7303 92 : fit_coef(11, 7) = -3.8862358061084939E+02_dp
7304 92 : fit_coef(12, 7) = 6.2300629367049794E+01_dp
7305 92 : fit_coef(0, 8) = 7.2115669678109895E-02_dp
7306 92 : fit_coef(1, 8) = 1.3616506829774023E-02_dp
7307 92 : fit_coef(2, 8) = 1.4203294247117737E+00_dp
7308 92 : fit_coef(3, 8) = -9.9648479573798241E+00_dp
7309 92 : fit_coef(4, 8) = 7.3547304516631314E+01_dp
7310 92 : fit_coef(5, 8) = -3.4763570685939845E+02_dp
7311 92 : fit_coef(6, 8) = 1.0931366005010798E+03_dp
7312 92 : fit_coef(7, 8) = -2.3311962044304441E+03_dp
7313 92 : fit_coef(8, 8) = 3.3880559926822129E+03_dp
7314 92 : fit_coef(9, 8) = -3.3054142191968185E+03_dp
7315 92 : fit_coef(10, 8) = 2.0709975619174938E+03_dp
7316 92 : fit_coef(11, 8) = -7.5292079976886191E+02_dp
7317 92 : fit_coef(12, 8) = 1.2073055461067925E+02_dp
7318 92 : fit_coef(0, 9) = 1.6278592399460171E-01_dp
7319 92 : fit_coef(1, 9) = 2.4823462702639722E-02_dp
7320 92 : fit_coef(2, 9) = 2.5779844651162875E+00_dp
7321 92 : fit_coef(3, 9) = -1.8195793409897270E+01_dp
7322 92 : fit_coef(4, 9) = 1.3264400733833980E+02_dp
7323 92 : fit_coef(5, 9) = -6.2921784847028903E+02_dp
7324 92 : fit_coef(6, 9) = 1.9837274033715200E+03_dp
7325 92 : fit_coef(7, 9) = -4.2376252580133068E+03_dp
7326 92 : fit_coef(8, 9) = 6.1654716911349278E+03_dp
7327 92 : fit_coef(9, 9) = -6.0193635625448478E+03_dp
7328 92 : fit_coef(10, 9) = 3.7732320110600213E+03_dp
7329 92 : fit_coef(11, 9) = -1.3722389889916640E+03_dp
7330 92 : fit_coef(12, 9) = 2.2009155940297515E+02_dp
7331 92 : fit_coef(0, 10) = 3.5032689539851275E-01_dp
7332 92 : fit_coef(1, 10) = 4.2737381729215401E-02_dp
7333 92 : fit_coef(2, 10) = 4.4215419106194087E+00_dp
7334 92 : fit_coef(3, 10) = -3.1358951004261929E+01_dp
7335 92 : fit_coef(4, 10) = 2.2622710383931096E+02_dp
7336 92 : fit_coef(5, 10) = -1.0760101708193520E+03_dp
7337 92 : fit_coef(6, 10) = 3.4001822298289899E+03_dp
7338 92 : fit_coef(7, 10) = -7.2748054353872876E+03_dp
7339 92 : fit_coef(8, 10) = 1.0595181287227540E+04_dp
7340 92 : fit_coef(9, 10) = -1.0351115266133067E+04_dp
7341 92 : fit_coef(10, 10) = 6.4916005963247544E+03_dp
7342 92 : fit_coef(11, 10) = -2.3616229307375006E+03_dp
7343 92 : fit_coef(12, 10) = 3.7886792111335615E+02_dp
7344 92 : fit_coef(0, 11) = 7.2447713579898398E-01_dp
7345 92 : fit_coef(1, 11) = 6.9519327565965100E-02_dp
7346 92 : fit_coef(2, 11) = 7.1687589104301583E+00_dp
7347 92 : fit_coef(3, 11) = -5.1041793387291833E+01_dp
7348 92 : fit_coef(4, 11) = 3.6499013684520196E+02_dp
7349 92 : fit_coef(5, 11) = -1.7394623733769292E+03_dp
7350 92 : fit_coef(6, 11) = 5.5078086466424802E+03_dp
7351 92 : fit_coef(7, 11) = -1.1800797526080492E+04_dp
7352 92 : fit_coef(8, 11) = 1.7203067323847517E+04_dp
7353 92 : fit_coef(9, 11) = -1.6817396268950357E+04_dp
7354 92 : fit_coef(10, 11) = 1.0551469125979243E+04_dp
7355 92 : fit_coef(11, 11) = -3.8397827922054616E+03_dp
7356 92 : fit_coef(12, 11) = 6.1614478300189171E+02_dp
7357 92 : fit_coef(0, 12) = 1.4502467390425808E+00_dp
7358 92 : fit_coef(1, 12) = 1.0661107753602478E-01_dp
7359 92 : fit_coef(2, 12) = 1.0963185897291746E+01_dp
7360 92 : fit_coef(3, 12) = -7.8300692460550920E+01_dp
7361 92 : fit_coef(4, 12) = 5.5584223144558530E+02_dp
7362 92 : fit_coef(5, 12) = -2.6528572306059414E+03_dp
7363 92 : fit_coef(6, 12) = 8.4143371492021706E+03_dp
7364 92 : fit_coef(7, 12) = -1.8050418749368942E+04_dp
7365 92 : fit_coef(8, 12) = 2.6335573301758028E+04_dp
7366 92 : fit_coef(9, 12) = -2.5759713754102195E+04_dp
7367 92 : fit_coef(10, 12) = 1.6168369713625771E+04_dp
7368 92 : fit_coef(11, 12) = -5.8854889464635708E+03_dp
7369 92 : fit_coef(12, 12) = 9.4460223869839535E+02_dp
7370 92 : fit_coef(0, 13) = 2.8395717023886369E+00_dp
7371 92 : fit_coef(1, 13) = 1.5366537352589704E-01_dp
7372 92 : fit_coef(2, 13) = 1.5767280021363437E+01_dp
7373 92 : fit_coef(3, 13) = -1.1287621706718255E+02_dp
7374 92 : fit_coef(4, 13) = 7.9673183153700211E+02_dp
7375 92 : fit_coef(5, 13) = -3.8063687624389750E+03_dp
7376 92 : fit_coef(6, 13) = 1.2089346236379877E+04_dp
7377 92 : fit_coef(7, 13) = -2.5959938226844133E+04_dp
7378 92 : fit_coef(8, 13) = 3.7901426581098414E+04_dp
7379 92 : fit_coef(9, 13) = -3.7090020172809200E+04_dp
7380 92 : fit_coef(10, 13) = 2.3287606333954678E+04_dp
7381 92 : fit_coef(11, 13) = -8.4789859745242975E+03_dp
7382 92 : fit_coef(12, 13) = 1.3610885265396084E+03_dp
7383 92 : fit_coef(0, 14) = 5.5945431735079278E+00_dp
7384 92 : fit_coef(1, 14) = 2.0856787151109613E-01_dp
7385 92 : fit_coef(2, 14) = 2.1367891445332752E+01_dp
7386 92 : fit_coef(3, 14) = -1.5321402782127791E+02_dp
7387 92 : fit_coef(4, 14) = 1.0771822980689246E+03_dp
7388 92 : fit_coef(5, 14) = -5.1495462635748599E+03_dp
7389 92 : fit_coef(6, 14) = 1.6370767484953010E+04_dp
7390 92 : fit_coef(7, 14) = -3.5178430776828289E+04_dp
7391 92 : fit_coef(8, 14) = 5.1385383840132439E+04_dp
7392 92 : fit_coef(9, 14) = -5.0302167209417865E+04_dp
7393 92 : fit_coef(10, 14) = 3.1590534978260897E+04_dp
7394 92 : fit_coef(11, 14) = -1.1504033487227012E+04_dp
7395 92 : fit_coef(12, 14) = 1.8469177824866308E+03_dp
7396 92 : fit_coef(0, 15) = 1.8436235820019048E-05_dp
7397 92 : fit_coef(1, 15) = 2.3107371865340239E-05_dp
7398 92 : fit_coef(2, 15) = 2.5779879028853276E-03_dp
7399 92 : fit_coef(3, 15) = -1.5220660379968103E-02_dp
7400 92 : fit_coef(4, 15) = 1.4674238877197790E-01_dp
7401 92 : fit_coef(5, 15) = -6.2720720593806745E-01_dp
7402 92 : fit_coef(6, 15) = 1.9196496962860754E+00_dp
7403 92 : fit_coef(7, 15) = -4.0563204420089054E+00_dp
7404 92 : fit_coef(8, 15) = 5.8719543662268974E+00_dp
7405 92 : fit_coef(9, 15) = -5.7179931070241752E+00_dp
7406 92 : fit_coef(10, 15) = 3.5792099623773965E+00_dp
7407 92 : fit_coef(11, 15) = -1.3005810138247331E+00_dp
7408 92 : fit_coef(12, 15) = 2.0848698369596702E-01_dp
7409 92 : fit_coef(0, 16) = 1.2124348449172285E-04_dp
7410 92 : fit_coef(1, 16) = 8.3813269418456530E-05_dp
7411 92 : fit_coef(2, 16) = 9.0897102638036447E-03_dp
7412 92 : fit_coef(3, 16) = -5.7911668892308865E-02_dp
7413 92 : fit_coef(4, 16) = 4.9294344453578842E-01_dp
7414 92 : fit_coef(5, 16) = -2.1314596717186927E+00_dp
7415 92 : fit_coef(6, 16) = 6.5094911565878411E+00_dp
7416 92 : fit_coef(7, 16) = -1.3738226450588236E+01_dp
7417 92 : fit_coef(8, 16) = 1.9897297045097488E+01_dp
7418 92 : fit_coef(9, 16) = -1.9402396684702406E+01_dp
7419 92 : fit_coef(10, 16) = 1.2166199138851475E+01_dp
7420 92 : fit_coef(11, 16) = -4.4288923635919755E+00_dp
7421 92 : fit_coef(12, 16) = 7.1121697870477651E-01_dp
7422 92 : fit_coef(0, 17) = 4.9649968043970563E-04_dp
7423 92 : fit_coef(1, 17) = 2.4013320731623524E-04_dp
7424 92 : fit_coef(2, 17) = 2.5742527096276644E-02_dp
7425 92 : fit_coef(3, 17) = -1.7243873414770514E-01_dp
7426 92 : fit_coef(4, 17) = 1.3895762899290705E+00_dp
7427 92 : fit_coef(5, 17) = -6.3761453454497428E+00_dp
7428 92 : fit_coef(6, 17) = 1.9936814180089332E+01_dp
7429 92 : fit_coef(7, 17) = -4.2440835139836899E+01_dp
7430 92 : fit_coef(8, 17) = 6.1588254511673313E+01_dp
7431 92 : fit_coef(9, 17) = -5.9991544128378500E+01_dp
7432 92 : fit_coef(10, 17) = 3.7528872717238954E+01_dp
7433 92 : fit_coef(11, 17) = -1.3623706398668176E+01_dp
7434 92 : fit_coef(12, 17) = 2.1816169197074027E+00_dp
7435 92 : fit_coef(0, 18) = 1.6143519027172607E-03_dp
7436 92 : fit_coef(1, 18) = 5.8859169571603552E-04_dp
7437 92 : fit_coef(2, 18) = 6.2478735725773553E-02_dp
7438 92 : fit_coef(3, 18) = -4.2711342899465948E-01_dp
7439 92 : fit_coef(4, 18) = 3.3147135916470036E+00_dp
7440 92 : fit_coef(5, 18) = -1.5401373294982442E+01_dp
7441 92 : fit_coef(6, 18) = 4.7954953793067048E+01_dp
7442 92 : fit_coef(7, 18) = -1.0153978302120807E+02_dp
7443 92 : fit_coef(8, 18) = 1.4682909652330889E+02_dp
7444 92 : fit_coef(9, 18) = -1.4276036864090156E+02_dp
7445 92 : fit_coef(10, 18) = 8.9245840751766565E+01_dp
7446 92 : fit_coef(11, 18) = -3.2398300584951542E+01_dp
7447 92 : fit_coef(12, 18) = 5.1900908130178340E+00_dp
7448 92 : fit_coef(0, 19) = 4.5454454347221614E-03_dp
7449 92 : fit_coef(1, 19) = 1.2919916988711280E-03_dp
7450 92 : fit_coef(2, 19) = 1.3597866025632654E-01_dp
7451 92 : fit_coef(3, 19) = -9.4213191119816730E-01_dp
7452 92 : fit_coef(4, 19) = 7.1313517958816419E+00_dp
7453 92 : fit_coef(5, 19) = -3.3458248656849491E+01_dp
7454 92 : fit_coef(6, 19) = 1.0462115349553649E+02_dp
7455 92 : fit_coef(7, 19) = -2.2230013365840125E+02_dp
7456 92 : fit_coef(8, 19) = 3.2237995602287663E+02_dp
7457 92 : fit_coef(9, 19) = -3.1411722628668201E+02_dp
7458 92 : fit_coef(10, 19) = 1.9665741705687799E+02_dp
7459 92 : fit_coef(11, 19) = -7.1459843200825901E+01_dp
7460 92 : fit_coef(12, 19) = 1.1454531272981891E+01_dp
7461 92 : fit_coef(0, 20) = 1.1569593836045351E-02_dp
7462 92 : fit_coef(1, 20) = 2.6018407470241437E-03_dp
7463 92 : fit_coef(2, 20) = 2.7208902236045929E-01_dp
7464 92 : fit_coef(3, 20) = -1.9039272645212668E+00_dp
7465 92 : fit_coef(4, 20) = 1.4140811044678967E+01_dp
7466 92 : fit_coef(5, 20) = -6.6772929853793315E+01_dp
7467 92 : fit_coef(6, 20) = 2.0958553375037602E+02_dp
7468 92 : fit_coef(7, 20) = -4.4639362838727067E+02_dp
7469 92 : fit_coef(8, 20) = 6.4825457307516922E+02_dp
7470 92 : fit_coef(9, 20) = -6.3211066495078410E+02_dp
7471 92 : fit_coef(10, 20) = 3.9589944611561242E+02_dp
7472 92 : fit_coef(11, 20) = -1.4389110171301371E+02_dp
7473 92 : fit_coef(12, 20) = 2.3067990020945253E+01_dp
7474 92 : fit_coef(0, 21) = 2.7295736154530334E-02_dp
7475 92 : fit_coef(1, 21) = 4.8782968254850083E-03_dp
7476 92 : fit_coef(2, 21) = 5.0739031138062951E-01_dp
7477 92 : fit_coef(3, 21) = -3.5769970240701987E+00_dp
7478 92 : fit_coef(4, 21) = 2.6164736431475280E+01_dp
7479 92 : fit_coef(5, 21) = -1.2410237515226034E+02_dp
7480 92 : fit_coef(6, 21) = 3.9082320961974159E+02_dp
7481 92 : fit_coef(7, 21) = -8.3417851759708878E+02_dp
7482 92 : fit_coef(8, 21) = 1.2129937424978116E+03_dp
7483 92 : fit_coef(9, 21) = -1.1837877342560605E+03_dp
7484 92 : fit_coef(10, 21) = 7.4185106985661810E+02_dp
7485 92 : fit_coef(11, 21) = -2.6974056955563321E+02_dp
7486 92 : fit_coef(12, 21) = 4.3256996209012456E+01_dp
7487 92 : fit_coef(0, 22) = 6.0660781563425317E-02_dp
7488 92 : fit_coef(1, 22) = 8.5794040217948859E-03_dp
7489 92 : fit_coef(2, 22) = 8.8821388130041634E-01_dp
7490 92 : fit_coef(3, 22) = -6.2985610532830956E+00_dp
7491 92 : fit_coef(4, 22) = 4.5492645494685874E+01_dp
7492 92 : fit_coef(5, 22) = -2.1647261584955578E+02_dp
7493 92 : fit_coef(6, 22) = 6.8370044474800454E+02_dp
7494 92 : fit_coef(7, 22) = -1.4621335320610413E+03_dp
7495 92 : fit_coef(8, 22) = 2.1287754889346256E+03_dp
7496 92 : fit_coef(9, 22) = -2.0792410286940094E+03_dp
7497 92 : fit_coef(10, 22) = 1.3037501245395274E+03_dp
7498 92 : fit_coef(11, 22) = -4.7423981275141949E+02_dp
7499 92 : fit_coef(12, 22) = 7.6073607209164223E+01_dp
7500 92 : fit_coef(0, 23) = 1.2841217227424742E-01_dp
7501 92 : fit_coef(1, 23) = 1.4188057337444604E-02_dp
7502 92 : fit_coef(2, 23) = 1.4629508408620973E+00_dp
7503 92 : fit_coef(3, 23) = -1.0423327628190115E+01_dp
7504 92 : fit_coef(4, 23) = 7.4479996989370790E+01_dp
7505 92 : fit_coef(5, 23) = -3.5524319107213654E+02_dp
7506 92 : fit_coef(6, 23) = 1.1248481685847394E+03_dp
7507 92 : fit_coef(7, 23) = -2.4098075097537289E+03_dp
7508 92 : fit_coef(8, 23) = 3.5126267297370300E+03_dp
7509 92 : fit_coef(9, 23) = -3.4335802646233810E+03_dp
7510 92 : fit_coef(10, 23) = 2.1541281893481446E+03_dp
7511 92 : fit_coef(11, 23) = -7.8386608937552410E+02_dp
7512 92 : fit_coef(12, 23) = 1.2577649211754711E+02_dp
7513 92 : fit_coef(0, 24) = 2.6110218583026157E-01_dp
7514 92 : fit_coef(1, 24) = 2.2013210715212957E-02_dp
7515 92 : fit_coef(2, 24) = 2.2618021820392888E+00_dp
7516 92 : fit_coef(3, 24) = -1.6177325764415730E+01_dp
7517 92 : fit_coef(4, 24) = 1.1453533241330872E+02_dp
7518 92 : fit_coef(5, 24) = -5.4723833721116853E+02_dp
7519 92 : fit_coef(6, 24) = 1.7366429607985401E+03_dp
7520 92 : fit_coef(7, 24) = -3.7264526069498952E+03_dp
7521 92 : fit_coef(8, 24) = 5.4376949325389724E+03_dp
7522 92 : fit_coef(9, 24) = -5.3192362305534161E+03_dp
7523 92 : fit_coef(10, 24) = 3.3388433630606642E+03_dp
7524 92 : fit_coef(11, 24) = -1.2154181459321210E+03_dp
7525 92 : fit_coef(12, 24) = 1.9507456139845061E+02_dp
7526 92 : fit_coef(0, 25) = 5.1367200823804149E-01_dp
7527 92 : fit_coef(1, 25) = 3.1811354680997252E-02_dp
7528 92 : fit_coef(2, 25) = 3.2585980335370284E+00_dp
7529 92 : fit_coef(3, 25) = -2.3379379060808798E+01_dp
7530 92 : fit_coef(4, 25) = 1.6424152452481010E+02_dp
7531 92 : fit_coef(5, 25) = -7.8569152121234890E+02_dp
7532 92 : fit_coef(6, 25) = 2.4981080171697954E+03_dp
7533 92 : fit_coef(7, 25) = -5.3680206518529076E+03_dp
7534 92 : fit_coef(8, 25) = 7.8407527495523063E+03_dp
7535 92 : fit_coef(9, 25) = -7.6750999224540392E+03_dp
7536 92 : fit_coef(10, 25) = 4.8198767192823361E+03_dp
7537 92 : fit_coef(11, 25) = -1.7551476130824467E+03_dp
7538 92 : fit_coef(12, 25) = 2.8177229346472944E+02_dp
7539 92 : fit_coef(0, 26) = 9.8707480111071055E-01_dp
7540 92 : fit_coef(1, 26) = 4.2323366844794610E-02_dp
7541 92 : fit_coef(2, 26) = 4.3248620683488594E+00_dp
7542 92 : fit_coef(3, 26) = -3.1101768723183273E+01_dp
7543 92 : fit_coef(4, 26) = 2.1715876476583264E+02_dp
7544 92 : fit_coef(5, 26) = -1.0396442548695900E+03_dp
7545 92 : fit_coef(6, 26) = 3.3104927069027003E+03_dp
7546 92 : fit_coef(7, 26) = -7.1219751261209803E+03_dp
7547 92 : fit_coef(8, 26) = 1.0411115847803250E+04_dp
7548 92 : fit_coef(9, 26) = -1.0196927796670321E+04_dp
7549 92 : fit_coef(10, 26) = 6.4061259733442739E+03_dp
7550 92 : fit_coef(11, 26) = -2.3334570806260454E+03_dp
7551 92 : fit_coef(12, 26) = 3.7469580771614551E+02_dp
7552 92 : fit_coef(0, 27) = 1.8940435475450061E+00_dp
7553 92 : fit_coef(1, 27) = 5.1360926179740848E-02_dp
7554 92 : fit_coef(2, 27) = 5.2404454262865769E+00_dp
7555 92 : fit_coef(3, 27) = -3.7737331118803013E+01_dp
7556 92 : fit_coef(4, 27) = 2.6250426447967351E+02_dp
7557 92 : fit_coef(5, 27) = -1.2571969272125693E+03_dp
7558 92 : fit_coef(6, 27) = 4.0068677681386607E+03_dp
7559 92 : fit_coef(7, 27) = -8.6264349397777878E+03_dp
7560 92 : fit_coef(8, 27) = 1.2616976771304368E+04_dp
7561 92 : fit_coef(9, 27) = -1.2361959020546034E+04_dp
7562 92 : fit_coef(10, 27) = 7.7683322759890580E+03_dp
7563 92 : fit_coef(11, 27) = -2.8301914681580724E+03_dp
7564 92 : fit_coef(12, 27) = 4.5452476900845880E+02_dp
7565 92 : fit_coef(0, 28) = 3.9546758238329791E+00_dp
7566 92 : fit_coef(1, 28) = 5.8523148761978797E-02_dp
7567 92 : fit_coef(2, 28) = 5.9702778386920183E+00_dp
7568 92 : fit_coef(3, 28) = -4.2997287866308362E+01_dp
7569 92 : fit_coef(4, 28) = 2.9898597699426614E+02_dp
7570 92 : fit_coef(5, 28) = -1.4318903472750299E+03_dp
7571 92 : fit_coef(6, 28) = 4.5640259927402913E+03_dp
7572 92 : fit_coef(7, 28) = -9.8267478597299942E+03_dp
7573 92 : fit_coef(8, 28) = 1.4373446674375520E+04_dp
7574 92 : fit_coef(9, 28) = -1.4083574897310356E+04_dp
7575 92 : fit_coef(10, 28) = 8.8505067497423279E+03_dp
7576 92 : fit_coef(11, 28) = -3.2245357392636670E+03_dp
7577 92 : fit_coef(12, 28) = 5.1786594922938832E+02_dp
7578 :
7579 92 : 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 28 : 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 28 : L_b = 2.0000000000000000E+01_dp
7594 28 : U_b = 1.0000000000000000E+02_dp
7595 28 : fit_coef(0, 1) = 3.7767636658328917E-03_dp
7596 28 : fit_coef(1, 1) = 8.1211740094389931E-03_dp
7597 28 : fit_coef(2, 1) = 8.4713080613072721E-03_dp
7598 28 : fit_coef(3, 1) = 4.9722625039685525E-03_dp
7599 28 : fit_coef(4, 1) = 1.2149725765861214E-03_dp
7600 28 : fit_coef(5, 1) = -4.4528795735146096E-04_dp
7601 28 : fit_coef(6, 1) = -4.1397080234777437E-04_dp
7602 28 : fit_coef(7, 1) = -3.3426994813408613E-05_dp
7603 28 : fit_coef(8, 1) = 6.8763616446013435E-05_dp
7604 28 : fit_coef(9, 1) = 2.6807372741525578E-05_dp
7605 28 : fit_coef(10, 1) = -2.8714180956136556E-05_dp
7606 28 : fit_coef(11, 1) = 9.6272015928166124E-06_dp
7607 28 : fit_coef(12, 1) = -1.2744413786197213E-06_dp
7608 28 : fit_coef(0, 2) = 2.0284783343273730E-02_dp
7609 28 : fit_coef(1, 2) = 4.3187845019499065E-02_dp
7610 28 : fit_coef(2, 2) = 4.4768123513328789E-02_dp
7611 28 : fit_coef(3, 2) = 2.6126720474645704E-02_dp
7612 28 : fit_coef(4, 2) = 6.3201115983603541E-03_dp
7613 28 : fit_coef(5, 2) = -2.3578759036246063E-03_dp
7614 28 : fit_coef(6, 2) = -2.1606459505341194E-03_dp
7615 28 : fit_coef(7, 2) = -1.6580374853951958E-04_dp
7616 28 : fit_coef(8, 2) = 3.6074887455186000E-04_dp
7617 28 : fit_coef(9, 2) = 1.3781750573407730E-04_dp
7618 28 : fit_coef(10, 2) = -1.4977975033955343E-04_dp
7619 28 : fit_coef(11, 2) = 5.0490744097337301E-05_dp
7620 28 : fit_coef(12, 2) = -6.7504814416040953E-06_dp
7621 28 : fit_coef(0, 3) = 5.1673260780627950E-02_dp
7622 28 : fit_coef(1, 3) = 1.0789295508104972E-01_dp
7623 28 : fit_coef(2, 3) = 1.1057351883667553E-01_dp
7624 28 : fit_coef(3, 3) = 6.3878269616968825E-02_dp
7625 28 : fit_coef(4, 3) = 1.5180871067702629E-02_dp
7626 28 : fit_coef(5, 3) = -5.8375073829049018E-03_dp
7627 28 : fit_coef(6, 3) = -5.2188107945168550E-03_dp
7628 28 : fit_coef(7, 3) = -3.6420812718932399E-04_dp
7629 28 : fit_coef(8, 3) = 8.7905419776698594E-04_dp
7630 28 : fit_coef(9, 3) = 3.2415893028994188E-04_dp
7631 28 : fit_coef(10, 3) = -3.6139234804234916E-04_dp
7632 28 : fit_coef(11, 3) = 1.2287995757801328E-04_dp
7633 28 : fit_coef(12, 3) = -1.6675660997752087E-05_dp
7634 28 : fit_coef(0, 4) = 1.0134621267461434E-01_dp
7635 28 : fit_coef(1, 4) = 2.0498960034213551E-01_dp
7636 28 : fit_coef(2, 4) = 2.0657812668218858E-01_dp
7637 28 : fit_coef(3, 4) = 1.1767379558549464E-01_dp
7638 28 : fit_coef(4, 4) = 2.7288178413390367E-02_dp
7639 28 : fit_coef(5, 4) = -1.0924148745488705E-02_dp
7640 28 : fit_coef(6, 4) = -9.4432740413890777E-03_dp
7641 28 : fit_coef(7, 4) = -5.6769752225927254E-04_dp
7642 28 : fit_coef(8, 4) = 1.6082317938650511E-03_dp
7643 28 : fit_coef(9, 4) = 5.6496352365318649E-04_dp
7644 28 : fit_coef(10, 4) = -6.5204939503955980E-04_dp
7645 28 : fit_coef(11, 4) = 2.2378537926777479E-04_dp
7646 28 : fit_coef(12, 4) = -3.0821862755447693E-05_dp
7647 28 : fit_coef(0, 5) = 1.7540646948915822E-01_dp
7648 28 : fit_coef(1, 5) = 3.3841107332002812E-01_dp
7649 28 : fit_coef(2, 5) = 3.3317753537976630E-01_dp
7650 28 : fit_coef(3, 5) = 1.8664213256865744E-01_dp
7651 28 : fit_coef(4, 5) = 4.2122973931643735E-02_dp
7652 28 : fit_coef(5, 5) = -1.7653496250856538E-02_dp
7653 28 : fit_coef(6, 5) = -1.4677820339754412E-02_dp
7654 28 : fit_coef(7, 5) = -6.7172992100736459E-04_dp
7655 28 : fit_coef(8, 5) = 2.5463509524145020E-03_dp
7656 28 : fit_coef(9, 5) = 7.9689495762103719E-04_dp
7657 28 : fit_coef(10, 5) = -9.9176850710568391E-04_dp
7658 28 : fit_coef(11, 5) = 3.5040533908774847E-04_dp
7659 28 : fit_coef(12, 5) = -5.0509200990651491E-05_dp
7660 28 : fit_coef(0, 6) = 2.8403858696731338E-01_dp
7661 28 : fit_coef(1, 6) = 5.1354379131383487E-01_dp
7662 28 : fit_coef(2, 6) = 4.8963667336603639E-01_dp
7663 28 : fit_coef(3, 6) = 2.6912774693427816E-01_dp
7664 28 : fit_coef(4, 6) = 5.9724553513996380E-02_dp
7665 28 : fit_coef(5, 6) = -2.5703789609353513E-02_dp
7666 28 : fit_coef(6, 6) = -2.1114838016090463E-02_dp
7667 28 : fit_coef(7, 6) = -7.0228514229756346E-04_dp
7668 28 : fit_coef(8, 6) = 3.8581969229036879E-03_dp
7669 28 : fit_coef(9, 6) = 1.2194767346868753E-03_dp
7670 28 : fit_coef(10, 6) = -1.8021363838819021E-03_dp
7671 28 : fit_coef(11, 6) = 7.5507648660773613E-04_dp
7672 28 : fit_coef(12, 6) = -1.3075406318307264E-04_dp
7673 28 : fit_coef(0, 7) = 4.4325614880929831E-01_dp
7674 28 : fit_coef(1, 7) = 7.3781666079304498E-01_dp
7675 28 : fit_coef(2, 7) = 6.7367679967887084E-01_dp
7676 28 : fit_coef(3, 7) = 3.6132751402347024E-01_dp
7677 28 : fit_coef(4, 7) = 8.0499595178773156E-02_dp
7678 28 : fit_coef(5, 7) = -3.3029532312549834E-02_dp
7679 28 : fit_coef(6, 7) = -2.8790475820923794E-02_dp
7680 28 : fit_coef(7, 7) = -1.7795611862018949E-03_dp
7681 28 : fit_coef(8, 7) = 5.1379466412685825E-03_dp
7682 28 : fit_coef(9, 7) = 3.1353774828616044E-03_dp
7683 28 : fit_coef(10, 7) = -3.3341189829340133E-03_dp
7684 28 : fit_coef(11, 7) = 9.5780853222126921E-04_dp
7685 28 : fit_coef(12, 7) = -4.7564006414347488E-05_dp
7686 28 : fit_coef(0, 8) = 6.7707705919780792E-01_dp
7687 28 : fit_coef(1, 8) = 1.0208946341910239E+00_dp
7688 28 : fit_coef(2, 8) = 8.8225292727415439E-01_dp
7689 28 : fit_coef(3, 8) = 4.5683990983568840E-01_dp
7690 28 : fit_coef(4, 8) = 1.0315634645104643E-01_dp
7691 28 : fit_coef(5, 8) = -3.6302702410040397E-02_dp
7692 28 : fit_coef(6, 8) = -3.5178064788216744E-02_dp
7693 28 : fit_coef(7, 8) = -5.4614672692391321E-03_dp
7694 28 : fit_coef(8, 8) = 5.9947422484209678E-03_dp
7695 28 : fit_coef(9, 8) = 2.7277018733018010E-03_dp
7696 28 : fit_coef(10, 8) = 9.2005661112863006E-04_dp
7697 28 : fit_coef(11, 8) = -2.7491424308858183E-03_dp
7698 28 : fit_coef(12, 8) = 9.3417034494363172E-04_dp
7699 28 : fit_coef(0, 9) = 1.0205594171746224E+00_dp
7700 28 : fit_coef(1, 9) = 1.3737393203947723E+00_dp
7701 28 : fit_coef(2, 9) = 1.1123746840237188E+00_dp
7702 28 : fit_coef(3, 9) = 5.4861957447712506E-01_dp
7703 28 : fit_coef(4, 9) = 1.2420055508662378E-01_dp
7704 28 : fit_coef(5, 9) = -3.4071192988448372E-02_dp
7705 28 : fit_coef(6, 9) = -3.6752879111842843E-02_dp
7706 28 : fit_coef(7, 9) = -9.8874781786285233E-03_dp
7707 28 : fit_coef(8, 9) = 5.0195565707678762E-03_dp
7708 28 : fit_coef(9, 9) = -7.6508018734261539E-04_dp
7709 28 : fit_coef(10, 9) = 7.1843501967062814E-03_dp
7710 28 : fit_coef(11, 9) = -4.9459397204347057E-03_dp
7711 28 : fit_coef(12, 9) = 8.9782856131910235E-04_dp
7712 28 : fit_coef(0, 10) = 1.5244258156390766E+00_dp
7713 28 : fit_coef(1, 10) = 1.8066993429217002E+00_dp
7714 28 : fit_coef(2, 10) = 1.3609242838483797E+00_dp
7715 28 : fit_coef(3, 10) = 6.3115404377443018E-01_dp
7716 28 : fit_coef(4, 10) = 1.4030025341356947E-01_dp
7717 28 : fit_coef(5, 10) = -2.7329038046514077E-02_dp
7718 28 : fit_coef(6, 10) = -3.2676873494217773E-02_dp
7719 28 : fit_coef(7, 10) = -1.1415330583361451E-02_dp
7720 28 : fit_coef(8, 10) = -4.9009191168826780E-06_dp
7721 28 : fit_coef(9, 10) = 1.3306667731994193E-04_dp
7722 28 : fit_coef(10, 10) = 3.7437558621727469E-03_dp
7723 28 : fit_coef(11, 10) = 4.8589108656243562E-04_dp
7724 28 : fit_coef(12, 10) = -1.0469727509729387E-03_dp
7725 28 : fit_coef(0, 11) = 2.2624235303155098E+00_dp
7726 28 : fit_coef(1, 11) = 2.3271837597685869E+00_dp
7727 28 : fit_coef(2, 11) = 1.6242573707008741E+00_dp
7728 28 : fit_coef(3, 11) = 7.0131249760739722E-01_dp
7729 28 : fit_coef(4, 11) = 1.5012768567411283E-01_dp
7730 28 : fit_coef(5, 11) = -1.7685800296799118E-02_dp
7731 28 : fit_coef(6, 11) = -2.4133853082992485E-02_dp
7732 28 : fit_coef(7, 11) = -1.0124353385573369E-02_dp
7733 28 : fit_coef(8, 11) = -5.4053355656654414E-03_dp
7734 28 : fit_coef(9, 11) = 2.0601323692594885E-03_dp
7735 28 : fit_coef(10, 11) = -1.9168010184212245E-03_dp
7736 28 : fit_coef(11, 11) = 5.2635221561462978E-03_dp
7737 28 : fit_coef(12, 11) = -2.0650943061245367E-03_dp
7738 28 : fit_coef(0, 12) = 3.3440185138398908E+00_dp
7739 28 : fit_coef(1, 12) = 2.9374869303015658E+00_dp
7740 28 : fit_coef(2, 12) = 1.8986970103463769E+00_dp
7741 28 : fit_coef(3, 12) = 7.5852460527436116E-01_dp
7742 28 : fit_coef(4, 12) = 1.5431087315065109E-01_dp
7743 28 : fit_coef(5, 12) = -6.2637714258166168E-03_dp
7744 28 : fit_coef(6, 12) = -1.2867661430609648E-02_dp
7745 28 : fit_coef(7, 12) = -7.7297513116621266E-03_dp
7746 28 : fit_coef(8, 12) = -7.9684475195776500E-03_dp
7747 28 : fit_coef(9, 12) = 7.0191640613392089E-04_dp
7748 28 : fit_coef(10, 12) = -2.3205524009468916E-03_dp
7749 28 : fit_coef(11, 12) = 4.7115703272364142E-03_dp
7750 28 : fit_coef(12, 12) = -1.3939780575372204E-03_dp
7751 28 : fit_coef(0, 13) = 4.9400406076482417E+00_dp
7752 28 : fit_coef(1, 13) = 3.6338865240810336E+00_dp
7753 28 : fit_coef(2, 13) = 2.1823364183861980E+00_dp
7754 28 : fit_coef(3, 13) = 8.0486953703551811E-01_dp
7755 28 : fit_coef(4, 13) = 1.5444706443796333E-01_dp
7756 28 : fit_coef(5, 13) = 6.2245841342081663E-03_dp
7757 28 : fit_coef(6, 13) = -4.5752093352805732E-04_dp
7758 28 : fit_coef(7, 13) = -4.9804550111796943E-03_dp
7759 28 : fit_coef(8, 13) = -8.4778512610873564E-03_dp
7760 28 : fit_coef(9, 13) = -2.0214510332599842E-03_dp
7761 28 : fit_coef(10, 13) = 2.4374313233334989E-04_dp
7762 28 : fit_coef(11, 13) = 1.9195383981977568E-03_dp
7763 28 : fit_coef(12, 13) = -3.7228313108121918E-04_dp
7764 28 : fit_coef(0, 14) = 7.3492824088289943E+00_dp
7765 28 : fit_coef(1, 14) = 4.4099530097240827E+00_dp
7766 28 : fit_coef(2, 14) = 2.4783620449758916E+00_dp
7767 28 : fit_coef(3, 14) = 8.4513384310546469E-01_dp
7768 28 : fit_coef(4, 14) = 1.5211923704319483E-01_dp
7769 28 : fit_coef(5, 14) = 1.9150817795865041E-02_dp
7770 28 : fit_coef(6, 14) = 1.2175087669328011E-02_dp
7771 28 : fit_coef(7, 14) = -1.9876602775734512E-03_dp
7772 28 : fit_coef(8, 14) = -8.3964504059626105E-03_dp
7773 28 : fit_coef(9, 14) = -3.7517484520995536E-03_dp
7774 28 : fit_coef(10, 14) = 2.5098290732908429E-03_dp
7775 28 : fit_coef(11, 14) = -2.2174814827198228E-04_dp
7776 28 : fit_coef(12, 14) = 1.7762122632969973E-04_dp
7777 28 : fit_coef(0, 15) = 1.1260372250288922E+01_dp
7778 28 : fit_coef(1, 15) = 5.2761367256188780E+00_dp
7779 28 : fit_coef(2, 15) = 2.8037057941841899E+00_dp
7780 28 : fit_coef(3, 15) = 8.8780102116211801E-01_dp
7781 28 : fit_coef(4, 15) = 1.4843982592096647E-01_dp
7782 28 : fit_coef(5, 15) = 3.2027815482417170E-02_dp
7783 28 : fit_coef(6, 15) = 2.5031908188376327E-02_dp
7784 28 : fit_coef(7, 15) = 1.3905318224525349E-03_dp
7785 28 : fit_coef(8, 15) = -8.2768851858847706E-03_dp
7786 28 : fit_coef(9, 15) = -4.1010656916587729E-03_dp
7787 28 : fit_coef(10, 15) = 3.7595505954445777E-03_dp
7788 28 : fit_coef(11, 15) = -1.2076253125456195E-03_dp
7789 28 : fit_coef(12, 15) = 2.7539917666371817E-04_dp
7790 28 : fit_coef(0, 16) = 9.7353035224829500E-03_dp
7791 28 : fit_coef(1, 16) = 2.0886976749800733E-02_dp
7792 28 : fit_coef(2, 16) = 2.1755665531631045E-02_dp
7793 28 : fit_coef(3, 16) = 1.2752382400370278E-02_dp
7794 28 : fit_coef(4, 16) = 3.1086335160659716E-03_dp
7795 28 : fit_coef(5, 16) = -1.1441703553915466E-03_dp
7796 28 : fit_coef(6, 16) = -1.0600438281376386E-03_dp
7797 28 : fit_coef(7, 16) = -8.4585212227881147E-05_dp
7798 28 : fit_coef(8, 16) = 1.7629742631278603E-04_dp
7799 28 : fit_coef(9, 16) = 6.8399637396386302E-05_dp
7800 28 : fit_coef(10, 16) = -7.3517685522867944E-05_dp
7801 28 : fit_coef(11, 16) = 2.4681600354643785E-05_dp
7802 28 : fit_coef(12, 16) = -3.2754157510708014E-06_dp
7803 28 : fit_coef(0, 17) = 2.3550935618358620E-02_dp
7804 28 : fit_coef(1, 17) = 4.9522562600574506E-02_dp
7805 28 : fit_coef(2, 17) = 5.0940261314895138E-02_dp
7806 28 : fit_coef(3, 17) = 2.9520151355165270E-02_dp
7807 28 : fit_coef(4, 17) = 7.0526431743143485E-03_dp
7808 28 : fit_coef(5, 17) = -2.6886627324933282E-03_dp
7809 28 : fit_coef(6, 17) = -2.4209379054065576E-03_dp
7810 28 : fit_coef(7, 17) = -1.7381016208850244E-04_dp
7811 28 : fit_coef(8, 17) = 4.0675731507373121E-04_dp
7812 28 : fit_coef(9, 17) = 1.5152633434160025E-04_dp
7813 28 : fit_coef(10, 17) = -1.6769671036439022E-04_dp
7814 28 : fit_coef(11, 17) = 5.6896776687533419E-05_dp
7815 28 : fit_coef(12, 17) = -7.6947045683246862E-06_dp
7816 28 : fit_coef(0, 18) = 3.9777578377675531E-02_dp
7817 28 : fit_coef(1, 18) = 8.0346278051875858E-02_dp
7818 28 : fit_coef(2, 18) = 8.0791839568255266E-02_dp
7819 28 : fit_coef(3, 18) = 4.5890106592349850E-02_dp
7820 28 : fit_coef(4, 18) = 1.0581783818106148E-02_dp
7821 28 : fit_coef(5, 18) = -4.2772167663816868E-03_dp
7822 28 : fit_coef(6, 18) = -3.6711065186785822E-03_dp
7823 28 : fit_coef(7, 18) = -2.1295067951996251E-04_dp
7824 28 : fit_coef(8, 18) = 6.2748074852499950E-04_dp
7825 28 : fit_coef(9, 18) = 2.1773104607889315E-04_dp
7826 28 : fit_coef(10, 18) = -2.5378512352868573E-04_dp
7827 28 : fit_coef(11, 18) = 8.7481966065534113E-05_dp
7828 28 : fit_coef(12, 18) = -1.2141070019913610E-05_dp
7829 28 : fit_coef(0, 19) = 6.0562131081817058E-02_dp
7830 28 : fit_coef(1, 19) = 1.1449873938476936E-01_dp
7831 28 : fit_coef(2, 19) = 1.1129944008292268E-01_dp
7832 28 : fit_coef(3, 19) = 6.1560590847477989E-02_dp
7833 28 : fit_coef(4, 19) = 1.3534891528073901E-02_dp
7834 28 : fit_coef(5, 19) = -5.9033543536541871E-03_dp
7835 28 : fit_coef(6, 19) = -4.7450366895801120E-03_dp
7836 28 : fit_coef(7, 19) = -1.7764449860279051E-04_dp
7837 28 : fit_coef(8, 19) = 8.2604161016353668E-04_dp
7838 28 : fit_coef(9, 19) = 2.5651846839713858E-04_dp
7839 28 : fit_coef(10, 19) = -3.2185438255892302E-04_dp
7840 28 : fit_coef(11, 19) = 1.1225233677891509E-04_dp
7841 28 : fit_coef(12, 19) = -1.5831921058481165E-05_dp
7842 28 : fit_coef(0, 20) = 8.9226696029307800E-02_dp
7843 28 : fit_coef(1, 20) = 1.5322995807536874E-01_dp
7844 28 : fit_coef(2, 20) = 1.4178721914749884E-01_dp
7845 28 : fit_coef(3, 20) = 7.6128391563680162E-02_dp
7846 28 : fit_coef(4, 20) = 1.6136643158648808E-02_dp
7847 28 : fit_coef(5, 20) = -7.5330493292977262E-03_dp
7848 28 : fit_coef(6, 20) = -5.7529238965828419E-03_dp
7849 28 : fit_coef(7, 20) = -1.1707762217534482E-05_dp
7850 28 : fit_coef(8, 20) = 1.0894518853190246E-03_dp
7851 28 : fit_coef(9, 20) = 1.8904025635640227E-04_dp
7852 28 : fit_coef(10, 20) = -3.8503303956792745E-04_dp
7853 28 : fit_coef(11, 20) = 1.6892465284271444E-04_dp
7854 28 : fit_coef(12, 20) = -3.1503784546561519E-05_dp
7855 28 : fit_coef(0, 21) = 1.3067133728179103E-01_dp
7856 28 : fit_coef(1, 21) = 1.9826805579875501E-01_dp
7857 28 : fit_coef(2, 21) = 1.7073403778885513E-01_dp
7858 28 : fit_coef(3, 21) = 8.8223081054500926E-02_dp
7859 28 : fit_coef(4, 21) = 1.9182613501886863E-02_dp
7860 28 : fit_coef(5, 21) = -8.2278999968844989E-03_dp
7861 28 : fit_coef(6, 21) = -7.1938427008996124E-03_dp
7862 28 : fit_coef(7, 21) = -2.3630795339020511E-04_dp
7863 28 : fit_coef(8, 21) = 1.4678849246082021E-03_dp
7864 28 : fit_coef(9, 21) = 1.0431379287022221E-03_dp
7865 28 : fit_coef(10, 21) = -1.5357712204035895E-03_dp
7866 28 : fit_coef(11, 21) = 7.1343365682177630E-04_dp
7867 28 : fit_coef(12, 21) = -1.2573122208893727E-04_dp
7868 28 : fit_coef(0, 22) = 1.9171789962238633E-01_dp
7869 28 : fit_coef(1, 22) = 2.5190501212777222E-01_dp
7870 28 : fit_coef(2, 22) = 1.9682158960117535E-01_dp
7871 28 : fit_coef(3, 22) = 9.5068036046292548E-02_dp
7872 28 : fit_coef(4, 22) = 2.2164921662634080E-02_dp
7873 28 : fit_coef(5, 22) = -5.7919264320229974E-03_dp
7874 28 : fit_coef(6, 22) = -7.7045178800915467E-03_dp
7875 28 : fit_coef(7, 22) = -2.2724175760734976E-03_dp
7876 28 : fit_coef(8, 22) = 1.0118193318505186E-03_dp
7877 28 : fit_coef(9, 22) = 2.0169812523148983E-03_dp
7878 28 : fit_coef(10, 22) = -9.2577594680840871E-06_dp
7879 28 : fit_coef(11, 22) = -1.3014429778002868E-03_dp
7880 28 : fit_coef(12, 22) = 5.2474898728580737E-04_dp
7881 28 : fit_coef(0, 23) = 2.8169225019506716E-01_dp
7882 28 : fit_coef(1, 23) = 3.1611118986493281E-01_dp
7883 28 : fit_coef(2, 23) = 2.1983832131612513E-01_dp
7884 28 : fit_coef(3, 23) = 9.4742330833316193E-02_dp
7885 28 : fit_coef(4, 23) = 2.2513794210120210E-02_dp
7886 28 : fit_coef(5, 23) = -5.0847893755973886E-04_dp
7887 28 : fit_coef(6, 23) = -4.3926536784528831E-03_dp
7888 28 : fit_coef(7, 23) = -4.7592264209054850E-03_dp
7889 28 : fit_coef(8, 23) = 5.4373390930081153E-04_dp
7890 28 : fit_coef(9, 23) = -3.2404033623214612E-03_dp
7891 28 : fit_coef(10, 23) = 7.9533405554355376E-03_dp
7892 28 : fit_coef(11, 23) = -5.0278147899489754E-03_dp
7893 28 : fit_coef(12, 23) = 1.0211564000482632E-03_dp
7894 28 : fit_coef(0, 24) = 4.1360870667704458E-01_dp
7895 28 : fit_coef(1, 24) = 3.9134279925186166E-01_dp
7896 28 : fit_coef(2, 24) = 2.3989520225411959E-01_dp
7897 28 : fit_coef(3, 24) = 8.7887165884511398E-02_dp
7898 28 : fit_coef(4, 24) = 1.8986346126332081E-02_dp
7899 28 : fit_coef(5, 24) = 4.7658422103979536E-03_dp
7900 28 : fit_coef(6, 24) = 1.3492788485409764E-03_dp
7901 28 : fit_coef(7, 24) = -3.3357808918414787E-03_dp
7902 28 : fit_coef(8, 24) = -3.1088669483680088E-03_dp
7903 28 : fit_coef(9, 24) = -1.8511419844152608E-03_dp
7904 28 : fit_coef(10, 24) = 1.7736202675366283E-03_dp
7905 28 : fit_coef(11, 24) = 2.1114330344624466E-03_dp
7906 28 : fit_coef(12, 24) = -1.3226303250553409E-03_dp
7907 28 : fit_coef(0, 25) = 6.0621802446427508E-01_dp
7908 28 : fit_coef(1, 25) = 4.7585064174951042E-01_dp
7909 28 : fit_coef(2, 25) = 2.5658915757225498E-01_dp
7910 28 : fit_coef(3, 25) = 7.6658354342588539E-02_dp
7911 28 : fit_coef(4, 25) = 1.2995988704122139E-02_dp
7912 28 : fit_coef(5, 25) = 8.4318408777111463E-03_dp
7913 28 : fit_coef(6, 25) = 6.5820665925556696E-03_dp
7914 28 : fit_coef(7, 25) = 1.8845523065198023E-04_dp
7915 28 : fit_coef(8, 25) = -6.1170321098400040E-03_dp
7916 28 : fit_coef(9, 25) = 2.6963328854067922E-03_dp
7917 28 : fit_coef(10, 25) = -6.7464598603185540E-03_dp
7918 28 : fit_coef(11, 25) = 6.8191427136023554E-03_dp
7919 28 : fit_coef(12, 25) = -1.9275464800632919E-03_dp
7920 28 : fit_coef(0, 26) = 8.8764155033206149E-01_dp
7921 28 : fit_coef(1, 26) = 5.6552140990150657E-01_dp
7922 28 : fit_coef(2, 26) = 2.6943393742267280E-01_dp
7923 28 : fit_coef(3, 26) = 6.3561620296985116E-02_dp
7924 28 : fit_coef(4, 26) = 6.7821546029915858E-03_dp
7925 28 : fit_coef(5, 26) = 1.0671885911308030E-02_dp
7926 28 : fit_coef(6, 26) = 1.0202617186318210E-02_dp
7927 28 : fit_coef(7, 26) = 2.0623230180061023E-03_dp
7928 28 : fit_coef(8, 26) = -4.0999080350069333E-03_dp
7929 28 : fit_coef(9, 26) = 3.3757569259654344E-04_dp
7930 28 : fit_coef(10, 26) = -3.2168362434274113E-03_dp
7931 28 : fit_coef(11, 26) = 1.9561977675803606E-03_dp
7932 28 : fit_coef(12, 26) = -1.0127854359087637E-05_dp
7933 28 : fit_coef(0, 27) = 1.3031121163620227E+00_dp
7934 28 : fit_coef(1, 27) = 6.5442627957957644E-01_dp
7935 28 : fit_coef(2, 27) = 2.7907544789512745E-01_dp
7936 28 : fit_coef(3, 27) = 5.1209194718773846E-02_dp
7937 28 : fit_coef(4, 27) = 1.8680237447576146E-03_dp
7938 28 : fit_coef(5, 27) = 1.2060225663826541E-02_dp
7939 28 : fit_coef(6, 27) = 1.2057587702851754E-02_dp
7940 28 : fit_coef(7, 27) = 2.6179284359982300E-03_dp
7941 28 : fit_coef(8, 27) = -1.2404837715336242E-03_dp
7942 28 : fit_coef(9, 27) = -2.5831650098316326E-03_dp
7943 28 : fit_coef(10, 27) = 1.8086181493242913E-03_dp
7944 28 : fit_coef(11, 27) = -2.3645920962560019E-03_dp
7945 28 : fit_coef(12, 27) = 1.0746225263111922E-03_dp
7946 28 : fit_coef(0, 28) = 1.9357875429827360E+00_dp
7947 28 : fit_coef(1, 28) = 7.3707936760259829E-01_dp
7948 28 : fit_coef(2, 28) = 2.8863411383043175E-01_dp
7949 28 : fit_coef(3, 28) = 4.2272421989736957E-02_dp
7950 28 : fit_coef(4, 28) = -1.3236760602961552E-03_dp
7951 28 : fit_coef(5, 28) = 1.2811295424819810E-02_dp
7952 28 : fit_coef(6, 28) = 1.2606618885406514E-02_dp
7953 28 : fit_coef(7, 28) = 2.8686367951981208E-03_dp
7954 28 : fit_coef(8, 28) = -4.2949161661710804E-05_dp
7955 28 : fit_coef(9, 28) = -2.4420917937843715E-03_dp
7956 28 : fit_coef(10, 28) = 2.7346339142362607E-03_dp
7957 28 : fit_coef(11, 28) = -2.7192205830173727E-03_dp
7958 28 : fit_coef(12, 28) = 8.3334329375208966E-04_dp
7959 28 : fit_coef(0, 29) = 2.9813305217729247E+00_dp
7960 28 : fit_coef(1, 29) = 8.1556707900662084E-01_dp
7961 28 : fit_coef(2, 29) = 3.0574250813204679E-01_dp
7962 28 : fit_coef(3, 29) = 3.9576605747462988E-02_dp
7963 28 : fit_coef(4, 29) = -3.1516191139201481E-03_dp
7964 28 : fit_coef(5, 29) = 1.2947548079823706E-02_dp
7965 28 : fit_coef(6, 29) = 1.2648514261782698E-02_dp
7966 28 : fit_coef(7, 29) = 3.1343334418898880E-03_dp
7967 28 : fit_coef(8, 29) = 1.2305058520847782E-04_dp
7968 28 : fit_coef(9, 29) = -9.8020686398801802E-04_dp
7969 28 : fit_coef(10, 29) = 1.7095022610177765E-03_dp
7970 28 : fit_coef(11, 29) = -1.5105150611297968E-03_dp
7971 28 : fit_coef(12, 29) = 2.8195377606949853E-04_dp
7972 28 : fit_coef(0, 30) = 5.1939564822259765E+00_dp
7973 28 : fit_coef(1, 30) = 9.3452037903374208E-01_dp
7974 28 : fit_coef(2, 30) = 3.5551447159259092E-01_dp
7975 28 : fit_coef(3, 30) = 4.8826933534516080E-02_dp
7976 28 : fit_coef(4, 30) = -4.0672239419310479E-03_dp
7977 28 : fit_coef(5, 30) = 1.2876916535847991E-02_dp
7978 28 : fit_coef(6, 30) = 1.3347608970308627E-02_dp
7979 28 : fit_coef(7, 30) = 3.7439290651003427E-03_dp
7980 28 : fit_coef(8, 30) = 1.3798569341874731E-04_dp
7981 28 : fit_coef(9, 30) = 1.7467286573212931E-04_dp
7982 28 : fit_coef(10, 30) = 9.2180740758796703E-04_dp
7983 28 : fit_coef(11, 30) = -5.6981792340525463E-04_dp
7984 28 : fit_coef(12, 30) = -3.5378278861525159E-05_dp
7985 :
7986 28 : 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 142 : 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 142 : L_b = 1.0000000000000000E+02_dp
8001 142 : U_b = 1.1738988511192356E+03_dp
8002 142 : fit_coef(0, 1) = 5.0212735786207190E-04_dp
8003 142 : fit_coef(1, 1) = 1.4715598436560518E-03_dp
8004 142 : fit_coef(2, 1) = 2.1503966610512443E-03_dp
8005 142 : fit_coef(3, 1) = 1.8763892029773810E-03_dp
8006 142 : fit_coef(4, 1) = 8.9509317267188646E-04_dp
8007 142 : fit_coef(5, 1) = 4.4252413515572752E-05_dp
8008 142 : fit_coef(6, 1) = -1.9929035057866966E-04_dp
8009 142 : fit_coef(7, 1) = -5.0485804346307633E-05_dp
8010 142 : fit_coef(8, 1) = 4.3968375574232470E-05_dp
8011 142 : fit_coef(9, 1) = 5.5154425679931483E-05_dp
8012 142 : fit_coef(10, 1) = -7.3825809523082769E-05_dp
8013 142 : fit_coef(11, 1) = 3.4418190236750298E-05_dp
8014 142 : fit_coef(12, 1) = -6.1654048128061428E-06_dp
8015 142 : fit_coef(0, 2) = 2.7813466099976822E-03_dp
8016 142 : fit_coef(1, 2) = 7.9639349588492489E-03_dp
8017 142 : fit_coef(2, 2) = 1.1498418447714263E-02_dp
8018 142 : fit_coef(3, 2) = 9.9309054844448665E-03_dp
8019 142 : fit_coef(4, 2) = 4.6793464572880547E-03_dp
8020 142 : fit_coef(5, 2) = 2.0134378481332076E-04_dp
8021 142 : fit_coef(6, 2) = -1.0461830621068451E-03_dp
8022 142 : fit_coef(7, 2) = -2.5547396359220325E-04_dp
8023 142 : fit_coef(8, 2) = 2.3777699827707836E-04_dp
8024 142 : fit_coef(9, 2) = 2.7502067371517350E-04_dp
8025 142 : fit_coef(10, 2) = -3.7882475853089022E-04_dp
8026 142 : fit_coef(11, 2) = 1.7838098098998129E-04_dp
8027 142 : fit_coef(12, 2) = -3.2173474626321743E-05_dp
8028 142 : fit_coef(0, 3) = 7.5356589508119715E-03_dp
8029 142 : fit_coef(1, 3) = 2.0547011268364480E-02_dp
8030 142 : fit_coef(2, 3) = 2.8986632022747129E-02_dp
8031 142 : fit_coef(3, 3) = 2.4585742824888547E-02_dp
8032 142 : fit_coef(4, 3) = 1.1332324461894762E-02_dp
8033 142 : fit_coef(5, 3) = 3.5501376638767630E-04_dp
8034 142 : fit_coef(6, 3) = -2.5488497267062661E-03_dp
8035 142 : fit_coef(7, 3) = -5.7872409900516482E-04_dp
8036 142 : fit_coef(8, 3) = 6.0733088515269604E-04_dp
8037 142 : fit_coef(9, 3) = 6.0352400231591973E-04_dp
8038 142 : fit_coef(10, 3) = -8.7889897017369044E-04_dp
8039 142 : fit_coef(11, 3) = 4.2107155921709870E-04_dp
8040 142 : fit_coef(12, 3) = -7.6791853388456923E-05_dp
8041 142 : fit_coef(0, 4) = 1.6293654129500710E-02_dp
8042 142 : fit_coef(1, 4) = 4.1034183058244827E-02_dp
8043 142 : fit_coef(2, 4) = 5.5669340450143955E-02_dp
8044 142 : fit_coef(3, 4) = 4.5958232995003026E-02_dp
8045 142 : fit_coef(4, 4) = 2.0631055086044563E-02_dp
8046 142 : fit_coef(5, 4) = 3.6554527705558160E-04_dp
8047 142 : fit_coef(6, 4) = -4.7143452832445311E-03_dp
8048 142 : fit_coef(7, 4) = -9.9264691382352382E-04_dp
8049 142 : fit_coef(8, 4) = 1.2322009627532241E-03_dp
8050 142 : fit_coef(9, 4) = 9.8185260435618648E-04_dp
8051 142 : fit_coef(10, 4) = -1.5959947544011608E-03_dp
8052 142 : fit_coef(11, 4) = 7.9825857947420098E-04_dp
8053 142 : fit_coef(12, 4) = -1.5065823877361689E-04_dp
8054 142 : fit_coef(0, 5) = 3.2116880043710744E-02_dp
8055 142 : fit_coef(1, 5) = 7.2781942537050448E-02_dp
8056 142 : fit_coef(2, 5) = 9.3125631841889350E-02_dp
8057 142 : fit_coef(3, 5) = 7.3591074240215937E-02_dp
8058 142 : fit_coef(4, 5) = 3.1935152140736278E-02_dp
8059 142 : fit_coef(5, 5) = 4.5831309250835472E-04_dp
8060 142 : fit_coef(6, 5) = -7.2579368033050861E-03_dp
8061 142 : fit_coef(7, 5) = -1.5242456005729315E-03_dp
8062 142 : fit_coef(8, 5) = 1.3880778676825922E-03_dp
8063 142 : fit_coef(9, 5) = 2.2376670079413724E-03_dp
8064 142 : fit_coef(10, 5) = -2.8229103749250520E-03_dp
8065 142 : fit_coef(11, 5) = 1.2683701333535493E-03_dp
8066 142 : fit_coef(12, 5) = -2.1655233738863679E-04_dp
8067 142 : fit_coef(0, 6) = 6.0477196624071472E-02_dp
8068 142 : fit_coef(1, 6) = 1.2125095461882505E-01_dp
8069 142 : fit_coef(2, 6) = 1.4404594415379110E-01_dp
8070 142 : fit_coef(3, 6) = 1.0653676582778267E-01_dp
8071 142 : fit_coef(4, 6) = 4.3372431118558187E-02_dp
8072 142 : fit_coef(5, 6) = 4.1288606887333705E-04_dp
8073 142 : fit_coef(6, 6) = -8.8579280488838095E-03_dp
8074 142 : fit_coef(7, 6) = -2.2179852026296800E-03_dp
8075 142 : fit_coef(8, 6) = 2.0958278133874500E-03_dp
8076 142 : fit_coef(9, 6) = 6.9556540802001902E-04_dp
8077 142 : fit_coef(10, 6) = -7.7943766158600528E-04_dp
8078 142 : fit_coef(11, 6) = 1.1446740869183900E-04_dp
8079 142 : fit_coef(12, 6) = 2.7632689805845764E-05_dp
8080 142 : fit_coef(0, 7) = 1.1064399319041990E-01_dp
8081 142 : fit_coef(1, 7) = 1.9418438863145457E-01_dp
8082 142 : fit_coef(2, 7) = 2.1228094292888233E-01_dp
8083 142 : fit_coef(3, 7) = 1.4399775783971039E-01_dp
8084 142 : fit_coef(4, 7) = 5.2541209241390302E-02_dp
8085 142 : fit_coef(5, 7) = -9.2537655514377752E-04_dp
8086 142 : fit_coef(6, 7) = -9.0102109734644890E-03_dp
8087 142 : fit_coef(7, 7) = -1.8871157279751268E-03_dp
8088 142 : fit_coef(8, 7) = 3.1309099680042760E-03_dp
8089 142 : fit_coef(9, 7) = -2.5004066194694607E-03_dp
8090 142 : fit_coef(10, 7) = 1.5656511931140620E-03_dp
8091 142 : fit_coef(11, 7) = -4.6135496029970502E-04_dp
8092 142 : fit_coef(12, 7) = 3.2764384769675960E-05_dp
8093 142 : fit_coef(0, 8) = 1.9798263302865093E-01_dp
8094 142 : fit_coef(1, 8) = 3.0162627763842398E-01_dp
8095 142 : fit_coef(2, 8) = 3.0217808443088900E-01_dp
8096 142 : fit_coef(3, 8) = 1.8500065299157431E-01_dp
8097 142 : fit_coef(4, 8) = 5.7340548130963523E-02_dp
8098 142 : fit_coef(5, 8) = -4.3765501944754721E-03_dp
8099 142 : fit_coef(6, 8) = -7.8869300696153017E-03_dp
8100 142 : fit_coef(7, 8) = 1.3835188624175719E-04_dp
8101 142 : fit_coef(8, 8) = 3.3750918634805581E-03_dp
8102 142 : fit_coef(9, 8) = -5.0244120026273721E-03_dp
8103 142 : fit_coef(10, 8) = 2.8097352620888730E-03_dp
8104 142 : fit_coef(11, 8) = -4.8749664373366714E-04_dp
8105 142 : fit_coef(12, 8) = -3.4446077687337908E-05_dp
8106 142 : fit_coef(0, 9) = 3.4762598832467834E-01_dp
8107 142 : fit_coef(1, 9) = 4.5573634191690915E-01_dp
8108 142 : fit_coef(2, 9) = 4.1780164140817255E-01_dp
8109 142 : fit_coef(3, 9) = 2.2768957404533277E-01_dp
8110 142 : fit_coef(4, 9) = 5.5879258865385507E-02_dp
8111 142 : fit_coef(5, 9) = -9.9081094692702303E-03_dp
8112 142 : fit_coef(6, 9) = -5.0068528611206149E-03_dp
8113 142 : fit_coef(7, 9) = 3.0160271964011468E-03_dp
8114 142 : fit_coef(8, 9) = 3.6222265118699710E-03_dp
8115 142 : fit_coef(9, 9) = -8.8397638670103182E-03_dp
8116 142 : fit_coef(10, 9) = 5.9259674015836239E-03_dp
8117 142 : fit_coef(11, 9) = -1.7478385304278991E-03_dp
8118 142 : fit_coef(12, 9) = 1.9988838059233530E-04_dp
8119 142 : fit_coef(0, 10) = 6.0023140973611755E-01_dp
8120 142 : fit_coef(1, 10) = 6.6999181383267858E-01_dp
8121 142 : fit_coef(2, 10) = 5.6210771610729648E-01_dp
8122 142 : fit_coef(3, 10) = 2.6900784986520249E-01_dp
8123 142 : fit_coef(4, 10) = 4.6435418682624782E-02_dp
8124 142 : fit_coef(5, 10) = -1.6642885693320342E-02_dp
8125 142 : fit_coef(6, 10) = 3.8014327565738168E-04_dp
8126 142 : fit_coef(7, 10) = 6.2610253146593775E-03_dp
8127 142 : fit_coef(8, 10) = 3.2146802606417453E-03_dp
8128 142 : fit_coef(9, 10) = -1.3711754453203115E-02_dp
8129 142 : fit_coef(10, 10) = 1.1099834233825179E-02_dp
8130 142 : fit_coef(11, 10) = -4.2111321446896338E-03_dp
8131 142 : fit_coef(12, 10) = 6.7715733841587470E-04_dp
8132 142 : fit_coef(0, 11) = 1.0210655880657196E+00_dp
8133 142 : fit_coef(1, 11) = 9.5730192228839006E-01_dp
8134 142 : fit_coef(2, 11) = 7.3607353846396317E-01_dp
8135 142 : fit_coef(3, 11) = 3.0496319982420517E-01_dp
8136 142 : fit_coef(4, 11) = 2.7825470684213698E-02_dp
8137 142 : fit_coef(5, 11) = -2.3036487360505412E-02_dp
8138 142 : fit_coef(6, 11) = 9.0002346429021024E-03_dp
8139 142 : fit_coef(7, 11) = 9.4071699260299454E-03_dp
8140 142 : fit_coef(8, 11) = 1.1246072531079006E-03_dp
8141 142 : fit_coef(9, 11) = -1.8600382884449367E-02_dp
8142 142 : fit_coef(10, 11) = 1.7805450549655721E-02_dp
8143 142 : fit_coef(11, 11) = -7.6910226916182545E-03_dp
8144 142 : fit_coef(12, 11) = 1.3712121437792250E-03_dp
8145 142 : fit_coef(0, 12) = 1.7149561293339615E+00_dp
8146 142 : fit_coef(1, 12) = 1.3267744256882403E+00_dp
8147 142 : fit_coef(2, 12) = 9.3812895165305032E-01_dp
8148 142 : fit_coef(3, 12) = 3.3164771999234482E-01_dp
8149 142 : fit_coef(4, 12) = -4.9178162808578741E-05_dp
8150 142 : fit_coef(5, 12) = -2.7249300178168019E-02_dp
8151 142 : fit_coef(6, 12) = 2.1205458082480019E-02_dp
8152 142 : fit_coef(7, 12) = 1.1807990512194026E-02_dp
8153 142 : fit_coef(8, 12) = -3.3661868556830038E-03_dp
8154 142 : fit_coef(9, 12) = -2.2430236127638940E-02_dp
8155 142 : fit_coef(10, 12) = 2.5486188136087912E-02_dp
8156 142 : fit_coef(11, 12) = -1.2102581018395429E-02_dp
8157 142 : fit_coef(12, 12) = 2.3004381707239473E-03_dp
8158 142 : fit_coef(0, 13) = 2.8539608561967360E+00_dp
8159 142 : fit_coef(1, 13) = 1.7797688368810891E+00_dp
8160 142 : fit_coef(2, 13) = 1.1646443061164560E+00_dp
8161 142 : fit_coef(3, 13) = 3.4701820688332419E-01_dp
8162 142 : fit_coef(4, 13) = -3.5929878683565182E-02_dp
8163 142 : fit_coef(5, 13) = -2.7887790242899075E-02_dp
8164 142 : fit_coef(6, 13) = 3.6702245498739489E-02_dp
8165 142 : fit_coef(7, 13) = 1.2908675248958822E-02_dp
8166 142 : fit_coef(8, 13) = -1.0507576982805505E-02_dp
8167 142 : fit_coef(9, 13) = -2.4256099909163161E-02_dp
8168 142 : fit_coef(10, 13) = 3.3404768253646827E-02_dp
8169 142 : fit_coef(11, 13) = -1.7212687576065637E-02_dp
8170 142 : fit_coef(12, 13) = 3.4428516812536531E-03_dp
8171 142 : fit_coef(0, 14) = 4.7432936777438393E+00_dp
8172 142 : fit_coef(1, 14) = 2.3082382103412251E+00_dp
8173 142 : fit_coef(2, 14) = 1.4124938166206138E+00_dp
8174 142 : fit_coef(3, 14) = 3.5283333252051396E-01_dp
8175 142 : fit_coef(4, 14) = -7.7696363994240056E-02_dp
8176 142 : fit_coef(5, 14) = -2.4914689387708116E-02_dp
8177 142 : fit_coef(6, 14) = 5.4698262510218663E-02_dp
8178 142 : fit_coef(7, 14) = 1.2640616949106807E-02_dp
8179 142 : fit_coef(8, 14) = -1.9941323208816249E-02_dp
8180 142 : fit_coef(9, 14) = -2.3878392941469071E-02_dp
8181 142 : fit_coef(10, 14) = 4.1055603040417131E-02_dp
8182 142 : fit_coef(11, 14) = -2.2734874408993563E-02_dp
8183 142 : fit_coef(12, 14) = 4.7400588393736497E-03_dp
8184 142 : fit_coef(0, 15) = 8.0710112216342775E+00_dp
8185 142 : fit_coef(1, 15) = 2.9055595870824633E+00_dp
8186 142 : fit_coef(2, 15) = 1.6866060964430423E+00_dp
8187 142 : fit_coef(3, 15) = 3.5581815059695143E-01_dp
8188 142 : fit_coef(4, 15) = -1.2393245100043256E-01_dp
8189 142 : fit_coef(5, 15) = -2.0058383552301023E-02_dp
8190 142 : fit_coef(6, 15) = 7.4640422271172679E-02_dp
8191 142 : fit_coef(7, 15) = 1.1638820236828815E-02_dp
8192 142 : fit_coef(8, 15) = -3.0928127527058424E-02_dp
8193 142 : fit_coef(9, 15) = -2.2331476973823049E-02_dp
8194 142 : fit_coef(10, 15) = 4.8851141745373840E-02_dp
8195 142 : fit_coef(11, 15) = -2.8681346469043273E-02_dp
8196 142 : fit_coef(12, 15) = 6.1686347014912515E-03_dp
8197 142 : fit_coef(0, 16) = 1.3032066476244642E-03_dp
8198 142 : fit_coef(1, 16) = 3.8001657920981851E-03_dp
8199 142 : fit_coef(2, 16) = 5.5378064823689123E-03_dp
8200 142 : fit_coef(3, 16) = 4.8206577899485006E-03_dp
8201 142 : fit_coef(4, 16) = 2.2930144045863621E-03_dp
8202 142 : fit_coef(5, 16) = 1.0986261495124486E-04_dp
8203 142 : fit_coef(6, 16) = -5.1106328320878528E-04_dp
8204 142 : fit_coef(7, 16) = -1.2833639292522648E-04_dp
8205 142 : fit_coef(8, 16) = 1.1356979226852716E-04_dp
8206 142 : fit_coef(9, 16) = 1.3973942184720303E-04_dp
8207 142 : fit_coef(10, 16) = -1.8830360701542777E-04_dp
8208 142 : fit_coef(11, 16) = 8.7997162572425538E-05_dp
8209 142 : fit_coef(12, 16) = -1.5788992466518323E-05_dp
8210 142 : fit_coef(0, 17) = 3.3544869799214628E-03_dp
8211 142 : fit_coef(1, 17) = 9.3282083632741895E-03_dp
8212 142 : fit_coef(2, 17) = 1.3271370703308300E-02_dp
8213 142 : fit_coef(3, 17) = 1.1319835500098886E-02_dp
8214 142 : fit_coef(4, 17) = 5.2524178309963383E-03_dp
8215 142 : fit_coef(5, 17) = 1.8435087221054173E-04_dp
8216 142 : fit_coef(6, 17) = -1.1797404048471125E-03_dp
8217 142 : fit_coef(7, 17) = -2.7516373364939583E-04_dp
8218 142 : fit_coef(8, 17) = 2.7734414812233385E-04_dp
8219 142 : fit_coef(9, 17) = 2.9073439175898594E-04_dp
8220 142 : fit_coef(10, 17) = -4.1550528469613449E-04_dp
8221 142 : fit_coef(11, 17) = 1.9807893770328183E-04_dp
8222 142 : fit_coef(12, 17) = -3.6025500379600989E-05_dp
8223 142 : fit_coef(0, 18) = 6.3980511048867201E-03_dp
8224 142 : fit_coef(1, 18) = 1.6128813328333793E-02_dp
8225 142 : fit_coef(2, 18) = 2.1881033183460945E-02_dp
8226 142 : fit_coef(3, 18) = 1.8021417293275506E-02_dp
8227 142 : fit_coef(4, 18) = 8.0169003498435417E-03_dp
8228 142 : fit_coef(5, 18) = 8.7835720128096682E-05_dp
8229 142 : fit_coef(6, 18) = -1.8255106100472426E-03_dp
8230 142 : fit_coef(7, 18) = -3.5831804749509092E-04_dp
8231 142 : fit_coef(8, 18) = 4.8285099003593436E-04_dp
8232 142 : fit_coef(9, 18) = 3.2465264639707240E-04_dp
8233 142 : fit_coef(10, 18) = -5.5521076066674020E-04_dp
8234 142 : fit_coef(11, 18) = 2.7719905231653717E-04_dp
8235 142 : fit_coef(12, 18) = -5.1820236344809990E-05_dp
8236 142 : fit_coef(0, 19) = 1.1614376264492066E-02_dp
8237 142 : fit_coef(1, 19) = 2.5394323464202898E-02_dp
8238 142 : fit_coef(2, 19) = 3.1733081124309684E-02_dp
8239 142 : fit_coef(3, 19) = 2.4647015498881791E-02_dp
8240 142 : fit_coef(4, 19) = 1.0500322632906088E-02_dp
8241 142 : fit_coef(5, 19) = -1.2365877291301032E-05_dp
8242 142 : fit_coef(6, 19) = -2.4904038430234622E-03_dp
8243 142 : fit_coef(7, 19) = -4.8516369798151703E-04_dp
8244 142 : fit_coef(8, 19) = 6.1030277836899595E-04_dp
8245 142 : fit_coef(9, 19) = 7.4056213117855896E-04_dp
8246 142 : fit_coef(10, 19) = -1.1330531422737624E-03_dp
8247 142 : fit_coef(11, 19) = 5.8028785292689455E-04_dp
8248 142 : fit_coef(12, 19) = -1.1292938481673382E-04_dp
8249 142 : fit_coef(0, 20) = 2.0921907643278354E-02_dp
8250 142 : fit_coef(1, 20) = 3.9009588349526253E-02_dp
8251 142 : fit_coef(2, 20) = 4.3627398050961781E-02_dp
8252 142 : fit_coef(3, 20) = 3.0443034676393681E-02_dp
8253 142 : fit_coef(4, 20) = 1.1774589070303968E-02_dp
8254 142 : fit_coef(5, 20) = 1.7741503302715373E-04_dp
8255 142 : fit_coef(6, 20) = -2.3187359164888160E-03_dp
8256 142 : fit_coef(7, 20) = -6.1637368205092694E-04_dp
8257 142 : fit_coef(8, 20) = -5.3221714109514493E-05_dp
8258 142 : fit_coef(9, 20) = 8.1942339340144803E-04_dp
8259 142 : fit_coef(10, 20) = -2.2354982629820732E-04_dp
8260 142 : fit_coef(11, 20) = -2.0305492301268794E-04_dp
8261 142 : fit_coef(12, 20) = 9.4193850816527892E-05_dp
8262 142 : fit_coef(0, 21) = 3.7306315930286466E-02_dp
8263 142 : fit_coef(1, 21) = 5.9218420616905736E-02_dp
8264 142 : fit_coef(2, 21) = 5.8868131527264646E-02_dp
8265 142 : fit_coef(3, 21) = 3.5324612409341802E-02_dp
8266 142 : fit_coef(4, 21) = 1.0684265753661753E-02_dp
8267 142 : fit_coef(5, 21) = -4.9371106930299301E-04_dp
8268 142 : fit_coef(6, 21) = -8.1292928450316614E-04_dp
8269 142 : fit_coef(7, 21) = -5.1619725924012061E-04_dp
8270 142 : fit_coef(8, 21) = 1.3804573307375741E-03_dp
8271 142 : fit_coef(9, 21) = -3.4663308659499629E-03_dp
8272 142 : fit_coef(10, 21) = 3.3745183791109305E-03_dp
8273 142 : fit_coef(11, 21) = -1.4291379899595120E-03_dp
8274 142 : fit_coef(12, 21) = 2.2454897381750800E-04_dp
8275 142 : fit_coef(0, 22) = 6.5528592554674012E-02_dp
8276 142 : fit_coef(1, 22) = 8.8324441729528691E-02_dp
8277 142 : fit_coef(2, 22) = 7.8339185211631426E-02_dp
8278 142 : fit_coef(3, 22) = 3.9448552741652813E-02_dp
8279 142 : fit_coef(4, 22) = 7.3083551980621516E-03_dp
8280 142 : fit_coef(5, 22) = -2.3247267042822940E-03_dp
8281 142 : fit_coef(6, 22) = 4.5294755854382923E-04_dp
8282 142 : fit_coef(7, 22) = 1.2969150143151570E-03_dp
8283 142 : fit_coef(8, 22) = 4.6541067893071160E-04_dp
8284 142 : fit_coef(9, 22) = -2.5032569665157803E-03_dp
8285 142 : fit_coef(10, 22) = 1.1684561968462262E-03_dp
8286 142 : fit_coef(11, 22) = 1.5370128957771531E-04_dp
8287 142 : fit_coef(12, 22) = -1.4620664545141759E-04_dp
8288 142 : fit_coef(0, 23) = 1.1324428651781197E-01_dp
8289 142 : fit_coef(1, 23) = 1.2859806173609753E-01_dp
8290 142 : fit_coef(2, 23) = 1.0214609707305304E-01_dp
8291 142 : fit_coef(3, 23) = 4.2253398459926365E-02_dp
8292 142 : fit_coef(4, 23) = 1.9762536371264882E-03_dp
8293 142 : fit_coef(5, 23) = -4.5714996217850632E-03_dp
8294 142 : fit_coef(6, 23) = 1.8868500721209416E-03_dp
8295 142 : fit_coef(7, 23) = 2.5695589529597719E-03_dp
8296 142 : fit_coef(8, 23) = 2.3850425890078301E-04_dp
8297 142 : fit_coef(9, 23) = -3.0200640644662698E-03_dp
8298 142 : fit_coef(10, 23) = 1.9503667616499671E-03_dp
8299 142 : fit_coef(11, 23) = -5.5257674937112412E-04_dp
8300 142 : fit_coef(12, 23) = 7.8113401323294423E-05_dp
8301 142 : fit_coef(0, 24) = 1.9267245469427555E-01_dp
8302 142 : fit_coef(1, 24) = 1.8189882938781768E-01_dp
8303 142 : fit_coef(2, 24) = 1.2960901455552834E-01_dp
8304 142 : fit_coef(3, 24) = 4.2611091038268031E-02_dp
8305 142 : fit_coef(4, 24) = -5.1926218101019609E-03_dp
8306 142 : fit_coef(5, 24) = -6.3425612842204224E-03_dp
8307 142 : fit_coef(6, 24) = 4.0010538098000379E-03_dp
8308 142 : fit_coef(7, 24) = 3.1214642561276981E-03_dp
8309 142 : fit_coef(8, 24) = 1.0563824093820107E-04_dp
8310 142 : fit_coef(9, 24) = -4.5110524003026762E-03_dp
8311 142 : fit_coef(10, 24) = 4.2402114420073420E-03_dp
8312 142 : fit_coef(11, 24) = -1.9163626754183359E-03_dp
8313 142 : fit_coef(12, 24) = 3.6969348039378312E-04_dp
8314 142 : fit_coef(0, 25) = 3.2317976642569807E-01_dp
8315 142 : fit_coef(1, 25) = 2.4881850229416846E-01_dp
8316 142 : fit_coef(2, 25) = 1.5917736470901570E-01_dp
8317 142 : fit_coef(3, 25) = 3.9343328717200927E-02_dp
8318 142 : fit_coef(4, 25) = -1.3902519808734082E-02_dp
8319 142 : fit_coef(5, 25) = -6.8640926105066162E-03_dp
8320 142 : fit_coef(6, 25) = 6.9006071006695079E-03_dp
8321 142 : fit_coef(7, 25) = 3.2927740290179990E-03_dp
8322 142 : fit_coef(8, 25) = -1.0983902176266030E-03_dp
8323 142 : fit_coef(9, 25) = -5.0555007528979004E-03_dp
8324 142 : fit_coef(10, 25) = 6.0190910606148324E-03_dp
8325 142 : fit_coef(11, 25) = -2.9821080457428841E-03_dp
8326 142 : fit_coef(12, 25) = 5.8221139171923042E-04_dp
8327 142 : fit_coef(0, 26) = 5.3554089995575782E-01_dp
8328 142 : fit_coef(1, 26) = 3.2739155636224210E-01_dp
8329 142 : fit_coef(2, 26) = 1.8848689258384349E-01_dp
8330 142 : fit_coef(3, 26) = 3.1884980883658924E-02_dp
8331 142 : fit_coef(4, 26) = -2.3339754433360369E-02_dp
8332 142 : fit_coef(5, 26) = -5.6037573210389264E-03_dp
8333 142 : fit_coef(6, 26) = 1.0403698986274485E-02_dp
8334 142 : fit_coef(7, 26) = 2.8865920265869838E-03_dp
8335 142 : fit_coef(8, 26) = -3.2033768610669569E-03_dp
8336 142 : fit_coef(9, 26) = -4.5416607006448602E-03_dp
8337 142 : fit_coef(10, 26) = 7.3043246118188162E-03_dp
8338 142 : fit_coef(11, 26) = -3.9689298970288006E-03_dp
8339 142 : fit_coef(12, 26) = 8.1056551195733142E-04_dp
8340 142 : fit_coef(0, 27) = 8.8000603036746139E-01_dp
8341 142 : fit_coef(1, 27) = 4.1182532361787932E-01_dp
8342 142 : fit_coef(2, 27) = 2.1497937217091584E-01_dp
8343 142 : fit_coef(3, 27) = 2.1108047064593377E-02_dp
8344 142 : fit_coef(4, 27) = -3.2191882260831459E-02_dp
8345 142 : fit_coef(5, 27) = -2.5724974235411323E-03_dp
8346 142 : fit_coef(6, 27) = 1.3955680448193437E-02_dp
8347 142 : fit_coef(7, 27) = 1.8152463536498431E-03_dp
8348 142 : fit_coef(8, 27) = -5.8233926497395817E-03_dp
8349 142 : fit_coef(9, 27) = -2.9482077294913736E-03_dp
8350 142 : fit_coef(10, 27) = 7.9261411558925292E-03_dp
8351 142 : fit_coef(11, 27) = -4.8132854344172145E-03_dp
8352 142 : fit_coef(12, 27) = 1.0440601147544259E-03_dp
8353 142 : fit_coef(0, 28) = 1.4460627242259527E+00_dp
8354 142 : fit_coef(1, 28) = 4.9271419953901929E-01_dp
8355 142 : fit_coef(2, 28) = 2.3743318711644951E-01_dp
8356 142 : fit_coef(3, 28) = 9.9076815053936729E-03_dp
8357 142 : fit_coef(4, 28) = -3.9191794449869852E-02_dp
8358 142 : fit_coef(5, 28) = 1.3099534113565326E-03_dp
8359 142 : fit_coef(6, 28) = 1.6894034568497723E-02_dp
8360 142 : fit_coef(7, 28) = 3.7043982265874470E-04_dp
8361 142 : fit_coef(8, 28) = -8.3968062748629741E-03_dp
8362 142 : fit_coef(9, 28) = -6.6028855186588131E-04_dp
8363 142 : fit_coef(10, 28) = 7.8140284723942129E-03_dp
8364 142 : fit_coef(11, 28) = -5.3528674153974880E-03_dp
8365 142 : fit_coef(12, 28) = 1.2297837544111832E-03_dp
8366 142 : fit_coef(0, 29) = 2.4319559958545311E+00_dp
8367 142 : fit_coef(1, 29) = 5.6229813567117626E-01_dp
8368 142 : fit_coef(2, 29) = 2.5870101698993758E-01_dp
8369 142 : fit_coef(3, 29) = 2.8306941439785287E-03_dp
8370 142 : fit_coef(4, 29) = -4.4047429705758694E-02_dp
8371 142 : fit_coef(5, 29) = 4.3384122634558238E-03_dp
8372 142 : fit_coef(6, 29) = 1.8978692315301807E-02_dp
8373 142 : fit_coef(7, 29) = -7.9790741322960021E-04_dp
8374 142 : fit_coef(8, 29) = -1.0330971785215522E-02_dp
8375 142 : fit_coef(9, 29) = 1.2390333347493327E-03_dp
8376 142 : fit_coef(10, 29) = 7.5464073935277154E-03_dp
8377 142 : fit_coef(11, 29) = -5.6851817992854548E-03_dp
8378 142 : fit_coef(12, 29) = 1.3586302192394280E-03_dp
8379 142 : fit_coef(0, 30) = 4.5666853091127635E+00_dp
8380 142 : fit_coef(1, 30) = 6.4009785574659228E-01_dp
8381 142 : fit_coef(2, 30) = 2.9587958616654764E-01_dp
8382 142 : fit_coef(3, 30) = 5.3258996536484551E-03_dp
8383 142 : fit_coef(4, 30) = -4.8921450862390199E-02_dp
8384 142 : fit_coef(5, 30) = 4.8519904409378041E-03_dp
8385 142 : fit_coef(6, 30) = 2.1138966562008546E-02_dp
8386 142 : fit_coef(7, 30) = -9.9509468782633297E-04_dp
8387 142 : fit_coef(8, 30) = -1.1615586429846661E-02_dp
8388 142 : fit_coef(9, 30) = 1.4899160811089988E-03_dp
8389 142 : fit_coef(10, 30) = 8.3912654254730754E-03_dp
8390 142 : fit_coef(11, 30) = -6.3525637249113569E-03_dp
8391 142 : fit_coef(12, 30) = 1.5228141862253625E-03_dp
8392 :
8393 142 : 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 166 : 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 166 : L_b = 9.3527642781376642E+01_dp
8408 166 : U_b = 1.1750000000000000E+06_dp
8409 166 : fit_coef(0, 1) = 3.2793279985494519E-06_dp
8410 166 : fit_coef(1, 1) = 7.2761221861298733E-06_dp
8411 166 : fit_coef(2, 1) = 6.6879597248076629E-04_dp
8412 166 : fit_coef(3, 1) = -3.3377387242640721E-03_dp
8413 166 : fit_coef(4, 1) = 3.6932190908574580E-02_dp
8414 166 : fit_coef(5, 1) = -1.4859062400069553E-01_dp
8415 166 : fit_coef(6, 1) = 4.4629627390711790E-01_dp
8416 166 : fit_coef(7, 1) = -9.3682363031214910E-01_dp
8417 166 : fit_coef(8, 1) = 1.3525709274164297E+00_dp
8418 166 : fit_coef(9, 1) = -1.3157143856436124E+00_dp
8419 166 : fit_coef(10, 1) = 8.2321722743838222E-01_dp
8420 166 : fit_coef(11, 1) = -2.9905777894458391E-01_dp
8421 166 : fit_coef(12, 1) = 4.7927187586119996E-02_dp
8422 166 : fit_coef(0, 2) = 3.6131623637423831E-05_dp
8423 166 : fit_coef(1, 2) = 4.7106962333648227E-05_dp
8424 166 : fit_coef(2, 2) = 4.3052245932532632E-03_dp
8425 166 : fit_coef(3, 2) = -2.3337397086091179E-02_dp
8426 166 : fit_coef(4, 2) = 2.3805631448383252E-01_dp
8427 166 : fit_coef(5, 2) = -9.8141547342868762E-01_dp
8428 166 : fit_coef(6, 2) = 2.9514193901676489E+00_dp
8429 166 : fit_coef(7, 2) = -6.1764264357918330E+00_dp
8430 166 : fit_coef(8, 2) = 8.8882482060089814E+00_dp
8431 166 : fit_coef(9, 2) = -8.6216924305612981E+00_dp
8432 166 : fit_coef(10, 2) = 5.3820183799751744E+00_dp
8433 166 : fit_coef(11, 2) = -1.9515484948325068E+00_dp
8434 166 : fit_coef(12, 2) = 3.1228748667302658E-01_dp
8435 166 : fit_coef(0, 3) = 1.9135313464109315E-04_dp
8436 166 : fit_coef(1, 3) = 1.7460510061267730E-04_dp
8437 166 : fit_coef(2, 3) = 1.5413483600038124E-02_dp
8438 166 : fit_coef(3, 3) = -8.7803353742691062E-02_dp
8439 166 : fit_coef(4, 3) = 8.0147578597001090E-01_dp
8440 166 : fit_coef(5, 3) = -3.4506170283047766E+00_dp
8441 166 : fit_coef(6, 3) = 1.0597559824370764E+01_dp
8442 166 : fit_coef(7, 3) = -2.2472933987251839E+01_dp
8443 166 : fit_coef(8, 3) = 3.2637358630788739E+01_dp
8444 166 : fit_coef(9, 3) = -3.1863935196267601E+01_dp
8445 166 : fit_coef(10, 3) = 1.9983399971045149E+01_dp
8446 166 : fit_coef(11, 3) = -7.2707478368141611E+00_dp
8447 166 : fit_coef(12, 3) = 1.1664152307259732E+00_dp
8448 166 : fit_coef(0, 4) = 7.3883732820766948E-04_dp
8449 166 : fit_coef(1, 4) = 5.0733833618914323E-04_dp
8450 166 : fit_coef(2, 4) = 4.4370796269257232E-02_dp
8451 166 : fit_coef(3, 4) = -2.6481196747393215E-01_dp
8452 166 : fit_coef(4, 4) = 2.2595142950561815E+00_dp
8453 166 : fit_coef(5, 4) = -1.0181630118704184E+01_dp
8454 166 : fit_coef(6, 4) = 3.1679590172936724E+01_dp
8455 166 : fit_coef(7, 4) = -6.7336030116199026E+01_dp
8456 166 : fit_coef(8, 4) = 9.7677953648704644E+01_dp
8457 166 : fit_coef(9, 4) = -9.5149794831930734E+01_dp
8458 166 : fit_coef(10, 4) = 5.9530024414743906E+01_dp
8459 166 : fit_coef(11, 4) = -2.1611138637657191E+01_dp
8460 166 : fit_coef(12, 4) = 3.4601757819555536E+00_dp
8461 166 : fit_coef(0, 5) = 2.3666313203208780E-03_dp
8462 166 : fit_coef(1, 5) = 1.2786885886632092E-03_dp
8463 166 : fit_coef(2, 5) = 1.1076208254179676E-01_dp
8464 166 : fit_coef(3, 5) = -6.7839594619191412E-01_dp
8465 166 : fit_coef(4, 5) = 5.5114285011328183E+00_dp
8466 166 : fit_coef(5, 5) = -2.5395097951060229E+01_dp
8467 166 : fit_coef(6, 5) = 7.9307253014224088E+01_dp
8468 166 : fit_coef(7, 5) = -1.6859211837607822E+02_dp
8469 166 : fit_coef(8, 5) = 2.4452261050037967E+02_dp
8470 166 : fit_coef(9, 5) = -2.3820141119829208E+02_dp
8471 166 : fit_coef(10, 5) = 1.4905893976672397E+02_dp
8472 166 : fit_coef(11, 5) = -5.4127909713308576E+01_dp
8473 166 : fit_coef(12, 5) = 8.6691001852426552E+00_dp
8474 166 : fit_coef(0, 6) = 6.6782258468515501E-03_dp
8475 166 : fit_coef(1, 6) = 2.9071241132673617E-03_dp
8476 166 : fit_coef(2, 6) = 2.4975031064405542E-01_dp
8477 166 : fit_coef(3, 6) = -1.5562125797528150E+00_dp
8478 166 : fit_coef(4, 6) = 1.2185079476552678E+01_dp
8479 166 : fit_coef(5, 6) = -5.6926325045922916E+01_dp
8480 166 : fit_coef(6, 6) = 1.7855104053066674E+02_dp
8481 166 : fit_coef(7, 6) = -3.8050660514368747E+02_dp
8482 166 : fit_coef(8, 6) = 5.5288905790672220E+02_dp
8483 166 : fit_coef(9, 6) = -5.3932598394454135E+02_dp
8484 166 : fit_coef(10, 6) = 3.3782483380582988E+02_dp
8485 166 : fit_coef(11, 6) = -1.2276125245641836E+02_dp
8486 166 : fit_coef(12, 6) = 1.9671382604642698E+01_dp
8487 166 : fit_coef(0, 7) = 1.7168691373333111E-02_dp
8488 166 : fit_coef(1, 7) = 6.0978405270416770E-03_dp
8489 166 : fit_coef(2, 7) = 5.2025306168908569E-01_dp
8490 166 : fit_coef(3, 7) = -3.2821022955670651E+00_dp
8491 166 : fit_coef(4, 7) = 2.4958349575372374E+01_dp
8492 166 : fit_coef(5, 7) = -1.1765023272930763E+02_dp
8493 166 : fit_coef(6, 7) = 3.7056008209422993E+02_dp
8494 166 : fit_coef(7, 7) = -7.9184187030173371E+02_dp
8495 166 : fit_coef(8, 7) = 1.1527200840436421E+03_dp
8496 166 : fit_coef(9, 7) = -1.1258727391755413E+03_dp
8497 166 : fit_coef(10, 7) = 7.0584825509402651E+02_dp
8498 166 : fit_coef(11, 7) = -2.5665682670985007E+02_dp
8499 166 : fit_coef(12, 7) = 4.1145879034693607E+01_dp
8500 166 : fit_coef(0, 8) = 4.1066740219417780E-02_dp
8501 166 : fit_coef(1, 8) = 1.1965752322210791E-02_dp
8502 166 : fit_coef(2, 8) = 1.0148791234031664E+00_dp
8503 166 : fit_coef(3, 8) = -6.4624725502258276E+00_dp
8504 166 : fit_coef(4, 8) = 4.7976535067054421E+01_dp
8505 166 : fit_coef(5, 8) = -2.2750659978981074E+02_dp
8506 166 : fit_coef(6, 8) = 7.1929276146624795E+02_dp
8507 166 : fit_coef(7, 8) = -1.5410667800156759E+03_dp
8508 166 : fit_coef(8, 8) = 2.2474354642090384E+03_dp
8509 166 : fit_coef(9, 8) = -2.1978239495400421E+03_dp
8510 166 : fit_coef(10, 8) = 1.3791127707578614E+03_dp
8511 166 : fit_coef(11, 8) = -5.0179288602294997E+02_dp
8512 166 : fit_coef(12, 8) = 8.0484577079207980E+01_dp
8513 166 : fit_coef(0, 9) = 9.2699687800883265E-02_dp
8514 166 : fit_coef(1, 9) = 2.2155471885187787E-02_dp
8515 166 : fit_coef(2, 9) = 1.8695902697850499E+00_dp
8516 166 : fit_coef(3, 9) = -1.1991899383860448E+01_dp
8517 166 : fit_coef(4, 9) = 8.7242978410239118E+01_dp
8518 166 : fit_coef(5, 9) = -4.1536938867885857E+02_dp
8519 166 : fit_coef(6, 9) = 1.3176623596141608E+03_dp
8520 166 : fit_coef(7, 9) = -2.8299350356509945E+03_dp
8521 166 : fit_coef(8, 9) = 4.1340902247522199E+03_dp
8522 166 : fit_coef(9, 9) = -4.0476690586057271E+03_dp
8523 166 : fit_coef(10, 9) = 2.5420687410683036E+03_dp
8524 166 : fit_coef(11, 9) = -9.2553103476606759E+02_dp
8525 166 : fit_coef(12, 9) = 1.4852229538367158E+02_dp
8526 166 : fit_coef(0, 10) = 1.9947743279902694E-01_dp
8527 166 : fit_coef(1, 10) = 3.8899312951373388E-02_dp
8528 166 : fit_coef(2, 10) = 3.2680572849945402E+00_dp
8529 166 : fit_coef(3, 10) = -2.1084081716614804E+01_dp
8530 166 : fit_coef(4, 10) = 1.5075557198241123E+02_dp
8531 166 : fit_coef(5, 10) = -7.1967411375827533E+02_dp
8532 166 : fit_coef(6, 10) = 2.2897159192976455E+03_dp
8533 166 : fit_coef(7, 10) = -4.9285687810081845E+03_dp
8534 166 : fit_coef(8, 10) = 7.2112684192795978E+03_dp
8535 166 : fit_coef(9, 10) = -7.0684961344198391E+03_dp
8536 166 : fit_coef(10, 10) = 4.4429042040785398E+03_dp
8537 166 : fit_coef(11, 10) = -1.6185943473816480E+03_dp
8538 166 : fit_coef(12, 10) = 2.5986231052596014E+02_dp
8539 166 : fit_coef(0, 11) = 4.1232198870536146E-01_dp
8540 166 : fit_coef(1, 11) = 6.4893474864739994E-02_dp
8541 166 : fit_coef(2, 11) = 5.4310004234894391E+00_dp
8542 166 : fit_coef(3, 11) = -3.5204004815099751E+01_dp
8543 166 : fit_coef(4, 11) = 2.4798012213498384E+02_dp
8544 166 : fit_coef(5, 11) = -1.1858431117066064E+03_dp
8545 166 : fit_coef(6, 11) = 3.7825064907174756E+03_dp
8546 166 : fit_coef(7, 11) = -8.1581937192205814E+03_dp
8547 166 : fit_coef(8, 11) = 1.1954131106568948E+04_dp
8548 166 : fit_coef(9, 11) = -1.1729786611671518E+04_dp
8549 166 : fit_coef(10, 11) = 7.3784592386581926E+03_dp
8550 166 : fit_coef(11, 11) = -2.6896086736495204E+03_dp
8551 166 : fit_coef(12, 11) = 4.3200462908615089E+02_dp
8552 166 : fit_coef(0, 12) = 8.2375109973285454E-01_dp
8553 166 : fit_coef(1, 12) = 1.0280784827845055E-01_dp
8554 166 : fit_coef(2, 12) = 8.5755836263465604E+00_dp
8555 166 : fit_coef(3, 12) = -5.5800839220514590E+01_dp
8556 166 : fit_coef(4, 12) = 3.8804437171318665E+02_dp
8557 166 : fit_coef(5, 12) = -1.8575547029234676E+03_dp
8558 166 : fit_coef(6, 12) = 5.9379886844425691E+03_dp
8559 166 : fit_coef(7, 12) = -1.2830180852831514E+04_dp
8560 166 : fit_coef(8, 12) = 1.8824783357291468E+04_dp
8561 166 : fit_coef(9, 12) = -1.8489266233281007E+04_dp
8562 166 : fit_coef(10, 12) = 1.1638691611847828E+04_dp
8563 166 : fit_coef(11, 12) = -4.2448366640433251E+03_dp
8564 166 : fit_coef(12, 12) = 6.8208814863958401E+02_dp
8565 166 : fit_coef(0, 13) = 1.6005401729604098E+00_dp
8566 166 : fit_coef(1, 13) = 1.5427671373341209E-01_dp
8567 166 : fit_coef(2, 13) = 1.2832947943920599E+01_dp
8568 166 : fit_coef(3, 13) = -8.3759357589093241E+01_dp
8569 166 : fit_coef(4, 13) = 5.7621942259264915E+02_dp
8570 166 : fit_coef(5, 13) = -2.7598336160779349E+03_dp
8571 166 : fit_coef(6, 13) = 8.8381623335643399E+03_dp
8572 166 : fit_coef(7, 13) = -1.9126056849476197E+04_dp
8573 166 : fit_coef(8, 13) = 2.8094638893959345E+04_dp
8574 166 : fit_coef(9, 13) = -2.7617301955762628E+04_dp
8575 166 : fit_coef(10, 13) = 1.7395609257161428E+04_dp
8576 166 : fit_coef(11, 13) = -6.3475238166994641E+03_dp
8577 166 : fit_coef(12, 13) = 1.0203400395817024E+03_dp
8578 166 : fit_coef(0, 14) = 3.0540489317639166E+00_dp
8579 166 : fit_coef(1, 14) = 2.1865700868129184E-01_dp
8580 166 : fit_coef(2, 14) = 1.8148202718663860E+01_dp
8581 166 : fit_coef(3, 14) = -1.1872710055025075E+02_dp
8582 166 : fit_coef(4, 14) = 8.0984788084197976E+02_dp
8583 166 : fit_coef(5, 14) = -3.8796556939052798E+03_dp
8584 166 : fit_coef(6, 14) = 1.2441638354776058E+04_dp
8585 166 : fit_coef(7, 14) = -2.6957427016371610E+04_dp
8586 166 : fit_coef(8, 14) = 3.9635425931543767E+04_dp
8587 166 : fit_coef(9, 14) = -3.8989060841935432E+04_dp
8588 166 : fit_coef(10, 14) = 2.4571211983659101E+04_dp
8589 166 : fit_coef(11, 14) = -8.9693909543608097E+03_dp
8590 166 : fit_coef(12, 14) = 1.4422380562945843E+03_dp
8591 166 : fit_coef(0, 15) = 5.8836496088258903E+00_dp
8592 166 : fit_coef(1, 15) = 2.9333916159882772E-01_dp
8593 166 : fit_coef(2, 15) = 2.4309148431266522E+01_dp
8594 166 : fit_coef(3, 15) = -1.5928663857255199E+02_dp
8595 166 : fit_coef(4, 15) = 1.0800144511418321E+03_dp
8596 166 : fit_coef(5, 15) = -5.1742775717293125E+03_dp
8597 166 : fit_coef(6, 15) = 1.6609418151702128E+04_dp
8598 166 : fit_coef(7, 15) = -3.6019371990459913E+04_dp
8599 166 : fit_coef(8, 15) = 5.2994637899369998E+04_dp
8600 166 : fit_coef(9, 15) = -5.2156366955415026E+04_dp
8601 166 : fit_coef(10, 15) = 3.2881619526078182E+04_dp
8602 166 : fit_coef(11, 15) = -1.2006412191447664E+04_dp
8603 166 : fit_coef(12, 15) = 1.9310054306610489E+03_dp
8604 166 : fit_coef(0, 16) = 1.0490015508948160E-05_dp
8605 166 : fit_coef(1, 16) = 1.9245918297480574E-05_dp
8606 166 : fit_coef(2, 16) = 1.7514019628420299E-03_dp
8607 166 : fit_coef(3, 16) = -8.7825475436631283E-03_dp
8608 166 : fit_coef(4, 16) = 9.8132135498064849E-02_dp
8609 166 : fit_coef(5, 16) = -4.0139357711585455E-01_dp
8610 166 : fit_coef(6, 16) = 1.2151507236457464E+00_dp
8611 166 : fit_coef(7, 16) = -2.5608071661985146E+00_dp
8612 166 : fit_coef(8, 16) = 3.7049308475400640E+00_dp
8613 166 : fit_coef(9, 16) = -3.6079085144794738E+00_dp
8614 166 : fit_coef(10, 16) = 2.2586411450421502E+00_dp
8615 166 : fit_coef(11, 16) = -8.2071784242647206E-01_dp
8616 166 : fit_coef(12, 16) = 1.3153768317036563E-01_dp
8617 166 : fit_coef(0, 17) = 6.9018219767429348E-05_dp
8618 166 : fit_coef(1, 17) = 6.9648188439671224E-05_dp
8619 166 : fit_coef(2, 17) = 6.2459333601416062E-03_dp
8620 166 : fit_coef(3, 17) = -3.5441557914769072E-02_dp
8621 166 : fit_coef(4, 17) = 3.2906922405173999E-01_dp
8622 166 : fit_coef(5, 17) = -1.3703072930999050E+00_dp
8623 166 : fit_coef(6, 17) = 4.1206399805320482E+00_dp
8624 166 : fit_coef(7, 17) = -8.6245400433435595E+00_dp
8625 166 : fit_coef(8, 17) = 1.2424942794117596E+01_dp
8626 166 : fit_coef(9, 17) = -1.2071284705492808E+01_dp
8627 166 : fit_coef(10, 17) = 7.5482859678406982E+00_dp
8628 166 : fit_coef(11, 17) = -2.7416411252527824E+00_dp
8629 166 : fit_coef(12, 17) = 4.3940704181003898E-01_dp
8630 166 : fit_coef(0, 18) = 2.8267117174337328E-04_dp
8631 166 : fit_coef(1, 18) = 2.0340536143980756E-04_dp
8632 166 : fit_coef(2, 18) = 1.7678726727191417E-02_dp
8633 166 : fit_coef(3, 18) = -1.0545298250093989E-01_dp
8634 166 : fit_coef(4, 18) = 8.9650844672191476E-01_dp
8635 166 : fit_coef(5, 18) = -4.0700645201639842E+00_dp
8636 166 : fit_coef(6, 18) = 1.2778228701375353E+01_dp
8637 166 : fit_coef(7, 18) = -2.7365134031898545E+01_dp
8638 166 : fit_coef(8, 18) = 3.9913427510994921E+01_dp
8639 166 : fit_coef(9, 18) = -3.9026449660683376E+01_dp
8640 166 : fit_coef(10, 18) = 2.4477897493830259E+01_dp
8641 166 : fit_coef(11, 18) = -8.9007828894477790E+00_dp
8642 166 : fit_coef(12, 18) = 1.4266184467905938E+00_dp
8643 166 : fit_coef(0, 19) = 9.1918738520005492E-04_dp
8644 166 : fit_coef(1, 19) = 5.0032919937804867E-04_dp
8645 166 : fit_coef(2, 19) = 4.3364999825556638E-02_dp
8646 166 : fit_coef(3, 19) = -2.6781408638943244E-01_dp
8647 166 : fit_coef(4, 19) = 2.1566125289358995E+00_dp
8648 166 : fit_coef(5, 19) = -1.0022123878208944E+01_dp
8649 166 : fit_coef(6, 19) = 3.1317396694353242E+01_dp
8650 166 : fit_coef(7, 19) = -6.6447554440483501E+01_dp
8651 166 : fit_coef(8, 19) = 9.6141728832817350E+01_dp
8652 166 : fit_coef(9, 19) = -9.3449718908958914E+01_dp
8653 166 : fit_coef(10, 19) = 5.8372166225769881E+01_dp
8654 166 : fit_coef(11, 19) = -2.1166765338703282E+01_dp
8655 166 : fit_coef(12, 19) = 3.3863816402153009E+00_dp
8656 166 : fit_coef(0, 20) = 2.5882618681224243E-03_dp
8657 166 : fit_coef(1, 20) = 1.1101963800374212E-03_dp
8658 166 : fit_coef(2, 20) = 9.5153090359631570E-02_dp
8659 166 : fit_coef(3, 20) = -5.9667092259469967E-01_dp
8660 166 : fit_coef(4, 20) = 4.6158300825488254E+00_dp
8661 166 : fit_coef(5, 20) = -2.1702960038752170E+01_dp
8662 166 : fit_coef(6, 20) = 6.8104607605264903E+01_dp
8663 166 : fit_coef(7, 20) = -1.4509864087700180E+02_dp
8664 166 : fit_coef(8, 20) = 2.1082070081369434E+02_dp
8665 166 : fit_coef(9, 20) = -2.0567820908774044E+02_dp
8666 166 : fit_coef(10, 20) = 1.2886369297377382E+02_dp
8667 166 : fit_coef(11, 20) = -4.6839217031726335E+01_dp
8668 166 : fit_coef(12, 20) = 7.5072963372495414E+00_dp
8669 166 : fit_coef(0, 21) = 6.5882379082633398E-03_dp
8670 166 : fit_coef(1, 21) = 2.2621691339110277E-03_dp
8671 166 : fit_coef(2, 21) = 1.9246964638130989E-01_dp
8672 166 : fit_coef(3, 21) = -1.2217276753530955E+00_dp
8673 166 : fit_coef(4, 21) = 9.1698242992620767E+00_dp
8674 166 : fit_coef(5, 21) = -4.3465513365240064E+01_dp
8675 166 : fit_coef(6, 21) = 1.3710631049681336E+02_dp
8676 166 : fit_coef(7, 21) = -2.9321690733250756E+02_dp
8677 166 : fit_coef(8, 21) = 4.2710092920695109E+02_dp
8678 166 : fit_coef(9, 21) = -4.1732542801681706E+02_dp
8679 166 : fit_coef(10, 21) = 2.6170639243954514E+02_dp
8680 166 : fit_coef(11, 21) = -9.5176513369112968E+01_dp
8681 166 : fit_coef(12, 21) = 1.5259801532746318E+01_dp
8682 166 : fit_coef(0, 22) = 1.5543900572102644E-02_dp
8683 166 : fit_coef(1, 22) = 4.3029374070070658E-03_dp
8684 166 : fit_coef(2, 22) = 3.6379929804956312E-01_dp
8685 166 : fit_coef(3, 22) = -2.3299690981198706E+00_dp
8686 166 : fit_coef(4, 22) = 1.7060773313313661E+01_dp
8687 166 : fit_coef(5, 22) = -8.1273230384261126E+01_dp
8688 166 : fit_coef(6, 22) = 2.5746624440333989E+02_dp
8689 166 : fit_coef(7, 22) = -5.5230172621897168E+02_dp
8690 166 : fit_coef(8, 22) = 8.0612603717585921E+02_dp
8691 166 : fit_coef(9, 22) = -7.8876694465068897E+02_dp
8692 166 : fit_coef(10, 22) = 4.9512974619778498E+02_dp
8693 166 : fit_coef(11, 22) = -1.8020197227270759E+02_dp
8694 166 : fit_coef(12, 22) = 2.8909017650939049E+01_dp
8695 166 : fit_coef(0, 23) = 3.4544493883799224E-02_dp
8696 166 : fit_coef(1, 23) = 7.7057465719973899E-03_dp
8697 166 : fit_coef(2, 23) = 6.4801783632712762E-01_dp
8698 166 : fit_coef(3, 23) = -4.1791996544114722E+00_dp
8699 166 : fit_coef(4, 23) = 2.9972887604114607E+01_dp
8700 166 : fit_coef(5, 23) = -1.4323654947892643E+02_dp
8701 166 : fit_coef(6, 23) = 4.5543253426208781E+02_dp
8702 166 : fit_coef(7, 23) = -9.7965395620159916E+02_dp
8703 166 : fit_coef(8, 23) = 1.4326296354673486E+03_dp
8704 166 : fit_coef(9, 23) = -1.4036958339933367E+03_dp
8705 166 : fit_coef(10, 23) = 8.8201906011468520E+02_dp
8706 166 : fit_coef(11, 23) = -3.2125145658138058E+02_dp
8707 166 : fit_coef(12, 23) = 5.1566695258306126E+01_dp
8708 166 : fit_coef(0, 24) = 7.3122924052638857E-02_dp
8709 166 : fit_coef(1, 24) = 1.3047345576674729E-02_dp
8710 166 : fit_coef(2, 24) = 1.0921563698572587E+00_dp
8711 166 : fit_coef(3, 24) = -7.0828159501016552E+00_dp
8712 166 : fit_coef(4, 24) = 4.9900195235442546E+01_dp
8713 166 : fit_coef(5, 24) = -2.3893035920690767E+02_dp
8714 166 : fit_coef(6, 24) = 7.6209216068295359E+02_dp
8715 166 : fit_coef(7, 24) = -1.6433368571765945E+03_dp
8716 166 : fit_coef(8, 24) = 2.4074464958116155E+03_dp
8717 166 : fit_coef(9, 24) = -2.3618333223611826E+03_dp
8718 166 : fit_coef(10, 24) = 1.4854588983048657E+03_dp
8719 166 : fit_coef(11, 24) = -5.4141801556510109E+02_dp
8720 166 : fit_coef(12, 24) = 8.6954202781474834E+01_dp
8721 166 : fit_coef(0, 25) = 1.4863184827325007E-01_dp
8722 166 : fit_coef(1, 25) = 2.0897369993486958E-02_dp
8723 166 : fit_coef(2, 25) = 1.7422013268701704E+00_dp
8724 166 : fit_coef(3, 25) = -1.1349892975305522E+01_dp
8725 166 : fit_coef(4, 25) = 7.8731198009107700E+01_dp
8726 166 : fit_coef(5, 25) = -3.7738777230483873E+02_dp
8727 166 : fit_coef(6, 25) = 1.2069682708983435E+03_dp
8728 166 : fit_coef(7, 25) = -2.6084306788827607E+03_dp
8729 166 : fit_coef(8, 25) = 3.8275166346901069E+03_dp
8730 166 : fit_coef(9, 25) = -3.7594561324724668E+03_dp
8731 166 : fit_coef(10, 25) = 2.3665593844071400E+03_dp
8732 166 : fit_coef(11, 25) = -8.6313167371072871E+02_dp
8733 166 : fit_coef(12, 25) = 1.3869371175524410E+02_dp
8734 166 : fit_coef(0, 26) = 2.9197038671042685E-01_dp
8735 166 : fit_coef(1, 26) = 3.1553064146021624E-02_dp
8736 166 : fit_coef(2, 26) = 2.6212810102963688E+00_dp
8737 166 : fit_coef(3, 26) = -1.7140795787714239E+01_dp
8738 166 : fit_coef(4, 26) = 1.1729936023843838E+02_dp
8739 166 : fit_coef(5, 26) = -5.6251944415470587E+02_dp
8740 166 : fit_coef(6, 26) = 1.8032102744423644E+03_dp
8741 166 : fit_coef(7, 26) = -3.9047643960741279E+03_dp
8742 166 : fit_coef(8, 26) = 5.7382582448223930E+03_dp
8743 166 : fit_coef(9, 26) = -5.6424075077151520E+03_dp
8744 166 : fit_coef(10, 26) = 3.5547702376861953E+03_dp
8745 166 : fit_coef(11, 26) = -1.2973000963117572E+03_dp
8746 166 : fit_coef(12, 26) = 2.0855898009649175E+02_dp
8747 166 : fit_coef(0, 27) = 5.5768130937544869E-01_dp
8748 166 : fit_coef(1, 27) = 4.4572128359602628E-02_dp
8749 166 : fit_coef(2, 27) = 3.6916856472540940E+00_dp
8750 166 : fit_coef(3, 27) = -2.4213381713827740E+01_dp
8751 166 : fit_coef(4, 27) = 1.6378750132966567E+02_dp
8752 166 : fit_coef(5, 27) = -7.8545555955911163E+02_dp
8753 166 : fit_coef(6, 27) = 2.5226651741402102E+03_dp
8754 166 : fit_coef(7, 27) = -5.4722074342493534E+03_dp
8755 166 : fit_coef(8, 27) = 8.0523685521856414E+03_dp
8756 166 : fit_coef(9, 27) = -7.9256723613351096E+03_dp
8757 166 : fit_coef(10, 27) = 4.9969395283607182E+03_dp
8758 166 : fit_coef(11, 27) = -1.8246427440641146E+03_dp
8759 166 : fit_coef(12, 27) = 2.9346534721488899E+02_dp
8760 166 : fit_coef(0, 28) = 1.0450173925119002E+00_dp
8761 166 : fit_coef(1, 28) = 5.8265207981760117E-02_dp
8762 166 : fit_coef(2, 28) = 4.8143926353121813E+00_dp
8763 166 : fit_coef(3, 28) = -3.1648523514665637E+01_dp
8764 166 : fit_coef(4, 28) = 2.1213334922148832E+02_dp
8765 166 : fit_coef(5, 28) = -1.0169903912741421E+03_dp
8766 166 : fit_coef(6, 28) = 3.2709939445720015E+03_dp
8767 166 : fit_coef(7, 28) = -7.1053218328636922E+03_dp
8768 166 : fit_coef(8, 28) = 1.0466780738282137E+04_dp
8769 166 : fit_coef(9, 28) = -1.0310448956212835E+04_dp
8770 166 : fit_coef(10, 28) = 6.5044600754848825E+03_dp
8771 166 : fit_coef(11, 28) = -2.3762315782073229E+03_dp
8772 166 : fit_coef(12, 28) = 3.8231992824865711E+02_dp
8773 166 : fit_coef(0, 29) = 1.9639167282286836E+00_dp
8774 166 : fit_coef(1, 29) = 6.9961149923850899E-02_dp
8775 166 : fit_coef(2, 29) = 5.7725439445353004E+00_dp
8776 166 : fit_coef(3, 29) = -3.7996769718433761E+01_dp
8777 166 : fit_coef(4, 29) = 2.5327571805969885E+02_dp
8778 166 : fit_coef(5, 29) = -1.2137919470627476E+03_dp
8779 166 : fit_coef(6, 29) = 3.9071985303035226E+03_dp
8780 166 : fit_coef(7, 29) = -8.4944480629188183E+03_dp
8781 166 : fit_coef(8, 29) = 1.2521478684961125E+04_dp
8782 166 : fit_coef(9, 29) = -1.2340746128541903E+04_dp
8783 166 : fit_coef(10, 29) = 7.7883138533160081E+03_dp
8784 166 : fit_coef(11, 29) = -2.8461039477634558E+03_dp
8785 166 : fit_coef(12, 29) = 4.5802666012412590E+02_dp
8786 166 : fit_coef(0, 30) = 4.0342493016500347E+00_dp
8787 166 : fit_coef(1, 30) = 7.9647259264362835E-02_dp
8788 166 : fit_coef(2, 30) = 6.5710181771750698E+00_dp
8789 166 : fit_coef(3, 30) = -4.3255572360835060E+01_dp
8790 166 : fit_coef(4, 30) = 2.8820713216838652E+02_dp
8791 166 : fit_coef(5, 30) = -1.3810306152021003E+03_dp
8792 166 : fit_coef(6, 30) = 4.4457135475846326E+03_dp
8793 166 : fit_coef(7, 30) = -9.6658445565099519E+03_dp
8794 166 : fit_coef(8, 30) = 1.4249062004096166E+04_dp
8795 166 : fit_coef(9, 30) = -1.4044077033410062E+04_dp
8796 166 : fit_coef(10, 30) = 8.8636369152484167E+03_dp
8797 166 : fit_coef(11, 30) = -3.2391609850813516E+03_dp
8798 166 : fit_coef(12, 30) = 5.2129451486951780E+02_dp
8799 :
8800 166 : END SUBROUTINE get_fit_coef_k15_lo
8801 :
8802 : END MODULE minimax_exp_k15
|
