(git:374b731)
Loading...
Searching...
No Matches
minimax_rpa.F
Go to the documentation of this file.
1!--------------------------------------------------------------------------------------------------!
2! CP2K: A general program to perform molecular dynamics simulations !
3! Copyright 2000-2024 CP2K developers group <https://cp2k.org> !
4! !
5! SPDX-License-Identifier: GPL-2.0-or-later !
6!--------------------------------------------------------------------------------------------------!
7
8! **************************************************************************************************
9!> \brief Routines to calculate the minimax coefficients for approximating 1/x as
10!> 1/x ~ 1/pi SUM_{i}^{K} w_i x^2/(x^2+a_i^2)^2 for x belonging to [1:Rc].
11!> \par History
12!> 06.2014 created [Mauro Del Ben]
13! **************************************************************************************************
14MODULE minimax_rpa
15 USE kinds, ONLY: dp
16#include "../base/base_uses.f90"
17
18 IMPLICIT NONE
19
20 PRIVATE
21
22 CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'minimax_rpa'
23
24 PUBLIC get_rpa_minimax_coeff, get_rpa_minimax_coeff_larger_grid
25
26CONTAINS
27
28! **************************************************************************************************
29!> \brief The a_i and w_i coefficient are stored in aw such that the first 1:K
30!> elements correspond to a_i and the K+1:2k correspond to w_i.
31!> All a_i and w_i have been fitted with a 12th order polynomial as
32!> a function of Rc for each value of K.
33!> \param k ...
34!> \param E_range ...
35!> \param aw ...
36!> \param ierr ...
37!> \param print_warning ...
38!> \author Mauro Del Ben
39! **************************************************************************************************
40 SUBROUTINE get_rpa_minimax_coeff(k, E_range, aw, ierr, print_warning)
41 INTEGER :: k
42 REAL(kind=dp) :: e_range
43 REAL(kind=dp), ALLOCATABLE, DIMENSION(:) :: aw
44 INTEGER :: ierr
45 LOGICAL, OPTIONAL :: print_warning
46
47 CHARACTER(LEN=*), PARAMETER :: routinen = 'get_rpa_minimax_coeff'
48
49 CHARACTER(LEN=512) :: error_msg
50 CHARACTER(LEN=64) :: rc_cha
51 INTEGER :: handle, icoef, kkk
52 LOGICAL :: my_print_warning
53 REAL(kind=dp) :: l_b, r_transf, rc, u_b
54 REAL(kind=dp), DIMENSION(13, 2*k) :: fit_coef
55
56 CALL timeset(routinen, handle)
57 rc = e_range
58 fit_coef = 0.0_dp
59 ierr = 0
60
61 my_print_warning = .true.
62 IF (PRESENT(print_warning)) my_print_warning = print_warning
63
64 SELECT CASE (k)
65 CASE (1)
66 CALL get_fit_coef_k01(rc, l_b, u_b, fit_coef)
67 CASE (2)
68 CALL get_fit_coef_k02(rc, l_b, u_b, fit_coef)
69 CASE (3)
70 CALL get_fit_coef_k03(rc, l_b, u_b, fit_coef)
71 CASE (4)
72 CALL get_fit_coef_k04(rc, l_b, u_b, fit_coef)
73 CASE (5)
74 CALL get_fit_coef_k05(rc, l_b, u_b, fit_coef)
75 CASE (6)
76 CALL get_fit_coef_k06(rc, l_b, u_b, fit_coef)
77 CASE (7)
78 CALL get_fit_coef_k07(rc, l_b, u_b, fit_coef)
79 CASE (8)
80 CALL get_fit_coef_k08(rc, l_b, u_b, fit_coef)
81 CASE (9)
82 CALL get_fit_coef_k09(rc, l_b, u_b, fit_coef)
83 CASE (10)
84 CALL get_fit_coef_k10(rc, l_b, u_b, fit_coef)
85 CASE (11)
86 CALL get_fit_coef_k11(rc, l_b, u_b, fit_coef)
87 CASE (12)
88 CALL get_fit_coef_k12(rc, l_b, u_b, fit_coef)
89 CASE (13)
90 CALL get_fit_coef_k13(rc, l_b, u_b, fit_coef)
91 CASE (14)
92 CALL get_fit_coef_k14(rc, l_b, u_b, fit_coef)
93 CASE (15)
94 CALL get_fit_coef_k15(rc, l_b, u_b, fit_coef)
95 CASE (16)
96 CALL get_fit_coef_k16(rc, l_b, u_b, fit_coef)
97 CASE (17)
98 CALL get_fit_coef_k17(rc, l_b, u_b, fit_coef)
99 CASE (18)
100 CALL get_fit_coef_k18(rc, l_b, u_b, fit_coef)
101 CASE (19)
102 CALL get_fit_coef_k19(rc, l_b, u_b, fit_coef)
103 CASE (20)
104 CALL get_fit_coef_k20(rc, l_b, u_b, fit_coef)
105 CASE DEFAULT
106 k = 20
107 CALL get_fit_coef_k20(rc, l_b, u_b, fit_coef(1:13, 1:40))
108 ierr = -1
109 END SELECT
110
111 WRITE (rc_cha, '(F16.2)') rc
112 rc_cha = adjustl(rc_cha)
113
114 IF (my_print_warning) THEN
115 IF (e_range < rc) THEN
116 WRITE (error_msg, '(A,A)') " The range for the Minimax approximation is smaller than the lower bound "// &
117 "for the required number of quadrature points. The Minimax parameters "// &
118 "have been optimized for the lower bound of: ", trim(rc_cha)
119 cpwarn(error_msg)
120 END IF
121 IF (e_range > rc) THEN
122 WRITE (error_msg, '(A,A)') " The range for the Minimax approximation exceeds the upper bound "// &
123 "for the required number of quadrature points. The Minimax parameters "// &
124 "have been optimized for the upper bound of: ", trim(rc_cha)
125 cpwarn(error_msg)
126 END IF
127 IF (ierr < 0) THEN
128 error_msg = "The required number of quadrature point exceeds the maximum available. "// &
129 "The number of quadrature point has been reset to 20."
130 cpwarn(error_msg)
131 END IF
132 END IF
133
134 r_transf = sqrt(l_b/rc)
135 r_transf = sqrt(r_transf)*(sqrt(u_b/(u_b - l_b)) - sqrt(rc/(u_b - l_b)))
136 DO kkk = 1, 2*k
137 aw(kkk) = fit_coef(1, kkk)
138 DO icoef = 1, 12
139 aw(kkk) = aw(kkk) + fit_coef(icoef + 1, kkk)*(r_transf**icoef)
140 END DO
141 END DO
142
143 CALL timestop(handle)
144
145 END SUBROUTINE get_rpa_minimax_coeff
146
147! **************************************************************************************************
148!> \brief ...
149!> \param Rc ...
150!> \param L_b ...
151!> \param U_b ...
152!> \param fit_coef ...
153! **************************************************************************************************
154 SUBROUTINE get_fit_coef_k01(Rc, L_b, U_b, fit_coef)
155 REAL(kind=dp) :: rc, l_b, u_b
156 REAL(kind=dp), DIMENSION(13, 2) :: fit_coef
157
158 REAL(kind=dp), DIMENSION(52), PARAMETER :: c01 = (/8.4569134345088148e-01_dp, &
159 -2.3864746901255809e-01_dp, -1.1361819501552294e-01_dp, 6.7690505100738471e-02_dp, &
160 5.3985186361341728e-03_dp, -1.9612317325166117e-02_dp, 7.3513074383591715e-03_dp, &
161 1.9996243815975012e-03_dp, -3.1205386442664557e-03_dp, 6.2573451848435199e-04_dp, &
162 1.0159339561927395e-03_dp, -2.0336924331972007e-04_dp, -8.0157986968086049e-04_dp, &
163 8.7743290162972425e+00_dp, -3.4658285658553871e+00_dp, -1.0159575820898459e+00_dp, &
164 1.5316366676023252e+00_dp, -2.2374031893904067e-01_dp, -4.9079952564718116e-01_dp, &
165 2.8542459603969011e-01_dp, 4.0445340834152646e-02_dp, -1.1213157710848982e-01_dp, &
166 2.5807944540072045e-02_dp, 3.6871815925478856e-02_dp, -7.5013131351734158e-03_dp, &
167 -2.8645535700322102e-02_dp, 9.3922532274951809e-01_dp, -2.1747417837053222e-07_dp, &
168 -4.6907902157368980e-01_dp, -2.1616033822571426e-01_dp, 4.1319893871687463e-01_dp, &
169 2.9123071569339970e-01_dp, -4.4281181896713878e-01_dp, -5.5512445336312510e-01_dp, &
170 1.1432764546204668e+00_dp, -3.4020236095345024e-01_dp, -4.4151758350979708e-01_dp, &
171 1.8627895375666054e-01_dp, 1.0229706519679303e-01_dp, 1.0233271450911223e+01_dp, &
172 -3.6844989012010113e-06_dp, -7.8361514387479545e+00_dp, -3.6112788486477720e+00_dp, &
173 9.5851351388967405e+00_dp, 7.2698001012821694e+00_dp, -1.1403856909523945e+01_dp, &
174 -1.7651082087203267e+01_dp, 3.2669706643838275e+01_dp, -5.4176678145626020e+00_dp, &
175 -1.4771604007512861e+01_dp, 1.1600808336065933e+00_dp, 6.4627594951385223e+00_dp/)
176 REAL(kind=dp), DIMENSION(13, 2, 2), PARAMETER :: coefdata = reshape((/c01/), (/13, 2, 2/))
177
178 INTEGER :: irange
179
180 IF (rc <= 2.0000000000000000e+00_dp) rc = 2.0000000000000000e+00_dp
181 IF (rc >= 5.8879280090332031e+00_dp) rc = 5.8879280090332031e+00_dp
182 IF (rc >= 2.0000000000000000e+00_dp .AND. rc <= 2.6646270991316325e+00_dp) THEN
183 irange = 1
184 l_b = 2.0000000000000000e+00_dp
185 u_b = 2.6646270991316325e+00_dp
186 END IF
187 IF (rc >= 2.6646270991316325e+00_dp .AND. rc <= 5.8879280090332031e+00_dp) THEN
188 irange = 2
189 l_b = 2.6646270991316325e+00_dp
190 u_b = 5.8879280090332031e+00_dp
191 END IF
192
193 fit_coef(1:13, 1:2) = coefdata(1:13, 1:2, irange)
194
195 END SUBROUTINE get_fit_coef_k01
196
197! **************************************************************************************************
198!> \brief ...
199!> \param Rc ...
200!> \param L_b ...
201!> \param U_b ...
202!> \param fit_coef ...
203! **************************************************************************************************
204 SUBROUTINE get_fit_coef_k02(Rc, L_b, U_b, fit_coef)
205 REAL(kind=dp) :: rc, l_b, u_b
206 REAL(kind=dp), DIMENSION(13, 4) :: fit_coef
207
208 REAL(kind=dp), DIMENSION(156), PARAMETER :: c01 = (/4.9649110596357299e-01_dp, &
209 -1.8397680763708085e-01_dp, -2.6764777836094898e-02_dp, 1.4685597048762128e-02_dp, &
210 3.8551475599549168e-03_dp, -6.6371384965829621e-04_dp, -8.2857349546675376e-04_dp, &
211 3.7111617653054724e-05_dp, 1.2814660801267966e-04_dp, 6.1538340479780230e-06_dp, &
212 -2.4584409073123429e-05_dp, -5.0991779586331699e-06_dp, 1.0669432321911992e-05_dp, &
213 2.3206994094733933e+00_dp, -1.3514563041382210e+00_dp, 3.1921448263800534e-01_dp, &
214 3.5958872361872854e-02_dp, -5.3831249908297907e-02_dp, 1.7289732546709874e-02_dp, &
215 -2.4440065554605303e-03_dp, -1.2724078521801746e-05_dp, 2.2546039620310139e-04_dp, &
216 -9.7860415748580936e-05_dp, -6.5067080496765577e-05_dp, 2.6089206215138224e-05_dp, &
217 5.2757851532030513e-05_dp, 4.3667474519629623e+00_dp, -1.8617368732105988e+00_dp, &
218 -7.4376289802548262e-02_dp, 1.8267819450392606e-01_dp, -3.2026231603982562e-03_dp, &
219 -1.8945310128742759e-02_dp, -3.2473576905305453e-03_dp, 4.1419261548186481e-03_dp, &
220 8.8569143253757507e-04_dp, -6.7268426110531814e-04_dp, -3.8199070267735632e-04_dp, &
221 6.2942305485704747e-05_dp, 2.1244794526782270e-04_dp, 1.3299400044019976e+01_dp, &
222 -1.0102857731754517e+01_dp, 4.5167812366146727e+00_dp, -7.7404161077659717e-01_dp, &
223 -3.4951153894568415e-01_dp, 3.1655455535081256e-01_dp, -1.2883665080828036e-01_dp, &
224 2.4210630196288028e-02_dp, 6.5829796220587648e-03_dp, -4.6936987882240733e-03_dp, &
225 -8.5247269973254237e-04_dp, 1.0535642322120099e-03_dp, 4.2267254389369188e-04_dp, &
226 6.5760438758196227e-01_dp, -1.7918847011385985e-01_dp, -2.2673006578030033e-01_dp, &
227 1.0051289981916312e-01_dp, -3.0133666064475630e-02_dp, -4.8262232970595134e-03_dp, &
228 1.1378620206724364e-01_dp, -1.8105019665171873e-01_dp, 1.9273690986546238e-01_dp, &
229 -1.6962737938522135e-01_dp, 9.8332759521266175e-02_dp, -2.6789710748995204e-02_dp, &
230 1.0387096874176875e-03_dp, 4.1246654556789606e+00_dp, -3.0716392263747014e+00_dp, &
231 -2.0785962463279271e+00_dp, 5.2664445183974742e+00_dp, -3.0074972977105965e+00_dp, &
232 -2.7503179147598340e+00_dp, 7.6392314052684709e+00_dp, -8.4073849148263342e+00_dp, &
233 4.7943508114021212e+00_dp, 2.6737517312394893e-01_dp, -2.9722441934551838e+00_dp, &
234 2.3158844939360632e+00_dp, -6.5764037707338063e-01_dp, 6.1608320892349369e+00_dp, &
235 -2.1898229650048577e+00_dp, -2.5422729209340225e+00_dp, 1.7935819542593845e+00_dp, &
236 -3.0756618643446343e-01_dp, -3.4608361155905393e-01_dp, 1.6002204372920785e+00_dp, &
237 -2.6003746540622035e+00_dp, 2.6278080511803972e+00_dp, -2.2341338029312703e+00_dp, &
238 1.4684729639545540e+00_dp, -5.4384672282947255e-01_dp, 7.0214867320780153e-02_dp, &
239 3.0690007708797335e+01_dp, -3.6434557745981337e+01_dp, -1.2802331409904522e+01_dp, &
240 7.8237428089364300e+01_dp, -7.1628441704020958e+01_dp, -3.6767672386188337e+01_dp, &
241 1.6598068739496907e+02_dp, -1.9500321193457228e+02_dp, 8.7558312074511292e+01_dp, &
242 6.3428744200583431e+01_dp, -1.2995121398289083e+02_dp, 8.7747827655552456e+01_dp, &
243 -2.3421029630375354e+01_dp, 6.8832717879511052e-01_dp, 8.9994611434700178e-08_dp, &
244 -1.7447802413631236e-01_dp, 1.1128373934782229e-02_dp, 1.0288810881396471e-01_dp, &
245 -9.6952440957114305e-02_dp, -6.4905803226054201e-02_dp, 2.4883468266829842e-01_dp, &
246 -2.3908071572971198e-01_dp, 4.2672150253429388e-02_dp, 8.4512682635884184e-02_dp, &
247 -3.6754750174471884e-02_dp, -1.2870785796384022e-02_dp, 4.7101965082399921e+00_dp, &
248 1.9264636868860040e-06_dp, -3.6955911120984810e+00_dp, 2.3579843361005315e-01_dp, &
249 4.5049726325907349e+00_dp, -2.3256735181630925e+00_dp, -5.7088231586772453e+00_dp, &
250 9.2251939039827988e+00_dp, -2.1118379768244511e+00_dp, -6.1276676279296476e+00_dp, &
251 2.9985533393084327e+00_dp, 4.9045918358347871e+00_dp, -4.1266597706732586e+00_dp, &
252 6.5430742560184436e+00_dp, 1.1412075979871461e-06_dp, -2.2097196426847456e+00_dp, &
253 1.4094456985563819e-01_dp, 1.5262198438277494e+00_dp, -1.2544592957128169e+00_dp, &
254 -1.1128799568053420e+00_dp, 3.4976285641773011e+00_dp, -3.0348111780709122e+00_dp, &
255 2.3892287319584160e-01_dp, 1.1788607699039138e+00_dp, -2.2391998953368625e-01_dp, &
256 -3.5101044491985517e-01_dp, 3.8067685920148641e+01_dp, 2.5902565425035982e-05_dp, &
257 -4.9301857791232557e+01_dp, 3.1465928358831281e+00_dp, 7.7404606802819202e+01_dp, &
258 -3.3013072565887242e+01_dp, -1.2019494685884978e+02_dp, 1.5486223363142261e+02_dp, &
259 3.2337501402758228e+01_dp, -1.8488455295931200e+02_dp, 5.0234562973130487e+01_dp, &
260 1.4928893567718609e+02_dp, -1.0852276420140453e+02_dp/)
261 REAL(kind=dp), DIMENSION(13, 4, 3), PARAMETER :: coefdata = reshape((/c01/), (/13, 4, 3/))
262
263 INTEGER :: irange
264
265 IF (rc <= 2.0000000000000000e+00_dp) rc = 2.0000000000000000e+00_dp
266 IF (rc >= 2.5266985893249512e+01_dp) rc = 2.5266985893249512e+01_dp
267 IF (rc >= 2.0000000000000000e+00_dp .AND. rc <= 2.8845195225564151e+00_dp) THEN
268 irange = 1
269 l_b = 2.0000000000000000e+00_dp
270 u_b = 2.8845195225564151e+00_dp
271 END IF
272 IF (rc >= 2.8845195225564151e+00_dp .AND. rc <= 1.1473793111539274e+01_dp) THEN
273 irange = 2
274 l_b = 2.8845195225564151e+00_dp
275 u_b = 1.1473793111539274e+01_dp
276 END IF
277 IF (rc >= 1.1473793111539274e+01_dp .AND. rc <= 2.5266985893249512e+01_dp) THEN
278 irange = 3
279 l_b = 1.1473793111539274e+01_dp
280 u_b = 2.5266985893249512e+01_dp
281 END IF
282
283 fit_coef(1:13, 1:4) = coefdata(1:13, 1:4, irange)
284
285 END SUBROUTINE get_fit_coef_k02
286
287! **************************************************************************************************
288!> \brief ...
289!> \param Rc ...
290!> \param L_b ...
291!> \param U_b ...
292!> \param fit_coef ...
293! **************************************************************************************************
294 SUBROUTINE get_fit_coef_k03(Rc, L_b, U_b, fit_coef)
295 REAL(kind=dp) :: rc, l_b, u_b
296 REAL(kind=dp), DIMENSION(13, 6) :: fit_coef
297
298 REAL(kind=dp), DIMENSION(234), PARAMETER :: c01 = (/4.7223379816403283e-01_dp, &
299 -2.2042504935487547e-01_dp, -1.0700855642800766e-01_dp, 2.9282041797865813e-02_dp, &
300 3.3026836310057026e-02_dp, 1.1386996102844459e-02_dp, -1.2818345627763791e-02_dp, &
301 -4.0229827105483680e-03_dp, 5.2714678853526230e-03_dp, -5.7896018199156346e-03_dp, &
302 2.6848950232278156e-03_dp, 1.9016456475500060e-03_dp, -1.3675117740777492e-03_dp, &
303 2.0032594434499789e+00_dp, -1.6049856670510629e+00_dp, -7.5084218460525085e-02_dp, &
304 6.0247881175491358e-01_dp, -1.0588835881424769e-01_dp, -1.5334719856063742e-01_dp, &
305 -3.6117192085523851e-02_dp, 1.1475935854850117e-01_dp, 4.7173969318522357e-02_dp, &
306 -1.5024338659366171e-01_dp, 9.3080665778357816e-02_dp, -1.7678496124707836e-02_dp, &
307 -1.7574693551064798e-03_dp, 6.9852771279712096e+00_dp, -9.8678652716743986e+00_dp, &
308 5.8034120673487637e+00_dp, 8.4032860298957390e-01_dp, -3.9344819362623489e+00_dp, &
309 2.9352624815927943e+00_dp, -1.0295714123401773e+00_dp, 6.4840906026874964e-02_dp, &
310 2.3541965450457605e-01_dp, -3.8563728580228640e-01_dp, 3.7881278851716366e-01_dp, &
311 -2.0274209183322051e-01_dp, 4.5981510089675416e-02_dp, 4.1012174536431987e+00_dp, &
312 -2.2240356017273251e+00_dp, -8.3949352914134823e-01_dp, 4.9927067503647976e-01_dp, &
313 2.8387636248232850e-01_dp, 4.7904669834267075e-04_dp, -1.7161769150318792e-01_dp, &
314 -7.6990836877090770e-03_dp, 9.7592444267693049e-02_dp, -9.9847132214505516e-02_dp, &
315 9.1265071496279340e-02_dp, -4.8072775002788476e-02_dp, 9.2276548198524724e-03_dp, &
316 9.5513399432547033e+00_dp, -1.1675840721046807e+01_dp, 3.0385953635634566e+00_dp, &
317 5.1268986462936210e+00_dp, -3.3964946209348490e+00_dp, -1.3155690145638068e+00_dp, &
318 9.3593509658323282e-01_dp, 1.1892612191185217e+00_dp, -1.0436920428437203e-01_dp, &
319 -2.2056329972056523e+00_dp, 2.3677798945356323e+00_dp, -1.0414299374786686e+00_dp, &
320 1.7342693495440725e-01_dp, 3.9609801714084597e+01_dp, -7.3889749869401939e+01_dp, &
321 6.9592887675897757e+01_dp, -2.4811522219671406e+01_dp, -2.2841578322462372e+01_dp, &
322 4.4418611403245741e+01_dp, -3.7852497542173246e+01_dp, 1.6302785218464713e+01_dp, &
323 4.4126861094794840e+00_dp, -1.3635441404324794e+01_dp, 1.1138794870115078e+01_dp, &
324 -4.7156831629367568e+00_dp, 8.7213397592194231e-01_dp, 5.5875221039160261e-01_dp, &
325 -8.9468055007220743e-02_dp, -1.2065995777914583e-01_dp, 4.8471007034375492e-02_dp, &
326 -3.8301904720482650e-02_dp, 2.4275678600046053e-02_dp, 2.8136983363421911e-02_dp, &
327 -8.4794476923930245e-02_dp, 1.2805871374430119e-01_dp, -1.3799846162209611e-01_dp, &
328 1.0242711526473426e-01_dp, -4.6555343095993788e-02_dp, 9.7559415471718224e-03_dp, &
329 2.7624820993735941e+00_dp, -9.4404189731579302e-01_dp, -1.0778440090092487e+00_dp, &
330 1.0000508959158847e+00_dp, -4.0720645947670364e-01_dp, 3.2143562912951618e-02_dp, &
331 5.5974630350026500e-01_dp, -1.3059019163765901e+00_dp, 1.7808779108085686e+00_dp, &
332 -1.7587309793812396e+00_dp, 1.2489411338126502e+00_dp, -5.6093609251530230e-01_dp, &
333 1.1760304859958214e-01_dp, 1.3544129923931036e+01_dp, -1.1316468354856699e+01_dp, &
334 -7.6541274135369042e+00_dp, 2.1813286094573890e+01_dp, -1.5817891923183874e+01_dp, &
335 -5.7933843562996516e+00_dp, 2.9001150775153093e+01_dp, -4.1936816889961740e+01_dp, &
336 3.9707552859267892e+01_dp, -2.6000900774396619e+01_dp, 1.0755546253602940e+01_dp, &
337 -2.0944265775352795e+00_dp, -1.5875486677710954e-02_dp, 5.0129963552083687e+00_dp, &
338 -9.8497955022805650e-01_dp, -1.2826931706396834e+00_dp, 6.5452164227503740e-01_dp, &
339 -3.9738951291723318e-01_dp, 2.3136357394360504e-01_dp, 3.5477656525902451e-01_dp, &
340 -1.0231998800842284e+00_dp, 1.5032961384142487e+00_dp, -1.5914516297167578e+00_dp, &
341 1.1742544052689099e+00_dp, -5.3334314176404851e-01_dp, 1.1180896150674231e-01_dp, &
342 1.5835060026431352e+01_dp, -8.7111880093588692e+00_dp, -8.8826285808589898e+00_dp, &
343 1.1712175066481947e+01_dp, -4.4172083122828187e+00_dp, -1.2587072349970747e+00_dp, &
344 7.1497450368592714e+00_dp, -1.4524138295210200e+01_dp, 1.8912025585426967e+01_dp, &
345 -1.7743638731961465e+01_dp, 1.2115533439508143e+01_dp, -5.3562991919747693e+00_dp, &
346 1.1231498116960723e+00_dp, 1.0046853530042941e+02_dp, -1.2562130523877248e+02_dp, &
347 -4.8899698987716903e+01_dp, 2.9033084145860795e+02_dp, -2.9969216846999444e+02_dp, &
348 -5.7160567223254283e+01_dp, 5.7249435821985480e+02_dp, -8.6440457177677740e+02_dp, &
349 7.2603165823538518e+02_dp, -3.1482726992615238e+02_dp, -1.7030029333405142e+01_dp, &
350 9.2288380720163971e+01_dp, -3.3395722174722863e+01_dp, 5.7310488938023063e-01_dp, &
351 4.7901259633936180e-08_dp, -9.1651209265819295e-02_dp, 2.7732065459135504e-02_dp, &
352 2.8645481150354719e-02_dp, -6.7359425012262830e-02_dp, 3.8584259620296449e-02_dp, &
353 6.3446129710153454e-02_dp, -1.5358151939100778e-01_dp, 1.2187793055913763e-01_dp, &
354 1.5086978285231711e-02_dp, -9.6662929399273831e-02_dp, 5.2098208706298513e-02_dp, &
355 2.9191177943658442e+00_dp, 5.4133537461405717e-07_dp, -1.0344448907244952e+00_dp, &
356 3.1300849735874009e-01_dp, 5.4891616747359162e-01_dp, -8.9562127361783095e-01_dp, &
357 2.5683436290728645e-01_dp, 1.1981010184653673e+00_dp, -2.2140209166896678e+00_dp, &
358 1.5279502299230125e+00_dp, 3.0429149987602905e-01_dp, -1.2173426926379263e+00_dp, &
359 6.0860526435749707e-01_dp, 1.5577506560483336e+01_dp, 7.6602384911749927e-06_dp, &
360 -1.4533497939231582e+01_dp, 4.3979051512530276e+00_dp, 1.5541107768555671e+01_dp, &
361 -1.7236024655372692e+01_dp, -8.5725482253998937e+00_dp, 4.0651917108261443e+01_dp, &
362 -4.5625286541426540e+01_dp, 1.7082545781556608e+01_dp, 1.1810832859818145e+01_dp, &
363 -1.3783312630992485e+01_dp, 3.3847888256586232e+00_dp, 5.1721946579885314e+00_dp, &
364 5.3542232317209938e-07_dp, -1.0242183084092691e+00_dp, 3.0991127039090627e-01_dp, &
365 3.6925347779677709e-01_dp, -7.8228043802145897e-01_dp, 4.0037631487810599e-01_dp, &
366 8.0471691788497290e-01_dp, -1.8201969969209009e+00_dp, 1.4022833800509154e+00_dp, &
367 1.9468516183415735e-01_dp, -1.1133025066398865e+00_dp, 5.9138813613689389e-01_dp, &
368 1.7309446051118943e+01_dp, 5.1997518715207899e-06_dp, -9.9271747598821172e+00_dp, &
369 3.0038475175646426e+00_dp, 6.5128609543997671e+00_dp, -9.3405057766655286e+00_dp, &
370 1.2450381441251936e+00_dp, 1.4427779610011438e+01_dp, -2.3898845190857141e+01_dp, &
371 1.5265437336149422e+01_dp, 3.7526247706518707e+00_dp, -1.2192107238730179e+01_dp, &
372 5.8009575841189420e+00_dp, 1.2420803433458813e+02_dp, 9.4529083484548541e-05_dp, &
373 -1.7804086701584447e+02_dp, 5.3879411878296139e+01_dp, 2.5019726837316304e+02_dp, &
374 -2.4632876610675547e+02_dp, -2.3728096521661567e+02_dp, 7.2832435058031899e+02_dp, &
375 -6.3406381009820018e+02_dp, 7.2166814993792187e+01_dp, 2.2865645970566064e+02_dp, &
376 -5.9497992164644941e+01_dp, -5.9908598748248629e+01_dp/)
377 REAL(kind=dp), DIMENSION(13, 6, 3), PARAMETER :: coefdata = reshape((/c01/), (/13, 6, 3/))
378
379 INTEGER :: irange
380
381 IF (rc <= 2.0000000000000000e+00_dp) rc = 2.0000000000000000e+00_dp
382 IF (rc >= 8.3026037216186523e+01_dp) rc = 8.3026037216186523e+01_dp
383 IF (rc >= 2.0000000000000000e+00_dp .AND. rc <= 9.5121852168680867e+00_dp) THEN
384 irange = 1
385 l_b = 2.0000000000000000e+00_dp
386 u_b = 9.5121852168680867e+00_dp
387 END IF
388 IF (rc >= 9.5121852168680867e+00_dp .AND. rc <= 3.9527872132017364e+01_dp) THEN
389 irange = 2
390 l_b = 9.5121852168680867e+00_dp
391 u_b = 3.9527872132017364e+01_dp
392 END IF
393 IF (rc >= 3.9527872132017364e+01_dp .AND. rc <= 8.3026037216186523e+01_dp) THEN
394 irange = 3
395 l_b = 3.9527872132017364e+01_dp
396 u_b = 8.3026037216186523e+01_dp
397 END IF
398
399 fit_coef(1:13, 1:6) = coefdata(1:13, 1:6, irange)
400
401 END SUBROUTINE get_fit_coef_k03
402
403! **************************************************************************************************
404!> \brief ...
405!> \param Rc ...
406!> \param L_b ...
407!> \param U_b ...
408!> \param fit_coef ...
409! **************************************************************************************************
410 SUBROUTINE get_fit_coef_k04(Rc, L_b, U_b, fit_coef)
411 REAL(kind=dp) :: rc, l_b, u_b
412 REAL(kind=dp), DIMENSION(13, 8) :: fit_coef
413
414 REAL(kind=dp), DIMENSION(312), PARAMETER :: c01 = (/4.0437679455062153e-01_dp, &
415 -1.9968645981826424e-01_dp, -9.6669556285432015e-02_dp, 2.6839132012201752e-02_dp, &
416 3.6190132805626725e-02_dp, 4.1166010414531336e-03_dp, -1.0769456290470580e-02_dp, &
417 -8.7529874160434775e-05_dp, 5.7309585756926467e-03_dp, -1.0860752534826048e-02_dp, &
418 4.3544925730678802e-03_dp, 3.1889806346690661e-03_dp, -1.9657212784353890e-03_dp, &
419 1.5529811167323646e+00_dp, -1.1621893493531430e+00_dp, -1.7795567981281610e-01_dp, &
420 3.9842720393802583e-01_dp, 4.8033159486636778e-02_dp, -1.4469416247317868e-01_dp, &
421 -3.6520970201122292e-02_dp, 8.8008094722564351e-02_dp, 5.9318119282124994e-03_dp, &
422 -7.6009276630089620e-02_dp, 6.7040879385407398e-02_dp, -2.8473998439286250e-02_dp, &
423 5.2089090903696678e-03_dp, 4.2289764691942366e+00_dp, -5.2559714863096954e+00_dp, &
424 1.6753291726988750e+00_dp, 1.8504840635800728e+00_dp, -1.6044237761904363e+00_dp, &
425 -4.1733772536083369e-01_dp, 7.9444215167607390e-01_dp, 3.1495572908490888e-01_dp, &
426 -7.9016995059826667e-01_dp, 1.9066260373671118e-01_dp, 3.5297731186965675e-01_dp, &
427 -3.0243198972383212e-01_dp, 7.7756449578611248e-02_dp, 1.2967616994753087e+01_dp, &
428 -2.4042024222254298e+01_dp, 2.0845923141347605e+01_dp, -5.1419824074547673e+00_dp, &
429 -7.6388284418830947e+00_dp, 8.8813058337816244e+00_dp, -3.7007126133769321e+00_dp, &
430 2.3382249105105274e-01_dp, -3.6597180661269557e-01_dp, 1.2892925753313280e+00_dp, &
431 -1.1365833385148225e+00_dp, 4.5209303506995352e-01_dp, -7.1102161040361975e-02_dp, &
432 3.4348988639807971e+00_dp, -1.9004725480240556e+00_dp, -7.5786793916739725e-01_dp, &
433 3.8852279314766375e-01_dp, 3.0614786999111232e-01_dp, -4.5572384093187306e-02_dp, &
434 -1.1543847219093645e-01_dp, 1.9867871621586992e-02_dp, 9.2786670262761134e-02_dp, &
435 -1.8405662264456446e-01_dp, 1.5762768904523788e-01_dp, -5.6388852934436663e-02_dp, &
436 5.3681094755664528e-03_dp, 6.4373196501777841e+00_dp, -7.1885129098744072e+00_dp, &
437 8.4206205249439814e-01_dp, 3.2712289706274404e+00_dp, -8.7181606322780358e-01_dp, &
438 -1.4986726477160628e+00_dp, 2.5136694217250172e-01_dp, 9.7470575226088230e-01_dp, &
439 -3.3001228959270695e-01_dp, -3.8632103708308441e-01_dp, 3.1100472103485055e-01_dp, &
440 -7.3188169703122946e-02_dp, 3.0493082567784697e-03_dp, 1.7166455411776617e+01_dp, &
441 -3.1333371912090001e+01_dp, 2.1039285623747343e+01_dp, 6.3380935910509359e+00_dp, &
442 -1.7459609199004912e+01_dp, 4.3115360437865684e+00_dp, 7.8590901947406229e+00_dp, &
443 -2.1493300987092994e+00_dp, -9.7183726596572662e+00_dp, 1.1703427571259667e+01_dp, &
444 -5.4936928390403912e+00_dp, 7.6914546328373024e-01_dp, 1.3439917053669492e-01_dp, &
445 6.8475451857998991e+01_dp, -1.5591045907250185e+02_dp, 1.8464815785166243e+02_dp, &
446 -1.1596150427703571e+02_dp, 7.1241317727507019e+00_dp, 6.6321778045233330e+01_dp, &
447 -8.0699134248162082e+01_dp, 5.8884469891028630e+01_dp, -2.9896108613598663e+01_dp, &
448 8.3528206096836914e+00_dp, 1.7944119950838084e+00_dp, -2.7711044075604732e+00_dp, &
449 8.2189970277835223e-01_dp, 4.8928026378102546e-01_dp, -7.7395534889906831e-02_dp, &
450 -9.4804748738418779e-02_dp, 3.4028552814568652e-02_dp, -3.7372824741901886e-02_dp, &
451 5.0155168087250734e-02_dp, -2.5580726927850888e-02_dp, -1.2765405686004021e-02_dp, &
452 4.7823767294427916e-02_dp, -7.0139763686717996e-02_dp, 6.3966662234848093e-02_dp, &
453 -3.3470391316181090e-02_dp, 7.6464138985924456e-03_dp, 2.1282655054474775e+00_dp, &
454 -6.1070711898886576e-01_dp, -6.5624939488951939e-01_dp, 4.7938223840521010e-01_dp, &
455 -2.8747099836990569e-01_dp, 3.5208496407539869e-01_dp, -1.8503707524330915e-01_dp, &
456 -2.0984499620126879e-01_dp, 5.4309316443457201e-01_dp, -6.7503677537568874e-01_dp, &
457 5.6360705631090735e-01_dp, -2.8697201451927273e-01_dp, 6.5788018908140136e-02_dp, &
458 7.5361243129007143e+00_dp, -4.3792129089618763e+00_dp, -3.6353821872855629e+00_dp, &
459 5.5509223987118927e+00_dp, -3.0694183036306772e+00_dp, 1.6845171689522207e+00_dp, &
460 -3.0607322949855914e-01_dp, -3.1489329672562265e+00_dp, 6.5649521591318027e+00_dp, &
461 -7.2571558002312946e+00_dp, 5.2325909153168650e+00_dp, -2.3623770342134143e+00_dp, &
462 5.0394953774065110e-01_dp, 3.5135862296987604e+01_dp, -4.1984978325667221e+01_dp, &
463 -1.2198457583034720e+01_dp, 8.0268759850780640e+01_dp, -9.2774677162666293e+01_dp, &
464 3.2220400417767237e+01_dp, 6.9167997126742932e+01_dp, -1.6719365094500833e+02_dp, &
465 2.2313470021774773e+02_dp, -2.1138538881579083e+02_dp, 1.4038632740328094e+02_dp, &
466 -5.8475121575654534e+01_dp, 1.1417246912012875e+01_dp, 4.2741823086253019e+00_dp, &
467 -7.9536270802455533e-01_dp, -9.4491706673580489e-01_dp, 4.1996484386720750e-01_dp, &
468 -3.7185002444196380e-01_dp, 5.0738873025610154e-01_dp, -2.6146306289710541e-01_dp, &
469 -1.6591733635017125e-01_dp, 5.3934898406905241e-01_dp, -7.5567887713707849e-01_dp, &
470 6.7814453825724363e-01_dp, -3.5449909952088476e-01_dp, 8.1351842070653560e-02_dp, &
471 1.0448175241518934e+01_dp, -4.7162392903479757e+00_dp, -4.6011899797114211e+00_dp, &
472 4.7226102598841244e+00_dp, -2.3542529316399179e+00_dp, 2.4099345435619655e+00_dp, &
473 -1.2513655298312776e+00_dp, -2.1934790172813501e+00_dp, 5.1389071993822633e+00_dp, &
474 -5.9476078886883359e+00_dp, 4.6727698853554340e+00_dp, -2.3040973762603332e+00_dp, &
475 5.2314098593306413e-01_dp, 4.0791877448869535e+01_dp, -3.5969613616045955e+01_dp, &
476 -2.4171436973533854e+01_dp, 5.5569664985979848e+01_dp, -3.4214469221683196e+01_dp, &
477 9.5381575304633053e+00_dp, 6.8341242106838243e+00_dp, -3.7624304752009998e+01_dp, &
478 7.1464033968563371e+01_dp, -7.7194048734399516e+01_dp, 5.2693863162066592e+01_dp, &
479 -2.2021176330374324e+01_dp, 4.3695027993673685e+00_dp, 2.5377039095893605e+02_dp, &
480 -4.2994677187007676e+02_dp, 2.5923064187804403e+01_dp, 9.0781913943732923e+02_dp, &
481 -1.5171598707454250e+03_dp, 8.3438365693987998e+02_dp, 1.2503155206476356e+03_dp, &
482 -3.6979114649792905e+03_dp, 5.0518426675233222e+03_dp, -4.5767744436753173e+03_dp, &
483 2.8251444928014480e+03_dp, -1.0881627886949789e+03_dp, 1.9770830037818715e+02_dp, &
484 5.0267168969343001e-01_dp, -7.4520589209002717e-09_dp, -7.5842890294191626e-02_dp, &
485 3.8582667911904310e-02_dp, 9.9191590198104990e-03_dp, -7.7610198141607994e-02_dp, &
486 1.0186993606336588e-01_dp, 4.8879008495791680e-03_dp, -2.5794860820246435e-01_dp, &
487 5.1563319707313904e-01_dp, -5.5779404977642033e-01_dp, 3.4264223722618931e-01_dp, &
488 -9.4245905218378417e-02_dp, 2.2367579356890843e+00_dp, -6.1826581961609364e-08_dp, &
489 -6.3088494762561431e-01_dp, 3.2094379025394543e-01_dp, 1.7810679428530926e-01_dp, &
490 -7.4243963130673429e-01_dp, 8.2776076323167247e-01_dp, 3.0319271394860581e-01_dp, &
491 -2.6573611449279531e+00_dp, 4.8575612228055789e+00_dp, -5.0211444947565047e+00_dp, &
492 2.9860321004621575e+00_dp, -8.0025459339884109e-01_dp, 8.3489662287757334e+00_dp, &
493 -4.8081262326306912e-07_dp, -4.9360724580789306e+00_dp, 2.5110974244370783e+00_dp, &
494 2.6505734507780212e+00_dp, -7.0808033521004949e+00_dp, 5.7735097501417201e+00_dp, &
495 6.5854985317005275e+00_dp, -2.7913575624582830e+01_dp, 4.4816273679035426e+01_dp, &
496 -4.2776722427843723e+01_dp, 2.3856755737116387e+01_dp, -6.0412032353147502e+00_dp, &
497 4.3783125829708453e+01_dp, -5.5075146143120555e-06_dp, -5.8188143370443861e+01_dp, &
498 2.9602672801274529e+01_dp, 6.8935349052196329e+01_dp, -1.2146548315255620e+02_dp, &
499 1.2141505510027159e+01_dp, 2.6316188098445042e+02_dp, -5.3756800699873463e+02_dp, &
500 5.8351355045248351e+02_dp, -3.6666352432161307e+02_dp, 1.1185697561839862e+02_dp, &
501 -6.4042001817970036e+00_dp, 4.4126879375879327e+00_dp, -7.7530076630345340e-08_dp, &
502 -7.8950662310582564e-01_dp, 4.0163677540945897e-01_dp, 1.3226474718849238e-01_dp, &
503 -8.3730503258614408e-01_dp, 1.0575301512207400e+00_dp, 1.2535085289938416e-01_dp, &
504 -2.8368981498982810e+00_dp, 5.5425059181428447e+00_dp, -5.9300191913604117e+00_dp, &
505 3.6151514581350099e+00_dp, -9.8848229054852588e-01_dp, 1.1300654351102278e+01_dp, &
506 -4.9316510953177751e-07_dp, -5.0417664922059764e+00_dp, 2.5648534509539416e+00_dp, &
507 1.9121547495752944e+00_dp, -6.4282832469653375e+00_dp, 6.4567195634727446e+00_dp, &
508 3.8645778438672509e+00_dp, -2.3915493684299207e+01_dp, 4.1667602971700134e+01_dp, &
509 -4.1912306733231269e+01_dp, 2.4412186136448963e+01_dp, -6.4287151562910099e+00_dp, &
510 4.7661122084367847e+01_dp, -4.1563904102160877e-06_dp, -4.2866809130358867e+01_dp, &
511 2.1807486009438179e+01_dp, 2.9911195911583174e+01_dp, -6.8460053271712155e+01_dp, &
512 4.4618313870507741e+01_dp, 8.3146438950249362e+01_dp, -2.8242592797658313e+02_dp, &
513 4.2273976065299058e+02_dp, -3.8330562005148283e+02_dp, 2.0396556823058276e+02_dp, &
514 -4.9315105307208164e+01_dp, 3.4873416553466677e+02_dp, -6.2812514911455712e-05_dp, &
515 -6.8223088256704716e+02_dp, 3.4708903230411840e+02_dp, 1.0990846081358511e+03_dp, &
516 -1.7164437218305100e+03_dp, -5.1026413431245879e+02_dp, 4.8843366036040652e+03_dp, &
517 -7.6063698448775094e+03_dp, 5.5268501397810141e+03_dp, -6.4043799549226162e+02_dp, &
518 -1.8963185698837842e+03_dp, 1.0098848671258462e+03_dp/)
519 REAL(kind=dp), DIMENSION(13, 8, 3), PARAMETER :: coefdata = reshape((/c01/), (/13, 8, 3/))
520
521 INTEGER :: irange
522
523 IF (rc <= 2.0000000000000000e+00_dp) rc = 2.0000000000000000e+00_dp
524 IF (rc >= 2.3323979377746582e+02_dp) rc = 2.3323979377746582e+02_dp
525 IF (rc >= 2.0000000000000000e+00_dp .AND. rc <= 1.4737051046890191e+01_dp) THEN
526 irange = 1
527 l_b = 2.0000000000000000e+00_dp
528 u_b = 1.4737051046890191e+01_dp
529 END IF
530 IF (rc >= 1.4737051046890191e+01_dp .AND. rc <= 9.3388181952559151e+01_dp) THEN
531 irange = 2
532 l_b = 1.4737051046890191e+01_dp
533 u_b = 9.3388181952559151e+01_dp
534 END IF
535 IF (rc >= 9.3388181952559151e+01_dp .AND. rc <= 2.3323979377746582e+02_dp) THEN
536 irange = 3
537 l_b = 9.3388181952559151e+01_dp
538 u_b = 2.3323979377746582e+02_dp
539 END IF
540
541 fit_coef(1:13, 1:8) = coefdata(1:13, 1:8, irange)
542
543 END SUBROUTINE get_fit_coef_k04
544
545! **************************************************************************************************
546!> \brief ...
547!> \param Rc ...
548!> \param L_b ...
549!> \param U_b ...
550!> \param fit_coef ...
551! **************************************************************************************************
552 SUBROUTINE get_fit_coef_k05(Rc, L_b, U_b, fit_coef)
553 REAL(kind=dp) :: rc, l_b, u_b
554 REAL(kind=dp), DIMENSION(13, 10) :: fit_coef
555
556 REAL(kind=dp), DIMENSION(120), PARAMETER :: c02 = (/-4.8858613834160547e-01_dp, &
557 3.4033685149450971e-01_dp, -1.0142642654121627e-01_dp, 1.8656576613307461e+00_dp, &
558 -2.2611249862234847e-07_dp, -4.2139600757794465e-01_dp, 2.7923611356976985e-01_dp, &
559 4.7524652113269663e-03_dp, -5.0664309914469052e-01_dp, 9.4151166751519222e-01_dp, &
560 -6.3706758785225281e-01_dp, -8.8091156763512435e-01_dp, 2.9544585972346740e+00_dp, &
561 -3.8184952299416528e+00_dp, 2.5987562420872985e+00_dp, -7.6383091805613368e-01_dp, &
562 5.8307532704464835e+00_dp, -1.3235163063855027e-06_dp, -2.4668718803223433e+00_dp, &
563 1.6346632087317283e+00_dp, 4.2793395990681971e-01_dp, -3.4953188430530364e+00_dp, &
564 5.6218711785562494e+00_dp, -2.5804721986537875e+00_dp, -8.1487301965478487e+00_dp, &
565 2.1579397272924947e+01_dp, -2.6243755352892087e+01_dp, 1.7322843340400933e+01_dp, &
566 -4.9952855649733046e+00_dp, 2.1137358448719954e+01_dp, -8.8571011614827196e-06_dp, &
567 -1.6522540002420385e+01_dp, 1.0948652835693094e+01_dp, 7.3116158949398784e+00_dp, &
568 -2.9281521088202449e+01_dp, 3.7027168556990446e+01_dp, -3.0044062555390699e-01_dp, &
569 -9.2699397470543445e+01_dp, 1.9478454491936060e+02_dp, -2.1832575096605436e+02_dp, &
570 1.3760074533870568e+02_dp, -3.8467640857581380e+01_dp, 1.1063436781801329e+02_dp, &
571 -9.4105195497773129e-05_dp, -1.7704451196700302e+02_dp, 1.1732328617291050e+02_dp, &
572 2.0294758259689306e+02_dp, -4.7724061601861166e+02_dp, 2.4811244866542938e+02_dp, &
573 7.7992320599735456e+02_dp, -2.3222278304245528e+03_dp, 3.3978948507388491e+03_dp, &
574 -3.0865392333615719e+03_dp, 1.6634416402126349e+03_dp, -4.0958960918663729e+02_dp, &
575 3.9147839650080969e+00_dp, -3.2520105963657300e-07_dp, -6.0607587797083018e-01_dp, &
576 4.0161328249353928e-01_dp, -4.2547612515729416e-02_dp, -6.6328981617512195e-01_dp, &
577 1.3305448184666258e+00_dp, -1.0356092213054167e+00_dp, -9.2632217066791589e-01_dp, &
578 3.7416671458058000e+00_dp, -5.0171843083604752e+00_dp, 3.4735112435596691e+00_dp, &
579 -1.0314560294834274e+00_dp, 8.5066988542163120e+00_dp, -1.5956969892592431e-06_dp, &
580 -2.9738314062541940e+00_dp, 1.9705962320072299e+00_dp, 2.6378420045856443e-01_dp, &
581 -3.8802561477551043e+00_dp, 6.7413347741113512e+00_dp, -3.9103035750119401e+00_dp, &
582 -7.8429956431410091e+00_dp, 2.3246376149210917e+01_dp, -2.9171150509747868e+01_dp, &
583 1.9568524918391812e+01_dp, -5.7008266943227328e+00_dp, 2.7615861977495285e+01_dp, &
584 -9.5262930517419120e-06_dp, -1.7758829666390575e+01_dp, 1.1767834951864666e+01_dp, &
585 5.0226252636691662e+00_dp, -2.7730364017515328e+01_dp, 4.0708746346053992e+01_dp, &
586 -1.2326936467644122e+01_dp, -7.4007384787068389e+01_dp, 1.7668831197880644e+02_dp, &
587 -2.0786024226383526e+02_dp, 1.3475739031543512e+02_dp, -3.8406427466935618e+01_dp, &
588 1.2015405393414257e+02_dp, -7.2621559578354175e-05_dp, -1.3559498479069612e+02_dp, &
589 8.9852390667028018e+01_dp, 8.4938472949204964e+01_dp, -2.7318759226639492e+02_dp, &
590 2.9372517367957340e+02_dp, 1.0805522341970379e+02_dp, -9.9062857988965527e+02_dp, &
591 1.8854424898786242e+03_dp, -2.0220366613923659e+03_dp, 1.2394263774198967e+03_dp, &
592 -3.3964650795183775e+02_dp, 8.8110212941579391e+02_dp, -1.0631056167459761e-03_dp, &
593 -2.0215919999407249e+03_dp, 1.3397278899112848e+03_dp, 3.2785602402023524e+03_dp, &
594 -6.7015638377241066e+03_dp, 8.2607523725594240e+02_dp, 1.7011468237133256e+04_dp, &
595 -3.7898634628790373e+04_dp, 4.6113041763967398e+04_dp, -3.4882603781213867e+04_dp, &
596 1.5359465882590917e+04_dp, -2.9911038365687018e+03_dp/)
597 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/2.6550926316288959e-01_dp, &
598 -1.4194808279243129e-01_dp, -1.8340243943233556e-02_dp, 1.5594859644926301e-02_dp, &
599 6.5213609288545414e-03_dp, -7.2580394496045918e-04_dp, -1.4367869259991610e-03_dp, &
600 -5.1441935266499043e-04_dp, 1.1018516863846910e-04_dp, 1.3857094404802231e-04_dp, &
601 2.1996788631150751e-04_dp, -1.7152748784100114e-04_dp, 2.0272591048711931e-05_dp, &
602 8.8501620116612245e-01_dp, -5.6405190932498062e-01_dp, 2.1373574602775065e-02_dp, &
603 6.3146135511270907e-02_dp, -2.3147542901442224e-05_dp, -7.8175619763017744e-03_dp, &
604 -9.0807036857844356e-04_dp, 5.6214855418821154e-04_dp, 2.4232956169489725e-04_dp, &
605 7.6709494480488226e-05_dp, 7.0466487248201543e-05_dp, -1.6311093828886886e-04_dp, &
606 5.2007073293462518e-05_dp, 1.8263499497356539e+00_dp, -1.5009396517669864e+00_dp, &
607 4.1870586931086229e-01_dp, 8.1727208946953692e-02_dp, -7.9985490073436638e-02_dp, &
608 -2.8386179694723992e-04_dp, 1.3714799393655325e-02_dp, -1.2765799618254241e-03_dp, &
609 -2.3532630322310429e-03_dp, 2.9144423884117456e-04_dp, 5.3898879161715227e-04_dp, &
610 -2.1117200296074146e-04_dp, 1.1890367495914655e-05_dp, 3.6068126097193955e+00_dp, &
611 -3.7478336902205442e+00_dp, 1.9251356093214684e+00_dp, -3.3446998446816661e-01_dp, &
612 -1.8448451339597130e-01_dp, 1.0688477101804973e-01_dp, 2.8699422521969551e-03_dp, &
613 -1.7054194854644773e-02_dp, 2.7799971291916320e-03_dp, 2.1897310530225645e-03_dp, &
614 -9.6910398641202955e-04_dp, -1.7014948966298835e-05_dp, 7.0764797933466401e-05_dp, &
615 8.5076801150728940e+00_dp, -1.0347947968427668e+01_dp, 7.0922698151187697e+00_dp, &
616 -2.6797820059032738e+00_dp, 2.9467919296352824e-01_dp, 2.0165045409973004e-01_dp, &
617 -8.9988805784438325e-02_dp, 2.4637727661109806e-03_dp, 8.1179838192678364e-03_dp, &
618 -1.1425709074878842e-03_dp, -1.4540082710946707e-03_dp, 7.4743096963710671e-04_dp, &
619 -9.5059826033180061e-05_dp, 2.1799143945696855e+00_dp, -1.2215729848174013e+00_dp, &
620 -1.0378540265907392e-01_dp, 1.3956467575170556e-01_dp, 4.1207538207079744e-02_dp, &
621 -1.1282311598005327e-02_dp, -1.0171856224520444e-02_dp, -2.3373290671285817e-03_dp, &
622 1.2653652219253339e-03_dp, 9.5707490422460495e-04_dp, 1.2101366427858700e-03_dp, &
623 -1.2780291066208068e-03_dp, 2.5756088060468888e-04_dp, 2.9208363903622483e+00_dp, &
624 -2.3899201322394812e+00_dp, 5.8884810920058861e-01_dp, 2.2762106025416384e-01_dp, &
625 -1.3362043169847870e-01_dp, -3.7501085007398918e-02_dp, 2.4747513399946530e-02_dp, &
626 9.5199228229788154e-03_dp, -3.2039915558658432e-03_dp, -1.9527625509728832e-03_dp, &
627 -1.2995234139512991e-03_dp, 1.6838354170501096e-03_dp, -3.6264295088535243e-04_dp, &
628 4.9061852059580007e+00_dp, -5.5772589654145772e+00_dp, 3.0458942185873026e+00_dp, &
629 -3.1151471012072757e-01_dp, -5.0962295355233656e-01_dp, 1.7119353498272677e-01_dp, &
630 7.3421207250380538e-02_dp, -4.2415114572035145e-02_dp, -1.0449306726232923e-02_dp, &
631 8.8592606635370576e-03_dp, 2.3422146446452656e-03_dp, -3.0644537695472701e-03_dp, &
632 7.3510771583872308e-04_dp, 1.0361057376012624e+01_dp, -1.3801723359447648e+01_dp, &
633 1.0269637159792943e+01_dp, -3.8517372257931135e+00_dp, 4.8210238729628187e-02_dp, &
634 6.4093439772823868e-01_dp, -2.4036195455750892e-01_dp, -2.8318831513976336e-02_dp, &
635 5.0063938591181703e-02_dp, -9.0143432978221204e-03_dp, -7.6402101435511958e-03_dp, &
636 4.7996517140455634e-03_dp, -8.8688820948506499e-04_dp, 3.7821289404628558e+01_dp, &
637 -5.0486826995622586e+01_dp, 3.9699236632662554e+01_dp, -1.8952398193101370e+01_dp, &
638 5.0163848584714357e+00_dp, -2.0867251269953616e-01_dp, -3.6024073310994120e-01_dp, &
639 1.2257744971762999e-01_dp, -2.0556888444551520e-03_dp, -4.3391049691802507e-03_dp, &
640 -5.8398844655175447e-03_dp, 4.3389323693662314e-03_dp, -7.8818019920401015e-04_dp, &
641 3.9278921854245491e-01_dp, -1.3880097398618357e-01_dp, -7.8179351611203124e-02_dp, &
642 1.1692302652801807e-02_dp, 2.2561926975071613e-02_dp, 2.7058132466622827e-03_dp, &
643 -1.1199299265664485e-02_dp, 2.3864268449642063e-03_dp, 4.1154746187549900e-03_dp, &
644 -6.1786230594345682e-04_dp, -3.7868033504497873e-03_dp, 2.7672863440031232e-03_dp, &
645 -5.9500399325799157e-04_dp, 1.4855053290241629e+00_dp, -7.8227620557414324e-01_dp, &
646 -2.7024820829841489e-01_dp, 2.1644799093884431e-01_dp, 9.2348870972741803e-02_dp, &
647 -6.6068295446994954e-02_dp, -6.4291229844158415e-02_dp, 5.0728492961798738e-02_dp, &
648 4.4472290549627404e-02_dp, -7.4201442830987882e-02_dp, 3.5972879001982185e-02_dp, &
649 -4.4915225522013684e-03_dp, -1.0083365147057061e-03_dp, 3.9016131418911306e+00_dp, &
650 -3.4134865404724506e+00_dp, -1.3191399671771223e-01_dp, 1.4894435669800952e+00_dp, &
651 -1.9976923375832278e-01_dp, -6.1585252828530235e-01_dp, 7.5074460723037759e-03_dp, &
652 4.4772359113701282e-01_dp, 4.1917618732983360e-03_dp, -5.4159522447435060e-01_dp, &
653 5.2585946916715653e-01_dp, -2.2522710312470215e-01_dp, 3.9131815966317804e-02_dp, &
654 1.0618774133100274e+01_dp, -1.4832497853376831e+01_dp, 5.4089669906270323e+00_dp, &
655 5.8728749535356988e+00_dp, -5.9311544312086957e+00_dp, -8.0009436905790932e-01_dp, &
656 2.6888418432666157e+00_dp, 1.2359800658100402e+00_dp, -3.5501238739964611e+00_dp, &
657 1.5596171190481971e+00_dp, 8.2306292720997121e-01_dp, -1.0016591564251089e+00_dp, &
658 2.8042093815884245e-01_dp, 3.4412759856983151e+01_dp, -7.0327105581163224e+01_dp, &
659 6.3665816591943127e+01_dp, -1.3949266108790304e+01_dp, -3.0883863109385448e+01_dp, &
660 3.7009631013886363e+01_dp, -1.7390259933678596e+01_dp, 2.3656018006829531e+00_dp, &
661 -1.7787709312289635e+00_dp, 5.3590592455391164e+00_dp, -4.8736190529851529e+00_dp, &
662 2.0252305602012526e+00_dp, -3.3791044802812337e-01_dp, 3.3248343266591256e+00_dp, &
663 -1.3094675160912539e+00_dp, -6.6328990690593814e-01_dp, 1.8491505826004428e-01_dp, &
664 2.0917162881033141e-01_dp, -1.0803587412967225e-02_dp, -1.1437161193809799e-01_dp, &
665 3.7418912128605243e-02_dp, 5.1391607560251427e-02_dp, -3.0429928256627381e-02_dp, &
666 -2.3127059109442100e-02_dp, 2.5736365267549230e-02_dp, -6.6907054068503953e-03_dp, &
667 6.0158175654245101e+00_dp, -4.7207061941701625e+00_dp, -7.7455852362166566e-01_dp, &
668 1.9487679367187645e+00_dp, 2.4649244194611070e-01_dp, -7.8079051035147518e-01_dp, &
669 -2.9522118467223896e-01_dp, 5.0896330357227537e-01_dp, 2.9773062721204507e-01_dp, &
670 -8.0505532840347449e-01_dp, 5.8712415328747258e-01_dp, -1.9752002341908578e-01_dp, &
671 2.5075590818523352e-02_dp, 1.4995996415485168e+01_dp, -1.9905726450058165e+01_dp, &
672 3.9266337752980962e+00_dp, 9.9560813158678823e+00_dp, -4.7405279236906184e+00_dp, &
673 -4.1496599853648704e+00_dp, 2.0613032230603539e+00_dp, 3.2488688171619757e+00_dp, &
674 -1.7390067336108939e+00_dp, -3.0683317274378470e+00_dp, 4.2625062495968713e+00_dp, &
675 -2.1726002323140921e+00_dp, 4.3089670881740993e-01_dp, 4.4932892872124903e+01_dp, &
676 -8.8545093801744059e+01_dp, 6.0520129702721192e+01_dp, 2.1122643416448547e+01_dp, &
677 -5.7886283556557316e+01_dp, 1.8213156609123580e+01_dp, 2.3077349912808526e+01_dp, &
678 -5.3877102833312573e+00_dp, -3.7896180227046528e+01_dp, 4.8693135565506630e+01_dp, &
679 -2.6834347784939805e+01_dp, 6.5383813741214230e+00_dp, -3.5691234747562894e-01_dp, &
680 1.8944775478692549e+02_dp, -4.7251287821524852e+02_dp, 5.8393508267544064e+02_dp, &
681 -3.6596986190399576e+02_dp, -2.7795511500841403e+01_dp, 3.2140628060441372e+02_dp, &
682 -3.8370262121429585e+02_dp, 2.7692519369868364e+02_dp, -1.2701896028677757e+02_dp, &
683 1.8998010412055702e+01_dp, 2.1870301973287983e+01_dp, -1.7120461042981180e+01_dp, &
684 4.2347422391201750e+00_dp, 4.4257797087053102e-01_dp, -5.2788253001961889e-02_dp, &
685 -5.2533965745094266e-02_dp, 1.4778463051880717e-02_dp, -1.5137288357210552e-02_dp, &
686 2.1322924325981523e-02_dp, -1.4854865556221506e-02_dp, 5.1232024991161550e-03_dp, &
687 2.8565216174117648e-03_dp, -8.8401575833623354e-03_dp, 9.9499800976253043e-03_dp, &
688 -5.7899840382429997e-03_dp, 1.4210619672786226e-03_dp, 1.7901185397017931e+00_dp, &
689 -3.5083028235258551e-01_dp, -3.1680230121654573e-01_dp, 1.5935023709180390e-01_dp, &
690 -9.6024129986843676e-02_dp, 1.3660790479315130e-01_dp, -1.0337866658231480e-01_dp, &
691 2.3138570375758987e-02_dp, 3.9352695535177187e-02_dp, -7.4818829308294185e-02_dp, &
692 7.5902068752193866e-02_dp, -4.3371504574516717e-02_dp, 1.0713355872630637e-02_dp, &
693 5.4011480843282529e+00_dp, -1.9378498606319501e+00_dp, -1.4885710416432727e+00_dp, &
694 1.3285785197655227e+00_dp, -6.1573768211511359e-01_dp, 6.6799377473279897e-01_dp, &
695 -5.6560044387820196e-01_dp, 4.4739939170913824e-02_dp, 4.1235540457510034e-01_dp, &
696 -5.8360743029848561e-01_dp, 5.0454137563363111e-01_dp, -2.6911125304703654e-01_dp, &
697 6.5360795178081008e-02_dp, 1.8390811469886259e+01_dp, -1.1816135218340939e+01_dp, &
698 -6.5672253964212350e+00_dp, 1.1633062919350717e+01_dp, -6.3986980710522809e+00_dp, &
699 3.2939209809513676e+00_dp, -2.2272935468482853e+00_dp, -1.0294340901252237e+00_dp, &
700 4.9393479720617810e+00_dp, -6.2342624050806759e+00_dp, 4.6837849201767963e+00_dp, &
701 -2.1673488253493325e+00_dp, 4.7646725156583597e-01_dp, 8.4336157557514952e+01_dp, &
702 -1.0089617503672321e+02_dp, -8.2208590050504053e+00_dp, 1.3366974137866799e+02_dp, &
703 -1.5820903503567655e+02_dp, 7.9337305769534240e+01_dp, 3.5616012388753418e+01_dp, &
704 -1.3130781106536887e+02_dp, 1.8168276052903283e+02_dp, -1.7517829713272582e+02_dp, &
705 1.1971260321867801e+02_dp, -5.1913306577605510e+01_dp, 1.0642365990915014e+01_dp, &
706 3.8045299867771694e+00_dp, -5.1963750597518243e-01_dp, -5.0493129539283388e-01_dp, &
707 1.6923327934559071e-01_dp, -1.4533839571881732e-01_dp, 2.0900682452821240e-01_dp, &
708 -1.4833602186795575e-01_dp, 4.6115749291176553e-02_dp, 3.5317361550774348e-02_dp, &
709 -9.2726757854478412e-02_dp, 1.0182710534344803e-01_dp, -5.9085836061311556e-02_dp, &
710 1.4532428085371502e-02_dp, 7.9810439938759341e+00_dp, -2.4066556149498681e+00_dp, &
711 -2.0114738728086969e+00_dp, 1.3887125725182221e+00_dp, -6.6411710313452954e-01_dp, &
712 8.9805661552767102e-01_dp, -7.2555023164908816e-01_dp, 1.0674885228225427e-01_dp, &
713 3.7883539402094696e-01_dp, -6.0015012013448121e-01_dp, 5.6777546719923455e-01_dp, &
714 -3.1846433701583721e-01_dp, 7.8788285144172049e-02_dp, 2.4582796909232854e+01_dp, &
715 -1.3409035847628800e+01_dp, -9.0550767935687659e+00_dp, 1.1183625388029842e+01_dp, &
716 -5.0365240125360282e+00_dp, 4.1413731325516521e+00_dp, -3.6960181281327560e+00_dp, &
717 -1.1306341316679099e-01_dp, 3.8775217524474308e+00_dp, -5.0313030646474921e+00_dp, &
718 3.9973018771671991e+00_dp, -2.0116602935864174e+00_dp, 4.7586858968669676e-01_dp, &
719 9.8317340117791673e+01_dp, -9.0854955135839106e+01_dp, -3.6899617942823220e+01_dp, &
720 1.0594926320423745e+02_dp, -6.9019058089648595e+01_dp, 2.3438541656567132e+01_dp, &
721 -6.0730297290477884e+00_dp, -1.8851461187993809e+01_dp, 5.3716963536506903e+01_dp, &
722 -6.6369119452540346e+01_dp, 4.8465181956859681e+01_dp, -2.1165852568624782e+01_dp, &
723 4.3585743760971170e+00_dp, 6.0207029114733461e+02_dp, -9.8896334810595192e+02_dp, &
724 2.3242568533798712e+02_dp, 1.3611103974253565e+03_dp, -2.3785984539197157e+03_dp, &
725 1.6929413675263338e+03_dp, 4.9725086152063358e+02_dp, -2.8910968561531386e+03_dp, &
726 4.1515560821383906e+03_dp, -3.8021899986365097e+03_dp, 2.3881906025704566e+03_dp, &
727 -9.5025460048391619e+02_dp, 1.8084927413816368e+02_dp, 4.5372254459206868e-01_dp, &
728 -3.2706671239427972e-08_dp, -6.0956447616697843e-02_dp, 4.0392497654627497e-02_dp, &
729 -5.9611390145588245e-03_dp, -6.4482812112108656e-02_dp, 1.3285507045769324e-01_dp, &
730 -1.0786011793963135e-01_dp, -8.2044143611323866e-02_dp, 3.5942368229798438e-01_dp/)
731 REAL(kind=dp), DIMENSION(13, 10, 4), PARAMETER :: &
732 coefdata = reshape((/c01, c02/), (/13, 10, 4/))
733
734 INTEGER :: irange
735
736 IF (rc <= 2.0000000000000000e+00_dp) rc = 2.0000000000000000e+00_dp
737 IF (rc >= 5.8933372497558594e+02_dp) rc = 5.8933372497558594e+02_dp
738 IF (rc >= 2.0000000000000000e+00_dp .AND. rc <= 5.0183126784059855e+00_dp) THEN
739 irange = 1
740 l_b = 2.0000000000000000e+00_dp
741 u_b = 5.0183126784059855e+00_dp
742 END IF
743 IF (rc >= 5.0183126784059855e+00_dp .AND. rc <= 4.3973147761154188e+01_dp) THEN
744 irange = 2
745 l_b = 5.0183126784059855e+00_dp
746 u_b = 4.3973147761154188e+01_dp
747 END IF
748 IF (rc >= 4.3973147761154188e+01_dp .AND. rc <= 2.1570029942124913e+02_dp) THEN
749 irange = 3
750 l_b = 4.3973147761154188e+01_dp
751 u_b = 2.1570029942124913e+02_dp
752 END IF
753 IF (rc >= 2.1570029942124913e+02_dp .AND. rc <= 5.8933372497558594e+02_dp) THEN
754 irange = 4
755 l_b = 2.1570029942124913e+02_dp
756 u_b = 5.8933372497558594e+02_dp
757 END IF
758
759 fit_coef(1:13, 1:10) = coefdata(1:13, 1:10, irange)
760
761 END SUBROUTINE get_fit_coef_k05
762
763! **************************************************************************************************
764!> \brief ...
765!> \param Rc ...
766!> \param L_b ...
767!> \param U_b ...
768!> \param fit_coef ...
769! **************************************************************************************************
770 SUBROUTINE get_fit_coef_k06(Rc, L_b, U_b, fit_coef)
771 REAL(kind=dp) :: rc, l_b, u_b
772 REAL(kind=dp), DIMENSION(13, 12) :: fit_coef
773
774 REAL(kind=dp), DIMENSION(224), PARAMETER :: c02 = (/-2.1886099081761100e-02_dp, &
775 1.6493591518278907e-03_dp, 1.1789604920345118e-03_dp, 6.4862232853117350e+00_dp, &
776 -1.7754848782963699e+00_dp, -1.3982954414549702e+00_dp, 8.0870739791892121e-01_dp, &
777 -3.2912209721480506e-01_dp, 6.6541689936850468e-01_dp, -7.1706760669376735e-01_dp, &
778 4.1574320605711801e-01_dp, -2.3388393290566312e-01_dp, 1.8531370116520027e-01_dp, &
779 -1.0473625529229623e-01_dp, 2.3517641650793227e-02_dp, 8.6244301390663231e-04_dp, &
780 1.7041857699471105e+01_dp, -8.0569049462408699e+00_dp, -5.3193377730235101e+00_dp, &
781 5.2407625518133418e+00_dp, -1.8916937701142056e+00_dp, 2.6635338859946827e+00_dp, &
782 -3.4546849156995960e+00_dp, 1.9859939673472693e+00_dp, -6.3042912150903241e-01_dp, &
783 4.6651519138633141e-01_dp, -4.6544250709211266e-01_dp, 2.0725559386709488e-01_dp, &
784 -2.9916484811181372e-02_dp, 5.4109098148865449e+01_dp, -4.0117846296551058e+01_dp, &
785 -1.9343735087203584e+01_dp, 3.5163214199743337e+01_dp, -1.6224366437588795e+01_dp, &
786 1.0967650063875425e+01_dp, -1.6086523192511546e+01_dp, 1.0289145829533357e+01_dp, &
787 7.0780220688975037e-01_dp, -3.9012608853545987e+00_dp, 1.3711604453275446e+00_dp, &
788 1.9280292939737056e-01_dp, -1.3952390127271364e-01_dp, 2.1301179294983942e+02_dp, &
789 -2.4882116172344013e+02_dp, -4.4576343993020110e+01_dp, 2.8297777525326859e+02_dp, &
790 -2.2475060506667668e+02_dp, 8.3513335806543239e+01_dp, -4.8903037857891732e+01_dp, &
791 3.0142938850263359e+01_dp, 5.6123720416754203e+01_dp, -1.2447276961108798e+02_dp, &
792 1.0366026212412571e+02_dp, -4.3281169846400822e+01_dp, 7.6490691991820876e+00_dp, &
793 1.2550066552494284e+03_dp, -2.4322243152990673e+03_dp, 1.2301224175493214e+03_dp, &
794 2.5239221182153856e+03_dp, -6.0423251531521428e+03_dp, 6.0570404483243292e+03_dp, &
795 -1.7810143991349457e+03_dp, -4.4038002244714671e+03_dp, 8.8124430795611534e+03_dp, &
796 -9.1651316571527568e+03_dp, 6.1357943020836110e+03_dp, -2.5081424703717635e+03_dp, &
797 4.7811463385949389e+02_dp, 4.1708346282835440e-01_dp, 5.4402119511920706e-09_dp, &
798 -5.5526039243043029e-02_dp, 4.5875452433465184e-02_dp, -1.9952652014140874e-02_dp, &
799 -6.2561720018590866e-02_dp, 1.9429518598408954e-01_dp, -2.9279948367686742e-01_dp, &
800 2.3756176667253856e-01_dp, -1.4901115793698551e-02_dp, -1.8840975031156562e-01_dp, &
801 1.8774227251450593e-01_dp, -6.3735493877313892e-02_dp, 1.6278649020334413e+00_dp, &
802 3.2838198887433358e-08_dp, -3.3846296868812692e-01_dp, 2.7963563823781828e-01_dp, &
803 -9.0630995340932871e-02_dp, -4.3293262954703110e-01_dp, 1.2280220838385034e+00_dp, &
804 -1.7442094645170365e+00_dp, 1.2336530163787787e+00_dp, 2.9572964716091310e-01_dp, &
805 -1.5535951629300453e+00_dp, 1.3874995299222836e+00_dp, -4.5339014253773563e-01_dp, &
806 4.5582381667386960e+00_dp, 1.5806304897319024e-07_dp, -1.6513291934494874e+00_dp, &
807 1.3643063680863621e+00_dp, -2.2797406279030716e-01_dp, -2.4685898874588244e+00_dp, &
808 6.2562167208053836e+00_dp, -8.1279599723834828e+00_dp, 4.3636702189236134e+00_dp, &
809 4.3186587764282933e+00_dp, -1.0540942234481506e+01_dp, 8.5267333193930419e+00_dp, &
810 -2.6774459759737059e+00_dp, 1.3685608614427798e+01_dp, 7.8953218257276503e-07_dp, &
811 -8.3945440967525986e+00_dp, 6.9353993597959400e+00_dp, 3.6407979682346647e-01_dp, &
812 -1.5080151073493695e+01_dp, 3.3241166265120924e+01_dp, -3.7369343631286654e+01_dp, &
813 8.3569027854846123e+00_dp, 4.4753024708589386e+01_dp, -7.6432229501076378e+01_dp, &
814 5.6664416689962970e+01_dp, -1.7092781886452087e+01_dp, 4.9412897930577003e+01_dp, &
815 4.7277509167796719e-06_dp, -5.1468102651658292e+01_dp, 4.2521417495234374e+01_dp, &
816 1.8361899440516524e+01_dp, -1.1920260676251814e+02_dp, 2.1112678563410637e+02_dp, &
817 -1.6483281126514837e+02_dp, -1.3110713864031490e+02_dp, 5.5418022612192499e+02_dp, &
818 -7.3738040876829530e+02_dp, 4.9946323905482791e+02_dp, -1.4364581567818436e+02_dp, &
819 2.5856094754727951e+02_dp, 4.9537890342657514e-05_dp, -5.1982003609948777e+02_dp, &
820 4.2947182873531199e+02_dp, 6.1345329880719396e+02_dp, -1.9062470900920243e+03_dp, &
821 1.7662921114675391e+03_dp, 1.7231825404801061e+03_dp, -8.6457455493579109e+03_dp, &
822 1.5120925743819069e+04_dp, -1.5451074708996110e+04_dp, 9.0782260203870264e+03_dp, &
823 -2.3814784812948374e+03_dp, 3.5563510586400620e+00_dp, 5.2243732431620397e-08_dp, &
824 -5.3458995179895974e-01_dp, 4.4167605244136621e-01_dp, -1.7944761997460976e-01_dp, &
825 -6.2338748927321674e-01_dp, 1.8891718769031944e+00_dp, -2.8043855484821694e+00_dp, &
826 2.2030189466232226e+00_dp, 1.0320235800834847e-02_dp, -1.9761291843643918e+00_dp, &
827 1.9052121189045435e+00_dp, -6.3976729377541963e-01_dp, 6.9028517698471328e+00_dp, &
828 2.0949242746734285e-07_dp, -2.1756673311275518e+00_dp, 1.7975131975615710e+00_dp, &
829 -4.2778160177964319e-01_dp, -3.0405366789532842e+00_dp, 8.1022253001293034e+00_dp, &
830 -1.0982617302565613e+01_dp, 6.8131825397372605e+00_dp, 3.8862264333809295e+00_dp, &
831 -1.2053532500608455e+01_dp, 1.0154164646180618e+01_dp, -3.2431802300014412e+00_dp, &
832 1.8989552788955329e+01_dp, 9.9286067106856817e-07_dp, -1.0472400361079698e+01_dp, &
833 8.6521158401880101e+00_dp, -4.6627567381311841e-01_dp, -1.7284175855799315e+01_dp, &
834 4.0771265171966490e+01_dp, -4.9482292403614558e+01_dp, 1.9569212507327620e+01_dp, &
835 4.1160600907466055e+01_dp, -8.0872171406820684e+01_dp, 6.2337361427142859e+01_dp, &
836 -1.9156859827683505e+01_dp, 6.4230168958280117e+01_dp, 5.2702432513283289e-06_dp, &
837 -5.6724000801554709e+01_dp, 4.6863917998784160e+01_dp, 1.0053412110284610e+01_dp, &
838 -1.1451045308948315e+02_dp, 2.3044585885631165e+02_dp, -2.2906289039834832e+02_dp, &
839 -1.8606184753175402e+01_dp, 4.2289320906156615e+02_dp, -6.3539698307177753e+02_dp, &
840 4.5150351227550135e+02_dp, -1.3329696991326111e+02_dp, 2.8071766112627870e+02_dp, &
841 3.6997307117075781e-05_dp, -4.0789941535711910e+02_dp, 3.3699261109303779e+02_dp, &
842 2.3647894788939269e+02_dp, -1.0952495362197274e+03_dp, 1.6854111697437818e+03_dp, &
843 -8.5957784789276764e+02_dp, -2.1979269738574790e+03_dp, 6.1001514329566426e+03_dp, &
844 -7.4416162018202294e+03_dp, 4.8441672159087721e+03_dp, -1.3611139403438265e+03_dp, &
845 2.0591686087846747e+03_dp, 6.2055330463178533e-04_dp, -5.8307099335577632e+03_dp, &
846 4.8176388108956071e+03_dp, 1.0175276953355078e+04_dp, -2.6714845272387549e+04_dp, &
847 1.3141868511851815e+04_dp, 5.7600064337445598e+04_dp, -1.7044732018512717e+05_dp, &
848 2.5361567867653081e+05_dp, -2.3362423558935185e+05_dp, 1.2691185251979054e+05_dp, &
849 -3.1278542676771558e+04_dp/)
850 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/2.3880318322659616e-01_dp, &
851 -1.3504254699048457e-01_dp, -1.8598173825632135e-02_dp, 1.5951626606880761e-02_dp, &
852 7.2684956676590529e-03_dp, -5.7141087071240480e-04_dp, -1.5395949213734461e-03_dp, &
853 -7.1572363929054415e-04_dp, 3.6877254806601694e-05_dp, 5.4320682223059976e-06_dp, &
854 5.5227348644639883e-04_dp, -3.0433080098958792e-04_dp, 2.0054857421109012e-05_dp, &
855 7.7890990470111321e-01_dp, -5.1037664112865433e-01_dp, 2.2683669399025620e-03_dp, &
856 6.3137195324291309e-02_dp, 6.2052527538001894e-03_dp, -7.4341644045277456e-03_dp, &
857 -2.1210008138554367e-03_dp, -1.4297915693002166e-04_dp, 2.3675140917504573e-04_dp, &
858 7.8277224401520325e-05_dp, 7.7539910614835689e-04_dp, -6.6808270119695333e-04_dp, &
859 1.4504128675696130e-04_dp, 1.5338400887947281e+00_dp, -1.2608929319268196e+00_dp, &
860 2.7752546229559455e-01_dp, 1.1281909197533520e-01_dp, -5.7715437974610692e-02_dp, &
861 -1.2667929676877377e-02_dp, 1.1252151548690961e-02_dp, 1.3715704256258806e-03_dp, &
862 -2.1997078310386719e-03_dp, -1.9740866319126966e-04_dp, 6.4159705514259713e-04_dp, &
863 -2.0892816180705209e-04_dp, 1.2980332628359802e-05_dp, 2.7673985137655222e+00_dp, &
864 -2.8693997600463321e+00_dp, 1.2857991829002497e+00_dp, -5.2344086831360041e-02_dp, &
865 -2.1561376228191623e-01_dp, 5.8188217877604753e-02_dp, 3.2625544363151460e-02_dp, &
866 -1.6261879788195335e-02_dp, -4.9150534412067178e-03_dp, 3.7784034995137794e-03_dp, &
867 1.0172896355501188e-03_dp, -1.3544723088620958e-03_dp, 3.3791427042144639e-04_dp, &
868 5.1404992525605566e+00_dp, -6.4443570834347890e+00_dp, 4.1957808536165739e+00_dp, &
869 -1.2275923471635759e+00_dp, -2.0396556460478615e-01_dp, 2.7559304730791950e-01_dp, &
870 -4.1449669923351355e-02_dp, -3.6410768056789396e-02_dp, 1.4347460568477105e-02_dp, &
871 4.4454675528836068e-03_dp, -4.5378784097625498e-03_dp, 9.9961733190086135e-04_dp, &
872 3.6523493717956677e-05_dp, 1.1734352150699646e+01_dp, -1.6617308812671567e+01_dp, &
873 1.3192363740983607e+01_dp, -5.9719748231036816e+00_dp, 1.0980419528166845e+00_dp, &
874 3.2645028974174173e-01_dp, -2.2662577335842013e-01_dp, 1.5473932548189148e-02_dp, &
875 2.4554441955295301e-02_dp, -3.0077324938441938e-03_dp, -6.6466692299168616e-03_dp, &
876 3.3841806314929717e-03_dp, -4.5363653651646422e-04_dp, 1.9504561037810109e+00_dp, &
877 -1.1467433477431543e+00_dp, -1.1509042021220600e-01_dp, 1.4002884228893558e-01_dp, &
878 4.9229414420382964e-02_dp, -9.3425227737155385e-03_dp, -1.1325413873739049e-02_dp, &
879 -4.2563268902206224e-03_dp, 6.7116883229536705e-04_dp, 1.5906634439756071e-04_dp, &
880 3.8770231995856335e-03_dp, -2.5391926650602447e-03_dp, 3.3891223789822106e-04_dp, &
881 2.4673029044535064e+00_dp, -2.0268552313475112e+00_dp, 4.0046771139949433e-01_dp, &
882 2.3814029693552785e-01_dp, -8.9396133850395965e-02_dp, -4.4527776658762855e-02_dp, &
883 1.4866152379554987e-02_dp, 9.7091069081123305e-03_dp, -1.0458116448709301e-03_dp, &
884 -1.6304626515434921e-04_dp, -2.5676032129145179e-03_dp, 1.0030055918766197e-03_dp, &
885 1.2679235174542378e-04_dp, 3.7347941735050534e+00_dp, -4.2796614963173818e+00_dp, &
886 2.0984473158827268e+00_dp, 3.8759752258727312e-02_dp, -4.5990959564031419e-01_dp, &
887 5.1967372176975800e-02_dp, 9.7141975244401893e-02_dp, -1.3178648045339187e-02_dp, &
888 -2.0209423274504174e-02_dp, 1.0105807719139734e-03_dp, 5.4186563920573787e-03_dp, &
889 -1.2039467701267226e-03_dp, -2.3204020322593582e-04_dp, 6.5077723320734462e+00_dp, &
890 -9.2352437198316721e+00_dp, 6.6750942739970016e+00_dp, -1.8455859476736007e+00_dp, &
891 -6.6861629653657528e-01_dp, 5.9764889487189854e-01_dp, -5.0747709526665586e-03_dp, &
892 -1.2913515441578532e-01_dp, 2.3272560810134339e-02_dp, 2.9135236898039468e-02_dp, &
893 -1.4574834005683180e-02_dp, -5.2715455080038322e-04_dp, 1.3890615806649285e-03_dp, &
894 1.3850913871979026e+01_dp, -2.1458713896727076e+01_dp, 1.8585391600120367e+01_dp, &
895 -8.8983459146558150e+00_dp, 1.4489567962728551e+00_dp, 9.2702628293193634e-01_dp, &
896 -6.2616397632266363e-01_dp, 5.7790606569577026e-02_dp, 9.4342841805570538e-02_dp, &
897 -3.4918226526611050e-02_dp, -1.1666274195182996e-02_dp, 1.1468596370156781e-02_dp, &
898 -2.5023897917183561e-03_dp, 5.1146534060966360e+01_dp, -7.7941926275268443e+01_dp, &
899 6.8596107997848165e+01_dp, -3.6890210242625017e+01_dp, 1.1357177081042030e+01_dp, &
900 -9.2047899141260558e-01_dp, -7.4474117122587935e-01_dp, 2.5322565001955349e-01_dp, &
901 3.2248532258476223e-02_dp, -1.7095085335450899e-02_dp, -2.2598156948147496e-02_dp, &
902 1.5156344013831745e-02_dp, -2.5379823676707301e-03_dp, 3.5751798194464240e-01_dp, &
903 -1.2600309325537651e-01_dp, -6.8004084173955454e-02_dp, 1.2157899234698420e-02_dp, &
904 2.1943110510575771e-02_dp, -7.9427632594316407e-04_dp, -1.0361087641281600e-02_dp, &
905 2.4821596699121824e-03_dp, 4.0348366680994473e-03_dp, 2.8135401244154632e-04_dp, &
906 -4.6877219120401567e-03_dp, 3.1546476763206766e-03_dp, -6.7677457007812901e-04_dp, &
907 1.2968177885798766e+00_dp, -6.3941693810976563e-01_dp, -2.2959973185660049e-01_dp, &
908 1.6087434354085126e-01_dp, 8.6486743214774675e-02_dp, -6.1614892715247518e-02_dp, &
909 -4.8028034899867122e-02_dp, 3.8425445859627622e-02_dp, 3.8605581267093236e-02_dp, &
910 -5.6164847560257060e-02_dp, 2.0910077215322051e-02_dp, 1.2964252900134450e-03_dp, &
911 -1.8446256582284172e-03_dp, 3.1324438674766699e+00_dp, -2.4151854273598716e+00_dp, &
912 -2.6047168751114452e-01_dp, 9.5966522342849570e-01_dp, 2.2893370477180448e-02_dp, &
913 -4.6081953292291444e-01_dp, -1.8520616685596340e-02_dp, 2.7887399359474097e-01_dp, &
914 7.6020644245194932e-02_dp, -4.2088644819457605e-01_dp, 3.6460600516358160e-01_dp, &
915 -1.4357909360196239e-01_dp, 2.2753321647943275e-02_dp, 7.4899427697510124e+00_dp, &
916 -8.8280335952168212e+00_dp, 1.7123462104755773e+00_dp, 3.8707486333542227e+00_dp, &
917 -1.9815357349695950e+00_dp, -1.6832510627073594e+00_dp, 1.2202327185548325e+00_dp, &
918 1.1503961401223624e+00_dp, -1.1691367635695169e+00_dp, -6.2515758649445019e-01_dp, &
919 1.4260929313914967e+00_dp, -8.3005376615383542e-01_dp, 1.7732045352944734e-01_dp, &
920 1.9233621800739694e+01_dp, -3.2998946276611100e+01_dp, 1.9380091371032101e+01_dp, &
921 8.0399253608428722e+00_dp, -1.6904953829368541e+01_dp, 3.0927597143955228e+00_dp, &
922 8.0994471956382856e+00_dp, -1.6782211346692346e+00_dp, -1.0394704303491993e+01_dp, &
923 1.2830229456737785e+01_dp, -6.9393548763620077e+00_dp, 1.7427344551235533e+00_dp, &
924 -1.2946538236454874e-01_dp, 5.8780095440425775e+01_dp, -1.3609530737303956e+02_dp, &
925 1.4571588736412139e+02_dp, -6.0814926940405925e+01_dp, -4.0021974482403188e+01_dp, &
926 7.1891281980526486e+01_dp, -3.7611826478981364e+01_dp, 3.7915945110802157e-01_dp, &
927 3.5968397055679930e+00_dp, 8.9772162495814740e+00_dp, -1.2728332178915190e+01_dp, &
928 6.6326513236414772e+00_dp, -1.3383759658374235e+00_dp, 2.9966529964603850e+00_dp, &
929 -1.1564049434132586e+00_dp, -5.6912440531538755e-01_dp, 1.6403335898067262e-01_dp, &
930 1.9593329346060476e-01_dp, -3.5619845228756358e-02_dp, -9.7999140185112146e-02_dp, &
931 3.4747319410711512e-02_dp, 4.7910901871321382e-02_dp, -2.0772008642700124e-02_dp, &
932 -2.9956272785111183e-02_dp, 2.7218123458554580e-02_dp, -6.6820638736595937e-03_dp, &
933 4.9257007168397831e+00_dp, -3.5217910316373517e+00_dp, -6.7964650224305845e-01_dp, &
934 1.3277332421011259e+00_dp, 2.8052383481804360e-01_dp, -6.1434742292954359e-01_dp, &
935 -1.8565572658205229e-01_dp, 3.4561046137822643e-01_dp, 2.6278957514639034e-01_dp, &
936 -6.1511718055603581e-01_dp, 4.0794606897589142e-01_dp, -1.1640640393281354e-01_dp, &
937 1.0168781521691091e-02_dp, 1.0726490162771071e+01_dp, -1.2573726945225451e+01_dp, &
938 1.2724164436038299e+00_dp, 6.0207845401403643e+00_dp, -1.6036784790091536e+00_dp, &
939 -3.0437006266607063e+00_dp, 9.3830897885006914e-01_dp, 1.9452809069891837e+00_dp, &
940 -5.0977128821033357e-01_dp, -2.3520680072775599e+00_dp, 2.7623531351073121e+00_dp, &
941 -1.3250450645956215e+00_dp, 2.5196945929743420e-01_dp, 2.6913661603602964e+01_dp, &
942 -4.5878078735449954e+01_dp, 2.0881697200238932e+01_dp, 1.8610130455880881e+01_dp, &
943 -2.0410996419992742e+01_dp, -5.3120031731806314e+00_dp, 1.2504024396654433e+01_dp, &
944 4.3865502206845264e+00_dp, -1.4269112044025723e+01_dp, 5.9137624753890998e+00_dp, &
945 3.7147114162202497e+00_dp, -4.1086230435170954e+00_dp, 1.0998347157428636e+00_dp, &
946 7.6888910996094467e+01_dp, -1.7775327311229657e+02_dp, 1.6411788739480767e+02_dp, &
947 -9.6173540032258611e+00_dp, -1.1891208667143621e+02_dp, 8.3816879097966989e+01_dp, &
948 3.2893073687014486e+01_dp, -5.7269860830743504e+01_dp, -3.4020895019064923e+01_dp, &
949 1.1350920564093998e+02_dp, -1.0130944425436361e+02_dp, 4.3976474202829252e+01_dp, &
950 -7.9786030819662486e+00_dp, 3.1097179840531845e+02_dp, -8.4703919274622899e+02_dp, &
951 1.1584149634487351e+03_dp, -8.8086527965485436e+02_dp, 1.9720816629417556e+02_dp, &
952 3.8303494310936651e+02_dp, -5.6094825875548361e+02_dp, 4.3778287553188028e+02_dp, &
953 -2.5506476530794743e+02_dp, 1.3048998666847970e+02_dp, -5.8900820248922564e+01_dp, &
954 1.9052077316170529e+01_dp, -2.9873042920703918e+00_dp, 4.0610663028040472e-01_dp, &
955 -4.8301399895610123e-02_dp, -4.4786160630258885e-02_dp, 1.0238364112541655e-02_dp, &
956 -9.8866021882278981e-03_dp, 1.9164217647153457e-02_dp, -1.7059481339925454e-02_dp, &
957 1.1318694351430274e-02_dp, -8.4011787568469918e-03_dp, 5.7439095201463966e-03_dp, &
958 -2.2151424764168225e-03_dp, 1.2458395701843222e-04_dp, 1.3096563994294966e-04_dp, &
959 1.5621404690580485e+00_dp, -2.8409503600939162e-01_dp, -2.4137581977533118e-01_dp, &
960 9.9141439607062593e-02_dp, -5.3835288846892100e-02_dp, 1.0987263584304191e-01_dp, &
961 -1.0856682700179419e-01_dp, 6.6251217219820219e-02_dp, -4.3024826957833544e-02_dp, &
962 3.1864939035592607e-02_dp, -1.5056601946291184e-02_dp, 2.2374108930218049e-03_dp, &
963 4.7878419253682188e-04_dp, 4.2455143126678196e+00_dp, -1.3179848214982610e+00_dp, &
964 -9.7615902340430949e-01_dp, 6.9415355017497327e-01_dp, -2.7067833562287136e-01_dp, &
965 4.7087097135136075e-01_dp, -5.4436814808071254e-01_dp, 3.1543314880009077e-01_dp, &
966 -1.4717023929479195e-01_dp, 1.1496028816623026e-01_dp, -7.8220850515749757e-02_dp, &
967 2.4387786200859570e-02_dp, -1.6180203432776962e-03_dp, 1.2149461500713047e+01_dp, &
968 -6.2522971044566518e+00_dp, -3.7120029221243351e+00_dp, 4.5879681385727071e+00_dp, &
969 -1.8836178860735326e+00_dp, 1.9211532966550233e+00_dp, -2.6104498488332846e+00_dp, &
970 1.5732843933959362e+00_dp, -2.5885107195900686e-01_dp, -1.4630825125608142e-02_dp, &
971 -1.4387123907875027e-01_dp, 1.1644713286818151e-01_dp, -2.4631995705449012e-02_dp, &
972 4.0517086212606905e+01_dp, -3.4146852052539010e+01_dp, -1.2144458368633835e+01_dp, &
973 3.3721864721439921e+01_dp, -2.0892740591813197e+01_dp, 9.9040393481778999e+00_dp, &
974 -1.0775109641610795e+01_dp, 7.1502845688098153e+00_dp, 3.4412821970099596e+00_dp, &
975 -9.1170213254974826e+00_dp, 6.5769358742518946e+00_dp, -2.2907036885136565e+00_dp, &
976 3.3510039300298694e-01_dp, 1.8014990635510685e+02_dp, -2.6175603836231346e+02_dp, &
977 4.1474134976042123e+01_dp, 2.9935351196164999e+02_dp, -4.4486623371446325e+02_dp, &
978 3.1189315679201121e+02_dp, -4.5857776124608712e+01_dp, -1.9606266882144880e+02_dp, &
979 3.3823280092634457e+02_dp, -3.5026730689155517e+02_dp, 2.4561561076464852e+02_dp, &
980 -1.0634490523999061e+02_dp, 2.1350371455168180e+01_dp, 3.4511581153937105e+00_dp, &
981 -4.6074986504725718e-01_dp, -4.1793306232973060e-01_dp, 1.1447565909224683e-01_dp, &
982 -9.1392964448968397e-02_dp, 1.8219557370192899e-01_dp, -1.6634354182093192e-01_dp, &
983 1.0757299759560938e-01_dp, -7.7683124155527070e-02_dp, 5.4245972534987336e-02_dp/)
984 REAL(kind=dp), DIMENSION(13, 12, 4), PARAMETER :: &
985 coefdata = reshape((/c01, c02/), (/13, 12, 4/))
986
987 INTEGER :: irange
988
989 IF (rc <= 2.0000000000000000e+00_dp) rc = 2.0000000000000000e+00_dp
990 IF (rc >= 1.3773078918457031e+03_dp) rc = 1.3773078918457031e+03_dp
991 IF (rc >= 2.0000000000000000e+00_dp .AND. rc <= 6.1993729896731562e+00_dp) THEN
992 irange = 1
993 l_b = 2.0000000000000000e+00_dp
994 u_b = 6.1993729896731562e+00_dp
995 END IF
996 IF (rc >= 6.1993729896731562e+00_dp .AND. rc <= 6.7432603912821875e+01_dp) THEN
997 irange = 2
998 l_b = 6.1993729896731562e+00_dp
999 u_b = 6.7432603912821875e+01_dp
1000 END IF
1001 IF (rc >= 6.7432603912821875e+01_dp .AND. rc <= 4.2684148594526539e+02_dp) THEN
1002 irange = 3
1003 l_b = 6.7432603912821875e+01_dp
1004 u_b = 4.2684148594526539e+02_dp
1005 END IF
1006 IF (rc >= 4.2684148594526539e+02_dp .AND. rc <= 1.3773078918457031e+03_dp) THEN
1007 irange = 4
1008 l_b = 4.2684148594526539e+02_dp
1009 u_b = 1.3773078918457031e+03_dp
1010 END IF
1011
1012 fit_coef(1:13, 1:12) = coefdata(1:13, 1:12, irange)
1013
1014 END SUBROUTINE get_fit_coef_k06
1015
1016! **************************************************************************************************
1017!> \brief ...
1018!> \param Rc ...
1019!> \param L_b ...
1020!> \param U_b ...
1021!> \param fit_coef ...
1022! **************************************************************************************************
1023 SUBROUTINE get_fit_coef_k07(Rc, L_b, U_b, fit_coef)
1024 REAL(kind=dp) :: rc, l_b, u_b
1025 REAL(kind=dp), DIMENSION(13, 14) :: fit_coef
1026
1027 REAL(kind=dp), DIMENSION(328), PARAMETER :: c02 = (/-4.1754731782680632e-02_dp, &
1028 6.9637423606893978e-03_dp, 9.8317123038661812e-04_dp, 9.3141247748056060e+00_dp, &
1029 -3.3034187378384154e+00_dp, -2.3099777024265484e+00_dp, 1.9795050912537626e+00_dp, &
1030 -8.5251482053787397e-01_dp, 1.2153039011546896e+00_dp, -1.4541564892554977e+00_dp, &
1031 9.3955684867600964e-01_dp, -4.4317426042703595e-01_dp, 2.5918306441105204e-01_dp, &
1032 -1.4364447330590904e-01_dp, 3.6774610849770517e-02_dp, 3.7984486570491994e-05_dp, &
1033 2.6566070447108867e+01_dp, -1.4519054730075402e+01_dp, -8.2332223680110719e+00_dp, &
1034 1.1291093707590436e+01_dp, -5.2875112740441601e+00_dp, 4.8057488315402921e+00_dp, &
1035 -6.2898759890537734e+00_dp, 4.2232285921976249e+00_dp, -1.0596997995690820e+00_dp, &
1036 -1.4117925460764269e-01_dp, 6.8927735632697190e-02_dp, 1.2553388326253440e-02_dp, &
1037 1.7986555726404723e-03_dp, 8.9097724809361893e+01_dp, -7.5812556261643451e+01_dp, &
1038 -2.6441251265412269e+01_dp, 7.6120519989047565e+01_dp, -5.0397684172251800e+01_dp, &
1039 2.5525680254727302e+01_dp, -2.5376314020646312e+01_dp, 1.7957148357612915e+01_dp, &
1040 3.9328335707666944e+00_dp, -1.7750527732846916e+01_dp, 1.4718739531687156e+01_dp, &
1041 -6.0048241368590292e+00_dp, 1.0761088627700097e+00_dp, 4.0097466825142169e+02_dp, &
1042 -5.7103639425422421e+02_dp, 7.4021376601505452e+01_dp, 6.6329196339694579e+02_dp, &
1043 -9.6191980645397257e+02_dp, 6.7184174656773678e+02_dp, -1.1693581450498789e+02_dp, &
1044 -3.7933371221780379e+02_dp, 6.7374230959220836e+02_dp, -7.0914904191998016e+02_dp, &
1045 5.0560984367040209e+02_dp, -2.2277301564215111e+02_dp, 4.5529917350575040e+01_dp, &
1046 3.2067597521812030e+00_dp, -3.3444886966378912e-01_dp, -3.0363926355787030e-01_dp, &
1047 8.5884885141460449e-02_dp, -7.6865383844994903e-02_dp, 1.3715123754384689e-01_dp, &
1048 -1.2901078408577635e-01_dp, 9.2959485070991041e-02_dp, -6.8861591314818962e-02_dp, &
1049 4.5033224293921377e-02_dp, -1.7988390790948459e-02_dp, 2.2599225511603246e-03_dp, &
1050 5.2747450486550899e-04_dp, 5.6016069269588744e+00_dp, -1.1356436841662141e+00_dp, &
1051 -9.3290577892707627e-01_dp, 4.6398361532553123e-01_dp, -2.4608924526924877e-01_dp, &
1052 4.5627545506491052e-01_dp, -4.7134496624771294e-01_dp, 3.1401691722393993e-01_dp, &
1053 -2.0538932052729497e-01_dp, 1.3700800483099954e-01_dp, -5.9637767470295158e-02_dp, &
1054 8.4168325815202547e-03_dp, 1.8074844968448427e-03_dp, 1.3276336253382626e+01_dp, &
1055 -4.5209338962192493e+00_dp, -3.3197028028590223e+00_dp, 2.4854654336765201e+00_dp, &
1056 -1.0573849001152691e+00_dp, 1.7194404658483133e+00_dp, -1.9805547924035773e+00_dp, &
1057 1.2692361653686275e+00_dp, -6.7728308285586858e-01_dp, 4.3924148750555142e-01_dp, &
1058 -2.2613532847246806e-01_dp, 4.7779438733642737e-02_dp, 2.8573307488057543e-03_dp, &
1059 3.6866579094980089e+01_dp, -1.8921333920638745e+01_dp, -1.1800048250915063e+01_dp, &
1060 1.3436395189426809e+01_dp, -5.6772945221557212e+00_dp, 6.5245530820654025e+00_dp, &
1061 -8.4720689804565641e+00_dp, 5.4939590398921556e+00_dp, -1.9352146435742505e+00_dp, &
1062 7.9538222420964921e-01_dp, -5.7375841633563951e-01_dp, 2.1793383428406723e-01_dp, &
1063 -1.7879956499238674e-02_dp, 1.1861871394764727e+02_dp, -8.9749853349748633e+01_dp, &
1064 -4.1428506082732056e+01_dp, 8.1467781253253762e+01_dp, -4.2508182713086420e+01_dp, &
1065 2.7648470829113410e+01_dp, -3.6879292077457670e+01_dp, 2.5999309174132279e+01_dp, &
1066 -1.8359836135406524e+00_dp, -8.8433081142871490e+00_dp, 5.8531631602299123e+00_dp, &
1067 -1.6443587665309087e+00_dp, 2.0950921411586954e-01_dp, 4.7136803623790843e+02_dp, &
1068 -5.4268938167235092e+02_dp, -9.9473364877013339e+01_dp, 6.2005028905297843e+02_dp, &
1069 -5.1239886834398976e+02_dp, 2.1442818406738263e+02_dp, -1.2285032837677923e+02_dp, &
1070 7.7219547317156128e+01_dp, 9.0809838346683208e+01_dp, -2.3266758546949035e+02_dp, &
1071 2.0624116217858705e+02_dp, -9.2082040963793673e+01_dp, 1.7627448485288181e+01_dp, &
1072 2.8205675067555067e+03_dp, -5.3084226900396279e+03_dp, 2.4278553483206338e+03_dp, &
1073 5.7509013750262075e+03_dp, -1.2945226216946787e+04_dp, 1.2536477012596763e+04_dp, &
1074 -3.5209404505394255e+03_dp, -8.8941447689752422e+03_dp, 1.7502570418682619e+04_dp, &
1075 -1.8136983461264608e+04_dp, 1.2199553060977927e+04_dp, -5.0398280865362967e+03_dp, &
1076 9.7440960962504107e+02_dp, 3.8829047042903236e-01_dp, -2.0369951393868561e-08_dp, &
1077 -4.2760469054619193e-02_dp, 3.8145842955685037e-02_dp, -2.3458707726265494e-02_dp, &
1078 -3.4029805428294910e-02_dp, 1.4008388453470724e-01_dp, -2.5114912377498655e-01_dp, &
1079 2.8125815091946693e-01_dp, -1.8225356246487157e-01_dp, 3.1654580106274942e-02_dp, &
1080 3.9862347606661845e-02_dp, -2.1625916286328855e-02_dp, 1.4602532069412997e+00_dp, &
1081 -1.1343456594384706e-07_dp, -2.3779548855070412e-01_dp, 2.1213231958215728e-01_dp, &
1082 -1.1477625538424836e-01_dp, -2.1742813069917741e-01_dp, 8.0954389183928199e-01_dp, &
1083 -1.3959867402492177e+00_dp, 1.4874447805393780e+00_dp, -8.5261195435033799e-01_dp, &
1084 -4.8377391586045737e-03_dp, 3.3544213557537367e-01_dp, -1.5177913624259395e-01_dp, &
1085 3.7908369875064492e+00_dp, -4.8755632999722838e-07_dp, -1.0201467453462310e+00_dp, &
1086 9.1004690794757048e-01_dp, -3.9887236631988443e-01_dp, -1.1008475868239735e+00_dp, &
1087 3.6443712251015832e+00_dp, -5.9545892934730142e+00_dp, 5.8697667029529539e+00_dp, &
1088 -2.6303342326824413e+00_dp, -1.1564907871129693e+00_dp, 2.1468635303100569e+00_dp, &
1089 -8.4605567363145651e-01_dp, 1.0098487510998055e+01_dp, -2.0928481135752870e-06_dp, &
1090 -4.3686670908442755e+00_dp, 3.8971531298032169e+00_dp, -1.1974685442041848e+00_dp, &
1091 -5.6317683508763983e+00_dp, 1.6448696769067997e+01_dp, -2.5044320019174183e+01_dp, &
1092 2.1867904128895628e+01_dp, -5.0681337141096767e+00_dp, -1.1640616685797564e+01_dp, &
1093 1.3304985336172242e+01_dp, -4.7450643250946332e+00_dp, 3.0122997452208132e+01_dp, &
1094 -9.8187954584462908e-06_dp, -2.0428668438494554e+01_dp, 1.8223634263690474e+01_dp, &
1095 -2.1117881276751187e+00_dp, -3.2598057750235725e+01_dp, 8.1733300202487357e+01_dp, &
1096 -1.1128759913299137e+02_dp, 7.5228856030747480e+01_dp, 2.4248090620667043e+01_dp, &
1097 -1.0465160278140920e+02_dp, 9.2524007787235988e+01_dp, -3.0355195426460511e+01_dp, &
1098 1.0868874503660004e+02_dp, -5.7245956587297789e-05_dp, -1.1851742957082871e+02_dp, &
1099 1.0572360394609667e+02_dp, 2.3152742557056847e+01_dp, -2.5259994940936937e+02_dp, &
1100 5.0697463610979355e+02_dp, -5.3877942879889804e+02_dp, 8.2107193792851831e+01_dp, &
1101 7.1782122188306062e+02_dp, -1.1851552842814824e+03_dp, 8.7548914212122679e+02_dp, &
1102 -2.6543645341234554e+02_dp, 5.6870599977970653e+02_dp, -5.5564345141122099e-04_dp, &
1103 -1.1496133162535530e+03_dp, 1.0255182144253201e+03_dp, 1.1270281983242282e+03_dp, &
1104 -4.0567389638844206e+03_dp, 4.6523831299513085e+03_dp, 9.3327881111406134e+02_dp, &
1105 -1.3616969369427763e+04_dp, 2.6755200078585309e+04_dp, -2.9000034659790475e+04_dp, &
1106 1.7777250492541923e+04_dp, -4.8299772192891851e+03_dp, 3.2824512335777354e+00_dp, &
1107 -1.9156078888589085e-07_dp, -4.0197908004871374e-01_dp, 3.5859795441503123e-01_dp, &
1108 -2.1359817735657924e-01_dp, -3.3236257745885156e-01_dp, 1.3306435836390915e+00_dp, &
1109 -2.3614269209662528e+00_dp, 2.6114918833282528e+00_dp, -1.6438816802045650e+00_dp, &
1110 2.1906671723756974e-01_dp, 4.2427429641952058e-01_dp, -2.1705100617360901e-01_dp, &
1111 5.8637162691723583e+00_dp, -6.7787456845426279e-07_dp, -1.4194162820318337e+00_dp, &
1112 1.2662274814594010e+00_dp, -6.0649584934093481e-01_dp, -1.4391376533593900e+00_dp, &
1113 4.9819389045221047e+00_dp, -8.3199774717421811e+00_dp, 8.4774621253096996e+00_dp, &
1114 -4.2614106061434578e+00_dp, -9.5354015733314812e-01_dp, 2.5818521234785710e+00_dp, &
1115 -1.0661797920012148e+00_dp, 1.4340890738155760e+01_dp, -2.8142212154235703e-06_dp, &
1116 -5.8799168063088727e+00_dp, 5.2453046203869578e+00_dp, -1.8855227779627646e+00_dp, &
1117 -7.0881291395155026e+00_dp, 2.1731282085407450e+01_dp, -3.4078471876229919e+01_dp, &
1118 3.1408179116155015e+01_dp, -1.0416315289376390e+01_dp, -1.1856223667791461e+01_dp, &
1119 1.5589813689555845e+01_dp, -5.7586314676712993e+00_dp, 4.1438693013073269e+01_dp, &
1120 -1.2431014094133345e-05_dp, -2.5901135444548817e+01_dp, 2.3105496129919860e+01_dp, &
1121 -4.7050262856885112e+00_dp, -3.7691356222507558e+01_dp, 1.0121215124632137e+02_dp, &
1122 -1.4560344087059264e+02_dp, 1.1301980711089153e+02_dp, 5.8816837789371679e-01_dp, &
1123 -1.0167168279243205e+02_dp, 9.8807325076452315e+01_dp, -3.3542146164453939e+01_dp, &
1124 1.4116111924805350e+02_dp, -6.3883119768052977e-05_dp, -1.3258808163442185e+02_dp, &
1125 1.1827603870174343e+02_dp, 3.8519512221529113e+00_dp, -2.4308579826673557e+02_dp, &
1126 5.5187570135781425e+02_dp, -6.8463116272698392e+02_dp, 3.3797300275487532e+02_dp, &
1127 4.1534125658831630e+02_dp, -9.4503311947133648e+02_dp, 7.5927098696013218e+02_dp, &
1128 -2.3947738391807886e+02_dp, 6.1740638530300282e+02_dp, -4.4451581514866301e-04_dp, &
1129 -9.1747212798222540e+02_dp, 8.1842617649364138e+02_dp, 3.7908245119295702e+02_dp, &
1130 -2.3133450738754764e+03_dp, 4.0499698509594637e+03_dp, -3.3872426487702342e+03_dp, &
1131 -1.6589887942666303e+03_dp, 9.1305340362382631e+03_dp, -1.2658983382111219e+04_dp, &
1132 8.7808323210291001e+03_dp, -2.5756185231754689e+03_dp, 4.5291383930690972e+03_dp, &
1133 -6.0796509451681840e-03_dp, -1.2729055327721569e+04_dp, 1.1355442435730931e+04_dp, &
1134 1.9420434975201191e+04_dp, -5.7157101053784776e+04_dp, 4.1961441009360387e+04_dp, &
1135 8.2301170473632315e+04_dp, -2.9848869860082364e+05_dp, 4.7636758440468600e+05_dp, &
1136 -4.6114819297381287e+05_dp, 2.6149542649940349e+05_dp, -6.7032773576863750e+04_dp/)
1137 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/2.6444089699692058e-01_dp, &
1138 -1.5470504999202458e-01_dp, -4.6856578935403119e-02_dp, 2.5042624726789489e-02_dp, &
1139 1.9131665599864848e-02_dp, -2.9696778036559586e-03_dp, -3.7556543742271655e-03_dp, &
1140 1.6266657874186815e-04_dp, 4.6360340975112090e-03_dp, -7.8332396642386976e-03_dp, &
1141 1.9496480970880425e-03_dp, 3.0433369974490975e-03_dp, -1.5191543419188006e-03_dp, &
1142 8.7800372636622848e-01_dp, -6.2037241128343046e-01_dp, -8.1566349888960304e-02_dp, &
1143 1.3641008969898111e-01_dp, 3.1936419084862153e-02_dp, -3.7386849280010785e-02_dp, &
1144 -1.7482245191148163e-03_dp, 9.2077758125164444e-03_dp, 1.5212614028576979e-02_dp, &
1145 -4.4026339324134335e-02_dp, 3.6890098749264175e-02_dp, -1.1864460175613026e-02_dp, &
1146 8.4517974895171439e-04_dp, 1.7847969899964811e+00_dp, -1.6779481459284062e+00_dp, &
1147 2.0639156665955180e-01_dp, 4.1809341533061167e-01_dp, -1.2015867619368460e-01_dp, &
1148 -1.3848385742735578e-01_dp, 7.1455146740269884e-02_dp, 4.7031832850392787e-02_dp, &
1149 -2.3224446381251464e-02_dp, -6.5420768433947313e-02_dp, 8.5668141830795880e-02_dp, &
1150 -4.2757220494944660e-02_dp, 8.2228259261456181e-03_dp, 3.3330019221471758e+00_dp, &
1151 -4.2118312167575729e+00_dp, 1.6976220198254712e+00_dp, 7.5697277244499039e-01_dp, &
1152 -8.6691818383277741e-01_dp, -1.3679549434400173e-01_dp, 4.0739753850692434e-01_dp, &
1153 1.3289608237476967e-02_dp, -2.0557302626129631e-01_dp, 1.3788895525784092e-02_dp, &
1154 1.3789054262037703e-01_dp, -9.7837925769756875e-02_dp, 2.2630562602574813e-02_dp, &
1155 6.2205176319490292e+00_dp, -1.0220190906809847e+01_dp, 7.1086559724074778e+00_dp, &
1156 -3.5476394951841800e-01_dp, -2.7983732776043846e+00_dp, 1.1308103572081498e+00_dp, &
1157 9.1862692160779713e-01_dp, -6.5116275075965147e-01_dp, -5.4845428679228692e-01_dp, &
1158 8.5393419777208546e-01_dp, -4.0098327169829756e-01_dp, 5.2146858458048319e-02_dp, &
1159 9.6927653738469108e-03_dp, 1.2217423515701739e+01_dp, -2.4726297120084297e+01_dp, &
1160 2.4311598260589175e+01_dp, -1.0091505606342285e+01_dp, -3.4422060817821842e+00_dp, &
1161 5.9067475855100486e+00_dp, -1.1792990447941114e+00_dp, -1.9379521455346627e+00_dp, &
1162 8.8478642486008252e-01_dp, 1.0620423409368160e+00_dp, -1.3724468274695665e+00_dp, &
1163 6.3778052609253422e-01_dp, -1.1561528817453086e-01_dp, 2.9227809843211485e+01_dp, &
1164 -6.7776067894817842e+01_dp, 8.1967717455976384e+01_dp, -5.5738618729830407e+01_dp, &
1165 1.4735306844058032e+01_dp, 8.5839415419898337e+00_dp, -8.4661714956724126e+00_dp, &
1166 6.0685765490240084e-01_dp, 2.1941720347394860e+00_dp, -2.9568623894341339e-01_dp, &
1167 -1.1485475801649907e+00_dp, 8.0239930035514562e-01_dp, -1.7857991241725557e-01_dp, &
1168 2.1695269471571570e+00_dp, -1.3341984989631275e+00_dp, -3.4389129585042044e-01_dp, &
1169 2.4095334703936172e-01_dp, 1.4150794439393821e-01_dp, -4.3049372222392836e-02_dp, &
1170 -2.6067000342438331e-02_dp, 5.5273699894245716e-03_dp, 4.3837090204711077e-02_dp, &
1171 -8.5402788417645176e-02_dp, 4.5304897368381669e-02_dp, 5.5864340640867909e-03_dp, &
1172 -7.5526934617299851e-03_dp, 2.8719411494837974e+00_dp, -2.6619899142189949e+00_dp, &
1173 2.1544205537663841e-01_dp, 7.3077140572600108e-01_dp, -1.1791677396871071e-01_dp, &
1174 -2.6552626743236452e-01_dp, 7.5373709525561841e-02_dp, 8.7066019221526805e-02_dp, &
1175 3.0676066663530050e-03_dp, -1.7129353323714722e-01_dp, 2.1354379443237309e-01_dp, &
1176 -1.1821773827373153e-01_dp, 2.5969541945324099e-02_dp, 4.6027595145407618e+00_dp, &
1177 -6.3492168966396259e+00_dp, 2.6044413599352203e+00_dp, 1.5061915998878004e+00_dp, &
1178 -1.3747926425853620e+00_dp, -4.7941746387017842e-01_dp, 6.4441114269605160e-01_dp, &
1179 1.7317222818454989e-01_dp, -3.6457960453035143e-01_dp, 2.6412345558134549e-02_dp, &
1180 1.7751675692818278e-01_dp, -1.2546750431443543e-01_dp, 3.0158242944704584e-02_dp, &
1181 8.2140137621645088e+00_dp, -1.5156353495817562e+01_dp, 1.0947240829307352e+01_dp, &
1182 4.4625153473055351e-01_dp, -5.1300450604063039e+00_dp, 1.1684074353510967e+00_dp, &
1183 2.1518827109078962e+00_dp, -7.8884326600074284e-01_dp, -1.2573516650555800e+00_dp, &
1184 1.0661112404200725e+00_dp, -2.4342415056009679e-02_dp, -2.7206985827086660e-01_dp, &
1185 9.0849357725157689e-02_dp, 1.5901440158546173e+01_dp, -3.5870927834752429e+01_dp, &
1186 3.7033971510712249e+01_dp, -1.3426281591978212e+01_dp, -9.4793547969558798e+00_dp, &
1187 1.1009953605607825e+01_dp, 2.7169499451768997e-01_dp, -5.1938101275141140e+00_dp, &
1188 5.4398901692303922e-02_dp, 5.2939817053415910e+00_dp, -4.9957868625718627e+00_dp, &
1189 2.0763539253174690e+00_dp, -3.4840813951986949e-01_dp, 3.5630385206267455e+01_dp, &
1190 -8.9470008341766714e+01_dp, 1.1468454951859270e+02_dp, -7.9123579819767599e+01_dp, &
1191 1.4519114506197292e+01_dp, 2.4567610944439050e+01_dp, -2.0756718052404963e+01_dp, &
1192 -2.2859415630517427e-01_dp, 1.0041311285714274e+01_dp, -5.9487245509897209e+00_dp, &
1193 1.8350813953697698e-01_dp, 1.1110319845170011e+00_dp, -3.5005274800008057e-01_dp, &
1194 1.3147420367988465e+02_dp, -3.3027880006216265e+02_dp, 4.4490187241967470e+02_dp, &
1195 -3.6553068151822038e+02_dp, 1.7159265183702419e+02_dp, -1.6947279016681499e+01_dp, &
1196 -3.1006819193390971e+01_dp, 1.4450351194202961e+01_dp, 3.0038030298188554e+00_dp, &
1197 -2.7207016900807592e+00_dp, -1.8280868626869793e+00_dp, 2.0065403080939705e+00_dp, &
1198 -5.1840780008942378e-01_dp, 3.4505624259329698e-01_dp, -8.8324180899744836e-02_dp, &
1199 -4.6110672571305959e-02_dp, 6.0246988024288736e-03_dp, 1.1793333275048282e-02_dp, &
1200 -8.0133449953961704e-05_dp, -5.3349402958927537e-03_dp, 8.7754046282992803e-04_dp, &
1201 1.8165729377018357e-03_dp, -1.2767142351947607e-05_dp, -1.4303468914768861e-03_dp, &
1202 9.3816945542221544e-04_dp, -2.0328540292083126e-04_dp, 1.2346521989036530e+00_dp, &
1203 -4.3285647708194658e-01_dp, -1.7305878733158908e-01_dp, 7.6461063018067821e-02_dp, &
1204 5.3040050433052502e-02_dp, -2.1338549422926928e-02_dp, -2.7841143266162320e-02_dp, &
1205 1.3809276004079121e-02_dp, 1.2835193248531657e-02_dp, -1.0209736277395076e-02_dp, &
1206 -2.3155639359263330e-03_dp, 4.4602013911147409e-03_dp, -1.2940505553950435e-03_dp, &
1207 2.9028045455595000e+00_dp, -1.5585305439459514e+00_dp, -3.5847481830556316e-01_dp, &
1208 4.6103449323803292e-01_dp, 1.1117795227399657e-01_dp, -1.7456928361614407e-01_dp, &
1209 -7.1484101037929793e-02_dp, 9.9321509433804411e-02_dp, 5.0234375484831069e-02_dp, &
1210 -1.0773630683561888e-01_dp, 5.3437356912495085e-02_dp, -6.4215993294399389e-03_dp, &
1211 -1.6157910177500984e-03_dp, 6.6668490392315718e+00_dp, -5.3944853379232089e+00_dp, &
1212 -1.7333398494242408e-01_dp, 2.0362320110314558e+00_dp, -2.0552463518558933e-01_dp, &
1213 -8.4623002001901582e-01_dp, 6.6284256825966503e-02_dp, 4.8869806045351949e-01_dp, &
1214 9.5173683686716991e-03_dp, -5.5847228905099633e-01_dp, 5.0444583260989662e-01_dp, &
1215 -1.9696925294729772e-01_dp, 3.0305983725112742e-02_dp, 1.6122832821281406e+01_dp, &
1216 -1.8919243474316684e+01_dp, 4.0995726503647489e+00_dp, 7.3012627484186252e+00_dp, &
1217 -4.1313958700040532e+00_dp, -2.5095528548141255e+00_dp, 2.1272122489935632e+00_dp, &
1218 1.5307151716278145e+00_dp, -1.6669783074449143e+00_dp, -8.7588270967422077e-01_dp, &
1219 1.9886177370819973e+00_dp, -1.1470721637269370e+00_dp, 2.4363731014453902e-01_dp, &
1220 4.2621032980490320e+01_dp, -7.0376198214321079e+01_dp, 3.9171087201361452e+01_dp, &
1221 1.5272113738363034e+01_dp, -3.0728448719316823e+01_dp, 6.1171990910524778e+00_dp, &
1222 1.2221131447314844e+01_dp, -3.0894759011925577e+00_dp, -1.2362510396133640e+01_dp, &
1223 1.3678769893431953e+01_dp, -5.7528463567135004e+00_dp, 5.7726933215022425e-01_dp, &
1224 1.8772765681804807e-01_dp, 1.3491831737342127e+02_dp, -2.9806012349757901e+02_dp, &
1225 2.9841543160447191e+02_dp, -1.1170387310363532e+02_dp, -8.2203315408406809e+01_dp, &
1226 1.3165976851638894e+02_dp, -6.6112701554090933e+01_dp, 3.9695001548314552e+00_dp, &
1227 2.4844454458504051e+00_dp, 1.4202168620692383e+01_dp, -1.7455344455966326e+01_dp, &
1228 8.4672335324952464e+00_dp, -1.6173714685616287e+00_dp, 2.8828052690184736e+00_dp, &
1229 -8.0317040808415729e-01_dp, -3.9338075068484524e-01_dp, 7.9426195162603297e-02_dp, &
1230 1.0701666183071350e-01_dp, -1.0894403804546973e-02_dp, -5.0613235156913752e-02_dp, &
1231 1.2364103801681792e-02_dp, 1.8715420448839691e-02_dp, -3.9552027806400514e-03_dp, &
1232 -1.2146377166990881e-02_dp, 9.1425474616888842e-03_dp, -2.1144232652572591e-03_dp, &
1233 4.5886049198840508e+00_dp, -2.3077795883390579e+00_dp, -6.5366859610516070e-01_dp, &
1234 6.2765642178924896e-01_dp, 2.3574184645147922e-01_dp, -2.1996460901076612e-01_dp, &
1235 -1.4269945382294638e-01_dp, 1.2419991538546622e-01_dp, 8.4407863785150652e-02_dp, &
1236 -1.1735824544474278e-01_dp, 2.7653602309322248e-02_dp, 1.4931997736797792e-02_dp, &
1237 -6.8733985726516520e-03_dp, 9.5514395283650053e+00_dp, -7.7961380998560772e+00_dp, &
1238 -6.5864480154455607e-01_dp, 2.9590017002588471e+00_dp, 7.0736288843595091e-02_dp, &
1239 -1.2427968660363538e+00_dp, -1.3092708858258839e-01_dp, 6.9777177541844704e-01_dp, &
1240 1.9860466096286125e-01_dp, -8.4883928953606491e-01_dp, 6.1233781394136422e-01_dp, &
1241 -1.8682451466359717e-01_dp, 1.8956260629113059e-02_dp, 2.2681504235495581e+01_dp, &
1242 -2.6769556369521098e+01_dp, 3.8421035220956412e+00_dp, 1.1264519302530468e+01_dp, &
1243 -4.1146418985136082e+00_dp, -4.6910373462028936e+00_dp, 2.0744686686393647e+00_dp, &
1244 2.7897820660673656e+00_dp, -1.2053952427752199e+00_dp, -2.8742770555552286e+00_dp, &
1245 3.6128431894307571e+00_dp, -1.7420891025487704e+00_dp, 3.2880124209784622e-01_dp, &
1246 5.9399762273351683e+01_dp, -9.6606057719920145e+01_dp, 4.2613160864105112e+01_dp, &
1247 3.3344679979439910e+01_dp, -3.7404106629648304e+01_dp, -5.9153100847618516e+00_dp, &
1248 1.9306590740934482e+01_dp, 4.0805389526686682e+00_dp, -1.7468356988844324e+01_dp, &
1249 6.0010093546906882e+00_dp, 6.3096748376840859e+00_dp, -6.0062912235746344e+00_dp, &
1250 1.5620124014024448e+00_dp, 1.7618641024115868e+02_dp, -3.8264513931144631e+02_dp, &
1251 3.2569027453836890e+02_dp, -1.0595168890069804e+01_dp, -2.1449524316195871e+02_dp, &
1252 1.4019517892817902e+02_dp, 4.6943857262423244e+01_dp, -7.6432309148664586e+01_dp, &
1253 -4.8967291294613943e+01_dp, 1.4017406628314595e+02_dp, -1.1415196135040772e+02_dp, &
1254 4.5334643929331783e+01_dp, -7.5061186786457128e+00_dp, 7.3128032527974494e+02_dp, &
1255 -1.8965334349732912e+03_dp, 2.4281313649625095e+03_dp, -1.6963332283179839e+03_dp, &
1256 2.7274665872075781e+02_dp, 7.8978365574188206e+02_dp, -1.0283798449446413e+03_dp, &
1257 7.3549301335607697e+02_dp, -3.7290787690851232e+02_dp, 1.4467625159798999e+02_dp, &
1258 -4.0346760405500355e+01_dp, 5.3828624895447126e+00_dp, 3.3309708393995346e-01_dp, &
1259 3.8021272284375796e-01_dp, -3.5807245218190974e-02_dp, -3.3016407213619321e-02_dp, &
1260 8.2764560291011275e-03_dp, -8.3775496696670056e-03_dp, 1.4694568348773565e-02_dp, &
1261 -1.3633406730491519e-02_dp, 9.9748664766613742e-03_dp, -7.5058053308662068e-03_dp, &
1262 4.8898215686446114e-03_dp, -1.9376750420256020e-03_dp, 2.4578500454910593e-04_dp, &
1263 5.4135419394418854e-05_dp, 1.4158828018382148e+00_dp, -1.9428018520695578e-01_dp, &
1264 -1.6862783721434119e-01_dp, 6.3605882624844068e-02_dp, -4.3227688915331915e-02_dp, &
1265 7.9049443390899574e-02_dp, -7.7603914841223490e-02_dp, 5.3822690965089216e-02_dp, &
1266 -3.7801490871684225e-02_dp, 2.4957462270798092e-02_dp, -1.0325755989873857e-02_dp, &
1267 1.3457500127744759e-03_dp, 3.1573603989801897e-04_dp, 3.6037055399201039e+00_dp, &
1268 -8.0542869559173069e-01_dp, -6.3866068626924610e-01_dp, 3.6581611775536099e-01_dp, &
1269 -1.8032325305523136e-01_dp, 3.1726528871551424e-01_dp, -3.4024223010999666e-01_dp, &
1270 2.2409139887689597e-01_dp, -1.3723892898385098e-01_dp, 9.0749009387187926e-02_dp/)
1271 REAL(kind=dp), DIMENSION(13, 14, 4), PARAMETER :: &
1272 coefdata = reshape((/c01, c02/), (/13, 14, 4/))
1273
1274 INTEGER :: irange
1275
1276 IF (rc <= 2.0000000000000000e+00_dp) rc = 2.0000000000000000e+00_dp
1277 IF (rc >= 3.0293891906738281e+03_dp) rc = 3.0293891906738281e+03_dp
1278 IF (rc >= 2.0000000000000000e+00_dp .AND. rc <= 1.8737646720921180e+01_dp) THEN
1279 irange = 1
1280 l_b = 2.0000000000000000e+00_dp
1281 u_b = 1.8737646720921180e+01_dp
1282 END IF
1283 IF (rc >= 1.8737646720921180e+01_dp .AND. rc <= 1.6546209696020762e+02_dp) THEN
1284 irange = 2
1285 l_b = 1.8737646720921180e+01_dp
1286 u_b = 1.6546209696020762e+02_dp
1287 END IF
1288 IF (rc >= 1.6546209696020762e+02_dp .AND. rc <= 9.7857476979193905e+02_dp) THEN
1289 irange = 3
1290 l_b = 1.6546209696020762e+02_dp
1291 u_b = 9.7857476979193905e+02_dp
1292 END IF
1293 IF (rc >= 9.7857476979193905e+02_dp .AND. rc <= 3.0293891906738281e+03_dp) THEN
1294 irange = 4
1295 l_b = 9.7857476979193905e+02_dp
1296 u_b = 3.0293891906738281e+03_dp
1297 END IF
1298
1299 fit_coef(1:13, 1:14) = coefdata(1:13, 1:14, irange)
1300
1301 END SUBROUTINE get_fit_coef_k07
1302
1303! **************************************************************************************************
1304!> \brief ...
1305!> \param Rc ...
1306!> \param L_b ...
1307!> \param U_b ...
1308!> \param fit_coef ...
1309! **************************************************************************************************
1310 SUBROUTINE get_fit_coef_k08(Rc, L_b, U_b, fit_coef)
1311 REAL(kind=dp) :: rc, l_b, u_b
1312 REAL(kind=dp), DIMENSION(13, 16) :: fit_coef
1313
1314 REAL(kind=dp), DIMENSION(32), PARAMETER :: c03 = (/-8.9013840273255062e+02_dp, &
1315 4.4450456221108550e+02_dp, 5.3174323393059228e+02_dp, -1.2592882857295644e+03_dp, &
1316 1.0557554278716216e+03_dp, -3.5046238641220043e+02_dp, 1.2930757301899466e+03_dp, &
1317 1.1516939780618657e-03_dp, -1.6608759395740256e+03_dp, 1.4462154462223984e+03_dp, &
1318 3.8507708508937276e+02_dp, -3.0516713114026320e+03_dp, 5.3203711059143534e+03_dp, &
1319 -4.6213330077407009e+03_dp, -1.3283580700058483e+03_dp, 1.0430200674761059e+04_dp, &
1320 -1.5296967080846491e+04_dp, 1.1151529076955769e+04_dp, -3.4549406522575855e+03_dp, &
1321 9.4857715069098995e+03_dp, 1.5676078832282545e-02_dp, -2.2530834004834767e+04_dp, &
1322 1.9619149559132464e+04_dp, 2.5759373028729122e+04_dp, -7.7020575840804217e+04_dp, &
1323 6.3201727988014049e+04_dp, 6.8163632238120859e+04_dp, -2.9053341169350612e+05_dp, &
1324 4.7359098571404989e+05_dp, -4.6694609866564447e+05_dp, 2.7229709401159501e+05_dp, &
1325 -7.2557173401722219e+04_dp/)
1326 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/2.7310961221813451e-01_dp, &
1327 -9.5711109831144323e-02_dp, -2.5960297888544426e-02_dp, 7.7258590328211849e-03_dp, &
1328 5.1368496261163018e-03_dp, -1.1234374052788891e-03_dp, -1.0608869644587510e-03_dp, &
1329 4.0213920388401469e-04_dp, 3.0775150301006290e-04_dp, -5.8915574825377335e-05_dp, &
1330 -2.3576009852965474e-04_dp, 1.4943422000932038e-04_dp, -2.7193575609055488e-05_dp, &
1331 9.1301533296989179e-01_dp, -3.9165490470431008e-01_dp, -6.4063511602689208e-02_dp, &
1332 4.7237118624819781e-02_dp, 1.2334980874650106e-02_dp, -9.9115847862352204e-03_dp, &
1333 -2.3398525854494041e-03_dp, 3.1276613598798316e-03_dp, 6.9920456208351215e-04_dp, &
1334 -1.0397269514394823e-03_dp, -3.7227644159783696e-04_dp, 5.7251368824157297e-04_dp, &
1335 -1.5641106130487642e-04_dp, 1.8800921994120694e+00_dp, -1.0923258017805402e+00_dp, &
1336 -6.4592903048945596e-03_dp, 1.7145991202300620e-01_dp, -1.0258641827216298e-02_dp, &
1337 -4.0650011661850526e-02_dp, 5.9145330731061310e-03_dp, 1.1814015431998023e-02_dp, &
1338 -1.7645864693727417e-03_dp, -5.1968514483175078e-03_dp, 2.5254767142020877e-03_dp, &
1339 1.9008839648663282e-04_dp, -2.7310037630009072e-04_dp, 3.5700906437015720e+00_dp, &
1340 -2.8410095229290957e+00_dp, 4.7566776292824731e-01_dp, 4.5078537203369262e-01_dp, &
1341 -1.7662327214122509e-01_dp, -9.8111714854984447e-02_dp, 5.9791489912834436e-02_dp, &
1342 2.3988463192324526e-02_dp, -1.8060958844165663e-02_dp, -1.2105234356603977e-02_dp, &
1343 1.5101056055278140e-02_dp, -5.3449828416008731e-03_dp, 5.7306130912794712e-04_dp, &
1344 6.7581167823431345e+00_dp, -7.1699027258228432e+00_dp, 2.5445844349889786e+00_dp, &
1345 7.6672634398993644e-01_dp, -8.3067733243108621e-01_dp, -5.7644011834428951e-02_dp, &
1346 2.4822641367814308e-01_dp, -1.4162606641062165e-02_dp, -7.1554288045698092e-02_dp, &
1347 1.1874431773050711e-03_dp, 4.0456779863544762e-02_dp, -2.4380100288226139e-02_dp, &
1348 4.9075045448962002e-03_dp, 1.3121698258325543e+01_dp, -1.7881394250826862e+01_dp, &
1349 1.0058691417480512e+01_dp, -3.9782510556929929e-01_dp, -2.5566824525318088e+00_dp, &
1350 8.4735029392079875e-01_dp, 5.3977975375645593e-01_dp, -3.5357733173281275e-01_dp, &
1351 -1.1643964121149164e-01_dp, 1.4323415182866206e-01_dp, 2.7894270359389755e-03_dp, &
1352 -4.1885479536085533e-02_dp, 1.3600151683161683e-02_dp, 2.6983172825423299e+01_dp, &
1353 -4.5136785690700066e+01_dp, 3.5347241038093827e+01_dp, -1.1322977696396405e+01_dp, &
1354 -3.6432371690369023e+00_dp, 4.5653163916195441e+00_dp, -6.2527689198743497e-01_dp, &
1355 -1.0316108714043186e+00_dp, 3.9002390962416106e-01_dp, 2.7867998432914626e-01_dp, &
1356 -2.7830279098452576e-01_dp, 8.6406944254303217e-02_dp, -7.7988695959731675e-03_dp, &
1357 6.7020985153330088e+01_dp, -1.2895350676499106e+02_dp, 1.2515988271865132e+02_dp, &
1358 -6.7730535979917050e+01_dp, 1.3509022726826249e+01_dp, 7.5870813693372865e+00_dp, &
1359 -5.6551478844811518e+00_dp, 3.1592362611458347e-01_dp, 8.9353909446106417e-01_dp, &
1360 -5.1419383112248918e-02_dp, -3.4896277335001258e-01_dp, 1.9242088216158001e-01_dp, &
1361 -3.4930665201446769e-02_dp, 2.2444409953889672e+00_dp, -8.2981004194755881e-01_dp, &
1362 -2.0149587021835375e-01_dp, 7.6862324986017819e-02_dp, 4.0212219357266481e-02_dp, &
1363 -1.3088417493763247e-02_dp, -8.3346391656963330e-03_dp, 4.4376518893953151e-03_dp, &
1364 2.4395035166568041e-03_dp, -9.7210852177202040e-04_dp, -1.8091432752667988e-03_dp, &
1365 1.3510459080231529e-03_dp, -2.7978062458459800e-04_dp, 3.0233566510549710e+00_dp, &
1366 -1.7229666153085565e+00_dp, -5.9154969723083692e-02_dp, 2.7883404191218236e-01_dp, &
1367 3.3814752466955864e-03_dp, -6.7761866419578015e-02_dp, 2.6604108325230498e-03_dp, &
1368 2.0289299159528842e-02_dp, -6.7365152413148034e-04_dp, -8.5272902970696760e-03_dp, &
1369 2.3135442605826443e-03_dp, 1.5922697497338322e-03_dp, -7.4271387725927010e-04_dp, &
1370 4.9641303680359998e+00_dp, -4.2791867262695549e+00_dp, 7.0701632981021489e-01_dp, &
1371 7.6974697844881379e-01_dp, -2.5050637135588621e-01_dp, -1.8674240141839671e-01_dp, &
1372 8.5004325417316742e-02_dp, 4.9721733708245786e-02_dp, -2.5721746300345582e-02_dp, &
1373 -2.5577126368071773e-02_dp, 2.5694288079317958e-02_dp, -7.5350930197050558e-03_dp, &
1374 4.1016625473918824e-04_dp, 9.0428782023867402e+00_dp, -1.0651609613739524e+01_dp, &
1375 3.8210533639574078e+00_dp, 1.4421513328672826e+00_dp, -1.2962088562797218e+00_dp, &
1376 -2.1856889727324386e-01_dp, 4.0769349474573302e-01_dp, 2.1778197894256581e-02_dp, &
1377 -1.2217423363358416e-01_dp, -1.8092159326321852e-02_dp, 7.8958894324477696e-02_dp, &
1378 -4.2323525382300678e-02_dp, 7.8988389506311936e-03_dp, 1.7494968543499823e+01_dp, &
1379 -2.6299261098424981e+01_dp, 1.4981092153446502e+01_dp, 3.5566014675930263e-01_dp, &
1380 -4.4078347265838902e+00_dp, 9.6789361825124498e-01_dp, 1.1548302407139202e+00_dp, &
1381 -4.8295531452813190e-01_dp, -3.0638711477524511e-01_dp, 1.9053711104052087e-01_dp, &
1382 9.8530328249180302e-02_dp, -1.1445401656369447e-01_dp, 3.0271989036667647e-02_dp, &
1383 3.5912642657867430e+01_dp, -6.5373617495328972e+01_dp, 5.2339797574661134e+01_dp, &
1384 -1.4153218765640851e+01_dp, -9.0572445032884144e+00_dp, 7.8281386285875207e+00_dp, &
1385 3.6341723094328376e-01_dp, -2.5273798563351466e+00_dp, 3.1250363833851924e-01_dp, &
1386 1.0318273705347971e+00_dp, -6.6189452520406300e-01_dp, 1.1809550079304761e-01_dp, &
1387 1.0806151322463294e-02_dp, 8.3477139318733393e+01_dp, -1.7156836453569142e+02_dp, &
1388 1.7336798683819080e+02_dp, -9.2344665032728145e+01_dp, 9.9138773578404322e+00_dp, &
1389 2.1111102738858747e+01_dp, -1.2703114305540435e+01_dp, -6.8491988017260363e-01_dp, &
1390 3.7238467452567474e+00_dp, -9.6853869036389029e-01_dp, -8.2076794251227392e-01_dp, &
1391 6.5200581790559620e-01_dp, -1.4892747075362087e-01_dp, 3.0901806252841146e+02_dp, &
1392 -6.4535118104996093e+02_dp, 7.0059421765500099e+02_dp, -4.6233013645500171e+02_dp, &
1393 1.7229734254873787e+02_dp, -1.0791044680098347e+01_dp, -2.2384185132904548e+01_dp, &
1394 8.6880396981906074e+00_dp, 4.8992454334398755e-01_dp, -2.1707249656643718e-01_dp, &
1395 -1.0500007845801604e+00_dp, 7.1848860832775263e-01_dp, -1.5485197147846710e-01_dp, &
1396 3.3508729161701295e-01_dp, -6.5967375280714266e-02_dp, -3.6671191882035471e-02_dp, &
1397 3.7463544686884482e-03_dp, 8.5622563668911605e-03_dp, 6.8363383574831626e-04_dp, &
1398 -4.5035979562529508e-03_dp, 6.6279905673241254e-04_dp, 1.5024716048307220e-03_dp, &
1399 -1.2576817257599221e-04_dp, -1.0433416780076630e-03_dp, 7.2426679548123546e-04_dp, &
1400 -1.6273288963037326e-04_dp, 1.1864553104914806e+00_dp, -3.1461997524782426e-01_dp, &
1401 -1.4693892529281682e-01_dp, 4.5646442517946223e-02_dp, 4.1088276571797845e-02_dp, &
1402 -7.6528941123103732e-03_dp, -2.4112522507619763e-02_dp, 8.1014486563994372e-03_dp, &
1403 9.9635648532678794e-03_dp, -5.5731398359707141e-03_dp, -3.2969694635874730e-03_dp, &
1404 3.7600953456707166e-03_dp, -9.9587115962167325e-04_dp, 2.7324626612556053e+00_dp, &
1405 -1.0908886663262836e+00_dp, -3.7452568962784560e-01_dp, 2.7448650188755308e-01_dp, &
1406 1.1947510898542109e-01_dp, -8.1512972680725215e-02_dp, -8.2669082784466011e-02_dp, &
1407 5.5843294460943604e-02_dp, 4.4965144102735111e-02_dp, -5.5709333452207237e-02_dp, &
1408 1.2128490666523937e-02_dp, 7.2438183397116164e-03_dp, -3.2102466121958495e-03_dp, &
1409 6.0892254495015932e+00_dp, -3.6163036866884251e+00_dp, -7.2954415660089122e-01_dp, &
1410 1.2449867999159732e+00_dp, 1.8627074862998558e-01_dp, -4.5836716242884368e-01_dp, &
1411 -1.8726612737773107e-01_dp, 2.9412452507008080e-01_dp, 1.4464334222064024e-01_dp, &
1412 -3.5797443880437330e-01_dp, 2.1243449070641837e-01_dp, -4.7979547413800436e-02_dp, &
1413 1.1430581477758399e-03_dp, 1.4139026562869708e+01_dp, -1.2041501426557486e+01_dp, &
1414 -3.5767048473142754e-01_dp, 4.9535087968389506e+00_dp, -6.9859714731516531e-01_dp, &
1415 -1.9604651106042494e+00_dp, 8.7491811796409316e-02_dp, 1.3013744792257471e+00_dp, &
1416 5.7319425555596631e-02_dp, -1.5953469275658381e+00_dp, 1.4745984158804955e+00_dp, &
1417 -5.9602490347273818e-01_dp, 9.6024900648760458e-02_dp, 3.5251429422184806e+01_dp, &
1418 -4.1992637583344994e+01_dp, 8.2569840030412731e+00_dp, 1.7766017038241735e+01_dp, &
1419 -9.9409207406392266e+00_dp, -5.7296196204934073e+00_dp, 4.4447226214233817e+00_dp, &
1420 4.3695801257258298e+00_dp, -4.0443214386948814e+00_dp, -2.8548551132553746e+00_dp, &
1421 5.6567089023402772e+00_dp, -3.2060726305631433e+00_dp, 6.7793233648081430e-01_dp, &
1422 9.7332609213038637e+01_dp, -1.6055678095075575e+02_dp, 8.3326641397475115e+01_dp, &
1423 4.5224931903958627e+01_dp, -7.6146167520984406e+01_dp, 1.3010701305137788e+01_dp, &
1424 2.8386463320181605e+01_dp, -1.6702334571147881e+00_dp, -3.5079103558906922e+01_dp, &
1425 3.3344889931611391e+01_dp, -1.1144196235639770e+01_dp, -6.2677207691225156e-01_dp, &
1426 9.4490594623257140e-01_dp, 3.2494740113105559e+02_dp, -7.2364022403862566e+02_dp, &
1427 7.0784514785353440e+02_dp, -2.1766148619497469e+02_dp, -2.8011046892812595e+02_dp, &
1428 3.9157870616328319e+02_dp, -2.0111436008133452e+02_dp, 2.6746934497255534e+01_dp, &
1429 -5.1250779800289745e+00_dp, 4.5207247760493551e+01_dp, -4.9344510991644917e+01_dp, &
1430 2.2933203884729071e+01_dp, -4.2463467974507454e+00_dp, 2.7924787903755193e+00_dp, &
1431 -5.9557486085327938e-01_dp, -3.1708788737155785e-01_dp, 4.8363147353357339e-02_dp, &
1432 7.8353097117355233e-02_dp, 9.0057144008685636e-04_dp, -4.2436219791212565e-02_dp, &
1433 8.2581734545659341e-03_dp, 1.5009431826959475e-02_dp, -3.1333769326353706e-03_dp, &
1434 -9.0848760047894626e-03_dp, 6.8972370390152915e-03_dp, -1.6104367213749559e-03_dp, &
1435 4.3349564546588484e+00_dp, -1.6338639472670711e+00_dp, -6.2039446459744241e-01_dp, &
1436 3.7176531406914165e-01_dp, 2.0468278416324942e-01_dp, -9.7117001036191072e-02_dp, &
1437 -1.3346018024426126e-01_dp, 6.9248942972530952e-02_dp, 6.5294776930919118e-02_dp, &
1438 -5.9636007438036251e-02_dp, -2.7144286812367025e-03_dp, 1.8580653270522128e-02_dp, &
1439 -5.8846609276546023e-03_dp, 8.7127006245330918e+00_dp, -5.2814575268392803e+00_dp, &
1440 -1.2377871952109918e+00_dp, 1.7721827561018202e+00_dp, 4.1504199215701543e-01_dp, &
1441 -6.2649087632354694e-01_dp, -3.5476660021691170e-01_dp, 3.9492435289379613e-01_dp, &
1442 2.4669057876623324e-01_dp, -4.5374450788098053e-01_dp, 2.0534450489776798e-01_dp, &
1443 -1.4337629279395947e-02_dp, -9.5633384489265550e-03_dp, 1.9864553062133062e+01_dp, &
1444 -1.7268416697475640e+01_dp, -1.2605611184415808e+00_dp, 7.1361682987646899e+00_dp, &
1445 -2.8155468494418773e-01_dp, -2.8885437478337219e+00_dp, -3.2115843314446185e-01_dp, &
1446 1.8474192462862677e+00_dp, 5.0459240430275332e-01_dp, -2.4256645534485304e+00_dp, &
1447 1.8935550944143869e+00_dp, -6.5130637173581107e-01_dp, 8.4425479665035150e-02_dp, &
1448 4.9415943100591043e+01_dp, -5.8710018731217680e+01_dp, 7.6100350158161136e+00_dp, &
1449 2.6437526205424952e+01_dp, -1.0210049310126077e+01_dp, -1.0364129503643207e+01_dp, &
1450 4.2703723895971040e+00_dp, 7.2550799233044732e+00_dp, -2.8007257975971140e+00_dp, &
1451 -7.9321546402115857e+00_dp, 9.8731611373346890e+00_dp, -4.8000107616726417e+00_dp, &
1452 9.1625956317232737e-01_dp, 1.3509570103059647e+02_dp, -2.1615670162551694e+02_dp, &
1453 8.7042223042420432e+01_dp, 8.5074953085441251e+01_dp, -8.7680431005856249e+01_dp, &
1454 -1.4573782688795355e+01_dp, 4.1553388972824948e+01_dp, 1.5857868513717005e+01_dp, &
1455 -4.3825384512915626e+01_dp, 1.1242194914554007e+01_dp, 1.9564845495143668e+01_dp, &
1456 -1.6811781491598083e+01_dp, 4.2614301447710945e+00_dp, 4.2182283329260298e+02_dp, &
1457 -9.0232374730691106e+02_dp, 7.1913307941971050e+02_dp, 6.5788926678577425e+01_dp, &
1458 -5.6847305624230580e+02_dp, 3.2522974861279704e+02_dp, 1.3143394779042333e+02_dp, &
1459 -1.4623977249362667e+02_dp, -1.9485496537035539e+02_dp, 3.9309282560397878e+02_dp/)
1460 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/-2.8863592203480596e+02_dp, &
1461 1.0528430973221714e+02_dp, -1.5857007223981109e+01_dp, 1.8276946029107571e+03_dp, &
1462 -4.8112032981737193e+03_dp, 6.1258592600600687e+03_dp, -4.0381542724034271e+03_dp, &
1463 3.2440486268768652e+01_dp, 2.9756759864086989e+03_dp, -3.5826087401832801e+03_dp, &
1464 2.5220758904019117e+03_dp, -1.1725016022892619e+03_dp, 2.9714869827611420e+02_dp, &
1465 3.6408367716617519e+01_dp, -6.1718990215158165e+01_dp, 1.6819583425152295e+01_dp, &
1466 3.6008296661068129e-01_dp, -2.4934495356088673e-02_dp, -2.6462026390146498e-02_dp, &
1467 9.5876084101441991e-03_dp, -1.1331107464939878e-02_dp, 1.6586262055557337e-02_dp, &
1468 -1.6106632470944200e-02_dp, 1.2751304928977305e-02_dp, -8.6732664212007485e-03_dp, &
1469 4.0240760309193475e-03_dp, -4.4825706457146837e-04_dp, -6.1748144054248283e-04_dp, &
1470 2.5357640280289075e-04_dp, 1.3098679540438654e+00_dp, -1.2749258837080399e-01_dp, &
1471 -1.3073323485317337e-01_dp, 5.8516929367271715e-02_dp, -5.6951328739513037e-02_dp, &
1472 8.4819766678372446e-02_dp, -8.3438172999370994e-02_dp, 6.3534150436398582e-02_dp, &
1473 -4.0789452590645821e-02_dp, 1.7207516063066464e-02_dp, 2.7854405286715241e-05_dp, &
1474 -4.2694378230801753e-03_dp, 1.5551774834561508e-03_dp, 3.1817466966750025e+00_dp, &
1475 -4.8685729139374834e-01_dp, -4.7508372620822747e-01_dp, 2.7226827027853312e-01_dp, &
1476 -2.1644926109007404e-01_dp, 3.2162422597469387e-01_dp, -3.2373129824840324e-01_dp, &
1477 2.3402591064647971e-01_dp, -1.3552991687865093e-01_dp, 4.6569436455071500e-02_dp, &
1478 1.2573171658256766e-02_dp, -2.1996218996840747e-02_dp, 7.2391100075863378e-03_dp, &
1479 7.6667308457077841e+00_dp, -1.8064423526176003e+00_dp, -1.6558509837359154e+00_dp, &
1480 1.2167933969012499e+00_dp, -8.2685269049351195e-01_dp, 1.1702629066210879e+00_dp, &
1481 -1.2160740673457533e+00_dp, 8.3129428882777301e-01_dp, -4.0346334453079419e-01_dp, &
1482 7.6181979654980650e-02_dp, 1.0538509979804817e-01_dp, -1.0594678252053578e-01_dp, &
1483 3.2100908588300212e-02_dp, 1.9789605527050799e+01_dp, -6.9317551385828775e+00_dp, &
1484 -5.8179930349634565e+00_dp, 5.6410261132198896e+00_dp, -3.4720604618155404e+00_dp, &
1485 4.3222477406821946e+00_dp, -4.6593280205438399e+00_dp, 2.9973049622920191e+00_dp, &
1486 -9.8458606194260101e-01_dp, -3.0033580201486476e-01_dp, 7.5698139555564226e-01_dp, &
1487 -5.3686026095251194e-01_dp, 1.4785400367332710e-01_dp, 5.7071028866399622e+01_dp, &
1488 -2.9401869129872736e+01_dp, -2.1376956390611706e+01_dp, 2.9364241928690973e+01_dp, &
1489 -1.8013055669371493e+01_dp, 1.7254148374056300e+01_dp, -1.8753111107981081e+01_dp, &
1490 1.1159554233110121e+01_dp, -1.2752966385306053e-01_dp, -6.1325355952629250e+00_dp, &
1491 6.3822854246393721e+00_dp, -3.4517625645107035e+00_dp, 8.3020380724742204e-01_dp, &
1492 1.9521201133501947e+02_dp, -1.5220438343077086e+02_dp, -8.1912358679862876e+01_dp, &
1493 1.9161075517584456e+02_dp, -1.3980358819312374e+02_dp, 8.7370038717781611e+01_dp, &
1494 -7.2988008432725636e+01_dp, 3.0136598201372607e+01_dp, 4.4492815957746984e+01_dp, &
1495 -9.0138493143008020e+01_dp, 7.8015315638660624e+01_dp, -3.7190554397321939e+01_dp, &
1496 7.9761307531966610e+00_dp, 9.1278852097032075e+02_dp, -1.1881974595454724e+03_dp, &
1497 -1.2420992251855267e+02_dp, 1.8801289344962393e+03_dp, -2.4556997768600449e+03_dp, &
1498 1.5365426797607518e+03_dp, 1.0676304658797669e+02_dp, -1.6868122887497107e+03_dp, &
1499 2.7261083335976618e+03_dp, -2.8690190040817129e+03_dp, 2.0730030060640806e+03_dp, &
1500 -9.2805090617485291e+02_dp, 1.9285336281750696e+02_dp, 3.0202120791487510e+00_dp, &
1501 -2.2929050737844739e-01_dp, -2.4117235349996635e-01_dp, 9.2704544171716446e-02_dp, &
1502 -1.0360124397461544e-01_dp, 1.5260718160236281e-01_dp, -1.4863649841980880e-01_dp, &
1503 1.1646276459958013e-01_dp, -7.8115523264564363e-02_dp, 3.5445051921955989e-02_dp, &
1504 -3.0265424876823456e-03_dp, -6.2106108531044283e-03_dp, 2.4560375548071142e-03_dp, &
1505 4.9977115377020143e+00_dp, -7.0713497336708797e-01_dp, -7.0201845826538045e-01_dp, &
1506 3.7205228555849740e-01_dp, -3.1239914375103917e-01_dp, 4.6962581162570477e-01_dp, &
1507 -4.6809922294208084e-01_dp, 3.4405231198789693e-01_dp, -2.0774765511908164e-01_dp, &
1508 7.7981264100472250e-02_dp, 1.1926822036550332e-02_dp, -2.9234106504804597e-02_dp, &
1509 9.9111598962051163e-03_dp, 1.0982352744981107e+01_dp, -2.5586757519844334e+00_dp, &
1510 -2.3924834863157098e+00_dp, 1.6377235454994263e+00_dp, -1.1452343882258973e+00_dp, &
1511 1.6742775852013179e+00_dp, -1.7208177689510733e+00_dp, 1.1933688801441626e+00_dp, &
1512 -6.2068748093326198e-01_dp, 1.5757464118201009e-01_dp, 1.2092332567847532e-01_dp, &
1513 -1.3968280008702197e-01_dp, 4.3442636832466526e-02_dp, 2.7798834753362176e+01_dp, &
1514 -9.5235310673252087e+00_dp, -8.2506504296193413e+00_dp, 7.3158471930055118e+00_dp, &
1515 -4.5365544170813825e+00_dp, 6.0400318657414305e+00_dp, -6.4510290250044848e+00_dp, &
1516 4.2170504980565306e+00_dp, -1.6565364294458416e+00_dp, -6.7984032425921506e-02_dp, &
1517 8.3432875689469077e-01_dp, -6.6751055992496788e-01_dp, 1.9155267749846455e-01_dp, &
1518 7.8875815934450927e+01_dp, -3.8326646554760494e+01_dp, -2.9647322447318992e+01_dp, &
1519 3.5592030615395316e+01_dp, -2.1068887318345901e+01_dp, 2.3036574856677053e+01_dp, &
1520 -2.5457687546678919e+01_dp, 1.5603470262769573e+01_dp, -2.6161630333998538e+00_dp, &
1521 -4.7974113923994901e+00_dp, 6.0888371971161597e+00_dp, -3.6509041918220748e+00_dp, &
1522 9.3827458104319261e-01_dp, 2.5820747118786790e+02_dp, -1.7912518679501466e+02_dp, &
1523 -1.1382161244744694e+02_dp, 2.0430275857235807e+02_dp, -1.3010643642425052e+02_dp, &
1524 1.0051327222541408e+02_dp, -1.0601266064614593e+02_dp, 5.8288692345255235e+01_dp, &
1525 2.1127565037978961e+01_dp, -6.5273552596841654e+01_dp, 5.8416007114044838e+01_dp, &
1526 -2.8627550070207121e+01_dp, 6.3938023439562945e+00_dp, 1.0530804258036487e+03_dp, &
1527 -1.0937614495281734e+03_dp, -4.3098080435867519e+02_dp, 1.5667138220310976e+03_dp, &
1528 -1.3165673699354647e+03_dp, 6.6347634454225249e+02_dp, -3.4185303502890736e+02_dp, &
1529 -1.1466724937319730e+01_dp, 6.1723480049892203e+02_dp, -1.0180911237826692e+03_dp, &
1530 8.6238446090989885e+02_dp, -4.0590511772790057e+02_dp, 8.5233625649272710e+01_dp, &
1531 6.6217329112409152e+03_dp, -1.1425351525376182e+04_dp, 2.2492305374254370e+03_dp, &
1532 1.8881455299767505e+04_dp, -3.4404996456886765e+04_dp, 2.7559397466881259e+04_dp, &
1533 2.4019070309659278e+03_dp, -3.9817790294105704e+04_dp, 6.4303769223224357e+04_dp, &
1534 -6.3967990080210388e+04_dp, 4.2899287320689975e+04_dp, -1.7914528413855718e+04_dp, &
1535 3.5182149345345074e+03_dp, 3.6486926164490469e-01_dp, 2.0204681876392647e-08_dp, &
1536 -2.9063033115982715e-02_dp, 2.5307089232711903e-02_dp, -1.7387851050024779e-02_dp, &
1537 -1.1298488481693316e-02_dp, 6.1784825098588868e-02_dp, -1.1326788530175186e-01_dp, &
1538 1.2736917040891757e-01_dp, -8.2068207035220206e-02_dp, 1.1361290138449257e-02_dp, &
1539 2.2817399150212796e-02_dp, -1.2307392917240636e-02_dp, 1.3345106038416172e+00_dp, &
1540 1.0473100168474207e-07_dp, -1.5067373422508695e-01_dp, 1.3120139232313632e-01_dp, &
1541 -8.3771660636503986e-02_dp, -6.9708760654556362e-02_dp, 3.3279408293031759e-01_dp, &
1542 -5.9029754060722750e-01_dp, 6.3961521945451127e-01_dp, -3.7704261134121214e-01_dp, &
1543 1.4222371809919012e-03_dp, 1.5638278661184743e-01_dp, -7.4976139536898731e-02_dp, &
1544 3.2767572317506888e+00_dp, 4.0757791931997376e-07_dp, -5.8650748464803737e-01_dp, &
1545 5.1070951349780291e-01_dp, -2.9175849747269827e-01_dp, -3.3130653070655985e-01_dp, &
1546 1.3602786476515449e+00_dp, -2.3079473886452635e+00_dp, 2.3670793977651505e+00_dp, &
1547 -1.1932637133271387e+00_dp, -3.1535910527251165e-01_dp, 8.1970673219695112e-01_dp, &
1548 -3.5341210513182930e-01_dp, 8.0233464032319297e+00_dp, 1.5469932072109146e-06_dp, &
1549 -2.2267438908414117e+00_dp, 1.9389654319071237e+00_dp, -9.5066660364792799e-01_dp, &
1550 -1.5320952612124052e+00_dp, 5.4440801207413720e+00_dp, -8.7625182894010312e+00_dp, &
1551 8.3459802828849448e+00_dp, -3.1789409559564277e+00_dp, -2.7443202471077637e+00_dp, &
1552 4.1173052329751831e+00_dp, -1.6328471027246423e+00_dp, 2.1178994737488193e+01_dp, &
1553 6.1163444588653944e-06_dp, -8.8069616938961222e+00_dp, 7.6687600580722854e+00_dp, &
1554 -2.9352571881725296e+00_dp, -7.4996883609505600e+00_dp, 2.2879137403427048e+01_dp, &
1555 -3.4324990064612756e+01_dp, 2.9082103747106494e+01_dp, -4.8140937848072012e+00_dp, &
1556 -1.9508713405196168e+01_dp, 2.1824003337870533e+01_dp, -8.0461535482045914e+00_dp, &
1557 6.3097771483862608e+01_dp, 2.7109366339854733e-05_dp, -3.9053754979821946e+01_dp, &
1558 3.4006411809445268e+01_dp, -7.5765986227444024e+00_dp, -4.2752431653712904e+01_dp, &
1559 1.0918545502277176e+02_dp, -1.4682601957283225e+02_dp, 9.7806062121677598e+01_dp, &
1560 3.5785765692400041e+01_dp, -1.4814419919148372e+02_dp, 1.3542279919125832e+02_dp, &
1561 -4.6600546953699642e+01_dp, 2.2763840675790064e+02_dp, 1.5137505265291369e-04_dp, &
1562 -2.1821644080557203e+02_dp, 1.9001333141048849e+02_dp, 1.1018780585175488e+01_dp, &
1563 -3.3195327790129170e+02_dp, 6.6654678166863403e+02_dp, -7.1329548357082911e+02_dp, &
1564 1.5569450837479587e+02_dp, 8.4955015710139378e+02_dp, -1.4931577695169062e+03_dp, &
1565 1.1595826219001069e+03_dp, -3.7132444207641549e+02_dp, 1.1910914431216361e+03_dp, &
1566 1.4263721165942622e-03_dp, -2.0551073023908939e+03_dp, 1.7895023674272838e+03_dp, &
1567 1.4236436615084440e+03_dp, -5.4213598658487108e+03_dp, 6.4193939031260470e+03_dp, &
1568 -4.3652668119034223e+02_dp, -1.3307350777633279e+04_dp, 2.8004934478322662e+04_dp, &
1569 -3.1609945290997650e+04_dp, 2.0246981620964787e+04_dp, -5.7903787141059511e+03_dp, &
1570 3.0643056444925736e+00_dp, 1.8646661584793930e-07_dp, -2.6823124660733616e-01_dp, &
1571 2.3356648801342425e-01_dp, -1.5749179181334688e-01_dp, -1.0949264322249078e-01_dp, &
1572 5.7614538690757122e-01_dp, -1.0470107757684963e+00_dp, 1.1661521479359405e+00_dp, &
1573 -7.3514781124312867e-01_dp, 7.8269126791499333e-02_dp, 2.2825560761526997e-01_dp, &
1574 -1.1877863457204990e-01_dp, 5.1352531685543763e+00_dp, 5.8811945999022206e-07_dp, &
1575 -8.4624001750433542e-01_dp, 7.3687550809193658e-01_dp, -4.3833952146723459e-01_dp, &
1576 -4.4767431890582660e-01_dp, 1.9312272697015882e+00_dp, -3.3286199469950279e+00_dp, &
1577 3.4839435414394124e+00_dp, -1.8685419680693067e+00_dp, -2.8596457697133809e-01_dp, &
1578 1.0725167156433020e+00_dp, -4.7794242799465891e-01_dp, 1.1485629169810354e+01_dp, &
1579 2.1753987536946991e-06_dp, -3.1309987505895300e+00_dp, 2.7263579761484240e+00_dp, &
1580 -1.4087375048075199e+00_dp, -2.0285000971994687e+00_dp, 7.5358003620778735e+00_dp, &
1581 -1.2345857753739226e+01_dp, 1.2071996259175435e+01_dp, -5.1411109695351618e+00_dp, &
1582 -3.1071844239563102e+00_dp, 5.3071010378293604e+00_dp, -2.1574669369328108e+00_dp, &
1583 2.9697399912139918e+01_dp, 8.3135628316181069e-06_dp, -1.1969267103599444e+01_dp, &
1584 1.0422379107290249e+01_dp, -4.4016512622802200e+00_dp, -9.4725197213611363e+00_dp, &
1585 3.0480241673650344e+01_dp, -4.6979770727514214e+01_dp, 4.1763601254545264e+01_dp, &
1586 -1.0744664685407409e+01_dp, -2.1930155353081439e+01_dp, 2.6765835808358442e+01_dp, &
1587 -1.0113169118847527e+01_dp, 8.6657911400504887e+01_dp, 3.4682726546868686e-05_dp, &
1588 -4.9954155938197879e+01_dp, 4.3498076605632711e+01_dp, -1.2732165518503718e+01_dp, &
1589 -4.9378251472346385e+01_dp, 1.3584067834177924e+02_dp, -1.9220755204893482e+02_dp, &
1590 1.4478597281785360e+02_dp, 1.1301880394535623e+01_dp, -1.5313609799645960e+02_dp, &
1591 1.5075591149117258e+02_dp, -5.3325987923237058e+01_dp, 2.9560124699329253e+02_dp, &
1592 1.7113342586626282e-04_dp, -2.4662390250801528e+02_dp, 2.1474962274139023e+02_dp, &
1593 -2.0392071197782663e+01_dp, -3.1789596824276714e+02_dp, 7.2496736168975849e+02_dp/)
1594 REAL(kind=dp), DIMENSION(13, 16, 4), PARAMETER :: &
1595 coefdata = reshape((/c01, c02, c03/), (/13, 16, 4/))
1596
1597 INTEGER :: irange
1598
1599 IF (rc <= 1.0000000000000000e+01_dp) rc = 1.0000000000000000e+01_dp
1600 IF (rc >= 6.3447246551513672e+03_dp) rc = 6.3447246551513672e+03_dp
1601 IF (rc >= 1.0000000000000000e+01_dp .AND. rc <= 4.8301780076010026e+01_dp) THEN
1602 irange = 1
1603 l_b = 1.0000000000000000e+01_dp
1604 u_b = 4.8301780076010026e+01_dp
1605 END IF
1606 IF (rc >= 4.8301780076010026e+01_dp .AND. rc <= 4.3944134912624889e+02_dp) THEN
1607 irange = 2
1608 l_b = 4.8301780076010026e+01_dp
1609 u_b = 4.3944134912624889e+02_dp
1610 END IF
1611 IF (rc >= 4.3944134912624889e+02_dp .AND. rc <= 2.4651524781467556e+03_dp) THEN
1612 irange = 3
1613 l_b = 4.3944134912624889e+02_dp
1614 u_b = 2.4651524781467556e+03_dp
1615 END IF
1616 IF (rc >= 2.4651524781467556e+03_dp .AND. rc <= 6.3447246551513672e+03_dp) THEN
1617 irange = 4
1618 l_b = 2.4651524781467556e+03_dp
1619 u_b = 6.3447246551513672e+03_dp
1620 END IF
1621
1622 fit_coef(1:13, 1:16) = coefdata(1:13, 1:16, irange)
1623
1624 END SUBROUTINE get_fit_coef_k08
1625
1626! **************************************************************************************************
1627!> \brief ...
1628!> \param Rc ...
1629!> \param L_b ...
1630!> \param U_b ...
1631!> \param fit_coef ...
1632! **************************************************************************************************
1633 SUBROUTINE get_fit_coef_k09(Rc, L_b, U_b, fit_coef)
1634 REAL(kind=dp) :: rc, l_b, u_b
1635 REAL(kind=dp), DIMENSION(13, 18) :: fit_coef
1636
1637 REAL(kind=dp), DIMENSION(136), PARAMETER :: c03 = (/-8.4609670938814907e+02_dp, &
1638 5.2521889455815938e+02_dp, -1.8158803681882837e+01_dp, -1.9195843056246903e+02_dp, &
1639 4.7038182235191250e+01_dp, 4.4962618821808661e+01_dp, 2.3952550076762327e+03_dp, &
1640 7.3919658606953450e-04_dp, -3.3678854403725500e+03_dp, 2.7630103823335253e+03_dp, &
1641 1.5760188487094081e+03_dp, -6.2507126178305934e+03_dp, 7.5762009915563758e+03_dp, &
1642 -3.4997817421370810e+03_dp, -3.6562358282784421e+03_dp, 6.5885187381838932e+03_dp, &
1643 -1.0669477891854467e+03_dp, -5.1923485018358997e+03_dp, 3.6296377875939629e+03_dp, &
1644 2.8852081079160179e+00_dp, 4.0102719961273801e-08_dp, -1.7659002023480172e-01_dp, &
1645 1.4488106202271947e-01_dp, -1.0039965813412362e-01_dp, -2.5605452610356936e-02_dp, &
1646 2.2190893738774328e-01_dp, -3.9868714638912034e-01_dp, 4.1666545240789737e-01_dp, &
1647 -2.0838248751367475e-01_dp, -7.8702085558092494e-02_dp, 1.8499348107948621e-01_dp, &
1648 -8.5003584077023686e-02_dp, 4.5954934072634712e+00_dp, 1.1523486520096986e-07_dp, &
1649 -5.0806402051936073e-01_dp, 4.1683398596614762e-01_dp, -2.6579259191602511e-01_dp, &
1650 -1.1173061386143904e-01_dp, 6.8157899224885998e-01_dp, -1.1725048395640862e+00_dp, &
1651 1.1888726238653182e+00_dp, -5.7031447220490772e-01_dp, -2.3373683427653494e-01_dp, &
1652 5.0947643811010013e-01_dp, -2.2753724549285903e-01_dp, 9.5744538319119368e+00_dp, &
1653 3.8935451948906365e-07_dp, -1.7187840838704733e+00_dp, 1.4101497165394266e+00_dp, &
1654 -8.2424578220474254e-01_dp, -5.0165771967854866e-01_dp, 2.4411624004207271e+00_dp, &
1655 -4.0381205898500108e+00_dp, 3.9746616048513781e+00_dp, -1.8240116710035414e+00_dp, &
1656 -8.1274767364034362e-01_dp, 1.6405984125323814e+00_dp, -7.0946369768700668e-01_dp, &
1657 2.2756152830064220e+01_dp, 1.3380012629757024e-06_dp, -5.9153103075446083e+00_dp, &
1658 4.8531141769756569e+00_dp, -2.5426282738934458e+00_dp, -2.2119329262709027e+00_dp, &
1659 8.9099642025165444e+00_dp, -1.4124325804320934e+01_dp, 1.3421000524921119e+01_dp, &
1660 -5.8143931761506558e+00_dp, -2.8750831570457684e+00_dp, 5.2778875665252425e+00_dp, &
1661 -2.1815020322245369e+00_dp, 5.9577031872248192e+01_dp, 4.8466710971685504e-06_dp, &
1662 -2.1470062487220464e+01_dp, 1.7614691738721081e+01_dp, -7.8543518759744195e+00_dp, &
1663 -1.0297543487661295e+01_dp, 3.4589595106069012e+01_dp, -5.2023617051867674e+01_dp, &
1664 4.7104796520358647e+01_dp, -1.8668699591613251e+01_dp, -1.0751139468718122e+01_dp, &
1665 1.7201278360974712e+01_dp, -6.5744756865732210e+00_dp, 1.7421142487352890e+02_dp, &
1666 1.9480399941922716e-05_dp, -8.6547598834693005e+01_dp, 7.1005987098306903e+01_dp, &
1667 -2.3983059370901209e+01_dp, -5.4191420793490103e+01_dp, 1.5104757590596600e+02_dp, &
1668 -2.1163527408094700e+02_dp, 1.7786418457885577e+02_dp, -5.9642025337733756e+01_dp, &
1669 -4.4718701051976034e+01_dp, 5.6683066711160087e+01_dp, -1.8062035214880027e+01_dp, &
1670 5.9442761921776025e+02_dp, 9.3312420949589195e-05_dp, -4.1653329002850757e+02_dp, &
1671 3.4173289748064514e+02_dp, -5.8910745159325486e+01_dp, -3.5416677215144733e+02_dp, &
1672 8.0179526534346644e+02_dp, -1.0066258052744280e+03_dp, 7.3393741106438824e+02_dp, &
1673 -1.5060845806689406e+02_dp, -2.2080860417911666e+02_dp, 1.6107768368211609e+02_dp, &
1674 -1.4997422612735614e+01_dp, 2.6003372356118971e+03_dp, 6.1017236225054279e-04_dp, &
1675 -2.7485887342448536e+03_dp, 2.2549733577908974e+03_dp, 2.9333015363387631e+02_dp, &
1676 -3.4638286965522780e+03_dp, 5.9673723572603731e+03_dp, -5.9287627550561756e+03_dp, &
1677 2.6547680091869743e+03_dp, 1.0828729490854735e+03_dp, -1.4147281790223578e+03_dp, &
1678 -6.5594324803846439e+02_dp, 9.5647367522013610e+02_dp, 1.9075646404982639e+04_dp, &
1679 7.9756724721310873e-03_dp, -3.6633955682749525e+04_dp, 3.0054168139170702e+04_dp, &
1680 3.0244619250697619e+04_dp, -8.9553753522321902e+04_dp, 7.9875735584514681e+04_dp, &
1681 1.7524458945017868e+04_dp, -1.3188240705569120e+05_dp, 1.3592402872600380e+05_dp, &
1682 -1.4644005644830598e+01_dp, -1.0996321547256157e+05_dp, 6.7843413283968956e+04_dp/)
1683 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/2.7491556688515650e-01_dp, &
1684 -1.0138397977284885e-01_dp, -3.9049726894672010e-02_dp, 1.2625689412991524e-02_dp, &
1685 1.2491380414983764e-02_dp, -3.7765616302317911e-03_dp, -5.1175283467075521e-03_dp, &
1686 1.4632298825565039e-03_dp, 3.6642955364173022e-03_dp, -2.0156097072982762e-03_dp, &
1687 -1.1372055647295432e-03_dp, 1.3123912090724280e-03_dp, -3.4398637877680914e-04_dp, &
1688 9.2040539096736784e-01_dp, -4.1664024852120668e-01_dp, -1.1285853825987181e-01_dp, &
1689 7.9706962779770921e-02_dp, 3.7420429120305111e-02_dp, -3.0919600141887049e-02_dp, &
1690 -1.5284758454925678e-02_dp, 1.2652127413759585e-02_dp, 1.7202917438349393e-02_dp, &
1691 -2.2424746152411607e-02_dp, 7.9553605887680342e-03_dp, 5.1972329893920990e-04_dp, &
1692 -6.8699382298445435e-04_dp, 1.9006321915664388e+00_dp, -1.1695348091685061e+00_dp, &
1693 -1.2189417451274155e-01_dp, 3.0841663498130323e-01_dp, 2.8149207201224088e-02_dp, &
1694 -1.3459045672526931e-01_dp, -4.2172084983072775e-03_dp, 5.7470448789934472e-02_dp, &
1695 3.9892748401996053e-02_dp, -1.0792452192241736e-01_dp, 7.7031387642835639e-02_dp, &
1696 -2.4799303141627441e-02_dp, 2.9641145262798221e-03_dp, 3.6226601304189745e+00_dp, &
1697 -3.0653465294668503e+00_dp, 2.3997996878917224e-01_dp, 9.2020850811311550e-01_dp, &
1698 -2.1053920858265254e-01_dp, -4.0407144020499658e-01_dp, 1.4478946512027779e-01_dp, &
1699 1.7808216466386911e-01_dp, -6.7382162449458046e-05_dp, -2.9692981490093184e-01_dp, &
1700 3.0359529933075358e-01_dp, -1.3377430156320294e-01_dp, 2.3545839240890390e-02_dp, &
1701 6.8829600678148175e+00_dp, -7.8109151543133537e+00_dp, 2.1524611550975314e+00_dp, &
1702 2.1963549588737723e+00_dp, -1.4083698809615777e+00_dp, -8.1873516409798242e-01_dp, &
1703 8.3000971643672017e-01_dp, 3.4924147841610120e-01_dp, -4.6131744612525610e-01_dp, &
1704 -3.2768291484595113e-01_dp, 6.7712900531194742e-01_dp, -3.8698623980190255e-01_dp, &
1705 8.1552378085722771e-02_dp, 1.3361445315337988e+01_dp, -1.9720693805354671e+01_dp, &
1706 9.8170523591388061e+00_dp, 3.6112843572095294e+00_dp, -5.7557505888315017e+00_dp, &
1707 -2.6911215231012703e-01_dp, 2.9734538015789798e+00_dp, -1.1080337220770373e-01_dp, &
1708 -2.2704004653913077e+00_dp, 1.3354167923098297e+00_dp, 2.7827788457258407e-01_dp, &
1709 -5.3396440146110924e-01_dp, 1.5485305521629095e-01_dp, 2.6868227237507195e+01_dp, &
1710 -5.0102045492014518e+01_dp, 3.7811908718509507e+01_dp, -1.8294630056592489e+00_dp, &
1711 -1.7506470965502057e+01_dp, 7.8480672911596105e+00_dp, 6.3178773982403840e+00_dp, &
1712 -4.8161399112143526e+00_dp, -5.2120084586700539e+00_dp, 9.0278934674271571e+00_dp, &
1713 -5.4400779115770668e+00_dp, 1.4969760611556289e+00_dp, -1.3708613238816467e-01_dp, &
1714 5.7398225707624746e+01_dp, -1.3068240758584577e+02_dp, 1.3611896593086911e+02_dp, &
1715 -5.6244554349383378e+01_dp, -2.8041309641109571e+01_dp, 4.3346676847580149e+01_dp, &
1716 -6.8148749615071447e+00_dp, -1.7910192391133652e+01_dp, 7.4742481485171650e+00_dp, &
1717 1.1402642814244142e+01_dp, -1.4702415316240296e+01_dp, 7.0796474962768450e+00_dp, &
1718 -1.3388574138054052e+00_dp, 1.4718735946959035e+02_dp, -3.8655381690361162e+02_dp, &
1719 5.0264423442263518e+02_dp, -3.6114141158090524e+02_dp, 9.0095327950470534e+01_dp, &
1720 8.0537937520274326e+01_dp, -7.6164154126460289e+01_dp, 3.8131872647713339e+00_dp, &
1721 2.5322962717490988e+01_dp, -7.4949103011308527e+00_dp, -9.1658479772166626e+00_dp, &
1722 7.7135520272691753e+00_dp, -1.8523169694290555e+00_dp, 2.2601006812612785e+00_dp, &
1723 -8.7997390790539198e-01_dp, -3.1237293051750925e-01_dp, 1.2648961191291591e-01_dp, &
1724 1.0173399066050458e-01_dp, -4.1985217142443479e-02_dp, -4.2043767126443553e-02_dp, &
1725 1.6589539959258010e-02_dp, 3.3723886270116563e-02_dp, -2.5599276642292213e-02_dp, &
1726 -3.3723992759883159e-03_dp, 9.1543230425048736e-03_dp, -2.7035579659107495e-03_dp, &
1727 3.0558414722769203e+00_dp, -1.8423525687001594e+00_dp, -2.4806358565768091e-01_dp, &
1728 4.8522067556668447e-01_dp, 8.1780516282716875e-02_dp, -2.1134587830838658e-01_dp, &
1729 -2.9333397736968799e-02_dp, 8.8869329486145510e-02_dp, 7.9743471514237316e-02_dp, &
1730 -1.7011594446843087e-01_dp, 1.0584292297514415e-01_dp, -2.7622708244182885e-02_dp, &
1731 1.9266826647592555e-03_dp, 5.0439918903115455e+00_dp, -4.6147378247056725e+00_dp, &
1732 3.4606299922222433e-01_dp, 1.4907521779331261e+00_dp, -2.6458521972713844e-01_dp, &
1733 -6.8256595629361283e-01_dp, 1.8400335770241980e-01_dp, 3.0044010867457915e-01_dp, &
1734 6.7687204379828558e-02_dp, -5.5503131110925941e-01_dp, 5.1852137763862582e-01_dp, &
1735 -2.1508674337333056e-01_dp, 3.5696005935841650e-02_dp, 9.2338356558127259e+00_dp, &
1736 -1.1596541857331431e+01_dp, 3.2196780214282321e+00_dp, 3.6242503908319130e+00_dp, &
1737 -2.0715462391169384e+00_dp, -1.5043039760553865e+00_dp, 1.2499534478269310e+00_dp, &
1738 6.7566189217826012e-01_dp, -6.0067926803925731e-01_dp, -8.3969188762166769e-01_dp, &
1739 1.3289290929674367e+00_dp, -7.1228918020345477e-01_dp, 1.4490578224151213e-01_dp, &
1740 1.7897430920456454e+01_dp, -2.8993974640936074e+01_dp, 1.4484254763706325e+01_dp, &
1741 6.4853429598526233e+00_dp, -8.8659405206488398e+00_dp, -1.3072959846374910e+00_dp, &
1742 4.8716122165178666e+00_dp, 3.7210099832799376e-01_dp, -3.7219944942361369e+00_dp, &
1743 1.4592913559025713e+00_dp, 1.2136291248627868e+00_dp, -1.2214837337140676e+00_dp, &
1744 3.1786347913744367e-01_dp, 3.6268902880949476e+01_dp, -7.3109988017877853e+01_dp, &
1745 5.5198663558559915e+01_dp, 1.5723454940839439e+00_dp, -2.9119283252532057e+01_dp, &
1746 9.2853577555148661e+00_dp, 1.2848162547779781e+01_dp, -6.1114123559080635e+00_dp, &
1747 -1.1475135076695258e+01_dp, 1.5069041357505670e+01_dp, -7.1864984784676569e+00_dp, &
1748 1.1624317623595268e+00_dp, 8.5663539809219230e-02_dp, 7.7586632783688742e+01_dp, &
1749 -1.8852347266621780e+02_dp, 1.9745424592717342e+02_dp, -6.6990539473087694e+01_dp, &
1750 -6.4607063534478783e+01_dp, 7.0129963577739574e+01_dp, 5.6788736642728228e+00_dp, &
1751 -3.8031820871312668e+01_dp, -2.1740311275891591e+00_dp, 4.4736349997022785e+01_dp, &
1752 -4.2964456895307912e+01_dp, 1.8563951012438558e+01_dp, -3.2717753104214178e+00_dp, &
1753 1.8607799112651591e+02_dp, -5.1602169316042023e+02_dp, 6.8887347424898587e+02_dp, &
1754 -4.7458042855350305e+02_dp, 4.4622418554771478e+01_dp, 2.1616014044968463e+02_dp, &
1755 -1.5545535106352176e+02_dp, -3.2603087830560838e+01_dp, 1.1189461104665806e+02_dp, &
1756 -6.2453572059122330e+01_dp, 1.4004003528879079e+00_dp, 1.2024016844350291e+01_dp, &
1757 -3.7743438683099675e+00_dp, 6.9298673553197830e+02_dp, -1.9786469723055493e+03_dp, &
1758 2.8890520642257911e+03_dp, -2.5529058035051989e+03_dp, 1.2587845207337734e+03_dp, &
1759 -7.7992454428378821e+01_dp, -3.2321033215482868e+02_dp, 1.6424491980317885e+02_dp, &
1760 2.4365533617277901e+01_dp, -3.9605274406289432e+01_dp, -6.8896488944108363e+00_dp, &
1761 1.6649305464354185e+01_dp, -4.9462414102750252e+00_dp, 3.2469980045956409e-01_dp, &
1762 -5.0884891508484555e-02_dp, -3.0604197193935530e-02_dp, 2.7427469620202637e-03_dp, &
1763 6.5288788489622235e-03_dp, 1.4751518742325842e-03_dp, -4.4569860753834612e-03_dp, &
1764 7.3984873623845994e-04_dp, 1.3725182324794782e-03_dp, -1.3330062499350304e-04_dp, &
1765 -1.0097670883910479e-03_dp, 7.2572714897585022e-04_dp, -1.6788642792246261e-04_dp, &
1766 1.1375940158990296e+00_dp, -2.3608340938492453e-01_dp, -1.2626283245351805e-01_dp, &
1767 3.0203907418656358e-02_dp, 3.1785577520873423e-02_dp, 6.6484062921600383e-04_dp, &
1768 -2.3186399042989306e-02_dp, 6.3183607198872387e-03_dp, 8.6381015194322997e-03_dp, &
1769 -3.8842596338162639e-03_dp, -3.7122714446579746e-03_dp, 3.6216395853979934e-03_dp, &
1770 -9.2922534715789357e-04_dp, 2.5662576301481543e+00_dp, -7.8767800972008517e-01_dp, &
1771 -3.4787162045624048e-01_dp, 1.7519834794011546e-01_dp, 1.0184464478563594e-01_dp, &
1772 -2.9402771689865572e-02_dp, -8.3714434652696970e-02_dp, 3.7221173571793567e-02_dp, &
1773 3.9228710671209921e-02_dp, -3.5132688186151159e-02_dp, -7.2078001512086579e-04_dp, &
1774 1.0273709728764327e-02_dp, -3.3154780668181900e-03_dp, 5.5500130403737691e+00_dp, &
1775 -2.4995868120429363e+00_dp, -8.4108231466303029e-01_dp, 7.8254760866878970e-01_dp, &
1776 2.5130274709663863e-01_dp, -2.1094801260314211e-01_dp, -2.5468188988232654e-01_dp, &
1777 1.8562195286267533e-01_dp, 1.5278152349671439e-01_dp, -2.2434059692085659e-01_dp, &
1778 8.4198910115564699e-02_dp, 3.7327357965615668e-03_dp, -7.0014770989066926e-03_dp, &
1779 1.2388533146386802e+01_dp, -7.9005727746800547e+00_dp, -1.6768805892952201e+00_dp, &
1780 3.1303583041097780e+00_dp, 2.9757366586635242e-01_dp, -1.0543635092197530e+00_dp, &
1781 -5.9806717900324746e-01_dp, 8.4749241097756289e-01_dp, 4.7566246950522223e-01_dp, &
1782 -1.1850653348692619e+00_dp, 7.6550203921832072e-01_dp, -2.1047358296363022e-01_dp, &
1783 1.7042274233523055e-02_dp, 2.9329613292850858e+01_dp, -2.5787172597477593e+01_dp, &
1784 -1.4204821244535877e+00_dp, 1.1964763351996828e+01_dp, -1.9597065992887659e+00_dp, &
1785 -4.3627229820786857e+00_dp, -3.9222745547684623e-01_dp, 3.6450051138022639e+00_dp, &
1786 4.9711724176984340e-01_dp, -4.9839121455852364e+00_dp, 4.5843906987281251e+00_dp, &
1787 -1.8840025476130395e+00_dp, 3.1143090085006336e-01_dp, 7.5288964164161186e+01_dp, &
1788 -9.0335134300893770e+01_dp, 1.4213295300102013e+01_dp, 4.4161535993359188e+01_dp, &
1789 -2.3939960756625741e+01_dp, -1.3093263270166732e+01_dp, 7.9641392095377705e+00_dp, &
1790 1.3766695386166811e+01_dp, -9.8502878978357327e+00_dp, -1.0558330710285986e+01_dp, &
1791 1.7789872343339511e+01_dp, -9.7871793631893524e+00_dp, 2.0435013450669803e+00_dp, &
1792 2.1650557215451059e+02_dp, -3.5651641429679739e+02_dp, 1.6757116494673738e+02_dp, &
1793 1.3519758005338315e+02_dp, -1.9366619517796931e+02_dp, 2.9213274253505041e+01_dp, &
1794 6.3389691171209662e+01_dp, 1.8187088316420692e+01_dp, -1.0836900917299248e+02_dp, &
1795 8.7474533360265895e+01_dp, -2.0470329785844417e+01_dp, -7.7295411530191132e+00_dp, &
1796 3.9109991716175272e+00_dp, 7.6235912249499665e+02_dp, -1.7181530353164492e+03_dp, &
1797 1.6377791571835323e+03_dp, -3.3946784295902592e+02_dp, -9.7252903864036193e+02_dp, &
1798 1.2354270580997018e+03_dp, -6.6463719849297411e+02_dp, 1.4060533750444611e+02_dp, &
1799 -5.3565858987836350e+01_dp, 1.4823802021219080e+02_dp, -1.4694213881725742e+02_dp, &
1800 6.5887306625564349e+01_dp, -1.1862205010260631e+01_dp, 2.6990399563726419e+00_dp, &
1801 -4.5606541750914703e-01_dp, -2.6625736807926959e-01_dp, 3.3786194855342760e-02_dp, &
1802 5.9720956580049278e-02_dp, 1.0206299110287578e-02_dp, -4.1412493078630895e-02_dp, &
1803 7.9885005336768396e-03_dp, 1.3447541252729038e-02_dp, -2.6017691043546186e-03_dp, &
1804 -8.7910286454442373e-03_dp, 6.7236958305186539e-03_dp, -1.5940141945756799e-03_dp, &
1805 4.0846562583048689e+00_dp, -1.1927022865417531e+00_dp, -5.5724233644012455e-01_dp, &
1806 2.3929021555236676e-01_dp, 1.6353741898513949e-01_dp, -2.9735107611800447e-02_dp, &
1807 -1.2793124562894490e-01_dp, 4.7930701290913279e-02_dp, 5.5361774728157669e-02_dp, &
1808 -3.9226885480863859e-02_dp, -1.1058674730255031e-02_dp, 1.8542247519973694e-02_dp, &
1809 -5.3076927066474976e-03_dp, 7.9215231943523268e+00_dp, -3.6845503235373944e+00_dp, &
1810 -1.3154610882028632e+00_dp, 1.1148266588452116e+00_dp, 4.2745695912670312e-01_dp, &
1811 -2.7683155181369429e-01_dp, -4.0167185145554668e-01_dp, 2.4904589781084449e-01_dp, &
1812 2.2516861354249776e-01_dp, -2.7804985084751915e-01_dp, 6.9038251045187016e-02_dp, &
1813 2.9781052441439151e-02_dp, -1.4527696704126849e-02_dp, 1.7339641636383043e+01_dp, &
1814 -1.1465395481325789e+01_dp, -2.7302697069655961e+00_dp, 4.4629359221611402e+00_dp, &
1815 7.1614646223286882e-01_dp, -1.4605259953560206e+00_dp, -1.0335490616197762e+00_dp, &
1816 1.1536772096440751e+00_dp, 7.7992282360725562e-01_dp, -1.5718730701413242e+00_dp/)
1817 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/8.6574572823904627e-01_dp, &
1818 -1.6889080712338411e-01_dp, -3.8729713566779244e-03_dp, 4.1076303571384891e+01_dp, &
1819 -3.6684994925539350e+01_dp, -3.4268355391161074e+00_dp, 1.6994010089726881e+01_dp, &
1820 -1.2988970233372894e+00_dp, -6.3669393876591824e+00_dp, -1.4789915209996456e+00_dp, &
1821 5.0459641372112225e+00_dp, 1.7604359362697857e+00_dp, -7.4519441974173777e+00_dp, &
1822 6.0042280072110019e+00_dp, -2.1903299806572583e+00_dp, 3.1342632696136241e-01_dp, &
1823 1.0537644349674036e+02_dp, -1.2495001078702305e+02_dp, 1.1671977638986354e+01_dp, &
1824 6.3509049743298789e+01_dp, -2.4624518831017006e+01_dp, -2.2991251058742133e+01_dp, &
1825 6.5440301808037606e+00_dp, 2.0726271091951617e+01_dp, -5.4834521038296886e+00_dp, &
1826 -2.4964517024507781e+01_dp, 2.9635321224675756e+01_dp, -1.4308796101738487e+01_dp, &
1827 2.7331662205056446e+00_dp, 2.9884951418781924e+02_dp, -4.7112538859165682e+02_dp, &
1828 1.6517376144736465e+02_dp, 2.2431316178052239e+02_dp, -2.1004912340787996e+02_dp, &
1829 -3.6841233998403162e+01_dp, 8.5018701750455719e+01_dp, 6.4270674161414831e+01_dp, &
1830 -1.1762295966994319e+02_dp, 1.4128076172212385e+01_dp, 6.8638839101450117e+01_dp, &
1831 -5.2639766289471062e+01_dp, 1.2875679284434117e+01_dp, 9.7963199739588015e+02_dp, &
1832 -2.0726596540764804e+03_dp, 1.5278705496087439e+03_dp, 4.2594838759546570e+02_dp, &
1833 -1.5473674085543355e+03_dp, 7.8543126899292076e+02_dp, 3.4775861155014280e+02_dp, &
1834 -2.1213591402524492e+02_dp, -7.6234790005893728e+02_dp, 1.1942226627680336e+03_dp, &
1835 -7.9341217678609769e+02_dp, 2.6356711429793290e+02_dp, -3.5098730768030379e+01_dp, &
1836 4.4532080783536394e+03_dp, -1.1976038810115935e+04_dp, 1.5216348304854013e+04_dp, &
1837 -9.1497778902350692e+03_dp, -2.5770601345297018e+03_dp, 1.1628742339594626e+04_dp, &
1838 -1.3276634853192494e+04_dp, 9.1770221622615209e+03_dp, -3.7823343104978308e+03_dp, &
1839 2.4407451616112442e+02_dp, 8.2977752842562359e+02_dp, -5.3212154229074201e+02_dp, &
1840 1.1938018424864173e+02_dp, 3.4262178292778683e-01_dp, -1.7261992206626605e-02_dp, &
1841 -2.2336602339871350e-02_dp, 1.1372975909513491e-02_dp, -1.4637411764816409e-02_dp, &
1842 1.9682898826632621e-02_dp, -1.9508686827707740e-02_dp, 1.5180239022615439e-02_dp, &
1843 -8.0494684598632436e-03_dp, 4.3996140717912250e-04_dp, 3.5809746378920688e-03_dp, &
1844 -2.8752058938169818e-03_dp, 7.9428830938936665e-04_dp, 1.2227594053594877e+00_dp, &
1845 -8.4033698327114534e-02_dp, -1.0674419107588769e-01_dp, 6.0462282288982330e-02_dp, &
1846 -7.0785676831264299e-02_dp, 9.5635549300517764e-02_dp, -9.4351933521006390e-02_dp, &
1847 7.0755447131140681e-02_dp, -3.4019702880768367e-02_dp, -3.3728225702757239e-03_dp, &
1848 2.1611313953339161e-02_dp, -1.5999188759917224e-02_dp, 4.3118753534726753e-03_dp, &
1849 2.8601521163296666e+00_dp, -2.9979848800794423e-01_dp, -3.7094815914666179e-01_dp, &
1850 2.4059291327186513e-01_dp, -2.5155247937875885e-01_dp, 3.3934844711305995e-01_dp, &
1851 -3.3320333083079079e-01_dp, 2.3651738850263895e-01_dp, -9.4854817960181387e-02_dp, &
1852 -4.0172372650363469e-02_dp, 9.8175845918375776e-02_dp, -6.7106282688909516e-02_dp, &
1853 1.7607790831527539e-02_dp, 6.5195485295712299e+00_dp, -1.0269942852581080e+00_dp, &
1854 -1.2316140242437659e+00_dp, 9.2057237167479200e-01_dp, -8.6609478324363198e-01_dp, &
1855 1.1499978387095577e+00_dp, -1.1250457879495033e+00_dp, 7.4504215559187936e-01_dp, &
1856 -2.1409102804328831e-01_dp, -2.5465251320434851e-01_dp, 4.2237116881553893e-01_dp, &
1857 -2.7025866808821075e-01_dp, 6.9222424341596048e-02_dp, 1.5601098721282909e+01_dp, &
1858 -3.5605032547397730e+00_dp, -4.1021042659113336e+00_dp, 3.5928399226527388e+00_dp, &
1859 -3.0663280855742157e+00_dp, 3.9096825239762416e+00_dp, -3.8079613332081270e+00_dp, &
1860 2.2900409541690148e+00_dp, -2.3404263306851089e-01_dp, -1.4199262179831273e+00_dp, &
1861 1.8507969187271571e+00_dp, -1.1142464342469358e+00_dp, 2.7855655064891799e-01_dp, &
1862 4.0485584978500526e+01_dp, -1.3109279621523161e+01_dp, -1.4273206648108861e+01_dp, &
1863 1.5134358148420791e+01_dp, -1.1885791275039221e+01_dp, 1.3904458082083121e+01_dp, &
1864 -1.3369820062766205e+01_dp, 6.8691260200838169e+00_dp, 1.8693426127542194e+00_dp, &
1865 -8.1523519343559254e+00_dp, 8.8821179988688765e+00_dp, -5.0221150779769559e+00_dp, &
1866 1.2204509968663211e+00_dp, 1.1797058394435172e+02_dp, -5.4419195200734706e+01_dp, &
1867 -5.4178470328491755e+01_dp, 7.3774886159171885e+01_dp, -5.5331810110639871e+01_dp, &
1868 5.4316621798868489e+01_dp, -4.9351105617752985e+01_dp, 1.7430778986280817e+01_dp, &
1869 2.6471231206118816e+01_dp, -5.4492738860827032e+01_dp, 5.1545112335746424e+01_dp, &
1870 -2.7216839193839707e+01_dp, 6.3684016980887135e+00_dp, 4.1049490910859993e+02_dp, &
1871 -2.8101620718403206e+02_dp, -2.3507330230842464e+02_dp, 4.6729944581388298e+02_dp, &
1872 -3.7007836528600853e+02_dp, 2.5620942949620382e+02_dp, -1.6276307350822648e+02_dp, &
1873 -4.7413775559957635e+01_dp, 3.3696413558725703e+02_dp, -5.0564162778438396e+02_dp, &
1874 4.3214949005292641e+02_dp, -2.1394266212194319e+02_dp, 4.7786865055818609e+01_dp, &
1875 1.9870073185576307e+03_dp, -2.2734345390187736e+03_dp, -1.0366644301592682e+03_dp, &
1876 4.9782231070513590e+03_dp, -5.8165480519264056e+03_dp, 2.9032478426631178e+03_dp, &
1877 2.0625281232662687e+03_dp, -7.2292182775277870e+03_dp, 1.0969088485231096e+04_dp, &
1878 -1.1554611433571949e+04_dp, 8.4527956060934266e+03_dp, -3.8415737929474558e+03_dp, &
1879 8.1110303330682132e+02_dp, 2.8606866433551854e+00_dp, -1.5669366038116742e-01_dp, &
1880 -2.0177594319939973e-01_dp, 1.0575962777565361e-01_dp, -1.3259082085957813e-01_dp, &
1881 1.7861218892252503e-01_dp, -1.7679239908469763e-01_dp, 1.3625980189079434e-01_dp, &
1882 -7.0554930091096479e-02_dp, 1.3046383793103491e-03_dp, 3.4551474369077309e-02_dp, &
1883 -2.7081602811949396e-02_dp, 7.4285468910542333e-03_dp, 4.5253856130077423e+00_dp, &
1884 -4.4517797470657283e-01_dp, -5.5534985895292899e-01_dp, 3.4609637177398361e-01_dp, &
1885 -3.7311782888019995e-01_dp, 5.0533840314273726e-01_dp, -4.9657643901723980e-01_dp, &
1886 3.5871272457032366e-01_dp, -1.5359061407378005e-01_dp, -4.6227951687665789e-02_dp, &
1887 1.3588639509874001e-01_dp, -9.4986322229029627e-02_dp, 2.5115468494290173e-02_dp, &
1888 9.3387030569139586e+00_dp, -1.4879589096614800e+00_dp, -1.7988658334718912e+00_dp, &
1889 1.2995109815487618e+00_dp, -1.2482340118753112e+00_dp, 1.6737963248029610e+00_dp, &
1890 -1.6379906508005568e+00_dp, 1.1048426169812811e+00_dp, -3.5465330257263172e-01_dp, &
1891 -3.2226064337605276e-01_dp, 5.7855934320968894e-01_dp, -3.7626009267967558e-01_dp, &
1892 9.6955612305782160e-02_dp, 2.1950328829710198e+01_dp, -5.0511260135942582e+00_dp, &
1893 -5.8862988319603264e+00_dp, 4.9441392015736385e+00_dp, -4.2994380387089803e+00_dp, &
1894 5.5897309543939446e+00_dp, -5.4527815856197339e+00_dp, 3.3734109423832814e+00_dp, &
1895 -5.5303193700046960e-01_dp, -1.7798059879978836e+00_dp, 2.4612001888686756e+00_dp, &
1896 -1.5076561686602952e+00_dp, 3.7961828447184426e-01_dp, 5.6677731876899855e+01_dp, &
1897 -1.8013663018122998e+01_dp, -1.9988781444904490e+01_dp, 1.9975665481283382e+01_dp, &
1898 -1.5915517724387783e+01_dp, 1.9377941803388104e+01_dp, -1.8776127280497441e+01_dp, &
1899 1.0211721332179954e+01_dp, 1.2166506526464049e+00_dp, -9.7300470047856056e+00_dp, &
1900 1.1178017920928982e+01_dp, -6.4583697384013634e+00_dp, 1.5861476220437252e+00_dp, &
1901 1.6266409498267876e+02_dp, -7.0874377152702721e+01_dp, -7.3232748732520108e+01_dp, &
1902 9.0638778034246016e+01_dp, -6.7833024061559215e+01_dp, 7.2645518074708306e+01_dp, &
1903 -6.8582720788466375e+01_dp, 2.9344572977161508e+01_dp, 2.3658760653171736e+01_dp, &
1904 -5.8749244736075021e+01_dp, 5.8359148143262004e+01_dp, -3.1682065751004121e+01_dp, &
1905 7.5424009759039885e+00_dp, 5.3985696776971338e+02_dp, -3.2878377292720995e+02_dp, &
1906 -3.0196845089030052e+02_dp, 4.9836773218871861e+02_dp, -3.7106297234816765e+02_dp, &
1907 3.1114524824685083e+02_dp, -2.6001905721418905e+02_dp, 4.3657614880237190e+01_dp, &
1908 2.5997836938226095e+02_dp, -4.4142314871954403e+02_dp, 3.9224023622037282e+02_dp, &
1909 -1.9948747668116454e+02_dp, 4.5558727242996810e+01_dp, 2.2518322147207505e+03_dp, &
1910 -2.0304752941146858e+03_dp, -1.4511666087126071e+03_dp, 3.8178668066270552e+03_dp, &
1911 -3.2459924653373946e+03_dp, 1.7680131097711978e+03_dp, -5.2399989243414564e+02_dp, &
1912 -1.3019719452938477e+03_dp, 3.7028205187866570e+03_dp, -5.0416739250637856e+03_dp, &
1913 4.1663670072848045e+03_dp, -2.0159642364314470e+03_dp, 4.4166941378618947e+02_dp, &
1914 1.4828081608364595e+04_dp, -2.2574049136099864e+04_dp, -4.2565500168210820e+03_dp, &
1915 5.5084825389384707e+04_dp, -8.2670207348266471e+04_dp, 4.6919568554688740e+04_dp, &
1916 4.8435800070201876e+04_dp, -1.5814297608851999e+05_dp, 2.2592917315340103e+05_dp, &
1917 -2.1798583714533239e+05_dp, 1.4577424945232089e+05_dp, -6.1348593359510611e+04_dp, &
1918 1.2191827498138327e+04_dp, 3.4532051271897191e-01_dp, 4.4100447073726646e-09_dp, &
1919 -1.9415646007041806e-02_dp, 1.5929327108429592e-02_dp, -1.1176571510952480e-02_dp, &
1920 -2.5877640413336351e-03_dp, 2.4137268336731563e-02_dp, -4.3674857388440270e-02_dp, &
1921 4.5860088560280322e-02_dp, -2.3078520914289882e-02_dp, -8.6082658270545242e-03_dp, &
1922 2.0469378895770350e-02_dp, -9.4442160284978153e-03_dp, 1.2359461442291915e+00_dp, &
1923 2.1613211945043984e-08_dp, -9.5224148443146792e-02_dp, 7.8125394169053466e-02_dp, &
1924 -5.2254864411876351e-02_dp, -1.6917118000855980e-02_dp, 1.2319600286256702e-01_dp, &
1925 -2.1709123959554127e-01_dp, 2.2390587928808975e-01_dp, -1.1000370261743218e-01_dp, &
1926 -4.3039738152667616e-02_dp, 9.7915585548516884e-02_dp, -4.4457276303720650e-02_dp, &
1927 2.9074409526161196e+00_dp, 7.7826482682482066e-08_dp, -3.4324867297490447e-01_dp, &
1928 2.8161341307550997e-01_dp, -1.7555608121572958e-01_dp, -8.2110170119991194e-02_dp, &
1929 4.6764741429324741e-01_dp, -7.9579019571154763e-01_dp, 8.0041604656281196e-01_dp, &
1930 -3.7948529579609275e-01_dp, -1.5906346472215843e-01_dp, 3.3960719652526311e-01_dp, &
1931 -1.5041051454561974e-01_dp, 6.6825165744494983e+00_dp, 2.6947500124974605e-07_dp, &
1932 -1.1899989328294034e+00_dp, 9.7631566011870097e-01_dp, -5.5706896221715130e-01_dp, &
1933 -3.6977101750415975e-01_dp, 1.7130054180455190e+00_dp, -2.8047552355031407e+00_dp, &
1934 2.7378646139272180e+00_dp, -1.2400284060281412e+00_dp, -5.6607288056274385e-01_dp, &
1935 1.1176163709452969e+00_dp, -4.7849425689590552e-01_dp, 1.6170325428899595e+01_dp, &
1936 9.4669250986364349e-07_dp, -4.1874399518362004e+00_dp, 3.4355103239851768e+00_dp, &
1937 -1.7339742570487151e+00_dp, -1.6747275450356629e+00_dp, 6.4121308809247504e+00_dp, &
1938 -1.0027369248263646e+01_dp, 9.4133727686313424e+00_dp, -3.9922245386706305e+00_dp, &
1939 -2.0492157416285433e+00_dp, 3.6364108946934444e+00_dp, -1.4765386616651448e+00_dp, &
1940 4.2602647072076110e+01_dp, 3.5480189961398575e-06_dp, -1.5730419782630479e+01_dp, &
1941 1.2905699113131829e+01_dp, -5.3595105861997663e+00_dp, -8.1972811001257586e+00_dp, &
1942 2.5924257535046760e+01_dp, -3.8176552987451025e+01_dp, 3.3842711727305677e+01_dp, &
1943 -1.2840341384820070e+01_dp, -7.9417840034024891e+00_dp, 1.1922026639891879e+01_dp, &
1944 -4.3665403821207924e+00_dp, 1.2689163866512382e+02_dp, 1.5118075434269657e-05_dp, &
1945 -6.7275555506731095e+01_dp, 5.5194557090186521e+01_dp, -1.5537886798726163e+01_dp, &
1946 -4.7253294284612615e+01_dp, 1.2145285812656974e+02_dp, -1.6368251320712150e+02_dp, &
1947 1.3132457381744328e+02_dp, -3.8713782602971918e+01_dp, -3.5040157951924371e+01_dp, &
1948 3.7792017841024283e+01_dp, -1.0016991740016113e+01_dp, 4.5777593919577163e+02_dp, &
1949 8.1637641969554641e-05_dp, -3.6580205008674420e+02_dp, 3.0011032726156765e+02_dp, &
1950 -1.3953035592512641e+01_dp, -3.7345160055057738e+02_dp, 7.4221682637239917e+02_dp/)
1951 REAL(kind=dp), DIMENSION(13, 18, 4), PARAMETER :: &
1952 coefdata = reshape((/c01, c02, c03/), (/13, 18, 4/))
1953
1954 INTEGER :: irange
1955
1956 IF (rc <= 1.0000000000000000e+01_dp) rc = 1.0000000000000000e+01_dp
1957 IF (rc >= 1.2759075164794922e+04_dp) rc = 1.2759075164794922e+04_dp
1958 IF (rc >= 1.0000000000000000e+01_dp .AND. rc <= 1.1566345417137983e+02_dp) THEN
1959 irange = 1
1960 l_b = 1.0000000000000000e+01_dp
1961 u_b = 1.1566345417137983e+02_dp
1962 END IF
1963 IF (rc >= 1.1566345417137983e+02_dp .AND. rc <= 1.1355688414729136e+03_dp) THEN
1964 irange = 2
1965 l_b = 1.1566345417137983e+02_dp
1966 u_b = 1.1355688414729136e+03_dp
1967 END IF
1968 IF (rc >= 1.1355688414729136e+03_dp .AND. rc <= 5.9775803550807823e+03_dp) THEN
1969 irange = 3
1970 l_b = 1.1355688414729136e+03_dp
1971 u_b = 5.9775803550807823e+03_dp
1972 END IF
1973 IF (rc >= 5.9775803550807823e+03_dp .AND. rc <= 1.2759075164794922e+04_dp) THEN
1974 irange = 4
1975 l_b = 5.9775803550807823e+03_dp
1976 u_b = 1.2759075164794922e+04_dp
1977 END IF
1978
1979 fit_coef(1:13, 1:18) = coefdata(1:13, 1:18, irange)
1980
1981 END SUBROUTINE get_fit_coef_k09
1982
1983! **************************************************************************************************
1984!> \brief ...
1985!> \param Rc ...
1986!> \param L_b ...
1987!> \param U_b ...
1988!> \param fit_coef ...
1989! **************************************************************************************************
1990 SUBROUTINE get_fit_coef_k10(Rc, L_b, U_b, fit_coef)
1991 REAL(kind=dp) :: rc, l_b, u_b
1992 REAL(kind=dp), DIMENSION(13, 20) :: fit_coef
1993
1994 REAL(kind=dp), DIMENSION(240), PARAMETER :: c03 = (/-6.3360994610628929e-01_dp, &
1995 9.7649518951989356e-01_dp, -1.0559988395317237e+00_dp, 7.8078414899977844e-01_dp, &
1996 -3.5500159005989329e-01_dp, 7.4673135592582374e-02_dp, 2.6285615412587124e+00_dp, &
1997 1.5860173767897436e-07_dp, -3.6913389708324101e-01_dp, 3.7465972064134995e-01_dp, &
1998 -3.1561014124123743e-01_dp, -5.7643482677198092e-02_dp, 9.2410177205176591e-01_dp, &
1999 -2.1835473996583254e+00_dp, 3.2970352241440182e+00_dp, -3.4960505581040451e+00_dp, &
2000 2.5278721705611331e+00_dp, -1.1186977080493512e+00_dp, 2.2749024280873054e-01_dp, &
2001 5.7493721709618049e+00_dp, 5.1131034673141817e-07_dp, -1.1909353988603624e+00_dp, &
2002 1.2087611583778604e+00_dp, -9.6018131262641071e-01_dp, -3.0452567745790421e-01_dp, &
2003 3.1471609396333315e+00_dp, -7.1728858417880028e+00_dp, 1.0580386353620003e+01_dp, &
2004 -1.0957261904298493e+01_dp, 7.7029457637581844e+00_dp, -3.2879502327488281e+00_dp, &
2005 6.3689329465605082e-01_dp, 1.3024889596738207e+01_dp, 1.6466878135911835e-06_dp, &
2006 -3.8389522217497509e+00_dp, 3.8964046167903090e+00_dp, -2.8718997405626689e+00_dp, &
2007 -1.4373626984851318e+00_dp, 1.0761889985401876e+01_dp, -2.3552965075047659e+01_dp, &
2008 3.3769385385787992e+01_dp, -3.3923608671499672e+01_dp, 2.2944182267670296e+01_dp, &
2009 -9.2816114732207033e+00_dp, 1.6586565047476383e+00_dp, 3.1432665091848261e+01_dp, &
2010 5.5045818221119110e-06_dp, -1.2848255060030274e+01_dp, 1.3040500498346995e+01_dp, &
2011 -8.6561473620662710e+00_dp, -6.7615560396841685e+00_dp, 3.8551980935564238e+01_dp, &
2012 -8.0342597911471927e+01_dp, 1.1094756895369210e+02_dp, -1.0670977647200603e+02_dp, &
2013 6.7945774392356341e+01_dp, -2.4996446349757960e+01_dp, 3.7523703565476070e+00_dp, &
2014 8.2776639766289406e+01_dp, 1.9927227577400854e-05_dp, -4.6589600081344805e+01_dp, &
2015 4.7286523741856939e+01_dp, -2.6646560758118390e+01_dp, -3.4199978931791321e+01_dp, &
2016 1.5164754664098274e+02_dp, -2.9661527406436210e+02_dp, 3.8780081459610972e+02_dp, &
2017 -3.4748842481061382e+02_dp, 1.9747486810222125e+02_dp, -5.7764787565672627e+01_dp, &
2018 3.9741149863670704e+00_dp, 2.4653488710994122e+02_dp, 8.2811812634509398e-05_dp, &
2019 -1.9410155849192833e+02_dp, 1.9700392058258890e+02_dp, -8.1422141386870905e+01_dp, &
2020 -2.0290030574898262e+02_dp, 6.9905487313819572e+02_dp, -1.2476934937878245e+03_dp, &
2021 1.4859985026297729e+03_dp, -1.1509015539974444e+03_dp, 4.7294812978393372e+02_dp, &
2022 -1.1374554419169920e+01_dp, -4.9602668093775350e+01_dp, 8.8939704304992472e+02_dp, &
2023 4.3913317689329946e-04_dp, -1.0337351134189328e+03_dp, 1.0491819395923051e+03_dp, &
2024 -1.5674657748993846e+02_dp, -1.6456617734696722e+03_dp, 4.2436228771404622e+03_dp, &
2025 -6.4096922420241744e+03_dp, 6.0719638526939207e+03_dp, -2.5708936520526772e+03_dp, &
2026 -1.4140287964490178e+03_dp, 2.4275532997866176e+03_dp, -9.6578744659039239e+02_dp, &
2027 4.6536562243205735e+03_dp, 3.9438897095978847e-03_dp, -9.3476143934673928e+03_dp, &
2028 9.4871562777538929e+03_dp, 5.1466047555988271e+03_dp, -2.8237091397710159e+04_dp, &
2029 4.3842210795647632e+04_dp, -2.9527423734560154e+04_dp, -2.8125488385754445e+04_dp, &
2030 1.0440567050324763e+05_dp, -1.3678916485878875e+05_dp, 9.3760628448597679e+04_dp, &
2031 -2.7703671833937438e+04_dp, 2.7347133607954048e+00_dp, 8.9893013343578908e-08_dp, &
2032 -2.0901102881611386e-01_dp, 2.1214036968796418e-01_dp, -1.9242931099074201e-01_dp, &
2033 -4.6222152733960808e-03_dp, 4.8292883261738540e-01_dp, -1.2026007686844928e+00_dp, &
2034 1.8735094311067497e+00_dp, -2.0464478608991055e+00_dp, 1.5298400325094081e+00_dp, &
2035 -7.0456884498313244e-01_dp, 1.5049712771824222e-01_dp, 4.1788056884786338e+00_dp, &
2036 2.3922482564732447e-07_dp, -5.5667371811520094e-01_dp, 5.6500721075193983e-01_dp, &
2037 -4.8270517088007758e-01_dp, -7.3153070762063260e-02_dp, 1.3743457496872575e+00_dp, &
2038 -3.2780462608547563e+00_dp, 4.9787719700231952e+00_dp, -5.3097509004990568e+00_dp, &
2039 3.8648752483084237e+00_dp, -1.7244548775870321e+00_dp, 3.5436350814717738e-01_dp, &
2040 8.2149049298385233e+00_dp, 7.5131065115636197e-07_dp, -1.7496558689886887e+00_dp, &
2041 1.7758451683120040e+00_dp, -1.4284432030977785e+00_dp, -4.1105297713265365e-01_dp, &
2042 4.5754862006213592e+00_dp, -1.0506814920577511e+01_dp, 1.5577169057113929e+01_dp, &
2043 -1.6217703754793195e+01_dp, 1.1475030104148107e+01_dp, -4.9399708582597350e+00_dp, &
2044 9.6830600717441639e-01_dp, 1.8261194412040087e+01_dp, 2.3800351273101264e-06_dp, &
2045 -5.5474414243405885e+00_dp, 5.6304652949007590e+00_dp, -4.2224080442212388e+00_dp, &
2046 -1.9292280668308683e+00_dp, 1.5363529652698020e+01_dp, -3.3932770509938848e+01_dp, &
2047 4.8979621527255397e+01_dp, -4.9571574115119340e+01_dp, 3.3856280052461059e+01_dp, &
2048 -1.3889532396024331e+01_dp, 2.5377006524511256e+00_dp, 4.4058973569111785e+01_dp, &
2049 7.7835134661955194e-06_dp, -1.8161678578197755e+01_dp, 1.8433441512633923e+01_dp, &
2050 -1.2590211927409817e+01_dp, -8.8344038021778299e+00_dp, 5.3618887193845289e+01_dp, &
2051 -1.1320132345144582e+02_dp, 1.5796945077014172e+02_dp, -1.5386547456867649e+02_dp, &
2052 9.9772878898220497e+01_dp, -3.7833032575922452e+01_dp, 6.0353219200773358e+00_dp, &
2053 1.1568580381278532e+02_dp, 2.7277035891925943e-05_dp, -6.3738620396398332e+01_dp, &
2054 6.4692155157605299e+01_dp, -3.8542281982295471e+01_dp, -4.2526459742796327e+01_dp, &
2055 2.0263872121445911e+02_dp, -4.0468067321359194e+02_dp, 5.3921183956405559e+02_dp, &
2056 -4.9575997036083578e+02_dp, 2.9437494939739389e+02_dp, -9.4973641633375749e+01_dp, &
2057 1.0052032668988744e+01_dp, 3.3844441481139603e+02_dp, 1.0708615847444910e-04_dp, &
2058 -2.5073874169991208e+02_dp, 2.5448859830947686e+02_dp, -1.2076885762164136e+02_dp, &
2059 -2.3028236778445304e+02_dp, 8.7071015385976250e+02_dp, -1.6152471653168971e+03_dp, &
2060 2.0059864954392992e+03_dp, -1.6663062126313935e+03_dp, 8.1553595526745528e+02_dp, &
2061 -1.4640889696758140e+02_dp, -2.6500762414317144e+01_dp, 1.1548838669601862e+03_dp, &
2062 5.0406126126581669e-04_dp, -1.1839335596846738e+03_dp, 1.2016308566170446e+03_dp, &
2063 -3.4715885980007397e+02_dp, -1.5427529687412427e+03_dp, 4.5828692243129517e+03_dp, &
2064 -7.6048801944765419e+03_dp, 8.2881674827925654e+03_dp, -5.3672515338847079e+03_dp, &
2065 9.8514173264072872e+02_dp, 1.1594528623077892e+03_dp, -6.5416602461076945e+02_dp, &
2066 5.0521007201290549e+03_dp, 3.2560476887267091e-03_dp, -7.6890070328778293e+03_dp, &
2067 7.8038462290402367e+03_dp, 3.9687198253925811e+02_dp, -1.5428524978799329e+04_dp, &
2068 3.4098140303215056e+04_dp, -4.5038353268521678e+04_dp, 3.2436968649400857e+04_dp, &
2069 3.7529823967807060e+03_dp, -3.4972750744217890e+04_dp, 3.3219164891303109e+04_dp, &
2070 -1.1400731607075682e+04_dp, 3.7061397677567882e+04_dp, 4.2647739208431207e-02_dp, &
2071 -1.0102666755386532e+05_dp, 1.0253508247597031e+05_dp, 1.0602636418265585e+05_dp, &
2072 -4.0728952867028292e+05_dp, 4.6976444940836332e+05_dp, 5.8500781101532266e+04_dp, &
2073 -1.2055500949944141e+06_dp, 2.3598896259778733e+06_dp, -2.5585975849316372e+06_dp, &
2074 1.5841592037308544e+06_dp, -4.3843418788217887e+05_dp/)
2075 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/2.5561005851553148e-01_dp, &
2076 -9.8727639373792656e-02_dp, -3.5824853081321391e-02_dp, 1.3639809429163310e-02_dp, &
2077 1.2140312218587666e-02_dp, -4.6051578600266093e-03_dp, -5.2440292404026837e-03_dp, &
2078 1.6141788048728977e-03_dp, 4.9068438183985687e-03_dp, -3.8643109440260576e-03_dp, &
2079 -1.3246866398568792e-05_dp, 9.9919760932901634e-04_dp, -3.1484202326100442e-04_dp, &
2080 8.4272796404557193e-01_dp, -3.8901613573165461e-01_dp, -1.0067616997785502e-01_dp, &
2081 7.5588609850681651e-02_dp, 3.4648448246217420e-02_dp, -3.0893154344547202e-02_dp, &
2082 -1.4586932713617575e-02_dp, 1.2131777659737109e-02_dp, 2.0819225767407759e-02_dp, &
2083 -2.8910339615850700e-02_dp, 1.3280887656117454e-02_dp, -1.7063570583648409e-03_dp, &
2084 -2.9519647286739830e-04_dp, 1.6891663892562130e+00_dp, -1.0264543983393131e+00_dp, &
2085 -1.0644178450031999e-01_dp, 2.6441701384654470e-01_dp, 2.6556013010702633e-02_dp, &
2086 -1.1958261699563323e-01_dp, -4.5401290095952633e-03_dp, 5.1008274807051057e-02_dp, &
2087 4.5353450819585334e-02_dp, -1.1487744057269965e-01_dp, 8.4790329561634001e-02_dp, &
2088 -2.9250363584235169e-02_dp, 3.9794003608289051e-03_dp, 3.0862814349867831e+00_dp, &
2089 -2.5146525088601708e+00_dp, 1.6647176896057306e-01_dp, 7.3389153069620650e-01_dp, &
2090 -1.4890295143927060e-01_dp, -3.3532945050846130e-01_dp, 1.0826191575795263e-01_dp, &
2091 1.5317085471740924e-01_dp, 2.1245529597518711e-02_dp, -2.8990367580166487e-01_dp, &
2092 2.8971901471196243e-01_dp, -1.2768396771603524e-01_dp, 2.2620465138046251e-02_dp, &
2093 5.5612937791608781e+00_dp, -5.9652373960236220e+00_dp, 1.4638363568522026e+00_dp, &
2094 1.6757996697253348e+00_dp, -9.4543407221718756e-01_dp, -6.8535446452406956e-01_dp, &
2095 5.7877541374209429e-01_dp, 3.2873788086829692e-01_dp, -3.1394297986526876e-01_dp, &
2096 -3.7134857531460552e-01_dp, 6.2436702901871433e-01_dp, -3.4134184222136776e-01_dp, &
2097 7.0290493767657503e-02_dp, 1.0134025998635400e+01_dp, -1.3929286667259428e+01_dp, &
2098 6.1321763420892008e+00_dp, 2.9330166883940492e+00_dp, -3.6140733174101785e+00_dp, &
2099 -6.7590309312420871e-01_dp, 1.9913635070734654e+00_dp, 2.9670856040397131e-01_dp, &
2100 -1.6412798075937387e+00_dp, 5.9540353669355439e-01_dp, 5.5718678791010678e-01_dp, &
2101 -5.3739746596150106e-01_dp, 1.3768553709528983e-01_dp, 1.8880739332952572e+01_dp, &
2102 -3.2415164403909472e+01_dp, 2.1344280000859261e+01_dp, 1.8599622720347415e+00_dp, &
2103 -1.0841361053976007e+01_dp, 2.4783487242921880e+00_dp, 4.9433547282134356e+00_dp, &
2104 -1.5295881914775833e+00_dp, -4.7733675746929487e+00_dp, 5.4211714199806815e+00_dp, &
2105 -2.2746955524517021e+00_dp, 2.2802023048670481e-01_dp, 6.9582676550312542e-02_dp, &
2106 3.6335716382001010e+01_dp, -7.6018306813772128e+01_dp, 6.8732879845752208e+01_dp, &
2107 -1.6316998250306515e+01_dp, -2.4243518494944528e+01_dp, 1.8917610164460754e+01_dp, &
2108 5.5832946785483388e+00_dp, -1.0154671149564965e+01_dp, -5.3612772885590845e+00_dp, &
2109 1.6258259712293338e+01_dp, -1.2814243372405180e+01_dp, 4.8354454594839140e+00_dp, &
2110 -7.5082718737346388e-01_dp, 7.4215448848755400e+01_dp, -1.8335462266162904e+02_dp, &
2111 2.1358039078323498e+02_dp, -1.1557194919902095e+02_dp, -1.6853548075444962e+01_dp, &
2112 6.4520986380399108e+01_dp, -2.2746737191584021e+01_dp, -2.2062101091379237e+01_dp, &
2113 1.7789460655504136e+01_dp, 9.0031524935346070e+00_dp, -1.8542030042521016e+01_dp, &
2114 1.0164879826355794e+01_dp, -2.0735114143734910e+00_dp, 1.8341446865250575e+02_dp, &
2115 -5.0877391178005558e+02_dp, 7.0449341000362926e+02_dp, -5.5517124915990166e+02_dp, &
2116 1.8704002208932476e+02_dp, 8.2551818013538082e+01_dp, -1.0679714348268803e+02_dp, &
2117 9.0991109491737330e+00_dp, 4.1126744560482862e+01_dp, -1.8803518402205185e+01_dp, &
2118 -8.8575702273859580e+00_dp, 1.0182151829754702e+01_dp, -2.6408507910563315e+00_dp, &
2119 2.0934716095248742e+00_dp, -8.4746055605151593e-01_dp, -2.8427750491443193e-01_dp, &
2120 1.3068018915578153e-01_dp, 9.7384350056846619e-02_dp, -4.7397825964349709e-02_dp, &
2121 -4.2114616553585213e-02_dp, 1.7316564939632989e-02_dp, 4.3715952641648077e-02_dp, &
2122 -4.1554266092337727e-02_dp, 7.4054798396290897e-03_dp, 5.5977770808678454e-03_dp, &
2123 -2.2373612160795555e-03_dp, 2.7210036656294760e+00_dp, -1.6335020259554927e+00_dp, &
2124 -2.0680846939368511e-01_dp, 4.2349947782997177e-01_dp, 6.8122910566226311e-02_dp, &
2125 -1.9210163151722040e-01_dp, -2.3321895976892021e-02_dp, 8.0146433140384166e-02_dp, &
2126 8.7876154568316808e-02_dp, -1.8834452288276832e-01_dp, 1.2728988197515606e-01_dp, &
2127 -3.9391516952941304e-02_dp, 4.4839495381117809e-03_dp, 4.2368736629375707e+00_dp, &
2128 -3.7802973669397950e+00_dp, 2.8694988069048666e-01_dp, 1.1892835304153320e+00_dp, &
2129 -2.1162718986798351e-01_dp, -5.6362634575947124e-01_dp, 1.5250211850697887e-01_dp, &
2130 2.5537886963697748e-01_dp, 7.9649433013108686e-02_dp, -5.2911720038955190e-01_dp, &
2131 5.0012923442134083e-01_dp, -2.1252561189029046e-01_dp, 3.6393804438124989e-02_dp, &
2132 7.2758481879346171e+00_dp, -8.8167800124863280e+00_dp, 2.3330958495202210e+00_dp, &
2133 2.7108042687959344e+00_dp, -1.4637274671449114e+00_dp, -1.1890746322064221e+00_dp, &
2134 9.0715716740563646e-01_dp, 5.8170114998851308e-01_dp, -4.2989157564081804e-01_dp, &
2135 -7.8489539565179522e-01_dp, 1.1632291726097599e+00_dp, -6.1430639748629101e-01_dp, &
2136 1.2402938836877603e-01_dp, 1.3170364441482098e+01_dp, -2.0369157267246411e+01_dp, &
2137 9.4288085210953678e+00_dp, 4.8217116031330969e+00_dp, -5.6861997313549448e+00_dp, &
2138 -1.3780670845149023e+00_dp, 3.2453891736082223e+00_dp, 6.9371123634570475e-01_dp, &
2139 -2.7043289246339368e+00_dp, 6.9595595974366786e-01_dp, 1.2333657622496881e+00_dp, &
2140 -1.0391669343871834e+00_dp, 2.5704620438014530e-01_dp, 2.4716167001767921e+01_dp, &
2141 -4.7051480106065966e+01_dp, 3.2155480577188463e+01_dp, 3.9571391906830309e+00_dp, &
2142 -1.7481873346539064e+01_dp, 2.9769207206580353e+00_dp, 8.6315702725343542e+00_dp, &
2143 -1.8390311278544129e+00_dp, -8.6328002259793184e+00_dp, 8.8292799810814202e+00_dp, &
2144 -3.1386229669783341e+00_dp, -2.3715217346491377e-02_dp, 2.0535568808319654e-01_dp, &
2145 4.8051665196315099e+01_dp, -1.0976439154416751e+02_dp, 1.0235279436257439e+02_dp, &
2146 -2.0383771987790944e+01_dp, -4.2573982577312300e+01_dp, 2.8489936514971767e+01_dp, &
2147 1.3632688101723078e+01_dp, -1.6113634285018911e+01_dp, -1.5125986568044409e+01_dp, &
2148 3.3059561366308991e+01_dp, -2.3793635327665104e+01_dp, 8.3081513867812440e+00_dp, &
2149 -1.1774786371362731e+00_dp, 9.8355243119061484e+01_dp, -2.6174079961725596e+02_dp, &
2150 3.1507317101618884e+02_dp, -1.6085984367937596e+02_dp, -5.3691559005483263e+01_dp, &
2151 1.1770786081977101e+02_dp, -2.4626973913536151e+01_dp, -5.6303483179808985e+01_dp, &
2152 2.8847539985623889e+01_dp, 3.7907983907152932e+01_dp, -5.4916726607563149e+01_dp, &
2153 2.8300062799138427e+01_dp, -5.6436900258842000e+00_dp, 2.2780023889155092e+02_dp, &
2154 -6.6928883833527561e+02_dp, 9.6616701087926413e+02_dp, -7.6933915858921614e+02_dp, &
2155 2.0967951970184987e+02_dp, 2.2235553142415941e+02_dp, -2.3712254219885492e+02_dp, &
2156 8.8535187310337022e+00_dp, 1.3723076658510743e+02_dp, -1.0892853389708965e+02_dp, &
2157 3.0016643813667478e+01_dp, 3.2568204150430908e+00_dp, -2.6599172689595973e+00_dp, &
2158 8.4295965555020791e+02_dp, -2.5052951870900652e+03_dp, 3.8112871716634299e+03_dp, &
2159 -3.5307900192682346e+03_dp, 1.8732914678507132e+03_dp, -2.3164482385830567e+02_dp, &
2160 -3.8311716432588844e+02_dp, 1.7973313419763957e+02_dp, 9.3149821542615896e+01_dp, &
2161 -1.0608074184561853e+02_dp, 1.5210241656314690e+01_dp, 1.7089336905208167e+01_dp, &
2162 -6.3589478647152200e+00_dp, 3.0592957565289286e-01_dp, -5.1110929330852831e-02_dp, &
2163 -2.8987289080467823e-02_dp, 3.3561895390932014e-03_dp, 7.5514448011207201e-03_dp, &
2164 1.5139979831753692e-04_dp, -4.1708804842884705e-03_dp, 6.3660879882102028e-04_dp, &
2165 1.8200902121666236e-03_dp, -4.4081413042472650e-04_dp, -1.0534265079120433e-03_dp, &
2166 8.4103592321804256e-04_dp, -2.0186508759774654e-04_dp, 1.0525777831189882e+00_dp, &
2167 -2.2605017958924992e-01_dp, -1.1386949796815091e-01_dp, 2.9774643144139291e-02_dp, &
2168 3.3954500666697272e-02_dp, -5.4949904510822227e-03_dp, -1.9959719518336631e-02_dp, &
2169 5.5330636693116369e-03_dp, 1.0456790729486607e-02_dp, -6.1821591900185022e-03_dp, &
2170 -2.5994663457028877e-03_dp, 3.4568072502680707e-03_dp, -9.4576165761213102e-04_dp, &
2171 2.2919336198838280e+00_dp, -7.0509806233015249e-01_dp, -2.9188032941530057e-01_dp, &
2172 1.5316780817827591e-01_dp, 1.0010940584584704e-01_dp, -4.5873718932214910e-02_dp, &
2173 -6.4374651563716148e-02_dp, 3.0933040465657206e-02_dp, 4.2615946369704352e-02_dp, &
2174 -4.3329755675445232e-02_dp, 7.3263430836030315e-03_dp, 6.6279030394463092e-03_dp, &
2175 -2.6348013649783435e-03_dp, 4.7111266696595502e+00_dp, -2.0753802897217151e+00_dp, &
2176 -6.5267974687686825e-01_dp, 6.1871821696202411e-01_dp, 2.3731527891030152e-01_dp, &
2177 -2.2970544582560379e-01_dp, -1.7157602804264291e-01_dp, 1.4120918754911052e-01_dp, &
2178 1.4835360673290199e-01_dp, -2.2594398043496730e-01_dp, 1.0338085286845002e-01_dp, &
2179 -1.1064326042678516e-02_dp, -3.2650162585572047e-03_dp, 9.8473743889612759e+00_dp, &
2180 -6.0131980554589237e+00_dp, -1.2129491990772383e+00_dp, 2.2254376519254429e+00_dp, &
2181 3.6302894568783933e-01_dp, -9.4270878563778415e-01_dp, -3.3552531531919016e-01_dp, &
2182 5.7912063800107416e-01_dp, 4.2064135755829263e-01_dp, -9.8733374612298730e-01_dp, &
2183 6.6042114139286523e-01_dp, -1.9752444965211660e-01_dp, 2.0598380207893886e-02_dp, &
2184 2.1453757316653739e+01_dp, -1.7636195844827874e+01_dp, -1.1722260578775618e+00_dp, &
2185 7.5540641100286328e+00_dp, -5.1916302328323216e-01_dp, -3.4197651131825317e+00_dp, &
2186 -4.8633514010784806e-02_dp, 2.2205434162034567e+00_dp, 6.2862136700524063e-01_dp, &
2187 -3.5713176709083991e+00_dp, 3.1667300178926499e+00_dp, -1.2773737284357061e+00_dp, &
2188 2.0804275445421447e-01_dp, 4.9455179001078307e+01_dp, -5.3788204979410104e+01_dp, &
2189 5.5826058527127156e+00_dp, 2.4646678349298128e+01_dp, -9.0061724463921937e+00_dp, &
2190 -1.0659622095516202e+01_dp, 4.4620017759335129e+00_dp, 7.7884822664291757e+00_dp, &
2191 -3.4529539803486271e+00_dp, -8.5214099311418341e+00_dp, 1.1263431473903086e+01_dp, &
2192 -5.6921726426224888e+00_dp, 1.1214589809695603e+00_dp, 1.2269759721177081e+02_dp, &
2193 -1.7567244385618403e+02_dp, 5.7907863244030423e+01_dp, 7.4194919093471611e+01_dp, &
2194 -6.3873800026211477e+01_dp, -1.9928072277598243e+01_dp, 3.3660133146703842e+01_dp, &
2195 1.9714768039645122e+01_dp, -4.2363027488591541e+01_dp, 1.1603745291817669e+01_dp, &
2196 1.6417376687682371e+01_dp, -1.4366009866157320e+01_dp, 3.6184944957788190e+00_dp, &
2197 3.3684139089809150e+02_dp, -6.3751305400246281e+02_dp, 4.1416908794179335e+02_dp, &
2198 1.3688234571140524e+02_dp, -3.7063608979057182e+02_dp, 1.2143722822915174e+02_dp, &
2199 1.3731882710289389e+02_dp, -4.6346221563435897e+01_dp, -2.0268131602498934e+02_dp, &
2200 2.7850969054636107e+02_dp, -1.6672316424649100e+02_dp, 4.9139777093543977e+01_dp, &
2201 -5.4771033390485266e+00_dp, 1.1166365406065504e+03_dp, -2.7547693853452047e+03_dp, &
2202 3.0256333468051180e+03_dp, -1.2247747589089884e+03_dp, -1.0361905831178201e+03_dp, &
2203 1.8075416359519638e+03_dp, -1.0299807587967950e+03_dp, 1.1242398674681689e+02_dp, &
2204 5.2546835084300625e+01_dp, 2.0209424570528384e+02_dp, -2.8565373044965975e+02_dp, &
2205 1.4996446737543528e+02_dp, -3.0374236420884017e+01_dp, 2.5318787052609042e+00_dp, &
2206 -4.5232522380132079e-01_dp, -2.4894203765998704e-01_dp, 3.7844517569960621e-02_dp, &
2207 6.7481113092261444e-02_dp, -1.8350883302710324e-03_dp, -3.7893183999051401e-02_dp, &
2208 6.9921199011088479e-03_dp, 1.7385860790483609e-02_dp, -5.9031381997973701e-03_dp/)
2209 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/-8.4867222607997398e-03_dp, &
2210 7.4160230219779905e-03_dp, -1.8338341118192985e-03_dp, 3.6656246502838239e+00_dp, &
2211 -1.0862821007061922e+00_dp, -4.7299838594788851e-01_dp, 2.1791529395255307e-01_dp, &
2212 1.6235258776392880e-01_dp, -5.9164629917823931e-02_dp, -1.0182204867540855e-01_dp, &
2213 4.1466211524979202e-02_dp, 6.2596474192031126e-02_dp, -5.4084127674425816e-02_dp, &
2214 8.8525531803891741e-04_dp, 1.4025724547496657e-02_dp, -4.6032712047529446e-03_dp, &
2215 6.6769922009854454e+00_dp, -3.0970371708527678e+00_dp, -1.0140989359103294e+00_dp, &
2216 9.1150511260383493e-01_dp, 3.9216519842874853e-01_dp, -3.2543013169962537e-01_dp, &
2217 -2.7778597097915597e-01_dp, 1.9772597022734270e-01_dp, 2.2579283394692193e-01_dp, &
2218 -3.0593985439637572e-01_dp, 1.1622044051596585e-01_dp, 2.0410252870715667e-03_dp, &
2219 -8.3966296975702334e-03_dp, 1.3623320699171776e+01_dp, -8.8558893274426165e+00_dp, &
2220 -1.9149805228610246e+00_dp, 3.2774967810751803e+00_dp, 6.8478362995256370e-01_dp, &
2221 -1.3680993330511229e+00_dp, -5.9476667203260292e-01_dp, 8.2139559031258302e-01_dp, &
2222 6.9090776235235218e-01_dp, -1.4058701920349088e+00_dp, 8.5413836920236308e-01_dp, &
2223 -2.1810741182595644e-01_dp, 1.4255082384362025e-02_dp, 2.9748852628521725e+01_dp, &
2224 -2.5626593581102714e+01_dp, -2.2281795814990457e+00_dp, 1.1083089209567575e+01_dp, &
2225 -1.3736928750062674e-01_dp, -5.0763678761476774e+00_dp, -5.0249418564834214e-01_dp, &
2226 3.1849945099789339e+00_dp, 1.4726022355354449e+00_dp, -5.4992302941830431e+00_dp, &
2227 4.4719918101122813e+00_dp, -1.6727141406904336e+00_dp, 2.4977009750404219e-01_dp, &
2228 6.9037893211784962e+01_dp, -7.6964135274020265e+01_dp, 5.4824348905454112e+00_dp, &
2229 3.6332914820361268e+01_dp, -1.0145340748522697e+01_dp, -1.6794616142996990e+01_dp, &
2230 4.6404572235591202e+00_dp, 1.1643820898102305e+01_dp, -1.5727289341303272e+00_dp, &
2231 -1.6439340401781347e+01_dp, 1.8245888309513088e+01_dp, -8.5306553392815161e+00_dp, &
2232 1.5879795273877024e+00_dp, 1.7182022390659438e+02_dp, -2.4613776736324084e+02_dp, &
2233 6.7186754104591998e+01_dp, 1.1416051467226143e+02_dp, -7.7001090430108874e+01_dp, &
2234 -4.3041023883777321e+01_dp, 4.2330169680693920e+01_dp, 3.6483814289573353e+01_dp, &
2235 -4.6424717513479678e+01_dp, -1.3561530898217379e+01_dp, 4.6964917734628436e+01_dp, &
2236 -2.9562882553835443e+01_dp, 6.6027180009057211e+00_dp, 4.6773081093747555e+02_dp, &
2237 -8.6370782747484213e+02_dp, 4.7050209287821843e+02_dp, 2.9908873234382622e+02_dp, &
2238 -4.7104852448475293e+02_dp, 1.6889908350425834e+01_dp, 2.3791881917263390e+02_dp, &
2239 3.6767254629124110e+01_dp, -3.4434736297874019e+02_dp, 2.9580663084422144e+02_dp, &
2240 -8.4122378160736815e+01_dp, -1.4744687754938745e+01_dp, 1.0220647890227653e+01_dp, &
2241 1.4510103014196029e+03_dp, -3.4619055478794439e+03_dp, 3.2324145408972931e+03_dp, &
2242 -2.0171830139352292e+02_dp, -2.4226448619655516e+03_dp, 1.8793554815989780e+03_dp, &
2243 3.7645024254807635e+02_dp, -1.0119465757689406e+03_dp, -5.4242419196334629e+02_dp, &
2244 1.9807634322220583e+03_dp, -1.7934401838025353e+03_dp, 7.8212645881853916e+02_dp, &
2245 -1.4202019050520397e+02_dp, 6.2496239305148747e+03_dp, -1.7931776674939312e+04_dp, &
2246 2.4916823442349287e+04_dp, -1.8499646284135801e+04_dp, 2.2582520021478135e+03_dp, &
2247 1.1773422282371406e+04_dp, -1.5812069270655764e+04_dp, 1.1855294782461493e+04_dp, &
2248 -6.1493986813322972e+03_dp, 2.3758121921599381e+03_dp, -6.9588428484459973e+02_dp, &
2249 1.3762196426902483e+02_dp, -1.1913138218513865e+01_dp, 3.2470276062374315e-01_dp, &
2250 -1.9003588934512133e-02_dp, -1.8355145860536166e-02_dp, 6.0475341198086311e-03_dp, &
2251 -6.7274274564422471e-03_dp, 1.0743771705419822e-02_dp, -1.1306871751006364e-02_dp, &
2252 1.0146638916666086e-02_dp, -8.7364678660853939e-03_dp, 6.4093949316994117e-03_dp, &
2253 -3.3864501126037571e-03_dp, 1.0980797299645153e-03_dp, -1.6237200712845642e-04_dp, &
2254 1.1376077378517864e+00_dp, -8.8168978454148964e-02_dp, -8.2966960947689752e-02_dp, &
2255 3.2220461688134687e-02_dp, -3.0778141035688236e-02_dp, 4.9924652120375348e-02_dp, &
2256 -5.3251003530151837e-02_dp, 4.6974990767227179e-02_dp, -3.9775722053066218e-02_dp, &
2257 2.9079117771650204e-02_dp, -1.5334031453898066e-02_dp, 4.9235548695483276e-03_dp, &
2258 -7.1155987460411857e-04_dp, 2.5663032612728065e+00_dp, -2.9417413930700842e-01_dp, &
2259 -2.6658115314553854e-01_dp, 1.2655515440162460e-01_dp, -1.0170953149105190e-01_dp, &
2260 1.6637618853203828e-01_dp, -1.8127899261011421e-01_dp, 1.5639283645717517e-01_dp, &
2261 -1.2892869855711223e-01_dp, 9.3691422159345950e-02_dp, -4.9367488223686778e-02_dp, &
2262 1.5676761588867189e-02_dp, -2.1960515393188405e-03_dp, 5.5501559534518865e+00_dp, &
2263 -9.3353792174523964e-01_dp, -8.0931985604485024e-01_dp, 4.6774970561508383e-01_dp, &
2264 -3.2499339716017250e-01_dp, 5.2455331020275098e-01_dp, -5.8731514467566936e-01_dp, &
2265 4.9583685161075564e-01_dp, -3.9426634261390675e-01_dp, 2.8367707651694279e-01_dp, &
2266 -1.4984448875803760e-01_dp, 4.7282829011273904e-02_dp, -6.4299987442053754e-03_dp, &
2267 1.2388957662684190e+01_dp, -2.9507992375405814e+00_dp, -2.4213308891809810e+00_dp, &
2268 1.7155106808462175e+00_dp, -1.0620015587182443e+00_dp, 1.6352185410468572e+00_dp, &
2269 -1.8946239202850306e+00_dp, 1.5686621116997250e+00_dp, -1.1845997162664987e+00_dp, &
2270 8.3552549739590276e-01_dp, -4.4419948824934929e-01_dp, 1.4059544874631708e-01_dp, &
2271 -1.8723783798815802e-02_dp, 2.9330516223788635e+01_dp, -9.6326512564302238e+00_dp, &
2272 -7.3400314978953354e+00_dp, 6.5269889977849020e+00_dp, -3.7394128859062916e+00_dp, &
2273 5.2122480243556142e+00_dp, -6.2925500085850317e+00_dp, 5.1355169298916543e+00_dp, &
2274 -3.5833520026413055e+00_dp, 2.4087579835578392e+00_dp, -1.2892152657735232e+00_dp, &
2275 4.1552495501679831e-01_dp, -5.5252748929712804e-02_dp, 7.5280704759745987e+01_dp, &
2276 -3.3767849596353095e+01_dp, -2.3070194711950077e+01_dp, 2.6937913499898457e+01_dp, &
2277 -1.5152121320132757e+01_dp, 1.7635732437963757e+01_dp, -2.2164824763993362e+01_dp, &
2278 1.8037707168064706e+01_dp, -1.1050554303680990e+01_dp, 6.4306484729918472e+00_dp, &
2279 -3.3403778828301771e+00_dp, 1.1062691086411864e+00_dp, -1.4900634156067252e-01_dp, &
2280 2.1606787442647337e+02_dp, -1.3382440328877573e+02_dp, -7.6047551699211525e+01_dp, &
2281 1.2760861971346685e+02_dp, -7.7609951567506357e+01_dp, 6.7526383179937113e+01_dp, &
2282 -8.4589255870543653e+01_dp, 7.0008722016727575e+01_dp, -3.3736145353795237e+01_dp, &
2283 9.4396713074454439e+00_dp, -1.5637007492391390e+00_dp, 1.1171056998266990e-02_dp, &
2284 1.1212771079965393e-01_dp, 7.3384991880302323e+02_dp, -6.5417335621128620e+02_dp, &
2285 -2.4586250567902340e+02_dp, 7.5968666626958600e+02_dp, -5.8873803425324638e+02_dp, &
2286 3.5879791502938718e+02_dp, -3.3980659001725331e+02_dp, 2.7598165136284933e+02_dp, &
2287 -5.9140159002267268e+01_dp, -1.2294529972421002e+02_dp, 1.4244705471792136e+02_dp, &
2288 -7.0098207002701088e+01_dp, 1.4534293555696086e+01_dp, 3.3844616772454051e+03_dp, &
2289 -4.8034622373676111e+03_dp, 2.7407731795956414e+02_dp, 6.4933384274191558e+03_dp, &
2290 -9.3671786693748436e+03_dp, 6.8293651088856996e+03_dp, -1.6751505221392342e+03_dp, &
2291 -3.1810158919697988e+03_dp, 6.3337086240843646e+03_dp, -7.0202386816691314e+03_dp, &
2292 5.1859554354248066e+03_dp, -2.3452002831301538e+03_dp, 4.8871710263553763e+02_dp, &
2293 2.6990664833406162e+00_dp, -1.7032360609079394e-01_dp, -1.6339064623599808e-01_dp, &
2294 5.6343825413842273e-02_dp, -6.0034058384596536e-02_dp, 9.6355578617489959e-02_dp, &
2295 -1.0174675727771637e-01_dp, 9.0884582873824907e-02_dp, -7.7924356474501258e-02_dp, &
2296 5.7118288518374742e-02_dp, -3.0159305381508530e-02_dp, 9.7524462861410255e-03_dp, &
2297 -1.4333289835950528e-03_dp, 4.0847254939908550e+00_dp, -4.4543680259376395e-01_dp, &
2298 -4.0790852964917546e-01_dp, 1.8397050605060919e-01_dp, -1.5369689027094091e-01_dp, &
2299 2.5238408456140987e-01_dp, -2.7306185583974296e-01_dp, 2.3685643812599680e-01_dp, &
2300 -1.9696262819285476e-01_dp, 1.4343603886285661e-01_dp, -7.5523339024722219e-02_dp, &
2301 2.4017052583640244e-02_dp, -3.3873525180420443e-03_dp, 7.9217355528550035e+00_dp, &
2302 -1.3760861532373267e+00_dp, -1.2035284285567731e+00_dp, 6.7184227370314420e-01_dp, &
2303 -4.7463289875497050e-01_dp, 7.7591654058981052e-01_dp, -8.6294791141385430e-01_dp, &
2304 7.3053252189346307e-01_dp, -5.8632946501607508e-01_dp, 4.2329064886995371e-01_dp, &
2305 -2.2316303933581608e-01_dp, 7.0275129511077339e-02_dp, -9.5676479706661693e-03_dp, &
2306 1.7340282840591684e+01_dp, -4.2821512957303280e+00_dp, -3.5551190120613683e+00_dp, &
2307 2.4241473256398329e+00_dp, -1.5142511846518363e+00_dp, 2.3855617310533646e+00_dp, &
2308 -2.7426998606577166e+00_dp, 2.2741890274553316e+00_dp, -1.7414520515624128e+00_dp, &
2309 1.2378423595437182e+00_dp, -6.5653655779588638e-01_dp, 2.0668914871276739e-01_dp, &
2310 -2.7419850897391889e-02_dp, 4.1078055491562758e+01_dp, -1.3702317382050255e+01_dp, &
2311 -1.0636229224223397e+01_dp, 8.9943416364770226e+00_dp, -5.1483412011517853e+00_dp, &
2312 7.4730665242250467e+00_dp, -8.9464889682750020e+00_dp, 7.2963810538971217e+00_dp, &
2313 -5.2128753174443299e+00_dp, 3.5795300074268930e+00_dp, -1.9173641280639240e+00_dp, &
2314 6.1233155609547130e-01_dp, -8.0560572449398848e-02_dp, 1.0537664003823548e+02_dp, &
2315 -4.6684798343138667e+01_dp, -3.2994097251570423e+01_dp, 3.5741451453175586e+01_dp, &
2316 -1.9689433576200049e+01_dp, 2.4641696738638490e+01_dp, -3.0837544464503011e+01_dp, &
2317 2.4961159129982445e+01_dp, -1.5996745583167973e+01_dp, 1.0020617009760857e+01_dp, &
2318 -5.3706889305591723e+00_dp, 1.7753999846542772e+00_dp, -2.3852515204726438e-01_dp, &
2319 2.9869868484411023e+02_dp, -1.7630985569199339e+02_dp, -1.0788199695181154e+02_dp, &
2320 1.5896261410654549e+02_dp, -9.0745960005483639e+01_dp, 8.9261769188135247e+01_dp, &
2321 -1.1499671293603262e+02_dp, 9.4016858776158358e+01_dp, -5.0104327036931210e+01_dp, &
2322 2.2553445772362544e+01_dp, -1.0392621676839312e+01_dp, 3.4909481019108575e+00_dp, &
2323 -4.6411039824149081e-01_dp, 9.7281571855615607e+02_dp, -7.8276566598170348e+02_dp, &
2324 -3.6841750220545742e+02_dp, 8.4221015840709913e+02_dp, -5.5710576843649176e+02_dp, &
2325 3.9075007223954356e+02_dp, -4.6691622115267910e+02_dp, 3.9364528127783149e+02_dp, &
2326 -1.4353811191269111e+02_dp, -3.5775860066911733e+01_dp, 6.3797892295263324e+01_dp, &
2327 -3.0108403820523300e+01_dp, 5.9947780639426460e+00_dp, 3.9315484795337375e+03_dp, &
2328 -4.5545648190814945e+03_dp, -1.0245924129063264e+03_dp, 5.9086864031696177e+03_dp, &
2329 -5.4423397520665330e+03_dp, 2.8987063024985546e+03_dp, -1.8396758304894188e+03_dp, &
2330 1.2823546603176267e+03_dp, 3.1149245284221831e+02_dp, -1.8673961299648126e+03_dp, &
2331 1.9363718166711049e+03_dp, -9.6551061755211992e+02_dp, 2.0354900388393716e+02_dp, &
2332 2.4280135349637152e+04_dp, -4.4803296384207482e+04_dp, 1.6182899528768005e+04_dp, &
2333 5.9523036280870147e+04_dp, -1.2394614179673967e+05_dp, 1.1722133038315580e+05_dp, &
2334 -3.1352348768700398e+04_dp, -8.6202695459030496e+04_dp, 1.6982689346809132e+05_dp, &
2335 -1.7890858277514763e+05_dp, 1.2286186888783661e+05_dp, -5.1808342561852995e+04_dp, &
2336 1.0198816861077163e+04_dp, 3.2867451616851961e-01_dp, 1.0003187174814238e-08_dp, &
2337 -2.3255655571169480e-02_dp, 2.3603849289304341e-02_dp, -2.1600208550223220e-02_dp, &
2338 -1.2742608714917504e-04_dp, 5.3167626511118796e-02_dp, -1.3331453857752948e-01_dp, &
2339 2.0849621635227758e-01_dp, -2.2855126470711301e-01_dp, 1.7151231132777350e-01_dp, &
2340 -7.9338970506037887e-02_dp, 1.7034794798258115e-02_dp, 1.1561315825459209e+00_dp, &
2341 4.6876842564306299e-08_dp, -1.0903099661435091e-01_dp, 1.1066333209885304e-01_dp, &
2342 -9.7910572631274409e-02_dp, -7.4543419120169617e-03_dp, 2.5924139627124398e-01_dp/)
2343 REAL(kind=dp), DIMENSION(13, 20, 4), PARAMETER :: &
2344 coefdata = reshape((/c01, c02, c03/), (/13, 20, 4/))
2345
2346 INTEGER :: irange
2347
2348 IF (rc <= 1.0000000000000000e+01_dp) rc = 1.0000000000000000e+01_dp
2349 IF (rc >= 2.4789161682128906e+04_dp) rc = 2.4789161682128906e+04_dp
2350 IF (rc >= 1.0000000000000000e+01_dp .AND. rc <= 1.3035677773075426e+02_dp) THEN
2351 irange = 1
2352 l_b = 1.0000000000000000e+01_dp
2353 u_b = 1.3035677773075426e+02_dp
2354 END IF
2355 IF (rc >= 1.3035677773075426e+02_dp .AND. rc <= 1.4908189080699865e+03_dp) THEN
2356 irange = 2
2357 l_b = 1.3035677773075426e+02_dp
2358 u_b = 1.4908189080699865e+03_dp
2359 END IF
2360 IF (rc >= 1.4908189080699865e+03_dp .AND. rc <= 8.7983353697963448e+03_dp) THEN
2361 irange = 3
2362 l_b = 1.4908189080699865e+03_dp
2363 u_b = 8.7983353697963448e+03_dp
2364 END IF
2365 IF (rc >= 8.7983353697963448e+03_dp .AND. rc <= 2.4789161682128906e+04_dp) THEN
2366 irange = 4
2367 l_b = 8.7983353697963448e+03_dp
2368 u_b = 2.4789161682128906e+04_dp
2369 END IF
2370
2371 fit_coef(1:13, 1:20) = coefdata(1:13, 1:20, irange)
2372
2373 END SUBROUTINE get_fit_coef_k10
2374
2375! **************************************************************************************************
2376!> \brief ...
2377!> \param Rc ...
2378!> \param L_b ...
2379!> \param U_b ...
2380!> \param fit_coef ...
2381! **************************************************************************************************
2382 SUBROUTINE get_fit_coef_k11(Rc, L_b, U_b, fit_coef)
2383 REAL(kind=dp) :: rc, l_b, u_b
2384 REAL(kind=dp), DIMENSION(13, 22) :: fit_coef
2385
2386 REAL(kind=dp), DIMENSION(230), PARAMETER :: c04 = (/-2.5319035989384675e+00_dp, &
2387 -3.1868909327109335e-01_dp, 7.3902114944100665e+00_dp, -1.8431274144078589e+01_dp, &
2388 2.9378426424405447e+01_dp, -3.3161724592145767e+01_dp, 2.5816413812770147e+01_dp, &
2389 -1.2469330304705172e+01_dp, 2.8128079338690761e+00_dp, 2.4584353206019742e+01_dp, &
2390 -7.0898120270105360e-07_dp, -8.4777162976221128e+00_dp, 9.0616788124866332e+00_dp, &
2391 -7.2743279493553201e+00_dp, -2.0496520134147098e+00_dp, 2.4245583092874156e+01_dp, &
2392 -5.7939288071844402e+01_dp, 9.0054831214542489e+01_dp, -9.9384665876997374e+01_dp, &
2393 7.5600795805376052e+01_dp, -3.5621843185101483e+01_dp, 7.8236158425344327e+00_dp, &
2394 5.9289248842465618e+01_dp, -2.3090660386475871e-06_dp, -2.7406069249001057e+01_dp, &
2395 2.9293762062917892e+01_dp, -2.1436160745311739e+01_dp, -1.1100871619137575e+01_dp, &
2396 8.4659605462739805e+01_dp, -1.9223819873089482e+02_dp, 2.8912014235586781e+02_dp, &
2397 -3.0919939021055404e+02_dp, 2.2729338871058800e+02_dp, -1.0300649725896395e+02_dp, &
2398 2.1628399735758872e+01_dp, 1.5611877204908581e+02_dp, -8.2470664905436727e-06_dp, &
2399 -9.6867258565390344e+01_dp, 1.0353887823856932e+02_dp, -6.5682095402519849e+01_dp, &
2400 -6.0937613047746630e+01_dp, 3.2814251019497499e+02_dp, -6.9844405525445029e+02_dp, &
2401 1.0025237366016256e+03_dp, -1.0211592975562098e+03_dp, 7.0836288602503657e+02_dp, &
2402 -2.9837334150052988e+02_dp, 5.6921862071198518e+01_dp, 4.6496398441680941e+02_dp, &
2403 -3.4223577383871753e-05_dp, -3.9563037071188347e+02_dp, 4.2287603418762706e+02_dp, &
2404 -2.0653649047208501e+02_dp, -3.8172667391864337e+02_dp, 1.5030594921729898e+03_dp, &
2405 -2.9227874116449611e+03_dp, 3.8875752535201673e+03_dp, -3.6138894664576283e+03_dp, &
2406 2.2048207474371115e+03_dp, -7.5725030323513738e+02_dp, 9.7823912240919910e+01_dp, &
2407 1.6773973436726878e+03_dp, -1.8434170056840727e-04_dp, -2.0728088439834223e+03_dp, &
2408 2.2155290245149013e+03_dp, -5.1394027894319083e+02_dp, -3.2225108046723080e+03_dp, &
2409 9.1480623850220691e+03_dp, -1.5210320266230407e+04_dp, 1.7053021607531919e+04_dp, &
2410 -1.1990799071970599e+04_dp, 3.6225067334732939e+03_dp, 1.1364153809614309e+03_dp, &
2411 -9.4031209009192617e+02_dp, 8.7767660769754748e+03_dp, -1.7301255885247059e-03_dp, &
2412 -1.8469732055515993e+04_dp, 1.9741000016554910e+04_dp, 8.6834780160185710e+03_dp, &
2413 -5.7182355776311117e+04_dp, 9.7112250915990357e+04_dp, -8.4229126418227272e+04_dp, &
2414 -1.3935593484706684e+04_dp, 1.5898931395778846e+05_dp, -2.3301918179538654e+05_dp, &
2415 1.6673068363491533e+05_dp, -5.0314774080942996e+04_dp, 2.6059126819246052e+00_dp, &
2416 -1.5184941808505334e-08_dp, -1.8508505661036193e-01_dp, 1.9783570907686668e-01_dp, &
2417 -1.9674587968365256e-01_dp, 3.6851207151313237e-02_dp, 4.0611699310341248e-01_dp, &
2418 -1.1473620212627975e+00_dp, 1.9481749518031135e+00_dp, -2.3151160483320039e+00_dp, &
2419 1.8923593661054907e+00_dp, -9.5933207303263768e-01_dp, 2.2714210609760052e-01_dp, &
2420 3.8468115363487008e+00_dp, -3.8029440074718104e-08_dp, -4.6155963237640873e-01_dp, &
2421 4.9335593943885447e-01_dp, -4.6884491464814559e-01_dp, 4.5025271220622491e-02_dp, &
2422 1.0863412220747446e+00_dp, -2.9376032021086864e+00_dp, 4.8861385280514016e+00_dp, &
2423 -5.7142841824577904e+00_dp, 4.6031605955599106e+00_dp, -2.3011975883717044e+00_dp, &
2424 5.3755533579904435e-01_dp, 7.2028738158550514e+00_dp, -1.1279238254521241e-07_dp, &
2425 -1.3633777485153236e+00_dp, 1.4572967288789407e+00_dp, -1.3243244997028747e+00_dp, &
2426 2.7095192289746449e-03_dp, 3.4096983315886717e+00_dp, -8.8778329414439394e+00_dp, &
2427 1.4487046010265646e+01_dp, -1.6682435020852303e+01_dp, 1.3244072546969868e+01_dp, &
2428 -6.5263496906408722e+00_dp, 1.5028959640528783e+00_dp, 1.5155338303550476e+01_dp, &
2429 -3.3609978102604631e-07_dp, -4.0448729535600725e+00_dp, 4.3235039861438427e+00_dp, &
2430 -3.7401938738456062e+00_dp, -3.9813778724854831e-01_dp, 1.0727618136824205e+01_dp, &
2431 -2.6919155675271707e+01_dp, 4.3059272745573644e+01_dp, -4.8755479915707021e+01_dp, &
2432 3.8074633815792446e+01_dp, -1.8449947088829020e+01_dp, 4.1761221031219460e+00_dp, &
2433 3.4280442119778854e+01_dp, -1.0209663151194477e-06_dp, -1.2222273717908696e+01_dp, &
2434 1.3064175401809598e+01_dp, -1.0625423963861708e+01_dp, -2.6578485949092507e+00_dp, &
2435 3.4550403061250776e+01_dp, -8.3242948341915039e+01_dp, 1.3004394299969496e+02_dp, &
2436 -1.4419493228330839e+02_dp, 1.1023246137753506e+02_dp, -5.2221835584331593e+01_dp, &
2437 1.1538123809656815e+01_dp, 8.3023233971686949e+01_dp, -3.2566579599055860e-06_dp, &
2438 -3.8724653854538957e+01_dp, 4.1391988205209223e+01_dp, -3.0989658913000362e+01_dp, &
2439 -1.4177989050298210e+01_dp, 1.1765010876316009e+02_dp, -2.7042253291528965e+02_dp, &
2440 4.1008960465882154e+02_dp, -4.4218461562488704e+02_dp, 3.2805416607523796e+02_dp, &
2441 -1.5027909722707574e+02_dp, 3.1961374875560626e+01_dp, 2.1815261062484299e+02_dp, &
2442 -1.1263123220565498e-05_dp, -1.3272987707048557e+02_dp, 1.4187169395564845e+02_dp, &
2443 -9.4224265155115006e+01_dp, -7.4404769563706964e+01_dp, 4.3837099398368440e+02_dp, &
2444 -9.5183455799001024e+02_dp, 1.3871602035765698e+03_dp, -1.4365079812470631e+03_dp, &
2445 1.0170715004310093e+03_dp, -4.4009662202309175e+02_dp, 8.7140147118769207e+01_dp, &
2446 6.3829241773452395e+02_dp, -4.4064460415062701e-05_dp, -5.1269111346857051e+02_dp, &
2447 5.4799986683226075e+02_dp, -2.9947328222405213e+02_dp, -4.2617722685256570e+02_dp, &
2448 1.8705077766963821e+03_dp, -3.7732358405587056e+03_dp, 5.1863433327248795e+03_dp, &
2449 -5.0256458027042509e+03_dp, 3.2619991942285269e+03_dp, -1.2467431574611608e+03_dp, &
2450 2.0321857334508204e+02_dp, 2.1780996488924352e+03_dp, -2.0907405555531795e-04_dp, &
2451 -2.3849923698991861e+03_dp, 2.5492235035473764e+03_dp, -9.3326450903590683e+02_dp, &
2452 -2.9722230635951501e+03_dp, 9.8396661700376753e+03_dp, -1.7829859393390787e+04_dp, &
2453 2.2115783909639369e+04_dp, -1.8612912915580167e+04_dp, 9.4926673873045820e+03_dp, &
2454 -2.0581853251291723e+03_dp, -1.3506399200968644e+02_dp, 9.5282286909788218e+03_dp, &
2455 -1.3879365845395903e-03_dp, -1.5291429799079764e+04_dp, 1.6344150714985619e+04_dp, &
2456 -5.8506000394263890e+02_dp, -3.0670459034251217e+04_dp, 7.3829472150507368e+04_dp, &
2457 -1.0879378872595044e+05_dp, 1.0183991390866101e+05_dp, -4.2693488672623760e+04_dp, &
2458 -2.3602726867402875e+04_dp, 4.0091252301356195e+04_dp, -1.5836929022957091e+04_dp, &
2459 6.9897560151235826e+04_dp, -1.8816291773517638e-02_dp, -1.9854704384469349e+05_dp, &
2460 2.1221227425035721e+05_dp, 1.9513181165124831e+05_dp, -8.3228931356148690e+05_dp, &
2461 1.0686042433396007e+06_dp, -1.6890882361242565e+05_dp, -2.0275393275062682e+06_dp, &
2462 4.3886071943292571e+06_dp, -4.9464312502375301e+06_dp, 3.1275647455199584e+06_dp, &
2463 -8.7618952854779735e+05_dp/)
2464 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.9140383852290629e-01_dp, &
2465 -6.8714312208041611e-02_dp, -9.1979524758077930e-03_dp, 4.0542016308222793e-03_dp, &
2466 1.3043896673939879e-03_dp, -3.3077626826676678e-04_dp, -1.1713733973944338e-04_dp, &
2467 7.6096932007647678e-05_dp, 1.6862094749663900e-05_dp, -1.8859482112709049e-05_dp, &
2468 -1.0541642966027691e-05_dp, 8.6799165647851962e-06_dp, -1.1431845819938354e-06_dp, &
2469 6.0489131859947465e-01_dp, -2.4024677183256804e-01_dp, -1.8798045436205172e-02_dp, &
2470 1.5837928504487560e-02_dp, 2.6102782284167180e-03_dp, -1.5652126400000133e-03_dp, &
2471 -1.3827151075313952e-04_dp, 3.1557964494168748e-04_dp, 2.4958120214882143e-06_dp, &
2472 -7.5449303381703686e-05_dp, -1.6643512580341317e-05_dp, 2.8571234433609825e-05_dp, &
2473 -6.0597558303770187e-06_dp, 1.1168795367902835e+00_dp, -5.2641558523934429e-01_dp, &
2474 6.6463431140833772e-03_dp, 3.7711310583160011e-02_dp, -1.4443909125474224e-03_dp, &
2475 -4.2130528794393661e-03_dp, 7.2183333855785543e-04_dp, 7.3960445605806635e-04_dp, &
2476 -1.9348822131823822e-04_dp, -1.6874282736821310e-04_dp, 3.6412043398419911e-05_dp, &
2477 4.1084858267757457e-05_dp, -1.5134273688639719e-05_dp, 1.8158447362882504e+00_dp, &
2478 -1.0478545011498810e+00_dp, 1.2341009021397938e-01_dp, 7.1058959620305007e-02_dp, &
2479 -1.9347584416030746e-02_dp, -7.7203335451403827e-03_dp, 3.8020800688892561e-03_dp, &
2480 1.1445156153540811e-03_dp, -7.9235221490085630e-04_dp, -2.4612837134322182e-04_dp, &
2481 2.1358675908042475e-04_dp, 1.7784602018876602e-06_dp, -1.9703398840932572e-05_dp, &
2482 2.8299287437087801e+00_dp, -2.0047036100998326e+00_dp, 4.5453821241428582e-01_dp, &
2483 9.8865732993666661e-02_dp, -6.6582584274414200e-02_dp, -7.1570894058818569e-03_dp, &
2484 1.1198660032441313e-02_dp, 5.0949933891323033e-04_dp, -2.0685167422699120e-03_dp, &
2485 -9.6150256589892975e-05_dp, 5.5979142435495538e-04_dp, -1.6195041286557900e-04_dp, &
2486 3.3998670478786237e-07_dp, 4.3574186531348724e+00_dp, -3.7415946807175851e+00_dp, &
2487 1.2610537308451397e+00_dp, 4.7862913363269956e-02_dp, -1.6352351758172967e-01_dp, &
2488 1.3772664688980325e-02_dp, 2.4218199648024418e-02_dp, -4.1260474719994672e-03_dp, &
2489 -4.0082156154816646e-03_dp, 8.1922589521136123e-04_dp, 1.0199455777660676e-03_dp, &
2490 -5.4787322426774396e-04_dp, 7.8504581614977811e-05_dp, 6.7237595753310817e+00_dp, &
2491 -6.8634354719280006e+00_dp, 3.0796744406753831e+00_dp, -3.0614743416373752e-01_dp, &
2492 -3.1107420468808400e-01_dp, 9.3817776800566161e-02_dp, 3.5729378037653900e-02_dp, &
2493 -1.8761603678412703e-02_dp, -4.7366169578511481e-03_dp, 3.5316646495869753e-03_dp, &
2494 1.0851842798406590e-03_dp, -1.2373787163121499e-03_dp, 2.8130651342912039e-04_dp, &
2495 1.0510156788199021e+01_dp, -1.2466153777035323e+01_dp, 6.9869766995910823e+00_dp, &
2496 -1.5498053185363254e+00_dp, -3.9434499629744990e-01_dp, 2.9189754861993961e-01_dp, &
2497 9.5684893046540861e-03_dp, -4.6899766144214212e-02_dp, 2.9892393239476815e-03_dp, &
2498 8.1317647341407617e-03_dp, -1.1496803534589862e-03_dp, -1.5588269285254301e-03_dp, &
2499 5.6436279367429989e-04_dp, 1.6929026309404673e+01_dp, -2.2732969289472557e+01_dp, &
2500 1.5167967467215167e+01_dp, -5.0599918378658693e+00_dp, 7.1901703409584045e-02_dp, &
2501 6.0237191357615583e-01_dp, -1.3337725393148273e-01_dp, -6.4361089066435215e-02_dp, &
2502 2.7783835281892384e-02_dp, 8.5230341553865878e-03_dp, -6.6163986118154151e-03_dp, &
2503 2.1386671992928557e-04_dp, 4.7004720455020335e-04_dp, 2.9361444810427511e+01_dp, &
2504 -4.3304500814209732e+01_dp, 3.2853995310162027e+01_dp, -1.4060189959048198e+01_dp, &
2505 2.4294238784534623e+00_dp, 7.2536802429446512e-01_dp, -4.3389039409549884e-01_dp, &
2506 -1.3185076785459927e-02_dp, 5.6402610165301202e-02_dp, -1.1720630499261352e-03_dp, &
2507 -1.0821082259544815e-02_dp, 3.2422174075987468e-03_dp, -5.9058577933889726e-05_dp, &
2508 6.4371986201665507e+01_dp, -1.0067505697246480e+02_dp, 8.2674796182294259e+01_dp, &
2509 -4.0680037489638053e+01_dp, 1.0796803179141461e+01_dp, -9.8211559590887343e-02_dp, &
2510 -8.6947315752611443e-01_dp, 1.1519815681783646e-01_dp, 8.8122286786261939e-02_dp, &
2511 -1.4859222473260573e-02_dp, -1.7476608605390593e-02_dp, 7.7549011480211169e-03_dp, &
2512 -7.7298631180373564e-04_dp, 1.5512634652715025e+00_dp, -5.7165382658867425e-01_dp, &
2513 -6.8264917568339606e-02_dp, 3.4929866387098558e-02_dp, 9.6619672882347681e-03_dp, &
2514 -3.0449530315484925e-03_dp, -8.1140934294873649e-04_dp, 6.7166809665575506e-04_dp, &
2515 1.0553881582976249e-04_dp, -1.6470352066950413e-04_dp, -7.5508519829998230e-05_dp, &
2516 7.2215264404265218e-05_dp, -1.1149724276607350e-05_dp, 1.8009352545445239e+00_dp, &
2517 -8.5251974129151409e-01_dp, 7.6410708533761022e-03_dp, 6.3828560675533136e-02_dp, &
2518 -1.7202481171730995e-03_dp, -7.4505177561230681e-03_dp, 1.0572044356321228e-03_dp, &
2519 1.3218647507928171e-03_dp, -3.0561817587206915e-04_dp, -3.0299445474565189e-04_dp, &
2520 5.5344610050092803e-05_dp, 8.1834190969111756e-05_dp, -2.9680329778920826e-05_dp, &
2521 2.3527449274293573e+00_dp, -1.5147537958221933e+00_dp, 2.3115619180855354e-01_dp, &
2522 1.1284255760843230e-01_dp, -3.6177847817668474e-02_dp, -1.3539664544268073e-02_dp, &
2523 6.7019226962421333e-03_dp, 1.9653435924636472e-03_dp, -1.4109355286997759e-03_dp, &
2524 -4.1385824743472909e-04_dp, 4.1549350181307716e-04_dp, -1.1959801065863547e-05_dp, &
2525 -3.7255770501802784e-05_dp, 3.3224921863045691e+00_dp, -2.7860632861596644e+00_dp, &
2526 7.8052485998277177e-01_dp, 1.4483194966481014e-01_dp, -1.1737504026440210e-01_dp, &
2527 -1.1679042020471016e-02_dp, 1.9403002086844354e-02_dp, 6.6735285522260949e-04_dp, &
2528 -3.5780226530484115e-03_dp, -7.4687021790351436e-05_dp, 1.0364093806503746e-03_dp, &
2529 -3.5212253142996770e-04_dp, 1.4459347180379926e-05_dp, 4.9188989071416884e+00_dp, &
2530 -5.0912381643341389e+00_dp, 2.0338384923721380e+00_dp, 3.4520315816372826e-02_dp, &
2531 -2.7527398518237012e-01_dp, 2.6213290332193811e-02_dp, 4.1056443632656141e-02_dp, &
2532 -7.6033292189327589e-03_dp, -6.7068508750127874e-03_dp, 1.6134398217065211e-03_dp, &
2533 1.7099199099071764e-03_dp, -1.0188154531831771e-03_dp, 1.6585315316805667e-04_dp, &
2534 7.5105710318956387e+00_dp, -9.1933741951079870e+00_dp, 4.7596295380909268e+00_dp, &
2535 -5.7877693805389485e-01_dp, -5.0633729223025081e-01_dp, 1.6657960364469732e-01_dp, &
2536 5.9754102084310180e-02_dp, -3.3655424854068201e-02_dp, -7.8470267984706195e-03_dp, &
2537 6.4378442077806190e-03_dp, 1.7214765195746398e-03_dp, -2.1640300991494017e-03_dp, &
2538 5.0773164374421677e-04_dp, 1.1787767168757027e+01_dp, -1.6479896456900001e+01_dp, &
2539 1.0474433181368957e+01_dp, -2.6176038877413412e+00_dp, -6.1374050521456192e-01_dp, &
2540 5.1744487961845398e-01_dp, 1.0209694593808110e-02_dp, -8.7555357959509111e-02_dp, &
2541 6.7878804533424266e-03_dp, 1.5788464928805319e-02_dp, -2.5231574145546760e-03_dp, &
2542 -3.0178852806152551e-03_dp, 1.1280928755338241e-03_dp, 1.9240897295596305e+01_dp, &
2543 -2.9689511846963928e+01_dp, 2.2151809035042952e+01_dp, -8.1959918765769775e+00_dp, &
2544 2.3949103147685374e-01_dp, 1.0808974332068280e+00_dp, -2.7708880902203492e-01_dp, &
2545 -1.2364385254000407e-01_dp, 6.3036168861553526e-02_dp, 1.6885878085071752e-02_dp, &
2546 -1.6735028081352580e-02_dp, 2.0042184897993667e-03_dp, 7.5921274060652174e-04_dp, &
2547 3.3999306723020787e+01_dp, -5.5636509752237529e+01_dp, 4.6326714382390342e+01_dp, &
2548 -2.1820258573048438e+01_dp, 4.3276152184902941e+00_dp, 1.2172727004629018e+00_dp, &
2549 -9.0694960221451648e-01_dp, 3.1554492336115077e-02_dp, 1.2559453953809244e-01_dp, &
2550 -2.0064318592328701e-02_dp, -2.2560731494297201e-02_dp, 1.1385938701128969e-02_dp, &
2551 -1.5858929811645066e-03_dp, 7.2814831077229968e+01_dp, -1.2072622608954870e+02_dp, &
2552 1.0532732283136377e+02_dp, -5.5787958513676813e+01_dp, 1.6603414490986122e+01_dp, &
2553 -7.3755690320892586e-01_dp, -1.4210730327967394e+00_dp, 3.7793417576420085e-01_dp, &
2554 9.1264545598547908e-02_dp, -4.8606229226741834e-02_dp, -1.3188114627426912e-02_dp, &
2555 1.2197365335229388e-02_dp, -2.2862081919550218e-03_dp, 2.7358153743749347e+02_dp, &
2556 -4.4385936209458333e+02_dp, 3.8212861114580585e+02_dp, -2.0280907585143663e+02_dp, &
2557 6.3861686467341308e+01_dp, -7.0005683460188894e+00_dp, -2.6528795806599486e+00_dp, &
2558 7.0810042010323637e-01_dp, 2.6455253738091272e-01_dp, -7.9687526859254745e-02_dp, &
2559 -5.7953598000465630e-02_dp, 3.2570226713321167e-02_dp, -4.4496456437617135e-03_dp, &
2560 2.5710198422843333e-01_dp, -7.6161818320978847e-02_dp, -2.7674187351960450e-02_dp, &
2561 8.5898642065098691e-03_dp, 8.0536613015059072e-03_dp, -2.6174486149182770e-03_dp, &
2562 -3.2661823845164801e-03_dp, 9.2754900950433358e-04_dp, 2.1088398186065527e-03_dp, &
2563 -1.1473435220555634e-03_dp, -6.3993457458976226e-04_dp, 7.5761255017756373e-04_dp, &
2564 -2.0390887377095055e-04_dp, 8.4861453798468323e-01_dp, -3.0105534605114320e-01_dp, &
2565 -8.5111841975141406e-02_dp, 4.8094032800166463e-02_dp, 2.6040827909755683e-02_dp, &
2566 -1.7293930943123634e-02_dp, -1.0786968802803141e-02_dp, 6.6125719406229183e-03_dp, &
2567 9.1882171776696397e-03_dp, -9.6727488215151876e-03_dp, 1.7446919122676161e-03_dp, &
2568 1.4418793705765515e-03_dp, -5.8840280185385851e-04_dp, 1.7047248048976706e+00_dp, &
2569 -7.9815206934993621e-01_dp, -1.2993709521910998e-01_dp, 1.7342171454714553e-01_dp, &
2570 3.9041789120375842e-02_dp, -6.9360101166953014e-02_dp, -1.5275816598696328e-02_dp, &
2571 2.7921918147956529e-02_dp, 2.3894544071414819e-02_dp, -4.4643419061525462e-02_dp, &
2572 2.3898972121543908e-02_dp, -4.4247812420037886e-03_dp, -1.6586226979854507e-04_dp, &
2573 3.1244261122013506e+00_dp, -1.9657261428423933e+00_dp, -6.2195521540174485e-02_dp, &
2574 5.0922738991989702e-01_dp, -9.3639444916459660e-03_dp, -2.1322782553698055e-01_dp, &
2575 1.5504548523492871e-02_dp, 8.8634058985128744e-02_dp, 3.9464172801052973e-02_dp, &
2576 -1.4553362414306942e-01_dp, 1.1134286669408361e-01_dp, -3.8113881848227303e-02_dp, &
2577 4.9718947417133237e-03_dp, 5.6515577756942257e+00_dp, -4.6901233718069122e+00_dp, &
2578 4.9998880825294556e-01_dp, 1.2889768367120584e+00_dp, -3.4014775985320350e-01_dp, &
2579 -5.3198012841393982e-01_dp, 2.0501714262866522e-01_dp, 2.2366241606561824e-01_dp, &
2580 -1.2094839938125915e-02_dp, -3.4853283957718817e-01_dp, 3.5500068302721494e-01_dp, &
2581 -1.5402651260478087e-01_dp, 2.6586199081616392e-02_dp, 1.0342072806880291e+01_dp, &
2582 -1.1025837566627148e+01_dp, 2.8320859276363368e+00_dp, 2.8353118375827213e+00_dp, &
2583 -1.6643808637692934e+00_dp, -1.0312784859484334e+00_dp, 9.2317469166909838e-01_dp, &
2584 4.1524786772077965e-01_dp, -4.1115535857203517e-01_dp, -5.0528937194956192e-01_dp, &
2585 8.1638468056711944e-01_dp, -4.3490956585830648e-01_dp, 8.7714392284929860e-02_dp, &
2586 1.9340679951428509e+01_dp, -2.5875245987552002e+01_dp, 1.1011927062253607e+01_dp, &
2587 5.0172148595146115e+00_dp, -5.9922364423090562e+00_dp, -1.0100072524430268e+00_dp, &
2588 3.0463673833777176e+00_dp, 2.3135881603355785e-01_dp, -1.9255994055152754e+00_dp, &
2589 3.7336390355963817e-01_dp, 1.0535281004009800e+00_dp, -8.2899219614509112e-01_dp, &
2590 2.0043276697370435e-01_dp, 3.7199991651764925e+01_dp, -6.1293516863993275e+01_dp, &
2591 3.7969498172512104e+01_dp, 3.9173683745057399e+00_dp, -1.8033846800996791e+01_dp, &
2592 3.6542142546232963e+00_dp, 7.6853116612266872e+00_dp, -2.5741014212521396e+00_dp, &
2593 -5.6157937298118208e+00_dp, 5.6662223853193741e+00_dp, -1.5475935532793732e+00_dp, &
2594 -3.8649136037865522e-01_dp, 2.2567746326676860e-01_dp, 7.4213954026122252e+01_dp, &
2595 -1.4804950267684572e+02_dp, 1.2495507784125873e+02_dp, -2.4776264817547396e+01_dp, &
2596 -4.2930419560902017e+01_dp, 2.9472395507465627e+01_dp, 1.0097402469676231e+01_dp, &
2597 -1.5262809248340325e+01_dp, -7.2300215031127406e+00_dp, 2.0357934514863608e+01_dp/)
2598 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/-1.4561539999459816e+01_dp, &
2599 4.8544787554718685e+00_dp, -6.3387746031848102e-01_dp, 1.5731981998839461e+02_dp, &
2600 -3.7106120150889751e+02_dp, 4.0538316285381757e+02_dp, -1.9862435563464234e+02_dp, &
2601 -4.2159595434504858e+01_dp, 1.1123116084380190e+02_dp, -3.2616679588589356e+01_dp, &
2602 -3.5941786883652419e+01_dp, 2.2789754163995845e+01_dp, 1.8371151060137738e+01_dp, &
2603 -2.9170310760936879e+01_dp, 1.4831275429341607e+01_dp, -2.8863895844841174e+00_dp, &
2604 4.0083846543407321e+02_dp, -1.0677816135164219e+03_dp, 1.4026777969921070e+03_dp, &
2605 -1.0380548329826443e+03_dp, 3.1150334049658153e+02_dp, 1.6486545559165077e+02_dp, &
2606 -1.8516523777840163e+02_dp, 1.6518152941373941e+01_dp, 5.6979659267802994e+01_dp, &
2607 -1.7647184173214058e+01_dp, -2.1103736761399592e+01_dp, 1.7917739029353150e+01_dp, &
2608 -4.3165125341576296e+00_dp, 2.1062827676264901e+00_dp, -6.5430642611969270e-01_dp, &
2609 -2.2384079169103308e-01_dp, 8.2390744712270661e-02_dp, 6.6262172019689369e-02_dp, &
2610 -2.6633980874697070e-02_dp, -2.7111579335168608e-02_dp, 9.7002448728929856e-03_dp, &
2611 1.8782298233897637e-02_dp, -1.2801673272427807e-02_dp, -3.2239388584569518e-03_dp, &
2612 5.7460187984439293e-03_dp, -1.6569702053578139e-03_dp, 2.7457621605201994e+00_dp, &
2613 -1.2692591549164844e+00_dp, -2.2947324376136316e-01_dp, 2.7323021428913846e-01_dp, &
2614 7.5164358453219907e-02_dp, -1.0818724938592214e-01_dp, -3.1583296898807685e-02_dp, &
2615 4.3084465728622491e-02_dp, 4.1482878645338658e-02_dp, -6.7933308032627218e-02_dp, &
2616 3.1679176585648089e-02_dp, -3.3812888555787906e-03_dp, -1.0360838277370485e-03_dp, &
2617 4.2942636924137831e+00_dp, -2.9557754507532943e+00_dp, -7.3406311761844992e-02_dp, &
2618 8.0895545247383172e-01_dp, -2.2458835272879123e-03_dp, -3.4387294218152459e-01_dp, &
2619 1.3473260271944267e-02_dp, 1.4295454214800754e-01_dp, 7.4353360154718565e-02_dp, &
2620 -2.3866533192162417e-01_dp, 1.7424538034935477e-01_dp, -5.6402793269764662e-02_dp, &
2621 6.6940377272607246e-03_dp, 7.4095497593660964e+00_dp, -6.9353228276198537e+00_dp, &
2622 8.3586764619106058e-01_dp, 2.0316025967186220e+00_dp, -5.1322687373588960e-01_dp, &
2623 -8.6661941980502355e-01_dp, 3.0532915478203720e-01_dp, 3.6856373700427469e-01_dp, &
2624 1.4157957888213758e-02_dp, -6.0168493995655148e-01_dp, 5.8832895145574027e-01_dp, &
2625 -2.4863584549454967e-01_dp, 4.1841159809315402e-02_dp, 1.3476526156516739e+01_dp, &
2626 -1.6130585523051849e+01_dp, 4.4061937443889301e+00_dp, 4.4430534169571274e+00_dp, &
2627 -2.5570162915545356e+00_dp, -1.7175195154266936e+00_dp, 1.4376957431381163e+00_dp, &
2628 7.1766464786951778e-01_dp, -5.9257675525589137e-01_dp, -9.6205557835963396e-01_dp, &
2629 1.4268339903708875e+00_dp, -7.4132394072868890e-01_dp, 1.4725124240356049e-01_dp, &
2630 2.5398852071685731e+01_dp, -3.7572387919172385e+01_dp, 1.6636186660780080e+01_dp, &
2631 7.9929423757903564e+00_dp, -9.2705027979453689e+00_dp, -1.9503834582624382e+00_dp, &
2632 4.8813044930751017e+00_dp, 6.0504538533406726e-01_dp, -3.0998271168328229e+00_dp, &
2633 2.6411993677728995e-01_dp, 2.0646553446087554e+00_dp, -1.5110641191317531e+00_dp, &
2634 3.5664182271533801e-01_dp, 4.9435136714811982e+01_dp, -8.8597920159101832e+01_dp, &
2635 5.6353728135153659e+01_dp, 7.6467691457190172e+00_dp, -2.8439752545361475e+01_dp, &
2636 4.3311736788952206e+00_dp, 1.3061842905815471e+01_dp, -3.3304225848462199e+00_dp, &
2637 -9.9097932669193582e+00_dp, 8.8616730772757997e+00_dp, -1.6316122579259393e+00_dp, &
2638 -1.1613800601835296e+00_dp, 4.8402556303837513e-01_dp, 9.9762188382444535e+01_dp, &
2639 -2.1339565978974167e+02_dp, 1.8334922150404742e+02_dp, -2.8939147749315442e+01_dp, &
2640 -7.2890617526936850e+01_dp, 4.2713837113284967e+01_dp, 2.2721643681065917e+01_dp, &
2641 -2.3847907629562187e+01_dp, -1.8549681716076698e+01_dp, 3.8300080834612302e+01_dp, &
2642 -2.4638773637155111e+01_dp, 7.2597188948475342e+00_dp, -7.5984073743085179e-01_dp, &
2643 2.1197486994109249e+02_dp, -5.3038671301074385e+02_dp, 5.8971315115622019e+02_dp, &
2644 -2.6418140422078056e+02_dp, -1.1373718823220391e+02_dp, 1.9211692177267807e+02_dp, &
2645 -2.7169765446157413e+01_dp, -8.4379798332666354e+01_dp, 2.7260492365389506e+01_dp, &
2646 6.7376634921239955e+01_dp, -8.0434216086053510e+01_dp, 3.8099371156341618e+01_dp, &
2647 -7.1604086942794369e+00_dp, 5.0533178791676357e+02_dp, -1.4141062067950954e+03_dp, &
2648 1.9146864532541163e+03_dp, -1.3990795604874068e+03_dp, 2.9162932525768673e+02_dp, &
2649 4.3994914666230397e+02_dp, -3.9085522986369466e+02_dp, -8.2879522036785254e+00_dp, &
2650 2.0611979984798336e+02_dp, -1.2695223934311078e+02_dp, 7.8185610329907984e+00_dp, &
2651 2.1623126780307519e+01_dp, -7.0837826672811230e+00_dp, 1.8793380650637498e+03_dp, &
2652 -5.3818022034402502e+03_dp, 7.8117470886846950e+03_dp, -6.8754098839868311e+03_dp, &
2653 3.4302358931127628e+03_dp, -3.3780948387252249e+02_dp, -7.1180847792872282e+02_dp, &
2654 3.4000649096567986e+02_dp, 9.5803695633720451e+01_dp, -1.0706529225064254e+02_dp, &
2655 -1.7431236331464156e+01_dp, 4.1838749445416617e+01_dp, -1.2304788741999435e+01_dp, &
2656 2.9693722288060909e-01_dp, -4.0503765415150689e-02_dp, -2.3374347340216213e-02_dp, &
2657 2.4649712953909672e-03_dp, 5.4970824224843205e-03_dp, 4.8287397465528485e-04_dp, &
2658 -3.3174719260196080e-03_dp, 5.7632661521211167e-04_dp, 1.2446956470640266e-03_dp, &
2659 -2.6247595657409464e-04_dp, -7.8065068838181328e-04_dp, 6.0684870308787948e-04_dp, &
2660 -1.4446753144174501e-04_dp, 1.0132434862618578e+00_dp, -1.7523694112647539e-01_dp, &
2661 -9.2556727590122526e-02_dp, 1.9924243846417989e-02_dp, 2.4530815588521580e-02_dp, &
2662 -1.2987424585305914e-03_dp, -1.5482592236816674e-02_dp, 4.0053098423139359e-03_dp, &
2663 6.6615628610347507e-03_dp, -3.1644246597228834e-03_dp, -2.5541557205489267e-03_dp, &
2664 2.6188403853415528e-03_dp, -6.7853784962391733e-04_dp, 2.1711398209555157e+00_dp, &
2665 -5.2976846220389984e-01_dp, -2.4286083825272872e-01_dp, 9.7659023189940866e-02_dp, &
2666 7.3533850048130775e-02_dp, -1.9551255900919134e-02_dp, -4.9877998593511656e-02_dp, &
2667 1.9506507612301518e-02_dp, 2.5578617398895529e-02_dp, -2.0627500236759959e-02_dp, &
2668 -1.7452808686614640e-03_dp, 6.8372280060992642e-03_dp, -2.1043878950266792e-03_dp, &
2669 4.3616246933218727e+00_dp, -1.5063751348282000e+00_dp, -5.7486437306662230e-01_dp, &
2670 3.8265267045798651e-01_dp, 1.8943507598881318e-01_dp, -1.0722794884839189e-01_dp, &
2671 -1.4175159806446239e-01_dp, 8.1999399523214028e-02_dp, 8.7843503751238977e-02_dp, &
2672 -1.0363055386269830e-01_dp, 2.6555214303521067e-02_dp, 9.8867863529191486e-03_dp, &
2673 -4.9996570844378710e-03_dp, 8.8539699844047153e+00_dp, -4.1984202894252292e+00_dp, &
2674 -1.2428634026751828e+00_dp, 1.3448235920919132e+00_dp, 4.0461929150339243e-01_dp, &
2675 -4.5733788385795898e-01_dp, -3.5409248304565399e-01_dp, 3.1850290939545917e-01_dp, &
2676 2.7325234985046681e-01_dp, -4.5652048431894104e-01_dp, 2.2079297546908300e-01_dp, &
2677 -2.9478620765750235e-02_dp, -5.1895829058320950e-03_dp, 1.8605315387814702e+01_dp, &
2678 -1.1760213994880345e+01_dp, -2.3008734839719169e+00_dp, 4.4982007461290801e+00_dp, &
2679 5.2311515349431637e-01_dp, -1.7368601503569794e+00_dp, -7.0107041944374471e-01_dp, &
2680 1.1883211570158956e+00_dp, 7.2483817123112193e-01_dp, -1.8304322778786442e+00_dp, &
2681 1.2325954726922457e+00_dp, -3.6723777123307916e-01_dp, 3.7564073010966953e-02_dp, &
2682 4.1004452121855905e+01_dp, -3.3883822198342756e+01_dp, -2.4660978577221768e+00_dp, &
2683 1.4765625376284200e+01_dp, -1.3297140620311558e+00_dp, -6.0822406363831671e+00_dp, &
2684 -4.2952269081750616e-01_dp, 4.3254569166267594e+00_dp, 1.0855910889639027e+00_dp, &
2685 -6.4825677999145492e+00_dp, 5.6839301455511970e+00_dp, -2.2574263920344908e+00_dp, &
2686 3.6057185979037681e-01_dp, 9.6016519297543255e+01_dp, -1.0286313276941833e+02_dp, &
2687 8.6326255820698279e+00_dp, 4.8051414088075639e+01_dp, -1.7261755163232731e+01_dp, &
2688 -1.8906364729866077e+01_dp, 6.5295315087461869e+00_dp, 1.5019872639436668e+01_dp, &
2689 -5.3377881739836885e+00_dp, -1.6841583305043358e+01_dp, 2.1034770339353262e+01_dp, &
2690 -1.0362819237186125e+01_dp, 2.0054323897259563e+00_dp, 2.4319276556516138e+02_dp, &
2691 -3.3866420245722674e+02_dp, 9.9763909609854409e+01_dp, 1.5027385014986709e+02_dp, &
2692 -1.2031406869863480e+02_dp, -3.7241043779740231e+01_dp, 5.5370114102753035e+01_dp, &
2693 4.1642802529325209e+01_dp, -7.1093015443508278e+01_dp, 6.7827155853688756e+00_dp, &
2694 4.1302786677291920e+01_dp, -3.0651138576665996e+01_dp, 7.3344210412222370e+00_dp, &
2695 6.8664225651899642e+02_dp, -1.2587153573562946e+03_dp, 7.5483998218097088e+02_dp, &
2696 3.3826607275853559e+02_dp, -7.3529640146317138e+02_dp, 2.1476437158088527e+02_dp, &
2697 2.4921315487310400e+02_dp, -3.9413815726828012e+01_dp, -4.0163723829203337e+02_dp, &
2698 4.8255471931724361e+02_dp, -2.5345967916897050e+02_dp, 5.9457400566630319e+01_dp, &
2699 -3.2565309975817023e+00_dp, 2.3594394496881578e+03_dp, -5.6892144384380426e+03_dp, &
2700 5.9833743128811575e+03_dp, -2.0231849696975166e+03_dp, -2.6090219824590527e+03_dp, &
2701 3.9842874719195775e+03_dp, -2.2508330708123085e+03_dp, 3.7033823002291069e+02_dp, &
2702 -3.1902484361391252e+01_dp, 4.8115948604471549e+02_dp, -5.8171212108552209e+02_dp, &
2703 2.8977583679044648e+02_dp, -5.6846166243147294e+01_dp, 2.4525299653129071e+00_dp, &
2704 -3.5637069115264741e-01_dp, -2.0104566416523126e-01_dp, 2.6779238503295028e-02_dp, &
2705 4.8939905628270081e-02_dp, 2.4792825698676576e-03_dp, -2.9869803743560470e-02_dp, &
2706 5.8425383143963141e-03_dp, 1.1635030317581013e-02_dp, -3.2996081706425048e-03_dp, &
2707 -6.5241888531386676e-03_dp, 5.3759987970630431e-03_dp, -1.3062621653998619e-03_dp, &
2708 3.4788507276835041e+00_dp, -8.2208076410363606e-01_dp, -3.8961998160802858e-01_dp, &
2709 1.4052212399279815e-01_dp, 1.1721421643645048e-01_dp, -2.4240480071210848e-02_dp, &
2710 -7.7735694825084065e-02_dp, 2.7075038378894713e-02_dp, 3.7905398760191382e-02_dp, &
2711 -2.6448267280219422e-02_dp, -6.6537554846141100e-03_dp, 1.1815563026552645e-02_dp, &
2712 -3.3909248684933454e-03_dp, 6.1543722219710162e+00_dp, -2.2568137161530410e+00_dp, &
2713 -8.7825522652867727e-01_dp, 5.6706955570340978e-01_dp, 2.9972495377368685e-01_dp, &
2714 -1.5163443438723695e-01_dp, -2.1990818300811518e-01_dp, 1.1667113151985914e-01_dp, &
2715 1.3131118147888812e-01_dp, -1.4121395152578772e-01_dp, 2.5319103809441905e-02_dp, &
2716 2.1127868156859679e-02_dp, -8.5766267142760727e-03_dp, 1.2157059618437597e+01_dp, &
2717 -6.2094066481490042e+00_dp, -1.8855484638051927e+00_dp, 1.9867289226165976e+00_dp, &
2718 6.5796325888957663e-01_dp, -6.6000282590724135e-01_dp, -5.5900550981956598e-01_dp, &
2719 4.5520937544335560e-01_dp, 4.1683712730881195e-01_dp, -6.3698977586433025e-01_dp, &
2720 2.7310677955566764e-01_dp, -1.5884701923367262e-02_dp, -1.3177785753804044e-02_dp, &
2721 2.5597273547085955e+01_dp, -1.7189605326643218e+01_dp, -3.5459040501619303e+00_dp, &
2722 6.5908292406530711e+00_dp, 9.9536824328795226e-01_dp, -2.5268919270014778e+00_dp, &
2723 -1.1778857876024893e+00_dp, 1.6973853342765182e+00_dp, 1.1755279384183819e+00_dp, &
2724 -2.6199621348432438e+00_dp, 1.6332594658854560e+00_dp, -4.2930601501144439e-01_dp, &
2725 3.0668797181816410e-02_dp, 5.6890294980110632e+01_dp, -4.8935675805853023e+01_dp, &
2726 -4.3928513391337605e+00_dp, 2.1493900023941237e+01_dp, -9.2561396202764701e-01_dp, &
2727 -8.9832110266967078e+00_dp, -1.2945023961231210e+00_dp, 6.1971050020908542e+00_dp, &
2728 2.4122252521897924e+00_dp, -9.7999682646599489e+00_dp, 7.9639626818274714e+00_dp, &
2729 -2.9529703827741800e+00_dp, 4.3437020501980872e-01_dp, 1.3418598639315178e+02_dp, &
2730 -1.4639064170062176e+02_dp, 7.9688822975923612e+00_dp, 6.9963146941480773e+01_dp, &
2731 -1.9798038249044243e+01_dp, -2.9411357486525350e+01_dp, 6.3698447544865715e+00_dp/)
2732 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/2.2105999150585166e+01_dp, &
2733 -2.2551854693657698e+00_dp, -3.0252257829864192e+01_dp, 3.2690274416605568e+01_dp, &
2734 -1.5006475584487145e+01_dp, 2.7494470603903425e+00_dp, 3.4045498207568971e+02_dp, &
2735 -4.7133760448357106e+02_dp, 1.1327780050673924e+02_dp, 2.2523014020490135e+02_dp, &
2736 -1.4330073759632975e+02_dp, -7.7468008856218788e+01_dp, 6.7539805363605566e+01_dp, &
2737 7.1533214810405553e+01_dp, -7.4426510844032748e+01_dp, -4.0867003585558841e+01_dp, &
2738 9.5519686500466420e+01_dp, -5.6748771136081224e+01_dp, 1.2334798380537688e+01_dp, &
2739 9.5030306864288514e+02_dp, -1.6854513316308066e+03_dp, 8.3319880141164163e+02_dp, &
2740 6.4915029955371108e+02_dp, -8.9512232378940689e+02_dp, 1.1151023474977780e+01_dp, &
2741 4.0937510009100765e+02_dp, 1.1637171492092472e+02_dp, -6.0214982550573529e+02_dp, &
2742 4.3122386361734880e+02_dp, -4.9217676673429537e+01_dp, -7.4489120696598462e+01_dp, &
2743 2.7655792789203122e+01_dp, 3.0475256987427633e+03_dp, -7.0066488989471227e+03_dp, &
2744 6.0846071431580522e+03_dp, 2.4654355076157873e+02_dp, -5.0986530061647118e+03_dp, &
2745 3.5130484940953365e+03_dp, 8.2990840282523322e+02_dp, -1.5418369657761907e+03_dp, &
2746 -1.6637950125880895e+03_dp, 4.0893665083154874e+03_dp, -3.3614370283246321e+03_dp, &
2747 1.3720459965327138e+03_dp, -2.3508756179939306e+02_dp, 1.3543997817893476e+04_dp, &
2748 -3.8219712441683943e+04_dp, 5.1571871314927179e+04_dp, -3.5616662338932052e+04_dp, &
2749 -5.5991015438729119e+02_dp, 3.0560634575586610e+04_dp, -3.8034115203375237e+04_dp, &
2750 2.7684234144350565e+04_dp, -1.3389558668848904e+04_dp, 3.9243885697378510e+03_dp, &
2751 -2.1067618872891239e+02_dp, -3.4140069782619736e+02_dp, 1.0514659620128288e+02_dp, &
2752 3.1070151999119766e-01_dp, -1.5418900622590423e-02_dp, -1.3385402496793672e-02_dp, &
2753 4.0104520214988143e-03_dp, -4.0137665511710309e-03_dp, 6.0634593372117873e-03_dp, &
2754 -6.0335242023330767e-03_dp, 5.1416827988300775e-03_dp, -4.2479700168415501e-03_dp, &
2755 3.0278142624862105e-03_dp, -1.5771186418613689e-03_dp, 5.1319284677445436e-04_dp, &
2756 -7.7760892249170883e-05_dp, 1.0738088654114670e+00_dp, -6.9011733174083323e-02_dp, &
2757 -5.8571528350665605e-02_dp, 2.0236912375192588e-02_dp, -1.7748843399198674e-02_dp, &
2758 2.7179396127280601e-02_dp, -2.7370169804265022e-02_dp, 2.3012442691885241e-02_dp, &
2759 -1.8752163526337080e-02_dp, 1.3306638853040436e-02_dp, -6.8968599129474242e-03_dp, &
2760 2.2148106641816261e-03_dp, -3.2713412872578977e-04_dp, 2.3587191042167146e+00_dp, &
2761 -2.1892062702350010e-01_dp, -1.7981032764373062e-01_dp, 7.4266715447842788e-02_dp, &
2762 -5.5755162509579577e-02_dp, 8.6197238895336856e-02_dp, -8.8434819428318698e-02_dp, &
2763 7.3044554544590024e-02_dp, -5.8253678591248331e-02_dp, 4.1045428330803928e-02_dp, &
2764 -2.1141989971175491e-02_dp, 6.6663194149084379e-03_dp, -9.4698866181811470e-04_dp, &
2765 4.9095569364132761e+00_dp, -6.5653821881663610e-01_dp, -5.1926150788332637e-01_dp, &
2766 2.5545610262410418e-01_dp, -1.6752475780931578e-01_dp, 2.5748215779005090e-01_dp, &
2767 -2.7035809285075363e-01_dp, 2.1945387900012747e-01_dp, -1.7026830150641939e-01_dp, &
2768 1.1880809008201974e-01_dp, -6.0862416134477300e-02_dp, 1.8834269810612231e-02_dp, &
2769 -2.5543692261934688e-03_dp, 1.0428495867052428e+01_dp, -1.9432357381147800e+00_dp, &
2770 -1.4692140211872782e+00_dp, 8.6331929124290829e-01_dp, -5.0585478836643105e-01_dp, &
2771 7.5530509804086554e-01_dp, -8.1607591368868604e-01_dp, 6.5190588923750659e-01_dp, &
2772 -4.8767325783852300e-01_dp, 3.3517775887994816e-01_dp, -1.7093793530670998e-01_dp, &
2773 5.1961983765136888e-02_dp, -6.6742743223630954e-03_dp, 2.3180306769496532e+01_dp, &
2774 -5.8479292153610993e+00_dp, -4.1741626920582231e+00_dp, 2.9735016542960855e+00_dp, &
2775 -1.5967301459661869e+00_dp, 2.2376916273966088e+00_dp, -2.5039185219249935e+00_dp, &
2776 1.9742019032983462e+00_dp, -1.4031603691615286e+00_dp, 9.3839465982933501e-01_dp, &
2777 -4.7641240927423684e-01_dp, 1.4259287153642736e-01_dp, -1.7178530431716743e-02_dp, &
2778 5.4807444543914080e+01_dp, -1.8428736049538433e+01_dp, -1.2159840401125734e+01_dp, &
2779 1.0799384839018646e+01_dp, -5.5132864599838030e+00_dp, 6.8824744137130160e+00_dp, &
2780 -8.0181186424414683e+00_dp, 6.2811263339245347e+00_dp, -4.1414130588660143e+00_dp, &
2781 2.6139308618654691e+00_dp, -1.3115897057255532e+00_dp, 3.8743455254506703e-01_dp, &
2782 -4.3118917292752940e-02_dp, 1.4054749225956735e+02_dp, -6.2916617869030020e+01_dp, &
2783 -3.6937557851795980e+01_dp, 4.2950396779726667e+01_dp, -2.2089900157704871e+01_dp, &
2784 2.2746517401589692e+01_dp, -2.7468240068761069e+01_dp, 2.1674175015936296e+01_dp, &
2785 -1.2736556725406421e+01_dp, 6.9130613132454206e+00_dp, -3.2447386195397336e+00_dp, &
2786 9.1820903948266930e-01_dp, -8.4183705014911528e-02_dp, 4.0295699079346474e+02_dp, &
2787 -2.4412729159645014e+02_dp, -1.1742697356266694e+02_dp, 1.9701773109595578e+02_dp, &
2788 -1.1199516755711144e+02_dp, 8.6331114706981623e+01_dp, -1.0268037391817907e+02_dp, &
2789 8.3451889210861594e+01_dp, -4.0566080642770373e+01_dp, 1.1849996075031711e+01_dp, &
2790 -1.5608524774197274e+00_dp, -6.5060728335316376e-01_dp, 3.8305022351595713e-01_dp, &
2791 1.3662736150558032e+03_dp, -1.1715066138716820e+03_dp, -3.5576387006757238e+02_dp, &
2792 1.1360365394454777e+03_dp, -8.3466379882382341e+02_dp, 4.6643712739732109e+02_dp, &
2793 -4.1192955562637843e+02_dp, 3.3476739896275893e+02_dp, -9.8910890189152127e+01_dp, &
2794 -9.7849413214247178e+01_dp, 1.3013359839770587e+02_dp, -6.7589528042984526e+01_dp, &
2795 1.4836210780641425e+01_dp, 6.2804767862049530e+03_dp, -8.4385527636566749e+03_dp, &
2796 7.8564045247073238e+02_dp, 9.2835293778113901e+03_dp, -1.2752206647198502e+04_dp, &
2797 8.9081514173809228e+03_dp, -2.5221109786186362e+03_dp, -2.7419974694190250e+03_dp, &
2798 5.8446477853057622e+03_dp, -6.5356503656889390e+03_dp, 4.9036628540405673e+03_dp, &
2799 -2.2739363291736840e+03_dp, 4.8962251827596492e+02_dp, 2.5741763632522208e+00_dp, &
2800 -1.3688666727294529e-01_dp, -1.1813071559062696e-01_dp, 3.6811630925133884e-02_dp, &
2801 -3.5503146549161348e-02_dp, 5.3860501688968561e-02_dp, -5.3757184624549099e-02_dp, &
2802 4.5644883856042782e-02_dp, -3.7578566225404821e-02_dp, 2.6754376121288694e-02_dp, &
2803 -1.3916750691682382e-02_dp, 4.5126084600130203e-03_dp, -6.7926878267826000e-04_dp, &
2804 3.7683048696758537e+00_dp, -3.3588966026720962e-01_dp, -2.7816323679430133e-01_dp, &
2805 1.1023403695203432e-01_dp, -8.5451463047366089e-02_dp, 1.3240533806228441e-01_dp, &
2806 -1.3509314769377362e-01_dp, 1.1202128312859926e-01_dp, -8.9894231488644935e-02_dp, &
2807 6.3470572830902017e-02_dp, -3.2727234081501758e-02_dp, 1.0359096690123611e-02_dp, &
2808 -1.4853875358901360e-03_dp, 6.9727268104466820e+00_dp, -9.7719657754485867e-01_dp, &
2809 -7.7724485344015970e-01_dp, 3.7367281005024411e-01_dp, -2.4776335609741895e-01_dp, &
2810 3.8410532223734450e-01_dp, -4.0146502572297815e-01_dp, 3.2637402854653347e-01_dp, &
2811 -2.5462309800085997e-01_dp, 1.7806400215143009e-01_dp, -9.1212601775455024e-02_dp, &
2812 2.8257494209588008e-02_dp, -3.8517458799869888e-03_dp, 1.4477920229338737e+01_dp, &
2813 -2.8534043059134824e+00_dp, -2.1721992056082700e+00_dp, 1.2466640681189123e+00_dp, &
2814 -7.3460581190645624e-01_dp, 1.1126441446066606e+00_dp, -1.1960225615602900e+00_dp, &
2815 9.5605186786242724e-01_dp, -7.2049164256777010e-01_dp, 4.9716022632596263e-01_dp, &
2816 -2.5348072114831677e-01_dp, 7.7049718869009298e-02_dp, -9.9385241865572148e-03_dp, &
2817 3.2252510027816605e+01_dp, -8.4617202290005658e+00_dp, -6.1023655425242858e+00_dp, &
2818 4.2181327536141584e+00_dp, -2.2670906799979624e+00_dp, 3.2527495661814285e+00_dp, &
2819 -3.6180228600037601e+00_dp, 2.8512301914963061e+00_dp, -2.0497082727121163e+00_dp, &
2820 1.3825637028872737e+00_dp, -7.0227883206852093e-01_dp, 2.0995045275702587e-01_dp, &
2821 -2.5391882706450129e-02_dp, 7.6671906271617928e+01_dp, -2.6191644580623201e+01_dp, &
2822 -1.7589785027199280e+01_dp, 1.4956788717489948e+01_dp, -7.5745756904485431e+00_dp, &
2823 9.8459676211007903e+00_dp, -1.1400125550680388e+01_dp, 8.9043865524691590e+00_dp, &
2824 -5.9853757336841316e+00_dp, 3.8609879714924378e+00_dp, -1.9491156032947727e+00_dp, &
2825 5.7551390258433999e-01_dp, -6.4555191580898369e-02_dp, 1.9670731225175837e+02_dp, &
2826 -8.7092067535475124e+01_dp, -5.2912261467103285e+01_dp, 5.7371747173768014e+01_dp, &
2827 -2.8714960392858028e+01_dp, 3.1727692420638270e+01_dp, -3.8282028198777425e+01_dp, &
2828 2.9960818291058100e+01_dp, -1.8238144214054639e+01_dp, 1.0608034141638724e+01_dp, &
2829 -5.2023410679539275e+00_dp, 1.5132791560087548e+00_dp, -1.5181291183013737e-01_dp, &
2830 5.5714705001563368e+02_dp, -3.2263481480447831e+02_dp, -1.6778611836804163e+02_dp, &
2831 2.4762291567849428e+02_dp, -1.3146191026312459e+02_dp, 1.1356350617240891e+02_dp, &
2832 -1.3983007561219821e+02_dp, 1.1183958095997933e+02_dp, -5.8395910760663028e+01_dp, &
2833 2.4697691761515443e+01_dp, -9.5671291643381515e+00_dp, 2.2817076345157226e+00_dp, &
2834 -5.4636457220685601e-02_dp, 1.8121516134579620e+03_dp, -1.4090173856477702e+03_dp, &
2835 -5.4917522369887411e+02_dp, 1.2757799353011990e+03_dp, -7.9838106640274214e+02_dp, &
2836 5.0012033797473867e+02_dp, -5.6022159293750929e+02_dp, 4.6860203326723456e+02_dp, &
2837 -1.8680839076443570e+02_dp, -1.5501517335518674e+01_dp, 5.8637375937772674e+01_dp, &
2838 -3.1899570998327739e+01_dp, 7.2944841057857248e+00_dp, 7.3075215016852726e+03_dp, &
2839 -8.0716600625892179e+03_dp, -1.3185554249594411e+03_dp, 8.6801383834222961e+03_dp, &
2840 -7.6321624820157049e+03_dp, 3.8266089588782174e+03_dp, -2.2802301436819621e+03_dp, &
2841 1.6446395857376338e+03_dp, 6.5040243939953628e+00_dp, -1.6194859543158686e+03_dp, &
2842 1.7774545762751463e+03_dp, -9.1126046751063029e+02_dp, 1.9853994304916299e+02_dp, &
2843 4.4936883720346559e+04_dp, -7.7985520384416654e+04_dp, 2.9091936453752249e+04_dp, &
2844 8.2600120859143732e+04_dp, -1.6542933631024099e+05_dp, 1.5026229391384314e+05_dp, &
2845 -4.6996941258423743e+04_dp, -7.8034667778134157e+04_dp, 1.5828259652379624e+05_dp, &
2846 -1.6452541439182087e+05_dp, 1.1259380546309771e+05_dp, -4.8049115944930432e+04_dp, &
2847 9.6994935473796631e+03_dp, 3.1427203235400236e-01_dp, -1.7052748574378306e-09_dp, &
2848 -2.0798188655925094e-02_dp, 2.2230997852694379e-02_dp, -2.2254212098492477e-02_dp, &
2849 4.4543234851814424e-03_dp, 4.5140639377175884e-02_dp, -1.2840956067326359e-01_dp, &
2850 2.1871157485341305e-01_dp, -2.6051786656559134e-01_dp, 2.1339394919157553e-01_dp, &
2851 -1.0839462535404525e-01_dp, 2.5713078268260792e-02_dp, 1.0898619734312922e+00_dp, &
2852 -7.7200614526554230e-09_dp, -9.3932730256275687e-02_dp, 1.0040375386032285e-01_dp, &
2853 -9.8022840144582693e-02_dp, 1.4771149788048780e-02_dp, 2.1228972641591992e-01_dp, &
2854 -5.8873273993490682e-01_dp, 9.9111659249563344e-01_dp, -1.1700776653422673e+00_dp, &
2855 9.5074998676885270e-01_dp, -4.7927322262063310e-01_dp, 1.1286696036611708e-01_dp, &
2856 2.4099686080266722e+00_dp, -2.4887589540378409e-08_dp, -3.0179173326782494e-01_dp, &
2857 3.2258169443715523e-01_dp, -3.0369141944218259e-01_dp, 2.3279662310325418e-02_dp, &
2858 7.1970589930972140e-01_dp, -1.9299446920382815e+00_dp, 3.1967747715415227e+00_dp, &
2859 -3.7261628430281388e+00_dp, 2.9923091861400359e+00_dp, -1.4913736558069244e+00_dp, &
2860 3.4734441592637294e-01_dp, 5.0643496588107419e+00_dp, -7.5994415175293662e-08_dp, &
2861 -9.1798921280659829e-01_dp, 9.8122645165553024e-01_dp, -8.8561110596829973e-01_dp, &
2862 -1.1263108188627524e-02_dp, 2.3148160729056904e+00_dp, -5.9940875579716151e+00_dp, &
2863 9.7525037514957766e+00_dp, -1.1202621964616382e+01_dp, 8.8723971586232349e+00_dp, &
2864 -4.3615551235670349e+00_dp, 1.0019327026030862e+00_dp, 1.0890417035686898e+01_dp, &
2865 -2.2965810094845916e-07_dp, -2.7617022482760696e+00_dp, 2.9519410935497650e+00_dp/)
2866 REAL(kind=dp), DIMENSION(13, 22, 5), PARAMETER :: &
2867 coefdata = reshape((/c01, c02, c03, c04/), (/13, 22, 5/))
2868
2869 INTEGER :: irange
2870
2871 IF (rc <= 1.0000000000000000e+01_dp) rc = 1.0000000000000000e+01_dp
2872 IF (rc >= 4.6752176284790039e+04_dp) rc = 4.6752176284790039e+04_dp
2873 IF (rc >= 1.0000000000000000e+01_dp .AND. rc <= 2.8424619208291968e+01_dp) THEN
2874 irange = 1
2875 l_b = 1.0000000000000000e+01_dp
2876 u_b = 2.8424619208291968e+01_dp
2877 END IF
2878 IF (rc >= 2.8424619208291968e+01_dp .AND. rc <= 3.0981600906727294e+02_dp) THEN
2879 irange = 2
2880 l_b = 2.8424619208291968e+01_dp
2881 u_b = 3.0981600906727294e+02_dp
2882 END IF
2883 IF (rc >= 3.0981600906727294e+02_dp .AND. rc <= 3.3622492755925045e+03_dp) THEN
2884 irange = 3
2885 l_b = 3.0981600906727294e+02_dp
2886 u_b = 3.3622492755925045e+03_dp
2887 END IF
2888 IF (rc >= 3.3622492755925045e+03_dp .AND. rc <= 1.6183902110703035e+04_dp) THEN
2889 irange = 4
2890 l_b = 3.3622492755925045e+03_dp
2891 u_b = 1.6183902110703035e+04_dp
2892 END IF
2893 IF (rc >= 1.6183902110703035e+04_dp .AND. rc <= 4.6752176284790039e+04_dp) THEN
2894 irange = 5
2895 l_b = 1.6183902110703035e+04_dp
2896 u_b = 4.6752176284790039e+04_dp
2897 END IF
2898
2899 fit_coef(1:13, 1:22) = coefdata(1:13, 1:22, irange)
2900
2901 END SUBROUTINE get_fit_coef_k11
2902
2903! **************************************************************************************************
2904!> \brief ...
2905!> \param Rc ...
2906!> \param L_b ...
2907!> \param U_b ...
2908!> \param fit_coef ...
2909! **************************************************************************************************
2910 SUBROUTINE get_fit_coef_k12(Rc, L_b, U_b, fit_coef)
2911 REAL(kind=dp) :: rc, l_b, u_b
2912 REAL(kind=dp), DIMENSION(13, 24) :: fit_coef
2913
2914 REAL(kind=dp), DIMENSION(360), PARAMETER :: c04 = (/-3.4185637511153556e+02_dp, &
2915 3.0668182445881496e+02_dp, -4.1209664021967029e+02_dp, 3.7330789502174974e+02_dp, &
2916 -2.3245333897278655e+02_dp, 1.3019687281058577e+02_dp, -7.4166370900253412e+01_dp, &
2917 3.1434861912054572e+01_dp, -6.1992398402862987e+00_dp, 3.3062345634073872e+03_dp, &
2918 -2.8380291130889623e+03_dp, -1.1095051926787444e+03_dp, 2.9595972359353800e+03_dp, &
2919 -2.0418648669157474e+03_dp, 1.3579924383957912e+03_dp, -1.6383680580108412e+03_dp, &
2920 1.5632799559570371e+03_dp, -8.2188370092199273e+02_dp, 1.7721434488923131e+02_dp, &
2921 2.5281668531481952e+01_dp, -1.8196384478159434e+01_dp, 1.9842571350266878e+00_dp, &
2922 1.3328564943766472e+04_dp, -1.6084133970863943e+04_dp, -2.4194016592280573e+03_dp, &
2923 1.9708051080372439e+04_dp, -1.9066259070011958e+04_dp, 1.0516314706873116e+04_dp, &
2924 -6.9116247247954307e+03_dp, 5.9899122414862086e+03_dp, -1.8790330931175195e+03_dp, &
2925 -3.1628969452433375e+03_dp, 4.4070324751659182e+03_dp, -2.3872165372019858e+03_dp, &
2926 5.1970220864424766e+02_dp, 8.1916821529150999e+04_dp, -1.5385697042232822e+05_dp, &
2927 6.4357021299851127e+04_dp, 1.8222531336464582e+05_dp, -3.9926912182453059e+05_dp, &
2928 3.9765324348418182e+05_dp, -1.5259165941629582e+05_dp, -1.9235890817676744e+05_dp, &
2929 4.4346076434029645e+05_dp, -4.8289048921236163e+05_dp, 3.3598895851814025e+05_dp, &
2930 -1.4269220555320667e+05_dp, 2.8226493599413534e+04_dp, 3.0164685170479322e-01_dp, &
2931 -5.5172203451047762e-10_dp, -1.8506044942376530e-02_dp, 2.0535362130493114e-02_dp, &
2932 -2.1955161428588353e-02_dp, 7.9539755938173202e-03_dp, 3.5963658879027555e-02_dp, &
2933 -1.1551812301088075e-01_dp, 2.0972249709379689e-01_dp, -2.6358369943822746e-01_dp, &
2934 2.2691979390776368e-01_dp, -1.2076707889951548e-01_dp, 2.9914909381961639e-02_dp, &
2935 1.0337362727860777e+00_dp, -2.4278618133657428e-09_dp, -8.0987705054095693e-02_dp, &
2936 8.9868498016994175e-02_dp, -9.4244322343980405e-02_dp, 3.0706481031845208e-02_dp, &
2937 1.6421381213801789e-01_dp, -5.1354447393972757e-01_dp, 9.2295913308558519e-01_dp, &
2938 -1.1521564902907171e+00_dp, 9.8650626274080910e-01_dp, -5.2258730390222685e-01_dp, &
2939 1.2892814675256531e-01_dp, 2.2336006209022599e+00_dp, -7.5196557381381133e-09_dp, &
2940 -2.4886328089901064e-01_dp, 2.7615231697783232e-01_dp, -2.8157691375482552e-01_dp, &
2941 7.6447427732108442e-02_dp, 5.3416311823157037e-01_dp, -1.6122104338954852e+00_dp, &
2942 2.8570238241898216e+00_dp, -3.5321996045285347e+00_dp, 3.0005760718496060e+00_dp, &
2943 -1.5787021349008945e+00_dp, 3.8715834373013674e-01_dp, 4.5408396268854370e+00_dp, &
2944 -2.1963117911792124e-08_dp, -7.2047148070424816e-01_dp, 7.9947350516824989e-01_dp, &
2945 -7.8952927462140421e-01_dp, 1.6405035377058730e-01_dp, 1.6397303078861616e+00_dp, &
2946 -4.7727711329957341e+00_dp, 8.3301112377347231e+00_dp, -1.0188327765377178e+01_dp, &
2947 8.5774320423583141e+00_dp, -4.4773330972176026e+00_dp, 1.0903113937324100e+00_dp, &
2948 9.3585396225448729e+00_dp, -6.3091718142079549e-08_dp, -2.0488465862004168e+00_dp, &
2949 2.2735056908505160e+00_dp, -2.1632353036088312e+00_dp, 2.8342599157808113e-01_dp, &
2950 4.9563849142841772e+00_dp, -1.3893621567301645e+01_dp, 2.3845002853830717e+01_dp, &
2951 -2.8807589805822740e+01_dp, 2.3998952097393417e+01_dp, -1.2409549730494412e+01_dp, &
2952 2.9962231581101673e+00_dp, 2.0035661685047266e+01_dp, -1.8318861950190785e-07_dp, &
2953 -5.8768822305456201e+00_dp, 6.5212788393059284e+00_dp, -5.9260748466884259e+00_dp, &
2954 1.9007154556845168e-01_dp, 1.5195230767450031e+01_dp, -4.0880688284867844e+01_dp, &
2955 6.8798962920532261e+01_dp, -8.1885938580434171e+01_dp, 6.7326941283367191e+01_dp, &
2956 -3.4396112195934521e+01_dp, 8.2124819537730627e+00_dp, 4.5186837524564041e+01_dp, &
2957 -5.5189048315790405e-07_dp, -1.7435293518428235e+01_dp, 1.9347016240234929e+01_dp, &
2958 -1.6555028673455720e+01_dp, -1.7282546301330646e+00_dp, 4.8592375625498889e+01_dp, &
2959 -1.2478022163971495e+02_dp, 2.0501118398605493e+02_dp, -2.3937993744058983e+02_dp, &
2960 1.9340954070002567e+02_dp, -9.7185875629100849e+01_dp, 2.2841035703260431e+01_dp, &
2961 1.0895632742952016e+02_dp, -1.7753617695147041e-06_dp, -5.4961807655449583e+01_dp, &
2962 6.0987992289219527e+01_dp, -4.7993145360250452e+01_dp, -1.4816878684426364e+01_dp, &
2963 1.6706696991861321e+02_dp, -4.0611982341150724e+02_dp, 6.4689668450834165e+02_dp, &
2964 -7.3581605952141376e+02_dp, 5.7978919474213126e+02_dp, -2.8419268389089797e+02_dp, &
2965 6.5166070829987390e+01_dp, 2.8689243638403678e+02_dp, -6.3312119940337709e-06_dp, &
2966 -1.9053537366222281e+02_dp, 2.1142529518359913e+02_dp, -1.4641605175592150e+02_dp, &
2967 -9.5966800148703925e+01_dp, 6.4223751431253402e+02_dp, -1.4586588921357418e+03_dp, &
2968 2.2256725177045328e+03_dp, -2.4338616595046051e+03_dp, 1.8418263857593236e+03_dp, &
2969 -8.6495958991931241e+02_dp, 1.8950502445083771e+02_dp, 8.5444004181695163e+02_dp, &
2970 -2.6571362038851006e-05_dp, -7.6613502361500741e+02_dp, 8.5012645497370215e+02_dp, &
2971 -4.6842775108287498e+02_dp, -6.5473848351985168e+02_dp, 2.9351311783685087e+03_dp, &
2972 -6.0796556523797653e+03_dp, 8.6674356970216486e+03_dp, -8.8364985676925335e+03_dp, &
2973 6.1665429803353672e+03_dp, -2.6257276231829951e+03_dp, 5.0946079410937239e+02_dp, &
2974 3.0824642958474647e+03_dp, -1.4788465867979594e-04_dp, -3.9609773254235906e+03_dp, &
2975 4.3951626916942769e+03_dp, -1.3291224125020340e+03_dp, -5.8270602373543688e+03_dp, &
2976 1.7945918393741063e+04_dp, -3.1907297760403359e+04_dp, 3.9407886847883412e+04_dp, &
2977 -3.3300333492099067e+04_dp, 1.7255106888719325e+04_dp, -3.9825476124982529e+03_dp, &
2978 -1.2999954606432709e+02_dp, 1.6128597938285850e+04_dp, -1.5030638475001011e-03_dp, &
2979 -3.4863202377279144e+04_dp, 3.8683719996946420e+04_dp, 1.3482962106710645e+04_dp, &
2980 -1.0745578386256201e+05_dp, 1.9505941245695992e+05_dp, -1.9666018180780555e+05_dp, &
2981 4.4741584065591967e+04_dp, 2.0843454148318552e+05_dp, -3.5985775021980889e+05_dp, &
2982 2.7195812467571569e+05_dp, -8.4386235731227309e+04_dp, 2.4940301661524327e+00_dp, &
2983 -4.8761432479024613e-09_dp, -1.6331906973896218e-01_dp, 1.8122810750947294e-01_dp, &
2984 -1.9277728419454013e-01_dp, 6.8005697039744004e-02_dp, 3.2103938239821989e-01_dp, &
2985 -1.0237726178221629e+00_dp, 1.8536557765917583e+00_dp, -2.3255419407411013e+00_dp, &
2986 1.9991982697808994e+00_dp, -1.0626828301829472e+00_dp, 2.6295769459071416e-01_dp, &
2987 3.5755973818818960e+00_dp, -1.1603952754322735e-08_dp, -3.8475394639504729e-01_dp, &
2988 4.2694415860455948e-01_dp, -4.3819791361753802e-01_dp, 1.2459309034144038e-01_dp, &
2989 8.1545646945528116e-01_dp, -2.4809209517018500e+00_dp, 4.4108062606870044e+00_dp, &
2990 -5.4655694478252199e+00_dp, 4.6516682189795713e+00_dp, -2.4513933721396328e+00_dp, &
2991 6.0204233745356073e-01_dp, 6.4226158559830946e+00_dp, -3.2805352108466541e-08_dp, &
2992 -1.0773255604203609e+00_dp, 1.1954579885591146e+00_dp, -1.1849990846141789e+00_dp, &
2993 2.5515816259290564e-01_dp, 2.4367480635924981e+00_dp, -7.1215213584239168e+00_dp, &
2994 1.2451828043400571e+01_dp, -1.5249497001548516e+01_dp, 1.2852721953337637e+01_dp, &
2995 -6.7156694314339243e+00_dp, 1.6368497429599620e+00_dp, 1.2902584607163559e+01_dp, &
2996 -9.3010917588220549e-08_dp, -3.0241468331042811e+00_dp, 3.3557497057646462e+00_dp, &
2997 -3.2062969899464329e+00_dp, 4.4807915038362744e-01_dp, 7.2715631913010199e+00_dp, &
2998 -2.0466348197975517e+01_dp, 3.5193113499959807e+01_dp, -4.2579681063128852e+01_dp, &
2999 3.5517565733358850e+01_dp, -1.8387068020037940e+01_dp, 4.4442003578290663e+00_dp, &
3000 2.7685125754473791e+01_dp, -2.6655333069596634e-07_dp, -8.5660748337068267e+00_dp, &
3001 9.5053423418833010e+00_dp, -8.6904919031127577e+00_dp, 3.9482814908508695e-01_dp, &
3002 2.1976974588949293e+01_dp, -5.9436677744795340e+01_dp, 1.0029335513740615e+02_dp, &
3003 -1.1962215910808953e+02_dp, 9.8539996723451168e+01_dp, -5.0431243284742301e+01_dp, &
3004 1.2060994098735554e+01_dp, 6.2917458626872921e+01_dp, -7.9134239123148668e-07_dp, &
3005 -2.5068529212304448e+01_dp, 2.7817223140209801e+01_dp, -2.4046915225943547e+01_dp, &
3006 -1.9395939337241239e+00_dp, 6.9089786072269447e+01_dp, -1.7876906933349807e+02_dp, &
3007 2.9493693173592038e+02_dp, -3.4556771722578929e+02_dp, 2.8010388997491992e+02_dp, &
3008 -1.4118580950500959e+02_dp, 3.3281675996370566e+01_dp, 1.5253253791878910e+02_dp, &
3009 -2.4954055601737901e-06_dp, -7.7617749203342299e+01_dp, 8.6128067009403992e+01_dp, &
3010 -6.9075429768151551e+01_dp, -1.8021885618043012e+01_dp, 2.3192299426396963e+02_dp, &
3011 -5.7052514794751085e+02_dp, 9.1526774152540247e+02_dp, -1.0476060088374984e+03_dp, &
3012 8.3055190254818183e+02_dp, -4.0964513685395752e+02_dp, 9.4525150515697661e+01_dp, &
3013 4.0087287412388724e+02_dp, -8.6103900253895508e-06_dp, -2.6137783643603069e+02_dp, &
3014 2.9003519532875379e+02_dp, -2.0888205957244327e+02_dp, -1.1370705124392683e+02_dp, &
3015 8.5737866354046969e+02_dp, -1.9862642690863304e+03_dp, 3.0712706338441053e+03_dp, &
3016 -3.4013694733239226e+03_dp, 2.6087459336779320e+03_dp, -1.2431758759458942e+03_dp, &
3017 2.7676845196812326e+02_dp, 1.1729505165460264e+03_dp, -3.3934203984688906e-05_dp, &
3018 -9.9532307429726222e+02_dp, 1.1044435943440794e+03_dp, -6.6950542960751693e+02_dp, &
3019 -7.1437477357816522e+02_dp, 3.6476398644962173e+03_dp, -7.8338686873921197e+03_dp, &
3020 1.1489560023181602e+04_dp, -1.2078261929568855e+04_dp, 8.7467165628783914e+03_dp, &
3021 -3.9033893165920181e+03_dp, 8.0543786542223984e+02_dp, 4.0025763692524602e+03_dp, &
3022 -1.6441200621815803e-04_dp, -4.5748681371839593e+03_dp, 5.0763799034785297e+03_dp, &
3023 -2.1894243070054299e+03_dp, -5.2679217031519338e+03_dp, 1.9223347825793080e+04_dp, &
3024 -3.7099987002346737e+04_dp, 4.9772930678433557e+04_dp, -4.7215872180717706e+04_dp, &
3025 2.9876971372619882e+04_dp, -1.0991976018488713e+04_dp, 1.6682216582907936e+03_dp, &
3026 1.7509520393482337e+04_dp, -1.1430899598941567e-03_dp, -2.9021900105895245e+04_dp, &
3027 3.2202837223613624e+04_dp, -3.5725050225571181e+03_dp, -5.6472687752002603e+04_dp, &
3028 1.4551089741279720e+05_dp, -2.3088420890704289e+05_dp, 2.4762084854022125e+05_dp, &
3029 -1.6041754781689952e+05_dp, 3.1958918982707906e+04_dp, 3.1336956460431076e+04_dp, &
3030 -1.8132152598903405e+04_dp, 1.2844704220123403e+05_dp, -1.6871224076075653e-02_dp, &
3031 -3.7306629896332178e+05_dp, 4.1394566251683736e+05_dp, 3.3744969046701316e+05_dp, &
3032 -1.5791948214027057e+06_dp, 2.1917044569001873e+06_dp, -7.9115467427151953e+05_dp, &
3033 -3.0601023356753197e+06_dp, 7.4427363873937679e+06_dp, -8.7248223821029570e+06_dp, &
3034 5.6367831322922539e+06_dp, -1.6014423862358064e+06_dp/)
3035 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.8031277973538481e-01_dp, &
3036 -6.7333985536224536e-02_dp, -8.9222590966419636e-03_dp, 4.3313443199331000e-03_dp, &
3037 1.3612994231258369e-03_dp, -4.2134528860866431e-04_dp, -1.3958926498276367e-04_dp, &
3038 1.0459985085575114e-04_dp, 2.4321788489287324e-05_dp, -2.5628407616984446e-05_dp, &
3039 -1.6458382252127667e-05_dp, 1.3859125845187524e-05_dp, -2.2063994735235424e-06_dp, &
3040 5.6642829897676783e-01_dp, -2.3140933582208004e-01_dp, -1.8778663252719714e-02_dp, &
3041 1.6290358696371920e-02_dp, 2.8000138622044312e-03_dp, -1.8197685206671524e-03_dp, &
3042 -1.8239631460980203e-04_dp, 4.0942989349671970e-04_dp, 1.5801658807221979e-05_dp, &
3043 -1.0194929622221692e-04_dp, -2.8507608430196145e-05_dp, 4.3492764958275464e-05_dp, &
3044 -9.6234726899503233e-06_dp, 1.0336794690647568e+00_dp, -4.9295449395081187e-01_dp, &
3045 2.0533773060304626e-03_dp, 3.7338083754647818e-02_dp, -7.9252017933650757e-04_dp, &
3046 -4.6073387291294529e-03_dp, 6.9737642509595181e-04_dp, 9.2284371103869235e-04_dp, &
3047 -2.0181932998978786e-04_dp, -2.3287683121935485e-04_dp, 3.9390431126406291e-05_dp, &
3048 6.1279897499314255e-05_dp, -2.1659512655332614e-05_dp, 1.6524775107115341e+00_dp, &
3049 -9.4977382091404372e-01_dp, 9.9098600636927089e-02_dp, 6.9382247845005254e-02_dp, &
3050 -1.6738833641680006e-02_dp, -8.4516567685186013e-03_dp, 3.7770914842681614e-03_dp, &
3051 1.4714946234771721e-03_dp, -8.7049922044455698e-04_dp, -3.7422653125675199e-04_dp, &
3052 2.7591748697712180e-04_dp, 1.0743072823795072e-05_dp, -2.7724542973182781e-05_dp, &
3053 2.5209403407090294e+00_dp, -1.7572535732534307e+00_dp, 3.6675784179170207e-01_dp, &
3054 1.0132030522062821e-01_dp, -5.8095720513577059e-02_dp, -9.6754073273882992e-03_dp, &
3055 1.1051073079906482e-02_dp, 1.1782991243745834e-03_dp, -2.2976290173779054e-03_dp, &
3056 -3.1775371778666181e-04_dp, 7.5498578709957390e-04_dp, -2.0358509226504188e-04_dp, &
3057 -2.1487703220423853e-06_dp, 3.7842663535150787e+00_dp, -3.1719815711214094e+00_dp, &
3058 9.9628607256145418e-01_dp, 8.4642747014531908e-02_dp, -1.4338485390045752e-01_dp, &
3059 3.6775926065065463e-03_dp, 2.4387343709671966e-02_dp, -2.3922521075792551e-03_dp, &
3060 -4.6280864130883170e-03_dp, 4.5453420746634649e-04_dp, 1.4427825127764225e-03_dp, &
3061 -6.9362473654104538e-04_dp, 9.3510079815132331e-05_dp, 5.6675748977110523e+00_dp, &
3062 -5.6248348603552669e+00_dp, 2.3650242434167574e+00_dp, -1.2518277136594844e-01_dp, &
3063 -2.8499324383843427e-01_dp, 6.0582406722422502e-02_dp, 4.1263478851215951e-02_dp, &
3064 -1.4469635429703774e-02_dp, -6.9085971227368830e-03_dp, 2.9757772888861674e-03_dp, &
3065 1.9815826737071439e-03_dp, -1.5730264350839068e-03_dp, 3.2218540254269558e-04_dp, &
3066 8.5395933853630233e+00_dp, -9.8513995851521390e+00_dp, 5.1996720804059038e+00_dp, &
3067 -8.9780495348559786e-01_dp, -4.3997137995311281e-01_dp, 2.1423762405988919e-01_dp, &
3068 4.1578026070946399e-02_dp, -4.2129670371580948e-02_dp, -4.3453273897259689e-03_dp, &
3069 8.5341896614408736e-03_dp, 8.3854210658043302e-04_dp, -2.5753940654037861e-03_dp, &
3070 7.3005171953852588e-04_dp, 1.3061522995672423e+01_dp, -1.7160442399057352e+01_dp, &
3071 1.0881660469438872e+01_dp, -3.0868825863712459e+00_dp, -3.6654990016924677e-01_dp, &
3072 5.1609758519564186e-01_dp, -3.5298257683150376e-02_dp, -8.1154201018169170e-02_dp, &
3073 1.4393228245430536e-02_dp, 1.5144340450492988e-02_dp, -5.1252673274943747e-03_dp, &
3074 -1.8479081064741922e-03_dp, 9.9116641653779008e-04_dp, 2.0632157021397099e+01_dp, &
3075 -3.0169058816343398e+01_dp, 2.2140092264250899e+01_dp, -8.5303719478715294e+00_dp, &
3076 6.8478977718455336e-01_dp, 8.8233432059397909e-01_dp, -2.8211262686916566e-01_dp, &
3077 -8.6566980543862401e-02_dp, 5.5120484707143334e-02_dp, 1.2338345616801711e-02_dp, &
3078 -1.4829218126644110e-02_dp, 2.4716302212440498e-03_dp, 4.4101212104042314e-04_dp, &
3079 3.5217338955590499e+01_dp, -5.5810497183858885e+01_dp, 4.5632291320845674e+01_dp, &
3080 -2.1446416086860207e+01_dp, 4.5351223518918955e+00_dp, 8.5236412809032913e-01_dp, &
3081 -7.1131676788516363e-01_dp, 7.8756575443881364e-03_dp, 9.5952279114652053e-02_dp, &
3082 -4.2251471621967060e-03_dp, -2.2019449280769526e-02_dp, 8.2657727156656199e-03_dp, &
3083 -6.8583155310803173e-04_dp, 7.6395962185656373e+01_dp, -1.2728686310186325e+02_dp, &
3084 1.1124646527486497e+02_dp, -5.8598736421586601e+01_dp, 1.7014576293478193e+01_dp, &
3085 -5.7631736469304418e-01_dp, -1.3501560044152556e+00_dp, 2.1084835464631169e-01_dp, &
3086 1.5298196818925494e-01_dp, -2.8319608074091947e-02_dp, -3.6419431099310340e-02_dp, &
3087 1.8351239837091964e-02_dp, -2.4603666608287310e-03_dp, 1.4591908177422581e+00_dp, &
3088 -5.5767651166491705e-01_dp, -6.6479842568471656e-02_dp, 3.6890552285677343e-02_dp, &
3089 1.0112353440941297e-02_dp, -3.7573056532886231e-03_dp, -9.7365738212055173e-04_dp, &
3090 9.0541872635710951e-04_dp, 1.5916301956753239e-04_dp, -2.2301214373999525e-04_dp, &
3091 -1.1911948208237914e-04_dp, 1.1340817590337231e-04_dp, -1.9950792471753723e-05_dp, &
3092 1.6661756196836854e+00_dp, -7.9898374218448487e-01_dp, 1.7550890038460737e-03_dp, &
3093 6.2809001477724419e-02_dp, -9.4026377706547348e-04_dp, -8.0360148249423204e-03_dp, &
3094 1.0619161940127371e-03_dp, 1.6209032795216753e-03_dp, -3.2460691552359526e-04_dp, &
3095 -4.1050813878500998e-04_dp, 6.0867379772286893e-05_dp, 1.1638427836478115e-04_dp, &
3096 -4.1022245181328590e-05_dp, 2.1179439068493049e+00_dp, -1.3568029141401121e+00_dp, &
3097 1.9362507650379276e-01_dp, 1.0737274042258362e-01_dp, -3.2523712445134516e-02_dp, &
3098 -1.4173642482044387e-02_dp, 6.8145250252902613e-03_dp, 2.3962722609825390e-03_dp, &
3099 -1.5785664936154885e-03_dp, -6.1334891145104148e-04_dp, 5.4453171956963262e-04_dp, &
3100 -1.1974429657690983e-05_dp, -4.8455232546300578e-05_dp, 2.8966195759216218e+00_dp, &
3101 -2.3985545624839126e+00_dp, 6.4264735748769419e-01_dp, 1.4303859261575749e-01_dp, &
3102 -1.0370087260206109e-01_dp, -1.4442128737280619e-02_dp, 1.9189264767116777e-02_dp, &
3103 1.4633618315939528e-03_dp, -3.9872332174864444e-03_dp, -3.8808657146881335e-04_dp, &
3104 1.4034332418797093e-03_dp, -4.5827591441622000e-04_dp, 1.7452248924342918e-05_dp, &
3105 4.1458283694621647e+00_dp, -4.2276944439107638e+00_dp, 1.6204734519661337e+00_dp, &
3106 8.3699114369403166e-02_dp, -2.4005358926470990e-01_dp, 1.2019379195118291e-02_dp, &
3107 4.0476206444562082e-02_dp, -5.3365562632643688e-03_dp, -7.5759092434434594e-03_dp, &
3108 1.1703318240633225e-03_dp, 2.4154624739185747e-03_dp, -1.3300232599431343e-03_dp, &
3109 2.1206653667717895e-04_dp, 6.1070095083601350e+00_dp, -7.3692662730790639e+00_dp, &
3110 3.6569615163999236e+00_dp, -3.0543234096798377e-01_dp, -4.5325437989138290e-01_dp, &
3111 1.1340063624980586e-01_dp, 6.5345011752561535e-02_dp, -2.6683850539911569e-02_dp, &
3112 -1.0609290569814111e-02_dp, 5.6881166467098749e-03_dp, 2.8996179473254218e-03_dp, &
3113 -2.6780441022469402e-03_dp, 5.9375790281117737e-04_dp, 9.1967607356270840e+00_dp, &
3114 -1.2728161122633493e+01_dp, 7.7585514743513535e+00_dp, -1.6031523579554121e+00_dp, &
3115 -6.5971663204666997e-01_dp, 3.7822167096008902e-01_dp, 5.8075256175536355e-02_dp, &
3116 -7.5356462157257068e-02_dp, -4.7610280346296668e-03_dp, 1.5528173541741448e-02_dp, &
3117 5.0291646970573997e-04_dp, -4.2910396246577829e-03_dp, 1.2926070332399792e-03_dp, &
3118 1.4196696181971468e+01_dp, -2.1917883458855773e+01_dp, 1.5801136777519396e+01_dp, &
3119 -5.1163101205901276e+00_dp, -4.3929530502807101e-01_dp, 8.9353294761283697e-01_dp, &
3120 -9.5307670162679783e-02_dp, -1.4563133541061388e-01_dp, 3.3385614060572416e-02_dp, &
3121 2.8263201419445248e-02_dp, -1.2151984828830927e-02_dp, -2.4648614361214064e-03_dp, &
3122 1.7803770851374343e-03_dp, 2.2826825664059452e+01_dp, -3.8162174617271774e+01_dp, &
3123 3.1357657732432617e+01_dp, -1.3555584080685593e+01_dp, 1.4927242940990013e+00_dp, &
3124 1.4849933729996307e+00_dp, -5.9022811136976339e-01_dp, -1.3676085124973847e-01_dp, &
3125 1.2318046476580022e-01_dp, 1.6651678250228036e-02_dp, -3.5419068294572351e-02_dp, &
3126 1.0103555469163566e-02_dp, -2.8242465666916748e-04_dp, 3.9949146857561630e+01_dp, &
3127 -6.9806819497162493e+01_dp, 6.2526091490839079e+01_dp, -3.2491521274710166e+01_dp, &
3128 8.0495785945780884e+00_dp, 1.1449352957658303e+00_dp, -1.4001449115453595e+00_dp, &
3129 1.4849591069311463e-01_dp, 1.8413922498441526e-01_dp, -4.3848567993047871e-02_dp, &
3130 -3.5796486617126269e-02_dp, 2.2231295011594484e-02_dp, -3.8635690919857713e-03_dp, &
3131 8.5422617602734633e+01_dp, -1.5007516551248531e+02_dp, 1.3876195898375653e+02_dp, &
3132 -7.8464142326741523e+01_dp, 2.5573232411746961e+01_dp, -2.0124727833037532e+00_dp, &
3133 -1.9580157250354535e+00_dp, 5.9506449783845983e-01_dp, 1.4004086634287427e-01_dp, &
3134 -7.8164255350495107e-02_dp, -2.7687831019897382e-02_dp, 2.4943146447903092e-02_dp, &
3135 -4.9581832391613840e-03_dp, 3.2243620561770621e+02_dp, -5.5446459400958940e+02_dp, &
3136 5.0455670468847723e+02_dp, -2.8330528858502907e+02_dp, 9.4651307478009102e+01_dp, &
3137 -1.1293415812091316e+01_dp, -4.1837250114735332e+00_dp, 1.1914362296732655e+00_dp, &
3138 4.8166287147916081e-01_dp, -1.4958729633043041e-01_dp, -1.2337653487937358e-01_dp, &
3139 7.5229238812777835e-02_dp, -1.2091269567906382e-02_dp, 2.4402285772918880e-01_dp, &
3140 -7.3529180505381958e-02_dp, -2.5723746423618070e-02_dp, 8.9632749393919135e-03_dp, &
3141 7.8378134914843661e-03_dp, -2.9623515386430414e-03_dp, -3.3201464839523391e-03_dp, &
3142 1.0078877137589960e-03_dp, 2.5955945748679025e-03_dp, -1.8637178008176481e-03_dp, &
3143 -2.3022221614225430e-04_dp, 6.5838716850614683e-04_dp, -1.9830435925879039e-04_dp, &
3144 7.9761273417323364e-01_dp, -2.8289567084615880e-01_dp, -7.7983815660254863e-02_dp, &
3145 4.6178699662303369e-02_dp, 2.4703159881149541e-02_dp, -1.7384731956342849e-02_dp, &
3146 -1.0573811255673717e-02_dp, 6.4828830942470356e-03_dp, 1.0745058972820175e-02_dp, &
3147 -1.2304204780420294e-02_dp, 3.6994644715572381e-03_dp, 7.1771353633863510e-04_dp, &
3148 -4.7696615443758658e-04_dp, 1.5722119399201502e+00_dp, -7.2022637684883928e-01_dp, &
3149 -1.1778618034469690e-01_dp, 1.5513182133862150e-01_dp, 3.6741006041689533e-02_dp, &
3150 -6.4119193681736464e-02_dp, -1.4800413983640810e-02_dp, 2.5585125964366535e-02_dp, &
3151 2.6791486817367951e-02_dp, -4.9141584177700877e-02_dp, 2.8220269783745606e-02_dp, &
3152 -6.5502100323003949e-03_dp, 2.6599045470973711e-04_dp, 2.8051373012201362e+00_dp, &
3153 -1.6968205795059628e+00_dp, -6.8520667990219081e-02_dp, 4.3238094864773730e-01_dp, &
3154 1.3604877002541815e-03_dp, -1.8671384960156767e-01_dp, 8.8883053763241949e-03_dp, &
3155 7.8093230403048317e-02_dp, 4.6271896457208229e-02_dp, -1.4709229627835357e-01_dp, &
3156 1.1306355579348493e-01_dp, -3.9830635885835595e-02_dp, 5.4972776007275979e-03_dp, &
3157 4.9068374696158550e+00_dp, -3.8649342494189476e+00_dp, 3.3961436603861528e-01_dp, &
3158 1.0516701804754258e+00_dp, -2.3599107021791954e-01_dp, -4.5209301669418722e-01_dp, &
3159 1.4887292136073554e-01_dp, 1.9549898360847917e-01_dp, 1.9083808478825574e-02_dp, &
3160 -3.4003659083377596e-01_dp, 3.3304060399936797e-01_dp, -1.4290330281954144e-01_dp, &
3161 2.4575713534518952e-02_dp, 8.6327262342711766e+00_dp, -8.6449632701709422e+00_dp, &
3162 1.9398206133689215e+00_dp, 2.2633523514966289e+00_dp, -1.1404630111455665e+00_dp, &
3163 -8.9656935075118105e-01_dp, 6.5655059844600916e-01_dp, 3.9178915736248293e-01_dp, &
3164 -2.5745765584870500e-01_dp, -5.4365659786191212e-01_dp, 7.5377793521530634e-01_dp, &
3165 -3.8414425007098330e-01_dp, 7.5502828561301874e-02_dp, 1.5429572442140103e+01_dp, &
3166 -1.9205543991334537e+01_dp, 7.1837956925844102e+00_dp, 4.1527008022568523e+00_dp, &
3167 -3.9604373888031548e+00_dp, -1.2184620720634423e+00_dp, 2.1268242758491254e+00_dp, &
3168 4.8977374234146870e-01_dp, -1.3567457043687021e+00_dp, -1.4342868044936791e-01_dp/)
3169 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/1.1553671463453488e+00_dp, &
3170 -7.6780781804979914e-01_dp, 1.7390307652239254e-01_dp, 2.8165264234356147e+01_dp, &
3171 -4.2781018965163859e+01_dp, 2.3179056548048951e+01_dp, 5.2439089413556950e+00_dp, &
3172 -1.1643001503346785e+01_dp, 4.5770373921564939e-01_dp, 5.5851597940226441e+00_dp, &
3173 -5.5713676796962119e-01_dp, -4.3682925715598220e+00_dp, 2.9977088433118744e+00_dp, &
3174 1.1551526130399045e-01_dp, -8.4503890035033269e-01_dp, 2.6553468866554275e-01_dp, &
3175 5.2755173634217869e+01_dp, -9.6327032783315346e+01_dp, 7.0566200135216633e+01_dp, &
3176 -3.8183788481120411e+00_dp, -2.9391413038382652e+01_dp, 1.1731796742283295e+01_dp, &
3177 1.0979398073072346e+01_dp, -6.6194752458984993e+00_dp, -9.5048580745993743e+00_dp, &
3178 1.3808973411209031e+01_dp, -7.1703659500595673e+00_dp, 1.4743357570136750e+00_dp, &
3179 -1.8794771258963321e-02_dp, 1.0222132432274876e+02_dp, -2.2102822149401919e+02_dp, &
3180 2.0974623410290044e+02_dp, -6.6317175075640407e+01_dp, -5.5810649104847528e+01_dp, &
3181 5.5721941193426112e+01_dp, 6.1874002936069470e+00_dp, -2.6416717623490523e+01_dp, &
3182 -5.5906480645235490e+00_dp, 3.2874933451592149e+01_dp, -2.8094658694055632e+01_dp, &
3183 1.1072416668088719e+01_dp, -1.7823600622119833e+00_dp, 2.1028466549514980e+02_dp, &
3184 -5.2642609969482317e+02_dp, 6.2125118053900360e+02_dp, -3.5670022652999478e+02_dp, &
3185 -1.1979421659544816e+01_dp, 1.6071306995897604e+02_dp, -6.8887503091643865e+01_dp, &
3186 -4.4648249302777593e+01_dp, 4.3014857970719397e+01_dp, 1.6335752686095919e+01_dp, &
3187 -3.9503484670996066e+01_dp, 2.2138801724899430e+01_dp, -4.5544474926067293e+00_dp, &
3188 5.2271868060407382e+02_dp, -1.4526730604347720e+03_dp, 2.0000601499106572e+03_dp, &
3189 -1.5790696077296959e+03_dp, 5.6252542900631101e+02_dp, 1.8000459328370113e+02_dp, &
3190 -2.6699351388563537e+02_dp, 3.0766701448493226e+01_dp, 9.2468215263256795e+01_dp, &
3191 -3.9890430775649456e+01_dp, -2.4228475522268266e+01_dp, 2.5320986601337847e+01_dp, &
3192 -6.4467381198271339e+00_dp, 1.9943221690264703e+00_dp, -6.2720822070394933e-01_dp, &
3193 -2.0718877314833953e-01_dp, 8.3665992635281738e-02_dp, 6.3970965828668153e-02_dp, &
3194 -2.8909340921094925e-02_dp, -2.7244049755787644e-02_dp, 1.0154578919302151e-02_dp, &
3195 2.2755693177166175e-02_dp, -1.8948581830615388e-02_dp, 6.0818547316571962e-04_dp, &
3196 4.6474201410700100e-03_dp, -1.5474535300080714e-03_dp, 2.5344309071612208e+00_dp, &
3197 -1.1517789229917388e+00_dp, -2.0475816431506066e-01_dp, 2.4704626449142972e-01_dp, &
3198 6.8510892925257152e-02_dp, -1.0144220474534189e-01_dp, -2.9276180034024692e-02_dp, &
3199 3.9983114315973144e-02_dp, 4.6113046413331867e-02_dp, -7.6975277049864677e-02_dp, &
3200 4.0552717012763861e-02_dp, -7.6506455032915865e-03_dp, -1.9384086829425090e-04_dp, &
3201 3.8149008989961728e+00_dp, -2.5425820634363938e+00_dp, -6.9974141904847256e-02_dp, &
3202 6.8655295447602072e-01_dp, 3.7667761955125154e-03_dp, -3.0089857114650986e-01_dp, &
3203 9.5441871944521653e-03_dp, 1.2570484744488805e-01_dp, 8.1291754180774958e-02_dp, &
3204 -2.4131410671430067e-01_dp, 1.8097245043205007e-01_dp, -6.2022990804356130e-02_dp, &
3205 8.2193545283439501e-03_dp, 6.3114819275149774e+00_dp, -5.6792022806645264e+00_dp, &
3206 6.2279323003148646e-01_dp, 1.6459331144460243e+00_dp, -3.7800717585122690e-01_dp, &
3207 -7.2663629659756079e-01_dp, 2.3264111653024058e-01_dp, 3.1646630721128349e-01_dp, &
3208 4.7657307643253675e-02_dp, -5.7090704941545778e-01_dp, 5.4910822545064875e-01_dp, &
3209 -2.3284314940812098e-01_dp, 3.9588194044005813e-02_dp, 1.0984388893348632e+01_dp, &
3210 -1.2553778627354628e+01_dp, 3.1375915699757435e+00_dp, 3.4851328166564612e+00_dp, &
3211 -1.8017015924479218e+00_dp, -1.4359380873215706e+00_dp, 1.0422397069450537e+00_dp, &
3212 6.4072298568256425e-01_dp, -3.8510916515210597e-01_dp, -9.4069946857544329e-01_dp, &
3213 1.2691484307865526e+00_dp, -6.4142347298575852e-01_dp, 1.2542319982761238e-01_dp, &
3214 1.9742724664081642e+01_dp, -2.7660695606300102e+01_dp, 1.1126190485661816e+01_dp, &
3215 6.3320842667644364e+00_dp, -6.2040316849472417e+00_dp, -1.9845491148459973e+00_dp, &
3216 3.4016074403877203e+00_dp, 8.4883284732790321e-01_dp, -2.1910518713819105e+00_dp, &
3217 -3.4310026768968166e-01_dp, 2.0043227872868097e+00_dp, -1.3129608772761314e+00_dp, &
3218 2.9596309142603439e-01_dp, 3.6446675442084000e+01_dp, -6.1312690384351988e+01_dp, &
3219 3.5062440706052982e+01_dp, 8.1141251417433384e+00_dp, -1.8238397593931307e+01_dp, &
3220 4.2444498167686012e-01_dp, 9.0917913358856648e+00_dp, -6.4145530970932474e-01_dp, &
3221 -7.3727065993355358e+00_dp, 4.8554897125262979e+00_dp, 4.0288046417382256e-01_dp, &
3222 -1.5272111598694897e+00_dp, 4.6864448241919043e-01_dp, 6.9151902111365331e+01_dp, &
3223 -1.3775697029732524e+02_dp, 1.0517986253443161e+02_dp, -4.2845246310611023e+00_dp, &
3224 -4.6935409816300506e+01_dp, 1.7360744079299344e+01_dp, 1.9042670125521109e+01_dp, &
3225 -1.0054681312184911e+01_dp, -1.7340855643857253e+01_dp, 2.3641147423075047e+01_dp, &
3226 -1.1697618310899770e+01_dp, 2.1262428960669113e+00_dp, 6.0872426969359870e-02_dp, &
3227 1.3558768380220121e+02_dp, -3.1578118874680166e+02_dp, 3.0979445611347273e+02_dp, &
3228 -9.1822777560522482e+01_dp, -9.7277945816883886e+01_dp, 8.7519582106791688e+01_dp, &
3229 1.8616391208601357e+01_dp, -4.4903204542560921e+01_dp, -1.8690573605516008e+01_dp, &
3230 6.6433565837523219e+01_dp, -5.3403019488106459e+01_dp, 2.0231742919655424e+01_dp, &
3231 -3.1305074294263489e+00_dp, 2.7963732579939841e+02_dp, -7.4606125632766100e+02_dp, &
3232 9.0940141987222216e+02_dp, -5.0646326675575170e+02_dp, -7.8609616213890064e+01_dp, &
3233 2.9311367852905386e+02_dp, -9.4979204093817344e+01_dp, -1.1347623458453775e+02_dp, &
3234 8.2031344824942224e+01_dp, 5.6241860637037483e+01_dp, -1.0224730452002980e+02_dp, &
3235 5.5340684759985947e+01_dp, -1.1297342601063139e+01_dp, 6.5120722704318109e+02_dp, &
3236 -1.9033734753449851e+03_dp, 2.7232474210995215e+03_dp, -2.1823518641635665e+03_dp, &
3237 6.8086154256333919e+02_dp, 4.7729134285430774e+02_dp, -5.7292260599128042e+02_dp, &
3238 6.1733473299802547e+01_dp, 2.6831002853289289e+02_dp, -2.0906396401698387e+02_dp, &
3239 4.5742535109750555e+01_dp, 1.4910878567831897e+01_dp, -7.1528632268068026e+00_dp, &
3240 2.4115194635293756e+03_dp, -7.1360888524468037e+03_dp, 1.0703481900930154e+04_dp, &
3241 -9.7696053852248097e+03_dp, 5.1324020712244110e+03_dp, -6.9246367124994219e+02_dp, &
3242 -9.3295400850484577e+02_dp, 4.2973937177886751e+02_dp, 2.2651805907394606e+02_dp, &
3243 -2.3513604873721363e+02_dp, 1.2713777537393858e+01_dp, 5.2470351852753829e+01_dp, &
3244 -1.7444400068472273e+01_dp, 2.8440161633359956e-01_dp, -3.9823006517888213e-02_dp, &
3245 -2.3076160901873654e-02_dp, 2.8993315015824581e-03_dp, 6.3510245125292433e-03_dp, &
3246 -1.8708028901690619e-05_dp, -3.7414722349339334e-03_dp, 5.3858115549491718e-04_dp, &
3247 2.0941650894001022e-03_dp, -9.3028620337434742e-04_dp, -7.2074637484255898e-04_dp, &
3248 7.4135593147601206e-04_dp, -1.9162678311097998e-04_dp, 9.5981147138166634e-01_dp, &
3249 -1.6725087562945692e-01_dp, -8.9182688444622890e-02_dp, 2.0572731901361569e-02_dp, &
3250 2.7187174656436549e-02_dp, -3.6082603824213978e-03_dp, -1.6627641029942530e-02_dp, &
3251 3.7750956656711155e-03_dp, 1.0628480501116633e-02_dp, -7.1153643941278205e-03_dp, &
3252 -1.2143377855200034e-03_dp, 2.7012120466684050e-03_dp, -7.8946988266133150e-04_dp, &
3253 2.0129964635290527e+00_dp, -4.8454573123042377e-01_dp, -2.2604994573980364e-01_dp, &
3254 9.2677928858034012e-02_dp, 7.7785406032969739e-02_dp, -2.5979505885131083e-02_dp, &
3255 -5.0328987859669862e-02_dp, 1.7997890535406402e-02_dp, 3.8319048248298730e-02_dp, &
3256 -3.6325104322509204e-02_dp, 6.7213705329095992e-03_dp, 4.8397181344369666e-03_dp, &
3257 -1.9887682453394975e-03_dp, 3.9222318106291012e+00_dp, -1.3148639911853994e+00_dp, &
3258 -5.1737762994905812e-01_dp, 3.4039821500135192e-01_dp, 1.9442866605932332e-01_dp, &
3259 -1.1862440428797107e-01_dp, -1.3471081518767758e-01_dp, 7.2722253898947764e-02_dp, &
3260 1.2394645141103253e-01_dp, -1.5424078283263418e-01_dp, 6.0957620821992728e-02_dp, &
3261 -2.0727719708758920e-03_dp, -3.2589949122940306e-03_dp, 7.6600225072517931e+00_dp, &
3262 -3.4806043928458892e+00_dp, -1.0922250581494755e+00_dp, 1.1238446877190527e+00_dp, &
3263 4.2100547038706426e-01_dp, -4.5205119802000077e-01_dp, -3.1961008012678949e-01_dp, &
3264 2.6922377501542977e-01_dp, 3.6631461573210744e-01_dp, -5.8790288209541941e-01_dp, &
3265 3.2417909023377850e-01_dp, -7.2737310780591674e-02_dp, 2.5717607245155992e-03_dp, &
3266 1.5357195767319828e+01_dp, -9.1855216845760417e+00_dp, -2.0474502120861211e+00_dp, &
3267 3.5186908819973559e+00_dp, 6.9067364763413841e-01_dp, -1.5707666205541846e+00_dp, &
3268 -6.2320076264913815e-01_dp, 9.5548605981562995e-01_dp, 9.6164257386927365e-01_dp, &
3269 -2.0694392628725198e+00_dp, 1.4288052626518093e+00_dp, -4.6175690844427097e-01_dp, &
3270 5.7161598844966313e-02_dp, 3.1967087548643718e+01_dp, -2.4634023685889019e+01_dp, &
3271 -2.8379221339115919e+00_dp, 1.0758070470373076e+01_dp, 9.5880676096911616e-02_dp, &
3272 -5.1371158552123646e+00_dp, -6.1308866074368273e-01_dp, 3.3299562667716351e+00_dp, &
3273 1.9037543102815111e+00_dp, -6.6312995485896993e+00_dp, 5.5769281199888221e+00_dp, &
3274 -2.1992036324059452e+00_dp, 3.5304429234184187e-01_dp, 6.9739204456194557e+01_dp, &
3275 -6.8387481704787120e+01_dp, 1.1321639890564044e+00_dp, 3.2573484471282640e+01_dp, &
3276 -6.9804580122418587e+00_dp, -1.5736074279056968e+01_dp, 2.9654243601725896e+00_dp, &
3277 1.1422619493838827e+01_dp, -2.6727212260300343e-01_dp, -1.7588114164311783e+01_dp, &
3278 1.8884242504372157e+01_dp, -8.7648445734311817e+00_dp, 1.6290708530849365e+00_dp, &
3279 1.6128088895603187e+02_dp, -2.0051884945874767e+02_dp, 3.6821045909182011e+01_dp, &
3280 9.7251659706901165e+01_dp, -5.0845173213144840e+01_dp, -4.1755777685783144e+01_dp, &
3281 2.8048895067605439e+01_dp, 3.6657246361996478e+01_dp, -3.4007473970245094e+01_dp, &
3282 -2.2004679796240055e+01_dp, 4.6900402309890616e+01_dp, -2.7316097181854502e+01_dp, &
3283 5.8577092013741536e+00_dp, 4.0194017966122044e+02_dp, -6.3674119443127381e+02_dp, &
3284 2.5850957390809663e+02_dp, 2.6952251874150846e+02_dp, -2.9073790305138749e+02_dp, &
3285 -5.2677944928443630e+01_dp, 1.5741217884382442e+02_dp, 8.1820204921580611e+01_dp, &
3286 -2.5405433230660509e+02_dp, 1.5943577712260654e+02_dp, -4.6996586786307697e+00_dp, &
3287 -3.5301765944409738e+01_dp, 1.1655632510420780e+01_dp, 1.1102009036442944e+03_dp, &
3288 -2.2680830885994883e+03_dp, 1.6376815639623894e+03_dp, 4.1340967237756740e+02_dp, &
3289 -1.5047177979548774e+03_dp, 6.2874431977984602e+02_dp, 5.3667599466253898e+02_dp, &
3290 -2.6715850493363729e+02_dp, -9.0644414621246210e+02_dp, 1.4354167004689343e+03_dp, &
3291 -9.8255347076517205e+02_dp, 3.4531439529808881e+02_dp, -5.0862246712184223e+01_dp, &
3292 3.7086333759961367e+03_dp, -9.7206127257815970e+03_dp, 1.1363579106801713e+04_dp, &
3293 -5.0930367254613293e+03_dp, -3.8587254648260623e+03_dp, 7.5131622983303614e+03_dp, &
3294 -4.5750330568023464e+03_dp, 4.8521172705364671e+02_dp, 4.7555952848897863e+02_dp, &
3295 6.7920802819038545e+02_dp, -1.2191938699136147e+03_dp, 6.8845273583955679e+02_dp, &
3296 -1.4522061491176112e+02_dp, 2.3426708866702475e+00_dp, -3.4763950540505012e-01_dp, &
3297 -1.9719523876834619e-01_dp, 3.0016600517614064e-02_dp, 5.5870741584836549e-02_dp, &
3298 -2.0603641124710137e-03_dp, -3.3236739085782500e-02_dp, 5.4972021666434001e-03_dp, &
3299 1.9287416985295423e-02_dp, -9.7735471490287135e-03_dp, -5.4153420961059818e-03_dp, &
3300 6.2996178645704911e-03_dp, -1.6741808988248179e-03_dp, 3.2323307090443092e+00_dp, &
3301 -7.5868899537917556e-01_dp, -3.6403112314198777e-01_dp, 1.3638032105863709e-01_dp, &
3302 1.2454451915538212e-01_dp, -3.5272622120219609e-02_dp, -7.9465036314149431e-02_dp/)
3303 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/2.5411208403973456e-02_dp, &
3304 5.7808629859203861e-02_dp, -5.0196351778645114e-02_dp, 5.2149034144752344e-03_dp, &
3305 9.5271530622531974e-03_dp, -3.3982153227889275e-03_dp, 5.4948218832066447e+00_dp, &
3306 -1.9768544283573861e+00_dp, -7.8540931963005123e-01_dp, 5.1224166160961682e-01_dp, &
3307 3.0432975281369379e-01_dp, -1.7343930124124304e-01_dp, -2.0939874165255690e-01_dp, &
3308 1.0529951288679236e-01_dp, 1.8723710201929586e-01_dp, -2.2094924684309869e-01_dp, &
3309 7.8605553221171381e-02_dp, 3.2239680553835400e-03_dp, -6.1056020491761899e-03_dp, &
3310 1.0388070420621753e+01_dp, -5.1639778369451559e+00_dp, -1.6336599184903002e+00_dp, &
3311 1.6828507996508695e+00_dp, 6.6282593487173314e-01_dp, -6.6705890421444214e-01_dp, &
3312 -5.0042252719289448e-01_dp, 3.9062209984428897e-01_dp, 5.5969261337300114e-01_dp, &
3313 -8.5374958521504130e-01_dp, 4.4514864411394023e-01_dp, -8.7078324077810784e-02_dp, &
3314 -6.3901198934322614e-04_dp, 2.0837835829959378e+01_dp, -1.3485610187672910e+01_dp, &
3315 -3.0562817152450337e+00_dp, 5.2210972603116508e+00_dp, 1.1380806549217413e+00_dp, &
3316 -2.3202212441266843e+00_dp, -1.0087684674158810e+00_dp, 1.3808656481997015e+00_dp, &
3317 1.5160097727120327e+00_dp, -3.0497799109640908e+00_dp, 2.0185152497063346e+00_dp, &
3318 -6.1672935366387194e-01_dp, 6.9010721045408896e-02_dp, 4.3786529696255222e+01_dp, &
3319 -3.5837705535464202e+01_dp, -4.3770867029967091e+00_dp, 1.5847699276648193e+01_dp, &
3320 5.9230278789709845e-01_dp, -7.6207423069692428e+00_dp, -1.2403077215715186e+00_dp, &
3321 4.7968232553191292e+00_dp, 3.3649722547708287e+00_dp, -1.0082904709615054e+01_dp, &
3322 8.1126465226757194e+00_dp, -3.0773616343906505e+00_dp, 4.7309562815703760e-01_dp, &
3323 9.6534365122504383e+01_dp, -9.8600884120947967e+01_dp, 2.9621706296987543e-01_dp, &
3324 4.7831849282858727e+01_dp, -8.1795187324838583e+00_dp, -2.3764904478653722e+01_dp, &
3325 2.9262740978603858e+00_dp, 1.6552408974929406e+01_dp, 2.8091737862874124e+00_dp, &
3326 -2.9119085060489422e+01_dp, 2.9028575924228921e+01_dp, -1.2928669504768751e+01_dp, &
3327 2.3245151888545674e+00_dp, 2.2512257878709937e+02_dp, -2.8579384581407447e+02_dp, &
3328 4.4953255218681591e+01_dp, 1.4382256723080877e+02_dp, -6.3886295794702583e+01_dp, &
3329 -6.7487344867895843e+01_dp, 3.4987698625952298e+01_dp, 5.5556684237578004e+01_dp, &
3330 -3.3788647650616660e+01_dp, -5.6043553929673735e+01_dp, 8.4310762498784698e+01_dp, &
3331 -4.5100448710609861e+01_dp, 9.2349413542319656e+00_dp, 5.6281441264089858e+02_dp, &
3332 -8.9092661108477409e+02_dp, 3.1621440639103065e+02_dp, 4.1867392990338300e+02_dp, &
3333 -3.6830256822695566e+02_dp, -1.3786095760420562e+02_dp, 2.1164276757772936e+02_dp, &
3334 1.5857658366809042e+02_dp, -3.2038368617142976e+02_dp, 1.0004479022816162e+02_dp, &
3335 1.0938350249740985e+02_dp, -1.0143008716163932e+02_dp, 2.5908560637399010e+01_dp, &
3336 1.5406066303216392e+03_dp, -3.0712567653270539e+03_dp, 1.9107443589577488e+03_dp, &
3337 9.8795055555435533e+02_dp, -1.9737417466756906e+03_dp, 2.8775990611293059e+02_dp, &
3338 9.9019328005226532e+02_dp, 7.8824363513483021e+01_dp, -1.7670587145406548e+03_dp, &
3339 1.9470064745111699e+03_dp, -9.6841150263156567e+02_dp, 2.0775921744212744e+02_dp, &
3340 -6.8055324053062165e+00_dp, 4.8137396326482822e+03_dp, -1.2191613808338789e+04_dp, &
3341 1.2266285257455142e+04_dp, -1.4891625095205279e+03_dp, -9.2959576828369536e+03_dp, &
3342 8.2521109655672644e+03_dp, 9.7025008633460880e+02_dp, -4.8188657990924448e+03_dp, &
3343 -1.0477423269137444e+03_dp, 7.7758077154163093e+03_dp, -7.7950611646956877e+03_dp, &
3344 3.6117091083907817e+03_dp, -6.8647813181077140e+02_dp, 2.0868376196912817e+04_dp, &
3345 -6.3171096044027225e+04_dp, 9.2357701118304758e+04_dp, -7.2478877239780646e+04_dp, &
3346 1.0873910093902665e+04_dp, 4.7193165269176498e+04_dp, -6.6614746747051075e+04_dp, &
3347 5.1476389226075742e+04_dp, -2.7387825042622444e+04_dp, 1.1182959389903041e+04_dp, &
3348 -3.8548989260871235e+03_dp, 1.0658643031361141e+03_dp, -1.6150497978759398e+02_dp, &
3349 2.9848190654960571e-01_dp, -1.4531646368209182e-02_dp, -1.3349182894683412e-02_dp, &
3350 4.3341324342453481e-03_dp, -4.5914461419488779e-03_dp, 7.5114003286678209e-03_dp, &
3351 -8.1777684041123705e-03_dp, 7.6589093791208356e-03_dp, -6.9685324431716066e-03_dp, &
3352 5.4975257982100012e-03_dp, -3.1992401573521976e-03_dp, 1.1765944960906449e-03_dp, &
3353 -2.0399784249967458e-04_dp, 1.0199389612090075e+00_dp, -6.3105771054488224e-02_dp, &
3354 -5.6858180138521432e-02_dp, 2.0836254442772213e-02_dp, -1.9744550724843178e-02_dp, &
3355 3.2668133118974374e-02_dp, -3.5931234657235918e-02_dp, 3.3317168158417933e-02_dp, &
3356 -3.0032438804812003e-02_dp, 2.3676679695673334e-02_dp, -1.3795044313291295e-02_dp, &
3357 5.0675158738836823e-03_dp, -8.7502220183366809e-04_dp, 2.1914353100451938e+00_dp, &
3358 -1.9179798443558940e-01_dp, -1.6799355534241783e-01_dp, 7.1931114531331136e-02_dp, &
3359 -5.9484431545979891e-02_dp, 9.9336123697354881e-02_dp, -1.1099688936746152e-01_dp, &
3360 1.0155478022832697e-01_dp, -9.0225752064209283e-02_dp, 7.1039085577344563e-02_dp, &
3361 -4.1492188330594100e-02_dp, 1.5231043613680471e-02_dp, -2.6165816928386950e-03_dp, &
3362 4.4195039100565916e+00_dp, -5.4858126359256787e-01_dp, -4.6531366469875657e-01_dp, &
3363 2.3227879552470015e-01_dp, -1.7002004191404002e-01_dp, 2.8353543550268284e-01_dp, &
3364 -3.2295870972875435e-01_dp, 2.9162100501061888e-01_dp, -2.5446398227605715e-01_dp, &
3365 1.9990573122381708e-01_dp, -1.1722136047578775e-01_dp, 4.3074512262631613e-02_dp, &
3366 -7.3698908494786572e-03_dp, 9.0158149241474579e+00_dp, -1.5390032846184512e+00_dp, &
3367 -1.2578078408173032e+00_dp, 7.3256099290466847e-01_dp, -4.8255480252021304e-01_dp, &
3368 7.9110935203918809e-01_dp, -9.2223368631764924e-01_dp, 8.2261801505822885e-01_dp, &
3369 -7.0152375312903192e-01_dp, 5.4882264799559055e-01_dp, -3.2374652428183265e-01_dp, &
3370 1.1943745886308012e-01_dp, -2.0399323236584468e-02_dp, 1.9060405525354774e+01_dp, &
3371 -4.3442410134014242e+00_dp, -3.3923750244595929e+00_dp, 2.3277758289827348e+00_dp, &
3372 -1.4032292783490181e+00_dp, 2.2111149370970846e+00_dp, -2.6514360156752161e+00_dp, &
3373 2.3400879330259072e+00_dp, -1.9352609112533496e+00_dp, 1.5013805536357132e+00_dp, &
3374 -8.9331348604117622e-01_dp, 3.3245002695248244e-01_dp, -5.6923036199617680e-02_dp, &
3375 4.2321796419078780e+01_dp, -1.2635737527625851e+01_dp, -9.3019892409007774e+00_dp, &
3376 7.6613108253972051e+00_dp, -4.3221837921659887e+00_dp, 6.3307699962540935e+00_dp, &
3377 -7.8520270548486826e+00_dp, 6.8807442180215030e+00_dp, -5.4525567047496342e+00_dp, &
3378 4.1550041539563418e+00_dp, -2.5001930251736764e+00_dp, 9.4579959622261767e-01_dp, &
3379 -1.6363574334611850e-01_dp, 1.0003827134700703e+02_dp, -3.8829042199894573e+01_dp, &
3380 -2.6360290750789250e+01_dp, 2.6857452022470046e+01_dp, -1.4676880411075732e+01_dp, &
3381 1.9015127170909437e+01_dp, -2.4479606083190603e+01_dp, 2.1453660248266239e+01_dp, &
3382 -1.5990524893902380e+01_dp, 1.1692590213258955e+01_dp, -7.1089925888310566e+00_dp, &
3383 2.7650175937063479e+00_dp, -4.9013357258124818e-01_dp, 2.5650279105853537e+02_dp, &
3384 -1.3001613271097199e+02_dp, -7.8215890320689127e+01_dp, 1.0374859376545058e+02_dp, &
3385 -5.7993318532586997e+01_dp, 6.1925129027835808e+01_dp, -8.2129941440824297e+01_dp, &
3386 7.2996479221982142e+01_dp, -4.9711740845864256e+01_dp, 3.2670927648676113e+01_dp, &
3387 -1.9601482847566309e+01_dp, 7.9400385997630769e+00_dp, -1.4745807885995803e+00_dp, &
3388 7.3530003145728017e+02_dp, -4.9664201976979172e+02_dp, -2.4279101607234665e+02_dp, &
3389 4.6398305934827602e+02_dp, -2.8940008684901966e+02_dp, 2.3403868192771887e+02_dp, &
3390 -3.0250596676982525e+02_dp, 2.7884938757156840e+02_dp, -1.6597480330952183e+02_dp, &
3391 7.7022134764390358e+01_dp, -3.6333234939720029e+01_dp, 1.4834832375776335e+01_dp, &
3392 -3.0059213601888550e+00_dp, 2.4925639619878293e+03_dp, -2.3516399736727049e+03_dp, &
3393 -7.0669849118397849e+02_dp, 2.6123262478824795e+03_dp, -2.1096774881906767e+03_dp, &
3394 1.2752227522425612e+03_dp, -1.2190189717372978e+03_dp, 1.1433571541782767e+03_dp, &
3395 -5.3704043024832720e+02_dp, -8.5050052992266330e+01_dp, 2.6432025336564107e+02_dp, &
3396 -1.4590397426454322e+02_dp, 3.0667907896264261e+01_dp, 1.1452856000529706e+04_dp, &
3397 -1.6733730631591166e+04_dp, 2.0124842686447407e+03_dp, 2.0782792338251493e+04_dp, &
3398 -3.1172495661780686e+04_dp, 2.3937895402534603e+04_dp, -8.4050963154502351e+03_dp, &
3399 -5.8783772978304578e+03_dp, 1.4993404742007511e+04_dp, -1.7419881693507228e+04_dp, &
3400 1.3154166369648410e+04_dp, -6.0320093070800103e+03_dp, 1.2691258478430473e+03_dp, &
3401 2.4661275214127114e+00_dp, -1.2798267129549132e-01_dp, -1.1697137480153171e-01_dp, &
3402 3.9257803663157738e-02_dp, -4.0319593020954211e-02_dp, 6.6187689447338618e-02_dp, &
3403 -7.2247928359382055e-02_dp, 6.7482097544372566e-02_dp, -6.1252477865463867e-02_dp, &
3404 4.8314626699507028e-02_dp, -2.8123924424198074e-02_dp, 1.0339419858641128e-02_dp, &
3405 -1.7906361701448847e-03_dp, 3.5103259814502201e+00_dp, -2.9727217547633278e-01_dp, &
3406 -2.6205887594376975e-01_dp, 1.0857238160676247e-01_dp, -9.2141383796487078e-02_dp, &
3407 1.5406834578313486e-01_dp, -1.7142772300076523e-01_dp, 1.5726488808531711e-01_dp, &
3408 -1.4025477042228404e-01_dp, 1.1047969889471382e-01_dp, -6.4470419314857599e-02_dp, &
3409 2.3658250747070033e-02_dp, -4.0673029740227054e-03_dp, 6.2410599788925678e+00_dp, &
3410 -8.2138392898720347e-01_dp, -6.9906495654527301e-01_dp, 3.4410291328684828e-01_dp, &
3411 -2.5343941141731630e-01_dp, 4.2515725467164173e-01_dp, -4.8284871607865038e-01_dp, &
3412 4.3629017443259160e-01_dp, -3.8177479405146436e-01_dp, 3.0011747927293064e-01_dp, &
3413 -1.7581115021036545e-01_dp, 6.4536453913093872e-02_dp, -1.1036630823958494e-02_dp, &
3414 1.2396354706697132e+01_dp, -2.2747834976246768e+00_dp, -1.8659037974661266e+00_dp, &
3415 1.0729486834844844e+00_dp, -7.0823291387398257e-01_dp, 1.1716255191494653e+00_dp, &
3416 -1.3616528360542641e+00_dp, 1.2146420854278106e+00_dp, -1.0394227304439734e+00_dp, &
3417 8.1420256203015140e-01_dp, -4.7970758970705091e-01_dp, 1.7666567904333222e-01_dp, &
3418 -3.0134269374265207e-02_dp, 2.6262194331493351e+01_dp, -6.3444832902403547e+00_dp, &
3419 -4.9805965392317857e+00_dp, 3.3626392280343960e+00_dp, -2.0268609276880918e+00_dp, &
3420 3.2376830951333413e+00_dp, -3.8685734302070061e+00_dp, 3.4125011524571320e+00_dp, &
3421 -2.8364792541794244e+00_dp, 2.2064813341891907e+00_dp, -1.3109104909016629e+00_dp, &
3422 4.8647143855153607e-01_dp, -8.3081066217279925e-02_dp, 5.8791642664628654e+01_dp, &
3423 -1.8223978038331911e+01_dp, -1.3535672130713879e+01_dp, 1.0886746267759019e+01_dp, &
3424 -6.1196900002518406e+00_dp, 9.1643774491776391e+00_dp, -1.1318457824166819e+01_dp, &
3425 9.9022716234880352e+00_dp, -7.9117201762867282e+00_dp, 6.0668367158067333e+00_dp, &
3426 -3.6456805775684451e+00_dp, 1.3726588060126073e+00_dp, -2.3632132863188687e-01_dp, &
3427 1.3990455162403524e+02_dp, -5.5127425979272914e+01_dp, -3.8049785729902737e+01_dp, &
3428 3.7322312094101129e+01_dp, -2.0162618467243483e+01_dp, 2.7134468713776865e+01_dp, &
3429 -3.4792138438282116e+01_dp, 3.0368635438402379e+01_dp, -2.2961340267827463e+01_dp, &
3430 1.7064301226195642e+01_dp, -1.0388397417931811e+01_dp, 4.0108403964288808e+00_dp, &
3431 -7.0448220676099105e-01_dp, 3.5898010619414435e+02_dp, -1.8010251190337905e+02_dp, &
3432 -1.1207515297883917e+02_dp, 1.3926745663661529e+02_dp, -7.5591370594985008e+01_dp, &
3433 8.6197068058446064e+01_dp, -1.1457176948523994e+02_dp, 1.0089516510941472e+02_dp, &
3434 -7.0493679332727382e+01_dp, 4.8625058388200841e+01_dp, -2.9732088584351676e+01_dp, &
3435 1.1947228503152537e+01_dp, -2.1840920197937304e+00_dp, 1.0166774272757106e+03_dp, &
3436 -6.5774062040784861e+02_dp, -3.4819173908900984e+02_dp, 5.8698390708558020e+02_dp/)
3437 REAL(kind=dp), DIMENSION(13, 24, 5), PARAMETER :: &
3438 coefdata = reshape((/c01, c02, c03, c04/), (/13, 24, 5/))
3439
3440 INTEGER :: irange
3441
3442 IF (rc <= 1.0000000000000000e+01_dp) rc = 1.0000000000000000e+01_dp
3443 IF (rc >= 8.5914001464843750e+04_dp) rc = 8.5914001464843750e+04_dp
3444 IF (rc >= 1.0000000000000000e+01_dp .AND. rc <= 3.1589054611062615e+01_dp) THEN
3445 irange = 1
3446 l_b = 1.0000000000000000e+01_dp
3447 u_b = 3.1589054611062615e+01_dp
3448 END IF
3449 IF (rc >= 3.1589054611062615e+01_dp .AND. rc <= 3.7775485225370909e+02_dp) THEN
3450 irange = 2
3451 l_b = 3.1589054611062615e+01_dp
3452 u_b = 3.7775485225370909e+02_dp
3453 END IF
3454 IF (rc >= 3.7775485225370909e+02_dp .AND. rc <= 5.0208914580369265e+03_dp) THEN
3455 irange = 3
3456 l_b = 3.7775485225370909e+02_dp
3457 u_b = 5.0208914580369265e+03_dp
3458 END IF
3459 IF (rc >= 5.0208914580369265e+03_dp .AND. rc <= 2.9478561984966764e+04_dp) THEN
3460 irange = 4
3461 l_b = 5.0208914580369265e+03_dp
3462 u_b = 2.9478561984966764e+04_dp
3463 END IF
3464 IF (rc >= 2.9478561984966764e+04_dp .AND. rc <= 8.5914001464843750e+04_dp) THEN
3465 irange = 5
3466 l_b = 2.9478561984966764e+04_dp
3467 u_b = 8.5914001464843750e+04_dp
3468 END IF
3469
3470 fit_coef(1:13, 1:24) = coefdata(1:13, 1:24, irange)
3471
3472 END SUBROUTINE get_fit_coef_k12
3473
3474! **************************************************************************************************
3475!> \brief ...
3476!> \param Rc ...
3477!> \param L_b ...
3478!> \param U_b ...
3479!> \param fit_coef ...
3480! **************************************************************************************************
3481 SUBROUTINE get_fit_coef_k13(Rc, L_b, U_b, fit_coef)
3482 REAL(kind=dp) :: rc, l_b, u_b
3483 REAL(kind=dp), DIMENSION(13, 26) :: fit_coef
3484
3485 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.8838771004380783e-01_dp, &
3486 -7.8098504554216852e-02_dp, -1.5170263296839995e-02_dp, 8.2399169935392508e-03_dp, &
3487 3.5286892847422469e-03_dp, -1.8215194066877041e-03_dp, -9.0884305814463765e-04_dp, &
3488 6.8756727909990219e-04_dp, 3.7413977081317160e-04_dp, -2.6705465221031334e-04_dp, &
3489 -2.0802563944277461e-04_dp, 2.1290418502755695e-04_dp, -5.2523675707973026e-05_dp, &
3490 5.9434702831532238e-01_dp, -2.7182658534478105e-01_dp, -3.5999729360206109e-02_dp, &
3491 3.2340253606252901e-02_dp, 7.9358310080228263e-03_dp, -7.7844468594381001e-03_dp, &
3492 -1.8014703887347175e-03_dp, 2.8423929944335724e-03_dp, 9.1015987102848297e-04_dp, &
3493 -1.4560488645141763e-03_dp, -7.3222872823034983e-05_dp, 4.8860545790434685e-04_dp, &
3494 -1.5085140620238292e-04_dp, 1.0937368125504157e+00_dp, -5.9132092667529690e-01_dp, &
3495 -1.8412335702747615e-02_dp, 7.9331829469009338e-02_dp, 1.0973664242275066e-03_dp, &
3496 -2.0316082349166990e-02_dp, 1.2853862027112464e-03_dp, 7.0775762212150883e-03_dp, &
3497 3.4751426157424701e-04_dp, -4.5696828146617506e-03_dp, 2.1223196342842286e-03_dp, &
3498 1.0726013520497198e-05_dp, -1.5736650409045057e-04_dp, 1.7694613840435505e+00_dp, &
3499 -1.1676651668520612e+00_dp, 1.0071479256453719e-01_dp, 1.6228303909602290e-01_dp, &
3500 -3.6185203797936424e-02_dp, -4.1378623218189241e-02_dp, 1.5022662586176605e-02_dp, &
3501 1.3484748664965476e-02_dp, -3.6199651811571775e-03_dp, -1.0288246654012838e-02_dp, &
3502 8.7176610157029440e-03_dp, -2.6010672222318890e-03_dp, 2.1442841577039209e-04_dp, &
3503 2.7395947604311148e+00_dp, -2.2168158237937692e+00_dp, 4.6058197011790003e-01_dp, &
3504 2.8018864797075105e-01_dp, -1.4313062865562740e-01_dp, -6.4381187850727661e-02_dp, &
3505 5.1866744842633442e-02_dp, 1.8402911677378096e-02_dp, -1.5630053920933622e-02_dp, &
3506 -1.6666410769786210e-02_dp, 2.1958245525177594e-02_dp, -9.4695529478873997e-03_dp, &
3507 1.5123425133968700e-03_dp, 4.1819739103477458e+00_dp, -4.1085299248060032e+00_dp, &
3508 1.3587434487195018e+00_dp, 3.8010926364059955e-01_dp, -3.8974887265449265e-01_dp, &
3509 -5.7767530618699811e-02_dp, 1.3019397541063171e-01_dp, 8.6445563808137237e-03_dp, &
3510 -4.2595670770739558e-02_dp, -1.5008742214007073e-02_dp, 4.0771284378325862e-02_dp, &
3511 -2.2393274717496293e-02_dp, 4.4193958726736074e-03_dp, 6.3740799341119825e+00_dp, &
3512 -7.4856748747981650e+00_dp, 3.4153135374383137e+00_dp, 2.5465839179415151e-01_dp, &
3513 -8.7770919045013052e-01_dp, 7.1377608346000626e-02_dp, 2.6510553418483845e-01_dp, &
3514 -4.9379331756714537e-02_dp, -8.9569832352192805e-02_dp, 1.6019869840805893e-02_dp, &
3515 5.4400827506418850e-02_dp, -4.0239804495804533e-02_dp, 9.3312689304133906e-03_dp, &
3516 9.7621486867205380e+00_dp, -1.3475250019084454e+01_dp, 7.8972763434980600e+00_dp, &
3517 -7.1565769086151843e-01_dp, -1.6844459659464686e+00_dp, 5.4494023769013600e-01_dp, &
3518 4.2698529938918661e-01_dp, -2.2418651826182923e-01_dp, -1.4388654754391872e-01_dp, &
3519 1.1755325675552541e-01_dp, 2.8878081758365690e-02_dp, -5.2435038016586624e-02_dp, &
3520 1.5197313495000905e-02_dp, 1.5092987100272357e+01_dp, -2.4074749737500255e+01_dp, &
3521 1.7349987294818295e+01_dp, -4.1717529748993130e+00_dp, -2.5981745668440559e+00_dp, &
3522 1.7898646177351853e+00_dp, 4.1191953332704456e-01_dp, -6.1075785276949601e-01_dp, &
3523 -1.2882271191956388e-01_dp, 3.4442105482404745e-01_dp, -1.1990741103975205e-01_dp, &
3524 -1.9713219340545846e-02_dp, 1.5129094650791500e-02_dp, 2.3710574140122770e+01_dp, &
3525 -4.2934018545625399e+01_dp, 3.6833617889420324e+01_dp, -1.4114831970803618e+01_dp, &
3526 -2.2472542537243165e+00_dp, 4.3088109269149406e+00_dp, -4.2518679827460348e-01_dp, &
3527 -1.1804673921484345e+00_dp, 1.7962982669589683e-01_dp, 6.4586932424038102e-01_dp, &
3528 -4.9112812550688612e-01_dp, 1.3546324224979389e-01_dp, -9.3472046563761128e-03_dp, &
3529 3.8416250559670239e+01_dp, -7.7380918682867062e+01_dp, 7.6669856574547836e+01_dp, &
3530 -3.9692668605817900e+01_dp, 4.0800907639980108e+00_dp, 7.6431547349679390e+00_dp, &
3531 -3.2426728324429890e+00_dp, -1.3282905867506054e+00_dp, 1.0159546829067250e+00_dp, &
3532 6.3516967916479361e-01_dp, -9.3377190156086576e-01_dp, 4.1042024028249102e-01_dp, &
3533 -6.7363978656170859e-02_dp, 6.6985406661457603e+01_dp, -1.4642414370063676e+02_dp, &
3534 1.6193310131526860e+02_dp, -1.0257065719645773e+02_dp, 2.8871318786796056e+01_dp, &
3535 7.8634102783568860e+00_dp, -8.5200231797122488e+00_dp, 1.2264537347714767e-01_dp, &
3536 1.9987657976971298e+00_dp, 7.7158069079422978e-02_dp, -1.1542897495755511e+00_dp, &
3537 6.7737646619243352e-01_dp, -1.3657792494227855e-01_dp, 1.4740538370956807e+02_dp, &
3538 -3.3932989241907069e+02_dp, 4.0219547600147121e+02_dp, -2.8677094173034959e+02_dp, &
3539 1.1237202082027906e+02_dp, -4.8057836168082861e+00_dp, -1.6514621066683070e+01_dp, &
3540 3.5357507348208697e+00_dp, 3.3035381871180327e+00_dp, -7.4033248045744904e-01_dp, &
3541 -1.6598699253649027e+00_dp, 1.2042118842716378e+00_dp, -2.6920467176461421e-01_dp, &
3542 1.5261740947232876e+00_dp, -6.4895738266931657e-01_dp, -1.1564452965859112e-01_dp, &
3543 7.0980947338764838e-02_dp, 2.6676015641548347e-02_dp, -1.6136455032911386e-02_dp, &
3544 -6.7340073746126466e-03_dp, 6.0342465353809367e-03_dp, 2.8819686877824442e-03_dp, &
3545 -2.5718142851708921e-03_dp, -1.3273365637482889e-03_dp, 1.6243550200292600e-03_dp, &
3546 -4.2055786525236277e-04_dp, 1.7635041108560561e+00_dp, -9.5779430337441518e-01_dp, &
3547 -3.3226684026626346e-02_dp, 1.3208807728323771e-01_dp, 3.3225866313692422e-03_dp, &
3548 -3.4496297667900466e-02_dp, 1.4674666962247453e-03_dp, 1.2123713242266174e-02_dp, &
3549 8.7892456369925113e-04_dp, -7.8123662744860019e-03_dp, 3.3746734942086509e-03_dp, &
3550 2.1407084187177066e-04_dp, -3.1845714516548978e-04_dp, 2.2858230764507561e+00_dp, &
3551 -1.6828828513757415e+00_dp, 2.1342349744092762e-01_dp, 2.5321127952670880e-01_dp, &
3552 -7.0205604577718933e-02_dp, -6.7430673522987303e-02_dp, 2.7518708712689594e-02_dp, &
3553 2.1972840982545115e-02_dp, -6.8503456890888544e-03_dp, -1.7678791877657449e-02_dp, &
3554 1.5800632995275406e-02_dp, -4.9541923552455531e-03_dp, 4.5213141208361152e-04_dp, &
3555 3.1971135931052292e+00_dp, -3.0674576959479736e+00_dp, 8.2727565667300873e-01_dp, &
3556 4.1192795171230862e-01_dp, -2.5340716065788732e-01_dp, -9.7677767113723460e-02_dp, &
3557 9.0618959728272830e-02_dp, 2.7208794713592679e-02_dp, -2.7958096268066484e-02_dp, &
3558 -2.7052906430807815e-02_dp, 3.8668773332420213e-02_dp, -1.7422012026548538e-02_dp, &
3559 2.8945916612542781e-03_dp, 4.6799701618791243e+00_dp, -5.5646620604346912e+00_dp, &
3560 2.2397817355646192e+00_dp, 5.0208145461724241e-01_dp, -6.4842250541548618e-01_dp, &
3561 -6.7592147376930631e-02_dp, 2.1681380729701397e-01_dp, 4.0599420621051435e-03_dp, &
3562 -7.2943200049801968e-02_dp, -1.8572586454638652e-02_dp, 6.6945743501341068e-02_dp, &
3563 -3.8891162759268932e-02_dp, 7.9717226708572522e-03_dp, 7.0397079895684032e+00_dp, &
3564 -9.9842598075051558e+00_dp, 5.3386101825655814e+00_dp, 1.7446186675610861e-01_dp, &
3565 -1.3948157912004475e+00_dp, 1.7791991429819645e-01_dp, 4.2211621944934152e-01_dp, &
3566 -1.0340330103130466e-01_dp, -1.4705013349847670e-01_dp, 4.5565811980008253e-02_dp, &
3567 7.7147756940248571e-02_dp, -6.4077566137299757e-02_dp, 1.5603547582033700e-02_dp, &
3568 1.0786587572187873e+01_dp, -1.7760112751903939e+01_dp, 1.1918980063394129e+01_dp, &
3569 -1.5539236970758330e+00_dp, -2.5746531195043820e+00_dp, 9.9669167169678763e-01_dp, &
3570 6.4516326868847929e-01_dp, -4.0607915441255105e-01_dp, -2.2302549663448712e-01_dp, &
3571 2.2969575799370925e-01_dp, 1.1320877228687479e-02_dp, -7.2862905150103019e-02_dp, &
3572 2.3237485312351126e-02_dp, 1.6798695470837391e+01_dp, -3.1441464870566055e+01_dp, &
3573 2.5557113319742395e+01_dp, -7.2192306979436189e+00_dp, -3.7887425571978977e+00_dp, &
3574 3.0784789752716946e+00_dp, 5.3318993850287921e-01_dp, -1.0629617159049316e+00_dp, &
3575 -1.6729312653851172e-01_dp, 6.2482228533775386e-01_dp, -2.7075437119322843e-01_dp, &
3576 -7.6526272998893416e-04_dp, 1.9795696185616975e-02_dp, 2.6698448272325432e+01_dp, &
3577 -5.5678518659905293e+01_dp, 5.3281403655988036e+01_dp, -2.2925621416228282e+01_dp, &
3578 -2.7448097677013457e+00_dp, 7.2733797930171429e+00_dp, -1.0652244860941229e+00_dp, &
3579 -2.0439448593750167e+00_dp, 4.3742024469413332e-01_dp, 1.1815987016225704e+00_dp, &
3580 -1.0071997092922647e+00_dp, 3.2214298124885665e-01_dp, -3.3769710235736237e-02_dp, &
3581 4.3948016443764217e+01_dp, -9.9715998087285030e+01_dp, 1.0903180020753425e+02_dp, &
3582 -6.2349038976881253e+01_dp, 8.4191726553756379e+00_dp, 1.2761370267104230e+01_dp, &
3583 -6.4816307926839150e+00_dp, -2.1407881050035464e+00_dp, 2.2505811330603973e+00_dp, &
3584 9.4541418370340546e-01_dp, -1.8728571043550890e+00_dp, 9.3165721994730266e-01_dp, &
3585 -1.7212775126811192e-01_dp, 7.8045875406746134e+01_dp, -1.8661598260984715e+02_dp, &
3586 2.2414431510122250e+02_dp, -1.5518159917081857e+02_dp, 4.9918019842175177e+01_dp, &
3587 1.1453185884785420e+01_dp, -1.6531485621219627e+01_dp, 1.9110397390256724e+00_dp, &
3588 4.1466549895305009e+00_dp, -1.2773383144404289e+00_dp, -1.3711697775898219e+00_dp, &
3589 1.1359083217574477e+00_dp, -2.6834986232570840e-01_dp, 1.6737659404428402e+02_dp, &
3590 -4.0546870390462601e+02_dp, 5.0715726314925251e+02_dp, -3.8648362061791448e+02_dp, &
3591 1.6825446300611861e+02_dp, -1.5904401111568793e+01_dp, -2.4753480319349315e+01_dp, &
3592 9.7300048676002913e+00_dp, 3.4706756298406813e+00_dp, -2.7684975236319453e+00_dp, &
3593 -7.2826041594920199e-01_dp, 1.1315837672625995e+00_dp, -3.0636127893899234e-01_dp, &
3594 6.2801459623898256e+02_dp, -1.4934850582877016e+03_dp, 1.8458135305428518e+03_dp, &
3595 -1.4058647887554894e+03_dp, 6.3659031322995588e+02_dp, -1.0314180734592853e+02_dp, &
3596 -5.1253805381204558e+01_dp, 2.0084334666874064e+01_dp, 1.0632240773130309e+01_dp, &
3597 -4.7733655815247635e+00_dp, -4.8730760134796665e+00_dp, 4.2825744412767870e+00_dp, &
3598 -1.0293980933009121e+00_dp, 2.4470051605057291e-01_dp, -6.2837867140790746e-02_dp, &
3599 -2.3825186082600196e-02_dp, 7.5784912887244772e-03_dp, 7.5082468515253169e-03_dp, &
3600 -2.6455605788751222e-03_dp, -3.3362505117537893e-03_dp, 7.8091376511942739e-04_dp, &
3601 3.0325200376611385e-03_dp, -2.3347738852380210e-03_dp, 3.9936843186023246e-05_dp, &
3602 5.8244826441623864e-04_dp, -1.9032202744327542e-04_dp, 8.0022162325527124e-01_dp, &
3603 -2.4209391447252487e-01_dp, -7.6405614359062499e-02_dp, 3.8989771396722744e-02_dp, &
3604 2.5419789016015160e-02_dp, -1.5256813711493509e-02_dp, -1.1473513632992018e-02_dp, &
3605 5.2085413881328025e-03_dp, 1.2850293721253818e-02_dp, -1.3920130297941820e-02_dp, &
3606 4.3891393295565915e-03_dp, 5.8004137460729440e-04_dp, -4.7036883093655793e-04_dp, &
3607 1.5788599826464651e+00_dp, -6.1762979410631058e-01_dp, -1.3565786277770472e-01_dp, &
3608 1.3250818605318840e-01_dp, 4.7423141009731530e-02_dp, -5.6828580488514448e-02_dp, &
3609 -2.1224822901882736e-02_dp, 2.1560191062029284e-02_dp, 3.4712659716572912e-02_dp, &
3610 -5.3570121520492134e-02_dp, 2.8798870932988822e-02_dp, -6.1083685002502114e-03_dp, &
3611 1.1251907951229265e-04_dp, 2.8208126201441122e+00_dp, -1.4584430358075993e+00_dp, &
3612 -1.6668814068976517e-01_dp, 3.7939412477145662e-01_dp, 5.2727438203323901e-02_dp, &
3613 -1.7212640736974685e-01_dp, -1.9204293272473808e-02_dp, 7.0402478790583201e-02_dp, &
3614 7.4962963356748721e-02_dp, -1.6470750799943457e-01_dp, 1.1464911243407885e-01_dp, &
3615 -3.7209893008122726e-02_dp, 4.6211560443511707e-03_dp, 4.9425542029764467e+00_dp, &
3616 -3.3299793049425701e+00_dp, -1.5240471603939173e-02_dp, 9.6617116551502813e-01_dp, &
3617 -5.4487412666999822e-02_dp, -4.4981543663568441e-01_dp, 5.4235895382646740e-02_dp, &
3618 1.9616328040136954e-01_dp, 1.1396958212193117e-01_dp, -4.2101103801084033e-01_dp/)
3619 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/3.5632823078643500e-01_dp, &
3620 -1.4001776162509430e-01_dp, 2.2286666712875530e-02_dp, 8.7125285885676789e+00_dp, &
3621 -7.4679426200738366e+00_dp, 8.3805209926335500e-01_dp, 2.2477163058559704e+00_dp, &
3622 -6.0060735276290700e-01_dp, -1.0331040612400506e+00_dp, 3.9698448728282515e-01_dp, &
3623 4.7797940178876780e-01_dp, 1.1436011046665012e-02_dp, -8.7501751935782923e-01_dp, &
3624 9.1713404922379360e-01_dp, -4.1604826319244603e-01_dp, 7.5505830008108218e-02_dp, &
3625 1.5605853014796613e+01_dp, -1.6640738573993023e+01_dp, 3.9973532644106071e+00_dp, &
3626 4.7869251169441966e+00_dp, -2.5684017026470856e+00_dp, -2.0236077415630396e+00_dp, &
3627 1.5736463565912060e+00_dp, 9.8572630187217014e-01_dp, -7.7868319784195095e-01_dp, &
3628 -1.2477373616278120e+00_dp, 1.9014513769547758e+00_dp, -1.0102166550823963e+00_dp, &
3629 2.0453369882137556e-01_dp, 2.8549616253145054e+01_dp, -3.7205075770883383e+01_dp, &
3630 1.4271765352571258e+01_dp, 8.9932074739321770e+00_dp, -8.6798219050700265e+00_dp, &
3631 -2.8631184094001214e+00_dp, 4.9827139884730887e+00_dp, 1.4257317765234938e+00_dp, &
3632 -3.8503419132165200e+00_dp, 1.8060419072857684e-01_dp, 2.6148900288649957e+00_dp, &
3633 -1.8695443351115448e+00_dp, 4.3631072153907585e-01_dp, 5.3552984772777414e+01_dp, &
3634 -8.4175532531260529e+01_dp, 4.6043669292644864e+01_dp, 1.2581369109054569e+01_dp, &
3635 -2.5785157300270445e+01_dp, 3.6426327688394516e-01_dp, 1.3334789657578380e+01_dp, &
3636 -4.7226254964308417e-01_dp, -1.2526270169907576e+01_dp, 9.4142206495359755e+00_dp, &
3637 -9.7670970926161171e-01_dp, -1.6726174022636047e+00_dp, 5.9874706221520879e-01_dp, &
3638 1.0346475698874463e+02_dp, -1.9421400275760911e+02_dp, 1.4292733600886447e+02_dp, &
3639 -2.1682521535311881e+00_dp, -6.7899121747504481e+01_dp, 2.4906170745096762e+01_dp, &
3640 2.8087316716428784e+01_dp, -1.4449093427136949e+01_dp, -2.8736513116670000e+01_dp, &
3641 4.0767438543005156e+01_dp, -2.2398062557021266e+01_dp, 5.4405001864859486e+00_dp, &
3642 -3.4631065659938148e-01_dp, 2.0750616910138754e+02_dp, -4.6065142702781014e+02_dp, &
3643 4.4009500583974625e+02_dp, -1.2652217098767277e+02_dp, -1.4255338662322163e+02_dp, &
3644 1.3009558694582910e+02_dp, 2.4337692154912165e+01_dp, -6.8052930184984419e+01_dp, &
3645 -2.3709608232610183e+01_dp, 9.9442268821700665e+01_dp, -8.4274944171226693e+01_dp, &
3646 3.3636040311091861e+01_dp, -5.5275330736437418e+00_dp, 4.4235457824221572e+02_dp, &
3647 -1.1417219968036247e+03_dp, 1.3690824125389506e+03_dp, -7.7065096290590293e+02_dp, &
3648 -8.8442075039759473e+01_dp, 4.2234029954766072e+02_dp, -1.6089957770769391e+02_dp, &
3649 -1.4258882763239106e+02_dp, 1.2603829491926012e+02_dp, 5.0804366296990459e+01_dp, &
3650 -1.1980481260857118e+02_dp, 6.7459853564141966e+01_dp, -1.3960462430030432e+01_dp, &
3651 1.1324481119281395e+03_dp, -3.2684217630798435e+03_dp, 4.6328527365543323e+03_dp, &
3652 -3.7266964190295712e+03_dp, 1.2856665138480816e+03_dp, 5.6297970920071646e+02_dp, &
3653 -7.5128039018902086e+02_dp, 7.0908728648373369e+01_dp, 2.9917130128753172e+02_dp, &
3654 -1.5232184462135913e+02_dp, -4.8594625636135675e+01_dp, 6.7185755709058370e+01_dp, &
3655 -1.8010386679280117e+01_dp, 2.0001036223672011e+00_dp, -5.3620407054782981e-01_dp, &
3656 -1.9434054411717244e-01_dp, 7.0618726869747614e-02_dp, 6.2242609610535821e-02_dp, &
3657 -2.5597292416828135e-02_dp, -2.7813756603712155e-02_dp, 7.9491914776396028e-03_dp, &
3658 2.6680695709919679e-02_dp, -2.2810343453090697e-02_dp, 2.7161809486165871e-03_dp, &
3659 4.0718478547287487e-03_dp, -1.4880205641258518e-03_dp, 2.5450615398879743e+00_dp, &
3660 -9.8744397592581534e-01_dp, -2.2902266959137468e-01_dp, 2.0922986206151875e-01_dp, &
3661 8.2779560412023001e-02_dp, -8.8686545550320794e-02_dp, -3.7958590200944345e-02_dp, &
3662 3.2998767331186209e-02_dp, 5.7441855270214746e-02_dp, -8.2952472588137552e-02_dp, &
3663 4.1461489832071360e-02_dp, -7.2309981798897591e-03_dp, -3.4486800387515759e-04_dp, &
3664 3.8383945496778296e+00_dp, -2.1858886322144140e+00_dp, -2.2638494850866908e-01_dp, &
3665 5.9654548742227309e-01_dp, 8.2375367991094961e-02_dp, -2.7228188920384877e-01_dp, &
3666 -3.2991216309614123e-02_dp, 1.1069144407749401e-01_dp, 1.2288856763142823e-01_dp, &
3667 -2.6231090706733151e-01_dp, 1.7948962970980861e-01_dp, -5.6968770565566255e-02_dp, &
3668 6.8079040584616184e-03_dp, 6.3639884662472506e+00_dp, -4.8950253392955796e+00_dp, &
3669 6.7035562751566802e-02_dp, 1.4977453112460624e+00_dp, -9.4857290242106540e-02_dp, &
3670 -7.0786182174407719e-01_dp, 8.3499909648241832e-02_dp, 3.0861847626582534e-01_dp, &
3671 1.9124789670380135e-01_dp, -6.7776371800663660e-01_dp, 5.6824943668256445e-01_dp, &
3672 -2.2147300860757518e-01_dp, 3.4925516438103342e-02_dp, 1.1100384232886654e+01_dp, &
3673 -1.0849365072746094e+01_dp, 1.4500169429794771e+00_dp, 3.4281034563810699e+00_dp, &
3674 -9.5548658310972046e-01_dp, -1.6125902800476346e+00_dp, 6.2195077294496282e-01_dp, &
3675 7.5138806761421051e-01_dp, 4.4232035492933294e-02_dp, -1.4236095789326435e+00_dp, &
3676 1.4787960249515941e+00_dp, -6.6792149947902735e-01_dp, 1.2078043058881406e-01_dp, &
3677 1.9997254830061060e+01_dp, -2.3977706500886121e+01_dp, 6.3262970427801459e+00_dp, &
3678 7.2118993888159375e+00_dp, -4.0034174842598853e+00_dp, -3.1512209966526510e+00_dp, &
3679 2.4653796429483354e+00_dp, 1.5660770527154297e+00_dp, -1.1858015495148018e+00_dp, &
3680 -2.0863186414852812e+00_dp, 3.1158573924681550e+00_dp, -1.6479978556059860e+00_dp, &
3681 3.3293613764598917e-01_dp, 3.7002091361283142e+01_dp, -5.3343789674459856e+01_dp, &
3682 2.1798301205375779e+01_dp, 1.3490742966183797e+01_dp, -1.3399645593923985e+01_dp, &
3683 -4.5399329672371129e+00_dp, 7.8331708134372793e+00_dp, 2.3842813657243171e+00_dp, &
3684 -6.1312609096237622e+00_dp, 6.9373920027707620e-02_dp, 4.4439580524589513e+00_dp, &
3685 -3.1287274765904054e+00_dp, 7.2687886436644078e-01_dp, 7.0330646344558374e+01_dp, &
3686 -1.2042385478592142e+02_dp, 6.8896945123466992e+01_dp, 1.9248160282366094e+01_dp, &
3687 -3.9785945322970619e+01_dp, -1.0757313037469426e-01_dp, 2.1300262950471573e+01_dp, &
3688 -5.9398954626295727e-02_dp, -2.0726405213802341e+01_dp, 1.5013319224419423e+01_dp, &
3689 -1.0206915169707462e+00_dp, -3.0611082438918387e+00_dp, 1.0504012964699687e+00_dp, &
3690 1.3771889621960588e+02_dp, -2.7778114229196626e+02_dp, 2.1092710837289934e+02_dp, &
3691 4.9544962436490181e-01_dp, -1.0656701841455923e+02_dp, 3.5610982335235697e+01_dp, &
3692 4.7522077277759607e+01_dp, -2.0742921049299113e+01_dp, -5.1214696900496918e+01_dp, &
3693 6.8525574756543946e+01_dp, -3.6081947353505832e+01_dp, 8.0689565180881910e+00_dp, &
3694 -3.3115643672049860e-01_dp, 2.7951222706689759e+02_dp, -6.5906712429888637e+02_dp, &
3695 6.4323098194907232e+02_dp, -1.6677447485585066e+02_dp, -2.4162966307021762e+02_dp, &
3696 1.9677031498186125e+02_dp, 6.0574620887850372e+01_dp, -1.0971429429810229e+02_dp, &
3697 -6.6686880639177701e+01_dp, 1.9421790532342177e+02_dp, -1.5486964911422615e+02_dp, &
3698 5.9425108459636675e+01_dp, -9.4080145408358931e+00_dp, 5.9731652416151724e+02_dp, &
3699 -1.6234750522173472e+03_dp, 1.9836471844267119e+03_dp, -1.0519495956941482e+03_dp, &
3700 -2.9350943708598510e+02_dp, 7.3559653074966434e+02_dp, -1.8444178048301910e+02_dp, &
3701 -3.3747019072196520e+02_dp, 2.0501261919104977e+02_dp, 1.9472432317933209e+02_dp, &
3702 -3.1351374896534389e+02_dp, 1.6602020342171713e+02_dp, -3.3574624921311873e+01_dp, &
3703 1.4305952826928835e+03_dp, -4.3148429996300356e+03_dp, 6.2934312136573408e+03_dp, &
3704 -5.0322189338736098e+03_dp, 1.3515555677503437e+03_dp, 1.4914175783605847e+03_dp, &
3705 -1.5590391042662025e+03_dp, 2.5540483265629923e+01_dp, 9.2917473249960813e+02_dp, &
3706 -7.1183738950361192e+02_dp, 1.7736950337469372e+02_dp, 3.3996199940030365e+01_dp, &
3707 -2.0265055920456604e+01_dp, 5.3260400513964350e+03_dp, -1.6436105385546998e+04_dp, &
3708 2.5548454078470353e+04_dp, -2.4072536527098953e+04_dp, 1.2929492785729244e+04_dp, &
3709 -1.5539864332605835e+03_dp, -2.8010923463387767e+03_dp, 1.3421428470689034e+03_dp, &
3710 6.7886952374328268e+02_dp, -8.2031294944055298e+02_dp, 1.5680250796613109e+02_dp, &
3711 1.0539258593554351e+02_dp, -4.3152598585647880e+01_dp, 2.7522136583648199e-01_dp, &
3712 -3.2217110577238542e-02_dp, -1.7033147481772627e-02_dp, 2.0210122815219334e-03_dp, &
3713 3.9289578029764833e-03_dp, -3.9930449290441994e-05_dp, -1.9887361467012953e-03_dp, &
3714 3.6898435626645432e-04_dp, 7.3280730329796837e-04_dp, -1.1210128908484710e-04_dp, &
3715 -5.1629849116574338e-04_dp, 3.8585425500095789e-04_dp, -9.0580414399608951e-05_dp, &
3716 9.2165986573140568e-01_dp, -1.3249464016020585e-01_dp, -6.5239324099907584e-02_dp, &
3717 1.3110109010924940e-02_dp, 1.6453340473596419e-02_dp, -1.8265742727726945e-03_dp, &
3718 -8.6103449023340675e-03_dp, 2.2159504354805157e-03_dp, 3.4794700520068469e-03_dp, &
3719 -1.2533943941271351e-03_dp, -1.8168584053897300e-03_dp, 1.5997969588019021e-03_dp, &
3720 -3.9784620927895906e-04_dp, 1.9041320449174821e+00_dp, -3.7234333772363021e-01_dp, &
3721 -1.6365326189221707e-01_dp, 5.5534422369305905e-02_dp, 4.6089398503204683e-02_dp, &
3722 -1.2265328668024897e-02_dp, -2.5382790394936194e-02_dp, 9.3490699632645686e-03_dp, &
3723 1.1622195051795290e-02_dp, -7.3570743970728667e-03_dp, -3.2261443745580896e-03_dp, &
3724 4.2824229569487044e-03_dp, -1.1778304868165397e-03_dp, 3.6316569669487175e+00_dp, &
3725 -9.7730941204074340e-01_dp, -3.7309973697493126e-01_dp, 1.9511449684300722e-01_dp, &
3726 1.1472304455885286e-01_dp, -5.3617761770916240e-02_dp, -6.7215522012602877e-02_dp, &
3727 3.4468238642844179e-02_dp, 3.5251414090503870e-02_dp, -3.2843194103284207e-02_dp, &
3728 -6.1769442529466899e-05_dp, 9.2371576567999401e-03_dp, -3.0152739805040869e-03_dp, &
3729 6.9044315846491511e+00_dp, -2.4954078084649751e+00_dp, -7.9752233983078080e-01_dp, &
3730 6.1910169828591066e-01_dp, 2.5700006957784816e-01_dp, -1.9664588521910206e-01_dp, &
3731 -1.6279316206764638e-01_dp, 1.1756639080199344e-01_dp, 9.9690988498802063e-02_dp, &
3732 -1.2855067522072000e-01_dp, 3.3851769665174079e-02_dp, 1.2487678317695030e-02_dp, &
3733 -6.4025099233952784e-03_dp, 1.3402802913338570e+01_dp, -6.3224482797045658e+00_dp, &
3734 -1.5803882488352667e+00_dp, 1.8639565830791769e+00_dp, 4.9440377028852905e-01_dp, &
3735 -6.6058719060697912e-01_dp, -3.5203000086883229e-01_dp, 3.8416444626006885e-01_dp, &
3736 2.6219933074993468e-01_dp, -4.6750014207051527e-01_dp, 2.1565685107100283e-01_dp, &
3737 -1.9590633219356376e-02_dp, -8.3188142246124162e-03_dp, 2.6847189168859529e+01_dp, &
3738 -1.6164600954038654e+01_dp, -2.7348299274314170e+00_dp, 5.4804038804993898e+00_dp, &
3739 6.3908178640514468e-01_dp, -2.1090707289755835e+00_dp, -6.0397632454309369e-01_dp, &
3740 1.2258676026166442e+00_dp, 6.0900085656743030e-01_dp, -1.6095450133803784e+00_dp, &
3741 1.0185781424420182e+00_dp, -2.6410536241534338e-01_dp, 1.7190485044331690e-02_dp, &
3742 5.5920030994857392e+01_dp, -4.2359987862833194e+01_dp, -3.0851699293052208e+00_dp, &
3743 1.6003551733561032e+01_dp, -7.5845896807267987e-01_dp, -6.4758768912300226e+00_dp, &
3744 -2.7997762367110551e-01_dp, 3.8438366690735388e+00_dp, 9.6178031191591695e-01_dp, &
3745 -5.1789423674060124e+00_dp, 4.1897184836450609e+00_dp, -1.5066589469240397e+00_dp, &
3746 2.1023744160454813e-01_dp, 1.2214165365194877e+02_dp, -1.1560316535122182e+02_dp, &
3747 5.2431654538003061e+00_dp, 4.6756646171042270e+01_dp, -1.1638136061220804e+01_dp, &
3748 -1.8825294369662465e+01_dp, 4.6901099778948048e+00_dp, 1.1684043831662752e+01_dp, &
3749 -1.5690448976060742e+00_dp, -1.4469520844727743e+01_dp, 1.5229016181347497e+01_dp, &
3750 -6.7413191274813640e+00_dp, 1.1871712862612187e+00_dp, 2.8292219949744720e+02_dp, &
3751 -3.3466585644002333e+02_dp, 6.5399374381441106e+01_dp, 1.3547954808764075e+02_dp, &
3752 -7.2400177578816127e+01_dp, -4.7247337505445195e+01_dp, 3.5254490079699167e+01_dp/)
3753 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/3.1951406154569082e+01_dp, &
3754 -2.7863833003973856e+01_dp, -2.4615790099798474e+01_dp, 4.4154903132889864e+01_dp, &
3755 -2.4321043128719936e+01_dp, 5.0336537486842516e+00_dp, 7.0657858026784504e+02_dp, &
3756 -1.0528573743078830e+03_dp, 4.1625512279061735e+02_dp, 3.6427444425345516e+02_dp, &
3757 -3.8770748215573474e+02_dp, -4.8519737539136528e+01_dp, 1.8255864495792844e+02_dp, &
3758 4.9003198502854644e+01_dp, -1.8896312119490256e+02_dp, 8.1337993659320531e+01_dp, &
3759 4.5525635099598908e+01_dp, -5.2286864309302139e+01_dp, 1.4107728865636403e+01_dp, &
3760 1.9572003502958112e+03_dp, -3.7275124443070590e+03_dp, 2.5346776221187474e+03_dp, &
3761 5.1376728855467570e+02_dp, -1.9308763300790281e+03_dp, 7.9050799076938517e+02_dp, &
3762 5.7143225950275246e+02_dp, -3.4470294413325115e+02_dp, -6.8440314851472851e+02_dp, &
3763 1.0471215545682312e+03_dp, -6.3503878270573148e+02_dp, 1.8429203829230039e+02_dp, &
3764 -1.9468221079821902e+01_dp, 6.5615697945100492e+03_dp, -1.5941114910537892e+04_dp, &
3765 1.7283771807502479e+04_dp, -7.2779267165695510e+03_dp, -4.8084545703952344e+03_dp, &
3766 8.8537836032320683e+03_dp, -5.0434849558105634e+03_dp, 5.9362692294717317e+02_dp, &
3767 2.7660294111299510e+02_dp, 8.0161530341845844e+02_dp, -1.1650257023506490e+03_dp, &
3768 6.0897733306934356e+02_dp, -1.2237560126278971e+02_dp, 2.2627540419257364e+00_dp, &
3769 -2.7968575736450180e-01_dp, -1.4518668455604195e-01_dp, 2.0265924722043079e-02_dp, &
3770 3.4338618611475344e-02_dp, -1.2556065673962331e-03_dp, -1.7531784982831655e-02_dp, &
3771 3.5793660343997852e-03_dp, 6.6231604787169770e-03_dp, -1.3867866855376788e-03_dp, &
3772 -4.3395264768239942e-03_dp, 3.3684735669525651e-03_dp, -8.0229330712122920e-04_dp, &
3773 3.0613725230519471e+00_dp, -5.8640457056345652e-01_dp, -2.6339818110169105e-01_dp, &
3774 8.2855001233820474e-02_dp, 7.3722316481618991e-02_dp, -1.7015690354151666e-02_dp, &
3775 -4.0113596090714465e-02_dp, 1.3619066177511220e-02_dp, 1.7832370619744201e-02_dp, &
3776 -1.0005418487325966e-02_dp, -6.1379340236641386e-03_dp, 7.0291927722965558e-03_dp, &
3777 -1.8751685593083232e-03_dp, 5.0576570915087578e+00_dp, -1.4710755111222258e+00_dp, &
3778 -5.6312085551876734e-01_dp, 2.9587574582447002e-01_dp, 1.7758263331967478e-01_dp, &
3779 -7.9480406519325253e-02_dp, -1.0353547727129607e-01_dp, 5.0871576222639547e-02_dp, &
3780 5.3464895969474464e-02_dp, -4.7025455703949920e-02_dp, -2.8649889086355728e-03_dp, &
3781 1.5163927370369992e-02_dp, -4.7605351840397164e-03_dp, 9.2666854098509734e+00_dp, &
3782 -3.7037123145769315e+00_dp, -1.1810845674556205e+00_dp, 9.3266985234712430e-01_dp, &
3783 3.9541518329595232e-01_dp, -2.9288519060055263e-01_dp, -2.4999841635163031e-01_dp, &
3784 1.7350630646750761e-01_dp, 1.5126192191822729e-01_dp, -1.8602668410133402e-01_dp, &
3785 4.2058952933339604e-02_dp, 2.3004266980576980e-02_dp, -1.0410473830431016e-02_dp, &
3786 1.7967075304979097e+01_dp, -9.2886003844612315e+00_dp, -2.3166503256513042e+00_dp, &
3787 2.7793145895593954e+00_dp, 7.6579508186925827e-01_dp, -9.8065539968708293e-01_dp, &
3788 -5.4434577208491419e-01_dp, 5.6487894573947284e-01_dp, 4.0128002438923693e-01_dp, &
3789 -6.7985365844418810e-01_dp, 2.9335374977600032e-01_dp, -1.3760417124864824e-02_dp, &
3790 -1.5579665225528172e-02_dp, 3.6330014596264910e+01_dp, -2.3558077039701011e+01_dp, &
3791 -4.0032080208899892e+00_dp, 8.1023328627947695e+00_dp, 1.0572474369212368e+00_dp, &
3792 -3.1246715021136469e+00_dp, -9.7288399455208796e-01_dp, 1.7980101554684516e+00_dp, &
3793 9.6548627911437968e-01_dp, -2.3618248937200388e+00_dp, 1.4256316289637909e+00_dp, &
3794 -3.3674236693570941e-01_dp, 1.3035310486665157e-02_dp, 7.6564297545359281e+01_dp, &
3795 -6.1327459250609188e+01_dp, -4.7038085252667656e+00_dp, 2.3522134846498993e+01_dp, &
3796 -6.2074232510114502e-01_dp, -9.6274919508419270e+00_dp, -7.4907562113744564e-01_dp, &
3797 5.6473524210207273e+00_dp, 1.7877391201538855e+00_dp, -7.7760616092732224e+00_dp, &
3798 6.0028051651270777e+00_dp, -2.0515988031519519e+00_dp, 2.6498768518488430e-01_dp, &
3799 1.6908758380027180e+02_dp, -1.6620256620995710e+02_dp, 5.8556451666173768e+00_dp, &
3800 6.8594902354899986e+01_dp, -1.4646639889433427e+01_dp, -2.8503986567123022e+01_dp, &
3801 5.4011736632665412e+00_dp, 1.7407266610755649e+01_dp, -2.1695266703893210e-01_dp, &
3802 -2.3183117951883965e+01_dp, 2.2747354795410811e+01_dp, -9.6248972377227879e+00_dp, &
3803 1.6232770520249808e+00_dp, 3.9496620712272983e+02_dp, -4.7630587177234480e+02_dp, &
3804 8.2634984633242880e+01_dp, 2.0043881475177201e+02_dp, -9.3256133931078750e+01_dp, &
3805 -7.6938636554802741e+01_dp, 4.5382945051577323e+01_dp, 5.0541291906442254e+01_dp, &
3806 -3.0180631932035514e+01_dp, -5.1804380534411720e+01_dp, 7.3703321624210730e+01_dp, &
3807 -3.7832717690973290e+01_dp, 7.4886753735631828e+00_dp, 9.8936735122169955e+02_dp, &
3808 -1.4723135861653050e+03_dp, 5.1661296919801975e+02_dp, 5.6775300121587384e+02_dp, &
3809 -4.9823328967242446e+02_dp, -1.4291981765414513e+02_dp, 2.5077300933486598e+02_dp, &
3810 1.1280997635389373e+02_dp, -2.4043309466984022e+02_dp, 1.8533960613943030e+01_dp, &
3811 1.5008777209583707e+02_dp, -1.0988215815683799e+02_dp, 2.6126498062203950e+01_dp, &
3812 2.7151255050497193e+03_dp, -5.0457127958801984e+03_dp, 2.9824323650975698e+03_dp, &
3813 1.2838985854569405e+03_dp, -2.5571835909206930e+03_dp, 4.2544336126025911e+02_dp, &
3814 1.0994628841103713e+03_dp, -1.2735938497924820e+02_dp, -1.2861687784670435e+03_dp, &
3815 1.2636200369734484e+03_dp, -4.3735779232907760e+02_dp, -1.3792064567093755e+01_dp, &
3816 3.3103909845024816e+01_dp, 8.5120394945424250e+03_dp, -1.9972380653537413e+04_dp, &
3817 1.8712883353138033e+04_dp, -2.4296838299905257e+03_dp, -1.1695432627920640e+04_dp, &
3818 9.8982067857411967e+03_dp, 6.8744963878254964e+02_dp, -4.5712455095728219e+03_dp, &
3819 -1.0807863326674956e+03_dp, 6.7875580160934505e+03_dp, -6.3715584765173253e+03_dp, &
3820 2.7904520792497096e+03_dp, -5.0512451195331687e+02_dp, 3.7015110168653046e+04_dp, &
3821 -1.0359356753096696e+05_dp, 1.3988074174530094e+05_dp, -1.0150724524384555e+05_dp, &
3822 1.4669819151632983e+04_dp, 5.4938546232760098e+04_dp, -7.1495818225217707e+04_dp, &
3823 5.0437331500296590e+04_dp, -2.4139642994171907e+04_dp, 8.5816358667112163e+03_dp, &
3824 -2.4305935666411028e+03_dp, 5.1492651788062108e+02_dp, -5.4029802229116505e+01_dp, &
3825 2.8766437095860359e-01_dp, -1.2841648915210033e-02_dp, -1.1749544511224883e-02_dp, &
3826 3.9124751913915002e-03_dp, -4.1340943883577163e-03_dp, 6.7857802334998418e-03_dp, &
3827 -7.5294031286692407e-03_dp, 7.2175306126584524e-03_dp, -6.7009368542467326e-03_dp, &
3828 5.3904146360225216e-03_dp, -3.2096830445151438e-03_dp, 1.2124425357336903e-03_dp, &
3829 -2.1637406162705776e-04_dp, 9.7356679780566036e-01_dp, -5.4345431749096215e-02_dp, &
3830 -4.8904874253147546e-02_dp, 1.8036518570911850e-02_dp, -1.7361622406643535e-02_dp, &
3831 2.8759362863345999e-02_dp, -3.2180437961153392e-02_dp, 3.0604917054349139e-02_dp, &
3832 -2.8207332208422350e-02_dp, 2.2678944358017036e-02_dp, -1.3518527121475700e-02_dp, &
3833 5.1039031798528591e-03_dp, -9.0864035037277143e-04_dp, 2.0530666914935956e+00_dp, &
3834 -1.5918196985192454e-01_dp, -1.3979713465522753e-01_dp, 5.8990016258980232e-02_dp, &
3835 -5.0479493514827861e-02_dp, 8.4318744789823125e-02_dp, -9.5580479758503561e-02_dp, &
3836 8.9926670184525562e-02_dp, -8.1951748270375741e-02_dp, 6.5826636399679089e-02_dp, &
3837 -3.9316553314932813e-02_dp, 1.4841315675822706e-02_dp, -2.6340794368276848e-03_dp, &
3838 4.0316235573187873e+00_dp, -4.3717905236020804e-01_dp, -3.7355720461015557e-01_dp, &
3839 1.8022229937573989e-01_dp, -1.3839328046856253e-01_dp, 2.3139075155391939e-01_dp, &
3840 -2.6640028065715393e-01_dp, 2.4795661325252652e-01_dp, -2.2289816786634609e-01_dp, &
3841 1.7876458006240628e-01_dp, -1.0708594501709379e-01_dp, 4.0458337362132495e-02_dp, &
3842 -7.1627969268156346e-03_dp, 7.9515127037254940e+00_dp, -1.1725795416101994e+00_dp, &
3843 -9.7139505078684429e-01_dp, 5.3572393763784321e-01_dp, -3.7368202650800936e-01_dp, &
3844 6.1869498945049961e-01_dp, -7.2552440352875003e-01_dp, 6.6842200013424780e-01_dp, &
3845 -5.9088129861833538e-01_dp, 4.7264433898376779e-01_dp, -2.8431635449514581e-01_dp, &
3846 1.0769203775409864e-01_dp, -1.9041687452794855e-02_dp, 1.6132294510459047e+01_dp, &
3847 -3.1414300269804429e+00_dp, -2.5084546797336125e+00_dp, 1.5919506211215777e+00_dp, &
3848 -1.0199649239248365e+00_dp, 1.6474808867343209e+00_dp, -1.9752177536142645e+00_dp, &
3849 1.8027216083947462e+00_dp, -1.5596608718908076e+00_dp, 1.2416080767881754e+00_dp, &
3850 -7.5126157559420226e-01_dp, 2.8603278415470540e-01_dp, -5.0617454119410023e-02_dp, &
3851 3.4064569212641622e+01_dp, -8.5769738548301273e+00_dp, -6.5423787884993834e+00_dp, &
3852 4.8406599765190608e+00_dp, -2.8877282478001232e+00_dp, 4.4534784008756505e+00_dp, &
3853 -5.4834935225951478e+00_dp, 4.9661825471664365e+00_dp, -4.1752937122300180e+00_dp, &
3854 3.2934090517963024e+00_dp, -2.0084125823659398e+00_dp, 7.7180910515991674e-01_dp, &
3855 -1.3721280155604926e-01_dp, 7.5626882675942724e+01_dp, -2.4341047240189681e+01_dp, &
3856 -1.7493213476710846e+01_dp, 1.5398174306816493e+01_dp, -8.7275747587617456e+00_dp, &
3857 1.2451306283479628e+01_dp, -1.5814730127661882e+01_dp, 1.4263812050450625e+01_dp, &
3858 -1.1531252583607163e+01_dp, 8.9274705109811467e+00_dp, -5.4952489571487435e+00_dp, &
3859 2.1450145097837918e+00_dp, -3.8566671695744043e-01_dp, 1.7878769023909365e+02_dp, &
3860 -7.3409482660028232e+01_dp, -4.8603840481754148e+01_dp, 5.2510737919075773e+01_dp, &
3861 -2.9190434914792892e+01_dp, 3.6789271998095046e+01_dp, -4.8290125513308809e+01_dp, &
3862 4.3685642487586676e+01_dp, -3.3425817156494972e+01_dp, 2.4846648059952049e+01_dp, &
3863 -1.5396980073755357e+01_dp, 6.1596692561473594e+00_dp, -1.1327889201084458e+00_dp, &
3864 4.5853266997398288e+02_dp, -2.4219834828292343e+02_dp, -1.4185912981973058e+02_dp, &
3865 1.9818507281291306e+02_dp, -1.1363958650629472e+02_dp, 1.1864500714177012e+02_dp, &
3866 -1.5936064769189525e+02_dp, 1.4653462807503183e+02_dp, -1.0363950474324729e+02_dp, &
3867 6.9803513230716248e+01_dp, -4.2493410132349823e+01_dp, 1.7571722994223919e+01_dp, &
3868 -3.3652356136199639e+00_dp, 1.3149209017368075e+03_dp, -9.1410171353466365e+02_dp, &
3869 -4.3355981239428490e+02_dp, 8.6854889246174923e+02_dp, -5.5717720241772929e+02_dp, &
3870 4.4729901591974419e+02_dp, -5.8023403991716850e+02_dp, 5.5363750980013492e+02_dp, &
3871 -3.5036288911768412e+02_dp, 1.7673630965596453e+02_dp, -8.7764967631492297e+01_dp, &
3872 3.6165599936797761e+01_dp, -7.4275840619886511e+00_dp, 4.4599678882045982e+03_dp, &
3873 -4.2852510926403547e+03_dp, -1.2345242410977692e+03_dp, 4.8020310925072372e+03_dp, &
3874 -3.9712192527651519e+03_dp, 2.4421962410592055e+03_dp, -2.3444652516106917e+03_dp, &
3875 2.2748220642734714e+03_dp, -1.2153075874252681e+03_dp, 4.2618549893802005e+01_dp, &
3876 3.6957056541266746e+02_dp, -2.2467629199390655e+02_dp, 4.8301366431393674e+01_dp, &
3877 2.0515552105599014e+04_dp, -3.0251434673870317e+04_dp, 3.8760590293516493e+03_dp, &
3878 3.7614063826257821e+04_dp, -5.7087356760206945e+04_dp, 4.4626244651310022e+04_dp, &
3879 -1.6930953342940349e+04_dp, -8.6342938793903559e+03_dp, 2.5039453054521509e+04_dp, &
3880 -2.9727441111072243e+04_dp, 2.2663651551108436e+04_dp, -1.0448354492148857e+04_dp, &
3881 2.2049629835911287e+03_dp, 2.3711821326754712e+00_dp, -1.1232868750598661e-01_dp, &
3882 -1.0232817697756741e-01_dp, 3.5035029792710649e-02_dp, -3.6080149837860856e-02_dp, &
3883 5.9384272779209310e-02_dp, -6.6034549944533560e-02_dp, 6.3165197301667780e-02_dp, &
3884 -5.8533667022985264e-02_dp, 4.7080124186021241e-02_dp, -2.8040678094242519e-02_dp, &
3885 1.0590404330460124e-02_dp, -1.8887168866975497e-03_dp, 3.2950022547352660e+00_dp, &
3886 -2.4869033985187267e-01_dp, -2.1951170275277102e-01_dp, 9.0239524034429530e-02_dp/)
3887 REAL(kind=dp), DIMENSION(400), PARAMETER :: c04 = (/-7.8836509708512373e-02_dp, &
3888 1.3178061660818258e-01_dp, -1.4891101086305505e-01_dp, 1.4038052557472530e-01_dp, &
3889 -1.2827505792189706e-01_dp, 1.0306674552536969e-01_dp, -6.1520533848826123e-02_dp, &
3890 2.3216931723502306e-02_dp, -4.1222161991565217e-03_dp, 5.6592328962619902e+00_dp, &
3891 -6.5682359828028736e-01_dp, -5.6224091737511694e-01_dp, 2.6926868745701449e-01_dp, &
3892 -2.0725768669908209e-01_dp, 3.4798639207117904e-01_dp, -3.9993937306967442e-01_dp, &
3893 3.7233564292827848e-01_dp, -3.3521912095457151e-01_dp, 2.6894454176131877e-01_dp, &
3894 -1.6101715682600454e-01_dp, 6.0796203847490786e-02_dp, -1.0759696759551582e-02_dp, &
3895 1.0820432159449139e+01_dp, -1.7387845708330643e+00_dp, -1.4425878741646769e+00_dp, &
3896 7.9167895347904427e-01_dp, -5.5153935438914514e-01_dp, 9.1858113260673568e-01_dp, &
3897 -1.0754845180690036e+00_dp, 9.9058914214781446e-01_dp, -8.7711044783346115e-01_dp, &
3898 7.0204070734569368e-01_dp, -4.2204323840163149e-01_dp, 1.5970999475494435e-01_dp, &
3899 -2.8218316930005444e-02_dp, 2.1975384938130706e+01_dp, -4.6086047370349190e+00_dp, &
3900 -3.6880188824890627e+00_dp, 2.3253201370596082e+00_dp, -1.4865249175920201e+00_dp, &
3901 2.4206052762959338e+00_dp, -2.8969618325004678e+00_dp, 2.6424885821728354e+00_dp, &
3902 -2.2914719419367309e+00_dp, 1.8263977484192504e+00_dp, -1.1042793052824569e+00_dp, &
3903 4.1984999040571597e-01_dp, -7.4204462154064413e-02_dp, 4.6836016437591510e+01_dp, &
3904 -1.2461263924295558e+01_dp, -9.5424753844301833e+00_dp, 6.9849024224173073e+00_dp, &
3905 -4.1532087460680200e+00_dp, 6.4834239581427680e+00_dp, -7.9652050621281747e+00_dp, &
3906 7.2063417067380673e+00_dp, -6.0811310415530810e+00_dp, 4.8089182798816328e+00_dp, &
3907 -2.9302138012528847e+00_dp, 1.1235538973792896e+00_dp, -1.9930560719274457e-01_dp, &
3908 1.0501296069740016e+02_dp, -3.5006611463522972e+01_dp, -2.5350753062858892e+01_dp, &
3909 2.1897185983038352e+01_dp, -1.2338035196247318e+01_dp, 1.7958095428676263e+01_dp, &
3910 -2.2746802023037219e+01_dp, 2.0474886895879344e+01_dp, -1.6659351440344015e+01_dp, &
3911 1.2973198485786074e+01_dp, -7.9821240373924969e+00_dp, 3.1045561581164107e+00_dp, &
3912 -5.5595266514842701e-01_dp, 2.5001854850064910e+02_dp, -1.0412293597281749e+02_dp, &
3913 -7.0012689271087496e+01_dp, 7.3141042075103357e+01_dp, -4.0139216815255786e+01_dp, &
3914 5.2378449759973961e+01_dp, -6.8602643632320721e+01_dp, 6.1798794377474557e+01_dp, &
3915 -4.7836268566179115e+01_dp, 3.6088120915352725e+01_dp, -2.2418738636667779e+01_dp, &
3916 8.9199275986530679e+00_dp, -1.6284440849442408e+00_dp, 6.4170847130306493e+02_dp, &
3917 -3.3564734161105105e+02_dp, -2.0319074233870467e+02_dp, 2.6700999172427709e+02_dp, &
3918 -1.4865370577376467e+02_dp, 1.6483905993906203e+02_dp, -2.2243071554945487e+02_dp, &
3919 2.0268427674625798e+02_dp, -1.4634920891505303e+02_dp, 1.0281958316987021e+02_dp, &
3920 -6.3797063574792020e+01_dp, 2.6253291146070694e+01_dp, -4.9653658173425370e+00_dp, &
3921 1.8179870531301624e+03_dp, -1.2124262579162116e+03_dp, -6.2269753019103860e+02_dp, &
3922 1.1041853779458711e+03_dp, -6.6269936764476824e+02_dp, 5.8460724515644620e+02_dp, &
3923 -7.9040872092006543e+02_dp, 7.4186477271070237e+02_dp, -4.8589122354266311e+02_dp, &
3924 2.8409351239811036e+02_dp, -1.6399352031256032e+02_dp, 7.0149332037368637e+01_dp, &
3925 -1.4138078938532878e+01_dp, 5.9147915732141646e+03_dp, -5.1836184148231387e+03_dp, &
3926 -1.9529616708993781e+03_dp, 5.4738511859880100e+03_dp, -3.8869620939089637e+03_dp, &
3927 2.5977148376502064e+03_dp, -3.1249029145093127e+03_dp, 3.0852665470111756e+03_dp, &
3928 -1.7708800172300193e+03_dp, 5.3074618739108712e+02_dp, -6.6377545473118147e+01_dp, &
3929 9.3948507249713860e+00_dp, -4.8647165579413887e+00_dp, 2.3862435794753223e+04_dp, &
3930 -2.9152813027206714e+04_dp, -4.0489848903694369e+03_dp, 3.5895063967658702e+04_dp, &
3931 -3.5486880126624863e+04_dp, 2.0119320410757315e+04_dp, -1.3494757960194409e+04_dp, &
3932 1.2166038486582942e+04_dp, -5.1302990256297890e+03_dp, -4.1716588565092670e+03_dp, &
3933 7.0751423497119849e+03_dp, -4.0035381834602572e+03_dp, 8.8748758779155071e+02_dp, &
3934 1.4686983146318793e+05_dp, -2.7739659047737991e+05_dp, 1.1760797338476461e+05_dp, &
3935 3.2807041818098148e+05_dp, -7.2517285349087697e+05_dp, 7.3150274091493548e+05_dp, &
3936 -2.9882997403572657e+05_dp, -3.1816573683119891e+05_dp, 7.7265175039547053e+05_dp, &
3937 -8.5110852845767897e+05_dp, 5.9525059737962019e+05_dp, -2.5347666927566967e+05_dp, &
3938 5.0206766624547767e+04_dp, 2.9045854252487524e-01_dp, -9.3872029923743098e-09_dp, &
3939 -1.6474589315474152e-02_dp, 1.8803148185921940e-02_dp, -2.1136377875972792e-02_dp, &
3940 1.0402051234732080e-02_dp, 2.7413508770381487e-02_dp, -1.0020420108756088e-01_dp, &
3941 1.9200020290840114e-01_dp, -2.5139939316453958e-01_dp, 2.2429428108518476e-01_dp, &
3942 -1.2324671659253950e-01_dp, 3.1416116213041342e-02_dp, 9.8543060415902617e-01_dp, &
3943 -3.9997789833057460e-08_dp, -7.0180574115183969e-02_dp, 8.0100018518159663e-02_dp, &
3944 -8.8669643824093369e-02_dp, 4.1168277654631887e-02_dp, 1.2222716004100626e-01_dp, &
3945 -4.3376557308075792e-01_dp, 8.2348524196548867e-01_dp, -1.0722306945113518e+00_dp, &
3946 9.5266694074435665e-01_dp, -5.2175051061240585e-01_dp, 1.3263698690739856e-01_dp, &
3947 2.0879815633551813e+00_dp, -1.1830858233257060e-07_dp, -2.0751780374971132e-01_dp, &
3948 2.3684851551994904e-01_dp, -2.5637862072869982e-01_dp, 1.0839683313493143e-01_dp, &
3949 3.8437385693103709e-01_dp, -1.3114065729390199e+00_dp, 2.4576389073052467e+00_dp, &
3950 -3.1745152556387226e+00_dp, 2.8036316578514442e+00_dp, -1.5280660715176184e+00_dp, &
3951 3.8691002445303968e-01_dp, 4.1280139396328233e+00_dp, -3.2843232523142131e-07_dp, &
3952 -5.7587200156643770e-01_dp, 6.5726548338828250e-01_dp, -6.9376957208833223e-01_dp, &
3953 2.6019334435131042e-01_dp, 1.1358828382244106e+00_dp, -3.7246497078122731e+00_dp, &
3954 6.8843611147032977e+00_dp, -8.8148483202359351e+00_dp, 7.7329874627101871e+00_dp, &
3955 -4.1917406592895956e+00_dp, 1.0565313621508341e+00_dp, 8.2115292599550127e+00_dp, &
3956 -8.9137561697151123e-07_dp, -1.5622875225930539e+00_dp, 1.7830984621994226e+00_dp, &
3957 -1.8292461199409722e+00_dp, 5.8447218617253227e-01_dp, 3.2858522987931740e+00_dp, &
3958 -1.0351403024506384e+01_dp, 1.8851002197235399e+01_dp, -2.3904379330116988e+01_dp, &
3959 2.0812769462943820e+01_dp, -1.1211467536930467e+01_dp, 2.8109944480167490e+00_dp, &
3960 1.6833509752553130e+01_dp, -2.4208347916624588e-06_dp, -4.2408362534061510e+00_dp, &
3961 4.8402218801150756e+00_dp, -4.7995870275879025e+00_dp, 1.2056343958145297e+00_dp, &
3962 9.5508495555428166e+00_dp, -2.8841634205337105e+01_dp, 5.1653143559226265e+01_dp, &
3963 -6.4765365903098953e+01_dp, 5.5884702982899860e+01_dp, -2.9877273510186630e+01_dp, &
3964 7.4426681746137389e+00_dp, 3.5994294559688392e+01_dp, -6.7185205986334922e-06_dp, &
3965 -1.1762365188147919e+01_dp, 1.3424795806058500e+01_dp, -1.2758760271073882e+01_dp, &
3966 2.0732889158938947e+00_dp, 2.8558432889956102e+01_dp, -8.2347703324680765e+01_dp, &
3967 1.4461633713546519e+02_dp, -1.7885516484206732e+02_dp, 1.5260695584062722e+02_dp, &
3968 -8.0803840777326485e+01_dp, 1.9960600023375445e+01_dp, 8.1157457670966565e+01_dp, &
3969 -1.9458094008644022e-05_dp, -3.4039161550681698e+01_dp, 3.8849992038065054e+01_dp, &
3970 -3.4927696505148425e+01_dp, 1.4181938934757687e+00_dp, 8.9934070855182398e+01_dp, &
3971 -2.4623095414911904e+02_dp, 4.2223594118137123e+02_dp, -5.1315822696394446e+02_dp, &
3972 4.3143053246951132e+02_dp, -2.2548223291042308e+02_dp, 5.5058148831168019e+01_dp, &
3973 1.9568047986849353e+02_dp, -6.0244262192986751e-05_dp, -1.0527645970752303e+02_dp, &
3974 1.2015506150003682e+02_dp, -1.0001639314265297e+02_dp, -1.4009458871747229e+01_dp, &
3975 3.0653332588013888e+02_dp, -7.9043502502542060e+02_dp, 1.3149170528475586e+03_dp, &
3976 -1.5608831673196967e+03_dp, 1.2853217606932562e+03_dp, -6.5913017450105701e+02_dp, &
3977 1.5816639621647650e+02_dp, 5.1524126870993928e+02_dp, -2.0601342380317144e-04_dp, &
3978 -3.5945477251100289e+02_dp, 4.1025436478750186e+02_dp, -3.0394364960641099e+02_dp, &
3979 -1.3411341942097474e+02_dp, 1.1740847511426989e+03_dp, -2.8153287548247690e+03_dp, &
3980 4.4935466649789141e+03_dp, -5.1526402294564268e+03_dp, 4.1075902980563333e+03_dp, &
3981 -2.0415866612899454e+03_dp, 4.7535023510802057e+02_dp, 1.5345203816734511e+03_dp, &
3982 -8.1996534428424410e-04_dp, -1.4272114721930720e+03_dp, 1.6288998293799721e+03_dp, &
3983 -9.8331472929207700e+02_dp, -1.0461299234634332e+03_dp, 5.3699628756611428e+03_dp, &
3984 -1.1700010870023980e+04_dp, 1.7522011300616890e+04_dp, -1.8931976535897018e+04_dp, &
3985 1.4192216319515732e+04_dp, -6.6082119103015066e+03_dp, 1.4354040244532143e+03_dp, &
3986 5.5359106840411023e+03_dp, -4.2116907744044847e-03_dp, -7.2978223910327642e+03_dp, &
3987 8.3290217141779613e+03_dp, -3.0205311888974306e+03_dp, -9.9636784453742785e+03_dp, &
3988 3.3034312432889732e+04_dp, -6.1784943330522874e+04_dp, 8.1361262384593938e+04_dp, &
3989 -7.5874525508600782e+04_dp, 4.6962603202435283e+04_dp, -1.6649687551097129e+04_dp, &
3990 2.3288381807198862e+03_dp, 2.8965940366189952e+04_dp, -3.7068444267143071e-02_dp, &
3991 -6.3565705168485889e+04_dp, 7.2545702838451150e+04_dp, 1.9451051149951527e+04_dp, &
3992 -1.9181670386420426e+05_dp, 3.6675255147557601e+05_dp, -4.0868713263820746e+05_dp, &
3993 1.8884705302897276e+05_dp, 2.3077739263055730e+05_dp, -5.1954761094616010e+05_dp, &
3994 4.2094053714259033e+05_dp, -1.3519426853223852e+05_dp, 2.3956446261391355e+00_dp, &
3995 -8.2259922726024793e-08_dp, -1.4435805810148564e-01_dp, 1.6476195304653121e-01_dp, &
3996 -1.8446144579171345e-01_dp, 8.9437025922576366e-02_dp, 2.4318075444129192e-01_dp, &
3997 -8.8181344063145117e-01_dp, 1.6854750516438730e+00_dp, -2.2036434429093879e+00_dp, &
3998 1.9639043208955855e+00_dp, -1.0782019877436793e+00_dp, 2.7464330062693504e-01_dp, &
3999 3.3494963759865057e+00_dp, -1.8445757660486408e-07_dp, -3.2356867403047279e-01_dp, &
4000 3.6930217014151012e-01_dp, -4.0166065484929164e-01_dp, 1.7339244143990060e-01_dp, &
4001 5.9190709926720098e-01_dp, -2.0357074336995966e+00_dp, 3.8253641076662022e+00_dp, &
4002 -4.9496028636172511e+00_dp, 4.3769722375906133e+00_dp, -2.3880787149857583e+00_dp, &
4003 6.0519139225210616e-01_dp, 5.8040000291750982e+00_dp, -4.9307010104776223e-07_dp, &
4004 -8.6457441827499182e-01_dp, 9.8677305172000451e-01_dp, -1.0435592710758324e+00_dp, &
4005 3.9518781491624627e-01_dp, 1.6981221840783756e+00_dp, -5.5841325524658263e+00_dp, &
4006 1.0332178192642571e+01_dp, -1.3238703735787881e+01_dp, 1.1620225704849606e+01_dp, &
4007 -6.3016961957941975e+00_dp, 1.5889503305951129e+00_dp, 1.1205889768777084e+01_dp, &
4008 -1.3209488146781724e-06_dp, -2.3152576012558059e+00_dp, 2.6424922127194401e+00_dp, &
4009 -2.7155773855174825e+00_dp, 8.7695933535320614e-01_dp, 4.8533303358467910e+00_dp, &
4010 -1.5324929900939482e+01_dp, 2.7934350894109556e+01_dp, -3.5445461425090642e+01_dp, &
4011 3.0877155066264496e+01_dp, -1.6640212268612309e+01_dp, 4.1736667265992375e+00_dp, &
4012 2.3003668057025042e+01_dp, -3.5482604603519923e-06_dp, -6.2161341452072962e+00_dp, &
4013 7.0947026113909137e+00_dp, -7.0528063622407950e+00_dp, 1.8077921798260204e+00_dp, &
4014 1.3939173281458793e+01_dp, -4.2219371371025446e+01_dp, 7.5708235249965000e+01_dp, &
4015 -9.5012975060705713e+01_dp, 8.2045747816253453e+01_dp, -4.3891539618467377e+01_dp, &
4016 1.0939766218489742e+01_dp, 4.9637684295142599e+01_dp, -9.7463695738026281e-06_dp, &
4017 -1.7064535222921169e+01_dp, 1.9476350353952395e+01_dp, -1.8590436540559089e+01_dp, &
4018 3.1925275522724674e+00_dp, 4.1158324783342913e+01_dp, -1.1921515605115852e+02_dp, &
4019 2.0979218330367425e+02_dp, -2.5985281813994447e+02_dp, 2.2199832068654112e+02_dp, &
4020 -1.1767584219618503e+02_dp, 2.9097217542476354e+01_dp, 1.1295662396434658e+02_dp/)
4021 REAL(kind=dp), DIMENSION(90), PARAMETER :: c05 = (/-2.7907357414271074e-05_dp, &
4022 -4.8826106427338516e+01_dp, 5.5726828156877396e+01_dp, -5.0511477178292488e+01_dp, &
4023 2.9783692652581260e+00_dp, 1.2761594545085276e+02_dp, -3.5194583503612256e+02_dp, &
4024 6.0567238480576850e+02_dp, -7.3810346857458831e+02_dp, 6.2201716742048916e+02_dp, &
4025 -3.2577937709337687e+02_dp, 7.9700609240616870e+01_dp, 2.7392126417294304e+02_dp, &
4026 -8.5014454364132483e-05_dp, -1.4859738660861041e+02_dp, 1.6959859615136114e+02_dp, &
4027 -1.4348055742340679e+02_dp, -1.4470906151360252e+01_dp, 4.2504884354925576e+02_dp, &
4028 -1.1092388852844888e+03_dp, 1.8571994555057452e+03_dp, -2.2161045374396167e+03_dp, &
4029 1.8334805028895823e+03_dp, -9.4436397774699310e+02_dp, 2.2753963301137293e+02_dp, &
4030 7.1993494851256742e+02_dp, -2.8273561718275677e-04_dp, -4.9354947315699241e+02_dp, &
4031 5.6330058572048620e+02_dp, -4.3192291483542755e+02_dp, -1.5060398376844597e+02_dp, &
4032 1.5657840098177583e+03_dp, -3.8312638445092366e+03_dp, 6.1904109019097459e+03_dp, &
4033 -7.1744215164009311e+03_dp, 5.7783733007334085e+03_dp, -2.9012807842372895e+03_dp, &
4034 6.8229724960201429e+02_dp, 2.1065420056611683e+03_dp, -1.0664058503153191e-03_dp, &
4035 -1.8579764758900715e+03_dp, 2.1205446683502560e+03_dp, -1.3916730341031403e+03_dp, &
4036 -1.1054018979421496e+03_dp, 6.6616451407058066e+03_dp, -1.5054577477071649e+04_dp, &
4037 2.3136946283622921e+04_dp, -2.5637844083293843e+04_dp, 1.9746988549792022e+04_dp, &
4038 -9.4727339041338582e+03_dp, 2.1263470523015208e+03_dp, 7.1883726760512764e+03_dp, &
4039 -4.8683316646283012e-03_dp, -8.4557043884527229e+03_dp, 9.6505775179423381e+03_dp, &
4040 -4.6968102107445948e+03_dp, -8.7928604739436014e+03_dp, 3.5236438954359772e+04_dp, &
4041 -7.1416261140412083e+04_dp, 1.0113068401234987e+05_dp, -1.0299681880727473e+05_dp, &
4042 7.2039640653129478e+04_dp, -3.0819607047464066e+04_dp, 6.0214483913251506e+03_dp, &
4043 3.1445989346200007e+04_dp, -3.0789770328952418e-02_dp, -5.3162976062730428e+04_dp, &
4044 6.0674445128441919e+04_dp, -1.0676731288363026e+04_dp, -9.8618787001921461e+04_dp, &
4045 2.6917328710149962e+05_dp, -4.5080663875526667e+05_dp, 5.2615990446274763e+05_dp, &
4046 -4.0824771802677517e+05_dp, 1.7414668875913633e+05_dp, -1.1753804603528921e+04_dp, &
4047 -1.4548822319029938e+04_dp, 2.3068275228418666e+05_dp, -3.9689873696814088e-01_dp, &
4048 -6.7753046300068102e+05_dp, 7.7323771401862660e+05_dp, 5.5823523395335092e+05_dp, &
4049 -2.8474678682125942e+06_dp, 4.1915016169727501e+06_dp, -2.1435582467267131e+06_dp, &
4050 -4.2583193954617819e+06_dp, 1.1939190162504816e+07_dp, -1.4588866431316955e+07_dp, &
4051 9.6445890214436613e+06_dp, -2.7844693650067835e+06_dp/)
4052 REAL(kind=dp), DIMENSION(13, 26, 5), PARAMETER :: &
4053 coefdata = reshape((/c01, c02, c03, c04, c05/), (/13, 26, 5/))
4054
4055 INTEGER :: irange
4056
4057 IF (rc <= 1.0000000000000000e+01_dp) rc = 1.0000000000000000e+01_dp
4058 IF (rc >= 1.5429601669311523e+05_dp) rc = 1.5429601669311523e+05_dp
4059 IF (rc >= 1.0000000000000000e+01_dp .AND. rc <= 6.6546340495335400e+01_dp) THEN
4060 irange = 1
4061 l_b = 1.0000000000000000e+01_dp
4062 u_b = 6.6546340495335400e+01_dp
4063 END IF
4064 IF (rc >= 6.6546340495335400e+01_dp .AND. rc <= 8.8617575097672625e+02_dp) THEN
4065 irange = 2
4066 l_b = 6.6546340495335400e+01_dp
4067 u_b = 8.8617575097672625e+02_dp
4068 END IF
4069 IF (rc >= 8.8617575097672625e+02_dp .AND. rc <= 8.9415021812443374e+03_dp) THEN
4070 irange = 3
4071 l_b = 8.8617575097672625e+02_dp
4072 u_b = 8.9415021812443374e+03_dp
4073 END IF
4074 IF (rc >= 8.9415021812443374e+03_dp .AND. rc <= 5.2961915553991363e+04_dp) THEN
4075 irange = 4
4076 l_b = 8.9415021812443374e+03_dp
4077 u_b = 5.2961915553991363e+04_dp
4078 END IF
4079 IF (rc >= 5.2961915553991363e+04_dp .AND. rc <= 1.5429601669311523e+05_dp) THEN
4080 irange = 5
4081 l_b = 5.2961915553991363e+04_dp
4082 u_b = 1.5429601669311523e+05_dp
4083 END IF
4084
4085 fit_coef(1:13, 1:26) = coefdata(1:13, 1:26, irange)
4086
4087 END SUBROUTINE get_fit_coef_k13
4088
4089! **************************************************************************************************
4090!> \brief ...
4091!> \param Rc ...
4092!> \param L_b ...
4093!> \param U_b ...
4094!> \param fit_coef ...
4095! **************************************************************************************************
4096 SUBROUTINE get_fit_coef_k14(Rc, L_b, U_b, fit_coef)
4097 REAL(kind=dp) :: rc, l_b, u_b
4098 REAL(kind=dp), DIMENSION(13, 28) :: fit_coef
4099
4100 REAL(kind=dp), DIMENSION(220), PARAMETER :: c05 = (/-4.9474578762585689e-04_dp, &
4101 -2.5939403957639643e+03_dp, 3.0352874416549189e+03_dp, -1.9742442806612846e+03_dp, &
4102 -1.5969761709828460e+03_dp, 9.5497831811419619e+03_dp, -2.1791219784053799e+04_dp, &
4103 3.4007167063977518e+04_dp, -3.8426789298450683e+04_dp, 3.0290020612758195e+04_dp, &
4104 -1.4913740382161952e+04_dp, 3.4437263625752439e+03_dp, 9.7404664944032957e+03_dp, &
4105 -2.5387359568679966e-03_dp, -1.3140569581716762e+04_dp, 1.5376194259263802e+04_dp, &
4106 -6.3931081330686866e+03_dp, -1.6591959902315488e+04_dp, 5.9198447699858742e+04_dp, &
4107 -1.1572075729785630e+05_dp, 1.6031285635678476e+05_dp, -1.6009686057185219e+05_dp, &
4108 1.0949859530426569e+05_dp, -4.5488875426595805e+04_dp, 8.5191784067115168e+03_dp, &
4109 5.0965737544466407e+04_dp, -2.2599730435201849e-02_dp, -1.1343132088409952e+05_dp, &
4110 1.3272584229156727e+05_dp, 2.6288738068185427e+04_dp, -3.3499444278650463e+05_dp, &
4111 6.7051826395931852e+05_dp, -8.0700177432248381e+05_dp, 5.0680536128272885e+05_dp, &
4112 1.7276049875705931e+05_dp, -7.0698870636937302e+05_dp, 6.3021843911543733e+05_dp, &
4113 -2.1121368435571375e+05_dp, 2.3082323868282559e+00_dp, -2.4017040804702034e-08_dp, &
4114 -1.2891053118339380e-01_dp, 1.5084735253153100e-01_dp, -1.7633642214925768e-01_dp, &
4115 1.0478107279403694e-01_dp, 1.8056901435863362e-01_dp, -7.6047719259316937e-01_dp, &
4116 1.5304155276743796e+00_dp, -2.0748704774691396e+00_dp, 1.9060146879751447e+00_dp, &
4117 -1.0744161491583117e+00_dp, 2.8012092652976173e-01_dp, 3.1578187462227962e+00_dp, &
4118 -5.1567365353821572e-08_dp, -2.7650905240083334e-01_dp, 3.2356254508419818e-01_dp, &
4119 -3.6928537030522152e-01_dp, 2.0370200953976045e-01_dp, 4.2500849576389860e-01_dp, &
4120 -1.6818132491347872e+00_dp, 3.3294488150428045e+00_dp, -4.4727192170593986e+00_dp, &
4121 4.0824995398514528e+00_dp, -2.2901310317535963e+00_dp, 5.9479992770208523e-01_dp, &
4122 5.3022457526794620e+00_dp, -1.3231464400206018e-07_dp, -7.0879601306783835e-01_dp, &
4123 8.2941094524127557e-01_dp, -9.2491385814921556e-01_dp, 4.7111974770571152e-01_dp, &
4124 1.1800589827897907e+00_dp, -4.4312033118085346e+00_dp, 8.6424235805572369e+00_dp, &
4125 -1.1510883031319265e+01_dp, 1.0442741903695572e+01_dp, -5.8305757103901508e+00_dp, &
4126 1.5087006641831338e+00_dp, 9.8889975023413292e+00_dp, -3.4049023321205348e-07_dp, &
4127 -1.8221988606703043e+00_dp, 2.1322782325784657e+00_dp, -2.3235177347953093e+00_dp, &
4128 1.0834769924777288e+00_dp, 3.2578049089354004e+00_dp, -1.1683733051537128e+01_dp, &
4129 2.2469887916547904e+01_dp, -2.9680347503960153e+01_dp, 2.6764943785092932e+01_dp, &
4130 -1.4874114918252536e+01_dp, 3.8343556288753748e+00_dp, 1.9545871935955041e+01_dp, &
4131 -8.7460941189600850e-07_dp, -4.6754910887806371e+00_dp, 5.4711030020406684e+00_dp, &
4132 -5.8086891294068961e+00_dp, 2.4198279950235375e+00_dp, 8.9835555363766275e+00_dp, &
4133 -3.0776859857929882e+01_dp, 5.8311567939739909e+01_dp, -7.6326069298093813e+01_dp, &
4134 6.8369012228472059e+01_dp, -3.7794300439853124e+01_dp, 9.7011963380606723e+00_dp, &
4135 4.0387743977509039e+01_dp, -2.2802119015403580e-06_dp, -1.2173600984053655e+01_dp, &
4136 1.4245122575347299e+01_dp, -1.4663497964021953e+01_dp, 5.2167187058988729e+00_dp, &
4137 2.5244728902273341e+01_dp, -8.2452555727692769e+01_dp, 1.5363036456312540e+02_dp, &
4138 -1.9899236224931769e+02_dp, 1.7684535970055489e+02_dp, -9.7143346163942994e+01_dp, &
4139 2.4806140772967233e+01_dp, 8.7294816240247798e+01_dp, -6.1325232975282236e-06_dp, &
4140 -3.2687761451378606e+01_dp, 3.8250019320805777e+01_dp, -3.7906149312736396e+01_dp, &
4141 1.0554564587180893e+01_dp, 7.3600534264141842e+01_dp, -2.2847415147597096e+02_dp, &
4142 4.1762130504843361e+02_dp, -5.3421933339350812e+02_dp, 4.7021823009778637e+02_dp, &
4143 -2.5627821741621284e+02_dp, 6.5016683550652573e+01_dp, 1.9872757775908869e+02_dp, &
4144 -1.7288920250713497e-05_dp, -9.1967062673265403e+01_dp, 1.0761628002271890e+02_dp, &
4145 -1.0162265582966705e+02_dp, 1.7864790639628893e+01_dp, 2.2661260001503362e+02_dp, &
4146 -6.6576659613427580e+02_dp, 1.1897709602645350e+03_dp, -1.4987894458995706e+03_dp, &
4147 1.3032857841974862e+03_dp, -7.0315224410172698e+02_dp, 1.7686291682282348e+02_dp, &
4148 4.8195697213806216e+02_dp, -5.2053770241544080e-05_dp, -2.7616012508311786e+02_dp, &
4149 3.2315103970603087e+02_dp, -2.8617592824287709e+02_dp, 8.9668308727996777e+00_dp, &
4150 7.5242665407679601e+02_dp, -2.0796726290417987e+03_dp, 3.6157344965745160e+03_dp, &
4151 -4.4661943306924250e+03_dp, 3.8213658267393344e+03_dp, -2.0333395036853592e+03_dp, &
4152 5.0534042637321267e+02_dp, 1.2667258569739490e+03_dp, -1.7160973677295130e-04_dp, &
4153 -9.0710910652439338e+02_dp, 1.0614575664009355e+03_dp, -8.5818358894893083e+02_dp, &
4154 -1.6322151149271565e+02_dp, 2.7714382485293463e+03_dp, -7.1430478120354646e+03_dp, &
4155 1.1989987328766261e+04_dp, -1.4418456057909183e+04_dp, 1.2054815500043296e+04_dp, &
4156 -6.2834888773905532e+03_dp, 1.5330588576635123e+03_dp, 3.7064712285605369e+03_dp, &
4157 -6.4340614075563080e-04_dp, -3.3826536493755129e+03_dp, 3.9582066825917277e+03_dp, &
4158 -2.7744445291648535e+03_dp, -1.6114983670703609e+03_dp, 1.1820868123783597e+04_dp, &
4159 -2.8002618049413450e+04_dp, 4.4775862324928894e+04_dp, -5.1714676070415371e+04_dp, &
4160 4.1654323461293316e+04_dp, -2.0958910595013618e+04_dp, 4.9457226648390688e+03_dp, &
4161 1.2647982284255992e+04_dp, -2.9295350801209737e-03_dp, -1.5266725138724667e+04_dp, &
4162 1.7864187777650670e+04_dp, -9.5712259110815667e+03_dp, -1.4224742236571192e+04_dp, &
4163 6.2861882562494437e+04_dp, -1.3310141181211534e+05_dp, 1.9698892332270893e+05_dp, &
4164 -2.1146680880798530e+05_dp, 1.5786348899689523e+05_dp, -7.3269193628805137e+04_dp, &
4165 1.5867217147397359e+04_dp, 5.5329397744117472e+04_dp, -1.8590496792721553e-02_dp, &
4166 -9.5252723032791575e+04_dp, 1.1145715883398660e+05_dp, -2.5984748457593378e+04_dp, &
4167 -1.6824051744760206e+05_dp, 4.8493312244212057e+05_dp, -8.5016802056288661e+05_dp, &
4168 1.0575469301659723e+06_dp, -9.1592531311393599e+05_dp, 5.0087306406000553e+05_dp, &
4169 -1.3516194494539662e+05_dp, 4.9738319216673990e+03_dp, 4.0588762038136885e+05_dp, &
4170 -2.4363178639415667e-01_dp, -1.2048752475226286e+06_dp, 1.4098050382019044e+06_dp, &
4171 9.0383108002498816e+05_dp, -5.0245780711403918e+06_dp, 7.7751430360333202e+06_dp, &
4172 -4.9183263330898508e+06_dp, -5.5122178990547452e+06_dp, 1.8712359903900910e+07_dp, &
4173 -2.3939217503688838e+07_dp, 1.6218284186391968e+07_dp, -4.7629949218999417e+06_dp/)
4174 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.8855631887642382e-01_dp, &
4175 -8.1829231046632769e-02_dp, -1.8950903102790816e-02_dp, 1.1349898287774197e-02_dp, &
4176 5.7338935886024562e-03_dp, -3.6475885523936957e-03_dp, -2.1458998142384776e-03_dp, &
4177 1.4787405505064602e-03_dp, 1.8498537181843471e-03_dp, -1.9614757255708645e-03_dp, &
4178 2.8699603397392510e-04_dp, 3.2492719703003728e-04_dp, -1.2121707854025808e-04_dp, &
4179 5.9493156461017915e-01_dp, -2.8489994642562694e-01_dp, -4.7541679614047191e-02_dp, &
4180 4.4726439188938094e-02_dp, 1.3790272162181918e-02_dp, -1.5382737388282837e-02_dp, &
4181 -4.7841715747880403e-03_dp, 6.2784351364303555e-03_dp, 5.7333760277949548e-03_dp, &
4182 -9.0331645457294250e-03_dp, 3.7807714485503436e-03_dp, -1.8396222276796279e-04_dp, &
4183 -1.8364694814447738e-04_dp, 1.0949959297761693e+00_dp, -6.2009062084330724e-01_dp, &
4184 -3.7748088011084188e-02_dp, 1.1122644744095318e-01_dp, 6.8260044178406754e-03_dp, &
4185 -4.0370249812718174e-02_dp, -5.5457356283545060e-05_dp, 1.6531192945984253e-02_dp, &
4186 8.5778848944558107e-03_dp, -2.5250508617166625e-02_dp, 1.7117124110630336e-02_dp, &
4187 -5.0352617710504076e-03_dp, 5.0598347337982492e-04_dp, 1.7718966086100012e+00_dp, &
4188 -1.2253060640836630e+00_dp, 7.5765729412832300e-02_dp, 2.3434768509302889e-01_dp, &
4189 -4.2525503260917592e-02_dp, -8.5582364672439362e-02_dp, 2.5281751460349305e-02_dp, &
4190 3.4833638640193537e-02_dp, 3.6751693692180167e-03_dp, -5.3823028208479444e-02_dp, &
4191 4.8983441632312753e-02_dp, -1.9467338617706484e-02_dp, 3.0785669504690746e-03_dp, &
4192 2.7440213704191687e+00_dp, -2.3281411168383572e+00_dp, 4.3930618759633422e-01_dp, &
4193 4.2911680926061485e-01_dp, -1.9302208134528706e-01_dp, -1.4788624688089952e-01_dp, &
4194 9.7831155740447415e-02_dp, 5.8724172544457748e-02_dp, -2.7041547750709143e-02_dp, &
4195 -8.6324492364363792e-02_dp, 1.0519866830647166e-01_dp, -4.9884486746561728e-02_dp, &
4196 9.2457653338246029e-03_dp, 4.1894298957234364e+00_dp, -4.3191941088244246e+00_dp, &
4197 1.3686987339076067e+00_dp, 6.6657149222134049e-01_dp, -5.5741457317177090e-01_dp, &
4198 -1.9026437846512242e-01_dp, 2.6250861035098944e-01_dp, 6.9486254930157559e-02_dp, &
4199 -1.1978905880115075e-01_dp, -8.3501865329870154e-02_dp, 1.7398289631638658e-01_dp, &
4200 -9.8507600097967690e-02_dp, 2.0521730335798096e-02_dp, 6.3847973817046322e+00_dp, &
4201 -7.8795893221752813e+00_dp, 3.5278548969550236e+00_dp, 7.7209394256709085e-01_dp, &
4202 -1.3260774785983964e+00_dp, -8.5419091308552686e-02_dp, 5.7755377384646511e-01_dp, &
4203 7.2297671316667676e-03_dp, -3.2877429737301961e-01_dp, 5.4329500825053369e-02_dp, &
4204 1.9667270764503703e-01_dp, -1.5053976717237291e-01_dp, 3.5936788548594702e-02_dp, &
4205 9.7702622697290806e+00_dp, -1.4206713723167212e+01_dp, 8.2873928530423839e+00_dp, &
4206 1.5985839391104073e-01_dp, -2.7552157435202256e+00_dp, 5.0282122616039127e-01_dp, &
4207 1.0695678398638087e+00_dp, -2.7464467867173409e-01_dp, -6.9906236411372280e-01_dp, &
4208 5.2101436020119296e-01_dp, 1.9094129828846389e-02_dp, -1.4958848604568709e-01_dp, &
4209 4.7222211859139149e-02_dp, 1.5062823541404761e+01_dp, -2.5419370366400564e+01_dp, &
4210 1.8439365337386121e+01_dp, -2.8259558244586622e+00_dp, -4.9818385838230759e+00_dp, &
4211 2.3299538569069234e+00_dp, 1.5633478274790813e+00_dp, -1.0657994340246808e+00_dp, &
4212 -1.1646925905079819e+00_dp, 1.6169430708139660e+00_dp, -6.8586900071703705e-01_dp, &
4213 5.1235251652361868e-02_dp, 2.8103584030951066e-02_dp, 2.3472242707636227e+01_dp, &
4214 -4.5307745602761770e+01_dp, 3.9608173260058393e+01_dp, -1.2469876908780039e+01_dp, &
4215 -7.2257373755414482e+00_dp, 6.7879665547641341e+00_dp, 1.1935112761475244e+00_dp, &
4216 -2.7643113712900522e+00_dp, -1.2334897284577950e+00_dp, 3.5447845919979937e+00_dp, &
4217 -2.4336600487586937e+00_dp, 7.5137492324226218e-01_dp, -8.4754014224136878e-02_dp, &
4218 3.7181849843463610e+01_dp, -8.0854637759410053e+01_dp, 8.3057755018582043e+01_dp, &
4219 -3.9158151519184301e+01_dp, -5.2153320438563107e+00_dp, 1.5431055894370806e+01_dp, &
4220 -2.5633281395845020e+00_dp, -5.2800516403359623e+00_dp, 6.0861233401307058e-01_dp, &
4221 5.3386911924762455e+00_dp, -5.2478418325908383e+00_dp, 2.1981670777697651e+00_dp, &
4222 -3.6896267338134209e-01_dp, 6.0727490472197132e+01_dp, -1.4613546055640202e+02_dp, &
4223 1.7197354948450220e+02_dp, -1.0678616520983826e+02_dp, 1.5368848940430027e+01_dp, &
4224 2.6491023605600720e+01_dp, -1.4185436270935341e+01_dp, -6.0093236121070364e+00_dp, &
4225 6.0468948387099335e+00_dp, 3.8095072307193587e+00_dp, -7.1410151818281697e+00_dp, &
4226 3.7963272372520303e+00_dp, -7.5598613223750699e-01_dp, 1.0661517386729834e+02_dp, &
4227 -2.7755039079968356e+02_dp, 3.6291502644599831e+02_dp, -2.7257937328142549e+02_dp, &
4228 9.2825581734245375e+01_dp, 2.6166156567735605e+01_dp, -3.5739847667562742e+01_dp, &
4229 5.4601725492393982e-01_dp, 1.3032015168131986e+01_dp, -2.3134927090253932e+00_dp, &
4230 -6.3108826059815888e+00_dp, 4.6857674694757945e+00_dp, -1.0832084080117372e+00_dp, &
4231 2.3570689411128097e+02_dp, -6.4519456443598233e+02_dp, 9.0223673164973013e+02_dp, &
4232 -7.5922137375758791e+02_dp, 3.5264115885243655e+02_dp, -2.0989321935745537e+01_dp, &
4233 -6.8957744635106934e+01_dp, 1.6380082435687662e+01_dp, 2.3421535674813764e+01_dp, &
4234 -1.2505473268777655e+01_dp, -5.5686200874137679e+00_dp, 6.7565951949370930e+00_dp, &
4235 -1.7824763136779194e+00_dp, 1.5275739094339187e+00_dp, -6.8001171975001351e-01_dp, &
4236 -1.4605823697436165e-01_dp, 9.7828030861734694e-02_dp, 4.3904288873512894e-02_dp, &
4237 -3.2132952455475414e-02_dp, -1.6222343050214385e-02_dp, 1.3057021240371581e-02_dp, &
4238 1.5021168482517486e-02_dp, -1.7795844885780759e-02_dp, 4.1587460671975805e-03_dp, &
4239 1.8886977368616257e-03_dp, -8.6439907575529956e-04_dp, 1.7655488232124410e+00_dp, &
4240 -1.0043589160047419e+00_dp, -6.4881261437890497e-02_dp, 1.8408970278911196e-01_dp, &
4241 1.3505968144741386e-02_dp, -6.7697647980935388e-02_dp, -1.4104212623691880e-03_dp, &
4242 2.7789428772147087e-02_dp, 1.5476046749690131e-02_dp, -4.2895663223273178e-02_dp, &
4243 2.8323690685459327e-02_dp, -7.9885591764726257e-03_dp, 7.2098905617051475e-04_dp, &
4244 2.2893354930889771e+00_dp, -1.7662816033235220e+00_dp, 1.8403075477202577e-01_dp, &
4245 3.6407316931374950e-01_dp, -8.6454388639239418e-02_dp, -1.3732188470605050e-01_dp, &
4246 4.7671855898007404e-02_dp, 5.6196647324577562e-02_dp, 3.2014114180754462e-03_dp, &
4247 -8.9528747999384858e-02_dp, 8.4420352577280325e-02_dp, -3.4350841194717596e-02_dp, &
4248 5.5441745297109164e-03_dp, 3.2032258575320007e+00_dp, -3.2225125249560986e+00_dp, &
4249 8.1611931560454820e-01_dp, 6.3294842865066814e-01_dp, -3.4599308009457763e-01_dp, &
4250 -2.2371900126276956e-01_dp, 1.7236277609166772e-01_dp, 8.9265078243513069e-02_dp, &
4251 -5.3947604792708909e-02_dp, -1.3470741896044980e-01_dp, 1.7532582289902740e-01_dp, &
4252 -8.5701035571192671e-02_dp, 1.6222152583645552e-02_dp, 4.6899825303755200e+00_dp, &
4253 -5.8524582698866139e+00_dp, 2.2916446118015137e+00_dp, 9.1184997824365766e-01_dp, &
4254 -9.3131462349314253e-01_dp, -2.5350817564214317e-01_dp, 4.3807172987756571e-01_dp, &
4255 9.0958165596269375e-02_dp, -2.1576258659606037e-01_dp, -1.0117137327241729e-01_dp, &
4256 2.6846770077261650e-01_dp, -1.5994395563622057e-01_dp, 3.4270164544904627e-02_dp, &
4257 7.0536044987990474e+00_dp, -1.0515715134514387e+01_dp, 5.5637593381103434e+00_dp, &
4258 8.8711884475899694e-01_dp, -2.1104915247624749e+00_dp, -8.1670293239061807e-03_dp, &
4259 9.2046944679099196e-01_dp, -4.1741761795501105e-02_dp, -5.6379831367556721e-01_dp, &
4260 1.8783938079412943e-01_dp, 2.4581866594692456e-01_dp, -2.2071302879217192e-01_dp, &
4261 5.5588648839480607e-02_dp, 1.0795630733012548e+01_dp, -1.8740084666512331e+01_dp, &
4262 1.2578600627233692e+01_dp, -3.9401650322504667e-01_dp, -4.2184539233060248e+00_dp, &
4263 1.0568277055345616e+00_dp, 1.6271512205476346e+00_dp, -5.4967161451363589e-01_dp, &
4264 -1.1438065064071192e+00_dp, 1.0422345804455202e+00_dp, -1.6188730221930633e-01_dp, &
4265 -1.6095431410441777e-01_dp, 6.2846743147671746e-02_dp, 1.6752881329272565e+01_dp, &
4266 -3.3242655345938644e+01_dp, 2.7270848317691222e+01_dp, -5.5130334892731048e+00_dp, &
4267 -7.3490722258440666e+00_dp, 4.1336683392056157e+00_dp, 2.2217585152496331e+00_dp, &
4268 -1.8973233340123217e+00_dp, -1.7925847714925607e+00_dp, 2.8980257671054690e+00_dp, &
4269 -1.4704996700404205e+00_dp, 2.6049665793720700e-01_dp, 1.1444579602089748e-02_dp, &
4270 2.6366237165338223e+01_dp, -5.8894321733298867e+01_dp, 5.7521256562790946e+01_dp, &
4271 -2.1015040091428240e+01_dp, -1.0093110698669442e+01_dp, 1.1421770115513882e+01_dp, &
4272 1.2209454420475951e+00_dp, -4.7246394893237085e+00_dp, -1.6540481482401830e+00_dp, &
4273 6.0698584679024128e+00_dp, -4.5445980010104039e+00_dp, 1.5511339489005815e+00_dp, &
4274 -2.0629950073069225e-01_dp, 4.2291510559584431e+01_dp, -1.0465649315579324e+02_dp, &
4275 1.1897915051644942e+02_dp, -6.2607403829996528e+01_dp, -5.4209821188017733e+00_dp, &
4276 2.5469691021577223e+01_dp, -5.7934227183011000e+00_dp, -8.9450737399818969e+00_dp, &
4277 2.1130287274913053e+00_dp, 8.8579986644448212e+00_dp, -9.6059615158346361e+00_dp, &
4278 4.2847833469932413e+00_dp, -7.6136171546806874e-01_dp, 7.0150982322458802e+01_dp, &
4279 -1.8840659621861244e+02_dp, 2.4308030630616531e+02_dp, -1.6583105497089588e+02_dp, &
4280 3.0198027338055482e+01_dp, 4.3137539621256487e+01_dp, -2.7521349718582130e+01_dp, &
4281 -9.6205094694534150e+00_dp, 1.4155430281644003e+01_dp, 3.0610045263527681e+00_dp, &
4282 -1.1486453193732402e+01_dp, 6.8958779080000516e+00_dp, -1.4735848497004862e+00_dp, &
4283 1.2521662423711092e+02_dp, -3.5446949046616129e+02_dp, 5.0095178511895006e+02_dp, &
4284 -4.0924920293285766e+02_dp, 1.5804385724333696e+02_dp, 3.6770269869154461e+01_dp, &
4285 -6.7438382515530122e+01_dp, 8.2106438781909876e+00_dp, 2.7715716832749418e+01_dp, &
4286 -1.6544637350100938e+01_dp, -1.8960171584647745e+00_dp, 5.0230826620958835e+00_dp, &
4287 -1.4542149169175325e+00_dp, 2.6891905074142079e+02_dp, -7.7262572953372262e+02_dp, &
4288 1.1373217134902056e+03_dp, -1.0196332565900419e+03_dp, 5.2341144727679796e+02_dp, &
4289 -6.1641665846344743e+01_dp, -1.0165109376939833e+02_dp, 4.4685439920384923e+01_dp, &
4290 2.7038021992864703e+01_dp, -3.0106447966381346e+01_dp, 6.1843452503431493e+00_dp, &
4291 3.2384773408937977e+00_dp, -1.3899494804286554e+00_dp, 1.0072868276053762e+03_dp, &
4292 -2.8456064913973623e+03_dp, 4.1444213836381341e+03_dp, -3.7170886189465332e+03_dp, &
4293 1.9829818649289750e+03_dp, -3.8268355348089460e+02_dp, -2.1461243783889245e+02_dp, &
4294 9.3530786144130829e+01_dp, 8.1716992654821155e+01_dp, -6.6241416941144067e+01_dp, &
4295 -4.3199384438482218e+00_dp, 1.9601634716394887e+01_dp, -5.9258959456424520e+00_dp, &
4296 2.3570619090301786e-01_dp, -5.5162312535829566e-02_dp, -1.8870279804443474e-02_dp, &
4297 5.9631585077347333e-03_dp, 5.2228509160063231e-03_dp, -1.8582311804501090e-03_dp, &
4298 -2.0959249000252859e-03_dp, 6.5294058434205886e-04_dp, 1.3620688255760083e-03_dp, &
4299 -8.3422748679588279e-04_dp, -3.2153474478749297e-04_dp, 4.5243977001023549e-04_dp, &
4300 -1.2591995144422757e-04_dp, 7.6587911600589598e-01_dp, -2.0875636096653921e-01_dp, &
4301 -6.0166290603338807e-02_dp, 2.9038121823338276e-02_dp, 1.7462634992676026e-02_dp, &
4302 -9.9487645929256206e-03_dp, -7.1366951595613149e-03_dp, 3.6713354494958815e-03_dp, &
4303 5.4941565312529340e-03_dp, -5.1227538205351423e-03_dp, 3.8905702168758006e-04_dp, &
4304 1.1382083100254657e-03_dp, -3.9779179490065093e-04_dp, 1.4924251913695632e+00_dp, &
4305 -5.1831019334185813e-01_dp, -1.0671352469554986e-01_dp, 9.3839903685068102e-02_dp, &
4306 3.2490232771881414e-02_dp, -3.4916436688308940e-02_dp, -1.3379509563995902e-02_dp, &
4307 1.3447654845333435e-02_dp, 1.4076996424835847e-02_dp, -2.0087908870094155e-02_dp/)
4308 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/7.7725039723149673e-03_dp, &
4309 1.1145706792479703e-04_dp, -5.6097890673260616e-04_dp, 2.6197138414537928e+00_dp, &
4310 -1.1878855591113402e+00_dp, -1.3669541461047707e-01_dp, 2.5880924857422194e-01_dp, &
4311 3.9410663226141771e-02_dp, -1.0161291074659663e-01_dp, -1.4845376770825033e-02_dp, &
4312 4.0384191854304169e-02_dp, 2.9596626868951859e-02_dp, -6.2931154480019291e-02_dp, &
4313 3.6745945037802222e-02_dp, -8.3488837850756864e-03_dp, 2.5001869374288916e-04_dp, &
4314 4.4903769459069487e+00_dp, -2.6294155124375926e+00_dp, -5.5431338024852818e-02_dp, &
4315 6.4004292000876550e-01_dp, -1.1281945374730250e-02_dp, -2.5862693537498738e-01_dp, &
4316 1.5347628611049238e-02_dp, 1.0516496345674861e-01_dp, 4.7284909960751409e-02_dp, &
4317 -1.6707094690313704e-01_dp, 1.2446700525343438e-01_dp, -4.1183388221565025e-02_dp, &
4318 5.0811070975616355e-03_dp, 7.7146703444230118e+00_dp, -5.7066349635112275e+00_dp, &
4319 4.4359998413126639e-01_dp, 1.4564973028002151e+00_dp, -2.8264653691673164e-01_dp, &
4320 -5.8828533359250146e-01_dp, 1.6490349909564089e-01_dp, 2.4225156854407701e-01_dp, &
4321 2.9313258361025520e-02_dp, -3.8043499940822334e-01_dp, 3.4922268468144424e-01_dp, &
4322 -1.4038340165679025e-01_dp, 2.2435164708763913e-02_dp, 1.3420634891703846e+01_dp, &
4323 -1.2271053658859397e+01_dp, 2.2633203019324784e+00_dp, 3.0726848709689221e+00_dp, &
4324 -1.2487174695539813e+00_dp, -1.1832394997237425e+00_dp, 6.8072898930880155e-01_dp, &
4325 4.8388636378359617e-01_dp, -1.7386926345701451e-01_dp, -7.0971295084118979e-01_dp, &
4326 8.3444731110830883e-01_dp, -3.9085840738204530e-01_dp, 7.1877924239686128e-02_dp, &
4327 2.3755596487151276e+01_dp, -2.6373483711130035e+01_dp, 7.9674708316710250e+00_dp, &
4328 5.9098701221696377e+00_dp, -4.1849668364839099e+00_dp, -1.9539106200179810e+00_dp, &
4329 2.1803405618804597e+00_dp, 7.4953893987111575e-01_dp, -1.0194767520566530e+00_dp, &
4330 -8.6460471090210544e-01_dp, 1.6344868078214525e+00_dp, -9.0779850081241142e-01_dp, &
4331 1.8748507335135670e-01_dp, 4.2925038468224415e+01_dp, -5.7082416348496004e+01_dp, &
4332 2.4765245687853245e+01_dp, 9.6276167314465653e+00_dp, -1.2283278522629377e+01_dp, &
4333 -1.7758222239526547e+00_dp, 5.9861494789457375e+00_dp, 3.8161879101773316e-01_dp, &
4334 -3.6179634751249212e+00_dp, 5.5154525020794043e-01_dp, 2.1657632444483794e+00_dp, &
4335 -1.6489718555108390e+00_dp, 3.9384533483919071e-01_dp, 7.9426971888974009e+01_dp, &
4336 -1.2525063212940651e+02_dp, 7.3064335204686586e+01_dp, 9.0748492057192287e+00_dp, &
4337 -3.2688968221322831e+01_dp, 4.6389115697221399e+00_dp, 1.4061626099831328e+01_dp, &
4338 -3.4152596807585240e+00_dp, -9.7690378370180984e+00_dp, 7.9275061732557406e+00_dp, &
4339 -6.3075146750735867e-01_dp, -1.6211192224607696e+00_dp, 5.6714810234651192e-01_dp, &
4340 1.5111743347765383e+02_dp, -2.8035613867011256e+02_dp, 2.1163825913793113e+02_dp, &
4341 -2.3170413390173934e+01_dp, -7.7181490178355602e+01_dp, 3.6759610462492383e+01_dp, &
4342 2.4870389441934346e+01_dp, -1.9605319761356419e+01_dp, -1.8579389164179108e+01_dp, &
4343 3.0778110404354127e+01_dp, -1.6525494041464249e+01_dp, 3.4913991145457492e+00_dp, &
4344 -6.0347075936734364e-02_dp, 2.9794125234183332e+02_dp, -6.4468281291214532e+02_dp, &
4345 6.1350680831270904e+02_dp, -2.0829770735425490e+02_dp, -1.3833043913329655e+02_dp, &
4346 1.5148578230935769e+02_dp, 6.9315274799328979e+00_dp, -6.5837068538278658e+01_dp, &
4347 -5.7004307370424572e+00_dp, 7.0003047590575193e+01_dp, -6.1017865054790505e+01_dp, &
4348 2.3916329575898800e+01_dp, -3.7939335527980216e+00_dp, 6.2392037586903575e+02_dp, &
4349 -1.5490091248195286e+03_dp, 1.8055806125944553e+03_dp, -1.0360644128662241e+03_dp, &
4350 -2.3754789025977079e+00_dp, 4.1933356341119969e+02_dp, -1.8722583764205237e+02_dp, &
4351 -1.0263434903918866e+02_dp, 1.0213234231038781e+02_dp, 3.9318968261747074e+01_dp, &
4352 -9.2918679848214254e+01_dp, 5.1419134926361373e+01_dp, -1.0473717025421935e+01_dp, &
4353 1.5736554804419109e+03_dp, -4.3215073024710609e+03_dp, 5.8432235337189013e+03_dp, &
4354 -4.5330421089344291e+03_dp, 1.6066632187764733e+03_dp, 4.6048780056295902e+02_dp, &
4355 -7.0252498313679098e+02_dp, 9.1567126340641437e+01_dp, 2.1597646777874064e+02_dp, &
4356 -8.2131833864215508e+01_dp, -7.0306756274872612e+01_dp, 6.5598722538748618e+01_dp, &
4357 -1.6248587274560606e+01_dp, 1.9235349518444129e+00_dp, -4.6850080403507538e-01_dp, &
4358 -1.5364029163795673e-01_dp, 5.4610434870493545e-02_dp, 4.3121661743123693e-02_dp, &
4359 -1.7541190516424592e-02_dp, -1.7406011867825987e-02_dp, 6.2616285228102664e-03_dp, &
4360 1.1811592459976310e-02_dp, -8.2397883673727759e-03_dp, -1.8295153305730790e-03_dp, &
4361 3.5354495356089955e-03_dp, -1.0301987802026438e-03_dp, 2.4066428993785296e+00_dp, &
4362 -8.3136637617833942e-01_dp, -1.7886500853362544e-01_dp, 1.4914120143861584e-01_dp, &
4363 5.5966341016553810e-02_dp, -5.4968206983759794e-02_dp, -2.3425654868914157e-02_dp, &
4364 2.1010142579782284e-02_dp, 2.3289369427945999e-02_dp, -3.1028342173622683e-02_dp, &
4365 1.0636269323796589e-02_dp, 1.1399336207735340e-03_dp, -1.0908676737398028e-03_dp, &
4366 3.5374997704069169e+00_dp, -1.7739971394119649e+00_dp, -1.8178559222630922e-01_dp, &
4367 4.0632103157798233e-01_dp, 5.8516869919659278e-02_dp, -1.6056878832594537e-01_dp, &
4368 -2.3367297155693821e-02_dp, 6.3796767939619234e-02_dp, 4.7371253056304186e-02_dp, &
4369 -9.9633558625783894e-02_dp, 5.7560660830321013e-02_dp, -1.2736642321518233e-02_dp, &
4370 2.7575782625087675e-04_dp, 5.7011521784732837e+00_dp, -3.8423532249372361e+00_dp, &
4371 -2.9642882719094453e-03_dp, 9.8774471298748978e-01_dp, -3.1786519630271917e-02_dp, &
4372 -4.0451564192974432e-01_dp, 2.7198223261336543e-02_dp, 1.6513101391234630e-01_dp, &
4373 7.5034065435769917e-02_dp, -2.6516920000527039e-01_dp, 1.9761798053561705e-01_dp, &
4374 -6.5322652133406461e-02_dp, 8.0342411952895529e-03_dp, 9.6554344109573194e+00_dp, &
4375 -8.2331879085041422e+00_dp, 8.3524862618218354e-01_dp, 2.2044272451218019e+00_dp, &
4376 -4.7078752828290560e-01_dp, -9.0706474881686883e-01_dp, 2.6681861233539966e-01_dp, &
4377 3.7661042003703288e-01_dp, 4.5852032020570602e-02_dp, -6.0242502481174587e-01_dp, &
4378 5.5531680066652089e-01_dp, -2.2393716090138521e-01_dp, 3.5887703311978866e-02_dp, &
4379 1.6859940902920791e+01_dp, -1.7545862869698755e+01_dp, 3.6977782998502717e+00_dp, &
4380 4.5720615862129801e+00_dp, -1.9866126947412956e+00_dp, -1.8011363549668156e+00_dp, &
4381 1.0806874902511809e+00_dp, 7.4694472223237718e-01_dp, -2.7704282161362154e-01_dp, &
4382 -1.1227694450891366e+00_dp, 1.3298672608779971e+00_dp, -6.2600213805058025e-01_dp, &
4383 1.1557688164935315e-01_dp, 3.0155576587510065e+01_dp, -3.7501345657849221e+01_dp, &
4384 1.2398647864361692e+01_dp, 8.6755274737656904e+00_dp, -6.5226597957606725e+00_dp, &
4385 -2.9431221713683908e+00_dp, 3.4329970746320631e+00_dp, 1.1571252075338336e+00_dp, &
4386 -1.6281640072535604e+00_dp, -1.3658547679386668e+00_dp, 2.6187047264334584e+00_dp, &
4387 -1.4634970806763015e+00_dp, 3.0358383342450590e-01_dp, 5.5192028159048192e+01_dp, &
4388 -8.0962165488777188e+01_dp, 3.7555961619090525e+01_dp, 1.3994299732088162e+01_dp, &
4389 -1.8953701082797508e+01_dp, -2.6423170124495257e+00_dp, 9.4281011864102400e+00_dp, &
4390 6.1853673917080609e-01_dp, -5.8552996587823642e+00_dp, 9.3429973997614690e-01_dp, &
4391 3.5009224511745121e+00_dp, -2.6876808075590444e+00_dp, 6.4489189999489860e-01_dp, &
4392 1.0352661090439724e+02_dp, -1.7762218682439524e+02_dp, 1.0901655066345789e+02_dp, &
4393 1.3191430681842892e+01_dp, -5.0434357437755253e+01_dp, 7.0189212422942697e+00_dp, &
4394 2.2479507564050024e+01_dp, -5.1663403209676666e+00_dp, -1.6257258538476439e+01_dp, &
4395 1.3112384987334350e+01_dp, -1.0057705657907436e+00_dp, -2.7227979411177912e+00_dp, &
4396 9.5157750952935138e-01_dp, 1.9966810298056458e+02_dp, -3.9817155755323489e+02_dp, &
4397 3.1231785694487940e+02_dp, -3.2246955189265840e+01_dp, -1.2137675854903618e+02_dp, &
4398 5.5648852060851773e+01_dp, 4.2338485599882645e+01_dp, -3.0713631015622173e+01_dp, &
4399 -3.3372363691858347e+01_dp, 5.2473159250251847e+01_dp, -2.7472517355576315e+01_dp, &
4400 5.4871815877910279e+00_dp, 5.4181088396383879e-03_dp, 3.9842112960611036e+02_dp, &
4401 -9.1713248145130524e+02_dp, 8.9864978724752018e+02_dp, -2.9197223519853361e+02_dp, &
4402 -2.3777047005535999e+02_dp, 2.3747379514120729e+02_dp, 2.9189361759954174e+01_dp, &
4403 -1.1235024332118923e+02_dp, -2.5228006012287803e+01_dp, 1.3666058782503137e+02_dp, &
4404 -1.1319713359079486e+02_dp, 4.3059250023675311e+01_dp, -6.6306785236143213e+00_dp, &
4405 8.3643909862800683e+02_dp, -2.1911581438517564e+03_dp, 2.6233201738911630e+03_dp, &
4406 -1.4629002578603033e+03_dp, -1.5531076779586360e+02_dp, 7.5096190656559827e+02_dp, &
4407 -2.6513199393656015e+02_dp, -2.5306291751220505e+02_dp, 1.9176224755216879e+02_dp, &
4408 1.2171911094119822e+02_dp, -2.2483087333153333e+02_dp, 1.2085756124968174e+02_dp, &
4409 -2.4483946936633131e+01_dp, 1.9747033956733776e+03_dp, -5.6690082004591668e+03_dp, &
4410 7.9229880703795752e+03_dp, -6.2070030014723598e+03_dp, 1.9283153836933900e+03_dp, &
4411 1.2213601402606237e+03_dp, -1.4629461716889127e+03_dp, 1.7493772651497704e+02_dp, &
4412 6.0147021238394541e+02_dp, -4.2899362538784328e+02_dp, 5.2240406552156081e+01_dp, &
4413 5.8761089300646205e+01_dp, -2.1062064230578645e+01_dp, 7.3293182665232616e+03_dp, &
4414 -2.1390250361943301e+04_dp, 3.1430512423742246e+04_dp, -2.8054361932601565e+04_dp, &
4415 1.4411560239732573e+04_dp, -1.9245318108120027e+03_dp, -2.4770186693515961e+03_dp, &
4416 1.1408945117448648e+03_dp, 5.1709534814360416e+02_dp, -5.0521280755054079e+02_dp, &
4417 -3.5875569643025585e+01_dp, 1.5800852296117296e+02_dp, -4.8036967247801527e+01_dp, &
4418 2.6675516114666215e-01_dp, -3.0945355721284026e-02_dp, -1.7441440218854541e-02_dp, &
4419 2.3047365097519259e-03_dp, 4.6492436549931005e-03_dp, -1.2182731057025141e-04_dp, &
4420 -2.6753899877316541e-03_dp, 4.3133453711237618e-04_dp, 1.4760115578547502e-03_dp, &
4421 -6.7275877348429937e-04_dp, -5.0478172177037875e-04_dp, 5.2672478258151327e-04_dp, &
4422 -1.3681815219244913e-04_dp, 8.8716914786510592e-01_dp, -1.2489263551188355e-01_dp, &
4423 -6.6159449712017482e-02_dp, 1.3827016752023739e-02_dp, 1.9071901611964450e-02_dp, &
4424 -2.2900215117290321e-03_dp, -1.1259614209975406e-02_dp, 2.5040307358945432e-03_dp, &
4425 6.8228796479948492e-03_dp, -4.2395551594276134e-03_dp, -1.1853357048091078e-03_dp, &
4426 1.9375771856216684e-03_dp, -5.4683602988019086e-04_dp, 1.8085261758917643e+00_dp, &
4427 -3.4145203794204038e-01_dp, -1.6386900603394911e-01_dp, 5.5237575273534616e-02_dp, &
4428 5.2221001537078073e-02_dp, -1.3801174494884877e-02_dp, -3.2078301452457908e-02_dp, &
4429 1.0176963366296529e-02_dp, 2.2098874328449269e-02_dp, -1.8474914130739314e-02_dp, &
4430 1.0331691102100885e-03_dp, 4.1466751154130713e-03_dp, -1.4017603905798956e-03_dp, &
4431 3.3844323807837364e+00_dp, -8.6969086014254704e-01_dp, -3.7007448537416970e-01_dp, &
4432 1.8591067907939515e-01_dp, 1.2836223540354583e-01_dp, -5.7108370411460219e-02_dp, &
4433 -8.2699128673198688e-02_dp, 3.6214620670927643e-02_dp, 6.5374140319992780e-02_dp, &
4434 -6.9244074088779542e-02_dp, 1.8299747317206676e-02_dp, 5.5068417777118968e-03_dp, &
4435 -2.9577800214382753e-03_dp, 6.2831509132867023e+00_dp, -2.1503252769443533e+00_dp, &
4436 -7.9051209248628784e-01_dp, 5.6778852490396248e-01_dp, 2.8990581299559376e-01_dp, &
4437 -2.0042137877984503e-01_dp, -1.9784689657716242e-01_dp, 1.1942781843739504e-01_dp, &
4438 1.8202124035828973e-01_dp, -2.3777194345333863e-01_dp, 9.8820369139971026e-02_dp, &
4439 -6.2744671316908003e-03_dp, -4.3699523495120468e-03_dp, 1.1856221271082283e+01_dp, &
4440 -5.2568207235502564e+00_dp, -1.5969164750173954e+00_dp, 1.6461069205315015e+00_dp, &
4441 5.9172061051969216e-01_dp, -6.4697064642905655e-01_dp, -4.3622701630183242e-01_dp/)
4442 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/3.7852818456494469e-01_dp, &
4443 4.8067555347683755e-01_dp, -7.7452581263261322e-01_dp, 4.1934407249887440e-01_dp, &
4444 -8.9234614648328783e-02_dp, 1.6775465007990663e-03_dp, 2.2972132228999541e+01_dp, &
4445 -1.2898901071815617e+01_dp, -2.9797860863789967e+00_dp, 4.6560435611069622e+00_dp, &
4446 1.0045232845484455e+00_dp, -1.9936051302786315e+00_dp, -8.4531105176808208e-01_dp, &
4447 1.1798428768823785e+00_dp, 1.1850316641391561e+00_dp, -2.4272082281943557e+00_dp, &
4448 1.5965055566291400e+00_dp, -4.8094513367183356e-01_dp, 5.2209596934856856e-02_dp, &
4449 4.6003576082453456e+01_dp, -3.2201217855327890e+01_dp, -4.7001617664051283e+00_dp, &
4450 1.3071605527953821e+01_dp, 8.5579097973198270e-01_dp, -5.9644456694242445e+00_dp, &
4451 -1.1661056085226225e+00_dp, 3.6676542174044551e+00_dp, 2.5328675562596046e+00_dp, &
4452 -7.2813422948153237e+00_dp, 5.6732651577216711e+00_dp, -2.0778493148878012e+00_dp, &
4453 3.0597521984172754e-01_dp, 9.5841344366560733e+01_dp, -8.2867209315180261e+01_dp, &
4454 -3.6667980705527965e+00_dp, 3.6810280324243195e+01_dp, -3.9027065352258030e+00_dp, &
4455 -1.7352727135169747e+01_dp, 7.6980699945374509e-01_dp, 1.1432996249675226e+01_dp, &
4456 3.2078234224178548e+00_dp, -2.0167035286623779e+01_dp, 1.8815816418699637e+01_dp, &
4457 -7.9856869761396307e+00_dp, 1.3743706676833676e+00_dp, 2.0942078257013398e+02_dp, &
4458 -2.2297406228411018e+02_dp, 1.7976991795066482e+01_dp, 1.0433146940440160e+02_dp, &
4459 -3.3593272459503659e+01_dp, -4.7934874758223437e+01_dp, 1.6761961834599632e+01_dp, &
4460 3.5307462464268248e+01_dp, -1.0676959688175113e+01_dp, -4.5186467607051981e+01_dp, &
4461 5.5390800171275316e+01_dp, -2.7302072934110832e+01_dp, 5.2930427116892105e+00_dp, &
4462 4.8534437062529378e+02_dp, -6.3827294390772897e+02_dp, 1.5269862076475343e+02_dp, &
4463 2.9397876898906549e+02_dp, -1.8666196685194382e+02_dp, -1.1267861965482709e+02_dp, &
4464 1.0302221723226668e+02_dp, 1.0064780441992042e+02_dp, -1.2667959907993337e+02_dp, &
4465 -2.7955679739330272e+01_dp, 1.1636709243491977e+02_dp, -7.4278132336508548e+01_dp, &
4466 1.6627724231379677e+01_dp, 1.2129457544590350e+03_dp, -1.9898851218084496e+03_dp, &
4467 8.9667454269579969e+02_dp, 7.6499660811561989e+02_dp, -9.4460273295149761e+02_dp, &
4468 -7.9982084258437382e+01_dp, 4.9143681651282088e+02_dp, 1.7577870976013608e+02_dp, &
4469 -7.5560526889570701e+02_dp, 5.5420839419383049e+02_dp, -9.7827251223882456e+01_dp, &
4470 -6.5994619153302679e+01_dp, 2.7322580954253830e+01_dp, 3.3629380940608125e+03_dp, &
4471 -6.9947471832857618e+03_dp, 5.2569129046974813e+03_dp, 9.5662372221786302e+02_dp, &
4472 -4.5223771656660383e+03_dp, 2.1388578525409239e+03_dp, 1.4458258137230293e+03_dp, &
4473 -9.7995910573338404e+02_dp, -2.3056338385778722e+03_dp, 3.9539197752574801e+03_dp, &
4474 -2.7936521089069415e+03_dp, 1.0067700692768599e+03_dp, -1.5230449843591444e+02_dp, &
4475 1.1287607903620121e+04_dp, -2.9770904965426005e+04_dp, 3.5105294651488788e+04_dp, &
4476 -1.6371982820338246e+04_dp, -1.0740533254974671e+04_dp, 2.2130378005569939e+04_dp, &
4477 -1.3681292248100397e+04_dp, 1.5045907807150209e+03_dp, 1.5506170412673375e+03_dp, &
4478 1.7390235047408335e+03_dp, -3.3865390974169732e+03_dp, 1.9425096877525270e+03_dp, &
4479 -4.1245955612424916e+02_dp, 2.1894397151835716e+00_dp, -2.6731395928049057e-01_dp, &
4480 -1.4827254994752054e-01_dp, 2.2501949118577419e-02_dp, 4.0392878417795181e-02_dp, &
4481 -2.0509313301437277e-03_dp, -2.3398171933515566e-02_dp, 4.1436012276036211e-03_dp, &
4482 1.3239233793160993e-02_dp, -6.6345121073634033e-03_dp, -3.9199986704907238e-03_dp, &
4483 4.4620529455242711e-03_dp, -1.1821222579064985e-03_dp, 2.9104358928220684e+00_dp, &
4484 -5.4034884374736947e-01_dp, -2.6382498632517509e-01_dp, 8.3423398368213414e-02_dp, &
4485 8.3577127933356615e-02_dp, -1.9596957492619492e-02_dp, -5.0894988316946159e-02_dp, &
4486 1.5007727408384405e-02_dp, 3.4099429011554168e-02_dp, -2.6790339407196072e-02_dp, &
4487 -2.0861762641897246e-04_dp, 7.2003288329720860e-03_dp, -2.3042530203007294e-03_dp, &
4488 4.6854870375971425e+00_dp, -1.3091559374612594e+00_dp, -5.5604618168351427e-01_dp, &
4489 2.8363733949175418e-01_dp, 1.9722299942319932e-01_dp, -8.5724412786704784e-02_dp, &
4490 -1.2678366277947672e-01_dp, 5.3898967563011380e-02_dp, 9.9143592343204467e-02_dp, &
4491 -1.0221615198869149e-01_dp, 2.4645321523710888e-02_dp, 9.8027723202895409e-03_dp, &
4492 -4.7528229423811326e-03_dp, 8.3449364444476224e+00_dp, -3.1882784788266245e+00_dp, &
4493 -1.1623777798125512e+00_dp, 8.5932749444592937e-01_dp, 4.4006378157100107e-01_dp, &
4494 -3.0113783137236694e-01_dp, -3.0064333658838277e-01_dp, 1.7727771396624017e-01_dp, &
4495 2.7500235701742781e-01_dp, -3.5164491355954486e-01_dp, 1.4063352553582015e-01_dp, &
4496 -5.3061541860887768e-03_dp, -7.3941722723575680e-03_dp, 1.5695844879515739e+01_dp, &
4497 -7.7144784516164409e+00_dp, -2.3165992414383219e+00_dp, 2.4635839948403095e+00_dp, &
4498 8.9286928883939432e-01_dp, -9.6611614969126347e-01_dp, -6.6064108196517513e-01_dp, &
4499 5.5828529367439539e-01_dp, 7.2643541444293003e-01_dp, -1.1445679759723104e+00_dp, &
4500 6.0431143104611718e-01_dp, -1.2059693868497956e-01_dp, -2.0295090300914784e-04_dp, &
4501 3.0683428112515067e+01_dp, -1.8785984761642442e+01_dp, -4.2812807144192888e+00_dp, &
4502 6.9041136192452699e+00_dp, 1.5281967131175347e+00_dp, -2.9618491125087343e+00_dp, &
4503 -1.2909060055596731e+00_dp, 1.7294637699195108e+00_dp, 1.8115339805586135e+00_dp, &
4504 -3.5961083965134120e+00_dp, 2.3152629313913131e+00_dp, -6.7559378765190137e-01_dp, &
4505 6.8467347739389728e-02_dp, 6.2200394666586682e+01_dp, -4.6645513761643670e+01_dp, &
4506 -6.7361062081138403e+00_dp, 1.9252946239137508e+01_dp, 1.4565082813699259e+00_dp, &
4507 -8.8439939458906807e+00_dp, -1.8841850547213637e+00_dp, 5.3507933397910890e+00_dp, &
4508 4.0391961741194118e+00_dp, -1.0903704455343615e+01_dp, 8.2986239071848669e+00_dp, &
4509 -2.9674077434627351e+00_dp, 4.2355807369087978e-01_dp, 1.3120724805702122e+02_dp, &
4510 -1.1950869933893051e+02_dp, -5.5268211617968701e+00_dp, 5.3988318262052609e+01_dp, &
4511 -4.7298665550070194e+00_dp, -2.5840083994726847e+01_dp, 3.9210953422711342e-01_dp, &
4512 1.6659556581442590e+01_dp, 6.3342926153832790e+00_dp, -3.1128246651007331e+01_dp, &
4513 2.8060315969863534e+01_dp, -1.1623356406032910e+01_dp, 1.9545704467217686e+00_dp, &
4514 2.8992281668366485e+02_dp, -3.1986021667598641e+02_dp, 2.2957602830758823e+01_dp, &
4515 1.5295309506645341e+02_dp, -4.3977099689006337e+01_dp, -7.2842752827744860e+01_dp, &
4516 2.1240405440259895e+01_dp, 5.1988276730246653e+01_dp, -7.3415208227066628e+00_dp, &
4517 -7.6698168738036316e+01_dp, 8.6864530178114521e+01_dp, -4.1342020475172049e+01_dp, &
4518 7.8179704154115273e+00_dp, 6.7758098148149588e+02_dp, -9.0749625734977383e+02_dp, &
4519 1.9757172893678359e+02_dp, 4.3536816979902625e+02_dp, -2.4496931051749999e+02_dp, &
4520 -1.8568872790586860e+02_dp, 1.3676710116513863e+02_dp, 1.5660775089407684e+02_dp, &
4521 -1.4802736727848816e+02_dp, -1.0503595627665368e+02_dp, 2.1660252926971174e+02_dp, &
4522 -1.2550574533876951e+02_dp, 2.6842986324742590e+01_dp, 1.6983835710324086e+03_dp, &
4523 -2.7822602350002267e+03_dp, 1.1271088712112896e+03_dp, 1.1986681939191794e+03_dp, &
4524 -1.2298857533356895e+03_dp, -3.0022794237993980e+02_dp, 6.8655519186623917e+02_dp, &
4525 3.7926097327365630e+02_dp, -1.0131416464518528e+03_dp, 4.8887586578955757e+02_dp, &
4526 1.5852175267429436e+02_dp, -2.3155394891253087e+02_dp, 6.4867684171672508e+01_dp, &
4527 4.6647494493474896e+03_dp, -9.4718275026936517e+03_dp, 6.2415276573638348e+03_dp, &
4528 2.5681659744319936e+03_dp, -6.0603657311991774e+03_dp, 1.3404500115938827e+03_dp, &
4529 2.8367905176183167e+03_dp, -2.1312330539639728e+02_dp, -4.7786812976805413e+03_dp, &
4530 5.7342345176005756e+03_dp, -3.1010309026004620e+03_dp, 7.8357948046534830e+02_dp, &
4531 -5.9923253166677775e+01_dp, 1.4640183187865061e+04_dp, -3.7306916780068022e+04_dp, &
4532 3.8220031520362521e+04_dp, -6.2809044505597049e+03_dp, -2.6739415575057752e+04_dp, &
4533 2.5342729378908178e+04_dp, 1.2027700096180724e+03_dp, -1.4004701367972091e+04_dp, &
4534 -8.0202934875566336e+02_dp, 1.9450058535585955e+04_dp, -2.0396420577318539e+04_dp, &
4535 9.6146216278380598e+03_dp, -1.8456278447511768e+03_dp, 6.3728309588229160e+04_dp, &
4536 -1.9308392701878195e+05_dp, 2.8218302673358534e+05_dp, -2.2238214531146569e+05_dp, &
4537 3.7703671533692228e+04_dp, 1.3438185722279068e+05_dp, -1.8992995882626902e+05_dp, &
4538 1.4401513945138350e+05_dp, -7.4358417823577242e+04_dp, 2.9628900862353326e+04_dp, &
4539 -1.0445794075970865e+04_dp, 3.1174329654997350e+03_dp, -5.1375865413784766e+02_dp, &
4540 2.7795875304093992e-01_dp, -1.1508375559190450e-02_dp, -1.0528648097849034e-02_dp, &
4541 3.5980305121916505e-03_dp, -3.8046195921370984e-03_dp, 6.2928606186302520e-03_dp, &
4542 -7.1251215695943898e-03_dp, 6.9881088552248760e-03_dp, -6.6162502135251478e-03_dp, &
4543 5.4184133074171737e-03_dp, -3.2882049375220451e-03_dp, 1.2671473115865579e-03_dp, &
4544 -2.3060149967202290e-04_dp, 9.3295242665284350e-01_dp, -4.7623070133923896e-02_dp, &
4545 -4.2945598361340688e-02_dp, 1.6016174188036112e-02_dp, -1.5648429729476797e-02_dp, &
4546 2.6076911362094328e-02_dp, -2.9735563415651905e-02_dp, 2.8978847027043658e-02_dp, &
4547 -2.7276350421693667e-02_dp, 2.2330036824631784e-02_dp, -1.3565168762016968e-02_dp, &
4548 5.2270999974457248e-03_dp, -9.4990442008638116e-04_dp, 1.9360104180064521e+00_dp, &
4549 -1.3504439794671419e-01_dp, -1.1921435653077275e-01_dp, 5.0013006045341514e-02_dp, &
4550 -4.4100911881113043e-02_dp, 7.4033972248669144e-02_dp, -8.5347616016655026e-02_dp, &
4551 8.2444773869143534e-02_dp, -7.6903614035383622e-02_dp, 6.2915522354710013e-02_dp, &
4552 -3.8288814369473227e-02_dp, 1.4757779755536996e-02_dp, -2.6771107475512521e-03_dp, &
4553 3.7157437793497445e+00_dp, -3.5796615175869162e-01_dp, -3.0857012350133511e-01_dp, &
4554 1.4568419777186900e-01_dp, -1.1664877750278947e-01_dp, 1.9623630214417229e-01_dp, &
4555 -2.2916236385065755e-01_dp, 2.1940133178072269e-01_dp, -2.0246833223513266e-01_dp, &
4556 1.6546652950802851e-01_dp, -1.0094501676761625e-01_dp, 3.8944876117642600e-02_dp, &
4557 -7.0548301311543953e-03_dp, 7.1202810265841023e+00_dp, -9.2376909827681186e-01_dp, &
4558 -7.7556752166862253e-01_dp, 4.1180402375069397e-01_dp, -3.0219866001661555e-01_dp, &
4559 5.0555399088003872e-01_dp, -5.9930306647530585e-01_dp, 5.6887825139019754e-01_dp, &
4560 -5.1830619426463687e-01_dp, 4.2285671923122187e-01_dp, -2.5880981419593402e-01_dp, &
4561 1.0005085991364741e-01_dp, -1.8112309200688195e-02_dp, 1.3952971079099326e+01_dp, &
4562 -2.3685732416421441e+00_dp, -1.9287282183697398e+00_dp, 1.1570319194902128e+00_dp, &
4563 -7.8432675091254189e-01_dp, 1.2914143383187207e+00_dp, -1.5583873119306928e+00_dp, &
4564 1.4673017772412877e+00_dp, -1.3158217342584138e+00_dp, 1.0703445295466383e+00_dp, &
4565 -6.5795894538224242e-01_dp, 2.5527153608136027e-01_dp, -4.6237736535300604e-02_dp, &
4566 2.8263649428018645e+01_dp, -6.1403574477253944e+00_dp, -4.8190110843037894e+00_dp, &
4567 3.2973992582013865e+00_dp, -2.0826346006536562e+00_dp, 3.3265966189184617e+00_dp, &
4568 -4.1006380665334703e+00_dp, 3.8330107038269401e+00_dp, -3.3679881939021974e+00_dp, &
4569 2.7252672290525357e+00_dp, -1.6848847973698691e+00_dp, 6.5763593614104732e-01_dp, &
4570 -1.1942745604194921e-01_dp, 5.9663070196049929e+01_dp, -1.6360639408342024e+01_dp, &
4571 -1.2260457072232811e+01_dp, 9.7081093752801308e+00_dp, -5.7831301102621087e+00_dp, &
4572 8.7770738779350062e+00_dp, -1.1095172356986756e+01_dp, 1.0314862293028543e+01_dp, &
4573 -8.8233143705921826e+00_dp, 7.0699089843034164e+00_dp, -4.4024286308950149e+00_dp, &
4574 1.7350313146222107e+00_dp, -3.1699935067362639e-01_dp, 1.3246229877703036e+02_dp, &
4575 -4.5573195710967674e+01_dp, -3.2154929851246941e+01_dp, 3.0089567929013004e+01_dp/)
4576 REAL(kind=dp), DIMENSION(400), PARAMETER :: c04 = (/-1.7228109793468004e+01_dp, &
4577 2.4108285826088757e+01_dp, -3.1362122687167119e+01_dp, 2.9105748579791722e+01_dp, &
4578 -2.4011018345543842e+01_dp, 1.8874442598138845e+01_dp, -1.1844908362658735e+01_dp, &
4579 4.7389221341553531e+00_dp, -8.7620232886140437e-01_dp, 3.1319177678658934e+02_dp, &
4580 -1.3543802765633262e+02_dp, -8.7944249327211026e+01_dp, 1.0040343220265778e+02_dp, &
4581 -5.6926025700847731e+01_dp, 7.0347720403350522e+01_dp, -9.4219186285633356e+01_dp, &
4582 8.7905354648438234e+01_dp, -6.8986573372461578e+01_dp, 5.2100412701990848e+01_dp, &
4583 -3.2821779741733202e+01_dp, 1.3425508412863300e+01_dp, -2.5361926958927188e+00_dp, &
4584 8.0339006237151955e+02_dp, -4.4154448996371457e+02_dp, -2.5318298497317585e+02_dp, &
4585 3.7186998732251453e+02_dp, -2.1890233755863807e+02_dp, 2.2518951062497459e+02_dp, &
4586 -3.0685526869647856e+02_dp, 2.9150513350211389e+02_dp, -2.1341406154345805e+02_dp, &
4587 1.4697365335701707e+02_dp, -9.0644866260771636e+01_dp, 3.8104543183927014e+01_dp, &
4588 -7.4637665568833587e+00_dp, 2.3044953848651026e+03_dp, -1.6499343359986115e+03_dp, &
4589 -7.6329960501783944e+02_dp, 1.6025382549709414e+03_dp, -1.0575686504725684e+03_dp, &
4590 8.4751945418489061e+02_dp, -1.1070023776663299e+03_dp, 1.0916471478962596e+03_dp, &
4591 -7.2797923049358553e+02_dp, 3.9110381271759127e+02_dp, -2.0138082123320197e+02_dp, &
4592 8.3652333810026974e+01_dp, -1.7347611535672375e+01_dp, 7.8198644325855139e+03_dp, &
4593 -7.6691862797499716e+03_dp, -2.1277219734434225e+03_dp, 8.7238270472921049e+03_dp, &
4594 -7.3961781231503164e+03_dp, 4.6349606671658858e+03_dp, -4.4852525866010510e+03_dp, &
4595 4.4961185730836178e+03_dp, -2.6534205822788208e+03_dp, 4.4195703445871567e+02_dp, &
4596 4.6808102343591264e+02_dp, -3.3365812265666904e+02_dp, 7.3857858542740814e+01_dp, &
4597 3.6001520527708155e+04_dp, -5.3761146837784952e+04_dp, 7.3437178260156779e+03_dp, &
4598 6.7383560520903891e+04_dp, -1.0382851510328006e+05_dp, 8.2809008442700942e+04_dp, &
4599 -3.3648889547776744e+04_dp, -1.2152726558027885e+04_dp, 4.1767740945577811e+04_dp, &
4600 -5.0768326126419706e+04_dp, 3.9062230702036293e+04_dp, -1.8084327244239081e+04_dp, &
4601 3.8220474286796107e+03_dp, 2.2865375061568898e+00_dp, -1.0007118233392230e-01_dp, &
4602 -9.1205849541503861e-02_dp, 3.1914700695052964e-02_dp, -3.3024390409020138e-02_dp, &
4603 5.4742737190489880e-02_dp, -6.2096136424361001e-02_dp, 6.0798325126475448e-02_dp, &
4604 -5.7475761170505700e-02_dp, 4.7065964441797066e-02_dp, -2.8569616417685219e-02_dp, &
4605 1.1009159982093808e-02_dp, -2.0027154539687037e-03_dp, 3.1115361446896435e+00_dp, &
4606 -2.1232738914527213e-01_dp, -1.8819487078015418e-01_dp, 7.7315071595482399e-02_dp, &
4607 -6.9322784492525144e-02_dp, 1.1642512083091060e-01_dp, -1.3389325658449983e-01_dp, &
4608 1.2953231476076033e-01_dp, -1.2106215221167207e-01_dp, 9.9062132162017258e-02_dp, &
4609 -6.0257874244903968e-02_dp, 2.3219784186475492e-02_dp, -4.2129071313934735e-03_dp, &
4610 5.1842137469273535e+00_dp, -5.3869903618846926e-01_dp, -4.6467926474567495e-01_dp, &
4611 2.1884730673172473e-01_dp, -1.7511335735521882e-01_dp, 2.9552329416544632e-01_dp, &
4612 -3.4478150622705367e-01_dp, 3.3007122270082284e-01_dp, -3.0482944942907819e-01_dp, &
4613 2.4917344203144623e-01_dp, -1.5196363061763693e-01_dp, 5.8604719193897523e-02_dp, &
4614 -1.0613235696316487e-02_dp, 9.5870634342206369e+00_dp, -1.3711377799260795e+00_dp, &
4615 -1.1512181070647907e+00_dp, 6.1170380517292722e-01_dp, -4.4707416132200822e-01_dp, &
4616 7.5102145460616387e-01_dp, -8.8972944046919122e-01_dp, 8.4414679164287010e-01_dp, &
4617 -7.6958368953859069e-01_dp, 6.2806586528884911e-01_dp, -3.8429278159433666e-01_dp, &
4618 1.4848195960403690e-01_dp, -2.6866781887765284e-02_dp, 1.8775367525208154e+01_dp, &
4619 -3.4798037363209451e+00_dp, -2.8341983855308737e+00_dp, 1.7006763707506694e+00_dp, &
4620 -1.1475201905709496e+00_dp, 1.8990746846216189e+00_dp, -2.2902563189929959e+00_dp, &
4621 2.1549148240268319e+00_dp, -1.9340794515934272e+00_dp, 1.5741729298799292e+00_dp, &
4622 -9.6735481018495850e-01_dp, 3.7504025715761041e-01_dp, -6.7883194547012568e-02_dp, &
4623 3.8394133622760471e+01_dp, -8.9466981562030412e+00_dp, -7.0282409736060609e+00_dp, &
4624 4.7994825716760108e+00_dp, -3.0169750276153215e+00_dp, 4.8524390956684931e+00_dp, &
4625 -5.9767609648935736e+00_dp, 5.5816268619870462e+00_dp, -4.9114774016645590e+00_dp, &
4626 3.9786679592871335e+00_dp, -2.4588990184794475e+00_dp, 9.5872721501601932e-01_dp, &
4627 -1.7391335067678992e-01_dp, 8.1981262849015678e+01_dp, -2.3666893439637072e+01_dp, &
4628 -1.7784927738480093e+01_dp, 1.3988139300590353e+01_dp, -8.2896531742092350e+00_dp, &
4629 1.2715968834351342e+01_dp, -1.6055214717081412e+01_dp, 1.4906635835795530e+01_dp, &
4630 -1.2785323476847376e+01_dp, 1.0268923034784310e+01_dp, -6.3923625597427707e+00_dp, &
4631 2.5150132422925426e+00_dp, -4.5864970193217036e-01_dp, 1.8391160612598173e+02_dp, &
4632 -6.5390879598833081e+01_dp, -4.6443209608932030e+01_dp, 4.2801184197871855e+01_dp, &
4633 -2.4328927514598988e+01_dp, 3.4666363971514954e+01_dp, -4.5025337204534765e+01_dp, &
4634 4.1693953701520407e+01_dp, -3.4572251788912048e+01_dp, 2.7325062230277453e+01_dp, &
4635 -1.7152184655455500e+01_dp, 6.8433372267470105e+00_dp, -1.2610819268429596e+00_dp, &
4636 4.3796390510262017e+02_dp, -1.9195269795546488e+02_dp, -1.2647230203731048e+02_dp, &
4637 1.4008459142409632e+02_dp, -7.8348031326383392e+01_dp, 9.9970385018688177e+01_dp, &
4638 -1.3379095649086614e+02_dp, 1.2428806571516949e+02_dp, -9.8477370673399108e+01_dp, &
4639 7.5392430125667914e+01_dp, -4.7653420100430495e+01_dp, 1.9413552472266861e+01_dp, &
4640 -3.6453602426561473e+00_dp, 1.1243161739960412e+03_dp, -6.1212969783621759e+02_dp, &
4641 -3.6255926320818696e+02_dp, 5.0245861498975745e+02_dp, -2.8720395504014408e+02_dp, &
4642 3.1238265825952902e+02_dp, -4.2845042492346460e+02_dp, 4.0342871100091708e+02_dp, &
4643 -3.0042323465953200e+02_dp, 2.1481280954412966e+02_dp, -1.3503140509729658e+02_dp, &
4644 5.6622775693708434e+01_dp, -1.0979355574831448e+01_dp, 3.1860045248229740e+03_dp, &
4645 -2.1911750278244835e+03_dp, -1.0979433579892768e+03_dp, 2.0455378472242323e+03_dp, &
4646 -1.2650045628271755e+03_dp, 1.1053428711376532e+03_dp, -1.5077317283874904e+03_dp, &
4647 1.4637188657276913e+03_dp, -1.0022416048330521e+03_dp, 6.0744063403024404e+02_dp, &
4648 -3.5491809474315596e+02_dp, 1.5302472467201832e+02_dp, -3.1334099788707611e+01_dp, &
4649 1.0369219521864628e+04_dp, -9.2957237022933496e+03_dp, -3.3928819922045304e+03_dp, &
4650 9.9967321591592136e+03_dp, -7.3074927639255448e+03_dp, 4.9261330266433706e+03_dp, &
4651 -5.9355709483907294e+03_dp, 6.0546709760503109e+03_dp, -3.7342004116968578e+03_dp, &
4652 1.3546695864229043e+03_dp, -3.3203558186954626e+02_dp, 9.8087982450693005e+01_dp, &
4653 -2.5243614322976278e+01_dp, 4.1857193674808586e+04_dp, -5.1932163797323534e+04_dp, &
4654 -6.6662468997263541e+03_dp, 6.4686288551278376e+04_dp, -6.5456790256758810e+04_dp, &
4655 3.8148473534729375e+04_dp, -2.6150038718665659e+04_dp, 2.4469246590260118e+04_dp, &
4656 -1.2503913145751001e+04_dp, -4.7022652434212587e+03_dp, 1.1183043091421301e+04_dp, &
4657 -6.6810238092235504e+03_dp, 1.5108300867808391e+03_dp, 2.5791029976014077e+05_dp, &
4658 -4.9175046576096409e+05_dp, 2.1233667264455085e+05_dp, 5.8463884123176278e+05_dp, &
4659 -1.3091052712645272e+06_dp, 1.3418160613037723e+06_dp, -5.8138326599118719e+05_dp, &
4660 -5.2549948487002426e+05_dp, 1.3542841741758550e+06_dp, -1.5110583922361752e+06_dp, &
4661 1.0622068635754019e+06_dp, -4.5309312113443937e+05_dp, 8.9720576460898301e+04_dp, &
4662 2.8045183132902857e-01_dp, -2.7574727763525926e-09_dp, -1.4802663783945194e-02_dp, &
4663 1.7321648653547309e-02_dp, -2.0314993734315081e-02_dp, 1.2188204632943614e-02_dp, &
4664 2.0453784311654996e-02_dp, -8.6946069733443987e-02_dp, 1.7538269591846428e-01_dp, &
4665 -2.3808144401169168e-01_dp, 2.1890014297902782e-01_dp, -1.2347609817248510e-01_dp, &
4666 3.2209458319119928e-02_dp, 9.4329847413827783e-01_dp, -1.1481913919029099e-08_dp, &
4667 -6.1604975697409345e-02_dp, 7.2088324040036539e-02_dp, -8.3499507949812257e-02_dp, &
4668 4.8263387714568257e-02_dp, 8.9536268205010608e-02_dp, -3.6778510358608535e-01_dp, &
4669 7.3540775557696592e-01_dp, -9.9349209869932542e-01_dp, 9.1038678244132876e-01_dp, &
4670 -5.1222364328553327e-01_dp, 1.3335054733354942e-01_dp, 1.9654700761868769e+00_dp, &
4671 -3.2854337036704686e-08_dp, -1.7614103276566062e-01_dp, 2.0611488927720040e-01_dp, &
4672 -2.3440872269300381e-01_dp, 1.2780362813152599e-01_dp, 2.7418366288979301e-01_dp, &
4673 -1.0758527122495292e+00_dp, 2.1248452756492062e+00_dp, -2.8506473734734499e+00_dp, &
4674 2.5994713960584761e+00_dp, -1.4571442401661396e+00_dp, 3.7823535850863244e-01_dp, &
4675 3.7941873168540208e+00_dp, -8.7953097131811444e-08_dp, -4.7113570657516318e-01_dp, &
4676 5.5130825970707775e-01_dp, -6.1431256183219685e-01_dp, 3.1203070731979304e-01_dp, &
4677 7.8613980333408151e-01_dp, -2.9472754643680608e+00_dp, 5.7453376661729898e+00_dp, &
4678 -7.6498729270533463e+00_dp, 6.9384231145105142e+00_dp, -3.8732848550438543e+00_dp, &
4679 1.0020928498724406e+00_dp, 7.3237070985773096e+00_dp, -2.2941985723774246e-07_dp, &
4680 -1.2277519929151568e+00_dp, 1.4366756798913567e+00_dp, -1.5650422648304791e+00_dp, &
4681 7.2887187219335803e-01_dp, 2.1962398474654630e+00_dp, -7.8721698163374203e+00_dp, &
4682 1.5136322777799633e+01_dp, -1.9990503168612264e+01_dp, 1.8024781758740165e+01_dp, &
4683 -1.0015971255468424e+01_dp, 2.5817837059480153e+00_dp, 1.4477457547611932e+01_dp, &
4684 -5.9542599972157469e-07_dp, -3.1829060629238062e+00_dp, 3.7245298868254464e+00_dp, &
4685 -3.9522312305350300e+00_dp, 1.6423393285449270e+00_dp, 6.1216563001120274e+00_dp, &
4686 -2.0953918860770138e+01_dp, 3.9686837113822115e+01_dp, -5.1935176897343290e+01_dp, &
4687 4.6512173586647570e+01_dp, -2.5707915801780647e+01_dp, 6.5979718743648332e+00_dp, &
4688 2.9632190699838180e+01_dp, -1.5657622900881051e-06_dp, -8.3586532272678387e+00_dp, &
4689 9.7810033020084397e+00_dp, -1.0055079501227743e+01_dp, 3.5508201891380611e+00_dp, &
4690 1.7377218506217933e+01_dp, -5.6648334572026592e+01_dp, 1.0547111094388774e+02_dp, &
4691 -1.3654326425592572e+02_dp, 1.2129760971899201e+02_dp, -6.6608157929477457e+01_dp, &
4692 1.7004088480309473e+01_dp, 6.3338122170095403e+01_dp, -4.2444484549751587e-06_dp, &
4693 -2.2620321314472132e+01_dp, 2.6469466355873809e+01_dp, -2.6151213910751117e+01_dp, &
4694 7.1147272422339958e+00_dp, 5.1213821549050515e+01_dp, -1.5836988990793796e+02_dp, &
4695 2.8901910480803514e+02_dp, -3.6930520446037576e+02_dp, 3.2477605951571485e+02_dp, &
4696 -1.7687999522963116e+02_dp, 4.4846043091496973e+01_dp, 1.4279947172069063e+02_dp, &
4697 -1.2080229456795278e-05_dp, -6.4239399665069129e+01_dp, 7.5170425103726117e+01_dp, &
4698 -7.0510474822968519e+01_dp, 1.1363573169598904e+01_dp, 1.5996866863552859e+02_dp, &
4699 -4.6665591365326327e+02_dp, 8.3131873091270222e+02_dp, -1.0448759235890909e+03_dp, &
4700 9.0690542685405194e+02_dp, -4.8852833718934801e+02_dp, 1.2271331760718991e+02_dp, &
4701 3.4430186167302065e+02_dp, -3.6917560063034570e-05_dp, -1.9573425600940379e+02_dp, &
4702 2.2903991435173910e+02_dp, -1.9998078868584736e+02_dp, -3.6337191265627644e-01_dp, &
4703 5.4328299769275566e+02_dp, -1.4832817481049449e+03_dp, 2.5633679410315954e+03_dp, &
4704 -3.1519867754826223e+03_dp, 2.6865378429486905e+03_dp, -1.4246759516690913e+03_dp, &
4705 3.5301663828659417e+02_dp, 9.0657027822430757e+02_dp, -1.2505227876874551e-04_dp, &
4706 -6.6016663782193780e+02_dp, 7.7249587755502171e+02_dp, -6.0564642881603584e+02_dp, &
4707 -1.6334533603788654e+02_dp, 2.0809169575290675e+03_dp, -5.2520819705711947e+03_dp, &
4708 8.7142803953445527e+03_dp, -1.0381449011333283e+04_dp, 8.6066748064158692e+03_dp, &
4709 -4.4514243053148093e+03_dp, 1.0783194357224340e+03_dp, 2.6999974727364965e+03_dp/)
4710 REAL(kind=dp), DIMENSION(13, 28, 5), PARAMETER :: &
4711 coefdata = reshape((/c01, c02, c03, c04, c05/), (/13, 28, 5/))
4712
4713 INTEGER :: irange
4714
4715 IF (rc <= 1.0000000000000000e+01_dp) rc = 1.0000000000000000e+01_dp
4716 IF (rc >= 2.7148483276367188e+05_dp) rc = 2.7148483276367188e+05_dp
4717 IF (rc >= 1.0000000000000000e+01_dp .AND. rc <= 1.0920229970956126e+02_dp) THEN
4718 irange = 1
4719 l_b = 1.0000000000000000e+01_dp
4720 u_b = 1.0920229970956126e+02_dp
4721 END IF
4722 IF (rc >= 1.0920229970956126e+02_dp .AND. rc <= 1.1839524369543471e+03_dp) THEN
4723 irange = 2
4724 l_b = 1.0920229970956126e+02_dp
4725 u_b = 1.1839524369543471e+03_dp
4726 END IF
4727 IF (rc >= 1.1839524369543471e+03_dp .AND. rc <= 1.5414599739111178e+04_dp) THEN
4728 irange = 3
4729 l_b = 1.1839524369543471e+03_dp
4730 u_b = 1.5414599739111178e+04_dp
4731 END IF
4732 IF (rc >= 1.5414599739111178e+04_dp .AND. rc <= 9.3151526902721278e+04_dp) THEN
4733 irange = 4
4734 l_b = 1.5414599739111178e+04_dp
4735 u_b = 9.3151526902721278e+04_dp
4736 END IF
4737 IF (rc >= 9.3151526902721278e+04_dp .AND. rc <= 2.7148483276367188e+05_dp) THEN
4738 irange = 5
4739 l_b = 9.3151526902721278e+04_dp
4740 u_b = 2.7148483276367188e+05_dp
4741 END IF
4742
4743 fit_coef(1:13, 1:28) = coefdata(1:13, 1:28, irange)
4744
4745 END SUBROUTINE get_fit_coef_k14
4746
4747! **************************************************************************************************
4748!> \brief ...
4749!> \param Rc ...
4750!> \param L_b ...
4751!> \param U_b ...
4752!> \param fit_coef ...
4753! **************************************************************************************************
4754 SUBROUTINE get_fit_coef_k15(Rc, L_b, U_b, fit_coef)
4755 REAL(kind=dp) :: rc, l_b, u_b
4756 REAL(kind=dp), DIMENSION(13, 30) :: fit_coef
4757
4758 REAL(kind=dp), DIMENSION(350), PARAMETER :: c05 = (/-3.0692468631051978e-08_dp, &
4759 -3.9609383383921665e-01_dp, 4.7587580740675417e-01_dp, -5.5706375318965173e-01_dp, &
4760 3.4546263714113901e-01_dp, 5.4776062905207357e-01_dp, -2.4141552540426781e+00_dp, &
4761 4.9577847041515470e+00_dp, -6.8295343742172383e+00_dp, 6.3573367557181761e+00_dp, &
4762 -3.6226122444655293e+00_dp, 9.5268597153976176e-01_dp, 6.6179227443553872e+00_dp, &
4763 -7.7387082815093436e-08_dp, -9.9678078330036968e-01_dp, 1.1975533847961941e+00_dp, &
4764 -1.3762136834418899e+00_dp, 8.0743054822484472e-01_dp, 1.4912431514031330e+00_dp, &
4765 -6.2314927241780405e+00_dp, 1.2629990199235216e+01_dp, -1.7275639875772516e+01_dp, &
4766 1.6004550790906951e+01_dp, -9.0878072804552286e+00_dp, 2.3834753802899566e+00_dp, &
4767 1.2682718868072019e+01_dp, -1.9334328719304757e-07_dp, -2.4848694599881327e+00_dp, &
4768 2.9853718860501335e+00_dp, -3.3596378831067573e+00_dp, 1.8411087716077625e+00_dp, &
4769 4.0272695241999301e+00_dp, -1.5957538805213288e+01_dp, 3.1889777329262149e+01_dp, &
4770 -4.3281478360785940e+01_dp, 3.9883474913142209e+01_dp, -2.2556907487546944e+01_dp, &
4771 5.8978299479488649e+00_dp, 2.5023174807569418e+01_dp, -4.8642081259672986e-07_dp, &
4772 -6.2351984490271315e+00_dp, 7.4910846767260342e+00_dp, -8.2248711412084816e+00_dp, &
4773 4.1238878257772091e+00_dp, 1.0990309451485148e+01_dp, -4.1230623601049615e+01_dp, &
4774 8.1118417047199273e+01_dp, -1.0912326990788030e+02_dp, 9.9935525762372606e+01_dp, &
4775 -5.6257102890489350e+01_dp, 1.4655642668172396e+01_dp, 5.1192402268189625e+01_dp, &
4776 -1.2506631640235665e-06_dp, -1.5980438605202909e+01_dp, 1.9199175975593889e+01_dp, &
4777 -2.0457978476944227e+01_dp, 9.0671788455391216e+00_dp, 3.0813008462505493e+01_dp, &
4778 -1.0915584619445536e+02_dp, 2.1098187077206578e+02_dp, -2.8088454943931174e+02_dp, &
4779 2.5533840000208855e+02_dp, -1.4292670658071711e+02_dp, 3.7067966084892596e+01_dp, &
4780 1.0941038451297312e+02_dp, -3.3354017068023612e-06_dp, -4.2446927792656162e+01_dp, &
4781 5.0996396254497533e+01_dp, -5.2338301546774389e+01_dp, 1.9247992459076787e+01_dp, &
4782 9.0228533336751497e+01_dp, -3.0069997073722988e+02_dp, 5.6936309163352882e+02_dp, &
4783 -7.4856520686405372e+02_dp, 6.7429591378758153e+02_dp, -3.7476540313467729e+02_dp, &
4784 9.6644172995788892e+01_dp, 2.4666624220966949e+02_dp, -9.3826543851981905e-06_dp, &
4785 -1.1877946256653507e+02_dp, 1.4270319798697713e+02_dp, -1.3946465595615874e+02_dp, &
4786 3.6961694322931955e+01_dp, 2.8120044470115204e+02_dp, -8.7706262371593266e+02_dp, &
4787 1.6203584176977990e+03_dp, -2.0972847074266356e+03_dp, 1.8671502744648556e+03_dp, &
4788 -1.0280983406275520e+03_dp, 2.6312195463073755e+02_dp, 5.9473096717460919e+02_dp, &
4789 -2.8449948791129570e-05_dp, -3.5758635317581138e+02_dp, 4.2960773213012766e+02_dp, &
4790 -3.9251600529353743e+02_dp, 4.5183929392732445e+01_dp, 9.5587078733574140e+02_dp, &
4791 -2.7694370693632336e+03_dp, 4.9627218611957405e+03_dp, -6.2929514552940627e+03_dp, &
4792 5.5135886103861476e+03_dp, -2.9965165662533723e+03_dp, 7.5862722603535246e+02_dp, &
4793 1.5659660472206674e+03_dp, -9.5986179588260765e-05_dp, -1.1939116417183877e+03_dp, &
4794 1.4343713151150068e+03_dp, -1.1851399647021360e+03_dp, -1.5231964375206397e+02_dp, &
4795 3.6741780805293706e+03_dp, -9.7734189198990425e+03_dp, 1.6822530274757435e+04_dp, &
4796 -2.0720426077965767e+04_dp, 1.7726884301747647e+04_dp, -9.4410952942756994e+03_dp, &
4797 2.3490775569298803e+03_dp, 4.6638457658101452e+03_dp, -3.8015552197131998e-04_dp, &
4798 -4.6500281550825130e+03_dp, 5.5865303975222787e+03_dp, -3.8837673064102523e+03_dp, &
4799 -2.3640043516048258e+03_dp, 1.6965406299396385e+04_dp, -4.0565840455321268e+04_dp, &
4800 6.5811540329868585e+04_dp, -7.7320579116722583e+04_dp, 6.3441897875273360e+04_dp, &
4801 -3.2532774480567186e+04_dp, 7.8216440760836831e+03_dp, 1.6825213139968786e+04_dp, &
4802 -1.9715775615195739e-03_dp, -2.3368672017163331e+04_dp, 2.8074707632439560e+04_dp, &
4803 -1.3055332264394696e+04_dp, -2.7517846784628873e+04_dp, 1.0619501478660316e+05_dp, &
4804 -2.1693608692558491e+05_dp, 3.1502086695178028e+05_dp, -3.3334547694157349e+05_dp, &
4805 2.4553599204317702e+05_dp, -1.1238955180628877e+05_dp, 2.3972326899658266e+04_dp, &
4806 8.8035762654044956e+04_dp, -1.8243112038117435e-02_dp, -2.0014249841264417e+05_dp, &
4807 2.4044019203317922e+05_dp, 3.2918527777915639e+04_dp, -5.8564151349304337e+05_dp, &
4808 1.2278214162309726e+06_dp, -1.5862044513149876e+06_dp, 1.2269856342422077e+06_dp, &
4809 -1.6000752081890625e+05_dp, -8.0881279434379749e+05_dp, 8.5894001577282173e+05_dp, &
4810 -3.0531479437217204e+05_dp, 2.2298855158487991e+00_dp, -9.0336389369874778e-09_dp, &
4811 -1.1705905877090302e-01_dp, 1.4063753695885436e-01_dp, -1.7131704892021460e-01_dp, &
4812 1.1823577935867260e-01_dp, 1.3211160731762517e-01_dp, -6.7148667896732095e-01_dp, &
4813 1.4224586147700080e+00_dp, -1.9911772021989478e+00_dp, 1.8732253894330964e+00_dp, &
4814 -1.0756592628497046e+00_dp, 2.8453654479619789e-01_dp, 2.9930213382361659e+00_dp, &
4815 -1.8670378462002057e-08_dp, -2.4143656806336988e-01_dp, 2.9006740649273083e-01_dp, &
4816 -3.4629089408668917e-01_dp, 2.2683680893051139e-01_dp, 3.0404690414859736e-01_dp, &
4817 -1.4297696355269953e+00_dp, 2.9800638894488669e+00_dp, -4.1371932160927800e+00_dp, &
4818 3.8711217608603641e+00_dp, -2.2142406528000071e+00_dp, 5.8398891025144894e-01_dp, &
4819 4.8875160233343715e+00_dp, -4.6204570149850092e-08_dp, -5.9629866259653674e-01_dp, &
4820 7.1640628120411509e-01_dp, -8.3868041124278481e-01_dp, 5.2019826135940084e-01_dp, &
4821 8.2463242915711699e-01_dp, -3.6348492405505075e+00_dp, 7.4650304783387114e+00_dp, &
4822 -1.0283768881675757e+01_dp, 9.5730498855986266e+00_dp, -5.4551689976883058e+00_dp, &
4823 1.4346476675560549e+00_dp, 8.8414991600481354e+00_dp, -1.1482774693269792e-07_dp, &
4824 -1.4789938872294259e+00_dp, 1.7768943240759401e+00_dp, -2.0408571717597774e+00_dp, &
4825 1.1953236620504990e+00_dp, 2.2183761876611556e+00_dp, -9.2555318513362081e+00_dp, &
4826 1.8752221113980344e+01_dp, -2.5645072882046485e+01_dp, 2.3755380780125787e+01_dp, &
4827 -1.3487795474893785e+01_dp, 3.5372434275309308e+00_dp, 1.6909293215817328e+01_dp, &
4828 -2.8397263995252731e-07_dp, -3.6495531995060122e+00_dp, 4.3846461857239438e+00_dp, &
4829 -4.9313380943000595e+00_dp, 2.6968368321956553e+00_dp, 5.9302864628254115e+00_dp, &
4830 -2.3462796400928930e+01_dp, 4.6870864451652814e+01_dp, -6.3602080860714842e+01_dp, &
4831 5.8601551184019506e+01_dp, -3.3140382879672700e+01_dp, 8.6644568567671278e+00_dp, &
4832 3.3671685943037645e+01_dp, -7.0886445358394887e-07_dp, -9.0866956422509908e+00_dp, &
4833 1.0916927061893476e+01_dp, -1.1982122131221457e+01_dp, 5.9998216294135123e+00_dp, &
4834 1.6041977958350834e+01_dp, -6.0136339183264646e+01_dp, 1.1829300280981532e+02_dp, &
4835 -1.5911935257728072e+02_dp, 1.4571566750741661e+02_dp, -8.2025918687439358e+01_dp, &
4836 2.1368285429166992e+01_dp, 6.9717468070339038e+01_dp, -1.8115637114197503e-06_dp, &
4837 -2.3149864597531785e+01_dp, 2.7812649747426072e+01_dp, -2.9648862569096533e+01_dp, &
4838 1.3165828947892159e+01_dp, 4.4609325588012467e+01_dp, -1.5814634948605772e+02_dp, &
4839 3.0576431202144215e+02_dp, -4.0715554275312178e+02_dp, 3.7018587829115569e+02_dp, &
4840 -2.0724045709870501e+02_dp, 5.3753492193265338e+01_dp, 1.5076605862295096e+02_dp, &
4841 -4.8029447707686627e-06_dp, -6.1142104656738780e+01_dp, 7.3457079767394291e+01_dp, &
4842 -7.5551348219208521e+01_dp, 2.8115955488796168e+01_dp, 1.2939155360574125e+02_dp, &
4843 -4.3261107002125891e+02_dp, 8.2012582176643787e+02_dp, -1.0791090432146957e+03_dp, &
4844 9.7263069656922221e+02_dp, -5.4083603585758897e+02_dp, 1.3952472833308838e+02_dp, &
4845 3.4326171137332619e+02_dp, -1.3401787740328214e-05_dp, -1.6977952594693747e+02_dp, &
4846 2.0397539508271359e+02_dp, -2.0046385534576143e+02_dp, 5.5534906744180304e+01_dp, &
4847 3.9775987919436119e+02_dp, -1.2493663191105957e+03_dp, 2.3147249863985589e+03_dp, &
4848 -3.0017062754705989e+03_dp, 2.6762457872586815e+03_dp, -1.4753536354877817e+03_dp, &
4849 3.7795655560340720e+02_dp, 8.3250447697650543e+02_dp, -4.0066178299457473e-05_dp, &
4850 -5.0433618822359546e+02_dp, 6.0591475756705029e+02_dp, -5.6061550959797250e+02_dp, &
4851 8.0693121371922274e+01_dp, 1.3220373413009017e+03_dp, -3.8795859841778079e+03_dp, &
4852 6.9916807710050844e+03_dp, -8.9011916360067389e+03_dp, 7.8237206451432530e+03_dp, &
4853 -4.2633113757326564e+03_dp, 1.0817488919723778e+03_dp, 2.1880792776836724e+03_dp, &
4854 -1.3156759027407118e-04_dp, -1.6415118517756680e+03_dp, 1.9721227309225790e+03_dp, &
4855 -1.6756252916105827e+03_dp, -9.7731609047837892e+01_dp, 4.8848208178157192e+03_dp, &
4856 -1.3281764469769068e+04_dp, 2.3115603902558436e+04_dp, -2.8709560935485304e+04_dp, &
4857 2.4734396997303353e+04_dp, -1.3253308640711919e+04_dp, 3.3150401953712826e+03_dp, &
4858 6.4023792745151923e+03_dp, -4.9316125127201718e-04_dp, -6.0727629604647600e+03_dp, &
4859 7.2958187858552392e+03_dp, -5.4291483890577892e+03_dp, -2.2232679468127371e+03_dp, &
4860 2.0941874763722215e+04_dp, -5.2044169864559364e+04_dp, 8.6393786455101945e+04_dp, &
4861 -1.0345994694934737e+05_dp, 8.6382110934542667e+04_dp, -4.5019043803292414e+04_dp, &
4862 1.0986821504031903e+04_dp, 2.1847515732361062e+04_dp, -2.2579708925754478e-03_dp, &
4863 -2.7213243572988889e+04_dp, 3.2693722118754918e+04_dp, -1.9030680015810074e+04_dp, &
4864 -2.2781523256788889e+04_dp, 1.1219253462313319e+05_dp, -2.4822897274719740e+05_dp, &
4865 3.8292601430606667e+05_dp, -4.3022911687807390e+05_dp, 3.3804652466094872e+05_dp, &
4866 -1.6611379681486270e+05_dp, 3.8304153833710385e+04_dp, 9.5573339232628467e+04_dp, &
4867 -1.4588462469079619e-02_dp, -1.6866513691120152e+05_dp, 2.0262927744864495e+05_dp, &
4868 -5.7768403952849316e+04_dp, -2.8684582736809686e+05_dp, 8.7522813270953298e+05_dp, &
4869 -1.6053947767154609e+06_dp, 2.1164271865422688e+06_dp, -2.0010625502698994e+06_dp, &
4870 1.2728583679706273e+06_dp, -4.7452866201810562e+05_dp, 7.3939317332975275e+04_dp, &
4871 7.0111074483186123e+05_dp, -2.0104415008030188e-01_dp, -2.1194663306621597e+06_dp, &
4872 2.5461696440140237e+06_dp, 1.4577959403430095e+06_dp, -8.8776723555507679e+06_dp, &
4873 1.4429270679797074e+07_dp, -1.0764718275979346e+07_dp, -6.0081024069717359e+06_dp, &
4874 2.8423455083762139e+07_dp, -3.8351286309245549e+07_dp, 2.6572649225598279e+07_dp, &
4875 -7.9000536567775914e+06_dp/)
4876 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.8728308171438685e-01_dp, &
4877 -7.4958225804522882e-02_dp, -1.7654418697317781e-02_dp, 1.0337296188123402e-02_dp, &
4878 5.3074367941912289e-03_dp, -3.4737735619981940e-03_dp, -2.0980081422520588e-03_dp, &
4879 1.3332352270175691e-03_dp, 1.8928638178553657e-03_dp, -2.0371064972525598e-03_dp, &
4880 4.3322700993716177e-04_dp, 2.4269923006729229e-04_dp, -1.0645391970489572e-04_dp, &
4881 5.9050213462098911e-01_dp, -2.6045916825257870e-01_dp, -4.6013842770087673e-02_dp, &
4882 4.0578808574448226e-02_dp, 1.3431038359853705e-02_dp, -1.4448196212394048e-02_dp, &
4883 -5.0801158293652263e-03_dp, 5.6830395388698567e-03_dp, 6.0399026225143836e-03_dp, &
4884 -9.0362581333669131e-03_dp, 3.8977272533399529e-03_dp, -2.8631051093057830e-04_dp, &
4885 -1.6255826015267508e-04_dp, 1.0853661382142048e+00_dp, -5.6505629769884813e-01_dp, &
4886 -4.5259537292808079e-02_dp, 1.0107558488280066e-01_dp, 1.0246730819933846e-02_dp, &
4887 -3.7841969991286292e-02_dp, -2.4466922115694272e-03_dp, 1.5238296869265590e-02_dp, &
4888 1.0051703287389212e-02_dp, -2.4895630648353886e-02_dp, 1.6271959664872358e-02_dp, &
4889 -4.6274361677158590e-03_dp, 4.2879818988516113e-04_dp, 1.7528845246909897e+00_dp, &
4890 -1.1123944492275302e+00_dp, 3.5424018217895502e-02_dp, 2.1579693702045874e-01_dp, &
4891 -2.5857027453275973e-02_dp, -8.1949081571572172e-02_dp, 1.6563668405901510e-02_dp, &
4892 3.3437407219596017e-02_dp, 9.0789227225405479e-03_dp, -5.4452189093168082e-02_dp, &
4893 4.6324965691288536e-02_dp, -1.7622865195560243e-02_dp, 2.6635992084654233e-03_dp, &
4894 2.7078938439530917e+00_dp, -2.1055687575566426e+00_dp, 3.1071744605798479e-01_dp, &
4895 4.0776524304565614e-01_dp, -1.4276623438669639e-01_dp, -1.5004288372475155e-01_dp, &
4896 7.4789568797600153e-02_dp, 6.1204081755821510e-02_dp, -1.1450125801862587e-02_dp, &
4897 -9.5333496012500740e-02_dp, 1.0315290568119541e-01_dp, -4.6301294653322549e-02_dp, &
4898 8.2327674140336218e-03_dp, 4.1222585977458319e+00_dp, -3.8916375985052856e+00_dp, &
4899 1.0287256818377424e+00_dp, 6.7824953475735794e-01_dp, -4.3616962492030631e-01_dp, &
4900 -2.2442617116461031e-01_dp, 2.1410714787692231e-01_dp, 8.9232609313346464e-02_dp, &
4901 -8.4070976342451670e-02_dp, -1.2224787823475017e-01_dp, 1.8617969237834020e-01_dp, &
4902 -9.6992308351370335e-02_dp, 1.9240741102009955e-02_dp, 6.2614437064378148e+00_dp, &
4903 -7.0734996616320798e+00_dp, 2.7109877698494551e+00_dp, 9.4315201130905646e-01_dp, &
4904 -1.0794537771539827e+00_dp, -2.2631895031272395e-01_dp, 4.9923803036845726e-01_dp, &
4905 7.9249948225847855e-02_dp, -2.6692610962273050e-01_dp, -5.7380279775207862e-02_dp, &
4906 2.6060510417597316e-01_dp, -1.6580437343809790e-01_dp, 3.6703525275681770e-02_dp, &
4907 9.5442495162132879e+00_dp, -1.2707406352368116e+01_dp, 6.4338288503783216e+00_dp, &
4908 8.6207574579597068e-01_dp, -2.3483916970462482e+00_dp, 7.3668001058521435e-02_dp, &
4909 1.0019608211825608e+00_dp, -7.4722380119410070e-02_dp, -6.3758685173908902e-01_dp, &
4910 2.7271888085324325e-01_dp, 2.1084047383313775e-01_dp, -2.1733444967013762e-01_dp, &
4911 5.6641676594043365e-02_dp, 1.4643304263035175e+01_dp, -2.2655257244471311e+01_dp, &
4912 1.4392217701024219e+01_dp, -5.9435672642207360e-01_dp, -4.5777070581320389e+00_dp, &
4913 1.2351960033513358e+00_dp, 1.7170546319191513e+00_dp, -6.1224168013341784e-01_dp, &
4914 -1.2399540344239814e+00_dp, 1.1799686690987607e+00_dp, -2.3435024824910564e-01_dp, &
4915 -1.4444306875541876e-01_dp, 6.1909340705238292e-02_dp, 2.2661556393863005e+01_dp, &
4916 -4.0221154146253184e+01_dp, 3.1024585967572101e+01_dp, -6.1984371213472800e+00_dp, &
4917 -7.8268184197828807e+00_dp, 4.4496347113412762e+00_dp, 2.2809196015538231e+00_dp, &
4918 -1.9772352681903975e+00_dp, -1.9037690088995247e+00_dp, 3.0942613517855539e+00_dp, &
4919 -1.5987186090989016e+00_dp, 3.0213023980747233e-01_dp, 5.8046939919012327e-03_dp, &
4920 3.5468093717051559e+01_dp, -7.1336923975099211e+01_dp, 6.5243630185390288e+01_dp, &
4921 -2.2937295080112825e+01_dp, -1.0565705083043978e+01_dp, 1.1806144892783585e+01_dp, &
4922 1.2178868152228470e+00_dp, -4.7251305539334565e+00_dp, -1.7396453277841573e+00_dp, &
4923 6.1545408517662787e+00_dp, -4.5896192312693147e+00_dp, 1.5674169440757093e+00_dp, &
4924 -2.0955667192577354e-01_dp, 5.6442005976612165e+01_dp, -1.2697432446862335e+02_dp, &
4925 1.3491229212895021e+02_dp, -6.7527741358861761e+01_dp, -5.5728868452042661e+00_dp, &
4926 2.5434552707557021e+01_dp, -5.4812962163209651e+00_dp, -8.5501736428865840e+00_dp, &
4927 1.6761122225991096e+00_dp, 8.5806543180294934e+00_dp, -8.9923594919231888e+00_dp, &
4928 3.9271082076494404e+00_dp, -6.8512753005700844e-01_dp, 9.2592250966591095e+01_dp, &
4929 -2.2931021529690631e+02_dp, 2.7694141294096011e+02_dp, -1.7833095335890167e+02_dp, &
4930 3.0475551450022131e+01_dp, 4.2007083036843376e+01_dp, -2.4692838382505418e+01_dp, &
4931 -9.2334955726867634e+00_dp, 1.0827009524998724e+01_dp, 5.3897134051317694e+00_dp, &
4932 -1.1613244577817873e+01_dp, 6.3881771027172425e+00_dp, -1.2985721875418899e+00_dp, &
4933 1.6317349757925933e+02_dp, -4.3567621344686893e+02_dp, 5.8173974531331419e+02_dp, &
4934 -4.4774963325360090e+02_dp, 1.5972672378438833e+02_dp, 3.9090311776792390e+01_dp, &
4935 -5.9596575929838380e+01_dp, 1.7921854401952180e+00_dp, 2.2619550601715890e+01_dp, &
4936 -5.3934015665785919e+00_dp, -9.7558137801544511e+00_dp, 7.6935514963494267e+00_dp, &
4937 -1.8168321790144826e+00_dp, 3.6167981936470210e+02_dp, -1.0134714814220670e+03_dp, &
4938 1.4434041436150949e+03_dp, -1.2377699820298194e+03_dp, 5.8888285175980138e+02_dp, &
4939 -4.1630388543112794e+01_dp, -1.1428599149682097e+02_dp, 2.8274776131364867e+01_dp, &
4940 4.1140189506559487e+01_dp, -2.4185930418501993e+01_dp, -7.4527591947965899e+00_dp, &
4941 1.0860057531580511e+01_dp, -2.9572025136611222e+00_dp, 1.5169954011304849e+00_dp, &
4942 -6.2259099720483668e-01_dp, -1.3712328672328261e-01_dp, 8.8962828652861925e-02_dp, &
4943 4.1043676954109272e-02_dp, -3.0443932125223352e-02_dp, -1.6102573780172595e-02_dp, &
4944 1.1773644941326244e-02_dp, 1.5459317774057306e-02_dp, -1.8230644358955633e-02_dp, &
4945 5.1169302495753487e-03_dp, 1.3183518368033997e-03_dp, -7.5903468555029124e-04_dp, &
4946 1.7499525908457525e+00_dp, -9.1531468832248197e-01_dp, -7.6236631412840317e-02_dp, &
4947 1.6660751635474580e-01_dp, 1.8633663668780786e-02_dp, -6.2945543301738627e-02_dp, &
4948 -5.1025796217109790e-03_dp, 2.5374090389752808e-02_dp, 1.7578523782323396e-02_dp, &
4949 -4.1763776533811942e-02_dp, 2.6693483469204270e-02_dp, -7.3228880092403711e-03_dp, &
4950 6.1452305084940938e-04_dp, 2.2619483691280533e+00_dp, -1.6013976329479644e+00_dp, &
4951 1.1397591566142432e-01_dp, 3.3354035175947067e-01_dp, -5.7655973122046261e-02_dp, &
4952 -1.3000506221511882e-01_dp, 3.2967403963862302e-02_dp, 5.3494998718352296e-02_dp, &
4953 1.1629723916519787e-02_dp, -8.8697135876886060e-02_dp, 7.8248427005448054e-02_dp, &
4954 -3.0608523079921474e-02_dp, 4.7649824200322270e-03_dp, 3.1532640805277889e+00_dp, &
4955 -2.9086028536368387e+00_dp, 6.0362531752264503e-01_dp, 6.0074812985031767e-01_dp, &
4956 -2.6167841326003777e-01_dp, -2.2598188022853924e-01_dp, 1.3384536380554243e-01_dp, &
4957 9.3175482448094510e-02_dp, -2.8552228684050263e-02_dp, -1.4717381630923509e-01_dp, &
4958 1.6884009102232561e-01_dp, -7.8198141800493393e-02_dp, 1.4252294977810340e-02_dp, &
4959 4.5990362784635748e+00_dp, -5.2610480580945511e+00_dp, 1.7554142769832759e+00_dp, &
4960 9.3954313197653416e-01_dp, -7.3530977939486497e-01_dp, -3.0941341340797157e-01_dp, &
4961 3.5949602821775650e-01_dp, 1.2391323817308118e-01_dp, -1.5674994650740204e-01_dp, &
4962 -1.6497906356785436e-01_dp, 2.8695923379282917e-01_dp, -1.5603347654001742e-01_dp, &
4963 3.1792664959924305e-02_dp, 6.8890308910671356e+00_dp, -9.4168852534476279e+00_dp, &
4964 4.3188327286694310e+00_dp, 1.1783565195132464e+00_dp, -1.7254059330117610e+00_dp, &
4965 -2.3869963236274130e-01_dp, 7.9885232236465131e-01_dp, 7.7283423048285574e-02_dp, &
4966 -4.6310391349780267e-01_dp, -1.4416187514689229e-03_dp, 3.5710470924999077e-01_dp, &
4967 -2.4826140681908590e-01_dp, 5.7194043278611120e-02_dp, 1.0497250232124662e+01_dp, &
4968 -1.6719832965151884e+01_dp, 9.8216896813060970e+00_dp, 7.3970611364224259e-01_dp, &
4969 -3.6059125166637358e+00_dp, 3.6498570473675707e-01_dp, 1.5345652988820813e+00_dp, &
4970 -2.2332312617279992e-01_dp, -1.0543504968226272e+00_dp, 6.3278478456932230e-01_dp, &
4971 1.6617016052927272e-01_dp, -2.8118812153705103e-01_dp, 8.0364317707803778e-02_dp, &
4972 1.6202514503988390e+01_dp, -2.9552478542397893e+01_dp, 2.1354172370954117e+01_dp, &
4973 -2.0112687983411681e+00_dp, -6.7855159638167732e+00_dp, 2.3873633162830670e+00_dp, &
4974 2.4998632165545791e+00_dp, -1.1623801758158443e+00_dp, -1.9504681292485571e+00_dp, &
4975 2.2152489068540460e+00_dp, -7.3792333984291780e-01_dp, -6.4276694004470475e-02_dp, &
4976 6.8740941716736517e-02_dp, 2.5304655431445173e+01_dp, -5.2159151005688130e+01_dp, &
4977 4.5132654192248751e+01_dp, -1.1338185998416552e+01_dp, -1.1160559135910367e+01_dp, &
4978 7.6739991523479407e+00_dp, 3.0247629570482868e+00_dp, -3.4345182182881113e+00_dp, &
4979 -2.7853008863066906e+00_dp, 5.3467839342257841e+00_dp, -3.1694123271238630e+00_dp, &
4980 8.0694157345556727e-01_dp, -5.5813093165602519e-02_dp, 4.0044203390039350e+01_dp, &
4981 -9.2178078631682354e+01_dp, 9.3592414174368287e+01_dp, -3.7812448013221193e+01_dp, &
4982 -1.4050944707063607e+01_dp, 1.9459317299329200e+01_dp, 6.0508974835963314e-01_dp, &
4983 -7.9026281849074591e+00_dp, -2.0036084707040196e+00_dp, 1.0164747665646736e+01_dp, &
4984 -8.2753537306586118e+00_dp, 3.0766573481774491e+00_dp, -4.5919018524870359e-01_dp, &
4985 6.4548216002732048e+01_dp, -1.6372767342710813e+02_dp, 1.9149111780202836e+02_dp, &
4986 -1.0651796580505838e+02_dp, -3.6942339641588529e+00_dp, 4.1116703654714840e+01_dp, &
4987 -1.1688259826259763e+01_dp, -1.4092944078806669e+01_dp, 4.9534063773839927e+00_dp, &
4988 1.3327217036380015e+01_dp, -1.5720082956234478e+01_dp, 7.3285690650141238e+00_dp, &
4989 -1.3498478899609199e+00_dp, 1.0751974782069394e+02_dp, -2.9506101073517016e+02_dp, &
4990 3.8886438902426795e+02_dp, -2.7414973759844793e+02_dp, 5.7813607870059755e+01_dp, &
4991 6.6686184229942938e+01_dp, -4.6907689236635093e+01_dp, -1.3942873569870745e+01_dp, &
4992 2.4627269489905036e+01_dp, 2.2908131761383355e+00_dp, -1.7205170554994950e+01_dp, &
4993 1.0876408321603687e+01_dp, -2.3799479399999801e+00_dp, 1.9247091864637630e+02_dp, &
4994 -5.5613733430051036e+02_dp, 7.9963641497991784e+02_dp, -6.6716934500841262e+02_dp, &
4995 2.6869114067386937e+02_dp, 5.1976162118599937e+01_dp, -1.0977479209219821e+02_dp, &
4996 1.5320418459417469e+01_dp, 4.6056433428995703e+01_dp, -2.9674185020400326e+01_dp, &
4997 -1.1567576408411366e+00_dp, 7.5442392510615788e+00_dp, -2.2833978807688808e+00_dp, &
4998 4.1371492246319275e+02_dp, -1.2139560601068151e+03_dp, 1.8159618918225744e+03_dp, &
4999 -1.6547693041000880e+03_dp, 8.6670487570533533e+02_dp, -1.1144406945065859e+02_dp, &
5000 -1.6484069878511906e+02_dp, 7.3842511245161845e+01_dp, 4.7114364272953480e+01_dp, &
5001 -5.3558177553213220e+01_dp, 1.2533328664185559e+01_dp, 4.7084386636147091e+00_dp, &
5002 -2.2343883375336238e+00_dp, 1.5482456811918644e+03_dp, -4.4722809407060004e+03_dp, &
5003 6.6239888100139933e+03_dp, -6.0381436371333639e+03_dp, 3.2764369520591445e+03_dp, &
5004 -6.5019366566941835e+02_dp, -3.5765412817763291e+02_dp, 1.5908326595301082e+02_dp, &
5005 1.4549695520260664e+02_dp, -1.2481558144644566e+02_dp, 1.0775656086159311e+00_dp, &
5006 3.0587066325522777e+01_dp, -9.7246696807779784e+00_dp, 2.3046596783109666e-01_dp, &
5007 -5.0266863054748409e-02_dp, -1.7179737588739360e-02_dp, 5.4654515693096711e-03_dp, &
5008 4.7852361622912525e-03_dp, -1.7421101769864551e-03_dp, -1.9440310548800761e-03_dp, &
5009 6.0661250198343168e-04_dp, 1.3341594386686755e-03_dp, -8.7661120974839130e-04_dp/)
5010 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/-2.3785652584517211e-04_dp, &
5011 4.0415260781371566e-04_dp, -1.1566827381466792e-04_dp, 7.4614843698202982e-01_dp, &
5012 -1.8831297390879426e-01_dp, -5.5307781300718430e-02_dp, 2.5755321163507486e-02_dp, &
5013 1.6130804272204945e-02_dp, -8.8949071784985307e-03_dp, -6.6594057854666763e-03_dp, &
5014 3.2468867718668313e-03_dp, 5.3068142089810330e-03_dp, -4.9387141407180018e-03_dp, &
5015 4.6635469014696219e-04_dp, 1.0225379001983694e-03_dp, -3.6432448373067977e-04_dp, &
5016 1.4438155770093133e+00_dp, -4.6034617711746817e-01_dp, -1.0114569577453580e-01_dp, &
5017 8.0847736706817566e-02_dp, 3.1132826193078431e-02_dp, -3.0098300767058127e-02_dp, &
5018 -1.2990120467489992e-02_dp, 1.1474677064022006e-02_dp, 1.3524876701271211e-02_dp, &
5019 -1.8252222127657793e-02_dp, 6.7665303400730129e-03_dp, 2.6588974984116941e-04_dp, &
5020 -5.3997537121426489e-04_dp, 2.5092558836526182e+00_dp, -1.0370895440920307e+00_dp, &
5021 -1.4293476604484445e-01_dp, 2.1892543997539182e-01_dp, 4.3916720461941325e-02_dp, &
5022 -8.5906691296838311e-02_dp, -1.7581973163101349e-02_dp, 3.3856445186467174e-02_dp, &
5023 2.9188840795829587e-02_dp, -5.5487833762756317e-02_dp, 3.0644984612438222e-02_dp, &
5024 -6.2518601968366934e-03_dp, -1.3619319925894898e-05_dp, 4.2480175628654671e+00_dp, &
5025 -2.2552731443674090e+00_dp, -1.2020190507153349e-01_dp, 5.3601909417709703e-01_dp, &
5026 2.3123136649126307e-02_dp, -2.1742428493087468e-01_dp, -3.1971501625727987e-03_dp, &
5027 8.7966369542184522e-02_dp, 5.2098492049143776e-02_dp, -1.4627449223179681e-01_dp, &
5028 1.0200338814556090e-01_dp, -3.1449802576644731e-02_dp, 3.4350745589740235e-03_dp, &
5029 7.1934846151788383e+00_dp, -4.8045602148293982e+00_dp, 1.6800723431165815e-01_dp, &
5030 1.2178133966689220e+00_dp, -1.3794075755207405e-01_dp, -4.9998735924019683e-01_dp, &
5031 8.8402497336550506e-02_dp, 2.0630420687207099e-01_dp, 6.3021419984179414e-02_dp, &
5032 -3.4072681253649273e-01_dp, 2.8686006501533551e-01_dp, -1.0813824760173801e-01_dp, &
5033 1.6124430353177774e-02_dp, 1.2310857286275628e+01_dp, -1.0127157366490705e+01_dp, &
5034 1.3116248102932406e+00_dp, 2.5981695903237028e+00_dp, -7.5308905349267552e-01_dp, &
5035 -1.0473666363263530e+00_dp, 4.2542510815825957e-01_dp, 4.3632942640926314e-01_dp, &
5036 -2.7104988102069912e-02_dp, -6.9029606232100948e-01_dp, 7.0742413257606307e-01_dp, &
5037 -3.0835516320907685e-01_dp, 5.3474117194919846e-02_dp, 2.1395537244919190e+01_dp, &
5038 -2.1294952582127532e+01_dp, 4.9586759348241420e+00_dp, 5.1888176836291438e+00_dp, &
5039 -2.6758759362963236e+00_dp, -1.9431216985141384e+00_dp, 1.4461702367488496e+00_dp, &
5040 7.9948224935758594e-01_dp, -5.1733385566911505e-01_dp, -1.1192375715667364e+00_dp, &
5041 1.5165197860827433e+00_dp, -7.5951327716264216e-01_dp, 1.4699498210546361e-01_dp, &
5042 3.7874378642397900e+01_dp, -4.4985821130051526e+01_dp, 1.5631115834221772e+01_dp, &
5043 9.4321652649337349e+00_dp, -8.0952721883237579e+00_dp, -2.8567401038783609e+00_dp, &
5044 4.1805740387217281e+00_dp, 1.0764667230663318e+00_dp, -2.2360065629356378e+00_dp, &
5045 -9.4199681401382451e-01_dp, 2.6381666350602235e+00_dp, -1.5885150294156811e+00_dp, &
5046 3.4308353829740224e-01_dp, 6.8468294337154987e+01_dp, -9.6066459756805102e+01_dp, &
5047 4.5738898453688122e+01_dp, 1.4111679011798346e+01_dp, -2.2267791999698446e+01_dp, &
5048 -1.5136616324510050e+00_dp, 1.0688893528377216e+01_dp, -1.3084462945928754e-02_dp, &
5049 -7.0303230583103691e+00_dp, 2.5138353770466910e+00_dp, 2.7198542807232915e+00_dp, &
5050 -2.5443022123523957e+00_dp, 6.4822382263330280e-01_dp, 1.2677231414292079e+02_dp, &
5051 -2.0856628210561396e+02_dp, 1.2977414621627011e+02_dp, 9.1386695755711109e+00_dp, &
5052 -5.6431954234367460e+01_dp, 1.1601893649962131e+01_dp, 2.3601434993236484e+01_dp, &
5053 -7.4033248447262663e+00_dp, -1.7502732203666131e+01_dp, 1.6822593726600431e+01_dp, &
5054 -3.9321362151268588e+00_dp, -1.6129758489863975e+00_dp, 7.7708342864698754e-01_dp, &
5055 2.4137930903364659e+02_dp, -4.6294363698594930e+02_dp, 3.6567746448701314e+02_dp, &
5056 -5.4264739702960071e+01_dp, -1.2743717778047937e+02_dp, 6.9426575766974068e+01_dp, &
5057 3.8441422516024915e+01_dp, -3.5937690433228575e+01_dp, -3.0556184645453925e+01_dp, &
5058 5.6709057679208890e+01_dp, -3.3613907949953663e+01_dp, 8.7069360708662646e+00_dp, &
5059 -6.5071547786799400e-01_dp, 4.7630568634676882e+02_dp, -1.0576120213436998e+03_dp, &
5060 1.0387559056977509e+03_dp, -3.8252814075560741e+02_dp, -2.1458148531810613e+02_dp, &
5061 2.6341292507433673e+02_dp, -4.9256154892799719e-01_dp, -1.1226068848553658e+02_dp, &
5062 -2.8240527873382217e+00_dp, 1.1790110895706198e+02_dp, -1.0801679538988816e+02_dp, &
5063 4.3992074063654670e+01_dp, -7.2605761932187214e+00_dp, 9.9831523554887349e+02_dp, &
5064 -2.5291408915064985e+03_dp, 3.0129078291719397e+03_dp, -1.7907805874724606e+03_dp, &
5065 5.2655917157171132e+01_dp, 6.9446212730128070e+02_dp, -3.3406235416814116e+02_dp, &
5066 -1.6432224599188541e+02_dp, 1.8182149839084897e+02_dp, 5.5649378552951724e+01_dp, &
5067 -1.5404182921741005e+02_dp, 8.7668748811935586e+01_dp, -1.8136282582373241e+01_dp, &
5068 2.5197956634819393e+03_dp, -7.0358606845934346e+03_dp, 9.6643808587164713e+03_dp, &
5069 -7.6367755567523545e+03_dp, 2.8044634842378887e+03_dp, 7.1741892008980801e+02_dp, &
5070 -1.1890761393357277e+03_dp, 1.6354332870871900e+02_dp, 3.8067937600501506e+02_dp, &
5071 -1.6046444938930748e+02_dp, -1.0923720079478032e+02_dp, 1.0988436092388882e+02_dp, &
5072 -2.7749973961794815e+01_dp, 1.8790883577505788e+00_dp, -4.2578976954083553e-01_dp, &
5073 -1.4015384201338235e-01_dp, 4.9535242205172317e-02_dp, 3.9556319497385098e-02_dp, &
5074 -1.6188345328963884e-02_dp, -1.6150186727266109e-02_dp, 5.7212758934123784e-03_dp, &
5075 1.1515686373747173e-02_dp, -8.4039177187524849e-03_dp, -1.2421200032158236e-03_dp, &
5076 3.1542038254185724e-03_dp, -9.4397800109121256e-04_dp, 2.3286072431387423e+00_dp, &
5077 -7.3963153685831751e-01_dp, -1.6817064802096532e-01_dp, 1.2874106425262241e-01_dp, &
5078 5.2793112327834887e-02_dp, -4.7503985299264515e-02_dp, -2.2274548170645277e-02_dp, &
5079 1.7979044108164671e-02_dp, 2.2209117750315765e-02_dp, -2.8376437312440522e-02_dp, &
5080 9.4867238052117418e-03_dp, 1.1424442652292026e-03_dp, -1.0083455255258623e-03_dp, &
5081 3.3727466736396918e+00_dp, -1.5448224549513210e+00_dp, -1.9258486598122063e-01_dp, &
5082 3.4252847181451407e-01_dp, 6.4318683841940644e-02_dp, -1.3514789671089780e-01_dp, &
5083 -2.6692286257403969e-02_dp, 5.3252686100318150e-02_dp, 4.5847091590627692e-02_dp, &
5084 -8.7415775234976054e-02_dp, 4.8250758426842198e-02_dp, -9.7951517189096889e-03_dp, &
5085 -4.0080346635974667e-05_dp, 5.3476974926650058e+00_dp, -3.2821481672447801e+00_dp, &
5086 -1.0673693072908484e-01_dp, 8.2336777253315929e-01_dp, 1.9953202180531222e-02_dp, &
5087 -3.3773322054580296e-01_dp, -1.4581831738714061e-04_dp, 1.3707953425659358e-01_dp, &
5088 8.0179761639936148e-02_dp, -2.2969150949183195e-01_dp, 1.6148118046840720e-01_dp, &
5089 -5.0234143578115772e-02_dp, 5.5756585628377389e-03_dp, 8.9052398487289590e+00_dp, &
5090 -6.8986923960309667e+00_dp, 4.0813160978388663e-01_dp, 1.8330154014443996e+00_dp, &
5091 -2.4965908117099087e-01_dp, -7.6390746125752773e-01_dp, 1.4990729029415834e-01_dp, &
5092 3.1721789359789093e-01_dp, 9.3176773742444513e-02_dp, -5.3063124869930844e-01_dp, &
5093 4.5174324220642409e-01_dp, -1.7188470254374158e-01_dp, 2.5897541226569322e-02_dp, &
5094 1.5277197043057445e+01_dp, -1.4403808006208923e+01_dp, 2.2520306793354425e+00_dp, &
5095 3.8402789683619147e+00_dp, -1.2282086708774107e+00_dp, -1.5752333655294370e+00_dp, &
5096 6.8512948891006886e-01_dp, 6.6286709270779132e-01_dp, -5.6777181683095333e-02_dp, &
5097 -1.0658001277397429e+00_dp, 1.1088446843283359e+00_dp, -4.8809164974479147e-01_dp, &
5098 8.5368915942929544e-02_dp, 2.6809203330113430e+01_dp, -3.0105648181028421e+01_dp, &
5099 7.8907784967325929e+00_dp, 7.5527940324183627e+00_dp, -4.2136321310777394e+00_dp, &
5100 -2.8787838332303517e+00_dp, 2.2822315773743074e+00_dp, 1.2025374446858241e+00_dp, &
5101 -8.4310251040346118e-01_dp, -1.7073511450150149e+00_dp, 2.3701711370977949e+00_dp, &
5102 -1.2003354391249612e+00_dp, 2.3417510086396071e-01_dp, 4.8050803348005907e+01_dp, &
5103 -6.3414162259620326e+01_dp, 2.4012810181586435e+01_dp, 1.3543281743456987e+01_dp, &
5104 -1.2518399110121845e+01_dp, -4.1483228966192884e+00_dp, 6.5359361416230444e+00_dp, &
5105 1.6010875650124006e+00_dp, -3.5935349636567349e+00_dp, -1.3505908589460529e+00_dp, &
5106 4.1102852487568118e+00_dp, -2.5128140904440519e+00_dp, 5.4740471934507018e-01_dp, &
5107 8.8043083290018245e+01_dp, -1.3537232179695650e+02_dp, 6.8833207015861163e+01_dp, &
5108 1.9954488880701138e+01_dp, -3.4131409980955162e+01_dp, -1.9360725759409532e+00_dp, &
5109 1.6704761193414530e+01_dp, -8.8596046107263363e-02_dp, -1.1369840543223333e+01_dp, &
5110 4.3533647172741814e+00_dp, 4.1462824454929388e+00_dp, -4.0304785375198096e+00_dp, &
5111 1.0392352576178361e+00_dp, 1.6528695869768484e+02_dp, -2.9435766562155197e+02_dp, &
5112 1.9269303927992763e+02_dp, 1.2272006016669405e+01_dp, -8.6558626633572814e+01_dp, &
5113 1.8084227124270082e+01_dp, 3.7422286676621773e+01_dp, -1.1504422400508385e+01_dp, &
5114 -2.8981028446875509e+01_dp, 2.8061685767204931e+01_dp, -6.8454282426917770e+00_dp, &
5115 -2.5075498308103796e+00_dp, 1.2590902098959449e+00_dp, 3.1904415962372269e+02_dp, &
5116 -6.5517407839010923e+02_dp, 5.3795044575370639e+02_dp, -7.8460961642246900e+01_dp, &
5117 -1.9941242952975134e+02_dp, 1.0626216155817104e+02_dp, 6.5024974663538401e+01_dp, &
5118 -5.6853636598935005e+01_dp, -5.4516670856876033e+01_dp, 9.6886573999137951e+01_dp, &
5119 -5.6786140068674428e+01_dp, 1.4494723569712843e+01_dp, -1.0273091986637437e+00_dp, &
5120 6.3717770820107091e+02_dp, -1.5006743273417519e+03_dp, 1.5183508248241242e+03_dp, &
5121 -5.4249059143678107e+02_dp, -3.6871786881056681e+02_dp, 4.1511942398217616e+02_dp, &
5122 2.6225823385079689e+01_dp, -1.9254671249051862e+02_dp, -2.7660102820898491e+01_dp, &
5123 2.2884670976955013e+02_dp, -2.0078072107272666e+02_dp, 8.0102960484258318e+01_dp, &
5124 -1.2994587476880236e+01_dp, 1.3388641449458219e+03_dp, -3.5707279333293045e+03_dp, &
5125 4.3696883768952457e+03_dp, -2.5408264232775923e+03_dp, -1.5720657008223867e+02_dp, &
5126 1.2433964069705148e+03_dp, -4.9064532646415466e+02_dp, -4.0438252913184124e+02_dp, &
5127 3.5221285081678133e+02_dp, 1.6421609423683356e+02_dp, -3.5828174338405978e+02_dp, &
5128 1.9958566836052518e+02_dp, -4.1225182836963377e+01_dp, 3.1630578325136571e+03_dp, &
5129 -9.2174296603112798e+03_dp, 1.3078767927116834e+04_dp, -1.0455636907823062e+04_dp, &
5130 3.4380325323762208e+03_dp, 1.9056619449914899e+03_dp, -2.4483725222720182e+03_dp, &
5131 3.3598576622327710e+02_dp, 1.0045407494218127e+03_dp, -7.4953512509145685e+02_dp, &
5132 1.1389182240118748e+02_dp, 8.8631597307204402e+01_dp, -3.3784175186635018e+01_dp, &
5133 1.1741583647618587e+04_dp, -3.4772802927998528e+04_dp, 5.1757382963840319e+04_dp, &
5134 -4.6796698845286672e+04_dp, 2.4404793826910518e+04_dp, -3.4240409533000625e+03_dp, &
5135 -4.1525449932535876e+03_dp, 1.9174273170875924e+03_dp, 9.6404934848061453e+02_dp, &
5136 -9.6135633177130569e+02_dp, -6.2667702498202678e+00_dp, 2.5568713212589310e+02_dp, &
5137 -8.0871228602797459e+01_dp, 2.5910399582486437e-01_dp, -2.8215937471986335e-02_dp, &
5138 -1.6057948736797313e-02_dp, 2.2232618509844711e-03_dp, 4.4103499063233055e-03_dp, &
5139 -1.6453858095913664e-04_dp, -2.6110557878466982e-03_dp, 3.9824644955139122e-04_dp, &
5140 1.6273475095842586e-03_dp, -8.9025885910407965e-04_dp, -3.6671922956720823e-04_dp, &
5141 4.8507440460371750e-04_dp, -1.3211072877791544e-04_dp, 8.5654480285554591e-01_dp, &
5142 -1.1200920153309295e-01_dp, -6.0375651330303620e-02_dp, 1.2480943363126322e-02_dp, &
5143 1.7766988818178821e-02_dp, -2.1391630741560913e-03_dp, -1.0741465894792950e-02_dp/)
5144 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/2.2061351968797813e-03_dp, &
5145 7.2651800654771788e-03_dp, -4.9666091131882828e-03_dp, -6.0509045722459322e-04_dp, &
5146 1.7074706793122701e-03_dp, -5.0886032182887841e-04_dp, 1.7258143200373688e+00_dp, &
5147 -2.9884323352649256e-01_dp, -1.4775030321223576e-01_dp, 4.7248271588260116e-02_dp, &
5148 4.7619516819167255e-02_dp, -1.1816286083326438e-02_dp, -2.9752710649639229e-02_dp, &
5149 8.5535969429659311e-03_dp, 2.2544415185358772e-02_dp, -1.9478392039671260e-02_dp, &
5150 2.3867184506599064e-03_dp, 3.3938096349746282e-03_dp, -1.2408011528001253e-03_dp, &
5151 3.1765354659041769e+00_dp, -7.4113425888104711e-01_dp, -3.3028597049657266e-01_dp, &
5152 1.5279087435777911e-01_dp, 1.1534912548347100e-01_dp, -4.6610003150119948e-02_dp, &
5153 -7.4975530724277845e-02_dp, 2.9204637910627697e-02_dp, 6.4144154361418626e-02_dp, &
5154 -6.7383151583557066e-02_dp, 1.9495127476223385e-02_dp, 3.9216434341502104e-03_dp, &
5155 -2.5026214876007966e-03_dp, 5.7762677335774812e+00_dp, -1.7814057289603056e+00_dp, &
5156 -7.0223258614858830e-01_dp, 4.5053468321128493e-01_dp, 2.6008563697492804e-01_dp, &
5157 -1.5727265430895401e-01_dp, -1.7715192567226051e-01_dp, 9.2605163231566937e-02_dp, &
5158 1.7280977666896552e-01_dp, -2.1622833321996968e-01_dp, 8.9907102665867045e-02_dp, &
5159 -6.5342786988899322e-03_dp, -3.6405862618677188e-03_dp, 1.0635866709342723e+01_dp, &
5160 -4.2221910963666494e+00_dp, -1.4280030736515645e+00_dp, 1.2620175013991994e+00_dp, &
5161 5.4430896273848306e-01_dp, -4.8950416510612965e-01_dp, -3.9333543661332560e-01_dp, &
5162 2.8233335910502383e-01_dp, 4.4606392158013780e-01_dp, -6.6340801329142474e-01_dp, &
5163 3.4698053836989273e-01_dp, -7.0117046739817404e-02_dp, 3.8524475772982433e-04_dp, &
5164 2.0028892471519779e+01_dp, -1.0003628886391914e+01_dp, -2.7543527547087376e+00_dp, &
5165 3.4459409293308343e+00_dp, 1.0227949830416387e+00_dp, -1.4575186303587055e+00_dp, &
5166 -8.0548916230565581e-01_dp, 8.4662036227712156e-01_dp, 1.1006704135061391e+00_dp, &
5167 -1.9762595229695696e+00_dp, 1.2293924485257903e+00_dp, -3.4776573573238989e-01_dp, &
5168 3.3411960379456256e-02_dp, 3.8800864934511303e+01_dp, -2.3979969508026311e+01_dp, &
5169 -4.8691713652289721e+00_dp, 9.3268439917937549e+00_dp, 1.5091857344004103e+00_dp, &
5170 -4.2309476977858385e+00_dp, -1.4145743330439313e+00_dp, 2.5351120694533700e+00_dp, &
5171 2.5243975989462042e+00_dp, -5.7315045646482972e+00_dp, 4.1375154729827681e+00_dp, &
5172 -1.4175776019905513e+00_dp, 1.9259934383182015e-01_dp, 7.7735814299357841e+01_dp, &
5173 -5.8814947029987437e+01_dp, -6.9572678017406089e+00_dp, 2.5308616104245754e+01_dp, &
5174 3.9853220364063036e-01_dp, -1.2070957719421918e+01_dp, -1.4815249980025791e+00_dp, &
5175 7.6544448352112955e+00_dp, 4.8490644610502533e+00_dp, -1.5967127077365880e+01_dp, &
5176 1.3341122150477743e+01_dp, -5.2520565274679489e+00_dp, 8.4320063077592255e-01_dp, &
5177 1.6206206464295840e+02_dp, -1.4930321627961305e+02_dp, -2.5067856011273091e+00_dp, &
5178 6.9341075313618006e+01_dp, -1.0743440903075324e+01_dp, -3.3716158577793486e+01_dp, &
5179 3.7254112287325314e+00_dp, 2.3363694407054414e+01_dp, 3.9659586871550068e+00_dp, &
5180 -4.0721927683672071e+01_dp, 4.0561860559316933e+01_dp, -1.8073377097484137e+01_dp, &
5181 3.2530077490973341e+00_dp, 3.5442984306993384e+02_dp, -3.9746210109659887e+02_dp, &
5182 4.2890577383048353e+01_dp, 1.9202721291279789e+02_dp, -7.1796204519006139e+01_dp, &
5183 -8.9522197012670105e+01_dp, 3.7812207284886419e+01_dp, 7.1003674952178457e+01_dp, &
5184 -3.3126726641687128e+01_dp, -7.9733890323907957e+01_dp, 1.0865212885707727e+02_dp, &
5185 -5.6048850673878945e+01_dp, 1.1208474159757820e+01_dp, 8.2232427943744574e+02_dp, &
5186 -1.1282193717418054e+03_dp, 3.0056386653438210e+02_dp, 5.2970835948779984e+02_dp, &
5187 -3.6912742804955758e+02_dp, -1.9945931211622650e+02_dp, 2.0796916315615783e+02_dp, &
5188 1.9918225114845831e+02_dp, -2.9472016065289944e+02_dp, 7.2671923695521441e+00_dp, &
5189 1.9096380738566870e+02_dp, -1.3490590492082302e+02_dp, 3.1463294283517353e+01_dp, &
5190 2.0580837910555242e+03_dp, -3.4946061703309515e+03_dp, 1.6696299583911045e+03_dp, &
5191 1.3450505077893019e+03_dp, -1.7913069927563238e+03_dp, -8.6372308442249675e+01_dp, &
5192 9.4017698393274759e+02_dp, 3.3494319705863421e+02_dp, -1.5979707059674208e+03_dp, &
5193 1.3250952509876529e+03_dp, -3.9493447453139942e+02_dp, -4.2074272991575519e+01_dp, &
5194 3.7749026605926751e+01_dp, 5.7172884504696012e+03_dp, -1.2228637615334226e+04_dp, &
5195 9.5260345584609622e+03_dp, 1.5243163670468698e+03_dp, -8.3375278186301748e+03_dp, &
5196 4.2132976943189569e+03_dp, 2.6329863532489203e+03_dp, -1.9930161570578837e+03_dp, &
5197 -4.4234144073523730e+03_dp, 7.9728267713326386e+03_dp, -5.8508031847927323e+03_dp, &
5198 2.1939029662054095e+03_dp, -3.4737249846121421e+02_dp, 1.9237695027274051e+04_dp, &
5199 -5.1947738927857921e+04_dp, 6.2765011200887377e+04_dp, -3.0309589558643987e+04_dp, &
5200 -1.9264261229194974e+04_dp, 4.1446219371737265e+04_dp, -2.6281354883180597e+04_dp, &
5201 2.8159263824857394e+03_dp, 3.6485501407647080e+03_dp, 2.6770249060636979e+03_dp, &
5202 -6.2669352427291251e+03_dp, 3.7308014050905122e+03_dp, -8.0644597819162743e+02_dp, &
5203 2.1234916041378580e+00_dp, -2.4267551942842563e-01_dp, -1.3618390064078997e-01_dp, &
5204 2.1235253488344166e-02_dp, 3.8121053083591247e-02_dp, -2.2512374350561323e-03_dp, &
5205 -2.2690956898994009e-02_dp, 3.7722692795086480e-03_dp, 1.4456191546859473e-02_dp, &
5206 -8.4462833259858951e-03_dp, -2.6996025350312465e-03_dp, 4.0618392843868737e-03_dp, &
5207 -1.1299679877086958e-03_dp, 2.7792848344652787e+00_dp, -4.7477598542627597e-01_dp, &
5208 -2.3798512429820987e-01_dp, 7.2098824833812886e-02_dp, 7.6285142890366947e-02_dp, &
5209 -1.7095747870246605e-02_dp, -4.7341370096482475e-02_dp, 1.2775854073981439e-02_dp, &
5210 3.5074556718704991e-02_dp, -2.8956193783707895e-02_dp, 2.2732905932494967e-03_dp, &
5211 5.9324463384063473e-03_dp, -2.0476473783333669e-03_dp, 4.3726378328909492e+00_dp, &
5212 -1.1147668218629847e+00_dp, -4.9438793138131359e-01_dp, 2.3411800744875491e-01_dp, &
5213 1.7621745035600736e-01_dp, -7.0675331650434867e-02_dp, -1.1444595532273523e-01_dp, &
5214 4.3810434696352277e-02_dp, 9.7399112758829939e-02_dp, -1.0075502118647087e-01_dp, &
5215 2.7820211439353416e-02_dp, 6.8061814563366834e-03_dp, -3.9600522823777032e-03_dp, &
5216 7.5940664502338420e+00_dp, -2.6359395650789450e+00_dp, -1.0267420292656975e+00_dp, &
5217 6.8391874036213196e-01_dp, 3.9112093438927609e-01_dp, -2.3797924906131696e-01_dp, &
5218 -2.6702577764788687e-01_dp, 1.3830923397715175e-01_dp, 2.6053229138318296e-01_dp, &
5219 -3.2264392621733523e-01_dp, 1.3155017102629712e-01_dp, -7.8585587277630424e-03_dp, &
5220 -5.8776989356745333e-03_dp, 1.3906829345279375e+01_dp, -6.1815615927462932e+00_dp, &
5221 -2.0567479439921703e+00_dp, 1.8929310304780897e+00_dp, 8.0939883147882108e-01_dp, &
5222 -7.3450777930442601e-01_dp, -5.8793748940266832e-01_dp, 4.1849011345367765e-01_dp, &
5223 6.6959615955201890e-01_dp, -9.8583966364769504e-01_dp, 5.0895589523531948e-01_dp, &
5224 -9.9254205792793884e-02_dp, -6.1164209449963590e-04_dp, 2.6401188276808139e+01_dp, &
5225 -1.4535395682302440e+01_dp, -3.9190359193691893e+00_dp, 5.1181176445344025e+00_dp, &
5226 1.5115068531544618e+00_dp, -2.1714821317110071e+00_dp, -1.2002962513354241e+00_dp, &
5227 1.2461281841515912e+00_dp, 1.6551300034059584e+00_dp, -2.9317809023065591e+00_dp, &
5228 1.8031912714428560e+00_dp, -5.0050761339182093e-01_dp, 4.5835377439546375e-02_dp, &
5229 5.1774174778275956e+01_dp, -3.4673590093429169e+01_dp, -6.8605657769909634e+00_dp, &
5230 1.3753843857799250e+01_dp, 2.2488088677398350e+00_dp, -6.2744810231042134e+00_dp, &
5231 -2.1279575450853696e+00_dp, 3.7095435731655004e+00_dp, 3.8509567321319773e+00_dp, &
5232 -8.5280597524752579e+00_dp, 6.0785754666089655e+00_dp, -2.0517020855153323e+00_dp, &
5233 2.7264394937468583e-01_dp, 1.0509588382613930e+02_dp, -8.4780704698196232e+01_dp, &
5234 -9.7392349655477037e+00_dp, 3.7137208312733918e+01_dp, 8.3554407985177170e-01_dp, &
5235 -1.7880263854377880e+01_dp, -2.4083329597635625e+00_dp, 1.1151723834747575e+01_dp, &
5236 7.7871979605114570e+00_dp, -2.4043267182405760e+01_dp, 1.9735664203306662e+01_dp, &
5237 -7.6526126546828053e+00_dp, 1.2084415666148431e+00_dp, 2.2189324774713293e+02_dp, &
5238 -2.1464604053209558e+02_dp, -3.6807906910198707e+00_dp, 1.0146351820682573e+02_dp, &
5239 -1.4155528812748599e+01_dp, -5.0203644978574609e+01_dp, 4.3001718188217284e+00_dp, &
5240 3.4014323314955611e+01_dp, 9.1644378901327990e+00_dp, -6.3442475370119638e+01_dp, &
5241 6.1193423228111932e+01_dp, -2.6745055759988510e+01_dp, 4.7357733742760555e+00_dp, &
5242 4.9075000758815480e+02_dp, -5.6911173591276133e+02_dp, 5.7194456067601791e+01_dp, &
5243 2.8119762788146772e+02_dp, -9.6106533145203329e+01_dp, -1.3626933155906542e+02_dp, &
5244 4.9851263918608808e+01_dp, 1.0456184482930480e+02_dp, -3.2146041163311445e+01_dp, &
5245 -1.3945447237077744e+02_dp, 1.7320187517099365e+02_dp, -8.6336243126137077e+01_dp, &
5246 1.6891573599822905e+01_dp, 1.1481520205431834e+03_dp, -1.6025998192547047e+03_dp, &
5247 3.9445867091993847e+02_dp, 7.8459322025471704e+02_dp, -4.9045650179813879e+02_dp, &
5248 -3.3175436609396507e+02_dp, 2.8078846062724392e+02_dp, 3.1070835070821977e+02_dp, &
5249 -3.6220306330311195e+02_dp, -1.1681704840662950e+02_dp, 3.7714350711930985e+02_dp, &
5250 -2.3526844262559749e+02_dp, 5.2160651991091960e+01_dp, 2.8817218555073487e+03_dp, &
5251 -4.8844832039242247e+03_dp, 2.1166301273677968e+03_dp, 2.1145167459343247e+03_dp, &
5252 -2.3531376839776899e+03_dp, -4.6965613633104721e+02_dp, 1.3278822822389677e+03_dp, &
5253 7.3531833182374783e+02_dp, -2.2060454899663455e+03_dp, 1.3552254192307953e+03_dp, &
5254 -1.8597548287900345e+00_dp, -3.2827436822361659e+02_dp, 1.0578152183175671e+02_dp, &
5255 7.9287162776111199e+03_dp, -1.6556637711428240e+04_dp, 1.1377040542438039e+04_dp, &
5256 4.3472707467271775e+03_dp, -1.1253948176882712e+04_dp, 2.8844083146489602e+03_dp, &
5257 5.2635488814341406e+03_dp, -5.3349077678909532e+02_dp, -9.5980797679285060e+03_dp, &
5258 1.2237468602717436e+04_dp, -7.1752996430490848e+03_dp, 2.0904595579719871e+03_dp, &
5259 -2.3076473049581341e+02_dp, 2.4941513553111414e+04_dp, -6.5057154343987058e+04_dp, &
5260 6.8510522134202620e+04_dp, -1.2564664624188634e+04_dp, -4.8494990702839394e+04_dp, &
5261 4.8066227692409921e+04_dp, 1.2754284959000174e+03_dp, -2.7700527143446598e+04_dp, &
5262 1.3436695087102896e+03_dp, 3.5023043646265716e+04_dp, -3.8543590945586038e+04_dp, &
5263 1.8589546507271829e+04_dp, -3.6217344190998742e+03_dp, 1.0880372505911512e+05_dp, &
5264 -3.3682866668262816e+05_dp, 5.0268295205038588e+05_dp, -4.0507797875013901e+05_dp, &
5265 7.2631515561032633e+04_dp, 2.4905603733649486e+05_dp, -3.5947552860654687e+05_dp, &
5266 2.7628042300900549e+05_dp, -1.4381451338213816e+05_dp, 5.7733437538747756e+04_dp, &
5267 -2.0832981857862389e+04_dp, 6.4928622544881764e+03_dp, -1.1195098273879023e+03_dp, &
5268 2.6915793781734648e-01_dp, -1.0381942599208310e-02_dp, -9.3650521014913869e-03_dp, &
5269 3.2090193795957971e-03_dp, -3.3386986359229646e-03_dp, 5.5539179173563335e-03_dp, &
5270 -6.3480573143521249e-03_dp, 6.2871036161375651e-03_dp, -6.0131949795456498e-03_dp, &
5271 4.9810441408132712e-03_dp, -3.0620311237843996e-03_dp, 1.1962570988126766e-03_dp, &
5272 -2.2066239674921657e-04_dp, 8.9689216873395949e-01_dp, -4.2122586464803081e-02_dp, &
5273 -3.7513882433882192e-02_dp, 1.3881724731562524e-02_dp, -1.3477012568179458e-02_dp, &
5274 2.2562073529423785e-02_dp, -2.5951410486921640e-02_dp, 2.5567379426983138e-02_dp, &
5275 -2.4333781051323347e-02_dp, 2.0151995146635144e-02_dp, -1.2400482709093779e-02_dp, &
5276 4.8452373650168124e-03_dp, -8.9294844328912499e-04_dp, 1.8352119311378547e+00_dp, &
5277 -1.1605842392533414e-01_dp, -1.0141001120766774e-01_dp, 4.1699067057004879e-02_dp/)
5278 REAL(kind=dp), DIMENSION(400), PARAMETER :: c04 = (/-3.6931298185134437e-02_dp, &
5279 6.2239013775737956e-02_dp, -7.2288174936489244e-02_dp, 7.0693666064322772e-02_dp, &
5280 -6.6776211112181863e-02_dp, 5.5274684972707100e-02_dp, -3.4069532004586962e-02_dp, &
5281 1.3318163740503416e-02_dp, -2.4516852040202333e-03_dp, 3.4526910112953169e+00_dp, &
5282 -2.9811951866509651e-01_dp, -2.5502175885566530e-01_dp, 1.1666479573438553e-01_dp, &
5283 -9.4640066895441091e-02_dp, 1.5992007690589682e-01_dp, -1.8786362795493361e-01_dp, &
5284 1.8234170407841388e-01_dp, -1.7071583364783530e-01_dp, 1.4120711271809522e-01_dp, &
5285 -8.7222157926976809e-02_dp, 3.4129137457941487e-02_dp, -6.2772574750481792e-03_dp, &
5286 6.4526874369355705e+00_dp, -7.4379137647143534e-01_dp, -6.2169351557404495e-01_dp, &
5287 3.1608406508912079e-01_dp, -2.3664910820793422e-01_dp, 3.9861181596578510e-01_dp, &
5288 -4.7437842206341091e-01_dp, 4.5710809927671725e-01_dp, -4.2357791972371833e-01_dp, &
5289 3.4994703099419200e-01_dp, -2.1674549913705246e-01_dp, 8.4953665492070438e-02_dp, &
5290 -1.5619616785382430e-02_dp, 1.2272761702136265e+01_dp, -1.8365536182683235e+00_dp, &
5291 -1.4952269059085537e+00_dp, 8.4751536974247987e-01_dp, -5.8923289605863272e-01_dp, &
5292 9.8181746694991578e-01_dp, -1.1862663094962580e+00_dp, 1.1351701430563665e+00_dp, &
5293 -1.0389137932494279e+00_dp, 8.5664247790845927e-01_dp, -5.3242501279025167e-01_dp, &
5294 2.0925723568583102e-01_dp, -3.8489862677363318e-02_dp, 2.4000086828210332e+01_dp, &
5295 -4.5581060135710860e+00_dp, -3.5977120742775472e+00_dp, 2.2897011921494417e+00_dp, &
5296 -1.4872248187048727e+00_dp, 2.4261115525821300e+00_dp, -2.9842698163078438e+00_dp, &
5297 2.8374294543564580e+00_dp, -2.5569428859304861e+00_dp, 2.1013503214810827e+00_dp, &
5298 -1.3118947003867396e+00_dp, 5.1782664621522245e-01_dp, -9.5402662711553898e-02_dp, &
5299 4.8587093531959233e+01_dp, -1.1532062155028678e+01_dp, -8.7655022066070973e+00_dp, &
5300 6.3319337945364706e+00_dp, -3.8731156981586130e+00_dp, 6.0963207775734327e+00_dp, &
5301 -7.6591948339186171e+00_dp, 7.2433544682793292e+00_dp, -6.3996585265106960e+00_dp, &
5302 5.2289327669288426e+00_dp, -3.2829199929814634e+00_dp, 1.3043816113094733e+00_dp, &
5303 -2.4119202153591454e-01_dp, 1.0254367589701396e+02_dp, -3.0156545743278251e+01_dp, &
5304 -2.1861824137429267e+01_dp, 1.8198871770079609e+01_dp, -1.0610092557902053e+01_dp, &
5305 1.5784369861157300e+01_dp, -2.0325106722771388e+01_dp, 1.9159263068907812e+01_dp, &
5306 -1.6497575716105022e+01_dp, 1.3338797204809440e+01_dp, -8.4308703027030507e+00_dp, &
5307 3.3832494619455296e+00_dp, -6.2994976928592783e-01_dp, 2.2763518387273865e+02_dp, &
5308 -8.2764595584286539e+01_dp, -5.6398311753951880e+01_dp, 5.5286001032641892e+01_dp, &
5309 -3.1300545607087930e+01_dp, 4.2735085101753064e+01_dp, -5.6557182696520613e+01_dp, &
5310 5.3353437804874766e+01_dp, -4.4397860550024987e+01_dp, 3.5190517825708255e+01_dp, &
5311 -2.2390621695313161e+01_dp, 9.1181332326342606e+00_dp, -1.7187754447680910e+00_dp, &
5312 5.3814419453876985e+02_dp, -2.4299588074893020e+02_dp, -1.5201445631333939e+02_dp, &
5313 1.8130374185702280e+02_dp, -1.0262892549571430e+02_dp, 1.2338122205446149e+02_dp, &
5314 -1.6769634862214531e+02_dp, 1.5947931529626564e+02_dp, -1.2673253607941503e+02_dp, &
5315 9.6503470517689962e+01_dp, -6.1507970117755306e+01_dp, 2.5568992544284665e+01_dp, &
5316 -4.9210909009850994e+00_dp, 1.3801918068313626e+03_dp, -7.8409403684044321e+02_dp, &
5317 -4.3139798224082045e+02_dp, 6.6108802464127928e+02_dp, -3.9172133571873263e+02_dp, &
5318 3.9236375791502667e+02_dp, -5.4013676730762052e+02_dp, 5.2452481311060501e+02_dp, &
5319 -3.9173273726869706e+02_dp, 2.7308075960502873e+02_dp, -1.6996111729874119e+02_dp, &
5320 7.2338992388678662e+01_dp, -1.4396994651161968e+01_dp, 3.9580600472914825e+03_dp, &
5321 -2.9036032599844793e+03_dp, -1.2781768816295728e+03_dp, 2.8070929268418577e+03_dp, &
5322 -1.8752951429725697e+03_dp, 1.4753386767800280e+03_dp, -1.9323503518765785e+03_dp, &
5323 1.9527579205070861e+03_dp, -1.3486577520305257e+03_dp, 7.5381327111334554e+02_dp, &
5324 -3.9743710790630257e+02_dp, 1.6635147838756436e+02_dp, -3.4761194955563198e+01_dp, &
5325 1.3425684708567962e+04_dp, -1.3383900660812744e+04_dp, -3.4320824963960499e+03_dp, &
5326 1.5050487619482205e+04_dp, -1.2942745398196372e+04_dp, 8.1171714061498142e+03_dp, &
5327 -7.8406387741109365e+03_dp, 8.0705849662959281e+03_dp, -5.1239781721026657e+03_dp, &
5328 1.3200473018363366e+03_dp, 4.4071137447532215e+02_dp, -4.2582815928175688e+02_dp, &
5329 9.8145031152881089e+01_dp, 6.1763293249195012e+04_dp, -9.3023683746086099e+04_dp, &
5330 1.4302377887690851e+04_dp, 1.1395909986937273e+05_dp, -1.7772764092445478e+05_dp, &
5331 1.4368085671526083e+05_dp, -6.1917915753482834e+04_dp, -1.3748361328957566e+04_dp, &
5332 6.2361092152953963e+04_dp, -7.7904069086697375e+04_dp, 6.0598777613532206e+04_dp, &
5333 -2.8232839487469380e+04_dp, 5.9912034166305712e+03_dp, 2.2102099829502819e+00_dp, &
5334 -8.9807091694595470e-02_dp, -8.0738852355447699e-02_dp, 2.8245551420289328e-02_dp, &
5335 -2.8838152951585126e-02_dp, 4.8060961814259832e-02_dp, -5.5022894223366300e-02_dp, &
5336 5.4417947301434594e-02_dp, -5.1980922605685237e-02_dp, 4.3055991607175798e-02_dp, &
5337 -2.6474712012505622e-02_dp, 1.0343216742807535e-02_dp, -1.9074395117850485e-03_dp, &
5338 2.9526385249227900e+00_dp, -1.8342158808651834e-01_dp, -1.6079974432000388e-01_dp, &
5339 6.4990457572363936e-02_dp, -5.8357582370356993e-02_dp, 9.8375835274615853e-02_dp, &
5340 -1.1403666430432409e-01_dp, 1.1164874104323870e-01_dp, -1.0561858908323142e-01_dp, &
5341 8.7439013178214162e-02_dp, -5.3873844636419935e-02_dp, 2.1055369777301082e-02_dp, &
5342 -3.8763341662694521e-03_dp, 4.7882425300284677e+00_dp, -4.4880027377068837e-01_dp, &
5343 -3.8387620646428122e-01_dp, 1.7581567932182518e-01_dp, -1.4218651556165815e-01_dp, &
5344 2.4088533741840665e-01_dp, -2.8285896497383756e-01_dp, 2.7446561521278501e-01_dp, &
5345 -2.5704300468522123e-01_dp, 2.1264001116035619e-01_dp, -1.3132372928749306e-01_dp, &
5346 5.1372473735998153e-02_dp, -9.4466605494810223e-03_dp, 8.5963629598619455e+00_dp, &
5347 -1.1032812111617041e+00_dp, -9.2128991958738193e-01_dp, 4.7072149697983523e-01_dp, &
5348 -3.5013599087368830e-01_dp, 5.9164664653692711e-01_dp, -7.0411617076286537e-01_dp, &
5349 6.7802505793072532e-01_dp, -6.2831000597729314e-01_dp, 5.1918399266101378e-01_dp, &
5350 -3.2153146818208928e-01_dp, 1.2598734950885529e-01_dp, -2.3156182641453846e-02_dp, &
5351 1.6307279051808887e+01_dp, -2.6964639955096659e+00_dp, -2.1929083193674388e+00_dp, &
5352 1.2494850984921542e+00_dp, -8.6264580098333044e-01_dp, 1.4424439050266553e+00_dp, &
5353 -1.7431000698797154e+00_dp, 1.6666423180736005e+00_dp, -1.5253713037802321e+00_dp, &
5354 1.2581191094820894e+00_dp, -7.8188837190149219e-01_dp, 3.0719187328985836e-01_dp, &
5355 -5.6478457126488940e-02_dp, 3.2180867728506904e+01_dp, -6.6411072684078274e+00_dp, &
5356 -5.2372172602238214e+00_dp, 3.3470888636894665e+00_dp, -2.1592514567307126e+00_dp, &
5357 3.5371868143609047e+00_dp, -4.3517183020335670e+00_dp, 4.1336520605961979e+00_dp, &
5358 -3.7258847437211742e+00_dp, 3.0636078261990956e+00_dp, -1.9124981724704819e+00_dp, &
5359 7.5452097435395959e-01_dp, -1.3892551807807468e-01_dp, 6.5943104829375315e+01_dp, &
5360 -1.6707127044375667e+01_dp, -1.2698264773736545e+01_dp, 9.1863412650630529e+00_dp, &
5361 -5.5829483431324674e+00_dp, 8.8392123953951618e+00_dp, -1.1105112337604499e+01_dp, &
5362 1.0490324644517454e+01_dp, -9.2755649942267286e+00_dp, 7.5866003373259350e+00_dp, &
5363 -4.7628121299140389e+00_dp, 1.8909156066204140e+00_dp, -3.4932019459840230e-01_dp, &
5364 1.4087116058808186e+02_dp, -4.3470586509878942e+01_dp, -3.1572239382059106e+01_dp, &
5365 2.6185590050497311e+01_dp, -1.5166880594846853e+01_dp, 2.2778700310398051e+01_dp, &
5366 -2.9319687356015418e+01_dp, 2.7596362755558843e+01_dp, -2.3808410787503707e+01_dp, &
5367 1.9293100477047371e+01_dp, -1.2194695218999417e+01_dp, 4.8872630176721907e+00_dp, &
5368 -9.0854459291729428e-01_dp, 3.1603181254524878e+02_dp, -1.1853513661034587e+02_dp, &
5369 -8.1246680173306473e+01_dp, 7.8648347652941197e+01_dp, -4.4153278086217064e+01_dp, &
5370 6.1303806049424246e+01_dp, -8.1073505393952701e+01_dp, 7.6296406201925507e+01_dp, &
5371 -6.3752564021982288e+01_dp, 5.0794561685790477e+01_dp, -3.2341634414896959e+01_dp, &
5372 1.3141737689621349e+01_dp, -2.4701157665658586e+00_dp, 7.5252253575264456e+02_dp, &
5373 -3.4418682220066631e+02_dp, -2.1837415788962826e+02_dp, 2.5329125041502920e+02_dp, &
5374 -1.4128547056745032e+02_dp, 1.7507672278319296e+02_dp, -2.3804626639739695e+02_dp, &
5375 2.2535235168628145e+02_dp, -1.8051776327743372e+02_dp, 1.3923468265213427e+02_dp, &
5376 -8.9091837917185714e+01_dp, 3.6920629587167475e+01_dp, -7.0690524517695410e+00_dp, &
5377 1.9315421410301064e+03_dp, -1.0874625239245886e+03_dp, -6.1808932166184934e+02_dp, &
5378 8.9545464671544005e+02_dp, -5.1479696749349444e+02_dp, 5.4356197242025212e+02_dp, &
5379 -7.5448078467711980e+02_dp, 7.2603369830764473e+02_dp, -5.4986172074879164e+02_dp, &
5380 3.9669672465398293e+02_dp, -2.5164163702286163e+02_dp, 1.0700313706124334e+02_dp, &
5381 -2.1113910665526991e+01_dp, 5.4723123751409612e+03_dp, -3.8610955995775034e+03_dp, &
5382 -1.8448756713449409e+03_dp, 3.5966262696431140e+03_dp, -2.2512699759682537e+03_dp, &
5383 1.9194105802260040e+03_dp, -2.6322931011174383e+03_dp, 2.6185867118885690e+03_dp, &
5384 -1.8443677996699814e+03_dp, 1.1419121865305731e+03_dp, -6.7280482181537468e+02_dp, &
5385 2.9210777012637755e+02_dp, -6.0511721609154549e+01_dp, 1.7804801411705495e+04_dp, &
5386 -1.6259024258501489e+04_dp, -5.5718594192341498e+03_dp, 1.7345758837342113e+04_dp, &
5387 -1.2877366253533812e+04_dp, 8.5915553852783196e+03_dp, -1.0315077162695961e+04_dp, &
5388 1.0800104463257729e+04_dp, -7.0138651831887073e+03_dp, 2.8554212903400171e+03_dp, &
5389 -8.8722261141725619e+02_dp, 2.9569669149664014e+02_dp, -6.9226682688697807e+01_dp, &
5390 7.1835823339602095e+04_dp, -9.0186165593538084e+04_dp, -9.7248478944525286e+03_dp, &
5391 1.1062096220530488e+05_dp, -1.1369726450560044e+05_dp, 6.7036834170998452e+04_dp, &
5392 -4.6207804389370787e+04_dp, 4.4594452729411365e+04_dp, -2.6072626782514293e+04_dp, &
5393 -2.9846178239841133e+03_dp, 1.5681375871473874e+04_dp, -1.0022357789314863e+04_dp, &
5394 2.3179238419310946e+03_dp, 4.4219529370203713e+05_dp, -8.4755186000937573e+05_dp, &
5395 3.7879188093690283e+05_dp, 9.7631641875634436e+05_dp, -2.2196339514296870e+06_dp, &
5396 2.3054796315979110e+06_dp, -1.0628907039914103e+06_dp, -7.6347796690832789e+05_dp, &
5397 2.1400073212989480e+06_dp, -2.4192321832669177e+06_dp, 1.7082231092388814e+06_dp, &
5398 -7.3012565960855584e+05_dp, 1.4473968969337529e+05_dp, 2.7143097167899877e-01_dp, &
5399 -1.0426354655888225e-09_dp, -1.3514349234655127e-02_dp, 1.6236462271473035e-02_dp, &
5400 -1.9832094707145951e-02_dp, 1.3779856524964107e-02_dp, 1.5011176255910088e-02_dp, &
5401 -7.7179118599429580e-02_dp, 1.6386504807733129e-01_dp, -2.2964169829422010e-01_dp, &
5402 2.1619787855597516e-01_dp, -1.2421278261439007e-01_dp, 3.2870250330679252e-02_dp, &
5403 9.0613777954751162e-01_dp, -4.2561353091248025e-09_dp, -5.5108681647653930e-02_dp, &
5404 6.6208860978777484e-02_dp, -8.0041705305285135e-02_dp, 5.4189321111835380e-02_dp, &
5405 6.4928039936621940e-02_dp, -3.2000393170497327e-01_dp, 6.7367170849599256e-01_dp, &
5406 -9.4004438108949862e-01_dp, 8.8254299622584398e-01_dp, -5.0603178442964947e-01_dp, &
5407 1.3370755800909928e-01_dp, 1.8607801318806969e+00_dp, -1.1832063710451179e-08_dp, &
5408 -1.5296272228579366e-01_dp, 1.8377288757765206e-01_dp, -2.1880198683428151e-01_dp, &
5409 1.4228504563245828e-01_dp, 1.9523650997654252e-01_dp, -9.0945729598550951e-01_dp, &
5410 1.8916140218456958e+00_dp, -2.6232469600311217e+00_dp, 2.4527671312473118e+00_dp, &
5411 -1.4022183672866397e+00_dp, 3.6967613733809346e-01_dp, 3.5186336824147015e+00_dp/)
5412 REAL(kind=dp), DIMENSION(13, 30, 5), PARAMETER :: &
5413 coefdata = reshape((/c01, c02, c03, c04, c05/), (/13, 30, 5/))
5414
5415 INTEGER :: irange
5416
5417 IF (rc <= 1.5000000000000000e+01_dp) rc = 1.5000000000000000e+01_dp
5418 IF (rc >= 4.6894989013671875e+05_dp) rc = 4.6894989013671875e+05_dp
5419 IF (rc >= 1.5000000000000000e+01_dp .AND. rc <= 1.6990973774601900e+02_dp) THEN
5420 irange = 1
5421 l_b = 1.5000000000000000e+01_dp
5422 u_b = 1.6990973774601900e+02_dp
5423 END IF
5424 IF (rc >= 1.6990973774601900e+02_dp .AND. rc <= 1.8995280520207393e+03_dp) THEN
5425 irange = 2
5426 l_b = 1.6990973774601900e+02_dp
5427 u_b = 1.8995280520207393e+03_dp
5428 END IF
5429 IF (rc >= 1.8995280520207393e+03_dp .AND. rc <= 2.6390317079362849e+04_dp) THEN
5430 irange = 3
5431 l_b = 1.8995280520207393e+03_dp
5432 u_b = 2.6390317079362849e+04_dp
5433 END IF
5434 IF (rc >= 2.6390317079362849e+04_dp .AND. rc <= 1.5948665335135348e+05_dp) THEN
5435 irange = 4
5436 l_b = 2.6390317079362849e+04_dp
5437 u_b = 1.5948665335135348e+05_dp
5438 END IF
5439 IF (rc >= 1.5948665335135348e+05_dp .AND. rc <= 4.6894989013671875e+05_dp) THEN
5440 irange = 5
5441 l_b = 1.5948665335135348e+05_dp
5442 u_b = 4.6894989013671875e+05_dp
5443 END IF
5444
5445 fit_coef(1:13, 1:30) = coefdata(1:13, 1:30, irange)
5446
5447 END SUBROUTINE get_fit_coef_k15
5448
5449! **************************************************************************************************
5450!> \brief ...
5451!> \param Rc ...
5452!> \param L_b ...
5453!> \param U_b ...
5454!> \param fit_coef ...
5455! **************************************************************************************************
5456 SUBROUTINE get_fit_coef_k16(Rc, L_b, U_b, fit_coef)
5457 REAL(kind=dp) :: rc, l_b, u_b
5458 REAL(kind=dp), DIMENSION(13, 32) :: fit_coef
5459
5460 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.8440983439459679e-01_dp, &
5461 -7.0479249003300562e-02_dp, -1.6832381157590469e-02_dp, 9.9837323526780937e-03_dp, &
5462 5.1989041899428937e-03_dp, -3.5423416042951205e-03_dp, -2.1543663571483209e-03_dp, &
5463 1.3096125508292179e-03_dp, 2.2049401312140603e-03_dp, -2.5023058617921153e-03_dp, &
5464 7.5375163633056852e-04_dp, 1.3637466463565460e-04_dp, -9.2994202830172699e-05_dp, &
5465 5.8054036572020107e-01_dp, -2.4380379683949494e-01_dp, -4.4938696140059450e-02_dp, &
5466 3.8768465512213003e-02_dp, 1.3593778767841709e-02_dp, -1.4461499926526256e-02_dp, &
5467 -5.4490788053341418e-03_dp, 5.5553275407733936e-03_dp, 7.1422948686751375e-03_dp, &
5468 -1.0583913052061498e-02_dp, 4.9741685262334190e-03_dp, -6.6432140641299532e-04_dp, &
5469 -1.0892699705666875e-04_dp, 1.0638318043371691e+00_dp, -5.2505303151143268e-01_dp, &
5470 -4.9624782924737383e-02_dp, 9.5687743884690382e-02_dp, 1.2767947916143167e-02_dp, &
5471 -3.7404011533309391e-02_dp, -3.9949046346714071e-03_dp, 1.4966928016166042e-02_dp, &
5472 1.2577310120692639e-02_dp, -2.8100049351042718e-02_dp, 1.8433425451462267e-02_dp, &
5473 -5.4088352179882731e-03_dp, 5.4854194494455884e-04_dp, 1.7106633703662533e+00_dp, &
5474 -1.0248769125439021e+00_dp, 1.0241427657345478e-02_dp, 2.0420458035779018e-01_dp, &
5475 -1.5264072128014391e-02_dp, -8.1320404223678117e-02_dp, 1.1517312423593138e-02_dp, &
5476 3.3558605291626020e-02_dp, 1.4544544223415962e-02_dp, -6.0901876447184505e-02_dp, &
5477 5.0292199523917204e-02_dp, -1.8965089106949350e-02_dp, 2.8601543886679452e-03_dp, &
5478 2.6282972200588932e+00_dp, -1.9229483513273367e+00_dp, 2.2722345074070921e-01_dp, &
5479 3.9046743014432933e-01_dp, -1.1085109620769071e-01_dp, -1.5292292332946034e-01_dp, &
5480 6.1324562893261297e-02_dp, 6.4440760127347133e-02_dp, -3.1375758896852156e-05_dp, &
5481 -1.0943572242374154e-01_dp, 1.1119871011947056e-01_dp, -4.8686829057736594e-02_dp, &
5482 8.5187843378692653e-03_dp, 3.9756816802545427e+00_dp, -3.5229306793001349e+00_dp, &
5483 8.0023523017838849e-01_dp, 6.7084504352855900e-01_dp, -3.5600097515911666e-01_dp, &
5484 -2.4559425187376815e-01_dp, 1.8405067150112531e-01_dp, 1.0450118269262665e-01_dp, &
5485 -6.2242399538416641e-02_dp, -1.5509553332024303e-01_dp, 2.0567739453273481e-01_dp, &
5486 -1.0262895944488672e-01_dp, 1.9845825902533719e-02_dp, 5.9958030217368909e+00_dp, &
5487 -6.3467161270531429e+00_dp, 2.1437674998301484e+00_dp, 1.0109234785696470e+00_dp, &
5488 -9.0400327994454444e-01_dp, -3.1019661013539263e-01_dp, 4.4434854634858123e-01_dp, &
5489 1.3034314501804636e-01_dp, -2.3283606473742849e-01_dp, -1.3205232328255015e-01_dp, &
5490 3.1131037411240431e-01_dp, -1.8221061043989620e-01_dp, 3.8754681380380226e-02_dp, &
5491 9.0676760085489132e+00_dp, -1.1299033181149410e+01_dp, 5.1048832785744436e+00_dp, &
5492 1.2130368920639967e+00_dp, -2.0156334343903222e+00_dp, -1.8774490141514191e-01_dp, &
5493 9.3144160276729693e-01_dp, 6.6775735953655421e-02_dp, -6.0860647626862330e-01_dp, &
5494 1.1967109798777947e-01_dp, 3.3525976868624457e-01_dp, -2.6382031281912727e-01_dp, &
5495 6.3577702221923230e-02_dp, 1.3791772574427243e+01_dp, -1.9957844758745054e+01_dp, &
5496 1.1393907501217026e+01_dp, 6.3027745141587310e-01_dp, -4.0736217099431213e+00_dp, &
5497 5.3209770609899276e-01_dp, 1.7196075448940431e+00_dp, -2.7410147020725067e-01_dp, &
5498 -1.2993291005460068e+00_dp, 9.1405021206328108e-01_dp, 3.9446714460368994e-02_dp, &
5499 -2.6218217849092257e-01_dp, 8.2004458930670890e-02_dp, 2.1134043943396996e+01_dp, &
5500 -3.5091359042775800e+01_dp, 2.4438380342850234e+01_dp, -2.5312397126433797e+00_dp, &
5501 -7.4649061114523123e+00_dp, 2.7785338021255463e+00_dp, 2.7113234706643428e+00_dp, &
5502 -1.2881207709853775e+00_dp, -2.3173947170071818e+00_dp, 2.7571681079983406e+00_dp, &
5503 -1.0669271742866862e+00_dp, 3.3286659884836270e-02_dp, 5.7463683876706147e-02_dp, &
5504 3.2679093868926657e+01_dp, -6.1590985372944964e+01_dp, 5.1071575868628280e+01_dp, &
5505 -1.2865796070437154e+01_dp, -1.1968112302623199e+01_dp, 8.4107024757715152e+00_dp, &
5506 3.1677115274179708e+00_dp, -3.6601777916288216e+00_dp, -3.2433702877664414e+00_dp, &
5507 6.2231339219062374e+00_dp, -3.8192853459283764e+00_dp, 1.0504543812661566e+00_dp, &
5508 -9.4464855653482102e-02_dp, 5.1112233923296436e+01_dp, -1.0820984617012243e+02_dp, &
5509 1.0486168192581441e+02_dp, -4.1564959865575254e+01_dp, -1.4578956048017877e+01_dp, &
5510 2.0463299891738025e+01_dp, 5.4796957878465291e-01_dp, -8.1431617361849096e+00_dp, &
5511 -2.3864407534639644e+00_dp, 1.1108185317660142e+01_dp, -9.0914165395682556e+00_dp, &
5512 3.4289059180469894e+00_dp, -5.2330290922697853e-01_dp, 8.1288207408222235e+01_dp, &
5513 -1.9111334897720442e+02_dp, 2.1279120241913324e+02_dp, -1.1477244836095247e+02_dp, &
5514 -3.0743808414701879e+00_dp, 4.1497540322186111e+01_dp, -1.1492293983396848e+01_dp, &
5515 -1.3925871166929845e+01_dp, 4.2907496508986602e+00_dp, 1.3859380628329522e+01_dp, &
5516 -1.5876854948348997e+01_dp, 7.3152892639960951e+00_dp, -1.3362731143808417e+00_dp, &
5517 1.3327942970575734e+02_dp, -3.4300787025442804e+02_dp, 4.3047110358093215e+02_dp, &
5518 -2.9164886994241795e+02_dp, 5.9859717276872587e+01_dp, 6.4920747245308959e+01_dp, &
5519 -4.3129286137280374e+01_dp, -1.4066222386165592e+01_dp, 2.0329366289960053e+01_dp, &
5520 6.4662789320134308e+00_dp, -1.8713821361854901e+01_dp, 1.0879757257521486e+01_dp, &
5521 -2.2809868996647227e+00_dp, 2.3476896298756850e+02_dp, -6.4871239939014094e+02_dp, &
5522 8.9470567514658705e+02_dp, -7.1469544614179904e+02_dp, 2.7168514298197266e+02_dp, &
5523 5.4663915078208277e+01_dp, -9.8551569029646402e+01_dp, 4.4291571928112470e+00_dp, &
5524 4.0875449189810638e+01_dp, -1.3810716456952706e+01_dp, -1.3765103917995090e+01_dp, &
5525 1.2346735490952792e+01_dp, -3.0319784854436125e+00_dp, 5.2021357980075481e+02_dp, &
5526 -1.5047681469099909e+03_dp, 2.2056583940220830e+03_dp, -1.9489466301285634e+03_dp, &
5527 9.6172634089814062e+02_dp, -8.2178385250715877e+01_dp, -1.8689166188128539e+02_dp, &
5528 4.7992813706474685e+01_dp, 7.5507434893328252e+01_dp, -5.0888531694752380e+01_dp, &
5529 -6.1648337992718236e+00_dp, 1.6427444516897769e+01_dp, -4.7804380737887202e+00_dp, &
5530 1.4931443468447578e+00_dp, -5.8471071386162488e-01_dp, -1.3137927495216153e-01_dp, &
5531 8.5629508847014146e-02_dp, 4.0460885624517218e-02_dp, -3.0854519142842370e-02_dp, &
5532 -1.6668874154937584e-02_dp, 1.1539311755993547e-02_dp, 1.8057976799045881e-02_dp, &
5533 -2.2047699644401675e-02_dp, 7.7604920500705474e-03_dp, 4.2470957702766204e-04_dp, &
5534 -6.4150955581103778e-04_dp, 1.7150666636291758e+00_dp, -8.5070446961324930e-01_dp, &
5535 -8.2587877714910274e-02_dp, 1.5733665025528792e-01_dp, 2.2362433751069832e-02_dp, &
5536 -6.1920203471438347e-02_dp, -7.4462817802991854e-03_dp, 2.4762989163368353e-02_dp, &
5537 2.1594517266609357e-02_dp, -4.6861787787818826e-02_dp, 3.0232817720782037e-02_dp, &
5538 -8.6536690927158984e-03_dp, 8.2816489219117028e-04_dp, 2.2012593013113242e+00_dp, &
5539 -1.4708994286649284e+00_dp, 7.0779599888676187e-02_dp, 3.1369855773415140e-01_dp, &
5540 -4.0224055770866012e-02_dp, -1.2774489263868016e-01_dp, 2.4938170206917257e-02_dp, &
5541 5.3277305829681154e-02_dp, 1.9570090404201004e-02_dp, -9.7451375771407875e-02_dp, &
5542 8.3591537572802813e-02_dp, -3.2502927863455926e-02_dp, 5.0679445972248672e-03_dp, &
5543 3.0435610577413037e+00_dp, -2.6439734331166180e+00_dp, 4.6643978960348892e-01_dp, &
5544 5.7255374553028604e-01_dp, -2.0967596109489331e-01_dp, -2.2871315539930384e-01_dp, &
5545 1.1214157555126254e-01_dp, 9.7841452353856731e-02_dp, -1.1952067880384304e-02_dp, &
5546 -1.6611264833371459e-01_dp, 1.7882104458009906e-01_dp, -8.0938254356085149e-02_dp, &
5547 1.4553336693307755e-02_dp, 4.4013915563626602e+00_dp, -4.7370367251945105e+00_dp, &
5548 1.3952141799394053e+00_dp, 9.3083326856233284e-01_dp, -6.0770432754104109e-01_dp, &
5549 -3.4146109652219514e-01_dp, 3.1148445412961517e-01_dp, 1.4799614852691056e-01_dp, &
5550 -1.2454577962361596e-01_dp, -2.1157820423498469e-01_dp, 3.1273896919979172e-01_dp, &
5551 -1.6264093750898964e-01_dp, 3.2321056217098403e-02_dp, 6.5363325586350669e+00_dp, &
5552 -8.4002734007267286e+00_dp, 3.4516744838336901e+00_dp, 1.2958797798191262e+00_dp, &
5553 -1.4530782665536190e+00_dp, -3.7130371833416770e-01_dp, 7.1329068164973419e-01_dp, &
5554 1.5886534628143975e-01_dp, -4.1300823765828609e-01_dp, -1.1297420382509935e-01_dp, &
5555 4.3095219716435623e-01_dp, -2.7099924501127154e-01_dp, 5.9765906484496450e-02_dp, &
5556 9.8718409209594444e+00_dp, -1.4774703156334951e+01_dp, 7.8344307203439723e+00_dp, &
5557 1.3100128552371193e+00_dp, -3.1029964454694561e+00_dp, -4.8425439664709267e-02_dp, &
5558 1.4305547840984860e+00_dp, 1.7043059862931740e-03_dp, -1.0173113806737391e+00_dp, &
5559 3.9971961481904772e-01_dp, 3.5717334078499841e-01_dp, -3.5227483495704071e-01_dp, &
5560 9.0840950487899280e-02_dp, 1.5094285692399961e+01_dp, -2.5863006570028976e+01_dp, &
5561 1.6941424618914212e+01_dp, -8.2529211252986553e-02_dp, -6.0502265317186374e+00_dp, &
5562 1.2842402390008709e+00_dp, 2.5244804302560042e+00_dp, -6.2891082730515735e-01_dp, &
5563 -2.0682717362404395e+00_dp, 1.8199209168598900e+00_dp, -3.1696402449624006e-01_dp, &
5564 -2.4788872827770345e-01_dp, 1.0040053068940764e-01_dp, 2.3326532076830389e+01_dp, &
5565 -4.5194032269559408e+01_dp, 3.5550320300834244e+01_dp, -5.6756451356893560e+00_dp, &
5566 -1.0703822653505913e+01_dp, 5.0650560255240329e+00_dp, 3.7433826066761373e+00_dp, &
5567 -2.3546914919859425e+00_dp, -3.4852289677497725e+00_dp, 4.8766148395113742e+00_dp, &
5568 -2.3683936704709061e+00_dp, 3.9477013548749840e-01_dp, 2.4217597532977045e-02_dp, &
5569 3.6438523276203654e+01_dp, -7.9026710872235796e+01_dp, 7.3153148523645797e+01_dp, &
5570 -2.2447806103578166e+01_dp, -1.6400252521887804e+01_dp, 1.4117189879671018e+01_dp, &
5571 3.7704063367345246e+00_dp, -6.2200433997860021e+00_dp, -4.4324532589543466e+00_dp, &
5572 1.0293341416331923e+01_dp, -7.0471929333047125e+00_dp, 2.2491704032299409e+00_dp, &
5573 -2.7472784846345960e-01_dp, 5.7650008601931596e+01_dp, -1.3859335346138556e+02_dp, &
5574 1.4854728177346706e+02_dp, -6.7174062977350260e+01_dp, -1.8000776577693308e+01_dp, &
5575 3.3025212703350597e+01_dp, -1.6648355635515739e+00_dp, -1.3341370484527044e+01_dp, &
5576 -1.9519662111886593e+00_dp, 1.7476000515060889e+01_dp, -1.5668489541211233e+01_dp, &
5577 6.3504551706926540e+00_dp, -1.0447824464894551e+00_dp, 9.2889712584894980e+01_dp, &
5578 -2.4463928647750311e+02_dp, 2.9889577966035040e+02_dp, -1.7875521526141426e+02_dp, &
5579 4.2730769050089581e+00_dp, 6.5596464491298477e+01_dp, -2.3416502194370231e+01_dp, &
5580 -2.2316628174048979e+01_dp, 1.1587124874044365e+01_dp, 1.9473620072500285e+01_dp, &
5581 -2.6128292622546354e+01_dp, 1.2919004312807344e+01_dp, -2.4858470852747883e+00_dp, &
5582 1.5466343631749228e+02_dp, -4.3876623267221055e+02_dp, 5.9917637433678522e+02_dp, &
5583 -4.4383926863394601e+02_dp, 1.1056185052763135e+02_dp, 9.9764791389111096e+01_dp, &
5584 -8.0352055369394023e+01_dp, -1.9622721204759706e+01_dp, 4.5089137417242156e+01_dp, &
5585 -3.6046484399499579e+00_dp, -2.4148729613563599e+01_dp, 1.6877244514385687e+01_dp, &
5586 -3.8474659319176436e+00_dp, 2.7677631153916957e+02_dp, -8.2445521989176632e+02_dp, &
5587 1.2212144990999409e+03_dp, -1.0555839720133740e+03_dp, 4.5253808804371664e+02_dp, &
5588 6.5091562231667240e+01_dp, -1.7662774539141580e+02_dp, 2.8862592004300790e+01_dp, &
5589 7.9025353206514183e+01_dp, -5.7883045427627493e+01_dp, 5.0699996458841383e+00_dp, &
5590 9.8497860011119158e+00_dp, -3.3639190612129344e+00_dp, 5.9487274112930379e+02_dp, &
5591 -1.7978611801015538e+03_dp, 2.7622843520701335e+03_dp, -2.5880461605405826e+03_dp, &
5592 1.4022414211295804e+03_dp, -2.0359258628022113e+02_dp, -2.6091417556034258e+02_dp, &
5593 1.2051226872116960e+02_dp, 8.5298374145724267e+01_dp, -1.0115805307780569e+02_dp/)
5594 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/2.9539145031653501e+01_dp, &
5595 4.7715049407002184e+00_dp, -3.2712144543127324e+00_dp, 2.2264348078485641e+03_dp, &
5596 -6.6288008445597088e+03_dp, 1.0084012629385183e+04_dp, -9.4383385665132246e+03_dp, &
5597 5.2647790264708256e+03_dp, -1.0875754774918837e+03_dp, -5.8837187049175338e+02_dp, &
5598 2.6613872996811381e+02_dp, 2.7202180766861471e+02_dp, -2.5302823108588976e+02_dp, &
5599 3.0050455194523508e+01_dp, 4.2500745288190885e+01_dp, -1.5231116966455813e+01_dp, &
5600 2.2506815302769312e-01_dp, -4.6864684645862111e-02_dp, -1.6076066373471819e-02_dp, &
5601 5.2617151773664064e-03_dp, 4.6066685262613890e-03_dp, -1.7521312997179688e-03_dp, &
5602 -1.9251133062711246e-03_dp, 5.9345994494066007e-04_dp, 1.4834834984639620e-03_dp, &
5603 -1.0955734366602742e-03_dp, -1.0027326064082555e-04_dp, 3.6348878322400217e-04_dp, &
5604 -1.1127160112187439e-04_dp, 7.2603005105721208e-01_dp, -1.7378410728319532e-01_dp, &
5605 -5.1996715280760691e-02_dp, 2.4016913773170116e-02_dp, 1.5560321159120889e-02_dp, &
5606 -8.5587123146005032e-03_dp, -6.5878194833641881e-03_dp, 3.0580493812781056e-03_dp, &
5607 5.8185879511744283e-03_dp, -5.6506429717535292e-03_dp, 9.6145797073991931e-04_dp, &
5608 8.4659623403035588e-04_dp, -3.3812623825664234e-04_dp, 1.3950206706580586e+00_dp, &
5609 -4.1818083799113709e-01_dp, -9.6697550419933886e-02_dp, 7.3114311638722271e-02_dp, &
5610 3.0573982779230305e-02_dp, -2.7876982279685374e-02_dp, -1.3064679941770251e-02_dp, &
5611 1.0479459233157986e-02_dp, 1.4673025417197233e-02_dp, -1.9452677781320156e-02_dp, &
5612 7.6812744538724814e-03_dp, -1.3354340974799377e-04_dp, -4.6374652770920057e-04_dp, &
5613 2.4002817735423130e+00_dp, -9.2576009390463998e-01_dp, -1.4413374515017688e-01_dp, &
5614 1.9374327535805080e-01_dp, 4.6522602576221726e-02_dp, -7.7663309125627397e-02_dp, &
5615 -1.9365836194771904e-02_dp, 3.0366121689986602e-02_dp, 3.1934293985556542e-02_dp, &
5616 -5.6570946869567498e-02_dp, 3.1245323124887436e-02_dp, -6.6302180297778618e-03_dp, &
5617 9.0727048872160795e-05_dp, 4.0131529792607168e+00_dp, -1.9771947673658135e+00_dp, &
5618 -1.5401727009837554e-01_dp, 4.6736033429357465e-01_dp, 4.2297016009197330e-02_dp, &
5619 -1.9390246830191787e-01_dp, -1.3451643644637289e-02_dp, 7.8314725324450052e-02_dp, &
5620 6.0048855340030217e-02_dp, -1.4534657554682370e-01_dp, 9.8739620200257255e-02_dp, &
5621 -3.0047651240179940e-02_dp, 3.2482467714997627e-03_dp, 6.6977661937400432e+00_dp, &
5622 -4.1338315742806850e+00_dp, 1.1682547993851978e-02_dp, 1.0522365350263854e+00_dp, &
5623 -5.6267873028670708e-02_dp, -4.4464162072743280e-01_dp, 4.6411192993530540e-02_dp, &
5624 1.8465630884986559e-01_dp, 8.9370042068134745e-02_dp, -3.3628926971532436e-01_dp, &
5625 2.6985734900416353e-01_dp, -9.8821388710520416e-02_dp, 1.4332394513831495e-02_dp, &
5626 1.1276246206952271e+01_dp, -8.5406849172019346e+00_dp, 7.5682719586455571e-01_dp, &
5627 2.2414673914939178e+00_dp, -4.6842658114719654e-01_dp, -9.4428627475309324e-01_dp, &
5628 2.8194134886271960e-01_dp, 4.0121325571233513e-01_dp, 6.1942620093743794e-02_dp, &
5629 -6.9757764732780769e-01_dp, 6.6046001816422062e-01_dp, -2.7625327157326457e-01_dp, &
5630 4.6339073107553620e-02_dp, 1.9243131938746824e+01_dp, -1.7572180196348960e+01_dp, &
5631 3.1911493525192705e+00_dp, 4.5301719814922450e+00_dp, -1.7901890264940798e+00_dp, &
5632 -1.8378320927758121e+00_dp, 1.0148404640536322e+00_dp, 7.9197328474954454e-01_dp, &
5633 -2.3336384070350974e-01_dp, -1.2451080784453024e+00_dp, 1.4494114850308317e+00_dp, &
5634 -6.8378647123057212e-01_dp, 1.2708688064825907e-01_dp, 3.3380032277175935e+01_dp, &
5635 -3.6241091255762910e+01_dp, 1.0285722844271358e+01_dp, 8.5886708142726427e+00_dp, &
5636 -5.5551083227948252e+00_dp, -3.1307221701362038e+00_dp, 3.0284928629647809e+00_dp, &
5637 1.3394612443539415e+00_dp, -1.4247249996215281e+00_dp, -1.6410029693292962e+00_dp, &
5638 2.7598440670059219e+00_dp, -1.4960510679975429e+00_dp, 3.0535228441060097e-01_dp, &
5639 5.8990537925489349e+01_dp, -7.5352687006393992e+01_dp, 2.9945186044685350e+01_dp, &
5640 1.4666282746247029e+01_dp, -1.5519933203166778e+01_dp, -3.9261174027125954e+00_dp, &
5641 8.0505809846827407e+00_dp, 1.5262322012801828e+00_dp, -5.1007207081578763e+00_dp, &
5642 -2.3367163638289626e-01_dp, 4.0544900581412744e+00_dp, -2.7636968296083531e+00_dp, &
5643 6.3238101915035738e-01_dp, 1.0645784500162654e+02_dp, -1.5877150896583035e+02_dp, &
5644 8.3344160108688257e+01_dp, 1.9521330509514783e+01_dp, -4.0311527122326183e+01_dp, &
5645 3.5169704418224251e-01_dp, 1.9265087220786128e+01_dp, -1.1490927641348434e+00_dp, &
5646 -1.4483864243908888e+01_dp, 8.3828197319727593e+00_dp, 2.1044231861397189e+00_dp, &
5647 -3.6152559380555696e+00_dp, 1.0333455730248924e+00_dp, 1.9673957337934047e+02_dp, &
5648 -3.4071102187005641e+02_dp, 2.2816253678927330e+02_dp, 3.5432086518209376e+00_dp, &
5649 -9.7344029351124050e+01_dp, 2.7012016585447444e+01_dp, 3.9849386666885657e+01_dp, &
5650 -1.5594715004093725e+01_dp, -3.3275570936735846e+01_dp, 3.7857227723125447e+01_dp, &
5651 -1.4266884105267037e+01_dp, 2.5646566664270998e-01_dp, 8.2958028001983131e-01_dp, &
5652 3.7380897364001447e+02_dp, -7.4843365384486981e+02_dp, 6.2534346604636403e+02_dp, &
5653 -1.2011555987584157e+02_dp, -2.0913981636077924e+02_dp, 1.3223097128254875e+02_dp, &
5654 5.8482694002845740e+01_dp, -6.7001391152085858e+01_dp, -5.2620142808837230e+01_dp, &
5655 1.1084495171472038e+02_dp, -7.3002889231094073e+01_dp, 2.2414543977585499e+01_dp, &
5656 -2.5763128135272004e+00_dp, 7.3590228308277256e+02_dp, -1.6937719308092217e+03_dp, &
5657 1.7365973342231957e+03_dp, -7.0191484123187968e+02_dp, -3.2398843711181541e+02_dp, &
5658 4.6233640099881148e+02_dp, -2.5325301041616040e+01_dp, -1.9579955506646129e+02_dp, &
5659 9.2621990919570578e+00_dp, 2.0559952760345703e+02_dp, -2.0101605399136827e+02_dp, &
5660 8.5917578479674788e+01_dp, -1.4858279542741453e+01_dp, 1.5386988002229782e+03_dp, &
5661 -4.0169102660006606e+03_dp, 4.9443246955768172e+03_dp, -3.0833947921566423e+03_dp, &
5662 2.0533986354945955e+02_dp, 1.1496536148736168e+03_dp, -6.0713368333607593e+02_dp, &
5663 -2.6680381334708136e+02_dp, 3.4114146837188082e+02_dp, 6.5931431069094316e+01_dp, &
5664 -2.5767149565086402e+02_dp, 1.5357507474959058e+02_dp, -3.2545640706779942e+01_dp, &
5665 3.8760158209907208e+03_dp, -1.1106072353977881e+04_dp, 1.5652437946556933e+04_dp, &
5666 -1.2734756310437266e+04_dp, 4.9118485439787391e+03_dp, 1.0865528975480108e+03_dp, &
5667 -2.0311041115258663e+03_dp, 2.9284227544796153e+02_dp, 7.0832752282331637e+02_dp, &
5668 -3.4845714151078687e+02_dp, -1.5188466316875682e+02_dp, 1.8252641460497227e+02_dp, &
5669 -4.7889305821155830e+01_dp, 1.8334270761363285e+00_dp, -3.9591024095020638e-01_dp, &
5670 -1.3126349325857345e-01_dp, 4.7222262371844306e-02_dp, 3.8076484409822732e-02_dp, &
5671 -1.6052628355116935e-02_dp, -1.5975826849070771e-02_dp, 5.5282813708112865e-03_dp, &
5672 1.2748899132651596e-02_dp, -1.0203081612794597e-02_dp, -7.6057568131617672e-05_dp, &
5673 2.7891576352124907e-03_dp, -8.9966226534393592e-04_dp, 2.2501471998076918e+00_dp, &
5674 -6.7293363442777321e-01_dp, -1.5991691179414610e-01_dp, 1.1671686002652161e-01_dp, &
5675 5.1331330187183055e-02_dp, -4.4152248495071197e-02_dp, -2.2121001215930056e-02_dp, &
5676 1.6471795598964997e-02_dp, 2.3995999348520584e-02_dp, -3.0506564606459299e-02_dp, &
5677 1.1201649086166804e-02_dp, 3.8654761046905383e-04_dp, -8.6532927608573725e-04_dp, &
5678 3.2106589696873193e+00_dp, -1.3748442557689724e+00_dp, -1.9499364840046871e-01_dp, &
5679 3.0218577867948093e-01_dp, 6.7411675514350539e-02_dp, -1.2176826893310169e-01_dp, &
5680 -2.8771344876437632e-02_dp, 4.7632499769699695e-02_dp, 4.9529748656412943e-02_dp, &
5681 -8.8817206722143702e-02_dp, 4.9444418187113308e-02_dp, -1.0655147393424186e-02_dp, &
5682 1.9439228710540853e-04_dp, 5.0066760706889388e+00_dp, -2.8639206962938242e+00_dp, &
5683 -1.6134501992474284e-01_dp, 7.1478932034735954e-01_dp, 4.8155111521357881e-02_dp, &
5684 -2.9955711646643696e-01_dp, -1.4766362863594271e-02_dp, 1.2140643553439820e-01_dp, &
5685 9.0761344780329142e-02_dp, -2.2640716820860976e-01_dp, 1.5602634912722926e-01_dp, &
5686 -4.8310196750658556e-02_dp, 5.3965878202100323e-03_dp, 8.1953446443739981e+00_dp, &
5687 -5.9031688012409029e+00_dp, 1.6445721911292407e-01_dp, 1.5757599912732250e+00_dp, &
5688 -1.2596820581475607e-01_dp, -6.7456338496403423e-01_dp, 8.6896320749570238e-02_dp, &
5689 2.8184553616038971e-01_dp, 1.2976825380286353e-01_dp, -5.1736963246432022e-01_dp, &
5690 4.2200984843870865e-01_dp, -1.5680233470759714e-01_dp, 2.3138933575817758e-02_dp, &
5691 1.3809992873162685e+01_dp, -1.2073777985207707e+01_dp, 1.4046415603947400e+00_dp, &
5692 3.2935120871963131e+00_dp, -7.9491410275893204e-01_dp, -1.4077655697256062e+00_dp, &
5693 4.6583962717584887e-01_dp, 6.0356328563664763e-01_dp, 7.2315826275806253e-02_dp, &
5694 -1.0589440789395266e+00_dp, 1.0229181937437832e+00_dp, -4.3382313133258776e-01_dp, &
5695 7.3703880601393990e-02_dp, 2.3775983411163235e+01_dp, -2.4678311578916002e+01_dp, &
5696 5.2289598442606424e+00_dp, 6.5489084608638590e+00_dp, -2.8658851271641992e+00_dp, &
5697 -2.6940912874542859e+00_dp, 1.6164260715043517e+00_dp, 1.1759602756276122e+00_dp, &
5698 -4.1631339246830373e-01_dp, -1.8583417620069387e+00_dp, 2.2261661929860863e+00_dp, &
5699 -1.0658414136189160e+00_dp, 2.0032087127389880e-01_dp, 4.1737161851743600e+01_dp, &
5700 -5.0724899954717543e+01_dp, 1.6048134070688963e+01_dp, 1.2233841848958997e+01_dp, &
5701 -8.6515035875208675e+00_dp, -4.4977564335736266e+00_dp, 4.7366008010596605e+00_dp, &
5702 1.9604112600157124e+00_dp, -2.3289929066425041e+00_dp, -2.3525147200130276e+00_dp, &
5703 4.1996293132940137e+00_dp, -2.3189605445392569e+00_dp, 4.7873798450047977e-01_dp, &
5704 7.4736777736519500e+01_dp, -1.0539402492295558e+02_dp, 4.5498177785332551e+01_dp, &
5705 2.0552859353942374e+01_dp, -2.3801828295887351e+01_dp, -5.3984340277393645e+00_dp, &
5706 1.2478979390566309e+01_dp, 2.1568019965817968e+00_dp, -8.2046138856525843e+00_dp, &
5707 1.3417335317994308e-01_dp, 6.0431791851769976e+00_dp, -4.2563589579645420e+00_dp, &
5708 9.8809406039481740e-01_dp, 1.3673546697572985e+02_dp, -2.2238025265186792e+02_dp, &
5709 1.2456773646258677e+02_dp, 2.6565789009467544e+01_dp, -6.1369218065318094e+01_dp, &
5710 1.5783873793130154e+00_dp, 2.9847304045089373e+01_dp, -2.0693059266805047e+00_dp, &
5711 -2.3361145261027204e+01_dp, 1.4410244118512024e+01_dp, 2.4894867024678495e+00_dp, &
5712 -5.4517863752830902e+00_dp, 1.6052091637823835e+00_dp, 2.5623223867233128e+02_dp, &
5713 -4.7860134044984517e+02_dp, 3.3730097004867315e+02_dp, 1.8218678998248234e+00_dp, &
5714 -1.4844387126254162e+02_dp, 4.2634582495319499e+01_dp, 6.2609487759576318e+01_dp, &
5715 -2.4599352208490920e+01_dp, -5.4743329555941450e+01_dp, 6.3294007287866073e+01_dp, &
5716 -2.4856415765702479e+01_dp, 1.1220010346374052e+00_dp, 1.2319782966587371e+00_dp, &
5717 4.9355841129397038e+02_dp, -1.0553521276769141e+03_dp, 9.1745816655949625e+02_dp, &
5718 -1.7734721772935907e+02_dp, -3.2570604320747339e+02_dp, 2.0420589402118949e+02_dp, &
5719 9.8255664197738639e+01_dp, -1.0685912026305078e+02_dp, -9.2991815283395937e+01_dp, &
5720 1.8938941289256240e+02_dp, -1.2451863070929338e+02_dp, 3.8321023072916731e+01_dp, &
5721 -4.4243955972078108e+00_dp, 9.8341942206132705e+02_dp, -2.3964944718903166e+03_dp, &
5722 2.5343558839934922e+03_dp, -1.0068167115408598e+03_dp, -5.5803706876145225e+02_dp, &
5723 7.3313067449087373e+02_dp, -6.6657041466680189e-01_dp, -3.3788668166577065e+02_dp, &
5724 -1.7628434198318345e+01_dp, 3.9655688909902926e+02_dp, -3.7408946589251713e+02_dp, &
5725 1.5787812785698458e+02_dp, -2.7089362134634474e+01_dp, 2.0614418378112468e+03_dp, &
5726 -5.6578757894510300e+03_dp, 7.1620850676558530e+03_dp, -4.4041308675995369e+03_dp, &
5727 -5.1684129400340517e+01_dp, 2.0625349133742861e+03_dp, -9.2575644960768261e+02_dp/)
5728 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/-6.5703600920047631e+02_dp, &
5729 6.8515562434659739e+02_dp, 1.8173876061092901e+02_dp, -5.6990417291447488e+02_dp, &
5730 3.3635689037567329e+02_dp, -7.1542971828322536e+01_dp, 4.8609029109261082e+03_dp, &
5731 -1.4519102949367327e+04_dp, 2.1140422991455973e+04_dp, -1.7456530345889521e+04_dp, &
5732 6.1840046223145300e+03_dp, 2.8967239834451047e+03_dp, -4.1351692035042397e+03_dp, &
5733 6.5605620689472300e+02_dp, 1.7465620750833602e+03_dp, -1.4086350854964323e+03_dp, &
5734 2.9723222124582003e+02_dp, 1.1297881533760143e+02_dp, -5.1706127610453933e+01_dp, &
5735 1.8037684068839269e+04_dp, -5.4688608792211548e+04_dp, 8.3235695251795070e+04_dp, &
5736 -7.6979367072450463e+04_dp, 4.1185108453331864e+04_dp, -6.1794736925636562e+03_dp, &
5737 -6.9941711390058144e+03_dp, 3.2391970281109980e+03_dp, 1.9275654950388387e+03_dp, &
5738 -2.0014061535060721e+03_dp, 1.9033610113525435e+02_dp, 3.8478416754321637e+02_dp, &
5739 -1.3375337573784293e+02_dp, 2.5233269038969647e-01_dp, -2.6125055124024122e-02_dp, &
5740 -1.5445007406931326e-02_dp, 2.2557733632006770e-03_dp, 4.5182814756085403e-03_dp, &
5741 -1.7015400805549943e-04_dp, -2.8956549151850828e-03_dp, 3.4556093573692947e-04_dp, &
5742 2.2860774424317346e-03_dp, -1.6142483329644956e-03_dp, -2.0080309005498026e-05_dp, &
5743 4.1938671314358758e-04_dp, -1.3211727515346973e-04_dp, 8.2985625449170086e-01_dp, &
5744 -1.0224002952564909e-01_dp, -5.7664608710827639e-02_dp, 1.1974872702710729e-02_dp, &
5745 1.7932222830025043e-02_dp, -2.0242221071433827e-03_dp, -1.1683621416807838e-02_dp, &
5746 1.9133988199667928e-03_dp, 9.8961258386357637e-03_dp, -8.0196005442698740e-03_dp, &
5747 1.0252959799708511e-03_dp, 1.3039819801815705e-03_dp, -4.7833675979909446e-04_dp, &
5748 1.6553598506640155e+00_dp, -2.6704534598816121e-01_dp, -1.3976189982584905e-01_dp, &
5749 4.3195924781359557e-02_dp, 4.7199394458458561e-02_dp, -1.0781926573923930e-02_dp, &
5750 -3.1578308961048213e-02_dp, 7.3609046611193265e-03_dp, 2.9529666637054093e-02_dp, &
5751 -2.8085086647952978e-02_dp, 7.5639805082039629e-03_dp, 1.8106942675531527e-03_dp, &
5752 -1.0454801887820322e-03_dp, 3.0038146571211781e+00_dp, -6.4706656618816383e-01_dp, &
5753 -3.0986077711226090e-01_dp, 1.3471966868340191e-01_dp, 1.1282630726578560e-01_dp, &
5754 -4.1339044226723645e-02_dp, -7.7965682549816187e-02_dp, 2.4795390028214060e-02_dp, &
5755 8.1004935022273516e-02_dp, -8.8852693289714887e-02_dp, 3.3669485741906306e-02_dp, &
5756 -1.0427673934340815e-03_dp, -1.7583837649226093e-03_dp, 5.3661110332212125e+00_dp, &
5757 -1.5177683390219008e+00_dp, -6.5603757824139586e-01_dp, 3.8500786992205382e-01_dp, &
5758 2.5336092688609296e-01_dp, -1.3567978709745959e-01_dp, -1.8192450564210702e-01_dp, &
5759 7.7309535643977162e-02_dp, 2.1128094777967329e-01_dp, -2.6436364174291122e-01_dp, &
5760 1.2387404838719954e-01_dp, -1.9643916427159049e-02_dp, -1.4373481356760645e-03_dp, &
5761 9.6763664742460129e+00_dp, -3.5034680326316079e+00_dp, -1.3384736160499082e+00_dp, &
5762 1.0464400018507101e+00_dp, 5.3683599645419833e-01_dp, -4.1063751344235755e-01_dp, &
5763 -4.0422596672493061e-01_dp, 2.3132613484214665e-01_dp, 5.3106145549846739e-01_dp, &
5764 -7.5794244173349756e-01_dp, 4.1567726800030025e-01_dp, -9.8798754939939740e-02_dp, &
5765 5.6616607065354827e-03_dp, 1.7788408183604410e+01_dp, -8.0593752690254270e+00_dp, &
5766 -2.6302227053318825e+00_dp, 2.7712044719380975e+00_dp, 1.0604974174861457e+00_dp, &
5767 -1.1889029862167542e+00_dp, -8.5146872301255649e-01_dp, 6.8030468396528943e-01_dp, &
5768 1.2912221791895706e+00_dp, -2.1240738522644662e+00_dp, 1.3266071942599185e+00_dp, &
5769 -3.9109485214509854e-01_dp, 4.2305366773465025e-02_dp, 3.3518413862389274e+01_dp, &
5770 -1.8679186314635402e+01_dp, -4.9162127064446723e+00_dp, 7.2666289813213654e+00_dp, &
5771 1.8606253476611085e+00_dp, -3.3597721710782356e+00_dp, -1.6564498861825205e+00_dp, &
5772 1.9990348858286913e+00_dp, 3.0053373009755533e+00_dp, -5.8494608250533311e+00_dp, &
5773 4.1063242486654916e+00_dp, -1.3990589490178600e+00_dp, 1.9147802002843936e-01_dp, &
5774 6.5026247054793515e+01_dp, -4.4052475259993862e+01_dp, -8.3815680918103901e+00_dp, &
5775 1.9083151743714176e+01_dp, 2.3780161434136025e+00_dp, -9.3704244036259556e+00_dp, &
5776 -2.7194194265982845e+00_dp, 5.9402535323345900e+00_dp, 6.4281786309828632e+00_dp, &
5777 -1.5756775907653372e+01_dp, 1.2412062950466199e+01_dp, -4.7334254279650443e+00_dp, &
5778 7.4159825374866106e-01_dp, 1.3052226392818551e+02_dp, -1.0674760116218118e+02_dp, &
5779 -1.1161921902585187e+01_dp, 5.0609207068618112e+01_dp, -1.0533924589029899e+00_dp, &
5780 -2.5890748254175101e+01_dp, -2.2676107030737405e+00_dp, 1.7997385078036434e+01_dp, &
5781 1.0898308868992313e+01_dp, -4.0625202454028170e+01_dp, 3.6416772710287425e+01_dp, &
5782 -1.5358584568725442e+01_dp, 2.6525693124594736e+00_dp, 2.7273422484799687e+02_dp, &
5783 -2.6858858523224052e+02_dp, -4.7885740801452348e-01_dp, 1.3627417330611453e+02_dp, &
5784 -2.6358992902829311e+01_dp, -7.0393695696082460e+01_dp, 9.9494808404702209e+00_dp, &
5785 5.5679648303730211e+01_dp, 2.3191677764627250e+00_dp, -9.3785981251887762e+01_dp, &
5786 1.0074347646251888e+02_dp, -4.7292967213979878e+01_dp, 8.8974333107109391e+00_dp, &
5787 5.9814256543256761e+02_dp, -7.1057805327339554e+02_dp, 8.8601488863604075e+01_dp, &
5788 3.7264206640783578e+02_dp, -1.5551496835779633e+02_dp, -1.8230942230852452e+02_dp, &
5789 8.3174041344709863e+01_dp, 1.7313461443852231e+02_dp, -1.1433889332027171e+02_dp, &
5790 -1.4732698175357447e+02_dp, 2.3885411412899521e+02_dp, -1.3081884815432261e+02_dp, &
5791 2.7131160357794776e+01_dp, 1.3926535234572304e+03_dp, -2.0093649803688027e+03_dp, &
5792 5.7417596311169530e+02_dp, 1.0197340958636103e+03_dp, -7.6503574679237079e+02_dp, &
5793 -3.9341161249586122e+02_dp, 4.3789084981339414e+02_dp, 5.0339035381666918e+02_dp, &
5794 -8.3869418930766665e+02_dp, 2.3396482300537855e+02_dp, 2.9455554478541080e+02_dp, &
5795 -2.6058293586631680e+02_dp, 6.5188966276420842e+01_dp, 3.5014744519247643e+03_dp, &
5796 -6.2163991386173120e+03_dp, 3.1151468986944483e+03_dp, 2.5849457928935071e+03_dp, &
5797 -3.6379187148580500e+03_dp, -1.0371922354864618e+02_dp, 1.9541413742804682e+03_dp, &
5798 9.4382928584982380e+02_dp, -4.1940808589968328e+03_dp, 3.9117942893214040e+03_dp, &
5799 -1.6320017495377126e+03_dp, 2.1892754217913259e+02_dp, 2.8366828833340946e+01_dp, &
5800 9.7875448079300859e+03_dp, -2.1801596144554653e+04_dp, 1.7647392751717292e+04_dp, &
5801 3.0182497292630583e+03_dp, -1.6860787344740485e+04_dp, 8.9519787903568704e+03_dp, &
5802 5.5338276194636665e+03_dp, -4.2835976536269254e+03_dp, -1.0643234050261457e+04_dp, &
5803 1.9747629350798474e+04_dp, -1.5091225398714651e+04_dp, 5.9161713721962315e+03_dp, &
5804 -9.8289027954559174e+02_dp, 3.3196247063191586e+04_dp, -9.3274647246994995e+04_dp, &
5805 1.1696367892260675e+05_dp, -5.7983849396112921e+04_dp, -4.0430038391972135e+04_dp, &
5806 8.8668357693324142e+04_dp, -5.8371126061495066e+04_dp, 6.0751284512953389e+03_dp, &
5807 1.0622268134494479e+04_dp, 3.2655837179587106e+03_dp, -1.2844528875114578e+04_dp, &
5808 8.2097522311486537e+03_dp, -1.8311415720327325e+03_dp, 2.0653637422040756e+00_dp, &
5809 -2.2384945891375232e-01_dp, -1.3073607242437763e-01_dp, 2.1162136800823701e-02_dp, &
5810 3.8890411553423945e-02_dp, -2.2306624268842003e-03_dp, -2.5029344308511840e-02_dp, &
5811 3.2754819697756528e-03_dp, 2.0135897811441424e-02_dp, -1.4787158586580834e-02_dp, &
5812 4.3510596001332895e-04_dp, 3.4129326945082478e-03_dp, -1.1123282044359531e-03_dp, &
5813 2.6671755379167270e+00_dp, -4.2558997726367698e-01_dp, -2.2518643634186017e-01_dp, &
5814 6.6476925859854485e-02_dp, 7.5670871490107108e-02_dp, -1.5785369201729928e-02_dp, &
5815 -5.0359789910624432e-02_dp, 1.1050039154106801e-02_dp, 4.6262019696085968e-02_dp, &
5816 -4.2730599514122225e-02_dp, 1.0454611624572414e-02_dp, 3.4881697628749296e-03_dp, &
5817 -1.7584705205137370e-03_dp, 4.1130012975486210e+00_dp, -9.7197400656395661e-01_dp, &
5818 -4.6237399676090191e-01_dp, 2.0698158854957260e-01_dp, 1.7154740439363861e-01_dp, &
5819 -6.3194136479580720e-02_dp, -1.1852187781079761e-01_dp, 3.7373697623651093e-02_dp, &
5820 1.2303837057702460e-01_dp, -1.3406730347811235e-01_dp, 5.0073347721850299e-02_dp, &
5821 -1.0526296887983370e-03_dp, -2.7741605641166435e-03_dp, 6.9879106304886687e+00_dp, &
5822 -2.2398959339089957e+00_dp, -9.5500233539439394e-01_dp, 5.8532810178543637e-01_dp, &
5823 3.7832389585154519e-01_dp, -2.0649380273593768e-01_dp, -2.7235995790339301e-01_dp, &
5824 1.1589245735429003e-01_dp, 3.1782510260520691e-01_dp, -3.9666849007623201e-01_dp, &
5825 1.8494292684281363e-01_dp, -2.8775671938967632e-02_dp, -2.3253247744458075e-03_dp, &
5826 1.2504091216408819e+01_dp, -5.1133715337985244e+00_dp, -1.9181898554326646e+00_dp, &
5827 1.5709030401577699e+00_dp, 7.9081643367877807e-01_dp, -6.1856497603188698e-01_dp, &
5828 -5.9852994860204733e-01_dp, 3.4380179574626718e-01_dp, 7.9330856385958726e-01_dp, &
5829 -1.1300425774704193e+00_dp, 6.1780772258320593e-01_dp, -1.4576277626532783e-01_dp, &
5830 8.0559421794824965e-03_dp, 2.3150699771274905e+01_dp, -1.1671570206269971e+01_dp, &
5831 -3.7216455982735082e+00_dp, 4.1174047756097680e+00_dp, 1.5454379483839249e+00_dp, &
5832 -1.7754265965038893e+00_dp, -1.2509441410240485e+00_dp, 1.0031593326500263e+00_dp, &
5833 1.9232600826293296e+00_dp, -3.1538645783335792e+00_dp, 1.9636054804026819e+00_dp, &
5834 -5.7580937729700632e-01_dp, 6.1579345420484835e-02_dp, 4.4147095393639411e+01_dp, &
5835 -2.6922086577205693e+01_dp, -6.8815493972125763e+00_dp, 1.0716119799573967e+01_dp, &
5836 2.6933147969167028e+00_dp, -4.9862251392598829e+00_dp, -2.4265145944659903e+00_dp, &
5837 2.9279766729955137e+00_dp, 4.4935316525485280e+00_dp, -8.6797598171501242e+00_dp, &
5838 6.0658299107057587e+00_dp, -2.0551305190725611e+00_dp, 2.7895387328935622e-01_dp, &
5839 8.6795469321420356e+01_dp, -6.3334977146765148e+01_dp, -1.1616855764666131e+01_dp, &
5840 2.7995473727190131e+01_dp, 3.4578165687230404e+00_dp, -1.3855839284346782e+01_dp, &
5841 -4.0148856187294424e+00_dp, 8.6500178158021424e+00_dp, 9.7804892449733156e+00_dp, &
5842 -2.3485823007059793e+01_dp, 1.8360707367435733e+01_dp, -6.9529236408812043e+00_dp, &
5843 1.0806322167710474e+00_dp, 1.7656622530201321e+02_dp, -1.5328123200897573e+02_dp, &
5844 -1.5291064937327004e+01_dp, 7.3985834147322677e+01_dp, -1.2152988380722913e+00_dp, &
5845 -3.8270202581466002e+01_dp, -3.6377050794632200e+00_dp, 2.6084885989267164e+01_dp, &
5846 1.7676198736610498e+01_dp, -6.1439500469950268e+01_dp, 5.4294556266848126e+01_dp, &
5847 -2.2673187037308736e+01_dp, 3.8805401802065420e+00_dp, 3.7365419495324414e+02_dp, &
5848 -3.8515598503602843e+02_dp, -4.0361864625047167e-01_dp, 1.9885938187600482e+02_dp, &
5849 -3.5770781805075885e+01_dp, -1.0466970552404520e+02_dp, 1.2589120977813629e+01_dp, &
5850 8.0595793051374187e+01_dp, 1.1782181052160290e+01_dp, -1.4784344384024041e+02_dp, &
5851 1.5365187663766355e+02_dp, -7.0959472033717248e+01_dp, 1.3190525000857415e+01_dp, &
5852 8.2863322469379375e+02_dp, -1.0157657443516359e+03_dp, 1.1986988187949704e+02_dp, &
5853 5.4449676449347032e+02_dp, -2.1036288129400012e+02_dp, -2.7738557943311429e+02_dp, &
5854 1.1136872225739332e+02_dp, 2.5324789577013900e+02_dp, -1.2776987419497914e+02_dp, &
5855 -2.7397753121367208e+02_dp, 3.8961772786829607e+02_dp, -2.0551276375773824e+02_dp, &
5856 4.1739997168171449e+01_dp, 1.9450907147920134e+03_dp, -2.8508892351002860e+03_dp, &
5857 7.5747523129342949e+02_dp, 1.5070567428821669e+03_dp, -1.0217458181146775e+03_dp, &
5858 -6.5694865280062390e+02_dp, 5.9368339749825054e+02_dp, 7.7692645932202890e+02_dp, &
5859 -1.0697937873179803e+03_dp, 3.8548984201540087e+01_dp, 6.7608544747530505e+02_dp, &
5860 -4.8167622236142665e+02_dp, 1.1263022376557032e+02_dp, 4.9024755081192952e+03_dp, &
5861 -8.6785968466350550e+03_dp, 3.9572621953771327e+03_dp, 4.0485213527526844e+03_dp/)
5862 REAL(kind=dp), DIMENSION(400), PARAMETER :: c04 = (/-4.7874743699806668e+03_dp, &
5863 -8.5329386064550408e+02_dp, 2.7526945075798449e+03_dp, 1.9553980517436300e+03_dp, &
5864 -5.9289564226732664e+03_dp, 4.4771348003328458e+03_dp, -1.0901273950898408e+03_dp, &
5865 -3.0130386512273043e+02_dp, 1.6238769196873562e+02_dp, 1.3563319365162426e+04_dp, &
5866 -2.9459071556804978e+04_dp, 2.1056290292594003e+04_dp, 8.3902840919604496e+03_dp, &
5867 -2.2673291511349471e+04_dp, 6.3284247944587814e+03_dp, 1.0923165055552865e+04_dp, &
5868 -4.1277480924433718e+02_dp, -2.4024037869185162e+04_dp, 3.2150151957564813e+04_dp, &
5869 -2.0428697339350008e+04_dp, 6.7276912202797048e+03_dp, -9.1758726122739427e+02_dp, &
5870 4.2980689084572172e+04_dp, -1.1637801167987248e+05_dp, 1.2686014747328563e+05_dp, &
5871 -2.3138864168402757e+04_dp, -9.8492147420019101e+04_dp, 1.0071830242916004e+05_dp, &
5872 3.2911879605145018e+03_dp, -6.4873615309764507e+04_dp, 9.6403278074733826e+03_dp, &
5873 7.4571802297396542e+04_dp, -8.6979131802506905e+04_dp, 4.3117461760700382e+04_dp, &
5874 -8.5450772808429192e+03_dp, 1.8880572840095649e+05_dp, -6.0818896836644155e+05_dp, &
5875 9.4238894917301007e+05_dp, -7.8416009400037490e+05_dp, 1.3237171408866072e+05_dp, &
5876 5.4779421601664904e+05_dp, -8.1171169360100222e+05_dp, 6.4638916088477266e+05_dp, &
5877 -3.4673780482035381e+05_dp, 1.4009010473194942e+05_dp, -4.9102063709230773e+04_dp, &
5878 1.4876957124327950e+04_dp, -2.5652831322436327e+03_dp, 2.6121103454662853e-01_dp, &
5879 -9.2614016920939818e-03_dp, -8.3000893742049778e-03_dp, 2.9074778484552504e-03_dp, &
5880 -3.0144050099379580e-03_dp, 4.9532380283510919e-03_dp, -5.6871174776962855e-03_dp, &
5881 5.6833144062626998e-03_dp, -5.4644435872497057e-03_dp, 4.5424442498369442e-03_dp, &
5882 -2.8087470813445226e-03_dp, 1.1070902641492602e-03_dp, -2.0646299963951532e-04_dp, &
5883 8.6492801066328462e-01_dp, -3.6931303166526513e-02_dp, -3.2730494983751128e-02_dp, &
5884 1.2246168926080620e-02_dp, -1.1973281160824956e-02_dp, 1.9775557228632324e-02_dp, &
5885 -2.2824439482019589e-02_dp, 2.2709199342063304e-02_dp, -2.1745218503398112e-02_dp, &
5886 1.8069693810495297e-02_dp, -1.1180161722380632e-02_dp, 4.4065971039600003e-03_dp, &
5887 -8.2110935783146887e-04_dp, 1.7482557856955379e+00_dp, -9.9194016925639519e-02_dp, &
5888 -8.6451169814672935e-02_dp, 3.5464507882586600e-02_dp, -3.2021249054978267e-02_dp, &
5889 5.3185104302619933e-02_dp, -6.1882498472844098e-02_dp, 6.1184989135095555e-02_dp, &
5890 -5.8218328328857059e-02_dp, 4.8348235667150061e-02_dp, -2.9946177814150546e-02_dp, &
5891 1.1804489751035784e-02_dp, -2.1971644622055773e-03_dp, 3.2323943569806324e+00_dp, &
5892 -2.4780428150533954e-01_dp, -2.1198615319295999e-01_dp, 9.5537150881642635e-02_dp, &
5893 -7.9829124976059013e-02_dp, 1.3295600640545427e-01_dp, -1.5615621853217190e-01_dp, &
5894 1.5340084396316397e-01_dp, -1.4489460259257397e-01_dp, 1.2023015115955925e-01_dp, &
5895 -7.4572268679463607e-02_dp, 2.9408259186661307e-02_dp, -5.4683663834212944e-03_dp, &
5896 5.9110512696058004e+00_dp, -6.0023777314923710e-01_dp, -5.0327168989784998e-01_dp, &
5897 2.4893207402559139e-01_dp, -1.9361685019651018e-01_dp, 3.2197727902061518e-01_dp, &
5898 -3.8217882779932483e-01_dp, 3.7308039130993181e-01_dp, -3.4946309083981375e-01_dp, &
5899 2.8964679258249543e-01_dp, -1.7996777762962227e-01_dp, 7.1034404853642361e-02_dp, &
5900 -1.3199465528400126e-02_dp, 1.0956673224198525e+01_dp, -1.4346595057416782e+00_dp, &
5901 -1.1762540800120738e+00_dp, 6.3994506883957525e-01_dp, -4.6541568109437514e-01_dp, &
5902 7.6857524192355064e-01_dp, -9.2344838294545883e-01_dp, 8.9595278289335112e-01_dp, &
5903 -8.3103399203641393e-01_dp, 6.8765431279190914e-01_dp, -4.2822296013721550e-01_dp, &
5904 1.6927920220984846e-01_dp, -3.1446728843768625e-02_dp, 2.0792596884134536e+01_dp, &
5905 -3.4314401576726481e+00_dp, -2.7415334111503054e+00_dp, 1.6495658618315001e+00_dp, &
5906 -1.1261669765784517e+00_dp, 1.8334764395621579e+00_dp, -2.2345254604368661e+00_dp, &
5907 2.1552250426936013e+00_dp, -1.9753669693004268e+00_dp, 1.6304657176257347e+00_dp, &
5908 -1.0182640362604070e+00_dp, 4.0351035593520562e-01_dp, -7.4988906494427660e-02_dp, &
5909 4.0641614403913103e+01_dp, -8.3157277744128777e+00_dp, -6.4427715366084595e+00_dp, &
5910 4.3229852088919545e+00_dp, -2.7837340360875835e+00_dp, 4.4241729410937412e+00_dp, &
5911 -5.4829090349509961e+00_dp, 5.2597965380569276e+00_dp, -4.7499578296245764e+00_dp, &
5912 3.9051365477525373e+00_dp, -2.4477687477727605e+00_dp, 9.7366758168919942e-01_dp, &
5913 -1.8121195058941905e-01_dp, 8.2279753709829350e+01_dp, -2.0658726903050777e+01_dp, &
5914 -1.5417087397668558e+01_dp, 1.1667289558374994e+01_dp, -7.1366807342421215e+00_dp, &
5915 1.0920441396316519e+01_dp, -1.3801231712035245e+01_dp, 1.3182065256871045e+01_dp, &
5916 -1.1682971218060507e+01_dp, 9.5429009419005446e+00_dp, -6.0084889711222393e+00_dp, &
5917 2.4038519801319982e+00_dp, -4.4882474577803322e-01_dp, 1.7368668276644541e+02_dp, &
5918 -5.3256212659671924e+01_dp, -3.7915111660268572e+01_dp, 3.2864991327369893e+01_dp, &
5919 -1.9307015368211516e+01_dp, 2.7897233436619405e+01_dp, -3.6056588333988557e+01_dp, &
5920 3.4359603001317005e+01_dp, -2.9723444391223833e+01_dp, 2.4009950934101433e+01_dp, &
5921 -1.5194650895871973e+01_dp, 6.1315866703523074e+00_dp, -1.1517999700175321e+00_dp, &
5922 3.8567284052451515e+02_dp, -1.4449356721851993e+02_dp, -9.6726585251915836e+01_dp, &
5923 9.8143836449527910e+01_dp, -5.6333493633577575e+01_dp, 7.4782940357757127e+01_dp, &
5924 -9.9046173142738638e+01_dp, 9.4524979091637363e+01_dp, -7.9209350305708099e+01_dp, &
5925 6.2708234355782480e+01_dp, -3.9861447795304208e+01_dp, 1.6288701950845873e+01_dp, &
5926 -3.0927002635391019e+00_dp, 9.1208802703023264e+02_dp, -4.2025964940054922e+02_dp, &
5927 -2.5838953620053741e+02_dp, 3.1708958164778818e+02_dp, -1.8269319770114419e+02_dp, &
5928 2.1443864190015620e+02_dp, -2.9053026229725748e+02_dp, 2.7958028873552331e+02_dp, &
5929 -2.2455334922664062e+02_dp, 1.7097859906654173e+02_dp, -1.0856602341332952e+02_dp, &
5930 4.5132022374191045e+01_dp, -8.7247003764599960e+00_dp, 2.3403906153903949e+03_dp, &
5931 -1.3455186670211949e+03_dp, -7.2807901502605125e+02_dp, 1.1411003502760752e+03_dp, &
5932 -6.8879925865566565e+02_dp, 6.7936705271442918e+02_dp, -9.2766071574488012e+02_dp, &
5933 9.1080489850452716e+02_dp, -6.9147508025247521e+02_dp, 4.8478972066941219e+02_dp, &
5934 -2.9990358024065625e+02_dp, 1.2694128276053435e+02_dp, -2.5248397806722892e+01_dp, &
5935 6.7163110511762943e+03_dp, -4.9502119609359797e+03_dp, -2.1460672665525426e+03_dp, &
5936 4.7894312825043899e+03_dp, -3.2493183252210265e+03_dp, 2.5513263672070620e+03_dp, &
5937 -3.3004059244053074e+03_dp, 3.3620235704706211e+03_dp, -2.3803057066797624e+03_dp, &
5938 1.3701475041710678e+03_dp, -7.2715726697134289e+02_dp, 3.0023731366800985e+02_dp, &
5939 -6.1929348822443536e+01_dp, 2.2806657666318617e+04_dp, -2.2697692191739989e+04_dp, &
5940 -5.7569649161039997e+03_dp, 2.5430927220737100e+04_dp, -2.2037671719779755e+04_dp, &
5941 1.3975577910469839e+04_dp, -1.3428763146233510e+04_dp, 1.3846589383992001e+04_dp, &
5942 -9.1032979373949202e+03_dp, 2.8138129998584268e+03_dp, 3.1040518294611104e+02_dp, &
5943 -5.4082375860751756e+02_dp, 1.3353967691905902e+02_dp, 1.0514267073816214e+05_dp, &
5944 -1.5728134173123082e+05_dp, 2.3393458473274026e+04_dp, 1.9191748448950576e+05_dp, &
5945 -2.9755239107713493e+05_dp, 2.4052918017103928e+05_dp, -1.0595433575621128e+05_dp, &
5946 -1.7465087519767349e+04_dp, 9.6696437844672575e+04_dp, -1.2300599526839080e+05_dp, &
5947 9.6573441236828832e+04_dp, -4.5315525505061276e+04_dp, 9.6777412850281053e+03_dp, &
5948 2.1416242820167533e+00_dp, -7.9748902326817347e-02_dp, -7.1261894234958337e-02_dp, &
5949 2.5408305090802094e-02_dp, -2.5927397116631480e-02_dp, 4.2666546644005751e-02_dp, &
5950 -4.9054480275301224e-02_dp, 4.8964284685653690e-02_dp, -4.7028426616405591e-02_dp, &
5951 3.9089916076761162e-02_dp, -2.4174446086355380e-02_dp, 9.5283680688875664e-03_dp, &
5952 -1.7765574154452902e-03_dp, 2.8149194258528634e+00_dp, -1.5742724721103563e-01_dp, &
5953 -1.3756798805731643e-01_dp, 5.5658044121983691e-02_dp, -5.0812419090658374e-02_dp, &
5954 8.4411296062409852e-02_dp, -9.8069441497070670e-02_dp, 9.7050981626127075e-02_dp, &
5955 -9.2449750838156014e-02_dp, 7.6786841095660932e-02_dp, -4.7549390881222578e-02_dp, &
5956 1.8741467289636684e-02_dp, -3.4887110096130883e-03_dp, 4.4566699723520529e+00_dp, &
5957 -3.7284061867202412e-01_dp, -3.1873352555549722e-01_dp, 1.4418917656863958e-01_dp, &
5958 -1.1991661862767018e-01_dp, 2.0013354404185627e-01_dp, -2.3504848379348631e-01_dp, &
5959 2.3080624953499043e-01_dp, -2.1800504811681376e-01_dp, 1.8090710775770399e-01_dp, &
5960 -1.1219870258910787e-01_dp, 4.4239450395016547e-02_dp, -8.2247162512252506e-03_dp, &
5961 7.7935726447770772e+00_dp, -8.8875668865490143e-01_dp, -7.4396707707618104e-01_dp, &
5962 3.7089303027758863e-01_dp, -2.8613997455148843e-01_dp, 4.7698560347380187e-01_dp, &
5963 -5.6641616408552975e-01_dp, 5.5250474842806918e-01_dp, -5.1735291166967712e-01_dp, &
5964 4.2882674642307389e-01_dp, -2.6644201552357072e-01_dp, 1.0514781473582199e-01_dp, &
5965 -1.9533141443740406e-02_dp, 1.4376697262131565e+01_dp, -2.1020595111518539e+00_dp, &
5966 -1.7200884547239541e+00_dp, 9.4395322212651767e-01_dp, -6.8061166413961394e-01_dp, &
5967 1.1266400272816803e+00_dp, -1.3545508846472831e+00_dp, 1.3130363890239167e+00_dp, &
5968 -1.2173504455983082e+00_dp, 1.0074175588607479e+00_dp, -6.2736593117696249e-01_dp, &
5969 2.4795521216282801e-01_dp, -4.6047734204784939e-02_dp, 2.7511316014784537e+01_dp, &
5970 -4.9898964170307982e+00_dp, -3.9785547201608060e+00_dp, 2.4140746181922275e+00_dp, &
5971 -1.6342762543947815e+00_dp, 2.6673110732257239e+00_dp, -3.2532834256468250e+00_dp, &
5972 3.1347513281824200e+00_dp, -2.8718563783342388e+00_dp, 2.3708595750580499e+00_dp, &
5973 -1.4807456214225743e+00_dp, 5.8665018395297608e-01_dp, -1.0898260449107275e-01_dp, &
5974 5.4436762909174121e+01_dp, -1.2032475553577383e+01_dp, -9.3058204956370005e+00_dp, &
5975 6.2880148178096746e+00_dp, -4.0175609932092797e+00_dp, 6.4042779737722988e+00_dp, &
5976 -7.9429695413364838e+00_dp, 7.6117413807947472e+00_dp, -6.8720650528250387e+00_dp, &
5977 5.6519758743547346e+00_dp, -3.5429970722615485e+00_dp, 1.4088855536325260e+00_dp, &
5978 -2.6208092423393642e-01_dp, 1.1164736368007399e+02_dp, -2.9791384407380139e+01_dp, &
5979 -2.2212377539439530e+01_dp, 1.6877037072718817e+01_dp, -1.0250572296995630e+01_dp, &
5980 1.5756255142999594e+01_dp, -1.9924053783286329e+01_dp, 1.9007981150929719e+01_dp, &
5981 -1.6850401908340178e+01_dp, 1.3775589300147089e+01_dp, -8.6745222956516148e+00_dp, &
5982 3.4686490862588455e+00_dp, -6.4714752047628832e-01_dp, 2.3860418477390155e+02_dp, &
5983 -7.6548665940035832e+01_dp, -5.4555576502769235e+01_dp, 4.7223564660740450e+01_dp, &
5984 -2.7552539514865845e+01_dp, 4.0129145306232964e+01_dp, -5.1876753274658711e+01_dp, &
5985 4.9362356501653707e+01_dp, -4.2758141683395408e+01_dp, 3.4607643058962353e+01_dp, &
5986 -2.1907296486378485e+01_dp, 8.8320535955436519e+00_dp, -1.6569481566503010e+00_dp, &
5987 5.3545799381479731e+02_dp, -2.0661914588910187e+02_dp, -1.3901714342570125e+02_dp, &
5988 1.3960064752137760e+02_dp, -7.9455954526732498e+01_dp, 1.0705506450207533e+02_dp, &
5989 -1.4178741954776285e+02_dp, 1.3500627788698125e+02_dp, -1.1350858118917807e+02_dp, &
5990 9.0286381762194210e+01_dp, -5.7449961163831816e+01_dp, 2.3438033636020098e+01_dp, &
5991 -4.4397143591330375e+00_dp, 1.2754605500542539e+03_dp, -5.9491668930678827e+02_dp, &
5992 -3.7066724475406403e+02_dp, 4.4339421427221095e+02_dp, -2.5185768559746347e+02_dp, &
5993 3.0387188886435422e+02_dp, -4.1221355071839258e+02_dp, 3.9500349025307065e+02_dp, &
5994 -3.1942180687176204e+02_dp, 2.4606495659517455e+02_dp, -1.5690263401286234e+02_dp, &
5995 6.5084151112193439e+01_dp, -1.2528409779731549e+01_dp, 3.2752436692089077e+03_dp/)
5996 REAL(kind=dp), DIMENSION(400), PARAMETER :: c05 = (/-1.8663851312283325e+03_dp, &
5997 -1.0423380612707174e+03_dp, 1.5483806206375675e+03_dp, -9.0806872083263704e+02_dp, &
5998 9.4017350130709883e+02_dp, -1.2957349086372242e+03_dp, 1.2616460034642841e+03_dp, &
5999 -9.6943667338306091e+02_dp, 7.0087846283955878e+02_dp, -4.4162263728305550e+02_dp, &
6000 1.8703907422642797e+02_dp, -3.6951030936082461e+01_dp, 9.2847122827431940e+03_dp, &
6001 -6.5872616019199959e+03_dp, -3.0955142203029591e+03_dp, 6.1516693509907564e+03_dp, &
6002 -3.9218013076513857e+03_dp, 3.3172151564545989e+03_dp, -4.4931295716623717e+03_dp, &
6003 4.5137348900129173e+03_dp, -3.2498919726863614e+03_dp, 2.0440411940202880e+03_dp, &
6004 -1.1971496951864885e+03_dp, 5.1322722240655889e+02_dp, -1.0554920856973189e+02_dp, &
6005 3.0235039579578988e+04_dp, -2.7601902396650934e+04_dp, -9.3215803184808592e+03_dp, &
6006 2.9388322193901040e+04_dp, -2.2102684178004485e+04_dp, 1.4848401915745148e+04_dp, &
6007 -1.7579341720367716e+04_dp, 1.8492406134381723e+04_dp, -1.2397481070128109e+04_dp, &
6008 5.4498033753094114e+03_dp, -1.8981227282010670e+03_dp, 6.4138733136082431e+02_dp, &
6009 -1.3956433688914467e+02_dp, 1.2216150610526593e+05_dp, -1.5253694884673052e+05_dp, &
6010 -1.6429729416520167e+04_dp, 1.8607958595858968e+05_dp, -1.9196043087545509e+05_dp, &
6011 1.1475537459925326e+05_dp, -7.9761919488329018e+04_dp, 7.6847623039708662e+04_dp, &
6012 -4.7002818213517261e+04_dp, -4.9407381312193525e+02_dp, 2.2584965140133190e+04_dp, &
6013 -1.5141091047763175e+04_dp, 3.5667736604964957e+03_dp, 7.5406264750572247e+05_dp, &
6014 -1.4326299671747899e+06_dp, 6.2617574112644594e+05_dp, 1.6499953681879421e+06_dp, &
6015 -3.7046203068710547e+06_dp, 3.8236409013257986e+06_dp, -1.7734757970713889e+06_dp, &
6016 -1.1979318870654979e+06_dp, 3.4208098012167024e+06_dp, -3.8751620860478538e+06_dp, &
6017 2.7423423745086947e+06_dp, -1.1761698637398595e+06_dp, 2.3420810572297117e+05_dp, &
6018 2.6324296748844861e-01_dp, 2.7730709344764889e-09_dp, -1.2207869322742759e-02_dp, &
6019 1.4895462150693508e-02_dp, -1.8697336568206407e-02_dp, 1.4407704487284264e-02_dp, &
6020 9.8927256082207531e-03_dp, -6.4832137218925986e-02_dp, 1.4426877307723651e-01_dp, &
6021 -2.0783702334434193e-01_dp, 1.9989272270072017e-01_dp, -1.1694483602928235e-01_dp, &
6022 3.1444827999764245e-02_dp, 8.7304841863481009e-01_dp, 1.1103688365004590e-08_dp, &
6023 -4.8894552708827893e-02_dp, 5.9658791963436070e-02_dp, -7.4239686035906957e-02_dp, &
6024 5.6121910416534672e-02_dp, 4.2622494290017153e-02_dp, -2.6407945174133429e-01_dp, &
6025 5.8267974366545527e-01_dp, -8.3609588478556940e-01_dp, 8.0215794742252378e-01_dp, &
6026 -4.6848952780524716e-01_dp, 1.2581178648852193e-01_dp, 1.7701371812793694e+00_dp, &
6027 3.0005295459047330e-08_dp, -1.3217904746214579e-01_dp, 1.6127847054189673e-01_dp, &
6028 -1.9811745819523222e-01_dp, 1.4539987789906042e-01_dp, 1.2715376214627466e-01_dp, &
6029 -7.3137864438796607e-01_dp, 1.5942745621335248e+00_dp, -2.2744691502925121e+00_dp, &
6030 2.1742633873086681e+00_dp, -1.2666391454859651e+00_dp, 3.3951831663787274e-01_dp, &
6031 3.2872518940714639e+00_dp, 7.5457088814963605e-08_dp, -3.3254988508622568e-01_dp, &
6032 4.0576105221431225e-01_dp, -4.9135955091474298e-01_dp, 3.4845147454343889e-01_dp, &
6033 3.5251584271462333e-01_dp, -1.8875150259828974e+00_dp, 4.0622047380355637e+00_dp, &
6034 -5.7594642621988239e+00_dp, 5.4840978290474425e+00_dp, -3.1859681965527034e+00_dp, &
6035 8.5223243994700304e-01_dp, 6.0444281533037323e+00_dp, 1.8405860589428224e-07_dp, &
6036 -8.1156394914969088e-01_dp, 9.9022995646443068e-01_dp, -1.1807985506013581e+00_dp, &
6037 8.0545436367079470e-01_dp, 9.4407597393184040e-01_dp, -4.7270998413371172e+00_dp, &
6038 1.0041641519313384e+01_dp, -1.4145249627502430e+01_dp, 1.3413036931983747e+01_dp, &
6039 -7.7692521878901104e+00_dp, 2.0736589380956820e+00_dp, 1.1276776635033665e+01_dp, &
6040 4.4330328247789032e-07_dp, -1.9557137822199457e+00_dp, 2.3862631597335069e+00_dp, &
6041 -2.7970925554909138e+00_dp, 1.8223553162021626e+00_dp, 2.4945994656705284e+00_dp, &
6042 -1.1704415746788525e+01_dp, 2.4524089594280941e+01_dp, -3.4305229650253693e+01_dp, &
6043 3.2381675186685143e+01_dp, -1.8695316093989742e+01_dp, 4.9776584290105079e+00_dp, &
6044 2.1561789642603674e+01_dp, 1.0694691683032124e-06_dp, -4.7211887146110669e+00_dp, &
6045 5.7605517287947574e+00_dp, -6.6200439159302640e+00_dp, 4.0750308632033789e+00_dp, &
6046 6.6167943654334040e+00_dp, -2.9092299880744793e+01_dp, 6.0053394751935848e+01_dp, &
6047 -8.3351989681794308e+01_dp, 7.8273643558272752e+01_dp, -4.5022143326781794e+01_dp, &
6048 1.1953365515829327e+01_dp, 4.2515726163437314e+01_dp, 2.6176175888860676e-06_dp, &
6049 -1.1564453268637152e+01_dp, 1.4110338828481353e+01_dp, -1.5839917900098961e+01_dp, &
6050 9.0605780190336862e+00_dp, 1.7879972721762254e+01_dp, -7.3580492861370900e+01_dp, &
6051 1.4939077315607656e+02_dp, -2.0550794788511661e+02_dp, 1.9183345232179832e+02_dp, &
6052 -1.0985654847974544e+02_dp, 2.9069197364239841e+01_dp, 8.6965326344200449e+01_dp, &
6053 6.5794423109474356e-06_dp, -2.9095311161257293e+01_dp, 3.5500532806834372e+01_dp, &
6054 -3.8732079625741207e+01_dp, 2.0049687270975561e+01_dp, 4.9909299757334580e+01_dp, &
6055 -1.9182953635638975e+02_dp, 3.8224197279200575e+02_dp, -5.2037560304457224e+02_dp, &
6056 4.8229079686506594e+02_dp, -2.7472873500261977e+02_dp, 7.2399140112324929e+01_dp, &
6057 1.8585904474506876e+02_dp, 1.7201658225003901e-05_dp, -7.6160919574509762e+01_dp, &
6058 9.2927327352209844e+01_dp, -9.7830738138831876e+01_dp, 4.3762988977931663e+01_dp, &
6059 1.4604784584109120e+02_dp, -5.2262953630197603e+02_dp, 1.0191335036472396e+03_dp, &
6060 -1.3702049146643706e+03_dp, 1.2588374043796580e+03_dp, -7.1234187972917664e+02_dp, &
6061 1.8675582601848978e+02_dp, 4.1901695827903075e+02_dp, 4.7491082333765805e-05_dp, &
6062 -2.1060582176594269e+02_dp, 2.5696907210161868e+02_dp, -2.5824967221804940e+02_dp, &
6063 9.0897718031470191e+01_dp, 4.5605578804061344e+02_dp, -1.5124879782856940e+03_dp, &
6064 2.8748868483526799e+03_dp, -3.8058921632187958e+03_dp, 3.4576924488814939e+03_dp, &
6065 -1.9398311729774050e+03_dp, 5.0511116864969131e+02_dp, 1.0102801407739152e+03_dp, &
6066 1.4124779360070820e-04_dp, -6.2777550617602583e+02_dp, 7.6597355093601072e+02_dp, &
6067 -7.2225725676902391e+02_dp, 1.5432026922197824e+02_dp, 1.5564202303382963e+03_dp, &
6068 -4.7511882745640760e+03_dp, 8.7516133649064413e+03_dp, -1.1355288142397600e+04_dp, &
6069 1.0162253283370977e+04_dp, -5.6337171128600294e+03_dp, 1.4529129986222329e+03_dp, &
6070 2.6601339384885455e+03_dp, 4.6606639202797416e-04_dp, -2.0782638055180396e+03_dp, &
6071 2.5357620486883484e+03_dp, -2.1748960778962787e+03_dp, -1.9622446905636050e+01_dp, &
6072 6.0167417094472839e+03_dp, -1.6721095387390953e+04_dp, 2.9566028222436140e+04_dp, &
6073 -3.7299442151022238e+04_dp, 3.2650804589094801e+04_dp, -1.7775490007433858e+04_dp, &
6074 4.5156255093209511e+03_dp, 7.9225561991071781e+03_dp, 1.7918715932261867e-03_dp, &
6075 -8.0336669286121869e+03_dp, 9.8020987286611507e+03_dp, -7.1547112917715904e+03_dp, &
6076 -3.1511198074212939e+03_dp, 2.7990647407511457e+04_dp, -6.9404808605822764e+04_dp, &
6077 1.1568723250772001e+05_dp, -1.3955704611726975e+05_dp, 1.1762161553204221e+05_dp, &
6078 -6.1959192901078532e+04_dp, 1.5294013166136992e+04_dp, 2.8581283113673122e+04_dp, &
6079 8.8478202618300621e-03_dp, -4.0093340340633775e+04_dp, 4.8918432619865300e+04_dp, &
6080 -2.4727656895868771e+04_dp, -4.2695894630299779e+04_dp, 1.7698207404610471e+05_dp, &
6081 -3.7294359948259842e+05_dp, 5.5833895825864724e+05_dp, -6.1205082918743347e+05_dp, &
6082 4.6999752306235145e+05_dp, -2.2582000828196839e+05_dp, 5.0916331737571825e+04_dp, &
6083 1.4954788596490613e+05_dp, 7.3099845234523828e-02_dp, -3.4101003337474016e+05_dp, &
6084 4.1605872519837652e+05_dp, 3.3781671415115379e+04_dp, -9.6249467433489673e+05_dp, &
6085 2.0843532691271894e+06_dp, -2.8167171929273452e+06_dp, 2.4303395386896660e+06_dp, &
6086 -8.2647776569912373e+05_dp, -8.1568634633921518e+05_dp, 1.1303807273279666e+06_dp, &
6087 -4.3211741616069851e+05_dp, 2.1591311325597387e+00_dp, 2.3904566691105513e-08_dp, &
6088 -1.0524216061902127e-01_dp, 1.2841147400320774e-01_dp, -1.6081987966006114e-01_dp, &
6089 1.2330752066629211e-01_dp, 8.6989463657353730e-02_dp, -5.6142224268033980e-01_dp, &
6090 1.2464929077820950e+00_dp, -1.7938392888269015e+00_dp, 1.7241491969739160e+00_dp, &
6091 -1.0082371381189261e+00_dp, 2.7101096999794005e-01_dp, 2.8496287705980246e+00_dp, &
6092 4.7574479365230764e-08_dp, -2.0956063301401973e-01_dp, 2.5569575239259368e-01_dp, &
6093 -3.1475928439865386e-01_dp, 2.3213358106314164e-01_dp, 1.9858313580613890e-01_dp, &
6094 -1.1552055679733595e+00_dp, 2.5229914218962830e+00_dp, -3.6027621950380175e+00_dp, &
6095 3.4460540887413100e+00_dp, -2.0083606425817289e+00_dp, 5.3849845894628512e-01_dp, &
6096 4.5392171215693038e+00_dp, 1.1355602415595152e-07_dp, -5.0046032814876074e-01_dp, &
6097 6.1063713098642736e-01_dp, -7.3915636311573130e-01_dp, 5.2365825674300659e-01_dp, &
6098 5.3203716081063890e-01_dp, -2.8430782160250718e+00_dp, 6.1165660979115399e+00_dp, &
6099 -8.6707645013669357e+00_dp, 8.2553871441875692e+00_dp, -4.7956128548962340e+00_dp, &
6100 1.2827415834620399e+00_dp, 7.9911174357421331e+00_dp, 2.7267735672504561e-07_dp, &
6101 -1.2023389067054850e+00_dp, 1.4670340742178860e+00_dp, -1.7474593675113077e+00_dp, &
6102 1.1886260371952238e+00_dp, 1.4078415190225411e+00_dp, -7.0174340690018511e+00_dp, &
6103 1.4893651164758403e+01_dp, -2.0970955209319627e+01_dp, 1.9879948538498052e+01_dp, &
6104 -1.1512860614973324e+01_dp, 3.0724084595660521e+00_dp, 1.4845870303287574e+01_dp, &
6105 6.4993344169887501e-07_dp, -2.8673891829941871e+00_dp, 3.4986433007173297e+00_dp, &
6106 -4.0957052042130364e+00_dp, 2.6589353154739181e+00_dp, 3.6828533437700273e+00_dp, &
6107 -1.7199574435158372e+01_dp, 3.6002283622712199e+01_dp, -5.0336430093192462e+01_dp, &
6108 4.7498896436592311e+01_dp, -2.7416944125665005e+01_dp, 7.2985761158201008e+00_dp, &
6109 2.8630233686196082e+01_dp, 1.5561676463892027e-06_dp, -6.8699281572824669e+00_dp, &
6110 8.3823328274713553e+00_dp, -9.6205476983389229e+00_dp, 5.8991888169639166e+00_dp, &
6111 9.6885900913409895e+00_dp, -4.2426673846413735e+01_dp, 8.7497348366870099e+01_dp, &
6112 -1.2138586087506182e+02_dp, 1.1395537051718760e+02_dp, -6.5531527032459493e+01_dp, &
6113 1.7395737984478455e+01_dp, 5.7149278573182144e+01_dp, 3.7895280519993520e-06_dp, &
6114 -1.6742161277774240e+01_dp, 2.0427905916032042e+01_dp, -2.2908625009614020e+01_dp, &
6115 1.3060369342628176e+01_dp, 2.6002569703236279e+01_dp, -1.0671561128972567e+02_dp, &
6116 2.1652100588293317e+02_dp, -2.9775421501190749e+02_dp, 2.7788090034510896e+02_dp, &
6117 -1.5910812572414045e+02_dp, 4.2096728824521215e+01_dp, 1.1840509257693286e+02_dp, &
6118 9.4900573035783242e-06_dp, -4.1965931868056849e+01_dp, 5.1204572200420344e+01_dp, &
6119 -5.5852949973774983e+01_dp, 2.8888133500973176e+01_dp, 7.2090364616085481e+01_dp, &
6120 -2.7692734999520661e+02_dp, 5.5175378925874941e+02_dp, -7.5112695001410100e+02_dp, &
6121 6.9615211100672354e+02_dp, -3.9655272221580424e+02_dp, 1.0450396601481178e+02_dp, &
6122 2.5609655068148811e+02_dp, 2.4715305054824862e-05_dp, -1.0941937632957631e+02_dp, &
6123 1.3350746185992543e+02_dp, -1.4075541179078257e+02_dp, 6.3373447021950305e+01_dp, &
6124 2.0911980757912349e+02_dp, -7.5029290516763729e+02_dp, 1.4644128290940855e+03_dp, &
6125 -1.9700135465819471e+03_dp, 1.8106713348643566e+03_dp, -1.0249522673245622e+03_dp, &
6126 2.6878483032699012e+02_dp, 5.8309882443897629e+02_dp, 6.7807520171925752e-05_dp, &
6127 -3.0064117576976992e+02_dp, 3.6682509804999006e+02_dp, -3.7040717157728307e+02_dp, &
6128 1.3406424149107912e+02_dp, 6.4428398410363116e+02_dp, -2.1519786183493156e+03_dp, &
6129 4.1011295900086225e+03_dp, -5.4383331157833045e+03_dp, 4.9469571799236483e+03_dp/)
6130 REAL(kind=dp), DIMENSION(80), PARAMETER :: c06 = (/-2.7780629763055545e+03_dp, &
6131 7.2394748688135314e+02_dp, 1.4141872703259592e+03_dp, 1.9924393057961005e-04_dp, &
6132 -8.8514298674834572e+02_dp, 1.0799982553752052e+03_dp, -1.0299886964497700e+03_dp, &
6133 2.4613962885626509e+02_dp, 2.1496502911088132e+03_dp, -6.6513723885247055e+03_dp, &
6134 1.2319717518748630e+04_dp, -1.6044225972732615e+04_dp, 1.4399549815435170e+04_dp, &
6135 -8.0011168005279378e+03_dp, 2.0673302306451947e+03_dp, 3.7169273499830429e+03_dp, &
6136 6.4174536681622018e-04_dp, -2.8588922904614119e+03_dp, 3.4882377284724071e+03_dp, &
6137 -3.0697095638713813e+03_dp, 1.6426883687990320e+02_dp, 7.9840717598249521e+03_dp, &
6138 -2.2710590528982131e+04_dp, 4.0596610232320745e+04_dp, -5.1616663987160551e+04_dp, &
6139 4.5469685184816553e+04_dp, -2.4885092322884550e+04_dp, 6.3498617053543667e+03_dp, &
6140 1.0875832953021774e+04_dp, 2.3481599355844865e-03_dp, -1.0504850853833614e+04_dp, &
6141 1.2817288640026694e+04_dp, -9.9607576780561449e+03_dp, -2.6337897159272597e+03_dp, &
6142 3.4451262132612253e+04_dp, -8.8941818154280394e+04_dp, 1.5161895422610914e+05_dp, &
6143 -1.8618139413710040e+05_dp, 1.5936755599614693e+05_dp, -8.5114171194832204e+04_dp, &
6144 2.1268239024390470e+04_dp, 3.7112755999414359e+04_dp, 1.0383653918374779e-02_dp, &
6145 -4.6784795849598871e+04_dp, 5.7083114992325580e+04_dp, -3.5339178754296212e+04_dp, &
6146 -3.3888742049394437e+04_dp, 1.8605716164815886e+05_dp, -4.2519544494572078e+05_dp, &
6147 6.7441504677537933e+05_dp, -7.8031535165577661e+05_dp, 6.3288379982644250e+05_dp, &
6148 -3.2161368971558253e+05_dp, 7.6774261966426260e+04_dp, 1.6235209876331326e+05_dp, &
6149 6.3058311437979311e-02_dp, -2.8828244204753474e+05_dp, 3.5173407478189125e+05_dp, &
6150 -1.1586186796904098e+05_dp, -4.5916736844352842e+05_dp, 1.4672512106301824e+06_dp, &
6151 -2.7737577271967172e+06_dp, 3.7900648353620353e+06_dp, -3.7631762994996398e+06_dp, &
6152 2.5690955686708130e+06_dp, -1.0676056448933431e+06_dp, 2.0022423762086249e+05_dp, &
6153 1.1909890543833333e+06_dp, 7.5897543064246109e-01_dp, -3.6014432096696794e+06_dp, &
6154 4.3939694879051335e+06_dp, 2.2270474259830317e+06_dp, -1.4748142024036435e+07_dp, &
6155 2.4772021603756029e+07_dp, -2.0427694973111704e+07_dp, -5.1425641553283399e+06_dp, &
6156 4.1035528362137891e+07_dp, -5.8536317653180525e+07_dp, 4.1604269769282125e+07_dp, &
6157 -1.2580153353393231e+07_dp/)
6158 REAL(kind=dp), DIMENSION(13, 32, 5), PARAMETER :: &
6159 coefdata = reshape((/c01, c02, c03, c04, c05, c06/), (/13, 32, 5/))
6160
6161 INTEGER :: irange
6162
6163 IF (rc <= 2.0000000000000000e+01_dp) rc = 2.0000000000000000e+01_dp
6164 IF (rc >= 7.9661361694335938e+05_dp) rc = 7.9661361694335938e+05_dp
6165 IF (rc >= 2.0000000000000000e+01_dp .AND. rc <= 2.4398919835450684e+02_dp) THEN
6166 irange = 1
6167 l_b = 2.0000000000000000e+01_dp
6168 u_b = 2.4398919835450684e+02_dp
6169 END IF
6170 IF (rc >= 2.4398919835450684e+02_dp .AND. rc <= 2.9062022203852043e+03_dp) THEN
6171 irange = 2
6172 l_b = 2.4398919835450684e+02_dp
6173 u_b = 2.9062022203852043e+03_dp
6174 END IF
6175 IF (rc >= 2.9062022203852043e+03_dp .AND. rc <= 4.6200345281597729e+04_dp) THEN
6176 irange = 3
6177 l_b = 2.9062022203852043e+03_dp
6178 u_b = 4.6200345281597729e+04_dp
6179 END IF
6180 IF (rc >= 4.6200345281597729e+04_dp .AND. rc <= 2.7305247284985101e+05_dp) THEN
6181 irange = 4
6182 l_b = 4.6200345281597729e+04_dp
6183 u_b = 2.7305247284985101e+05_dp
6184 END IF
6185 IF (rc >= 2.7305247284985101e+05_dp .AND. rc <= 7.9661361694335938e+05_dp) THEN
6186 irange = 5
6187 l_b = 2.7305247284985101e+05_dp
6188 u_b = 7.9661361694335938e+05_dp
6189 END IF
6190
6191 fit_coef(1:13, 1:32) = coefdata(1:13, 1:32, irange)
6192
6193 END SUBROUTINE get_fit_coef_k16
6194
6195! **************************************************************************************************
6196!> \brief ...
6197!> \param Rc ...
6198!> \param L_b ...
6199!> \param U_b ...
6200!> \param fit_coef ...
6201! **************************************************************************************************
6202 SUBROUTINE get_fit_coef_k17(Rc, L_b, U_b, fit_coef)
6203 REAL(kind=dp) :: rc, l_b, u_b
6204 REAL(kind=dp), DIMENSION(13, 34) :: fit_coef
6205
6206 REAL(kind=dp), DIMENSION(252), PARAMETER :: c07 = (/1.8370815219029825e+05_dp, &
6207 -2.2571407833669311e+05_dp, 1.9425009817913763e+05_dp, -1.0472915274294355e+05_dp, &
6208 2.6504347685948280e+04_dp, 4.7817002324082285e+04_dp, 2.5450661362359097e-02_dp, &
6209 -6.6225824542394374e+04_dp, 8.1048394804074065e+04_dp, -4.3435260565217926e+04_dp, &
6210 -6.1476285747099682e+04_dp, 2.7171168546155246e+05_dp, -5.8303836555695033e+05_dp, &
6211 8.8719630466380890e+05_dp, -9.9159773972621036e+05_dp, 7.7951289244560874e+05_dp, &
6212 -3.8487843289358675e+05_dp, 8.9463560970755076e+04_dp, 2.5019631140224831e+05_dp, &
6213 2.1264619593581804e-01_dp, -5.5981397809465544e+05_dp, 6.8509542672483542e+05_dp, &
6214 2.1284725467874094e+04_dp, -1.4753034153249892e+06_dp, 3.2502583758630129e+06_dp, &
6215 -4.4832573914568834e+06_dp, 4.0445406981888828e+06_dp, -1.6710630248330070e+06_dp, &
6216 -9.4341987280607189e+05_dp, 1.6221639053145065e+06_dp, -6.5652039505004522e+05_dp, &
6217 2.0948115699131753e+00_dp, 3.6258494519234841e-08_dp, -9.3232132132602369e-02_dp, &
6218 1.1410199411295747e-01_dp, -1.4480521511281780e-01_dp, 1.1917207481518551e-01_dp, &
6219 4.9241583812778933e-02_dp, -4.4186107155067733e-01_dp, 1.0258906798051275e+00_dp, &
6220 -1.5172966271163439e+00_dp, 1.4945236952314433e+00_dp, -8.9549977851517348e-01_dp, &
6221 2.4671541335739663e-01_dp, 2.7235696297903660e+00_dp, 6.9927670959677010e-08_dp, &
6222 -1.7984023158039161e-01_dp, 2.2009708683611603e-01_dp, -2.7519253143108352e-01_dp, &
6223 2.1973689951913447e-01_dp, 1.1430694800789225e-01_dp, -8.8115350487381972e-01_dp, &
6224 2.0114407245057633e+00_dp, -2.9526094256716577e+00_dp, 2.8950743978986537e+00_dp, &
6225 -1.7292996895200985e+00_dp, 4.7535789164424885e-01_dp, 4.2427066521500594e+00_dp, &
6226 1.6193093735503707e-07_dp, -4.1653266916325560e-01_dp, 5.0977241977686150e-01_dp, &
6227 -6.2812103646832995e-01_dp, 4.8620027382563846e-01_dp, 3.0785581451135241e-01_dp, &
6228 -2.1047443629858482e+00_dp, 4.7300914686869833e+00_dp, -6.8940188870393388e+00_dp, &
6229 6.7301912758278446e+00_dp, -4.0080099252645738e+00_dp, 1.0993200811710275e+00_dp, &
6230 7.2887750366020878e+00_dp, 3.7798556209097436e-07_dp, -9.7246230665416322e-01_dp, &
6231 1.1901449948154916e+00_dp, -1.4463642323703936e+00_dp, 1.0857865684868881e+00_dp, &
6232 8.1159807200523648e-01_dp, -5.0502163134081739e+00_dp, 1.1193077721641433e+01_dp, &
6233 -1.6208047074016658e+01_dp, 1.5759089654312840e+01_dp, -9.3586250334120251e+00_dp, &
6234 2.5616011278036979e+00_dp, 1.3195622118541367e+01_dp, 8.7449260204547286e-07_dp, &
6235 -2.2502894227249288e+00_dp, 2.7540086220032598e+00_dp, -3.2983231545819116e+00_dp, &
6236 2.3932042656303105e+00_dp, 2.1010585628596576e+00_dp, -1.2010575120676899e+01_dp, &
6237 2.6251583881954033e+01_dp, -3.7760474141713388e+01_dp, 3.6560400169648275e+01_dp, &
6238 -2.1647605107930151e+01_dp, 5.9123811733713181e+00_dp, 2.4741076971735783e+01_dp, &
6239 2.0256543020120554e-06_dp, -5.2136786706623308e+00_dp, 6.3807388758373085e+00_dp, &
6240 -7.5175090758348935e+00_dp, 5.2393521484233307e+00_dp, 5.4345512047312257e+00_dp, &
6241 -2.8642817974261821e+01_dp, 6.1688125010087411e+01_dp, -8.8091580505469821e+01_dp, &
6242 8.4897604321769748e+01_dp, -5.0103611036029179e+01_dp, 1.3650920716373861e+01_dp, &
6243 4.7846812164549789e+01_dp, 4.7505238242518463e-06_dp, -1.2230201238224922e+01_dp, &
6244 1.4967872450044803e+01_dp, -1.7304693765421220e+01_dp, 1.1480222650031589e+01_dp, &
6245 1.4238881963448762e+01_dp, -6.9310801973768122e+01_dp, 1.4691230332041425e+02_dp, &
6246 -2.0810906978525890e+02_dp, 1.9951727876211754e+02_dp, -1.1730830010948584e+02_dp, &
6247 3.1871643718694187e+01_dp, 9.5584382658373627e+01_dp, 1.1389673415432144e-05_dp, &
6248 -2.9331774923459527e+01_dp, 3.5897526849215701e+01_dp, -4.0593292635133999e+01_dp, &
6249 2.5300639865679354e+01_dp, 3.8217190441467515e+01_dp, -1.7193734266608891e+02_dp, &
6250 3.5812529431878522e+02_dp, -5.0270766323901529e+02_dp, 4.7906560065789068e+02_dp, &
6251 -2.8044896737160479e+02_dp, 7.5945642333907642e+01_dp, 1.9807989409896766e+02_dp, &
6252 2.8179303689685462e-05_dp, -7.2597490992070050e+01_dp, 8.8847958009412466e+01_dp, &
6253 -9.7843279644225888e+01_dp, 5.6165358634741970e+01_dp, 1.0621909187312551e+02_dp, &
6254 -4.4160242824475296e+02_dp, 9.0211884406401828e+02_dp, -1.2531534970604021e+03_dp, &
6255 1.1858384963678866e+03_dp, -6.9062251088863718e+02_dp, 1.8628549560366449e+02_dp, &
6256 4.2844728563604173e+02_dp, 7.2680619722386190e-05_dp, -1.8733325328642434e+02_dp, &
6257 2.2926633331658493e+02_dp, -2.4440219730170580e+02_dp, 1.2508379111590767e+02_dp, &
6258 3.0936543510420876e+02_dp, -1.1871960018194495e+03_dp, 2.3726584254496997e+03_dp, &
6259 -3.2557421748838055e+03_dp, 3.0549203135871107e+03_dp, -1.7679853070233212e+03_dp, &
6260 4.7457670212220614e+02_dp, 9.7553162024702920e+02_dp, 1.9784461526304437e-04_dp, &
6261 -5.1025103218277997e+02_dp, 6.2446593588851465e+02_dp, -6.3883562219794624e+02_dp, &
6262 2.7468433715161183e+02_dp, 9.5798846328704099e+02_dp, -3.3853330597180307e+03_dp, &
6263 6.5968917599317774e+03_dp, -8.9193738742063597e+03_dp, 8.2819962181539267e+03_dp, &
6264 -4.7550782366077383e+03_dp, 1.2684749997005017e+03_dp, 2.3659593721200058e+03_dp, &
6265 5.7767824463795267e-04_dp, -1.4910686829640895e+03_dp, 1.8248273467436229e+03_dp, &
6266 -1.7679369070925552e+03_dp, 5.5958786970336223e+02_dp, 3.2150931773552397e+03_dp, &
6267 -1.0419368658525378e+04_dp, 1.9704230885199639e+04_dp, -2.6153107469601153e+04_dp, &
6268 2.3957244240913482e+04_dp, -1.3610636015655184e+04_dp, 3.6004270680947861e+03_dp, &
6269 6.2184859119400480e+03_dp, 1.8515069283753457e-03_dp, -4.7844525772745565e+03_dp, &
6270 5.8553838083439105e+03_dp, -5.2557820977780702e+03_dp, 7.6998584833558868e+02_dp, &
6271 1.2019149643632090e+04_dp, -3.5476725058178665e+04_dp, 6.4648163585761089e+04_dp, &
6272 -8.3736358762410033e+04_dp, 7.5284898688267742e+04_dp, -4.2133475096368573e+04_dp, &
6273 1.1009804491050614e+04_dp, 1.8195464521428708e+04_dp, 6.7517479161416302e-03_dp, &
6274 -1.7477227521677822e+04_dp, 2.1389179519798992e+04_dp, -1.7071068989116044e+04_dp, &
6275 -2.4214225086274514e+03_dp, 5.2234983048949362e+04_dp, -1.3874773753806672e+05_dp, &
6276 2.4073094092437049e+05_dp, -3.0103520143692737e+05_dp, 2.6302584995883796e+05_dp, &
6277 -1.4370762781981824e+05_dp, 3.6795383161880185e+04_dp, 6.2090310305363819e+04_dp, &
6278 2.9820864621100219e-02_dp, -7.7417968024254675e+04_dp, 9.4745982916105684e+04_dp, &
6279 -6.1136770748532195e+04_dp, -4.6361387820341610e+04_dp, 2.8437287677000294e+05_dp, &
6280 -6.6357048964616924e+05_dp, 1.0697148236834274e+06_dp, -1.2605114585738920e+06_dp, &
6281 1.0444647787696669e+06_dp, -5.4377630601913563e+05_dp, 1.3327154055909728e+05_dp, &
6282 2.7161799040869653e+05_dp, 1.8172876846851641e-01_dp, -4.7458463411040365e+05_dp, &
6283 5.8080137302666670e+05_dp, -2.1206348195483550e+05_dp, -6.8472287525603513e+05_dp, &
6284 2.2646124682806111e+06_dp, -4.3463120374242561e+06_dp, 6.0384830132842269e+06_dp, &
6285 -6.1288439298421443e+06_dp, 4.3074969014170449e+06_dp, -1.8594197839029063e+06_dp, &
6286 3.6681152123045758e+05_dp, 1.9925461761031416e+06_dp, 2.2253842343468082e+00_dp, &
6287 -5.8978754757524757e+06_dp, 7.2176798918735152e+06_dp, 3.1998615207433747e+06_dp, &
6288 -2.2851538821395889e+07_dp, 3.8978847055747673e+07_dp, -3.3766691905692071e+07_dp, &
6289 -3.6817494449235639e+06_dp, 5.8417659409558006e+07_dp, -8.7460434017794341e+07_dp, &
6290 6.4007727007001713e+07_dp, -1.9852653644652657e+07_dp/)
6291 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.3076079314075767e-01_dp, &
6292 -3.1204465976027999e-02_dp, -1.7122144125202067e-03_dp, 7.1244719472004776e-04_dp, &
6293 9.7914036643084913e-05_dp, -1.6905608998459976e-05_dp, -7.4913349592830019e-05_dp, &
6294 3.9524844540922514e-04_dp, -1.3207548101866621e-03_dp, 2.4893343556511901e-03_dp, &
6295 -1.7630401832362664e-03_dp, -1.5303430582117692e-03_dp, 2.4954212764800787e-03_dp, &
6296 4.0176042278607560e-01_dp, -1.0052269981409805e-01_dp, -3.7752999908446687e-03_dp, &
6297 2.3355451575862705e-03_dp, 2.2164896522723778e-04_dp, -5.9872225699415800e-05_dp, &
6298 -2.3417557017388007e-04_dp, 1.2627576376189641e-03_dp, -4.2195733035849375e-03_dp, &
6299 7.9523531821684996e-03_dp, -5.6322897078267794e-03_dp, -4.8887888709380819e-03_dp, &
6300 7.9720806192536044e-03_dp, 7.0203193009585230e-01_dp, -1.9160546782655125e-01_dp, &
6301 -1.2596497264163648e-03_dp, 4.4901354476166479e-03_dp, 1.0663595310664382e-04_dp, &
6302 -1.2452948785005740e-04_dp, -4.2231891451488128e-04_dp, 2.3703226650564047e-03_dp, &
6303 -7.9222542238009102e-03_dp, 1.4928487774690918e-02_dp, -1.0573462306857859e-02_dp, &
6304 -9.1774203746157711e-03_dp, 1.4966211175066604e-02_dp, 1.0539449282453617e+00_dp, &
6305 -3.2251390565619303e-01_dp, 1.0615457224673873e-02_dp, 7.2905132110783599e-03_dp, &
6306 -4.7936555312612936e-04_dp, -2.0448213231640043e-04_dp, -6.6082699844020952e-04_dp, &
6307 3.9081706133278242e-03_dp, -1.3071632605714272e-02_dp, 2.4627501045524507e-02_dp, &
6308 -1.7442957122418997e-02_dp, -1.5139885809291837e-02_dp, 2.4690040632825656e-02_dp, &
6309 1.4843975248485286e+00_dp, -5.1701819383514402e-01_dp, 3.9543265998243871e-02_dp, &
6310 1.0365663424557522e-02_dp, -1.8681910570608855e-03_dp, -2.5533490666031401e-04_dp, &
6311 -9.7612040167318833e-04_dp, 6.1129491849905623e-03_dp, -2.0475177295793314e-02_dp, &
6312 3.8568511251337811e-02_dp, -2.7314928846016738e-02_dp, -2.3709957461900095e-02_dp, &
6313 3.8663702667761222e-02_dp, 2.0272052023813556e+00_dp, -8.0777194692517917e-01_dp, &
6314 9.8050801990368502e-02_dp, 1.2353931861675717e-02_dp, -4.4992921000651621e-03_dp, &
6315 -1.6348775215867598e-04_dp, -1.4060441185015371e-03_dp, 9.2907069709225621e-03_dp, &
6316 -3.1187261758263946e-02_dp, 5.8734750953777816e-02_dp, -4.1589834778631818e-02_dp, &
6317 -3.6106670683926118e-02_dp, 5.8868554322763382e-02_dp, 2.7262530833535337e+00_dp, &
6318 -1.2406060229341269e+00_dp, 2.0638055327688459e-01_dp, 9.9642442503349842e-03_dp, &
6319 -8.8630281922776159e-03_dp, 3.0333232987031180e-04_dp, -2.0137745161970229e-03_dp, &
6320 1.3848156069161642e-02_dp, -4.6621551236882400e-02_dp, 8.7785867514915933e-02_dp, &
6321 -6.2143870434135301e-02_dp, -5.3964809521018703e-02_dp, 8.7958357674071022e-02_dp, &
6322 3.6399268594035759e+00_dp, -1.8805467044522048e+00_dp, 3.9684620223953421e-01_dp, &
6323 -3.6979224560712339e-03_dp, -1.5290732711395427e-02_dp, 1.5650362097787600e-03_dp, &
6324 -2.9164870249643996e-03_dp, 2.0338155085769950e-02_dp, -6.8712559932418329e-02_dp, &
6325 1.2936460946821179e-01_dp, -9.1545670622710518e-02_dp, -7.9523365645068900e-02_dp, &
6326 1.2956570819945470e-01_dp, 4.8477396000212751e+00_dp, -2.8204823695808767e+00_dp, &
6327 7.2037192283678975e-01_dp, -4.2006232839993926e-02_dp, -2.3408946961019392e-02_dp, &
6328 4.3011253069062654e-03_dp, -4.3418036026321299e-03_dp, 2.9528398299157512e-02_dp, &
6329 -1.0014893969272984e-01_dp, 1.8854172213152740e-01_dp, -1.3337119045002854e-01_dp, &
6330 -1.1589897868070902e-01_dp, 1.8874729813192132e-01_dp, 6.4610001308210583e+00_dp, &
6331 -4.1941537938416324e+00_dp, 1.2562579246714793e+00_dp, -1.2956693816744225e-01_dp, &
6332 -3.0923800259146223e-02_dp, 9.4582394952995325e-03_dp, -6.7291628461492317e-03_dp, &
6333 4.2513667531429149e-02_dp, -1.4472119835853223e-01_dp, 2.7248024980715652e-01_dp, &
6334 -1.9267411822422414e-01_dp, -1.6749461934299184e-01_dp, 2.7264883596712303e-01_dp, &
6335 8.6416370834085008e+00_dp, -6.1970932928169926e+00_dp, 2.1269516693256731e+00_dp, &
6336 -3.0975515701583661e-01_dp, -3.1212680848427189e-02_dp, 1.8014526702952737e-02_dp, &
6337 -1.0880146572029471e-02_dp, 6.0921073275536620e-02_dp, -2.0789469712183004e-01_dp, &
6338 3.9152299938109048e-01_dp, -2.7675631174570009e-01_dp, -2.4066959573985081e-01_dp, &
6339 3.9159410702887432e-01_dp, 1.1639225306345036e+01_dp, -9.1246532821522290e+00_dp, &
6340 3.5218372776759885e+00_dp, -6.5629264554887390e-01_dp, -9.0889294350904488e-03_dp, &
6341 3.0161449462820341e-02_dp, -1.8099973853997281e-02_dp, 8.7313637818274087e-02_dp, &
6342 -2.9790804111642638e-01_dp, 5.6124720781308091e-01_dp, -3.9662215564129433e-01_dp, &
6343 -3.4500609303341645e-01_dp, 5.6114294060164027e-01_dp, 1.5873255748499172e+01_dp, &
6344 -1.3453102441637940e+01_dp, 5.7419478039571841e+00_dp, -1.2916346325142669e+00_dp, &
6345 6.5759417771617396e-02_dp, 4.3530054327603068e-02_dp, -3.0166292171774273e-02_dp, &
6346 1.2600955452173773e-01_dp, -4.2822600401379651e-01_dp, 8.0701621705779869e-01_dp, &
6347 -5.7019201205676040e-01_dp, -4.9611094674881584e-01_dp, 8.0664222793806906e-01_dp, &
6348 2.2143206347171624e+01_dp, -2.0046617832223532e+01_dp, 9.3071997135744269e+00_dp, &
6349 -2.4230046225771531e+00_dp, 2.4836527841931291e-01_dp, 5.0611968862569114e-02_dp, &
6350 -4.9048621468263262e-02_dp, 1.8493192924859195e-01_dp, -6.2385283643435641e-01_dp, &
6351 1.1757719724259648e+00_dp, -8.3061767393793995e-01_dp, -7.2286268514831931e-01_dp, &
6352 1.1749965024749465e+00_dp, 3.2270336161918614e+01_dp, -3.0801175619216782e+01_dp, &
6353 1.5292207073605903e+01_dp, -4.4474171161113727e+00_dp, 6.3789574241791069e-01_dp, &
6354 3.6622362193611202e-02_dp, -7.7335776114862156e-02_dp, 2.8112010508678736e-01_dp, &
6355 -9.4070495460370629e-01_dp, 1.7725454560696385e+00_dp, -1.2520539024975985e+00_dp, &
6356 -1.0898461557958572e+00_dp, 1.7711168752874866e+00_dp, 5.1688635070150774e+01_dp, &
6357 -5.1282387193841267e+01_dp, 2.6737329772837441e+01_dp, -8.4076215182313732e+00_dp, &
6358 1.4596804851316547e+00_dp, -2.2785940581509477e-02_dp, -1.2416451365357957e-01_dp, &
6359 4.6408964352239751e-01_dp, -1.5442693251973152e+00_dp, 2.9088148034596015e+00_dp, &
6360 -2.0544486079149733e+00_dp, -1.7885651298283725e+00_dp, 2.9061229744851547e+00_dp, &
6361 1.0762496921374742e+02_dp, -1.0933096205262035e+02_dp, 5.8725372851529393e+01_dp, &
6362 -1.9345285433471407e+01_dp, 3.7179008532913183e+00_dp, -1.9659850716063998e-01_dp, &
6363 -2.4853838702353581e-01_dp, 9.8299055919831080e-01_dp, -3.2634289123959395e+00_dp, &
6364 6.1454812603833870e+00_dp, -4.3401377360820046e+00_dp, -3.7787705767862518e+00_dp, &
6365 6.1392696513115714e+00_dp, 1.0523497373659305e+00_dp, -2.5417364415230703e-01_dp, &
6366 -1.2822466959058445e-02_dp, 5.8356833156815681e-03_dp, 7.3675755090544322e-04_dp, &
6367 -1.4172040208393219e-04_dp, -6.0556073785800386e-04_dp, 3.2127278163324629e-03_dp, &
6368 -1.0735448720595803e-02_dp, 2.0233569467854696e-02_dp, -1.4330270606267244e-02_dp, &
6369 -1.2438789926505517e-02_dp, 2.0283242462557815e-02_dp, 1.1287287038620462e+00_dp, &
6370 -3.1013327621056686e-01_dp, -1.6066847757949096e-03_dp, 7.3809503661043836e-03_dp, &
6371 1.4495723902261054e-04_dp, -2.1120727007587788e-04_dp, -6.8141332001349158e-04_dp, &
6372 3.8348376691482336e-03_dp, -1.2815205295062257e-02_dp, 2.4148412584623379e-02_dp, &
6373 -1.7103912448526319e-02_dp, -1.4845470277022208e-02_dp, 2.4209810789034943e-02_dp, &
6374 1.2882283178090226e+00_dp, -4.3040597485938342e-01_dp, 2.4831881244751369e-02_dp, &
6375 9.9485126813913909e-03_dp, -1.2174764509962526e-03_dp, -3.0299547417090487e-04_dp, &
6376 -8.3788259132067935e-04_dp, 5.1512432549364667e-03_dp, -1.7230336261564266e-02_dp, &
6377 3.2458796239020947e-02_dp, -2.2990522835058941e-02_dp, -1.9954198064667916e-02_dp, &
6378 3.2543079449201776e-02_dp, 1.5448514878021482e+00_dp, -6.3250090306882112e-01_dp, &
6379 7.5173375330629649e-02_dp, 1.2239074374363137e-02_dp, -3.6909008476000097e-03_dp, &
6380 -3.0904460311629461e-04_dp, -1.0873965370004825e-03_dp, 7.3078182273191615e-03_dp, &
6381 -2.4497680697525372e-02_dp, 4.6136049459575182e-02_dp, -3.2674527368890323e-02_dp, &
6382 -2.8361888660189474e-02_dp, 4.6251077222106737e-02_dp, 1.9211073988689866e+00_dp, &
6383 -9.4502175925954501e-01_dp, 1.6441311125312935e-01_dp, 1.1514168833412042e-02_dp, &
6384 -7.7156781634275936e-03_dp, -2.5314063749536728e-05_dp, -1.4593192552218414e-03_dp, &
6385 1.0532414112812576e-02_dp, -3.5426284263123525e-02_dp, 6.6700389834680351e-02_dp, &
6386 -4.7225177778801364e-02_dp, -4.1002894262538177e-02_dp, 6.6845407444861935e-02_dp, &
6387 2.4503233903027750e+00_dp, -1.4111691869136846e+00_dp, 3.1685836597950173e-01_dp, &
6388 2.3051678588932364e-03_dp, -1.3672390712846821e-02_dp, 9.1023388741843267e-04_dp, &
6389 -2.0204001124313029e-03_dp, 1.5157830646097843e-02_dp, -5.1202256225836684e-02_dp, &
6390 9.6382554516795824e-02_dp, -6.8210683093346311e-02_dp, -5.9248334038998998e-02_dp, &
6391 9.6542522830884450e-02_dp, 3.1805574548812579e+00_dp, -2.0942909063464801e+00_dp, &
6392 5.7089561010061707e-01_dp, -2.5833725640180539e-02_dp, -2.1491678096792352e-02_dp, &
6393 3.0989304847712494e-03_dp, -2.9159806953795845e-03_dp, 2.1665920578763782e-02_dp, &
6394 -7.3546522325358535e-02_dp, 1.3842587042657298e-01_dp, -9.7913493025603968e-02_dp, &
6395 -8.5091612722190096e-02_dp, 1.3856859671520547e-01_dp, 4.1811646792046675e+00_dp, &
6396 -3.0863241265112706e+00_dp, 9.8614321254810988e-01_dp, -9.2071074916824508e-02_dp, &
6397 -2.9756968197499723e-02_dp, 7.4456170391292899e-03_dp, -4.4508265047520533e-03_dp, &
6398 3.0758812754125595e-02_dp, -1.0495169546575114e-01_dp, 1.9754193374336126e-01_dp, &
6399 -1.3965469631124944e-01_dp, -1.2142837818243153e-01_dp, 1.9761867354288118e-01_dp, &
6400 5.5543701913701007e+00_dp, -4.5209989365988195e+00_dp, 1.6539762241301386e+00_dp, &
6401 -2.3030816535912507e-01_dp, -3.3813532281998536e-02_dp, 1.5086566272402728e-02_dp, &
6402 -7.2342195006746086e-03_dp, 4.3480249136807009e-02_dp, -1.4903057718459220e-01_dp, &
6403 2.8058221599374905e-01_dp, -1.9827032648170015e-01_dp, -1.7246987861993432e-01_dp, &
6404 2.8052964857063045e-01_dp, 7.4574112588355606e+00_dp, -6.5963933721010299e+00_dp, &
6405 2.7132460533356846e+00_dp, -4.9834201048625321e-01_dp, -2.2167462115990084e-02_dp, &
6406 2.6872562330083130e-02_dp, -1.2387908764726825e-02_dp, 6.1461561859636082e-02_dp, &
6407 -2.1112442139248186e-01_dp, 3.9769622119135700e-01_dp, -2.8093246365215413e-01_dp, &
6408 -2.4445770977980782e-01_dp, 3.9743993120230359e-01_dp, 1.0149199555623431e+01_dp, &
6409 -9.6192305108604046e+00_dp, 4.3758772166955557e+00_dp, -9.9115581475053982e-01_dp, &
6410 2.9545326239106471e-02_dp, 4.1823403732506717e-02_dp, -2.1690138678753676e-02_dp, &
6411 8.7456012212983200e-02_dp, -2.9961125255873033e-01_dp, 5.6476258723175166e-01_dp, &
6412 -3.9887202332975563e-01_dp, -3.4716515228541883e-01_dp, 5.6422730177346647e-01_dp, &
6413 1.4099231208017288e+01_dp, -1.4107075328742125e+01_dp, 6.9778612606041159e+00_dp, &
6414 -1.8607045468744079e+00_dp, 1.6704246179217699e-01_dp, 5.3958212328329369e-02_dp, &
6415 -3.7277902595866740e-02_dp, 1.2645660436554337e-01_dp, -4.2911347940038297e-01_dp, &
6416 8.0927294663161464e-01_dp, -5.7153148233841800e-01_dp, -4.9752142302887042e-01_dp, &
6417 8.0839552282034810e-01_dp, 2.0271891440726208e+01_dp, -2.1062627665694670e+01_dp, &
6418 1.1112095708204244e+01_dp, -3.3547769325343713e+00_dp, 4.6741458495922611e-01_dp, &
6419 4.8143364079041427e-02_dp, -6.0571498843629903e-02_dp, 1.8810682220477090e-01_dp, &
6420 -6.2907199074458620e-01_dp, 1.1862382813167087e+00_dp, -8.3776299569573820e-01_dp, &
6421 -7.2938082345320598e-01_dp, 1.1849370069427336e+00_dp, 3.0981138444088945e+01_dp, &
6422 -3.2826924199015650e+01_dp, 1.8061271201881183e+01_dp, -5.9402359654032049e+00_dp, &
6423 1.0560336370860732e+00_dp, -1.3076665170325774e-03_dp, -9.1952845171647243e-02_dp, &
6424 2.9356117158718775e-01_dp, -9.6956307740968917e-01_dp, 1.8269216521737346e+00_dp/)
6425 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/-1.2901998665259486e+00_dp, &
6426 -1.1234438324718303e+00_dp, 1.8249388295785653e+00_dp, 5.3052663877251987e+01_dp, &
6427 -5.6300287553126552e+01_dp, 3.1510803678504963e+01_dp, -1.0839542135686512e+01_dp, &
6428 2.1894315183922908e+00_dp, -1.2602122478496375e-01_dp, -1.3889457312206924e-01_dp, &
6429 5.0337725032938441e-01_dp, -1.6571300126908901e+00_dp, 3.1201665791015056e+00_dp, &
6430 -2.2033768080640694e+00_dp, -1.9187234757026690e+00_dp, 3.1167184219995239e+00_dp, &
6431 1.1438382828329563e+02_dp, -1.1990346708888428e+02_dp, 6.6738432612919837e+01_dp, &
6432 -2.3077325719032441e+01_dp, 4.8314221537097728e+00_dp, -3.8128451926731016e-01_dp, &
6433 -2.6117870547203120e-01_dp, 1.0707535522056886e+00_dp, -3.5392609127171060e+00_dp, &
6434 6.6628013349508590e+00_dp, -4.7050599511008340e+00_dp, -4.0970099516280252e+00_dp, &
6435 6.6554064206249119e+00_dp, 4.4215573031384639e+02_dp, -4.5609383814257563e+02_dp, &
6436 2.4967139254642808e+02_dp, -8.4637858247865637e+01_dp, 1.7233338058664309e+01_dp, &
6437 -1.2625615465109370e+00_dp, -9.8044928324825564e-01_dp, 4.0814152411288465e+00_dp, &
6438 -1.3536108639012429e+01_dp, 2.5486079632183817e+01_dp, -1.7998229964061135e+01_dp, &
6439 -1.5671083055262866e+01_dp, 2.5458811210562828e+01_dp, 1.8010738006583224e-01_dp, &
6440 -6.2745911390591533e-02_dp, -1.3976556185891661e-02_dp, 7.9986178737707029e-03_dp, &
6441 3.8749477893130122e-03_dp, -2.5821008682339651e-03_dp, -1.4958653576095052e-03_dp, &
6442 9.6456448930898895e-04_dp, 1.1417500384510227e-03_dp, -1.1797959682526289e-03_dp, &
6443 1.5700881689688416e-04_dp, 2.1623209723117793e-04_dp, -8.1228210530532070e-05_dp, &
6444 5.6570602726698116e-01_dp, -2.1563012466646606e-01_dp, -3.7806458016327996e-02_dp, &
6445 3.0569342974261178e-02_dp, 1.0311060275225992e-02_dp, -1.0309865308339399e-02_dp, &
6446 -3.9036553568344260e-03_dp, 3.9203404473260196e-03_dp, 3.6495598931388052e-03_dp, &
6447 -5.0687843416395749e-03_dp, 1.7273963399649264e-03_dp, 1.9928519421558662e-04_dp, &
6448 -1.8203789728090053e-04_dp, 1.0320570826693001e+00_dp, -4.5936001731287074e-01_dp, &
6449 -4.4411061460762145e-02_dp, 7.4144797958186112e-02_dp, 1.0753445855713722e-02_dp, &
6450 -2.6121803125198153e-02_dp, -3.5691764025816315e-03_dp, 1.0112104989405936e-02_dp, &
6451 6.3659041969645553e-03_dp, -1.3809991703339446e-02_dp, 7.7140379343898745e-03_dp, &
6452 -1.5474246435163541e-03_dp, -1.6652411530409433e-05_dp, 1.6490282386969555e+00_dp, &
6453 -8.8535365615839856e-01_dp, -4.0715433614121159e-03_dp, 1.5650434575864441e-01_dp, &
6454 -6.3381624762084273e-03_dp, -5.6308039349758643e-02_dp, 4.9139660534489723e-03_dp, &
6455 2.2014370541855809e-02_dp, 7.6064754785856734e-03_dp, -3.1129921875843455e-02_dp, &
6456 2.3050532267550796e-02_dp, -7.4383126577924879e-03_dp, 8.7131148771299547e-04_dp, &
6457 2.5133929798909564e+00_dp, -1.6395076438389586e+00_dp, 1.4912090565157865e-01_dp, &
6458 2.9864401700894339e-01_dp, -6.6701724542314406e-02_dp, -1.0663176597759881e-01_dp, &
6459 3.3393538746138207e-02_dp, 4.1661750655118041e-02_dp, 1.8488948835995406e-03_dp, &
6460 -5.9792963151484434e-02_dp, 5.4834911193647876e-02_dp, -2.1671245162956085e-02_dp, &
6461 3.3770605802150699e-03_dp, 3.7665004427790230e+00_dp, -2.9643013129955884e+00_dp, &
6462 5.5460479257789530e-01_dp, 5.1853399079636375e-01_dp, -2.2256772225024538e-01_dp, &
6463 -1.7685996741929338e-01_dp, 1.0486353197058355e-01_dp, 6.7964719385209413e-02_dp, &
6464 -2.4139367958340034e-02_dp, -9.6856881358269989e-02_dp, 1.1068443291141189e-01_dp, &
6465 -5.0365313485448475e-02_dp, 8.9913262883314117e-03_dp, 5.6212689576437533e+00_dp, &
6466 -5.2696679183943491e+00_dp, 1.4981304567183242e+00_dp, 8.0921229093198388e-01_dp, &
6467 -5.7220665206718013e-01_dp, -2.4595464439568815e-01_dp, 2.5924803186583678e-01_dp, &
6468 8.9778626060307662e-02_dp, -9.7021696248226069e-02_dp, -1.2255486037880553e-01_dp, &
6469 1.9217594222861736e-01_dp, -9.9958611073620751e-02_dp, 1.9715217021775512e-02_dp, &
6470 8.4047702141954037e+00_dp, -9.2546240707189753e+00_dp, 3.5534752138358008e+00_dp, &
6471 1.0782156596209165e+00_dp, -1.2868181607551561e+00_dp, -2.3746783847288316e-01_dp, &
6472 5.5681719910211935e-01_dp, 7.0579962978307528e-02_dp, -2.6253042844784452e-01_dp, &
6473 -7.8903735544427714e-02_dp, 2.7820728538275824e-01_dp, -1.7127967005997424e-01_dp, &
6474 3.7227062473712304e-02_dp, 1.2626716828773741e+01_dp, -1.6118082462763581e+01_dp, &
6475 7.8581631083902526e+00_dp, 9.9481739788304591e-01_dp, -2.6354708004856406e+00_dp, &
6476 5.4288386772138826e-02_dp, 1.0677957643381861e+00_dp, -8.1556028930718116e-02_dp, &
6477 -5.8349972470961986e-01_dp, 1.6434754008913957e-01_dp, 2.9118537433730779e-01_dp, &
6478 -2.4503791491071500e-01_dp, 6.0378888487433051e-02_dp, 1.9091662225464063e+01_dp, &
6479 -2.7927209435631788e+01_dp, 1.6649978899989840e+01_dp, -3.7733057875206194e-01_dp, &
6480 -4.9668781274772158e+00_dp, 1.1090269089810683e+00_dp, 1.8166148798971244e+00_dp, &
6481 -5.6474461880155935e-01_dp, -1.1104410579548303e+00_dp, 8.5108302171346073e-01_dp, &
6482 3.8997884915739786e-02_dp, -2.5276025183160106e-01_dp, 7.9555438462666675e-02_dp, &
6483 2.9087515158702328e+01_dp, -4.8266848623079582e+01_dp, 3.4310610939149257e+01_dp, &
6484 -5.4385586613019150e+00_dp, -8.5091233691378658e+00_dp, 3.9330354951833977e+00_dp, &
6485 2.6016553035322700e+00_dp, -1.7480235778329487e+00_dp, -1.7799379145508136e+00_dp, &
6486 2.3589742723119596e+00_dp, -8.6871581926008334e-01_dp, -2.5405644527526649e-02_dp, &
6487 6.5524802080553057e-02_dp, 4.4716407424310830e+01_dp, -8.3401654526387858e+01_dp, &
6488 6.9392101713584879e+01_dp, -2.0013526749110621e+01_dp, -1.2568573670815580e+01_dp, &
6489 1.0394404054784644e+01_dp, 2.5120938544689957e+00_dp, -4.1812179718438625e+00_dp, &
6490 -2.1440743380530605e+00_dp, 5.0859869680028833e+00_dp, -3.0893954222950697e+00_dp, &
6491 7.8092848188977992e-01_dp, -5.0011270818283222e-02_dp, 6.9526312537902172e+01_dp, &
6492 -1.4443332206413996e+02_dp, 1.3855136404356625e+02_dp, -5.7705992232865768e+01_dp, &
6493 -1.2976025146161891e+01_dp, 2.3238517986306515e+01_dp, -1.1539823334646924e+00_dp, &
6494 -8.2494908804502867e+00_dp, -7.8117315080707395e-01_dp, 8.8027481030006598e+00_dp, &
6495 -7.3145712081593359e+00_dp, 2.6860366240642017e+00_dp, -3.8959830551301688e-01_dp, &
6496 1.0992188203872426e+02_dp, -2.5173108252917748e+02_dp, 2.7439346526745004e+02_dp, &
6497 -1.4922339600333521e+02_dp, 4.9511964753249949e+00_dp, 4.3977905438400001e+01_dp, &
6498 -1.4483825851053977e+01_dp, -1.2571750398213693e+01_dp, 5.2268271154719423e+00_dp, &
6499 1.0879079479809656e+01_dp, -1.2909711450908476e+01_dp, 5.8882269567429590e+00_dp, &
6500 -1.0555338673912253e+00_dp, 1.7922144960276142e+02_dp, -4.4649909942956606e+02_dp, &
6501 5.4358551771857742e+02_dp, -3.6239825682407479e+02_dp, 8.2915134399015301e+01_dp, &
6502 6.3991587425066804e+01_dp, -4.6200832193128967e+01_dp, -1.0539208929328979e+01_dp, &
6503 1.7867396014859761e+01_dp, 5.7571582062942861e+00_dp, -1.6184489993979646e+01_dp, &
6504 9.2303743866032342e+00_dp, -1.9050792144269630e+00_dp, 3.1419936221955288e+02_dp, &
6505 -8.3634297532370749e+02_dp, 1.1110728196113650e+03_dp, -8.6002680865678747e+02_dp, &
6506 3.2634452019348345e+02_dp, 4.5766391820609520e+01_dp, -9.8967485930911280e+01_dp, &
6507 8.3582056990308278e+00_dp, 3.3401494394153403e+01_dp, -8.4113932333341950e+00_dp, &
6508 -1.4692641867662479e+01_dp, 1.1653736548115734e+01_dp, -2.7552478960951516e+00_dp, &
6509 6.9397291379150988e+02_dp, -1.9276242869869666e+03_dp, 2.7092202860876819e+03_dp, &
6510 -2.2995420208229034e+03_dp, 1.0985958796049201e+03_dp, -1.0518020171631299e+02_dp, &
6511 -1.8516772374256206e+02_dp, 5.1320419469952256e+01_dp, 6.0714424144403772e+01_dp, &
6512 -3.4538746632826253e+01_dp, -1.3916031203934184e+01_dp, 1.7774507932922663e+01_dp, &
6513 -4.7391960892775407e+00_dp, 1.4574807068110414e+00_dp, -5.1966690003049509e-01_dp, &
6514 -1.0937121555649043e-01_dp, 6.8282130920804027e-02_dp, 3.0254852511833141e-02_dp, &
6515 -2.2336606510276111e-02_dp, -1.1641347572123872e-02_dp, 8.3890438873829229e-03_dp, &
6516 9.3122892529834168e-03_dp, -1.0437466316246218e-02_dp, 2.0493938245759241e-03_dp, &
6517 1.4556641442013175e-03_dp, -6.1406129186868910e-04_dp, 1.6635774394994376e+00_dp, &
6518 -7.4447036116082299e-01_dp, -7.3265463407581985e-02_dp, 1.2175244735677020e-01_dp, &
6519 1.8417461157197813e-02_dp, -4.3129640640968338e-02_dp, -6.3261088523512048e-03_dp, &
6520 1.6717304979147734e-02_dp, 1.0813189391350427e-02_dp, -2.2870001477521811e-02_dp, &
6521 1.2540227392196780e-02_dp, -2.3939994363031116e-03_dp, -6.7292329081708585e-05_dp, &
6522 2.1130083057428242e+00_dp, -1.2646245625758314e+00_dp, 3.9026678312747663e-02_dp, &
6523 2.3868043891980367e-01_dp, -2.2107148945619371e-02_dp, -8.7624034141812510e-02_dp, &
6524 1.2400332443529075e-02_dp, 3.4503268350899216e-02_dp, 9.9312975904139698e-03_dp, &
6525 -4.9617985830045279e-02_dp, 3.8605161734445871e-02_dp, -1.3143058004433409e-02_dp, &
6526 1.6819268858947601e-03_dp, 2.8861358995389326e+00_dp, -2.2379012503086972e+00_dp, &
6527 3.2529535767432088e-01_dp, 4.3452974907619385e-01_dp, -1.3098878900070884e-01_dp, &
6528 -1.5802763888684246e-01_dp, 6.3048141625604320e-02_dp, 6.2230049682745238e-02_dp, &
6529 -3.4334538372675287e-03_dp, -9.1072403941971233e-02_dp, 8.8902484985361505e-02_dp, &
6530 -3.6762642551420852e-02_dp, 6.0063306694479717e-03_dp, 4.1212721248896012e+00_dp, &
6531 -3.9524567137450393e+00_dp, 9.8864687807522755e-01_dp, 7.1583307090425163e-01_dp, &
6532 -3.8544667410777939e-01_dp, -2.4530041815719975e-01_dp, 1.7970618099537952e-01_dp, &
6533 9.4646106681016307e-02_dp, -5.1054392753752079e-02_dp, -1.3697099489584089e-01_dp, &
6534 1.7083844262209280e-01_dp, -8.1262942364707796e-02_dp, 1.5034543179272131e-02_dp, &
6535 6.0427874405411135e+00_dp, -6.9114188446690799e+00_dp, 2.4368523205155839e+00_dp, &
6536 1.0422276743751018e+00_dp, -9.2514306563957271e-01_dp, -3.0462890230255507e-01_dp, &
6537 4.1835014026158401e-01_dp, 1.0930727144152716e-01_dp, -1.7419009015490974e-01_dp, &
6538 -1.4775669359208615e-01_dp, 2.7804753282859701e-01_dp, -1.5293629530276798e-01_dp, &
6539 3.1260563924463657e-02_dp, 9.0090022431937165e+00_dp, -1.1984085393120617e+01_dp, &
6540 5.4766120418255344e+00_dp, 1.2306964512849667e+00_dp, -1.9841323771701029e+00_dp, &
6541 -2.0178112750263197e-01_dp, 8.5733779402876675e-01_dp, 4.2784199415162032e-02_dp, &
6542 -4.3931636150909686e-01_dp, -2.1473925344957952e-02_dp, 3.6199744674856460e-01_dp, &
6543 -2.4527309632224395e-01_dp, 5.5802785639214363e-02_dp, 1.3591622850222656e+01_dp, &
6544 -2.0671385649481678e+01_dp, 1.1690911823198414e+01_dp, 7.2296817333192265e-01_dp, &
6545 -3.9122753813128814e+00_dp, 3.9756373580542609e-01_dp, 1.5730792402830771e+00_dp, &
6546 -2.5426387228982428e-01_dp, -9.2821684388540859e-01_dp, 4.5454888767816393e-01_dp, &
6547 2.7835397546226770e-01_dp, -3.1429802698364062e-01_dp, 8.3881632785542004e-02_dp, &
6548 2.0708310558399841e+01_dp, -3.5573130360984386e+01_dp, 2.4173095046726132e+01_dp, &
6549 -1.9624509389026361e+00_dp, -7.1194347943715250e+00_dp, 2.2395796302706463e+00_dp, &
6550 2.5414676107335459e+00_dp, -1.0901424546362217e+00_dp, -1.6791478429090076e+00_dp, &
6551 1.6519357564458712e+00_dp, -2.9686578874346814e-01_dp, -2.3345958133610148e-01_dp, &
6552 9.5629002374604352e-02_dp, 3.1849060054820505e+01_dp, -6.1216326263024023e+01_dp, &
6553 4.8955578605990361e+01_dp, -1.0495665728696784e+01_dp, -1.1727745979077595e+01_dp, &
6554 6.8444384400614950e+00_dp, 3.3437289894171416e+00_dp, -3.0185515513605332e+00_dp, &
6555 -2.5103650595979259e+00_dp, 4.0981205243496870e+00_dp, -1.9744886540859123e+00_dp, &
6556 2.7900551212540414e-01_dp, 3.9609099066905094e-02_dp, 4.9480572244963817e+01_dp, &
6557 -1.0554295952164991e+02_dp, 9.7784802913758284e+01_dp, -3.3609900633466118e+01_dp, &
6558 -1.6293722769181993e+01_dp, 1.6978324437699740e+01_dp, 2.3989997683487170e+00_dp/)
6559 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/-6.8292295875978279e+00_dp, &
6560 -2.5859581635928466e+00_dp, 8.2643295812249669e+00_dp, -5.7320634779870945e+00_dp, &
6561 1.7650956249120218e+00_dp, -1.9567508222089966e-01_dp, 7.7834138139689216e+01_dp, &
6562 -1.8267266020330240e+02_dp, 1.9349073152056008e+02_dp, -9.1481588588459843e+01_dp, &
6563 -1.3822783835670613e+01_dp, 3.6637703347062448e+01_dp, -4.7917952106854855e+00_dp, &
6564 -1.2983441330102631e+01_dp, 5.6026423699990802e-01_dp, 1.3524777870542334e+01_dp, &
6565 -1.2577242006230376e+01_dp, 5.0578704679411794e+00_dp, -8.1335121215823181e-01_dp, &
6566 1.2469972524515586e+02_dp, -3.1853576272145068e+02_dp, 3.8049814102352741e+02_dp, &
6567 -2.2932721454772252e+02_dp, 1.9316804878393324e+01_dp, 6.7651019536813379e+01_dp, &
6568 -2.8556483274297605e+01_dp, -1.8915160882598556e+01_dp, 1.2394440997926818e+01_dp, &
6569 1.4599065487288630e+01_dp, -2.0997926004529241e+01_dp, 1.0415399006452484e+01_dp, &
6570 -1.9915861476472365e+00_dp, 2.0658312239862570e+02_dp, -5.6523320243902458e+02_dp, &
6571 7.4772242646605821e+02_dp, -5.4520823589717588e+02_dp, 1.4978849258832480e+02_dp, &
6572 9.3899472952695064e+01_dp, -8.4549171246107946e+01_dp, -1.1373667866556911e+01_dp, &
6573 3.7590687286378447e+01_dp, -2.2520800129803975e+00_dp, -2.1045686666495470e+01_dp, &
6574 1.4379152932515209e+01_dp, -3.2398302906841523e+00_dp, 3.6839922338686353e+02_dp, &
6575 -1.0537707025969034e+03_dp, 1.5006891025872155e+03_dp, -1.2562081672322104e+03_dp, &
6576 5.3825286433010865e+02_dp, 4.2498035313542289e+01_dp, -1.7156738426552047e+02_dp, &
6577 3.5936393290874996e+01_dp, 6.0177434607070502e+01_dp, -4.0248403369709855e+01_dp, &
6578 -2.7568019702721092e+00_dp, 1.1202607958032809e+01_dp, -3.3375095387496079e+00_dp, &
6579 7.9098125896269880e+02_dp, -2.2904299594238068e+03_dp, 3.3675571212100285e+03_dp, &
6580 -3.0249252348258237e+03_dp, 1.5837024358091369e+03_dp, -2.4417286558439139e+02_dp, &
6581 -2.4707398238911915e+02_dp, 1.1661864596469552e+02_dp, 6.5275940183027629e+01_dp, &
6582 -7.1150510177242779e+01_dp, 1.0564083514283231e+01_dp, 1.0686772402576475e+01_dp, &
6583 -4.0141425428278463e+00_dp, 2.9638192147333571e+03_dp, -8.4573529628979268e+03_dp, &
6584 1.2304466526150441e+04_dp, -1.1014363127026381e+04_dp, 5.8847019588549192e+03_dp, &
6585 -1.1791468203519848e+03_dp, -5.8911861079676396e+02_dp, 2.7195710510299079e+02_dp, &
6586 2.1685800896742452e+02_dp, -1.7746143301747480e+02_dp, -1.4574518198891317e+01_dp, &
6587 5.4805869945752612e+01_dp, -1.6433623764473392e+01_dp, 2.2036130805159376e-01_dp, &
6588 -4.5076804566774459e-02_dp, -1.6076370477688957e-02_dp, 5.5534315752250891e-03_dp, &
6589 5.0461774412725036e-03_dp, -2.0604744482374273e-03_dp, -2.2689084798617320e-03_dp, &
6590 5.9099274703236049e-04_dp, 2.3874131512182165e-03_dp, -2.1618256480298356e-03_dp, &
6591 4.3684618125611787e-04_dp, 2.5191107660970112e-04_dp, -1.0861832710107730e-04_dp, &
6592 7.0865218236726824e-01_dp, -1.6570352438040939e-01_dp, -5.2249512547067715e-02_dp, &
6593 2.4669238373278793e-02_dp, 1.7087628445085885e-02_dp, -9.6906052918900448e-03_dp, &
6594 -7.7468377444847780e-03_dp, 3.0933546649085024e-03_dp, 9.2517865757837520e-03_dp, &
6595 -1.0056570203112576e-02_dp, 3.4720383247476838e-03_dp, 1.6952014914339465e-04_dp, &
6596 -2.7523734696923005e-04_dp, 1.3534864020651076e+00_dp, -3.9336467243616868e-01_dp, &
6597 -9.8656745599151094e-02_dp, 7.3087777433389595e-02_dp, 3.4093865889400041e-02_dp, &
6598 -3.0490786739633617e-02_dp, -1.5507854335106205e-02_dp, 1.0740733786632572e-02_dp, &
6599 2.3081322466090199e-02_dp, -3.1460955605477889e-02_dp, 1.5456737064545917e-02_dp, &
6600 -2.6763084092928935e-03_dp, -1.2381650776694105e-04_dp, 2.3090234088808299e+00_dp, &
6601 -8.5776891469241912e-01_dp, -1.5338027586293296e-01_dp, 1.8991620137293749e-01_dp, &
6602 5.4828916209970144e-02_dp, -8.3025281965828188e-02_dp, -2.4296812195096610e-02_dp, &
6603 3.1469074113093229e-02_dp, 5.0330137251257137e-02_dp, -8.5515406097693397e-02_dp, &
6604 5.1866160160934108e-02_dp, -1.4179706064901558e-02_dp, 1.2560395955065946e-03_dp, &
6605 3.8197475422582392e+00_dp, -1.8037294425434220e+00_dp, -1.8899434601612383e-01_dp, &
6606 4.5191973881055397e-01_dp, 6.3713987378258216e-02_dp, -2.0444755855365859e-01_dp, &
6607 -2.4088171877681655e-02_dp, 8.2291692084297763e-02_dp, 9.7362650813698964e-02_dp, &
6608 -2.0934041478609497e-01_dp, 1.4766839822240871e-01_dp, -4.9288591476610653e-02_dp, &
6609 6.4499622528296279e-03_dp, 6.2966160150403754e+00_dp, -3.7109866191524525e+00_dp, &
6610 -1.0522184486152265e-01_dp, 1.0085149071581117e+00_dp, 2.5323534878071412e-03_dp, &
6611 -4.6630138967976670e-01_dp, 2.1076711993510598e-02_dp, 1.9828760927368860e-01_dp, &
6612 1.5998299484831749e-01_dp, -4.6825207004727926e-01_dp, 3.7645280036684625e-01_dp, &
6613 -1.4285165419296325e-01_dp, 2.2001423131429464e-02_dp, 1.0454409969612419e+01_dp, &
6614 -7.5375644876744872e+00_dp, 3.9449043473913742e-01_dp, 2.1412348960549363e+00_dp, &
6615 -3.0355677655830265e-01_dp, -9.9615781067345155e-01_dp, 2.1711098138944293e-01_dp, &
6616 4.4692476224298294e-01_dp, 1.8591520945768222e-01_dp, -9.5485093882726246e-01_dp, &
6617 8.7779557412188514e-01_dp, -3.6914472091627620e-01_dp, 6.2977146118752103e-02_dp, &
6618 1.7567505895441929e+01_dp, -1.5225622537868910e+01_dp, 2.1193499070085169e+00_dp, &
6619 4.3510998858589849e+00_dp, -1.3318083138416941e+00_dp, -1.9898827710887639e+00_dp, &
6620 8.4640106489365297e-01_dp, 9.4249431258822869e-01_dp, -3.7448636838545483e-02_dp, &
6621 -1.7262268981146505e+00_dp, 1.8723774805378806e+00_dp, -8.6854820742115435e-01_dp, &
6622 1.6062602638927947e-01_dp, 2.9958154145281728e+01_dp, -3.0775664710589034e+01_dp, &
6623 7.2009528080278491e+00_dp, 8.4351100129247225e+00_dp, -4.3138466133479865e+00_dp, &
6624 -3.6417064107767114e+00_dp, 2.6101763292430844e+00_dp, 1.8247368979816314e+00_dp, &
6625 -1.1799262417500072e+00_dp, -2.5186933824400533e+00_dp, 3.5685918319046439e+00_dp, &
6626 -1.8540412040242573e+00_dp, 3.7039085515950843e-01_dp, 5.1951978548581039e+01_dp, &
6627 -6.2581108665881274e+01_dp, 2.1182571267411070e+01_dp, 1.5325960406620894e+01_dp, &
6628 -1.2296597851170151e+01_dp, -5.7213940765686004e+00_dp, 7.1318501498457465e+00_dp, &
6629 3.0496412877399690e+00_dp, -5.0553615396661806e+00_dp, -1.8070209122459882e+00_dp, &
6630 5.6345736738491370e+00_dp, -3.4763373861946438e+00_dp, 7.6167100749572603e-01_dp, &
6631 9.1798276836285979e+01_dp, -1.2863475356597820e+02_dp, 5.8496101669050397e+01_dp, &
6632 2.4744077629967428e+01_dp, -3.2497120098098861e+01_dp, -5.8945347267566541e+00_dp, &
6633 1.7820196379746736e+01_dp, 3.4558058060427674e+00_dp, -1.5893088806805018e+01_dp, &
6634 5.7568757129573056e+00_dp, 5.3329494587249027e+00_dp, -5.1537631328962918e+00_dp, &
6635 1.3188423737811730e+00_dp, 1.6564728585867815e+02_dp, -2.6848193454407402e+02_dp, &
6636 1.5714914105375516e+02_dp, 2.9015793106076185e+01_dp, -8.0936336478366655e+01_dp, &
6637 6.0337388562561021e+00_dp, 4.0541279455914804e+01_dp, -2.5358711523755098e+00_dp, &
6638 -4.1489451794467044e+01_dp, 3.4994248985293758e+01_dp, -7.6772498820742348e+00_dp, &
6639 -3.3389802476741770e+00_dp, 1.5472908363224536e+00_dp, 3.0609437432716891e+02_dp, &
6640 -5.7157248282740568e+02_dp, 4.1925052593925301e+02_dp, -1.1600417484219872e+01_dp, &
6641 -1.8849689345974764e+02_dp, 6.6110045063594768e+01_dp, 7.9669860475699736e+01_dp, &
6642 -3.4687343159162722e+01_dp, -8.8625160627562337e+01_dp, 1.1831559439724820e+02_dp, &
6643 -6.2643850352276246e+01_dp, 1.4313449464928395e+01_dp, -6.9462104331569086e-01_dp, &
6644 5.8152372234088853e+02_dp, -1.2471092561355499e+03_dp, 1.1264512659705742e+03_dp, &
6645 -2.6350048877660970e+02_dp, -3.8978177911431425e+02_dp, 2.8606115420791843e+02_dp, &
6646 1.0671832025528735e+02_dp, -1.4850079552469927e+02_dp, -1.2702723207166953e+02_dp, &
6647 2.9628275973114745e+02_dp, -2.1971106597050107e+02_dp, 7.9255756055034652e+01_dp, &
6648 -1.1738659870534550e+01_dp, 1.1446896056961609e+03_dp, -2.8062684434259190e+03_dp, &
6649 3.0792684302402877e+03_dp, -1.3773330948044859e+03_dp, -5.6315721236341506e+02_dp, &
6650 9.4384383423094675e+02_dp, -9.1298241779040950e+01_dp, -4.3161000322227324e+02_dp, &
6651 5.6869256603055426e+01_dp, 4.6537109542580185e+02_dp, -4.9778545245192629e+02_dp, &
6652 2.2723211423906713e+02_dp, -4.1682116814902678e+01_dp, 2.3931486245110582e+03_dp, &
6653 -6.6248847444164976e+03_dp, 8.6607172498776090e+03_dp, -5.7963496001557987e+03_dp, &
6654 5.6074777366093997e+02_dp, 2.2520445132559971e+03_dp, -1.3103161337837334e+03_dp, &
6655 -5.8712209332349289e+02_dp, 8.9204271290751376e+02_dp, -1.1639397991700832e+01_dp, &
6656 -5.0558768097343659e+02_dp, 3.3540358542052877e+02_dp, -7.4587683513078233e+01_dp, &
6657 6.0278043205707454e+03_dp, -1.8260441253553501e+04_dp, 2.7198231026846435e+04_dp, &
6658 -2.3440178398044740e+04_dp, 9.7072987485955946e+03_dp, 1.9816258432428326e+03_dp, &
6659 -4.2204293880177993e+03_dp, 5.7832304639916708e+02_dp, 1.8692380816063537e+03_dp, &
6660 -1.2109634326915912e+03_dp, -5.4026291769502137e+01_dp, 3.1528828654208075e+02_dp, &
6661 -9.4786678043392129e+01_dp, 1.7937094180089550e+00_dp, -3.7993808012512725e-01_dp, &
6662 -1.3139337881541585e-01_dp, 4.9430879424174734e-02_dp, 4.1715801584312942e-02_dp, &
6663 -1.8655007611371892e-02_dp, -1.8806529335258913e-02_dp, 5.5337190143686437e-03_dp, &
6664 2.0442542773902748e-02_dp, -1.9495932303552625e-02_dp, 4.7817782309535614e-03_dp, &
6665 1.6859794985952033e-03_dp, -8.4516904829219403e-04_dp, 2.1832690683719891e+00_dp, &
6666 -6.3377544246855000e-01_dp, -1.6248271996603472e-01_dp, 1.1690489216647633e-01_dp, &
6667 5.6807251626275680e-02_dp, -4.8432873661308128e-02_dp, -2.6022849299146757e-02_dp, &
6668 1.6853696869085871e-02_dp, 3.7648457313444655e-02_dp, -4.9878575440930099e-02_dp, &
6669 2.3642088947003155e-02_dp, -3.6336297159725440e-03_dp, -3.3755205819095051e-04_dp, &
6670 3.0753249432146119e+00_dp, -1.2701520583639132e+00_dp, -2.0849770294749378e-01_dp, &
6671 2.9526772321314387e-01_dp, 7.8995542205080829e-02_dp, -1.2972869147593624e-01_dp, &
6672 -3.5582090248904033e-02_dp, 4.9305013374453963e-02_dp, 7.7353411801215979e-02_dp, &
6673 -1.3353482456470839e-01_dp, 8.1872538186610708e-02_dp, -2.2734499256472550e-02_dp, &
6674 2.0934547665217729e-03_dp, 4.7271509364185604e+00_dp, -2.6008689221752657e+00_dp, &
6675 -2.1378302448991618e-01_dp, 6.8829890166551655e-01_dp, 7.8155780076278006e-02_dp, &
6676 -3.1427392410807997e-01_dp, -2.9055243870744554e-02_dp, 1.2728338790291072e-01_dp, &
6677 1.4542960480058301e-01_dp, -3.2288152522122560e-01_dp, 2.3145832634114052e-01_dp, &
6678 -7.8570015248536254e-02_dp, 1.0527188402678012e-02_dp, 7.6239589870130429e+00_dp, &
6679 -5.2716113961903401e+00_dp, -1.1543925130729318e-02_dp, 1.5034494543003840e+00_dp, &
6680 -4.1512319049193738e-02_dp, -7.0326534010639863e-01_dp, 5.2072123155519456e-02_dp, &
6681 3.0170745289904521e-01_dp, 2.3013280605622619e-01_dp, -7.1093920590192394e-01_dp, &
6682 5.8207150943308372e-01_dp, -2.2424295809781689e-01_dp, 3.5093648865483100e-02_dp, &
6683 1.2651454564011702e+01_dp, -1.0594016000348530e+01_dp, 8.6079526700003395e-01_dp, &
6684 3.1309762712299110e+00_dp, -5.5343393928245810e-01_dp, -1.4752776243845915e+00_dp, &
6685 3.7341588237894630e-01_dp, 6.7003976934246967e-01_dp, 2.4249290952305499e-01_dp, &
6686 -1.4249882020825018e+00_dp, 1.3395429928449589e+00_dp, -5.7182949222827995e-01_dp, &
6687 9.8841365839720668e-02_dp, 2.1429965966478342e+01_dp, -2.1247628542515503e+01_dp, &
6688 3.6287863654310013e+00_dp, 6.2581819127944680e+00_dp, -2.1863113529437315e+00_dp, &
6689 -2.8967923413102912e+00_dp, 1.3681886836307373e+00_dp, 1.3955776856915574e+00_dp, &
6690 -1.5897239290899864e-01_dp, -2.5212216600023445e+00_dp, 2.8219668706971945e+00_dp, &
6691 -1.3307700093912902e+00_dp, 2.4913514170866757e-01_dp, 3.6963550418790938e+01_dp, &
6692 -4.2781735704421529e+01_dp, 1.1468857291085394e+01_dp, 1.1956021064279158e+01_dp/)
6693 REAL(kind=dp), DIMENSION(400), PARAMETER :: c04 = (/-6.7963494820353745e+00_dp, &
6694 -5.2037548606327730e+00_dp, 4.1015955423288375e+00_dp, 2.6719939603737344e+00_dp, &
6695 -2.0314435192987417e+00_dp, -3.5279015440942261e+00_dp, 5.3011832033957269e+00_dp, &
6696 -2.8122613024625087e+00_dp, 5.6915484145040629e-01_dp, 6.4926664043803811e+01_dp, &
6697 -8.6899342041810002e+01_dp, 3.2560767520934299e+01_dp, 2.1401514791066290e+01_dp, &
6698 -1.8945123297568252e+01_dp, -7.9472372366379886e+00_dp, 1.1031467887006638e+01_dp, &
6699 4.4055773998180028e+00_dp, -8.2307667741735777e+00_dp, -1.9496849372131122e+00_dp, &
6700 8.1532056320068413e+00_dp, -5.2079110157651822e+00_dp, 1.1601051300795284e+00_dp, &
6701 1.1627932827440712e+02_dp, -1.7882190134095538e+02_dp, 8.8065313863488811e+01_dp, &
6702 3.3852987626345111e+01_dp, -4.9425190938476227e+01_dp, -7.4515204120012459e+00_dp, &
6703 2.7343411149027549e+01_dp, 4.8027447886962538e+00_dp, -2.5480067206341694e+01_dp, &
6704 1.0841781549031017e+01_dp, 6.8639785168072986e+00_dp, -7.5117713591262296e+00_dp, &
6705 1.9816437521619110e+00_dp, 2.1273862203414356e+02_dp, -3.7428369024165295e+02_dp, &
6706 2.3346238297745839e+02_dp, 3.7654110424279338e+01_dp, -1.2236868407636074e+02_dp, &
6707 1.1842889589859949e+01_dp, 6.2188087891764269e+01_dp, -4.6949238597179814e+00_dp, &
6708 -6.6545313811818971e+01_dp, 5.8913671022159285e+01_dp, -1.5425914307453965e+01_dp, &
6709 -3.9040075343478216e+00_dp, 2.2156462706329005e+00_dp, 3.9862923384302263e+02_dp, &
6710 -8.0001729806986441e+02_dp, 6.1729015727077262e+02_dp, -2.5059892452212821e+01_dp, &
6711 -2.8573151086745020e+02_dp, 1.0461889229880697e+02_dp, 1.2389826235882019e+02_dp, &
6712 -5.4939060293644125e+01_dp, -1.4442389426530306e+02_dp, 1.9642382267159812e+02_dp, &
6713 -1.0695650576544364e+02_dp, 2.5875876655613105e+01_dp, -1.6417786429176835e+00_dp, &
6714 7.6777159359322945e+02_dp, -1.7537133335705055e+03_dp, 1.6482226768525409e+03_dp, &
6715 -3.9211708766427637e+02_dp, -6.0392305987307441e+02_dp, 4.4333559405067615e+02_dp, &
6716 1.7787450181484434e+02_dp, -2.3734798751752581e+02_dp, -2.2095920452471174e+02_dp, &
6717 5.0350326325990295e+02_dp, -3.7436592829883779e+02_dp, 1.3589060804004382e+02_dp, &
6718 -2.0292510387655746e+01_dp, 1.5296195207071578e+03_dp, -3.9622350559145198e+03_dp, &
6719 4.4857786928390806e+03_dp, -1.9870420059955213e+03_dp, -9.7134936492482530e+02_dp, &
6720 1.4998589385742246e+03_dp, -7.2892049877523178e+01_dp, -7.4631312910496581e+02_dp, &
6721 3.4005793563591304e+01_dp, 8.9042700432665424e+02_dp, -9.2292552288497313e+02_dp, &
6722 4.1790581952714399e+02_dp, -7.6433006503481721e+01_dp, 3.2060087628137712e+03_dp, &
6723 -9.3159464375811276e+03_dp, 1.2527209661291899e+04_dp, -8.3053185228384245e+03_dp, &
6724 2.0211803182403949e+02_dp, 4.0355629264948511e+03_dp, -2.0304106473113000e+03_dp, &
6725 -1.4364497108817213e+03_dp, 1.8398623005265499e+03_dp, -9.3541599607360126e+00_dp, &
6726 -1.0484935445809742e+03_dp, 6.9858483574260197e+02_dp, -1.5661215432484158e+02_dp, &
6727 7.5591031206278803e+03_dp, -2.3841921827888185e+04_dp, 3.6673405643627026e+04_dp, &
6728 -3.2125806874645870e+04_dp, 1.2397751752493754e+04_dp, 5.3198673575983330e+03_dp, &
6729 -8.5053962353377374e+03_dp, 1.3907593831382503e+03_dp, 4.2903518293564521e+03_dp, &
6730 -3.9548845908239964e+03_dp, 1.3227466776399026e+03_dp, -1.3766911144115962e+01_dp, &
6731 -7.0037204280174294e+01_dp, 2.8049596976249963e+04_dp, -8.9761481908365226e+04_dp, &
6732 1.4403023637372538e+05_dp, -1.4044772416853864e+05_dp, 7.9387433338889328e+04_dp, &
6733 -1.2949273069561426e+04_dp, -1.4404242828698498e+04_dp, 6.6705867587399225e+03_dp, &
6734 5.5214430686198393e+03_dp, -6.3725355581415643e+03_dp, 1.8293089995376904e+03_dp, &
6735 3.3442777562420838e+02_dp, -2.1590463856083068e+02_dp, 2.4597046908671585e-01_dp, &
6736 -2.4131515313491576e-02_dp, -1.4593663353954249e-02_dp, 2.2311800236706780e-03_dp, &
6737 4.4466949112589912e-03_dp, -1.8404928039251618e-04_dp, -2.9927966501996396e-03_dp, &
6738 2.6735816123596879e-04_dp, 2.7889490611109772e-03_dp, -2.2452342695937332e-03_dp, &
6739 3.6231203373800745e-04_dp, 3.0171331853223634e-04_dp, -1.1748533887842431e-04_dp, &
6740 8.0512062220512370e-01_dp, -9.3210652061862007e-02_dp, -5.4083956239739717e-02_dp, &
6741 1.1275869730545569e-02_dp, 1.7399565786205721e-02_dp, -1.9029409691100781e-03_dp, &
6742 -1.1869164318760249e-02_dp, 1.5167816775997040e-03_dp, 1.1742529707275380e-02_dp, &
6743 -1.0427559162066466e-02_dp, 2.5937524919136981e-03_dp, 7.7071430704681043e-04_dp, &
6744 -4.0179192653180969e-04_dp, 1.5913824833072012e+00_dp, -2.3872493245015622e-01_dp, &
6745 -1.2969157416835858e-01_dp, 3.8869865775083785e-02_dp, 4.4967623155562533e-02_dp, &
6746 -9.6244127552489699e-03_dp, -3.1355874505723864e-02_dp, 5.8983064535336914e-03_dp, &
6747 3.3784953332417815e-02_dp, -3.3869634002932601e-02_dp, 1.1722170608515301e-02_dp, &
6748 2.1904742245513310e-04_dp, -7.8368264635060559e-04_dp, 2.8504450774327998e+00_dp, &
6749 -5.6612512571131524e-01_dp, -2.8459684321944051e-01_dp, 1.1706520518696334e-01_dp, &
6750 1.0585372455591220e-01_dp, -3.5695445721860848e-02_dp, -7.5839023807993372e-02_dp, &
6751 1.9812098408427733e-02_dp, 8.9483211008635308e-02_dp, -1.0040209061808522e-01_dp, &
6752 4.2905149773221109e-02_dp, -5.0125013089657635e-03_dp, -1.0293435042649617e-03_dp, &
6753 5.0103582234362856e+00_dp, -1.2983685620824574e+00_dp, -5.9781702803632175e-01_dp, &
6754 3.2458841568543156e-01_dp, 2.3547324163176134e-01_dp, -1.1375382180367667e-01_dp, &
6755 -1.7422262057421442e-01_dp, 6.1111170753431865e-02_dp, 2.2598196223392233e-01_dp, &
6756 -2.8189868001107560e-01_dp, 1.4003280395960366e-01_dp, -2.7702266029124158e-02_dp, &
6757 2.3088321236861272e-04_dp, 8.8649193387428031e+00_dp, -2.9256588227359037e+00_dp, &
6758 -1.2152264078580886e+00_dp, 8.5696828796979208e-01_dp, 4.9899734214418356e-01_dp, &
6759 -3.3446674272664295e-01_dp, -3.8401558036591399e-01_dp, 1.7999675719079797e-01_dp, &
6760 5.5182828585602572e-01_dp, -7.6573695808554709e-01_dp, 4.2908723819998862e-01_dp, &
6761 -1.0932416618525242e-01_dp, 8.4551173907571678e-03_dp, 1.5946104667560101e+01_dp, &
6762 -6.5535743239849209e+00_dp, -2.3980297467455691e+00_dp, 2.2035136645166129e+00_dp, &
6763 1.0045777679055572e+00_dp, -9.4065923178633748e-01_dp, -8.1356526611789204e-01_dp, &
6764 5.1914828261288715e-01_dp, 1.3116012772845194e+00_dp, -2.0399962005155539e+00_dp, &
6765 1.2690404031225635e+00_dp, -3.7979574497355501e-01_dp, 4.2950086794989274e-02_dp, &
6766 2.9311091290898574e+01_dp, -1.4740506211940973e+01_dp, -4.5764593211909546e+00_dp, &
6767 5.6031566250743383e+00_dp, 1.8826906137057735e+00_dp, -2.5823838485985520e+00_dp, &
6768 -1.6411360147721636e+00_dp, 1.4915672640388642e+00_dp, 3.0268734350794677e+00_dp, &
6769 -5.3670886083417155e+00_dp, 3.6770733976275096e+00_dp, -1.2384352707729609e+00_dp, &
6770 1.6844098822094386e-01_dp, 5.5269891112628450e+01_dp, -3.3588337863064204e+01_dp, &
6771 -8.3060983403295587e+00_dp, 1.4245858269068547e+01_dp, 3.0679193808833980e+00_dp, &
6772 -7.0049866947254937e+00_dp, -3.0485764419964387e+00_dp, 4.3234572865357226e+00_dp, &
6773 6.6611087254448593e+00_dp, -1.3946268257843466e+01_dp, 1.0509462585713232e+01_dp, &
6774 -3.8962221995669863e+00_dp, 5.9561183401098095e-01_dp, 1.0733973915516557e+02_dp, &
6775 -7.8192038336418292e+01_dp, -1.3621080023967423e+01_dp, 3.6519885331470277e+01_dp, &
6776 3.1798382551855648e+00_dp, -1.8903100012045829e+01_dp, -4.6635840130611124e+00_dp, &
6777 1.2767153185864498e+01_dp, 1.3205696710402899e+01_dp, -3.5455541355133271e+01_dp, &
6778 2.9604035476104617e+01_dp, -1.1959941279367301e+01_dp, 1.9943808572689838e+00_dp, &
6779 2.1574110229087182e+02_dp, -1.8759091378514898e+02_dp, -1.6548194406177625e+01_dp, &
6780 9.5013977871018469e+01_dp, -5.4491937574046752e+00_dp, -5.0801726334298664e+01_dp, &
6781 -2.6993423034851483e+00_dp, 3.8656939223630474e+01_dp, 1.8853421819247718e+01_dp, &
6782 -8.5648508663829901e+01_dp, 8.1175335514105896e+01_dp, -3.5754750625577735e+01_dp, &
6783 6.4231041798051232e+00_dp, 4.5152529264002453e+02_dp, -4.6839884015400759e+02_dp, &
6784 7.0294758026416391e+00_dp, 2.5195876228718237e+02_dp, -5.8200098802286071e+01_dp, &
6785 -1.3476486579792476e+02_dp, 2.3084889406857080e+01_dp, 1.1999084006699820e+02_dp, &
6786 -1.4733025794216744e+01_dp, -1.7989156147155072e+02_dp, 2.0847512854987923e+02_dp, &
6787 -1.0186724973687066e+02_dp, 1.9730960727082149e+01_dp, 9.9218910784116417e+02_dp, &
6788 -1.2321348321492649e+03_dp, 1.7515742609839145e+02_dp, 6.8070921799959092e+02_dp, &
6789 -3.1209102904765376e+02_dp, -3.4057274892355639e+02_dp, 1.6687726273187675e+02_dp, &
6790 3.7518950074597132e+02_dp, -3.1475910486719397e+02_dp, -2.1096647744491858e+02_dp, &
6791 4.4206246642368058e+02_dp, -2.5724080612716710e+02_dp, 5.5041848263909372e+01_dp, &
6792 2.3157777551412210e+03_dp, -3.4705465948827878e+03_dp, 1.0560938859361700e+03_dp, &
6793 1.8457238342746532e+03_dp, -1.4757403839796784e+03_dp, -7.0935408588748635e+02_dp, &
6794 8.4504740826609702e+02_dp, 1.0995279604639743e+03_dp, -1.9951407194066446e+03_dp, &
6795 8.8275263167062758e+02_dp, 3.0984268568964131e+02_dp, -4.2142428256752106e+02_dp, &
6796 1.1510935171638715e+02_dp, 5.8410998191536091e+03_dp, -1.0715057679305270e+04_dp, &
6797 5.5881348394814086e+03_dp, 4.6493931663950134e+03_dp, -6.8728966621051050e+03_dp, &
6798 -4.1924139258334478e+01_dp, 3.7206102777900010e+03_dp, 2.1202646040436580e+03_dp, &
6799 -9.2875013030481878e+03_dp, 9.2985656387185409e+03_dp, -4.4824184492676550e+03_dp, &
6800 9.6577982916343615e+02_dp, -4.0485333749672158e+01_dp, 1.6398745921063954e+04_dp, &
6801 -3.7596389625372154e+04_dp, 3.1336122401268269e+04_dp, 5.4048022371223969e+03_dp, &
6802 -3.1578107170577830e+04_dp, 1.7491375187499234e+04_dp, 1.0558791507837142e+04_dp, &
6803 -8.6578643507329816e+03_dp, -2.1657103563023124e+04_dp, 4.1477022148521210e+04_dp, &
6804 -3.2576961817922802e+04_dp, 1.3109718009568427e+04_dp, -2.2341346231179591e+03_dp, &
6805 5.5933770441125977e+04_dp, -1.6151312582203400e+05_dp, 2.0784369795231955e+05_dp, &
6806 -1.0524097468765127e+05_dp, -7.7042400583628056e+04_dp, 1.7217692234932515e+05_dp, &
6807 -1.1629573180003346e+05_dp, 1.1490194503876031e+04_dp, 2.5783214909699680e+04_dp, &
6808 1.0864388170919431e+03_dp, -2.2701386651906592e+04_dp, 1.5634205854882433e+04_dp, &
6809 -3.5877583180293955e+03_dp, 2.0109439642887108e+00_dp, -2.0605705561447749e-01_dp, &
6810 -1.2328473266793621e-01_dp, 2.0611707730536010e-02_dp, 3.8124292134014297e-02_dp, &
6811 -2.2565406289175886e-03_dp, -2.5747130192002296e-02_dp, 2.5568925787927566e-03_dp, &
6812 2.4379620109946373e-02_dp, -2.0171664468884437e-02_dp, 3.7637966228315930e-03_dp, &
6813 2.3586802910798275e-03_dp, -9.7522517747690776e-04_dp, 2.5650771305620559e+00_dp, &
6814 -3.8147293599496823e-01_dp, -2.0907944912054602e-01_dp, 6.0270406124987005e-02_dp, &
6815 7.2175105576574167e-02_dp, -1.4263061186970644e-02_dp, -5.0116196827266875e-02_dp, &
6816 8.8786858753379574e-03_dp, 5.3249935798219614e-02_dp, -5.2294415587463297e-02_dp, &
6817 1.7261637124157323e-02_dp, 9.2009373639893323e-04_dp, -1.3430266626453476e-03_dp, &
6818 3.8828170221494824e+00_dp, -8.4885642696270247e-01_dp, -4.2339961499366990e-01_dp, &
6819 1.8016120959522738e-01_dp, 1.6028857054099307e-01_dp, -5.4950371377315503e-02_dp, &
6820 -1.1487630174987833e-01_dp, 3.0013157516531445e-02_dp, 1.3585245394835330e-01_dp, &
6821 -1.5217460713811157e-01_dp, 6.4788928372283699e-02_dp, -7.4203095016135562e-03_dp, &
6822 -1.6019171078434956e-03_dp, 6.4636980648849729e+00_dp, -1.9099631989520829e+00_dp, &
6823 -8.6651521700026635e-01_dp, 4.9374292598778025e-01_dp, 3.4952603809371302e-01_dp, &
6824 -1.7396151407323862e-01_dp, -2.5934913691469813e-01_dp, 9.2007238929733004e-02_dp, &
6825 3.3903391371774966e-01_dp, -4.2381412446029582e-01_dp, 2.1088118199107522e-01_dp, &
6826 -4.1855791726591811e-02_dp, 3.8884987212805058e-04_dp, 1.1321884964418704e+01_dp/)
6827 REAL(kind=dp), DIMENSION(400), PARAMETER :: c05 = (/-4.2539604263036663e+00_dp, &
6828 -1.7332279212896191e+00_dp, 1.2863899425408518e+00_dp, 7.2978346101421798e-01_dp, &
6829 -5.0542068060802536e-01_dp, -5.6453129220842824e-01_dp, 2.6844891959416117e-01_dp, &
6830 8.2065620557106000e-01_dp, -1.1421990003730462e+00_dp, 6.4148861901481036e-01_dp, &
6831 -1.6396257011823606e-01_dp, 1.2796070085478475e-02_dp, 2.0487853209932744e+01_dp, &
6832 -9.4517537769870792e+00_dp, -3.3759733637452087e+00_dp, 3.2722131653337412e+00_dp, &
6833 1.4507872941308217e+00_dp, -1.4073698425446566e+00_dp, -1.1842661757288730e+00_dp, &
6834 7.6778103478918880e-01_dp, 1.9398286469535142e+00_dp, -3.0258530426324368e+00_dp, &
6835 1.8858507556008846e+00_dp, -5.6545804339658101e-01_dp, 6.4128521008321809e-02_dp, &
6836 3.8095174335565567e+01_dp, -2.1154495441708484e+01_dp, -6.3728233078180931e+00_dp, &
6837 8.2563638968778950e+00_dp, 2.6905728467335490e+00_dp, -3.8356557488916927e+00_dp, &
6838 -2.3727163256891193e+00_dp, 2.1906341809472898e+00_dp, 4.4719906295754370e+00_dp, &
6839 -7.9395530803829812e+00_dp, 5.4435322355460913e+00_dp, -1.8339025028763316e+00_dp, &
6840 2.4941000766842886e-01_dp, 7.2794607863908539e+01_dp, -4.8093277265190174e+01_dp, &
6841 -1.1453054881238076e+01_dp, 2.0880285157258903e+01_dp, 4.3451760510124844e+00_dp, &
6842 -1.0353879135082220e+01_dp, -4.3940844971702182e+00_dp, 6.3120734481245231e+00_dp, &
6843 9.8973417965680408e+00_dp, -2.0647117445046018e+01_dp, 1.5538811111774422e+01_dp, &
6844 -5.7518348230309915e+00_dp, 8.7742951648656331e-01_dp, 1.4332617622926281e+02_dp, &
6845 -1.1190083363446227e+02_dp, -1.8573930061634336e+01_dp, 5.3338145508390340e+01_dp, &
6846 4.4631414700445591e+00_dp, -2.7868449098144676e+01_dp, -6.7549296888413908e+00_dp, &
6847 1.8541177811553482e+01_dp, 2.0031367391249091e+01_dp, -5.2810064519241095e+01_dp, &
6848 4.3877834330533581e+01_dp, -1.7658169541203652e+01_dp, 2.9331138916030355e+00_dp, &
6849 2.9197759925863352e+02_dp, -2.6852040701030040e+02_dp, -2.2082783044921865e+01_dp, &
6850 1.3846051549368181e+02_dp, -7.6189827475657532e+00_dp, -7.4936271383495338e+01_dp, &
6851 -4.2799690014967950e+00_dp, 5.5901437494488015e+01_dp, 3.1119328948155172e+01_dp, &
6852 -1.2977676359921708e+02_dp, 1.2145063411930138e+02_dp, -5.3095774315419469e+01_dp, &
6853 9.4800311502936196e+00_dp, 6.1887006052817526e+02_dp, -6.7028990777509409e+02_dp, &
6854 1.1201345750961481e+01_dp, 3.6684552949179283e+02_dp, -8.0419700058574776e+01_dp, &
6855 -2.0013407508924359e+02_dp, 3.0658023480604339e+01_dp, 1.7336606540154875e+02_dp, &
6856 -4.2234575269977981e+00_dp, -2.8652377100140529e+02_dp, 3.2016960404528265e+02_dp, &
6857 -1.5405177965842552e+02_dp, 2.9536421581524074e+01_dp, 1.3750163796936240e+03_dp, &
6858 -1.7589799109221406e+03_dp, 2.3961277028254179e+02_dp, 9.9301157485970555e+02_dp, &
6859 -4.2575252374052224e+02_dp, -5.1817603461276519e+02_dp, 2.2602380506510636e+02_dp, &
6860 5.4799637021657588e+02_dp, -3.8063255724265480e+02_dp, -4.3209967552717637e+02_dp, &
6861 7.3643375490972539e+02_dp, -4.1008578171950961e+02_dp, 8.5854890766784024e+01_dp, &
6862 3.2350942724992897e+03_dp, -4.9196762475376900e+03_dp, 1.4005845015490424e+03_dp, &
6863 2.7240803683332629e+03_dp, -1.9809371044851687e+03_dp, -1.1912780067707383e+03_dp, &
6864 1.1497315070977018e+03_dp, 1.6931690976040784e+03_dp, -2.6191658279561266e+03_dp, &
6865 6.8165720237798473e+02_dp, 9.6374997813179459e+02_dp, -8.3276968242760586e+02_dp, &
6866 2.0676706863037907e+02_dp, 8.1777664155924858e+03_dp, -1.4947471572678814e+04_dp, &
6867 7.1193687656003467e+03_dp, 7.2704699942482303e+03_dp, -9.0701497685694721e+03_dp, &
6868 -1.3829479450049473e+03_dp, 5.2343291775954631e+03_dp, 4.3188817279079030e+03_dp, &
6869 -1.3395512259314450e+04_dp, 1.1338333668387049e+04_dp, -4.0650141614603253e+03_dp, &
6870 1.8500545674922793e+02_dp, 1.8404119432961565e+02_dp, 2.2712516525332092e+04_dp, &
6871 -5.0737374807702967e+04_dp, 3.7414818324359119e+04_dp, 1.5002435412785790e+04_dp, &
6872 -4.2430746564604517e+04_dp, 1.2806412701410625e+04_dp, 2.0720578130718106e+04_dp, &
6873 -2.6832946122836898e+02_dp, -5.0834266091037163e+04_dp, 7.0480937773566868e+04_dp, &
6874 -4.6917539041131182e+04_dp, 1.6400456910054389e+04_dp, -2.4239470406997216e+03_dp, &
6875 7.2346780322228064e+04_dp, -2.0101001503791616e+05_dp, 2.2465714313474763e+05_dp, &
6876 -4.1692320974158160e+04_dp, -1.8428799273171904e+05_dp, 1.9351303403408095e+05_dp, &
6877 6.5115811053828320e+03_dp, -1.3528658618327085e+05_dp, 3.3663152446055996e+04_dp, &
6878 1.3655504570022557e+05_dp, -1.6923190168772679e+05_dp, 8.5874640094980365e+04_dp, &
6879 -1.7241422711442276e+04_dp, 3.1939792849337222e+05_dp, -1.0568561779921057e+06_dp, &
6880 1.6796432468799651e+06_dp, -1.4288114404238255e+06_dp, 2.3272192404290100e+05_dp, &
6881 1.0799323551139913e+06_dp, -1.6297117460196065e+06_dp, 1.3266412491764352e+06_dp, &
6882 -7.2330143312487204e+05_dp, 2.9143884697513317e+05_dp, -9.9073557291649820e+04_dp, &
6883 2.9147576845580217e+04_dp, -5.0077315833356834e+03_dp, 2.5399771849532937e-01_dp, &
6884 -8.3033887225757580e-03_dp, -7.6240573657738115e-03_dp, 2.8522290409030179e-03_dp, &
6885 -3.0540795652697220e-03_dp, 4.9663641512514419e-03_dp, -5.8165865884663133e-03_dp, &
6886 5.9728067889719752e-03_dp, -5.8369679736555158e-03_dp, 4.8909245070782462e-03_dp, &
6887 -3.0462113393202300e-03_dp, 1.2108511933957031e-03_dp, -2.2780712761746828e-04_dp, &
6888 8.3638364305768520e-01_dp, -3.2608326200435286e-02_dp, -2.9657073560502185e-02_dp, &
6889 1.1717032907011333e-02_dp, -1.1961865091520774e-02_dp, 1.9527087573284384e-02_dp, &
6890 -2.2960112994842900e-02_dp, 2.3490832187062813e-02_dp, -2.2880044526118807e-02_dp, &
6891 1.9162416281042115e-02_dp, -1.1938349942081816e-02_dp, 4.7445678978824480e-03_dp, &
6892 -8.9197277469357805e-04_dp, 1.6724533608911527e+00_dp, -8.5614488407303832e-02_dp, &
6893 -7.6755331134380211e-02_dp, 3.2773035396635355e-02_dp, -3.1314839841457949e-02_dp, &
6894 5.1345159212853306e-02_dp, -6.0742187908847688e-02_dp, 6.1817450219547841e-02_dp, &
6895 -5.9900400959394209e-02_dp, 5.0128559376177953e-02_dp, -3.1246531279548323e-02_dp, &
6896 1.2416023551359569e-02_dp, -2.3317856969346015e-03_dp, 3.0453512199679000e+00_dp, &
6897 -2.0863090315180247e-01_dp, -1.8408153868430499e-01_dp, 8.5169636305938420e-02_dp, &
6898 -7.6204738289630397e-02_dp, 1.2525692165315666e-01_dp, -1.4923544481462697e-01_dp, &
6899 1.5103590459034816e-01_dp, -1.4548513388214768e-01_dp, 1.2163468207365730e-01_dp, &
6900 -7.5871468061049080e-02_dp, 3.0148268152665792e-02_dp, -5.6563574453512922e-03_dp, &
6901 5.4638310929832095e+00_dp, -4.9229245214837142e-01_dp, -4.2703130683166335e-01_dp, &
6902 2.1395029978012914e-01_dp, -1.7998803117127329e-01_dp, 2.9569827835085399e-01_dp, &
6903 -3.5510720815802771e-01_dp, 3.5742646671849382e-01_dp, -3.4201443477799331e-01_dp, &
6904 2.8560882144847355e-01_dp, -1.7831621218447033e-01_dp, 7.0874969102503266e-02_dp, &
6905 -1.3286288180972624e-02_dp, 9.9026613863259954e+00_dp, -1.1436820473123184e+00_dp, &
6906 -9.7368133633730680e-01_dp, 5.2913145605271328e-01_dp, -4.1979778183307109e-01_dp, &
6907 6.8678629087967658e-01_dp, -8.3225011865141296e-01_dp, 8.3313008194203841e-01_dp, &
6908 -7.9113948287700431e-01_dp, 6.5965573759522067e-01_dp, -4.1234076860417629e-01_dp, &
6909 1.6399646715620800e-01_dp, -3.0723929620273597e-02_dp, 1.8310843645113124e+01_dp, &
6910 -2.6497670237209929e+00_dp, -2.2084953089663300e+00_dp, 1.3073414834056065e+00_dp, &
6911 -9.8030423668319455e-01_dp, 1.5894351154630064e+00_dp, -1.9463691136255397e+00_dp, &
6912 1.9378432641209999e+00_dp, -1.8235505263636096e+00_dp, 1.5173210666977606e+00_dp, &
6913 -9.4993178976001713e-01_dp, 3.7824140655577221e-01_dp, -7.0840946919823303e-02_dp, &
6914 3.4734198615946212e+01_dp, -6.1913475701008718e+00_dp, -5.0342585633204626e+00_dp, &
6915 3.2672480067080283e+00_dp, -2.3210081478694335e+00_dp, 3.7057412387846540e+00_dp, &
6916 -4.5938530888721134e+00_dp, 4.5493414807353512e+00_dp, -4.2340607625465676e+00_dp, &
6917 3.5125800180349342e+00_dp, -2.2034834637331495e+00_dp, 8.7903170473612890e-01_dp, &
6918 -1.6467198958207585e-01_dp, 6.7907060498973522e+01_dp, -1.4739076394337873e+01_dp, &
6919 -1.1636844538005446e+01_dp, 8.3520518383431011e+00_dp, -5.6406452024251346e+00_dp, &
6920 8.7907314207810714e+00_dp, -1.1054622145984020e+01_dp, 1.0892905149402702e+01_dp, &
6921 -1.0000415655277743e+01_dp, 8.2597416232575309e+00_dp, -5.1944403144978049e+00_dp, &
6922 2.0783350249549093e+00_dp, -3.8976488880608956e-01_dp, 1.3754189884920987e+02_dp, &
6923 -3.6112261566861719e+01_dp, -2.7506089296448486e+01_dp, 2.2081510409742627e+01_dp, &
6924 -1.4257561271282713e+01_dp, 2.1425371349192375e+01_dp, -2.7393711620526801e+01_dp, &
6925 2.6880120365914127e+01_dp, -2.4256007023950794e+01_dp, 1.9896595191742847e+01_dp, &
6926 -1.2550072865137675e+01_dp, 5.0440291354648172e+00_dp, -9.4830475587057206e-01_dp, &
6927 2.9051478597825161e+02_dp, -9.2077480881216914e+01_dp, -6.7042751616157403e+01_dp, &
6928 6.1122066501813805e+01_dp, -3.8074088991537131e+01_dp, 5.4229813974137763e+01_dp, &
6929 -7.0650491998597872e+01_dp, 6.9148772922131428e+01_dp, -6.1030422251934006e+01_dp, &
6930 4.9501109185729597e+01_dp, -3.1320759235557357e+01_dp, 1.2672891600799508e+01_dp, &
6931 -2.3940255865041160e+00_dp, 6.4557191457606052e+02_dp, -2.4763182690496433e+02_dp, &
6932 -1.7000441338399474e+02_dp, 1.7979797134338500e+02_dp, -1.0963259713335488e+02_dp, &
6933 1.4445301204007444e+02_dp, -1.9199563810236253e+02_dp, 1.8801003542743408e+02_dp, &
6934 -1.6118263890219302e+02_dp, 1.2820143562173234e+02_dp, -8.1268684993159169e+01_dp, &
6935 3.3201648029135029e+01_dp, -6.3257064933095632e+00_dp, 1.5281770790560115e+03_dp, &
6936 -7.1515428321482318e+02_dp, -4.5276182324024262e+02_dp, 5.7338834147225236e+02_dp, &
6937 -3.5031930447070647e+02_dp, 4.1265596366351411e+02_dp, -5.5821259522651553e+02_dp, &
6938 5.4994852484809564e+02_dp, -4.5353406400816010e+02_dp, 3.4777962951959489e+02_dp, &
6939 -2.1955613483579080e+02_dp, 9.0846938995140135e+01_dp, -1.7557396032513779e+01_dp, &
6940 3.9261873180851890e+03_dp, -2.2769021329796587e+03_dp, -1.2770843901758556e+03_dp, &
6941 2.0407998981381138e+03_dp, -1.2978099365872522e+03_dp, 1.3049821930118717e+03_dp, &
6942 -1.7706647534018759e+03_dp, 1.7719691434495785e+03_dp, -1.3872679059180307e+03_dp, &
6943 9.8676308339813556e+02_dp, -6.0572190633134835e+02_dp, 2.5343498559405921e+02_dp, &
6944 -5.0067017168943025e+01_dp, 1.1287275974519674e+04_dp, -8.3427028800217486e+03_dp, &
6945 -3.7990573642673103e+03_dp, 8.4927259072795641e+03_dp, -5.9962833139676068e+03_dp, &
6946 4.8878274555726575e+03_dp, -6.2818683353242614e+03_dp, 6.4697978795118643e+03_dp, &
6947 -4.7394997944678944e+03_dp, 2.8301056804072027e+03_dp, -1.5087936765466591e+03_dp, &
6948 6.0963560380239039e+02_dp, -1.2304467591412092e+02_dp, 3.8437627273177568e+04_dp, &
6949 -3.8176312227787312e+04_dp, -1.0634568511977122e+04_dp, 4.4919022886395134e+04_dp, &
6950 -3.9765187408990765e+04_dp, 2.6349805711576602e+04_dp, -2.5672293572137780e+04_dp, &
6951 2.6451194932949369e+04_dp, -1.7901001830063731e+04_dp, 6.2663747959682069e+03_dp, &
6952 -7.9046224464493122e+01_dp, -7.7755945708786203e+02_dp, 2.1450377554813323e+02_dp, &
6953 1.7818869100699757e+05_dp, -2.6537447971430060e+05_dp, 3.1712593310074910e+04_dp, &
6954 3.4422146844366990e+05_dp, -5.3053517524802696e+05_dp, 4.3145350047972775e+05_dp, &
6955 -1.9228471756741623e+05_dp, -3.1796392782362986e+04_dp, 1.7950338120613602e+05_dp, &
6956 -2.3038705409991340e+05_dp, 1.8179053082015848e+05_dp, -8.5539393856822993e+04_dp, &
6957 1.8297112165331673e+04_dp, 2.0796368651156318e+00_dp, -7.1211773323306998e-02_dp, &
6958 -6.5222594833814318e-02_dp, 2.4758880150403027e-02_dp, -2.6172471480240402e-02_dp, &
6959 4.2607134478414486e-02_dp, -4.9952200375915141e-02_dp, 5.1244059328384543e-02_dp, &
6960 -5.0035111663177034e-02_dp, 4.1920311429239167e-02_dp, -2.6111046961287777e-02_dp/)
6961 REAL(kind=dp), DIMENSION(400), PARAMETER :: c06 = (/1.0378429926308540e-02_dp, &
6962 -1.9521878957809889e-03_dp, 2.6944073713370376e+00_dp, -1.3634250253884062e-01_dp, &
6963 -1.2248962009310110e-01_dp, 5.1739894797576326e-02_dp, -4.9861795300424228e-02_dp, &
6964 8.1764747263490686e-02_dp, -9.6628896510658951e-02_dp, 9.8409054684497427e-02_dp, &
6965 -9.5437204809848047e-02_dp, 7.9879375951563511e-02_dp, -4.9785180785078605e-02_dp, &
6966 1.9781814649150051e-02_dp, -3.7155106897152532e-03_dp, 4.1754065857664679e+00_dp, &
6967 -3.1351013649643816e-01_dp, -2.7633289430167707e-01_dp, 1.2854478131208438e-01_dp, &
6968 -1.1437860765449445e-01_dp, 1.8829614057148475e-01_dp, -2.2438400638247086e-01_dp, &
6969 2.2698373182776574e-01_dp, -2.1859649315655161e-01_dp, 1.8276068899158232e-01_dp, &
6970 -1.1399571200820550e-01_dp, 4.5292156705966799e-02_dp, -8.4963179977451710e-03_dp, &
6971 7.1321772449454741e+00_dp, -7.2704365835075646e-01_dp, -6.2939140508259084e-01_dp, &
6972 3.1836503791119075e-01_dp, -2.6546680650849463e-01_dp, 4.3689678639928536e-01_dp, &
6973 -5.2499672256707541e-01_dp, 5.2799497456180577e-01_dp, -5.0495196946337140e-01_dp, &
6974 4.2165902676363498e-01_dp, -2.6325905625353568e-01_dp, 1.0462371284509191e-01_dp, &
6975 -1.9608344465334434e-02_dp, 1.2834515530424907e+01_dp, -1.6706472138204553e+00_dp, &
6976 -1.4188832578032204e+00_dp, 7.7932291344618254e-01_dp, -6.1248631370805595e-01_dp, &
6977 1.0036315751279516e+00_dp, -1.2172307293345568e+00_dp, 1.2173794784926901e+00_dp, &
6978 -1.1552141520797918e+00_dp, 9.6318085874165005e-01_dp, -6.0209450103939621e-01_dp, &
6979 2.3943637699340395e-01_dp, -4.4845635855033761e-02_dp, 2.3907644544268969e+01_dp, &
6980 -3.8409238287608631e+00_dp, -3.1927866471055242e+00_dp, 1.9107508410085583e+00_dp, &
6981 -1.4194444132695128e+00_dp, 2.3047039849449251e+00_dp, -2.8251319104705459e+00_dp, &
6982 2.8099411726428549e+00_dp, -2.6421180276849054e+00_dp, 2.1983609044304298e+00_dp, &
6983 -1.3764093323588191e+00_dp, 5.4799175204302053e-01_dp, -1.0260464712972778e-01_dp, &
6984 4.5900219693354039e+01_dp, -8.9317693484926668e+00_dp, -7.2428742526117622e+00_dp, &
6985 4.7498551429452860e+00_dp, -3.3446060263422406e+00_dp, 5.3474540805623176e+00_dp, &
6986 -6.6363730788695472e+00_dp, 6.5652622867554413e+00_dp, -6.1054269491608801e+00_dp, &
6987 5.0652251409978781e+00_dp, -3.1778332100528144e+00_dp, 1.2675663829725419e+00_dp, &
6988 -2.3738207936101491e-01_dp, 9.0939009801418251e+01_dp, -2.1207951305576458e+01_dp, &
6989 -1.6703836717599909e+01_dp, 1.2094601423920158e+01_dp, -8.1037239824558487e+00_dp, &
6990 1.2652193762144261e+01_dp, -1.5927629386120495e+01_dp, 1.5678136007593519e+01_dp, &
6991 -1.4384696049040816e+01_dp, 1.1883309669508408e+01_dp, -7.4743470332662731e+00_dp, &
6992 2.9899963557394957e+00_dp, -5.6051343972032064e-01_dp, 1.8664874611056891e+02_dp, &
6993 -5.1882278871112675e+01_dp, -3.9458004229447603e+01_dp, 3.1854721012338533e+01_dp, &
6994 -2.0425886295138511e+01_dp, 3.0791578686657544e+01_dp, -3.9403681473957676e+01_dp, &
6995 3.8622643042566317e+01_dp, -3.4847520475636244e+01_dp, 2.8602543521658834e+01_dp, &
6996 -1.8045198909363659e+01_dp, 7.2502140242936921e+00_dp, -1.3622957283347905e+00_dp, &
6997 3.9915188049530610e+02_dp, -1.3203707855054867e+02_dp, -9.6178119362902649e+01_dp, &
6998 8.7705958866288142e+01_dp, -5.4284439736638681e+01_dp, 7.7802647990103949e+01_dp, &
6999 -1.0141935559157001e+02_dp, 9.9136132884069752e+01_dp, -8.7572824663943678e+01_dp, &
7000 7.1146305460401948e+01_dp, -4.5034774737857425e+01_dp, 1.8210581017182808e+01_dp, &
7001 -3.4368084704922492e+00_dp, 8.9640126039779705e+02_dp, -3.5362542578945090e+02_dp, &
7002 -2.4381286270301160e+02_dp, 2.5567043117350039e+02_dp, -1.5473035694623934e+02_dp, &
7003 2.0643065091772985e+02_dp, -2.7449876024024695e+02_dp, 2.6829509790813256e+02_dp, &
7004 -2.3063853177772037e+02_dp, 1.8419775073300784e+02_dp, -1.1690662622678340e+02_dp, &
7005 4.7711080741790596e+01_dp, -9.0740124097056771e+00_dp, 2.1371273099507980e+03_dp, &
7006 -1.0117484690800054e+03_dp, -6.4833923675694632e+02_dp, 8.0221902155722398e+02_dp, &
7007 -4.8409799486432814e+02_dp, 5.8407650925627354e+02_dp, -7.9151735905004318e+02_dp, &
7008 7.7715699922847898e+02_dp, -6.4473901677909225e+02_dp, 4.9950084061013206e+02_dp, &
7009 -3.1670516768758597e+02_dp, 1.3088948582201553e+02_dp, -2.5216009702956097e+01_dp, &
7010 5.4941634656312544e+03_dp, -3.1579566223942602e+03_dp, -1.8240594402316519e+03_dp, &
7011 2.7722798032040118e+03_dp, -1.7188010021120501e+03_dp, 1.8049036287011472e+03_dp, &
7012 -2.4720525322843669e+03_dp, 2.4575593777441154e+03_dp, -1.9454017485166187e+03_dp, &
7013 1.4216353652861419e+03_dp, -8.8794262472737205e+02_dp, 3.7236649124083812e+02_dp, &
7014 -7.3224838489909345e+01_dp, 1.5598907311734893e+04_dp, -1.1102735305658800e+04_dp, &
7015 -5.4496895758397304e+03_dp, 1.0920783488778621e+04_dp, -7.2896930341331999e+03_dp, &
7016 6.3648779067823270e+03_dp, -8.5400815400530537e+03_dp, 8.7029682626190970e+03_dp, &
7017 -6.4829758274370470e+03_dp, 4.1818738901113929e+03_dp, -2.4318300865338133e+03_dp, &
7018 1.0217539466953230e+03_dp, -2.0696183440979297e+02_dp, 5.0910784596133592e+04_dp, &
7019 -4.6410694622357332e+04_dp, -1.6759575861048310e+04_dp, 5.1878639177724821e+04_dp, &
7020 -4.0256109414878149e+04_dp, 2.8334810650844160e+04_dp, -3.3461954000327562e+04_dp, &
7021 3.5317418178144384e+04_dp, -2.4510772031663375e+04_dp, 1.1577080835902063e+04_dp, &
7022 -4.3532742678888289e+03_dp, 1.4492552333627673e+03_dp, -2.9351788438751623e+02_dp, &
7023 2.0646310805017679e+05_dp, -2.5649451003031401e+05_dp, -3.4599088204528663e+04_dp, &
7024 3.2876093443253404e+05_dp, -3.4295275058681634e+05_dp, 2.1298567642959324e+05_dp, &
7025 -1.5333540067239694e+05_dp, 1.4673765999310571e+05_dp, -9.1327695628929680e+04_dp, &
7026 4.0267201625102462e+03_dp, 3.8179083987894133e+04_dp, -2.6616546576670629e+04_dp, &
7027 6.3775166535376393e+03_dp, 1.2836671172308552e+06_dp, -2.4267891820420851e+06_dp, &
7028 9.8426137787763157e+05_dp, 3.0244705295962645e+06_dp, -6.6314140027439278e+06_dp, &
7029 6.7915841815625075e+06_dp, -3.0584748882667138e+06_dp, -2.3579722151722158e+06_dp, &
7030 6.4360152608277015e+06_dp, -7.2732554452784210e+06_dp, 5.1574036293220147e+06_dp, &
7031 -2.2174478505159747e+06_dp, 4.4243860364206659e+05_dp, 2.5576624471415554e-01_dp, &
7032 4.2237570088002974e-09_dp, -1.0860357249158544e-02_dp, 1.3291431359068883e-02_dp, &
7033 -1.6900731238607920e-02_dp, 1.3962484092300874e-02_dp, 5.5824330603980879e-03_dp, &
7034 -5.1241539388943998e-02_dp, 1.1924290064807870e-01_dp, -1.7653776055574968e-01_dp, &
7035 1.7399289115806521e-01_dp, -1.0429706396163735e-01_dp, 2.8742956296286825e-02_dp, &
7036 8.4334174286158137e-01_dp, 1.6647331740500862e-08_dp, -4.2808548044690892e-02_dp, &
7037 5.2391164460175478e-02_dp, -6.6127942116811278e-02_dp, 5.3832866343907902e-02_dp, &
7038 2.4299402435477839e-02_dp, -2.0540730598820642e-01_dp, 4.7389926254432846e-01_dp, &
7039 -6.9894838310754248e-01_dp, 6.8730283012545457e-01_dp, -4.1135207214867037e-01_dp, &
7040 1.1323604650004115e-01_dp, 1.6907728029821778e+00_dp, 4.3944714380629980e-08_dp, &
7041 -1.1301966435617677e-01_dp, 1.3831887050265168e-01_dp, -1.7265894786567948e-01_dp, &
7042 1.3739412392853392e-01_dp, 7.3149394658010375e-02_dp, -5.5568362275266503e-01_dp, &
7043 1.2661948729096475e+00_dp, -1.8571387585078984e+00_dp, 1.8200395995789005e+00_dp, &
7044 -1.0867803636088169e+00_dp, 2.9866422519059560e-01_dp, 3.0901288057755520e+00_dp, &
7045 1.0772079547945405e-07_dp, -2.7708675910432151e-01_dp, 3.3911191201867580e-01_dp, &
7046 -4.1813678737718835e-01_dp, 3.2415947918917831e-01_dp, 2.0334817882080883e-01_dp, &
7047 -1.3978592144512130e+00_dp, 3.1438040492554027e+00_dp, -4.5835634903417697e+00_dp, &
7048 4.4755448980546646e+00_dp, -2.6656753625759242e+00_dp, 7.3121673386587283e-01_dp, &
7049 5.5698272110483344e+00_dp, 2.5576027456667277e-07_dp, -6.5799686641669253e-01_dp, &
7050 8.0528746329636880e-01_dp, -9.8004848950174905e-01_dp, 7.3810118982122419e-01_dp, &
7051 5.4249771450196238e-01_dp, -3.4069578044619200e+00_dp, 7.5616388404833437e+00_dp, &
7052 -1.0956710664782413e+01_dp, 1.0657500411874638e+01_dp, -6.3307799811259393e+00_dp, &
7053 1.7331860358171081e+00_dp, 1.0149759614132440e+01_dp, 5.9816188704636412e-07_dp, &
7054 -1.5391916143113304e+00_dp, 1.8837342032506716e+00_dp, -2.2598790657906993e+00_dp, &
7055 1.6463608426933884e+00_dp, 1.4189272312199954e+00_dp, -8.1875793783310566e+00_dp, &
7056 1.7923938935972270e+01_dp, -2.5801297646966532e+01_dp, 2.4993035113196413e+01_dp, &
7057 -1.4803360412194611e+01_dp, 4.0440613015781999e+00_dp, 1.8885544797422838e+01_dp, &
7058 1.3962193082829181e-06_dp, -3.5935492300793954e+00_dp, 4.3979504208452127e+00_dp, &
7059 -5.1910280549710484e+00_dp, 3.6347018516401288e+00_dp, 3.7005632026129085e+00_dp, &
7060 -1.9673683832970518e+01_dp, 4.2439595400855616e+01_dp, -6.0651898779119989e+01_dp, &
7061 5.8481834431875996e+01_dp, -3.4526009414347030e+01_dp, 9.4091800758801245e+00_dp, &
7062 3.6082927628028706e+01_dp, 3.2901193014272859e-06_dp, -8.4702295022993539e+00_dp, &
7063 1.0366249728117493e+01_dp, -1.2006521585567233e+01_dp, 8.0045054262700059e+00_dp, &
7064 9.7574715974163553e+00_dp, -4.7844176520379150e+01_dp, 1.0156232558264223e+02_dp, &
7065 -1.4397490593201323e+02_dp, 1.3809637723282293e+02_dp, -8.1222582326131445e+01_dp, &
7066 2.2073010705828167e+01_dp, 7.1134245645863814e+01_dp, 7.9097869358485311e-06_dp, &
7067 -2.0369747780417786e+01_dp, 2.4929401403798764e+01_dp, -2.8233117758625095e+01_dp, &
7068 1.7675076772578425e+01_dp, 2.6333062643496763e+01_dp, -1.1907948950314673e+02_dp, &
7069 2.4831111955679535e+02_dp, -3.4875954493874565e+02_dp, 3.3248082048627452e+02_dp, &
7070 -1.9468856176014137e+02_dp, 5.2732162646628915e+01_dp, 1.4549672148303156e+02_dp, &
7071 1.9606098644651494e-05_dp, -5.0510545608226444e+01_dp, 6.1816996598134779e+01_dp, &
7072 -6.8124325068817015e+01_dp, 3.9197095706813819e+01_dp, 7.3632728580914488e+01_dp, &
7073 -3.0676194479178452e+02_dp, 6.2695742728703999e+02_dp, -8.7111493883908997e+02_dp, &
7074 8.2443456649865914e+02_dp, -4.8018933005153883e+02_dp, 1.2953318523991635e+02_dp, &
7075 3.1094648618254405e+02_dp, 5.0696414767541625e-05_dp, -1.3067261929794532e+02_dp, &
7076 1.5992265246911447e+02_dp, -1.7032412326959059e+02_dp, 8.6865456810714306e+01_dp, &
7077 2.1627551271719494e+02_dp, -8.2833324696946715e+02_dp, 1.6543740153928604e+03_dp, &
7078 -2.2691680798433426e+03_dp, 2.1285371190344981e+03_dp, -1.2315575770352384e+03_dp, &
7079 3.3052109092285252e+02_dp, 7.0102332426653004e+02_dp, 1.3873488339462509e-04_dp, &
7080 -3.5783165787516657e+02_dp, 4.3792884674714333e+02_dp, -4.4617993522197833e+02_dp, &
7081 1.8813865534569888e+02_dp, 6.7882008059907184e+02_dp, -2.3814302002445670e+03_dp, &
7082 4.6290899430085301e+03_dp, -6.2490819879456340e+03_dp, 5.7958888003535612e+03_dp, &
7083 -3.3247298296427966e+03_dp, 8.8628594048774914e+02_dp, 1.6902170532998441e+03_dp, &
7084 4.0974181820914717e-04_dp, -1.0577892962329620e+03_dp, 1.2945628573020617e+03_dp, &
7085 -1.2412789684761844e+03_dp, 3.6518353070382403e+02_dp, 2.3309880593651797e+03_dp, &
7086 -7.4457710895261789e+03_dp, 1.4002929494342166e+04_dp, -1.8518696747336475e+04_dp, &
7087 1.6917288236393451e+04_dp, -9.5900986554442443e+03_dp, 2.5323928944806203e+03_dp, &
7088 4.4504521254867541e+03_dp, 1.3448249990557044e-03_dp, -3.4764938517534570e+03_dp, &
7089 4.2546538860367436e+03_dp, -3.7288910130907971e+03_dp, 3.3785610612894226e+02_dp, &
7090 9.0749096864554558e+03_dp, -2.6126306878210624e+04_dp, 4.7085181240615682e+04_dp, &
7091 -6.0517025375512349e+04_dp, 5.4074356432769353e+04_dp, -3.0109150792826324e+04_dp, &
7092 7.8344472467430223e+03_dp, 1.3254579477277694e+04_dp, 5.1532479271565908e-03_dp, &
7093 -1.3351228791461199e+04_dp, 1.6339623735533780e+04_dp, -1.2301930953556473e+04_dp, &
7094 -3.6684681819111252e+03_dp, 4.2559142880279360e+04_dp, -1.0831862123749210e+05_dp/)
7095 REAL(kind=dp), DIMENSION(13, 34, 6), PARAMETER :: &
7096 coefdata = reshape((/c01, c02, c03, c04, c05, c06, c07/), (/13, 34, 6/))
7097
7098 INTEGER :: irange
7099
7100 IF (rc <= 2.0000000000000000e+01_dp) rc = 2.0000000000000000e+01_dp
7101 IF (rc >= 1.3327491760253906e+06_dp) rc = 1.3327491760253906e+06_dp
7102 IF (rc >= 2.0000000000000000e+01_dp .AND. rc <= 3.0823724363668457e+01_dp) THEN
7103 irange = 1
7104 l_b = 2.0000000000000000e+01_dp
7105 u_b = 3.0823724363668457e+01_dp
7106 END IF
7107 IF (rc >= 3.0823724363668457e+01_dp .AND. rc <= 3.1985602006226213e+02_dp) THEN
7108 irange = 2
7109 l_b = 3.0823724363668457e+01_dp
7110 u_b = 3.1985602006226213e+02_dp
7111 END IF
7112 IF (rc >= 3.1985602006226213e+02_dp .AND. rc <= 4.5183964268225072e+03_dp) THEN
7113 irange = 3
7114 l_b = 3.1985602006226213e+02_dp
7115 u_b = 4.5183964268225072e+03_dp
7116 END IF
7117 IF (rc >= 4.5183964268225072e+03_dp .AND. rc <= 7.8644668751788398e+04_dp) THEN
7118 irange = 4
7119 l_b = 4.5183964268225072e+03_dp
7120 u_b = 7.8644668751788398e+04_dp
7121 END IF
7122 IF (rc >= 7.8644668751788398e+04_dp .AND. rc <= 4.6977420089882286e+05_dp) THEN
7123 irange = 5
7124 l_b = 7.8644668751788398e+04_dp
7125 u_b = 4.6977420089882286e+05_dp
7126 END IF
7127 IF (rc >= 4.6977420089882286e+05_dp .AND. rc <= 1.3327491760253906e+06_dp) THEN
7128 irange = 6
7129 l_b = 4.6977420089882286e+05_dp
7130 u_b = 1.3327491760253906e+06_dp
7131 END IF
7132
7133 fit_coef(1:13, 1:34) = coefdata(1:13, 1:34, irange)
7134
7135 END SUBROUTINE get_fit_coef_k17
7136
7137! **************************************************************************************************
7138!> \brief ...
7139!> \param Rc ...
7140!> \param L_b ...
7141!> \param U_b ...
7142!> \param fit_coef ...
7143! **************************************************************************************************
7144 SUBROUTINE get_fit_coef_k18(Rc, L_b, U_b, fit_coef)
7145 REAL(kind=dp) :: rc, l_b, u_b
7146 REAL(kind=dp), DIMENSION(13, 36) :: fit_coef
7147
7148 REAL(kind=dp), DIMENSION(340), PARAMETER :: c06 = (/-4.2209902072425757e+02_dp, &
7149 1.1367036683435998e+02_dp, 2.4004100563047302e+02_dp, 2.6442809338541683e-05_dp, &
7150 -9.2920139462935452e+01_dp, 1.1857226657184384e+02_dp, -1.3712334751086243e+02_dp, &
7151 8.9614212066663356e+01_dp, 1.2954531399327851e+02_dp, -6.1204117014894439e+02_dp, &
7152 1.3038237052684744e+03_dp, -1.8532736683780777e+03_dp, 1.7733881888322414e+03_dp, &
7153 -1.0349286327234870e+03_dp, 2.7775933648182263e+02_dp, 5.1299854071485697e+02_dp, &
7154 6.7687074050697422e-05_dp, -2.3807455011160289e+02_dp, 3.0379853851555936e+02_dp, &
7155 -3.3999113773695723e+02_dp, 2.0053502227186451e+02_dp, 3.8602011516394481e+02_dp, &
7156 -1.6462886216839220e+03_dp, 3.4237001138452265e+03_dp, -4.8064857217217213e+03_dp, &
7157 4.5625744054824872e+03_dp, -2.6475930973206077e+03_dp, 7.0759015679511151e+02_dp, &
7158 1.1565450996747870e+03_dp, 1.8361085330211829e-04_dp, -6.4662037045130342e+02_dp, &
7159 8.2512803376189629e+02_dp, -8.8496728903978203e+02_dp, 4.4602324539501097e+02_dp, &
7160 1.2288632621141262e+03_dp, -4.7252668279211357e+03_dp, 9.5564883176047988e+03_dp, &
7161 -1.3215309577113516e+04_dp, 1.2419557109971771e+04_dp, -7.1549681548517901e+03_dp, &
7162 1.9018665194857740e+03_dp, 2.7885119751535453e+03_dp, 5.3798578681814367e-04_dp, &
7163 -1.8979726842190619e+03_dp, 2.4219260114581057e+03_dp, -2.4509451315420783e+03_dp, &
7164 9.3302092536482598e+02_dp, 4.2792080086216884e+03_dp, -1.4781335864606486e+04_dp, &
7165 2.8910881818664639e+04_dp, -3.9221458601856801e+04_dp, 3.6377452574481533e+04_dp, &
7166 -2.0754440568654329e+04_dp, 5.4759314189430270e+03_dp, 7.3423343437531503e+03_dp, &
7167 1.7523478403478510e-03_dp, -6.1987624682842961e+03_dp, 7.9099609072407902e+03_dp, &
7168 -7.3469720853921908e+03_dp, 1.3590388991922907e+03_dp, 1.6895282676913615e+04_dp, &
7169 -5.2015173713595323e+04_dp, 9.7530203120827064e+04_dp, -1.2891927678944364e+05_dp, &
7170 1.1735562908487483e+05_dp, -6.6007676931770868e+04_dp, 1.7222837048140107e+04_dp, &
7171 2.1867340894031433e+04_dp, 6.6610965479193367e-03_dp, -2.3670256838196394e+04_dp, &
7172 3.0204363587247230e+04_dp, -2.4289431365742868e+04_dp, -4.4793087397477648e+03_dp, &
7173 8.0399556072960419e+04_dp, -2.1698457697832960e+05_dp, 3.8372266226749582e+05_dp, &
7174 -4.8749358651122235e+05_dp, 4.3044669176928164e+05_dp, -2.3628550514088655e+05_dp, &
7175 6.0447814633299982e+04_dp, 7.8888258338212341e+04_dp, 3.2559081234041241e-02_dp, &
7176 -1.1677721904936734e+05_dp, 1.4901143678641456e+05_dp, -8.7205284381827863e+04_dp, &
7177 -1.0593928818725457e+05_dp, 5.2180063081218430e+05_dp, -1.1828235545327321e+06_dp, &
7178 1.8923972467739715e+06_dp, -2.2220643842051183e+06_dp, 1.8334827911676331e+06_dp, &
7179 -9.4845074792786303e+05_dp, 2.3035540725488932e+05_dp, 4.1277266013211373e+05_dp, &
7180 2.6625034408035703e-01_dp, -9.8168542137299629e+05_dp, 1.2526189136341743e+06_dp, &
7181 -1.6524351056354993e+04_dp, -2.7322480720883626e+06_dp, 6.3977913782139570e+06_dp, &
7182 -9.5302632217170522e+06_dp, 9.9340828649581820e+06_dp, -6.5415577947778786e+06_dp, &
7183 1.6425385275771332e+06_dp, 9.1574731282429548e+05_dp, -6.1255945160736761e+05_dp, &
7184 2.0360025664444423e+00_dp, 2.5713335383125262e-08_dp, -9.0033864102026753e-02_dp, &
7185 1.1488977052985240e-01_dp, -1.5339668231823797e-01_dp, 1.3943382095570961e-01_dp, &
7186 2.3403104409030068e-02_dp, -4.3679119831297458e-01_dp, 1.0806320687760871e+00_dp, &
7187 -1.6418760026934989e+00_dp, 1.6349608211334608e+00_dp, -9.8011211272180954e-01_dp, &
7188 2.6815864103304071e-01_dp, 2.6117528386499291e+00_dp, 4.8175407514969741e-08_dp, &
7189 -1.6873111063388158e-01_dp, 2.1531310300017245e-01_dp, -2.8376201294612502e-01_dp, &
7190 2.5179501088112777e-01_dp, 6.2880810206506932e-02_dp, -8.4876332472530991e-01_dp, &
7191 2.0624430496348749e+00_dp, -3.1112002808161887e+00_dp, 3.0855832382580046e+00_dp, &
7192 -1.8448645916831607e+00_dp, 5.0382953298570421e-01_dp, 3.9873063048304820e+00_dp, &
7193 1.0846158670211902e-07_dp, -3.7998757133131345e-01_dp, 4.8489142926013917e-01_dp, &
7194 -6.3086126110902885e-01_dp, 5.4610493299372398e-01_dp, 1.8329858289416012e-01_dp, &
7195 -1.9772478991069387e+00_dp, 4.7253027814453725e+00_dp, -7.0796876549675778e+00_dp, &
7196 6.9941004208554265e+00_dp, -4.1711166061111760e+00_dp, 1.1370891467073994e+00_dp, &
7197 6.7001043314976272e+00_dp, 2.4667185517548435e-07_dp, -8.6443414945752739e-01_dp, &
7198 1.1030796184932681e+00_dp, -1.4180463633457838e+00_dp, 1.1985397640306839e+00_dp, &
7199 5.0364134607866440e-01_dp, -4.6338532066208620e+00_dp, 1.0914232611086101e+01_dp, &
7200 -1.6252611187619642e+01_dp, 1.5999475073408924e+01_dp, -9.5194949221022522e+00_dp, &
7201 2.5908465591882055e+00_dp, 1.1851418633552694e+01_dp, 5.5547702724000489e-07_dp, &
7202 -1.9471816828933401e+00_dp, 2.4847416347076288e+00_dp, -3.1545013399132991e+00_dp, &
7203 2.5980360723724814e+00_dp, 1.3345505038407754e+00_dp, -1.0749199950188043e+01_dp, &
7204 2.4957927423377040e+01_dp, -3.6937125272225181e+01_dp, 3.6230950319225336e+01_dp, &
7205 -2.1505397766830995e+01_dp, 5.8430179763106009e+00_dp, 2.1671718972763752e+01_dp, &
7206 1.2490628723124012e-06_dp, -4.3799641771907298e+00_dp, 5.5891415983185286e+00_dp, &
7207 -6.9981143458634438e+00_dp, 5.5940275426254855e+00_dp, 3.4904237077772149e+00_dp, &
7208 -2.4933029773709567e+01_dp, 5.7033160660992166e+01_dp, -8.3854458025895269e+01_dp, &
7209 8.1931375876771739e+01_dp, -4.8504788239908393e+01_dp, 1.3154247835903428e+01_dp, &
7210 4.0763243915536528e+01_dp, 2.8331268185654416e-06_dp, -9.9385399289344427e+00_dp, &
7211 1.2682267211216036e+01_dp, -1.5631827819043766e+01_dp, 1.2059187258319630e+01_dp, &
7212 9.1510546139662399e+00_dp, -5.8458649242606107e+01_dp, 1.3161495724281883e+02_dp, &
7213 -1.9212585630556700e+02_dp, 1.8691186329645851e+02_dp, -1.1033319945556754e+02_dp, &
7214 2.9859331950975829e+01_dp, 7.8908010778509308e+01_dp, 6.5386761281513677e-06_dp, &
7215 -2.2948202615132029e+01_dp, 2.9283481126861815e+01_dp, -3.5445800826485623e+01_dp, &
7216 2.6183727841564750e+01_dp, 2.4329279868365493e+01_dp, -1.3982752010927283e+02_dp, &
7217 3.0947642362503592e+02_dp, -4.4818522192425121e+02_dp, 4.3391508597732701e+02_dp, &
7218 -2.5529342544325627e+02_dp, 6.8925136413432071e+01_dp, 1.5767917857157383e+02_dp, &
7219 1.5478496535958464e-05_dp, -5.4354086424776057e+01_dp, 6.9359488995831569e+01_dp, &
7220 -8.2189060026724775e+01_dp, 5.7491106121444517e+01_dp, 6.6265828876160398e+01_dp, &
7221 -3.4412046626243608e+02_dp, 7.4760950475972925e+02_dp, -1.0730888794956911e+03_dp, &
7222 1.0331995461163826e+03_dp, -6.0557217116128845e+02_dp, 1.6304262960925644e+02_dp, &
7223 3.2678336205766686e+02_dp, 3.7894877275203884e-05_dp, -1.3316371456228885e+02_dp, &
7224 1.6992573781710709e+02_dp, -1.9629816380606513e+02_dp, 1.2788120327692410e+02_dp, &
7225 1.8683976508725286e+02_dp, -8.7919648882012120e+02_dp, 1.8714058585605610e+03_dp, &
7226 -2.6590278379766187e+03_dp, 2.5438261029985429e+03_dp, -1.4843168619653752e+03_dp, &
7227 3.9832397479258418e+02_dp, 7.0684637540150163e+02_dp, 9.6867269795911109e-05_dp, &
7228 -3.4069427410525071e+02_dp, 4.3474797507118456e+02_dp, -4.8678867720092836e+02_dp, &
7229 2.8761368885618197e+02_dp, 5.5179921872736327e+02_dp, -2.3562414577310824e+03_dp, &
7230 4.9020823980878231e+03_dp, -6.8836792573968105e+03_dp, 6.5355383068211950e+03_dp, &
7231 -3.7929919281300995e+03_dp, 1.0138137129943455e+03_dp, 1.6094255057648668e+03_dp, &
7232 2.6161705713683781e-04_dp, -9.2119908813007453e+02_dp, 1.1755078805571836e+03_dp, &
7233 -1.2652473969070488e+03_dp, 6.4695642698297149e+02_dp, 1.7319053641298342e+03_dp, &
7234 -6.7103673916556281e+03_dp, 1.3602270272451808e+04_dp, -1.8834904642552094e+04_dp, &
7235 1.7716918035172537e+04_dp, -1.0213676976914645e+04_dp, 2.7162972544969493e+03_dp, &
7236 3.9033474711962631e+03_dp, 7.5844834317149079e-04_dp, -2.6748123810493139e+03_dp, &
7237 3.4132212597088978e+03_dp, -3.4872403633089002e+03_dp, 1.3999647101781925e+03_dp, &
7238 5.8893036531862190e+03_dp, -2.0663289718638232e+04_dp, 4.0631504446060877e+04_dp, &
7239 -5.5298982600424795e+04_dp, 5.1405733453152017e+04_dp, -2.9378611655370314e+04_dp, &
7240 7.7615915923671664e+03_dp, 1.0259227531224709e+04_dp, 2.4144621632299105e-03_dp, &
7241 -8.5342291700014030e+03_dp, 1.0890155897749342e+04_dp, -1.0343731878628403e+04_dp, &
7242 2.4584152986258155e+03_dp, 2.2303664961658811e+04_dp, -7.0523457767913642e+04_dp, &
7243 1.3364816601587992e+05_dp, -1.7787359000140551e+05_dp, 1.6273980884683644e+05_dp, &
7244 -9.1893860960891921e+04_dp, 2.4051527420140064e+04_dp, 3.0018788916766829e+04_dp, &
7245 8.7440843910547086e-03_dp, -3.1015062922638364e+04_dp, 3.9576778234732534e+04_dp, &
7246 -3.3617796506662242e+04_dp, -1.2664803729988839e+03_dp, 9.8208694230122404e+04_dp, &
7247 -2.7712338104205776e+05_dp, 5.0070250342457759e+05_dp, -6.4583598645926779e+05_dp, &
7248 5.7713900782644108e+05_dp, -3.1991818541374581e+05_dp, 8.2502449933280441e+04_dp, &
7249 1.0243629251738689e+05_dp, 3.8315196281821000e-02_dp, -1.3673145392947458e+05_dp, &
7250 1.7447480748440127e+05_dp, -1.2128767346456964e+05_dp, -7.4731473660592732e+04_dp, &
7251 5.4209346541303862e+05_dp, -1.3366186725741250e+06_dp, 2.2534054543823483e+06_dp, &
7252 -2.7624422501378348e+06_dp, 2.3684409505399591e+06_dp, -1.2681911269942287e+06_dp, &
7253 3.1767018404991477e+05_dp, 4.4811404216243100e+05_dp, 2.3079117700841423e-01_dp, &
7254 -8.3433208879112056e+05_dp, 1.0646234386996420e+06_dp, -4.3900763949985575e+05_dp, &
7255 -1.2299926310603216e+06_dp, 4.3873424472257951e+06_dp, -8.9070735680865049e+06_dp, &
7256 1.3145595299621349e+07_dp, -1.4320366639666997e+07_dp, 1.0965291282036081e+07_dp, &
7257 -5.2620189925113497e+06_dp, 1.1859559777996268e+06_dp, 3.2872930098168775e+06_dp, &
7258 2.7482124839381648e+00_dp, -1.0319720350104814e+07_dp, 1.3167559540232308e+07_dp, &
7259 5.3141307787938649e+06_dp, -4.2806172437992170e+07_dp, 7.7700737994820118e+07_dp, &
7260 -7.6880123309893116e+07_dp, 1.7343391064140473e+07_dp, 7.7860350009209916e+07_dp, &
7261 -1.3364460712376091e+08_dp, 1.0093529309506236e+08_dp, -3.1433866759847842e+07_dp/)
7262 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.8104907156518354e-01_dp, &
7263 -6.1817005353024562e-02_dp, -1.5365071642354823e-02_dp, 9.1489217818269322e-03_dp, &
7264 4.9967787273344161e-03_dp, -3.5367914652488903e-03_dp, -2.2075007488833458e-03_dp, &
7265 1.2029276142200300e-03_dp, 2.8328851353903797e-03_dp, -3.4438772536686739e-03_dp, &
7266 1.4299272644572190e-03_dp, -1.0931267316481758e-04_dp, -5.5894388646958038e-05_dp, &
7267 5.6894444769190411e-01_dp, -2.1274164519782207e-01_dp, -4.2890815190342713e-02_dp, &
7268 3.5035480705044961e-02_dp, 1.3874240699660001e-02_dp, -1.4090755641772217e-02_dp, &
7269 -6.0016188181493280e-03_dp, 5.1060704779823706e-03_dp, 9.3683628268561563e-03_dp, &
7270 -1.3681594752909918e-02_dp, 7.1674311571180219e-03_dp, -1.4730236769969446e-03_dp, &
7271 1.7117880701502458e-05_dp, 1.0389637522125577e+00_dp, -4.5428176175934221e-01_dp, &
7272 -5.6266159555088222e-02_dp, 8.5555486145475090e-02_dp, 1.7149370136037647e-02_dp, &
7273 -3.5874852805917547e-02_dp, -6.6722317760714526e-03_dp, 1.3972200727155170e-02_dp, &
7274 1.7715212621408963e-02_dp, -3.4443652948503337e-02_dp, 2.2673023691549964e-02_dp, &
7275 -6.9481802096620863e-03_dp, 7.9021807437504202e-04_dp, 1.6623569960343112e+00_dp, &
7276 -8.7799922392501561e-01_dp, -2.8938611876543164e-02_dp, 1.8305597014563521e-01_dp, &
7277 2.6823924227795206e-03_dp, -7.8638677468377882e-02_dp, 2.5052055477927018e-03_dp, &
7278 3.2539080971677445e-02_dp, 2.5797503204750667e-02_dp, -7.3577309739427957e-02_dp, &
7279 5.7896954096048170e-02_dp, -2.1479855679151314e-02_dp, 3.2218345849532076e-03_dp, &
7280 2.5381059435843234e+00_dp, -1.6305859324151268e+00_dp, 9.9940175243888832e-02_dp, &
7281 3.5719858476252214e-01_dp, -5.7992644536333599e-02_dp, -1.5378842508458723e-01_dp, &
7282 3.6992487976869874e-02_dp, 6.6983136752400169e-02_dp, 2.4029970044661862e-02_dp, &
7283 -1.3686421359551432e-01_dp, 1.2628872883212300e-01_dp, -5.3004210025772776e-02_dp, &
7284 9.0124008618107931e-03_dp, 3.8112298597695000e+00_dp, -2.9567738386099500e+00_dp, &
7285 4.6159700647669799e-01_dp, 6.4257759684283600e-01_dp, -2.2510024931676006e-01_dp, &
7286 -2.6991449769951259e-01_dp, 1.2839677612061992e-01_dp, 1.2324005868213329e-01_dp, &
7287 -1.3633470926998539e-02_dp, -2.1853429296999061e-01_dp, 2.4123664332249928e-01_dp, &
7288 -1.1237127932737824e-01_dp, 2.0806220268101396e-02_dp, 5.7008390024972444e+00_dp, &
7289 -5.2719032477064589e+00_dp, 1.3286136063792067e+00_dp, 1.0639787628820851e+00_dp, &
7290 -6.1724692798358538e-01_dp, -4.1836007817403786e-01_dp, 3.3558355186522965e-01_dp, &
7291 2.0049791059094066e-01_dp, -1.4522348760099926e-01_dp, -2.7848113288997439e-01_dp, &
7292 4.0294851159988648e-01_dp, -2.0991973963891600e-01_dp, 4.1918373279036081e-02_dp, &
7293 8.5444952115836337e+00_dp, -9.2870882366649212e+00_dp, 3.2542494456110536e+00_dp, &
7294 1.5891401650173187e+00_dp, -1.4538307368581864e+00_dp, -5.3611578876987864e-01_dp, &
7295 7.5799867206976324e-01_dp, 2.7324277500873972e-01_dp, -4.8297349611741452e-01_dp, &
7296 -1.9621208011655733e-01_dp, 5.6521268371561728e-01_dp, -3.4379015311921068e-01_dp, &
7297 7.4666191775106056e-02_dp, 1.2869608889008939e+01_dp, -1.6227381735998069e+01_dp, &
7298 7.3457273329354766e+00_dp, 2.0007984970256341e+00_dp, -3.1135650279596425e+00_dp, &
7299 -4.2035573694616968e-01_dp, 1.5423312586717872e+00_dp, 2.4895859945054985e-01_dp, &
7300 -1.2143416136828173e+00_dp, 3.0888829641492249e-01_dp, 5.6592145994268328e-01_dp, &
7301 -4.7133862783050268e-01_dp, 1.1553402263192626e-01_dp, 1.9510047195341826e+01_dp, &
7302 -2.8215377333929258e+01_dp, 1.5800988109124468e+01_dp, 1.5753381956046189e+00_dp, &
7303 -6.1888970404653927e+00_dp, 4.5340289216053564e-01_dp, 2.8529274310442476e+00_dp, &
7304 -1.1985631183237680e-01_dp, -2.5919936322336810e+00_dp, 1.7904459124895560e+00_dp, &
7305 3.3185572647898222e-03_dp, -4.5120198605812339e-01_dp, 1.4430781237161322e-01_dp, &
7306 2.9799686613683338e+01_dp, -4.8951476312595261e+01_dp, 3.2965439950410698e+01_dp, &
7307 -1.6925499201780276e+00_dp, -1.1444787017566560e+01_dp, 3.2893773175079954e+00_dp, &
7308 4.7232798353674390e+00_dp, -1.3946455243162874e+00_dp, -4.8138784821254603e+00_dp, &
7309 5.1806730186148213e+00_dp, -1.9484855421973464e+00_dp, 5.7565415788330868e-02_dp, &
7310 1.0328584787941356e-01_dp, 4.5900987586785305e+01_dp, -8.4931873768978448e+01_dp, &
7311 6.7417416166242447e+01_dp, -1.2917213048507392e+01_dp, -1.9369123838067868e+01_dp, &
7312 1.0603449957874252e+01_dp, 6.5793074414015802e+00_dp, -4.6781732888897354e+00_dp, &
7313 -7.6130671417336284e+00_dp, 1.1733674325796130e+01_dp, -6.7380063796773628e+00_dp, &
7314 1.7431827284203307e+00_dp, -1.3742674245542177e-01_dp, 7.1384655908206980e+01_dp, &
7315 -1.4766110646876876e+02_dp, 1.3608901365331167e+02_dp, -4.4554212981906190e+01_dp, &
7316 -2.8355600002395651e+01_dp, 2.7091425069539174e+01_dp, 5.9567085220792704e+00_dp, &
7317 -1.1750053684710588e+01_dp, -9.1674840428949729e+00_dp, 2.2293423124322853e+01_dp, &
7318 -1.6371253102977199e+01_dp, 5.7669097930761808e+00_dp, -8.2353886063174842e-01_dp, &
7319 1.1233183308389430e+02_dp, -2.5780369487207054e+02_dp, 2.7242671117115714e+02_dp, &
7320 -1.2599753109481574e+02_dp, -2.8803649715248678e+01_dp, 5.9808941846251201e+01_dp, &
7321 -4.4333363973394899e+00_dp, -2.4294323397425206e+01_dp, -3.7425366988330224e+00_dp, &
7322 3.4394335271359864e+01_dp, -3.1907344026729994e+01_dp, 1.3411678831415276e+01_dp, &
7323 -2.2957107908605567e+00_dp, 1.7976027905757553e+02_dp, -4.5369809560786518e+02_dp, &
7324 5.4292666408037110e+02_dp, -3.2469460257856400e+02_dp, 1.3642493310471760e+01_dp, &
7325 1.1322144991645266e+02_dp, -4.1415851597078642e+01_dp, -3.9344925288346268e+01_dp, &
7326 2.0505996019668014e+01_dp, 3.5640047716368947e+01_dp, -4.8066784685431486e+01_dp, &
7327 2.3931298245668948e+01_dp, -4.6302204728291798e+00_dp, 2.9648400099998616e+02_dp, &
7328 -8.1318193308728723e+02_dp, 1.0852146967185377e+03_dp, -7.9253616514248370e+02_dp, &
7329 1.9916533921620839e+02_dp, 1.6646952551534545e+02_dp, -1.3078063936770988e+02_dp, &
7330 -3.7561085470724848e+01_dp, 7.2748490941620716e+01_dp, 3.1770585593328282e+00_dp, &
7331 -4.8379526363826820e+01_dp, 3.1452688247501925e+01_dp, -6.9488664317550564e+00_dp, &
7332 5.2490296655177804e+02_dp, -1.5381034281001564e+03_dp, 2.2397394630871509e+03_dp, &
7333 -1.8980625603236201e+03_dp, 7.8793326721990013e+02_dp, 1.2072768890951619e+02_dp, &
7334 -2.8333018924346351e+02_dp, 1.5827025468773952e+01_dp, 1.4107764823365741e+02_dp, &
7335 -7.1508335180567997e+01_dp, -2.2202983634603370e+01_dp, 3.1298832279951391e+01_dp, &
7336 -8.4329929352037851e+00_dp, 1.1671482535247758e+03_dp, -3.5701355790217854e+03_dp, &
7337 5.5029528129983019e+03_dp, -5.1174808457482495e+03_dp, 2.6785762412568697e+03_dp, &
7338 -2.8427948185688939e+02_dp, -5.3279071516229101e+02_dp, 1.4157049520139412e+02_dp, &
7339 2.6643897464789472e+02_dp, -2.1826868704262932e+02_dp, 2.6638738596435580e+01_dp, &
7340 3.3936069509129055e+01_dp, -1.2188642274117770e+01_dp, 1.4652812785816598e+00_dp, &
7341 -5.1216317098725084e-01_dp, -1.2107111132320940e-01_dp, 7.8124136614970738e-02_dp, &
7342 3.9373299417261073e-02_dp, -3.0559387326754693e-02_dp, -1.7326558360561344e-02_dp, &
7343 1.0589249771069641e-02_dp, 2.3291147261995698e-02_dp, -2.9747108410639177e-02_dp, &
7344 1.3279817871973330e-02_dp, -1.5925954187249202e-03_dp, -3.3358537008160058e-04_dp, &
7345 1.6747706949071501e+00_dp, -7.3619993787034099e-01_dp, -9.2524849392815814e-02_dp, &
7346 1.4009317461191056e-01_dp, 2.8993455579017200e-02_dp, -5.8947753721227604e-02_dp, &
7347 -1.1544746505501786e-02_dp, 2.2888806638087296e-02_dp, 2.9752756422560003e-02_dp, &
7348 -5.6904268755167908e-02_dp, 3.7075509291121668e-02_dp, -1.1205940796047410e-02_dp, &
7349 1.2414097457956487e-03_dp, 2.1320569710835793e+00_dp, -1.2554495472557166e+00_dp, &
7350 2.0663593584744656e-03_dp, 2.7880698885400201e-01_dp, -1.0341136500847944e-02_dp, &
7351 -1.2182591843005953e-01_dp, 1.0375885305318683e-02_dp, 5.1177746698586865e-02_dp, &
7352 3.5915727679690139e-02_dp, -1.1457196488446013e-01_dp, 9.3552441080291246e-02_dp, &
7353 -3.5818521010418942e-02_dp, 5.5618136531600925e-03_dp, 2.9198954720291050e+00_dp, &
7354 -2.2293473658819969e+00_dp, 2.5486825622381931e-01_dp, 5.2106454908534805e-01_dp, &
7355 -1.2338568730458786e-01_dp, -2.2813706694695601e-01_dp, 7.2867460607848183e-02_dp, &
7356 1.0156141288573106e-01_dp, 2.2927036394505256e-02_dp, -2.0292387455972360e-01_dp, &
7357 1.9739334607294629e-01_dp, -8.5711263409840824e-02_dp, 1.5008093390084035e-02_dp, &
7358 4.1809650084217482e+00_dp, -3.9498692026171232e+00_dp, 8.5920971095646503e-01_dp, &
7359 8.9595233084619708e-01_dp, -4.0043826925842790e-01_dp, -3.7963806599838434e-01_dp, &
7360 2.2335390257611457e-01_dp, 1.7832326489249364e-01_dp, -5.3406140763388878e-02_dp, &
7361 -3.0094516220647582e-01_dp, 3.5944195478704649e-01_dp, -1.7390038059962756e-01_dp, &
7362 3.3089261580483392e-02_dp, 6.1472397966948646e+00_dp, -6.9285464394150278e+00_dp, &
7363 2.2070567132326251e+00_dp, 1.4063446953296506e+00_dp, -1.0126899665970956e+00_dp, &
7364 -5.4584355985905086e-01_dp, 5.4616991585738983e-01_dp, 2.7226973838426027e-01_dp, &
7365 -2.8505286023998866e-01_dp, -3.2863288737826130e-01_dp, 5.6233816955748084e-01_dp, &
7366 -3.0862618834553968e-01_dp, 6.3566187976697816e-02_dp, 9.1900790489272914e+00_dp, &
7367 -1.2052670995254264e+01_dp, 5.0808380779589832e+00_dp, 1.9509309699776836e+00_dp, &
7368 -2.2667200167260235e+00_dp, -6.0497438189785557e-01_dp, 1.1769408070141436e+00_dp, &
7369 3.3139818277041716e-01_dp, -8.4084448230590603e-01_dp, -7.5893210001079320e-02_dp, &
7370 7.0499033302583869e-01_dp, -4.7230545858400730e-01_dp, 1.0717094028717249e-01_dp, &
7371 1.3903288184276960e+01_dp, -2.0861113079586804e+01_dp, 1.1028873449856791e+01_dp, &
7372 2.1247273818735861e+00_dp, -4.6741212415573994e+00_dp, -2.1321596221060898e-01_dp, &
7373 2.3014636907442734e+00_dp, 1.9447225381512184e-01_dp, -1.9861181112351922e+00_dp, &
7374 9.1330548244123566e-01_dp, 4.9319113247404922e-01_dp, -5.7394999803708169e-01_dp, &
7375 1.5315431429978804e-01_dp, 2.1241141277279649e+01_dp, -3.6033094867817468e+01_dp, &
7376 2.3102278552533658e+01_dp, 7.3272373739498387e-01_dp, -8.9990510035402540e+00_dp, &
7377 1.4661536441210716e+00_dp, 4.0908947410985483e+00_dp, -5.4327633403126974e-01_dp, &
7378 -4.0397081958320689e+00_dp, 3.4883517046190322e+00_dp, -7.4279189342756524e-01_dp, &
7379 -3.5883086711361650e-01_dp, 1.6165467197230585e-01_dp, 3.2750700659675516e+01_dp, &
7380 -6.2260617506502861e+01_dp, 4.7306599319039115e+01_dp, -5.3630667640010694e+00_dp, &
7381 -1.6135965596523331e+01_dp, 6.2850804710731145e+00_dp, 6.4437698302620037e+00_dp, &
7382 -2.7654299843452557e+00_dp, -7.1374063007838009e+00_dp, 8.9855168947369108e+00_dp, &
7383 -4.2936389770830674e+00_dp, 7.3708343499722073e-01_dp, 3.2368466859189433e-02_dp, &
7384 5.0971587949712941e+01_dp, -1.0781940838147709e+02_dp, 9.5470719828705825e+01_dp, &
7385 -2.3933268645557146e+01_dp, -2.6335385696434315e+01_dp, 1.8016780861843714e+01_dp, &
7386 8.2132156983356950e+00_dp, -8.1534450671776550e+00_dp, -1.0525394951164396e+01_dp, &
7387 1.9008340533796282e+01_dp, -1.2282071103729981e+01_dp, 3.7805441921538856e+00_dp, &
7388 -4.4383200779161114e-01_dp, 8.0151692226233365e+01_dp, -1.8743506352274528e+02_dp, &
7389 1.9092478332081694e+02_dp, -7.3582255682872955e+01_dp, -3.6322792299277531e+01_dp, &
7390 4.3581813355095242e+01_dp, 5.1785945753389013e+00_dp, -1.9329067501593595e+01_dp, &
7391 -1.0809469621978822e+01_dp, 3.4142519766130000e+01_dp, -2.7441723274242250e+01_dp, &
7392 1.0488104966880156e+01_dp, -1.6444555466331974e+00_dp, 1.2763045722861104e+02_dp, &
7393 -3.2766564765272250e+02_dp, 3.7973217630740623e+02_dp, -1.9781100978811261e+02_dp, &
7394 -3.0157621574998899e+01_dp, 9.3237621383503154e+01_dp, -1.4664555123007290e+01_dp, &
7395 -3.8610014643549675e+01_dp, 1.9561581150219733e+00_dp, 4.9178714877907694e+01_dp/)
7396 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/-5.0683586321199940e+01_dp, &
7397 2.2685614985361322e+01_dp, -4.0911306259362732e+00_dp, 2.0692715444769155e+02_dp, &
7398 -5.7784708851700361e+02_dp, 7.5313473849594516e+02_dp, -4.9591356082585395e+02_dp, &
7399 4.6934746915158954e+01_dp, 1.7278593891248715e+02_dp, -7.9461883488471031e+01_dp, &
7400 -6.0640581635323905e+01_dp, 4.9709605032605261e+01_dp, 3.9785417005473363e+01_dp, &
7401 -7.0707070950857386e+01_dp, 3.8301537914504102e+01_dp, -7.8036753533627845e+00_dp, &
7402 3.4643294122869480e+02_dp, -1.0373289229669426e+03_dp, 1.4964894908260794e+03_dp, &
7403 -1.1883576064664164e+03_dp, 3.5395000506872071e+02_dp, 2.4438341252020561e+02_dp, &
7404 -2.3525196154593584e+02_dp, -4.7569852552505999e+01_dp, 1.5264487252042383e+02_dp, &
7405 -4.7249655989039340e+01_dp, -4.6426435042560392e+01_dp, 4.1614986793760508e+01_dp, &
7406 -1.0251258037382264e+01_dp, 6.2235104125450675e+02_dp, -1.9530000742095463e+03_dp, &
7407 3.0381848576161515e+03_dp, -2.7721007214385299e+03_dp, 1.2886472933015646e+03_dp, &
7408 1.1997495108070251e+02_dp, -4.8923220063164257e+02_dp, 8.9320317305675530e+01_dp, &
7409 2.5417223540252016e+02_dp, -2.1855818229530024e+02_dp, 5.3225449020928423e+01_dp, &
7410 1.4035211359660455e+01_dp, -7.4385089727473837e+00_dp, 1.3392562526989720e+03_dp, &
7411 -4.2661156874133503e+03_dp, 6.8704505045145133e+03_dp, -6.7486562942964165e+03_dp, &
7412 3.8557980607995291e+03_dp, -6.4041197681422841e+02_dp, -7.2028812629191964e+02_dp, &
7413 3.4296722416927707e+02_dp, 2.9920668043243813e+02_dp, -3.7866211734835207e+02_dp, &
7414 1.4679850489782487e+02_dp, -8.2562501236068311e+00_dp, -6.1258993537203876e+00_dp, &
7415 5.0065694781245784e+03_dp, -1.5735707066352348e+04_dp, 2.5115152335838251e+04_dp, &
7416 -2.4641268459826806e+04_dp, 1.4432198334563878e+04_dp, -3.1899549141849984e+03_dp, &
7417 -1.6897674776327710e+03_dp, 7.8118394579369010e+02_dp, 9.8213799629630739e+02_dp, &
7418 -1.0349003003258824e+03_dp, 2.8781829158913928e+02_dp, 5.6520242044190624e+01_dp, &
7419 -3.5018492673502557e+01_dp, 2.1672646531042281e-01_dp, -4.0280327089000083e-02_dp, &
7420 -1.4141841987473180e-02_dp, 4.7576924044397707e-03_dp, 4.2680527641714202e-03_dp, &
7421 -1.7121426116300659e-03_dp, -1.8727973098150161e-03_dp, 5.2727512023623743e-04_dp, &
7422 1.7921888843793570e-03_dp, -1.5480544238380691e-03_dp, 2.0854567230273012e-04_dp, &
7423 2.5776529992692170e-04_dp, -9.6383744843509111e-05_dp, 6.9533459997442570e-01_dp, &
7424 -1.4709564320905877e-01_dp, -4.6296062125088105e-02_dp, 2.0685418524643968e-02_dp, &
7425 1.4532396018071178e-02_dp, -7.8206235021459156e-03_dp, -6.4330680110342292e-03_dp, &
7426 2.5911543805967269e-03_dp, 6.8719471260085367e-03_dp, -7.0817523244719764e-03_dp, &
7427 1.9939578385323588e-03_dp, 4.5553991899127580e-04_dp, -2.7486672885741699e-04_dp, &
7428 1.3220348620246702e+00_dp, -3.4559558249226729e-01_dp, -8.9054370747977230e-02_dp, &
7429 5.9965845713972753e-02_dp, 2.9540216889318294e-02_dp, -2.3945083153648589e-02_dp, &
7430 -1.3172332990522255e-02_dp, 8.5295161742936637e-03_dp, 1.6992003498685241e-02_dp, &
7431 -2.1830534111603173e-02_dp, 9.4603169609586910e-03_dp, -9.0624437091804298e-04_dp, &
7432 -3.1639345757305219e-04_dp, 2.2408348572564285e+00_dp, -7.4493621182222391e-01_dp, &
7433 -1.4437935708506164e-01_dp, 1.5345216731463060e-01_dp, 4.9981931944418634e-02_dp, &
7434 -6.4068353634840702e-02_dp, -2.2064095582909744e-02_dp, 2.4136625260774338e-02_dp, &
7435 3.7163716242542298e-02_dp, -5.8961636814152951e-02_dp, 3.2540613635375810e-02_dp, &
7436 -7.3389754359831682e-03_dp, 2.7235853348761487e-04_dp, 3.6772058442244018e+00_dp, &
7437 -1.5479451960257449e+00_dp, -1.9841574174749130e-01_dp, 3.6154130846694421e-01_dp, &
7438 6.8141128228278253e-02_dp, -1.5626923127364656e-01_dp, -2.8071652682116390e-02_dp, &
7439 6.1659614693382665e-02_dp, 7.3720675498160068e-02_dp, -1.4480983948301773e-01_dp, &
7440 9.4136312025964453e-02_dp, -2.8018590746203921e-02_dp, 2.9795911304120759e-03_dp, &
7441 6.0051316400388179e+00_dp, -3.1459525542112772e+00_dp, -1.9087960860761674e-01_dp, &
7442 8.0233225074828274e-01_dp, 5.0436194677495369e-02_dp, -3.5562444186561837e-01_dp, &
7443 -1.0808342335055487e-02_dp, 1.4631431396534988e-01_dp, 1.3021643058978571e-01_dp, &
7444 -3.2912594390655925e-01_dp, 2.4429333403753731e-01_dp, -8.5093523653718778e-02_dp, &
7445 1.1740285611601968e-02_dp, 9.8661407780096138e+00_dp, -6.3079683609443906e+00_dp, &
7446 6.4668417524656907e-02_dp, 1.7019207709152095e+00_dp, -1.0864690051990379e-01_dp, &
7447 -7.6490539642302580e-01_dp, 9.2463045587798220e-02_dp, 3.2754329325028214e-01_dp, &
7448 1.9036075703407310e-01_dp, -6.9593654311936159e-01_dp, 5.8500589456574437e-01_dp, &
7449 -2.2833809379472947e-01_dp, 3.6085090534356240e-02_dp, 1.6387345232640328e+01_dp, &
7450 -1.2566581816514574e+01_dp, 1.0833488063785175e+00_dp, 3.4780856044371822e+00_dp, &
7451 -7.0298676205420429e-01_dp, -1.5603437365117936e+00_dp, 4.5358830961481994e-01_dp, &
7452 6.9487899892425453e-01_dp, 1.6306574054540915e-01_dp, -1.3565280066889112e+00_dp, &
7453 1.3044257170639009e+00_dp, -5.6107520030086444e-01_dp, 9.7339437137894266e-02_dp, &
7454 2.7590362528083165e+01_dp, -2.5020953292207636e+01_dp, 4.2199543975733604e+00_dp, &
7455 6.8574653755300341e+00_dp, -2.5008013151358859e+00_dp, -2.9959805517111318e+00_dp, &
7456 1.5109398081007834e+00_dp, 1.3866679059684508e+00_dp, -2.7320241923625971e-01_dp, &
7457 -2.3552778799554877e+00_dp, 2.6919927683133067e+00_dp, -1.2750517732227757e+00_dp, &
7458 2.3894973963551455e-01_dp, 4.7176080794132197e+01_dp, -5.0043699620567423e+01_dp, &
7459 1.2963098635058795e+01_dp, 1.2956187817919837e+01_dp, -7.4293132600153990e+00_dp, &
7460 -5.2715667610509955e+00_dp, 4.3201347820454323e+00_dp, 2.5318631031919860e+00_dp, &
7461 -2.0681119464958941e+00_dp, -3.2740269844269108e+00_dp, 5.0056055519591984e+00_dp, &
7462 -2.6579602424397017e+00_dp, 5.3739683583410036e-01_dp, 8.2067870773483293e+01_dp, &
7463 -1.0099618717254077e+02_dp, 3.6251613177931354e+01_dp, 2.2955720667473543e+01_dp, &
7464 -2.0162813094031463e+01_dp, -7.8515331287445758e+00_dp, 1.1267353610368847e+01_dp, &
7465 3.8948541826633067e+00_dp, -7.6972479076468243e+00_dp, -1.9606037339217177e+00_dp, &
7466 7.7570215809451124e+00_dp, -4.9132929567084096e+00_dp, 1.0893358659958350e+00_dp, &
7467 1.4552872970382410e+02_dp, -2.0653403368911415e+02_dp, 9.7133525385800795e+01_dp, &
7468 3.5870243090002134e+01_dp, -5.1612920970104334e+01_dp, -6.8814440565183297e+00_dp, &
7469 2.7253921030056905e+01_dp, 3.4513432377643651e+00_dp, -2.2786048871961697e+01_dp, &
7470 8.9085416689751842e+00_dp, 7.2036115050483476e+00_dp, -7.2654992116157242e+00_dp, &
7471 1.8811183601144852e+00_dp, 2.6365252354702568e+02_dp, -4.2974049946773454e+02_dp, &
7472 2.5594897338735430e+02_dp, 3.8712804569966629e+01_dp, -1.2572180308400272e+02_dp, &
7473 1.3481924026494765e+01_dp, 6.0461082538064041e+01_dp, -7.3930191264914962e+00_dp, &
7474 -5.7463183771426053e+01_dp, 4.9457275105138656e+01_dp, -1.0700147395230934e+01_dp, &
7475 -4.9418175760713634e+00_dp, 2.2591130172972433e+00_dp, 4.8938924956022072e+02_dp, &
7476 -9.1372186196753569e+02_dp, 6.7434387995902102e+02_dp, -3.2155447353298307e+01_dp, &
7477 -2.8807904077131656e+02_dp, 1.0787587156933184e+02_dp, 1.1604641801031272e+02_dp, &
7478 -5.7495945231578801e+01_dp, -1.1982979280830179e+02_dp, 1.6386009398044138e+02_dp, &
7479 -8.5958117255417733e+01_dp, 1.8875664993395461e+01_dp, -6.7677172652916551e-01_dp, &
7480 9.3447004994210636e+02_dp, -1.9946219423819334e+03_dp, 1.7982346755590097e+03_dp, &
7481 -4.3838272051099790e+02_dp, -5.8789690476235876e+02_dp, 4.4360653113106764e+02_dp, &
7482 1.4921155606077679e+02_dp, -2.2511093876438125e+02_dp, -1.6695730504683976e+02_dp, &
7483 4.0917420561017377e+02_dp, -3.0271931512428114e+02_dp, 1.0796446015104219e+02_dp, &
7484 -1.5703656639435989e+01_dp, 1.8498047274145415e+03_dp, -4.4984616584856849e+03_dp, &
7485 4.8992366073257654e+03_dp, -2.1977425810406944e+03_dp, -8.3345216169575804e+02_dp, &
7486 1.4355964803086322e+03_dp, -1.5812943023377832e+02_dp, -6.2781654249010364e+02_dp, &
7487 9.2380286057259525e+01_dp, 6.5527187346706739e+02_dp, -6.9983355536916895e+02_dp, &
7488 3.1751326162224495e+02_dp, -5.7861253194568050e+01_dp, 3.8898521960899338e+03_dp, &
7489 -1.0660258370556912e+04_dp, 1.3786469354695366e+04_dp, -9.1465237275417621e+03_dp, &
7490 9.3013441723421602e+02_dp, 3.4076602842055540e+03_dp, -1.9886757703666833e+03_dp, &
7491 -8.2892218311343163e+02_dp, 1.2569071836213366e+03_dp, 3.2509800881158377e+01_dp, &
7492 -7.6144423093941646e+02_dp, 4.9335766114991003e+02_dp, -1.0865110989329460e+02_dp, &
7493 9.8449165454890644e+03_dp, -2.9503930183220888e+04_dp, 4.3421888480353453e+04_dp, &
7494 -3.6978110090308204e+04_dp, 1.5168356908680847e+04_dp, 2.9788779106407983e+03_dp, &
7495 -6.3846589497297919e+03_dp, 9.3105734344115615e+02_dp, 2.6308310447041681e+03_dp, &
7496 -1.6146136611487138e+03_dp, -1.9731348014190954e+02_dp, 5.0643537932149997e+02_dp, &
7497 -1.4599209745780860e+02_dp, 1.7630990396200976e+00_dp, -3.3892327099449571e-01_dp, &
7498 -1.1576929041053773e-01_dp, 4.2074501755300822e-02_dp, 3.5318613391807509e-02_dp, &
7499 -1.5361815626986417e-02_dp, -1.5538770819816210e-02_dp, 4.8377403154006675e-03_dp, &
7500 1.5296287290468806e-02_dp, -1.3888302637667885e-02_dp, 2.4825409810328397e-03_dp, &
7501 1.8872230081976539e-03_dp, -7.6714693939084367e-04_dp, 2.1325733506956639e+00_dp, &
7502 -5.5729186875233505e-01_dp, -1.4615706136468917e-01_dp, 9.6026856885913170e-02_dp, &
7503 4.8904598893406155e-02_dp, -3.8100135476357294e-02_dp, -2.1911777538135460e-02_dp, &
7504 1.3454311097079341e-02_dp, 2.7637903087209887e-02_dp, -3.4616620258338109e-02_dp, &
7505 1.4428685212043010e-02_dp, -1.0336299096049299e-03_dp, -5.9505869733514696e-04_dp, &
7506 2.9744753512390276e+00_dp, -1.1003780471193960e+00_dp, -1.9785159455719278e-01_dp, &
7507 2.3780637253194109e-01_dp, 7.1963817509901273e-02_dp, -9.9748145826735912e-02_dp, &
7508 -3.2190554128659045e-02_dp, 3.7695550143958513e-02_dp, 5.6651162671219071e-02_dp, &
7509 -9.1715891141988914e-02_dp, 5.1468581747088488e-02_dp, -1.1995276658616574e-02_dp, &
7510 5.5439593134832155e-04_dp, 4.5219935606964325e+00_dp, -2.2236721397856853e+00_dp, &
7511 -2.3730761168654535e-01_dp, 5.4856278124972280e-01_dp, 8.7445847277008756e-02_dp, &
7512 -2.3912431815003291e-01_dp, -3.6191282630300727e-02_dp, 9.4910314828061157e-02_dp, &
7513 1.0914636445746341e-01_dp, -2.2219329966642776e-01_dp, 1.4753788499623779e-01_dp, &
7514 -4.5129424300298711e-02_dp, 5.0589183084530339e-03_dp, 7.2107757897887188e+00_dp, &
7515 -4.4495581221107656e+00_dp, -1.5949892284174227e-01_dp, 1.1916501833218205e+00_dp, &
7516 3.8159808588412052e-02_dp, -5.3381719311232834e-01_dp, 1.1987078987062662e-04_dp, &
7517 2.2134348100162349e-01_dp, 1.8661057319208169e-01_dp, -4.9690591490122710e-01_dp, &
7518 3.7695345860164003e-01_dp, -1.3414080875310089e-01_dp, 1.9025830154460060e-02_dp, &
7519 1.1826586706724369e+01_dp, -8.8233400141049501e+00_dp, 3.3211087191020516e-01_dp, &
7520 2.4798971011020616e+00_dp, -2.4321974910475175e-01_dp, -1.1276491372635893e+00_dp, &
7521 1.7580577072785533e-01_dp, 4.8773057223976912e-01_dp, 2.5762633845103161e-01_dp, &
7522 -1.0335790498546602e+00_dp, 8.8984162729180138e-01_dp, -3.5392500454239423e-01_dp, &
7523 5.7015366649628613e-02_dp, 1.9787246843226512e+01_dp, -1.7445132201772360e+01_dp, &
7524 2.0255129628444672e+00_dp, 4.9871197966879164e+00_dp, -1.2082606849268420e+00_dp, &
7525 -2.2629643535078277e+00_dp, 7.5536562784156702e-01_dp, 1.0207918987429019e+00_dp, &
7526 1.7192575597177209e-01_dp, -1.9796532433429683e+00_dp, 1.9593380309152029e+00_dp, &
7527 -8.5836023264597161e-01_dp, 1.5125817632192159e-01_dp, 3.3681131542986975e+01_dp, &
7528 -3.4585438137019239e+01_dp, 6.9509291872553263e+00_dp, 9.6987345107099117e+00_dp, &
7529 -4.0173741038954836e+00_dp, -4.2756064482503922e+00_dp, 2.4041920018559479e+00_dp/)
7530 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/2.0123022827718544e+00_dp, &
7531 -5.8064769221536761e-01_dp, -3.3561931133425400e+00_dp, 3.9944119179735149e+00_dp, &
7532 -1.9296809249289084e+00_dp, 3.6684710023030970e-01_dp, 5.8314392583364203e+01_dp, &
7533 -6.9071915064420764e+01_dp, 2.0273316780786242e+01_dp, 1.8091276263426014e+01_dp, &
7534 -1.1553296198966734e+01_dp, -7.3776447143848456e+00_dp, 6.7127519171282239e+00_dp, &
7535 3.6256900346252308e+00_dp, -3.4861066477531804e+00_dp, -4.4280915350121814e+00_dp, &
7536 7.3155197483498444e+00_dp, -3.9817222244987160e+00_dp, 8.1716033590013382e-01_dp, &
7537 1.0279442872714777e+02_dp, -1.3951572323665187e+02_dp, 5.5126922655550800e+01_dp, &
7538 3.1593961331540505e+01_dp, -3.0773981811737219e+01_dp, -1.0609400500428917e+01_dp, &
7539 1.7269150027597533e+01_dp, 5.4550950252540860e+00_dp, -1.2412007314711813e+01_dp, &
7540 -1.6944363104250255e+00_dp, 1.1010026315963469e+01_dp, -7.2647707908744747e+00_dp, &
7541 1.6412253503340308e+00_dp, 1.8478392611717035e+02_dp, -2.8606063621708472e+02_dp, &
7542 1.4520791993720482e+02_dp, 4.8248284045813477e+01_dp, -7.7922693756595990e+01_dp, &
7543 -7.9408226077719561e+00_dp, 4.1485197987820960e+01_dp, 4.3678621514692084e+00_dp, &
7544 -3.6233004314355206e+01_dp, 1.6591239288982003e+01_dp, 8.9301404752582219e+00_dp, &
7545 -1.0434258526682950e+01_dp, 2.7944372114336824e+00_dp, 3.3944758158812471e+02_dp, &
7546 -5.9758838258126650e+02_dp, 3.7841395922782914e+02_dp, 4.8417305572292761e+01_dp, &
7547 -1.8893041807173518e+02_dp, 2.4741002322332704e+01_dp, 9.2060942372558330e+01_dp, &
7548 -1.2828891284744461e+01_dp, -9.1422655242511411e+01_dp, 8.2905747183313039e+01_dp, &
7549 -2.1697703734039433e+01_dp, -5.6962675534492826e+00_dp, 3.1991345493662133e+00_dp, &
7550 6.3893928008600767e+02_dp, -1.2768305025665254e+03_dp, 9.8951899589348307e+02_dp, &
7551 -6.0443695658991189e+01_dp, -4.3440590534894858e+02_dp, 1.7014936207019227e+02_dp, &
7552 1.7915396372204998e+02_dp, -9.1142430248866432e+01_dp, -1.9369374933733687e+02_dp, &
7553 2.7062993560444278e+02_dp, -1.4648606822230460e+02_dp, 3.4401173794203238e+01_dp, &
7554 -1.8643660577461350e+00_dp, 1.2368631912166727e+03_dp, -2.8021015677999771e+03_dp, &
7555 2.6245851326980301e+03_dp, -6.5184739072448338e+02_dp, -9.0662683327423667e+02_dp, &
7556 6.8595985546862971e+02_dp, 2.4708292671840775e+02_dp, -3.5944943741598553e+02_dp, &
7557 -2.8802980788436065e+02_dp, 6.9079812496750924e+02_dp, -5.1324954557812202e+02_dp, &
7558 1.8452547451235932e+02_dp, -2.7127058028799510e+01_dp, 2.4780267312523883e+03_dp, &
7559 -6.3481274679156131e+03_dp, 7.1223078050965232e+03_dp, -3.1670682000868255e+03_dp, &
7560 -1.4343302633933163e+03_dp, 2.2735595623482527e+03_dp, -1.4893036405924593e+02_dp, &
7561 -1.0812056752629833e+03_dp, 7.5011532640876709e+01_dp, 1.2375394471103587e+03_dp, &
7562 -1.2835762825052959e+03_dp, 5.7825279537734082e+02_dp, -1.0513964454975101e+02_dp, &
7563 5.2240008736035516e+03_dp, -1.4989583733809592e+04_dp, 1.9904817992583929e+04_dp, &
7564 -1.3071959006342418e+04_dp, 4.1890770123089112e+02_dp, 6.0736481096366579e+03_dp, &
7565 -3.0780323603297416e+03_dp, -2.0133593320735015e+03_dp, 2.5522083062383117e+03_dp, &
7566 1.0175091050765498e+02_dp, -1.5715434454560022e+03_dp, 1.0200855278610385e+03_dp, &
7567 -2.2627481009306229e+02_dp, 1.2373847610812090e+04_dp, -3.8548285445828238e+04_dp, &
7568 5.8497379094576674e+04_dp, -5.0546288117095348e+04_dp, 1.9279080238692830e+04_dp, &
7569 8.0456785161874832e+03_dp, -1.2762585183952415e+04_dp, 2.1391906252619819e+03_dp, &
7570 6.0395885681160671e+03_dp, -5.3701230424802343e+03_dp, 1.5974805021564043e+03_dp, &
7571 1.1957935329310017e+02_dp, -1.2701661891975539e+02_dp, 4.5956408995458441e+04_dp, &
7572 -1.4543165723892135e+05_dp, 2.3046137165679206e+05_dp, -2.2184270858179423e+05_dp, &
7573 1.2378962647413493e+05_dp, -1.9979906545203474e+04_dp, -2.1878488592470068e+04_dp, &
7574 1.0209913111179272e+04_dp, 7.6876868768320492e+03_dp, -8.6795300997867835e+03_dp, &
7575 2.1149514187852687e+03_dp, 7.3353058897293010e+02_dp, -3.6026759783745257e+02_dp, &
7576 2.3973743190763880e-01_dp, -2.1972173943175737e-02_dp, -1.2933433013553911e-02_dp, &
7577 2.0263255241757100e-03_dp, 3.8558136859502359e-03_dp, -2.3496377608067925e-04_dp, &
7578 -2.4948639401902385e-03_dp, 2.7317726766600036e-04_dp, 2.1977795539286837e-03_dp, &
7579 -1.7085734424693412e-03_dp, 1.8807577698138860e-04_dp, 2.9444043588833577e-04_dp, &
7580 -1.0495679299232483e-04_dp, 7.8119548885908119e-01_dp, -8.3814148577581293e-02_dp, &
7581 -4.7508135810116980e-02_dp, 9.8019626915272322e-03_dp, 1.4868280045836485e-02_dp, &
7582 -1.8006665222561487e-03_dp, -9.7377554307787259e-03_dp, 1.4125595007739784e-03_dp, &
7583 9.0509059488131458e-03_dp, -7.7385054530521970e-03_dp, 1.5388691452156726e-03_dp, &
7584 8.5747629581810734e-04_dp, -3.6661944358525332e-04_dp, 1.5306841908146380e+00_dp, &
7585 -2.1063022274943391e-01_dp, -1.1241196620289133e-01_dp, 3.2360998322751140e-02_dp, &
7586 3.7665015340093901e-02_dp, -8.0772948523086009e-03_dp, -2.5159527309634066e-02_dp, &
7587 5.0554039417750034e-03_dp, 2.5273349130359068e-02_dp, -2.4353394331749184e-02_dp, &
7588 7.2955857496937882e-03_dp, 9.9758288171452984e-04_dp, -7.6511170564210666e-04_dp, &
7589 2.7079852668931923e+00_dp, -4.8920830337568294e-01_dp, -2.4324920879045647e-01_dp, &
7590 9.4157225722568336e-02_dp, 8.7017036286837601e-02_dp, -2.8177328136367519e-02_dp, &
7591 -5.9539436788281913e-02_dp, 1.5947059865743421e-02_dp, 6.4998406125438488e-02_dp, &
7592 -7.0010003351382771e-02_dp, 2.6870981588887691e-02_dp, -1.2287304809945091e-03_dp, &
7593 -1.2626866804900177e-03_dp, 4.6871272746842072e+00_dp, -1.0979373448364005e+00_dp, &
7594 -5.0439064698554803e-01_dp, 2.5329109255504134e-01_dp, 1.9065417291741427e-01_dp, &
7595 -8.5926530886646244e-02_dp, -1.3414673664499402e-01_dp, 4.6615086648998535e-02_dp, &
7596 1.5969458749606510e-01_dp, -1.9077663190094568e-01_dp, 8.6799804720832860e-02_dp, &
7597 -1.2802583451222354e-02_dp, -1.2752933836137432e-03_dp, 8.1448100654677873e+00_dp, &
7598 -2.4178207414003650e+00_dp, -1.0140790036261034e+00_dp, 6.4948091684454845e-01_dp, &
7599 4.0002662216023965e-01_dp, -2.4319032508794547e-01_dp, -2.9094633344678594e-01_dp, &
7600 1.3045357990505776e-01_dp, 3.8023332842632163e-01_dp, -5.0306877230005320e-01_dp, &
7601 2.6113769839458034e-01_dp, -5.6298924203416423e-02_dp, 1.8123949457853315e-03_dp, &
7602 1.4352898973567878e+01_dp, -5.2818184817482203e+00_dp, -1.9859061847519863e+00_dp, &
7603 1.6209923485665547e+00_dp, 8.0480146245262718e-01_dp, -6.5980134024898218e-01_dp, &
7604 -6.0983822335215754e-01_dp, 3.5728072539684819e-01_dp, 8.8464717874409349e-01_dp, &
7605 -1.3018445886435062e+00_dp, 7.5507980073580228e-01_dp, -2.0136154790359589e-01_dp, &
7606 1.7515223022048523e-02_dp, 2.5776640136003774e+01_dp, -1.1552325240946562e+01_dp, &
7607 -3.7871289474355541e+00_dp, 3.9950291812053065e+00_dp, 1.5381543034175054e+00_dp, &
7608 -1.7488517416194553e+00_dp, -1.2307547949552229e+00_dp, 9.7227430479047705e-01_dp, &
7609 2.0152195969554660e+00_dp, -3.3340448599009007e+00_dp, 2.1353902718112705e+00_dp, &
7610 -6.5792855059375088e-01_dp, 7.7757862605825775e-02_dp, 4.7340489049606639e+01_dp, &
7611 -2.5502622340548470e+01_dp, -6.9771561423823139e+00_dp, 9.8241770037760148e+00_dp, &
7612 2.7041503874198094e+00_dp, -4.5827496067732367e+00_dp, -2.3499942979626960e+00_dp, &
7613 2.6589465299988495e+00_dp, 4.4638845876459596e+00_dp, -8.4790434572470250e+00_dp, &
7614 5.9637608044446919e+00_dp, -2.0511810835588626e+00_dp, 2.8556951006602344e-01_dp, &
7615 8.9206434643405373e+01_dp, -5.7246392101459577e+01_dp, -1.2118388129984879e+01_dp, &
7616 2.4298560398108567e+01_dp, 3.9314821788160956e+00_dp, -1.1961915849435366e+01_dp, &
7617 -4.0288255301413383e+00_dp, 7.3737596068968578e+00_dp, 9.3863903576693257e+00_dp, &
7618 -2.1365482846607684e+01_dp, 1.6512440427129999e+01_dp, -6.2254495487803139e+00_dp, &
7619 9.6619197544078494e-01_dp, 1.7312884123481155e+02_dp, -1.3162884253179351e+02_dp, &
7620 -1.8435423873064877e+01_dp, 6.0837883751267668e+01_dp, 2.3531394283228084e+00_dp, &
7621 -3.1220104773374494e+01_dp, -5.0963636597563147e+00_dp, 2.0884887034584892e+01_dp, &
7622 1.7434242907928009e+01_dp, -5.2737432022531095e+01_dp, 4.5207653351126943e+01_dp, &
7623 -1.8537109806799002e+01_dp, 3.1268716041690032e+00_dp, 3.4769947397156164e+02_dp, &
7624 -3.1249298768889707e+02_dp, -1.7437461781643293e+01_dp, 1.5498716759905759e+02_dp, &
7625 -1.5841772368812352e+01_dp, -8.1377538168402268e+01_dp, 1.8724669219067327e+00_dp, &
7626 6.0675444135269096e+01_dp, 2.0816898730371967e+01_dp, -1.2351369514321331e+02_dp, &
7627 1.2071107009758312e+02_dp, -5.3951445844698021e+01_dp, 9.7892956954004831e+00_dp, &
7628 7.2703354843362490e+02_dp, -7.7313108411402254e+02_dp, 3.5023735034956978e+01_dp, &
7629 4.0297017473577085e+02_dp, -1.1042256365889763e+02_dp, -2.0941813845985146e+02_dp, &
7630 5.2087715690791505e+01_dp, 1.8039722228227356e+02_dp, -4.1352516140890167e+01_dp, &
7631 -2.4923882189703463e+02_dp, 3.0196465579696888e+02_dp, -1.5000260743356392e+02_dp, &
7632 2.9343587506438965e+01_dp, 1.5958129013599184e+03_dp, -2.0168957177610125e+03_dp, &
7633 3.4240220658253907e+02_dp, 1.0672373281250943e+03_dp, -5.3613234405799597e+02_dp, &
7634 -5.1084300344864096e+02_dp, 2.9925364586857182e+02_dp, 5.3763268220233249e+02_dp, &
7635 -5.0331545545250009e+02_dp, -2.5847420072564825e+02_dp, 6.2069474368006570e+02_dp, &
7636 -3.7002167042097642e+02_dp, 8.0101106126116946e+01_dp, 3.7194250317395058e+03_dp, &
7637 -5.6366551640950183e+03_dp, 1.8508257063062345e+03_dp, 2.8281524590337158e+03_dp, &
7638 -2.4073828332691851e+03_dp, -9.9894429778883796e+02_dp, 1.3896422496078037e+03_dp, &
7639 1.4795882623602579e+03_dp, -2.9286651253849855e+03_dp, 1.3827022620856706e+03_dp, &
7640 3.7841886473089392e+02_dp, -5.8826257543824522e+02_dp, 1.6416552679796825e+02_dp, &
7641 9.3643659386802919e+03_dp, -1.7268153319694040e+04_dp, 9.3340833529031097e+03_dp, &
7642 6.8721045784191338e+03_dp, -1.0801964919124486e+04_dp, 3.3862132734645331e+02_dp, &
7643 5.7555001034296838e+03_dp, 2.4166845618580087e+03_dp, -1.2988122107330906e+04_dp, &
7644 1.3288937622953321e+04_dp, -6.4646546543504810e+03_dp, 1.4032801485599530e+03_dp, &
7645 -6.0214798988559934e+01_dp, 2.6224691656659063e+04_dp, -6.0092717495861041e+04_dp, &
7646 5.0748946885645579e+04_dp, 6.4296047875928125e+03_dp, -4.7887862033455087e+04_dp, &
7647 2.7735324023937988e+04_dp, 1.4938668072319664e+04_dp, -1.4316737379758091e+04_dp, &
7648 -2.8451024275428434e+04_dp, 5.7244647432622391e+04_dp, -4.5386091585022587e+04_dp, &
7649 1.8311548691603668e+04_dp, -3.1224051036545457e+03_dp, 8.9159916001930978e+04_dp, &
7650 -2.5586332776355915e+05_dp, 3.2843439673832123e+05_dp, -1.7020742611488042e+05_dp, &
7651 -1.0846427488360634e+05_dp, 2.5316054359400918e+05_dp, -1.7089677062997792e+05_dp, &
7652 1.6823614758843752e+04_dp, 3.7175896672429459e+04_dp, 2.2014007110624079e+03_dp, &
7653 -3.3289475790468583e+04_dp, 2.2732719096251702e+04_dp, -5.1983853159329319e+03_dp, &
7654 1.9578084287802890e+00_dp, -1.8700206095269101e-01_dp, -1.0900328443936919e-01_dp, &
7655 1.8470854213375257e-02_dp, 3.2926833694674286e-02_dp, -2.5244548830637811e-03_dp, &
7656 -2.1371119257102094e-02_dp, 2.5373572035113992e-03_dp, 1.9096936556220606e-02_dp, &
7657 -1.5244081816584576e-02_dp, 2.0668203447746073e-03_dp, 2.3576566574104695e-03_dp, &
7658 -8.7491071381053489e-04_dp, 2.4679674747272893e+00_dp, -3.3737601133348555e-01_dp, &
7659 -1.8139040419117963e-01_dp, 5.0523868752123523e-02_dp, 6.0550371224777057e-02_dp, &
7660 -1.2172815962913154e-02_dp, -4.0308427219634048e-02_dp, 7.7287143244938123e-03_dp, &
7661 4.0019771312533585e-02_dp, -3.7854821497454338e-02_dp, 1.0769335283667015e-02_dp, &
7662 1.9476127553671263e-03_dp, -1.2801087884499606e-03_dp, 3.6694426304025538e+00_dp, &
7663 -7.3185799640057625e-01_dp, -3.6064251381359935e-01_dp, 1.4504547183962732e-01_dp/)
7664 REAL(kind=dp), DIMENSION(400), PARAMETER :: c04 = (/1.3124621600522313e-01_dp, &
7665 -4.3574928379419176e-02_dp, -8.9899230702256708e-02_dp, 2.4290637640954200e-02_dp, &
7666 9.8569915866746516e-02_dp, -1.0636170473106374e-01_dp, 4.0918764154109298e-02_dp, &
7667 -1.9272580657675622e-03_dp, -1.9052149763963443e-03_dp, 5.9890800326505680e+00_dp, &
7668 -1.6089545544303487e+00_dp, -7.2735892893642817e-01_dp, 3.8519972111009043e-01_dp, &
7669 2.8134695163873363e-01_dp, -1.3173769525033738e-01_dp, -1.9866704055549164e-01_dp, &
7670 7.0436060618907739e-02_dp, 2.3886114608119013e-01_dp, -2.8708303282688091e-01_dp, &
7671 1.3162016111650496e-01_dp, -1.9942386857965708e-02_dp, -1.7671512955273788e-03_dp, &
7672 1.0277071420779189e+01_dp, -3.4998322063470488e+00_dp, -1.4378747336383482e+00_dp, &
7673 9.7407812913651848e-01_dp, 5.8100968550036769e-01_dp, -3.6798347669688403e-01_dp, &
7674 -4.2502364982377133e-01_dp, 1.9512289769610702e-01_dp, 5.6300271102111910e-01_dp, &
7675 -7.5027827357326204e-01_dp, 3.9235942713735511e-01_dp, -8.5921250073101446e-02_dp, &
7676 3.1413061827254385e-03_dp, 1.8195484597436025e+01_dp, -7.5799465416797727e+00_dp, &
7677 -2.7779407333989208e+00_dp, 2.4038088840560472e+00_dp, 1.1529366402453889e+00_dp, &
7678 -9.8759392678972879e-01_dp, -8.8098967842317599e-01_dp, 5.2980884220561242e-01_dp, &
7679 1.3004888148740070e+00_dp, -1.9285239537624044e+00_dp, 1.1258532118551621e+00_dp, &
7680 -3.0321009022168460e-01_dp, 2.7043746144518259e-02_dp, 3.3035404761027252e+01_dp, &
7681 -1.6491595898542446e+01_dp, -5.2375830412033784e+00_dp, 5.8765409929385362e+00_dp, &
7682 2.1768388716426843e+00_dp, -2.5969780543056746e+00_dp, -1.7626117368164964e+00_dp, &
7683 1.4322289011391323e+00_dp, 2.9516064099497408e+00_dp, -4.9190419937796754e+00_dp, &
7684 3.1669116909973813e+00_dp, -9.8168653418504981e-01_dp, 1.1715471750362567e-01_dp, &
7685 6.1469293824180966e+01_dp, -3.6319806298406590e+01_dp, -9.5514353824431790e+00_dp, &
7686 1.4372704901961265e+01_dp, 3.7807422307232739e+00_dp, -6.7679914605420413e+00_dp, &
7687 -3.3434548753675188e+00_dp, 3.8965635434521699e+00_dp, 6.5408575540338090e+00_dp, &
7688 -1.2492746836072200e+01_dp, 8.8166589002534259e+00_dp, -3.0419114467219512e+00_dp, &
7689 4.2503541134711348e-01_dp, 1.1743554310779896e+02_dp, -8.1509386397962075e+01_dp, &
7690 -1.6406506874595095e+01_dp, 3.5425877135044423e+01_dp, 5.4008009960033583e+00_dp, &
7691 -1.7605685937044811e+01_dp, -5.7037271668928087e+00_dp, 1.0759910584842750e+01_dp, &
7692 1.3847290180791390e+01_dp, -3.1533337618401688e+01_dp, 2.4393105499495121e+01_dp, &
7693 -9.2014396622544474e+00_dp, 1.4283532789355629e+00_dp, 2.3109385131857380e+02_dp, &
7694 -1.8761966730640114e+02_dp, -2.4520412603580802e+01_dp, 8.8516278234992583e+01_dp, &
7695 2.9328252339946874e+00_dp, -4.5889710850574829e+01_dp, -7.1950183014523059e+00_dp, &
7696 3.0366027067610979e+01_dp, 2.6306482065369778e+01_dp, -7.8357372730095506e+01_dp, &
7697 6.6967780172219548e+01_dp, -2.7398393744283439e+01_dp, 4.6109478575715883e+00_dp, &
7698 4.7043109624338825e+02_dp, -4.4606475685262001e+02_dp, -2.1735952206843098e+01_dp, &
7699 2.2527950930573971e+02_dp, -2.3012422758538580e+01_dp, -1.1981796817643516e+02_dp, &
7700 2.5291315036908233e+00_dp, 8.8003829705726233e+01_dp, 3.4937617704092141e+01_dp, &
7701 -1.8678178196032340e+02_dp, 1.8052624320492154e+02_dp, -8.0190538925395487e+01_dp, &
7702 1.4478678662148862e+01_dp, 9.9623504829206684e+02_dp, -1.1043779912072609e+03_dp, &
7703 5.3154531274160959e+01_dp, 5.8589592555521381e+02_dp, -1.5504952430522471e+02_dp, &
7704 -3.1084069476317563e+02_dp, 7.2155851070132712e+01_dp, 2.6196369615057944e+02_dp, &
7705 -3.7901934092893228e+01_dp, -3.9677065726243325e+02_dp, 4.6351722925927106e+02_dp, &
7706 -2.2696455653345569e+02_dp, 4.3990267926862309e+01_dp, 2.2110877219599788e+03_dp, &
7707 -2.8764768741892444e+03_dp, 4.7492320131449105e+02_dp, 1.5567264701241727e+03_dp, &
7708 -7.3938540087289493e+02_dp, -7.7880598566919457e+02_dp, 4.1299391414202665e+02_dp, &
7709 7.9154965016367521e+02_dp, -6.3312008083422745e+02_dp, -5.4669713260373055e+02_dp, &
7710 1.0339049127853618e+03_dp, -5.8970336298410371e+02_dp, 1.2498590069609844e+02_dp, &
7711 5.1953268832294525e+03_dp, -7.9884476380606466e+03_dp, 2.4793733613308304e+03_dp, &
7712 4.1824523715100868e+03_dp, -3.2616952824520654e+03_dp, -1.7015636062823082e+03_dp, &
7713 1.9191005411391400e+03_dp, 2.3134019608791955e+03_dp, -3.9142318595195161e+03_dp, &
7714 1.2048151664984891e+03_dp, 1.2558303204971614e+03_dp, -1.1624542002305350e+03_dp, &
7715 2.9431974485633702e+02_dp, 1.3110918396829140e+04_dp, -2.4102687398992093e+04_dp, &
7716 1.1995982410614766e+04_dp, 1.0841615122259704e+04_dp, -1.4393293492492468e+04_dp, &
7717 -1.5198734249430386e+03_dp, 8.2366314984664277e+03_dp, 5.3369330859444490e+03_dp, &
7718 -1.8989222784588852e+04_dp, 1.6516142437368548e+04_dp, -6.0985673599833599e+03_dp, &
7719 3.7054895141125257e+02_dp, 2.4857740696458779e+02_dp, 3.6333087513022270e+04_dp, &
7720 -8.1221783017847876e+04_dp, 6.1132709382630717e+04_dp, 2.0704857862231747e+04_dp, &
7721 -6.5197332745595239e+04_dp, 2.1778211045947377e+04_dp, 3.0647530299908398e+04_dp, &
7722 -4.3442782810474673e+03_dp, -6.8761517136658484e+04_dp, 9.8370328388803697e+04_dp, &
7723 -6.6087566887000561e+04_dp, 2.3191079659114679e+04_dp, -3.4339593811428126e+03_dp, &
7724 1.1539025686929584e+05_dp, -3.1920426799906261e+05_dp, 3.5835520091848128e+05_dp, &
7725 -7.7332737818564172e+04_dp, -2.7179397309597122e+05_dp, 2.9504892028661666e+05_dp, &
7726 -1.5850909591480361e+03_dp, -1.9513271077423554e+05_dp, 5.8739957732688774e+04_dp, &
7727 1.8218684831437774e+05_dp, -2.3253340265484373e+05_dp, 1.1891512847722569e+05_dp, &
7728 -2.3965471466063856e+04_dp, 5.0796510014340468e+05_dp, -1.6654594573956954e+06_dp, &
7729 2.6259920107028279e+06_dp, -2.2320118568638815e+06_dp, 4.1945039078323619e+05_dp, &
7730 1.5259082255208537e+06_dp, -2.3070026158079393e+06_dp, 1.8438958389471469e+06_dp, &
7731 -9.8021455412542529e+05_dp, 3.8852172824498301e+05_dp, -1.3583505516405738e+05_dp, &
7732 4.2733204548142872e+04_dp, -7.7320302758653297e+03_dp, 2.4714592967992341e-01_dp, &
7733 -7.8085959775806109e-03_dp, -6.7886161955341851e-03_dp, 2.3575304344995184e-03_dp, &
7734 -2.3517034282114465e-03_dp, 3.9158802999507076e-03_dp, -4.5461153332725527e-03_dp, &
7735 4.5805194409910457e-03_dp, -4.4524512104898387e-03_dp, 3.7555627758705215e-03_dp, &
7736 -2.3599409622613479e-03_dp, 9.4509400621173940e-04_dp, -1.7884563401109535e-04_dp, &
7737 8.0966640464626982e-01_dp, -3.0233867484354637e-02_dp, -2.6043673616899996e-02_dp, &
7738 9.5433966009009930e-03_dp, -9.0783414688469580e-03_dp, 1.5175856706915760e-02_dp, &
7739 -1.7697460473983996e-02_dp, 1.7774158182275648e-02_dp, -1.7223209104464284e-02_dp, &
7740 1.4524811645378713e-02_dp, -9.1332381344281059e-03_dp, 3.6583813732935489e-03_dp, &
7741 -6.9204130195118878e-04_dp, 1.6030458569493182e+00_dp, -7.7712739846721682e-02_dp, &
7742 -6.6010044423433833e-02_dp, 2.6127869801634368e-02_dp, -2.3253711186275654e-02_dp, &
7743 3.9050839842992117e-02_dp, -4.5857572874862529e-02_dp, 4.5840961396754240e-02_dp, &
7744 -4.4204734538243924e-02_dp, 3.7266920335001827e-02_dp, -2.3458701939590761e-02_dp, &
7745 9.4004046670134924e-03_dp, -1.7773797446858689e-03_dp, 2.8781590421606613e+00_dp, &
7746 -1.8502266072689696e-01_dp, -1.5472615939338874e-01_dp, 6.6339708849260826e-02_dp, &
7747 -5.5249687600741691e-02_dp, 9.3041185647943017e-02_dp, -1.1013517526810855e-01_dp, &
7748 1.0955921820654839e-01_dp, -1.0506048446608686e-01_dp, 8.8531090619630326e-02_dp, &
7749 -5.5801054481577961e-02_dp, 2.2374634069922589e-02_dp, -4.2288141306295558e-03_dp, &
7750 5.0740496965044271e+00_dp, -4.2609069373861314e-01_dp, -3.5047238596729913e-01_dp, &
7751 1.6258723345136517e-01_dp, -1.2725913237484188e-01_dp, 2.1429433697276487e-01_dp, &
7752 -2.5589943506352225e-01_dp, 2.5335777197170445e-01_dp, -2.4146172104155522e-01_dp, &
7753 2.0334399963063937e-01_dp, -1.2836270975711614e-01_dp, 5.1515644012971963e-02_dp, &
7754 -9.7343687583029415e-03_dp, 9.0087543486586252e+00_dp, -9.6436054026559159e-01_dp, &
7755 -7.7907974479593267e-01_dp, 3.9137647622410721e-01_dp, -2.8888988562914647e-01_dp, &
7756 4.8474201985199905e-01_dp, -5.8455659582923736e-01_dp, 5.7609137874519123e-01_dp, &
7757 -5.4522036473334778e-01_dp, 4.5874071108557374e-01_dp, -2.9010852464938575e-01_dp, &
7758 1.1657483507620653e-01_dp, -2.2028508267688093e-02_dp, 1.6269081610823477e+01_dp, &
7759 -2.1706703701271688e+00_dp, -1.7186386235096978e+00_dp, 9.3797983745884228e-01_dp, &
7760 -6.5457017839938392e-01_dp, 1.0896280805830605e+00_dp, -1.3287688787666494e+00_dp, &
7761 1.3036771339867574e+00_dp, -1.2238033857287740e+00_dp, 1.0283519414815741e+00_dp, &
7762 -6.5175578160501146e-01_dp, 2.6235561770753085e-01_dp, -4.9594225091627114e-02_dp, &
7763 3.0039520360403436e+01_dp, -4.9089049295402107e+00_dp, -3.7977674798271108e+00_dp, &
7764 2.2636667351052835e+00_dp, -1.4972289723671712e+00_dp, 2.4584044262615730e+00_dp, &
7765 -3.0368285262935673e+00_dp, 2.9668326974499704e+00_dp, -2.7581511636752905e+00_dp, &
7766 2.3131661843896207e+00_dp, -1.4699607563494359e+00_dp, 5.9316114483746940e-01_dp, &
7767 -1.1222595041176153e-01_dp, 5.6934882930425353e+01_dp, -1.1255095485895385e+01_dp, &
7768 -8.4747322577007207e+00_dp, 5.5559279273831361e+00_dp, -3.4946282450544621e+00_dp, &
7769 5.6164991647309872e+00_dp, -7.0421238497195029e+00_dp, 6.8536265224353468e+00_dp, &
7770 -6.2970979175561093e+00_dp, 5.2656213569535302e+00_dp, -3.3569884616944177e+00_dp, &
7771 1.3592370978249693e+00_dp, -2.5758842009927652e-01_dp, 1.1122973850857802e+02_dp, &
7772 -2.6389905796723561e+01_dp, -1.9237652263540834e+01_dp, 1.3999317461544457e+01_dp, &
7773 -8.4157473265769305e+00_dp, 1.3101786091490547e+01_dp, -1.6712238563942623e+01_dp, &
7774 1.6216483953281678e+01_dp, -1.4686105782654973e+01_dp, 1.2224250268447630e+01_dp, &
7775 -7.8233760607390384e+00_dp, 3.1827221380884012e+00_dp, -6.0484510597143726e-01_dp, &
7776 2.2511331110403108e+02_dp, -6.3849510824888611e+01_dp, -4.4736822972493066e+01_dp, &
7777 3.6570941293529650e+01_dp, -2.1172368843978809e+01_dp, 3.1477570716288106e+01_dp, &
7778 -4.0948178433469003e+01_dp, 3.9674042582809108e+01_dp, -3.5289493665272310e+01_dp, &
7779 2.9158345876804262e+01_dp, -1.8743398238805774e+01_dp, 7.6757245316723974e+00_dp, &
7780 -1.4653860927918039e+00_dp, 4.7504666597161093e+02_dp, -1.6105638525337199e+02_dp, &
7781 -1.0734835568336860e+02_dp, 1.0017665095009950e+02_dp, -5.6502935380445450e+01_dp, &
7782 7.8671378853738148e+01_dp, -1.0460354615827933e+02_dp, 1.0145728089695098e+02_dp, &
7783 -8.8217580108401904e+01_dp, 7.2003186291951550e+01_dp, -4.6494111524940820e+01_dp, &
7784 1.9214944281734663e+01_dp, -3.6952935742615893e+00_dp, 1.0544524739814613e+03_dp, &
7785 -4.2902221397650425e+02_dp, -2.6782200683344763e+02_dp, 2.9185470703014238e+02_dp, &
7786 -1.6321979346586420e+02_dp, 2.0720494992345783e+02_dp, -2.8184954114105011e+02_dp, &
7787 2.7486750102605271e+02_dp, -2.3215822832786790e+02_dp, 1.8548517561875852e+02_dp, &
7788 -1.2013476439901228e+02_dp, 5.0268802195171816e+01_dp, -9.7793374602533572e+00_dp, &
7789 2.4925376021791531e+03_dp, -1.2280929973471482e+03_dp, -7.0003357512153480e+02_dp, &
7790 9.2189747375624108e+02_dp, -5.2511408044203222e+02_dp, 5.8621847685149055e+02_dp, &
7791 -8.1277799265203862e+02_dp, 8.0292827818442333e+02_dp, -6.5338665830524042e+02_dp, &
7792 5.0183079090547267e+02_dp, -3.2380554523618252e+02_dp, 1.3763419521849823e+02_dp, &
7793 -2.7255890559133967e+01_dp, 6.3918219717306083e+03_dp, -3.8763187937858406e+03_dp, &
7794 -1.9257015318780568e+03_dp, 3.2472036360073544e+03_dp, -1.9642544031850207e+03_dp, &
7795 1.8422466462758632e+03_dp, -2.5561629910519391e+03_dp, 2.5895289445906710e+03_dp, &
7796 -2.0116564542023402e+03_dp, 1.4283611462124322e+03_dp, -8.9489172870925711e+02_dp, &
7797 3.8577334167655448e+02_dp, -7.8417479541745152e+01_dp, 1.8326761523831301e+04_dp/)
7798 REAL(kind=dp), DIMENSION(400), PARAMETER :: c05 = (/-1.4073380941871266e+04_dp, &
7799 -5.4884212128021491e+03_dp, 1.3338114839397269e+04_dp, -9.1704389994968824e+03_dp, &
7800 6.9234192947715492e+03_dp, -8.9848495511906458e+03_dp, 9.4904838722939803e+03_dp, &
7801 -7.0131996973248588e+03_dp, 4.2053129160131894e+03_dp, -2.2892321189981762e+03_dp, &
7802 9.5853233917332932e+02_dp, -2.0059595633199862e+02_dp, 6.2145484992675003e+04_dp, &
7803 -6.3683464018306629e+04_dp, -1.3478172242723740e+04_dp, 6.9122642519095578e+04_dp, &
7804 -6.1149663704367988e+04_dp, 3.8450079402543517e+04_dp, -3.6623205602609836e+04_dp, &
7805 3.9290615378684073e+04_dp, -2.8219652444004834e+04_dp, 1.1412807988657049e+04_dp, &
7806 -1.7224522927570106e+03_dp, -3.9040817007118409e+02_dp, 1.4646631734514426e+02_dp, &
7807 2.8572736221717932e+05_dp, -4.3463112005624449e+05_dp, 8.0601652340817658e+04_dp, &
7808 5.0202883058267244e+05_dp, -7.9735137443422247e+05_dp, 6.5856450151112222e+05_dp, &
7809 -3.1469388927102822e+05_dp, 4.5380852232874913e+03_dp, 1.9064981445481826e+05_dp, &
7810 -2.6045344183859305e+05_dp, 2.0964678182384724e+05_dp, -9.9723937310119960e+04_dp, &
7811 2.1478645199727333e+04_dp, 2.0209842869144579e+00_dp, -6.6718986697254859e-02_dp, &
7812 -5.7864043748775733e-02_dp, 2.0385124539857375e-02_dp, -2.0076648172407022e-02_dp, &
7813 3.3467236798597394e-02_dp, -3.8898880867761311e-02_dp, 3.9159779450315686e-02_dp, &
7814 -3.8033899789202824e-02_dp, 3.2079462322166769e-02_dp, -2.0161695424411413e-02_dp, &
7815 8.0746211326208697e-03_dp, -1.5278524818652483e-03_dp, 2.5837103332261946e+00_dp, &
7816 -1.2412305755869253e-01_dp, -1.0562856977936072e-01_dp, 4.1401929220466462e-02_dp, &
7817 -3.7137069265504780e-02_dp, 6.2373047952612670e-02_dp, -7.3167139494141137e-02_dp, &
7818 7.3181444229383899e-02_dp, -7.0620695217909493e-02_dp, 5.9541226705652497e-02_dp, &
7819 -3.7473058713811576e-02_dp, 1.5014631941726080e-02_dp, -2.8389529827758256e-03_dp, &
7820 3.9243795810678530e+00_dp, -2.7752925964967601e-01_dp, -2.3174959372548332e-01_dp, &
7821 1.0011305293692697e-01_dp, -8.2767548665314883e-02_dp, 1.3960986500361180e-01_dp, &
7822 -1.6533811213529379e-01_dp, 1.6437972410323695e-01_dp, -1.5757476076598648e-01_dp, &
7823 1.3278585216426170e-01_dp, -8.3698567928797013e-02_dp, 3.3559074454691487e-02_dp, &
7824 -6.3419102382915853e-03_dp, 6.5574218511326112e+00_dp, -6.2720528041932788e-01_dp, &
7825 -5.1457373180315114e-01_dp, 2.4165147820461136e-01_dp, -1.8706272866170806e-01_dp, &
7826 3.1556412614357066e-01_dp, -3.7722243153075635e-01_dp, 3.7313797192010750e-01_dp, &
7827 -3.5535802476053696e-01_dp, 2.9926050182479369e-01_dp, -1.8893716237645972e-01_dp, &
7828 7.5825057518831993e-02_dp, -1.4325630615601024e-02_dp, 1.1531103735581528e+01_dp, &
7829 -1.4032618163838810e+00_dp, -1.1301837639020289e+00_dp, 5.7553236097795246e-01_dp, &
7830 -4.1986809658151530e-01_dp, 7.0558155272988798e-01_dp, -8.5201620306659231e-01_dp, &
7831 8.3882578576766720e-01_dp, -7.9314185990164077e-01_dp, 6.6733090862986277e-01_dp, &
7832 -4.2210637535148637e-01_dp, 1.6962027057736975e-01_dp, -3.2047172429002457e-02_dp, &
7833 2.0953856325861402e+01_dp, -3.1332175704610203e+00_dp, -2.4722201318657344e+00_dp, &
7834 1.3685689515151018e+00_dp, -9.4397783930672019e-01_dp, 1.5731408557496862e+00_dp, &
7835 -1.9214695312017522e+00_dp, 1.8831652333939095e+00_dp, -1.7658826005426529e+00_dp, &
7836 1.4838298143011921e+00_dp, -9.4067732071431376e-01_dp, 3.7868226521725007e-01_dp, &
7837 -7.1573121884394186e-02_dp, 3.9141027382473368e+01_dp, -7.0510935911389439e+00_dp, &
7838 -5.4349441219378498e+00_dp, 3.2859057843378880e+00_dp, -2.1492051697234911e+00_dp, &
7839 3.5316064256642075e+00_dp, -4.3703582897803956e+00_dp, 4.2649336499090476e+00_dp, &
7840 -3.9602705121144273e+00_dp, 3.3213171066858487e+00_dp, -2.1112848586815800e+00_dp, &
7841 8.5203244277433265e-01_dp, -1.6118013209548254e-01_dp, 7.5179666844985803e+01_dp, &
7842 -1.6129525112712493e+01_dp, -1.2099880210005864e+01_dp, 8.0393543887536687e+00_dp, &
7843 -5.0050419349925148e+00_dp, 8.0491356578510747e+00_dp, -1.0111118000567620e+01_dp, &
7844 9.8296164480187027e+00_dp, -9.0208256786749921e+00_dp, 7.5435906846169685e+00_dp, &
7845 -4.8109961052478889e+00_dp, 1.9481547611953693e+00_dp, -3.6913036892062134e-01_dp, &
7846 1.4889534986689205e+02_dp, -3.7795695700544215e+01_dp, -2.7459767911560213e+01_dp, &
7847 2.0211149927742266e+01_dp, -1.2040077089570843e+01_dp, 1.8764352859283580e+01_dp, &
7848 -2.3978110155581604e+01_dp, 2.3240884657405484e+01_dp, -2.1026891338026122e+01_dp, &
7849 1.7506149076342183e+01_dp, -1.1208140964030401e+01_dp, 4.5598936248731166e+00_dp, &
7850 -8.6634263812127699e-01_dp, 3.0539686947459830e+02_dp, -9.1444333087771867e+01_dp, &
7851 -6.3921240045689750e+01_dp, 5.2663651852895761e+01_dp, -3.0245493927589340e+01_dp, &
7852 4.5084324511456899e+01_dp, -5.8738721586867534e+01_dp, 5.6842137146892654e+01_dp, &
7853 -5.0535367379859217e+01_dp, 4.1783876072414230e+01_dp, -2.6871281987162011e+01_dp, &
7854 1.1002744908733408e+01_dp, -2.0995744007601536e+00_dp, 6.5253194924819445e+02_dp, &
7855 -2.3049888975569243e+02_dp, -1.5360350190567564e+02_dp, 1.4363449886237967e+02_dp, &
7856 -8.0388980829080381e+01_dp, 1.1261707068019670e+02_dp, -1.4991417030352827e+02_dp, &
7857 1.4517931236170054e+02_dp, -1.2629435322089957e+02_dp, 1.0326348811780197e+02_dp, &
7858 -6.6723417286080917e+01_dp, 2.7562125203340528e+01_dp, -5.2956364086681749e+00_dp, &
7859 1.4638759455072827e+03_dp, -6.1204832725053041e+02_dp, -3.8364710618768743e+02_dp, &
7860 4.1505445999875218e+02_dp, -2.2991842627563597e+02_dp, 2.9570852999172786e+02_dp, &
7861 -4.0267828686987724e+02_dp, 3.9173441007461383e+02_dp, -3.3158823108198732e+02_dp, &
7862 2.6608267952167319e+02_dp, -1.7259790833879237e+02_dp, 7.2150618982427929e+01_dp, &
7863 -1.4010375050526267e+01_dp, 3.4854439155843625e+03_dp, -1.7372008876781651e+03_dp, &
7864 -1.0030747630399879e+03_dp, 1.2911405329593324e+03_dp, -7.2402985904807974e+02_dp, &
7865 8.2901556502561914e+02_dp, -1.1526573479976369e+03_dp, 1.1334817444713410e+03_dp, &
7866 -9.2688170377254664e+02_dp, 7.1957041790704716e+02_dp, -4.6656972587699590e+02_dp, &
7867 1.9808433106431835e+02_dp, -3.9093212258748324e+01_dp, 8.9452333593947151e+03_dp, &
7868 -5.3804654916003874e+03_dp, -2.7615678829835888e+03_dp, 4.4211939369662241e+03_dp, &
7869 -2.5941258974348689e+03_dp, 2.5441305071386205e+03_dp, -3.5725792116391317e+03_dp, &
7870 3.5873032039055993e+03_dp, -2.8097510721061076e+03_dp, 2.0498805737947519e+03_dp, &
7871 -1.3081644460504003e+03_dp, 5.6519369679006809e+02_dp, -1.1429316751443122e+02_dp, &
7872 2.5338916917680017e+04_dp, -1.8766091152234465e+04_dp, -7.9810318917773557e+03_dp, &
7873 1.7229548905712414e+04_dp, -1.1116122770842045e+04_dp, 8.9620856529374523e+03_dp, &
7874 -1.2236743640136612e+04_dp, 1.2740974975183684e+04_dp, -9.4927044237527389e+03_dp, &
7875 6.1054857729098449e+03_dp, -3.6163779068096483e+03_dp, 1.5701523669074877e+03_dp, &
7876 -3.2867702174385209e+02_dp, 8.2423613014789240e+04_dp, -7.7738621638431970e+04_dp, &
7877 -2.2856223996885383e+04_dp, 8.0654743982346874e+04_dp, -6.1910908781176040e+04_dp, &
7878 4.0486392582576533e+04_dp, -4.7535009010394941e+04_dp, 5.2027077505429726e+04_dp, &
7879 -3.7183064561553911e+04_dp, 1.8156573347610247e+04_dp, -7.2562244437422933e+03_dp, &
7880 2.6129376328153694e+03_dp, -5.6069917781247318e+02_dp, 3.3241938028525532e+05_dp, &
7881 -4.2449719865456008e+05_dp, -2.7991543060281649e+04_dp, 4.9815416292546922e+05_dp, &
7882 -5.2713017647717579e+05_dp, 3.1848201456787082e+05_dp, -2.2093992761096239e+05_dp, &
7883 2.2247276428230319e+05_dp, -1.5785444477482370e+05_dp, 3.4768551468795849e+04_dp, &
7884 3.5161092722404210e+04_dp, -2.9940407867245645e+04_dp, 7.4882756263552019e+03_dp, &
7885 2.0447139661067696e+06_dp, -3.9283854089172743e+06_dp, 1.8502764473921761e+06_dp, &
7886 4.1951868191134324e+06_dp, -9.7529644361083508e+06_dp, 1.0318888468459859e+07_dp, &
7887 -5.2802722255622474e+06_dp, -2.1595666128842793e+06_dp, 7.7832591679149270e+06_dp, &
7888 -9.0678311244019158e+06_dp, 6.4686899047139660e+06_dp, -2.7819922020553104e+06_dp, &
7889 5.5456672891937534e+05_dp, 2.4890279420896633e-01_dp, 3.0066734866592875e-09_dp, &
7890 -1.0527327234770156e-02_dp, 1.3433637283418252e-02_dp, -1.7966097650019941e-02_dp, &
7891 1.6380268724846176e-02_dp, 2.5827143469974796e-03_dp, -5.0828042512973688e-02_dp, &
7892 1.2605197871020793e-01_dp, -1.9169993841817892e-01_dp, 1.9099346055836872e-01_dp, &
7893 -1.1453423015330329e-01_dp, 3.1344018718015468e-02_dp, 8.1648099483442071e-01_dp, &
7894 1.1681804630596778e-08_dp, -4.0907368999085904e-02_dp, 5.2200775677796407e-02_dp, &
7895 -6.9370421329701656e-02_dp, 6.2517319547751971e-02_dp, 1.2303423022201899e-02_dp, &
7896 -2.0110939199019731e-01_dp, 4.9426482807255301e-01_dp, -7.4900279581754514e-01_dp, &
7897 7.4475006092198848e-01_dp, -4.4603037474417395e-01_dp, 1.2195270515337567e-01_dp, &
7898 1.6206094508793791e+00_dp, 3.0183277900631536e-08_dp, -1.0571814695626443e-01_dp, &
7899 1.3490399708668319e-01_dp, -1.7755777128909234e-01_dp, 1.5716554526027085e-01_dp, &
7900 4.0575662816921231e-02_dp, -5.3363368225929542e-01_dp, 1.2944475547431196e+00_dp, &
7901 -1.9512977152300366e+00_dp, 1.9344516123948587e+00_dp, -1.1563005205015051e+00_dp, &
7902 3.1572545247324441e-01_dp, 2.9200997436150145e+00_dp, 7.2272211306585797e-08_dp, &
7903 -2.5319659711553028e-01_dp, 3.2309704851649657e-01_dp, -4.2074358141218299e-01_dp, &
7904 3.6486472342550103e-01_dp, 1.2013651265592906e-01_dp, -1.3142416201487426e+00_dp, &
7905 3.1444431701789064e+00_dp, -4.7133821392535511e+00_dp, 4.6576470048302268e+00_dp, &
7906 -2.7781948677092143e+00_dp, 7.5745674162454923e-01_dp, 5.1709355253819069e+00_dp, &
7907 1.6742699148040768e-07_dp, -5.8671080264769337e-01_dp, 7.4868485784133132e-01_dp, &
7908 -9.6403362067884502e-01_dp, 8.1750470049367896e-01_dp, 3.3369738745733207e-01_dp, &
7909 -3.1320371788601724e+00_dp, 7.3913387513511770e+00_dp, -1.1015588989961810e+01_dp, &
7910 1.0849123684781043e+01_dp, -6.4570948721058814e+00_dp, 1.7577598775352674e+00_dp, &
7911 9.2287628542971909e+00_dp, 3.8134106077365812e-07_dp, -1.3367097614968169e+00_dp, &
7912 1.7057363546008353e+00_dp, -2.1697290395664353e+00_dp, 1.7942979800129226e+00_dp, &
7913 8.9447410621817325e-01_dp, -7.3445546549349077e+00_dp, 1.7090148060084527e+01_dp, &
7914 -2.5316713230788089e+01_dp, 2.4846267033206001e+01_dp, -1.4753191637652103e+01_dp, &
7915 4.0094693816808542e+00_dp, 1.6766111681930639e+01_dp, 8.6435256783724784e-07_dp, &
7916 -3.0308060554179863e+00_dp, 3.8675214211329658e+00_dp, -4.8529498283031085e+00_dp, &
7917 3.8976870882182326e+00_dp, 2.3616553134743259e+00_dp, -1.7167702511583300e+01_dp, &
7918 3.9359851775548030e+01_dp, -5.7927748597033606e+01_dp, 5.6632670017808159e+01_dp, &
7919 -3.3540723665316413e+01_dp, 9.0986198218588719e+00_dp, 3.1168178536681012e+01_dp, &
7920 1.9700422170976357e-06_dp, -6.9105394933144373e+00_dp, 8.8183289442136772e+00_dp, &
7921 -1.0894028309812372e+01_dp, 8.4485589750840440e+00_dp, 6.2361739723108975e+00_dp, &
7922 -4.0446807666182103e+01_dp, 9.1267594151432164e+01_dp, -1.3336330401014530e+02_dp, &
7923 1.2982241038880991e+02_dp, -7.6664694454963950e+01_dp, 2.0753697286099698e+01_dp, &
7924 5.9534897429557844e+01_dp, 4.5573631978173512e-06_dp, -1.5993863131481948e+01_dp, &
7925 2.0409268076898947e+01_dp, -2.4759174458477368e+01_dp, 1.8389829887940540e+01_dp, &
7926 1.6674262282079525e+01_dp, -9.7004865265531805e+01_dp, 2.1513624544240966e+02_dp, &
7927 -3.1185418300656380e+02_dp, 3.0209632244299593e+02_dp, -1.7780645081741756e+02_dp, &
7928 4.8018190809835360e+01_dp, 1.1735957000719010e+02_dp, 1.0796734300526574e-05_dp, &
7929 -3.7912420090540877e+01_dp, 4.8378813528148328e+01_dp, -5.7435863659353501e+01_dp, &
7930 4.0377808851989506e+01_dp, 4.5658311276489918e+01_dp, -2.3911739347016501e+02_dp, &
7931 5.2031388028459696e+02_dp, -7.4739624739763394e+02_dp, 7.1994201689992678e+02_dp/)
7932 REAL(kind=dp), DIMENSION(13, 36, 5), PARAMETER :: &
7933 coefdata = reshape((/c01, c02, c03, c04, c05, c06/), (/13, 36, 5/))
7934
7935 INTEGER :: irange
7936
7937 IF (rc <= 4.0000000000000000e+01_dp) rc = 4.0000000000000000e+01_dp
7938 IF (rc >= 2.1987628936767578e+06_dp) rc = 2.1987628936767578e+06_dp
7939 IF (rc >= 4.0000000000000000e+01_dp .AND. rc <= 5.5746054090099528e+02_dp) THEN
7940 irange = 1
7941 l_b = 4.0000000000000000e+01_dp
7942 u_b = 5.5746054090099528e+02_dp
7943 END IF
7944 IF (rc >= 5.5746054090099528e+02_dp .AND. rc <= 7.4758824984654611e+03_dp) THEN
7945 irange = 2
7946 l_b = 5.5746054090099528e+02_dp
7947 u_b = 7.4758824984654611e+03_dp
7948 END IF
7949 IF (rc >= 7.4758824984654611e+03_dp .AND. rc <= 1.2462901325470702e+05_dp) THEN
7950 irange = 3
7951 l_b = 7.4758824984654611e+03_dp
7952 u_b = 1.2462901325470702e+05_dp
7953 END IF
7954 IF (rc >= 1.2462901325470702e+05_dp .AND. rc <= 7.3667319606433529e+05_dp) THEN
7955 irange = 4
7956 l_b = 1.2462901325470702e+05_dp
7957 u_b = 7.3667319606433529e+05_dp
7958 END IF
7959 IF (rc >= 7.3667319606433529e+05_dp .AND. rc <= 2.1987628936767578e+06_dp) THEN
7960 irange = 5
7961 l_b = 7.3667319606433529e+05_dp
7962 u_b = 2.1987628936767578e+06_dp
7963 END IF
7964
7965 fit_coef(1:13, 1:36) = coefdata(1:13, 1:36, irange)
7966
7967 END SUBROUTINE get_fit_coef_k18
7968
7969! **************************************************************************************************
7970!> \brief ...
7971!> \param Rc ...
7972!> \param L_b ...
7973!> \param U_b ...
7974!> \param fit_coef ...
7975! **************************************************************************************************
7976 SUBROUTINE get_fit_coef_k19(Rc, L_b, U_b, fit_coef)
7977 REAL(kind=dp) :: rc, l_b, u_b
7978 REAL(kind=dp), DIMENSION(13, 38) :: fit_coef
7979
7980 REAL(kind=dp), DIMENSION(164), PARAMETER :: c08 = (/1.0499223216920694e+01_dp, &
7981 4.4951728164305678e+00_dp, -4.0844623976889828e+01_dp, 9.6469089733765301e+01_dp, &
7982 -1.4457308237433509e+02_dp, 1.4358591897299843e+02_dp, -8.6337055270254567e+01_dp, &
7983 2.3772804326078404e+01_dp, 6.6359118115924133e+01_dp, -2.8591296818375736e-06_dp, &
7984 -1.7227311155696889e+01_dp, 2.2124688216575461e+01_dp, -2.7524752734790738e+01_dp, &
7985 2.2372786649592609e+01_dp, 1.2155184152551417e+01_dp, -9.4518163584077797e+01_dp, &
7986 2.1941577176458151e+02_dp, -3.2637649842310663e+02_dp, 3.2272807635497901e+02_dp, &
7987 -1.9348838342099501e+02_dp, 5.3166737579708254e+01_dp, 1.2849926566575485e+02_dp, &
7988 -6.5250582816014808e-06_dp, -3.9291091128744178e+01_dp, 5.0460729666257137e+01_dp, &
7989 -6.1689440682005809e+01_dp, 4.8223722297260849e+01_dp, 3.3157059718603954e+01_dp, &
7990 -2.2390910129266675e+02_dp, 5.1024271893998286e+02_dp, -7.5272887345661684e+02_dp, &
7991 7.4065729983418430e+02_dp, -4.4258825906333180e+02_dp, 1.2132797157588969e+02_dp, &
7992 2.5680058641412631e+02_dp, -1.5312146095985592e-05_dp, -9.2132612013296807e+01_dp, &
7993 1.1832391986938538e+02_dp, -1.4171780637542841e+02_dp, 1.0550987736400363e+02_dp, &
7994 9.2295690191958684e+01_dp, -5.4710074862993338e+02_dp, 1.2219574601299419e+03_dp, &
7995 -1.7860867470382068e+03_dp, 1.7476196856227098e+03_dp, -1.0403464625313584e+03_dp, &
7996 2.8441474799760618e+02_dp, 5.3222213783565780e+02_dp, -3.7234716544473444e-05_dp, &
7997 -2.2382764453118818e+02_dp, 2.8745677810311867e+02_dp, -3.3594463439207505e+02_dp, &
7998 2.3480947417458006e+02_dp, 2.6515448809283430e+02_dp, -1.3903458609430929e+03_dp, &
7999 3.0378333769430460e+03_dp, -4.3939128957463727e+03_dp, 4.2714720839997299e+03_dp, &
8000 -2.5314697435154421e+03_dp, 6.8983232947349563e+02_dp, 1.1512267982072294e+03_dp, &
8001 -9.4695299828165009e-05_dp, -5.6855359361921421e+02_dp, 7.3017979817497314e+02_dp, &
8002 -8.2805783277340424e+02_dp, 5.3123615799294919e+02_dp, 7.9604494681759957e+02_dp, &
8003 -3.7117311299625480e+03_dp, 7.9142883179915798e+03_dp, -1.1309056810379891e+04_dp, &
8004 1.0909850675069327e+04_dp, -6.4311777917450936e+03_dp, 1.7456613494233954e+03_dp, &
8005 2.6212437093759077e+03_dp, -2.5485209034150442e-04_dp, -1.5277300945628297e+03_dp, &
8006 1.9620247585698864e+03_dp, -2.1419889374981735e+03_dp, 1.2132646910388833e+03_dp, &
8007 2.5352427487043710e+03_dp, -1.0542926029232349e+04_dp, 2.1867497472080187e+04_dp, &
8008 -3.0801081479878208e+04_dp, 2.9437600466280288e+04_dp, -1.7238435953682736e+04_dp, &
8009 4.6562418705978034e+03_dp, 6.3573171344602770e+03_dp, -7.3750251193115297e-04_dp, &
8010 -4.4115279609245035e+03_dp, 5.6656029053998782e+03_dp, -5.8829581406359675e+03_dp, &
8011 2.7234456726279182e+03_dp, 8.7354783549759413e+03_dp, -3.2415576280063124e+04_dp, &
8012 6.5114222442079190e+04_dp, -9.0113853476169999e+04_dp, 8.5113563712506788e+04_dp, &
8013 -4.9417241881668429e+04_dp, 1.3262343922822860e+04_dp, 1.6709034360467489e+04_dp, &
8014 -2.3486683702591328e-03_dp, -1.4005755867923166e+04_dp, 1.7987158768947684e+04_dp, &
8015 -1.7415019499264930e+04_dp, 5.3886108848086124e+03_dp, 3.3486192491280985e+04_dp, &
8016 -1.1058426237334734e+05_dp, 2.1373071702116015e+05_dp, -2.8916673365143739e+05_dp, &
8017 2.6883819423513982e+05_dp, -1.5426221397195625e+05_dp, 4.1027854475280248e+04_dp, &
8018 4.8891105989388227e+04_dp, -8.5375882415901910e-03_dp, -5.0669203017368134e+04_dp, &
8019 6.5072639338247180e+04_dp, -5.6622801394688104e+04_dp, 3.0202589453576870e+03_dp, &
8020 1.4914012489017315e+05_dp, -4.3485803392159345e+05_dp, 8.0005087015935709e+05_dp, &
8021 -1.0489157105679847e+06_dp, 9.5284382085401053e+05_dp, -5.3704348597552557e+05_dp, &
8022 1.4082751009772695e+05_dp, 1.6683629894264581e+05_dp, -3.7790306832555944e-02_dp, &
8023 -2.2242916225572405e+05_dp, 2.8565589535384666e+05_dp, -2.0552031775314044e+05_dp, &
8024 -9.7947481898987331e+04_dp, 8.3244217354800832e+05_dp, -2.1022382927533309e+06_dp, &
8025 3.6045398713238072e+06_dp, -4.4935831417357307e+06_dp, 3.9211888536126167e+06_dp, &
8026 -2.1383095567867076e+06_dp, 5.4562133604672970e+05_dp, 7.2983594458675524e+05_dp, &
8027 -2.3366549317086566e-01_dp, -1.3516445238670940e+06_dp, 1.7358328797716717e+06_dp, &
8028 -7.6941638889201207e+05_dp, -1.8347737779277351e+06_dp, 6.8172234608326862e+06_dp, &
8029 -1.4087562537947292e+07_dp, 2.1161535706049107e+07_dp, -2.3534962968572598e+07_dp, &
8030 1.8463007196192324e+07_dp, -9.1061534880313724e+06_dp, 2.1147690424670577e+06_dp, &
8031 5.3539598700785628e+06_dp, -3.0211150365300039e+00_dp, -1.6646735851000162e+07_dp, &
8032 2.1377543596431356e+07_dp, 7.5558560062402077e+06_dp, -6.6595246625963897e+07_dp, &
8033 1.2300183044218574e+08_dp, -1.2663664724774376e+08_dp, 4.1031313200280927e+07_dp, &
8034 1.0283971430652012e+08_dp, -1.9310895904024291e+08_dp, 1.5058167673706385e+08_dp, &
8035 -4.7897275226966202e+07_dp/)
8036 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.4159553890012480e-01_dp, &
8037 -3.2212259532342614e-02_dp, -2.5211569112270739e-03_dp, 1.0259263161798598e-03_dp, &
8038 1.7009451604343799e-04_dp, -7.4233588848268952e-05_dp, -1.4091849072407304e-05_dp, &
8039 8.9792205912272354e-06_dp, -6.1068721080120308e-07_dp, 2.3673956901460579e-06_dp, &
8040 -1.4083255944590247e-06_dp, -2.7195755501531476e-06_dp, 2.8146140048823581e-06_dp, &
8041 4.3687738412731247e-01_dp, -1.0507959602935127e-01_dp, -6.2038156589891806e-03_dp, &
8042 3.4867260532288986e-03_dp, 4.0214827530637130e-04_dp, -2.5825399367695534e-04_dp, &
8043 -3.1252892528233610e-05_dp, 3.0947573806607806e-05_dp, -3.6098038277409914e-06_dp, &
8044 7.3259195158793407e-06_dp, -4.3056106890235391e-06_dp, -8.7173329450119566e-06_dp, &
8045 9.0229802552072765e-06_dp, 7.6969894835349451e-01_dp, -2.0480550688388621e-01_dp, &
8046 -5.1614525784059537e-03_dp, 7.1434595006984259e-03_dp, 2.5699998302359232e-04_dp, &
8047 -5.4217957031654817e-04_dp, -9.9497238896661655e-06_dp, 6.3976878971682059e-05_dp, &
8048 -1.2652209576345682e-05_dp, 1.3188831511557239e-05_dp, -7.3852575250832500e-06_dp, &
8049 -1.6514325039434995e-05_dp, 1.7056531547933975e-05_dp, 1.1694161663883196e+00_dp, &
8050 -3.5457725458566364e-01_dp, 6.0405099172997122e-03_dp, 1.2652283618377483e-02_dp, &
8051 -6.9573612869031239e-04_dp, -9.6570008981377035e-04_dp, 9.3185669048836430e-05_dp, &
8052 1.1170291259476769e-04_dp, -3.4059568676163194e-05_dp, 2.1411436640986164e-05_dp, &
8053 -1.0587098957813508e-05_dp, -2.7739876771009426e-05_dp, 2.8436369456750092e-05_dp, &
8054 1.6722923778351919e+00_dp, -5.8623250288584683e-01_dp, 3.6803481489419941e-02_dp, &
8055 2.0292829632816360e-02_dp, -3.1641052891675505e-03_dp, -1.5095879003062503e-03_dp, &
8056 3.4669256907157714e-04_dp, 1.7005900081597947e-04_dp, -7.7249793311931302e-05_dp, &
8057 3.5028575965622117e-05_dp, -1.3652892102255319e-05_dp, -4.4739744474324642e-05_dp, &
8058 4.5186940571270951e-05_dp, 2.3252215053670944e+00_dp, -9.4543684120515115e-01_dp, &
8059 1.0338931425768211e-01_dp, 2.9396745206708937e-02_dp, -8.2573760376551154e-03_dp, &
8060 -2.0274975592751354e-03_dp, 8.4994675565299837e-04_dp, 2.1942491207429306e-04_dp, &
8061 -1.5506894551206067e-04_dp, 5.9943198545642097e-05_dp, -1.6238288004320363e-05_dp, &
8062 -7.1013836471124102e-05_dp, 7.0143453024049232e-05_dp, 3.1906616395439409e+00_dp, &
8063 -1.4990569225058550e+00_dp, 2.3356101549045380e-01_dp, 3.7152742084143882e-02_dp, &
8064 -1.7592764802963623e-02_dp, -2.1213171272414589e-03_dp, 1.7296120802156852e-03_dp, &
8065 2.1165538052484334e-04_dp, -2.8264733608776007e-04_dp, 1.0684070365301925e-04_dp, &
8066 -1.8316063933529629e-05_dp, -1.1178382801896222e-04_dp, 1.0737911151933133e-04_dp, &
8067 4.3534382015127369e+00_dp, -2.3459506946039794e+00_dp, 4.7408783987239850e-01_dp, &
8068 3.6262330606119872e-02_dp, -3.3299942574138243e-02_dp, -9.3140059419598656e-04_dp, &
8069 3.1137054827187964e-03_dp, 5.1022668227572255e-05_dp, -4.7327734643169223e-04_dp, &
8070 1.9371495091259679e-04_dp, -2.1116509746927200e-05_dp, -1.7465725270621350e-04_dp, &
8071 1.6279100510407628e-04_dp, 5.9303714588445304e+00_dp, -3.6329281082192590e+00_dp, &
8072 9.0285285883188005e-01_dp, 1.0499413585049452e-02_dp, -5.7706685341736653e-02_dp, &
8073 3.1914219035582910e-03_dp, 5.0564950350439003e-03_dp, -4.3044903889887784e-04_dp, &
8074 -7.2872478490099949e-04_dp, 3.4876195691509751e-04_dp, -2.8964892295533430e-05_dp, &
8075 -2.7029244144607034e-04_dp, 2.4488000058885411e-04_dp, 8.0842352986683856e+00_dp, &
8076 -5.5785127765670346e+00_dp, 1.6482906476540169e+00_dp, -7.3501953025711345e-02_dp, &
8077 -9.2213493322770707e-02_dp, 1.3150366867854405e-02_dp, 7.3635168477600224e-03_dp, &
8078 -1.4982003516811509e-03_dp, -1.0196873457808851e-03_dp, 6.1292284623671504e-04_dp, &
8079 -5.2523833942698411e-05_dp, -4.1290691731029868e-04_dp, 3.6576881274268374e-04_dp, &
8080 1.1044653770852007e+01_dp, -8.5086264786359092e+00_dp, 2.9204021062989258e+00_dp, &
8081 -2.8111787188864740e-01_dp, -1.3429818303779237e-01_dp, 3.3638242999846295e-02_dp, &
8082 9.2262993367846335e-03_dp, -3.5217929571347388e-03_dp, -1.2493756075931993e-03_dp, &
8083 1.0399803214705392e-03_dp, -1.1423406576364230e-04_dp, -6.2036982403473006e-04_dp, &
8084 5.4255571555972932e-04_dp, 1.5140946973553808e+01_dp, -1.2911167463604777e+01_dp, &
8085 5.0599558722610176e+00_dp, -7.3604696739389575e-01_dp, -1.7049477007591834e-01_dp, &
8086 7.1395167777044383e-02_dp, 8.5304346040664409e-03_dp, -6.9043372440724740e-03_dp, &
8087 -1.1917442674394089e-03_dp, 1.6877417649437795e-03_dp, -2.5692597772479920e-04_dp, &
8088 -9.1320979479733819e-04_dp, 7.9917704737221692e-04_dp, 2.0857767729149380e+01_dp, &
8089 -1.9522972409838573e+01_dp, 8.6166217738442601e+00_dp, -1.6655977945022149e+00_dp, &
8090 -1.6130946336101359e-01_dp, 1.3407695333391192e-01_dp, 7.3462104420434426e-04_dp, &
8091 -1.1786497079900466e-02_dp, -4.1197943246183656e-04_dp, 2.5837162514269450e-03_dp, &
8092 -5.5402838065590862e-04_dp, -1.3110273196903820e-03_dp, 1.1688682117688078e-03_dp, &
8093 2.8939950737247685e+01_dp, -2.9480526610440588e+01_dp, 1.4476451649973361e+01_dp, &
8094 -3.4764436718654159e+00_dp, -1.1492003298758746e-02_dp, 2.2502856445645558e-01_dp, &
8095 -2.2365897846246961e-02_dp, -1.7268108576283563e-02_dp, 1.7427539085000711e-03_dp, &
8096 3.6430042980382660e-03_dp, -1.1065725030894821e-03_dp, -1.8275133932960331e-03_dp, &
8097 1.6976814016934469e-03_dp, 4.0618956502082611e+01_dp, -4.4622059577162375e+01_dp, &
8098 2.4090578510499956e+01_dp, -6.8810902494300450e+00_dp, 4.8297850963216071e-01_dp, &
8099 3.2924474886243160e-01_dp, -7.2369776779368955e-02_dp, -2.0078222605003318e-02_dp, &
8100 5.8293068973593737e-03_dp, 4.5736167580590990e-03_dp, -1.9885526061121971e-03_dp, &
8101 -2.4869733482698786e-03_dp, 2.4561874555545063e-03_dp, 5.8186666034640020e+01_dp, &
8102 -6.8227495131103126e+01_dp, 3.9981099201342317e+01_dp, -1.3134066085088833e+01_dp, &
8103 1.7219507581901394e+00_dp, 3.8681398325887517e-01_dp, -1.5929705043037320e-01_dp, &
8104 -1.3820689038096395e-02_dp, 1.1500886478842712e-02_dp, 4.9890084140602840e-03_dp, &
8105 -3.1430775711513877e-03_dp, -3.4228763531890033e-03_dp, 3.5888038606415973e-03_dp, &
8106 8.6758629460574809e+01_dp, -1.0730358374322792e+02_dp, 6.7254446024704066e+01_dp, &
8107 -2.4650559229093147e+01_dp, 4.4657471444515995e+00_dp, 2.5973390816722725e-01_dp, &
8108 -2.8281531420486583e-01_dp, 8.6395325668061733e-03_dp, 1.7190940344631079e-02_dp, &
8109 4.9683014527230921e-03_dp, -4.4797399994558479e-03_dp, -5.0527887500770325e-03_dp, &
8110 5.4485658862832098e-03_dp, 1.4144570865336470e+02_dp, -1.8203037827531273e+02_dp, &
8111 1.1996729501753330e+02_dp, -4.7597068467016200e+01_dp, 1.0433251046275085e+01_dp, &
8112 -3.0715161860465295e-01_dp, -4.4333987528632623e-01_dp, 5.2266426831911433e-02_dp, &
8113 2.2622601468742540e-02_dp, 5.6448052547070247e-03_dp, -6.6314050067125879e-03_dp, &
8114 -8.2807273014170093e-03_dp, 8.9883473255153619e-03_dp, 2.9783846082084170e+02_dp, &
8115 -3.9281745649836722e+02_dp, 2.6705245994554446e+02_dp, -1.1116159567569434e+02_dp, &
8116 2.7022970008284052e+01_dp, -2.0393625814260337e+00_dp, -7.8644885792012886e-01_dp, &
8117 1.4664747765129174e-01_dp, 3.6698696189955908e-02_dp, 1.0255959134649445e-02_dp, &
8118 -1.3496519985266115e-02_dp, -1.7057146077249077e-02_dp, 1.8839418118163746e-02_dp, &
8119 1.1407412355136231e+00_dp, -2.6322614975892222e-01_dp, -1.9304807485994203e-02_dp, &
8120 8.4818056715191947e-03_dp, 1.2921553214948484e-03_dp, -6.1798626362584322e-04_dp, &
8121 -1.0574734927292684e-04_dp, 7.4567513561016663e-05_dp, -6.0228382320527032e-06_dp, &
8122 1.9073396980006737e-05_dp, -1.1324448161278565e-05_dp, -2.2120940011110670e-05_dp, &
8123 2.2897251630575986e-05_dp, 1.2383058680166454e+00_dp, -3.3177779766973436e-01_dp, &
8124 -8.0046278756808614e-03_dp, 1.1734934753880745e-02_dp, 3.9208403634974115e-04_dp, &
8125 -8.9816173297452740e-04_dp, -1.3958158920641618e-05_dp, 1.0603060144415561e-04_dp, &
8126 -2.0721841907929155e-05_dp, 2.1014251840363297e-05_dp, -1.1928943188164544e-05_dp, &
8127 -2.6670935778900919e-05_dp, 2.7588164189909763e-05_dp, 1.4436406826714989e+00_dp, &
8128 -4.8123537796251287e-01_dp, 1.9845018196607334e-02_dp, 1.7971084322191626e-02_dp, &
8129 -1.8324606541230578e-03_dp, -1.4018145539285401e-03_dp, 2.1266040253605433e-04_dp, &
8130 1.6089571777858162e-04_dp, -5.5758950174576915e-05_dp, 2.6807942924299252e-05_dp, &
8131 -1.2671269591892968e-05_dp, -3.6769890090760815e-05_dp, 3.7679474165084254e-05_dp, &
8132 1.7780289941084260e+00_dp, -7.3782695706333956e-01_dp, 7.5852316169277137e-02_dp, &
8133 2.6321369018930191e-02_dp, -6.2530501547849882e-03_dp, -1.9778677729210049e-03_dp, &
8134 6.5769145784193284e-04_dp, 2.1870962072471271e-04_dp, -1.2174982968187595e-04_dp, &
8135 4.0911670934797237e-05_dp, -1.2765102734804405e-05_dp, -5.4569409911678445e-05_dp, &
8136 5.4688757320726091e-05_dp, 2.2759204975194458e+00_dp, -1.1453785133959720e+00_dp, &
8137 1.8079354115664725e-01_dp, 3.4432382914558510e-02_dp, -1.4225585470058071e-02_dp, &
8138 -2.2837089659632549e-03_dp, 1.4367339690524530e-03_dp, 2.3591365549879067e-04_dp, &
8139 -2.3239837931551176e-04_dp, 7.1833055128279899e-05_dp, -1.1507142004923511e-05_dp, &
8140 -8.3724655681505198e-05_dp, 8.1177843733305105e-05_dp, 2.9887064285877973e+00_dp, &
8141 -1.7721307937649995e+00_dp, 3.6991743513447239e-01_dp, 3.6672484709771344e-02_dp, &
8142 -2.7596569461930998e-02_dp, -1.6078064447974708e-03_dp, 2.6752315429307439e-03_dp, &
8143 1.2818773343005159e-04_dp, -4.0049270094921513e-04_dp, 1.3443710602048975e-04_dp, &
8144 -9.0985942281952549e-06_dp, -1.2990401189688037e-04_dp, 1.2115099317095869e-04_dp, &
8145 3.9907366836701370e+00_dp, -2.7216952914669283e+00_dp, 7.0185367490954009e-01_dp, &
8146 2.0790650087634404e-02_dp, -4.8523023243476252e-02_dp, 1.4087441403410760e-03_dp, &
8147 4.4519866778520399e-03_dp, -2.5248221642837002e-04_dp, -6.2960311984174694e-04_dp, &
8148 2.5254010380090493e-04_dp, -8.2259066803737854e-06_dp, -2.0128177724252732e-04_dp, &
8149 1.8061401811982056e-04_dp, 5.3884484703298714e+00_dp, -4.1497815192118628e+00_dp, &
8150 1.2730263450206805e+00_dp, -3.8210239808827151e-02_dp, -7.8752008993259112e-02_dp, &
8151 9.1787131489447105e-03_dp, 6.6677701366350964e-03_dp, -1.1427359524673077e-03_dp, &
8152 -8.9785110256968275e-04_dp, 4.6106575711624083e-04_dp, -1.6852240096092439e-05_dp, &
8153 -3.0877518141384864e-04_dp, 2.6828132709743447e-04_dp, 7.3341836390666773e+00_dp, &
8154 -6.2894029533210078e+00_dp, 2.2407098704133954e+00_dp, -1.8918988940658871e-01_dp, &
8155 -1.1761608329525802e-01_dp, 2.5701025480113431e-02_dp, 8.7678899455993949e-03_dp, &
8156 -2.8850805066351374e-03_dp, -1.1285234289110727e-03_dp, 8.0654726904078294e-04_dp, &
8157 -5.2692171698939168e-05_dp, -4.6577350369995772e-04_dp, 3.9642409742979582e-04_dp, &
8158 1.0047710850872544e+01_dp, -9.4890315198232518e+00_dp, 3.8596089366441526e+00_dp, &
8159 -5.2472117726711742e-01_dp, -1.5718795036158192e-01_dp, 5.7072740328761015e-02_dp, &
8160 9.1939643128644485e-03_dp, -5.9066984136172977e-03_dp, -1.1387477711487443e-03_dp, &
8161 1.3430321326247108e-03_dp, -1.5016650487631499e-04_dp, -6.8710530153629065e-04_dp, &
8162 5.8196249923196924e-04_dp, 1.3851688904176260e+01_dp, -1.4271598955417318e+01_dp, &
8163 6.5394232734786746e+00_dp, -1.2157582321122917e+00_dp, -1.7145472518196578e-01_dp, &
8164 1.1137485470268504e-01_dp, 4.3748739759179806e-03_dp, -1.0567793142941557e-02_dp, &
8165 -5.5398723777692134e-04_dp, 2.1139656566692543e-03_dp, -3.7128217874996786e-04_dp, &
8166 -9.8650715039269197e-04_dp, 8.4812423349403076e-04_dp, 1.9235334619586016e+01_dp, &
8167 -2.1430578544580889e+01_dp, 1.0935348023770239e+01_dp, -2.5703290931021043e+00_dp, &
8168 -9.3684439339661404e-02_dp, 1.9608483863631485e-01_dp, -1.2873315513389102e-02_dp, &
8169 -1.6635857332202259e-02_dp, 1.3017736724714114e-03_dp, 3.0919884927816301e-03_dp/)
8170 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/-8.1899012855183456e-04_dp, &
8171 -1.3697632531141069e-03_dp, 1.2268039489488590e-03_dp, 2.6982367118180953e+01_dp, &
8172 -3.2203467268313922e+01_dp, 1.8094671738936693e+01_dp, -5.1291575498824864e+00_dp, &
8173 2.2721945369117036e-01_dp, 3.0848319451415068e-01_dp, -5.4944705448018556e-02_dp, &
8174 -2.1918290310463735e-02_dp, 5.3889292561536137e-03_dp, 4.0275986677558995e-03_dp, &
8175 -1.6284311851828951e-03_dp, -1.8215037039926844e-03_dp, 1.7609141110641021e-03_dp, &
8176 3.8463536907902750e+01_dp, -4.8640580195082968e+01_dp, 2.9722457220673043e+01_dp, &
8177 -9.8185297472519668e+00_dp, 1.1017236982453140e+00_dp, 4.1094138704569305e-01_dp, &
8178 -1.3790144274071689e-01_dp, -1.9836806896771739e-02_dp, 1.2281130435731527e-02_dp, &
8179 4.2485407574071928e-03_dp, -2.8502932676645093e-03_dp, -2.3204621866155586e-03_dp, &
8180 2.5139038804018183e-03_dp, 5.6403019544607950e+01_dp, -7.4558074137380629e+01_dp, &
8181 4.8792909062352564e+01_dp, -1.8222521073735450e+01_dp, 3.1113259029642006e+00_dp, &
8182 3.8525550418227494e-01_dp, -2.6956980951719761e-01_dp, 1.7730572492532272e-03_dp, &
8183 2.0231218118677733e-02_dp, 2.8971793876300693e-03_dp, -4.1670706906750512e-03_dp, &
8184 -3.0299779823530571e-03_dp, 3.6417755428282965e-03_dp, 8.7215443808268901e+01_dp, &
8185 -1.1851941798879672e+02_dp, 8.1443910354759353e+01_dp, -3.3294997428270143e+01_dp, &
8186 7.2813751191796143e+00_dp, -1.4949444862504643e-02_dp, -4.2555970602879750e-01_dp, &
8187 5.3440375091183941e-02_dp, 2.3936805411273999e-02_dp, 4.2943352588307808e-04_dp, &
8188 -4.9592740606350010e-03_dp, -4.7297595630543931e-03_dp, 5.6368552675931643e-03_dp, &
8189 1.4975251635328343e+02_dp, -2.0531240455284888e+02_dp, 1.4459250832690373e+02_dp, &
8190 -6.2316167155448824e+01_dp, 1.5665274878658106e+01_dp, -1.1636674097249506e+00_dp, &
8191 -5.5714790450689045e-01_dp, 1.2874387847404120e-01_dp, 2.0981878079326013e-02_dp, &
8192 1.6097121510941226e-04_dp, -6.0483121208980773e-03_dp, -8.8514602159330009e-03_dp, &
8193 9.7828665118702071e-03_dp, 3.2129985348974549e+02_dp, -4.3705037011365653e+02_dp, &
8194 3.0768674866967689e+02_dp, -1.3421668175563934e+02_dp, 3.5382166323770129e+01_dp, &
8195 -3.7150156401778789e+00_dp, -7.8066308454448430e-01_dp, 2.3019139497858526e-01_dp, &
8196 2.6698155626115754e-02_dp, 6.9031498421899722e-03_dp, -1.3061502264041481e-02_dp, &
8197 -1.8618105437648663e-02_dp, 2.0549011501193169e-02_dp, 1.2327094475164540e+03_dp, &
8198 -1.6517971287587309e+03_dp, 1.1453145166666175e+03_dp, -4.9100832192840704e+02_dp, &
8199 1.2656644760117726e+02_dp, -1.2735766360571926e+01_dp, -2.6884467290906815e+00_dp, &
8200 6.7843516874228083e-01_dp, 1.2057077781690270e-01_dp, 4.0211801204278225e-02_dp, &
8201 -5.5885010022905059e-02_dp, -6.8430520456983487e-02_dp, 7.7231660087382012e-02_dp, &
8202 1.8496027008239549e-01_dp, -5.2635957315967263e-02_dp, -1.3363208633747327e-02_dp, &
8203 7.0753080700979715e-03_dp, 4.0250101520871492e-03_dp, -2.5572951671070160e-03_dp, &
8204 -1.7101514222507485e-03_dp, 9.0274083105137438e-04_dp, 1.7429230871490228e-03_dp, &
8205 -1.9224938737565124e-03_dp, 5.7596057684833031e-04_dp, 1.0659543229708461e-04_dp, &
8206 -7.1924049427382215e-05_dp, 5.8244506483690739e-01_dp, -1.8223607569173905e-01_dp, &
8207 -3.8829020775716601e-02_dp, 2.7386770439359200e-02_dp, 1.1779696794311099e-02_dp, &
8208 -1.0280482019437921e-02_dp, -4.9672977515278658e-03_dp, 3.7715941587838780e-03_dp, &
8209 5.9254776501040194e-03_dp, -7.8754309889097502e-03_dp, 3.3370240188511616e-03_dp, &
8210 -2.4573980952193470e-04_dp, -1.3766621817983240e-04_dp, 1.0679356036687564e+00_dp, &
8211 -3.9301786697228080e-01_dp, -5.7337229831602214e-02_dp, 6.8138158271713281e-02_dp, &
8212 1.7189370118560782e-02_dp, -2.6680191557440031e-02_dp, -6.9610330874151343e-03_dp, &
8213 1.0234093194331958e-02_dp, 1.1928832504988295e-02_dp, -2.0825809621203371e-02_dp, &
8214 1.1845502328236113e-02_dp, -2.7625162573559322e-03_dp, 1.2266527208606984e-04_dp, &
8215 1.7186762769732131e+00_dp, -7.6842283829929103e-01_dp, -5.2094219929163819e-02_dp, &
8216 1.4952064221850928e-01_dp, 1.3105518526079931e-02_dp, -6.0277036362458583e-02_dp, &
8217 -3.8993134189913609e-03_dp, 2.3998100221899753e-02_dp, 1.9722360015163132e-02_dp, &
8218 -4.7449318260552320e-02_dp, 3.3022861705973044e-02_dp, -1.0525079839838058e-02_dp, &
8219 1.2565018126329791e-03_dp, 2.6433292578569403e+00_dp, -1.4442699325289519e+00_dp, &
8220 1.8749612571812301e-02_dp, 3.0152805079239342e-01_dp, -1.9072651296996059e-02_dp, &
8221 -1.2313703162394884e-01_dp, 1.3982139796035626e-02_dp, 5.0529807099352154e-02_dp, &
8222 2.5915913834361832e-02_dp, -9.6301299125299111e-02_dp, 7.8387553232621393e-02_dp, &
8223 -2.9347212002760113e-02_dp, 4.3984494251308407e-03_dp, 4.0031890214864516e+00_dp, &
8224 -2.6506777836645301e+00_dp, 2.5002709371286003e-01_dp, 5.6678418963927524e-01_dp, &
8225 -1.2166589054182736e-01_dp, -2.3025504915310566e-01_dp, 6.8512851967640287e-02_dp, &
8226 9.6897025962713448e-02_dp, 1.8655348484778574e-02_dp, -1.7509091764540302e-01_dp, &
8227 1.6512362797291477e-01_dp, -6.9241563143609311e-02_dp, 1.1677077362884182e-02_dp, &
8228 6.0451957328475263e+00_dp, -4.7842190085775247e+00_dp, 8.4607600090330592e-01_dp, &
8229 9.9838014493270644e-01_dp, -3.8386031304018225e-01_dp, -3.9385951905586181e-01_dp, &
8230 2.0432223719801115e-01_dp, 1.6924599740654714e-01_dp, -3.2820891989357739e-02_dp, &
8231 -2.8096972471170906e-01_dp, 3.1382191127514508e-01_dp, -1.4536535595852404e-01_dp, &
8232 2.6668413841726423e-02_dp, 9.1549135569876245e+00_dp, -8.5345664784207340e+00_dp, &
8233 2.2346205651622792e+00_dp, 1.6411516718069554e+00_dp, -9.8335661502361238e-01_dp, &
8234 -6.0422667740241987e-01_dp, 5.0601416326899085e-01_dp, 2.6377746002222652e-01_dp, &
8235 -1.9726347500816235e-01_dp, -3.7523198569027921e-01_dp, 5.3625497856328741e-01_dp, &
8236 -2.7599511569361151e-01_dp, 5.4528659506659791e-02_dp, 1.3943035992310987e+01_dp, &
8237 -1.5109323197529408e+01_dp, 5.2959149276944357e+00_dp, 2.4661972731333157e+00_dp, &
8238 -2.2567333201120254e+00_dp, -7.7787392178326420e-01_dp, 1.1214179222198557e+00_dp, &
8239 3.4190618100067971e-01_dp, -6.1152850879396203e-01_dp, -3.2726172380330121e-01_dp, &
8240 7.9909066319447652e-01_dp, -4.7152537410281026e-01_dp, 1.0076309501925237e-01_dp, &
8241 2.1388611942642935e+01_dp, -2.6637185765365800e+01_dp, 1.1824571495957908e+01_dp, &
8242 3.1834095908537434e+00_dp, -4.8063853776563112e+00_dp, -6.3222648705256546e-01_dp, &
8243 2.2812373088061939e+00_dp, 2.7053699574642753e-01_dp, -1.5164506840508636e+00_dp, &
8244 1.9390080320187825e-01_dp, 9.3774412092831516e-01_dp, -7.0197405735123353e-01_dp, &
8245 1.6622614771280861e-01_dp, 3.3079428604239290e+01_dp, -4.6898194866003884e+01_dp, &
8246 2.5464018502546349e+01_dp, 2.7484480884475584e+00_dp, -9.6279273060536603e+00_dp, &
8247 5.9552677798513798e-01_dp, 4.2759743597723183e+00_dp, -3.0699576070505968e-01_dp, &
8248 -3.2669097676275891e+00_dp, 1.8987807572689366e+00_dp, 4.8132579922105273e-01_dp, &
8249 -8.2065702179074362e-01_dp, 2.3362433782091457e-01_dp, 5.1621626508739872e+01_dp, &
8250 -8.2660353947017612e+01_dp, 5.3607937311050435e+01_dp, -1.8797644714387658e+00_dp, &
8251 -1.8143027819974449e+01_dp, 4.7369680178784570e+00_dp, 7.2692132436006371e+00_dp, &
8252 -2.2184482777750349e+00_dp, -6.2154142523989133e+00_dp, 6.1059357543242241e+00_dp, &
8253 -1.6522745114655870e+00_dp, -4.1115789631675914e-01_dp, 2.3756928000969607e-01_dp, &
8254 8.1351582550594543e+01_dp, -1.4615422101218340e+02_dp, 1.1129430956108159e+02_dp, &
8255 -1.8800774059904494e+01_dp, -3.1684177587873151e+01_dp, 1.5820010337807913e+01_dp, &
8256 1.0616280037682005e+01_dp, -7.1547281508105547e+00_dp, -1.0210813394710581e+01_dp, &
8257 1.4851459426239472e+01_dp, -7.5823159284462474e+00_dp, 1.4755007442866093e+00_dp, &
8258 7.1704854962532146e-03_dp, 1.2961216352300849e+02_dp, -2.5972094896967849e+02_dp, &
8259 2.2922833292335898e+02_dp, -6.8618818175144867e+01_dp, -4.8903263939216217e+01_dp, &
8260 4.1885218071518977e+01_dp, 1.0862853016310472e+01_dp, -1.8022963902540312e+01_dp, &
8261 -1.3119830070208033e+01_dp, 3.0238247725930801e+01_dp, -2.0742505936307470e+01_dp, &
8262 6.6612181005611406e+00_dp, -8.2499200913490378e-01_dp, 2.0918002109462682e+02_dp, &
8263 -4.6477061154654319e+02_dp, 4.7040392223308885e+02_dp, -2.0231664523073340e+02_dp, &
8264 -5.6353025630719443e+01_dp, 9.6488871901532022e+01_dp, -3.3153170467196271e+00_dp, &
8265 -3.8112379830274591e+01_dp, -7.2773894428920212e+00_dp, 5.0927199428565473e+01_dp, &
8266 -4.4589076648414782e+01_dp, 1.7786229263712446e+01_dp, -2.8840133398763834e+00_dp, &
8267 3.4348422405496660e+02_dp, -8.4023075962910389e+02_dp, 9.6509249025561269e+02_dp, &
8268 -5.4322732013402708e+02_dp, 1.1614085203846807e+00_dp, 1.9306947976062503e+02_dp, &
8269 -6.0953011969071319e+01_dp, -6.4473641869529004e+01_dp, 2.5599475521189774e+01_dp, &
8270 6.1661793378629682e+01_dp, -7.5299742803616596e+01_dp, 3.5784746893679127e+01_dp, &
8271 -6.6920352740423770e+00_dp, 5.8082030750243996e+02_dp, -1.5482290606357024e+03_dp, &
8272 1.9913534204232064e+03_dp, -1.3842027389980281e+03_dp, 3.0176915978714999e+02_dp, &
8273 3.0701230954874183e+02_dp, -2.1433469154899214e+02_dp, -6.6515928662840182e+01_dp, &
8274 1.0587060354314622e+02_dp, 2.4158616076495992e+01_dp, -8.8819422206168397e+01_dp, &
8275 5.3284774844267872e+01_dp, -1.1352258425217249e+01_dp, 1.0507824282448173e+03_dp, &
8276 -3.0034485650910306e+03_dp, 4.2378849656165157e+03_dp, -3.4559382913401400e+03_dp, &
8277 1.3449288846420820e+03_dp, 2.6444208061663255e+02_dp, -4.9877900967018985e+02_dp, &
8278 2.5127991468850134e+01_dp, 2.1767335090020083e+02_dp, -8.6072216194219422e+01_dp, &
8279 -6.0325796108173265e+01_dp, 6.0083116119914528e+01_dp, -1.5156462785073193e+01_dp, &
8280 2.3717539683229165e+03_dp, -7.0993078298523542e+03_dp, 1.0652966496878691e+04_dp, &
8281 -9.6140748259170232e+03_dp, 4.8504224379382586e+03_dp, -4.4395885474091079e+02_dp, &
8282 -9.6288919502292026e+02_dp, 2.5917249174048044e+02_dp, 4.0854133722363883e+02_dp, &
8283 -3.0143744269409973e+02_dp, -4.5418714874973256e+00_dp, 7.5623186578469742e+01_dp, &
8284 -2.3436275595093466e+01_dp, 1.4977112766698923e+00_dp, -4.3677613112273472e-01_dp, &
8285 -1.0626472632002160e-01_dp, 6.0579861136460085e-02_dp, 3.2094769702270376e-02_dp, &
8286 -2.2140138450254837e-02_dp, -1.3621095148298569e-02_dp, 7.9037816732341545e-03_dp, &
8287 1.4423141126330896e-02_dp, -1.6738731357106910e-02_dp, 5.6195012107057513e-03_dp, &
8288 5.0623354758645299e-04_dp, -5.2923485963463817e-04_dp, 1.7217160143503936e+00_dp, &
8289 -6.3675005873485835e-01_dp, -9.4151747966956217e-02_dp, 1.1116729873281835e-01_dp, &
8290 2.8800708837475177e-02_dp, -4.3580539400664406e-02_dp, -1.1821195607030708e-02_dp, &
8291 1.6681071628927815e-02_dp, 1.9836760036767896e-02_dp, -3.4063478523860956e-02_dp, &
8292 1.9103471265017376e-02_dp, -4.3249027191962740e-03_dp, 1.5532200025133099e-04_dp, &
8293 2.2127628736646106e+00_dp, -1.1034935942153976e+00_dp, -4.3577466272544045e-02_dp, &
8294 2.2803871592728966e-01_dp, 1.0104708726025797e-02_dp, -9.3215357617339387e-02_dp, &
8295 -1.8053387009684143e-03_dp, 3.7448006485105621e-02_dp, 2.8302008106949928e-02_dp, &
8296 -7.3968859165537221e-02_dp, 5.3453226207458779e-02_dp, -1.7780936779581476e-02_dp, &
8297 2.2736357196637734e-03_dp, 3.0642372558529560e+00_dp, -1.9876242013174268e+00_dp, &
8298 1.1168757098085445e-01_dp, 4.4279774497587876e-01_dp, -5.4403602466477574e-02_dp, &
8299 -1.8361663846171278e-01_dp, 3.2420048824757658e-02_dp, 7.6305200794048844e-02_dp, &
8300 3.2103644959620231e-02_dp, -1.4486824002301485e-01_dp, 1.2355203927413878e-01_dp, &
8301 -4.8092052541477776e-02_dp, 7.5259001655546970e-03_dp, 4.4383894095260246e+00_dp, &
8302 -3.5679718788094252e+00_dp, 5.1476908985660208e-01_dp, 8.0172648142794001e-01_dp, &
8303 -2.2976447620038551e-01_dp, -3.2956771002295171e-01_dp, 1.2448866609398915e-01_dp/)
8304 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/1.4079316176694362e-01_dp, &
8305 1.0204817722398823e-02_dp, -2.5165636141352937e-01_dp, 2.5091425850523480e-01_dp, &
8306 -1.0907652615992168e-01_dp, 1.8995561214566335e-02_dp, 6.6017064494743369e+00_dp, &
8307 -6.3396206574849705e+00_dp, 1.4645915581906761e+00_dp, 1.3567138102239846e+00_dp, &
8308 -6.4776462885481734e-01_dp, -5.3664210086520570e-01_dp, 3.4037092684481507e-01_dp, &
8309 2.3476223625427250e-01_dp, -8.7556632295100814e-02_dp, -3.7830556673362864e-01_dp, &
8310 4.5738992125084094e-01_dp, -2.2026577794379970e-01_dp, 4.1599788241118318e-02_dp, &
8311 9.9858326732371161e+00_dp, -1.1174218555192047e+01_dp, 3.5747006721239503e+00_dp, &
8312 2.1296809807914152e+00_dp, -1.5636677908078949e+00_dp, -7.6880577851663401e-01_dp, &
8313 8.0089159003032162e-01_dp, 3.4298150442274511e-01_dp, -3.6805510673665137e-01_dp, &
8314 -4.4644114872399454e-01_dp, 7.4222316810942002e-01_dp, -4.0152913150399111e-01_dp, &
8315 8.1829151439933356e-02_dp, 1.5289854701740817e+01_dp, -1.9608078427701756e+01_dp, &
8316 8.0917990845543581e+00_dp, 3.0041832124620726e+00_dp, -3.4494990735255384e+00_dp, &
8317 -8.6609625198945162e-01_dp, 1.7095858524603544e+00_dp, 3.9120562018981797e-01_dp, &
8318 -1.0360932314069153e+00_dp, -2.2758467416281059e-01_dp, 1.0203793428499848e+00_dp, &
8319 -6.5239517137454839e-01_dp, 1.4501295283759075e-01_dp, 2.3652443598918335e+01_dp, &
8320 -3.4362906201199991e+01_dp, 1.7536976813856338e+01_dp, 3.4319229466110013e+00_dp, &
8321 -7.1298251478464278e+00_dp, -3.5204255806543472e-01_dp, 3.3680128935599196e+00_dp, &
8322 1.5319402163742263e-01_dp, -2.4370830597624149e+00_dp, 8.1997373400602092e-01_dp, &
8323 9.8380055990672011e-01_dp, -8.9662392912364008e-01_dp, 2.2625667920011164e-01_dp, &
8324 3.6944557452608692e+01_dp, -6.0295621236170625e+01_dp, 3.7003398215145729e+01_dp, &
8325 1.6834081679861252e+00_dp, -1.3925568490337929e+01_dp, 1.9888475074288903e+00_dp, &
8326 6.1139267076108847e+00_dp, -9.4588148977566311e-01_dp, -5.0444398561656572e+00_dp, &
8327 3.8065719195626566e+00_dp, -1.6831147750489744e-01_dp, -8.5900446249491913e-01_dp, &
8328 2.8780543981072360e-01_dp, 5.8274202677422771e+01_dp, -1.0614856307111749e+02_dp, &
8329 7.6800301489740932e+01_dp, -7.0079594145933406e+00_dp, -2.5617180005330020e+01_dp, &
8330 8.9815644644679367e+00_dp, 9.9914118876838458e+00_dp, -4.1991995337660075e+00_dp, &
8331 -9.2225161080668876e+00_dp, 1.0699436467194234e+01_dp, -4.1744895657292922e+00_dp, &
8332 1.6968874745604984e-01_dp, 2.1150225597430636e-01_dp, 9.2874008697647312e+01_dp, &
8333 -1.8781074240763044e+02_dp, 1.5788030861616468e+02_dp, -3.4972432415418027e+01_dp, &
8334 -4.3527351698049202e+01_dp, 2.6710127846672595e+01_dp, 1.3641876922340176e+01_dp, &
8335 -1.2188594976459228e+01_dp, -1.4352260173596875e+01_dp, 2.4342038573890058e+01_dp, &
8336 -1.4279132767898336e+01_dp, 3.7137073675422725e+00_dp, -2.8757236845263162e-01_dp, &
8337 1.4971128490394287e+02_dp, -3.3447762227306481e+02_dp, 3.2305460093335603e+02_dp, &
8338 -1.1305851039826165e+02_dp, -6.4420176838297635e+01_dp, 6.7169772276610786e+01_dp, &
8339 1.1142459865038420e+01_dp, -2.9260375212110183e+01_dp, -1.6413218989655853e+01_dp, &
8340 4.7209519021715842e+01_dp, -3.5494808693208000e+01_dp, 1.2580735551183873e+01_dp, &
8341 -1.7935944649833950e+00_dp, 2.4458399494694996e+02_dp, -6.0055061871622843e+02_dp, &
8342 6.6027498087928825e+02_dp, -3.1693333009014430e+02_dp, -6.6059668231172040e+01_dp, &
8343 1.5055616810459574e+02_dp, -1.6035040303862690e+01_dp, -6.0205525165442332e+01_dp, &
8344 -2.1832622908315549e+00_dp, 7.5674463602179827e+01_dp, -7.2506243056554936e+01_dp, &
8345 3.0788078901881761e+01_dp, -5.2942708588931886e+00_dp, 4.0681467176552570e+02_dp, &
8346 -1.0899373555775655e+03_dp, 1.3513251866930286e+03_dp, -8.2903784544199414e+02_dp, &
8347 3.8380965916357390e+01_dp, 2.9721645411143447e+02_dp, -1.1594319332969438e+02_dp, &
8348 -9.9972427583413506e+01_dp, 6.1208430774721975e+01_dp, 8.0856974870358002e+01_dp, &
8349 -1.1693883280777918e+02_dp, 5.9389649528398166e+01_dp, -1.1628989395474973e+01_dp, &
8350 6.9722251479747388e+02_dp, -2.0140066190150276e+03_dp, 2.7790283348654434e+03_dp, &
8351 -2.0796098972388722e+03_dp, 5.2869394312949373e+02_dp, 4.6652987556767943e+02_dp, &
8352 -3.8221920854190296e+02_dp, -9.2752399207456079e+01_dp, 2.1910131922818687e+02_dp, &
8353 -2.2923675949907071e+01_dp, -1.1207458200684393e+02_dp, 7.9761888545321156e+01_dp, &
8354 -1.8298506671237661e+01_dp, 1.2744662066142864e+03_dp, -3.8866078972090563e+03_dp, &
8355 5.8310452947172871e+03_dp, -5.0818244125139472e+03_dp, 2.1788811500495763e+03_dp, &
8356 3.4081840675497295e+02_dp, -8.7556575958971519e+02_dp, 1.2965937398586175e+02_dp, &
8357 4.1054055060278523e+02_dp, -2.9796372200111415e+02_dp, 2.6343327262803022e+01_dp, &
8358 5.0424032533223901e+01_dp, -1.7235143944934833e+01_dp, 2.7604064480154507e+03_dp, &
8359 -8.6019432779733779e+03_dp, 1.3474832660141481e+04_dp, -1.2816761276941676e+04_dp, &
8360 7.0149847866566979e+03_dp, -9.9103658229985535e+02_dp, -1.3749290812180745e+03_dp, &
8361 6.2574740788577901e+02_dp, 4.7802482876747689e+02_dp, -5.7305069900934677e+02_dp, &
8362 1.8314783781950712e+02_dp, 1.5464936084215722e+01_dp, -1.5810901025213084e+01_dp, &
8363 1.0274044897416868e+04_dp, -3.1659430536269701e+04_dp, 4.9322572161259443e+04_dp, &
8364 -4.7163561469793902e+04_dp, 2.6891304291869375e+04_dp, -5.7571317404894771e+03_dp, &
8365 -3.0444779122812329e+03_dp, 1.4450586928263419e+03_dp, 1.4829738315237773e+03_dp, &
8366 -1.4849083905506739e+03_dp, 2.8382264810325569e+02_dp, 1.7516211991683696e+02_dp, &
8367 -7.2468749687854157e+01_dp, 2.1318222830584657e-01_dp, -3.3684034054268112e-02_dp, &
8368 -1.0832627512700675e-02_dp, 3.3145187729886286e-03_dp, 2.7275281503664904e-03_dp, &
8369 -9.9837098618575626e-04_dp, -1.0357840754560805e-03_dp, 3.5875531553344507e-04_dp, &
8370 6.0259734691266913e-04_dp, -3.5423446604539031e-04_dp, -1.7556949097338197e-04_dp, &
8371 2.2034591354691384e-04_dp, -6.0116378539179255e-05_dp, 6.8243285676064791e-01_dp, &
8372 -1.2222900203139513e-01_dp, -3.5650354344508521e-02_dp, 1.4124232653500343e-02_dp, &
8373 9.3169904587289860e-03_dp, -4.4428123313210782e-03_dp, -3.5817403682234456e-03_dp, &
8374 1.6213661243337648e-03_dp, 2.2617072347383576e-03_dp, -1.7251617279990248e-03_dp, &
8375 -3.0117239462936477e-04_dp, 6.9071851016345640e-04_dp, -2.0557421403978617e-04_dp, &
8376 1.2918736815826171e+00_dp, -2.8431849514217356e-01_dp, -6.9503682880585616e-02_dp, &
8377 4.0079778234935019e-02_dp, 1.9169899730441080e-02_dp, -1.3254501345108947e-02_dp, &
8378 -7.4879325459152992e-03_dp, 4.9273958248561584e-03_dp, 5.4431528418503244e-03_dp, &
8379 -5.6527461842056205e-03_dp, 6.4400303030163011e-04_dp, 1.1358340960384338e-03_dp, &
8380 -4.1629994324220604e-04_dp, 2.1761841600359864e+00_dp, -6.0602677049954834e-01_dp, &
8381 -1.1600614333211007e-01_dp, 1.0094374685942331e-01_dp, 3.3524435971905575e-02_dp, &
8382 -3.4830286515735560e-02_dp, -1.3217120228077264e-02_dp, 1.3167612202744752e-02_dp, &
8383 1.1658344857093769e-02_dp, -1.6002826381700426e-02_dp, 4.9726471567697389e-03_dp, &
8384 1.0322574937840596e-03_dp, -6.7937956240013083e-04_dp, 3.5436318724159870e+00_dp, &
8385 -1.2448897785654798e+00_dp, -1.7047825329078076e-01_dp, 2.3516821229813373e-01_dp, &
8386 4.9997768154929345e-02_dp, -8.3991468599014865e-02_dp, -1.9461645231788477e-02_dp, &
8387 3.2227076132211548e-02_dp, 2.2927327872461805e-02_dp, -4.0981673652954999e-02_dp, &
8388 1.8645143724385239e-02_dp, -1.4710909163262332e-03_dp, -7.9628203284441701e-04_dp, &
8389 5.7352535342850013e+00_dp, -2.5003246419581067e+00_dp, -2.0277450208455863e-01_dp, &
8390 5.1788148421079194e-01_dp, 5.4494531427097280e-02_dp, -1.9004943455969087e-01_dp, &
8391 -1.9106874087512889e-02_dp, 7.3855738319935568e-02_dp, 4.1005914394026836e-02_dp, &
8392 -9.7462681711003807e-02_dp, 5.6025894780165515e-02_dp, -1.1671638371992546e-02_dp, &
8393 -1.2317531086698035e-05_dp, 9.3283234643961990e+00_dp, -4.9517090926784189e+00_dp, &
8394 -1.1237619085161876e-01_dp, 1.0938292009097146e+00_dp, -3.6578939270913327e-04_dp, &
8395 -4.0903466934184857e-01_dp, 1.1571092173393985e-02_dp, 1.6054688245457299e-01_dp, &
8396 6.3796913867728455e-02_dp, -2.1826491336856391e-01_dp, 1.4979809357033552e-01_dp, &
8397 -4.3231775436116136e-02_dp, 3.9227329925919244e-03_dp, 1.5322921886299406e+01_dp, &
8398 -9.7350236118409814e+00_dp, 3.8501066580685789e-01_dp, 2.2354405913551587e+00_dp, &
8399 -2.5000970304965098e-01_dp, -8.4251562237350353e-01_dp, 1.4017068692381385e-01_dp, &
8400 3.3257684318281500e-01_dp, 7.3319727667607221e-02_dp, -4.6190571472728487e-01_dp, &
8401 3.7010532372901361e-01_dp, -1.2889503527555926e-01_dp, 1.6973488867294845e-02_dp, &
8402 2.5485983352834001e+01_dp, -1.9107468063951504e+01_dp, 2.0402311845689449e+00_dp, &
8403 4.4371579701624126e+00_dp, -1.0529422595840883e+00_dp, -1.6585347909210049e+00_dp, &
8404 5.4410632305326356e-01_dp, 6.5376504315884909e-01_dp, 4.1661500351891439e-04_dp, &
8405 -9.1692979997264157e-01_dp, 8.5690261662255818e-01_dp, -3.4197738694486834e-01_dp, &
8406 5.3687965659661094e-02_dp, 4.2999540010684285e+01_dp, -3.7622665990809367e+01_dp, &
8407 6.7752865496365642e+00_dp, 8.5406611669389410e+00_dp, -3.3166201661466737e+00_dp, &
8408 -3.0842874201654951e+00_dp, 1.6635414194652112e+00_dp, 1.1980859949014355e+00_dp, &
8409 -3.7016765925282619e-01_dp, -1.6659214344665423e+00_dp, 1.8593601546633085e+00_dp, &
8410 -8.3381793576913044e-01_dp, 1.4684476667934723e-01_dp, 7.3709904847928598e+01_dp, &
8411 -7.4630438320318333e+01_dp, 1.9452643501026422e+01_dp, 1.5793696701925368e+01_dp, &
8412 -9.2675373118737916e+00_dp, -5.2467842188148071e+00_dp, 4.5372916469923439e+00_dp, &
8413 1.9496492078416041e+00_dp, -1.6349099319243841e+00_dp, -2.5906847912536093e+00_dp, &
8414 3.7265500877505593e+00_dp, -1.8799923390423963e+00_dp, 3.6327549283233479e-01_dp, &
8415 1.2859438624321660e+02_dp, -1.4972520267351325e+02_dp, 5.2383826750269051e+01_dp, &
8416 2.7367488598061911e+01_dp, -2.4219671211959398e+01_dp, -7.4290230400283290e+00_dp, &
8417 1.1475384287478459e+01_dp, 2.3922423306082199e+00_dp, -5.2921831798037999e+00_dp, &
8418 -2.6730364381610836e+00_dp, 6.6169572702353063e+00_dp, -3.8645306885918953e+00_dp, &
8419 8.1818488592343996e-01_dp, 2.2876608607133824e+02_dp, -3.0495185259837291e+02_dp, &
8420 1.3706237077883176e+02_dp, 4.1439813867536394e+01_dp, -6.0428830848804978e+01_dp, &
8421 -5.3399496761646414e+00_dp, 2.7145380315073801e+01_dp, 1.0963663429032429e-01_dp, &
8422 -1.4667285308366607e+01_dp, 2.0716234645629714e+00_dp, 9.1721609250763034e+00_dp, &
8423 -6.9025941825134423e+00_dp, 1.6398955739095382e+00_dp, 4.1594691714391070e+02_dp, &
8424 -6.3301093600335355e+02_dp, 3.5553694173797044e+02_dp, 4.0753399602504416e+01_dp, &
8425 -1.4452338056841705e+02_dp, 1.7908795314096562e+01_dp, 5.9142120003589028e+01_dp, &
8426 -1.3457064524764537e+01_dp, -3.5600526788255479e+01_dp, 2.3692561370282714e+01_dp, &
8427 4.1369265076592301e+00_dp, -9.1363336250763520e+00_dp, 2.7024750645260252e+00_dp, &
8428 7.7521438841071472e+02_dp, -1.3447541987663474e+03_dp, 9.2710345217552867e+02_dp, &
8429 -5.5662691197356949e+01_dp, -3.2666994854804346e+02_dp, 1.1949426674679283e+02_dp, &
8430 1.1148985958051878e+02_dp, -6.4189392858052045e+01_dp, -7.2080786102618873e+01_dp, &
8431 9.1605160930916881e+01_dp, -3.3190298346214078e+01_dp, -1.1968423393425880e+00_dp, &
8432 2.5799094822024733e+00_dp, 1.4870387159310956e+03_dp, -2.9373961910368489e+03_dp, &
8433 2.4568455127217608e+03_dp, -5.7572036132261246e+02_dp, -6.5915764219002381e+02_dp, &
8434 4.7301818737714882e+02_dp, 1.3863635256023798e+02_dp, -2.1631236718932931e+02_dp, &
8435 -9.4803921196274686e+01_dp, 2.5426811844807858e+02_dp, -1.6576110763951490e+02_dp, &
8436 4.7407189814529652e+01_dp, -4.5099294020295337e+00_dp, 2.9586882462973167e+03_dp, &
8437 -6.6390589153338169e+03_dp, 6.6755402509804217e+03_dp, -2.7894432451376142e+03_dp/)
8438 REAL(kind=dp), DIMENSION(400), PARAMETER :: c04 = (/-9.1855299569510419e+02_dp, &
8439 1.5086598025400613e+03_dp, -1.6982251398122094e+02_dp, -5.5006675710728985e+02_dp, &
8440 8.6766882152744344e+01_dp, 4.7256010495026828e+02_dp, -4.6889366551390941e+02_dp, &
8441 1.9581559031410015e+02_dp, -3.2716661828879559e+01_dp, 6.2548032409521911e+03_dp, &
8442 -1.5788950870448605e+04_dp, 1.8797183431156966e+04_dp, -1.1500723521848280e+04_dp, &
8443 1.1311068823604562e+03_dp, 3.5696653498968658e+03_dp, -1.9548307992473563e+03_dp, &
8444 -6.5409377594636578e+02_dp, 8.8415097294428301e+02_dp, 2.0828579656796524e+02_dp, &
8445 -6.8559158021726762e+02_dp, 3.9487798673853291e+02_dp, -8.1813494801799735e+01_dp, &
8446 1.5900659171374931e+04_dp, -4.3865264886054203e+04_dp, 5.9368981473015963e+04_dp, &
8447 -4.6496642597520760e+04_dp, 1.7576030674673242e+04_dp, 3.1090094533818497e+03_dp, &
8448 -6.2551252886095626e+03_dp, 1.0254795734419797e+03_dp, 1.7700143703154242e+03_dp, &
8449 -6.9300411007170703e+02_dp, -5.9600061313823699e+02_dp, 5.5645136364522648e+02_dp, &
8450 -1.3789134413973542e+02_dp, 1.7333022186632598e+00_dp, -2.8295145016009599e-01_dp, &
8451 -8.8783345881969303e-02_dp, 2.9137501520617400e-02_dp, 2.2582343344786884e-02_dp, &
8452 -8.8870496740718532e-03_dp, -8.6050069441200982e-03_dp, 3.2075742114612876e-03_dp, &
8453 5.1124562607267323e-03_dp, -3.2396586093912825e-03_dp, -1.2782830098815570e-03_dp, &
8454 1.7892266110778137e-03_dp, -4.9828059483079956e-04_dp, 2.0839177842079417e+00_dp, &
8455 -4.5883342975975994e-01_dp, -1.1377653794136394e-01_dp, 6.4262118792829045e-02_dp, &
8456 3.1589922005670561e-02_dp, -2.1128047919275923e-02_dp, -1.2370808453459683e-02_dp, &
8457 7.8307499965700952e-03_dp, 8.8525819512241723e-03_dp, -8.9036430575215944e-03_dp, &
8458 7.7278653207137722e-04_dp, 1.9574113869564288e-03_dp, -6.9432538273257499e-04_dp, &
8459 2.8790965126363099e+00_dp, -8.9291494000038507e-01_dp, -1.5980217852948253e-01_dp, &
8460 1.5593871145279911e-01_dp, 4.8212590796327996e-02_dp, -5.4049164283410382e-02_dp, &
8461 -1.9262868395269681e-02_dp, 2.0444212857397715e-02_dp, 1.7597567867215835e-02_dp, &
8462 -2.4946097804552481e-02_dp, 8.1983007050586126e-03_dp, 1.3052693431584528e-03_dp, &
8463 -9.9046233632061080e-04_dp, 4.3304768482591722e+00_dp, -1.7813853808128957e+00_dp, &
8464 -2.1010494972641455e-01_dp, 3.5547178388532347e-01_dp, 6.5506905553492881e-02_dp, &
8465 -1.2798724844398165e-01_dp, -2.5933808745545982e-02_dp, 4.9217194247932812e-02_dp, &
8466 3.3506489973277181e-02_dp, -6.3047933152743540e-02_dp, 3.0110932740404765e-02_dp, &
8467 -3.2402195006371740e-03_dp, -1.0036785562597503e-03_dp, 6.8299081160337032e+00_dp, &
8468 -3.5205397689128302e+00_dp, -2.0822929848963964e-01_dp, 7.6631150098260470e-01_dp, &
8469 5.8155387220312556e-02_dp, -2.8404749249030603e-01_dp, -1.9917085295170896e-02_dp, &
8470 1.1077158299302442e-01_dp, 5.8009365155884812e-02_dp, -1.4754924485395102e-01_dp, &
8471 8.8224148397498189e-02_dp, -2.0017588821696984e-02_dp, 5.1524515103809545e-04_dp, &
8472 1.1076132539365005e+01_dp, -6.8920385138882194e+00_dp, 1.0149059418049949e-02_dp, &
8473 1.5881453532787797e+00_dp, -5.0514917369298917e-02_dp, -6.0049701223304608e-01_dp, &
8474 3.6944486690867563e-02_dp, 2.3676450668964813e-01_dp, 8.5900161567404182e-02_dp, &
8475 -3.2547794450289452e-01_dp, 2.3138356568902774e-01_dp, -7.0029009427246630e-02_dp, &
8476 7.1213088371686710e-03_dp, 1.8313497271878418e+01_dp, -1.3441485775194154e+01_dp, &
8477 8.8580011501243916e-01_dp, 3.1948031252200022e+00_dp, -4.7058826034590084e-01_dp, &
8478 -1.2174961672232065e+00_dp, 2.4957240968045155e-01_dp, 4.8310590222314870e-01_dp, &
8479 8.6483956963456024e-02_dp, -6.7940646376194236e-01_dp, 5.6338924998429407e-01_dp, &
8480 -2.0291123162723659e-01_dp, 2.8032368883630622e-02_dp, 3.0780617013122821e+01_dp, &
8481 -2.6257569697681561e+01_dp, 3.5521591798072638e+00_dp, 6.2587792976548826e+00_dp, &
8482 -1.7460143870796279e+00_dp, -2.3619614892636438e+00_dp, 8.8818001701109950e-01_dp, &
8483 9.3606848206238136e-01_dp, -5.0794860926712801e-02_dp, -1.3302240326510510e+00_dp, &
8484 1.2893794094134079e+00_dp, -5.2876901741570692e-01_dp, 8.5451865781826092e-02_dp, &
8485 5.2567287396157639e+01_dp, -5.1604816743560406e+01_dp, 1.0866611400666184e+01_dp, &
8486 1.1908868775950642e+01_dp, -5.2359341711279104e+00_dp, -4.3250063052196532e+00_dp, &
8487 2.6159067633220250e+00_dp, 1.6876932949921251e+00_dp, -6.6168203286073823e-01_dp, &
8488 -2.3751835992262973e+00_dp, 2.7700021611620960e+00_dp, -1.2732445592684205e+00_dp, &
8489 2.2902755062897792e-01_dp, 9.1285593514466271e+01_dp, -1.0241866626620062e+02_dp, &
8490 2.9991030801919234e+01_dp, 2.1769589255916912e+01_dp, -1.4249979282246676e+01_dp, &
8491 -7.2044673782332227e+00_dp, 6.9889285697343118e+00_dp, 2.6782377021603785e+00_dp, &
8492 -2.6677863139577163e+00_dp, -3.5770528758936435e+00_dp, 5.4957103661007007e+00_dp, &
8493 -2.8440183689455196e+00_dp, 5.5949615778311945e-01_dp, 1.6140675350929016e+02_dp, &
8494 -2.0596934838864317e+02_dp, 7.8952124827283598e+01_dp, 3.7178752267348052e+01_dp, &
8495 -3.6659944916518448e+01_dp, -9.7656735399369428e+00_dp, 1.7464710569932944e+01_dp, &
8496 3.0679469902932719e+00_dp, -8.3851627852850044e+00_dp, -3.2636862826796440e+00_dp, &
8497 9.6185791182519313e+00_dp, -5.7987749350325295e+00_dp, 1.2497007872223715e+00_dp, &
8498 2.9110313668489431e+02_dp, -4.2112906631689452e+02_dp, 2.0368167006668779e+02_dp, &
8499 5.4837106594561327e+01_dp, -9.0638707836013396e+01_dp, -5.3325509510817621e+00_dp, &
8500 4.1073827539931052e+01_dp, -8.9364940761646350e-01_dp, -2.3013798898787297e+01_dp, &
8501 4.9430590435737045e+00_dp, 1.2851186457902051e+01_dp, -1.0246075994503601e+01_dp, &
8502 2.4884401830064262e+00_dp, 5.3670606902267980e+02_dp, -8.7847920003528930e+02_dp, &
8503 5.2349235503272166e+02_dp, 4.8749806265367148e+01_dp, -2.1602127708232794e+02_dp, &
8504 3.1729321388441790e+01_dp, 8.9567868142842315e+01_dp, -2.2390677578649012e+01_dp, &
8505 -5.6017285780368070e+01_dp, 4.0387845593738454e+01_dp, 3.4667266516341293e+00_dp, &
8506 -1.3141255438243856e+01_dp, 4.0592288247989385e+00_dp, 1.0143591938132444e+03_dp, &
8507 -1.8766993856001438e+03_dp, 1.3564571841587124e+03_dp, -9.8696563163335753e+01_dp, &
8508 -4.9033312510266632e+02_dp, 1.8780383859095875e+02_dp, 1.7118665610355563e+02_dp, &
8509 -1.0185617481240935e+02_dp, -1.1558713439161205e+02_dp, 1.5151598909811219e+02_dp, &
8510 -5.8664397974976858e+01_dp, 6.3267833198642698e-01_dp, 3.6766915824367761e+00_dp, &
8511 1.9726076865000123e+03_dp, -4.1232818836429924e+03_dp, 3.5781197436471589e+03_dp, &
8512 -8.5509074775503893e+02_dp, -1.0123738678655812e+03_dp, 7.2969707150714839e+02_dp, &
8513 2.2828683121334075e+02_dp, -3.4563856543415034e+02_dp, -1.6400405779415590e+02_dp, &
8514 4.2769450363111764e+02_dp, -2.8094753019966493e+02_dp, 8.1695817906598137e+01_dp, &
8515 -8.0867822790318300e+00_dp, 3.9722127523258755e+03_dp, -9.3649615551361039e+03_dp, &
8516 9.6872702091042847e+03_dp, -4.0152449268719452e+03_dp, -1.5781648063622556e+03_dp, &
8517 2.3817881583693224e+03_dp, -1.7512622509953385e+02_dp, -9.4466208919082828e+02_dp, &
8518 8.8832120896167638e+01_dp, 8.8054897643088452e+02_dp, -8.4980315712561492e+02_dp, &
8519 3.5239533036204887e+02_dp, -5.8700991234149221e+01_dp, 8.4183972987919678e+03_dp, &
8520 -2.2200192543210582e+04_dp, 2.7095512964836042e+04_dp, -1.6398496436394067e+04_dp, &
8521 5.8588432027345868e+02_dp, 6.3339571905285420e+03_dp, -3.0333212281281785e+03_dp, &
8522 -1.5835275583468535e+03_dp, 1.7348972889932504e+03_dp, 5.0425398982402010e+02_dp, &
8523 -1.4466434445749767e+03_dp, 8.3093046218870779e+02_dp, -1.7343507171721367e+02_dp, &
8524 2.0025459522044373e+04_dp, -5.7346919835612738e+04_dp, 7.9917525300310852e+04_dp, &
8525 -6.3405260767018226e+04_dp, 2.2238895649329628e+04_dp, 8.4397777042427315e+03_dp, &
8526 -1.2412923298499947e+04_dp, 2.2353310629429734e+03_dp, 4.1643117321199643e+03_dp, &
8527 -2.9557407553812504e+03_dp, 1.6207931060663054e+02_dp, 5.4977314747273965e+02_dp, &
8528 -1.7928307380491745e+02_dp, 7.4440121917214812e+04_dp, -2.1677815388585156e+05_dp, &
8529 3.1577001931789052e+05_dp, -2.7930028207177343e+05_dp, 1.4320805176019639e+05_dp, &
8530 -2.1245008317147029e+04_dp, -2.1554991554281445e+04_dp, 9.9376537143063269e+03_dp, &
8531 4.6744532080188510e+03_dp, -4.2905179066964693e+03_dp, -5.3149376874680104e+02_dp, &
8532 1.4881154495908686e+03_dp, -4.3984467711458336e+02_dp, 2.3404090378356895e-01_dp, &
8533 -2.0097322397469076e-02_dp, -1.1609180582537834e-02_dp, 1.8601938852069603e-03_dp, &
8534 3.4063516337523563e-03_dp, -2.5328555239247899e-04_dp, -2.1526388476503741e-03_dp, &
8535 2.6541196853022917e-04_dp, 1.8337856370389378e-03_dp, -1.4007221924521144e-03_dp, &
8536 1.1370777613700699e-04_dp, 2.7147984801578659e-04_dp, -9.3281631667276296e-05_dp, &
8537 7.5958720353542519e-01_dp, -7.5810202725780582e-02_dp, -4.2313502138352527e-02_dp, &
8538 8.6657522638846456e-03_dp, 1.2968885710289797e-02_dp, -1.6608526759463512e-03_dp, &
8539 -8.2851212755105860e-03_dp, 1.2914133195331631e-03_dp, 7.4052964778980055e-03_dp, &
8540 -6.1849568325369995e-03_dp, 1.0315421017034565e-03_dp, 8.3158039993379697e-04_dp, &
8541 -3.2797209696527126e-04_dp, 1.4768419304919898e+00_dp, -1.8729413362838598e-01_dp, &
8542 -9.8945335892159453e-02_dp, 2.7515284560837457e-02_dp, 3.2275791153780403e-02_dp, &
8543 -6.8395663023995482e-03_dp, -2.0986896600458896e-02_dp, 4.3486105991930634e-03_dp, &
8544 2.0127441003510580e-02_dp, -1.8849674488696535e-02_dp, 5.0191511478448469e-03_dp, &
8545 1.2331926287606307e-03_dp, -7.0207519810811295e-04_dp, 2.5840964671288975e+00_dp, &
8546 -4.2690659349976090e-01_dp, -2.1145308910161936e-01_dp, 7.7555603458720743e-02_dp, &
8547 7.3310657354651587e-02_dp, -2.2709496661448086e-02_dp, -4.8700826546977563e-02_dp, &
8548 1.3059501608799757e-02_dp, 5.0389115213805714e-02_dp, -5.2544419268517009e-02_dp, &
8549 1.8412947257736761e-02_dp, 3.6589716526811415e-04_dp, -1.2543984993995988e-03_dp, &
8550 4.4117567910870852e+00_dp, -9.3963835482824520e-01_dp, -4.3338088445410117e-01_dp, &
8551 2.0292403047377275e-01_dp, 1.5835719985334940e-01_dp, -6.6721718153669785e-02_dp, &
8552 -1.0781515206665805e-01_dp, 3.6564985747604667e-02_dp, 1.2068898656418255e-01_dp, &
8553 -1.3900826230358432e-01_dp, 5.8565521670857705e-02_dp, -5.8908104279455217e-03_dp, &
8554 -1.7476722084679196e-03_dp, 7.5445309724776202e+00_dp, -2.0272400898868317e+00_dp, &
8555 -8.6251312311759643e-01_dp, 5.0671870987293466e-01_dp, 3.2885263809384618e-01_dp, &
8556 -1.8271408651872414e-01_dp, -2.3038824323149212e-01_dp, 9.8194271811996164e-02_dp, &
8557 2.8055474423540522e-01_dp, -3.5598861752761291e-01_dp, 1.7250528507673124e-01_dp, &
8558 -3.0809943938599049e-02_dp, -8.6747384125205782e-04_dp, 1.3055861531649315e+01_dp, &
8559 -4.3314881266793979e+00_dp, -1.6761083589215517e+00_dp, 1.2312731236949950e+00_dp, &
8560 6.5894439998792775e-01_dp, -4.8036396219622884e-01_dp, -4.7776938854359963e-01_dp, &
8561 2.5796491007239708e-01_dp, 6.3870537313146425e-01_dp, -8.9484473757249905e-01_dp, &
8562 4.8676186523295428e-01_dp, -1.1467909217180164e-01_dp, 6.3856877573706490e-03_dp, &
8563 2.2973813103234260e+01_dp, -9.2447576119387715e+00_dp, -3.1862366340950352e+00_dp, &
8564 2.9511614190933089e+00_dp, 1.2698033917738343e+00_dp, -1.2342653176010880e+00_dp, &
8565 -9.6141838186275863e-01_dp, 6.7220233082876679e-01_dp, 1.4302140919443622e+00_dp, &
8566 -2.2279767372545760e+00_dp, 1.3410180260314670e+00_dp, -3.7636626450613619e-01_dp, &
8567 3.6869243870961514e-02_dp, 4.1235933833121898e+01_dp, -1.9856535292982361e+01_dp, &
8568 -5.9070868285783193e+00_dp, 7.0462234223485760e+00_dp, 2.3163307108458544e+00_dp, &
8569 -3.1353286429629565e+00_dp, -1.8613396596490337e+00_dp, 1.7553943424387961e+00_dp, &
8570 3.1455571650317942e+00_dp, -5.5222826187397756e+00_dp, 3.6478129213769028e+00_dp, &
8571 -1.1619081276403027e+00_dp, 1.4446834803157857e-01_dp, 7.5710886366993023e+01_dp/)
8572 REAL(kind=dp), DIMENSION(400), PARAMETER :: c05 = (/-4.3207068963149325e+01_dp, &
8573 -1.0554104925448858e+01_dp, 1.6886407464491334e+01_dp, 3.8180534827516577e+00_dp, &
8574 -7.9351781128404237e+00_dp, -3.3784899123822600e+00_dp, 4.6319521704833901e+00_dp, &
8575 6.7239240450100590e+00_dp, -1.3642372104076109e+01_dp, 9.8589344031369794e+00_dp, &
8576 -3.4720965735924705e+00_dp, 4.9693345251046339e-01_dp, 1.4263572197170834e+02_dp, &
8577 -9.5857301698247568e+01_dp, -1.7588925878417403e+01_dp, 4.0872193751092674e+01_dp, &
8578 4.8184722668567055e+00_dp, -2.0108942400948376e+01_dp, -5.3282163675227920e+00_dp, &
8579 1.2435599975018286e+01_dp, 1.3556226217519358e+01_dp, -3.3461490386803618e+01_dp, &
8580 2.6523447839347572e+01_dp, -1.0184357103374717e+01_dp, 1.6085526053328969e+00_dp, &
8581 2.7676317157922375e+02_dp, -2.1826938584162323e+02_dp, -2.4695849258246266e+01_dp, &
8582 1.0043798763217026e+02_dp, -1.3947867483132029e-01_dp, -5.1127927754529111e+01_dp, &
8583 -5.1560469151207808e+00_dp, 3.4156690568543311e+01_dp, 2.3554036850825067e+01_dp, &
8584 -8.0434522638194011e+01_dp, 7.0744011691971110e+01_dp, -2.9459728084185446e+01_dp, &
8585 5.0323051191546622e+00_dp, 5.5569710557487417e+02_dp, -5.1390329950924320e+02_dp, &
8586 -1.5624537990859787e+01_dp, 2.5163004909295555e+02_dp, -3.5139741515483045e+01_dp, &
8587 -1.3006473245475482e+02_dp, 1.0550946938596450e+01_dp, 9.6255888915734857e+01_dp, &
8588 2.2051927486829232e+01_dp, -1.8305163287186298e+02_dp, 1.8429047593569263e+02_dp, &
8589 -8.3575794890910672e+01_dp, 1.5320836610304321e+01_dp, 1.1616226247615350e+03_dp, &
8590 -1.2623095596855940e+03_dp, 8.6933886681923610e+01_dp, 6.4414090263090793e+02_dp, &
8591 -1.9978982244793221e+02_dp, -3.2660522885185867e+02_dp, 1.0098963434615148e+02_dp, &
8592 2.7721445435633876e+02_dp, -8.9111509314974313e+01_dp, -3.5498277231331673e+02_dp, &
8593 4.4957236371547003e+02_dp, -2.2695337686830618e+02_dp, 4.4827771222570036e+01_dp, &
8594 2.5488397812481312e+03_dp, -3.2720196575275063e+03_dp, 6.2514938447284021e+02_dp, &
8595 1.6797717015255266e+03_dp, -9.0609391756137052e+02_dp, -7.7376478784489177e+02_dp, &
8596 5.1365112699708175e+02_dp, 7.9705181518637903e+02_dp, -8.1808800039951734e+02_dp, &
8597 -3.1602106846125673e+02_dp, 8.9474824450035931e+02_dp, -5.4669103099058145e+02_dp, &
8598 1.1970060288606828e+02_dp, 5.9381087032667047e+03_dp, -9.0911589870974240e+03_dp, &
8599 3.1519440108030135e+03_dp, 4.3742938194787512e+03_dp, -3.9151712191612141e+03_dp, &
8600 -1.4306765495221396e+03_dp, 2.2531425467709741e+03_dp, 2.0894645666101583e+03_dp, &
8601 -4.4544178967310481e+03_dp, 2.2383591529298183e+03_dp, 4.4379030282863710e+02_dp, &
8602 -8.3686062012151353e+02_dp, 2.3941035244133383e+02_dp, 1.4941870061839112e+04_dp, &
8603 -2.7698725637069860e+04_dp, 1.5368590597048256e+04_dp, 1.0343886022762168e+04_dp, &
8604 -1.7085228275250280e+04_dp, 1.0290154787655192e+03_dp, 8.9420986845818061e+03_dp, &
8605 2.9316545272252147e+03_dp, -1.8997312206692230e+04_dp, 1.9823842525145723e+04_dp, &
8606 -9.7693564885756969e+03_dp, 2.1647867710169985e+03_dp, -1.0378839433368972e+02_dp, &
8607 4.1812142330903938e+04_dp, -9.5876465655889318e+04_dp, 8.1756920297039134e+04_dp, &
8608 7.9039564977741147e+03_dp, -7.3842379280105539e+04_dp, 4.4204923551467022e+04_dp, &
8609 2.1730397459397547e+04_dp, -2.3137741549322684e+04_dp, -3.9615691029120862e+04_dp, &
8610 8.2843892021041815e+04_dp, -6.6187145198822764e+04_dp, 2.6773721003469775e+04_dp, &
8611 -4.5704387359470866e+03_dp, 1.4201349500169407e+05_dp, -4.0614829221312096e+05_dp, &
8612 5.2070095300974668e+05_dp, -2.7373429328130849e+05_dp, -1.5922589262630625e+05_dp, &
8613 3.8367646454422048e+05_dp, -2.5932110490762870e+05_dp, 2.5826860555147938e+04_dp, &
8614 5.5653603356457446e+04_dp, 3.5258106303212062e+03_dp, -4.9963042898806314e+04_dp, &
8615 3.4015110532782375e+04_dp, -7.7664796273009124e+03_dp, 1.9093974668075968e+00_dp, &
8616 -1.7054400904209266e-01_dp, -9.7641580671686004e-02_dp, 1.6766255796770199e-02_dp, &
8617 2.8988444707523806e-02_dp, -2.5620769652305881e-03_dp, -1.8370205087387178e-02_dp, &
8618 2.4203819467354571e-03_dp, 1.5850000696904308e-02_dp, -1.2409755539837933e-02_dp, &
8619 1.3104701010835478e-03_dp, 2.1950558162222062e-03_dp, -7.7840696413045292e-04_dp, &
8620 2.3816405893090655e+00_dp, -3.0058399408021230e-01_dp, -1.5977869438048026e-01_dp, &
8621 4.3205664883079593e-02_dp, 5.1954260872828326e-02_dp, -1.0435767802951716e-02_dp, &
8622 -3.3687805923760396e-02_dp, 6.7210749032354392e-03_dp, 3.1994491176302167e-02_dp, &
8623 -2.9480232130482186e-02_dp, 7.4474480162902649e-03_dp, 2.2084644917421768e-03_dp, &
8624 -1.1620522957490494e-03_dp, 3.4843292108184070e+00_dp, -6.3704889535412579e-01_dp, &
8625 -3.1247856056891354e-01_dp, 1.1946809479052665e-01_dp, 1.1015354223955937e-01_dp, &
8626 -3.5224341675936091e-02_dp, -7.3289581156592246e-02_dp, 1.9950208126348418e-02_dp, &
8627 7.6285287328668447e-02_dp, -7.9932304695661163e-02_dp, 2.8268292772225596e-02_dp, &
8628 3.8090423507330300e-04_dp, -1.8684578732096576e-03_dp, 5.5863369323075549e+00_dp, &
8629 -1.3713721433368866e+00_dp, -6.2196190605453838e-01_dp, 3.0824039077130033e-01_dp, &
8630 2.3240679161688174e-01_dp, -1.0242926268918769e-01_dp, -1.5885664856881426e-01_dp, &
8631 5.5322292014197520e-02_dp, 1.7989426377403095e-01_dp, -2.0915679370975637e-01_dp, &
8632 8.9364744914267866e-02_dp, -9.7174197412381834e-03_dp, -2.4358156829036412e-03_dp, &
8633 9.4101499417614978e+00_dp, -2.9205066473747960e+00_dp, -1.2163674262839712e+00_dp, &
8634 7.5863769149748450e-01_dp, 4.7467102033224490e-01_dp, -2.7655989190772234e-01_dp, &
8635 -3.3454490509347323e-01_dp, 1.4696126355412018e-01_dp, 4.1354189925528473e-01_dp, &
8636 -5.3037498985122311e-01_dp, 2.6031262682300332e-01_dp, -4.8168408431760540e-02_dp, &
8637 -7.7871669409946837e-04_dp, 1.6338815605587858e+01_dp, -6.1833514746412481e+00_dp, &
8638 -2.3311621003398191e+00_dp, 1.8217844419225089e+00_dp, 9.3758726271025805e-01_dp, &
8639 -7.1865224719975085e-01_dp, -6.8550844653228826e-01_dp, 3.8262747601717012e-01_dp, &
8640 9.3366571673349752e-01_dp, -1.3231064225590690e+00_dp, 7.2780109182395636e-01_dp, &
8641 -1.7510717849303473e-01_dp, 1.0697404777480228e-02_dp, 2.9045107955015176e+01_dp, &
8642 -1.3122115286638619e+01_dp, -4.3806637776150632e+00_dp, 4.3296889561695737e+00_dp, &
8643 1.7839258348899563e+00_dp, -1.8308198205695498e+00_dp, -1.3662114443942674e+00_dp, &
8644 9.9043960784398033e-01_dp, 2.0798949625159446e+00_dp, -3.2780668652253730e+00_dp, &
8645 1.9918330621946101e+00_dp, -5.6663166075695159e-01_dp, 5.7158452667943484e-02_dp, &
8646 5.2800048392041845e+01_dp, -2.8109720042733336e+01_dp, -8.0405851706326441e+00_dp, &
8647 1.0279577923775973e+01_dp, 3.2138452521312746e+00_dp, -4.6231746304589763e+00_dp, &
8648 -2.6241582510606816e+00_dp, 2.5740075419555373e+00_dp, 4.5650980871610862e+00_dp, &
8649 -8.1046297603881445e+00_dp, 5.3943552024246850e+00_dp, -1.7331884894412846e+00_dp, &
8650 2.1832820004259532e-01_dp, 9.8274043380510179e+01_dp, -6.1150381159704402e+01_dp, &
8651 -1.4222299310017810e+01_dp, 2.4549816525007763e+01_dp, 5.2132243676002723e+00_dp, &
8652 -1.1655504278147887e+01_dp, -4.7278213600031389e+00_dp, 6.7676550797734309e+00_dp, &
8653 9.7732086339422466e+00_dp, -2.0017061889583658e+01_dp, 1.4544370076050541e+01_dp, &
8654 -5.1483846630015107e+00_dp, 7.4121547100618823e-01_dp, 1.8774247624315791e+02_dp, &
8655 -1.3585965292035331e+02_dp, -2.3384417210458281e+01_dp, 5.9307322699677300e+01_dp, &
8656 6.3425555998420622e+00_dp, -2.9474617795317286e+01_dp, -7.3842765889098940e+00_dp, &
8657 1.8118043634237178e+01_dp, 1.9851466755132208e+01_dp, -4.9221535131083812e+01_dp, &
8658 3.9121944733752876e+01_dp, -1.5053605862917172e+01_dp, 2.3820642460959474e+00_dp, &
8659 3.6938617681120809e+02_dp, -3.1008390641542189e+02_dp, -3.1908899493735571e+01_dp, &
8660 1.4562271786149682e+02_dp, -1.2559633861124211e+00_dp, -7.4923876238492468e+01_dp, &
8661 -6.9384384355100055e+00_dp, 4.9653981256260799e+01_dp, 3.5331302879921083e+01_dp, &
8662 -1.1918108482817887e+02_dp, 1.0467883559485558e+02_dp, -4.3551657522660385e+01_dp, &
8663 7.4318254787716498e+00_dp, 7.5178053722265770e+02_dp, -7.3185923065526492e+02_dp, &
8664 -1.6464637400435404e+01_dp, 3.6485923276725026e+02_dp, -5.1587363386350894e+01_dp, &
8665 -1.9111170221147160e+02_dp, 1.5490715798392426e+01_dp, 1.3978292003195943e+02_dp, &
8666 3.8110337744866719e+01_dp, -2.7620328681571948e+02_dp, 2.7537298325765300e+02_dp, &
8667 -1.2425623890169337e+02_dp, 2.2689284891309541e+01_dp, 1.5916154447623735e+03_dp, &
8668 -1.8003650102566801e+03_dp, 1.3061885225064071e+02_dp, 9.3513854431018569e+02_dp, &
8669 -2.8305798212942278e+02_dp, -4.8432743152230262e+02_dp, 1.4241629292606842e+02_dp, &
8670 4.0370510754094880e+02_dp, -9.9685940038875515e+01_dp, -5.6492023569870310e+02_dp, &
8671 6.8962159878288605e+02_dp, -3.4344985934760621e+02_dp, 6.7268170706916536e+01_dp, &
8672 3.5313329066420033e+03_dp, -4.6623582136066398e+03_dp, 8.7352686043406538e+02_dp, &
8673 2.4489787138449915e+03_dp, -1.2584736353041660e+03_dp, -1.1810855855446016e+03_dp, &
8674 7.1672145189107039e+02_dp, 1.1795141993550299e+03_dp, -1.0569593213292389e+03_dp, &
8675 -7.0128668015997494e+02_dp, 1.4914938794172158e+03_dp, -8.7124256006302119e+02_dp, &
8676 1.8684842614746950e+02_dp, 8.2940863893933129e+03_dp, -1.2880093011243731e+04_dp, &
8677 4.2495122306124758e+03_dp, 6.4758081698510341e+03_dp, -5.3383669126949280e+03_dp, &
8678 -2.4685864914850517e+03_dp, 3.1413524828014874e+03_dp, 3.3033312228152809e+03_dp, &
8679 -6.0335109923486816e+03_dp, 2.1284718544868892e+03_dp, 1.6537769702474902e+03_dp, &
8680 -1.6613883929668332e+03_dp, 4.2939992860686181e+02_dp, 2.0920103579440787e+04_dp, &
8681 -3.8669758427570443e+04_dp, 1.9866909734865130e+04_dp, 1.6420139899251604e+04_dp, &
8682 -2.2915184173335136e+04_dp, -1.5997192354548479e+03_dp, 1.2941589682976841e+04_dp, &
8683 7.0023617449621897e+03_dp, -2.8057100680185933e+04_dp, 2.5033445993726258e+04_dp, &
8684 -9.5663441270494550e+03_dp, 7.6757608917678635e+02_dp, 3.3218276502429876e+02_dp, &
8685 5.7934335499806577e+04_dp, -1.2968557309336646e+05_dp, 9.9056954372674198e+04_dp, &
8686 2.9476068192368246e+04_dp, -1.0138652618742791e+05_dp, 3.6368515099655910e+04_dp, &
8687 4.6073637136932237e+04_dp, -1.0492843328428793e+04_dp, -9.7848110148587089e+04_dp, &
8688 1.4355967431747538e+05_dp, -9.7281253297314208e+04_dp, 3.4312801274826343e+04_dp, &
8689 -5.1027940556969679e+03_dp, 1.8382562965656386e+05_dp, -5.0724133133864752e+05_dp, &
8690 5.7124379095245234e+05_dp, -1.3430281607756464e+05_dp, -4.1104787472683209e+05_dp, &
8691 4.5698302097076108e+05_dp, -1.4772171067732785e+04_dp, -2.9013984608709166e+05_dp, &
8692 9.7841936518310904e+04_dp, 2.5630153474370242e+05_dp, -3.3461736758467171e+05_dp, &
8693 1.7210001134766926e+05_dp, -3.4775431355638953e+04_dp, 8.0851544458545872e+05_dp, &
8694 -2.6363345449983794e+06_dp, 4.1361998354174164e+06_dp, -3.5121162276064917e+06_dp, &
8695 7.0893150895957707e+05_dp, 2.2570973383430163e+06_dp, -3.4154205506155374e+06_dp, &
8696 2.6954736607133211e+06_dp, -1.4066197350891286e+06_dp, 5.4951201324373030e+05_dp, &
8697 -1.9512919132011509e+05_dp, 6.3990065228808700e+04_dp, -1.1942735238243258e+04_dp, &
8698 2.4099562266117897e-01_dp, -7.2049876247263943e-03_dp, -6.4116087584877362e-03_dp, &
8699 2.3477247701907569e-03_dp, -2.4131694227638371e-03_dp, 4.0371201990794785e-03_dp, &
8700 -4.8026052577681737e-03_dp, 4.9757874425969597e-03_dp, -4.9284265776128131e-03_dp, &
8701 4.2028583295808742e-03_dp, -2.6617139437737393e-03_dp, 1.0721512574701931e-03_dp, &
8702 -2.0360724244160395e-04_dp, 7.8600093766184087e-01_dp, -2.7552722482330382e-02_dp, &
8703 -2.4320818015224920e-02_dp, 9.3274629486534248e-03_dp, -9.2079352354389778e-03_dp, &
8704 1.5452692636155842e-02_dp, -1.8450575101340298e-02_dp, 1.9063757888167280e-02_dp, &
8705 -1.8832830863784338e-02_dp, 1.6057085510439863e-02_dp, -1.0174585816282621e-02_dp/)
8706 REAL(kind=dp), DIMENSION(400), PARAMETER :: c06 = (/4.0992188628857576e-03_dp, &
8707 -7.7827564716362676e-04_dp, 1.5427835617899610e+00_dp, -6.9505394993586406e-02_dp, &
8708 -6.0594885888198051e-02_dp, 2.4860739271249380e-02_dp, -2.3168221093078572e-02_dp, &
8709 3.9027511015698728e-02_dp, -4.6867833756562442e-02_dp, 4.8230445510777237e-02_dp, &
8710 -4.7451819606639183e-02_dp, 4.0444324071817472e-02_dp, -2.5649820333915784e-02_dp, &
8711 1.0337965959194499e-02_dp, -1.9621474197091537e-03_dp, 2.7361460521635825e+00_dp, &
8712 -1.6210915733697953e-01_dp, -1.3938372870854468e-01_dp, 6.1370009081324846e-02_dp, &
8713 -5.3953321352611480e-02_dp, 9.1109307724040633e-02_dp, -1.1013676364888772e-01_dp, &
8714 1.1285815532268084e-01_dp, -1.1051732784079558e-01_dp, 9.4154657670159986e-02_dp, &
8715 -5.9775221985383778e-02_dp, 2.4105091177407285e-02_dp, -4.5740232709998250e-03_dp, &
8716 4.7504664477072316e+00_dp, -3.6540640732652457e-01_dp, -3.0963304480188580e-01_dp, &
8717 1.4617823006458483e-01_dp, -1.2163472991350244e-01_dp, 2.0546897879778972e-01_dp, &
8718 -2.5017072872400081e-01_dp, 2.5528811465811574e-01_dp, -2.4871800987649034e-01_dp, &
8719 2.1177224606033893e-01_dp, -1.3460697362966942e-01_dp, 5.4321881683681905e-02_dp, &
8720 -1.0306557157615706e-02_dp, 8.2846134626133292e+00_dp, -8.0838138618414457e-01_dp, &
8721 -6.7434278259781932e-01_dp, 3.4154350399965178e-01_dp, -2.6969855520786901e-01_dp, &
8722 4.5455382056357474e-01_dp, -5.5786575129632443e-01_dp, 5.6695864745421198e-01_dp, &
8723 -5.4922218190823124e-01_dp, 4.6727981986625922e-01_dp, -2.9742716810172054e-01_dp, &
8724 1.2014838410171294e-01_dp, -2.2797188357298853e-02_dp, 1.4659069700977295e+01_dp, &
8725 -1.7747757205152632e+00_dp, -1.4550424144280802e+00_dp, 7.9267096661767655e-01_dp, &
8726 -5.9501413092507949e-01_dp, 9.9738596204312624e-01_dp, -1.2351218666597548e+00_dp, &
8727 1.2502002535211376e+00_dp, -1.2031718276241572e+00_dp, 1.0225830615341298e+00_dp, &
8728 -6.5195914949791578e-01_dp, 2.6371662619257846e-01_dp, -5.0052760660977261e-02_dp, &
8729 2.6448156436321245e+01_dp, -3.9033379057570827e+00_dp, -3.1379124640819920e+00_dp, &
8730 1.8465185787105332e+00_dp, -1.3195424388936023e+00_dp, 2.1908275051266819e+00_dp, &
8731 -2.7410453141653983e+00_dp, 2.7635561809966092e+00_dp, -2.6392193814105300e+00_dp, &
8732 2.2397534106652977e+00_dp, -1.4308096005721775e+00_dp, 5.7980482655024335e-01_dp, &
8733 -1.1011473830562242e-01_dp, 4.8827566212215686e+01_dp, -8.6709145648362504e+00_dp, &
8734 -6.8145806531242146e+00_dp, 4.3563149107877930e+00_dp, -2.9691106736363246e+00_dp, &
8735 4.8564608241711680e+00_dp, -6.1483109774475455e+00_dp, 6.1755130247165688e+00_dp, &
8736 -5.8438669005291510e+00_dp, 4.9487151155432789e+00_dp, -3.1688647001286903e+00_dp, &
8737 1.2872479155148069e+00_dp, -2.4474367721377402e-01_dp, 9.2556502815334994e+01_dp, &
8738 -1.9603282099708711e+01_dp, -1.5002883382810225e+01_dp, 1.0494569374376898e+01_dp, &
8739 -6.8410742350968299e+00_dp, 1.0944746242954064e+01_dp, -1.4045586508307052e+01_dp, &
8740 1.4060381579443410e+01_dp, -1.3158840677577247e+01_dp, 1.1107899993760929e+01_dp, &
8741 -7.1328849625134936e+00_dp, 2.9070868330198718e+00_dp, -5.5374097833048719e-01_dp, &
8742 1.8086387815603692e+02_dp, -4.5449136805946708e+01_dp, -3.3697127799416755e+01_dp, &
8743 2.6030360696858182e+01_dp, -1.6300016117567488e+01_dp, 2.5261110581327873e+01_dp, &
8744 -3.2926409290629678e+01_dp, 3.2875420065927933e+01_dp, -3.0353354761618480e+01_dp, &
8745 2.5499432007902808e+01_dp, -1.6427830450896202e+01_dp, 6.7254398764218735e+00_dp, &
8746 -1.2848018257579334e+00_dp, 3.6615307455742288e+02_dp, -1.0895580944560962e+02_dp, &
8747 -7.7707894068596588e+01_dp, 6.7083059154405120e+01_dp, -4.0625930911416084e+01_dp, &
8748 6.0191592289485307e+01_dp, -7.9850740811585609e+01_dp, 7.9626930467390395e+01_dp, &
8749 -7.2291475212265667e+01_dp, 6.0275016793375315e+01_dp, -3.8970639832754756e+01_dp, &
8750 1.6051798367917286e+01_dp, -3.0804040922174489e+00_dp, 7.7295926933662383e+02_dp, &
8751 -2.7274630136859054e+02_dp, -1.8524424755998632e+02_dp, 1.8158011767619479e+02_dp, &
8752 -1.0746016288132108e+02_dp, 1.4949540595499082e+02_dp, -2.0220074697334576e+02_dp, &
8753 2.0184753824607512e+02_dp, -1.7940902459359080e+02_dp, 1.4776377024332152e+02_dp, &
8754 -9.5855229939181896e+01_dp, 3.9808239583015897e+01_dp, -7.6927802615479832e+00_dp, &
8755 1.7164950125258283e+03_dp, -7.2191533002872904e+02_dp, -4.5988985220715472e+02_dp, &
8756 5.2344948407025970e+02_dp, -3.0757874260869397e+02_dp, 3.9198001571233146e+02_dp, &
8757 -5.4073857326588131e+02_dp, 5.4249811741022972e+02_dp, -4.6932848633916359e+02_dp, &
8758 3.7853944596752183e+02_dp, -2.4590148935655793e+02_dp, 1.0323206520266561e+02_dp, &
8759 -2.0162118950386379e+01_dp, 4.0597984203925230e+03_dp, -2.0554408966225374e+03_dp, &
8760 -1.1981956551284402e+03_dp, 1.6379438988785680e+03_dp, -9.7944271492137625e+02_dp, &
8761 1.1058705957255131e+03_dp, -1.5495244988136308e+03_dp, 1.5727925045092773e+03_dp, &
8762 -1.3143543851594472e+03_dp, 1.0206697674392115e+03_dp, -6.5915665050050154e+02_dp, &
8763 2.8033098204930724e+02_dp, -5.5627786985458201e+01_dp, 1.0418737555296313e+04_dp, &
8764 -6.4587705877741246e+03_dp, -3.2930962522435352e+03_dp, 5.7217121047356122e+03_dp, &
8765 -3.6200039792272896e+03_dp, 3.4703091404762904e+03_dp, -4.8499754392515288e+03_dp, &
8766 5.0352943316006931e+03_dp, -4.0300238041629141e+03_dp, 2.9069303818723929e+03_dp, &
8767 -1.8196316384987094e+03_dp, 7.8120202146243457e+02_dp, -1.5851065777637234e+02_dp, &
8768 2.9904840276131377e+04_dp, -2.3365682875309405e+04_dp, -9.4213557234108248e+03_dp, &
8769 2.3341037180846441e+04_dp, -1.6664545324000497e+04_dp, 1.3018178357102739e+04_dp, &
8770 -1.7013313819623374e+04_dp, 1.8330955289497884e+04_dp, -1.4004140465670787e+04_dp, &
8771 8.6573316238168354e+03_dp, -4.7417789173697429e+03_dp, 1.9635793580241952e+03_dp, &
8772 -4.0643170846761330e+02_dp, 1.0157948762160608e+05_dp, -1.0548383390007413e+05_dp, &
8773 -2.3722704012505274e+04_dp, 1.2044737338200401e+05_dp, -1.0942907243642975e+05_dp, &
8774 7.1576985837329717e+04_dp, -6.9634226489907858e+04_dp, 7.5769005808596703e+04_dp, &
8775 -5.6409114203720761e+04_dp, 2.4902335273688092e+04_dp, -5.3550087892323263e+03_dp, &
8776 2.8390167115008719e+01_dp, 1.4643329837669990e+02_dp, 4.6857889664810052e+05_dp, &
8777 -7.2038307415608899e+05_dp, 1.2509311324741252e+05_dp, 8.8091622462875850e+05_dp, &
8778 -1.4127842818682543e+06_dp, 1.1880475416018902e+06_dp, -5.8502506049625343e+05_dp, &
8779 2.4743808750507604e+04_dp, 3.3699929860959132e+05_dp, -4.7117288930957159e+05_dp, &
8780 3.8186109459051176e+05_dp, -1.8185745287369000e+05_dp, 3.9096271590969533e+04_dp, &
8781 1.9685202318288957e+00_dp, -6.1360979308742736e-02_dp, -5.4488336108174731e-02_dp, &
8782 2.0199240738539220e-02_dp, -2.0538828062587423e-02_dp, 3.4390780667720153e-02_dp, &
8783 -4.0950900871404537e-02_dp, 4.2396877890840033e-02_dp, -4.1964658244183287e-02_dp, &
8784 3.5784807205071087e-02_dp, -2.2666021560142281e-02_dp, 9.1304409682086869e-03_dp, &
8785 -1.7338039826641876e-03_dp, 2.4873431607352861e+00_dp, -1.1127896744503744e-01_dp, &
8786 -9.7160647648538795e-02_dp, 3.9549196995538598e-02_dp, -3.7088461256170678e-02_dp, &
8787 6.2482162326251998e-02_dp, -7.4973797450662821e-02_dp, 7.7187912043400322e-02_dp, &
8788 -7.5984338726898373e-02_dp, 6.4767341178840990e-02_dp, -4.1070002288843978e-02_dp, &
8789 1.6551536662038395e-02_dp, -3.1415083350615496e-03_dp, 3.7115819235040099e+00_dp, &
8790 -2.4263735069592671e-01_dp, -2.0828276881828411e-01_dp, 9.2474300956586888e-02_dp, &
8791 -8.0673281317597170e-02_dp, 1.3641415406027710e-01_dp, -1.6499696868142674e-01_dp, &
8792 1.6897498706163439e-01_dp, -1.6540000447304345e-01_dp, 1.4091102128378122e-01_dp, &
8793 -8.9465194191119327e-02_dp, 3.6077418740267916e-02_dp, -6.8451878020381164e-03_dp, &
8794 6.0819380402782102e+00_dp, -5.3592127980283966e-01_dp, -4.5287536801814943e-01_dp, &
8795 2.1661663264454648e-01_dp, -1.7820374811642009e-01_dp, 3.0146509927127713e-01_dp, &
8796 -3.6745474931004735e-01_dp, 3.7463188233201217e-01_dp, -3.6470166760065986e-01_dp, &
8797 3.1051645875911826e-01_dp, -1.9740158338751423e-01_dp, 7.9665597214015602e-02_dp, &
8798 -1.5113366050427108e-02_dp, 1.0479537652915743e+01_dp, -1.1712760954555530e+00_dp, &
8799 -9.7387580140040209e-01_dp, 5.0050202014332057e-01_dp, -3.9044301463179548e-01_dp, &
8800 6.5882177079888460e-01_dp, -8.0968653097802212e-01_dp, 8.2205031893424119e-01_dp, &
8801 -7.9554850265578514e-01_dp, 6.7681690340488077e-01_dp, -4.3089093066787693e-01_dp, &
8802 1.7407475175520742e-01_dp, -3.3025834490739599e-02_dp, 1.8635108288599536e+01_dp, &
8803 -2.5497121657871862e+00_dp, -2.0826834920345156e+00_dp, 1.1522254517634021e+00_dp, &
8804 -8.5439272544641709e-01_dp, 1.4332103583869653e+00_dp, -1.7777542118465444e+00_dp, &
8805 1.7975307886658498e+00_dp, -1.7279183793446284e+00_dp, 1.4684523252875816e+00_dp, &
8806 -9.3648068065724421e-01_dp, 3.7885018835420770e-01_dp, -7.1898509086654641e-02_dp, &
8807 3.3994590239686019e+01_dp, -5.5786535866163760e+00_dp, -4.4666506461735587e+00_dp, &
8808 2.6703461173069210e+00_dp, -1.8856235312128826e+00_dp, 3.1315158571185848e+00_dp, &
8809 -3.9253072081456857e+00_dp, 3.9531937219561639e+00_dp, -3.7704367525106743e+00_dp, &
8810 3.1994378130940819e+00_dp, -2.0445460353306122e+00_dp, 8.2864620464328365e-01_dp, &
8811 -1.5736316384893229e-01_dp, 6.3588405510579335e+01_dp, -1.2363461132070416e+01_dp, &
8812 -9.6753997605292525e+00_dp, 6.2824458697670735e+00_dp, -4.2341320945537095e+00_dp, &
8813 6.9247378274318594e+00_dp, -8.7844588705872138e+00_dp, 8.8136469170395682e+00_dp, &
8814 -8.3287909317576716e+00_dp, 7.0522992389582715e+00_dp, -4.5175728840847738e+00_dp, &
8815 1.8354907072519964e+00_dp, -3.4896177050152971e-01_dp, 1.2220829809176205e+02_dp, &
8816 -2.7944214858134188e+01_dp, -2.1296201547453109e+01_dp, 1.5115164278434872e+01_dp, &
8817 -9.7538219914620825e+00_dp, 1.5600604221804334e+01_dp, -2.0061710148318788e+01_dp, &
8818 2.0061333896341090e+01_dp, -1.8749429601270812e+01_dp, 1.5826299380047390e+01_dp, &
8819 -1.0167002373267730e+01_dp, 4.1445597664016303e+00_dp, -7.8940481877510260e-01_dp, &
8820 2.4212494294883325e+02_dp, -6.4848567095130747e+01_dp, -4.7896931247182728e+01_dp, &
8821 3.7461397357650824e+01_dp, -2.3251790808727218e+01_dp, 3.6039980420712112e+01_dp, &
8822 -4.7067767611689661e+01_dp, 4.6945415655437806e+01_dp, -4.3293284411662249e+01_dp, &
8823 3.6374015775739899e+01_dp, -2.3444250992847859e+01_dp, 9.5995302583925408e+00_dp, &
8824 -1.8336252417158323e+00_dp, 4.9678277300087296e+02_dp, -1.5564477617682064e+02_dp, &
8825 -1.1069764568693903e+02_dp, 9.6407239682845059e+01_dp, -5.7938205328089253e+01_dp, &
8826 8.5979370733647627e+01_dp, -1.1425483537959983e+02_dp, 1.1380794672668260e+02_dp, &
8827 -1.0325159247360516e+02_dp, 8.6134415628011325e+01_dp, -5.5718825689552844e+01_dp, &
8828 2.2951002054178900e+01_dp, -4.4030493121892027e+00_dp, 1.0618466971760956e+03_dp, &
8829 -3.8969710352881111e+02_dp, -2.6450171371001460e+02_dp, 2.6007018186143932e+02_dp, &
8830 -1.5279188655132614e+02_dp, 2.1360891249135918e+02_dp, -2.8931621709083004e+02_dp, &
8831 2.8840853173138242e+02_dp, -2.5640283554040690e+02_dp, 2.1150347347655622e+02_dp, &
8832 -1.3730820428083371e+02_dp, 5.7010139200952608e+01_dp, -1.1009287497802793e+01_dp, &
8833 2.3831525849788013e+03_dp, -1.0288984124938795e+03_dp, -6.5778574392811515e+02_dp, &
8834 7.4418907067655823e+02_dp, -4.3344091595675718e+02_dp, 5.5871797886676870e+02_dp, &
8835 -7.7182037553705447e+02_dp, 7.7263905710645179e+02_dp, -6.6963947277791476e+02_dp, &
8836 5.4224742270029606e+02_dp, -3.5283793388597093e+02_dp, 1.4803941533425319e+02_dp, &
8837 -2.8871200173717554e+01_dp, 5.6772385530114016e+03_dp, -2.9062895360890998e+03_dp, &
8838 -1.7148517487548181e+03_dp, 2.2947989851698503e+03_dp, -1.3525758366401831e+03_dp, &
8839 1.5626038948903565e+03_dp, -2.1964155478564353e+03_dp, 2.2203872701695277e+03_dp/)
8840 REAL(kind=dp), DIMENSION(400), PARAMETER :: c07 = (/-1.8635835707916260e+03_dp, &
8841 1.4615094004676805e+03_dp, -9.4860776301801513e+02_dp, 4.0324630910185732e+02_dp, &
8842 -7.9802696400978931e+01_dp, 1.4580340019039370e+04_dp, -8.9648221759975659e+03_dp, &
8843 -4.7160531127075310e+03_dp, 7.7970756952852253e+03_dp, -4.7953125668139064e+03_dp, &
8844 4.7904213388018679e+03_dp, -6.7759341874801794e+03_dp, 6.9800960085149118e+03_dp, &
8845 -5.6283983143506020e+03_dp, 4.1614628365758181e+03_dp, -2.6520659708846315e+03_dp, &
8846 1.1425936294797418e+03_dp, -2.3097558189199052e+02_dp, 4.1339464053298638e+04_dp, &
8847 -3.1163959542726632e+04_dp, -1.3657950683331510e+04_dp, 3.0183606937467408e+04_dp, &
8848 -2.0297598820224881e+04_dp, 1.6867253952668740e+04_dp, -2.3145329533718246e+04_dp, &
8849 2.4629319790813181e+04_dp, -1.8956801723961318e+04_dp, 1.2473061205766879e+04_dp, &
8850 -7.3797593844846533e+03_dp, 3.1721822281891500e+03_dp, -6.5940325840740331e+02_dp, &
8851 1.3465183476229242e+05_dp, -1.2878154349397100e+05_dp, -3.9551202896785959e+04_dp, &
8852 1.4058730137702916e+05_dp, -1.1150513454150937e+05_dp, 7.5934850042442980e+04_dp, &
8853 -9.0027245525794060e+04_dp, 1.0007380677391199e+05_dp, -7.4106008002716495e+04_dp, &
8854 3.8168389198024262e+04_dp, -1.5926680674690388e+04_dp, 5.6819996226797621e+03_dp, &
8855 -1.1787084557648736e+03_dp, 5.4426445660263638e+05_dp, -7.0252376902961778e+05_dp, &
8856 -5.5472023615715923e+04_dp, 8.6719603863591724e+05_dp, -9.3672058996953757e+05_dp, &
8857 5.8718722970563383e+05_dp, -4.2246478920076904e+05_dp, 4.3113805307864543e+05_dp, &
8858 -3.1790388144140469e+05_dp, 8.9294940174578951e+04_dp, 4.9835062579173107e+04_dp, &
8859 -4.9965645162383262e+04_dp, 1.2952090357486064e+04_dp, 3.3621760396656832e+06_dp, &
8860 -6.5229123935961705e+06_dp, 3.0062160391263529e+06_dp, 7.4531686564585082e+06_dp, &
8861 -1.7301829485568821e+07_dp, 1.8484963345212858e+07_dp, -9.5516135467152409e+06_dp, &
8862 -4.0021370551100709e+06_dp, 1.4467922484597271e+07_dp, -1.6960571811769929e+07_dp, &
8863 1.2138850561498789e+07_dp, -5.2211586557498844e+06_dp, 1.0381744850822145e+06_dp, &
8864 2.4257259348117230e-01_dp, -1.5851429704634029e-09_dp, -9.5774069407972163e-03_dp, &
8865 1.2300098639931586e-02_dp, -1.6677557521014314e-02_dp, 1.5981292332277006e-02_dp, &
8866 -2.8119788057016178e-04_dp, -4.1411633666622608e-02_dp, 1.0826576167260124e-01_dp, &
8867 -1.6888673263610837e-01_dp, 1.7154817499141597e-01_dp, -1.0466126191680286e-01_dp, &
8868 2.9111302266020433e-02_dp, 7.9204097116662908e-01_dp, -6.0818994537216391e-09_dp, &
8869 -3.6740838833795079e-02_dp, 4.7185619635050413e-02_dp, -6.3625273088436185e-02_dp, &
8870 6.0397868728266732e-02_dp, 7.5718647217901276e-04_dp, -1.6182361088743230e-01_dp, &
8871 4.1907586547824699e-01_dp, -6.5145319082734277e-01_dp, 6.6046883780165377e-01_dp, &
8872 -4.0246846324937580e-01_dp, 1.1185374791833239e-01_dp, 1.5580568229128680e+00_dp, &
8873 -1.5419744030696444e-08_dp, -9.3127809560014999e-02_dp, 1.1960239960607019e-01_dp, &
8874 -1.5991695786356333e-01_dp, 1.4960080232162254e-01_dp, 8.9510077773447185e-03_dp, &
8875 -4.2148836269473983e-01_dp, 1.0765070072706033e+00_dp, -1.6647789307570040e+00_dp, &
8876 1.6830424466049698e+00_dp, -1.0237444784742269e+00_dp, 2.8416557439803364e-01_dp, &
8877 2.7718621061429261e+00_dp, -3.6163513981536213e-08_dp, -2.1834886480726926e-01_dp, &
8878 2.8042152161200956e-01_dp, -3.7145151138366161e-01_dp, 3.4176124001058317e-01_dp, &
8879 3.9044747975845936e-02_dp, -1.0171603426069817e+00_dp, 2.5602863098988093e+00_dp, &
8880 -3.9374011756654790e+00_dp, 3.9683779293500430e+00_dp, -2.4091012786988979e+00_dp, &
8881 6.6779737409364437e-01_dp, 4.8311936966109696e+00_dp, -8.1986505697328631e-08_dp, &
8882 -4.9486997262600380e-01_dp, 6.3555244877383477e-01_dp, -8.3363638388937433e-01_dp, &
8883 7.5337822797117326e-01_dp, 1.3086191484801463e-01_dp, -2.3728506879221536e+00_dp, &
8884 5.8867883672658534e+00_dp, -9.0020738404552869e+00_dp, 9.0443088573663957e+00_dp, &
8885 -5.4794215122691758e+00_dp, 1.5167430446672299e+00_dp, 8.4637235711253460e+00_dp, &
8886 -1.8249091149929743e-07_dp, -1.1011450973952845e+00_dp, 1.4141801024460730e+00_dp, &
8887 -1.8355159334262476e+00_dp, 1.6263138799610943e+00_dp, 3.9073092232731099e-01_dp, &
8888 -5.4376260018676819e+00_dp, 1.3293600447123115e+01_dp, -2.0209696632944365e+01_dp, &
8889 2.0237473247415195e+01_dp, -1.2234446749358080e+01_dp, 3.3815255705843770e+00_dp, &
8890 1.5053546138154489e+01_dp, -4.0334165130598051e-07_dp, -2.4328249179107155e+00_dp, &
8891 3.1244306626860210e+00_dp, -4.0084799014945292e+00_dp, 3.4724453638380903e+00_dp, &
8892 1.1020158511749709e+00_dp, -1.2389534810286600e+01_dp, 2.9830068384681105e+01_dp, &
8893 -4.5066858817381963e+01_dp, 4.4968188905675269e+01_dp, -2.7122037857043569e+01_dp, &
8894 7.4841528688448022e+00_dp, 2.7318806501465819e+01_dp, -8.9373103139548194e-07_dp, &
8895 -5.3883015584663889e+00_dp, 6.9200904347821890e+00_dp, -8.7625163748632833e+00_dp, &
8896 7.3930201736202728e+00_dp, 3.0266739418528634e+00_dp, -2.8356377784336452e+01_dp, &
8897 6.7176527817712639e+01_dp, -1.0080221398959092e+02_dp, 1.0018754691787824e+02_dp, &
8898 -6.0271077807630199e+01_dp, 1.6601208530464657e+01_dp, 5.0769359622143128e+01_dp, &
8899 -2.0022110266338276e-06_dp, -1.2064973865474135e+01_dp, 1.5494803546470303e+01_dp, &
8900 -1.9327179050582775e+01_dp, 1.5798630009622276e+01_dp, 8.2524723662168071e+00_dp, &
8901 -6.5779344719277219e+01_dp, 1.5314732669567439e+02_dp, -2.2809101477129849e+02_dp, &
8902 2.2570758430280716e+02_dp, -1.3538681440746080e+02_dp, 3.7214435740581607e+01_dp, &
8903 9.6966640947802489e+01_dp, -4.5708702824465076e-06_dp, -2.7525782848920322e+01_dp, &
8904 3.5350791499997797e+01_dp, -4.3326681349790739e+01_dp, 3.4065698277940633e+01_dp, &
8905 2.2663529783272740e+01_dp, -1.5595875787184744e+02_dp, 3.5632753228509131e+02_dp, &
8906 -5.2627723474899005e+02_dp, 5.1819280410896465e+02_dp, -3.0979403001144362e+02_dp, &
8907 8.4952402372718240e+01_dp, 1.9114310962046079e+02_dp, -1.0718381310198472e-05_dp, &
8908 -6.4495689652753413e+01_dp, 8.2830422426384970e+01_dp, -9.9422424907189324e+01_dp, &
8909 7.4415368027743341e+01_dp, 6.3487036604073083e+01_dp, -3.8117146994730530e+02_dp, &
8910 8.5310336400357869e+02_dp, -1.2481132204175772e+03_dp, 1.2219161469975245e+03_dp, &
8911 -7.2767253907573388e+02_dp, 1.9898804514956225e+02_dp, 3.9095152547016971e+02_dp, &
8912 -2.6044693436334060e-05_dp, -1.5656455100212540e+02_dp, 2.0107231298299899e+02_dp, &
8913 -2.3531086163800461e+02_dp, 1.6507461742953816e+02_dp, 1.8371250260285103e+02_dp, &
8914 -9.6951867862351389e+02_dp, 2.1208296289805753e+03_dp, -3.0692048830008334e+03_dp, &
8915 2.9846327006006663e+03_dp, -1.7692097125381856e+03_dp, 4.8218836520790217e+02_dp, &
8916 8.3551256508341919e+02_dp, -6.6276418699394831e-05_dp, -3.9790489467747528e+02_dp, &
8917 5.1101973017952952e+02_dp, -5.7941288348416379e+02_dp, 3.7150601573538091e+02_dp, &
8918 5.5698245764046999e+02_dp, -2.5960834505545481e+03_dp, 5.5345357608728345e+03_dp, &
8919 -7.9075149042235771e+03_dp, 7.6276140487209941e+03_dp, -4.4959994932460531e+03_dp, &
8920 1.2203067212487733e+03_dp, 1.8836460432374965e+03_dp, -1.7906558419193089e-04_dp, &
8921 -1.0732156319450071e+03_dp, 1.3783032272117819e+03_dp, -1.5000340075540309e+03_dp, &
8922 8.4018168997033501e+02_dp, 1.8007044978323806e+03_dp, -7.4288132647801831e+03_dp, &
8923 1.5374600294490150e+04_dp, -2.1628986973636649e+04_dp, 2.0654257790969808e+04_dp, &
8924 -1.2087613800492580e+04_dp, 3.2634643687020621e+03_dp, 4.5416034797674138e+03_dp, &
8925 -5.2365813191155002e-04_dp, -3.1308942252975776e+03_dp, 4.0209190324650995e+03_dp, &
8926 -4.1383392506453802e+03_dp, 1.8377028026049759e+03_dp, 6.3590629378903286e+03_dp, &
8927 -2.3198652550819283e+04_dp, 4.6349523517001166e+04_dp, -6.3943547760604444e+04_dp, &
8928 6.0263738399936170e+04_dp, -3.4932837998398638e+04_dp, 9.3635357641943356e+03_dp, &
8929 1.1958338781224160e+04_dp, -1.7071768156226256e-03_dp, -1.0169488624467269e+04_dp, &
8930 1.3060348340403734e+04_dp, -1.2381213086186415e+04_dp, 3.2314378644640055e+03_dp, &
8931 2.5435849905159415e+04_dp, -8.1602901155135565e+04_dp, 1.5601679506781770e+05_dp, &
8932 -2.0965853398512429e+05_dp, 1.9396469663853475e+05_dp, -1.1088271281624625e+05_dp, &
8933 2.9404441290840648e+04_dp, 3.5614977210684003e+04_dp, -6.5265362044827011e-03_dp, &
8934 -3.8636947008429313e+04_dp, 4.9619945449366554e+04_dp, -4.0999782846154798e+04_dp, &
8935 -3.3222504922255262e+03_dp, 1.2256002817686876e+05_dp, -3.4080284163623268e+05_dp, &
8936 6.1352219860694092e+05_dp, -7.9241303014367342e+05_dp, 7.1153559384913277e+05_dp, &
8937 -3.9732963315665961e+05_dp, 1.0341010372176219e+05_dp, 1.2848400434943594e+05_dp, &
8938 -3.2448901589420744e-02_dp, -1.8969566877398198e+05_dp, 2.4361640221589044e+05_dp, &
8939 -1.4921343554708638e+05_dp, -1.5091238856037860e+05_dp, 8.0563254617528804e+05_dp, &
8940 -1.8647433709473095e+06_dp, 3.0346692605618830e+06_dp, -3.6281356744333007e+06_dp, &
8941 3.0528225777004999e+06_dp, -1.6122300376973741e+06_dp, 3.9997604947801877e+05_dp, &
8942 6.7227601896939008e+05_dp, -2.8143215138966765e-01_dp, -1.5867302113995703e+06_dp, &
8943 2.0376973639408911e+06_dp, -1.1025901634165533e+05_dp, -4.2036295031807078e+06_dp, &
8944 1.0044743271165637e+07_dp, -1.5282870940461934e+07_dp, 1.6518963178353507e+07_dp, &
8945 -1.1769749475844450e+07_dp, 4.0871559754661410e+06_dp, 5.6596099490722292e+05_dp, &
8946 -7.4109536787231569e+05_dp, 1.9819560025056868e+00_dp, -1.3511569339814371e-08_dp, &
8947 -8.1633253443258433e-02_dp, 1.0484017653035560e-01_dp, -1.4194524209112128e-01_dp, &
8948 1.3568557553371516e-01_dp, -1.3234983778788343e-03_dp, -3.5470515598290253e-01_dp, &
8949 9.2500068772695143e-01_dp, -1.4416049296037063e+00_dp, 1.4635924511712637e+00_dp, &
8950 -8.9265360989689835e-01_dp, 2.4823595537612544e-01_dp, 2.5117886684929931e+00_dp, &
8951 -2.4671854792314193e-08_dp, -1.4901109047023370e-01_dp, 1.9137231477123434e-01_dp, &
8952 -2.5614818172008030e-01_dp, 2.4006670513485362e-01_dp, 1.2935867778898439e-02_dp, &
8953 -6.7220614776726906e-01_dp, 1.7197502043268926e+00_dp, -2.6612289097071167e+00_dp, &
8954 2.6913697392321345e+00_dp, -1.6374477528376692e+00_dp, 4.5458459181050526e-01_dp, &
8955 3.7650561907510078e+00_dp, -5.4161605376903836e-08_dp, -3.2700972896614366e-01_dp, &
8956 4.1997270677737458e-01_dp, -5.5572559086377915e-01_dp, 5.1034976841239854e-01_dp, &
8957 6.1519345356843586e-02_dp, -1.5283321353925809e+00_dp, 3.8408489596559470e+00_dp, &
8958 -5.9031588254427607e+00_dp, 5.9476108822547875e+00_dp, -3.6098724362817247e+00_dp, &
8959 1.0005011402155195e+00_dp, 6.2003958313268743e+00_dp, -1.2037059248503575e-07_dp, &
8960 -7.2652194441561535e-01_dp, 9.3305879954457793e-01_dp, -1.2217147867466474e+00_dp, &
8961 1.1004967117720030e+00_dp, 2.0336664708568603e-01_dp, -3.5018460450989166e+00_dp, &
8962 8.6657256927685911e+00_dp, -1.3238463235718530e+01_dp, 1.3293210387322198e+01_dp, &
8963 -8.0507159019795775e+00_dp, 2.2279456762186776e+00_dp, 1.0739206251612034e+01_dp, &
8964 -2.6473797876852818e-07_dp, -1.5973297281490579e+00_dp, 2.0514206663572310e+00_dp, &
8965 -2.6570672559948862e+00_dp, 2.3448587301741366e+00_dp, 5.9565428178472757e-01_dp, &
8966 -7.9344395190937238e+00_dp, 1.9342826383683839e+01_dp, -2.9372682545317804e+01_dp, &
8967 2.9394222808923349e+01_dp, -1.7762737595349108e+01_dp, 4.9080935520946882e+00_dp, &
8968 1.9202199285653183e+01_dp, -5.8024376773466123e-07_dp, -3.4996092621466643e+00_dp, &
8969 4.4944812099998321e+00_dp, -5.7527459450885452e+00_dp, 4.9604902525102608e+00_dp, &
8970 1.6548760224475922e+00_dp, -1.7934154017551453e+01_dp, 4.3051248399276048e+01_dp, &
8971 -6.4961623842017133e+01_dp, 6.4774151275958900e+01_dp, -3.9049982184732009e+01_dp, &
8972 1.0772159604979572e+01_dp, 3.5239797671962883e+01_dp, -1.2791831843911305e-06_dp, &
8973 -7.7116293148741368e+00_dp, 9.9038942846037248e+00_dp, -1.2509090324776968e+01_dp/)
8974 REAL(kind=dp), DIMENSION(13, 38, 6), PARAMETER :: &
8975 coefdata = reshape((/c01, c02, c03, c04, c05, c06, c07, c08/), (/13, 38, 6/))
8976
8977 INTEGER :: irange
8978
8979 IF (rc <= 5.0000000000000000e+01_dp) rc = 5.0000000000000000e+01_dp
8980 IF (rc >= 3.5810871124267578e+06_dp) rc = 3.5810871124267578e+06_dp
8981 IF (rc >= 5.0000000000000000e+01_dp .AND. rc <= 9.6916963080248536e+01_dp) THEN
8982 irange = 1
8983 l_b = 5.0000000000000000e+01_dp
8984 u_b = 9.6916963080248536e+01_dp
8985 END IF
8986 IF (rc >= 9.6916963080248536e+01_dp .AND. rc <= 1.2185306936104239e+03_dp) THEN
8987 irange = 2
8988 l_b = 9.6916963080248536e+01_dp
8989 u_b = 1.2185306936104239e+03_dp
8990 END IF
8991 IF (rc >= 1.2185306936104239e+03_dp .AND. rc <= 1.2217104533148158e+04_dp) THEN
8992 irange = 3
8993 l_b = 1.2185306936104239e+03_dp
8994 u_b = 1.2217104533148158e+04_dp
8995 END IF
8996 IF (rc >= 1.2217104533148158e+04_dp .AND. rc <= 1.9815072618369377e+05_dp) THEN
8997 irange = 4
8998 l_b = 1.2217104533148158e+04_dp
8999 u_b = 1.9815072618369377e+05_dp
9000 END IF
9001 IF (rc >= 1.9815072618369377e+05_dp .AND. rc <= 1.2188439903425989e+06_dp) THEN
9002 irange = 5
9003 l_b = 1.9815072618369377e+05_dp
9004 u_b = 1.2188439903425989e+06_dp
9005 END IF
9006 IF (rc >= 1.2188439903425989e+06_dp .AND. rc <= 3.5810871124267578e+06_dp) THEN
9007 irange = 6
9008 l_b = 1.2188439903425989e+06_dp
9009 u_b = 3.5810871124267578e+06_dp
9010 END IF
9011
9012 fit_coef(1:13, 1:38) = coefdata(1:13, 1:38, irange)
9013
9014 END SUBROUTINE get_fit_coef_k19
9015
9016! **************************************************************************************************
9017!> \brief ...
9018!> \param Rc ...
9019!> \param L_b ...
9020!> \param U_b ...
9021!> \param fit_coef ...
9022! **************************************************************************************************
9023 SUBROUTINE get_fit_coef_k20(Rc, L_b, U_b, fit_coef)
9024 REAL(kind=dp) :: rc, l_b, u_b
9025 REAL(kind=dp), DIMENSION(13, 40) :: fit_coef
9026
9027 REAL(kind=dp), DIMENSION(320), PARAMETER :: c08 = (/3.4482542694423209e+03_dp, &
9028 9.3380638606834109e+03_dp, -3.6141948437832449e+04_dp, 7.3811576243227406e+04_dp, &
9029 -1.0360614380245237e+05_dp, 9.9273882530972987e+04_dp, -5.8503038150581720e+04_dp, &
9030 1.5941507970166829e+04_dp, 1.9245609411100908e+04_dp, 1.5758311389454111e-03_dp, &
9031 -1.6493149055229915e+04_dp, 2.1319315251857988e+04_dp, -2.0594905686666327e+04_dp, &
9032 6.7450368572538291e+03_dp, 3.7943888089438202e+04_dp, -1.2716219726681517e+05_dp, &
9033 2.4802524381258758e+05_dp, -3.3897801223706041e+05_dp, 3.1885864066745085e+05_dp, &
9034 -1.8535737515320248e+05_dp, 4.9984902189495566e+04_dp, 5.7318324293103229e+04_dp, &
9035 5.9071432526945937e-03_dp, -6.2380841746085105e+04_dp, 8.0634158042088748e+04_dp, &
9036 -6.8284731483765951e+04_dp, 5.4681930309783763e+02_dp, 1.8545057497723409e+05_dp, &
9037 -5.3191922255590232e+05_dp, 9.7505194465025037e+05_dp, -1.2805757822087191e+06_dp, &
9038 1.1696153509061884e+06_dp, -6.6458955725748790e+05_dp, 1.7602465115753218e+05_dp, &
9039 2.0678064129765515e+05_dp, 2.8344038829274502e-02_dp, -3.0494093965445616e+05_dp, &
9040 3.9416660234818154e+05_dp, -2.5130146580176344e+05_dp, -2.1177938413183455e+05_dp, &
9041 1.2359116116152727e+06_dp, -2.9217324689694936e+06_dp, 4.8357925748930285e+06_dp, &
9042 -5.8846345861200411e+06_dp, 5.0469092229344351e+06_dp, -2.7194600229616752e+06_dp, &
9043 6.8869342689229129e+05_dp, 1.0819530962975370e+06_dp, 2.2283944744663364e-01_dp, &
9044 -2.5391699671295690e+06_dp, 3.2820491767507303e+06_dp, -2.9879597797710146e+05_dp, &
9045 -6.4273657969231484e+06_dp, 1.5669734066822972e+07_dp, -2.4314998224766523e+07_dp, &
9046 2.7124297775591992e+07_dp, -2.0552349360272344e+07_dp, 8.5713366254611593e+06_dp, &
9047 -3.7935610363443429e+05_dp, -8.3928846510169783e+05_dp, 1.9320589271290354e+00_dp, &
9048 7.2621425609846251e-09_dp, -7.4528731965208886e-02_dp, 9.6338004250833206e-02_dp, &
9049 -1.3214657018893700e-01_dp, 1.3186456446235820e-01_dp, -2.0166775874314861e-02_dp, &
9050 -2.8991359670853600e-01_dp, 8.0125762227548336e-01_dp, -1.2825636229353268e+00_dp, &
9051 1.3287373087728476e+00_dp, -8.2519003619160525e-01_dp, 2.3343121150717866e-01_dp, &
9052 2.4217999169457665e+00_dp, 1.2934929155472219e-08_dp, -1.3279748613131781e-01_dp, &
9053 1.7165785375157250e-01_dp, -2.3307585350609009e-01_dp, 2.2877594664050899e-01_dp, &
9054 -2.3346318222297352e-02_dp, -5.3715564779172731e-01_dp, 1.4543022329299131e+00_dp, &
9055 -2.3114184688427013e+00_dp, 2.3856880646661343e+00_dp, -1.4781477166371391e+00_dp, &
9056 4.1748286135655011e-01_dp, 3.5699082894477758e+00_dp, 2.7703387762280234e-08_dp, &
9057 -2.8453205801269615e-01_dp, 3.6779425246710412e-01_dp, -4.9428962102081125e-01_dp, &
9058 4.7696326068383171e-01_dp, -2.3216522248151596e-02_dp, -1.1945691723631664e+00_dp, &
9059 3.1721266716571264e+00_dp, -5.0071605495889964e+00_dp, 5.1491452709951524e+00_dp, &
9060 -3.1830440507795661e+00_dp, 8.9760588696477739e-01_dp, 5.7714745756709691e+00_dp, &
9061 6.0203678580378609e-08_dp, -6.1856466138001853e-01_dp, 7.9957416304825757e-01_dp, &
9062 -1.0645544695648401e+00_dp, 1.0109461180627741e+00_dp, 1.9498075311132036e-03_dp, &
9063 -2.6818798561564088e+00_dp, 7.0044906403410883e+00_dp, -1.0989948493463517e+01_dp, &
9064 1.1264809560038588e+01_dp, -6.9492617232208316e+00_dp, 1.9569143430774056e+00_dp, &
9065 9.8063851627247747e+00_dp, 1.2943227446405601e-07_dp, -1.3303860307558404e+00_dp, &
9066 1.7196942244173261e+00_dp, -2.2679112076886052e+00_dp, 2.1180849214493009e+00_dp, &
9067 1.1718272413659171e-01_dp, -5.9500812130151042e+00_dp, 1.5295418487216114e+01_dp, &
9068 -2.3856483405279011e+01_dp, 2.4374146939476983e+01_dp, -1.5005553650474871e+01_dp, &
9069 4.2196153451488474e+00_dp, 1.7182196524894046e+01_dp, 2.7681980610640121e-07_dp, &
9070 -2.8465978348393266e+00_dp, 3.6795911913729618e+00_dp, -4.8029054852258346e+00_dp, &
9071 4.4032195652656236e+00_dp, 5.0834247955654877e-01_dp, -1.3143792363416638e+01_dp, &
9072 3.3245320187678388e+01_dp, -5.1533317361899485e+01_dp, 5.2471959863900395e+01_dp, &
9073 -3.2233041672826495e+01_dp, 9.0504077773870328e+00_dp, 3.0845352294831098e+01_dp, &
9074 5.9398312369643793e-07_dp, -6.1111889591236563e+00_dp, 7.8994899897307205e+00_dp, &
9075 -1.0193982404223158e+01_dp, 9.1495116492406492e+00_dp, 1.6952456171928449e+00_dp, &
9076 -2.9178719666384300e+01_dp, 7.2568642728771039e+01_dp, -1.1174619343091653e+02_dp, &
9077 1.1336163692278953e+02_dp, -6.9471395810743132e+01_dp, 1.9474058838425890e+01_dp, &
9078 5.6681482844036843e+01_dp, 1.2880602601267124e-06_dp, -1.3260114690148326e+01_dp, &
9079 1.7140381644716403e+01_dp, -2.1836576138010962e+01_dp, 1.9120563971615155e+01_dp, &
9080 5.1270149635423383e+00_dp, -6.5601700286248231e+01_dp, 1.6028123406894895e+02_dp, &
9081 -2.4505157526179127e+02_dp, 2.4758883306634189e+02_dp, -1.5133127650620855e+02_dp, &
9082 4.2343189674877024e+01_dp, 1.0677930992732443e+02_dp, 2.8406374165609642e-06_dp, &
9083 -2.9263985515033859e+01_dp, 3.7827402760261627e+01_dp, -4.7491127745716220e+01_dp, &
9084 4.0381636711719807e+01_dp, 1.4885135448607762e+01_dp, -1.5037491992215962e+02_dp, &
9085 3.6054446889308713e+02_dp, -5.4693897575387132e+02_dp, 5.5012746515130448e+02_dp, &
9086 -3.3526230511591672e+02_dp, 9.3615003920193601e+01_dp, 2.0679533410485035e+02_dp, &
9087 6.4094168244319851e-06_dp, -6.6085152661798745e+01_dp, 8.5423381867854914e+01_dp, &
9088 -1.0544823391402035e+02_dp, 8.6528860573033953e+01_dp, 4.2714834499989976e+01_dp, &
9089 -3.5371775303988545e+02_dp, 8.3117344347077687e+02_dp, -1.2500496388367815e+03_dp, &
9090 1.2510302711576599e+03_dp, -7.5988036054840700e+02_dp, 2.1168378030342967e+02_dp, &
9091 4.1328664733661651e+02_dp, 1.4889806008040278e-05_dp, -1.5368210432639367e+02_dp, &
9092 1.9865336911012668e+02_dp, -2.4040314537499890e+02_dp, 1.8872866671662570e+02_dp, &
9093 1.2351690805087296e+02_dp, -8.5972088745757685e+02_dp, 1.9767740484365552e+03_dp, &
9094 -2.9445141512794567e+03_dp, 2.9300403857222186e+03_dp, -1.7729344307768993e+03_dp, &
9095 4.9255725456854503e+02_dp, 8.5654938775191738e+02_dp, 3.5872303016542066e-05_dp, &
9096 -3.7072601294454631e+02_dp, 4.7920949648375620e+02_dp, -5.6631511928892780e+02_dp, &
9097 4.1997532374726688e+02_dp, 3.6557905857252490e+02_dp, -2.1763659954041159e+03_dp, &
9098 4.8870520139000928e+03_dp, -7.2006664507013447e+03_dp, 7.1181616235454258e+03_dp, &
9099 -4.2879275292267075e+03_dp, 1.1874668147376524e+03_dp, 1.8527695319692295e+03_dp, &
9100 9.0414525740239963e-05_dp, -9.3593883032510507e+02_dp, 1.2098163913708674e+03_dp, &
9101 -1.3887279432851076e+03_dp, 9.5392042649204359e+02_dp, 1.1242551714786039e+03_dp, &
9102 -5.7944326329618743e+03_dp, 1.2675523603724201e+04_dp, -1.8443335807050775e+04_dp, &
9103 1.8090734173380570e+04_dp, -1.0839637669115842e+04_dp, 2.9902567983122644e+03_dp, &
9104 4.2185980993912917e+03_dp, 2.4111494993262110e-04_dp, -2.5013688864927140e+03_dp, &
9105 3.2333243651908087e+03_dp, -3.5775439041628538e+03_dp, 2.2018907529049170e+03_dp, &
9106 3.6526563185232840e+03_dp, -1.6430818396518105e+04_dp, 3.4901684323665315e+04_dp, &
9107 -5.0036642596126949e+04_dp, 4.8619455802354423e+04_dp, -2.8940491721336319e+04_dp, &
9108 7.9451453468075997e+03_dp, 1.0231390945985855e+04_dp, 6.9083287944081352e-04_dp, &
9109 -7.1882842790158111e+03_dp, 9.2917205293700135e+03_dp, -9.7955483893616456e+03_dp, &
9110 5.0678948479689298e+03_dp, 1.2800733529560235e+04_dp, -5.0479717751341195e+04_dp, &
9111 1.0365862765556478e+05_dp, -1.4595280309876031e+05_dp, 1.4014598216542669e+05_dp, &
9112 -8.2717100120144009e+04_dp, 2.2565914851566984e+04_dp, 2.6891322723431167e+04_dp, &
9113 2.1742181990913696e-03_dp, -2.2721782303665794e+04_dp, 2.9370569957731357e+04_dp, &
9114 -2.8945217516976965e+04_dp, 1.0780164053029053e+04_dp, 4.9798530718129528e+04_dp, &
9115 -1.7223393818390579e+05_dp, 3.3968227753935917e+05_dp, -4.6738665105989081e+05_dp, &
9116 4.4176278346948413e+05_dp, -2.5773351553389218e+05_dp, 6.9696495544733130e+04_dp, &
9117 7.8684769327617381e+04_dp, 7.7807434887690492e-03_dp, -8.1870048706807342e+04_dp, &
9118 1.0582629970733885e+05_dp, -9.4133820403246747e+04_dp, 1.2453504120756526e+04_dp, &
9119 2.2473369976015511e+05_dp, -6.7807284436999192e+05_dp, 1.2707645472222809e+06_dp, &
9120 -1.6939265958734713e+06_dp, 1.5647390178375142e+06_dp, -8.9707114806702349e+05_dp, &
9121 2.3930069996788309e+05_dp, 2.6850437188439124e+05_dp, 3.3617187911264466e-02_dp, &
9122 -3.5802500077804463e+05_dp, 4.6278519403414475e+05_dp, -3.4336642578337889e+05_dp, &
9123 -1.2299914820280354e+05_dp, 1.2698214439994770e+06_dp, -3.2863510817135861e+06_dp, &
9124 5.7313706772967186e+06_dp, -7.2659207395268613e+06_dp, 6.4530123779051183e+06_dp, &
9125 -3.5837813575776960e+06_dp, 9.3152895714921399e+05_dp, 1.1745893617395842e+06_dp, &
9126 1.9823345837793316e-01_dp, -2.1674806769945836e+06_dp, 2.8016646898503760e+06_dp, &
9127 -1.3208943556501460e+06_dp, -2.7152441097245929e+06_dp, 1.0527862934716102e+07_dp, &
9128 -2.2141959028414574e+07_dp, 3.3833815704067335e+07_dp, -3.8375451355696611e+07_dp, &
9129 3.0793030373920619e+07_dp, -1.5573075367459131e+07_dp, 3.7151288981291451e+06_dp, &
9130 8.6165998717888258e+06_dp, 2.2428828403966108e+00_dp, -2.6590263782914072e+07_dp, &
9131 3.4369174208174527e+07_dp, 1.0603207649981629e+07_dp, -1.0297545596222048e+08_dp, &
9132 1.9337680822524059e+08_dp, -2.0606965563558266e+08_dp, 8.3351497204227954e+07_dp, &
9133 1.3400532965008634e+08_dp, -2.7949474181137478e+08_dp, 2.2551932538988832e+08_dp, &
9134 -7.3358489823807165e+07_dp/)
9135 REAL(kind=dp), DIMENSION(400), PARAMETER :: c01 = (/1.4818427186393188e-01_dp, &
9136 -3.9684125490741781e-02_dp, -4.5544691512272280e-03_dp, 2.2868531356116861e-03_dp, &
9137 5.4988095348367525e-04_dp, -3.2090841260734175e-04_dp, -9.2010045248866118e-05_dp, &
9138 6.1214638366653809e-05_dp, 2.2665438652455234e-05_dp, -1.8900573386763588e-05_dp, &
9139 1.9737341940349761e-06_dp, -4.0098588379752778e-07_dp, 7.9423337565922097e-07_dp, &
9140 4.5845629764106710e-01_dp, -1.3050008497162252e-01_dp, -1.1746015834640975e-02_dp, &
9141 7.9238498027192957e-03_dp, 1.3726359502348783e-03_dp, -1.1375480080520228e-03_dp, &
9142 -2.2424819941956490e-04_dp, 2.1867699685858426e-04_dp, 5.8049724664724386e-05_dp, &
9143 -6.6759583496292301e-05_dp, 1.1220242809507542e-05_dp, -1.3505737470233449e-06_dp, &
9144 2.1298269803731967e-06_dp, 8.1205262169756842e-01_dp, -2.5796327574778904e-01_dp, &
9145 -1.2091050279258431e-02_dp, 1.6773647500350573e-02_dp, 1.1878661490072853e-03_dp, &
9146 -2.4697243937931864e-03_dp, -1.6605322411568808e-04_dp, 4.7805723848042757e-04_dp, &
9147 5.6067445750992246e-05_dp, -1.4470898201670074e-04_dp, 3.9438442939321917e-05_dp, &
9148 -4.1919645541969900e-06_dp, 2.9194474822921137e-06_dp, 1.2433837102757057e+00_dp, &
9149 -4.5449390505874582e-01_dp, 2.8772391163010618e-03_dp, 3.0979924684101916e-02_dp, &
9150 -1.2867784281123959e-03_dp, -4.6126614533263735e-03_dp, 3.2856131571824614e-04_dp, &
9151 8.9223222108096990e-04_dp, -3.3421577643852616e-05_dp, -2.7142959004058064e-04_dp, &
9152 1.0953992802467019e-04_dp, -1.5370427764270796e-05_dp, 3.6238473019299857e-06_dp, &
9153 1.7957394158840545e+00_dp, -7.6574403746434661e-01_dp, 4.8537842200104014e-02_dp, &
9154 5.2360822807135658e-02_dp, -8.3350755683544234e-03_dp, -7.7088356658967239e-03_dp, &
9155 1.6907326728181175e-03_dp, 1.4727004194089355e-03_dp, -2.9848376058600709e-04_dp, &
9156 -4.5890070262808070e-04_dp, 2.5968046486014553e-04_dp, -5.0492382323740779e-05_dp, &
9157 6.4133621780081155e-06_dp, 2.5262136301711431e+00_dp, -1.2588607298899273e+00_dp, &
9158 1.5253497398909188e-01_dp, 8.1421469717775821e-02_dp, -2.3821436496503780e-02_dp, &
9159 -1.1489040350698325e-02_dp, 4.6191262169961445e-03_dp, 2.1284229023209771e-03_dp, &
9160 -8.7863297220430183e-04_dp, -6.9885410634119751e-04_dp, 5.4823184687904317e-04_dp, &
9161 -1.4084932910802381e-04_dp, 1.6899366991871437e-05_dp, 3.5123659329872625e+00_dp, &
9162 -2.0346082761913720e+00_dp, 3.6366813808794807e-01_dp, 1.1503446620296379e-01_dp, &
9163 -5.3909505121735528e-02_dp, -1.4743484990619836e-02_dp, 1.0146826347631005e-02_dp, &
9164 2.5497745431026582e-03_dp, -1.9698501663441875e-03_dp, -9.3634077876968234e-04_dp, &
9165 1.0547263092030720e-03_dp, -3.4197789086921887e-04_dp, 4.6897245033077326e-05_dp, &
9166 4.8615658543578890e+00_dp, -3.2456179761655868e+00_dp, 7.6674797762756552e-01_dp, &
9167 1.4154002387869766e-01_dp, -1.0779042624053684e-01_dp, -1.4342190696884314e-02_dp, &
9168 1.9628242867656083e-02_dp, 2.0123316603197143e-03_dp, -3.8036526812309686e-03_dp, &
9169 -1.0255285079106839e-03_dp, 1.8698313419945043e-03_dp, -7.4237378807489164e-04_dp, &
9170 1.1820859561659198e-04_dp, 6.7243640488374226e+00_dp, -5.1241379505231510e+00_dp, &
9171 1.5073836478498175e+00_dp, 1.3090312459656980e-01_dp, -1.9797012483116577e-01_dp, &
9172 -3.5368923851968148e-03_dp, 3.4498661615170442e-02_dp, -9.2463996990214416e-04_dp, &
9173 -6.5658463176524523e-03_dp, -6.6485773777846281e-04_dp, 3.0624077548521331e-03_dp, &
9174 -1.4675840447194452e-03_dp, 2.6687950020770981e-04_dp, 9.3139083034785379e+00_dp, &
9175 -8.0244497096949736e+00_dp, 2.8332477118834278e+00_dp, 1.5522414229484492e-02_dp, &
9176 -3.3893468747140731e-01_dp, 3.0800758429289306e-02_dp, 5.5506097333631294e-02_dp, &
9177 -8.8311029352697995e-03_dp, -1.0194631369398816e-02_dp, 6.8342519451028135e-04_dp, &
9178 4.6062825095427749e-03_dp, -2.6705893223239008e-03_dp, 5.4643420350779194e-04_dp, &
9179 1.2934585921249521e+01_dp, -1.2487983193387047e+01_dp, 5.1625830662902139e+00_dp, &
9180 -3.4641867453590114e-01_dp, -5.4137725689650251e-01_dp, 1.1230929110201276e-01_dp, &
9181 8.0834531173369778e-02_dp, -2.5867633057602857e-02_dp, -1.3957958298784179e-02_dp, &
9182 3.8652333980646594e-03_dp, 6.2435692573387415e-03_dp, -4.4931052938362573e-03_dp, &
9183 1.0271118708257464e-03_dp, 1.8025229894947888e+01_dp, -1.9343860235887981e+01_dp, &
9184 9.1975266340592636e+00_dp, -1.2397685603690685e+00_dp, -7.9561029845592168e-01_dp, &
9185 2.8043792713585208e-01_dp, 1.0205012717274836e-01_dp, -5.8031621983963111e-02_dp, &
9186 -1.5652637896035132e-02_dp, 1.0030483755240904e-02_dp, 7.2529698214355435e-03_dp, &
9187 -6.9701747701425868e-03_dp, 1.7852314445813721e-03_dp, 2.5226686181538120e+01_dp, &
9188 -2.9865961999886299e+01_dp, 1.6110802529841504e+01_dp, -3.2194475911241494e+00_dp, &
9189 -1.0303513955388184e+00_dp, 5.9474554354538078e-01_dp, 9.6101297590719212e-02_dp, &
9190 -1.1237368378646433e-01_dp, -1.0220072288871951e-02_dp, 2.0372906608218531e-02_dp, &
9191 6.0853027356999037e-03_dp, -9.8194206242380334e-03_dp, 2.8679427689706485e-03_dp, &
9192 3.5494031265018705e+01_dp, -4.6025018877931025e+01_dp, 2.7852880135496353e+01_dp, &
9193 -7.3401774215925366e+00_dp, -1.0186566668613926e+00_dp, 1.1300029991052669e+00_dp, &
9194 1.1295976109331713e-02_dp, -1.9301508698030923e-01_dp, 1.2241843214785244e-02_dp, &
9195 3.5142635468207804e-02_dp, -8.2517129158308055e-05_dp, -1.2012456289332549e-02_dp, &
9196 4.1969205275104700e-03_dp, 5.0301713674828171e+01_dp, -7.0918826017007646e+01_dp, &
9197 4.7664290809984450e+01_dp, -1.5561816383882222e+01_dp, -1.7868631517805517e-01_dp, &
9198 1.9389162015454402e+00_dp, -2.5170989059236282e-01_dp, -2.8945054924244118e-01_dp, &
9199 6.7800129944182816e-02_dp, 5.1001095146721069e-02_dp, -1.5261130863393309e-02_dp, &
9200 -1.1165054631480001e-02_dp, 5.3713423174483309e-03_dp, 7.2073804790616393e+01_dp, &
9201 -1.0960262316704710e+02_dp, 8.0985249028988193e+01_dp, -3.1454847999518755e+01_dp, &
9202 2.8131045955063794e+00_dp, 2.9325467224256498e+00_dp, -8.4832494632348165e-01_dp, &
9203 -3.5274801045453463e-01_dp, 1.7425095910591704e-01_dp, 5.6535696476405536e-02_dp, &
9204 -4.2150084007274102e-02_dp, -3.6504731904105233e-03_dp, 5.5123410746420135e-03_dp, &
9205 1.0525713658114117e+02_dp, -1.7104517278891666e+02_dp, 1.3737253723605420e+02_dp, &
9206 -6.1507403720685481e+01_dp, 1.0708265591623199e+01_dp, 3.6132806701224829e+00_dp, &
9207 -1.9428164726167740e+00_dp, -2.7177296350258656e-01_dp, 3.3358187899034614e-01_dp, &
9208 3.1602468053086578e-02_dp, -7.6640928780817658e-02_dp, 1.2767086056539591e-02_dp, &
9209 3.7015373482892546e-03_dp, 1.5961638373875255e+02_dp, -2.7407208180371384e+02_dp, &
9210 2.3597941902719086e+02_dp, -1.1831815835540151e+02_dp, 2.8965862566108601e+01_dp, &
9211 2.6695849787510491e+00_dp, -3.5799821757574688e+00_dp, 1.0012437250743024e-01_dp, &
9212 5.1714245220836208e-01_dp, -3.8887168121094023e-02_dp, -1.0903222378111407e-01_dp, &
9213 3.6184421001653103e-02_dp, 7.4184612058038470e-06_dp, 2.6370713876922872e+02_dp, &
9214 -4.7201989715682282e+02_dp, 4.2842096437204810e+02_dp, -2.3341869455214848e+02_dp, &
9215 6.9905383809584009e+01_dp, -2.5086723240417781e+00_dp, -5.7498093848956318e+00_dp, &
9216 8.7370241169426954e-01_dp, 7.2690318270483367e-01_dp, -1.5862760095796691e-01_dp, &
9217 -1.4433107481771534e-01_dp, 6.7767335244992954e-02_dp, -5.0600724217742732e-03_dp, &
9218 5.6003009143569716e+02_dp, -1.0287297849968459e+03_dp, 9.6498150903106421e+02_dp, &
9219 -5.5317904766641254e+02_dp, 1.8492063710688871e+02_dp, -1.9101040737585297e+01_dp, &
9220 -1.0231770142026468e+01_dp, 2.5465845134577312e+00_dp, 1.2703101988094840e+00_dp, &
9221 -4.1883844922802427e-01_dp, -2.4642046076164414e-01_dp, 1.4229171344177202e-01_dp, &
9222 -1.4875308764204570e-02_dp, 1.1946368463753128e+00_dp, -3.2495379783849715e-01_dp, &
9223 -3.5228366362451968e-02_dp, 1.9001587589605372e-02_dp, 4.2259462352662765e-03_dp, &
9224 -2.6842657875635143e-03_dp, -7.0387680924777728e-04_dp, 5.1324943831075869e-04_dp, &
9225 1.7519190242729584e-04_dp, -1.5790677102250255e-04_dp, 1.9118266393283089e-05_dp, &
9226 -3.2127263681394069e-06_dp, 6.1720484771177976e-06_dp, 1.3069315340948260e+00_dp, &
9227 -4.1805297500996297e-01_dp, -1.9174651660622710e-02_dp, 2.7527354291961389e-02_dp, &
9228 1.8936163303805468e-03_dp, -4.0779517864187736e-03_dp, -2.6637654979470501e-04_dp, &
9229 7.9164825616038234e-04_dp, 9.0616104454619150e-05_dp, -2.3837680235491997e-04_dp, &
9230 6.3556401416228639e-05_dp, -5.3380803695105839e-06_dp, 4.2840530293578485e-06_dp, &
9231 1.5445250149914536e+00_dp, -6.2287628679630180e-01_dp, 2.1843824089781916e-02_dp, &
9232 4.4718022389577831e-02_dp, -4.1973146173572883e-03_dp, -6.7826557553283739e-03_dp, &
9233 8.9075466785271920e-04_dp, 1.3203001424771435e-03_dp, -1.3887733251644589e-04_dp, &
9234 -3.9798804282131669e-04_dp, 1.7705748242976088e-04_dp, -2.1402551771088614e-05_dp, &
9235 2.2801890600343344e-06_dp, 1.9346618851392008e+00_dp, -9.7926756464428466e-01_dp, &
9236 1.0781255156226323e-01_dp, 7.0204267153656671e-02_dp, -1.7083979272462264e-02_dp, &
9237 -1.0472010647795030e-02_dp, 3.3479446665571036e-03_dp, 2.0046454310945101e-03_dp, &
9238 -6.3478895071837540e-04_dp, -6.2462188170554333e-04_dp, 4.0883505029748853e-04_dp, &
9239 -7.7995690482165342e-05_dp, 4.6890795156480489e-06_dp, 2.5218110054658807e+00_dp, &
9240 -1.5547109430512907e+00_dp, 2.7533116442749239e-01_dp, 1.0132320908146478e-01_dp, &
9241 -4.1829776586315127e-02_dp, -1.4151497493277881e-02_dp, 8.0101836422415695e-03_dp, &
9242 2.5858991445510790e-03_dp, -1.5782258678436166e-03_dp, -8.7134756801638584e-04_dp, &
9243 8.3107610724402121e-04_dp, -2.2325382352150771e-04_dp, 2.1184031900921113e-05_dp, &
9244 3.3730785337688096e+00_dp, -2.4562132009879658e+00_dp, 5.8822468241512738e-01_dp, &
9245 1.2938256628900288e-01_dp, -8.6117944085599613e-02_dp, -1.5346369501680956e-02_dp, &
9246 1.6105261132836165e-02_dp, 2.4662787067982008e-03_dp, -3.1947037676917276e-03_dp, &
9247 -1.0145572939541253e-03_dp, 1.5309117164874644e-03_dp, -5.3600219225621295e-04_dp, &
9248 7.0324364856116483e-05_dp, 4.5868466733976998e+00_dp, -3.8497189820072570e+00_dp, &
9249 1.1557884102835358e+00_dp, 1.3236494031740839e-01_dp, -1.6068493389320054e-01_dp, &
9250 -8.7123214871505979e-03_dp, 2.9032643032267314e-02_dp, 4.4156030667138075e-04_dp, &
9251 -5.6942421453560228e-03_dp, -7.9246900794011370e-04_dp, 2.5835195275365408e-03_dp, &
9252 -1.1316665352679273e-03_dp, 1.8389558466057045e-04_dp, 6.3058543134695348e+00_dp, &
9253 -5.9904367486606711e+00_dp, 2.1632706388868730e+00_dp, 6.0862754524593270e-02_dp, &
9254 -2.7876465363888409e-01_dp, 1.6240870724100132e-02_dp, 4.7821555177730193e-02_dp, &
9255 -5.6736395491679926e-03_dp, -9.1125860875598368e-03_dp, 2.7444438602033391e-04_dp, &
9256 3.9878923020532997e-03_dp, -2.1556997302423510e-03_dp, 4.1038336500161027e-04_dp, &
9257 8.7367679966561802e+00_dp, -9.2696858881557223e+00_dp, 3.9225237552290722e+00_dp, &
9258 -1.8871498473285156e-01_dp, -4.5266022613648998e-01_dp, 7.8678436144091410e-02_dp, &
9259 7.1755861676809696e-02_dp, -1.9502646657472384e-02_dp, -1.2970460818387342e-02_dp, &
9260 2.9640688478987454e-03_dp, 5.5440927395923583e-03_dp, -3.7503139256693141e-03_dp, &
9261 8.1466890564677789e-04_dp, 1.2179715928272094e+01_dp, -1.4287247815361980e+01_dp, &
9262 6.9559238252243123e+00_dp, -8.2452423618630410e-01_dp, -6.8317025405101606e-01_dp, &
9263 2.1141333388888769e-01_dp, 9.5346291787819212e-02_dp, -4.6499824144226799e-02_dp, &
9264 -1.5623028966346148e-02_dp, 8.3849673127276043e-03_dp, 6.6500033547118049e-03_dp, &
9265 -5.9740661993351847e-03_dp, 1.4691884865455198e-03_dp, 1.7073926981017319e+01_dp, &
9266 -2.1963630226832553e+01_dp, 1.2134829552891802e+01_dp, -2.2528424944623944e+00_dp, &
9267 -9.3240764730384440e-01_dp, 4.6660358949448766e-01_dp, 1.0216844176487623e-01_dp, &
9268 -9.3824494827588173e-02_dp, -1.3105510915164605e-02_dp, 1.7849498315239853e-02_dp/)
9269 REAL(kind=dp), DIMENSION(400), PARAMETER :: c02 = (/5.9915911031709962e-03_dp, &
9270 -8.6423694074923528e-03_dp, 2.4291300518560965e-03_dp, 2.4071366084770816e+01_dp, &
9271 -3.3716515170389293e+01_dp, 2.0906788438349480e+01_dp, -5.2492585742829574e+00_dp, &
9272 -1.0597221453010373e+00_dp, 9.1826115756590143e-01_dp, 5.3116568030487622e-02_dp, &
9273 -1.6840980447490020e-01_dp, 2.7804548003092637e-03_dp, 3.2324581009718446e-02_dp, &
9274 1.0845459715807160e-03_dp, -1.1013651706859648e-02_dp, 3.6730611525692776e-03_dp, &
9275 3.4164354226130186e+01_dp, -5.1747145255461746e+01_dp, 3.5667082252749204e+01_dp, &
9276 -1.1265379545809436e+01_dp, -6.7939439898041476e-01_dp, 1.6480605577661318e+00_dp, &
9277 -1.3378965635839782e-01_dp, -2.6979010160400613e-01_dp, 4.7149105264278728e-02_dp, &
9278 5.0747602507635034e-02_dp, -1.2294628821884937e-02_dp, -1.1142091315825215e-02_dp, &
9279 4.9501418663369838e-03_dp, 4.8931770063798176e+01_dp, -7.9540390842429701e+01_dp, &
9280 6.0373542926316304e+01_dp, -2.2962155467014412e+01_dp, 1.1360885415171147e+00_dp, &
9281 2.6763499892965861e+00_dp, -6.0987396392114657e-01_dp, -3.6997629107051999e-01_dp, &
9282 1.4345000248927353e-01_dp, 6.5524578572070433e-02_dp, -3.9862967761504962e-02_dp, &
9283 -4.8299270547189094e-03_dp, 5.4310464886229816e-03_dp, 7.1084878218521894e+01_dp, &
9284 -1.2286891263137933e+02_dp, 1.0163325401682647e+02_dp, -4.5111853024962613e+01_dp, &
9285 6.4218229411147210e+00_dp, 3.7532636523243239e+00_dp, -1.6002854623816907e+00_dp, &
9286 -3.7101035717591935e-01_dp, 3.1409505327231513e-01_dp, 5.3941115043966030e-02_dp, &
9287 -8.3818143472302709e-02_dp, 1.4207263645641415e-02_dp, 3.3546858581714827e-03_dp, &
9288 1.0588222696611157e+02_dp, -1.9226833008452053e+02_dp, 1.7101798076439422e+02_dp, &
9289 -8.6186553476897572e+01_dp, 1.9271662529722853e+01_dp, 3.8930409361722291e+00_dp, &
9290 -3.2922928695756104e+00_dp, -6.0113623291277216e-02_dp, 5.4062487480709565e-01_dp, &
9291 -2.4107047161548600e-02_dp, -1.2869189718624949e-01_dp, 4.7717461953990542e-02_dp, &
9292 -2.9342027944556193e-03_dp, 1.6546877079051265e+02_dp, -3.1068544904103140e+02_dp, &
9293 2.9180626201261043e+02_dp, -1.6205766726181861e+02_dp, 4.7344515303703460e+01_dp, &
9294 7.0564709632446621e-01_dp, -5.4990736658749366e+00_dp, 8.1374078900166369e-01_dp, &
9295 7.1175171802245729e-01_dp, -1.8680907638713953e-01_dp, -1.3919953678136415e-01_dp, &
9296 8.1913606331528166e-02_dp, -1.1490899293904754e-02_dp, 2.8527479104831519e+02_dp, &
9297 -5.4324338868812106e+02_dp, 5.2597081274478194e+02_dp, -3.1032555466251750e+02_dp, &
9298 1.0592128649569207e+02_dp, -9.9230478811039369e+00_dp, -7.5217801155503921e+00_dp, &
9299 2.2260389199008581e+00_dp, 7.4389817085116938e-01_dp, -3.7487661915364073e-01_dp, &
9300 -1.2135071368815714e-01_dp, 1.0472900042735607e-01_dp, -1.7467242484406273e-02_dp, &
9301 6.1069908841010852e+02_dp, -1.1574002440882412e+03_dp, 1.1246410459943154e+03_dp, &
9302 -6.7559373392291536e+02_dp, 2.4469690351149762e+02_dp, -3.4981011467122990e+01_dp, &
9303 -1.0447270088817676e+01_dp, 4.1199824733302801e+00_dp, 1.0753683950263284e+00_dp, &
9304 -6.1667707322635523e-01_dp, -1.9231863825085113e-01_dp, 1.6351050609684276e-01_dp, &
9305 -2.4438171008690827e-02_dp, 2.3309249136020708e+03_dp, -4.3538180199326071e+03_dp, &
9306 4.1700553851275899e+03_dp, -2.4659990924985104e+03_dp, 8.7681545314646689e+02_dp, &
9307 -1.2252110351183714e+02_dp, -3.4744515550283161e+01_dp, 1.1919976509846366e+01_dp, &
9308 4.5071725742760815e+00_dp, -1.9152099076735201e+00_dp, -8.5859628246475261e-01_dp, &
9309 5.7717184691703094e-01_dp, -7.0410149927279939e-02_dp, 1.8682839453664454e-01_dp, &
9310 -4.6619677822158430e-02_dp, -1.2244969271828127e-02_dp, 6.0589256164018451e-03_dp, &
9311 3.6233383923308837e-03_dp, -2.1697547440741212e-03_dp, -1.5324832573249004e-03_dp, &
9312 7.6307014457020446e-04_dp, 1.5009945716157327e-03_dp, -1.5948622920885888e-03_dp, &
9313 4.2721023924721354e-04_dp, 1.2452965510300625e-04_dp, -6.8101344859438604e-05_dp, &
9314 5.8892228459182272e-01_dp, -1.6187708429798231e-01_dp, -3.6609865098592521e-02_dp, &
9315 2.3522804102595687e-02_dp, 1.0989418080689319e-02_dp, -8.7225886606387588e-03_dp, &
9316 -4.6358129182236165e-03_dp, 3.1750312025791852e-03_dp, 5.1844812097367743e-03_dp, &
9317 -6.5275901023297469e-03_dp, 2.5192599245746250e-03_dp, -2.7790386311357066e-05_dp, &
9318 -1.5519525312227047e-04_dp, 1.0819380779186476e+00_dp, -3.5078545793786275e-01_dp, &
9319 -5.8317591891871842e-02_dp, 5.8961787807382718e-02_dp, 1.7698109526329605e-02_dp, &
9320 -2.2770460521331585e-02_dp, -7.3205917206429702e-03_dp, 8.6317273038198361e-03_dp, &
9321 1.0821379193248763e-02_dp, -1.7385782357341700e-02_dp, 9.1208897862528268e-03_dp, &
9322 -1.7582601800537039e-03_dp, -2.5708035752802444e-05_dp, 1.7461298655116124e+00_dp, &
9323 -6.8967176721527312e-01_dp, -6.6751042045674530e-02_dp, 1.3103208070134215e-01_dp, &
9324 1.9338401160822482e-02_dp, -5.2191210709296623e-02_dp, -7.2199928465625264e-03_dp, &
9325 2.0478760930027633e-02_dp, 1.9174065370320473e-02_dp, -4.0384174885238051e-02_dp, &
9326 2.6020899384681384e-02_dp, -7.4705034438871248e-03_dp, 7.2143802459460730e-04_dp, &
9327 2.6950773766538831e+00_dp, -1.3037225406473845e+00_dp, -3.2614496759563683e-02_dp, &
9328 2.6916418726799823e-01_dp, 3.0053439263977664e-03_dp, -1.0921441669530184e-01_dp, &
9329 2.4831672286212188e-03_dp, 4.4091697655829862e-02_dp, 2.9150030585017250e-02_dp, &
9330 -8.4774815208886814e-02_dp, 6.3626601084289261e-02_dp, -2.2005245386043593e-02_dp, &
9331 2.9767021718693147e-03_dp, 4.0984375451052717e+00_dp, -2.4066178073051301e+00_dp, &
9332 1.1383731173835311e-01_dp, 5.1909474912068099e-01_dp, -6.2603108434964416e-02_dp, &
9333 -2.1175654622555612e-01_dp, 3.8133384598550361e-02_dp, 8.7587360901696096e-02_dp, &
9334 3.4278741909182162e-02_dp, -1.6260127734933916e-01_dp, 1.3944397087807067e-01_dp, &
9335 -5.4447820679856637e-02_dp, 8.5453383708596811e-03_dp, 6.2176136529295158e+00_dp, &
9336 -4.3693211280877762e+00_dp, 5.2774370702314355e-01_dp, 9.4773880309914649e-01_dp, &
9337 -2.4690257552432496e-01_dp, -3.8251497933289635e-01_dp, 1.3533123197212421e-01_dp, &
9338 1.6155301558102667e-01_dp, 1.4718947044978946e-02_dp, -2.8450075717598156e-01_dp, &
9339 2.7982684165522875e-01_dp, -1.2045734281774570e-01_dp, 2.0790000977242391e-02_dp, &
9340 9.4634111053439103e+00_dp, -7.8418332358592870e+00_dp, 1.5417436172364343e+00_dp, &
9341 1.6414265351909745e+00_dp, -6.9529406365081492e-01_dp, -6.4050441706217742e-01_dp, &
9342 3.6647261823447669e-01_dp, 2.7522127699205079e-01_dp, -7.9228003624491242e-02_dp, &
9343 -4.4498374478349312e-01_dp, 5.1708841341964662e-01_dp, -2.4407600743956154e-01_dp, &
9344 4.5405289677376504e-02_dp, 1.4490868628033503e+01_dp, -1.3971233939072121e+01_dp, &
9345 3.8542271282507108e+00_dp, 2.6797445232398029e+00_dp, -1.6991502505639382e+00_dp, &
9346 -9.7162873904940783e-01_dp, 8.6994103205685502e-01_dp, 4.2251973253482306e-01_dp, &
9347 -3.5811394605060659e-01_dp, -5.8327449682364263e-01_dp, 8.7181325262147957e-01_dp, &
9348 -4.5547158946665350e-01_dp, 9.0828400398500778e-02_dp, 2.2357425070187674e+01_dp, &
9349 -2.4796353116963004e+01_dp, 8.9144869553283570e+00_dp, 4.0371985902019292e+00_dp, &
9350 -3.8186248869629074e+00_dp, -1.2467737038604281e+00_dp, 1.8925278595991524e+00_dp, &
9351 5.4265414205624996e-01_dp, -1.0448438269132569e+00_dp, -4.9352647807166389e-01_dp, &
9352 1.2974717296843923e+00_dp, -7.7527513958093197e-01_dp, 1.6672848898454873e-01_dp, &
9353 3.4790250541342665e+01_dp, -4.3969980740698468e+01_dp, 1.9713761658579021e+01_dp, &
9354 5.2896392037293767e+00_dp, -8.0806472982724422e+00_dp, -1.0170835399174816e+00_dp, &
9355 3.8335251168155606e+00_dp, 4.2219424033780178e-01_dp, -2.5430562807078081e+00_dp, &
9356 3.5748238853390918e-01_dp, 1.5419198749245833e+00_dp, -1.1644678241284623e+00_dp, &
9357 2.7666437341984224e-01_dp, 5.4644357897813208e+01_dp, -7.8095758505940708e+01_dp, &
9358 4.2420187894560037e+01_dp, 4.8151968808568224e+00_dp, -1.6245875469915777e+01_dp, &
9359 9.6243602774289128e-01_dp, 7.2326780768599983e+00_dp, -5.2544186970366702e-01_dp, &
9360 -5.4789383956688651e+00_dp, 3.1531099403716132e+00_dp, 8.4886474149751467e-01_dp, &
9361 -1.3986356059167204e+00_dp, 3.9650600036767097e-01_dp, 8.6699804225947645e+01_dp, &
9362 -1.3923361555998270e+02_dp, 8.9786173246194181e+01_dp, -2.2858823629011713e+00_dp, &
9363 -3.0992469263910380e+01_dp, 7.7741399253657599e+00_dp, 1.2505917232015936e+01_dp, &
9364 -3.7068949594152851e+00_dp, -1.0555346369807513e+01_dp, 1.0188356709429819e+01_dp, &
9365 -2.6001240535680141e+00_dp, -7.9853252277010678e-01_dp, 4.2303845984206989e-01_dp, &
9366 1.3907554680969875e+02_dp, -2.4965842431321846e+02_dp, 1.8831846945865320e+02_dp, &
9367 -2.9489704359881337e+01_dp, -5.5316316864452965e+01_dp, 2.6447389036265232e+01_dp, &
9368 1.8854798651484575e+01_dp, -1.2120609962757287e+01_dp, -1.7763715122527280e+01_dp, &
9369 2.5231831140577533e+01_dp, -1.2544891115185020e+01_dp, 2.2668677068936747e+00_dp, &
9370 6.8708716177258419e-02_dp, 2.2580720743716594e+02_dp, -4.5104097133606439e+02_dp, &
9371 3.9351587358059925e+02_dp, -1.1220803805233957e+02_dp, -8.8584998126696050e+01_dp, &
9372 7.1690786222667725e+01_dp, 2.0820379520370651e+01_dp, -3.1251600385405137e+01_dp, &
9373 -2.3842474793325504e+01_dp, 5.2733349756860250e+01_dp, -3.5442716338070284e+01_dp, &
9374 1.1104138822595329e+01_dp, -1.3193636495537726e+00_dp, 3.7178643267228017e+02_dp, &
9375 -8.2258367035709261e+02_dp, 8.2255509467989646e+02_dp, -3.4122567397482152e+02_dp, &
9376 -1.1069056818136373e+02_dp, 1.7023549623079217e+02_dp, -1.0915097896851977e+00_dp, &
9377 -6.8273494641212551e+01_dp, -1.5708419656731760e+01_dp, 9.2205658507516148e+01_dp, &
9378 -7.8945038472936645e+01_dp, 3.0974630589084953e+01_dp, -4.9401496535210629e+00_dp, &
9379 6.2326881452254656e+02_dp, -1.5188270356173509e+03_dp, 1.7254522561739329e+03_dp, &
9380 -9.4519869568904846e+02_dp, -2.7999063550782221e+01_dp, 3.5481857290613175e+02_dp, &
9381 -1.0099523826322665e+02_dp, -1.2123045796995562e+02_dp, 4.0970797552648818e+01_dp, &
9382 1.1891202216538902e+02_dp, -1.3972808947295965e+02_dp, 6.5322452115099665e+01_dp, &
9383 -1.2075994070187011e+01_dp, 1.0756923535067231e+03_dp, -2.8616598027309929e+03_dp, &
9384 3.6507795405336346e+03_dp, -2.4909049195091211e+03_dp, 4.8798405235788942e+02_dp, &
9385 5.9835790021628566e+02_dp, -3.8831159871198366e+02_dp, -1.3665662485667869e+02_dp, &
9386 1.9320859447294200e+02_dp, 5.7805579962611311e+01_dp, -1.7452945217439253e+02_dp, &
9387 1.0228317193023724e+02_dp, -2.1552120617229455e+01_dp, 1.9817023447702200e+03_dp, &
9388 -5.6689826598340678e+03_dp, 7.9668997146417360e+03_dp, -6.4333249134176367e+03_dp, &
9389 2.4219830207338719e+03_dp, 5.7967220853445599e+02_dp, -9.5984621210825696e+02_dp, &
9390 3.2978769612793030e+01_dp, 4.1917841670563894e+02_dp, -1.5534544314105773e+02_dp, &
9391 -1.2421868756049768e+02_dp, 1.1843742614679046e+02_dp, -2.9556703864728348e+01_dp, &
9392 4.5306956901767944e+03_dp, -1.3608434324291762e+04_dp, 2.0416922578512735e+04_dp, &
9393 -1.8375713453892236e+04_dp, 9.1917215327749964e+03_dp, -7.4781042033255528e+02_dp, &
9394 -1.8977895694601118e+03_dp, 5.0289039209206737e+02_dp, 7.8898968358442164e+02_dp, &
9395 -5.7658145419403400e+02_dp, -1.4194226893666439e+01_dp, 1.4827723853173043e+02_dp, &
9396 -4.5635215304885165e+01_dp, 1.5132189223523540e+00_dp, -3.8714502724407229e-01_dp, &
9397 -9.8018889420702443e-02_dp, 5.1908250545652360e-02_dp, 2.9129428048283938e-02_dp, &
9398 -1.8776985333903432e-02_dp, -1.2318593850205199e-02_dp, 6.6695589588984475e-03_dp, &
9399 1.2466570600707088e-02_dp, -1.3874197741980808e-02_dp, 4.1907856070478042e-03_dp, &
9400 7.5271368574731106e-04_dp, -5.1647877466666774e-04_dp, 1.7444005611942730e+00_dp, &
9401 -5.6824316669549102e-01_dp, -9.5567270387908632e-02_dp, 9.5953975937291464e-02_dp, &
9402 2.9440932840795256e-02_dp, -3.7050946327260699e-02_dp, -1.2287347330040912e-02_dp/)
9403 REAL(kind=dp), DIMENSION(400), PARAMETER :: c03 = (/1.4012464467116794e-02_dp, &
9404 1.7870937744543961e-02_dp, -2.8284778305657239e-02_dp, 1.4614940139686226e-02_dp, &
9405 -2.7014027690474133e-03_dp, -7.8952988099918739e-05_dp, 2.2522270551584125e+00_dp, &
9406 -9.9237513069804251e-01_dp, -7.1665511461607434e-02_dp, 1.9968203248776958e-01_dp, &
9407 2.1586264982050893e-02_dp, -8.0464217361784704e-02_dp, -7.7695595383537727e-03_dp, &
9408 3.1814347737576659e-02_dp, 2.7811012184441854e-02_dp, -6.2649965060119633e-02_dp, &
9409 4.1918544103320216e-02_dp, -1.2666876155687441e-02_dp, 1.3660025331692276e-03_dp, &
9410 3.1355625943697762e+00_dp, -1.7996536940652996e+00_dp, 2.2381691245553063e-02_dp, &
9411 3.9612212867481145e-01_dp, -1.6449727468430150e-02_dp, -1.6295147202484259e-01_dp, &
9412 1.2800103481059741e-02_dp, 6.6491589187543318e-02_dp, 3.8496472917503681e-02_dp, &
9413 -1.2749901018687695e-01_dp, 1.0004618939892632e-01_dp, -3.6137844427782950e-02_dp, &
9414 5.1770195187856929e-03_dp, 4.5668263189960809e+00_dp, -3.2508325919683241e+00_dp, &
9415 2.9442091272203441e-01_dp, 7.3905390144916405e-01_dp, -1.3384430189810520e-01_dp, &
9416 -3.0519473426292121e-01_dp, 7.5103144196923433e-02_dp, 1.2781992372799392e-01_dp, &
9417 3.7492879106017292e-02_dp, -2.3587781768150057e-01_dp, 2.1232133279926324e-01_dp, &
9418 -8.6033979418852449e-02_dp, 1.4025330806284918e-02_dp, 6.8306176002396661e+00_dp, &
9419 -5.8119086384988803e+00_dp, 9.7490754567894877e-01_dp, 1.3049740304463888e+00_dp, &
9420 -4.3490563945641791e-01_dp, -5.3072489778072540e-01_dp, 2.3270303823013319e-01_dp, &
9421 2.2740302928499284e-01_dp, -8.6507435588130746e-03_dp, -3.9468254647236639e-01_dp, &
9422 4.1189269031114867e-01_dp, -1.8379654833529319e-01_dp, 3.2710121302165010e-02_dp, &
9423 1.0390575731969639e+01_dp, -1.0309231722090752e+01_dp, 2.5464315850199029e+00_dp, &
9424 2.1830827795271524e+00_dp, -1.1319594654536267e+00_dp, -8.4971117936736751e-01_dp, &
9425 5.9122626817509949e-01_dp, 3.7127494548695916e-01_dp, -1.7896260036582676e-01_dp, &
9426 -5.7922303833023392e-01_dp, 7.3368980026983677e-01_dp, -3.6037859396806582e-01_dp, &
9427 6.9003335230075069e-02_dp, 1.6002364677374977e+01_dp, -1.8210615137406258e+01_dp, &
9428 6.0073025151814532e+00_dp, 3.4250138514203066e+00_dp, -2.6414806725325550e+00_dp, &
9429 -1.2096574762879975e+00_dp, 1.3472659206289432e+00_dp, 5.3635873100939280e-01_dp, &
9430 -6.4288697341708967e-01_dp, -6.6970318883021285e-01_dp, 1.1814039303496457e+00_dp, &
9431 -6.4954054414694495e-01_dp, 1.3361067762784279e-01_dp, 2.4905165004773185e+01_dp, &
9432 -3.2138208303483374e+01_dp, 1.3409824399537735e+01_dp, 4.8815305907327238e+00_dp, &
9433 -5.7496874849540909e+00_dp, -1.3655975920609458e+00_dp, 2.8416424417161545e+00_dp, &
9434 6.0744001443999063e-01_dp, -1.7319413268413426e+00_dp, -3.1102100539977884e-01_dp, &
9435 1.6338737133746211e+00_dp, -1.0583411311910322e+00_dp, 2.3663443320973138e-01_dp, &
9436 3.9149516015116362e+01_dp, -5.6813706285333311e+01_dp, 2.8965448354605932e+01_dp, &
9437 5.7421686338785047e+00_dp, -1.1871980500371624e+01_dp, -5.6543446935291142e-01_dp, &
9438 5.6045107680728776e+00_dp, 2.2503023424962715e-01_dp, -4.0269224337355114e+00_dp, &
9439 1.3631950103938133e+00_dp, 1.6221634173962662e+00_dp, -1.4818038878243160e+00_dp, &
9440 3.7423258125912723e-01_dp, 6.2165735856370389e+01_dp, -1.0082025924844557e+02_dp, &
9441 6.1330857086424636e+01_dp, 3.3187227725079316e+00_dp, -2.3380689687069282e+01_dp, &
9442 3.1683638576480098e+00_dp, 1.0296270093353964e+01_dp, -1.5512204348401999e+00_dp, &
9443 -8.3821659603468390e+00_dp, 6.2014658906591276e+00_dp, -1.3435796755846094e-01_dp, &
9444 -1.4991994694273796e+00_dp, 4.9235900829999746e-01_dp, 9.9764309320929868e+01_dp, &
9445 -1.7992761720012572e+02_dp, 1.2838124909734995e+02_dp, -1.0067710243253384e+01_dp, &
9446 -4.3747416798516454e+01_dp, 1.4588791418335694e+01_dp, 1.7234209303970911e+01_dp, &
9447 -6.9157222786756467e+00_dp, -1.5616463216416106e+01_dp, 1.7661695341240645e+01_dp, &
9448 -6.5632441414580995e+00_dp, 4.6107861550632338e-02_dp, 4.0429578336215916e-01_dp, &
9449 1.6192996213509178e+02_dp, -3.2345183259818674e+02_dp, 2.6728260309780984e+02_dp, &
9450 -5.4934721948077964e+01_dp, -7.6420235817495239e+01_dp, 4.4341723962570370e+01_dp, &
9451 2.4617318327247116e+01_dp, -2.0464011397274241e+01_dp, -2.5136972926424946e+01_dp, &
9452 4.1157382314364590e+01_dp, -2.3454249403793014e+01_dp, 5.7905373012948962e+00_dp, &
9453 -3.7151924625073762e-01_dp, 2.6612804981637356e+02_dp, -5.8660374248587323e+02_dp, &
9454 5.5597284125538818e+02_dp, -1.8432038838199645e+02_dp, -1.1859595383908474e+02_dp, &
9455 1.1449618036240184e+02_dp, 2.3096079841726318e+01_dp, -5.0496124411414627e+01_dp, &
9456 -3.0760587855042580e+01_dp, 8.2441989484414663e+01_dp, -6.0440740405265736e+01_dp, &
9457 2.0892064007476247e+01_dp, -2.8821707975965407e+00_dp, 4.4369669215955679e+02_dp, &
9458 -1.0749724494514057e+03_dp, 1.1593969816222766e+03_dp, -5.3302317687626135e+02_dp, &
9459 -1.3715111027236267e+02_dp, 2.6529860970775599e+02_dp, -1.9004859388517797e+01_dp, &
9460 -1.0782865542385048e+02_dp, -1.0024949426649870e+01_dp, 1.3842513763413518e+02_dp, &
9461 -1.2847895610869600e+02_dp, 5.3470240396583165e+01_dp, -9.0328668602524544e+00_dp, &
9462 7.5346534185182429e+02_dp, -1.9952392505299072e+03_dp, 2.4299447215024820e+03_dp, &
9463 -1.4396109992918582e+03_dp, 1.3298234472702070e+01_dp, 5.4802453254041689e+02_dp, &
9464 -1.9023333858956633e+02_dp, -1.8964738445274472e+02_dp, 9.7587567615069020e+01_dp, &
9465 1.6354143452048581e+02_dp, -2.1971374673088104e+02_dp, 1.0879392628260086e+02_dp, &
9466 -2.0963583502054494e+01_dp, 1.3170419393603040e+03_dp, -3.7739560335424503e+03_dp, &
9467 5.1335488235209250e+03_dp, -3.7408311327837364e+03_dp, 8.4211641182365474e+02_dp, &
9468 9.2551814404559434e+02_dp, -6.8464014949108071e+02_dp, -2.0411488709587312e+02_dp, &
9469 3.9392227255553178e+02_dp, -2.7256439657068738e+00_dp, -2.3813864878020763e+02_dp, &
9470 1.5893698689400233e+02_dp, -3.5584326778431219e+01_dp, 2.4452352059405862e+03_dp, &
9471 -7.4377745780056084e+03_dp, 1.1067488576469721e+04_dp, -9.4896153343244987e+03_dp, &
9472 3.8782719555563267e+03_dp, 8.3846279328892012e+02_dp, -1.6963477989104424e+03_dp, &
9473 1.9083731740985843e+02_dp, 8.1093174916219630e+02_dp, -5.4226175427579835e+02_dp, &
9474 1.2518886616972225e+01_dp, 1.1490785535678236e+02_dp, -3.6491764381788030e+01_dp, &
9475 5.3330085765150261e+03_dp, -1.6666877738151037e+04_dp, 2.6076020406118962e+04_dp, &
9476 -2.4677010132749703e+04_dp, 1.3307416777568624e+04_dp, -1.6319434420381626e+03_dp, &
9477 -2.8258156451600034e+03_dp, 1.2347677417808713e+03_dp, 9.6224967002132507e+02_dp, &
9478 -1.1349195336895932e+03_dp, 3.5716055241575810e+02_dp, 3.3514646317404001e+01_dp, &
9479 -3.1835363222344533e+01_dp, 1.9791355268743882e+04_dp, -6.1293055686968582e+04_dp, &
9480 9.5680928609287061e+04_dp, -9.1568459060692185e+04_dp, 5.2201017929389076e+04_dp, &
9481 -1.1121707130041303e+04_dp, -5.9896108180577212e+03_dp, 2.8711813866255552e+03_dp, &
9482 2.8442192738211143e+03_dp, -2.8748668019934485e+03_dp, 5.5449597276475947e+02_dp, &
9483 3.3697546690239642e+02_dp, -1.4001963907445077e+02_dp, 2.1435457880133899e-01_dp, &
9484 -3.0445050547489378e-02_dp, -1.1502220181206861e-02_dp, 3.3927624439129855e-03_dp, &
9485 3.4189557542295174e-03_dp, -1.2218199554707497e-03_dp, -1.5066279978736984e-03_dp, &
9486 3.5867793931900605e-04_dp, 1.4303870829534720e-03_dp, -1.1751047917745799e-03_dp, &
9487 1.1448519522410556e-04_dp, 2.2484723844012693e-04_dp, -7.9625602391486381e-05_dp, &
9488 6.8669139798068002e-01_dp, -1.1070670760471460e-01_dp, -3.8815146888622191e-02_dp, &
9489 1.4421740546154914e-02_dp, 1.1981770590339011e-02_dp, -5.3869891046450912e-03_dp, &
9490 -5.3259041256285061e-03_dp, 1.6932851375693670e-03_dp, 5.4587177464697767e-03_dp, &
9491 -5.1318888796206240e-03_dp, 1.1113119925963892e-03_dp, 5.5707042656183924e-04_dp, &
9492 -2.5031832857251932e-04_dp, 1.3017958498163928e+00_dp, -2.5836549390329550e-01_dp, &
9493 -7.9522740248279142e-02_dp, 4.0966970905658096e-02_dp, 2.5961846371615496e-02_dp, &
9494 -1.5996708083253323e-02_dp, -1.1668689158977025e-02_dp, 5.3987213548460644e-03_dp, &
9495 1.3553939593849051e-02_dp, -1.5161416199164019e-02_dp, 5.2920214407258222e-03_dp, &
9496 2.4789363134447497e-04_dp, -4.1875707155075752e-04_dp, 2.1973724796967060e+00_dp, &
9497 -5.5274701142067917e-01_dp, -1.4357245126583923e-01_dp, 1.0384774390949460e-01_dp, &
9498 4.9473349286753690e-02_dp, -4.2206845894195689e-02_dp, -2.2382617295611081e-02_dp, &
9499 1.5059572073191307e-02_dp, 3.0398772810786283e-02_dp, -4.0085034231927559e-02_dp, &
9500 1.8281218393724739e-02_dp, -2.3368359760019852e-03_dp, -4.1946031605447358e-04_dp, &
9501 3.5872393736741892e+00_dp, -1.1397626678673476e+00_dp, -2.3978729107103397e-01_dp, &
9502 2.4474181628521541e-01_dp, 8.5876014179872409e-02_dp, -1.0302284902670406e-01_dp, &
9503 -3.8644600170405448e-02_dp, 3.8463608204633855e-02_dp, 6.3915061285770847e-02_dp, &
9504 -9.8422842593201207e-02_dp, 5.3458921537296901e-02_dp, -1.1737485346159822e-02_dp, &
9505 3.5223316761622068e-04_dp, 5.8230089184481608e+00_dp, -2.2981115043123683e+00_dp, &
9506 -3.6708206680875766e-01_dp, 5.4793630683732597e-01_dp, 1.3260167763700370e-01_dp, &
9507 -2.3785074235442757e-01_dp, -5.7719416353132290e-02_dp, 9.2450227914151389e-02_dp, &
9508 1.2669173511185230e-01_dp, -2.2861142653418301e-01_dp, 1.4176511400260272e-01_dp, &
9509 -3.9625027891297522e-02_dp, 3.6743327870223182e-03_dp, 9.5024717953790585e+00_dp, &
9510 -4.5698286444549199e+00_dp, -4.8749963554224052e-01_dp, 1.1830931580696589e+00_dp, &
9511 1.6497571972527433e-01_dp, -5.2711345036646928e-01_dp, -6.2998011226482770e-02_dp, &
9512 2.1284167669799156e-01_dp, 2.3538540644563008e-01_dp, -5.0792488101412725e-01_dp, &
9513 3.5245039897125219e-01_dp, -1.1446896115953678e-01_dp, 1.4289249240853091e-02_dp, &
9514 1.5666042754500245e+01_dp, -9.0233915532177953e+00_dp, -4.5159576117067335e-01_dp, &
9515 2.4887534553074904e+00_dp, 9.0670470640627859e-02_dp, -1.1312846755872035e+00_dp, &
9516 3.8111343009444320e-03_dp, 4.7424674847483844e-01_dp, 4.0054202834589053e-01_dp, &
9517 -1.0842444122478243e+00_dp, 8.3507352445861216e-01_dp, -3.0284416515089485e-01_dp, &
9518 4.4096366950424772e-02_dp, 2.6161032398783654e+01_dp, -1.7794137065441063e+01_dp, &
9519 1.9957922278720683e-01_dp, 5.1325134511234731e+00_dp, -3.7238280322014222e-01_dp, &
9520 -2.3605015078492113e+00_dp, 3.1646959944127984e-01_dp, 1.0276213558669789e+00_dp, &
9521 5.8276774951493282e-01_dp, -2.2183031836814724e+00_dp, 1.8984835446720232e+00_dp, &
9522 -7.5410521451439838e-01_dp, 1.2153634803586906e-01_dp, 4.4332125750992894e+01_dp, &
9523 -3.5216911762790389e+01_dp, 2.7515312485019741e+00_dp, 1.0407651938533359e+01_dp, &
9524 -2.0146926217048411e+00_dp, -4.7839201365532205e+00_dp, 1.3535664467773134e+00_dp, &
9525 2.1644804230399943e+00_dp, 5.4450764825895215e-01_dp, -4.2990170260660685e+00_dp, &
9526 4.1392834856622303e+00_dp, -1.7868794706520530e+00_dp, 3.1134654318639488e-01_dp, &
9527 7.6360718814403441e+01_dp, -7.0253763630464462e+01_dp, 1.0664558219640512e+01_dp, &
9528 2.0743007038958023e+01_dp, -6.9544924163722843e+00_dp, -9.3467664173592819e+00_dp, &
9529 4.3712655485208352e+00_dp, 4.3994628592890503e+00_dp, -5.9790313958115127e-01_dp, &
9530 -7.6609316918298695e+00_dp, 8.5784839688301471e+00_dp, -4.0319809725090563e+00_dp, &
9531 7.5205840776261002e-01_dp, 1.3392877071998257e+02_dp, -1.4183042758875911e+02_dp, &
9532 3.3121435990401395e+01_dp, 4.0426295721862452e+01_dp, -2.0721850212906318e+01_dp, &
9533 -1.7263628579210469e+01_dp, 1.2547672408466081e+01_dp, 8.4591865266308197e+00_dp, &
9534 -5.6249151706448863e+00_dp, -1.1592672327907211e+01_dp, 1.6508808139297699e+01_dp, &
9535 -8.5771693846067460e+00_dp, 1.7125060439946929e+00_dp, 2.3966601282404417e+02_dp, &
9536 -2.9090772769614887e+02_dp, 9.4528375241536281e+01_dp, 7.5979855023555004e+01_dp/)
9537 REAL(kind=dp), DIMENSION(400), PARAMETER :: c04 = (/-5.7499561390798192e+01_dp, &
9538 -2.8667295698939792e+01_dp, 3.3623712254987076e+01_dp, 1.4613232172192909e+01_dp, &
9539 -2.2425748408516260e+01_dp, -1.0625183610714041e+01_dp, 2.7811282349984850e+01_dp, &
9540 -1.6721270864181005e+01_dp, 3.6190172602275243e+00_dp, 4.3864077011236401e+02_dp, &
9541 -6.0869407672507202e+02_dp, 2.6061415383600962e+02_dp, 1.3295484378240570e+02_dp, &
9542 -1.5302514848145449e+02_dp, -3.6108018483517967e+01_dp, 8.5434219515898235e+01_dp, &
9543 1.9050431653711076e+01_dp, -7.1236044045457149e+01_dp, 1.7168053422465423e+01_dp, &
9544 3.3523780444104382e+01_dp, -2.7691407702644518e+01_dp, 6.7871470608408817e+00_dp, &
9545 8.2347485996135970e+02_dp, -1.3050923635822317e+03_dp, 7.1254991634726696e+02_dp, &
9546 1.9443051128113493e+02_dp, -3.9477087573253618e+02_dp, 1.1049102653040705e+00_dp, &
9547 2.0471622937020155e+02_dp, -1.0305127225062771e+00_dp, -1.9658691426799172e+02_dp, &
9548 1.4177328838717565e+02_dp, -9.4534452677625325e+00_dp, -2.8803213147124975e+01_dp, &
9549 9.8371070114488415e+00_dp, 1.5915710687424632e+03_dp, -2.8820355770147166e+03_dp, &
9550 1.9663633983704333e+03_dp, 1.1799337397837300e+02_dp, -9.8270228323130664e+02_dp, &
9551 2.4974930541290666e+02_dp, 4.4552578036203141e+02_dp, -1.4025777789091055e+02_dp, &
9552 -4.6557102028422628e+02_dp, 5.4786103049593976e+02_dp, -2.4864894143143812e+02_dp, &
9553 3.6996297729905450e+01_dp, 3.6444195240281498e+00_dp, 3.1826214065789259e+03_dp, &
9554 -6.5947551051531327e+03_dp, 5.5553678841919664e+03_dp, -8.2212981706636367e+02_dp, &
9555 -2.2837692981734585e+03_dp, 1.3151448072342987e+03_dp, 7.6228584365461666e+02_dp, &
9556 -7.2065304049405756e+02_dp, -8.2516821940278430e+02_dp, 1.5841227049850456e+03_dp, &
9557 -1.0731502300722150e+03_dp, 3.5302215207929873e+02_dp, -4.6365877199563009e+01_dp, &
9558 6.6383831975153153e+03_dp, -1.5758014247231216e+04_dp, 1.6270823641939674e+04_dp, &
9559 -5.9638112817090259e+03_dp, -4.3121794406394965e+03_dp, 5.1144301182847603e+03_dp, &
9560 1.8462464529373887e+02_dp, -2.5218095815008292e+03_dp, -2.3054431334728457e+02_dp, &
9561 3.1514734149831415e+03_dp, -2.9921625738998023e+03_dp, 1.2837985283984451e+03_dp, &
9562 -2.2471322113598779e+02_dp, 1.4761997601240251e+04_dp, -3.9939749414678743e+04_dp, &
9563 5.0012213870608291e+04_dp, -3.0242466715096940e+04_dp, -1.1894217165033751e+03_dp, &
9564 1.5195501545453046e+04_dp, -6.8048688127790801e+03_dp, -4.7801527082331741e+03_dp, &
9565 5.1277990028047161e+03_dp, 1.1223380413403229e+03_dp, -4.0040636605906966e+03_dp, &
9566 2.3860787033124807e+03_dp, -5.0750360903198020e+02_dp, 3.9204413377125406e+04_dp, &
9567 -1.1769916409401350e+05_dp, 1.7194986056957813e+05_dp, -1.4277204840178991e+05_dp, &
9568 5.2345034138577081e+04_dp, 1.9880789878096351e+04_dp, -2.9425779677239327e+04_dp, &
9569 3.4033464159393416e+03_dp, 1.2155031462654326e+04_dp, -7.1247822519758038e+03_dp, &
9570 -1.0526634908337862e+03_dp, 2.3358638291647071e+03_dp, -6.6372768936816408e+02_dp, &
9571 1.7431528419766495e+00_dp, -2.5588307542896549e-01_dp, -9.4854900124262329e-02_dp, &
9572 2.9794665014952194e-02_dp, 2.8483247338140741e-02_dp, -1.0841558810136384e-02_dp, &
9573 -1.2582020468356882e-02_dp, 3.2484447101857397e-03_dp, 1.2184683287913497e-02_dp, &
9574 -1.0393043078939668e-02_dp, 1.3734683830726878e-03_dp, 1.7378837582184665e-03_dp, &
9575 -6.4675618806164781e-04_dp, 2.0999282096752392e+00_dp, -4.1684702634050547e-01_dp, &
9576 -1.2966447121561134e-01_dp, 6.5531871892109725e-02_dp, 4.2460205357563126e-02_dp, &
9577 -2.5433368014272466e-02_dp, -1.9110254921504966e-02_dp, 8.5170411027574670e-03_dp, &
9578 2.1895399268815847e-02_dp, -2.4046927930312594e-02_dp, 8.0713367078222315e-03_dp, &
9579 6.1894677827445367e-04_dp, -7.1620971319254038e-04_dp, 2.9103286794502852e+00_dp, &
9580 -8.1511239504650834e-01_dp, -2.0272420121372503e-01_dp, 1.6000857299250551e-01_dp, &
9581 7.2180276628084461e-02_dp, -6.5213326048744386e-02_dp, -3.2904145344168502e-02_dp, &
9582 2.3370721007330255e-02_dp, 4.5890422026197968e-02_dp, -6.1738612510888358e-02_dp, &
9583 2.8848028203159046e-02_dp, -4.0746891743398553e-03_dp, -5.3779869066474179e-04_dp, &
9584 4.3929184784296806e+00_dp, -1.6330912689205386e+00_dp, -3.1604791770547475e-01_dp, &
9585 3.6946636122180865e-01_dp, 1.1843930520825167e-01_dp, -1.5647910975653245e-01_dp, &
9586 -5.3772992985622166e-02_dp, 5.8807839980255634e-02_dp, 9.4040122713274651e-02_dp, &
9587 -1.4935257927475140e-01_dp, 8.3382587423705509e-02_dp, -1.9374603363277509e-02_dp, &
9588 8.9154656100587327e-04_dp, 6.9535647507228511e+00_dp, -3.2407207810334469e+00_dp, &
9589 -4.5450216314505965e-01_dp, 8.1120311488282126e-01_dp, 1.7199729289635310e-01_dp, &
9590 -3.5502288370822022e-01_dp, -7.5071517391571155e-02_dp, 1.3903228386390781e-01_dp, &
9591 1.8246528140825818e-01_dp, -3.4175970207501360e-01_dp, 2.1737747326196696e-01_dp, &
9592 -6.3021723009680411e-02_dp, 6.3596358141532021e-03_dp, 1.1318724501442688e+01_dp, &
9593 -6.3711340630689817e+00_dp, -5.4290267282805349e-01_dp, 1.7222212774009904e+00_dp, &
9594 1.8800546629110781e-01_dp, -7.7473483399344423e-01_dp, -6.8074344065584824e-02_dp, &
9595 3.1549770235302227e-01_dp, 3.3134230367045064e-01_dp, -7.4915846108706863e-01_dp, &
9596 5.3259600474652258e-01_dp, -1.7774557823373618e-01_dp, 2.3124115670092340e-02_dp, &
9597 1.8787690401309099e+01_dp, -1.2481591332976498e+01_dp, -3.3240738329162378e-01_dp, &
9598 3.5746152138023852e+00_dp, 1.6582305790403686e-02_dp, -1.6418374158804947e+00_dp, &
9599 6.0369727099797245e-02_dp, 6.9497178729859110e-01_dp, 5.4759326848085665e-01_dp, &
9600 -1.5808873877659888e+00_dp, 1.2475010854139670e+00_dp, -4.6259424760260659e-01_dp, &
9601 6.9150781216906557e-02_dp, 3.1709193194004314e+01_dp, -2.4500936384364149e+01_dp, &
9602 8.9530424805676101e-01_dp, 7.2967750917633403e+00_dp, -7.8033873418639665e-01_dp, &
9603 -3.3908784872316935e+00_dp, 5.7873892445767738e-01_dp, 1.4926423753313225e+00_dp, &
9604 7.5568258108913688e-01_dp, -3.2012379368822348e+00_dp, 2.8106680717115542e+00_dp, &
9605 -1.1384202117706752e+00_dp, 1.8702710303308939e-01_dp, 5.4397061089613771e+01_dp, &
9606 -4.8406686443798705e+01_dp, 5.0922674916099249e+00_dp, 1.4682021374582865e+01_dp, &
9607 -3.4028187575347335e+00_dp, -6.8129880929714179e+00_dp, 2.2134139481608028e+00_dp, &
9608 3.1225310594685567e+00_dp, 5.6939022073493750e-01_dp, -6.1380258185628369e+00_dp, &
9609 6.0832724690905824e+00_dp, -2.6743583995551066e+00_dp, 4.7321157108309642e-01_dp, &
9610 9.4927520965517601e+01_dp, -9.6626388107481489e+01_dp, 1.7423709956011194e+01_dp, &
9611 2.9087093576015224e+01_dp, -1.1024713061645821e+01_dp, -1.3204431435260902e+01_dp, &
9612 6.8519114491064999e+00_dp, 6.3123437593929230e+00_dp, -1.3914514684572890e+00_dp, &
9613 -1.0781645944177450e+01_dp, 1.2524886415280703e+01_dp, -5.9961542854634038e+00_dp, &
9614 1.1336014805592638e+00_dp, 1.6875369326167805e+02_dp, -1.9555844833588057e+02_dp, &
9615 5.1452978374839745e+01_dp, 5.6408183065757186e+01_dp, -3.1869524561997707e+01_dp, &
9616 -2.4169756910093785e+01_dp, 1.9246480032110174e+01_dp, 1.2080073322081908e+01_dp, &
9617 -9.4081964481552394e+00_dp, -1.5842846845631168e+01_dp, 2.3929916792690261e+01_dp, &
9618 -1.2694153793065942e+01_dp, 2.5676754426641781e+00_dp, 3.0617464355184120e+02_dp, &
9619 -4.0267737873989802e+02_dp, 1.4297706304699409e+02_dp, 1.0552060360349593e+02_dp, &
9620 -8.6951847266308548e+01_dp, -3.9583498741809187e+01_dp, 5.0971829663593091e+01_dp, &
9621 2.0756769842847500e+01_dp, -3.5608237890535712e+01_dp, -1.2635454822619382e+01_dp, &
9622 3.9827896269018439e+01_dp, -2.4641903351275278e+01_dp, 5.4102958418032170e+00_dp, &
9623 5.6824683386744607e+02_dp, -8.4670140808710323e+02_dp, 3.8789802089036772e+02_dp, &
9624 1.8361314535314401e+02_dp, -2.2924223071701195e+02_dp, -4.8028389813997478e+01_dp, &
9625 1.2888310185706845e+02_dp, 2.6716683644805315e+01_dp, -1.1141263626421915e+02_dp, &
9626 3.3081570439399378e+01_dp, 4.6048288731971617e+01_dp, -4.0522118414987965e+01_dp, &
9627 1.0132031238850658e+01_dp, 1.0818700689018240e+03_dp, -1.8254063981441693e+03_dp, &
9628 1.0493135940933003e+03_dp, 2.6594497727926023e+02_dp, -5.8924539721155190e+02_dp, &
9629 1.0644611347412503e+01_dp, 3.0960803248045971e+02_dp, -3.5086367758831214e+00_dp, &
9630 -3.0809815313509745e+02_dp, 2.3143304305545996e+02_dp, -2.4814271428416337e+01_dp, &
9631 -4.0649889869082884e+01_dp, 1.4627459402254191e+01_dp, 2.1203027222125434e+03_dp, &
9632 -4.0538804318582847e+03_dp, 2.8727141030336588e+03_dp, 1.5342090598361241e+02_dp, &
9633 -1.4719332795253706e+03_dp, 3.8093938541663044e+02_dp, 6.8480755414744362e+02_dp, &
9634 -2.1085331534342177e+02_dp, -7.4477742346268985e+02_dp, 8.8210214793824537e+02_dp, &
9635 -4.0743642895084110e+02_dp, 6.4513827918347346e+01_dp, 4.7653632712549898e+00_dp, &
9636 4.2971394915069723e+03_dp, -9.3250590824070587e+03_dp, 8.0591228301709589e+03_dp, &
9637 -1.1497631929121603e+03_dp, -3.4872799439592382e+03_dp, 1.9571861069180222e+03_dp, &
9638 1.2474018707737353e+03_dp, -1.0953820294698519e+03_dp, -1.4138330704595035e+03_dp, &
9639 2.6149313818024643e+03_dp, -1.7568818980540248e+03_dp, 5.7462043816387722e+02_dp, &
9640 -7.4876139865788033e+01_dp, 9.0670446226651657e+03_dp, -2.2366825283029859e+04_dp, &
9641 2.3435539043591565e+04_dp, -8.1542691185909571e+03_dp, -7.1386507741248670e+03_dp, &
9642 7.7340914601856848e+03_dp, 8.4604251076613593e+02_dp, -4.0914375105218251e+03_dp, &
9643 -9.5634197023942659e+02_dp, 5.8324252454260395e+03_dp, -5.3006063534238547e+03_dp, &
9644 2.2296251828676996e+03_dp, -3.8479712431583698e+02_dp, 2.0208180308777472e+04_dp, &
9645 -5.6497936633236641e+04_dp, 7.1357135395308476e+04_dp, -4.1006680278242755e+04_dp, &
9646 -6.7704662049699600e+03_dp, 2.5578407436596837e+04_dp, -8.5907976304829099e+03_dp, &
9647 -1.0696042935228554e+04_dp, 8.5873059932908618e+03_dp, 4.3094498446251810e+03_dp, &
9648 -9.2350938585649274e+03_dp, 5.1924066610847412e+03_dp, -1.0815797042462589e+03_dp, &
9649 5.0205247084381823e+04_dp, -1.5546532286454976e+05_dp, 2.3094943138771786e+05_dp, &
9650 -1.8852660057995931e+05_dp, 5.4423083001147803e+04_dp, 5.2087747303112206e+04_dp, &
9651 -5.7021055651190843e+04_dp, 1.6354776707089343e+03_dp, 3.3477410681770663e+04_dp, &
9652 -2.5610268529159377e+04_dp, 6.0980258016920243e+03_dp, 1.4484722062152532e+03_dp, &
9653 -7.8447165419517830e+02_dp, 1.8887929346820957e+05_dp, -6.0391416820596519e+05_dp, &
9654 9.6236000817517866e+05_dp, -9.2625010870439373e+05_dp, 5.0796682925588451e+05_dp, &
9655 -6.3746047988236256e+04_dp, -1.1255310501935899e+05_dp, 5.5203234544571715e+04_dp, &
9656 2.9119699905471261e+04_dp, -3.7170133622062072e+04_dp, 9.5002199317095183e+03_dp, &
9657 3.0563342511347387e+03_dp, -1.5546850581139452e+03_dp, 2.2978154445120763e-01_dp, &
9658 -1.5786385884921532e-02_dp, -8.6068171899530838e-03_dp, 1.2219346454486037e-03_dp, &
9659 1.9728968192239591e-03_dp, 4.8787622431389017e-06_dp, -1.2138585236970429e-03_dp, &
9660 2.8402149565212066e-04_dp, 5.0364218620146115e-04_dp, -2.0104688190957889e-04_dp, &
9661 -2.3690088629292757e-04_dp, 2.2016840122659345e-04_dp, -5.5777402901406545e-05_dp, &
9662 7.4358607798286502e-01_dp, -5.9062732873971499e-02_dp, -3.1312168545837522e-02_dp, &
9663 5.5131899950392558e-03_dp, 7.4627215090000507e-03_dp, -2.9791391683538964e-04_dp, &
9664 -4.6367875641200578e-03_dp, 1.2011301801606153e-03_dp, 2.0057385312576845e-03_dp, &
9665 -9.6341439171540230e-04_dp, -7.8097734459690806e-04_dp, 8.0779389096505641e-04_dp, &
9666 -2.1048482828717736e-04_dp, 1.4375579606459543e+00_dp, -1.4409331357953084e-01_dp, &
9667 -7.3049415971812165e-02_dp, 1.6928103093679515e-02_dp, 1.8417725387954376e-02_dp, &
9668 -1.9453592218161570e-03_dp, -1.1634328023640639e-02_dp, 3.4714019819061617e-03_dp, &
9669 5.3490931351907831e-03_dp, -3.1907950343243647e-03_dp, -1.4616713023815479e-03_dp, &
9670 1.8903207684751867e-03_dp, -5.1679973398017858e-04_dp, 2.4951739894697100e+00_dp/)
9671 REAL(kind=dp), DIMENSION(400), PARAMETER :: c05 = (/-3.2389785098025670e-01_dp, &
9672 -1.5588421416935677e-01_dp, 4.6469218783312088e-02_dp, 4.1557942308222309e-02_dp, &
9673 -7.5142092188104671e-03_dp, -2.6806031107589168e-02_dp, 9.2275566818059377e-03_dp, &
9674 1.3149892067901462e-02_dp, -9.4462212865469193e-03_dp, -1.9880182010796601e-03_dp, &
9675 3.9637132356526448e-03_dp, -1.1550825018293159e-03_dp, 4.2174292864101881e+00_dp, &
9676 -7.0273735438846152e-01_dp, -3.1958858729380285e-01_dp, 1.1897201461891156e-01_dp, &
9677 8.9479712944561557e-02_dp, -2.3599626911379866e-02_dp, -5.9172184220296763e-02_dp, &
9678 2.3418908433583512e-02_dp, 3.0998875121130358e-02_dp, -2.6100693280547826e-02_dp, &
9679 -8.2991968088997443e-04_dp, 7.6967034888079256e-03_dp, -2.4440953982349913e-03_dp, &
9680 7.1283946095005790e+00_dp, -1.4935062082301014e+00_dp, -6.3792079328025064e-01_dp, &
9681 2.9134212583550634e-01_dp, 1.8609503658057067e-01_dp, -6.6849972955691214e-02_dp, &
9682 -1.2679209365908473e-01_dp, 5.7788861383825232e-02_dp, 7.1125670220970105e-02_dp, &
9683 -6.9155756511572325e-02_dp, 7.4772007009126021e-03_dp, 1.3632029714336589e-02_dp, &
9684 -4.9228934078391299e-03_dp, 1.2173813507842725e+01_dp, -3.1400013912848532e+00_dp, &
9685 -1.2483074964973158e+00_dp, 6.9485765409820177e-01_dp, 3.7611257997832859e-01_dp, &
9686 -1.7890856047138773e-01_dp, -2.6578443159351284e-01_dp, 1.4054639374393529e-01_dp, &
9687 1.6047068051743860e-01_dp, -1.7899907540313789e-01_dp, 4.0285268988641564e-02_dp, &
9688 2.0634397349215801e-02_dp, -9.3741744134483111e-03_dp, 2.1107642864276819e+01_dp, &
9689 -6.5843431773724026e+00_dp, -2.4050262723680573e+00_dp, 1.6350096374661267e+00_dp, &
9690 7.3996123655732526e-01_dp, -4.6373337696649547e-01_dp, -5.4747966879238541e-01_dp, &
9691 3.4034950017735888e-01_dp, 3.5845721258746249e-01_dp, -4.5829008373764241e-01_dp, &
9692 1.5001000994476824e-01_dp, 1.9940954618215254e-02_dp, -1.6426829440793874e-02_dp, &
9693 3.7266334989026802e+01_dp, -1.3867340387230591e+01_dp, -4.5696148656214710e+00_dp, &
9694 3.8316970122330818e+00_dp, 1.4108582397700304e+00_dp, -1.1818903323968282e+00_dp, &
9695 -1.1088915296439605e+00_dp, 8.2704736824941671e-01_dp, 7.9552904564683069e-01_dp, &
9696 -1.1705005968235462e+00_dp, 4.9161298485989080e-01_dp, -2.5476053684134296e-02_dp, &
9697 -2.4313596900675315e-02_dp, 6.7166643382165645e+01_dp, -2.9516187500335366e+01_dp, &
9698 -8.5451854440662061e+00_dp, 9.0099953442390479e+00_dp, 2.5665490024398552e+00_dp, &
9699 -2.9920833686411239e+00_dp, -2.1979231493373184e+00_dp, 2.0291778674850649e+00_dp, &
9700 1.7530383607299391e+00_dp, -2.9992079584428746e+00_dp, 1.5201611647974216e+00_dp, &
9701 -2.4963049256105524e-01_dp, -1.9576317627699253e-02_dp, 1.2391224737051206e+02_dp, &
9702 -6.3860904547818556e+01_dp, -1.5596243868028813e+01_dp, 2.1390445119414000e+01_dp, &
9703 4.2665327922213292e+00_dp, -7.5789334284051302e+00_dp, -4.2009119095859688e+00_dp, &
9704 5.0530481463321744e+00_dp, 3.8091681592822395e+00_dp, -7.7351382657783132e+00_dp, &
9705 4.5739670847276521e+00_dp, -1.1088234533884338e+00_dp, 5.7788156102331803e-02_dp, &
9706 2.3472890639646755e+02_dp, -1.4127311447474941e+02_dp, -2.7175909935628077e+01_dp, &
9707 5.1557286383939626e+01_dp, 5.6020406213249556e+00_dp, -1.9305968542309145e+01_dp, &
9708 -7.4481250666061314e+00_dp, 1.2828955385228877e+01_dp, 7.9993419405969064e+00_dp, &
9709 -2.0087543738369188e+01_dp, 1.3607203316826732e+01_dp, -4.1171412084629671e+00_dp, &
9710 4.3982127296754747e-01_dp, 4.5834886708487102e+02_dp, -3.2158236377162405e+02_dp, &
9711 -4.2500822021650286e+01_dp, 1.2681749970623152e+02_dp, 1.0331207737661403e+00_dp, &
9712 -4.9592638546541615e+01_dp, -1.0824736389255063e+01_dp, 3.3331519274645522e+01_dp, &
9713 1.5343959985063165e+01_dp, -5.2295332834515250e+01_dp, 4.0323068230649206e+01_dp, &
9714 -1.4240819192072191e+01_dp, 1.9740981942447056e+00_dp, 9.2713486252741257e+02_dp, &
9715 -7.5881923406724286e+02_dp, -4.6362583755929869e+01_dp, 3.1985382205090053e+02_dp, &
9716 -3.4656066891479590e+01_dp, -1.2831744385936224e+02_dp, -4.9055399255105359e+00_dp, &
9717 8.8808607339626235e+01_dp, 2.1618208770971705e+01_dp, -1.3449947060170553e+02_dp, &
9718 1.1892412424943839e+02_dp, -4.7580164322585055e+01_dp, 7.6650405494235141e+00_dp, &
9719 1.9552554903261487e+03_dp, -1.8730960487320954e+03_dp, 4.5978532346317706e+01_dp, &
9720 8.3029128979817312e+02_dp, -2.0862888435830430e+02_dp, -3.3108436117182572e+02_dp, &
9721 5.8912046909874640e+01_dp, 2.4205987690357750e+02_dp, -1.5528194709333421e+01_dp, &
9722 -3.2781660557594995e+02_dp, 3.4387197703428257e+02_dp, -1.5465208352189103e+02_dp, &
9723 2.7818133740736446e+01_dp, 4.3367077238709990e+03_dp, -4.8949990956050187e+03_dp, &
9724 6.3916888657632228e+02_dp, 2.2193372246794902e+03_dp, -9.7830000114740096e+02_dp, &
9725 -8.2164251683291820e+02_dp, 4.0343060366377574e+02_dp, 6.6365758988347898e+02_dp, &
9726 -3.5763798810336135e+02_dp, -6.5703543744238846e+02_dp, 9.2616781594453050e+02_dp, &
9727 -4.7750440193060797e+02_dp, 9.5070584811891436e+01_dp, 1.0241393178730643e+04_dp, &
9728 -1.3770619099685142e+04_dp, 3.6724807315668318e+03_dp, 6.0414514428452330e+03_dp, &
9729 -4.3826177232463688e+03_dp, -1.6912184393750047e+03_dp, 2.0017186887168280e+03_dp, &
9730 1.7046426163395738e+03_dp, -2.4055027646909889e+03_dp, -2.6196488354718417e+02_dp, &
9731 1.9094004144765859e+03_dp, -1.2635639019999310e+03_dp, 2.8729634415947623e+02_dp, &
9732 2.6233288034113684e+04_dp, -4.2749978247629486e+04_dp, 1.9270216857049596e+04_dp, &
9733 1.5749822825859681e+04_dp, -2.0118002433411439e+04_dp, 4.6708746343642822e+01_dp, &
9734 8.6670798148225003e+03_dp, 2.7018890777277093e+03_dp, -1.2539246090174649e+04_dp, &
9735 8.7032187871660572e+03_dp, -9.0580632943659941e+02_dp, -1.5024640379499738e+03_dp, &
9736 5.4315272376617247e+02_dp, 7.5229570283632551e+04_dp, -1.5238226013483954e+05_dp, &
9737 1.0963939977708698e+05_dp, 2.3699789741127177e+04_dp, -9.5127308763506648e+04_dp, &
9738 4.5638161082392988e+04_dp, 2.3668280641175519e+04_dp, -1.5344112755035001e+04_dp, &
9739 -4.0975894536356587e+04_dp, 6.5391139391724340e+04_dp, -4.3370233536422988e+04_dp, &
9740 1.4481627041640608e+04_dp, -1.9779208943771914e+03_dp, 2.6391498082474648e+05_dp, &
9741 -6.7578257857516059e+05_dp, 7.6143463474363345e+05_dp, -3.1336546372684737e+05_dp, &
9742 -2.7916162801665330e+05_dp, 5.0127439350212057e+05_dp, -3.0745998913516488e+05_dp, &
9743 5.4150294767096661e+04_dp, 9.3778431953998916e+03_dp, 4.7079371166969926e+04_dp, &
9744 -6.9604664413008839e+04_dp, 3.7411996446493475e+04_dp, -7.6881721943026469e+03_dp, &
9745 1.8732918832849885e+00_dp, -1.3367410054138293e-01_dp, -7.2352034213483338e-02_dp, &
9746 1.0909107202525322e-02_dp, 1.6759377488280897e-02_dp, -1.4463247410901762e-04_dp, &
9747 -1.0337062028004253e-02_dp, 2.4860738197468890e-03_dp, 4.3367529883595983e-03_dp, &
9748 -1.8252291072459487e-03_dp, -1.9460343870739156e-03_dp, 1.8559495947100581e-03_dp, &
9749 -4.7355776784216511e-04_dp, 2.3185521937218758e+00_dp, -2.3156055207094098e-01_dp, &
9750 -1.1794102738288226e-01_dp, 2.6687995574725933e-02_dp, 2.9649726476853933e-02_dp, &
9751 -2.8985963429409112e-03_dp, -1.8676999303934575e-02_dp, 5.4709623980301811e-03_dp, &
9752 8.5219863451357503e-03_dp, -4.9468255033507554e-03_dp, -2.4659023720406152e-03_dp, &
9753 3.0700450686352012e-03_dp, -8.3320990292621406e-04_dp, 3.3517744635877706e+00_dp, &
9754 -4.8229570440427993e-01_dp, -2.3009121135863886e-01_dp, 7.1478533606108507e-02_dp, &
9755 6.2277049326382221e-02_dp, -1.1852516550801632e-02_dp, -4.0220971604340308e-02_dp, &
9756 1.4012449854287748e-02_dp, 1.9865467670200296e-02_dp, -1.4442483293443300e-02_dp, &
9757 -2.8348238293451422e-03_dp, 5.9174029177587939e-03_dp, -1.7331773541936861e-03_dp, &
9758 5.3031945680151331e+00_dp, -1.0221259715172619e+00_dp, -4.5807387470277838e-01_dp, &
9759 1.8030806698751617e-01_dp, 1.3089607103055093e-01_dp, -3.6736851851184617e-02_dp, &
9760 -8.6877938204299371e-02_dp, 3.5099225799060947e-02_dp, 4.6044781064172931e-02_dp, &
9761 -3.9504731274502158e-02_dp, -5.0833388917190258e-04_dp, 1.1128529395928691e-02_dp, &
9762 -3.5796831935575950e-03_dp, 8.8118115386268983e+00_dp, -2.1430470190320698e+00_dp, &
9763 -8.9884915867193405e-01_dp, 4.3510992099274409e-01_dp, 2.6780537007744093e-01_dp, &
9764 -1.0216018744057363e-01_dp, -1.8352430459115163e-01_dp, 8.5686435047266335e-02_dp, &
9765 1.0440791497056170e-01_dp, -1.0353084282964660e-01_dp, 1.2964730094686697e-02_dp, &
9766 1.9176877419226003e-02_dp, -7.0877110142053322e-03_dp, 1.5082358533124399e+01_dp, &
9767 -4.4627150879444883e+00_dp, -1.7360210374491152e+00_dp, 1.0253983925629231e+00_dp, &
9768 5.3391870561552945e-01_dp, -2.6940028777485425e-01_dp, -3.8042443552829347e-01_dp, &
9769 2.0666296997581385e-01_dp, 2.3347998166148740e-01_dp, -2.6561413847670828e-01_dp, &
9770 6.3743999442031934e-02_dp, 2.7867301306668354e-02_dp, -1.3280682087156985e-02_dp, &
9771 2.6402399708460496e+01_dp, -9.3010729536877754e+00_dp, -3.3106893280192309e+00_dp, &
9772 2.3920970871922971e+00_dp, 1.0385304890158198e+00_dp, -6.9082350726466202e-01_dp, &
9773 -7.7708115592966898e-01_dp, 4.9760389999262650e-01_dp, 5.1852022401451869e-01_dp, &
9774 -6.7581533521215909e-01_dp, 2.2983801183532374e-01_dp, 2.3431816929989063e-02_dp, &
9775 -2.2860171257873246e-02_dp, 4.7194342446443912e+01_dp, -1.9531042894379219e+01_dp, &
9776 -6.2415251534557656e+00_dp, 5.5741252723118899e+00_dp, 1.9607368455071121e+00_dp, &
9777 -1.7473248563445485e+00_dp, -1.5646513259774506e+00_dp, 1.2048716833535995e+00_dp, &
9778 1.1473081165267458e+00_dp, -1.7190501090563362e+00_dp, 7.4009478335832446e-01_dp, &
9779 -4.9906011575939872e-02_dp, -3.2866315872047365e-02_dp, 8.6211948052474540e+01_dp, &
9780 -4.1554142631369068e+01_dp, -1.1600185792684515e+01_dp, 1.3061955480753966e+01_dp, &
9781 3.5320613718765403e+00_dp, -4.4004006892425798e+00_dp, -3.0887855024650599e+00_dp, &
9782 2.9501535623742106e+00_dp, 2.5271027814898610e+00_dp, -4.3943167718995682e+00_dp, &
9783 2.2632129132314391e+00_dp, -3.9043244143139921e-01_dp, -2.3099495422322626e-02_dp, &
9784 1.6127098938108156e+02_dp, -9.0039525643435795e+01_dp, -2.1053710089218743e+01_dp, &
9785 3.0952950172066647e+01_dp, 5.7949336008223513e+00_dp, -1.1107924269366810e+01_dp, &
9786 -5.8875195813116301e+00_dp, 7.3386204896080276e+00_dp, 5.5043800120782960e+00_dp, &
9787 -1.1322988619866953e+01_dp, 6.7597230603340916e+00_dp, -1.6667162278158267e+00_dp, &
9788 9.4315470904943952e-02_dp, 3.0980553856001376e+02_dp, -1.9972543431441864e+02_dp, &
9789 -3.6433629844988346e+01_dp, 7.4549189020146230e+01_dp, 7.3841116630708612e+00_dp, &
9790 -2.8240512722579421e+01_dp, -1.0420298428282244e+01_dp, 1.8622263811434856e+01_dp, &
9791 1.1642216142881098e+01_dp, -2.9427949723634473e+01_dp, 2.0016125436219472e+01_dp, &
9792 -6.0848036620178672e+00_dp, 6.5557403628564404e-01_dp, 6.1339991529169913e+02_dp, &
9793 -4.5611357812319022e+02_dp, -5.6273315070163605e+01_dp, 1.8335187300879113e+02_dp, &
9794 3.6753316352523047e-01_dp, -7.2514546876872799e+01_dp, -1.5147050715967145e+01_dp, &
9795 4.8376562193982153e+01_dp, 2.2769214359032059e+01_dp, -7.6885524107612937e+01_dp, &
9796 5.9199566480206009e+01_dp, -2.0866616660745976e+01_dp, 2.8826441383546944e+00_dp, &
9797 1.2575364403629890e+03_dp, -1.0794714024934246e+03_dp, -5.8881576395916468e+01_dp, &
9798 4.6255041181187573e+02_dp, -5.0617974041393261e+01_dp, -1.8799904813345231e+02_dp, &
9799 -7.1004252575506328e+00_dp, 1.2896162702553036e+02_dp, 3.4617522397077572e+01_dp, &
9800 -1.9966691145147081e+02_dp, 1.7499140865274785e+02_dp, -6.9518624039918890e+01_dp, &
9801 1.1110268324191310e+01_dp, 2.6853251507125306e+03_dp, -2.6690269182691513e+03_dp, &
9802 7.2463711925762794e+01_dp, 1.2014230806845137e+03_dp, -2.9322356189139873e+02_dp, &
9803 -4.8871486180307096e+02_dp, 8.0189444854946785e+01_dp, 3.5253998447998373e+02_dp, &
9804 -4.4344999858279763e+00_dp, -4.9961491943629647e+02_dp, 5.1183627581614923e+02_dp/)
9805 REAL(kind=dp), DIMENSION(400), PARAMETER :: c06 = (/-2.2712994716763473e+02_dp, &
9806 4.0385181038065113e+01_dp, 6.0197819306524152e+03_dp, -6.9664015206915119e+03_dp, &
9807 8.8000828312450119e+02_dp, 3.2181044508507798e+03_dp, -1.3451011011345620e+03_dp, &
9808 -1.2427951210535916e+03_dp, 5.4994829125785282e+02_dp, 9.7855377199584927e+02_dp, &
9809 -4.2361871901332773e+02_dp, -1.0938340303256634e+03_dp, 1.4307426913415468e+03_dp, &
9810 -7.1802169806496249e+02_dp, 1.4043890455439342e+02_dp, 1.4319961817475929e+04_dp, &
9811 -1.9465824088680063e+04_dp, 4.8714430805874626e+03_dp, 8.8417682243147774e+03_dp, &
9812 -5.8918891377734217e+03_dp, -2.8286954277399191e+03_dp, 2.7351780669919335e+03_dp, &
9813 2.6465333742965945e+03_dp, -3.0382947594497841e+03_dp, -1.2233930010289332e+03_dp, &
9814 3.3943700985724181e+03_dp, -2.0626667671078540e+03_dp, 4.5139108215934982e+02_dp, &
9815 3.6710729399870332e+04_dp, -5.9406878052428168e+04_dp, 2.4439529663225516e+04_dp, &
9816 2.4144745080947698e+04_dp, -2.6373382875748357e+04_dp, -3.2022704306036744e+03_dp, &
9817 1.2266276717430037e+04_dp, 5.7681700935135077e+03_dp, -1.6920132638314262e+04_dp, &
9818 8.0315452344738505e+03_dp, 2.9576472354183184e+03_dp, -4.0703120694405825e+03_dp, &
9819 1.1327630799673143e+03_dp, 1.0388253490761654e+05_dp, -2.0409751637993401e+05_dp, &
9820 1.2925285017231829e+05_dp, 5.4968049843609188e+04_dp, -1.2447761109417022e+05_dp, &
9821 3.2483521887329320e+04_dp, 4.7616175662189016e+04_dp, -4.6528610805370972e+03_dp, &
9822 -7.6633080388216375e+04_dp, 8.7935387930962621e+04_dp, -4.3615780121465235e+04_dp, &
9823 8.9761933428718621e+03_dp, -1.5583757123341093e+02_dp, 3.3941315862276591e+05_dp, &
9824 -8.2872883215502277e+05_dp, 7.9822211386825750e+05_dp, -8.4074217002807636e+04_dp, &
9825 -5.7957777085555380e+05_dp, 5.1317015480880765e+05_dp, 5.0080177118401307e+03_dp, &
9826 -2.1554743060333602e+05_dp, -6.8710719687172372e+04_dp, 3.7597911959563685e+05_dp, &
9827 -3.5898885567466140e+05_dp, 1.6051728031093234e+05_dp, -2.9622503438194970e+04_dp, &
9828 1.5375178283066794e+06_dp, -4.5263227540075248e+06_dp, 6.3451073165447786e+06_dp, &
9829 -4.6240857945008520e+06_dp, 2.4500245785436130e+05_dp, 3.5323273923941231e+06_dp, &
9830 -4.5233461773433862e+06_dp, 3.2676821863851110e+06_dp, -1.5689703219501805e+06_dp, &
9831 5.1341607784453162e+05_dp, -1.1143590110389760e+05_dp, 1.3969999513488921e+04_dp, &
9832 -4.2927092431353054e+02_dp, 2.3528218884138855e-01_dp, -6.1622809221375703e-03_dp, &
9833 -5.1621212301375691e-03_dp, 1.8256971283183122e-03_dp, -1.7757001927316855e-03_dp, &
9834 2.7587868056723900e-03_dp, -3.1055628572827037e-03_dp, 3.0788733937437561e-03_dp, &
9835 -2.9393177388430942e-03_dp, 2.4422551665436885e-03_dp, -1.5309508783932135e-03_dp, &
9836 6.2070307138328850e-04_dp, -1.2037481424199890e-04_dp, 7.6427517492838903e-01_dp, &
9837 -2.3301267122622669e-02_dp, -1.9379395197215672e-02_dp, 7.1363033962990527e-03_dp, &
9838 -6.7034010276187488e-03_dp, 1.0440998275629443e-02_dp, -1.1789250952983365e-02_dp, &
9839 1.1659409239080437e-02_dp, -1.1104556236899659e-02_dp, 9.2224304313982004e-03_dp, &
9840 -5.7812574625441581e-03_dp, 2.3431890007339553e-03_dp, -4.5412494246756713e-04_dp, &
9841 1.4884452945163158e+00_dp, -5.7780418368486818e-02_dp, -4.7524525258133422e-02_dp, &
9842 1.8574891035076632e-02_dp, -1.6590444169109660e-02_dp, 2.5921469668594304e-02_dp, &
9843 -2.9408901004723566e-02_dp, 2.8978898590561707e-02_dp, -2.7497730106109036e-02_dp, &
9844 2.2820362291516471e-02_dp, -1.4306212773108158e-02_dp, 5.7958440272391429e-03_dp, &
9845 -1.1221744170445015e-03_dp, 2.6105984893027929e+00_dp, -1.3223929038081408e-01_dp, &
9846 -1.0742680517105528e-01_dp, 4.4715325992489605e-02_dp, -3.7927286855369426e-02_dp, &
9847 5.9386145153437431e-02_dp, -6.7746283118929551e-02_dp, 6.6496265207841132e-02_dp, &
9848 -6.2831201303096690e-02_dp, 5.2098699546617035e-02_dp, -3.2665012485418560e-02_dp, &
9849 1.3227984141057456e-02_dp, -2.5585133273128336e-03_dp, 4.4702121379027533e+00_dp, &
9850 -2.9229427267092511e-01_dp, -2.3438486623605742e-01_dp, 1.0383070807863753e-01_dp, &
9851 -8.3847740273577026e-02_dp, 1.3135552153343474e-01_dp, -1.5073934324268146e-01_dp, &
9852 1.4739044102412518e-01_dp, -1.3863284292466410e-01_dp, 1.1484099496527858e-01_dp, &
9853 -7.2018264561787296e-02_dp, 2.9154836504191747e-02_dp, -5.6333601427675465e-03_dp, &
9854 7.6709266037709876e+00_dp, -6.3341405923166583e-01_dp, -5.0094369630952285e-01_dp, &
9855 2.3625700783289558e-01_dp, -1.8202632717122910e-01_dp, 2.8474545391588596e-01_dp, &
9856 -3.2890009162789791e-01_dp, 3.2037234643104090e-01_dp, -2.9982983600410501e-01_dp, &
9857 2.4809503450350234e-01_dp, -1.5563160367252610e-01_dp, 6.2990071438569953e-02_dp, &
9858 -1.2159286810559670e-02_dp, 1.3326570559389127e+01_dp, -1.3598533563961679e+00_dp, &
9859 -1.0592963255701000e+00_dp, 5.3297178906709941e-01_dp, -3.9225796386832035e-01_dp, &
9860 6.1125294976131017e-01_dp, -7.1120845081937767e-01_dp, 6.9013373426681579e-01_dp, &
9861 -6.4223671050719877e-01_dp, 5.3070213765084473e-01_dp, -3.3305766295054873e-01_dp, &
9862 1.3479152751847270e-01_dp, -2.5995336263354377e-02_dp, 2.3553113968366869e+01_dp, &
9863 -2.9176276962014072e+00_dp, -2.2345934256000408e+00_dp, 1.2036034488905603e+00_dp, &
9864 -8.4690962758329502e-01_dp, 1.3107060305534961e+00_dp, -1.5377199381631459e+00_dp, &
9865 1.4864614399378571e+00_dp, -1.3743037289490871e+00_dp, 1.1337221588786441e+00_dp, &
9866 -7.1192149066697252e-01_dp, 2.8815685634273214e-01_dp, -5.5524774908207841e-02_dp, &
9867 4.2483858960737933e+01_dp, -6.3034996022484222e+00_dp, -4.7356656620562889e+00_dp, &
9868 2.7433815095122966e+00_dp, -1.8473371186027441e+00_dp, 2.8284164031479886e+00_dp, &
9869 -3.3498320968923769e+00_dp, 3.2259356440170177e+00_dp, -2.9598546271753077e+00_dp, &
9870 2.4364391557222511e+00_dp, -1.5311624837953171e+00_dp, 6.1999991359852169e-01_dp, &
9871 -1.1937851432712819e-01_dp, 7.8435361033567304e+01_dp, -1.3807243700243477e+01_dp, &
9872 -1.0144752030644700e+01_dp, 6.3577896872198973e+00_dp, -4.1032215968515038e+00_dp, &
9873 6.1834653423448023e+00_dp, -7.4031369163085019e+00_dp, 7.1034525244070581e+00_dp, &
9874 -6.4588685672011907e+00_dp, 5.3015382264941371e+00_dp, -3.3350883832865144e+00_dp, &
9875 1.3515222561641431e+00_dp, -2.6009258886737091e-01_dp, 1.4870314684342992e+02_dp, &
9876 -3.0864834118508210e+01_dp, -2.2093258811557757e+01_dp, 1.5088268587806473e+01_dp, &
9877 -9.3558068710238516e+00_dp, 1.3783237313514368e+01_dp, -1.6707764004413356e+01_dp, &
9878 1.5978749580565010e+01_dp, -1.4371991456513806e+01_dp, 1.1750956854689353e+01_dp, &
9879 -7.4016805238109020e+00_dp, 3.0035875232982088e+00_dp, -5.7793452739336704e-01_dp, &
9880 2.9063992566159970e+02_dp, -7.0899303612086015e+01_dp, -4.9191236361965750e+01_dp, &
9881 3.6944732038741407e+01_dp, -2.2096224350928072e+01_dp, 3.1535478662551061e+01_dp, &
9882 -3.8769926784154620e+01_dp, 3.6981135439762390e+01_dp, -3.2826571132059875e+01_dp, &
9883 2.6693078989105775e+01_dp, -1.6838972567744609e+01_dp, 6.8482490585591780e+00_dp, &
9884 -1.3183464225945833e+00_dp, 5.8853959957153813e+02_dp, -1.6866367548444850e+02_dp, &
9885 -1.1264217046922096e+02_dp, 9.4139630285255294e+01_dp, -5.4641451607748081e+01_dp, &
9886 7.4621772797404674e+01_dp, -9.3205667243426078e+01_dp, 8.8778688875908884e+01_dp, &
9887 -7.7534194668658188e+01_dp, 6.2541347341539755e+01_dp, -3.9518334321274587e+01_dp, &
9888 1.6126307270781510e+01_dp, -3.1093032562817622e+00_dp, 1.2428008833245567e+03_dp, &
9889 -4.1947785521914795e+02_dp, -2.6701285426652703e+02_dp, 2.5226385512723408e+02_dp, &
9890 -1.4345141862564316e+02_dp, 1.8433585054421314e+02_dp, -2.3423907181798836e+02_dp, &
9891 2.2325867412280667e+02_dp, -1.9105874160160232e+02_dp, 1.5221467577400151e+02_dp, &
9892 -9.6307754715699645e+01_dp, 3.9500236966449748e+01_dp, -7.6415388902361059e+00_dp, &
9893 2.7608915592989856e+03_dp, -1.1041691712029990e+03_dp, -6.6001010192912725e+02_dp, &
9894 7.2065717805192821e+02_dp, -4.0742001889818755e+02_dp, 4.8140472788779994e+02_dp, &
9895 -6.2229993000320292e+02_dp, 5.9562070307754016e+02_dp, -4.9676841427948847e+02_dp, &
9896 3.8786350248878023e+02_dp, -2.4530498580103026e+02_dp, 1.0134423863055014e+02_dp, &
9897 -1.9728796542023890e+01_dp, 6.5330539597289735e+03_dp, -3.1289896695941670e+03_dp, &
9898 -1.7144513670222454e+03_dp, 2.2366769584555950e+03_dp, -1.2862337799451041e+03_dp, &
9899 1.3545526987521687e+03_dp, -1.7732225521374326e+03_dp, 1.7145546967607834e+03_dp, &
9900 -1.3838754531006168e+03_dp, 1.0431149756407765e+03_dp, -6.5542908071128045e+02_dp, &
9901 2.7332077381383078e+02_dp, -5.3786830655175223e+01_dp, 1.6776395337771821e+04_dp, &
9902 -9.7928996284343357e+03_dp, -4.7065652179644330e+03_dp, 7.7563596005434492e+03_dp, &
9903 -4.7062831481779740e+03_dp, 4.2440444961091507e+03_dp, -5.5256490153285331e+03_dp, &
9904 5.4499874871954971e+03_dp, -4.2216100644922999e+03_dp, 2.9760556872278821e+03_dp, &
9905 -1.8186260564964466e+03_dp, 7.6369653195481897e+02_dp, -1.5282174308169036e+02_dp, &
9906 4.8196026704304764e+04_dp, -3.5311796147047455e+04_dp, -1.3499860063436423e+04_dp, &
9907 3.1444987874104710e+04_dp, -2.1409313414419648e+04_dp, 1.5890405287246669e+04_dp, &
9908 -1.9335940318034241e+04_dp, 1.9685996849087067e+04_dp, -1.4546076258636267e+04_dp, &
9909 8.9035324606561226e+03_dp, -4.8468802353721112e+03_dp, 1.9729740359294485e+03_dp, &
9910 -4.0033508034806044e+02_dp, 1.6394238215154631e+05_dp, -1.5905119636599772e+05_dp, &
9911 -3.4636012557649119e+04_dp, 1.6159468155671351e+05_dp, -1.3873213467843784e+05_dp, &
9912 8.6609937728528355e+04_dp, -7.9189862325619106e+04_dp, 8.0498770341005089e+04_dp, &
9913 -5.6800098872495153e+04_dp, 2.4318200214846263e+04_dp, -5.3486374635222237e+03_dp, &
9914 1.4978633693132076e+02_dp, 1.3126224230101201e+02_dp, 7.5834075124608912e+05_dp, &
9915 -1.0864193654712576e+06_dp, 1.6418235171236837e+05_dp, 1.1876482137492767e+06_dp, &
9916 -1.7741895129516888e+06_dp, 1.3985011610223595e+06_dp, -6.4697226138982608e+05_dp, &
9917 1.5340670486444154e+04_dp, 3.7060552578940440e+05_dp, -5.1246119196262851e+05_dp, &
9918 4.1905388782645378e+05_dp, -2.0351458872316248e+05_dp, 4.4969428447952065e+04_dp, &
9919 1.9199342325621056e+00_dp, -5.2325699613614447e-02_dp, -4.3750513777635607e-02_dp, &
9920 1.5640015963402101e-02_dp, -1.5070969781007941e-02_dp, 2.3431356008326149e-02_dp, &
9921 -2.6397531067032395e-02_dp, 2.6153766119785420e-02_dp, -2.4952874087669753e-02_dp, &
9922 2.0730661937501563e-02_dp, -1.2995238603525089e-02_dp, 5.2682907391888040e-03_dp, &
9923 -1.0215189419958690e-03_dp, 2.4002587623301448e+00_dp, -9.2692544030490695e-02_dp, &
9924 -7.6334957658037619e-02_dp, 2.9644232823144580e-02_dp, -2.6611713402345558e-02_dp, &
9925 4.1582159829453708e-02_dp, -4.7147451242685809e-02_dp, 4.6475506392680971e-02_dp, &
9926 -4.4120374420174135e-02_dp, 3.6619045036844551e-02_dp, -2.2956089487110191e-02_dp, &
9927 9.3003902294016821e-03_dp, -1.8008841146529171e-03_dp, 3.5238883296645747e+00_dp, &
9928 -1.9744854381747892e-01_dp, -1.6011934282987575e-01_dp, 6.7242589745269768e-02_dp, &
9929 -5.6584064388948051e-02_dp, 8.8699180368368491e-02_dp, -1.0124759733146146e-01_dp, &
9930 9.9318595794023787e-02_dp, -9.3797388513328375e-02_dp, 7.7768501343562266e-02_dp, &
9931 -4.8758543054448447e-02_dp, 1.9743071622430480e-02_dp, -3.8179581523259494e-03_dp, &
9932 5.6716908861136890e+00_dp, -4.2699382481264164e-01_dp, -3.4141921609801612e-01_dp, &
9933 1.5331722645320270e-01_dp, -1.2238630321990675e-01_dp, 1.9196242245137163e-01_dp, &
9934 -2.2053214264272086e-01_dp, 2.1543129874600328e-01_dp, -2.0245400581809397e-01_dp, &
9935 1.6768202331832444e-01_dp, -1.0515504828494937e-01_dp, 4.2563447502959498e-02_dp, &
9936 -8.2219895159869709e-03_dp, 9.5923398264069970e+00_dp, -9.1351432511338171e-01_dp, &
9937 -7.2002060302993121e-01_dp, 3.4478262562537942e-01_dp, -2.6236445928893765e-01_dp, &
9938 4.1080033835374796e-01_dp, -4.7515478577796189e-01_dp, 4.6235013115468138e-01_dp/)
9939 REAL(kind=dp), DIMENSION(400), PARAMETER :: c07 = (/-4.3224032563729953e-01_dp, &
9940 3.5758483946236974e-01_dp, -2.2431923396808751e-01_dp, 9.0777959192790053e-02_dp, &
9941 -1.7518061809443625e-02_dp, 1.6725498665042689e+01_dp, -1.9435939058523524e+00_dp, &
9942 -1.5082483802542699e+00_dp, 7.7123067496772879e-01_dp, -5.6050187357065773e-01_dp, &
9943 8.7386773329950440e-01_dp, -1.0184147160321777e+00_dp, 9.8713775000143567e-01_dp, &
9944 -9.1748347756413584e-01_dp, 7.5796037251628001e-01_dp, -4.7570197410379467e-01_dp, &
9945 1.9249696312506864e-01_dp, -3.7112410202830466e-02_dp, 2.9867921112026917e+01_dp, &
9946 -4.1467710457417182e+00_dp, -3.1626313649547511e+00_dp, 1.7323863084109623e+00_dp, &
9947 -1.2038693567355865e+00_dp, 1.8631804826928859e+00_dp, -2.1899213857816511e+00_dp, &
9948 2.1144847654909018e+00_dp, -1.9521830909580684e+00_dp, 1.6099731981821668e+00_dp, &
9949 -1.0110621403038136e+00_dp, 4.0919444918433101e-01_dp, -7.8821746413100843e-02_dp, &
9950 5.4567905169406032e+01_dp, -8.9359125078559316e+00_dp, -6.6829857757469942e+00_dp, &
9951 3.9380155360006719e+00_dp, -2.6201981403151646e+00_dp, 4.0098204947674123e+00_dp, &
9952 -4.7586752532202130e+00_dp, 4.5773565964791283e+00_dp, -4.1933229746486287e+00_dp, &
9953 3.4506609624332976e+00_dp, -2.1687844901543256e+00_dp, 8.7811842578345611e-01_dp, &
9954 -1.6902289559128800e-01_dp, 1.0213272364646357e+02_dp, -1.9568894490980483e+01_dp, &
9955 -1.4310663259886253e+01_dp, 9.1189354843768466e+00_dp, -5.8202843298748856e+00_dp, &
9956 8.7633901669854701e+00_dp, -1.0514412487755664e+01_dp, 1.0077333974037595e+01_dp, &
9957 -9.1480969346309582e+00_dp, 7.5063522206702977e+00_dp, -4.7227755759865069e+00_dp, &
9958 1.9137734403969708e+00_dp, -3.6817562821028288e-01_dp, 1.9634789478808003e+02_dp, &
9959 -4.3805003142660127e+01_dp, -3.1210983480765918e+01_dp, 2.1646060102378659e+01_dp, &
9960 -1.3290007437531367e+01_dp, 1.9559470489534739e+01_dp, -2.3760530475729208e+01_dp, &
9961 2.2699107507081777e+01_dp, -2.0384285092804305e+01_dp, 1.6661734343002301e+01_dp, &
9962 -1.0496738624690892e+01_dp, 4.2593912604244579e+00_dp, -8.1930517662403424e-01_dp, &
9963 3.8911243929907391e+02_dp, -1.0084567929859232e+02_dp, -6.9675590237727150e+01_dp, &
9964 5.3023392551490424e+01_dp, -3.1443103504058708e+01_dp, 4.4848086974289387e+01_dp, &
9965 -5.5248419076016638e+01_dp, 5.2644425241400143e+01_dp, -4.6665529615040874e+01_dp, &
9966 3.7940330501057126e+01_dp, -2.3939320376490915e+01_dp, 9.7353325974390632e+00_dp, &
9967 -1.8734799945633591e+00_dp, 7.9857425247754088e+02_dp, -2.4041614411913994e+02_dp, &
9968 -1.6005711637448368e+02_dp, 1.3505138321984933e+02_dp, -7.7813606689547342e+01_dp, &
9969 1.0635214708532304e+02_dp, -1.3307542579001566e+02_dp, 1.2661963840999799e+02_dp, &
9970 -1.1047991689937190e+02_dp, 8.9136639272186287e+01_dp, -5.6339722379846961e+01_dp, &
9971 2.2987396443453235e+01_dp, -4.4301925174203562e+00_dp, 1.7074190243146495e+03_dp, &
9972 -5.9849403848656630e+02_dp, -3.8056898159220981e+02_dp, 3.6095620533881140e+02_dp, &
9973 -2.0384611935344842e+02_dp, 2.6298454814944631e+02_dp, -3.3468311722540773e+02_dp, &
9974 3.1858350725758493e+02_dp, -2.7261989113275348e+02_dp, 2.1744286850398822e+02_dp, &
9975 -1.3765043100313622e+02_dp, 5.6438287133666776e+01_dp, -1.0910502440622219e+01_dp, &
9976 3.8334094340274683e+03_dp, -1.5723908956163691e+03_dp, -9.4281020491913853e+02_dp, &
9977 1.0242611119269077e+03_dp, -5.7428751500833221e+02_dp, 6.8547311891561162e+02_dp, &
9978 -8.8749541005121341e+02_dp, 8.4777812676065867e+02_dp, -7.0810279313566184e+02_dp, &
9979 5.5469907294877623e+02_dp, -3.5128294755457512e+02_dp, 1.4504011186174179e+02_dp, &
9980 -2.8198572213336920e+01_dp, 9.1361304192165644e+03_dp, -4.4226274015114341e+03_dp, &
9981 -2.4512781079839870e+03_dp, 3.1345626862048653e+03_dp, -1.7784413126977358e+03_dp, &
9982 1.9127074406180236e+03_dp, -2.5124489551522956e+03_dp, 2.4206332112005493e+03_dp, &
9983 -1.9613261391666301e+03_dp, 1.4910365526546971e+03_dp, -9.4077115625989279e+02_dp, &
9984 3.9209237872283859e+02_dp, -7.6978949238131889e+01_dp, 2.3476804836368778e+04_dp, &
9985 -1.3592633254062974e+04_dp, -6.7328872117040401e+03_dp, 1.0577880817867974e+04_dp, &
9986 -6.2497295482203444e+03_dp, 5.8566563032174154e+03_dp, -7.7179494949154041e+03_dp, &
9987 7.5607028303424113e+03_dp, -5.8984755977119921e+03_dp, 4.2500229634280931e+03_dp, &
9988 -2.6366823005050137e+03_dp, 1.1101454768091173e+03_dp, -2.2141619218110822e+02_dp, &
9989 6.6614484110205842e+04_dp, -4.7108388287965288e+04_dp, -1.9523320398634307e+04_dp, &
9990 4.0705057477236631e+04_dp, -2.6182350826008271e+04_dp, 2.0606177082035400e+04_dp, &
9991 -2.6289727061071782e+04_dp, 2.6497961110492906e+04_dp, -1.9762650337886316e+04_dp, &
9992 1.2821176945806279e+04_dp, -7.4626721995415519e+03_dp, 3.1351727273388092e+03_dp, &
9993 -6.3906389016555295e+02_dp, 2.1722047847281824e+05_dp, -1.9421988001893414e+05_dp, &
9994 -5.7005765806413925e+04_dp, 1.8870977976178579e+05_dp, -1.4215955667570615e+05_dp, &
9995 9.2469073856111092e+04_dp, -1.0223677196613803e+05_dp, 1.0679192105089303e+05_dp, &
9996 -7.6172821818506985e+04_dp, 3.9251745674129270e+04_dp, -1.6935502287943222e+04_dp, &
9997 6.1072726038873288e+03_dp, -1.2312049579639786e+03_dp, 8.7962812129087350e+05_dp, &
9998 -1.0583094001579208e+06_dp, -8.7726089363737672e+04_dp, 1.1620532119345395e+06_dp, &
9999 -1.1801685233582184e+06_dp, 7.0461861958712188e+05_dp, -4.8091128165205766e+05_dp, &
10000 4.5337411670429324e+05_dp, -3.0573011401678680e+05_dp, 6.8451145563412196e+04_dp, &
10001 6.0365054336862682e+04_dp, -5.2641113555194272e+04_dp, 1.3429156007824822e+04_dp, &
10002 5.4534124986841530e+06_dp, -9.8505910169624574e+06_dp, 4.1125439885084690e+06_dp, &
10003 1.0145049015186040e+07_dp, -2.1737139793601342e+07_dp, 2.1610941564617176e+07_dp, &
10004 -1.0288896330046380e+07_dp, -4.5951658076810353e+06_dp, 1.5022207247350259e+07_dp, &
10005 -1.7099728394099496e+07_dp, 1.2171622980394198e+07_dp, -5.3020153298938526e+06_dp, &
10006 1.0818379069385820e+06_dp, 2.3670956436095472e-01_dp, 8.5466042782728561e-10_dp, &
10007 -8.7706516429572629e-03_dp, 1.1337199418484344e-02_dp, -1.5571021209192253e-02_dp, &
10008 1.5569362340987348e-02_dp, -2.4778844274855861e-03_dp, -3.3946179190323028e-02_dp, &
10009 9.4071406905596136e-02_dp, -1.5071574728552392e-01_dp, 1.5621592696596148e-01_dp, &
10010 -9.7043862738537434e-02_dp, 2.7457399409936200e-02_dp, 7.6968000393308511e-01_dp, &
10011 3.2401450648662975e-09_dp, -3.3256925970225171e-02_dp, 4.2988865647330857e-02_dp, &
10012 -5.8756741104987492e-02_dp, 5.8295248976357440e-02_dp, -7.8860907725801094e-03_dp, &
10013 -1.3118813251172537e-01_dp, 3.5989835704601603e-01_dp, -5.7462950608239283e-01_dp, &
10014 5.9452625957445671e-01_dp, -3.6891620144798964e-01_dp, 1.0430150010072287e-01_dp, &
10015 1.5018763179292813e+00_dp, 8.0666558227795613e-09_dp, -8.2819934409362694e-02_dp, &
10016 1.0705542955448639e-01_dp, -1.4523496967030083e-01_dp, 1.4235570567914205e-01_dp, &
10017 -1.3911957597914196e-02_dp, -3.3604701889620353e-01_dp, 9.0831435978670716e-01_dp, &
10018 -1.4428049024652592e+00_dp, 1.4887036137719374e+00_dp, -9.2220669302792391e-01_dp, &
10019 2.6043051480110496e-01_dp, 2.6414098653587632e+00_dp, 1.8542770560249732e-08_dp, &
10020 -1.9043939699928683e-01_dp, 2.4616740044234692e-01_dp, -3.3120274807858702e-01_dp, &
10021 3.2019629965984886e-01_dp, -1.7514299065979757e-02_dp, -7.9626913862920790e-01_dp, &
10022 2.1188458241158257e+00_dp, -3.3470422670498117e+00_dp, 3.4433083070863675e+00_dp, &
10023 -2.1290723817341952e+00_dp, 6.0049052563642336e-01_dp, 4.5384820955717666e+00_dp, &
10024 4.1171481244663121e-08_dp, -4.2299027025076608e-01_dp, 5.4676919672569546e-01_dp, &
10025 -7.2930405536067833e-01_dp, 6.9476844166586404e-01_dp, -5.7289627094700328e-03_dp, &
10026 -1.8223453736507966e+00_dp, 4.7747854172686690e+00_dp, -7.5003110665766188e+00_dp, &
10027 7.6927313673657078e+00_dp, -4.7475264948136440e+00_dp, 1.3372664279873743e+00_dp, &
10028 7.8192504156388125e+00_dp, 8.9643714677238562e-08_dp, -9.2134105247858755e-01_dp, &
10029 1.1909512854185862e+00_dp, -1.5740081463467599e+00_dp, 1.4756520617606019e+00_dp, &
10030 6.3250121089543448e-02_dp, -4.0913969501850129e+00_dp, 1.0554863467153654e+01_dp, &
10031 -1.6484455241456860e+01_dp, 1.6854353882166951e+01_dp, -1.0380878084152998e+01_dp, &
10032 2.9200587692297555e+00_dp, 1.3645885165943300e+01_dp, 1.9343550021859286e-07_dp, &
10033 -1.9889558975248320e+00_dp, 2.5709795975545706e+00_dp, -3.3639874881302920e+00_dp, &
10034 3.0976636513324340e+00_dp, 3.1247903773887803e-01_dp, -9.1142796291772967e+00_dp, &
10035 2.3139806188864029e+01_dp, -3.5920374960036447e+01_dp, 3.6603598484231796e+01_dp, &
10036 -2.2496614716254765e+01_dp, 6.3188068542226405e+00_dp, 2.4240315177351366e+01_dp, &
10037 4.1735160476847653e-07_dp, -4.2934724986403312e+00_dp, 5.5498602800946042e+00_dp, &
10038 -7.1808885190927310e+00_dp, 6.4773412225047196e+00_dp, 1.0915405525625834e+00_dp, &
10039 -2.0338678533491709e+01_dp, 5.0778253166199057e+01_dp, -7.8310233286780999e+01_dp, &
10040 7.9509375168412404e+01_dp, -4.8752154654454642e+01_dp, 1.3671218890716160e+01_dp, &
10041 4.3973636879745392e+01_dp, 9.0731441379826837e-07_dp, -9.3394244687918899e+00_dp, &
10042 1.2072392500013727e+01_dp, -1.5423438922958889e+01_dp, 1.3579561953094331e+01_dp, &
10043 3.3846975946055915e+00_dp, -4.5839585399730254e+01_dp, 1.1242639699367048e+02_dp, &
10044 -1.7215228837760810e+02_dp, 1.7408628097597264e+02_dp, -1.0646507180414103e+02_dp, &
10045 2.9801105395511023e+01_dp, 8.1711262931542294e+01_dp, 2.0013821500952097e-06_dp, &
10046 -2.0615673482163860e+01_dp, 2.6648367171543072e+01_dp, -3.3552503990308622e+01_dp, &
10047 2.8697356550258888e+01_dp, 9.9848598970918747e+00_dp, -1.0512807173143871e+02_dp, &
10048 2.5297323747845883e+02_dp, -3.8433225027457678e+02_dp, 3.8690514140568553e+02_dp, &
10049 -2.3592263278951384e+02_dp, 6.5902326877061824e+01_dp, 1.5605879855050961e+02_dp, &
10050 4.5098443290657727e-06_dp, -4.6494277087601013e+01_dp, 6.0099711541289679e+01_dp, &
10051 -7.4393330371570187e+01_dp, 6.1409065971332915e+01_dp, 2.8984093656381923e+01_dp, &
10052 -2.4713866438037331e+02_dp, 5.8259718635376578e+02_dp, -8.7740192761657318e+02_dp, &
10053 8.7878792290311787e+02_dp, -5.3405825659980758e+02_dp, 1.4883009303091876e+02_dp, &
10054 3.0762435042193624e+02_dp, 1.0455746769612150e-05_dp, -1.0790746717317136e+02_dp, &
10055 1.3948392350653936e+02_dp, -1.6920163788653028e+02_dp, 1.3356024260004625e+02_dp, &
10056 8.4612560681060771e+01_dp, -6.0021504339910359e+02_dp, 1.3835888832168876e+03_dp, &
10057 -2.0632260865604612e+03_dp, 2.0544267400630752e+03_dp, -1.2436499579901790e+03_dp, &
10058 3.4561729478378913e+02_dp, 6.2919318362091553e+02_dp, 2.5144905278024844e-05_dp, &
10059 -2.5985287556874499e+02_dp, 3.3589217889390994e+02_dp, -3.9757888190288548e+02_dp, &
10060 2.9600943596616952e+02_dp, 2.5281006909384925e+02_dp, -1.5196535530174046e+03_dp, &
10061 3.4176113708246221e+03_dp, -5.0389952265142629e+03_dp, 4.9832566201452173e+03_dp, &
10062 -3.0026770436385773e+03_dp, 8.3169610915648207e+02_dp, 1.3446642485369698e+03_dp, &
10063 6.3355693696567805e-05_dp, -6.5587608695957738e+02_dp, 8.4780072445181315e+02_dp, &
10064 -9.7324930571061304e+02_dp, 6.6865816098059202e+02_dp, 7.8642740762815720e+02_dp, &
10065 -4.0561879015463091e+03_dp, 8.8735395997333635e+03_dp, -1.2911085013308702e+04_dp, &
10066 1.2663863439439963e+04_dp, -7.5877330082628787e+03_dp, 2.0931234638857791e+03_dp, &
10067 3.0315178012421479e+03_dp, 1.6945412072655205e-04_dp, -1.7583989533457666e+03_dp, &
10068 2.2729448301394605e+03_dp, -2.5079766439284267e+03_dp, 1.5298178702512521e+03_dp, &
10069 2.5970516090366850e+03_dp, -1.1583854023864891e+04_dp, 2.4553873694398699e+04_dp, &
10070 -3.5160886963347439e+04_dp, 3.4138635891960170e+04_dp, -2.0309554368209294e+04_dp, &
10071 5.5733463618645619e+03_dp, 7.3092031064017010e+03_dp, 4.9005183646288716e-04_dp, &
10072 -5.1024325120903641e+03_dp, 6.5955046072210243e+03_dp, -6.8957569912961944e+03_dp/)
10073 REAL(kind=dp), DIMENSION(13, 40, 6), PARAMETER :: &
10074 coefdata = reshape((/c01, c02, c03, c04, c05, c06, c07, c08/), (/13, 40, 6/))
10075
10076 INTEGER :: irange
10077
10078 IF (rc <= 6.0000000000000000e+01_dp) rc = 6.0000000000000000e+01_dp
10079 IF (rc >= 5.7633609771728516e+06_dp) rc = 5.7633609771728516e+06_dp
10080 IF (rc >= 6.0000000000000000e+01_dp .AND. rc <= 1.9739889204664721e+02_dp) THEN
10081 irange = 1
10082 l_b = 6.0000000000000000e+01_dp
10083 u_b = 1.9739889204664721e+02_dp
10084 END IF
10085 IF (rc >= 1.9739889204664721e+02_dp .AND. rc <= 2.4626386425352434e+03_dp) THEN
10086 irange = 2
10087 l_b = 1.9739889204664721e+02_dp
10088 u_b = 2.4626386425352434e+03_dp
10089 END IF
10090 IF (rc >= 2.4626386425352434e+03_dp .AND. rc <= 3.3579125411394947e+04_dp) THEN
10091 irange = 3
10092 l_b = 2.4626386425352434e+03_dp
10093 u_b = 3.3579125411394947e+04_dp
10094 END IF
10095 IF (rc >= 3.3579125411394947e+04_dp .AND. rc <= 3.9047249374088546e+05_dp) THEN
10096 irange = 4
10097 l_b = 3.3579125411394947e+04_dp
10098 u_b = 3.9047249374088546e+05_dp
10099 END IF
10100 IF (rc >= 3.9047249374088546e+05_dp .AND. rc <= 1.9873406038870332e+06_dp) THEN
10101 irange = 5
10102 l_b = 3.9047249374088546e+05_dp
10103 u_b = 1.9873406038870332e+06_dp
10104 END IF
10105 IF (rc >= 1.9873406038870332e+06_dp .AND. rc <= 5.7633609771728516e+06_dp) THEN
10106 irange = 6
10107 l_b = 1.9873406038870332e+06_dp
10108 u_b = 5.7633609771728516e+06_dp
10109 END IF
10110
10111 fit_coef(1:13, 1:40) = coefdata(1:13, 1:40, irange)
10112
10113 END SUBROUTINE get_fit_coef_k20
10114
10115! **************************************************************************************************
10116!> \brief ...
10117!> \param k ...
10118!> \param E_range ...
10119!> \param aw ...
10120! **************************************************************************************************
10121 SUBROUTINE get_rpa_minimax_coeff_larger_grid(k, E_range, aw)
10122 INTEGER, INTENT(IN) :: k
10123 REAL(kind=dp), INTENT(INOUT) :: e_range
10124 REAL(kind=dp), DIMENSION(:), INTENT(OUT) :: aw
10125
10126 CHARACTER(LEN=*), PARAMETER :: routinen = 'get_rpa_minimax_coeff_larger_grid'
10127
10128 INTEGER :: handle
10129 REAL(kind=dp) :: e_ratio
10130
10131 CALL timeset(routinen, handle)
10132
10133 SELECT CASE (k)
10134 CASE (26)
10135 CALL get_coeff_26(k, e_range, aw, e_ratio)
10136 CASE (28)
10137 CALL get_coeff_28(k, e_range, aw, e_ratio)
10138 CASE (30)
10139 CALL get_coeff_30(k, e_range, aw, e_ratio)
10140 CASE (32)
10141 CALL get_coeff_32(k, e_range, aw, e_ratio)
10142 CASE (34)
10143 CALL get_coeff_34(k, e_range, aw, e_ratio)
10144 CASE DEFAULT
10145 cpabort("The grid size you choose is not available.")
10146 END SELECT
10147
10148 CALL rescale_grid(aw, e_ratio)
10149
10150 CALL timestop(handle)
10151
10152 END SUBROUTINE get_rpa_minimax_coeff_larger_grid
10153
10154! **************************************************************************************************
10155!> \brief ...
10156!> \param aw ...
10157!> \param E_ratio ...
10158! **************************************************************************************************
10159 PURE SUBROUTINE rescale_grid(aw, E_ratio)
10160 REAL(kind=dp), DIMENSION(:), INTENT(INOUT) :: aw
10161 REAL(kind=dp), INTENT(INOUT) :: e_ratio
10162
10163 IF (e_ratio > 1.5_dp) THEN
10164 e_ratio = e_ratio/1.5_dp
10165 ELSE
10166 e_ratio = 1.0_dp
10167 END IF
10168 aw(:) = aw(:)/e_ratio
10169 END SUBROUTINE
10170
10171! **************************************************************************************************
10172!> \brief ...
10173!> \param k ...
10174!> \param E_range ...
10175!> \param aw ...
10176!> \param E_ratio ...
10177! **************************************************************************************************
10178 PURE SUBROUTINE get_coeff_26(k, E_range, aw, E_ratio)
10179 INTEGER, INTENT(IN) :: k
10180 REAL(kind=dp), INTENT(IN) :: e_range
10181 REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
10182 REAL(kind=dp), INTENT(OUT) :: e_ratio
10183
10184 e_ratio = 1.0_dp
10185 IF (e_range < 799.0_dp) THEN
10186 e_ratio = 799.0_dp/e_range
10187 aw(:) = (/ &
10188 0.13642311899920728_dp, &
10189 0.4200545572769177_dp, &
10190 0.7370807753440111_dp, &
10191 1.1133066772659823_dp, &
10192 1.5801544604816498_dp, &
10193 2.1776122735126364_dp, &
10194 2.958051608229127_dp, &
10195 3.9913517870782127_dp, &
10196 5.371912501848569_dp, &
10197 7.228355464212482_dp, &
10198 9.73704628190353_dp, &
10199 13.14105442578561_dp, &
10200 17.776888498885384_dp, &
10201 24.112423571820134_dp, &
10202 32.80110412846477_dp, &
10203 44.760201041042265_dp, &
10204 61.285574367976004_dp, &
10205 84.22431526497385_dp, &
10206 116.24572841708785_dp, &
10207 161.2969910194418_dp, &
10208 225.45259795885693_dp, &
10209 318.7313048003067_dp, &
10210 459.67927623297453_dp, &
10211 689.4586002694374_dp, &
10212 1129.2608611575954_dp, &
10213 2384.899332663137_dp, &
10214 0.27462662125713716_dp, &
10215 0.2963690140650455_dp, &
10216 0.34194449526494647_dp, &
10217 0.4156960072544763_dp, &
10218 0.5246016522241007_dp, &
10219 0.678958500149969_dp, &
10220 0.8934517120897347_dp, &
10221 1.1887228663585705_dp, &
10222 1.5936139137203535_dp, &
10223 2.1483557077661164_dp, &
10224 2.9090998337926104_dp, &
10225 3.9543808256482187_dp, &
10226 5.394380930104983_dp, &
10227 7.384320521229908_dp, &
10228 10.144053822937831_dp, &
10229 13.98732687567056_dp, &
10230 19.366933030106217_dp, &
10231 26.948262498364663_dp, &
10232 37.739388497689305_dp, &
10233 53.348600455664965_dp, &
10234 76.56744981421966_dp, &
10235 112.8945538518047_dp, &
10236 175.19453971323657_dp, &
10237 301.19411259128674_dp, &
10238 645.6383267719649_dp, &
10239 2472.504957810595_dp/)
10240 ELSE IF (e_range < 995.0_dp) THEN
10241 aw(:) = (/ &
10242 0.13925292153649474_dp, &
10243 0.4292451559612877_dp, &
10244 0.7548554587233549_dp, &
10245 1.1437833384686722_dp, &
10246 1.6300177124420845_dp, &
10247 2.2571802345230276_dp, &
10248 3.0828977198982144_dp, &
10249 4.1847303613644495_dp, &
10250 5.668362141207399_dp, &
10251 7.679038990085008_dp, &
10252 10.417660954546289_dp, &
10253 14.163558801605095_dp, &
10254 19.30691297965789_dp, &
10255 26.395168657294754_dp, &
10256 36.199950721972876_dp, &
10257 49.8144257942317_dp, &
10258 68.79692224946095_dp, &
10259 95.38754743793149_dp, &
10260 132.8473999791564_dp, &
10261 186.0241881676569_dp, &
10262 262.3929640997449_dp, &
10263 374.2539456946303_dp, &
10264 544.2375437714703_dp, &
10265 822.2186120363165_dp, &
10266 1354.4009319403576_dp, &
10267 2870.8477591124674_dp, &
10268 0.28040112472679574_dp, &
10269 0.30356564912420003_dp, &
10270 0.3522269185689752_dp, &
10271 0.43123890171761686_dp, &
10272 0.5484284775560514_dp, &
10273 0.7154038747678296_dp, &
10274 0.9488235797546415_dp, &
10275 1.2722683343829815_dp, &
10276 1.7189393959653365_dp, &
10277 2.3355248974949743_dp, &
10278 3.1877439258332987_dp, &
10279 4.368323267393725_dp, &
10280 6.008533513106221_dp, &
10281 8.294995170661158_dp, &
10282 11.494429371223015_dp, &
10283 15.990739727277512_dp, &
10284 22.342169324408708_dp, &
10285 31.373674894712472_dp, &
10286 44.337963681573235_dp, &
10287 63.228794541463415_dp, &
10288 91.4807612744294_dp, &
10289 135.78931506653154_dp, &
10290 211.68822580031673_dp, &
10291 364.5832859080767_dp, &
10292 780.7919711700442_dp, &
10293 2983.4784258039044_dp/)
10294 ELSE IF (e_range < 1293.0_dp) THEN
10295 aw(:) = (/ &
10296 0.14255313239112444_dp, &
10297 0.44000221057671707_dp, &
10298 0.7757923584694003_dp, &
10299 1.1799690097399198_dp, &
10300 1.6897357815984675_dp, &
10301 2.3533173555606655_dp, &
10302 3.235072042865805_dp, &
10303 4.422504788444178_dp, &
10304 6.036065942606674_dp, &
10305 8.242988234525232_dp, &
10306 11.27697154139003_dp, &
10307 15.466358681870163_dp, &
10308 21.274694591939472_dp, &
10309 29.359452647866682_dp, &
10310 40.65762974807096_dp, &
10311 56.51155510141434_dp, &
10312 78.85603619054034_dp, &
10313 110.50208558142461_dp, &
10314 155.58114995208211_dp, &
10315 220.28032446631136_dp, &
10316 314.1757282936284_dp, &
10317 453.002579503336_dp, &
10318 665.5199679038552_dp, &
10319 1014.5604898901777_dp, &
10320 1683.22275383598_dp, &
10321 3584.316130956811_dp, &
10322 0.28714175969757383_dp, &
10323 0.31204447582876227_dp, &
10324 0.364492437091783_dp, &
10325 0.4499982622781763_dp, &
10326 0.5774890351263188_dp, &
10327 0.7602856703230421_dp, &
10328 1.0176474576111718_dp, &
10329 1.3770666782034746_dp, &
10330 1.8776058066032693_dp, &
10331 2.5747281832062225_dp, &
10332 3.5472996309663594_dp, &
10333 4.907773444426638_dp, &
10334 6.817081323539761_dp, &
10335 9.506552191680779_dp, &
10336 13.31048343115922_dp, &
10337 18.71524624188938_dp, &
10338 26.435090191201706_dp, &
10339 37.53395349827001_dp, &
10340 53.63476429545202_dp, &
10341 77.3183278694657_dp, &
10342 112.99764481556716_dp, &
10343 169.1712283981583_dp, &
10344 265.33605383413214_dp, &
10345 458.1910477032067_dp, &
10346 980.4158381921823_dp, &
10347 3736.258588894085_dp/)
10348 ELSE IF (e_range < 1738.0_dp) THEN
10349 aw(:) = (/ &
10350 0.1461752355773306_dp, &
10351 0.45185762356828396_dp, &
10352 0.7990360544025357_dp, &
10353 1.2205083800767933_dp, &
10354 1.7572993236504337_dp, &
10355 2.4631760346842047_dp, &
10356 3.4107040936751862_dp, &
10357 4.699662235621062_dp, &
10358 6.468947005916596_dp, &
10359 8.913592437239087_dp, &
10360 12.309286000158947_dp, &
10361 17.047905694553386_dp, &
10362 23.689335953611156_dp, &
10363 33.03746908843982_dp, &
10364 46.25240948793399_dp, &
10365 65.01743260557059_dp, &
10366 91.79007233646534_dp, &
10367 130.18588342772145_dp, &
10368 185.58109233196095_dp, &
10369 266.1051496392308_dp, &
10370 384.41585349757804_dp, &
10371 561.3175220599338_dp, &
10372 834.5950790025629_dp, &
10373 1285.9791179040656_dp, &
10374 2151.82484272534_dp, &
10375 4607.654058324236_dp, &
10376 0.2945477387281676_dp, &
10377 0.3214595830325172_dp, &
10378 0.37830480422867613_dp, &
10379 0.4714034978877635_dp, &
10380 0.611040549973395_dp, &
10381 0.8126695125533263_dp, &
10382 1.0988217520443189_dp, &
10383 1.5019658160165765_dp, &
10384 2.06870896475044_dp, &
10385 2.8659496939699607_dp, &
10386 3.9899051060400774_dp, &
10387 5.579409370592633_dp, &
10388 7.835605731464965_dp, &
10389 11.051295593199974_dp, &
10390 15.655055606015468_dp, &
10391 22.278373441162756_dp, &
10392 31.859818549870184_dp, &
10393 45.8120996920796_dp, &
10394 66.3057001417783_dp, &
10395 96.79792736663595_dp, &
10396 143.16536816614507_dp, &
10397 216.57964119429673_dp, &
10398 342.31559687568875_dp, &
10399 593.3221880856304_dp, &
10400 1268.7961696472178_dp, &
10401 4820.528614472729_dp/)
10402 ELSE IF (e_range < 2238.0_dp) THEN
10403 aw(:) = (/ &
10404 0.1491837006061548_dp, &
10405 0.46174475862674996_dp, &
10406 0.8185592742668346_dp, &
10407 1.2548602679290635_dp, &
10408 1.8150957152976515_dp, &
10409 2.558059962915574_dp, &
10410 3.563852447313441_dp, &
10411 4.943651210588896_dp, &
10412 6.8536849594075475_dp, &
10413 9.515417267221789_dp, &
10414 13.244928718595732_dp, &
10415 18.495967806145995_dp, &
10416 25.923415200427836_dp, &
10417 36.47741618080311_dp, &
10418 51.54392422008612_dp, &
10419 73.15615247652946_dp, &
10420 104.31586449506281_dp, &
10421 149.48862759379944_dp, &
10422 215.38537956732102_dp, &
10423 312.2481145191122_dp, &
10424 456.12776079236704_dp, &
10425 673.453709288462_dp, &
10426 1012.0267276035421_dp, &
10427 1574.3691121807644_dp, &
10428 2654.80297068303_dp, &
10429 5713.432382523477_dp, &
10430 0.30070547042796897_dp, &
10431 0.329369148940076_dp, &
10432 0.3900659972080265_dp, &
10433 0.4898601972791792_dp, &
10434 0.6402960685231848_dp, &
10435 0.8588226443075349_dp, &
10436 1.1710637934386325_dp, &
10437 1.6142423603884266_dp, &
10438 2.242256373868115_dp, &
10439 3.133186411937803_dp, &
10440 4.400427168655394_dp, &
10441 6.20926516954263_dp, &
10442 8.801701004315937_dp, &
10443 12.533857850605154_dp, &
10444 17.932816993690953_dp, &
10445 25.783927946483768_dp, &
10446 37.26719820010372_dp, &
10447 54.17638997139517_dp, &
10448 79.2886731198742_dp, &
10449 117.0433439522649_dp, &
10450 174.96435451384102_dp, &
10451 267.2144601065969_dp, &
10452 425.4335136047249_dp, &
10453 740.2128400786926_dp, &
10454 1582.657563073928_dp, &
10455 5997.255668095278_dp/)
10456 ELSE IF (e_range < 3009.0_dp) THEN
10457 aw(:) = (/ &
10458 0.15260234927102537_dp, &
10459 0.47302539641929003_dp, &
10460 0.840991102837249_dp, &
10461 1.294672645194693_dp, &
10462 1.8827021467743683_dp, &
10463 2.6700932738662866_dp, &
10464 3.7463755633773785_dp, &
10465 5.2371602474102446_dp, &
10466 7.32087360313924_dp, &
10467 10.253221414128866_dp, &
10468 14.403238412842787_dp, &
10469 20.306771564613143_dp, &
10470 28.74634048361317_dp, &
10471 40.87115597284819_dp, &
10472 58.378725955266525_dp, &
10473 83.7917688772186_dp, &
10474 120.88443420446742_dp, &
10475 175.34684950976114_dp, &
10476 255.8424057631557_dp, &
10477 375.7503122503565_dp, &
10478 556.2295831578734_dp, &
10479 832.2606405042899_dp, &
10480 1266.9035893238452_dp, &
10481 1994.1233884282024_dp, &
10482 3394.9032163950633_dp, &
10483 7352.339298447235_dp, &
10484 0.3077100277629248_dp, &
10485 0.33845848997185407_dp, &
10486 0.4037598644074573_dp, &
10487 0.5116119745332622_dp, &
10488 0.6751498929108865_dp, &
10489 0.9143651994460601_dp, &
10490 1.2588616224335032_dp, &
10491 1.75204662427369_dp, &
10492 2.4574104002902457_dp, &
10493 3.4679202527071955_dp, &
10494 4.920122312459791_dp, &
10495 7.015412894339497_dp, &
10496 10.052310636158587_dp, &
10497 14.475746343180617_dp, &
10498 20.952944399378328_dp, &
10499 30.491434160561496_dp, &
10500 44.62526181307512_dp, &
10501 65.71573855063913_dp, &
10502 97.45740287039392_dp, &
10503 145.7937686814701_dp, &
10504 220.7911788117634_dp, &
10505 341.2160648337932_dp, &
10506 548.3643432689413_dp, &
10507 959.1555990081102_dp, &
10508 2051.35284281865_dp, &
10509 7749.544195896773_dp/)
10510 ELSE IF (e_range < 4377.0_dp) THEN
10511 aw(:) = (/ &
10512 0.15677016271388225_dp, &
10513 0.4868453590049744_dp, &
10514 0.8687054372436632_dp, &
10515 1.3443711902060458_dp, &
10516 1.9680308145076961_dp, &
10517 2.8130758201236987_dp, &
10518 3.981916598375189_dp, &
10519 5.620150667525299_dp, &
10520 7.937365822573636_dp, &
10521 11.238009575994626_dp, &
10522 15.967571787550442_dp, &
10523 22.782179390039534_dp, &
10524 32.65420224580025_dp, &
10525 47.03362680645636_dp, &
10526 68.09645542153785_dp, &
10527 99.13012280380028_dp, &
10528 145.13706650883265_dp, &
10529 213.79117632911775_dp, &
10530 316.97982833553084_dp, &
10531 473.36316641843865_dp, &
10532 712.8558730426033_dp, &
10533 1085.3059686529182_dp, &
10534 1680.4570998839688_dp, &
10535 2686.878722527825_dp, &
10536 4633.878278204835_dp, &
10537 10122.376598223758_dp, &
10538 0.3162602891789823_dp, &
10539 0.3496899146467389_dp, &
10540 0.4209457453791445_dp, &
10541 0.5393025302878296_dp, &
10542 0.7200886783450724_dp, &
10543 0.9868388578481941_dp, &
10544 1.3747701483151744_dp, &
10545 1.9361268964127185_dp, &
10546 2.748293611495538_dp, &
10547 3.9261112821432245_dp, &
10548 5.640652928475169_dp, &
10549 8.14800606157719_dp, &
10550 11.833678475242102_dp, &
10551 17.28159907773421_dp, &
10552 25.382209512440305_dp, &
10553 37.50344417920538_dp, &
10554 55.76466551122398_dp, &
10555 83.48401940950261_dp, &
10556 125.93307609242711_dp, &
10557 191.6876355183379_dp, &
10558 295.31901285869344_dp, &
10559 463.7601116874953_dp, &
10560 755.1838770980437_dp, &
10561 1331.5355795873638_dp, &
10562 2851.124163900499_dp, &
10563 10729.678598478598_dp/)
10564 ELSE IF (e_range < 6256.0_dp) THEN
10565 aw(:) = (/ &
10566 0.16057542542593983_dp, &
10567 0.49952962028824754_dp, &
10568 0.8943731123892699_dp, &
10569 1.3909076292240965_dp, &
10570 2.048865907808532_dp, &
10571 2.950126882998398_dp, &
10572 4.2103425278857385_dp, &
10573 5.995954911767919_dp, &
10574 8.549525380892058_dp, &
10575 12.227842251849554_dp, &
10576 17.559745488437873_dp, &
10577 25.33455063970661_dp, &
10578 36.7382813247586_dp, &
10579 53.565155655152715_dp, &
10580 78.54849962850257_dp, &
10581 115.8829384695536_dp, &
10582 172.05630085125_dp, &
10583 257.19020516627944_dp, &
10584 387.2342312585102_dp, &
10585 587.6466072063987_dp, &
10586 899.8509121387558_dp, &
10587 1393.5887995892674_dp, &
10588 2194.6568910457167_dp, &
10589 3565.0884460947423_dp, &
10590 6230.642206140841_dp, &
10591 13732.602514515214_dp, &
10592 0.32407734329056537_dp, &
10593 0.3600930324125088_dp, &
10594 0.43712641231000066_dp, &
10595 0.5657644526879636_dp, &
10596 0.7636093738551866_dp, &
10597 1.0579110134655951_dp, &
10598 1.4898487496937127_dp, &
10599 2.121183742243155_dp, &
10600 3.0444831771204277_dp, &
10601 4.398856321226892_dp, &
10602 6.39429509803701_dp, &
10603 9.349562092561689_dp, &
10604 13.751584428416358_dp, &
10605 20.349284881552315_dp, &
10606 30.303092531346753_dp, &
10607 45.425519514426874_dp, &
10608 68.57296149770674_dp, &
10609 104.29448877473207_dp, &
10610 159.93517513497875_dp, &
10611 247.604939611224_dp, &
10612 388.0261636148984_dp, &
10613 619.3536447537377_dp, &
10614 1022.6891506041642_dp, &
10615 1819.6861630933722_dp, &
10616 3904.600906393468_dp, &
10617 14642.034530501202_dp/)
10618 ELSE IF (e_range < 9034.0_dp) THEN
10619 aw(:) = (/ &
10620 0.16432089011213946_dp, &
10621 0.5120783448939726_dp, &
10622 0.9199886972681118_dp, &
10623 1.437840597555715_dp, &
10624 2.1313000192264977_dp, &
10625 3.0914596821926974_dp, &
10626 4.448548492729215_dp, &
10627 6.392274593692749_dp, &
10628 9.202519740089308_dp, &
10629 13.296161754347343_dp, &
10630 19.29914269890146_dp, &
10631 28.158315667958256_dp, &
10632 41.31644063618593_dp, &
10633 60.98825519945388_dp, &
10634 90.59976907891678_dp, &
10635 135.49373172032819_dp, &
10636 204.0739991922362_dp, &
10637 309.6835071732142_dp, &
10638 473.73172471065976_dp, &
10639 731.0162782781778_dp, &
10640 1139.1233191834983_dp, &
10641 1796.2958792734264_dp, &
10642 2880.674779835234_dp, &
10643 4760.907205234219_dp, &
10644 8443.643014901543_dp, &
10645 18797.512140801202_dp, &
10646 0.33178166646984186_dp, &
10647 0.3704756224159047_dp, &
10648 0.4535273760622626_dp, &
10649 0.5929656383094599_dp, &
10650 0.8089125230587538_dp, &
10651 1.1327811095321214_dp, &
10652 1.6125162306884913_dp, &
10653 2.320823479534045_dp, &
10654 3.3679786225905852_dp, &
10655 4.921818456475184_dp, &
10656 7.239122346149252_dp, &
10657 10.715224167142727_dp, &
10658 15.963061445035835_dp, &
10659 23.94020351071544_dp, &
10660 36.154875568991734_dp, &
10661 55.00354905209596_dp, &
10662 84.33076754977621_dp, &
10663 130.3718204724196_dp, &
10664 203.3763607524491_dp, &
10665 320.5163292162362_dp, &
10666 511.499766113826_dp, &
10667 831.0632228122023_dp, &
10668 1393.996082618058_dp, &
10669 2507.6502273684464_dp, &
10670 5398.730047404666_dp, &
10671 20174.243482162154_dp/)
10672 ELSE IF (e_range < 15564.0_dp) THEN
10673 aw(:) = (/ &
10674 0.16955168876185606_dp, &
10675 0.5297128492681893_dp, &
10676 0.9563682595025127_dp, &
10677 1.5053456637551013_dp, &
10678 2.251458851423233_dp, &
10679 3.30025374096381_dp, &
10680 4.805213971653435_dp, &
10681 6.993792120211177_dp, &
10682 10.207452358120111_dp, &
10683 14.963970947103403_dp, &
10684 22.05530884512796_dp, &
10685 32.702779510861056_dp, &
10686 48.80530736719183_dp, &
10687 73.34037086293017_dp, &
10688 111.01793202252156_dp, &
10689 169.3581666315736_dp, &
10690 260.4877531652313_dp, &
10691 404.17142433017716_dp, &
10692 633.0038005727723_dp, &
10693 1001.4735710632112_dp, &
10694 1602.2710504984482_dp, &
10695 2597.339796633601_dp, &
10696 4284.439326490744_dp, &
10697 7277.272159321957_dp, &
10698 13217.442145549_dp, &
10699 29915.954039362532_dp, &
10700 0.34255855985607125_dp, &
10701 0.3852211686852873_dp, &
10702 0.4772548827347379_dp, &
10703 0.6329784737782622_dp, &
10704 0.8765598435301294_dp, &
10705 1.246188563782287_dp, &
10706 1.800992159648441_dp, &
10707 2.6320669330081983_dp, &
10708 3.8799679680225974_dp, &
10709 5.762558150515838_dp, &
10710 8.61966780966633_dp, &
10711 12.985306239805702_dp, &
10712 19.705483921340985_dp, &
10713 30.13234025723871_dp, &
10714 46.44736905029676_dp, &
10715 72.20575596588289_dp, &
10716 113.2647934625349_dp, &
10717 179.39118814888906_dp, &
10718 287.0985893630822_dp, &
10719 464.81061857234823_dp, &
10720 762.7938761510428_dp, &
10721 1274.5462739445218_dp, &
10722 2193.7537015644107_dp, &
10723 4023.287609783773_dp, &
10724 8726.293698066565_dp, &
10725 32456.229019326278_dp/)
10726 ELSE IF (e_range < 19500.0_dp) THEN
10727 aw(:) = (/ &
10728 0.17161078656390408_dp, &
10729 0.5366905364814994_dp, &
10730 0.97088881076514_dp, &
10731 1.5325699975422944_dp, &
10732 2.300445459098221_dp, &
10733 3.386304928549832_dp, &
10734 4.953814656226931_dp, &
10735 7.2471781401179225_dp, &
10736 10.635564848787308_dp, &
10737 15.682784328062063_dp, &
10738 23.257647540954054_dp, &
10739 34.710448891778356_dp, &
10740 52.15789633691571_dp, &
10741 78.94769861589022_dp, &
10742 120.42398853039909_dp, &
10743 185.20235595500606_dp, &
10744 287.3191078945018_dp, &
10745 449.9016881055523_dp, &
10746 711.5314989639854_dp, &
10747 1137.4846615524127_dp, &
10748 1840.156204841028_dp, &
10749 3018.1229428253846_dp, &
10750 5039.367148043016_dp, &
10751 8662.764242204496_dp, &
10752 15902.181332715702_dp, &
10753 36264.30820408944_dp, &
10754 0.3468065253991383_dp, &
10755 0.3911064628011852_dp, &
10756 0.48686770710592453_dp, &
10757 0.649407004504934_dp, &
10758 0.9046709269666874_dp, &
10759 1.2938615472397417_dp, &
10760 1.8811396766420316_dp, &
10761 2.7659895528533784_dp, &
10762 4.102970732081106_dp, &
10763 6.133424978400673_dp, &
10764 9.236763352774814_dp, &
10765 14.014155411820974_dp, &
10766 21.42640568242634_dp, &
10767 33.02345872650458_dp, &
10768 51.33068406408745_dp, &
10769 80.5068763005674_dp, &
10770 127.47998440706951_dp, &
10771 203.93737778272407_dp, &
10772 329.88071553711586_dp, &
10773 540.1552172919626_dp, &
10774 897.0521095218941_dp, &
10775 1517.2143251608513_dp, &
10776 2641.8070030495096_dp, &
10777 4889.503800534578_dp, &
10778 10648.322208945656_dp, &
10779 39537.49857015622_dp/)
10780 ELSE IF (e_range < 22300.0_dp) THEN
10781 aw(:) = (/ &
10782 0.1728061198835349_dp, &
10783 0.5407506981101403_dp, &
10784 0.9793714038026303_dp, &
10785 1.5485484444330022_dp, &
10786 2.3293373186010964_dp, &
10787 3.4373065991570115_dp, &
10788 5.0423230776903445_dp, &
10789 7.398853217497418_dp, &
10790 10.89314740028624_dp, &
10791 16.11757919438818_dp, &
10792 23.988966085187993_dp, &
10793 35.93874008813103_dp, &
10794 54.22162060992446_dp, &
10795 82.42176042102257_dp, &
10796 126.29163129215709_dp, &
10797 195.15830646295916_dp, &
10798 304.3099266577351_dp, &
10799 479.10015694274045_dp, &
10800 762.1158665504651_dp, &
10801 1225.9324082258843_dp, &
10802 1996.438395305476_dp, &
10803 3297.6059283833983_dp, &
10804 5546.6394027927_dp, &
10805 9604.798156883016_dp, &
10806 17747.506304598486_dp, &
10807 40662.28777164996_dp, &
10808 0.3492740223484516_dp, &
10809 0.3945444048035226_dp, &
10810 0.4925209274047293_dp, &
10811 0.6591264626127379_dp, &
10812 0.9213922685098963_dp, &
10813 1.322366949443488_dp, &
10814 1.929314142208889_dp, &
10815 2.8469205908136956_dp, &
10816 4.238488142375349_dp, &
10817 6.360114867321287_dp, &
10818 9.616265458690265_dp, &
10819 14.650939404307358_dp, &
10820 22.498728594279285_dp, &
10821 34.837787125550584_dp, &
10822 54.418346394612065_dp, &
10823 85.79761930703064_dp, &
10824 136.61734637002158_dp, &
10825 219.8591273308433_dp, &
10826 357.9019839857931_dp, &
10827 590.021281618985_dp, &
10828 986.9076588661666_dp, &
10829 1681.5547940952313_dp, &
10830 2948.8741403686568_dp, &
10831 5489.390378606207_dp, &
10832 11987.379922744534_dp, &
10833 44468.08958434164_dp/)
10834 ELSE IF (e_range < 24783.0_dp) THEN
10835 aw(:) = (/ &
10836 0.1737308948597355_dp, &
10837 0.5438966877521114_dp, &
10838 0.9859610380912929_dp, &
10839 1.560999073537973_dp, &
10840 2.3519219694926194_dp, &
10841 3.4773019976149877_dp, &
10842 5.11195442725365_dp, &
10843 7.518569316391805_dp, &
10844 11.09714005655843_dp, &
10845 16.463120094991794_dp, &
10846 24.572288754382765_dp, &
10847 36.922235617447974_dp, &
10848 55.880761448416834_dp, &
10849 85.22675085299979_dp, &
10850 131.05081429199765_dp, &
10851 203.27261201403803_dp, &
10852 318.2293711657402_dp, &
10853 503.152754643253_dp, &
10854 804.032555977885_dp, &
10855 1299.6927362845154_dp, &
10856 2127.667695664749_dp, &
10857 3534.0326704862105_dp, &
10858 5979.169285255363_dp, &
10859 10414.573972160117_dp, &
10860 19345.73831740431_dp, &
10861 44492.46471079593_dp, &
10862 0.3511837705016231_dp, &
10863 0.39721506693266434_dp, &
10864 0.4969316438045135_dp, &
10865 0.6667392102402926_dp, &
10866 0.9345354080893498_dp, &
10867 1.3448487389874917_dp, &
10868 1.967438938031642_dp, &
10869 2.9111947746582425_dp, &
10870 4.346509228913013_dp, &
10871 6.541503533662434_dp, &
10872 9.921152543346885_dp, &
10873 15.164693048542738_dp, &
10874 23.367741212788335_dp, &
10875 36.315072183771754_dp, &
10876 56.94501925463534_dp, &
10877 90.15017067236717_dp, &
10878 144.17713392303253_dp, &
10879 233.11210787240515_dp, &
10880 381.3788199371866_dp, &
10881 632.0944337435812_dp, &
10882 1063.2960978183357_dp, &
10883 1822.393451001988_dp, &
10884 3214.1964330189876_dp, &
10885 6011.5393853613305_dp, &
10886 13158.00196550311_dp, &
10887 48777.36298097777_dp/)
10888 ELSE IF (e_range < 41198.0_dp) THEN
10889 aw(:) = (/ &
10890 0.17799130240706984_dp, &
10891 0.558445410809649_dp, &
10892 1.0166297309491044_dp, &
10893 1.6193831652945954_dp, &
10894 2.4586620686801695_dp, &
10895 3.667829742572521_dp, &
10896 5.446314891054136_dp, &
10897 8.098126747261656_dp, &
10898 12.093029411971516_dp, &
10899 18.164916061856836_dp, &
10900 27.47177125227526_dp, &
10901 41.85862387738217_dp, &
10902 64.29463269296241_dp, &
10903 99.6081132229676_dp, &
10904 155.73791067776023_dp, &
10905 245.8920402977068_dp, &
10906 392.3244219552829_dp, &
10907 633.0449562544749_dp, &
10908 1033.945999167842_dp, &
10909 1711.154006548549_dp, &
10910 2873.283514523331_dp, &
10911 4904.516412355985_dp, &
10912 8541.213772971501_dp, &
10913 15320.756510308098_dp, &
10914 29238.418877095413_dp, &
10915 68583.17313114721_dp, &
10916 0.35999057854489624_dp, &
10917 0.40964342132227255_dp, &
10918 0.517678596262729_dp, &
10919 0.702891167526621_dp, &
10920 0.9974953889055737_dp, &
10921 1.4534562037793455_dp, &
10922 2.1531958092699743_dp, &
10923 3.2271377404365795_dp, &
10924 4.882410917802139_dp, &
10925 7.450138129922876_dp, &
10926 11.464071575277625_dp, &
10927 17.792734308409212_dp, &
10928 27.864023043096953_dp, &
10929 44.05169019349174_dp, &
10930 70.34922266622794_dp, &
10931 113.5616876658134_dp, &
10932 185.44652039869408_dp, &
10933 306.62505535472695_dp, &
10934 513.8711614457693_dp, &
10935 874.0321926895938_dp, &
10936 1511.615678189863_dp, &
10937 2667.372553488233_dp, &
10938 4842.950527196566_dp, &
10939 9285.588160319077_dp, &
10940 20597.325965171356_dp, &
10941 76161.8596274348_dp/)
10942 ELSE IF (e_range < 94407.0_dp) THEN
10943 aw(:) = (/ &
10944 0.18427327646299554_dp, &
10945 0.5800678142111884_dp, &
10946 1.062813174396542_dp, &
10947 1.7086710138090095_dp, &
10948 2.6245433407677226_dp, &
10949 3.9687456084576795_dp, &
10950 5.983088088759827_dp, &
10951 9.044214821988016_dp, &
10952 13.747180049983248_dp, &
10953 21.04333745984166_dp, &
10954 32.47068559616262_dp, &
10955 50.54348632696267_dp, &
10956 79.41986612597532_dp, &
10957 126.06149615339397_dp, &
10958 202.27775198215787_dp, &
10959 328.3861574350742_dp, &
10960 539.8798783942364_dp, &
10961 899.8005204338677_dp, &
10962 1522.1727316803415_dp, &
10963 2617.4198392181756_dp, &
10964 4582.775104882628_dp, &
10965 8188.716947049966_dp, &
10966 14986.46895717419_dp, &
10967 28322.082953313376_dp, &
10968 56826.75793518779_dp, &
10969 138481.00974898663_dp, &
10970 0.3730028368021069_dp, &
10971 0.428354171574684_dp, &
10972 0.549600032397171_dp, &
10973 0.7595995851576278_dp, &
10974 1.098014096850626_dp, &
10975 1.629865924998882_dp, &
10976 2.460250070930056_dp, &
10977 3.7589670939362154_dp, &
10978 5.801833730520023_dp, &
10979 9.040587178848838_dp, &
10980 14.222505427016364_dp, &
10981 22.59766467101562_dp, &
10982 36.28293067415338_dp, &
10983 58.9106289633826_dp, &
10984 96.80295342684235_dp, &
10985 161.1348984666336_dp, &
10986 271.99263116463095_dp, &
10987 466.14531748937003_dp, &
10988 812.2703291175023_dp, &
10989 1441.5731111728833_dp, &
10990 2611.4422570763995_dp, &
10991 4844.665731670444_dp, &
10992 9266.732583950343_dp, &
10993 18647.213606093355_dp, &
10994 42656.46566405554_dp, &
10995 157660.6216097217_dp/)
10996 ELSE IF (e_range < 189080.0_dp) THEN
10997 aw(:) = (/ &
10998 0.1889166187549335_dp, &
10999 0.5961850834729495_dp, &
11000 1.097718788260886_dp, &
11001 1.7772527519739671_dp, &
11002 2.754100363430344_dp, &
11003 4.207746123352419_dp, &
11004 6.416725271991069_dp, &
11005 9.821987600643263_dp, &
11006 15.131996317599018_dp, &
11007 23.4995566780628_dp, &
11008 36.8234002615115_dp, &
11009 58.269695998899806_dp, &
11010 93.18703062085261_dp, &
11011 150.7367390335279_dp, &
11012 246.84666046331515_dp, &
11013 409.6601639519172_dp, &
11014 689.7883982951697_dp, &
11015 1180.0211938503542_dp, &
11016 2054.1392300559787_dp, &
11017 3645.406178397627_dp, &
11018 6610.227338646847_dp, &
11019 12282.21946267068_dp, &
11020 23479.16184253136_dp, &
11021 46536.49778293873_dp, &
11022 97988.005994822_dp, &
11023 248271.71627050647_dp, &
11024 0.3826418964555519_dp, &
11025 0.44249042636795055_dp, &
11026 0.5742647482387918_dp, &
11027 0.8042933870412514_dp, &
11028 1.1786909803221888_dp, &
11029 1.7740059766551828_dp, &
11030 2.7157599189739634_dp, &
11031 4.210014007474866_dp, &
11032 6.5973245402497005_dp, &
11033 10.445947244529027_dp, &
11034 16.71490137908719_dp, &
11035 27.043296616534693_dp, &
11036 44.27161732479843_dp, &
11037 73.39668617871985_dp, &
11038 123.35300047165461_dp, &
11039 210.40156572097126_dp, &
11040 364.7172011277595_dp, &
11041 643.5002779012159_dp, &
11042 1157.7720495453327_dp, &
11043 2128.791663589068_dp, &
11044 4011.0945220895405_dp, &
11045 7773.563988357228_dp, &
11046 15593.849284273198_dp, &
11047 32917.0364973997_dp, &
11048 78051.06376348506_dp, &
11049 289942.76429117593_dp/)
11050 ELSE IF (e_range < 457444.0_dp) THEN
11051 aw(:) = (/ &
11052 0.194043824675455_dp, &
11053 0.6141201650984125_dp, &
11054 1.137056339966442_dp, &
11055 1.8556822490348746_dp, &
11056 2.9045171634501883_dp, &
11057 4.489491230295626_dp, &
11058 6.935918070559926_dp, &
11059 10.768297969516013_dp, &
11060 16.84551695032909_dp, &
11061 26.59345448264271_dp, &
11062 42.41124163468271_dp, &
11063 68.39190043336116_dp, &
11064 111.6218630548935_dp, &
11065 184.5662784702303_dp, &
11066 309.53243627996767_dp, &
11067 527.1995714305152_dp, &
11068 913.3020625088166_dp, &
11069 1612.1087655214071_dp, &
11070 2905.5631924229647_dp, &
11071 5360.760592207567_dp, &
11072 10156.351679516332_dp, &
11073 19836.90395856863_dp, &
11074 40153.56249059423_dp, &
11075 84945.40622185206_dp, &
11076 191879.29446083526_dp, &
11077 516853.91463486024_dp, &
11078 0.3933068197531215_dp, &
11079 0.45841433657798863_dp, &
11080 0.6026132459496706_dp, &
11081 0.8565818421331466_dp, &
11082 1.2746407100646033_dp, &
11083 1.948249294221966_dp, &
11084 3.029862020316641_dp, &
11085 4.774339119270673_dp, &
11086 7.611287961919275_dp, &
11087 12.27301847355483_dp, &
11088 20.02418710434074_dp, &
11089 33.08062796253295_dp, &
11090 55.38677548001659_dp, &
11091 94.08664339680347_dp, &
11092 162.36610582016837_dp, &
11093 285.0728404570405_dp, &
11094 510.11475389805196_dp, &
11095 932.2410214966416_dp, &
11096 1744.2541855756215_dp, &
11097 3351.323885452711_dp, &
11098 6636.946607638909_dp, &
11099 13613.456185258428_dp, &
11100 29125.998944110084_dp, &
11101 65928.95446339808_dp, &
11102 166172.86831676983_dp, &
11103 628359.6031461136_dp/)
11104 ELSE IF (e_range < 2101965.0_dp) THEN
11105 aw(:) = (/ &
11106 0.20097761439605452_dp, &
11107 0.6386142361636943_dp, &
11108 1.1916436123207983_dp, &
11109 1.9665277909771697_dp, &
11110 3.121155070595262_dp, &
11111 4.903104495370994_dp, &
11112 7.713190752815356_dp, &
11113 12.214218517736429_dp, &
11114 19.52076540766317_dp, &
11115 31.536135148981113_dp, &
11116 51.56105718002733_dp, &
11117 85.41349834924547_dp, &
11118 143.5295342840862_dp, &
11119 244.98992662983036_dp, &
11120 425.42112573916177_dp, &
11121 752.9079358406352_dp, &
11122 1360.9881333864396_dp, &
11123 2519.3466781523043_dp, &
11124 4791.042590791367_dp, &
11125 9397.53189950536_dp, &
11126 19109.699703842572_dp, &
11127 40556.572222445735_dp, &
11128 90659.45721129453_dp, &
11129 216333.95478046086_dp, &
11130 564416.1292362113_dp, &
11131 1760880.0389147545_dp, &
11132 0.4077664557826492_dp, &
11133 0.48049567628653145_dp, &
11134 0.6429124643807497_dp, &
11135 0.9325592299631679_dp, &
11136 1.4169440263827862_dp, &
11137 2.2120247106687776_dp, &
11138 3.515599466670522_dp, &
11139 5.666879358451872_dp, &
11140 9.253815059676851_dp, &
11141 15.309414383937733_dp, &
11142 25.677138365111702_dp, &
11143 43.7042055643289_dp, &
11144 75.58521070695693_dp, &
11145 133.0274420624619_dp, &
11146 238.67600100704755_dp, &
11147 437.47737171537983_dp, &
11148 821.2587051299821_dp, &
11149 1583.8578781748606_dp, &
11150 3150.0096236720124_dp, &
11151 6491.449657956827_dp, &
11152 13947.036522523289_dp, &
11153 31498.820504827483_dp, &
11154 75639.29476513214_dp, &
11155 196582.0757874882_dp, &
11156 575257.5915715584_dp, &
11157 2362446.5347060743_dp/)
11158 ELSE IF (e_range < 14140999.0_dp) THEN
11159 aw(:) = (/ &
11160 0.20658002404396444_dp, &
11161 0.6586140986839257_dp, &
11162 1.2369737792708104_dp, &
11163 2.060361497488803_dp, &
11164 3.3082012274969337_dp, &
11165 5.267442774090238_dp, &
11166 8.412127582372415_dp, &
11167 13.542811939893562_dp, &
11168 22.035981804979933_dp, &
11169 36.29881109275795_dp, &
11170 60.6146407237101_dp, &
11171 102.74788434800739_dp, &
11172 177.06018691028456_dp, &
11173 310.7136329238608_dp, &
11174 556.36637029124_dp, &
11175 1018.9766332082758_dp, &
11176 1914.422668305446_dp, &
11177 3702.980284069834_dp, &
11178 7407.809066534502_dp, &
11179 15417.95314386633_dp, &
11180 33651.57917590195_dp, &
11181 77878.97148771118_dp, &
11182 194227.98208713965_dp, &
11183 535582.0636490324_dp, &
11184 1709364.267502628_dp, &
11185 7045890.294848618_dp, &
11186 0.4194816618416714_dp, &
11187 0.49881572197479607_dp, &
11188 0.6772179216261252_dp, &
11189 0.9987160310392028_dp, &
11190 1.5435226281295777_dp, &
11191 2.451754987162261_dp, &
11192 3.9670946613559326_dp, &
11193 6.516517085204095_dp, &
11194 10.85773397839894_dp, &
11195 18.356701405781113_dp, &
11196 31.520492951672992_dp, &
11197 55.0435050002148_dp, &
11198 97.91266305771113_dp, &
11199 177.760944100452_dp, &
11200 330.14945470086406_dp, &
11201 629.0496827419165_dp, &
11202 1233.841581178721_dp, &
11203 2502.1075901274335_dp, &
11204 5274.877655599449_dp, &
11205 11644.098372122406_dp, &
11206 27178.121421602995_dp, &
11207 68003.68316809284_dp, &
11208 186203.45469776812_dp, &
11209 576894.7309753906_dp, &
11210 2152261.8479348915_dp, &
11211 11566361.80487531_dp/)
11212 ELSE
11213 aw(:) = (/ &
11214 0.20878089337233605_dp, &
11215 0.6665236543193817_dp, &
11216 1.2550931614146674_dp, &
11217 2.0983237232110734_dp, &
11218 3.38481582751189_dp, &
11219 5.418564331713917_dp, &
11220 8.705828067862388_dp, &
11221 14.108794066294884_dp, &
11222 23.12322697734966_dp, &
11223 38.390182043454885_dp, &
11224 64.65856322054098_dp, &
11225 110.63583466643804_dp, &
11226 192.63262310028742_dp, &
11227 341.932785309222_dp, &
11228 620.1449956190338_dp, &
11229 1152.2653509765064_dp, &
11230 2200.646613149521_dp, &
11231 4337.910771163601_dp, &
11232 8872.44998086692_dp, &
11233 18961.533603283864_dp, &
11234 42748.40639563531_dp, &
11235 103069.49259277884_dp, &
11236 271388.86064721714_dp, &
11237 808265.503410061_dp, &
11238 2915885.1156875044_dp, &
11239 15257006.288806498_dp, &
11240 0.4240919425078822_dp, &
11241 0.5061337957364646_dp, &
11242 0.6911418800611648_dp, &
11243 1.0259473122312546_dp, &
11244 1.5963227579992894_dp, &
11245 2.5531163460188835_dp, &
11246 4.160724269135366_dp, &
11247 6.8864489147035135_dp, &
11248 11.567503857113842_dp, &
11249 19.729006828740097_dp, &
11250 34.20240654961173_dp, &
11251 60.35680029031647_dp, &
11252 108.61537925165752_dp, &
11253 199.75021678633257_dp, &
11254 376.3927619922551_dp, &
11255 728.9995944299609_dp, &
11256 1456.9587839825_dp, &
11257 3019.6115675071173_dp, &
11258 6531.619658687757_dp, &
11259 14871.950539519852_dp, &
11260 36069.05923591306_dp, &
11261 94800.92746541071_dp, &
11262 277390.3096379278_dp, &
11263 946568.3924295901_dp, &
11264 4140822.150621181_dp, &
11265 30376446.323901277_dp/)
11266 END IF
11267 END SUBROUTINE
11268
11269! **************************************************************************************************
11270!> \brief ...
11271!> \param k ...
11272!> \param E_range ...
11273!> \param aw ...
11274!> \param E_ratio ...
11275! **************************************************************************************************
11276 PURE SUBROUTINE get_coeff_28(k, E_range, aw, E_ratio)
11277 INTEGER, INTENT(IN) :: k
11278 REAL(kind=dp), INTENT(IN) :: e_range
11279 REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
11280 REAL(kind=dp), INTENT(OUT) :: e_ratio
11281
11282 e_ratio = 1.0_dp
11283 IF (e_range < 1545.0_dp) THEN
11284 e_ratio = 1545.0_dp/e_range
11285 aw(:) = (/ &
11286 0.13575757270404953_dp, &
11287 0.4178973639556045_dp, &
11288 0.7329236428021971_dp, &
11289 1.1062108040376035_dp, &
11290 1.568601536611355_dp, &
11291 2.1592688100674207_dp, &
11292 2.9294121393197234_dp, &
11293 3.9472075381811034_dp, &
11294 5.304565115169143_dp, &
11295 7.126455157872397_dp, &
11296 9.58387216560659_dp, &
11297 12.911957380816203_dp, &
11298 17.435457004483258_dp, &
11299 23.60465355900629_dp, &
11300 32.04632634372974_dp, &
11301 43.63642652454945_dp, &
11302 59.604434449969176_dp, &
11303 81.68464372636545_dp, &
11304 112.33867792077912_dp, &
11305 155.0906277872644_dp, &
11306 215.05233203699643_dp, &
11307 299.80262448398395_dp, &
11308 421.01528178406727_dp, &
11309 597.918699882043_dp, &
11310 865.992956895906_dp, &
11311 1303.7011000121163_dp, &
11312 2141.5524242895876_dp, &
11313 4531.217316508373_dp, &
11314 0.27326920724684195_dp, &
11315 0.2946860969732406_dp, &
11316 0.33955686148055997_dp, &
11317 0.4121109865279064_dp, &
11318 0.5191386834268464_dp, &
11319 0.6706479068869163_dp, &
11320 0.8808905660301858_dp, &
11321 1.1698656397567786_dp, &
11322 1.5654653694813896_dp, &
11323 2.106516824061551_dp, &
11324 2.847090389745759_dp, &
11325 3.8626161289484946_dp, &
11326 5.258596350357734_dp, &
11327 7.183071722294598_dp, &
11328 9.844561359899942_dp, &
11329 13.538086075854713_dp, &
11330 18.68336222220931_dp, &
11331 25.881909474247266_dp, &
11332 36.00509685683712_dp, &
11333 50.336922172287224_dp, &
11334 70.82460332971439_dp, &
11335 100.57024668126095_dp, &
11336 144.9365352509728_dp, &
11337 214.43007706895824_dp, &
11338 333.52874619054023_dp, &
11339 573.9031161499247_dp, &
11340 1229.5973040920514_dp, &
11341 4703.444164101694_dp/)
11342 ELSE IF (e_range < 2002.0_dp) THEN
11343 aw(:) = (/ &
11344 0.13875490228933057_dp, &
11345 0.4276255171652803_dp, &
11346 0.7517156037290086_dp, &
11347 1.1383835985980468_dp, &
11348 1.6211543280535077_dp, &
11349 2.24298954813131_dp, &
11350 3.0605574074054775_dp, &
11351 4.150010628234262_dp, &
11352 5.614955400623468_dp, &
11353 7.597559757812928_dp, &
11354 10.294150717899024_dp, &
11355 13.977239772443514_dp, &
11356 19.02678365968016_dp, &
11357 25.97476748389089_dp, &
11358 35.56910288047172_dp, &
11359 48.86570866761254_dp, &
11360 67.36207051671413_dp, &
11361 93.19263977809487_dp, &
11362 129.41834545397384_dp, &
11363 180.464373940652_dp, &
11364 252.8054276668391_dp, &
11365 356.10337604440286_dp, &
11366 505.2839065614399_dp, &
11367 724.884011732378_dp, &
11368 1059.8824174872211_dp, &
11369 1608.9472923295727_dp, &
11370 2660.4222496990938_dp, &
11371 5652.953965854954_dp, &
11372 0.27938451496965105_dp, &
11373 0.3022942729129253_dp, &
11374 0.3504019114933159_dp, &
11375 0.42846797473594944_dp, &
11376 0.5441638095088057_dp, &
11377 0.7088566053659555_dp, &
11378 0.9388406258537662_dp, &
11379 1.2571515140355833_dp, &
11380 1.696177262039284_dp, &
11381 2.3013920551824687_dp, &
11382 3.1366969256786756_dp, &
11383 4.292078154026608_dp, &
11384 5.894629362616917_dp, &
11385 8.124486230083422_dp, &
11386 11.237991762535799_dp, &
11387 15.601617466229358_dp, &
11388 21.74214403705774_dp, &
11389 30.42206941171729_dp, &
11390 42.75588434748671_dp, &
11391 60.397316412895705_dp, &
11392 85.86308174160227_dp, &
11393 123.15573491240343_dp, &
11394 179.14126278900252_dp, &
11395 267.1160865820656_dp, &
11396 417.7474719630637_dp, &
11397 720.4456660885186_dp, &
11398 1542.1360738637661_dp, &
11399 5884.200372654236_dp/)
11400 ELSE IF (e_range < 2600.0_dp) THEN
11401 aw(:) = (/ &
11402 0.14170133198228974_dp, &
11403 0.4372217263238123_dp, &
11404 0.7703667410153948_dp, &
11405 1.170561871979771_dp, &
11406 1.6741573415215183_dp, &
11407 2.328150315477383_dp, &
11408 3.1950959957750866_dp, &
11409 4.359823742790623_dp, &
11410 5.938793138824031_dp, &
11411 8.093266245009781_dp, &
11412 11.047988350138315_dp, &
11413 15.117836905873796_dp, &
11414 20.74603727817547_dp, &
11415 28.559241927240333_dp, &
11416 39.447320753058946_dp, &
11417 54.67958659957536_dp, &
11418 76.07517146731833_dp, &
11419 106.25479226978082_dp, &
11420 149.01700315289193_dp, &
11421 209.91049251369597_dp, &
11422 297.1309477297457_dp, &
11423 423.00157872210633_dp, &
11424 606.6410313436483_dp, &
11425 879.4603870251076_dp, &
11426 1298.7028908996313_dp, &
11427 1988.89250689582_dp, &
11428 3311.7439315777756_dp, &
11429 7068.809688414042_dp, &
11430 0.28540132117732764_dp, &
11431 0.30984707978323456_dp, &
11432 0.36129794839002666_dp, &
11433 0.44508976371473236_dp, &
11434 0.5698536211227944_dp, &
11435 0.7484481979075869_dp, &
11436 0.9994281881329805_dp, &
11437 1.349221631283907_dp, &
11438 1.8352885387908624_dp, &
11439 2.5106794264046326_dp, &
11440 3.4506197143865025_dp, &
11441 4.7620484853517535_dp, &
11442 6.597491611853674_dp, &
11443 9.175333108649932_dp, &
11444 12.809599627131021_dp, &
11445 17.954022803045103_dp, &
11446 25.267822915246338_dp, &
11447 35.715254750483545_dp, &
11448 50.719550256407835_dp, &
11449 72.40992923579321_dp, &
11450 104.04357266683634_dp, &
11451 150.80209138086602_dp, &
11452 221.51983619636096_dp, &
11453 333.11222703164094_dp, &
11454 524.1575321727823_dp, &
11455 906.5045080905089_dp, &
11456 1939.0883159241562_dp, &
11457 7379.912745615771_dp/)
11458 ELSE IF (e_range < 3300.0_dp) THEN
11459 aw(:) = (/ &
11460 0.1443213439813841_dp, &
11461 0.4457831750819166_dp, &
11462 0.7871040955754438_dp, &
11463 1.199649305615617_dp, &
11464 1.7224480814853638_dp, &
11465 2.406363780432981_dp, &
11466 3.3196484980978123_dp, &
11467 4.555610260714856_dp, &
11468 6.243390548485977_dp, &
11469 8.563273777666188_dp, &
11470 11.768595390094813_dp, &
11471 16.217282570542377_dp, &
11472 22.41751110034019_dp, &
11473 31.094143991937496_dp, &
11474 43.28592662828489_dp, &
11475 60.4884812383459_dp, &
11476 84.86601967785074_dp, &
11477 119.56722092591784_dp, &
11478 169.20143472321413_dp, &
11479 240.5679228390866_dp, &
11480 343.80218836354004_dp, &
11481 494.2629646656425_dp, &
11482 715.8986735090695_dp, &
11483 1048.0827251136477_dp, &
11484 1562.2463425593953_dp, &
11485 2412.584383401865_dp, &
11486 4044.261841910583_dp, &
11487 8670.083651639381_dp, &
11488 0.29075611057246903_dp, &
11489 0.3166261585220409_dp, &
11490 0.3711885602570686_dp, &
11491 0.46033854458071854_dp, &
11492 0.5936453499685163_dp, &
11493 0.7854359258485714_dp, &
11494 1.0565085213633747_dp, &
11495 1.436688222670177_dp, &
11496 1.968561659570244_dp, &
11497 2.712912087952586_dp, &
11498 3.7566401596502166_dp, &
11499 5.224345933312585_dp, &
11500 7.295336462823744_dp, &
11501 10.228723138518374_dp, &
11502 14.400665352704436_dp, &
11503 20.36000930380217_dp, &
11504 28.912119534169648_dp, &
11505 41.246715659956386_dp, &
11506 59.136507003494074_dp, &
11507 85.2557783449816_dp, &
11508 123.72029659330352_dp, &
11509 181.09033026269378_dp, &
11510 268.50693202646386_dp, &
11511 407.097383174319_dp, &
11512 644.5187891323013_dp, &
11513 1118.0760747835973_dp, &
11514 2390.794104288915_dp, &
11515 9077.664025334678_dp/)
11516 ELSE IF (e_range < 4000.0_dp) THEN
11517 aw(:) = (/ &
11518 0.14638817647917096_dp, &
11519 0.4525562304919969_dp, &
11520 0.8004113661058508_dp, &
11521 1.2229192620590597_dp, &
11522 1.7613392882634402_dp, &
11523 2.46978131492719_dp, &
11524 3.4213217718648257_dp, &
11525 4.716508123125715_dp, &
11526 6.495398953009317_dp, &
11527 8.954788755571927_dp, &
11528 12.373034589954802_dp, &
11529 17.14606176978465_dp, &
11530 23.83987749306696_dp, &
11531 33.26757985490672_dp, &
11532 46.60291342057746_dp, &
11533 65.54869201567364_dp, &
11534 92.58820799313293_dp, &
11535 131.36337282507247_dp, &
11536 187.24910181582314_dp, &
11537 268.2384452991122_dp, &
11538 386.33916361080026_dp, &
11539 559.8711155854782_dp, &
11540 817.5377393277938_dp, &
11541 1206.597963677244_dp, &
11542 1812.5358477762866_dp, &
11543 2818.7486911520996_dp, &
11544 4751.872883766852_dp, &
11545 10224.75043407236_dp, &
11546 0.2949833929923809_dp, &
11547 0.3220167305947149_dp, &
11548 0.37912854664712514_dp, &
11549 0.4726893344740349_dp, &
11550 0.6130690229748341_dp, &
11551 0.815855353412895_dp, &
11552 1.103786627022251_dp, &
11553 1.5096476978683913_dp, &
11554 2.0805275568641997_dp, &
11555 2.8840571372482406_dp, &
11556 4.0175653372807405_dp, &
11557 5.6215679248366985_dp, &
11558 7.899729561825618_dp, &
11559 11.148556975090484_dp, &
11560 15.801822722811611_dp, &
11561 22.49747280636011_dp, &
11562 32.179229771450665_dp, &
11563 46.2526111584764_dp, &
11564 66.82858029050779_dp, &
11565 97.11489993975235_dp, &
11566 142.07650817080304_dp, &
11567 209.6486242985047_dp, &
11568 313.28112229681227_dp, &
11569 478.2993974050695_dp, &
11570 761.3056079394062_dp, &
11571 1324.411398249371_dp, &
11572 2831.738972704671_dp, &
11573 10731.431828374814_dp/)
11574 ELSE IF (e_range < 5000.0_dp) THEN
11575 aw(:) = (/ &
11576 0.14873276811274175_dp, &
11577 0.4602604435552678_dp, &
11578 0.8156202251610892_dp, &
11579 1.2496712569060364_dp, &
11580 1.8063333929867138_dp, &
11581 2.5436216992100222_dp, &
11582 3.5404623300065525_dp, &
11583 4.906249870587573_dp, &
11584 6.794488603605298_dp, &
11585 9.422467064090277_dp, &
11586 13.09985016154952_dp, &
11587 18.270496883841385_dp, &
11588 25.573981534747755_dp, &
11589 35.93662127761815_dp, &
11590 50.706943480264954_dp, &
11591 71.85851387250909_dp, &
11592 102.29562759788192_dp, &
11593 146.31752861965646_dp, &
11594 210.33006795552657_dp, &
11595 303.95126003728876_dp, &
11596 441.76539937885485_dp, &
11597 646.211368042272_dp, &
11598 952.6710416909058_dp, &
11599 1419.5536773254755_dp, &
11600 2152.239930114691_dp, &
11601 3375.245128381901_dp, &
11602 5728.981212116223_dp, &
11603 12382.677743050794_dp, &
11604 0.29978212482122407_dp, &
11605 0.3281783565393207_dp, &
11606 0.38828614617008406_dp, &
11607 0.4870536747556686_dp, &
11608 0.6358284060736311_dp, &
11609 0.8517463850003115_dp, &
11610 1.159944468384693_dp, &
11611 1.5968934307453053_dp, &
11612 2.2153322272555918_dp, &
11613 3.0915535322808045_dp, &
11614 4.336186457224601_dp, &
11615 6.110220047392288_dp, &
11616 8.648930492647603_dp, &
11617 12.297804765083454_dp, &
11618 17.566800104918254_dp, &
11619 25.212855803295792_dp, &
11620 36.36638248551193_dp, &
11621 52.727201300860486_dp, &
11622 76.87269143077049_dp, &
11623 112.75446596355195_dp, &
11624 166.53426131891115_dp, &
11625 248.1027496502268_dp, &
11626 374.209851157723_dp, &
11627 576.1670830958_dp, &
11628 923.1971063861915_dp, &
11629 1612.0060664213056_dp, &
11630 3447.1144071775916_dp, &
11631 13034.665823606138_dp/)
11632 ELSE IF (e_range < 5800.0_dp) THEN
11633 aw(:) = (/ &
11634 0.1502608626762777_dp, &
11635 0.46529381929136415_dp, &
11636 0.8255984287192656_dp, &
11637 1.2673137696821588_dp, &
11638 1.836171369209371_dp, &
11639 2.5928648745864002_dp, &
11640 3.620360959868694_dp, &
11641 5.03420711947541_dp, &
11642 6.997322718003583_dp, &
11643 9.741445894989209_dp, &
11644 13.598470784165613_dp, &
11645 19.046535582715773_dp, &
11646 26.77821561373657_dp, &
11647 37.802020863101404_dp, &
11648 53.59437014367614_dp, &
11649 76.32857147441665_dp, &
11650 109.22216155171537_dp, &
11651 157.0678149109126_dp, &
11652 227.05242355977109_dp, &
11653 330.03689277986626_dp, &
11654 482.59561279417204_dp, &
11655 710.3800419453736_dp, &
11656 1054.0275615855337_dp, &
11657 1580.7806999365232_dp, &
11658 2411.814227215001_dp, &
11659 3804.1445503572704_dp, &
11660 6487.450697686814_dp, &
11661 14065.757793553257_dp, &
11662 0.30291165139633314_dp, &
11663 0.33222125521586104_dp, &
11664 0.39434230166254536_dp, &
11665 0.49662265274183637_dp, &
11666 0.6510887543947779_dp, &
11667 0.8759576781503452_dp, &
11668 1.1980509194264035_dp, &
11669 1.65644466400815_dp, &
11670 2.3078985102205145_dp, &
11671 3.2349123916804046_dp, &
11672 4.557716389303409_dp, &
11673 6.452190401185147_dp, &
11674 9.17678285087093_dp, &
11675 13.11317617239606_dp, &
11676 18.828100900733247_dp, &
11677 27.16794809144496_dp, &
11678 39.40475025321865_dp, &
11679 57.46370759694749_dp, &
11680 84.28289069496383_dp, &
11681 124.394912066618_dp, &
11682 184.90546198899864_dp, &
11683 277.2608566102862_dp, &
11684 420.8506637137679_dp, &
11685 651.7708792506397_dp, &
11686 1049.2452864243335_dp, &
11687 1837.0994387864066_dp, &
11688 3929.4241467171732_dp, &
11689 14836.654624922767_dp/)
11690 ELSE IF (e_range < 7000.0_dp) THEN
11691 aw(:) = (/ &
11692 0.15216067096721872_dp, &
11693 0.471565223326128_dp, &
11694 0.8380780093696487_dp, &
11695 1.28948169785262_dp, &
11696 1.8738495345723247_dp, &
11697 2.6553598559323834_dp, &
11698 3.7222688062985685_dp, &
11699 5.19822827508094_dp, &
11700 7.258634966635491_dp, &
11701 10.154495182186366_dp, &
11702 14.247532860539385_dp, &
11703 20.062185372368273_dp, &
11704 28.363094298620563_dp, &
11705 40.27130480928199_dp, &
11706 57.43960199384115_dp, &
11707 82.31880941446532_dp, &
11708 118.5650689039139_dp, &
11709 171.66758912191602_dp, &
11710 249.9251651508212_dp, &
11711 365.9837744748739_dp, &
11712 539.3021607201113_dp, &
11713 800.2307440291746_dp, &
11714 1197.160479701725_dp, &
11715 1810.4543604483329_dp, &
11716 2784.8104361839814_dp, &
11717 4425.491363293105_dp, &
11718 7593.770462224588_dp, &
11719 16532.026633916616_dp, &
11720 0.30680462287335947_dp, &
11721 0.33727803632012604_dp, &
11722 0.40197064053453857_dp, &
11723 0.5087540933684152_dp, &
11724 0.6705478410902993_dp, &
11725 0.9069974242331109_dp, &
11726 1.247162385748679_dp, &
11727 1.7336002070451948_dp, &
11728 2.428475465424688_dp, &
11729 3.422685558563218_dp, &
11730 4.849534981128361_dp, &
11731 6.905320699402122_dp, &
11732 9.88048894377267_dp, &
11733 14.207072801318644_dp, &
11734 20.53138622494952_dp, &
11735 29.82621577753499_dp, &
11736 43.56537666330866_dp, &
11737 63.997988617140564_dp, &
11738 94.58522278172896_dp, &
11739 140.7101667657315_dp, &
11740 210.87312430131763_dp, &
11741 318.83821988553984_dp, &
11742 487.951265473417_dp, &
11743 761.4827237292491_dp, &
11744 1233.5478315642981_dp, &
11745 2167.935258865102_dp, &
11746 4639.411026254049_dp, &
11747 17485.041970829057_dp/)
11748 ELSE IF (e_range < 8500.0_dp) THEN
11749 aw(:) = (/ &
11750 0.1540799216139811_dp, &
11751 0.47791627634651673_dp, &
11752 0.850769563354445_dp, &
11753 1.3121430573119903_dp, &
11754 1.9125794571765222_dp, &
11755 2.71995838496797_dp, &
11756 3.8281934943752236_dp, &
11757 5.369664505300357_dp, &
11758 7.533297508669478_dp, &
11759 10.591136793513773_dp, &
11760 14.937707413108372_dp, &
11761 21.14872971257977_dp, &
11762 30.069271553254573_dp, &
11763 42.94695048821831_dp, &
11764 61.63452932012581_dp, &
11765 88.90016193695817_dp, &
11766 128.90594661034356_dp, &
11767 187.95199381913332_dp, &
11768 275.6440545272999_dp, &
11769 406.74745153174376_dp, &
11770 604.1811788842098_dp, &
11771 903.9925961038582_dp, &
11772 1364.0684178021952_dp, &
11773 2080.9739321821835_dp, &
11774 3228.5707596988204_dp, &
11775 5171.757203514712_dp, &
11776 8933.185118640264_dp, &
11777 19534.126420802_dp, &
11778 0.31073990046537614_dp, &
11779 0.3424211000331794_dp, &
11780 0.40978979014005723_dp, &
11781 0.5212783171859456_dp, &
11782 0.6907658913737462_dp, &
11783 0.9394414583345747_dp, &
11784 1.2987972772142504_dp, &
11785 1.8151994912799103_dp, &
11786 2.556766327946643_dp, &
11787 3.6237110927440117_dp, &
11788 5.163950286772281_dp, &
11789 7.396774913472435_dp, &
11790 10.648956311521417_dp, &
11791 15.410163693505844_dp, &
11792 22.418599460431437_dp, &
11793 32.7943079459921_dp, &
11794 48.24841432234958_dp, &
11795 71.4147546141822_dp, &
11796 106.38218646397881_dp, &
11797 159.56520008768115_dp, &
11798 241.17359283608667_dp, &
11799 367.8412274406162_dp, &
11800 567.849453755969_dp, &
11801 893.4358642502303_dp, &
11802 1457.1994566202313_dp, &
11803 2571.939694554795_dp, &
11804 5508.2172091289185_dp, &
11805 20720.162172438253_dp/)
11806 ELSE IF (e_range < 11000.0_dp) THEN
11807 aw(:) = (/ &
11808 0.15656226451877622_dp, &
11809 0.4861541997731515_dp, &
11810 0.8673131850431656_dp, &
11811 1.3418609364967635_dp, &
11812 1.9636960012374267_dp, &
11813 2.805769901664884_dp, &
11814 3.969811694463799_dp, &
11815 5.600354203716589_dp, &
11816 7.905313246191792_dp, &
11817 11.186501541338686_dp, &
11818 15.88524322405582_dp, &
11819 22.65105407014549_dp, &
11820 32.44576099810582_dp, &
11821 46.702425471088645_dp, &
11822 67.5696101585034_dp, &
11823 98.28954732885543_dp, &
11824 143.78811859550652_dp, &
11825 211.6029698300622_dp, &
11826 313.35735776243826_dp, &
11827 467.1276302319483_dp, &
11828 701.3067172895998_dp, &
11829 1061.0705297754337_dp, &
11830 1619.7132862760398_dp, &
11831 2500.373676035913_dp, &
11832 3925.0320573338013_dp, &
11833 6356.748668419306_dp, &
11834 11081.327581159301_dp, &
11835 24381.679371671577_dp, &
11836 0.3158335009912212_dp, &
11837 0.34912565992572775_dp, &
11838 0.4200753104160631_dp, &
11839 0.5378896525589358_dp, &
11840 0.7177805773200047_dp, &
11841 0.9830934888999047_dp, &
11842 1.368743715763372_dp, &
11843 1.9264972868488104_dp, &
11844 2.732981028075031_dp, &
11845 3.9018333932401776_dp, &
11846 5.602211794669996_dp, &
11847 8.087135781098235_dp, &
11848 11.737161876852092_dp, &
11849 17.128136373382_dp, &
11850 25.137060567441367_dp, &
11851 37.10879805120811_dp, &
11852 55.12084225228906_dp, &
11853 82.40796079967193_dp, &
11854 124.05157534923438_dp, &
11855 188.11812693397164_dp, &
11856 287.5913676589109_dp, &
11857 443.82063547247185_dp, &
11858 693.2803515796006_dp, &
11859 1103.1543539828035_dp, &
11860 1816.6489638049509_dp, &
11861 3226.5521973584873_dp, &
11862 6920.118346610322_dp, &
11863 25967.01374573565_dp/)
11864 ELSE IF (e_range < 14000.0_dp) THEN
11865 aw(:) = (/ &
11866 0.15881564616129193_dp, &
11867 0.4936556598653273_dp, &
11868 0.8824588841815081_dp, &
11869 1.3692457113825114_dp, &
11870 2.0111264485492355_dp, &
11871 2.885950423092618_dp, &
11872 4.103059689428933_dp, &
11873 5.818927316225091_dp, &
11874 8.260287362001002_dp, &
11875 11.75871117291467_dp, &
11876 16.802727948824526_dp, &
11877 24.116981065069147_dp, &
11878 34.78330983777523_dp, &
11879 50.42729724265466_dp, &
11880 73.50780317707246_dp, &
11881 107.76979904893427_dp, &
11882 158.95837591286625_dp, &
11883 235.95442692125644_dp, &
11884 352.598636504137_dp, &
11885 530.6546935517891_dp, &
11886 804.6962971730163_dp, &
11887 1230.3548358289224_dp, &
11888 1898.8241278088317_dp, &
11889 2964.5082086762377_dp, &
11890 4706.457126412182_dp, &
11891 7704.024872038893_dp, &
11892 13551.675236040213_dp, &
11893 30000.20611112028_dp, &
11894 0.3204610031116597_dp, &
11895 0.3552640894565443_dp, &
11896 0.4295842351097504_dp, &
11897 0.5533833088806153_dp, &
11898 0.7431779324839743_dp, &
11899 1.0244390610175549_dp, &
11900 1.4354819295430314_dp, &
11901 2.0334801056157183_dp, &
11902 2.903655037921023_dp, &
11903 4.1733290625525665_dp, &
11904 6.0335143863200065_dp, &
11905 8.772275269918612_dp, &
11906 12.82662526184919_dp, &
11907 18.863835903341464_dp, &
11908 27.909803652722584_dp, &
11909 41.55338127934832_dp, &
11910 62.27454140110857_dp, &
11911 93.97671287155796_dp, &
11912 142.86069930469114_dp, &
11913 218.88238290006603_dp, &
11914 338.2447047196054_dp, &
11915 527.8483016510384_dp, &
11916 833.9328380491752_dp, &
11917 1341.6124089588006_dp, &
11918 2230.6304097502575_dp, &
11919 3987.780431784136_dp, &
11920 8568.294988757902_dp, &
11921 32079.26783423429_dp/)
11922 ELSE IF (e_range < 18000.0_dp) THEN
11923 aw(:) = (/ &
11924 0.1610939781339949_dp, &
11925 0.5012631407780889_dp, &
11926 0.8978984268667602_dp, &
11927 1.3973374389835533_dp, &
11928 2.0601052994909983_dp, &
11929 2.9693037686025625_dp, &
11930 4.2425076374898465_dp, &
11931 6.049209333425932_dp, &
11932 8.63683304888055_dp, &
11933 12.369947100756928_dp, &
11934 17.78988041970464_dp, &
11935 25.70606845547581_dp, &
11936 37.33707453593626_dp, &
11937 54.529958798718575_dp, &
11938 80.10419787720568_dp, &
11939 118.39528522114581_dp, &
11940 176.12137581924918_dp, &
11941 263.7777454271281_dp, &
11942 397.90331695679896_dp, &
11943 604.8077130867456_dp, &
11944 926.7903239830885_dp, &
11945 1432.7407682152939_dp, &
11946 2236.883538210146_dp, &
11947 3534.396483826615_dp, &
11948 5679.4632854654_dp, &
11949 9404.641424310748_dp, &
11950 16707.201153452228_dp, &
11951 37236.60159840964_dp, &
11952 0.3251433866999734_dp, &
11953 0.3615219000652313_dp, &
11954 0.43936851892508155_dp, &
11955 0.5694605971527937_dp, &
11956 0.7697318471818748_dp, &
11957 1.0679770987543238_dp, &
11958 1.5062564601488997_dp, &
11959 2.147747329286371_dp, &
11960 3.0872938959644456_dp, &
11961 4.467674438671821_dp, &
11962 6.504813446418115_dp, &
11963 9.527106074077976_dp, &
11964 14.03718906734335_dp, &
11965 20.809713515195543_dp, &
11966 31.04736871222941_dp, &
11967 46.63203851421735_dp, &
11968 70.53290909444102_dp, &
11969 107.47651145953795_dp, &
11970 165.06008557957134_dp, &
11971 255.62996703107464_dp, &
11972 399.52200422464244_dp, &
11973 630.8696403435848_dp, &
11974 1008.8071793310638_dp, &
11975 1642.3274927796938_dp, &
11976 2759.7196504068343_dp, &
11977 4970.842422998521_dp, &
11978 10706.437123051388_dp, &
11979 39993.678157447954_dp/)
11980 ELSE IF (e_range < 22000.0_dp) THEN
11981 aw(:) = (/ &
11982 0.16286202517738316_dp, &
11983 0.5071829401058993_dp, &
11984 0.9099691167949224_dp, &
11985 1.4194239255890508_dp, &
11986 2.0988437736405245_dp, &
11987 3.0356259048953707_dp, &
11988 4.35412840156482_dp, &
11989 6.2346505351972965_dp, &
11990 8.941919073444248_dp, &
11991 12.868307590765278_dp, &
11992 18.599987337738977_dp, &
11993 27.01899385998513_dp, &
11994 39.46194816028856_dp, &
11995 57.968842841688435_dp, &
11996 85.67620223471917_dp, &
11997 127.4437361103542_dp, &
11998 190.86221942438462_dp, &
11999 287.8902318415413_dp, &
12000 437.5401948107147_dp, &
12001 670.3390916786248_dp, &
12002 1035.844707784025_dp, &
12003 1615.5694884106663_dp, &
12004 2545.9657775567157_dp, &
12005 4062.078331546931_dp, &
12006 6592.278861303402_dp, &
12007 11020.719723335082_dp, &
12008 19740.079474062593_dp, &
12009 44247.269653501586_dp, &
12010 0.32877960783872057_dp, &
12011 0.36641441495071897_dp, &
12012 0.44708193429055737_dp, &
12013 0.5822306885078613_dp, &
12014 0.7909661025753427_dp, &
12015 1.1030159511231001_dp, &
12016 1.5635761654481883_dp, &
12017 2.2408877406025356_dp, &
12018 3.237972207764307_dp, &
12019 4.710846444376257_dp, &
12020 6.896950066089331_dp, &
12021 10.159810780070979_dp, &
12022 15.059747172258659_dp, &
12023 22.466688314211762_dp, &
12024 33.741746573072334_dp, &
12025 51.032123644139766_dp, &
12026 77.75480860637037_dp, &
12027 119.39847679866706_dp, &
12028 184.86920459563467_dp, &
12029 288.78280596198823_dp, &
12030 455.4522326064931_dp, &
12031 726.0680539550964_dp, &
12032 1172.5112874975482_dp, &
12033 1927.6011121765132_dp, &
12034 3268.0690080523195_dp, &
12035 5925.0502577809875_dp, &
12036 12791.74491637296_dp, &
12037 47700.6553314684_dp/)
12038 ELSE IF (e_range < 30000.0_dp) THEN
12039 aw(:) = (/ &
12040 0.16550588765942553_dp, &
12041 0.516062009336416_dp, &
12042 0.9281674926129342_dp, &
12043 1.4529297711024542_dp, &
12044 2.1579962800811443_dp, &
12045 3.1375655705474386_dp, &
12046 4.526824919336864_dp, &
12047 6.52346781619548_dp, &
12048 9.420301579076966_dp, &
12049 13.655208883851635_dp, &
12050 19.888399623526567_dp, &
12051 29.122872846718497_dp, &
12052 42.89382564991708_dp, &
12053 63.56900112741913_dp, &
12054 94.82915018373326_dp, &
12055 142.44372123087916_dp, &
12056 215.53542531034506_dp, &
12057 328.6632843331655_dp, &
12058 505.2926101128234_dp, &
12059 783.6477805337622_dp, &
12060 1226.7296666006187_dp, &
12061 1939.7944616575992_dp, &
12062 3101.785623951648_dp, &
12063 5025.174302162332_dp, &
12064 8284.281861937603_dp, &
12065 14062.83179723175_dp, &
12066 25528.48971632664_dp, &
12067 57759.22356371914_dp, &
12068 0.3342213065985371_dp, &
12069 0.3737907231275688_dp, &
12070 0.45881732537071723_dp, &
12071 0.601819261468133_dp, &
12072 0.8237789857593867_dp, &
12073 1.1575413887012014_dp, &
12074 1.6533971399634884_dp, &
12075 2.3878799654780147_dp, &
12076 3.4775169315434225_dp, &
12077 5.100383812329383_dp, &
12078 7.530103230545625_dp, &
12079 11.189861262594912_dp, &
12080 16.738922378384462_dp, &
12081 25.212398544065515_dp, &
12082 38.249144800530594_dp, &
12083 58.46701561201135_dp, &
12084 90.0873039981285_dp, &
12085 139.9857380571293_dp, &
12086 219.48397400182492_dp, &
12087 347.4492001516725_dp, &
12088 555.763013631551_dp, &
12089 899.2679993238643_dp, &
12090 1474.9019487688392_dp, &
12091 2462.9199651441854_dp, &
12092 4236.78509184323_dp, &
12093 7766.730019457065_dp, &
12094 16842.450828736164_dp, &
12095 62648.76273159001_dp/)
12096 ELSE IF (e_range < 40000.0_dp) THEN
12097 aw(:) = (/ &
12098 0.1678624984386396_dp, &
12099 0.5240039277065677_dp, &
12100 0.9445413343768262_dp, &
12101 1.4832899296027031_dp, &
12102 2.2119941166231323_dp, &
12103 3.231318139361639_dp, &
12104 4.686840531125701_dp, &
12105 6.793101100181927_dp, &
12106 9.870359826324044_dp, &
12107 14.401421486392543_dp, &
12108 21.120311419307942_dp, &
12109 31.151884233378865_dp, &
12110 46.23355566119178_dp, &
12111 69.07063891977168_dp, &
12112 103.9111329114676_dp, &
12113 157.48467618090592_dp, &
12114 240.55243987990312_dp, &
12115 370.4940225061482_dp, &
12116 575.6771054267826_dp, &
12117 902.9360411163456_dp, &
12118 1430.5655099944815_dp, &
12119 2291.326618763138_dp, &
12120 3714.3291401860997_dp, &
12121 6105.216711407023_dp, &
12122 10216.855593912702_dp, &
12123 17602.252858531945_dp, &
12124 32376.971831996485_dp, &
12125 73939.47243943921_dp, &
12126 0.3390761234013535_dp, &
12127 0.38042748095334855_dp, &
12128 0.46948517950905133_dp, &
12129 0.6197911244215307_dp, &
12130 0.8541350450818376_dp, &
12131 1.2083859869249218_dp, &
12132 1.737819635649183_dp, &
12133 2.5271580680576275_dp, &
12134 3.7063925373131634_dp, &
12135 5.475812712926834_dp, &
12136 8.145864684746673_dp, &
12137 12.201123189749161_dp, &
12138 18.403853838774207_dp, &
12139 27.96322210175245_dp, &
12140 42.81450321088113_dp, &
12141 66.08467665891509_dp, &
12142 102.87759879730325_dp, &
12143 161.61423975462415_dp, &
12144 256.35102809823303_dp, &
12145 410.8517040007441_dp, &
12146 665.8762082773686_dp, &
12147 1092.5932138672465_dp, &
12148 1818.4906655133614_dp, &
12149 3082.6261009452624_dp, &
12150 5379.192173747507_dp, &
12151 9973.306180469173_dp, &
12152 21737.4521360814_dp, &
12153 80688.08263620315_dp/)
12154 ELSE IF (e_range < 55000.0_dp) THEN
12155 aw(:) = (/ &
12156 0.17036496307430077_dp, &
12157 0.5324663182632273_dp, &
12158 0.9620895318113227_dp, &
12159 1.516053047783045_dp, &
12160 2.2706890746569957_dp, &
12161 3.333970091290067_dp, &
12162 4.863327619652776_dp, &
12163 7.092693187729123_dp, &
12164 10.374220724548097_dp, &
12165 15.243403064520715_dp, &
12166 22.521699980194235_dp, &
12167 33.47979649400302_dp, &
12168 50.09973367935207_dp, &
12169 75.49983243992041_dp, &
12170 114.63042911159955_dp, &
12171 175.42509396717406_dp, &
12172 270.7269739485002_dp, &
12173 421.55091333978646_dp, &
12174 662.6791216153256_dp, &
12175 1052.3953320146977_dp, &
12176 1689.6875070139436_dp, &
12177 2745.231543799062_dp, &
12178 4518.674628346486_dp, &
12179 7549.367766712861_dp, &
12180 12851.219414149484_dp, &
12181 22522.974006977485_dp, &
12182 42073.064211266406_dp, &
12183 97154.3497922795_dp, &
12184 0.3442359726520383_dp, &
12185 0.38754007185862954_dp, &
12186 0.4810326806451499_dp, &
12187 0.6394198647471336_dp, &
12188 0.8875587091716534_dp, &
12189 1.2648037235106746_dp, &
12190 1.8322244813392865_dp, &
12191 2.684145960116962_dp, &
12192 3.966500195829279_dp, &
12193 5.906140569869111_dp, &
12194 8.858010554137483_dp, &
12195 13.381685635639329_dp, &
12196 20.36673130214467_dp, &
12197 31.24005706702999_dp, &
12198 48.31255482932005_dp, &
12199 75.36517063974274_dp, &
12200 118.6518389635584_dp, &
12201 188.6382478887288_dp, &
12202 303.059337317903_dp, &
12203 492.38182357709826_dp, &
12204 809.7503916539654_dp, &
12205 1349.5688287135445_dp, &
12206 2283.7129470839764_dp, &
12207 3938.318929170714_dp, &
12208 6988.303443289154_dp, &
12209 13136.528535241805_dp, &
12210 28826.90535778617_dp, &
12211 106792.5668680263_dp/)
12212 ELSE IF (e_range < 75000.0_dp) THEN
12213 aw(:) = (/ &
12214 0.17269556592412857_dp, &
12215 0.5403748964029321_dp, &
12216 0.9785852679690707_dp, &
12217 1.5470653817948434_dp, &
12218 2.3266514376923366_dp, &
12219 3.4325577583865416_dp, &
12220 5.0340686756366715_dp, &
12221 7.384684578834457_dp, &
12222 10.86904453036137_dp, &
12223 16.076821539981736_dp, &
12224 23.92028394592648_dp, &
12225 35.82315617144631_dp, &
12226 54.02701058174775_dp, &
12227 82.09339856008381_dp, &
12228 125.73557580722034_dp, &
12229 194.2117754907147_dp, &
12230 302.6873267691643_dp, &
12231 476.2910454873438_dp, &
12232 757.1780279061045_dp, &
12233 1217.01315551735_dp, &
12234 1979.4070403165824_dp, &
12235 3261.0324543098973_dp, &
12236 5448.912148191038_dp, &
12237 9251.68321181564_dp, &
12238 16020.743424436212_dp, &
12239 28570.382753480066_dp, &
12240 54229.78154218437_dp, &
12241 126696.56228762324_dp, &
12242 0.3490457636631589_dp, &
12243 0.39422579301772903_dp, &
12244 0.49199588231797214_dp, &
12245 0.6582220201025798_dp, &
12246 0.9198335281974843_dp, &
12247 1.3197051837498925_dp, &
12248 1.9248079614290126_dp, &
12249 2.839336845230337_dp, &
12250 4.225765459102832_dp, &
12251 6.338790677137095_dp, &
12252 9.580492391710184_dp, &
12253 14.590781522893115_dp, &
12254 22.39718076042754_dp, &
12255 34.665500315997214_dp, &
12256 54.12415292925981_dp, &
12257 85.29113057050759_dp, &
12258 135.73577535381042_dp, &
12259 218.29950108939332_dp, &
12260 355.0638815393454_dp, &
12261 584.5607922611614_dp, &
12262 975.1302787959035_dp, &
12263 1650.2897030531005_dp, &
12264 2838.7772270165033_dp, &
12265 4980.693094157311_dp, &
12266 8991.001468037319_dp, &
12267 17151.64888313862_dp, &
12268 37936.68288424044_dp, &
12269 140330.3757792011_dp/)
12270 ELSE IF (e_range < 100000.0_dp) THEN
12271 aw(:) = (/ &
12272 0.17476493191141415_dp, &
12273 0.5474193940515534_dp, &
12274 0.9933573948794411_dp, &
12275 1.5750134784958338_dp, &
12276 2.3774182245590976_dp, &
12277 3.5225875266569684_dp, &
12278 5.191031053231731_dp, &
12279 7.65493753438325_dp, &
12280 11.330235095244555_dp, &
12281 16.85924390942949_dp, &
12282 25.24328503055809_dp, &
12283 38.05761248430254_dp, &
12284 57.80337969002844_dp, &
12285 88.49020666120597_dp, &
12286 136.61135242458343_dp, &
12287 212.79570615428042_dp, &
12288 334.6422749519929_dp, &
12289 531.6505866599738_dp, &
12290 853.9241940929868_dp, &
12291 1387.782907449122_dp, &
12292 2284.2677480183024_dp, &
12293 3812.2510844331973_dp, &
12294 6459.925409369088_dp, &
12295 11136.186670622694_dp, &
12296 19600.27283250913_dp, &
12297 35545.19130000765_dp, &
12298 68536.45729392112_dp, &
12299 161999.07322111004_dp, &
12300 0.35331994251863175_dp, &
12301 0.4002125878121666_dp, &
12302 0.5019021590207834_dp, &
12303 0.675348992397178_dp, &
12304 0.9494484180546069_dp, &
12305 1.370438471536318_dp, &
12306 2.010972421797265_dp, &
12307 2.984828447386733_dp, &
12308 4.47068346087602_dp, &
12309 6.7507629145842705_dp, &
12310 10.274207336138101_dp, &
12311 15.761962819310062_dp, &
12312 24.382228769987734_dp, &
12313 38.04723731915354_dp, &
12314 59.92133877283344_dp, &
12315 95.30210365832416_dp, &
12316 153.1695274726372_dp, &
12317 248.9507054460044_dp, &
12318 409.5337510421667_dp, &
12319 682.5234878783859_dp, &
12320 1153.6752246200758_dp, &
12321 1980.5529864545388_dp, &
12322 3459.8436855153436_dp, &
12323 6170.831685857496_dp, &
12324 11326.739601304256_dp, &
12325 21929.575378095506_dp, &
12326 48923.087093047834_dp, &
12327 180801.94440922138_dp/)
12328 ELSE IF (e_range < 140000.0_dp) THEN
12329 aw(:) = (/ &
12330 0.17707349703529857_dp, &
12331 0.5553034658173043_dp, &
12332 1.0099791730991756_dp, &
12333 1.6066610726001294_dp, &
12334 2.4352859938075695_dp, &
12335 3.6258937322871367_dp, &
12336 5.372347774805723_dp, &
12337 7.969256176272777_dp, &
12338 11.870406472074928_dp, &
12339 17.78239069764118_dp, &
12340 26.81626145155005_dp, &
12341 40.73582235231918_dp, &
12342 62.36857184593184_dp, &
12343 96.29361499410518_dp, &
12344 150.00711005408417_dp, &
12345 235.9221311383991_dp, &
12346 374.8476146182405_dp, &
12347 602.1299577709411_dp, &
12348 978.6687811138307_dp, &
12349 1611.0196047848676_dp, &
12350 2688.7838466688286_dp, &
12351 4555.662141059458_dp, &
12352 7848.009593576401_dp, &
12353 13774.881010275332_dp, &
12354 24721.57253813353_dp, &
12355 45756.96334453548_dp, &
12356 89961.78780041506_dp, &
12357 215802.3342656405_dp, &
12358 0.3580921418111161_dp, &
12359 0.40694849130748023_dp, &
12360 0.5131489467923581_dp, &
12361 0.6949501550098907_dp, &
12362 0.9835895138470994_dp, &
12363 1.429340141748686_dp, &
12364 2.1117265083379655_dp, &
12365 3.156213050221744_dp, &
12366 4.761412846546327_dp, &
12367 7.243742288102652_dp, &
12368 11.111375537133872_dp, &
12369 17.187982478782033_dp, &
12370 26.82207794053154_dp, &
12371 42.2454800002888_dp, &
12372 67.19501324394297_dp, &
12373 108.0057380925622_dp, &
12374 175.56201559076507_dp, &
12375 288.83560003555107_dp, &
12376 481.41389562366794_dp, &
12377 813.7768209755345_dp, &
12378 1396.8818687993016_dp, &
12379 2438.628712875254_dp, &
12380 4338.525137576797_dp, &
12381 7891.642771451579_dp, &
12382 14783.538737749648_dp, &
12383 29163.479733223845_dp, &
12384 65827.4645722146_dp, &
12385 243179.26518144744_dp/)
12386 ELSE IF (e_range < 200000.0_dp) THEN
12387 aw(:) = (/ &
12388 0.17939121623291196_dp, &
12389 0.5632460962554191_dp, &
12390 1.0268207360191903_dp, &
12391 1.6389441207178375_dp, &
12392 2.494730975718965_dp, &
12393 3.732765899075506_dp, &
12394 5.561259778907539_dp, &
12395 8.299124280524993_dp, &
12396 12.441566280835362_dp, &
12397 18.766165667383223_dp, &
12398 28.506386171958923_dp, &
12399 43.638584384879934_dp, &
12400 67.36224738878316_dp, &
12401 104.91328976480246_dp, &
12402 164.9591150046168_dp, &
12403 262.0244972943479_dp, &
12404 420.7723136732652_dp, &
12405 683.6778754860417_dp, &
12406 1125.0251624529246_dp, &
12407 1876.914526701929_dp, &
12408 3178.594976788772_dp, &
12409 5472.221732744173_dp, &
12410 9593.809960559516_dp, &
12411 17167.666568195575_dp, &
12412 31469.64998425534_dp, &
12413 59575.37273864424_dp, &
12414 119738.62770948543_dp, &
12415 292181.0961057968_dp, &
12416 0.36288753563601406_dp, &
12417 0.4137727803438694_dp, &
12418 0.5246525197888982_dp, &
12419 0.7151692528977265_dp, &
12420 1.0190794875976732_dp, &
12421 1.4910294440355354_dp, &
12422 2.2180532993489983_dp, &
12423 3.3385033549868535_dp, &
12424 5.073189714925689_dp, &
12425 7.776982900408857_dp, &
12426 12.025161831532559_dp, &
12427 18.759485999109437_dp, &
12428 29.538246648034107_dp, &
12429 46.969812152842266_dp, &
12430 75.47470761821671_dp, &
12431 122.64510922855702_dp, &
12432 201.70899555206492_dp, &
12433 336.0740868831789_dp, &
12434 567.8651913799991_dp, &
12435 974.2972338202875_dp, &
12436 1699.8017696089582_dp, &
12437 3020.746535916867_dp, &
12438 5480.209144976741_dp, &
12439 10183.145007147052_dp, &
12440 19511.673781213012_dp, &
12441 39328.72129742758_dp, &
12442 90071.79118231079_dp, &
12443 332938.41349157074_dp/)
12444 ELSE IF (e_range < 280000.0_dp) THEN
12445 aw(:) = (/ &
12446 0.18145787532761345_dp, &
12447 0.5703516980411364_dp, &
12448 1.041969987100468_dp, &
12449 1.668169762478659_dp, &
12450 2.548905102202213_dp, &
12451 3.8308153868700057_dp, &
12452 5.73575077606394_dp, &
12453 8.605924764080692_dp, &
12454 12.976605854940628_dp, &
12455 19.694664135422833_dp, &
12456 30.114196205027547_dp, &
12457 46.4231488999098_dp, &
12458 72.19529201520032_dp, &
12459 113.33495114684222_dp, &
12460 179.71600233232834_dp, &
12461 288.0668684898181_dp, &
12462 467.1287314532969_dp, &
12463 767.0353863539326_dp, &
12464 1276.6863337842099_dp, &
12465 2156.5782398644915_dp, &
12466 3702.2394624534754_dp, &
12467 6469.865405622618_dp, &
12468 11532.348640847953_dp, &
12469 21019.959826658564_dp, &
12470 39325.54785388118_dp, &
12471 76112.75783759716_dp, &
12472 156400.96081191118_dp, &
12473 388429.5049686922_dp, &
12474 0.3671671269112481_dp, &
12475 0.41991063535051504_dp, &
12476 0.5350925824270352_dp, &
12477 0.7336661302058223_dp, &
12478 1.051784230902112_dp, &
12479 1.5482836110025917_dp, &
12480 2.31745277890254_dp, &
12481 3.510201538782171_dp, &
12482 5.369167048208645_dp, &
12483 8.287401135959756_dp, &
12484 12.907497398486063_dp, &
12485 20.29096603628255_dp, &
12486 32.211289400182395_dp, &
12487 51.667875628946675_dp, &
12488 83.80064093288466_dp, &
12489 137.54326768587123_dp, &
12490 228.6628977463769_dp, &
12491 385.45278105561033_dp, &
12492 659.609584732442_dp, &
12493 1147.48083087963_dp, &
12494 2032.5976860626631_dp, &
12495 3673.224580494971_dp, &
12496 6788.760553221407_dp, &
12497 12875.900072438904_dp, &
12498 25223.35236302233_dp, &
12499 51966.7592745666_dp, &
12500 120920.32428947231_dp, &
12501 447736.17541344964_dp/)
12502 ELSE IF (e_range < 400000.0_dp) THEN
12503 aw(:) = (/ &
12504 0.18352365749998711_dp, &
12505 0.5774767415391759_dp, &
12506 1.0572402465072317_dp, &
12507 1.6978091130093156_dp, &
12508 2.604194412635273_dp, &
12509 3.931521110681753_dp, &
12510 5.916123772874016_dp, &
12511 8.925163169995924_dp, &
12512 13.537158542380958_dp, &
12513 20.674441611900086_dp, &
12514 31.823697567083265_dp, &
12515 49.40770243187122_dp, &
12516 77.4199205005401_dp, &
12517 122.5224666728988_dp, &
12518 195.97318566547537_dp, &
12519 317.0604624119025_dp, &
12520 519.3281914726538_dp, &
12521 862.0631903466981_dp, &
12522 1451.9161062243747_dp, &
12523 2484.485489661112_dp, &
12524 4326.234527544991_dp, &
12525 7680.233304404955_dp, &
12526 13931.912588144245_dp, &
12527 25897.50172535608_dp, &
12528 49530.68109870176_dp, &
12529 98224.55152386216_dp, &
12530 206939.49053745338_dp, &
12531 524566.9562885154_dp, &
12532 0.3714484036559812_dp, &
12533 0.4260967455633218_dp, &
12534 0.5457049480928435_dp, &
12535 0.7526107268819361_dp, &
12536 1.085512849361448_dp, &
12537 1.6077308109599637_dp, &
12538 2.421373349769565_dp, &
12539 3.690999486571998_dp, &
12540 5.683179798418424_dp, &
12541 8.83322260839823_dp, &
12542 13.858958047223895_dp, &
12543 21.957146639909727_dp, &
12544 35.147034069885805_dp, &
12545 56.87996069901934_dp, &
12546 93.13791144680825_dp, &
12547 154.44652085662315_dp, &
12548 259.63116034555344_dp, &
12549 442.9649858732788_dp, &
12550 768.0687208011793_dp, &
12551 1355.5892058006805_dp, &
12552 2439.7899569103974_dp, &
12553 4487.76072780871_dp, &
12554 8459.538519483716_dp, &
12555 16402.660399711818_dp, &
12556 32921.61554906603_dp, &
12557 69533.14758216766_dp, &
12558 164947.39394785516_dp, &
12559 612800.2731138045_dp/)
12560 ELSE IF (e_range < 700000.0_dp) THEN
12561 aw(:) = (/ &
12562 0.1865127174002091_dp, &
12563 0.5878264119237888_dp, &
12564 1.0795642254870847_dp, &
12565 1.7414647079050736_dp, &
12566 2.686262513059428_dp, &
12567 4.082172829391877_dp, &
12568 6.188096843488031_dp, &
12569 9.410456034264666_dp, &
12570 14.396547620814117_dp, &
12571 22.190018755083887_dp, &
12572 34.49317521293508_dp, &
12573 54.11536762065149_dp, &
12574 85.74999790790363_dp, &
12575 137.3406746169067_dp, &
12576 222.5209261857046_dp, &
12577 365.04500319056837_dp, &
12578 606.9830522872659_dp, &
12579 1024.1840598017022_dp, &
12580 1756.0972227796592_dp, &
12581 3064.6905800265477_dp, &
12582 5454.026428632921_dp, &
12583 9920.369530831516_dp, &
12584 18493.617558448037_dp, &
12585 35457.83700573299_dp, &
12586 70250.70208206157_dp, &
12587 144978.57163654402_dp, &
12588 318662.0049240475_dp, &
12589 837598.2931640423_dp, &
12590 0.3776493979310916_dp, &
12591 0.435138768215793_dp, &
12592 0.5613788375562351_dp, &
12593 0.7808493636204112_dp, &
12594 1.1362155303193089_dp, &
12595 1.6978417615255126_dp, &
12596 2.5802450840754427_dp, &
12597 3.9698657023594675_dp, &
12598 6.172064932079413_dp, &
12599 9.69144120022167_dp, &
12600 15.370728380706238_dp, &
12601 24.634198247900454_dp, &
12602 39.92036731837176_dp, &
12603 65.46330289853823_dp, &
12604 108.72733676148118_dp, &
12605 183.09024363050807_dp, &
12606 312.9622216519181_dp, &
12607 543.7670826405075_dp, &
12608 961.8761857704002_dp, &
12609 1735.4901623013577_dp, &
12610 3201.003196409115_dp, &
12611 6051.665762920312_dp, &
12612 11766.014824513828_dp, &
12613 23628.41759091035_dp, &
12614 49336.106221828624_dp, &
12615 108694.3328979675_dp, &
12616 267237.7291173849_dp, &
12617 1002021.1700926761_dp/)
12618 ELSE IF (e_range < 1200000.0_dp) THEN
12619 aw(:) = (/ &
12620 0.18910898992309827_dp, &
12621 0.5968553778314455_dp, &
12622 1.099179600396227_dp, &
12623 1.7801437973508598_dp, &
12624 2.7596026949493577_dp, &
12625 4.217972884397996_dp, &
12626 6.435421861591648_dp, &
12627 9.855784799002635_dp, &
12628 15.192663835695727_dp, &
12629 23.608087390187727_dp, &
12630 37.01748316805854_dp, &
12631 58.61754075464745_dp, &
12632 93.81326580419346_dp, &
12633 151.87161660723567_dp, &
12634 248.92100011282085_dp, &
12635 413.49172640188107_dp, &
12636 696.9547246299024_dp, &
12637 1193.621061792798_dp, &
12638 2080.3822432854854_dp, &
12639 3696.998493291677_dp, &
12640 6713.636172345608_dp, &
12641 12492.44299238403_dp, &
12642 23898.55659235671_dp, &
12643 47203.17808379973_dp, &
12644 96805.96561293019_dp, &
12645 207957.8998427237_dp, &
12646 477933.1522768045_dp, &
12647 1308114.0012041177_dp, &
12648 0.3830416352614052_dp, &
12649 0.4430819114148896_dp, &
12650 0.5753071318246739_dp, &
12651 0.8061988913511784_dp, &
12652 1.182158486497417_dp, &
12653 1.7802506103346156_dp, &
12654 2.726920016454761_dp, &
12655 4.229882717633601_dp, &
12656 6.632680284308672_dp, &
12657 10.509000784328796_dp, &
12658 16.82784984813855_dp, &
12659 27.24691097632485_dp, &
12660 44.64167580356611_dp, &
12661 74.07592303550199_dp, &
12662 124.61429974186086_dp, &
12663 212.77537227876334_dp, &
12664 369.25379542370973_dp, &
12665 652.3218043365148_dp, &
12666 1175.259654699904_dp, &
12667 2164.1710677218566_dp, &
12668 4083.922692671305_dp, &
12669 7922.927093368247_dp, &
12670 15865.524351752772_dp, &
12671 32963.81111451602_dp, &
12672 71590.44785506214_dp, &
12673 164831.2803483035_dp, &
12674 422312.83970923733_dp, &
12675 1607194.846517409_dp/)
12676 ELSE IF (e_range < 2000000.0_dp) THEN
12677 aw(:) = (/ &
12678 0.19132297837375925_dp, &
12679 0.6045842212401715_dp, &
12680 1.116075239909931_dp, &
12681 1.8137003319341403_dp, &
12682 2.823703852560562_dp, &
12683 4.3375571365379555_dp, &
12684 6.654879506061997_dp, &
12685 10.25406160102038_dp, &
12686 15.910566848875042_dp, &
12687 24.8980512789274_dp, &
12688 39.33518360062533_dp, &
12689 62.79250184241327_dp, &
12690 101.37073372724154_dp, &
12691 165.64870251297975_dp, &
12692 274.26536197966556_dp, &
12693 460.63593723457706_dp, &
12694 785.8148240324404_dp, &
12695 1363.7143426301643_dp, &
12696 2411.848280798477_dp, &
12697 4356.437870983105_dp, &
12698 8057.345689393333_dp, &
12699 15307.674322294604_dp, &
12700 29991.967793708438_dp, &
12701 60909.637552873915_dp, &
12702 129092.68815909834_dp, &
12703 288420.9208707836_dp, &
12704 693804.4807934643_dp, &
12705 1984726.5657356782_dp, &
12706 0.38764444414599436_dp, &
12707 0.4499221966702515_dp, &
12708 0.5874206914731522_dp, &
12709 0.8284384818447332_dp, &
12710 1.2227914287059967_dp, &
12711 1.8537196608025412_dp, &
12712 2.858764193877508_dp, &
12713 4.46563291856233_dp, &
12714 7.054128800394659_dp, &
12715 11.264308056241072_dp, &
12716 18.18795719360849_dp, &
12717 29.712689970242995_dp, &
12718 49.150504691840844_dp, &
12719 82.40656726563064_dp, &
12720 140.1950401391153_dp, &
12721 242.32987003504195_dp, &
12722 426.2290660460464_dp, &
12723 764.2086384943232_dp, &
12724 1399.6697911963972_dp, &
12725 2625.280715869226_dp, &
12726 5058.106540783201_dp, &
12727 10048.454253234977_dp, &
12728 20681.146673725165_dp, &
12729 44371.40116757773_dp, &
12730 100098.51304747425_dp, &
12731 240936.64519318528_dp, &
12732 645993.0255202315_dp, &
12733 2511145.760363479_dp/)
12734 ELSE IF (e_range < 4500000.0_dp) THEN
12735 aw(:) = (/ &
12736 0.19436594608582472_dp, &
12737 0.6152519388154075_dp, &
12738 1.1395565637382394_dp, &
12739 1.860708304267537_dp, &
12740 2.914238339347287_dp, &
12741 4.507855666735311_dp, &
12742 6.970054206984331_dp, &
12743 10.831076997871907_dp, &
12744 16.960267570555793_dp, &
12745 26.802718362766388_dp, &
12746 42.793217314755324_dp, &
12747 69.09173097076558_dp, &
12748 112.91204543512235_dp, &
12749 186.9652299761567_dp, &
12750 314.0415178600245_dp, &
12751 535.7867637150474_dp, &
12752 929.9119488429988_dp, &
12753 1644.8265501191415_dp, &
12754 2971.387935288634_dp, &
12755 5496.481343756791_dp, &
12756 10444.205167643195_dp, &
12757 20466.948914951925_dp, &
12758 41573.49202713281_dp, &
12759 88115.73197659155_dp, &
12760 196655.41477188517_dp, &
12761 468312.0718363519_dp, &
12762 1218658.020501648_dp, &
12763 3790777.501461529_dp, &
12764 0.39397762301074635_dp, &
12765 0.4594261340249453_dp, &
12766 0.6044348272087624_dp, &
12767 0.8599749829785104_dp, &
12768 1.2809242553853217_dp, &
12769 1.959763999342232_dp, &
12770 3.0508139495699504_dp, &
12771 4.812352417460658_dp, &
12772 7.680299553389941_dp, &
12773 12.398744349822774_dp, &
12774 20.2545889010679_dp, &
12775 33.50625966016763_dp, &
12776 56.1810053198472_dp, &
12777 95.58665349028226_dp, &
12778 165.23942057994483_dp, &
12779 290.66767214215037_dp, &
12780 521.2161338636482_dp, &
12781 954.7499892270533_dp, &
12782 1791.0386147663526_dp, &
12783 3451.3628492991857_dp, &
12784 6857.78940921672_dp, &
12785 14117.121205871057_dp, &
12786 30292.355037472884_dp, &
12787 68308.93744588633_dp, &
12788 163720.9776403595_dp, &
12789 424479.54068993696_dp, &
12790 1238540.16298379_dp, &
12791 5075528.538071685_dp/)
12792 ELSE IF (e_range < 10000000.0_dp) THEN
12793 aw(:) = (/ &
12794 0.19682681061058516_dp, &
12795 0.6239175967168831_dp, &
12796 1.1587697829037367_dp, &
12797 1.899493134270955_dp, &
12798 2.9895781441779548_dp, &
12799 4.650804912675836_dp, &
12800 7.236967535355107_dp, &
12801 11.324261660542758_dp, &
12802 17.866223883633104_dp, &
12803 28.463640303603217_dp, &
12804 45.84226954217273_dp, &
12805 74.71248548146892_dp, &
12806 123.3437137988759_dp, &
12807 206.5036090144391_dp, &
12808 351.0605506141016_dp, &
12809 606.9104628799121_dp, &
12810 1068.8355016906876_dp, &
12811 1921.4860373237475_dp, &
12812 3534.938103259401_dp, &
12813 6675.151370185142_dp, &
12814 12987.084625450672_dp, &
12815 26158.425843963676_dp, &
12816 54887.04107632314_dp, &
12817 120986.04511920984_dp, &
12818 283491.0124779256_dp, &
12819 718729.5124126623_dp, &
12820 2032037.8454332922_dp, &
12821 6994905.371452202_dp, &
12822 0.39910525153739623_dp, &
12823 0.46720011780848775_dp, &
12824 0.618510057951796_dp, &
12825 0.8863247571224414_dp, &
12826 1.3299488054374997_dp, &
12827 2.050026502879363_dp, &
12828 3.21586179306573_dp, &
12829 5.113357675674665_dp, &
12830 8.229788884254283_dp, &
12831 13.40574530515295_dp, &
12832 22.111763971910367_dp, &
12833 36.960758258119995_dp, &
12834 62.6753790751042_dp, &
12835 107.95244981242995_dp, &
12836 189.13916327630196_dp, &
12837 337.6660556617939_dp, &
12838 615.5008714320224_dp, &
12839 1148.2967230500535_dp, &
12840 2199.040277147706_dp, &
12841 4338.370096055334_dp, &
12842 8857.05088458885_dp, &
12843 18820.230015785593_dp, &
12844 41940.375294296646_dp, &
12845 99039.96110832106_dp, &
12846 251532.47511127745_dp, &
12847 702946.2892638468_dp, &
12848 2257925.6950304266_dp, &
12849 10050972.42119658_dp/)
12850 ELSE IF (e_range < 50000000.0_dp) THEN
12851 aw(:) = (/ &
12852 0.20028753559878754_dp, &
12853 0.636163845466183_dp, &
12854 1.1861370761903154_dp, &
12855 1.9552398102278608_dp, &
12856 3.0988787201672205_dp, &
12857 4.860155327990237_dp, &
12858 7.631666931241998_dp, &
12859 12.060973589284364_dp, &
12860 19.234093080159262_dp, &
12861 31.000249030237566_dp, &
12862 50.55650397769404_dp, &
12863 83.5192836105384_dp, &
12864 139.92647812445165_dp, &
12865 238.0575763348749_dp, &
12866 411.8925953402226_dp, &
12867 726.0520810993172_dp, &
12868 1306.5848049114_dp, &
12869 2406.4753954062408_dp, &
12870 4550.1807639341105_dp, &
12871 8866.114556558668_dp, &
12872 17889.50386772233_dp, &
12873 37615.62178522411_dp, &
12874 83127.72557060457_dp, &
12875 195408.6566631889_dp, &
12876 497429.1250321897_dp, &
12877 1411467.9993363773_dp, &
12878 4708143.792268462_dp, &
12879 20982067.79050034_dp, &
12880 0.4063254337661295_dp, &
12881 0.47826913702275475_dp, &
12882 0.6387969282983723_dp, &
12883 0.9247131283500699_dp, &
12884 1.4020945643989537_dp, &
12885 2.1842105605751816_dp, &
12886 3.4638219546199718_dp, &
12887 5.570645148922087_dp, &
12888 9.074555435905518_dp, &
12889 14.97371681097282_dp, &
12890 25.043435353654875_dp, &
12891 42.49539020969764_dp, &
12892 73.2495448121482_dp, &
12893 128.4448601273465_dp, &
12894 229.52203941450034_dp, &
12895 418.8057941608578_dp, &
12896 782.2389088299047_dp, &
12897 1499.9808360221182_dp, &
12898 2963.6575509358563_dp, &
12899 6060.980474110256_dp, &
12900 12905.219416347047_dp, &
12901 28829.611589852855_dp, &
12902 68285.64328511298_dp, &
12903 174085.66633020202_dp, &
12904 488713.1004068534_dp, &
12905 1569108.161138_dp, &
12906 6194788.779558858_dp, &
12907 36612022.104547605_dp/)
12908 ELSE
12909 aw(:) = (/ &
12910 0.20148359962188625_dp, &
12911 0.6404126846191118_dp, &
12912 1.1956914499421463_dp, &
12913 1.9748404662282764_dp, &
12914 3.1375902789765524_dp, &
12915 4.934852000261182_dp, &
12916 7.773570595927496_dp, &
12917 12.327952344136781_dp, &
12918 19.733992303134418_dp, &
12919 31.935665896373646_dp, &
12920 52.31190662715458_dp, &
12921 86.8332262967865_dp, &
12922 146.23818287831133_dp, &
12923 250.21865465340818_dp, &
12924 435.66229015608553_dp, &
12925 773.3205522921141_dp, &
12926 1402.527891101972_dp, &
12927 2605.9768107615196_dp, &
12928 4977.008179815615_dp, &
12929 9810.671652583082_dp, &
12930 20066.047813611207_dp, &
12931 42883.66712086875_dp, &
12932 96680.36874016587_dp, &
12933 233103.28859658248_dp, &
12934 613776.5842567491_dp, &
12935 1827984.087654119_dp, &
12936 6594610.0314337425_dp, &
12937 34505523.772945166_dp, &
12938 0.4088233220420713_dp, &
12939 0.48213225469004667_dp, &
12940 0.6459447763036226_dp, &
12941 0.9383525242997238_dp, &
12942 1.427930574234908_dp, &
12943 2.232645680425932_dp, &
12944 3.5540692271124623_dp, &
12945 5.738543059876525_dp, &
12946 9.387632026047086_dp, &
12947 15.56066926581158_dp, &
12948 26.1527798090333_dp, &
12949 44.61430119999274_dp, &
12950 77.34960393660401_dp, &
12951 136.50197172084523_dp, &
12952 245.64488988592876_dp, &
12953 451.7568092688549_dp, &
12954 851.2535497022337_dp, &
12955 1648.713481816509_dp, &
12956 3295.0758202094717_dp, &
12957 6829.19231168343_dp, &
12958 14772.00579885476_dp, &
12959 33634.6146271831_dp, &
12960 81574.2303691521_dp, &
12961 214402.9977956818_dp, &
12962 627349.5338890508_dp, &
12963 2140772.611660053_dp, &
12964 9364952.860952146_dp, &
12965 68700022.28914484_dp/)
12966 END IF
12967 END SUBROUTINE
12968
12969! **************************************************************************************************
12970!> \brief ...
12971!> \param k ...
12972!> \param E_range ...
12973!> \param aw ...
12974!> \param E_ratio ...
12975! **************************************************************************************************
12976 PURE SUBROUTINE get_coeff_30(k, E_range, aw, E_ratio)
12977 INTEGER, INTENT(IN) :: k
12978 REAL(kind=dp), INTENT(IN) :: e_range
12979 REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
12980 REAL(kind=dp), INTENT(OUT) :: e_ratio
12981
12982 e_ratio = 1.0_dp
12983
12984 IF (e_range < 2906.0_dp) THEN
12985 e_ratio = 2906.0_dp/e_range
12986 aw(:) = (/ &
12987 0.13472077973006066_dp, &
12988 0.41454012407362284_dp, &
12989 0.7264650127115554_dp, &
12990 1.0952103821233763_dp, &
12991 1.5507340744641087_dp, &
12992 2.1309684610148_dp, &
12993 2.8853353291317902_dp, &
12994 3.879435757744625_dp, &
12995 5.201430031729745_dp, &
12996 6.970811684768931_dp, &
12997 9.350560848436539_dp, &
12998 12.564071001580649_dp, &
12999 16.918834424102887_dp, &
13000 22.83972781830551_dp, &
13001 30.915985544342572_dp, &
13002 41.967774219335894_dp, &
13003 57.14098640727171_dp, &
13004 78.0429357516686_dp, &
13005 106.93789608418125_dp, &
13006 147.0314580515426_dp, &
13007 202.88978553122783_dp, &
13008 281.07180694626186_dp, &
13009 391.1193573348081_dp, &
13010 547.2093677381681_dp, &
13011 771.1975057919235_dp, &
13012 1099.0536535908907_dp, &
13013 1596.9929628828843_dp, &
13014 2411.043015679036_dp, &
13015 3969.4542024452535_dp, &
13016 8410.91429702379_dp, &
13017 0.2711551412973589_dp, &
13018 0.2920716478256109_dp, &
13019 0.33586025075301174_dp, &
13020 0.40657866325776965_dp, &
13021 0.5107331186087983_dp, &
13022 0.6578956545676304_dp, &
13023 0.8616669035192411_dp, &
13024 1.141083396755036_dp, &
13025 1.5226214332468109_dp, &
13026 2.0430277403045745_dp, &
13027 2.7533146911523487_dp, &
13028 3.7244090770834286_dp, &
13029 5.055161408861251_dp, &
13030 6.883741530882366_dp, &
13031 9.403917834043737_dp, &
13032 12.888423735149207_dp, &
13033 17.72269370396895_dp, &
13034 24.453949230243484_dp, &
13035 33.86342292727139_dp, &
13036 47.07450697595598_dp, &
13037 65.71944005664618_dp, &
13038 92.20885123968911_dp, &
13039 130.2022391295589_dp, &
13040 185.52477786139306_dp, &
13041 268.21783125503725_dp, &
13042 397.8749440116057_dp, &
13043 619.9912456625073_dp, &
13044 1067.5959324975324_dp, &
13045 2286.544806677275_dp, &
13046 8738.901002766614_dp/)
13047 ELSE IF (e_range < 3236.0_dp) THEN
13048 aw(:) = (/ &
13049 0.13585569926755156_dp, &
13050 0.41821529920891193_dp, &
13051 0.7335359382994969_dp, &
13052 1.1072550786213582_dp, &
13053 1.5703001886119063_dp, &
13054 2.1619633106722445_dp, &
13055 2.9336148368913126_dp, &
13056 3.9536785393619445_dp, &
13057 5.3144254385553475_dp, &
13058 7.141352466099918_dp, &
13059 9.606222474304257_dp, &
13060 12.945295441239312_dp, &
13061 17.484938603694847_dp, &
13062 23.67775987140482_dp, &
13063 32.153806670690884_dp, &
13064 43.793428768676115_dp, &
13065 59.83145780414573_dp, &
13066 82.00695648247473_dp, &
13067 112.7798752913388_dp, &
13068 155.64727131571763_dp, &
13069 215.6109099360864_dp, &
13070 299.8834977532089_dp, &
13071 418.99426494865514_dp, &
13072 588.6278555996877_dp, &
13073 832.992868332105_dp, &
13074 1191.901753683428_dp, &
13075 1738.4527532218908_dp, &
13076 2633.334968802445_dp, &
13077 4346.804005514949_dp, &
13078 9226.029101357823_dp, &
13079 0.27346932244426364_dp, &
13080 0.29493396442164976_dp, &
13081 0.3399080685990791_dp, &
13082 0.4126376624973753_dp, &
13083 0.5199403220488905_dp, &
13084 0.6718660354991877_dp, &
13085 0.8827295318060852_dp, &
13086 1.1726225736322562_dp, &
13087 1.5695736101023368_dp, &
13088 2.11260882730488_dp, &
13089 2.8560883332106437_dp, &
13090 3.8758604781327994_dp, &
13091 5.278022513223343_dp, &
13092 7.211435940783844_dp, &
13093 9.88567929424256_dp, &
13094 13.596923594598676_dp, &
13095 18.765442234455477_dp, &
13096 25.990394261374576_dp, &
13097 36.130687740769254_dp, &
13098 50.42631140632084_dp, &
13099 70.68536095476419_dp, &
13100 99.58565375015075_dp, &
13101 141.19809034005954_dp, &
13102 201.9985700024835_dp, &
13103 293.1161927876947_dp, &
13104 436.16688367969607_dp, &
13105 681.1401603164769_dp, &
13106 1173.9561106510982_dp, &
13107 2513.427330670278_dp, &
13108 9596.45252078042_dp/)
13109 ELSE IF (e_range < 3810.0_dp) THEN
13110 aw(:) = (/ &
13111 0.1375558839742156_dp, &
13112 0.4237299246561157_dp, &
13113 0.7441765936480988_dp, &
13114 1.1254465790607633_dp, &
13115 1.599969145991199_dp, &
13116 2.209153355047187_dp, &
13117 3.007419074036812_dp, &
13118 4.067629377796827_dp, &
13119 5.488551916391047_dp, &
13120 7.4052176805776915_dp, &
13121 10.003405965567303_dp, &
13122 13.540012927877152_dp, &
13123 18.37183281919031_dp, &
13124 24.996410070481446_dp, &
13125 34.11028053997399_dp, &
13126 46.692377235692085_dp, &
13127 64.1240439733692_dp, &
13128 88.36264595714124_dp, &
13129 122.19431621878961_dp, &
13130 169.60498916584984_dp, &
13131 236.33171640990545_dp, &
13132 330.6978635702647_dp, &
13133 464.9206246434375_dp, &
13134 657.2768359572758_dp, &
13135 936.038129172727_dp, &
13136 1347.6645495728708_dp, &
13137 1977.1418257598443_dp, &
13138 3010.365247643635_dp, &
13139 4989.502375747524_dp, &
13140 10618.098959488718_dp, &
13141 0.2769375636736402_dp, &
13142 0.2992417954352494_dp, &
13143 0.3460350190138061_dp, &
13144 0.4218590106585124_dp, &
13145 0.5340215517074247_dp, &
13146 0.6933277649140891_dp, &
13147 0.9152251840626363_dp, &
13148 1.221486913213276_dp, &
13149 1.642626003597483_dp, &
13150 2.2213351486133592_dp, &
13151 3.0173862657746264_dp, &
13152 4.114624855968743_dp, &
13153 5.630986359973453_dp, &
13154 7.732893888537386_dp, &
13155 10.656041641143203_dp, &
13156 14.735541137742192_dp, &
13157 20.449897303637602_dp, &
13158 28.485619304084782_dp, &
13159 39.83308706520946_dp, &
13160 55.9309260308313_dp, &
13161 78.88877991500787_dp, &
13162 111.84546669541834_dp, &
13163 159.5854467970953_dp, &
13164 229.71687105279605_dp, &
13165 335.26062431596165_dp, &
13166 501.33247053904597_dp, &
13167 785.6426382482606_dp, &
13168 1356.1465778665718_dp, &
13169 2902.1064912290262_dp, &
13170 11063.595563099649_dp/)
13171 ELSE IF (e_range < 4405.0_dp) THEN
13172 aw(:) = (/ &
13173 0.13904406912216055_dp, &
13174 0.4285658262322887_dp, &
13175 0.7535381269110286_dp, &
13176 1.1415170467922802_dp, &
13177 1.6262961987891298_dp, &
13178 2.251219295815267_dp, &
13179 3.073508947298677_dp, &
13180 4.170131059288361_dp, &
13181 5.64589044652921_dp, &
13182 7.644726401563794_dp, &
13183 10.365587059435269_dp, &
13184 14.084865660094467_dp, &
13185 19.18826867042609_dp, &
13186 26.216290635576655_dp, &
13187 35.929400137120936_dp, &
13188 49.401912630111426_dp, &
13189 68.15783436974851_dp, &
13190 94.36850091147679_dp, &
13191 131.14193494596577_dp, &
13192 182.94990655704783_dp, &
13193 256.26545423428075_dp, &
13194 360.5318037841861_dp, &
13195 509.6803886172214_dp, &
13196 724.6381601758845_dp, &
13197 1037.8525105472484_dp, &
13198 1502.6329781048792_dp, &
13199 2216.1957399484836_dp, &
13200 3390.239707940744_dp, &
13201 5640.184567731188_dp, &
13202 12031.914357631216_dp, &
13203 0.2799747756857045_dp, &
13204 0.3030322366372613_dp, &
13205 0.35146079871870245_dp, &
13206 0.4300750514997268_dp, &
13207 0.5466362705834609_dp, &
13208 0.7126509028520336_dp, &
13209 0.9446233777431962_dp, &
13210 1.265903264001014_dp, &
13211 1.7093454326345185_dp, &
13212 2.3211172345101936_dp, &
13213 3.1661481858067866_dp, &
13214 4.3359496851147625_dp, &
13215 5.959873147875833_dp, &
13216 8.221381778008848_dp, &
13217 11.381671588892244_dp, &
13218 15.81412949615409_dp, &
13219 22.054886195529974_dp, &
13220 30.877498691173102_dp, &
13221 43.404310509478876_dp, &
13222 61.27480112850241_dp, &
13223 86.90579792265169_dp, &
13224 123.90910951709412_dp, &
13225 177.80590692076998_dp, &
13226 257.378170487146_dp, &
13227 377.6084511567668_dp, &
13228 567.2233674632031_dp, &
13229 891.8325474154066_dp, &
13230 1541.8004917177743_dp, &
13231 3298.2637895129933_dp, &
13232 12556.72637834854_dp/)
13233 ELSE IF (e_range < 5400.0_dp) THEN
13234 aw(:) = (/ &
13235 0.1410960680209205_dp, &
13236 0.43524771510986004_dp, &
13237 0.7665207024486466_dp, &
13238 1.1639061919509923_dp, &
13239 1.6631581543024647_dp, &
13240 2.3104184708475035_dp, &
13241 3.1669893883276354_dp, &
13242 4.31584603104468_dp, &
13243 5.870689930586957_dp, &
13244 7.98866892968443_dp, &
13245 10.88837830270718_dp, &
13246 14.875483870146642_dp, &
13247 20.379381338093896_dp, &
13248 28.00589822144426_dp, &
13249 38.61341811457132_dp, &
13250 53.4233672664893_dp, &
13251 74.1813854349557_dp, &
13252 103.39372381185264_dp, &
13253 144.67616311753628_dp, &
13254 203.27301335960897_dp, &
13255 286.8373320413796_dp, &
13256 406.623030913939_dp, &
13257 579.3566390283918_dp, &
13258 830.3204498005787_dp, &
13259 1198.869283622746_dp, &
13260 1749.6835713037394_dp, &
13261 2600.2624010801505_dp, &
13262 4004.8623767257905_dp, &
13263 6698.999233522065_dp, &
13264 14341.174561026246_dp, &
13265 0.28416489317358423_dp, &
13266 0.30828949437487013_dp, &
13267 0.3590402711124012_dp, &
13268 0.441630361459561_dp, &
13269 0.5644857180354212_dp, &
13270 0.7401452754725963_dp, &
13271 0.9866774703026394_dp, &
13272 1.329777825854361_dp, &
13273 1.8058067012349928_dp, &
13274 2.4661647204139823_dp, &
13275 3.3835989597835665_dp, &
13276 4.661316876386105_dp, &
13277 6.44620592460885_dp, &
13278 8.948088111649072_dp, &
13279 12.46789325682324_dp, &
13280 17.439091025312962_dp, &
13281 24.488970722743385_dp, &
13282 34.52989393893134_dp, &
13283 48.896371819916574_dp, &
13284 69.55355936542944_dp, &
13285 99.42066613014704_dp, &
13286 142.88959294052594_dp, &
13287 206.70580521988288_dp, &
13288 301.61265861851626_dp, &
13289 445.87454058368684_dp, &
13290 674.2295764664547_dp, &
13291 1065.3146704916662_dp, &
13292 1846.16967438266_dp, &
13293 3948.0236905716197_dp, &
13294 15001.510222225108_dp/)
13295 ELSE IF (e_range < 6800.0_dp) THEN
13296 aw(:) = (/ &
13297 0.1433674220737173_dp, &
13298 0.4426628898148459_dp, &
13299 0.7809932553639084_dp, &
13300 1.1890061029798735_dp, &
13301 1.704736489813709_dp, &
13302 2.377608587440356_dp, &
13303 3.273747520531666_dp, &
13304 4.483286536624551_dp, &
13305 6.130604696754322_dp, &
13306 8.388821954366914_dp, &
13307 11.500472923115659_dp, &
13308 15.807168838438361_dp, &
13309 21.792381891352697_dp, &
13310 30.143468661033495_dp, &
13311 41.842032467696654_dp, &
13312 58.29624138024914_dp, &
13313 81.53560861416956_dp, &
13314 114.49935191584215_dp, &
13315 161.4660067158691_dp, &
13316 228.69835105975287_dp, &
13317 325.4212244904479_dp, &
13318 465.3259909564963_dp, &
13319 668.9419565107365_dp, &
13320 967.5375179808443_dp, &
13321 1410.04407287766_dp, &
13322 2076.991268832287_dp, &
13323 3114.140011343559_dp, &
13324 4834.667209637358_dp, &
13325 8139.076115188743_dp, &
13326 17497.251222371135_dp, &
13327 0.28880597793065726_dp, &
13328 0.3141509726409205_dp, &
13329 0.3675650580459323_dp, &
13330 0.45473435293913267_dp, &
13331 0.5848768476213745_dp, &
13332 0.7717685864556612_dp, &
13333 1.0353639404508452_dp, &
13334 1.40420681219775_dp, &
13335 1.9189447923955225_dp, &
13336 2.637427383030786_dp, &
13337 3.6421108679020224_dp, &
13338 5.050847015942239_dp, &
13339 7.032663994123608_dp, &
13340 9.830952206979282_dp, &
13341 13.797695578641337_dp, &
13342 19.444278287883428_dp, &
13343 27.51733560480189_dp, &
13344 39.112759774672554_dp, &
13345 55.84848632682428_dp, &
13346 80.12935385306108_dp, &
13347 115.56018244354962_dp, &
13348 167.60893912635234_dp, &
13349 244.72674037424497_dp, &
13350 360.41056089443987_dp, &
13351 537.5456031771105_dp, &
13352 819.2944118660395_dp, &
13353 1302.3421015152915_dp, &
13354 2264.016465253404_dp, &
13355 4840.7455216590715_dp, &
13356 18353.395351716823_dp/)
13357 ELSE IF (e_range < 8400.0_dp) THEN
13358 aw(:) = (/ &
13359 0.14540131106958792_dp, &
13360 0.4493201231807535_dp, &
13361 0.7940459513320671_dp, &
13362 1.2117724207523894_dp, &
13363 1.742680949975074_dp, &
13364 2.4393090166647937_dp, &
13365 3.372391950439403_dp, &
13366 4.6389574815944155_dp, &
13367 6.373746357911509_dp, &
13368 8.76549528730057_dp, &
13369 12.080324874755885_dp, &
13370 16.69553805190378_dp, &
13371 23.14873214645153_dp, &
13372 32.20953897394508_dp, &
13373 44.9849668143921_dp, &
13374 63.07490757920756_dp, &
13375 88.80297222972374_dp, &
13376 125.5611681322551_dp, &
13377 178.32791033803593_dp, &
13378 254.45242267177184_dp, &
13379 364.85390471544207_dp, &
13380 525.8798118900401_dp, &
13381 762.2489971360726_dp, &
13382 1111.8955650866828_dp, &
13383 1634.515787335805_dp, &
13384 2428.5690684021565_dp, &
13385 3671.812768394607_dp, &
13386 5743.738068689888_dp, &
13387 9729.027159680023_dp, &
13388 20999.800616241264_dp, &
13389 0.29296462129985257_dp, &
13390 0.3194381187890608_dp, &
13391 0.3753221134330865_dp, &
13392 0.46675631543264745_dp, &
13393 0.603721438689452_dp, &
13394 0.8011914963522677_dp, &
13395 1.0809588799458272_dp, &
13396 1.4743627941460153_dp, &
13397 2.0262889424868957_dp, &
13398 2.8010104053825082_dp, &
13399 3.8907309938858594_dp, &
13400 5.428124636584_dp, &
13401 7.604818108996212_dp, &
13402 10.698763243148507_dp, &
13403 15.114982641820642_dp, &
13404 21.44655967928129_dp, &
13405 30.56648418002324_dp, &
13406 43.766908758055855_dp, &
13407 62.972012402581825_dp, &
13408 91.06685250734347_dp, &
13409 132.41339099298463_dp, &
13410 193.68120824830095_dp, &
13411 285.2463053053247_dp, &
13412 423.7403809729896_dp, &
13413 637.3320623502533_dp, &
13414 978.785932422185_dp, &
13415 1565.1330028308446_dp, &
13416 2729.7495636084445_dp, &
13417 5836.893913938098_dp, &
13418 22085.748007810864_dp/)
13419 ELSE IF (e_range < 10000.0_dp) THEN
13420 aw(:) = (/ &
13421 0.14704498509396693_dp, &
13422 0.4547122051327194_dp, &
13423 0.8046596707087634_dp, &
13424 1.2303750029956346_dp, &
13425 1.7738485727322384_dp, &
13426 2.490259810187349_dp, &
13427 3.4542822843702057_dp, &
13428 4.768871567754432_dp, &
13429 6.577734807920994_dp, &
13430 9.08321025306724_dp, &
13431 12.572096360608057_dp, &
13432 17.453197931663386_dp, &
13433 24.312214399521167_dp, &
13434 33.99241851749717_dp, &
13435 47.713888969755104_dp, &
13436 67.25069977138067_dp, &
13437 95.19575945076387_dp, &
13438 135.35908014067192_dp, &
13439 193.37069282272213_dp, &
13440 277.60030747331535_dp, &
13441 400.57327496453024_dp, &
13442 581.1788761653216_dp, &
13443 848.1843494228331_dp, &
13444 1246.0269352662644_dp, &
13445 1844.99711942575_dp, &
13446 2761.311771739057_dp, &
13447 4204.4686241418385_dp, &
13448 6619.444613532952_dp, &
13449 11271.466932643574_dp, &
13450 24413.71197303721_dp, &
13451 0.2963273364593187_dp, &
13452 0.32373778596338965_dp, &
13453 0.38167760520153354_dp, &
13454 0.47667488142293696_dp, &
13455 0.6193657530314871_dp, &
13456 0.8257586307206471_dp, &
13457 1.1192417599126105_dp, &
13458 1.533595893064965_dp, &
13459 2.1174318721030514_dp, &
13460 2.94070601543572_dp, &
13461 4.104305072137064_dp, &
13462 5.7541994984779885_dp, &
13463 8.10243649038172_dp, &
13464 11.458433528239942_dp, &
13465 16.275877851241827_dp, &
13466 23.223421109964608_dp, &
13467 33.291908731012114_dp, &
13468 47.958153257319175_dp, &
13469 69.43709408889302_dp, &
13470 101.07403138845517_dp, &
13471 147.96365128967585_dp, &
13472 217.94992175702825_dp, &
13473 323.3082261097551_dp, &
13474 483.7891734632719_dp, &
13475 732.8442123233287_dp, &
13476 1132.825686861123_dp, &
13477 1820.9007070932764_dp, &
13478 3185.3327939434785_dp, &
13479 6812.567149441103_dp, &
13480 25734.79348292465_dp/)
13481 ELSE IF (e_range < 12000.0_dp) THEN
13482 aw(:) = (/ &
13483 0.14873028953425532_dp, &
13484 0.46025228447257244_dp, &
13485 0.815604068464183_dp, &
13486 1.249642730565338_dp, &
13487 1.806285223311792_dp, &
13488 2.5435423302102835_dp, &
13489 3.540333750899514_dp, &
13490 4.906044230436624_dp, &
13491 6.79416292983886_dp, &
13492 9.421954935784605_dp, &
13493 13.09904827265635_dp, &
13494 18.269242442139955_dp, &
13495 25.57201171534198_dp, &
13496 35.93349371466727_dp, &
13497 50.70186253663502_dp, &
13498 71.84990624465202_dp, &
13499 102.27999990001246_dp, &
13500 146.28615444437523_dp, &
13501 210.25885598550244_dp, &
13502 303.76857082731135_dp, &
13503 441.24677896342706_dp, &
13504 644.626277933146_dp, &
13505 947.5662954369608_dp, &
13506 1402.4345459606109_dp, &
13507 2092.551420913222_dp, &
13508 3156.1169200796808_dp, &
13509 4842.013686573819_dp, &
13510 7676.179724663517_dp, &
13511 13145.496536528115_dp, &
13512 28580.5493144719_dp, &
13513 0.2997770495160067_dp, &
13514 0.328171810325839_dp, &
13515 0.3882763609129264_dp, &
13516 0.4870382457606423_dp, &
13517 0.6358038475084181_dp, &
13518 0.8517074887441279_dp, &
13519 1.1598833349774023_dp, &
13520 1.5967979705738689_dp, &
13521 2.2151837931186287_dp, &
13522 3.0913230528117115_dp, &
13523 4.335827775714694_dp, &
13524 6.109657533128254_dp, &
13525 8.648033701785389_dp, &
13526 12.296330771130819_dp, &
13527 17.564247818840375_dp, &
13528 25.20806484627957_dp, &
13529 36.35635494507822_dp, &
13530 52.70347606492981_dp, &
13531 76.80980640661534_dp, &
13532 112.57226010676658_dp, &
13533 165.9717478515792_dp, &
13534 246.28595384282085_dp, &
13535 368.1305098723015_dp, &
13536 555.1307149475209_dp, &
13537 847.33732032532_dp, &
13538 1319.0786553040762_dp, &
13539 2132.484724545273_dp, &
13540 3743.164994620193_dp, &
13541 8008.935958082978_dp, &
13542 30201.87390773344_dp/)
13543 ELSE IF (e_range < 15000.0_dp) THEN
13544 aw(:) = (/ &
13545 0.15074658869167354_dp, &
13546 0.4668958035836203_dp, &
13547 0.8287813045866178_dp, &
13548 1.27295686026729_dp, &
13549 1.8457432235406386_dp, &
13550 2.6087085124986893_dp, &
13551 3.6461433188342913_dp, &
13552 5.0756183993344335_dp, &
13553 7.063160044261513_dp, &
13554 9.845291593081901_dp, &
13555 13.761294933072154_dp, &
13556 19.30074127352979_dp, &
13557 27.17394477351595_dp, &
13558 38.41701402640067_dp, &
13559 54.549426069506936_dp, &
13560 77.81182846954663_dp, &
13561 111.5272001496651_dp, &
13562 160.6530382259186_dp, &
13563 232.63167019101493_dp, &
13564 338.7100316718215_dp, &
13565 496.0070705705839_dp, &
13566 730.7907240768792_dp, &
13567 1083.762366034212_dp, &
13568 1618.8284659000788_dp, &
13569 2438.461166724189_dp, &
13570 3713.4370228988228_dp, &
13571 5751.214494532453_dp, &
13572 9197.732198940443_dp, &
13573 15865.762408736662_dp, &
13574 34662.09472159822_dp, &
13575 0.3039067430763809_dp, &
13576 0.3335109318096939_dp, &
13577 0.39628223332684037_dp, &
13578 0.4996995618831505_dp, &
13579 0.6560124551532797_dp, &
13580 0.8837941444637961_dp, &
13581 1.2104228747326704_dp, &
13582 1.6758387356208266_dp, &
13583 2.338139093731629_dp, &
13584 3.2818964868464273_dp, &
13585 4.630558114772758_dp, &
13586 6.565010733264908_dp, &
13587 9.3515186170747_dp, &
13588 13.384001926625498_dp, &
13589 19.24839955061762_dp, &
13590 27.821277621574968_dp, &
13591 40.421935481490465_dp, &
13592 59.048766447593984_dp, &
13593 86.74957609916163_dp, &
13594 128.20747215218674_dp, &
13595 190.67974791015314_dp, &
13596 285.53140615722333_dp, &
13597 430.82223445682513_dp, &
13598 655.9371796248371_dp, &
13599 1010.808613556427_dp, &
13600 1587.720772783595_dp, &
13601 2585.9493214732233_dp, &
13602 4560.104639212192_dp, &
13603 9764.47140618184_dp, &
13604 36744.78826999934_dp/)
13605 ELSE IF (e_range < 20000.0_dp) THEN
13606 aw(:) = (/ &
13607 0.15327074211168326_dp, &
13608 0.47523666558201105_dp, &
13609 0.8454081293698346_dp, &
13610 1.302555423844387_dp, &
13611 1.8961670213435633_dp, &
13612 2.69253915656829_dp, &
13613 3.7831603662440982_dp, &
13614 5.296661745560639_dp, &
13615 7.416146989170787_dp, &
13616 10.404588465380735_dp, &
13617 14.642337577033341_dp, &
13618 20.682906910118618_dp, &
13619 29.33645605992322_dp, &
13620 41.795526321167316_dp, &
13621 59.825609960791006_dp, &
13622 86.05587769109584_dp, &
13623 124.42572946943761_dp, &
13624 180.87560328043566_dp, &
13625 264.42380444802404_dp, &
13626 388.8590073673682_dp, &
13627 575.4255155780847_dp, &
13628 857.1327939358282_dp, &
13629 1285.7823929714118_dp, &
13630 1943.721808327101_dp, &
13631 2964.44501552976_dp, &
13632 4572.099023467233_dp, &
13633 7170.690868688525_dp, &
13634 11603.357270785074_dp, &
13635 20212.957283840064_dp, &
13636 44452.062155362604_dp, &
13637 0.3090804319893144_dp, &
13638 0.34024841302588593_dp, &
13639 0.40647905218403607_dp, &
13640 0.5159643143279251_dp, &
13641 0.6821714531077357_dp, &
13642 0.9256259273559609_dp, &
13643 1.2767723822584245_dp, &
13644 1.7803337442227432_dp, &
13645 2.5018545143392776_dp, &
13646 3.5375123917367213_dp, &
13647 5.028880015326183_dp, &
13648 7.185241661144039_dp, &
13649 10.31751858363557_dp, &
13650 14.890153020130612_dp, &
13651 21.600969658960963_dp, &
13652 31.504943516808023_dp, &
13653 46.20741046677315_dp, &
13654 68.16803820969625_dp, &
13655 101.1831518566797_dp, &
13656 151.15859371819528_dp, &
13657 227.3632897864881_dp, &
13658 344.4976384132564_dp, &
13659 526.2026890949384_dp, &
13660 811.3228331489025_dp, &
13661 1266.1935178202223_dp, &
13662 2013.0176783429627_dp, &
13663 3312.4890760215126_dp, &
13664 5880.358930845362_dp, &
13665 12610.246229383727_dp, &
13666 47327.426186591925_dp/)
13667 ELSE IF (e_range < 28000.0_dp) THEN
13668 aw(:) = (/ &
13669 0.15611582449200168_dp, &
13670 0.484670676531795_dp, &
13671 0.864327133672447_dp, &
13672 1.3364820958197925_dp, &
13673 1.95441681134768_dp, &
13674 2.7901462861902027_dp, &
13675 3.9439511540731202_dp, &
13676 5.558103736628507_dp, &
13677 7.836974880015686_dp, &
13678 11.076799625053408_dp, &
13679 15.710099980914652_dp, &
13680 22.372456900097028_dp, &
13681 32.00355723960249_dp, &
13682 46.00113943456652_dp, &
13683 66.45713829064987_dp, &
13684 96.52248517478913_dp, &
13685 140.97482131096695_dp, &
13686 207.10885220939085_dp, &
13687 306.14421022273984_dp, &
13688 455.47137403605_dp, &
13689 682.2697601790953_dp, &
13690 1029.4036326614776_dp, &
13691 1565.1742345818764_dp, &
13692 2399.817998955818_dp, &
13693 3714.5558190868474_dp, &
13694 5816.906307974656_dp, &
13695 9263.140996927303_dp, &
13696 15206.919687605141_dp, &
13697 26815.704784746697_dp, &
13698 59463.77740012989_dp, &
13699 0.31491712377093267_dp, &
13700 0.3479154795072989_dp, &
13701 0.41821106711586165_dp, &
13702 0.5348674813300344_dp, &
13703 0.7128490804971861_dp, &
13704 0.9750995854659087_dp, &
13705 1.3558946548404465_dp, &
13706 1.9059877530566083_dp, &
13707 2.700404389007717_dp, &
13708 3.8502466936019597_dp, &
13709 5.520642891704094_dp, &
13710 7.958186966900626_dp, &
13711 11.533140951457444_dp, &
13712 16.804769365680052_dp, &
13713 24.623195574865484_dp, &
13714 36.28937749112529_dp, &
13715 53.80834509662708_dp, &
13716 80.29343692857348_dp, &
13717 120.617438528961_dp, &
13718 182.4720644848956_dp, &
13719 278.11257974792727_dp, &
13720 427.27607514947135_dp, &
13721 662.181110971826_dp, &
13722 1036.4628530654331_dp, &
13723 1642.486743242303_dp, &
13724 2650.295375405498_dp, &
13725 4418.177298699454_dp, &
13726 7913.127380453787_dp, &
13727 17012.044780129974_dp, &
13728 63654.92138377425_dp/)
13729 ELSE IF (e_range < 38000.0_dp) THEN
13730 aw(:) = (/ &
13731 0.1585986414808211_dp, &
13732 0.49293227874864953_dp, &
13733 0.8809949627642996_dp, &
13734 1.3665913620994945_dp, &
13735 2.0065154205489626_dp, &
13736 2.878132174317013_dp, &
13737 4.090028118330613_dp, &
13738 5.797486964911083_dp, &
13739 8.225361402603866_dp, &
13740 11.702236433624119_dp, &
13741 16.71188568127808_dp, &
13742 23.971353089725582_dp, &
13743 34.550285638470136_dp, &
13744 50.05461492230114_dp, &
13745 72.91135545553885_dp, &
13746 106.8135350467453_dp, &
13747 157.4208108370035_dp, &
13748 233.47191953414887_dp, &
13749 348.56667909998555_dp, &
13750 524.0475847624567_dp, &
13751 793.707794772235_dp, &
13752 1211.5739798923714_dp, &
13753 1864.96076865716_dp, &
13754 2896.8251945846673_dp, &
13755 4545.4128751191465_dp, &
13756 7219.5552340802415_dp, &
13757 11662.784361729111_dp, &
13758 19411.052011165215_dp, &
13759 34635.22084899565_dp, &
13760 77428.2594678933_dp, &
13761 0.32001521125658394_dp, &
13762 0.35467076049069735_dp, &
13763 0.4286612826978466_dp, &
13764 0.5518737641051952_dp, &
13765 0.7406950741154976_dp, &
13766 1.020384176642642_dp, &
13767 1.4289161118477156_dp, &
13768 2.022921463432152_dp, &
13769 2.8867554481509226_dp, &
13770 4.146355805574743_dp, &
13771 5.990514160302193_dp, &
13772 8.703718091097011_dp, &
13773 12.717190750178169_dp, &
13774 18.688773175675315_dp, &
13775 27.628891977363935_dp, &
13776 41.10078967616605_dp, &
13777 61.541495564791326_dp, &
13778 92.78097905404866_dp, &
13779 140.8899743107899_dp, &
13780 215.57923784028515_dp, &
13781 332.53694700008424_dp, &
13782 517.3923979879823_dp, &
13783 812.5836504864853_dp, &
13784 1289.6958474565083_dp, &
13785 2073.21922438688_dp, &
13786 3392.879910503737_dp, &
13787 5728.411572233089_dp, &
13788 10353.785071731596_dp, &
13789 22327.676016416055_dp, &
13790 83326.1396670659_dp/)
13791 ELSE IF (e_range < 50000.0_dp) THEN
13792 aw(:) = (/ &
13793 0.16074983925508995_dp, &
13794 0.5001125329781305_dp, &
13795 0.895558007331798_dp, &
13796 1.3930676119416314_dp, &
13797 2.0526395034160516_dp, &
13798 2.9565619374491274_dp, &
13799 4.221130086493037_dp, &
13800 6.013805694103401_dp, &
13801 8.578774475403922_dp, &
13802 12.275421409740702_dp, &
13803 17.636750591062544_dp, &
13804 25.45877687591181_dp, &
13805 36.93833585853616_dp, &
13806 53.88713953905948_dp, &
13807 79.0668373760298_dp, &
13808 116.71771479662618_dp, &
13809 173.39998521474163_dp, &
13810 259.34441610997936_dp, &
13811 390.64111209658677_dp, &
13812 592.8223625140175_dp, &
13813 906.7916067039687_dp, &
13814 1398.75497341123_dp, &
13815 2177.101203426909_dp, &
13816 3421.6595296219302_dp, &
13817 5436.041196216437_dp, &
13818 8747.131818317119_dp, &
13819 14319.470865868023_dp, &
13820 24141.727891729002_dp, &
13821 43561.727407829894_dp, &
13822 98145.10564234719_dp, &
13823 0.3244358799675633_dp, &
13824 0.36057328739839345_dp, &
13825 0.43787941475989645_dp, &
13826 0.5670049256958328_dp, &
13827 0.7656628944752096_dp, &
13828 1.061285309171881_dp, &
13829 1.4953457271663428_dp, &
13830 2.130078015174346_dp, &
13831 3.0588087175505323_dp, &
13832 4.421869344637797_dp, &
13833 6.431225106069265_dp, &
13834 9.408834909529705_dp, &
13835 13.846816687671257_dp, &
13836 20.50252534817982_dp, &
13837 30.550011110026805_dp, &
13838 45.82334962368959_dp, &
13839 69.2111001525887_dp, &
13840 105.3018847464044_dp, &
13841 161.45180420057966_dp, &
13842 249.56900420929912_dp, &
13843 389.13450782321206_dp, &
13844 612.3924255583513_dp, &
13845 973.4482751978251_dp, &
13846 1564.7379361211877_dp, &
13847 2548.6891529503337_dp, &
13848 4226.38253248531_dp, &
13849 7222.917612404246_dp, &
13850 13174.2778180717_dp, &
13851 28509.267725054422_dp, &
13852 106160.2639173599_dp/)
13853 ELSE IF (e_range < 64000.0_dp) THEN
13854 aw(:) = (/ &
13855 0.16262039381403579_dp, &
13856 0.5063730793021797_dp, &
13857 0.9083149017898943_dp, &
13858 1.4163907532992552_dp, &
13859 2.093511982304147_dp, &
13860 3.026477274832255_dp, &
13861 4.338696841349741_dp, &
13862 6.208955650732167_dp, &
13863 8.899549165899632_dp, &
13864 12.798932651615898_dp, &
13865 18.486939408625744_dp, &
13866 26.835311895791346_dp, &
13867 39.16387831263876_dp, &
13868 57.485091296067274_dp, &
13869 84.89004001294464_dp, &
13870 126.1629602905402_dp, &
13871 188.7682361032193_dp, &
13872 284.4506192138729_dp, &
13873 431.85558174323637_dp, &
13874 660.8659291039313_dp, &
13875 1019.8615285065216_dp, &
13876 1588.0275062829162_dp, &
13877 2496.5319476854356_dp, &
13878 3965.666107658971_dp, &
13879 6371.910543745203_dp, &
13880 10375.825366387413_dp, &
13881 17195.468551114795_dp, &
13882 29341.488754297978_dp, &
13883 53508.65421134318_dp, &
13884 121456.79271852584_dp, &
13885 0.3282825301877526_dp, &
13886 0.36574392060492084_dp, &
13887 0.44602159399289126_dp, &
13888 0.5804703376001655_dp, &
13889 0.7880316454913989_dp, &
13890 1.0981622518906817_dp, &
13891 1.5556172675403404_dp, &
13892 2.227923946607758_dp, &
13893 3.2169479016852027_dp, &
13894 4.676829032127763_dp, &
13895 6.84194682233671_dp, &
13896 10.070815237141659_dp, &
13897 14.915491370586214_dp, &
13898 22.232202221987517_dp, &
13899 33.35916502004518_dp, &
13900 50.40499220758785_dp, &
13901 76.72092077578877_dp, &
13902 117.6818705337546_dp, &
13903 181.9923044138381_dp, &
13904 283.8951043119145_dp, &
13905 446.95633356501054_dp, &
13906 710.6481252216735_dp, &
13907 1142.0217013584413_dp, &
13908 1857.0207285861836_dp, &
13909 3061.524750375996_dp, &
13910 5139.401571578885_dp, &
13911 8885.07671917959_dp, &
13912 16351.40165928286_dp, &
13913 35518.56312434257_dp, &
13914 132016.67889946306_dp/)
13915 ELSE IF (e_range < 84000.0_dp) THEN
13916 aw(:) = (/ &
13917 0.16461121992013572_dp, &
13918 0.5130537467027886_dp, &
13919 0.9219891409850267_dp, &
13920 1.4415265282665501_dp, &
13921 2.137812541238478_dp, &
13922 3.1026919987933703_dp, &
13923 4.4675924708665224_dp, &
13924 6.4241492550129164_dp, &
13925 9.255358150849865_dp, &
13926 13.383148444589107_dp, &
13927 19.441687490427764_dp, &
13928 28.39127642576762_dp, &
13929 41.696760806942606_dp, &
13930 61.60931997659668_dp, &
13931 91.61536108245578_dp, &
13932 137.1580410041917_dp, &
13933 206.80796953910746_dp, &
13934 314.1817503489433_dp, &
13935 481.1195168715122_dp, &
13936 743.0074290063551_dp, &
13937 1157.8021962841462_dp, &
13938 1821.5380800469534_dp, &
13939 2895.3812180016926_dp, &
13940 4653.7282926606185_dp, &
13941 7572.086677425676_dp, &
13942 12495.669401832365_dp, &
13943 20997.801241262867_dp, &
13944 36325.86747707651_dp, &
13945 67064.21998527332_dp, &
13946 153559.877190311_dp, &
13947 0.3323792923495753_dp, &
13948 0.37128645855707815_dp, &
13949 0.45481882638693466_dp, &
13950 0.5951234815811263_dp, &
13951 0.8125303911554078_dp, &
13952 1.1387980677420937_dp, &
13953 1.6224364113285599_dp, &
13954 2.3370716045920283_dp, &
13955 3.394480042467526_dp, &
13956 4.96495158621143_dp, &
13957 7.309291980811711_dp, &
13958 10.829475690871233_dp, &
13959 16.149448348937934_dp, &
13960 24.245113751975293_dp, &
13961 36.65532694022094_dp, &
13962 55.82764892756104_dp, &
13963 85.69068300209298_dp, &
13964 132.6116968691035_dp, &
13965 207.0173551055982_dp, &
13966 326.1707659062317_dp, &
13967 518.9945518804797_dp, &
13968 834.5771689653424_dp, &
13969 1357.4620315784393_dp, &
13970 2235.8803375612997_dp, &
13971 3736.3891876038815_dp, &
13972 6360.155290450391_dp, &
13973 11143.129516033901_dp, &
13974 20727.354533996564_dp, &
13975 45246.467731381585_dp, &
13976 167864.82966862986_dp/)
13977 ELSE IF (e_range < 110000.0_dp) THEN
13978 aw(:) = (/ &
13979 0.16651351865477473_dp, &
13980 0.519454577907408_dp, &
13981 0.9351507515667731_dp, &
13982 1.4658532410614418_dp, &
13983 2.1809354081217633_dp, &
13984 3.1773124769855223_dp, &
13985 4.594526615255376_dp, &
13986 6.637313429476753_dp, &
13987 9.609926239283139_dp, &
13988 13.968927280965282_dp, &
13989 20.40513523133305_dp, &
13990 29.97193207470911_dp, &
13991 44.28787090328388_dp, &
13992 65.85939691635402_dp, &
13993 98.59953714664259_dp, &
13994 148.66946924606546_dp, &
13995 225.85763585192822_dp, &
13996 345.86375336652645_dp, &
13997 534.124192482264_dp, &
13998 832.2963196222343_dp, &
13999 1309.3929484951884_dp, &
14000 2081.173047394442_dp, &
14001 3344.449587785483_dp, &
14002 5438.954165136708_dp, &
14003 8961.84030797197_dp, &
14004 14989.196056927289_dp, &
14005 25545.816609735895_dp, &
14006 44824.33409960151_dp, &
14007 83822.32422493344_dp, &
14008 193711.93304782244_dp, &
14009 0.3362966051832095_dp, &
14010 0.37662123463393204_dp, &
14011 0.4633544143824645_dp, &
14012 0.609443679214809_dp, &
14013 0.8366282415179814_dp, &
14014 1.1790166265088777_dp, &
14015 1.6889775685600297_dp, &
14016 2.4464495867510347_dp, &
14017 3.5735433123097637_dp, &
14018 5.257520611088955_dp, &
14019 7.787186659800698_dp, &
14020 11.61095992362215_dp, &
14021 17.43030221471878_dp, &
14022 26.351381738650314_dp, &
14023 40.13360778161903_dp, &
14024 61.60103361444086_dp, &
14025 95.33067886989048_dp, &
14026 148.81734792065342_dp, &
14027 234.46891374272712_dp, &
14028 373.0691144154962_dp, &
14029 599.8733847399587_dp, &
14030 975.5122812884488_dp, &
14031 1605.8677591621924_dp, &
14032 2679.2461731874328_dp, &
14033 4538.878632523566_dp, &
14034 7836.630003949259_dp, &
14035 13921.767968244894_dp, &
14036 26195.561124088643_dp, &
14037 57512.80156760765_dp, &
14038 213037.54770361463_dp/)
14039 ELSE IF (e_range < 160000.0_dp) THEN
14040 aw(:) = (/ &
14041 0.1690396225959909_dp, &
14042 0.527980783630836_dp, &
14043 0.9527749551685267_dp, &
14044 1.498633358447118_dp, &
14045 2.2394273289730373_dp, &
14046 3.279200504430522_dp, &
14047 4.768998475289711_dp, &
14048 6.932282588250648_dp, &
14049 10.103948332171994_dp, &
14050 14.790913525485701_dp, &
14051 21.76710746310645_dp, &
14052 32.22374652919386_dp, &
14053 48.00922529285711_dp, &
14054 72.01561958382231_dp, &
14055 108.80743703784105_dp, &
14056 165.65487919516372_dp, &
14057 254.2501943193653_dp, &
14058 393.59144812337_dp, &
14059 614.8871476380654_dp, &
14060 970.0073946246416_dp, &
14061 1546.2520771713355_dp, &
14062 2492.5552724924996_dp, &
14063 4066.776314102136_dp, &
14064 6722.740655991635_dp, &
14065 11274.547185878206_dp, &
14066 19219.24710678121_dp, &
14067 33422.55081167871_dp, &
14068 59863.52522850395_dp, &
14069 114088.22675193982_dp, &
14070 267340.0098022138_dp, &
14071 0.34150265594038326_dp, &
14072 0.3837647419711019_dp, &
14073 0.4748885595852012_dp, &
14074 0.62895347380013_dp, &
14075 0.8697020693702873_dp, &
14076 1.234606483406498_dp, &
14077 1.7816009492315084_dp, &
14078 2.599802736845317_dp, &
14079 3.8264796009278195_dp, &
14080 5.674012679777352_dp, &
14081 8.473042796813875_dp, &
14082 12.742076623550743_dp, &
14083 19.300782196734378_dp, &
14084 29.456166689431363_dp, &
14085 45.31165528195391_dp, &
14086 70.28579444325638_dp, &
14087 109.99285877629794_dp, &
14088 173.7564076580376_dp, &
14089 277.24527030010586_dp, &
14090 447.12984357739214_dp, &
14091 729.4347143254225_dp, &
14092 1204.7788753069976_dp, &
14093 2016.732652224046_dp, &
14094 3425.9003452972343_dp, &
14095 5916.967870704429_dp, &
14096 10425.95017181254_dp, &
14097 18902.03087469423_dp, &
14098 36195.04534310194_dp, &
14099 80228.85952678222_dp, &
14100 296685.58400527935_dp/)
14101 ELSE IF (e_range < 220000.0_dp) THEN
14102 aw(:) = (/ &
14103 0.17108080746256005_dp, &
14104 0.5348926066785868_dp, &
14105 0.9671403722271738_dp, &
14106 1.5255266347919436_dp, &
14107 2.28774274844055_dp, &
14108 3.3639396483885546_dp, &
14109 4.91510333449395_dp, &
14110 7.181015523939525_dp, &
14111 10.52351093743281_dp, &
14112 15.494175591137205_dp, &
14113 22.941350060033994_dp, &
14114 34.180859122853406_dp, &
14115 51.27100453309755_dp, &
14116 77.4598244795078_dp, &
14117 117.91998358022018_dp, &
14118 180.96932452902817_dp, &
14119 280.12130623254893_dp, &
14120 437.57174786980636_dp, &
14121 690.205645858275_dp, &
14122 1100.09105655256_dp, &
14123 1773.0902705202968_dp, &
14124 2892.412355453728_dp, &
14125 4780.204848654172_dp, &
14126 8012.96799945039_dp, &
14127 13643.383830950022_dp, &
14128 23642.754995570554_dp, &
14129 41847.26051761937_dp, &
14130 76336.01713020806_dp, &
14131 148006.18917830326_dp, &
14132 351302.6976256991_dp, &
14133 0.3457128544559845_dp, &
14134 0.38958721362433624_dp, &
14135 0.4843783651820528_dp, &
14136 0.6451406758484797_dp, &
14137 0.8973522100189902_dp, &
14138 1.2814196455666504_dp, &
14139 1.8601713021665005_dp, &
14140 2.7308645051656586_dp, &
14141 4.044329620340544_dp, &
14142 6.035636552378946_dp, &
14143 9.073587781716466_dp, &
14144 13.741287830611094_dp, &
14145 20.968542428515345_dp, &
14146 32.25164234427676_dp, &
14147 50.02217350804501_dp, &
14148 78.2730704718351_dp, &
14149 123.63448072667782_dp, &
14150 197.24709108663288_dp, &
14151 318.07033201598585_dp, &
14152 518.8138973365631_dp, &
14153 856.7493308578589_dp, &
14154 1433.7763216800754_dp, &
14155 2434.4354710513157_dp, &
14156 4199.723043713225_dp, &
14157 7375.479667359867_dp, &
14158 13229.498032764022_dp, &
14159 24425.382905474227_dp, &
14160 47540.939727448866_dp, &
14161 106401.9838008185_dp, &
14162 393145.5653859997_dp/)
14163 ELSE IF (e_range < 370000.0_dp) THEN
14164 aw(:) = (/ &
14165 0.174208015078396_dp, &
14166 0.5455214527091232_dp, &
14167 0.9893700986809595_dp, &
14168 1.567453246082248_dp, &
14169 2.3636540955315315_dp, &
14170 3.498122562251638_dp, &
14171 5.14827993215702_dp, &
14172 7.581158591694967_dp, &
14173 11.204028439530992_dp, &
14174 16.64459737206355_dp, &
14175 24.87939231168654_dp, &
14176 37.44134013217713_dp, &
14177 56.75883515046388_dp, &
14178 86.71544891414382_dp, &
14179 133.58416570470814_dp, &
14180 207.60520215097725_dp, &
14181 325.68438918806163_dp, &
14182 516.070276345991_dp, &
14183 826.5786325694985_dp, &
14184 1339.2814449968866_dp, &
14185 2197.1869318584554_dp, &
14186 3653.596263478819_dp, &
14187 6165.272491162445_dp, &
14188 10572.339869517313_dp, &
14189 18455.027976540176_dp, &
14190 32866.476778294564_dp, &
14191 59929.80935369267_dp, &
14192 112813.36919811858_dp, &
14193 225478.89700441147_dp, &
14194 547806.2274616612_dp, &
14195 0.35216932807662665_dp, &
14196 0.39859666877705746_dp, &
14197 0.4992199916127204_dp, &
14198 0.6706989633151823_dp, &
14199 0.9413877281467774_dp, &
14200 1.3565962959075781_dp, &
14201 1.9874058221916224_dp, &
14202 2.944935529470972_dp, &
14203 4.403353007447031_dp, &
14204 6.637198331969463_dp, &
14205 10.082430143316417_dp, &
14206 15.437217064917919_dp, &
14207 23.830070641189668_dp, &
14208 37.103429138667835_dp, &
14209 58.297656696714924_dp, &
14210 92.48760514385602_dp, &
14211 148.24827340732497_dp, &
14212 240.26021813127747_dp, &
14213 394.0140410806184_dp, &
14214 654.4499869389458_dp, &
14215 1102.1183917626631_dp, &
14216 1884.023044363102_dp, &
14217 3273.8242918006918_dp, &
14218 5792.447112731419_dp, &
14219 10457.841973367156_dp, &
14220 19329.53596485672_dp, &
14221 36827.67063798521_dp, &
14222 73825.92204301585_dp, &
14223 168436.45444117606_dp, &
14224 622444.873239739_dp/)
14225 ELSE IF (e_range < 520000.0_dp) THEN
14226 aw(:) = (/ &
14227 0.1761202582043389_dp, &
14228 0.5520447609872519_dp, &
14229 1.0030974507555772_dp, &
14230 1.5935326203454305_dp, &
14231 2.4112315066636985_dp, &
14232 3.582863330501751_dp, &
14233 5.296667728366527_dp, &
14234 7.8377867885008925_dp, &
14235 11.643980957560537_dp, &
14236 17.394560044285978_dp, &
14237 26.15386564019807_dp, &
14238 39.605200340498676_dp, &
14239 60.43629423022499_dp, &
14240 92.98154542968216_dp, &
14241 144.30465853295624_dp, &
14242 226.04648771845612_dp, &
14243 357.6210989688087_dp, &
14244 571.8230985597171_dp, &
14245 924.8176309939128_dp, &
14246 1514.236505987768_dp, &
14247 2512.5546787169756_dp, &
14248 4229.875717696101_dp, &
14249 7234.632430202447_dp, &
14250 12591.32549473927_dp, &
14251 22342.113889996825_dp, &
14252 40517.55575462074_dp, &
14253 75377.59785941406_dp, &
14254 144997.0428070577_dp, &
14255 296108.0338286232_dp, &
14256 731745.2865811108_dp, &
14257 0.35612112320338896_dp, &
14258 0.4041597774113941_dp, &
14259 0.5084797084927667_dp, &
14260 0.6867923770493396_dp, &
14261 0.9693484716162668_dp, &
14262 1.404717445752288_dp, &
14263 2.0695156681544655_dp, &
14264 3.084248878260065_dp, &
14265 4.639047881996104_dp, &
14266 7.035740134386317_dp, &
14267 10.757234904755125_dp, &
14268 16.58309947892346_dp, &
14269 25.78417424843358_dp, &
14270 40.454121614614245_dp, &
14271 64.0813539216139_dp, &
14272 102.54891398088944_dp, &
14273 165.90782834877612_dp, &
14274 271.5712510504401_dp, &
14275 450.164506454231_dp, &
14276 756.4348015438803_dp, &
14277 1290.0017302932613_dp, &
14278 2235.688380530208_dp, &
14279 3943.8151743642957_dp, &
14280 7094.4981359781395_dp, &
14281 13045.295369347426_dp, &
14282 24603.05448593095_dp, &
14283 47901.44750228873_dp, &
14284 98085.01445426073_dp, &
14285 227192.3617986822_dp, &
14286 840731.2172617969_dp/)
14287 ELSE IF (e_range < 700000.0_dp) THEN
14288 aw(:) = (/ &
14289 0.1777047921517639_dp, &
14290 0.5574641492548221_dp, &
14291 1.0145511230139452_dp, &
14292 1.615403373339322_dp, &
14293 2.4513426308010158_dp, &
14294 3.654686527513127_dp, &
14295 5.423110673160765_dp, &
14296 8.057659233477818_dp, &
14297 12.023051097483231_dp, &
14298 18.04454685946229_dp, &
14299 27.2652711716243_dp, &
14300 41.50449808496695_dp, &
14301 63.68639951776318_dp, &
14302 98.56001627479766_dp, &
14303 153.92310734481697_dp, &
14304 242.72975295820916_dp, &
14305 386.770803794943_dp, &
14306 623.1980350390293_dp, &
14307 1016.2779319339597_dp, &
14308 1678.941978088846_dp, &
14309 2813.0616487372854_dp, &
14310 4786.311559672938_dp, &
14311 8282.29270001942_dp, &
14312 14601.419569806514_dp, &
14313 26282.105739415867_dp, &
14314 48430.57601768038_dp, &
14315 91721.68927815263_dp, &
14316 179924.08934574723_dp, &
14317 374820.9154378848_dp, &
14318 941327.26358562_dp, &
14319 0.35939787631562287_dp, &
14320 0.40880114349624547_dp, &
14321 0.5162611101798964_dp, &
14322 0.700403353403251_dp, &
14323 0.9931343712493289_dp, &
14324 1.4458855436673317_dp, &
14325 2.14016413580574_dp, &
14326 3.204825966103843_dp, &
14327 4.844304322301563_dp, &
14328 7.385060426051078_dp, &
14329 11.352727207647774_dp, &
14330 17.601567628385595_dp, &
14331 27.534196851429424_dp, &
14332 43.479077462900264_dp, &
14333 69.34760901334614_dp, &
14334 111.79404993830953_dp, &
14335 182.29420743169334_dp, &
14336 300.93178966239077_dp, &
14337 503.4177074926195_dp, &
14338 854.3541827114868_dp, &
14339 1472.829099303335_dp, &
14340 2582.950642714769_dp, &
14341 4616.207797210845_dp, &
14342 8424.894875912756_dp, &
14343 15742.71644167282_dp, &
14344 30226.322987810392_dp, &
14345 60011.99599547493_dp, &
14346 125336.8664775516_dp, &
14347 294698.3519483209_dp, &
14348 1092989.8333233916_dp/)
14349 ELSE IF (e_range < 1100000.0_dp) THEN
14350 aw(:) = (/ &
14351 0.1799647702096782_dp, &
14352 0.5652158330702483_dp, &
14353 1.0310122635781176_dp, &
14354 1.6470123533176932_dp, &
14355 2.5096521841629245_dp, &
14356 3.7597091666054_dp, &
14357 5.609096447864183_dp, &
14358 8.383032013517075_dp, &
14359 12.587531728381435_dp, &
14360 19.018811032717153_dp, &
14361 28.942669406068813_dp, &
14362 44.39198046554904_dp, &
14363 68.66582954328437_dp, &
14364 107.17728460643622_dp, &
14365 168.91213211075208_dp, &
14366 268.97398648093684_dp, &
14367 433.091609012251_dp, &
14368 705.730911521849_dp, &
14369 1164.951694181309_dp, &
14370 1950.1393511855931_dp, &
14371 3314.8576251656086_dp, &
14372 5729.913200878512_dp, &
14373 10089.505182983685_dp, &
14374 18135.458661616507_dp, &
14375 33359.02655596435_dp, &
14376 62993.26164148739_dp, &
14377 122648.53064183371_dp, &
14378 248143.1247122177_dp, &
14379 533911.066633673_dp, &
14380 1377658.9174851538_dp, &
14381 0.3640748855027726_dp, &
14382 0.4154710858336259_dp, &
14383 0.5275322007755151_dp, &
14384 0.7202571525801186_dp, &
14385 1.0280528203703319_dp, &
14386 1.5066998100771394_dp, &
14387 2.2451905408110053_dp, &
14388 3.385256860173649_dp, &
14389 5.153564269391184_dp, &
14390 7.915191281602387_dp, &
14391 12.263349591995896_dp, &
14392 19.17157925153088_dp, &
14393 30.255048026265875_dp, &
14394 48.22502671655241_dp, &
14395 77.69046144427213_dp, &
14396 126.59311361740465_dp, &
14397 208.81898401605096_dp, &
14398 349.03416680624724_dp, &
14399 591.8119175008418_dp, &
14400 1019.2202578014185_dp, &
14401 1785.4939265361284_dp, &
14402 3187.1280052231455_dp, &
14403 5808.604372665699_dp, &
14404 10835.102219391534_dp, &
14405 20748.74858833901_dp, &
14406 40952.890888395414_dp, &
14407 83848.098471279_dp, &
14408 180849.87459593892_dp, &
14409 436512.7424947387_dp, &
14410 1628215.5545881148_dp/)
14411 ELSE IF (e_range < 1800000.0_dp) THEN
14412 aw(:) = (/ &
14413 0.1822263529525982_dp, &
14414 0.5729996377421059_dp, &
14415 1.047635792810745_dp, &
14416 1.6791461382690935_dp, &
14417 2.569340077952974_dp, &
14418 3.8679621955823156_dp, &
14419 5.80214952385766_dp, &
14420 8.723197827758348_dp, &
14421 13.18207930971986_dp, &
14422 20.052986490730195_dp, &
14423 30.737880819936766_dp, &
14424 47.50921787860396_dp, &
14425 74.09130058582036_dp, &
14426 116.65928109072428_dp, &
14427 185.57975117283885_dp, &
14428 298.4887547568673_dp, &
14429 485.82262550322196_dp, &
14430 800.9299575569713_dp, &
14431 1338.911182611906_dp, &
14432 2272.4501320329528_dp, &
14433 3921.5269940453863_dp, &
14434 6892.49799005733_dp, &
14435 12363.437660742366_dp, &
14436 22688.291515470326_dp, &
14437 42722.85096985635_dp, &
14438 82860.32561548792_dp, &
14439 166362.18596925205_dp, &
14440 348621.725686658_dp, &
14441 779233.374778165_dp, &
14442 2079017.4769696286_dp, &
14443 0.36875937076082166_dp, &
14444 0.4222059972744914_dp, &
14445 0.5390198837588891_dp, &
14446 0.7406604412767378_dp, &
14447 1.064209794623797_dp, &
14448 1.5701371533427577_dp, &
14449 2.3555718741622864_dp, &
14450 3.5763689918945434_dp, &
14451 5.483812634926247_dp, &
14452 8.486176027552165_dp, &
14453 13.253067856267064_dp, &
14454 20.89439819576877_dp, &
14455 33.271277856794725_dp, &
14456 53.54362530829514_dp, &
14457 87.14918047880543_dp, &
14458 143.58213829294814_dp, &
14459 239.6811218766154_dp, &
14460 405.8231322234427_dp, &
14461 697.8346358530627_dp, &
14462 1220.419781249127_dp, &
14463 2174.402936582649_dp, &
14464 3954.658279362839_dp, &
14465 7359.4771270599895_dp, &
14466 14054.111690526057_dp, &
14467 27639.364929808464_dp, &
14468 56238.866456371696_dp, &
14469 119209.6009779448_dp, &
14470 267043.87988619285_dp, &
14471 666555.4805450162_dp, &
14472 2511681.1233505663_dp/)
14473 ELSE IF (e_range < 3300000.0_dp) THEN
14474 aw(:) = (/ &
14475 0.1847328901237733_dp, &
14476 0.5816579181920506_dp, &
14477 1.06623831659397_dp, &
14478 1.7153584342875687_dp, &
14479 2.6370944394526834_dp, &
14480 3.991747606377202_dp, &
14481 6.0245444078219315_dp, &
14482 9.118059462860709_dp, &
14483 13.87771304303639_dp, &
14484 21.273099986416568_dp, &
14485 32.874558748673664_dp, &
14486 51.25417761001875_dp, &
14487 80.67448644264461_dp, &
14488 128.28771388301732_dp, &
14489 206.25529162006907_dp, &
14490 335.55403757007736_dp, &
14491 552.9304377149555_dp, &
14492 923.8479731240166_dp, &
14493 1567.0928663554876_dp, &
14494 2702.6050494655915_dp, &
14495 4746.810112095555_dp, &
14496 8507.992746711141_dp, &
14497 15599.418914679965_dp, &
14498 29344.431295226907_dp, &
14499 56841.83138821593_dp, &
14500 113909.37304425648_dp, &
14501 237628.48164125465_dp, &
14502 520905.746109544_dp, &
14503 1225334.6216953252_dp, &
14504 3428882.660853226_dp, &
14505 0.3739561299590209_dp, &
14506 0.42974153402664883_dp, &
14507 0.5519996672430176_dp, &
14508 0.7639144679035607_dp, &
14509 1.1057476916121531_dp, &
14510 1.643586260939031_dp, &
14511 2.4843963114705385_dp, &
14512 3.801270659603255_dp, &
14513 5.875848620822421_dp, &
14514 9.170241595714248_dp, &
14515 14.45037787184633_dp, &
14516 23.0002074091981_dp, &
14517 36.99882559646296_dp, &
14518 60.19432989625214_dp, &
14519 99.12731724056621_dp, &
14520 165.39119652215672_dp, &
14521 279.8872363721547_dp, &
14522 481.0007472363202_dp, &
14523 840.6692554162208_dp, &
14524 1496.7525126524065_dp, &
14525 2720.0603815860054_dp, &
14526 5057.476332433218_dp, &
14527 9648.32206240805_dp, &
14528 18951.758348951535_dp, &
14529 38497.25395781284_dp, &
14530 81332.10767021636_dp, &
14531 180141.95260617262_dp, &
14532 424305.6328571203_dp, &
14533 1112162.6633453001_dp, &
14534 4275158.808925236_dp/)
14535 ELSE IF (e_range < 6000000.0_dp) THEN
14536 aw(:) = (/ &
14537 0.18691650786522696_dp, &
14538 0.5892282516421157_dp, &
14539 1.082601142199495_dp, &
14540 1.7474335701008017_dp, &
14541 2.697541917641801_dp, &
14542 4.102986967183923_dp, &
14543 6.2258726307243295_dp, &
14544 9.478229744358938_dp, &
14545 14.51725016133735_dp, &
14546 22.40416043035721_dp, &
14547 34.87275063631003_dp, &
14548 54.7892770133363_dp, &
14549 86.95106742502657_dp, &
14550 139.4937652327716_dp, &
14551 226.41043496205668_dp, &
14552 372.1384211072813_dp, &
14553 620.0671404995333_dp, &
14554 1048.6405945196989_dp, &
14555 1802.5180601563457_dp, &
14556 3154.370380781851_dp, &
14557 5630.817881197405_dp, &
14558 10277.053936391727_dp, &
14559 19232.435067105616_dp, &
14560 37032.92799563058_dp, &
14561 73696.42898519848_dp, &
14562 152437.06029497125_dp, &
14563 330262.7698185401_dp, &
14564 757951.6008420573_dp, &
14565 1883277.8699494905_dp, &
14566 5569496.903527443_dp, &
14567 0.37848766297101066_dp, &
14568 0.4363686681953113_dp, &
14569 0.5635257557534139_dp, &
14570 0.7847411896337352_dp, &
14571 1.1432429581246502_dp, &
14572 1.710400928686577_dp, &
14573 2.6025143390201344_dp, &
14574 4.00918762919726_dp, &
14575 6.241432379311925_dp, &
14576 9.814018030878975_dp, &
14577 15.58816401063637_dp, &
14578 25.02210792050149_dp, &
14579 40.617544040137886_dp, &
14580 66.72766316858582_dp, &
14581 111.04481815761915_dp, &
14582 187.3905962133754_dp, &
14583 321.0551681264537_dp, &
14584 559.2435025237448_dp, &
14585 992.0158501613989_dp, &
14586 1795.4100023823648_dp, &
14587 3322.951465507801_dp, &
14588 6306.521335539891_dp, &
14589 12314.481572253086_dp, &
14590 24843.55105667421_dp, &
14591 52058.072852874495_dp, &
14592 114094.52399515717_dp, &
14593 264080.7768830504_dp, &
14594 655640.4058250692_dp, &
14595 1818602.1997626221_dp, &
14596 7205611.5064693205_dp/)
14597 ELSE IF (e_range < 18000000.0_dp) THEN
14598 aw(:) = (/ &
14599 0.19022370155321527_dp, &
14600 0.600743360402157_dp, &
14601 1.1076668599949147_dp, &
14602 1.7969727227449328_dp, &
14603 2.7916954361292103_dp, &
14604 4.277740702902653_dp, &
14605 6.5449132123072955_dp, &
14606 10.054129405857609_dp, &
14607 15.549497842664334_dp, &
14608 24.247957163099166_dp, &
14609 38.164643624522434_dp, &
14610 60.67913113804187_dp, &
14611 97.53572421208379_dp, &
14612 158.6390445053919_dp, &
14613 261.3334003305023_dp, &
14614 436.50559155590565_dp, &
14615 740.1775348487877_dp, &
14616 1276.0295073067164_dp, &
14617 2240.2658443373566_dp, &
14618 4013.504032417865_dp, &
14619 7354.933813953658_dp, &
14620 13827.327012835409_dp, &
14621 26765.8040824929_dp, &
14622 53592.215438201536_dp, &
14623 111658.9332077399_dp, &
14624 244020.31011080078_dp, &
14625 565646.7162849859_dp, &
14626 1414014.9652098955_dp, &
14627 3921844.1534676724_dp, &
14628 13169687.030866666_dp, &
14629 0.38535856099370613_dp, &
14630 0.44651820489987665_dp, &
14631 0.581378827915768_dp, &
14632 0.817323895709002_dp, &
14633 1.2024468005348359_dp, &
14634 1.8168664498604732_dp, &
14635 2.792503569715967_dp, &
14636 4.346916881821315_dp, &
14637 6.841455614222962_dp, &
14638 10.882312536529671_dp, &
14639 17.498453583809766_dp, &
14640 28.45950172040968_dp, &
14641 46.85274666913898_dp, &
14642 78.1487335864584_dp, &
14643 132.20639852667364_dp, &
14644 227.12421582085403_dp, &
14645 396.8047794537329_dp, &
14646 706.1854709081963_dp, &
14647 1282.7567112370582_dp, &
14648 2383.8137152178447_dp, &
14649 4544.9881609113345_dp, &
14650 8921.411882096174_dp, &
14651 18107.46271796117_dp, &
14652 38212.670216679006_dp, &
14653 84456.33216515457_dp, &
14654 197425.42988053817_dp, &
14655 494979.5222323457_dp, &
14656 1359946.1830275727_dp, &
14657 4269995.133188314_dp, &
14658 18594665.56920044_dp/)
14659 ELSE IF (e_range < 50000000.0_dp) THEN
14660 aw(:) = (/ &
14661 0.19253210390672987_dp, &
14662 0.6088167991143922_dp, &
14663 1.1253694421581641_dp, &
14664 1.8322551698762215_dp, &
14665 2.8593371177556604_dp, &
14666 4.4043903646211_dp, &
14667 6.77820202691528_dp, &
14668 10.479140516198576_dp, &
14669 16.3186936413819_dp, &
14670 25.636021161233007_dp, &
14671 40.670025252886504_dp, &
14672 65.21432629001508_dp, &
14673 105.78867675687461_dp, &
14674 173.7699859169831_dp, &
14675 289.3412272171402_dp, &
14676 488.9577195527415_dp, &
14677 839.7790283388382_dp, &
14678 1468.253800848674_dp, &
14679 2618.293272053489_dp, &
14680 4773.313983139066_dp, &
14681 8921.221516951595_dp, &
14682 17152.781586299636_dp, &
14683 34075.58424824942_dp, &
14684 70338.2733815119_dp, &
14685 151993.0955958592_dp, &
14686 347390.7830575113_dp, &
14687 852464.8697898219_dp, &
14688 2298933.9421763406_dp, &
14689 7097047.894166372_dp, &
14690 27714975.772786345_dp, &
14691 0.39015997333677005_dp, &
14692 0.4536843511969253_dp, &
14693 0.5941303836763525_dp, &
14694 0.8408337569147337_dp, &
14695 1.2455691251977075_dp, &
14696 1.8951408073458809_dp, &
14697 2.933537085150634_dp, &
14698 4.600165407270463_dp, &
14699 7.296212807798878_dp, &
14700 11.701195546464378_dp, &
14701 18.980540228606937_dp, &
14702 31.16106108953815_dp, &
14703 51.82170019429503_dp, &
14704 87.38781813144793_dp, &
14705 149.60556002756704_dp, &
14706 260.3773737102548_dp, &
14707 461.44327006014964_dp, &
14708 834.290139541255_dp, &
14709 1542.3362969521413_dp, &
14710 2923.3653677825737_dp, &
14711 5699.927184905687_dp, &
14712 11479.628646828858_dp, &
14713 24006.639124934227_dp, &
14714 52485.55856206102_dp, &
14715 121068.69686949911_dp, &
14716 298453.56221816584_dp, &
14717 801312.2270425739_dp, &
14718 2415145.5599759216_dp, &
14719 8639654.807896439_dp, &
14720 43666635.56753933_dp/)
14721 ELSE
14722 aw(:) = (/ &
14723 0.1949107095730563_dp, &
14724 0.6171672239307736_dp, &
14725 1.143792172436484_dp, &
14726 1.8692333576553928_dp, &
14727 2.930748110931505_dp, &
14728 4.539085142263593_dp, &
14729 7.028182432141186_dp, &
14730 10.938130943606705_dp, &
14731 17.15624033998357_dp, &
14732 27.16067680457394_dp, &
14733 43.44774061879075_dp, &
14734 70.29315104327573_dp, &
14735 115.13144509398658_dp, &
14736 191.1011162579555_dp, &
14737 321.8342697698806_dp, &
14738 550.6671938372235_dp, &
14739 958.7797787732911_dp, &
14740 1701.8776841547697_dp, &
14741 3086.6003811493197_dp, &
14742 5735.080964660857_dp, &
14743 10953.106276804325_dp, &
14744 21590.73855228189_dp, &
14745 44160.136736286004_dp, &
14746 94375.76532091481_dp, &
14747 212768.38665855065_dp, &
14748 513000.1708834057_dp, &
14749 1350765.9399022928_dp, &
14750 4022932.679434288_dp, &
14751 14513078.288369589_dp, &
14752 75937900.62142041_dp, &
14753 0.39511226230548274_dp, &
14754 0.461140130776742_dp, &
14755 0.6075257413400078_dp, &
14756 0.8657410584741931_dp, &
14757 1.2916169964663862_dp, &
14758 1.979386468292054_dp, &
14759 3.0865718388636862_dp, &
14760 4.877330577353741_dp, &
14761 7.798462568355467_dp, &
14762 12.614401907780815_dp, &
14763 20.650563498437013_dp, &
14764 34.23929473043507_dp, &
14765 57.55196112216066_dp, &
14766 98.18231951367711_dp, &
14767 170.22503623388062_dp, &
14768 300.40452026165275_dp, &
14769 540.6000901136043_dp, &
14770 994.1995519608768_dp, &
14771 1873.38945083301_dp, &
14772 3628.392490521107_dp, &
14773 7251.604873762116_dp, &
14774 15029.267131045708_dp, &
14775 32509.31717011665_dp, &
14776 74021.0484408064_dp, &
14777 179523.81893802425_dp, &
14778 471846.2096834248_dp, &
14779 1380639.0831843547_dp, &
14780 4711303.6808049455_dp, &
14781 20609904.76278654_dp, &
14782 151191206.84136662_dp/)
14783 END IF
14784 END SUBROUTINE
14785
14786! **************************************************************************************************
14787!> \brief ...
14788!> \param k ...
14789!> \param E_range ...
14790!> \param aw ...
14791!> \param E_ratio ...
14792! **************************************************************************************************
14793 PURE SUBROUTINE get_coeff_32(k, E_range, aw, E_ratio)
14794 INTEGER, INTENT(IN) :: k
14795 REAL(kind=dp), INTENT(IN) :: e_range
14796 REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
14797 REAL(kind=dp), INTENT(OUT) :: e_ratio
14798
14799 e_ratio = 1.0_dp
14800 IF (e_range < 4862.0_dp) THEN
14801 e_ratio = 4862.0_dp/e_range
14802 aw(:) = (/ &
14803 0.13254275519610229_dp, &
14804 0.4075002434334006_dp, &
14805 0.7129653611128071_dp, &
14806 1.072311142230351_dp, &
14807 1.5137054634325515_dp, &
14808 2.072585907106472_dp, &
14809 2.7948198255241965_dp, &
14810 3.7408887157784005_dp, &
14811 4.991538722697482_dp, &
14812 6.655495576177275_dp, &
14813 8.880073834050316_dp, &
14814 11.865844968082882_dp, &
14815 15.88700871736706_dp, &
14816 21.319800434807853_dp, &
14817 28.682257688821725_dp, &
14818 38.69010148421391_dp, &
14819 52.335569763753064_dp, &
14820 70.99909077535013_dp, &
14821 96.60819689305963_dp, &
14822 131.86486082729905_dp, &
14823 180.57288090293983_dp, &
14824 248.11368921054333_dp, &
14825 342.14755601137466_dp, &
14826 473.67067120472257_dp, &
14827 658.6709548634489_dp, &
14828 920.892639935345_dp, &
14829 1296.9341360028814_dp, &
14830 1847.0377800992435_dp, &
14831 2682.1510880264454_dp, &
14832 4047.085323969744_dp, &
14833 6660.040272218769_dp, &
14834 14108.029689918747_dp, &
14835 0.2667161148094765_dp, &
14836 0.2866077185534088_dp, &
14837 0.32818422173681944_dp, &
14838 0.3951613742572797_dp, &
14839 0.4934816587166093_dp, &
14840 0.6318550781930461_dp, &
14841 0.8226002283812441_dp, &
14842 1.0828685966380414_dp, &
14843 1.4363782680324575_dp, &
14844 1.915847231861476_dp, &
14845 2.566403777298568_dp, &
14846 3.4503727336112044_dp, &
14847 4.654008952170379_dp, &
14848 6.29699863203509_dp, &
14849 8.545911800328465_dp, &
14850 11.633320983339523_dp, &
14851 15.885087444621595_dp, &
14852 21.759494015934315_dp, &
14853 29.903701501622987_dp, &
14854 41.235837219460294_dp, &
14855 57.06571237167945_dp, &
14856 79.27552554087899_dp, &
14857 110.59838219031958_dp, &
14858 155.06890815199284_dp, &
14859 218.81060764214297_dp, &
14860 311.5722127601456_dp, &
14861 450.16760079454133_dp, &
14862 667.4313363099551_dp, &
14863 1039.6543728256195_dp, &
14864 1789.9748349736915_dp, &
14865 3833.9681364720745_dp, &
14866 14655.44632366239_dp/)
14867 ELSE IF (e_range < 5846.0_dp) THEN
14868 aw(:) = (/ &
14869 0.1343248849882633_dp, &
14870 0.4132592119099152_dp, &
14871 0.7240043390799359_dp, &
14872 1.091026925935713_dp, &
14873 1.54395256157537_dp, &
14874 2.120249021729213_dp, &
14875 2.8686740645792272_dp, &
14876 3.8538693799190424_dp, &
14877 5.162601596809094_dp, &
14878 6.912333890906867_dp, &
14879 9.263083009950755_dp, &
14880 12.433910552841194_dp, &
14881 16.725965711187758_dp, &
14882 22.554817278001472_dp, &
14883 30.49600178512726_dp, &
14884 41.3494455589017_dp, &
14885 56.23095197989688_dp, &
14886 76.70267881628598_dp, &
14887 104.96008395875586_dp, &
14888 144.10119183719314_dp, &
14889 198.5169327875596_dp, &
14890 274.4618860978532_dp, &
14891 380.899499080189_dp, &
14892 530.7797694607106_dp, &
14893 743.0392454072074_dp, &
14894 1045.9229630462034_dp, &
14895 1483.0537807692358_dp, &
14896 2126.1516611014854_dp, &
14897 3106.7411184121765_dp, &
14898 4713.500361879859_dp, &
14899 7790.3641571104345_dp, &
14900 16548.445240300603_dp, &
14901 0.2703480614473483_dp, &
14902 0.2910756261579897_dp, &
14903 0.3344559767841716_dp, &
14904 0.40448278489060463_dp, &
14905 0.5075565457043502_dp, &
14906 0.6530872691721998_dp, &
14907 0.8544340076849473_dp, &
14908 1.130277093651096_dp, &
14909 1.506570063148876_dp, &
14910 2.019293595727479_dp, &
14911 2.718337239493882_dp, &
14912 3.6729796521022116_dp, &
14913 4.9796461563368934_dp, &
14914 6.772925073652045_dp, &
14915 9.241267903229764_dp, &
14916 12.649452794111886_dp, &
14917 17.370863762271927_dp, &
14918 23.934101209739133_dp, &
14919 33.090676974430735_dp, &
14920 45.914061903125_dp, &
14921 63.94611611042478_dp, &
14922 89.41703574194196_dp, &
14923 125.58445451312652_dp, &
14924 177.27970461634078_dp, &
14925 251.853187763381_dp, &
14926 360.99548168525195_dp, &
14927 524.7699272889096_dp, &
14928 782.0601891451947_dp, &
14929 1222.611932252175_dp, &
14930 2108.162233431274_dp, &
14931 4512.831122628449_dp, &
14932 17222.120678400817_dp/)
14933 ELSE IF (e_range < 6665.0_dp) THEN
14934 aw(:) = (/ &
14935 0.13557338601660668_dp, &
14936 0.41730065260389615_dp, &
14937 0.7317746815552322_dp, &
14938 1.104251698157746_dp, &
14939 1.5654155709323194_dp, &
14940 2.1542162086848187_dp, &
14941 2.9215329135167067_dp, &
14942 3.9350769825526832_dp, &
14943 5.286080227577014_dp, &
14944 7.0985194219082555_dp, &
14945 9.541929524180782_dp, &
14946 12.849299970750083_dp, &
14947 17.34218791649807_dp, &
14948 23.466110116962277_dp, &
14949 31.840626080497724_dp, &
14950 43.33050125803531_dp, &
14951 59.147245510736425_dp, &
14952 80.99462553628598_dp, &
14953 111.2781774935937_dp, &
14954 153.40846663158962_dp, &
14955 212.24282951584453_dp, &
14956 294.7341924733544_dp, &
14957 410.8955699804921_dp, &
14958 575.2616255690891_dp, &
14959 809.1768735737788_dp, &
14960 1144.5847770269388_dp, &
14961 1630.9076924124556_dp, &
14962 2349.3603614162894_dp, &
14963 3448.4571118322583_dp, &
14964 5252.914668389623_dp, &
14965 8709.488526056672_dp, &
14966 18538.811858380694_dp, &
14967 0.27289359484351916_dp, &
14968 0.294220982001665_dp, &
14969 0.3388980759862916_dp, &
14970 0.411123396942743_dp, &
14971 0.5176359133047135_dp, &
14972 0.668364809184891_dp, &
14973 0.8774440884042964_dp, &
14974 1.1646980641075588_dp, &
14975 1.557761149115098_dp, &
14976 2.0950797638638385_dp, &
14977 2.8301605859021666_dp, &
14978 3.837593566983341_dp, &
14979 5.221615251219452_dp, &
14980 7.128324609566002_dp, &
14981 9.763174149466698_dp, &
14982 13.41611573645175_dp, &
14983 18.497910846798998_dp, &
14984 25.59282079046985_dp, &
14985 35.53550575895753_dp, &
14986 49.524062051914576_dp, &
14987 69.28781614975094_dp, &
14988 97.34010675862754_dp, &
14989 137.36838088542098_dp, &
14990 194.86122705934486_dp, &
14991 278.18695350675137_dp, &
14992 400.6526832866276_dp, &
14993 585.0253370519614_dp, &
14994 875.1939500761971_dp, &
14995 1371.947991018934_dp, &
14996 2368.536327804507_dp, &
14997 5068.399861166353_dp, &
14998 19319.551508880766_dp/)
14999 ELSE IF (e_range < 7800.0_dp) THEN
15000 aw(:) = (/ &
15001 0.1370499857872464_dp, &
15002 0.422087838650514_dp, &
15003 0.7410040914005517_dp, &
15004 1.1200141103213002_dp, &
15005 1.5910937845067552_dp, &
15006 2.195011651443817_dp, &
15007 2.985262954814932_dp, &
15008 4.033361919610758_dp, &
15009 5.436098124858981_dp, &
15010 7.325593527943965_dp, &
15011 9.883341376758114_dp, &
15012 13.359912878263156_dp, &
15013 18.102752475144438_dp, &
15014 24.595554809189636_dp, &
15015 33.51428674450282_dp, &
15016 45.80722857230063_dp, &
15017 62.80982762248363_dp, &
15018 86.41024933404324_dp, &
15019 119.28915593140628_dp, &
15020 165.26885298524112_dp, &
15021 229.82488386010735_dp, &
15022 320.8416671697241_dp, &
15023 449.7412806501914_dp, &
15024 633.1998473772219_dp, &
15025 895.83705332351_dp, &
15026 1274.6569305047908_dp, &
15027 1827.0549682010767_dp, &
15028 2647.329246149724_dp, &
15029 3907.374072374449_dp, &
15030 5981.275709049701_dp, &
15031 9956.014230886252_dp, &
15032 21245.91059831021_dp, &
15033 0.27590538134484827_dp, &
15034 0.2979573565068322_dp, &
15035 0.3442035946496803_dp, &
15036 0.41909606429356827_dp, &
15037 0.5297935391581631_dp, &
15038 0.6868712744253185_dp, &
15039 0.9054313778178337_dp, &
15040 1.2067332819592969_dp, &
15041 1.6205293980185511_dp, &
15042 2.1883874721831376_dp, &
15043 2.9684149635372044_dp, &
15044 4.041990934394181_dp, &
15045 5.523387463777131_dp, &
15046 7.573569384258536_dp, &
15047 10.420063818936963_dp, &
15048 14.385689720800096_dp, &
15049 19.930287584151156_dp, &
15050 27.711636209408702_dp, &
15051 38.67488869797654_dp, &
15052 54.18479605908046_dp, &
15053 76.22300391975581_dp, &
15054 107.6864815178738_dp, &
15055 152.8489241029493_dp, &
15056 218.10116939555124_dp, &
15057 313.21671931714536_dp, &
15058 453.742571335189_dp, &
15059 666.1923552433152_dp, &
15060 1001.3603174380673_dp, &
15061 1575.1576866889702_dp, &
15062 2723.745097867967_dp, &
15063 5826.475195617796_dp, &
15064 22177.608473258828_dp/)
15065 ELSE IF (e_range < 10044.0_dp) THEN
15066 aw(:) = (/ &
15067 0.1393751435556022_dp, &
15068 0.4296428076126454_dp, &
15069 0.7556269118458908_dp, &
15070 1.1451112107395522_dp, &
15071 1.6321993263496475_dp, &
15072 2.260676043411754_dp, &
15073 3.088405025081973_dp, &
15074 4.193293537779408_dp, &
15075 5.681535826776683_dp, &
15076 7.69912759768035_dp, &
15077 10.448065969109644_dp, &
15078 14.209271435146666_dp, &
15079 19.375182226620723_dp, &
15080 26.496316789495793_dp, &
15081 36.34808912459801_dp, &
15082 50.02711707757524_dp, &
15083 69.09067912961464_dp, &
15084 95.75961436726789_dp, &
15085 133.21501966925618_dp, &
15086 186.03449395457477_dp, &
15087 260.83759278866273_dp, &
15088 367.24818341626917_dp, &
15089 519.3442915671452_dp, &
15090 737.8771467239039_dp, &
15091 1053.7584086797096_dp, &
15092 1513.801330668974_dp, &
15093 2190.9702417788335_dp, &
15094 3205.2140171776487_dp, &
15095 4774.210825118251_dp, &
15096 7368.122740715144_dp, &
15097 12344.973991941335_dp, &
15098 26456.259009955764_dp, &
15099 0.28065064408654583_dp, &
15100 0.3038780328549319_dp, &
15101 0.3526759573849975_dp, &
15102 0.4319215261801991_dp, &
15103 0.5494801124103226_dp, &
15104 0.7170195083647463_dp, &
15105 0.9512879181334657_dp, &
15106 1.2759995304848823_dp, &
15107 1.7245524024350398_dp, &
15108 2.3439221516534534_dp, &
15109 3.2002414143320297_dp, &
15110 4.386814440304756_dp, &
15111 6.0356680674184835_dp, &
15112 8.334263247492462_dp, &
15113 11.549773796002393_dp, &
15114 16.064517095499955_dp, &
15115 22.427907607712154_dp, &
15116 31.43303552982579_dp, &
15117 44.23019793781067_dp, &
15118 62.496359675110796_dp, &
15119 88.69028623168306_dp, &
15120 126.44134851448199_dp, &
15121 181.15338754218374_dp, &
15122 260.9731813081323_dp, &
15123 378.4325232446994_dp, &
15124 553.5022272702486_dp, &
15125 820.1059662618102_dp, &
15126 1242.61943354538_dp, &
15127 1966.3786822155184_dp, &
15128 3410.3262356194664_dp, &
15129 7292.46886903304_dp, &
15130 27693.855354838164_dp/)
15131 ELSE IF (e_range < 14058.0_dp) THEN
15132 aw(:) = (/ &
15133 0.14237486453944107_dp, &
15134 0.4394200534952092_dp, &
15135 0.7746555330683098_dp, &
15136 1.177996095520943_dp, &
15137 1.6864652619295697_dp, &
15138 2.3480282638346726_dp, &
15139 3.2266616421606034_dp, &
15140 4.409302651924302_dp, &
15141 6.015552554226239_dp, &
15142 8.21136864768518_dp, &
15143 11.228525969594424_dp, &
15144 15.392442739194209_dp, &
15145 21.162171526463748_dp, &
15146 29.18815796828059_dp, &
15147 40.3960633542662_dp, &
15148 56.109002958965746_dp, &
15149 78.22669193938121_dp, &
15150 109.4893460132257_dp, &
15151 153.8685432400606_dp, &
15152 217.14949285761446_dp, &
15153 307.80403247089794_dp, &
15154 438.30940204930323_dp, &
15155 627.1596980492438_dp, &
15156 901.9765906170177_dp, &
15157 1304.4290970945126_dp, &
15158 1898.3283702431997_dp, &
15159 2783.931515564688_dp, &
15160 4126.483644157721_dp, &
15161 6224.503686674229_dp, &
15162 9716.401957272288_dp, &
15163 16429.986790645627_dp, &
15164 35423.70971974651_dp, &
15165 0.28677747480312377_dp, &
15166 0.3115840468325672_dp, &
15167 0.36382211720758184_dp, &
15168 0.44896687419484355_dp, &
15169 0.5758826693409299_dp, &
15170 0.7577922978063393_dp, &
15171 1.013805148375157_dp, &
15172 1.371186351736884_dp, &
15173 1.8686546654955012_dp, &
15174 2.56115176168904_dp, &
15175 3.5267457265125604_dp, &
15176 4.876653159913234_dp, &
15177 6.769843587920379_dp, &
15178 9.434411669061411_dp, &
15179 13.198996941760914_dp, &
15180 18.53920060615783_dp, &
15181 26.14651426672167_dp, &
15182 37.03124772871653_dp, &
15183 52.677154132184704_dp, &
15184 75.27530196334217_dp, &
15185 108.08071153726374_dp, &
15186 155.96210569315744_dp, &
15187 226.2630374093172_dp, &
15188 330.18690270710874_dp, &
15189 485.1305151943868_dp, &
15190 718.9484199953382_dp, &
15191 1078.8257499526349_dp, &
15192 1653.3065930339428_dp, &
15193 2639.3168711629464_dp, &
15194 4598.936377351543_dp, &
15195 9833.306219117254_dp, &
15196 37228.01191754706_dp/)
15197 ELSE IF (e_range < 19114.0_dp) THEN
15198 aw(:) = (/ &
15199 0.14502370796551703_dp, &
15200 0.4480829010539378_dp, &
15201 0.7916157981286331_dp, &
15202 1.2075243508496802_dp, &
15203 1.7355837902840658_dp, &
15204 2.4277406075189805_dp, &
15205 3.353852391880919_dp, &
15206 4.609630408244423_dp, &
15207 6.327831185413123_dp, &
15208 8.694192211759745_dp, &
15209 11.970290957285025_dp, &
15210 16.5265343114819_dp, &
15211 22.890028099278148_dp, &
15212 31.81440016230547_dp, &
15213 44.38216963745914_dp, &
15214 62.15561490757339_dp, &
15215 87.40030591467784_dp, &
15216 123.41813625304623_dp, &
15217 175.04637990163923_dp, &
15218 249.4101615146111_dp, &
15219 357.06464925805403_dp, &
15220 513.7420529668599_dp, &
15221 743.0485870384754_dp, &
15222 1080.6808579217216_dp, &
15223 1581.14809900435_dp, &
15224 2328.8609813458747_dp, &
15225 3457.607083546514_dp, &
15226 5188.8198870627575_dp, &
15227 7921.499237107771_dp, &
15228 12501.58289355634_dp, &
15229 21329.60428145102_dp, &
15230 46259.92356298488_dp, &
15231 0.29219234212764755_dp, &
15232 0.31845370690034347_dp, &
15233 0.373872890610569_dp, &
15234 0.4645031477238152_dp, &
15235 0.600179586011295_dp, &
15236 0.7956470306437238_dp, &
15237 1.0723453581784659_dp, &
15238 1.4610762243702629_dp, &
15239 2.0059080326461616_dp, &
15240 2.76987145000088_dp, &
15241 3.8432790806788373_dp, &
15242 5.355919395975122_dp, &
15243 7.495003555741856_dp, &
15244 10.531701795474737_dp, &
15245 14.860576373030604_dp, &
15246 21.05848895536974_dp, &
15247 29.97309227512008_dp, &
15248 42.856552877705376_dp, &
15249 61.56891170854085_dp, &
15250 88.88951722712217_dp, &
15251 128.99783246328127_dp, &
15252 188.2232678787817_dp, &
15253 276.231225060434_dp, &
15254 407.9416932740777_dp, &
15255 606.7569403074244_dp, &
15256 910.3888055268573_dp, &
15257 1382.7234338831393_dp, &
15258 2142.64856112768_dp, &
15259 3450.91828637881_dp, &
15260 6043.794023233803_dp, &
15261 12927.644737686549_dp, &
15262 48805.08862191054_dp/)
15263 ELSE IF (e_range < 25870.0_dp) THEN
15264 aw(:) = (/ &
15265 0.14754727473790832_dp, &
15266 0.4563621690490255_dp, &
15267 0.8079150128057052_dp, &
15268 1.2360970460871308_dp, &
15269 1.783465172289044_dp, &
15270 2.506029552409794_dp, &
15271 3.479706891724579_dp, &
15272 4.809331033064525_dp, &
15273 6.641460873789643_dp, &
15274 9.182776952331544_dp, &
15275 12.726704342125874_dp, &
15276 17.692182381254717_dp, &
15277 24.680446495334998_dp, &
15278 34.55864851933651_dp, &
15279 48.58367650175289_dp, &
15280 68.58652178045523_dp, &
15281 97.24837691414776_dp, &
15282 138.51657135506775_dp, &
15283 198.2350828975321_dp, &
15284 285.1066307856165_dp, &
15285 412.17114696470446_dp, &
15286 599.09566525532_dp, &
15287 875.7537331156108_dp, &
15288 1287.8873903467286_dp, &
15289 1906.2215953314396_dp, &
15290 2841.576751154979_dp, &
15291 4271.337323387628_dp, &
15292 6490.79405022356_dp, &
15293 10031.563416886413_dp, &
15294 16011.899712868733_dp, &
15295 27575.24726251585_dp, &
15296 60178.67874227437_dp, &
15297 0.2973552991659925_dp, &
15298 0.3250566186141874_dp, &
15299 0.38363560044751194_dp, &
15300 0.4797430677530813_dp, &
15301 0.6242227281583522_dp, &
15302 0.8334115127308077_dp, &
15303 1.131206159458274_dp, &
15304 1.552168109039008_dp, &
15305 2.146103694832248_dp, &
15306 2.984800054553381_dp, &
15307 4.171951997411542_dp, &
15308 5.857847187535488_dp, &
15309 8.26118966072219_dp, &
15310 11.701694869826639_dp, &
15311 16.64903553098479_dp, &
15312 23.796760202379794_dp, &
15313 34.17459871027205_dp, &
15314 49.32017560264589_dp, &
15315 71.54333486665355_dp, &
15316 104.33600828116667_dp, &
15317 153.01300195482676_dp, &
15318 225.72365375346706_dp, &
15319 335.069793993653_dp, &
15320 500.74431450896293_dp, &
15321 753.9795215702264_dp, &
15322 1145.5159990918794_dp, &
15323 1761.5202623948937_dp, &
15324 2761.370072156297_dp, &
15325 4489.970449108518_dp, &
15326 7909.344598672393_dp, &
15327 16932.78473977757_dp, &
15328 63749.23270457554_dp/)
15329 ELSE IF (e_range < 35180.0_dp) THEN
15330 aw(:) = (/ &
15331 0.15002348519433922_dp, &
15332 0.46451130342750646_dp, &
15333 0.824045021042684_dp, &
15334 1.2645625089537342_dp, &
15335 1.8315097984767872_dp, &
15336 2.5851574108560396_dp, &
15337 3.6078322639753786_dp, &
15338 5.014105379427872_dp, &
15339 6.965398429552594_dp, &
15340 9.69114538724383_dp, &
15341 13.519686414362274_dp, &
15342 18.92366324500486_dp, &
15343 26.587123387509088_dp, &
15344 37.50529299176741_dp, &
15345 53.13378944809952_dp, &
15346 75.61310381203099_dp, &
15347 108.10840448253303_dp, &
15348 155.3272050619175_dp, &
15349 224.31329381924482_dp, &
15350 325.67298187252476_dp, &
15351 475.48339517776736_dp, &
15352 698.2866475093558_dp, &
15353 1031.8319129009446_dp, &
15354 1534.6726862536486_dp, &
15355 2298.5349133548734_dp, &
15356 3468.9808108623843_dp, &
15357 5281.614870909423_dp, &
15358 8131.595592028999_dp, &
15359 12730.978340941307_dp, &
15360 20567.038495110464_dp, &
15361 35778.24682408639_dp, &
15362 78609.82719130651_dp, &
15363 0.3024254049895312_dp, &
15364 0.3315918385852816_dp, &
15365 0.3933970226398002_dp, &
15366 0.49512550705651104_dp, &
15367 0.6486960402797961_dp, &
15368 0.872153928090401_dp, &
15369 1.1920524512393371_dp, &
15370 1.6470520511792885_dp, &
15371 2.2932691781075087_dp, &
15372 3.212208165551602_dp, &
15373 4.522554416231983_dp, &
15374 6.3977829741741665_dp, &
15375 9.092580992760151_dp, &
15376 12.982711954934162_dp, &
15377 18.625509909639966_dp, &
15378 26.85224510411176_dp, &
15379 38.910067639696216_dp, &
15380 56.68163261798167_dp, &
15381 83.02738125985056_dp, &
15382 122.3231205179819_dp, &
15383 181.31153080692263_dp, &
15384 270.46417120445864_dp, &
15385 406.1868615016362_dp, &
15386 614.4531917978084_dp, &
15387 936.963281227043_dp, &
15388 1442.136769945214_dp, &
15389 2246.721112418363_dp, &
15390 3565.852508027438_dp, &
15391 5859.209649832797_dp, &
15392 10391.307380953114_dp, &
15393 22278.529118569048_dp, &
15394 83643.6346001724_dp/)
15395 ELSE IF (e_range < 58986.0_dp) THEN
15396 aw(:) = (/ &
15397 0.15399032986872938_dp, &
15398 0.4776194738561411_dp, &
15399 0.8501753043803365_dp, &
15400 1.31107946792835_dp, &
15401 1.9107571034709487_dp, &
15402 2.7169110257810085_dp, &
15403 3.823183728851228_dp, &
15404 5.361535227120927_dp, &
15405 7.52023882937859_dp, &
15406 10.570320241106216_dp, &
15407 14.904710488340205_dp, &
15408 21.09662727004116_dp, &
15409 29.987193874300804_dp, &
15410 42.81777942605248_dp, &
15411 61.43118108216903_dp, &
15412 88.57949619935079_dp, &
15413 128.39852284791314_dp, &
15414 187.14404553452533_dp, &
15415 274.34323674515576_dp, &
15416 404.60959924450174_dp, &
15417 600.5280841395823_dp, &
15418 897.2831647081848_dp, &
15419 1350.157326096996_dp, &
15420 2046.8215895330711_dp, &
15421 3127.779028909418_dp, &
15422 4821.115088237592_dp, &
15423 7503.844806420884_dp, &
15424 11818.550736004621_dp, &
15425 18929.880007178966_dp, &
15426 31248.80735377127_dp, &
15427 55365.10950684564_dp, &
15428 123170.41015076623_dp, &
15429 0.310556146577657_dp, &
15430 0.3421802780606353_dp, &
15431 0.4094223614818588_dp, &
15432 0.5206878687071103_dp, &
15433 0.6898099116933477_dp, &
15434 0.9379031112155564_dp, &
15435 1.2963422286973751_dp, &
15436 1.8113088637921357_dp, &
15437 2.5506317768186104_dp, &
15438 3.6140696050359202_dp, &
15439 5.148822519751217_dp, &
15440 7.37304808270909_dp, &
15441 10.611713921777906_dp, &
15442 15.351596184949763_dp, &
15443 22.32620193123881_dp, &
15444 32.64780730303991_dp, &
15445 48.01425448983265_dp, &
15446 71.03533163849936_dp, &
15447 105.75208085448396_dp, &
15448 158.47022734372413_dp, &
15449 239.1101888774951_dp, &
15450 363.4164108225496_dp, &
15451 556.6165909250806_dp, &
15452 859.5761486038269_dp, &
15453 1339.388089086674_dp, &
15454 2108.33111127726_dp, &
15455 3360.4896315872797_dp, &
15456 5453.393419146713_dp, &
15457 9137.412009720016_dp, &
15458 16424.470778988587_dp, &
15459 35351.12874442453_dp, &
15460 132131.62635064372_dp/)
15461 ELSE IF (e_range < 85052.0_dp) THEN
15462 aw(:) = (/ &
15463 0.15665201491118563_dp, &
15464 0.48645255086696204_dp, &
15465 0.8679140908633145_dp, &
15466 1.3429441991327895_dp, &
15467 1.9655663020388237_dp, &
15468 2.8089215705883355_dp, &
15469 3.9750326498505615_dp, &
15470 5.608890975167092_dp, &
15471 7.919132231547877_dp, &
15472 11.208702795546053_dp, &
15473 15.920717165510954_dp, &
15474 22.707526807683728_dp, &
15475 32.53546396340545_dp, &
15476 46.84477048297584_dp, &
15477 67.79548225092432_dp, &
15478 98.64818052206019_dp, &
15479 144.35799385904798_dp, &
15480 212.50854417045272_dp, &
15481 314.7924737632916_dp, &
15482 469.3788283542409_dp, &
15483 704.7334196247324_dp, &
15484 1065.8446744796906_dp, &
15485 1624.4783236718592_dp, &
15486 2496.2720234668195_dp, &
15487 3869.6487189479203_dp, &
15488 6055.704970336431_dp, &
15489 9577.158206331736_dp, &
15490 15337.311175310337_dp, &
15491 24985.53443387876_dp, &
15492 41924.21370939059_dp, &
15493 75335.12561757576_dp, &
15494 169240.0831820107_dp, &
15495 0.31601774300631147_dp, &
15496 0.34936919542211453_dp, &
15497 0.42045090124222617_dp, &
15498 0.5384991728556235_dp, &
15499 0.718776108006642_dp, &
15500 0.9847086381286597_dp, &
15501 1.3713420192235894_dp, &
15502 1.9306481293657263_dp, &
15503 2.7395796341433103_dp, &
15504 3.912291447920088_dp, &
15505 5.6187616588370295_dp, &
15506 8.113318173320359_dp, &
15507 11.778610539345083_dp, &
15508 17.193842137070394_dp, &
15509 25.24140130107934_dp, &
15510 37.2747560295197_dp, &
15511 55.384907761264955_dp, &
15512 82.82679809483118_dp, &
15513 124.70772472447071_dp, &
15514 189.1091967049713_dp, &
15515 288.93348305516747_dp, &
15516 444.97622020020765_dp, &
15517 691.102363652001_dp, &
15518 1083.0962406902304_dp, &
15519 1714.1073266384424_dp, &
15520 2742.5244927502104_dp, &
15521 4445.571757485345_dp, &
15522 7336.150374476061_dp, &
15523 12481.117979830125_dp, &
15524 22687.396569080272_dp, &
15525 49029.27213151443_dp, &
15526 182714.99577064996_dp/)
15527 ELSE IF (e_range < 126612.0_dp) THEN
15528 aw(:) = (/ &
15529 0.15940855323823325_dp, &
15530 0.4956331404107984_dp, &
15531 0.8864643437510178_dp, &
15532 1.3765162067718617_dp, &
15533 2.023770980185183_dp, &
15534 2.9074148057363085_dp, &
15535 4.1388784725835_dp, &
15536 5.877927890230674_dp, &
15537 8.356513563090692_dp, &
15538 11.914499292816961_dp, &
15539 17.053639088844527_dp, &
15540 24.519740335146867_dp, &
15541 35.428643273777766_dp, &
15542 51.46079251611351_dp, &
15543 75.16399270031552_dp, &
15544 110.42815348333873_dp, &
15545 163.2357643618038_dp, &
15546 242.85834932021987_dp, &
15547 363.7810629576585_dp, &
15548 548.8279687880828_dp, &
15549 834.2882284949019_dp, &
15550 1278.4147835625017_dp, &
15551 1975.6780750770085_dp, &
15552 3080.979098507853_dp, &
15553 4851.394465485563_dp, &
15554 7719.529300718981_dp, &
15555 12426.190192755064_dp, &
15556 20273.565432739022_dp, &
15557 33665.94446711274_dp, &
15558 57559.451254663276_dp, &
15559 105152.47765026288_dp, &
15560 238976.3949138361_dp, &
15561 0.32167917419720454_dp, &
15562 0.35688752020406733_dp, &
15563 0.432113620138954_dp, &
15564 0.557526309412786_dp, &
15565 0.750001170356205_dp, &
15566 1.0355963446410574_dp, &
15567 1.4535706405145328_dp, &
15568 2.0626057961394766_dp, &
15569 2.9503327570367945_dp, &
15570 4.247930889038919_dp, &
15571 6.152607117843223_dp, &
15572 8.96241660484181_dp, &
15573 13.130563431815835_dp, &
15574 19.350693737814375_dp, &
15575 28.691905293869226_dp, &
15576 42.814199349842106_dp, &
15577 64.3152735879299_dp, &
15578 97.29381534174325_dp, &
15579 148.2732887039295_dp, &
15580 227.73244606015456_dp, &
15581 352.66878271895433_dp, &
15582 550.9427692926408_dp, &
15583 868.7360090031099_dp, &
15584 1383.5494745755586_dp, &
15585 2227.296811182226_dp, &
15586 3628.5346977825025_dp, &
15587 5993.829605644713_dp, &
15588 10082.06745111222_dp, &
15589 17463.261532301312_dp, &
15590 32186.387908159864_dp, &
15591 69962.03966745277_dp, &
15592 259964.04274551442_dp/)
15593 ELSE IF (e_range < 247709.0_dp) THEN
15594 aw(:) = (/ &
15595 0.16373958436697705_dp, &
15596 0.5101264978608379_dp, &
15597 0.9159896069529507_dp, &
15598 1.430480778525928_dp, &
15599 2.1183125355919272_dp, &
15600 3.069088155985158_dp, &
15601 4.410666493484344_dp, &
15602 6.328951180857867_dp, &
15603 9.097685942967209_dp, &
15604 13.123807198212786_dp, &
15605 19.017093457142934_dp, &
15606 27.69800527238066_dp, &
15607 40.56599533589728_dp, &
15608 59.76432998550568_dp, &
15609 88.60026000403526_dp, &
15610 132.21751623180904_dp, &
15611 198.68257999925436_dp, &
15612 300.7563968967366_dp, &
15613 458.81385584717975_dp, &
15614 705.7073030471846_dp, &
15615 1094.9631974180384_dp, &
15616 1714.7688190287618_dp, &
15617 2712.160181788416_dp, &
15618 4335.464784701027_dp, &
15619 7009.996439266402_dp, &
15620 11475.67124355327_dp, &
15621 19043.69699662228_dp, &
15622 32095.955514205307_dp, &
15623 55144.14939722096_dp, &
15624 97554.96015781426_dp, &
15625 183803.08980484723_dp, &
15626 427090.13572662364_dp, &
15627 0.33058526273756267_dp, &
15628 0.36885467782088144_dp, &
15629 0.450950093626708_dp, &
15630 0.5886660848688742_dp, &
15631 0.8017140595780422_dp, &
15632 1.12082540025602_dp, &
15633 1.592831379794522_dp, &
15634 2.2886261360881694_dp, &
15635 3.31553715895999_dp, &
15636 4.836588787162195_dp, &
15637 7.100671060940492_dp, &
15638 10.490115312417089_dp, &
15639 15.596294033961502_dp, &
15640 23.34074274734257_dp, &
15641 35.17091805226463_dp, &
15642 53.37952681146768_dp, &
15643 81.6305668168434_dp, &
15644 125.83495501612735_dp, &
15645 195.62426652036729_dp, &
15646 306.86047742079927_dp, &
15647 485.9640372839356_dp, &
15648 777.4791364469528_dp, &
15649 1257.4930839302167_dp, &
15650 2057.832096842602_dp, &
15651 3410.5310726374632_dp, &
15652 5731.642662527518_dp, &
15653 9785.587565752354_dp, &
15654 17033.465557765263_dp, &
15655 30505.194880449075_dp, &
15656 57794.75930208428_dp, &
15657 127350.9867284555_dp, &
15658 471374.61882211326_dp/)
15659 ELSE IF (e_range < 452410.0_dp) THEN
15660 aw(:) = (/ &
15661 0.16729345587752817_dp, &
15662 0.5220837915443625_dp, &
15663 0.9405741148525995_dp, &
15664 1.475915186417087_dp, &
15665 2.1988425579314264_dp, &
15666 3.2084229320437876_dp, &
15667 4.647658877867247_dp, &
15668 6.726900296718572_dp, &
15669 9.759556549152265_dp, &
15670 14.217184101692544_dp, &
15671 20.815259881214573_dp, &
15672 30.6479058416218_dp, &
15673 45.40134046704283_dp, &
15674 67.69506474900591_dp, &
15675 101.63225933231537_dp, &
15676 153.69629208332117_dp, &
15677 234.2259466666511_dp, &
15678 359.8693374590021_dp, &
15679 557.713000374505_dp, &
15680 872.3154950503812_dp, &
15681 1377.8469922115526_dp, &
15682 2199.339147354942_dp, &
15683 3550.4526300007215_dp, &
15684 5801.72143903217_dp, &
15685 9606.137468107807_dp, &
15686 16135.098020267218_dp, &
15687 27533.125876830458_dp, &
15688 47827.00298089529_dp, &
15689 84872.60988452473_dp, &
15690 155240.74372944486_dp, &
15691 301769.0915913182_dp, &
15692 717663.1356247213_dp, &
15693 0.3379034645137452_dp, &
15694 0.37881946738547795_dp, &
15695 0.46689089916190624_dp, &
15696 0.615406140323357_dp, &
15697 0.8467064090676832_dp, &
15698 1.1959082144868687_dp, &
15699 1.7170430113398156_dp, &
15700 2.4927824943410823_dp, &
15701 3.6497349710027573_dp, &
15702 5.382588868417295_dp, &
15703 7.992470539282596_dp, &
15704 11.948356757923296_dp, &
15705 17.986233607448835_dp, &
15706 27.27066375498558_dp, &
15707 41.66060391661398_dp, &
15708 64.15126447641241_dp, &
15709 99.61667730605177_dp, &
15710 156.07223690236458_dp, &
15711 246.84813859319397_dp, &
15712 394.3808745412634_dp, &
15713 636.9222168901913_dp, &
15714 1040.5940426531995_dp, &
15715 1721.4116028413248_dp, &
15716 2886.2600258571556_dp, &
15717 4910.7228383421725_dp, &
15718 8490.620025490385_dp, &
15719 14947.387548118924_dp, &
15720 26881.538126356885_dp, &
15721 49765.1843652489_dp, &
15722 97101.2613405646_dp, &
15723 217655.43736295513_dp, &
15724 804161.4023302288_dp/)
15725 ELSE IF (e_range < 1104308.0_dp) THEN
15726 aw(:) = (/ &
15727 0.17199827765823103_dp, &
15728 0.5380059294727404_dp, &
15729 0.9736341997615289_dp, &
15730 1.5377352694938258_dp, &
15731 2.3097736290470463_dp, &
15732 3.402751176442763_dp, &
15733 4.982320081056548_dp, &
15734 7.295965784769458_dp, &
15735 10.718311338355647_dp, &
15736 15.822271186795035_dp, &
15737 23.491931948889743_dp, &
15738 35.10335805529794_dp, &
15739 52.81700264781087_dp, &
15740 80.05534788452564_dp, &
15741 122.29130031272524_dp, &
15742 188.3639662992407_dp, &
15743 292.70049836028585_dp, &
15744 459.11521059936763_dp, &
15745 727.3932946321102_dp, &
15746 1164.8655376002584_dp, &
15747 1887.0757702166622_dp, &
15748 3095.3089278858897_dp, &
15749 5145.990609712843_dp, &
15750 8681.612837930576_dp, &
15751 14883.222751239353_dp, &
15752 25969.45893893789_dp, &
15753 46211.24410112112_dp, &
15754 84069.60121476448_dp, &
15755 156951.2764731812_dp, &
15756 303071.86527144857_dp, &
15757 621318.3413283181_dp, &
15758 1540176.9421143653_dp, &
15759 0.3476062896043872_dp, &
15760 0.39221916200807294_dp, &
15761 0.4886942701051685_dp, &
15762 0.6525426235716102_dp, &
15763 0.9100580818924567_dp, &
15764 1.3030331602543401_dp, &
15765 1.8966193817904524_dp, &
15766 2.7919595402699877_dp, &
15767 4.146395650315994_dp, &
15768 6.205957727039082_dp, &
15769 9.35800145395578_dp, &
15770 14.217249893697428_dp, &
15771 21.767802513575838_dp, &
15772 33.599962887862425_dp, &
15773 52.309603978141894_dp, &
15774 82.17963968964122_dp, &
15775 130.3576745067898_dp, &
15776 208.91882658105692_dp, &
15777 338.53188644986636_dp, &
15778 555.0775251553036_dp, &
15779 921.7987850368266_dp, &
15780 1552.0204912904064_dp, &
15781 2652.486928566717_dp, &
15782 4607.857141150226_dp, &
15783 8149.500672123086_dp, &
15784 14702.176180519695_dp, &
15785 27120.413678845984_dp, &
15786 51329.09608829233_dp, &
15787 100319.89810256775_dp, &
15788 206207.35016280194_dp, &
15789 478990.19443877833_dp, &
15790 1773158.149536881_dp/)
15791 ELSE IF (e_range < 2582180.0_dp) THEN
15792 aw(:) = (/ &
15793 0.17588045499160682_dp, &
15794 0.5512257021498627_dp, &
15795 1.0013703118630188_dp, &
15796 1.5902434264445422_dp, &
15797 2.405215799012508_dp, &
15798 3.572121574953908_dp, &
15799 5.277810308974558_dp, &
15800 7.8050898047384285_dp, &
15801 11.587777615192842_dp, &
15802 17.298487998001825_dp, &
15803 25.990127895451295_dp, &
15804 39.32634673857857_dp, &
15805 59.96085024576093_dp, &
15806 92.16864779688744_dp, &
15807 142.9088285424604_dp, &
15808 223.63608103002358_dp, &
15809 353.42944347083966_dp, &
15810 564.4730793406918_dp, &
15811 911.8045474251959_dp, &
15812 1490.9411871748462_dp, &
15813 2470.3259539694427_dp, &
15814 4152.227298440316_dp, &
15815 7089.513439000162_dp, &
15816 12314.898215191599_dp, &
15817 21802.90624200313_dp, &
15818 39428.49288596958_dp, &
15819 73023.82463664327_dp, &
15820 138969.14164413267_dp, &
15821 272986.4175263669_dp, &
15822 557893.4292914037_dp, &
15823 1213363.1419136985_dp, &
15824 3160013.276178309_dp, &
15825 0.35562539358245254_dp, &
15826 0.4034598630828778_dp, &
15827 0.507310698035364_dp, &
15828 0.6847544241793833_dp, &
15829 0.965797905499124_dp, &
15830 1.3985904597574628_dp, &
15831 2.0590328917447116_dp, &
15832 3.0664136286150927_dp, &
15833 4.608786136806865_dp, &
15834 6.9844140449501895_dp, &
15835 10.67005177539468_dp, &
15836 16.434554413045298_dp, &
15837 25.529954614876807_dp, &
15838 40.0165712983268_dp, &
15839 63.323071537954775_dp, &
15840 101.22419148541576_dp, &
15841 163.5720951785129_dp, &
15842 267.4096498030514_dp, &
15843 442.6620147937182_dp, &
15844 742.7299414402248_dp, &
15845 1264.594124324258_dp, &
15846 2187.7911393276054_dp, &
15847 3851.763119153975_dp, &
15848 6913.383865787345_dp, &
15849 12677.15458167547_dp, &
15850 23810.25092763602_dp, &
15851 45950.63865686885_dp, &
15852 91498.37485707413_dp, &
15853 189213.13598878586_dp, &
15854 412506.46573426365_dp, &
15855 1004859.506854019_dp, &
15856 3757500.169762731_dp/)
15857 ELSE IF (e_range < 10786426.0_dp) THEN
15858 aw(:) = (/ &
15859 0.18118431919794764_dp, &
15860 0.569409896731795_dp, &
15861 1.0399575954447753_dp, &
15862 1.6642774050832718_dp, &
15863 2.5416705589038666_dp, &
15864 3.817686030211855_dp, &
15865 5.712321227186271_dp, &
15866 8.564613330770575_dp, &
15867 12.904350409701964_dp, &
15868 19.568888331266418_dp, &
15869 29.895695056866206_dp, &
15870 46.04343093576417_dp, &
15871 71.5338357343432_dp, &
15872 112.17788900752778_dp, &
15873 177.6801488903931_dp, &
15874 284.45814060206254_dp, &
15875 460.674367791145_dp, &
15876 755.3691485577447_dp, &
15877 1255.340718976754_dp, &
15878 2116.97044167198_dp, &
15879 3627.5472563405187_dp, &
15880 6326.311406095248_dp, &
15881 11249.843141984617_dp, &
15882 20444.63279555149_dp, &
15883 38074.51328278192_dp, &
15884 72907.33134133912_dp, &
15885 144152.9579642091_dp, &
15886 295906.8845605476_dp, &
15887 635237.5946890834_dp, &
15888 1441541.5594042293_dp, &
15889 3533032.483017847_dp, &
15890 10300282.297035703_dp, &
15891 0.3666004567229466_dp, &
15892 0.41909533951682115_dp, &
15893 0.5337007693305699_dp, &
15894 0.7311922617920863_dp, &
15895 1.047397173851464_dp, &
15896 1.5405811924145458_dp, &
15897 2.3040410310537687_dp, &
15898 3.4869635940224217_dp, &
15899 5.328980129783192_dp, &
15900 8.21786366292428_dp, &
15901 12.786862454319088_dp, &
15902 20.0807884362153_dp, &
15903 31.842977578575024_dp, &
15904 51.017784629932365_dp, &
15905 82.64330507271109_dp, &
15906 135.4622543365706_dp, &
15907 224.87803543778475_dp, &
15908 378.47920097589025_dp, &
15909 646.570836391214_dp, &
15910 1122.6914600829598_dp, &
15911 1984.5495359592944_dp, &
15912 3577.888523900694_dp, &
15913 6593.427321251175_dp, &
15914 12452.706002367568_dp, &
15915 24181.569964546125_dp, &
15916 48474.222324463255_dp, &
15917 100819.77620242331_dp, &
15918 219012.9151368635_dp, &
15919 501508.5608275271_dp, &
15920 1228961.4319415095_dp, &
15921 3359678.97519788_dp, &
15922 13198823.17240385_dp/)
15923 ELSE IF (e_range < 72565710.0_dp) THEN
15924 aw(:) = (/ &
15925 0.1860758083606257_dp, &
15926 0.5863105731285033_dp, &
15927 1.0762838189916888_dp, &
15928 1.735025194760996_dp, &
15929 2.6741091733730666_dp, &
15930 4.059774820324427_dp, &
15931 6.147499799667448_dp, &
15932 9.337719533159323_dp, &
15933 14.267190355767958_dp, &
15934 21.960866171726565_dp, &
15935 34.08763874663045_dp, &
15936 53.39659047772489_dp, &
15937 84.47130014903539_dp, &
15938 135.05292206821736_dp, &
15939 218.3968931937055_dp, &
15940 357.54107328410043_dp, &
15941 593.1761358820205_dp, &
15942 998.4464642388938_dp, &
15943 1707.390489925032_dp, &
15944 2970.9030847374506_dp, &
15945 5269.79573455244_dp, &
15946 9550.044752723195_dp, &
15947 17728.825622420598_dp, &
15948 33825.049900245765_dp, &
15949 66597.83794457617_dp, &
15950 136026.81652248927_dp, &
15951 290225.5203619125_dp, &
15952 652973.7303844218_dp, &
15953 1570277.6349969232_dp, &
15954 4120560.3068352453_dp, &
15955 12225526.961836666_dp, &
15956 44976022.1592941_dp, &
15957 0.37674253105568495_dp, &
15958 0.43381021502950023_dp, &
15959 0.5590636422872557_dp, &
15960 0.7766587789599726_dp, &
15961 1.1286591474829935_dp, &
15962 1.68435592509438_dp, &
15963 2.5563667570796293_dp, &
15964 3.9277652235068583_dp, &
15965 6.097912064812507_dp, &
15966 9.560625610789286_dp, &
15967 15.139088266420053_dp, &
15968 24.221728239197674_dp, &
15969 39.180550580116204_dp, &
15970 64.12452706067008_dp, &
15971 106.27918892115885_dp, &
15972 178.55890322928792_dp, &
15973 304.458022589578_dp, &
15974 527.5532342378145_dp, &
15975 930.4049107379313_dp, &
15976 1673.1477374753613_dp, &
15977 3074.6018027427394_dp, &
15978 5788.391058089275_dp, &
15979 11199.697804802257_dp, &
15980 22357.499058820344_dp, &
15981 46274.36537417859_dp, &
15982 99934.30172443499_dp, &
15983 227100.46858913172_dp, &
15984 549456.1902431552_dp, &
15985 1439654.5954696422_dp, &
15986 4195690.360297783_dp, &
15987 14287820.480068853_dp, &
15988 67797329.79665162_dp/)
15989 ELSE
15990 aw(:) = (/ &
15991 0.18894944364096963_dp, &
15992 0.5962994473518639_dp, &
15993 1.0979679811546372_dp, &
15994 1.7777457879798018_dp, &
15995 2.755038431602313_dp, &
15996 4.2094890725295695_dp, &
15997 6.419910672165012_dp, &
15998 9.827743718777555_dp, &
15999 15.14232519057394_dp, &
16000 23.518028627832294_dp, &
16001 36.85642384608609_dp, &
16002 58.3288648866487_dp, &
16003 93.29351960290545_dp, &
16004 150.92965910813132_dp, &
16005 247.19917473345893_dp, &
16006 410.3110727485798_dp, &
16007 691.0051346282855_dp, &
16008 1182.327758062675_dp, &
16009 2058.578907101761_dp, &
16010 3654.0712480702805_dp, &
16011 6627.183883848432_dp, &
16012 12313.689493852524_dp, &
16013 23517.234882837332_dp, &
16014 46357.167452919886_dp, &
16015 94815.65398959102_dp, &
16016 202633.14120244567_dp, &
16017 456833.45962230937_dp, &
16018 1101461.096498392_dp, &
16019 2900225.249530281_dp, &
16020 8637618.748843128_dp, &
16021 31160984.654377617_dp, &
16022 163046130.3896004_dp, &
16023 0.3827101036463066_dp, &
16024 0.4425913279562002_dp, &
16025 0.5744425048624656_dp, &
16026 0.804618202373891_dp, &
16027 1.179281838121873_dp, &
16028 1.7750696801469283_dp, &
16029 2.717660210867893_dp, &
16030 4.213395860766345_dp, &
16031 6.603340508278996_dp, &
16032 10.45667355729473_dp, &
16033 16.73411042964203_dp, &
16034 27.07791316760568_dp, &
16035 44.334509463025526_dp, &
16036 73.51209156253726_dp, &
16037 123.56723754128413_dp, &
16038 210.80455542346078_dp, &
16039 365.486536699493_dp, &
16040 644.9928757856525_dp, &
16041 1160.7129102321292_dp, &
16042 2134.627971456765_dp, &
16043 4022.319779194768_dp, &
16044 7790.4608937563735_dp, &
16045 15569.825611679273_dp, &
16046 32269.164071811185_dp, &
16047 69800.37245131386_dp, &
16048 158930.03677550773_dp, &
16049 385455.2889064046_dp, &
16050 1013100.9672579938_dp, &
16051 2964362.2649549907_dp, &
16052 10115616.277159294_dp, &
16053 44251495.17814687_dp, &
16054 324622278.5292175_dp/)
16055 END IF
16056 END SUBROUTINE
16057
16058! **************************************************************************************************
16059!> \brief ...
16060!> \param k ...
16061!> \param E_range ...
16062!> \param aw ...
16063!> \param E_ratio ...
16064! **************************************************************************************************
16065 PURE SUBROUTINE get_coeff_34(k, E_range, aw, E_ratio)
16066 INTEGER, INTENT(IN) :: k
16067 REAL(kind=dp), INTENT(IN) :: e_range
16068 REAL(kind=dp), DIMENSION(2*k), INTENT(OUT) :: aw
16069 REAL(kind=dp), INTENT(OUT) :: e_ratio
16070
16071 e_ratio = 1.0_dp
16072 IF (e_range < 9649.0_dp) THEN
16073 e_ratio = 9649.0_dp/e_range
16074 aw(:) = (/ &
16075 0.13207515772844727_dp, &
16076 0.405991108403864_dp, &
16077 0.7100791180957539_dp, &
16078 1.0674316993343833_dp, &
16079 1.5058443663983385_dp, &
16080 2.0602382660689633_dp, &
16081 2.7757484556313985_dp, &
16082 3.711806532052663_dp, &
16083 4.947645044945255_dp, &
16084 6.589801356244469_dp, &
16085 8.782420666111134_dp, &
16086 11.721478364771365_dp, &
16087 15.674500523350034_dp, &
16088 21.008017787373205_dp, &
16089 28.22593014264274_dp, &
16090 38.02331749903241_dp, &
16091 51.362195208386105_dp, &
16092 69.57856923496088_dp, &
16093 94.53432041984598_dp, &
16094 128.83359338669658_dp, &
16095 176.13249956696887_dp, &
16096 241.58470670964914_dp, &
16097 332.48668514742263_dp, &
16098 459.220222708152_dp, &
16099 636.6470551378719_dp, &
16100 886.216031469228_dp, &
16101 1239.261662676278_dp, &
16102 1742.4871050895674_dp, &
16103 2467.9964867366607_dp, &
16104 3534.353825869125_dp, &
16105 5159.135288744986_dp, &
16106 7820.30687542924_dp, &
16107 12915.999073999303_dp, &
16108 27423.79759942945_dp, &
16109 0.26576346823795405_dp, &
16110 0.2854396551016808_dp, &
16111 0.32655197737161484_dp, &
16112 0.39274601046287516_dp, &
16113 0.48984881388427076_dp, &
16114 0.6263944482633245_dp, &
16115 0.8144408041785135_dp, &
16116 1.070757575293203_dp, &
16117 1.4185065739762008_dp, &
16118 1.889596892023973_dp, &
16119 2.527980829463319_dp, &
16120 3.3942720864211324_dp, &
16121 4.572231822130947_dp, &
16122 6.17790432405361_dp, &
16123 8.372526211327902_dp, &
16124 11.380831596076106_dp, &
16125 15.517105781570788_dp, &
16126 21.222416096494825_dp, &
16127 29.118047224727174_dp, &
16128 40.08257127813093_dp, &
16129 55.363655573112425_dp, &
16130 76.74148031407067_dp, &
16131 106.77011264742791_dp, &
16132 149.13984256372788_dp, &
16133 209.23574802895516_dp, &
16134 295.0380382861162_dp, &
16135 418.6824781799572_dp, &
16136 599.4725232857328_dp, &
16137 870.5618605429147_dp, &
16138 1296.282804430787_dp, &
16139 2025.283801158086_dp, &
16140 3491.3059333297665_dp, &
16141 7474.317631875756_dp, &
16142 28531.55532533201_dp/)
16143 ELSE IF (e_range < 15161.0_dp) THEN
16144 aw(:) = (/ &
16145 0.13599210879419024_dp, &
16146 0.41865733842571035_dp, &
16147 0.734387462880487_dp, &
16148 1.1087078459161832_dp, &
16149 1.5726641901039529_dp, &
16150 2.165714712843095_dp, &
16151 2.9394684766946595_dp, &
16152 3.962695691901657_dp, &
16153 5.328172864333448_dp, &
16154 7.162136411063943_dp, &
16155 9.637432516710518_dp, &
16156 12.991909466518228_dp, &
16157 17.55426383461847_dp, &
16158 23.78051806766095_dp, &
16159 32.30571538388694_dp, &
16160 44.01747962910964_dp, &
16161 60.161119876385705_dp, &
16162 82.49044121504559_dp, &
16163 113.48508380736385_dp, &
16164 156.6651752262542_dp, &
16165 217.04910217389076_dp, &
16166 301.823097180824_dp, &
16167 421.326779743335_dp, &
16168 590.5151234901978_dp, &
16169 831.1508175496598_dp, &
16170 1175.1475564541768_dp, &
16171 1669.8147612822702_dp, &
16172 2386.5033267913464_dp, &
16173 3436.11940867051_dp, &
16174 5000.901252994878_dp, &
16175 7412.324148921864_dp, &
16176 11389.23639096364_dp, &
16177 19014.75702535834_dp, &
16178 40656.29906587002_dp, &
16179 0.2737475207928825_dp, &
16180 0.2952786790800227_dp, &
16181 0.34039675533342323_dp, &
16182 0.4133708800225637_dp, &
16183 0.5210568682574819_dp, &
16184 0.6735634934463747_dp, &
16185 0.885293451950756_dp, &
16186 1.1764687033967232_dp, &
16187 1.575309481781747_dp, &
16188 2.1211239192365996_dp, &
16189 2.8686862980856427_dp, &
16190 3.8944530711305823_dp, &
16191 5.305413278430533_dp, &
16192 7.2517322156689525_dp, &
16193 9.944880861346203_dp, &
16194 13.683733937475726_dp, &
16195 18.89229644939318_dp, &
16196 26.1744814467069_dp, &
16197 36.39402095230821_dp, &
16198 50.791640045991635_dp, &
16199 71.15786208341221_dp, &
16200 100.0896105547862_dp, &
16201 141.37465650014659_dp, &
16202 200.57507440601208_dp, &
16203 285.9310387743719_dp, &
16204 409.81030920422364_dp, &
16205 591.1755952564811_dp, &
16206 860.2110797442753_dp, &
16207 1268.287932013144_dp, &
16208 1913.3787096119436_dp, &
16209 3017.958277485201_dp, &
16210 5225.5076295652025_dp, &
16211 11175.8295539236_dp, &
16212 42493.69287150706_dp/)
16213 ELSE IF (e_range < 29986.0_dp) THEN
16214 aw(:) = (/ &
16215 0.14157456993085618_dp, &
16216 0.43680814305293825_dp, &
16217 0.7695603918544728_dp, &
16218 1.1691652838645754_dp, &
16219 1.6718472598074612_dp, &
16220 2.3244228725405374_dp, &
16221 3.189182451328711_dp, &
16222 4.350562914610808_dp, &
16223 5.924439306359134_dp, &
16224 8.071200190010469_dp, &
16225 11.014281956686672_dp, &
16226 15.066594360092068_dp, &
16227 20.668390911055305_dp, &
16228 28.44180291698298_dp, &
16229 39.26974002093017_dp, &
16230 54.41058484826287_dp, &
16231 75.66572466277076_dp, &
16232 105.6254757771726_dp, &
16233 148.03193881969935_dp, &
16234 208.3172512208018_dp, &
16235 294.4065207981018_dp, &
16236 417.9228078083311_dp, &
16237 596.0074159115596_dp, &
16238 854.090540688523_dp, &
16239 1230.1481604663468_dp, &
16240 1781.3282413698837_dp, &
16241 2594.479625814838_dp, &
16242 3803.497041610086_dp, &
16243 5619.84470555754_dp, &
16244 8392.880364891958_dp, &
16245 12752.616596160462_dp, &
16246 20039.19394160478_dp, &
16247 34069.0659733131_dp, &
16248 73716.52254207557_dp, &
16249 0.28514234691822854_dp, &
16250 0.30952051330129193_dp, &
16251 0.36082397822605955_dp, &
16252 0.444362626815503_dp, &
16253 0.5687241475224296_dp, &
16254 0.7466995085435535_dp, &
16255 0.9967403173431321_dp, &
16256 1.3451190863662297_dp, &
16257 1.8290618703769976_dp, &
16258 2.50126712171007_dp, &
16259 3.4364289749111423_dp, &
16260 4.740680380007788_dp, &
16261 6.565312747281522_dp, &
16262 9.12679076184029_dp, &
16263 12.73608082512356_dp, &
16264 17.84183040178123_dp, &
16265 25.094256075252144_dp, &
16266 35.44016472753401_dp, &
16267 50.26505189600494_dp, &
16268 71.60683168542646_dp, &
16269 102.47931445154013_dp, &
16270 147.3651890657808_dp, &
16271 212.9734421023194_dp, &
16272 309.41511024819323_dp, &
16273 452.05559786284186_dp, &
16274 664.5034127165376_dp, &
16275 983.6387878300005_dp, &
16276 1468.7306525598128_dp, &
16277 2220.152861116728_dp, &
16278 3425.255864392015_dp, &
16279 5497.180237430633_dp, &
16280 9607.611108068526_dp, &
16281 20546.39934902344_dp, &
16282 77652.80170951472_dp/)
16283 ELSE IF (e_range < 49196.0_dp) THEN
16284 aw(:) = (/ &
16285 0.14537972365704172_dp, &
16286 0.44924937732846576_dp, &
16287 0.7939069438582139_dp, &
16288 1.2115293253508186_dp, &
16289 1.742274641402974_dp, &
16290 2.438646450121879_dp, &
16291 3.3713296629150684_dp, &
16292 4.637276320033501_dp, &
16293 6.371112976811227_dp, &
16294 8.761403563453904_dp, &
16295 12.07400661126176_dp, &
16296 16.685826322050936_dp, &
16297 23.133850907384492_dp, &
16298 32.18677637709266_dp, &
16299 44.95016073622998_dp, &
16300 63.02161541345043_dp, &
16301 88.72107581753308_dp, &
16302 125.43437293871429_dp, &
16303 178.12881222660047_dp, &
16304 254.13153300040636_dp, &
16305 364.31201181146474_dp, &
16306 524.8905530158796_dp, &
16307 760.2239712046822_dp, &
16308 1107.130506542137_dp, &
16309 1621.6666690030702_dp, &
16310 2389.8720059435745_dp, &
16311 3545.100289215905_dp, &
16312 5296.792046393856_dp, &
16313 7980.859332173258_dp, &
16314 12157.208254096504_dp, &
16315 18833.87560950116_dp, &
16316 30128.29725464392_dp, &
16317 51981.56843007888_dp, &
16318 113581.24285918285_dp, &
16319 0.29292046810329686_dp, &
16320 0.31938180850986814_dp, &
16321 0.3752391615051481_dp, &
16322 0.4666272739869208_dp, &
16323 0.6035184960523118_dp, &
16324 0.8008736626361799_dp, &
16325 1.0804648717121432_dp, &
16326 1.4736003482843745_dp, &
16327 2.025118651024602_dp, &
16328 2.7992210995810174_dp, &
16329 3.8880019577883864_dp, &
16330 5.423967095382597_dp, &
16331 7.598483671540265_dp, &
16332 10.689098259656856_dp, &
16333 15.100189404799776_dp, &
16334 21.423785021626927_dp, &
16335 30.53105704736921_dp, &
16336 43.71077401338752_dp, &
16337 62.88009577250318_dp, &
16338 90.90758923336087_dp, &
16339 132.11161052090677_dp, &
16340 193.0349397957077_dp, &
16341 283.65875554453504_dp, &
16342 419.32384092692257_dp, &
16343 623.8101438332048_dp, &
16344 934.3678665192813_dp, &
16345 1410.2058150916341_dp, &
16346 2147.682363184511_dp, &
16347 3310.5494277589387_dp, &
16348 5201.420046514296_dp, &
16349 8473.557800314775_dp, &
16350 14944.543756287507_dp, &
16351 32001.381350595566_dp, &
16352 120417.37064242488_dp/)
16353 ELSE IF (e_range < 109833.0_dp) THEN
16354 aw(:) = (/ &
16355 0.15111478683237578_dp, &
16356 0.46811081455805653_dp, &
16357 0.8311975658154092_dp, &
16358 1.277245657117571_dp, &
16359 1.8530267811044683_dp, &
16360 2.6207793743639676_dp, &
16361 3.6658104514987024_dp, &
16362 5.107246498350614_dp, &
16363 7.113506495693816_dp, &
16364 9.924804821974032_dp, &
16365 13.886131394604528_dp, &
16366 19.49590677142994_dp, &
16367 27.47820253689281_dp, &
16368 38.89058150232696_dp, &
16369 55.28609346493793_dp, &
16370 78.95811810682723_dp, &
16371 113.31277487728954_dp, &
16372 163.43910700431258_dp, &
16373 236.9880966222402_dp, &
16374 345.5375832850856_dp, &
16375 506.7277789266936_dp, &
16376 747.6291874168176_dp, &
16377 1110.0992865921862_dp, &
16378 1659.3801603581437_dp, &
16379 2498.036749955731_dp, &
16380 3788.815996745633_dp, &
16381 5792.691112251481_dp, &
16382 8933.562233913393_dp, &
16383 13912.5117339868_dp, &
16384 21925.010151757728_dp, &
16385 35138.25619155491_dp, &
16386 58037.885439910475_dp, &
16387 102878.64576803103_dp, &
16388 228949.87062864064_dp, &
16389 0.30466116249925723_dp, &
16390 0.33448999997528_dp, &
16391 0.39775748201433164_dp, &
16392 0.5020431600763641_dp, &
16393 0.6597680435379347_dp, &
16394 0.8897794356898496_dp, &
16395 1.2198845885842693_dp, &
16396 1.6906902612632702_dp, &
16397 2.361327809416546_dp, &
16398 3.317974468669039_dp, &
16399 4.686572913471436_dp, &
16400 6.651901833209751_dp, &
16401 9.486316315170766_dp, &
16402 13.593305414380533_dp, &
16403 19.57390295671377_dp, &
16404 28.32858472187177_dp, &
16405 41.21465830698257_dp, &
16406 60.291072612452794_dp, &
16407 88.70200998589976_dp, &
16408 131.28259205540442_dp, &
16409 195.52312215176198_dp, &
16410 293.11741299959453_dp, &
16411 442.472251954802_dp, &
16412 672.8167062941227_dp, &
16413 1031.0121854686051_dp, &
16414 1593.012339907218_dp, &
16415 2483.590841950321_dp, &
16416 3911.6669142200035_dp, &
16417 6238.5231601672385_dp, &
16418 10129.751559788456_dp, &
16419 16981.74160635827_dp, &
16420 30536.056841551963_dp, &
16421 65732.37502124789_dp, &
16422 245660.71368655932_dp/)
16423 ELSE IF (e_range < 276208.0_dp) THEN
16424 aw(:) = (/ &
16425 0.15704353232796245_dp, &
16426 0.4877544479660704_dp, &
16427 0.8705376156017336_dp, &
16428 1.3476766920864_dp, &
16429 1.9737426791979278_dp, &
16430 2.8227090946785225_dp, &
16431 3.997888328321955_dp, &
16432 5.646288443196994_dp, &
16433 7.979713585250564_dp, &
16434 11.306104853980733_dp, &
16435 16.076474036543857_dp, &
16436 22.955699193585055_dp, &
16437 32.930053373920856_dp, &
16438 47.47165037958756_dp, &
16439 68.79170082433475_dp, &
16440 100.23337165106483_dp, &
16441 146.88580759062535_dp, &
16442 216.55141603131435_dp, &
16443 321.2823482312382_dp, &
16444 479.84253008685556_dp, &
16445 721.6893163095895_dp, &
16446 1093.4758256486132_dp, &
16447 1669.780298225661_dp, &
16448 2571.0074565627824_dp, &
16449 3993.6144689187036_dp, &
16450 6261.819958404189_dp, &
16451 9917.405887043775_dp, &
16452 15878.648337580931_dp, &
16453 25729.53619615957_dp, &
16454 42273.37458242063_dp, &
16455 70711.43133488682_dp, &
16456 121772.29407575646_dp, &
16457 223895.20974520067_dp, &
16458 511167.1805753637_dp, &
16459 0.3168215245682693_dp, &
16460 0.35043246766637764_dp, &
16461 0.42209228667081694_dp, &
16462 0.5411651568675625_dp, &
16463 0.7231338255849368_dp, &
16464 0.9917838145432007_dp, &
16465 1.3827323888424163_dp, &
16466 1.948858523758149_dp, &
16467 2.7685520945936393_dp, &
16468 3.958248763359216_dp, &
16469 5.69155685455881_dp, &
16470 8.22860474914602_dp, &
16471 11.961351425605036_dp, &
16472 17.48401674923339_dp, &
16473 25.70334691811683_dp, &
16474 38.01255695679674_dp, &
16475 56.567920087611036_dp, &
16476 84.73230593273999_dp, &
16477 127.79279074297057_dp, &
16478 194.13262416830213_dp, &
16479 297.16429850617567_dp, &
16480 458.5516775688101_dp, &
16481 713.6415082198464_dp, &
16482 1120.7309215735056_dp, &
16483 1777.0914240859645_dp, &
16484 2847.100049696002_dp, &
16485 4612.5746467497465_dp, &
16486 7565.363105491919_dp, &
16487 12586.173245720442_dp, &
16488 21325.994478121225_dp, &
16489 37197.937321555175_dp, &
16490 68943.1032010462_dp, &
16491 150241.71258102785_dp, &
16492 557720.3208697784_dp/)
16493 ELSE IF (e_range < 852991.0_dp) THEN
16494 aw(:) = (/ &
16495 0.16336922513552726_dp, &
16496 0.5088837963863347_dp, &
16497 0.9134464251208241_dp, &
16498 1.4258068793865757_dp, &
16499 2.110076760757019_dp, &
16500 3.0549223319570658_dp, &
16501 4.386714080773768_dp, &
16502 6.288970678299134_dp, &
16503 9.031595056512524_dp, &
16504 13.015314763001339_dp, &
16505 18.83983365553746_dp, &
16506 27.40919724979278_dp, &
16507 40.09598751880866_dp, &
16508 58.99925287825027_dp, &
16509 87.35305062053737_dp, &
16510 130.1791624944713_dp, &
16511 195.3394286468929_dp, &
16512 295.2486883643026_dp, &
16513 449.6914179453214_dp, &
16514 690.5032975197853_dp, &
16515 1069.4420394766496_dp, &
16516 1671.582707097392_dp, &
16517 2638.4152977365293_dp, &
16518 4208.234704650762_dp, &
16519 6787.845837025887_dp, &
16520 11081.975915584215_dp, &
16521 18331.11464078846_dp, &
16522 30757.7543831196_dp, &
16523 52425.18373362508_dp, &
16524 90952.31947001838_dp, &
16525 161183.38574164535_dp, &
16526 294404.0420740371_dp, &
16527 571514.7455391894_dp, &
16528 1357785.7335867172_dp, &
16529 0.3298231494705116_dp, &
16530 0.3678238583365475_dp, &
16531 0.44931443538568944_dp, &
16532 0.5859423647480262_dp, &
16533 0.7971613283485441_dp, &
16534 1.1132755348536536_dp, &
16535 1.5804195782403758_dp, &
16536 2.26835630112171_dp, &
16537 3.2825754864813064_dp, &
16538 4.7831079906178315_dp, &
16539 7.01394730221803_dp, &
16540 10.349374600517876_dp, &
16541 15.367451600728_dp, &
16542 22.967563824366035_dp, &
16543 34.56004919104946_dp, &
16544 52.374936525753725_dp, &
16545 79.96951316778983_dp, &
16546 123.07138037510275_dp, &
16547 190.99409829094074_dp, &
16548 299.04206165572833_dp, &
16549 472.6466080518463_dp, &
16550 754.5744583501951_dp, &
16551 1217.6699793620016_dp, &
16552 1987.724673849413_dp, &
16553 3285.207068806235_dp, &
16554 5502.805705516988_dp, &
16555 9352.508394580818_dp, &
16556 16151.576514128332_dp, &
16557 28398.10726253618_dp, &
16558 51001.74394184054_dp, &
16559 94285.04834791286_dp, &
16560 183730.02847568074_dp, &
16561 411506.64532360405_dp, &
16562 1520426.766419325_dp/)
16563 ELSE
16564 aw(:) = (/ &
16565 0.1835103101234003_dp, &
16566 0.5774305061474206_dp, &
16567 1.057140472868453_dp, &
16568 1.697614005082806_dp, &
16569 2.6038279115366483_dp, &
16570 3.930849397069668_dp, &
16571 5.914914021102437_dp, &
16572 8.92301131893533_dp, &
16573 13.533362340789761_dp, &
16574 20.667776233995074_dp, &
16575 31.812016357593226_dp, &
16576 49.387219863328404_dp, &
16577 77.3839092638016_dp, &
16578 122.4588606715459_dp, &
16579 195.86011110608575_dp, &
16580 316.8577691536953_dp, &
16581 518.9611571628808_dp, &
16582 861.3906597021048_dp, &
16583 1450.6667756885272_dp, &
16584 2482.126411324662_dp, &
16585 4321.685991308644_dp, &
16586 7671.18540800507_dp, &
16587 13912.797854700362_dp, &
16588 25850.79390530169_dp, &
16589 49371.03198418239_dp, &
16590 97320.21724486594_dp, &
16591 199052.03066138524_dp, &
16592 425399.7542270562_dp, &
16593 959057.1525395216_dp, &
16594 2312357.9736451125_dp, &
16595 6088604.151380904_dp, &
16596 18133512.159556706_dp, &
16597 65418675.293680795_dp, &
16598 342296590.6151682_dp, &
16599 0.37142071027541074_dp, &
16600 0.4260563273244676_dp, &
16601 0.5456348676942346_dp, &
16602 0.752484593582803_dp, &
16603 1.0852868522175914_dp, &
16604 1.6073303748410037_dp, &
16605 2.4206700397850627_dp, &
16606 3.6897704463837764_dp, &
16607 5.681035810947625_dp, &
16608 8.82947962399161_dp, &
16609 13.852405454162984_dp, &
16610 21.945623429966453_dp, &
16611 35.126642589694754_dp, &
16612 56.843590502572916_dp, &
16613 93.0724205769061_dp, &
16614 154.32725344417676_dp, &
16615 259.4111633804356_dp, &
16616 442.5533297274132_dp, &
16617 767.2854489636625_dp, &
16618 1354.0674261637732_dp, &
16619 2436.7445344093326_dp, &
16620 4481.335149019925_dp, &
16621 8444.272788875625_dp, &
16622 16354.953153653125_dp, &
16623 32686.61977168015_dp, &
16624 67744.54837929386_dp, &
16625 146536.159793689_dp, &
16626 333651.2446730961_dp, &
16627 809207.8445405798_dp, &
16628 2126855.0754410354_dp, &
16629 6223266.011027118_dp, &
16630 21236461.045184538_dp, &
16631 92901077.9747871_dp, &
16632 681507114.6255051_dp/)
16633 END IF
16634 END SUBROUTINE
16635
16636END MODULE minimax_rpa
kinds
Defines the basic variable types.
Definition kinds.F:23
kinds::dp
integer, parameter, public dp
Definition kinds.F:34
minimax_rpa
Routines to calculate the minimax coefficients for approximating 1/x as 1/x ~ 1/pi SUM_{i}^{K} w_i x^...
Definition minimax_rpa.F:14
minimax_rpa::get_rpa_minimax_coeff_larger_grid
subroutine, public get_rpa_minimax_coeff_larger_grid(k, e_range, aw)
...
Definition minimax_rpa.F:10122
minimax_rpa::get_rpa_minimax_coeff
subroutine, public get_rpa_minimax_coeff(k, e_range, aw, ierr, print_warning)
The a_i and w_i coefficient are stored in aw such that the first 1:K elements correspond to a_i and t...
Definition minimax_rpa.F:41