(git:e7e05ae)
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 ! **************************************************************************************************
14 MODULE 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 
26 CONTAINS
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 
16636 END 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