(git:e7e05ae)
xc_xbecke88_lr_adiabatic.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 Calculates the density_scaled BECKE88 long-range functional
10 !> when used in adiabatic hybrids.
11 !> The energy is given as
12 !>
13 !> Ec = 2*lambda*Ex(rho/lambda) + lambda^2*d/dlambda(Ex(rho/lambda)),
14 !>
15 !> where rho/lambda is the scaled density
16 !> \par History
17 !> 01.2008 created [mguidon]
18 !> \author Manuel Guidon
19 ! **************************************************************************************************
20 MODULE xc_xbecke88_lr_adiabatic
21  USE bibliography, ONLY: becke1988,&
22  cite_reference
23  USE cp_array_utils, ONLY: cp_3d_r_cp_type
24  USE input_section_types, ONLY: section_vals_type,&
25  section_vals_val_get
26  USE kinds, ONLY: dp
27  USE mathconstants, ONLY: pi,&
28  rootpi
29  USE xc_derivative_desc, ONLY: deriv_norm_drho,&
30  deriv_norm_drhoa,&
31  deriv_norm_drhob,&
32  deriv_rho,&
33  deriv_rhoa,&
34  deriv_rhob
35  USE xc_derivative_set_types, ONLY: xc_derivative_set_type,&
36  xc_dset_get_derivative
37  USE xc_derivative_types, ONLY: xc_derivative_get,&
38  xc_derivative_type
39  USE xc_rho_cflags_types, ONLY: xc_rho_cflags_type
40  USE xc_rho_set_types, ONLY: xc_rho_set_get,&
41  xc_rho_set_type
42 #include "../base/base_uses.f90"
43 
44  IMPLICIT NONE
45  PRIVATE
46 
47  LOGICAL, PRIVATE, PARAMETER :: debug_this_module = .true.
48  CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'xc_xbecke88_lr_adiabatic'
49  REAL(kind=dp), PARAMETER :: beta = 0.0042_dp
50 
51  PUBLIC :: xb88_lr_adiabatic_lda_info, xb88_lr_adiabatic_lsd_info, &
52  xb88_lr_adiabatic_lda_eval, xb88_lr_adiabatic_lsd_eval
53 CONTAINS
54 
55 ! **************************************************************************************************
56 !> \brief return various information on the functional
57 !> \param reference string with the reference of the actual functional
58 !> \param shortform string with the shortform of the functional name
59 !> \param needs the components needed by this functional are set to
60 !> true (does not set the unneeded components to false)
61 !> \param max_deriv ...
62 !> \par History
63 !> 01.2008 created [mguidon]
64 !> \author Manuel Guidon
65 ! **************************************************************************************************
66  SUBROUTINE xb88_lr_adiabatic_lda_info(reference, shortform, needs, max_deriv)
67  CHARACTER(LEN=*), INTENT(OUT), OPTIONAL :: reference, shortform
68  TYPE(xc_rho_cflags_type), INTENT(inout), OPTIONAL :: needs
69  INTEGER, INTENT(out), OPTIONAL :: max_deriv
70 
71  IF (PRESENT(reference)) THEN
72  reference = "A. Becke, Phys. Rev. A 38, 3098 (1988) {LDA version}"
73  END IF
74  IF (PRESENT(shortform)) THEN
75  shortform = "Becke 1988 Exchange Functional (LDA)"
76  END IF
77  IF (PRESENT(needs)) THEN
78  needs%rho = .true.
79  needs%norm_drho = .true.
80  END IF
81  IF (PRESENT(max_deriv)) max_deriv = 1
82 
83  END SUBROUTINE xb88_lr_adiabatic_lda_info
84 
85 ! **************************************************************************************************
86 !> \brief return various information on the functional
87 !> \param reference string with the reference of the actual functional
88 !> \param shortform string with the shortform of the functional name
89 !> \param needs the components needed by this functional are set to
90 !> true (does not set the unneeded components to false)
91 !> \param max_deriv ...
92 !> \par History
93 !> 01.2008 created [mguidon]
94 !> \author Manuel Guidon
95 ! **************************************************************************************************
96  SUBROUTINE xb88_lr_adiabatic_lsd_info(reference, shortform, needs, max_deriv)
97  CHARACTER(LEN=*), INTENT(OUT), OPTIONAL :: reference, shortform
98  TYPE(xc_rho_cflags_type), INTENT(inout), OPTIONAL :: needs
99  INTEGER, INTENT(out), OPTIONAL :: max_deriv
100 
101  IF (PRESENT(reference)) THEN
102  reference = "A. Becke, Phys. Rev. A 38, 3098 (1988) {LSD version}"
103  END IF
104  IF (PRESENT(shortform)) THEN
105  shortform = "Becke 1988 Exchange Functional (LSD)"
106  END IF
107  IF (PRESENT(needs)) THEN
108  needs%rho_spin = .true.
109  needs%rho_spin_1_3 = .true.
110  needs%norm_drho_spin = .true.
111  END IF
112  IF (PRESENT(max_deriv)) max_deriv = 3
113 
114  END SUBROUTINE xb88_lr_adiabatic_lsd_info
115 
116 ! **************************************************************************************************
117 !> \brief evaluates the becke 88 longrange exchange functional for lda
118 !> \param rho_set the density where you want to evaluate the functional
119 !> \param deriv_set place where to store the functional derivatives (they are
120 !> added to the derivatives)
121 !> \param grad_deriv degree of the derivative that should be evaluated,
122 !> if positive all the derivatives up to the given degree are evaluated,
123 !> if negative only the given degree is calculated
124 !> \param xb88_lr_ad_params input parameters (scaling)
125 !> \par History
126 !> 01.2008 created [mguidon]
127 !> \author Manuel Guidon
128 ! **************************************************************************************************
129  SUBROUTINE xb88_lr_adiabatic_lda_eval(rho_set, deriv_set, grad_deriv, xb88_lr_ad_params)
130  TYPE(xc_rho_set_type), INTENT(IN) :: rho_set
131  TYPE(xc_derivative_set_type), INTENT(IN) :: deriv_set
132  INTEGER, INTENT(in) :: grad_deriv
133  TYPE(section_vals_type), POINTER :: xb88_lr_ad_params
134 
135  CHARACTER(len=*), PARAMETER :: routinen = 'xb88_lr_adiabatic_lda_eval'
136 
137  INTEGER :: handle, npoints
138  INTEGER, DIMENSION(2, 3) :: bo
139  REAL(kind=dp) :: epsilon_rho, lambda, omega, sx
140  REAL(kind=dp), CONTIGUOUS, DIMENSION(:, :, :), POINTER :: dummy, e_0, e_ndrho, &
141  e_ndrho_ndrho, e_ndrho_ndrho_ndrho, e_ndrho_ndrho_rho, e_ndrho_rho, e_ndrho_rho_rho, &
142  e_rho, e_rho_rho, e_rho_rho_rho, norm_drho, rho
143  TYPE(xc_derivative_type), POINTER :: deriv
144 
145  CALL timeset(routinen, handle)
146 
147  CALL section_vals_val_get(xb88_lr_ad_params, "SCALE_X", r_val=sx)
148  CALL section_vals_val_get(xb88_lr_ad_params, "OMEGA", r_val=omega)
149  CALL section_vals_val_get(xb88_lr_ad_params, "LAMBDA", r_val=lambda)
150 
151  CALL cite_reference(becke1988)
152 
153  CALL xc_rho_set_get(rho_set, rho=rho, &
154  norm_drho=norm_drho, local_bounds=bo, rho_cutoff=epsilon_rho)
155  npoints = (bo(2, 1) - bo(1, 1) + 1)*(bo(2, 2) - bo(1, 2) + 1)*(bo(2, 3) - bo(1, 3) + 1)
156 
157  dummy => rho
158 
159  e_0 => dummy
160  e_rho => dummy
161  e_ndrho => dummy
162  e_rho_rho => dummy
163  e_ndrho_rho => dummy
164  e_ndrho_ndrho => dummy
165  e_rho_rho_rho => dummy
166  e_ndrho_rho_rho => dummy
167  e_ndrho_ndrho_rho => dummy
168  e_ndrho_ndrho_ndrho => dummy
169 
170  IF (grad_deriv >= 0) THEN
171  deriv => xc_dset_get_derivative(deriv_set, [INTEGER::], &
172  allocate_deriv=.true.)
173  CALL xc_derivative_get(deriv, deriv_data=e_0)
174  END IF
175  IF (grad_deriv >= 1 .OR. grad_deriv == -1) THEN
176  deriv => xc_dset_get_derivative(deriv_set, [deriv_rho], &
177  allocate_deriv=.true.)
178  CALL xc_derivative_get(deriv, deriv_data=e_rho)
179  deriv => xc_dset_get_derivative(deriv_set, [deriv_norm_drho], &
180  allocate_deriv=.true.)
181  CALL xc_derivative_get(deriv, deriv_data=e_ndrho)
182  END IF
183  IF (grad_deriv >= 2 .OR. grad_deriv == -2) THEN
184  deriv => xc_dset_get_derivative(deriv_set, [deriv_rho, deriv_rho], &
185  allocate_deriv=.true.)
186  CALL xc_derivative_get(deriv, deriv_data=e_rho_rho)
187  deriv => xc_dset_get_derivative(deriv_set, [deriv_norm_drho, deriv_rho], &
188  allocate_deriv=.true.)
189  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho)
190  deriv => xc_dset_get_derivative(deriv_set, &
191  [deriv_norm_drho, deriv_norm_drho], allocate_deriv=.true.)
192  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho)
193  END IF
194  IF (grad_deriv >= 3 .OR. grad_deriv == -3) THEN
195  deriv => xc_dset_get_derivative(deriv_set, [deriv_rho, deriv_rho, deriv_rho], &
196  allocate_deriv=.true.)
197  CALL xc_derivative_get(deriv, deriv_data=e_rho_rho_rho)
198  deriv => xc_dset_get_derivative(deriv_set, &
199  [deriv_norm_drho, deriv_rho, deriv_rho], allocate_deriv=.true.)
200  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho_rho)
201  deriv => xc_dset_get_derivative(deriv_set, &
202  [deriv_norm_drho, deriv_norm_drho, deriv_rho], allocate_deriv=.true.)
203  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_rho)
204  deriv => xc_dset_get_derivative(deriv_set, &
205  [deriv_norm_drho, deriv_norm_drho, deriv_norm_drho], allocate_deriv=.true.)
206  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_ndrho)
207  END IF
208  IF (grad_deriv > 3 .OR. grad_deriv < -3) THEN
209  cpabort("derivatives bigger than 3 not implemented")
210  END IF
211 
212 !$OMP PARALLEL DEFAULT(NONE) &
213 !$OMP SHARED(rho, norm_drho, e_0, e_rho, e_ndrho, e_rho_rho) &
214 !$OMP SHARED(e_ndrho_rho, e_ndrho_ndrho, e_rho_rho_rho) &
215 !$OMP SHARED(e_ndrho_rho_rho, e_ndrho_ndrho_rho) &
216 !$OMP SHARED(e_ndrho_ndrho_ndrho, grad_deriv, npoints) &
217 !$OMP SHARED(epsilon_rho, sx, omega, lambda)
218 
219  CALL xb88_lr_adiabatic_lda_calc(rho=rho, norm_drho=norm_drho, &
220  e_0=e_0, e_rho=e_rho, e_ndrho=e_ndrho, e_rho_rho=e_rho_rho, &
221  e_ndrho_rho=e_ndrho_rho, e_ndrho_ndrho=e_ndrho_ndrho, &
222  e_rho_rho_rho=e_rho_rho_rho, e_ndrho_rho_rho=e_ndrho_rho_rho, &
223  e_ndrho_ndrho_rho=e_ndrho_ndrho_rho, &
224  e_ndrho_ndrho_ndrho=e_ndrho_ndrho_ndrho, grad_deriv=grad_deriv, &
225  npoints=npoints, epsilon_rho=epsilon_rho, &
226  sx=sx, omega=omega, lambda=lambda)
227 
228 !$OMP END PARALLEL
229 
230  CALL timestop(handle)
231  END SUBROUTINE xb88_lr_adiabatic_lda_eval
232 
233 ! **************************************************************************************************
234 !> \brief low level calculation of the becke 88 exchange functional for lda
235 !> \param rho alpha or beta spin density
236 !> \param norm_drho || grad rho ||
237 !> \param e_0 adds to it the local value of the functional
238 !> \param e_rho e_*: derivative of the functional wrt. to the variables
239 !> named where the * is. Everything wrt. to the spin of the arguments.
240 !> \param e_ndrho ...
241 !> \param e_rho_rho ...
242 !> \param e_ndrho_rho ...
243 !> \param e_ndrho_ndrho ...
244 !> \param e_rho_rho_rho ...
245 !> \param e_ndrho_rho_rho ...
246 !> \param e_ndrho_ndrho_rho ...
247 !> \param e_ndrho_ndrho_ndrho ...
248 !> \param grad_deriv ...
249 !> \param npoints ...
250 !> \param epsilon_rho ...
251 !> \param sx scaling-parameter for exchange
252 !> \param omega parameter for erfc
253 !> \param lambda ...
254 !> \par History
255 !> 01.2008 created [mguidon]
256 !> \author Manuel Guidon
257 !> \note
258 !> - Just took the lsd code and scaled rho and ndrho by 1/2 (e_0 with 2.0)
259 ! **************************************************************************************************
260  SUBROUTINE xb88_lr_adiabatic_lda_calc(rho, norm_drho, &
261  e_0, e_rho, e_ndrho, e_rho_rho, e_ndrho_rho, &
262  e_ndrho_ndrho, e_rho_rho_rho, e_ndrho_rho_rho, e_ndrho_ndrho_rho, &
263  e_ndrho_ndrho_ndrho, grad_deriv, npoints, epsilon_rho, sx, &
264  omega, lambda)
265  INTEGER, INTENT(in) :: npoints, grad_deriv
266  REAL(kind=dp), DIMENSION(1:npoints), INTENT(inout) :: e_ndrho_ndrho_ndrho, &
267  e_ndrho_ndrho_rho, e_ndrho_rho_rho, e_rho_rho_rho, e_ndrho_ndrho, e_ndrho_rho, e_rho_rho, &
268  e_ndrho, e_rho, e_0
269  REAL(kind=dp), DIMENSION(1:npoints), INTENT(in) :: norm_drho, rho
270  REAL(kind=dp), INTENT(in) :: epsilon_rho, sx, omega, lambda
271 
272  INTEGER :: ii
273  REAL(kind=dp) :: cx, epsilon_rho43, my_epsilon_rho, my_ndrho, my_rho, t1, t10, t1000, t1002, &
274  t1004, t1008, t1012, t1014, t1019, t102, t1021, t1024, t1026, t103, t1030, t1033, t1034, &
275  t1036, t104, t1040, t1044, t1046, t105, t1050, t1054, t1055, t1056, t1058, t1059, t106, &
276  t1060, t1063, t1064, t1067, t1068, t107, t1071, t1076, t1079, t108, t1082, t1085, t1089, &
277  t1093, t1097, t1099, t11, t1100, t1101, t1106, t1109, t1111, t1119, t112, t1122, t1125, &
278  t1126, t1129, t1134, t1137, t114, t1140, t1141, t1142, t1143, t115, t1150, t1157, t116, &
279  t1161, t1168, t1172, t1176, t1189, t119, t1191, t1192, t1193
280  REAL(kind=dp) :: t1194, t12, t1200, t1201, t1206, t1207, t1210, t1213, t1216, t122, t1221, &
281  t1224, t123, t1235, t1238, t1239, t1246, t1247, t1254, t126, t1264, t1268, t1275, t1283, &
282  t1284, t1288, t1292, t13, t130, t1300, t1301, t1302, t1309, t131, t1316, t132, t1320, &
283  t133, t1333, t1340, t1347, t1348, t136, t1360, t1367, t1368, t137, t1372, t1373, t1377, &
284  t1387, t1388, t1392, t1396, t1397, t14, t140, t1401, t1406, t1408, t1409, t141, t1410, &
285  t1411, t1413, t1417, t1420, t1425, t1426, t1429, t1436, t1438, t1439, t144, t1440, t1443, &
286  t1444, t1447, t145, t1451, t1455, t1459, t146, t1466, t147, t1470
287  REAL(kind=dp) :: t1471, t1476, t1479, t1482, t1483, t1485, t1489, t149, t1492, t1493, t1496, &
288  t1498, t15, t150, t1500, t1502, t1504, t1505, t1506, t1507, t1509, t151, t1510, t1512, &
289  t1513, t1515, t1517, t1518, t1519, t1523, t1525, t1528, t1530, t1531, t1535, t1536, &
290  t1541, t1543, t1545, t1546, t1547, t1549, t155, t1552, t1553, t1556, t1557, t156, t1560, &
291  t1563, t1564, t1565, t1568, t1570, t1571, t1574, t1575, t1577, t1579, t1581, t1582, &
292  t1584, t1586, t1588, t1589, t1591, t1592, t1594, t1596, t1597, t1598, t1599, t16, t160, &
293  t1601, t1602, t1603, t1605, t1607, t1608, t161, t1610, t1611, t1613
294  REAL(kind=dp) :: t1615, t1616, t1617, t1618, t1620, t1621, t1622, t1624, t1625, t1626, &
295  t1628, t1630, t1631, t1632, t1634, t1636, t1638, t164, t1640, t1642, t1644, t1645, t1647, &
296  t1649, t165, t1652, t1654, t1656, t1658, t166, t1660, t1662, t1664, t1667, t1669, t1671, &
297  t1675, t1677, t1679, t1680, t1681, t1684, t1685, t1688, t1689, t1693, t1694, t1696, &
298  t1699, t17, t170, t1700, t1702, t1703, t1705, t1706, t1708, t1709, t171, t1712, t1714, &
299  t1715, t1717, t1718, t1719, t172, t1720, t1722, t1724, t1726, t1728, t1730, t1731, t1735, &
300  t1737, t1740, t1741, t1743, t1745, t1748, t1752, t1754, t1755, t1757
301  REAL(kind=dp) :: t1758, t176, t1760, t1762, t1763, t1765, t1766, t1768, t1769, t177, t1773, &
302  t1774, t1776, t1777, t1779, t178, t1782, t1784, t1785, t1787, t1789, t1790, t1794, t1795, &
303  t1797, t18, t1800, t1801, t1804, t1807, t1810, t1811, t1814, t1817, t182, t1821, t1822, &
304  t1824, t1825, t1828, t1829, t183, t1832, t1835, t1836, t1837, t1838, t1842, t1843, t1849, &
305  t1852, t1854, t1858, t1861, t1864, t1865, t1868, t187, t1871, t1874, t1875, t1878, t1881, &
306  t1884, t1885, t1886, t189, t1891, t1892, t1895, t1898, t19, t1901, t1902, t1905, t1908, &
307  t1912, t1914, t1917, t192, t1920, t1923, t1924, t1925
308  REAL(kind=dp) :: t1928, t1932, t1938, t1939, t194, t1940, t1943, t1946, t195, t1952, t1954, &
309  t1958, t196, t1961, t1962, t1965, t1966, t1969, t1971, t1972, t1973, t1974, t1975, t1977, &
310  t1980, t1981, t1984, t1987, t1988, t199, t1991, t1994, t1997, t20, t200, t2000, t2001, &
311  t2002, t2006, t2009, t2013, t2014, t2018, t2022, t2027, t2028, t203, t2031, t2032, t2035, &
312  t2042, t2046, t2050, t2054, t2057, t2058, t2061, t207, t2073, t2074, t2077, t2081, t2082, &
313  t2086, t2088, t2095, t2098, t2099, t2104, t2107, t2113, t2114, t2117, t2118, t2124, &
314  t2126, t2130, t2131, t2138, t2139, t214, t2143, t2147, t2160
315  REAL(kind=dp) :: t2169, t217, t218, t2182, t2183, t2187, t219, t2190, t2193, t2196, t2197, &
316  t22, t220, t2200, t2201, t2204, t2205, t221, t2220, t2226, t2227, t2230, t224, t225, &
317  t2257, t2261, t2264, t2268, t2272, t2274, t2276, t2279, t2280, t2281, t2282, t2285, &
318  t2287, t2292, t2295, t2296, t2299, t23, t230, t2300, t2304, t2307, t2308, t2311, t2312, &
319  t2319, t2326, t233, t234, t2351, t2368, t237, t2378, t2382, t2392, t24, t2404, t2418, &
320  t2424, t2437, t2439, t245, t2451, t2455, t2468, t2480, t249, t2492, t25, t250, t2537, &
321  t2552, t2565, t2569, t2576, t2585, t26, t260, t2611, t262, t2621, t2622
322  REAL(kind=dp) :: t2631, t2635, t2636, t264, t2645, t2655, t266, t267, t268, t27, t2707, &
323  t271, t2720, t2724, t2732, t274, t275, t2759, t2763, t2779, t278, t2783, t2808, t2816, &
324  t282, t2821, t2823, t283, t2833, t2843, t2853, t2869, t2873, t2877, t2885, t289, t290, &
325  t2935, t2937, t294, t295, t298, t299, t2992, t2994, t2998, t302, t3026, t3030, t306, &
326  t3069, t307, t3070, t308, t3085, t309, t3093, t3097, t3098, t31, t311, t3129, t313, &
327  t3141, t316, t317, t318, t3181, t321, t322, t3232, t3244, t3248, t326, t3262, t3264, &
328  t3268, t327, t3278, t328, t3288, t329, t3291, t3305, t3306, t3314, t332, t3329
329  REAL(kind=dp) :: t3339, t3344, t3347, t3352, t3353, t3356, t3357, t336, t3362, t3363, t3366, &
330  t3378, t3379, t3382, t339, t341, t342, t343, t3449, t3453, t347, t3472, t3491, t3494, &
331  t3497, t35, t350, t3501, t3505, t3507, t3512, t3513, t3514, t352, t3525, t3533, t3543, &
332  t3546, t3547, t3552, t3553, t356, t3561, t3569, t357, t3575, t3576, t3580, t3581, t36, &
333  t360, t3608, t3618, t362, t365, t366, t3668, t367, t3673, t3674, t3677, t3679, t368, &
334  t3682, t37, t371, t3711, t372, t3726, t375, t3750, t376, t3763, t379, t3794, t3796, t380, &
335  t3826, t3827, t383, t384, t3842, t3849, t3853, t3861, t3865, t3869
336  REAL(kind=dp) :: t387, t3871, t3875, t3892, t3918, t392, t3925, t393, t3933, t3939, t394, &
337  t3940, t3965, t3969, t3975, t3979, t398, t3985, t399, t4, t40, t400, t401, t4010, t4018, &
338  t4025, t4032, t405, t406, t4070, t4079, t41, t4101, t4108, t413, t4140, t4156, t417, t42, &
339  t4201, t4214, t4230, t424, t425, t4255, t4256, t4261, t4272, t428, t429, t4292, t43, &
340  t4317, t433, t4345, t4352, t437, t4378, t4392, t44, t4428, t444, t445, t446, t4466, &
341  t4498, t45, t450, t4505, t451, t4512, t4545, t455, t4553, t4575, t4585, t46, t4607, t462, &
342  t4627, t4657, t466, t4696, t47, t470, t4700, t4701, t4704, t4707
343  REAL(kind=dp) :: t4708, t471, t4713, t4714, t4717, t472, t4721, t4725, t4726, t4729, t473, &
344  t4732, t4733, t4734, t4736, t4738, t4739, t474, t4743, t4744, t4748, t4760, t4764, t4768, &
345  t4769, t4770, t4771, t4772, t4776, t478, t4782, t4786, t4789, t479, t4790, t4793, t4796, &
346  t4797, t48, t4800, t4801, t4804, t4808, t4812, t4817, t4820, t4829, t4830, t4833, t4834, &
347  t4837, t4838, t4849, t4850, t4853, t4857, t4861, t4864, t4869, t4872, t4874, t4878, &
348  t4881, t4884, t4887, t4889, t489, t4893, t4895, t4897, t4898, t49, t4901, t4904, t4905, &
349  t4907, t4908, t4909, t4911, t4915, t4917, t4918, t4920, t4922
350  REAL(kind=dp) :: t4925, t4929, t4932, t4935, t4940, t4941, t4943, t4945, t4946, t4951, &
351  t4952, t4955, t4958, t496, t498, t4994, t4995, t50, t500, t5001, t5002, t5005, t5008, &
352  t5009, t5011, t5013, t5016, t5019, t5022, t5025, t5028, t5029, t503, t5032, t5035, t5036, &
353  t5040, t5043, t5044, t5047, t5050, t5051, t5060, t5065, t5069, t5079, t508, t5083, t5087, &
354  t5106, t5108, t511, t5115, t5118, t512, t5122, t5123, t5126, t5139, t5143, t5147, t515, &
355  t516, t5163, t517, t5170, t5174, t520, t5226, t5228, t5229, t5237, t5244, t5247, t5251, &
356  t5256, t526, t5262, t527, t5270, t5271, t5276, t5280, t5281, t5284
357  REAL(kind=dp) :: t5291, t5294, t5295, t5298, t53, t530, t5301, t5303, t5305, t5308, t531, &
358  t5311, t5314, t5317, t5320, t5323, t5326, t5329, t5330, t5333, t5335, t5338, t5339, t534, &
359  t5342, t5343, t5345, t5347, t5351, t5354, t5357, t5360, t5363, t5367, t537, t5370, t5371, &
360  t5373, t5376, t5379, t5383, t5386, t5389, t5397, t5400, t5402, t5406, t5409, t541, t5412, &
361  t5415, t5418, t5421, t5423, t5426, t5429, t5430, t5432, t5436, t5440, t5443, t5446, &
362  t5449, t5451, t5454, t5456, t5459, t5460, t5462, t5466, t5468, t5469, t5472, t5474, &
363  t5478, t5480, t5482, t5484, t5487, t5489, t5492, t5494, t5496, t5499
364  REAL(kind=dp) :: t55, t550, t5503, t5507, t5509, t551, t5511, t5516, t5523, t5525, t5528, &
365  t5531, t5533, t5535, t5537, t5540, t5541, t5545, t5548, t5551, t5553, t5558, t5560, &
366  t5562, t5564, t5565, t5568, t557, t5572, t5574, t5575, t5579, t558, t5581, t5585, t5590, &
367  t5593, t5595, t5597, t56, t5600, t5602, t5604, t5607, t561, t5610, t5611, t5613, t5619, &
368  t5622, t5625, t5628, t5631, t5632, t5635, t5638, t5641, t5643, t5647, t5650, t5653, &
369  t5657, t566, t5660, t5663, t5666, t5667, t567, t5670, t5671, t5673, t5676, t5679, t5682, &
370  t5686, t5689, t569, t5692, t5695, t5696, t5698, t5699, t57, t5701, t5705
371  REAL(kind=dp) :: t5713, t5716, t5719, t5722, t5724, t5728, t5731, t5734, t5738, t5741, &
372  t5742, t5745, t5749, t575, t5752, t5756, t5760, t5767, t5770, t5773, t5776, t5780, t5783, &
373  t5786, t5789, t579, t5792, t5795, t5797, t58, t5801, t5804, t5807, t5810, t5813, t5816, &
374  t5819, t5822, t5825, t5828, t5830, t5831, t5833, t5835, t5838, t5841, t5845, t5848, t585, &
375  t5850, t5854, t5857, t5861, t5864, t5868, t5869, t5875, t5880, t5881, t5885, t5888, t589, &
376  t5891, t5898, t59, t590, t5902, t5905, t5908, t5911, t5913, t5918, t5922, t5925, t5926, &
377  t5929, t593, t5932, t5938, t5940, t5942, t5944, t5949, t5952
378  REAL(kind=dp) :: t5954, t5956, t5958, t5960, t5963, t5964, t5966, t597, t5971, t5973, t5975, &
379  t5977, t5978, t598, t5985, t5990, t5994, t5996, t6, t60, t6000, t6002, t6004, t6006, &
380  t6009, t6017, t6019, t6021, t6023, t6025, t6029, t6031, t6033, t6036, t6040, t6042, &
381  t6044, t6047, t6049, t605, t6052, t6053, t6056, t6058, t6060, t6063, t6066, t6074, t6075, &
382  t6078, t6079, t608, t6087, t609, t6090, t6091, t6094, t6099, t61, t6102, t6106, t6109, &
383  t6112, t6116, t6119, t6123, t6126, t6129, t6132, t6136, t6138, t614, t6141, t6144, t615, &
384  t6155, t6158, t6160, t6162, t6170, t6173, t6175, t6179, t6181, t6185
385  REAL(kind=dp) :: t6186, t6189, t6192, t6194, t6198, t62, t6201, t6207, t6210, t6213, t6216, &
386  t6219, t6222, t6223, t6227, t624, t6247, t6249, t6252, t6253, t6256, t6257, t6260, t6263, &
387  t6267, t6268, t627, t6271, t628, t6281, t6283, t6290, t6291, t63, t6308, t6338, t6339, &
388  t6344, t635, t6352, t6363, t6367, t637, t6370, t6373, t6375, t6380, t6389, t640, t6400, &
389  t6415, t6428, t6433, t6442, t645, t6451, t646, t6461, t6479, t649, t6490, t6499, t65, &
390  t650, t6509, t6529, t653, t6539, t6554, t6557, t6569, t657, t658, t6583, t6596, t66, &
391  t6603, t6611, t6620, t6621, t6630, t6640, t6658, t6665, t6669, t668
392  REAL(kind=dp) :: t67, t672, t673, t679, t68, t689, t69, t7, t70, t705, t707, t708, t709, &
393  t71, t710, t713, t716, t719, t722, t723, t728, t729, t732, t735, t739, t74, t747, t753, &
394  t754, t764, t765, t766, t769, t772, t773, t776, t777, t78, t782, t785, t786, t787, t79, &
395  t790, t792, t795, t796, t797, t8, t800, t801, t804, t815, t822, t826, t827, t83, t833, &
396  t84, t85, t851, t852, t855, t857, t859, t86, t862, t863, t864, t865, t866, t867, t87, &
397  t874, t877, t878, t88, t881, t882, t886, t889, t893, t894, t897, t9, t905, t906, t907, &
398  t914, t918, t92, t922, t923, t926, t929, t93, t930, t94, t940, t941
399  REAL(kind=dp) :: t942, t944, t946, t949, t95, t950, t953, t954, t955, t958, t959, t962, &
400  t963, t966, t969, t97, t972, t973, t974, t975, t976, t979, t98, t980, t983, t984, t987, &
401  t99, t991, t995, t997, xx
402 
403  my_epsilon_rho = epsilon_rho
404  epsilon_rho43 = my_epsilon_rho**(4.0_dp/3.0_dp)
405  cx = 1.5_dp*(3.0_dp/4.0_dp/pi)**(1.0_dp/3.0_dp)
406 
407 !$OMP DO
408  DO ii = 1, npoints
409  !! scale densities with 0.5 because code comes from LSD
410  my_rho = rho(ii)*0.5_dp
411  my_ndrho = norm_drho(ii)*0.5_dp
412  IF (my_rho > my_epsilon_rho) THEN
413  IF (grad_deriv >= 0) THEN
414  t1 = my_rho**(0.1e1_dp/0.3e1_dp)
415  xx = my_ndrho*max(1.0_dp/t1/my_rho, epsilon_rho43)
416  t4 = lambda*my_rho
417  t6 = my_ndrho**2
418  t7 = beta*t6
419  t8 = lambda**2
420  t9 = t8**2
421  t10 = t9**2
422  t11 = 0.1e1_dp/t10
423  t12 = my_rho**2
424  t13 = t9*t8
425  t14 = 0.1e1_dp/t13
426  t15 = t12*t14
427  t16 = t8*lambda
428  t17 = 0.1e1_dp/t16
429  t18 = my_rho*t17
430  t19 = t18**(0.1e1_dp/0.3e1_dp)
431  t20 = t19**2
432  t22 = 0.1e1_dp/t20/t15
433  t23 = t11*t22
434  t24 = beta*my_ndrho
435  t25 = 0.1e1_dp/t9
436  t26 = t19*t18
437  t27 = 0.1e1_dp/t26
438  t31 = log(my_ndrho*t25*t27 + sqrt((my_ndrho*t25*t27)**0.2e1_dp + &
439  0.1e1_dp))
440  t35 = 0.10e1_dp + 0.60e1_dp*t24*t25*t27*t31
441  t36 = 0.1e1_dp/t35
442  t37 = t23*t36
443  t40 = 0.20e1_dp*cx + 0.20e1_dp*t7*t37
444  t41 = sqrt(t40)
445  t42 = t41*t40
446  t43 = t4*t42
447  t44 = rootpi
448  t45 = 0.1e1_dp/t44
449  t46 = omega*t45
450  t47 = 0.1e1_dp/omega
451  t48 = 0.1e1_dp/t41
452  t49 = t47*t48
453  t50 = t44*t19
454  t53 = erf(0.3000000000e1_dp*t49*t50)
455  t55 = omega*t41
456  t56 = 0.1e1_dp/t19
457  t57 = t45*t56
458  t58 = omega**2
459  t59 = 0.1e1_dp/t58
460  t60 = 0.1e1_dp/t40
461  t61 = t59*t60
462  t62 = pi*t20
463  t63 = t61*t62
464  t65 = exp(-0.8999999998e1_dp*t63)
465  t66 = t58*t40
466  t67 = 0.1e1_dp/pi
467  t68 = 0.1e1_dp/t20
468  t69 = t67*t68
469  t70 = t65 - 0.10e1_dp
470  t71 = t69*t70
471  t74 = t65 - 0.15e1_dp - 0.5555555558e-1_dp*t66*t71
472  t78 = t44*t53 + 0.3333333334e0_dp*t55*t57*t74
473  t79 = t46*t78
474  t83 = my_rho*t41*omega
475  t84 = t45*t78
476  t85 = t10*lambda
477  t86 = 0.1e1_dp/t85
478  t87 = t86*t22
479  t88 = t87*t36
480  t92 = 0.1e1_dp/t10/t9
481  t93 = t7*t92
482  t94 = t12*my_rho
483  t95 = t94*t86
484  t97 = 0.1e1_dp/t20/t95
485  t98 = t97*t36
486  t99 = t98*my_rho
487  t102 = t7*t11
488  t103 = t35**2
489  t104 = 0.1e1_dp/t103
490  t105 = t22*t104
491  t106 = t9*lambda
492  t107 = 0.1e1_dp/t106
493  t108 = t107*t27
494  t112 = t24*t11
495  t114 = 0.1e1_dp/t19/t15
496  t115 = t114*t31
497  t116 = t115*my_rho
498  t119 = t24*t25
499  t122 = my_ndrho*t11
500  t123 = t114*my_rho
501  t126 = -4*my_ndrho*t107*t27 + 4*t122*t123
502  t130 = 1 + t6*t11*t22
503  t131 = sqrt(t130)
504  t132 = 0.1e1_dp/t131
505  t133 = t27*t126*t132
506  t136 = -0.240e2_dp*t24*t108*t31 + 0.240e2_dp*t112*t116 + 0.60e1_dp &
507  *t119*t133
508  t137 = t105*t136
509  t140 = -0.160e2_dp*t7*t88 + 0.160e2_dp*t93*t99 - 0.20e1_dp*t102* &
510  t137
511  t141 = t84*t140
512  t144 = my_rho*t42
513  t145 = sqrt(0.3141592654e1_dp)
514  t146 = 0.1e1_dp/t145
515  t147 = t44*t146
516  t149 = exp(-0.9000000000e1_dp*t63)
517  t150 = 0.1e1_dp/t42
518  t151 = t47*t150
519  t155 = t49*t44
520  t156 = t68*my_rho
521  t160 = -0.1500000000e1_dp*t151*t50*t140 - 0.3000000000e1_dp*t155 &
522  *t156*t25
523  t161 = t149*t160
524  t164 = omega*t48
525  t165 = t164*t45
526  t166 = t56*t74
527  t170 = t55*t45
528  t171 = t27*t74
529  t172 = my_rho*t25
530  t176 = t40**2
531  t177 = 0.1e1_dp/t176
532  t178 = t59*t177
533  t182 = t61*pi
534  t183 = t56*my_rho
535  t187 = 0.8999999998e1_dp*t178*t62*t140 + 0.1800000000e2_dp*t182* &
536  t183*t25
537  t189 = t58*t140
538  t192 = t66*t67
539  t194 = 0.1e1_dp/t20/t18
540  t195 = t194*t70
541  t196 = t195*t172
542  t199 = t68*t187
543  t200 = t199*t65
544  t203 = t187*t65 - 0.5555555558e-1_dp*t189*t71 - 0.1111111112e0_dp* &
545  t192*t196 - 0.5555555558e-1_dp*t192*t200
546  t207 = (2*t147*t161) + 0.1666666667e0_dp*t165*t166*t140 &
547  + 0.3333333334e0_dp*t170*t171*t172 + 0.3333333334e0_dp*t55*t57 &
548  *t203
549  !! Multiply with 2.0 because Code comes from LSD
550 
551  e_0(ii) = e_0(ii) + (-0.4444444448e0_dp*t43*t79 + t8*(-0.3333333336e0_dp*t83*t141 &
552  - 0.2222222224e0_dp*t144*t46*t207))*sx*2.0_dp
553  END IF
554  IF (grad_deriv >= 1 .OR. grad_deriv == -1) THEN
555  t214 = lambda*t42
556  t217 = t4*t41
557  t218 = t10*t16
558  t219 = 0.1e1_dp/t218
559  t220 = t219*t97
560  t221 = t220*t36
561  t224 = t9*t16
562  t225 = 0.1e1_dp/t224
563  t230 = t220*t132
564  t233 = -0.8000000000e1_dp*t24*t225*t114*t31 - 0.8000000000e1_dp* &
565  t7*t230
566  t234 = t105*t233
567  t237 = -0.5333333333e1_dp*t7*t221 - 0.20e1_dp*t102*t234
568  t245 = t44*t68
569  t249 = -0.1500000000e1_dp*t151*t50*t237 + 0.1000000000e1_dp*t49* &
570  t245*t17
571  t250 = t149*t249
572  t260 = t178*t62*t237
573  t262 = pi*t56
574  t264 = t61*t262*t17
575  t266 = 0.8999999998e1_dp*t260 - 0.5999999999e1_dp*t264
576  t267 = t266*t65
577  t268 = t58*t237
578  t271 = t195*t17
579  t274 = t68*t266
580  t275 = t274*t65
581  t278 = t267 - 0.5555555558e-1_dp*t268*t71 + 0.3703703705e-1_dp*t192 &
582  *t271 - 0.5555555558e-1_dp*t192*t275
583  t282 = (2*t147*t250) + 0.1666666667e0_dp*t165*t166*t237 &
584  - 0.1111111111e0_dp*t170*t171*t17 + 0.3333333334e0_dp*t55*t57 &
585  *t278
586  t283 = t46*t282
587  t289 = my_rho*t48*omega
588  t290 = t140*t237
589  t294 = t45*t282
590  t295 = t294*t140
591  t298 = t92*t97
592  t299 = t298*t36
593  t302 = t7*t86
594  t306 = 0.1e1_dp/t10/t224
595  t307 = t7*t306
596  t308 = t12**2
597  t309 = t308*t92
598  t311 = 0.1e1_dp/t20/t309
599  t313 = t311*t36*my_rho
600  t316 = t97*t104
601  t317 = my_rho*t233
602  t318 = t316*t317
603  t321 = t7*t219
604  t322 = t316*t136
605  t326 = 0.1e1_dp/t103/t35
606  t327 = t22*t326
607  t328 = t136*t233
608  t329 = t327*t328
609  t332 = t11*t114
610  t336 = t298*t132
611  t339 = t24*t219
612  t341 = 0.1e1_dp/t19/t95
613  t342 = t341*t31
614  t343 = t342*my_rho
615  t347 = t311*t132*my_rho
616  t350 = t24*t225
617  t352 = t114*t126*t132
618  t356 = my_ndrho*t219
619  t357 = t341*my_rho
620  t360 = 0.28e2_dp/0.3e1_dp*t122*t114 - 0.28e2_dp/0.3e1_dp*t356*t357
621  t362 = t27*t360*t132
622  t365 = t6*my_ndrho
623  t366 = beta*t365
624  t367 = t308*my_rho
625  t368 = 0.1e1_dp/t367
626  t371 = 0.1e1_dp/t131/t130
627  t372 = t368*t126*t371
628  t375 = 0.5600000000e2_dp*t24*t332*t31 + 0.3200000000e2_dp*t7*t336 &
629  - 0.5600000000e2_dp*t339*t343 - 0.3200000000e2_dp*t307*t347 - &
630  0.8000000000e1_dp*t350*t352 + 0.60e1_dp*t119*t362 + 0.8000000000e1_dp &
631  *t366*t372
632  t376 = t105*t375
633  t379 = 0.5866666667e2_dp*t7*t299 + 0.160e2_dp*t302*t234 - 0.5866666667e2_dp &
634  *t307*t313 - 0.160e2_dp*t93*t318 + 0.5333333333e1_dp*t321 &
635  *t322 + 0.40e1_dp*t102*t329 - 0.20e1_dp*t102*t376
636  t380 = t84*t379
637  t383 = t42*omega
638  t384 = t45*t207
639  t387 = t384*t237
640  t392 = 0.9000000000e1_dp*t260 - 0.6000000000e1_dp*t264
641  t393 = t392*t149
642  t394 = t393*t160
643  t398 = 0.1e1_dp/t41/t176
644  t399 = t47*t398
645  t400 = t399*t44
646  t401 = t19*t140
647  t405 = t151*t44
648  t406 = t68*t140
649  t413 = t25*t237
650  t417 = t194*my_rho
651  t424 = 0.2250000000e1_dp*t400*t401*t237 - 0.5000000000e0_dp*t405 &
652  *t406*t17 - 0.1500000000e1_dp*t151*t50*t379 + 0.1500000000e1_dp &
653  *t405*t156*t413 + 0.2000000000e1_dp*t155*t417*t225 - 0.3000000000e1_dp &
654  *t49*t245*t25
655  t425 = t149*t424
656  t428 = omega*t150
657  t429 = t428*t45
658  t433 = t140*t17
659  t437 = t56*t278
660  t444 = t45*t27
661  t445 = t164*t444
662  t446 = t74*my_rho
663  t450 = t114*t74
664  t451 = my_rho*t225
665  t455 = t27*t278
666  t462 = t56*t203
667  t466 = t27*t203
668  t470 = t176*t40
669  t471 = 0.1e1_dp/t470
670  t472 = t59*t471
671  t473 = t472*pi
672  t474 = t20*t140
673  t478 = t178*pi
674  t479 = t56*t140
675  t489 = t27*my_rho
676  t496 = -0.1800000000e2_dp*t473*t474*t237 + 0.5999999999e1_dp*t478 &
677  *t479*t17 + 0.8999999998e1_dp*t178*t62*t379 - 0.1800000000e2_dp &
678  *t478*t183*t413 - 0.6000000000e1_dp*t182*t489*t225 + 0.1800000000e2_dp &
679  *t61*t262*t25
680  t498 = t187*t266
681  t500 = t58*t379
682  t503 = t189*t67
683  t508 = t268*t67
684  t511 = t22*t70
685  t512 = t511*t451
686  t515 = t67*t194
687  t516 = t66*t515
688  t517 = t267*t172
689  t520 = t195*t25
690  t526 = t65*t17
691  t527 = t194*t187*t526
692  t530 = t68*t496
693  t531 = t530*t65
694  t534 = t199*t267
695  t537 = t496*t65 + t498*t65 - 0.5555555558e-1_dp*t500*t71 + 0.3703703705e-1_dp &
696  *t503*t271 - 0.5555555558e-1_dp*t503*t275 - 0.1111111112e0_dp &
697  *t508*t196 + 0.1851851853e0_dp*t192*t512 - 0.1111111112e0_dp &
698  *t516*t517 - 0.1111111112e0_dp*t192*t520 - 0.5555555558e-1_dp &
699  *t508*t200 + 0.3703703705e-1_dp*t192*t527 - 0.5555555558e-1_dp &
700  *t192*t531 - 0.5555555558e-1_dp*t192*t534
701  t541 = (2*t147*t394) + (2*t147*t425) - 0.8333333335e-1_dp &
702  *t429*t166*t290 - 0.5555555557e-1_dp*t165*t171*t433 + &
703  0.1666666667e0_dp*t165*t437*t140 + 0.1666666667e0_dp*t165*t166 &
704  *t379 + 0.1666666667e0_dp*t445*t446*t413 - 0.4444444445e0_dp*t170 &
705  *t450*t451 + 0.3333333334e0_dp*t170*t455*t172 + 0.3333333334e0_dp &
706  *t170*t171*t25 + 0.1666666667e0_dp*t165*t462*t237 - &
707  0.1111111111e0_dp*t170*t466*t17 + 0.3333333334e0_dp*t55*t57* &
708  t537
709  e_rho(ii) = e_rho(ii) + (-0.4444444448e0_dp*t214*t79 - 0.6666666672e0_dp*t217*t46 &
710  *t78*t237 - 0.4444444448e0_dp*t43*t283 + t8*(-0.3333333336e0_dp &
711  *t55*t141 - 0.1666666668e0_dp*t289*t84*t290 - 0.3333333336e0_dp &
712  *t83*t295 - 0.3333333336e0_dp*t83*t380 - 0.2222222224e0_dp*t383 &
713  *t384 - 0.3333333336e0_dp*t83*t387 - 0.2222222224e0_dp*t144* &
714  t46*t541))*sx
715  t550 = beta*t25
716  t551 = t27*t31
717  t557 = 0.60e1_dp*t550*t551 + 0.60e1_dp*t24*t23*t132
718  t558 = t105*t557
719  t561 = 0.40e1_dp*t24*t37 - 0.20e1_dp*t102*t558
720  t566 = pi*t146
721  t567 = t566*t149
722  t569 = t151*t19*t561
723  t575 = t20*t561
724  t579 = t58*t561
725  t585 = 0.8999999998e1_dp*t478*t575*t65 - 0.5555555558e-1_dp*t579 &
726  *t71 - 0.5000000001e0_dp*t60*t561*t65
727  t589 = -0.3000000000e1_dp*t567*t569 + 0.1666666667e0_dp*t165*t166 &
728  *t561 + 0.3333333334e0_dp*t55*t57*t585
729  t590 = t46*t589
730  t593 = t140*t561
731  t597 = t45*t589
732  t598 = t597*t140
733  t605 = t24*t92
734  t608 = my_rho*t557
735  t609 = t316*t608
736  t614 = t136*t557
737  t615 = t327*t614
738  t624 = beta*t11
739  t627 = t97*t132
740  t628 = t627*my_rho
741  t635 = -4*t108 + 4*t332*my_rho
742  t637 = t27*t635*t132
743  t640 = 0.1e1_dp/t308
744  t645 = -0.240e2_dp*beta*t107*t551 - 0.240e2_dp*t24*t87*t132 + &
745  0.240e2_dp*t624*t116 + 0.240e2_dp*t605*t628 + 0.60e1_dp*t550*t133 &
746  + 0.60e1_dp*t119*t637 - 0.60e1_dp*t7*t640*t126*t371
747  t646 = t105*t645
748  t649 = -0.320e2_dp*t24*t88 + 0.160e2_dp*t302*t558 + 0.320e2_dp*t605 &
749  *t99 - 0.160e2_dp*t93*t609 - 0.40e1_dp*t112*t137 + 0.40e1_dp*t102 &
750  *t615 - 0.20e1_dp*t102*t646
751  t650 = t84*t649
752  t653 = t384*t561
753  t657 = t44*pi*t146
754  t658 = t657*t178
755  t668 = t25*t561
756  t672 = 0.2250000000e1_dp*t400*t401*t561 - 0.1500000000e1_dp*t151 &
757  *t50*t649 + 0.1500000000e1_dp*t405*t156*t668
758  t673 = t149*t672
759  t679 = t56*t585
760  t689 = t27*t585
761  t705 = -0.1800000000e2_dp*t473*t474*t561 + 0.8999999998e1_dp*t178 &
762  *t62*t649 - 0.1800000000e2_dp*t478*t183*t668
763  t707 = t187*t59
764  t708 = t707*t177
765  t709 = t561*t65
766  t710 = t62*t709
767  t713 = t58*t649
768  t716 = t140*t177
769  t719 = t579*t67
770  t722 = 0.1e1_dp/lambda
771  t723 = t60*t722
772  t728 = t68*t705
773  t729 = t728*t65
774  t732 = t60*t187
775  t735 = t705*t65 + 0.8999999998e1_dp*t708*t710 - 0.5555555558e-1_dp &
776  *t713*t71 - 0.5000000001e0_dp*t716*t709 - 0.1111111112e0_dp*t719 &
777  *t196 - 0.1000000001e1_dp*t723*t709 - 0.5555555558e-1_dp*t719* &
778  t200 - 0.5555555558e-1_dp*t192*t729 - 0.5000000001e0_dp*t732*t709
779  t739 = 0.1800000000e2_dp*t658*t575*t161 + (2*t147*t673) &
780  - 0.8333333335e-1_dp*t429*t166*t593 + 0.1666666667e0_dp*t165*t679 &
781  *t140 + 0.1666666667e0_dp*t165*t166*t649 + 0.1666666667e0_dp &
782  *t445*t446*t668 + 0.3333333334e0_dp*t170*t689*t172 + 0.1666666667e0_dp &
783  *t165*t462*t561 + 0.3333333334e0_dp*t55*t57*t735
784  e_ndrho(ii) = e_ndrho(ii) + (-0.6666666672e0_dp*t217*t46*t78*t561 - 0.4444444448e0_dp &
785  *t43*t590 + t8*(-0.1666666668e0_dp*t289*t84*t593 - 0.3333333336e0_dp &
786  *t83*t598 - 0.3333333336e0_dp*t83*t650 - 0.3333333336e0_dp &
787  *t83*t653 - 0.2222222224e0_dp*t144*t46*t739))*sx
788  END IF
789 
790  IF (grad_deriv >= 2 .OR. grad_deriv == -2) THEN
791  t747 = lambda*t41*omega
792  t753 = t4*t48
793  t754 = t237**2
794  t764 = 0.1e1_dp/t10/t13
795  t765 = t764*t311
796  t766 = t765*t36
797  t769 = t316*t233
798  t772 = t233**2
799  t773 = t327*t772
800  t776 = t10*t8
801  t777 = 0.1e1_dp/t776
802  t782 = t765*t132
803  t785 = t6**2
804  t786 = beta*t785
805  t787 = t10**2
806  t790 = t308*t94
807  t792 = 0.1e1_dp/t787/t106
808  t795 = 0.1e1_dp/t19/t790/t792
809  t796 = 0.1e1_dp/t787/t13*t795
810  t797 = t796*t371
811  t800 = 0.1866666667e2_dp*t24*t777*t341*t31 + 0.4000000000e2_dp* &
812  t7*t782 - 0.1066666667e2_dp*t786*t797
813  t801 = t105*t800
814  t804 = 0.1955555555e2_dp*t7*t766 + 0.1066666667e2_dp*t321*t769 + &
815  0.40e1_dp*t102*t773 - 0.20e1_dp*t102*t801
816  t815 = t68*t237
817  t822 = t44*t194
818  t826 = 0.2250000000e1_dp*t399*t50*t754 - 0.1000000000e1_dp*t405* &
819  t815*t17 - 0.1500000000e1_dp*t151*t50*t804 - 0.6666666667e0_dp &
820  *t49*t822*t14
821  t827 = t149*t826
822  t833 = t237*t17
823  t851 = 0.1800000000e2_dp*t472*t62*t754
824  t852 = t56*t237
825  t855 = 0.1200000000e2_dp*t478*t852*t17
826  t857 = t178*t62*t804
827  t859 = pi*t27
828  t862 = 0.2000000000e1_dp*t61*t859*t14
829  t863 = -t851 + t855 + 0.8999999998e1_dp*t857 + t862
830  t864 = t863*t65
831  t865 = t266**2
832  t866 = t865*t65
833  t867 = t58*t804
834  t874 = t511*t14
835  t877 = t194*t266
836  t878 = t877*t526
837  t881 = t68*t863
838  t882 = t881*t65
839  t886 = t68*t865*t65
840  t889 = t864 + t866 - 0.5555555558e-1_dp*t867*t71 + 0.7407407410e-1_dp &
841  *t508*t271 - 0.1111111112e0_dp*t508*t275 - 0.6172839508e-1_dp* &
842  t192*t874 + 0.7407407410e-1_dp*t192*t878 - 0.5555555558e-1_dp*t192 &
843  *t882 - 0.5555555558e-1_dp*t192*t886
844  t893 = (2*t147*t393*t249) + (2*t147*t827) - 0.8333333335e-1_dp &
845  *t429*t166*t754 - 0.1111111111e0_dp*t165*t171*t833 &
846  + 0.3333333334e0_dp*t165*t437*t237 + 0.1666666667e0_dp*t165 &
847  *t166*t804 + 0.1481481481e0_dp*t170*t450*t14 - 0.2222222222e0_dp &
848  *t170*t455*t17 + 0.3333333334e0_dp*t55*t57*t889
849  t894 = t46*t893
850  t897 = t78*t140
851  t905 = my_rho*t150
852  t906 = t905*omega
853  t907 = t140*t754
854  t914 = t379*t237
855  t918 = t140*t804
856  t922 = t45*t893
857  t923 = t922*t140
858  t926 = t294*t379
859  t929 = t306*t311
860  t930 = t929*t36
861  t940 = 0.1e1_dp/t787/t8
862  t941 = t7*t940
863  t942 = t367*t306
864  t944 = 0.1e1_dp/t20/t942
865  t946 = t944*t36*my_rho
866  t949 = t311*t104
867  t950 = t949*t317
868  t953 = t97*t326
869  t954 = my_rho*t772
870  t955 = t953*t954
871  t958 = my_rho*t800
872  t959 = t316*t958
873  t962 = t7*t764
874  t963 = t949*t136
875  t966 = t953*t328
876  t969 = t316*t375
877  t972 = t103**2
878  t973 = 0.1e1_dp/t972
879  t974 = t22*t973
880  t975 = t136*t772
881  t976 = t974*t975
882  t979 = t375*t233
883  t980 = t327*t979
884  t983 = t136*t800
885  t984 = t327*t983
886  t987 = t219*t341
887  t991 = t929*t132
888  t995 = 0.1e1_dp/t787/t224
889  t997 = t995*t795*t371
890  t1000 = t24*t764
891  t1002 = 0.1e1_dp/t19/t309
892  t1004 = t1002*t31*my_rho
893  t1008 = t944*t132*my_rho
894  t1012 = 0.1e1_dp/t787/t776
895  t1014 = t308**2
896  t1019 = 0.1e1_dp/t19/t1014*t787*t10
897  t1021 = t1019*t371*my_rho
898  t1024 = t24*t777
899  t1026 = t341*t126*t132
900  t1030 = t114*t360*t132
901  t1033 = t308*t12
902  t1034 = 0.1e1_dp/t1033
903  t1036 = t1034*t126*t371
904  t1040 = my_ndrho*t764
905  t1044 = -0.280e3_dp/0.9e1_dp*t356*t341 + 0.280e3_dp/0.9e1_dp*t1040* &
906  t1002*my_rho
907  t1046 = t27*t1044*t132
908  t1050 = t368*t360*t371
909  t1054 = beta*t785*my_ndrho
910  t1055 = t1054*t368
911  t1056 = t130**2
912  t1058 = 0.1e1_dp/t131/t1056
913  t1059 = t126*t1058
914  t1060 = t1059*t220
915  t1063 = -0.1866666667e3_dp*t24*t987*t31 - 0.2240000000e3_dp*t7* &
916  t991 + 0.4266666667e2_dp*t786*t997 + 0.1866666667e3_dp*t1000*t1004 &
917  + 0.2240000000e3_dp*t941*t1008 - 0.4266666667e2_dp*t786*t1012 &
918  *t1021 + 0.1866666667e2_dp*t1024*t1026 - 0.1600000000e2_dp*t350 &
919  *t1030 - 0.5066666667e2_dp*t366*t1036 + 0.60e1_dp*t119*t1046 + &
920  0.1600000000e2_dp*t366*t1050 + 0.3200000000e2_dp*t1055*t1060
921  t1064 = t105*t1063
922  t1067 = -0.2737777778e3_dp*t7*t930 - 0.1173333333e3_dp*t93*t769 - &
923  0.320e2_dp*t302*t773 + 0.160e2_dp*t302*t801 + 0.2737777778e3_dp* &
924  t941*t946 + 0.1173333333e3_dp*t307*t950 + 0.320e2_dp*t93*t955 &
925  - 0.160e2_dp*t93*t959 - 0.1955555555e2_dp*t962*t963 - 0.2133333334e2_dp &
926  *t321*t966 + 0.1066666667e2_dp*t321*t969 - 0.120e2_dp*t102 &
927  *t976 + 0.80e1_dp*t102*t980 + 0.40e1_dp*t102*t984 - 0.20e1_dp*t102 &
928  *t1064
929  t1068 = t84*t1067
930  t1071 = t45*t541
931  t1076 = t384*t754
932  t1079 = t1071*t237
933  t1082 = t384*t804
934  t1085 = t379*t17
935  t1089 = t114*t278
936  t1093 = t25*t804
937  t1097 = t187*t865
938  t1099 = t97*t70
939  t1100 = my_rho*t777
940  t1101 = t1099*t1100
941  t1106 = t500*t67
942  t1109 = t187*t863
943  t1111 = t496*t266
944  t1119 = t194*t496*t526
945  t1122 = t199*t866
946  t1125 = t65*t25
947  t1126 = t877*t1125
948  t1129 = t867*t67
949  t1134 = t866*t172
950  t1137 = t268*t515
951  t1140 = t176**2
952  t1141 = 0.1e1_dp/t1140
953  t1142 = t59*t1141
954  t1143 = t1142*pi
955  t1150 = t20*t379
956  t1157 = t27*t140
957  t1161 = t56*t379
958  t1168 = t25*t754
959  t1172 = t225*t237
960  t1176 = t56*t25
961  t1189 = 0.5400000000e2_dp*t1143*t474*t754 - 0.2400000000e2_dp*t473 &
962  *t479*t833 - 0.3600000000e2_dp*t473*t1150*t237 - 0.1800000000e2_dp &
963  *t473*t474*t804 - 0.2000000000e1_dp*t478*t1157*t14 + &
964  0.1200000000e2_dp*t478*t1161*t17 + 0.8999999998e1_dp*t178*t62 &
965  *t1067 + 0.3600000000e2_dp*t473*t183*t1168 + 0.1200000000e2_dp* &
966  t478*t489*t1172 - 0.3600000000e2_dp*t478*t1176*t237 - 0.1800000000e2_dp &
967  *t478*t183*t1093 + 0.8000000000e1_dp*t182*t123* &
968  t777 - 0.1200000000e2_dp*t61*t859*t225
969  t1191 = (t1097*t65) - 0.4938271608e0_dp*t192*t1101 - 0.6172839508e-1_dp &
970  *t503*t874 - 0.1111111112e0_dp*t1106*t275 + (t1109 &
971  *t65) + (2*t1111*t65) + 0.3703703706e0_dp*t508*t512 + &
972  0.7407407410e-1_dp*t503*t878 + 0.7407407410e-1_dp*t192*t1119 - 0.5555555558e-1_dp &
973  *t192*t1122 - 0.2222222224e0_dp*t192*t1126 - 0.1111111112e0_dp &
974  *t1129*t196 - 0.5555555558e-1_dp*t503*t882 - 0.1111111112e0_dp &
975  *t516*t1134 - 0.2222222224e0_dp*t1137*t517 + (t1189 &
976  *t65)
977  t1192 = t67*t22
978  t1193 = t66*t1192
979  t1194 = t267*t451
980  t1200 = t65*t14
981  t1201 = t22*t187*t1200
982  t1206 = t68*t1189
983  t1207 = t1206*t65
984  t1210 = t58*t1067
985  t1213 = t511*t225
986  t1216 = t864*t172
987  t1221 = t498*t526
988  t1224 = t530*t267
989  t1235 = t199*t864
990  t1238 = 0.3703703706e0_dp*t1193*t1194 - 0.5555555558e-1_dp*t503*t886 &
991  - 0.6172839508e-1_dp*t192*t1201 - 0.5555555558e-1_dp*t1129*t200 &
992  - 0.5555555558e-1_dp*t192*t1207 - 0.5555555558e-1_dp*t1210*t71 &
993  + 0.3703703706e0_dp*t192*t1213 - 0.1111111112e0_dp*t516*t1216 &
994  - 0.1111111112e0_dp*t508*t534 + 0.7407407410e-1_dp*t516*t1221 - &
995  0.1111111112e0_dp*t192*t1224 + 0.7407407410e-1_dp*t508*t527 + 0.7407407410e-1_dp &
996  *t1106*t271 - 0.1111111112e0_dp*t508*t531 - 0.2222222224e0_dp &
997  *t508*t520 - 0.5555555558e-1_dp*t192*t1235
998  t1239 = t1191 + t1238
999  t1246 = t428*t444
1000  t1247 = t74*t140
1001  t1254 = t27*t889
1002  t1264 = t27*t537
1003  t1268 = t341*t74
1004  t1275 = t56*t889
1005  t1283 = -t851 + t855 + 0.9000000000e1_dp*t857 + t862
1006  t1284 = t1283*t149
1007  t1288 = -0.1111111111e0_dp*t165*t171*t1085 - 0.8888888890e0_dp*t170 &
1008  *t1089*t451 + 0.1666666667e0_dp*t445*t446*t1093 + 0.3333333334e0_dp &
1009  *t55*t57*t1239 - 0.8333333335e-1_dp*t429*t462*t754 &
1010  + 0.5555555556e-1_dp*t1246*t1247*t833 + (4*t147*t393* &
1011  t424) + 0.3333333334e0_dp*t170*t1254*t172 - 0.1111111111e0_dp*t165 &
1012  *t466*t833 + 0.3333333334e0_dp*t165*t437*t379 - 0.2222222222e0_dp &
1013  *t170*t1264*t17 + 0.1037037037e1_dp*t170*t1268*t1100 &
1014  + 0.1666666667e0_dp*t165*t166*t1067 + 0.1666666667e0_dp*t165* &
1015  t1275*t140 - 0.8333333335e-1_dp*t1246*t446*t1168 + (2* &
1016  t147*t1284*t160)
1017  t1292 = t278*my_rho
1018  t1300 = 0.1e1_dp/t41/t470
1019  t1301 = t47*t1300
1020  t1302 = t1301*t44
1021  t1309 = t19*t379
1022  t1316 = t194*t140
1023  t1320 = t68*t379
1024  t1333 = t68*t25
1025  t1340 = t22*my_rho
1026  t1347 = -0.5625000000e1_dp*t1302*t401*t754 + 0.1500000000e1_dp*t400 &
1027  *t406*t833 + 0.4500000000e1_dp*t400*t1309*t237 + 0.2250000000e1_dp &
1028  *t400*t401*t804 + 0.3333333333e0_dp*t405*t1316*t14 &
1029  - 0.1000000000e1_dp*t405*t1320*t17 - 0.1500000000e1_dp*t151*t50 &
1030  *t1067 - 0.2250000000e1_dp*t400*t156*t1168 - 0.2000000000e1_dp &
1031  *t405*t417*t1172 + 0.3000000000e1_dp*t405*t1333*t237 + 0.1500000000e1_dp &
1032  *t405*t156*t1093 - 0.3333333333e1_dp*t155*t1340 &
1033  *t777 + 0.4000000000e1_dp*t49*t822*t225
1034  t1348 = t149*t1347
1035  t1360 = t140*t14
1036  t1367 = omega*t398
1037  t1368 = t1367*t45
1038  t1372 = t45*t114
1039  t1373 = t164*t1372
1040  t1377 = t114*t203
1041  t1387 = t392**2
1042  t1388 = t1387*t149
1043  t1392 = t56*t537
1044  t1396 = 0.6666666668e0_dp*t170*t455*t25 + 0.3333333334e0_dp*t445 &
1045  *t1292*t413 + 0.1666666667e0_dp*t165*t462*t804 + (2*t147 &
1046  *t1348) - 0.1111111111e0_dp*t165*t455*t433 - 0.8333333335e-1_dp &
1047  *t429*t166*t918 + 0.3333333334e0_dp*t165*t171*t413 + 0.7407407409e-1_dp &
1048  *t165*t450*t1360 - 0.1666666667e0_dp*t429*t437 &
1049  *t290 + 0.1250000000e0_dp*t1368*t166*t907 - 0.4444444445e0_dp*t1373 &
1050  *t446*t1172 + 0.1481481481e0_dp*t170*t1377*t14 - 0.8888888890e0_dp &
1051  *t170*t450*t225 - 0.1666666667e0_dp*t429*t166*t914 &
1052  + (2*t147*t1388*t160) + 0.3333333334e0_dp*t165*t1392 &
1053  *t237
1054  t1397 = t1288 + t1396
1055  t1401 = -0.3333333336e0_dp*t165*t897*t237 - 0.6666666672e0_dp*t55 &
1056  *t295 - 0.6666666672e0_dp*t55*t380 + 0.8333333340e-1_dp*t906*t84 &
1057  *t907 - 0.3333333336e0_dp*t289*t294*t290 - 0.3333333336e0_dp* &
1058  t289*t84*t914 - 0.1666666668e0_dp*t289*t84*t918 - 0.3333333336e0_dp &
1059  *t83*t923 - 0.6666666672e0_dp*t83*t926 - 0.3333333336e0_dp &
1060  *t83*t1068 - 0.4444444448e0_dp*t383*t1071 - 0.6666666672e0_dp* &
1061  t55*t387 - 0.1666666668e0_dp*t289*t1076 - 0.6666666672e0_dp*t83 &
1062  *t1079 - 0.3333333336e0_dp*t83*t1082 - 0.2222222224e0_dp*t144*t46 &
1063  *t1397
1064  e_rho_rho(ii) = e_rho_rho(ii) + (-0.1333333334e1_dp*t747*t84*t237 - 0.8888888896e0_dp*t214 &
1065  *t283 - 0.3333333336e0_dp*t753*t46*t78*t754 - 0.1333333334e1_dp &
1066  *t217*t46*t282*t237 - 0.6666666672e0_dp*t217*t46*t78* &
1067  t804 - 0.4444444448e0_dp*t43*t894 + t8*t1401)*sx
1068  t1406 = 0.6666666672e0_dp*t747*t84*t561
1069  t1408 = 0.4444444448e0_dp*t214*t590
1070  t1409 = t4*t164
1071  t1410 = t237*t561
1072  t1411 = t84*t1410
1073  t1413 = 0.3333333336e0_dp*t1409*t1411
1074  t1417 = 0.6666666672e0_dp*t217*t46*t589*t237
1075  t1420 = t316*t557
1076  t1425 = t233*t557
1077  t1426 = t327*t1425
1078  t1429 = beta*t225
1079  t1436 = t1033*t940
1080  t1438 = 0.1e1_dp/t19/t1436
1081  t1439 = 0.1e1_dp/t787/t16*t1438
1082  t1440 = t1439*t371
1083  t1443 = -0.8000000000e1_dp*t1429*t115 - 0.2400000000e2_dp*t24*t230 &
1084  + 0.8000000000e1_dp*t366*t1440
1085  t1444 = t105*t1443
1086  t1447 = -0.1066666667e2_dp*t24*t221 + 0.5333333333e1_dp*t321*t1420 &
1087  - 0.40e1_dp*t112*t234 + 0.40e1_dp*t102*t1426 - 0.20e1_dp*t102* &
1088  t1444
1089  t1451 = 0.6666666672e0_dp*t217*t46*t78*t1447
1090  t1455 = 0.6666666672e0_dp*t217*t46*t282*t561
1091  t1459 = t19*t237
1092  t1466 = t68*t17
1093  t1470 = 0.2250000000e1_dp*t400*t1459*t561 - 0.1500000000e1_dp*t151 &
1094  *t50*t1447 - 0.5000000000e0_dp*t405*t1466*t561
1095  t1471 = t149*t1470
1096  t1476 = 0.8333333335e-1_dp*t429*t166*t1410
1097  t1479 = 0.1666666667e0_dp*t165*t679*t237
1098  t1482 = 0.1666666667e0_dp*t165*t166*t1447
1099  t1483 = t17*t561
1100  t1485 = t165*t171*t1483
1101  t1489 = 0.1111111111e0_dp*t170*t689*t17
1102  t1492 = 0.1666666667e0_dp*t165*t437*t561
1103  t1493 = t20*t237
1104  t1496 = 0.1800000000e2_dp*t473*t1493*t561
1105  t1498 = t178*t62*t1447
1106  t1500 = t56*t17
1107  t1502 = t478*t1500*t561
1108  t1504 = -t1496 + 0.8999999998e1_dp*t1498 + 0.5999999999e1_dp*t1502
1109  t1505 = t1504*t65
1110  t1506 = t266*t59
1111  t1507 = t1506*t177
1112  t1509 = 0.8999999998e1_dp*t1507*t710
1113  t1510 = t58*t1447
1114  t1512 = 0.5555555558e-1_dp*t1510*t71
1115  t1513 = t237*t177
1116  t1515 = 0.5000000001e0_dp*t1513*t709
1117  t1517 = 0.3703703705e-1_dp*t719*t271
1118  t1518 = 0.1e1_dp/my_rho
1119  t1519 = t60*t1518
1120  t1523 = 0.5555555558e-1_dp*t719*t275
1121  t1525 = t68*t1504*t65
1122  t1528 = t60*t266
1123  t1530 = 0.5000000001e0_dp*t1528*t709
1124  t1531 = t1505 + t1509 - t1512 - t1515 + t1517 + 0.3333333334e0_dp*t1519 &
1125  *t709 - t1523 - 0.5555555558e-1_dp*t192*t1525 - t1530
1126  t1535 = 0.1800000000e2_dp*t658*t575*t250 + (2*t147*t1471) &
1127  - t1476 + t1479 + t1482 - 0.5555555555e-1_dp*t1485 - t1489 + t1492 &
1128  + 0.3333333334e0_dp*t55*t57*t1531
1129  t1536 = t46*t1535
1130  t1541 = 0.1666666668e0_dp*t165*t897*t561
1131  t1543 = 0.3333333336e0_dp*t55*t598
1132  t1545 = 0.3333333336e0_dp*t55*t650
1133  t1546 = t905*t46
1134  t1547 = t897*t1410
1135  t1549 = 0.8333333340e-1_dp*t1546*t1547
1136  t1552 = 0.1666666668e0_dp*t289*t597*t290
1137  t1553 = t649*t237
1138  t1556 = 0.1666666668e0_dp*t289*t84*t1553
1139  t1557 = t140*t1447
1140  t1560 = 0.1666666668e0_dp*t289*t84*t1557
1141  t1563 = 0.1666666668e0_dp*t289*t294*t593
1142  t1564 = t45*t1535
1143  t1565 = t1564*t140
1144  t1568 = t294*t649
1145  t1570 = 0.3333333336e0_dp*t83*t1568
1146  t1571 = t379*t561
1147  t1574 = 0.1666666668e0_dp*t289*t84*t1571
1148  t1575 = t597*t379
1149  t1577 = 0.3333333336e0_dp*t83*t1575
1150  t1579 = 0.1173333333e3_dp*t24*t299
1151  t1581 = 0.5866666667e2_dp*t93*t1420
1152  t1582 = t24*t86
1153  t1584 = 0.320e2_dp*t1582*t234
1154  t1586 = 0.320e2_dp*t302*t1426
1155  t1588 = 0.160e2_dp*t302*t1444
1156  t1589 = t24*t306
1157  t1591 = 0.1173333333e3_dp*t1589*t313
1158  t1592 = t949*t608
1159  t1594 = 0.5866666667e2_dp*t307*t1592
1160  t1596 = 0.320e2_dp*t605*t318
1161  t1597 = t7*t298
1162  t1598 = t326*my_rho
1163  t1599 = t1598*t1425
1164  t1601 = 0.320e2_dp*t1597*t1599
1165  t1602 = my_rho*t1443
1166  t1603 = t316*t1602
1167  t1605 = 0.160e2_dp*t93*t1603
1168  t1607 = 0.1066666667e2_dp*t339*t322
1169  t1608 = t953*t614
1170  t1610 = 0.1066666667e2_dp*t321*t1608
1171  t1611 = t316*t645
1172  t1613 = 0.5333333333e1_dp*t321*t1611
1173  t1615 = 0.80e1_dp*t112*t329
1174  t1616 = t7*t23
1175  t1617 = t973*t136
1176  t1618 = t1617*t1425
1177  t1620 = 0.120e2_dp*t1616*t1618
1178  t1621 = t645*t233
1179  t1622 = t327*t1621
1180  t1624 = 0.40e1_dp*t102*t1622
1181  t1625 = t136*t1443
1182  t1626 = t327*t1625
1183  t1628 = 0.40e1_dp*t102*t1626
1184  t1630 = 0.40e1_dp*t112*t376
1185  t1631 = t375*t557
1186  t1632 = t327*t1631
1187  t1634 = 0.40e1_dp*t102*t1632
1188  t1636 = 0.5600000000e2_dp*t624*t115
1189  t1638 = 0.1200000000e3_dp*t24*t336
1190  t1640 = 0.1e1_dp/t787/t9
1191  t1642 = t1640*t1438*t371
1192  t1644 = 0.3200000000e2_dp*t366*t1642
1193  t1645 = beta*t219
1194  t1647 = 0.5600000000e2_dp*t1645*t343
1195  t1649 = 0.1200000000e3_dp*t1589*t347
1196  t1652 = t795*t371*my_rho
1197  t1654 = 0.3200000000e2_dp*t366*t995*t1652
1198  t1656 = 0.8000000000e1_dp*t1429*t352
1199  t1658 = t114*t635*t132
1200  t1660 = 0.8000000000e1_dp*t350*t1658
1201  t1662 = 0.3200000000e2_dp*t7*t372
1202  t1664 = 0.60e1_dp*t550*t362
1203  t1667 = 0.28e2_dp/0.3e1_dp*t332 - 0.28e2_dp/0.3e1_dp*t987*my_rho
1204  t1669 = t27*t1667*t132
1205  t1671 = 0.60e1_dp*t119*t1669
1206  t1675 = 0.60e1_dp*t7*t640*t360*t371
1207  t1677 = t368*t635*t371
1208  t1679 = 0.8000000000e1_dp*t366*t1677
1209  t1680 = t786*t368
1210  t1681 = t1059*t23
1211  t1684 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 - t1660 &
1212  + t1662 + t1664 + t1671 - t1675 + t1679 - 0.2400000000e2_dp*t1680 &
1213  *t1681
1214  t1685 = t105*t1684
1215  t1688 = t1579 - t1581 + t1584 - t1586 + t1588 - t1591 + t1594 - t1596 &
1216  + t1601 - t1605 + t1607 - t1610 + t1613 + t1615 - t1620 + t1624 &
1217  + t1628 - t1630 + t1634 - 0.20e1_dp*t102*t1685
1218  t1689 = t84*t1688
1219  t1693 = 0.3333333336e0_dp*t55*t653
1220  t1694 = t45*t739
1221  t1696 = 0.2222222224e0_dp*t383*t1694
1222  t1699 = 0.1666666668e0_dp*t289*t384*t1410
1223  t1700 = t1694*t237
1224  t1702 = 0.3333333336e0_dp*t83*t1700
1225  t1703 = t384*t1447
1226  t1705 = 0.3333333336e0_dp*t83*t1703
1227  t1706 = t1071*t561
1228  t1708 = 0.3333333336e0_dp*t83*t1706
1229  t1709 = t187*t1504
1230  t1712 = t266*t561*t65
1231  t1714 = 0.5000000001e0_dp*t732*t1712
1232  t1715 = t713*t67
1233  t1717 = 0.3703703705e-1_dp*t1715*t271
1234  t1718 = t705*t266
1235  t1719 = t1718*t65
1236  t1720 = t140*t266
1237  t1722 = t177*t561*t65
1238  t1724 = 0.5000000001e0_dp*t1720*t1722
1239  t1726 = t194*t705*t526
1240  t1728 = 0.3703703705e-1_dp*t192*t1726
1241  t1730 = 0.1111111112e0_dp*t719*t520
1242  t1731 = t58*t1688
1243  t1735 = 0.3703703705e-1_dp*t719*t527
1244  t1737 = t722*t561*t65
1245  t1740 = t496*t59
1246  t1741 = t1740*t177
1247  t1743 = 0.8999999998e1_dp*t1741*t710
1248  t1745 = t187*t561*t65
1249  t1748 = t140*t1518
1250  t1752 = 0.1851851853e0_dp*t719*t512
1251  t1754 = 0.5555555558e-1_dp*t1715*t275
1252  t1755 = t1510*t67
1253  t1757 = 0.1111111112e0_dp*t1755*t196
1254  t1758 = t1709*t65 - t1714 + t1717 + t1719 - t1724 + t1728 - t1730 &
1255  - 0.5555555558e-1_dp*t1731*t71 + t1735 + 0.666666666e0_dp*t1519* &
1256  t1737 + t1743 + 0.3333333334e0_dp*t1519*t1745 + 0.3333333334e0_dp* &
1257  t1748*t1722 + t1752 - t1754 - t1757
1258  t1760 = 0.5555555558e-1_dp*t719*t534
1259  t1762 = 0.5555555558e-1_dp*t1755*t200
1260  t1763 = t237*t722
1261  t1765 = 0.1000000001e1_dp*t1763*t1722
1262  t1766 = t237*t187
1263  t1768 = 0.5000000001e0_dp*t1766*t1722
1264  t1769 = t199*t1505
1265  t1773 = 0.5555555558e-1_dp*t719*t531
1266  t1774 = t60*t496
1267  t1776 = 0.5000000001e0_dp*t1774*t709
1268  t1777 = t379*t177
1269  t1779 = 0.5000000001e0_dp*t1777*t709
1270  t1782 = t728*t267
1271  t1784 = 0.5555555558e-1_dp*t192*t1782
1272  t1785 = t579*t515
1273  t1787 = 0.1111111112e0_dp*t1785*t517
1274  t1789 = 0.5555555558e-1_dp*t508*t729
1275  t1790 = t1505*t172
1276  t1794 = 0.1000000001e1_dp*t723*t1712
1277  t1795 = t498*t178
1278  t1797 = 0.8999999998e1_dp*t1795*t710
1279  t1800 = 0.5400000000e2_dp*t1143*t474*t1410
1280  t1801 = t20*t649
1281  t1804 = 0.1800000000e2_dp*t473*t1801*t237
1282  t1807 = 0.1800000000e2_dp*t473*t474*t1447
1283  t1810 = 0.1200000000e2_dp*t473*t479*t1483
1284  t1811 = t56*t649
1285  t1814 = 0.5999999999e1_dp*t478*t1811*t17
1286  t1817 = 0.1800000000e2_dp*t473*t1150*t561
1287  t1821 = t472*t262
1288  t1822 = t172*t1410
1289  t1824 = 0.3600000000e2_dp*t1821*t1822
1290  t1825 = t25*t1447
1291  t1828 = 0.1800000000e2_dp*t478*t183*t1825
1292  t1829 = t225*t561
1293  t1832 = 0.6000000000e1_dp*t478*t489*t1829
1294  t1835 = 0.1800000000e2_dp*t478*t1176*t561
1295  t1836 = t1800 - t1804 - t1807 - t1810 + t1814 - t1817 + 0.8999999998e1_dp &
1296  *t178*t62*t1688 + t1824 - t1828 + t1832 - t1835
1297  t1837 = t68*t1836
1298  t1838 = t1837*t65
1299  t1842 = -t1760 - t1762 - t1765 - t1768 - 0.5555555558e-1_dp*t192*t1769 &
1300  - t1773 - t1776 - t1779 - 0.5555555558e-1_dp*t503*t1525 - t1784 &
1301  - t1787 - t1789 - 0.1111111112e0_dp*t516*t1790 - t1794 + t1797 &
1302  - 0.5555555558e-1_dp*t192*t1838 + t1836*t65
1303  t1843 = t1758 + t1842
1304  t1849 = 0.8333333335e-1_dp*t429*t166*t1571
1305  t1852 = 0.8333333335e-1_dp*t429*t679*t290
1306  t1854 = t165*t466*t1483
1307  t1858 = 0.1666666667e0_dp*t445*t446*t1825
1308  t1861 = 0.1800000000e2_dp*t658*t575*t425
1309  t1864 = 0.1666666667e0_dp*t445*t1292*t668
1310  t1865 = t413*t561
1311  t1868 = 0.8333333335e-1_dp*t1246*t446*t1865
1312  t1871 = 2*t147*t393*t672
1313  t1874 = 0.3333333334e0_dp*t170*t689*t25
1314  t1875 = t114*t585
1315  t1878 = 0.4444444445e0_dp*t170*t1875*t451
1316  t1881 = 0.1666666667e0_dp*t165*t437*t649
1317  t1884 = -t1496 + 0.9000000000e1_dp*t1498 + 0.6000000000e1_dp*t1502
1318  t1885 = t1884*t149
1319  t1886 = t1885*t160
1320  t1891 = 0.5625000000e1_dp*t1302*t401*t1410
1321  t1892 = t19*t649
1322  t1895 = 0.2250000000e1_dp*t400*t1892*t237
1323  t1898 = 0.2250000000e1_dp*t400*t401*t1447
1324  t1901 = 0.7500000000e0_dp*t400*t406*t1483
1325  t1902 = t68*t649
1326  t1905 = 0.5000000000e0_dp*t405*t1902*t17
1327  t1908 = 0.2250000000e1_dp*t400*t1309*t561
1328  t1912 = t399*t245
1329  t1914 = 0.2250000000e1_dp*t1912*t1822
1330  t1917 = 0.1500000000e1_dp*t405*t156*t1825
1331  t1920 = 0.1000000000e1_dp*t405*t417*t1829
1332  t1923 = 0.1500000000e1_dp*t405*t1333*t561
1333  t1924 = -t1891 + t1895 + t1898 + t1901 - t1905 + t1908 - 0.1500000000e1_dp &
1334  *t151*t50*t1688 - t1914 + t1917 - t1920 + t1923
1335  t1925 = t149*t1924
1336  t1928 = t56*t1531
1337  t1932 = t27*t1531
1338  t1938 = 0.1666666667e0_dp*t165*t462*t1447
1339  t1939 = 0.3333333334e0_dp*t55*t57*t1843 - t1849 - t1852 - 0.5555555555e-1_dp &
1340  *t1854 + t1858 + t1861 + t1864 - t1868 + t1871 + t1874 &
1341  - t1878 + t1881 + (2*t147*t1886) + (2*t147*t1925) &
1342  + 0.1666666667e0_dp*t165*t1928*t140 + 0.3333333334e0_dp*t170*t1932 &
1343  *t172 + t1938
1344  t1940 = t27*t735
1345  t1943 = 0.1111111111e0_dp*t170*t1940*t17
1346  t1946 = 0.1666666667e0_dp*t165*t1392*t561
1347  t1952 = 0.5555555557e-1_dp*t165*t689*t433
1348  t1954 = t1373*t446*t1829
1349  t1958 = 0.8333333335e-1_dp*t429*t166*t1553
1350  t1961 = 0.1666666667e0_dp*t165*t679*t379
1351  t1962 = t585*my_rho
1352  t1965 = 0.1666666667e0_dp*t445*t1962*t413
1353  t1966 = t56*t735
1354  t1969 = 0.1666666667e0_dp*t165*t1966*t237
1355  t1971 = t657*t392*t59
1356  t1972 = t177*t20
1357  t1973 = t561*t149
1358  t1974 = t1973*t160
1359  t1975 = t1972*t1974
1360  t1977 = 0.1800000000e2_dp*t1971*t1975
1361  t1980 = 0.2777777778e-1_dp*t1246*t1247*t1483
1362  t1981 = t1367*t57
1363  t1984 = 0.1250000000e0_dp*t1981*t1247*t1410
1364  t1987 = 0.8333333335e-1_dp*t429*t437*t593
1365  t1988 = t649*t17
1366  t1991 = 0.5555555557e-1_dp*t165*t171*t1988
1367  t1994 = 0.8333333335e-1_dp*t429*t166*t1557
1368  t1997 = 0.1666666667e0_dp*t165*t171*t668
1369  t2000 = 0.8333333335e-1_dp*t429*t462*t1410
1370  t2001 = -t1943 + t1946 + 0.1666666667e0_dp*t165*t166*t1688 - t1952 &
1371  - 0.2222222222e0_dp*t1954 - t1958 + t1961 + t1965 + t1969 + t1977 &
1372  + t1980 + t1984 - t1987 - t1991 - t1994 + t1997 - t2000
1373  t2002 = t1939 + t2001
1374  t2006 = -t1541 - t1543 - t1545 + t1549 - t1552 - t1556 - t1560 - t1563 &
1375  - 0.3333333336e0_dp*t83*t1565 - t1570 - t1574 - t1577 - 0.3333333336e0_dp &
1376  *t83*t1689 - t1693 - t1696 - t1699 - t1702 - t1705 - &
1377  t1708 - 0.2222222224e0_dp*t144*t46*t2002
1378  e_ndrho_rho(ii) = e_ndrho_rho(ii) + (-t1406 - t1408 - t1413 - t1417 - t1451 - t1455 - 0.4444444448e0_dp &
1379  *t43*t1536 + t8*t2006)*sx
1380  t2009 = t566*t393
1381  t2013 = t566*t149*t47
1382  t2014 = t398*t19
1383  t2018 = t150*t68
1384  t2022 = t19*t1447
1385  t2027 = t65*t237
1386  t2028 = t575*t2027
1387  t2031 = t56*t561
1388  t2032 = t2031*t526
1389  t2035 = t20*t1447
1390  t2042 = -0.1800000000e2_dp*t473*t2028 + 0.5999999999e1_dp*t478*t2032 &
1391  + 0.8999999998e1_dp*t478*t2035*t65 + t1509 - t1512 + t1517 &
1392  - t1523 + t1515 - 0.5000000001e0_dp*t60*t1447*t65 - t1530
1393  t2046 = -0.3000000000e1_dp*t2009*t569 + 0.4500000000e1_dp*t2013*t2014 &
1394  *t1410 - 0.1000000000e1_dp*t2013*t2018*t1483 - 0.3000000000e1_dp &
1395  *t567*t151*t2022 - t1476 - 0.5555555557e-1_dp*t1485 + t1492 &
1396  + t1482 + t1479 - t1489 + 0.3333333334e0_dp*t55*t57*t2042
1397  t2050 = t45*t2046
1398  t2054 = t786*t640
1399  t2057 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 + t1664 &
1400  + t1662 - t1660 + t1671 + t1679 - t1675 - 0.240e2_dp*t2054*t1060
1401  t2058 = t105*t2057
1402  t2061 = t1579 + t1584 - t1581 - t1586 + t1588 - t1591 - t1596 + t1594 &
1403  + t1601 - t1605 + t1607 + t1615 - t1630 - t1610 - t1620 + t1634 &
1404  + t1628 + t1613 + t1624 - 0.20e1_dp*t102*t2058
1405  t2073 = -t1891 + t1901 + t1908 + t1898 + t1895 - t1905 - 0.1500000000e1_dp &
1406  *t151*t50*t2061 - t1914 - t1920 + t1923 + t1917
1407  t2074 = t149*t2073
1408  t2077 = t161*t17
1409  t2081 = t657*t472
1410  t2082 = t161*t237
1411  t2086 = -t1849 - t1852 - 0.5555555557e-1_dp*t1854 + t1858 + t1861 + &
1412  t1864 - t1868 + t1871 + t1874 + 0.3333333334e0_dp*t170*t27*t2042 &
1413  *t172 - t1878 + (2*t147*t2074) + t1881 + t1938 - t1943 &
1414  + 0.1200000000e2_dp*t658*t2031*t2077 + t1946 - 0.3600000000e2_dp* &
1415  t2081*t575*t2082
1416  t2088 = t56*t2042
1417  t2095 = t1447*t65
1418  t2098 = t140*t471
1419  t2099 = t709*t237
1420  t2104 = t62*t2095
1421  t2107 = -t1714 + t1717 + t1719 - t1724 + t1728 - 0.5000000001e0_dp*t716 &
1422  *t2095 + 0.1000000000e1_dp*t2098*t2099 - 0.1000000001e1_dp*t723 &
1423  *t2095 - t1730 + t1735 + t1743 + 0.8999999998e1_dp*t708*t2104 &
1424  + t1752 - t1754 - t1757 - t1760
1425  t2113 = t177*pi
1426  t2114 = t707*t2113
1427  t2117 = t471*pi
1428  t2118 = t707*t2117
1429  t2124 = t1800 - t1810 - t1817 - t1807 - t1804 + t1814 + 0.8999999998e1_dp &
1430  *t178*t62*t2061 + t1824 + t1832 - t1835 - t1828
1431  t2126 = t68*t2124*t65
1432  t2130 = -0.5000000001e0_dp*t732*t2095 - 0.5555555558e-1_dp*t58*t2061 &
1433  *t71 - t1762 + t1765 + t1768 + 0.5999999999e1_dp*t2114*t2032 &
1434  - t1773 - t1776 - 0.1800000000e2_dp*t2118*t2028 - 0.5555555558e-1_dp &
1435  *t192*t2126 - t1779 - t1784 - t1787 - t1789 - t1794 + t1797 + &
1436  t2124*t65
1437  t2131 = t2107 + t2130
1438  t2138 = -t1952 - 0.2222222223e0_dp*t1954 - t1958 + t1961 + t1965 + t1969 &
1439  + t1977 + t1980 + 0.1666666667e0_dp*t165*t2088*t140 + 0.1800000000e2_dp &
1440  *t658*t2035*t161 + 0.3333333334e0_dp*t55*t57*t2131 &
1441  + t1984 + 0.1666666667e0_dp*t165*t166*t2061 - t1987 - t1991 &
1442  - t1994 + t1997 - t2000
1443  t2139 = t2086 + t2138
1444  t2143 = -t1541 + t1549 - t1563 - t1574 - t1560 - t1543 - t1552 - 0.3333333336e0_dp &
1445  *t83*t2050*t140 - t1577 - t1545 - t1556 - t1570 &
1446  - 0.3333333336e0_dp*t83*t84*t2061 - t1693 - t1699 - t1708 - t1705 &
1447  - t1696 - t1702 - 0.2222222224e0_dp*t144*t46*t2139
1448  e_ndrho_ndrho(ii) = e_ndrho_ndrho(ii) + (-t1406 - t1413 - t1455 - t1451 - t1408 - t1417 - 0.4444444448e0_dp &
1449  *t43*t46*t2046 + t8*t2143)*sx
1450  t2147 = lambda*t48*omega
1451  t2160 = t754*t237
1452  t2169 = t237*t804
1453  t2182 = 0.1e1_dp/t787/lambda
1454  t2183 = t2182*t944
1455  t2187 = t949*t233
1456  t2190 = t953*t772
1457  t2193 = t316*t800
1458  t2196 = t772*t233
1459  t2197 = t974*t2196
1460  t2200 = t233*t800
1461  t2201 = t327*t2200
1462  t2204 = t10*t106
1463  t2205 = 0.1e1_dp/t2204
1464  t2220 = beta*t785*t6
1465  t2226 = -0.6222222223e2_dp*t24*t2205*t1002*t31 - 0.2115555556e3_dp &
1466  *t7*t2183*t132 + 0.1315555556e3_dp*t786/t787/t85*t1019 &
1467  *t371 - 0.4266666668e2_dp*t2220/t1014/t94*t1058
1468  t2227 = t105*t2226
1469  t2230 = -0.9125925923e2_dp*t7*t2183*t36 - 0.5866666667e2_dp*t962 &
1470  *t2187 - 0.3200000001e2_dp*t321*t2190 + 0.1600000000e2_dp*t321* &
1471  t2193 - 0.120e2_dp*t102*t2197 + 0.120e2_dp*t102*t2201 - 0.20e1_dp* &
1472  t102*t2227
1473  t2257 = 0.5400000000e2_dp*t1142*t62*t2160
1474  t2261 = 0.3600000000e2_dp*t473*t56*t754*t17
1475  t2264 = 0.5400000000e2_dp*t473*t1493*t804
1476  t2268 = 0.6000000000e1_dp*t478*t27*t237*t14
1477  t2272 = 0.1800000000e2_dp*t478*t56*t804*t17
1478  t2274 = t178*t62*t2230
1479  t2276 = pi*t114
1480  t2279 = 0.2666666667e1_dp*t61*t2276*t86
1481  t2280 = t2257 - t2261 - t2264 - t2268 + t2272 + 0.8999999998e1_dp*t2274 &
1482  - t2279
1483  t2281 = t2280*t65
1484  t2282 = t881*t267
1485  t2285 = t865*t266
1486  t2287 = t68*t2285*t65
1487  t2292 = t863*t266
1488  t2295 = t2285*t65
1489  t2296 = t58*t2230
1490  t2299 = t194*t865
1491  t2300 = t2299*t526
1492  t2304 = t68*t2280*t65
1493  t2307 = t22*t266
1494  t2308 = t2307*t1200
1495  t2311 = t194*t863
1496  t2312 = t2311*t526
1497  t2319 = t1099*t86
1498  t2326 = -0.1851851853e0_dp*t508*t874 + t2281 - 0.1666666668e0_dp*t192 &
1499  *t2282 - 0.5555555558e-1_dp*t192*t2287 - 0.1666666668e0_dp*t508 &
1500  *t886 + (3*t2292*t65) + t2295 - 0.5555555558e-1_dp*t2296 &
1501  *t71 + 0.1111111112e0_dp*t192*t2300 - 0.5555555558e-1_dp*t192* &
1502  t2304 - 0.1851851853e0_dp*t192*t2308 + 0.1111111112e0_dp*t192*t2312 &
1503  + 0.2222222223e0_dp*t508*t878 - 0.1666666668e0_dp*t508*t882 &
1504  + 0.1646090535e0_dp*t192*t2319 - 0.1666666668e0_dp*t1129*t275 + &
1505  0.1111111112e0_dp*t1129*t271
1506  t2351 = t44*t22
1507  t2368 = t237*t14
1508  t2378 = t804*t17
1509  t2382 = t754*t17
1510  t2392 = (2*t147*t1284*t249) + (2*t147*t1388*t249) &
1511  - 0.3456790122e0_dp*t170*t1268*t86 + 0.4444444444e0_dp*t170* &
1512  t1089*t14 + 0.1666666667e0_dp*t165*t166*t2230 + 0.5000000001e0_dp &
1513  *t165*t437*t804 + 0.3333333334e0_dp*t55*t57*t2326 + 0.2e1_dp &
1514  *(t147)*t149*(-0.5625000000e1_dp*t1301*t50*t2160 + &
1515  0.2250000000e1_dp*t400*t68*t754*t17 + 0.6750000000e1_dp*t400* &
1516  t1459*t804 + 0.1000000000e1_dp*t405*t194*t237*t14 - 0.1500000000e1_dp &
1517  *t405*t68*t804*t17 - 0.1500000000e1_dp*t151*t50* &
1518  t2230 + 0.1111111111e1_dp*t49*t2351*t86) - 0.3333333333e0_dp*t170 &
1519  *t1254*t17 + (4*t147*t393*t826) + 0.5000000001e0_dp* &
1520  t165*t1275*t237 + 0.2222222222e0_dp*t165*t450*t2368 - 0.3333333333e0_dp &
1521  *t165*t455*t833 - 0.2500000000e0_dp*t429*t166*t2169 &
1522  - 0.1666666667e0_dp*t165*t171*t2378 + 0.8333333333e-1_dp*t429 &
1523  *t171*t2382 - 0.2500000000e0_dp*t429*t437*t754 + 0.1250000000e0_dp &
1524  *t1368*t166*t2160
1525  t2404 = t45*t1397
1526  t2418 = t379*t754
1527  t2424 = t1067*t237
1528  t2437 = t7*t792
1529  t2439 = 0.1e1_dp/t20/t1436
1530  t2451 = t940*t944
1531  t2455 = t97*t973
1532  t2468 = t944*t104
1533  t2480 = 0.1e1_dp/t19/t942
1534  t2492 = t1014*my_rho
1535  t2537 = t764*t1002
1536  t2552 = t360*t1058
1537  t2565 = t126/t131/t1056/t130
1538  t2569 = -0.8088888890e3_dp*t24*t2182*t2480*t31*my_rho - 0.1518222222e4_dp &
1539  *t2437*t2439*t132*my_rho + 0.6542222223e3_dp*t786/t2204 &
1540  /t19/t2492*t218*t371*my_rho - 0.6222222223e2_dp*t24*t2205 &
1541  *t1002*t126*t132 + 0.5600000000e2_dp*t1024*t341*t360 &
1542  *t132 + 0.3288888889e3_dp*t366/t790*t126*t371 - 0.2400000000e2_dp &
1543  *t350*t114*t1044*t132 - 0.1520000000e3_dp*t366*t1034* &
1544  t360*t371 - 0.3626666667e3_dp*t1054*t1034*t1060 + 0.60e1_dp*t119 &
1545  *t27*(0.3640e4_dp/0.27e2_dp*t1040*t1002 - 0.3640e4_dp/0.27e2_dp &
1546  *my_ndrho*t2182*t2480*my_rho)*t132 + 0.8088888890e3_dp*t24*t2537 &
1547  *t31 + 0.1518222222e4_dp*t7*t2451*t132 - 0.6542222223e3_dp* &
1548  t786*t1012*t1019*t371 + 0.2400000000e2_dp*t366*t368*t1044 &
1549  *t371 + 0.9600000000e2_dp*t1055*t2552*t220 - 0.1173333333e3_dp &
1550  *t1055*t1059*t765 + 0.2133333333e3_dp*beta*t785*t365*t368 &
1551  *t2565*t796
1552  t2576 = 0.40e1_dp*t102*t327*t136*t2226 + 0.3519999999e3_dp*t93 &
1553  *t2190 - 0.1551407408e4_dp*t2437*t2439*t36*my_rho + 0.960e2_dp* &
1554  t1597*t1598*t2200 + 0.120e2_dp*t102*t327*t375*t800 + 0.1551407408e4_dp &
1555  *t7*t2451*t36 - 0.960e2_dp*t93*t2455*my_rho*t2196 &
1556  + 0.120e2_dp*t102*t327*t1063*t233 + 0.1600000000e2_dp*t321 &
1557  *t316*t1063 + 0.9125925923e2_dp*t7*t2182*t2468*t136 + 0.1760000000e3_dp &
1558  *t307*t949*t958 - 0.360e2_dp*t1616*t1617*t2200 &
1559  - 0.20e1_dp*t102*t105*t2569 - 0.6400000001e2_dp*t321*t953*t979
1560  t2585 = 0.1e1_dp/t972/t35
1561  t2611 = t311*t326
1562  t2621 = -0.3200000001e2_dp*t321*t953*t983 - 0.160e2_dp*t93*t316 &
1563  *my_rho*t2226 + 0.480e2_dp*t102*t22*t2585*t136*t2196 - 0.1760000000e3_dp &
1564  *t93*t2193 + 0.960e2_dp*t302*t2197 + 0.160e2_dp*t302 &
1565  *t2227 - 0.960e2_dp*t302*t2201 - 0.8213333332e3_dp*t941*t2468 &
1566  *t317 + 0.8213333332e3_dp*t307*t2187 + 0.9600000002e2_dp*t321* &
1567  t2455*t975 - 0.360e2_dp*t102*t974*t375*t772 - 0.3519999999e3_dp &
1568  *t307*t2611*t954 + 0.1173333334e3_dp*t962*t2611*t328 - &
1569  0.5866666667e2_dp*t962*t949*t375
1570  t2622 = t2576 + t2621
1571  t2631 = t282*t140
1572  t2635 = -0.1000000001e1_dp*t55*t923 - 0.3333333336e0_dp*t83*t384 &
1573  *t2230 - 0.5000000004e0_dp*t165*t897*t804 - 0.6666666672e0_dp*t383 &
1574  *t2404 - 0.1000000001e1_dp*t83*t1071*t804 - 0.5000000004e0_dp &
1575  *t164*t1076 - 0.1000000001e1_dp*t289*t294*t914 - 0.5000000004e0_dp &
1576  *t289*t294*t918 + 0.2500000002e0_dp*t906*t84*t2418 - &
1577  0.2000000001e1_dp*t55*t1079 - 0.5000000004e0_dp*t289*t84*t2424 &
1578  + 0.2500000002e0_dp*t1546*t897*t2169 - 0.3333333336e0_dp*t83* &
1579  t84*t2622 + 0.2500000002e0_dp*t906*t294*t907 - 0.1000000001e1_dp &
1580  *t55*t1082 - 0.1000000001e1_dp*t165*t2631*t237
1581  t2636 = t78*t379
1582  t2645 = t379*t804
1583  t2655 = t140*t2230
1584  t2707 = t74*t379
1585  t2720 = t56*t1239
1586  t2724 = 0.5000000001e0_dp*t165*t1392*t804 - 0.1333333334e1_dp*t165 &
1587  *t450*t1172 - 0.2666666667e1_dp*t170*t1089*t225 + 0.8333333333e-1_dp &
1588  *t429*t466*t2382 + 0.1000000000e1_dp*t170*t1254*t25 &
1589  + 0.1666666667e0_dp*t165*t166*t2622 + 0.1666666667e0_dp*t165* &
1590  t56*t2326*t140 - 0.2500000000e0_dp*t429*t166*t2424 - 0.3333333333e0_dp &
1591  *t165*t455*t1085 - 0.1728395062e0_dp*t165*t1268* &
1592  t140*t86 - 0.2500000000e0_dp*t1246*t446*t413*t804 + 0.1666666666e0_dp &
1593  *t1246*t2707*t833 + 0.1250000000e0_dp*t1368*t462*t2160 &
1594  - 0.1666666667e0_dp*t165*t466*t2378 + (6*t147*t1283 &
1595  *t394) + 0.5000000001e0_dp*t165*t2720*t237
1596  t2732 = my_rho*t2205
1597  t2759 = t25*t2230
1598  t2763 = t1367*t444
1599  t2779 = t25*t2160
1600  t2783 = -0.2500000000e0_dp*t429*t1392*t754 + (6*t147*t393 &
1601  *t1347) - 0.3456790123e1_dp*t170*t1002*t74*t2732 + 0.5000000001e0_dp &
1602  *t165*t1275*t379 - 0.1333333334e1_dp*t170*t114*t889 &
1603  *t451 + 0.3333333334e0_dp*t170*t27*t2326*t172 - 0.2500000000e0_dp &
1604  *t429*t171*t1168 + 0.3750000000e0_dp*t1981*t1247*t2169 &
1605  + 0.5000000001e0_dp*t165*t171*t1093 + 0.8333333334e-1_dp*t1246 &
1606  *t1247*t2378 + 0.1666666667e0_dp*t445*t446*t2759 - 0.1250000000e0_dp &
1607  *t2763*t1247*t2382 + 0.5000000001e0_dp*t165*t437*t1067 &
1608  + 0.2222222222e0_dp*t165*t1089*t1360 + 0.1000000000e1_dp*t165 &
1609  *t455*t413 - 0.2500000000e0_dp*t429*t462*t2169 + 0.1250000000e0_dp &
1610  *t2763*t446*t2779
1611  t2808 = t19*t1067
1612  t2816 = t225*t754
1613  t2821 = 0.1e1_dp/t41/t1140
1614  t2823 = t47*t2821*t44
1615  t2833 = -0.1687500000e2_dp*t1302*t401*t2169 + 0.6750000000e1_dp*t400 &
1616  *t1309*t804 + 0.4500000000e1_dp*t400*t1320*t833 - 0.1500000000e1_dp &
1617  *t400*t1316*t2368 + 0.1000000000e1_dp*t405*t194*t379 &
1618  *t14 + 0.8888888888e1_dp*t155*t97*my_rho*t2205 + 0.6750000000e1_dp &
1619  *t400*t2808*t237 - 0.1500000000e1_dp*t405*t68*t1067 &
1620  *t17 + 0.4500000000e1_dp*t400*t417*t2816 + 0.1968750000e2_dp*t2823 &
1621  *t401*t2160 + 0.1500000000e1_dp*t405*t156*t2759 + 0.2250000000e1_dp &
1622  *t400*t401*t2230
1623  t2843 = t777*t237
1624  t2853 = t172*t2169
1625  t2869 = t225*t804
1626  t2873 = t194*t225
1627  t2877 = -0.1500000000e1_dp*t151*t50*t2622 + 0.5625000000e1_dp*t1302 &
1628  *t156*t2779 - 0.6750000000e1_dp*t400*t1333*t754 + 0.4999999999e1_dp &
1629  *t405*t1340*t2843 - 0.1000000000e2_dp*t49*t2351*t777 &
1630  - 0.5625000000e1_dp*t1302*t406*t2382 - 0.6750000000e1_dp*t1912 &
1631  *t2853 - 0.5555555555e0_dp*t405*t22*t140*t86 + 0.4500000000e1_dp &
1632  *t405*t1333*t804 + 0.2250000000e1_dp*t400*t406*t2378 - &
1633  0.1687500000e2_dp*t1302*t1309*t754 - 0.3000000000e1_dp*t405*t417 &
1634  *t2869 - 0.6000000000e1_dp*t405*t2873*t237
1635  t2885 = t428*t1372
1636  t2935 = -0.2500000000e0_dp*t429*t166*t2645 + (2*t147*t149 &
1637  *(t2833 + t2877)) + 0.5000000001e0_dp*t445*t1292*t1093 + 0.3333333333e0_dp &
1638  *t2885*t446*t2816 + 0.2222222222e0_dp*t165*t1377 &
1639  *t2368 - 0.3333333333e0_dp*t165*t1264*t833 + 0.2e1_dp*(t147) &
1640  *(t2257 - t2261 - t2264 - t2268 + t2272 + 0.9000000000e1_dp*t2274 &
1641  - t2279)*(t149)*t160 - 0.3333333333e0_dp*t170*t27*t1239 &
1642  *t17 - 0.8333333335e-1_dp*t429*t166*t2655 + (6*t147 &
1643  *t1284*t424) + 0.2e1_dp*(t147)*t1387*t392*(t149)* &
1644  t160 - 0.2500000000e0_dp*t1246*t1292*t1168 - 0.1666666667e0_dp* &
1645  t165*t1254*t433 + (6*t147*t1388*t424) + 0.1666666667e0_dp &
1646  *t165*t462*t2230 + 0.2222222222e0_dp*t165*t450*t379*t14 &
1647  - 0.5000000001e0_dp*t429*t437*t914
1648  t2937 = t164*t45*t341
1649  t2992 = 0.1e1_dp/t1140/t40
1650  t2994 = t59*t2992*pi
1651  t2998 = t27*t225
1652  t3026 = 0.1620000000e3_dp*t1143*t474*t2169 + 0.1080000000e3_dp*t1143 &
1653  *t479*t2382 - 0.2160000000e3_dp*t2994*t474*t2160 + 0.3600000000e2_dp &
1654  *t478*t2998*t237 + 0.1620000000e3_dp*t1143*t1150* &
1655  t754 + 0.2666666667e1_dp*t478*t114*t140*t86 - 0.3600000000e2_dp &
1656  *t473*t479*t2378 + 0.1080000000e3_dp*t1821*t2853 - 0.7200000000e2_dp &
1657  *t473*t1161*t833 - 0.1800000000e2_dp*t473*t474*t2230 &
1658  + 0.8999999998e1_dp*t178*t62*t2622 - 0.5400000000e2_dp*t478* &
1659  t1176*t804
1660  t3030 = t20*t1067
1661  t3069 = -0.1800000000e2_dp*t478*t183*t2759 - 0.5400000000e2_dp*t473 &
1662  *t3030*t237 - 0.6000000000e1_dp*t478*t27*t379*t14 - 0.5400000000e2_dp &
1663  *t473*t1150*t804 + 0.1800000000e2_dp*t478*t489* &
1664  t2869 + 0.1080000000e3_dp*t473*t1176*t754 + 0.1800000000e2_dp*t478 &
1665  *t56*t1067*t17 - 0.3600000000e2_dp*t473*t489*t2816 - 0.1866666667e2_dp &
1666  *t182*t357*t2205 + 0.2400000000e2_dp*t61*t2276 &
1667  *t777 - 0.2400000000e2_dp*t478*t123*t2843 - 0.1080000000e3_dp* &
1668  t1143*t183*t2779 + 0.1200000000e2_dp*t473*t1157*t2368
1669  t3070 = t3026 + t3069
1670  t3085 = t1210*t67
1671  t3093 = (3*t496*t865*t65) + (3*t1189*t266*t65) &
1672  + 0.1111111112e1_dp*(t192)*(t2307)*(t65)*(t225) &
1673  + (t187*t2280*t65) + (3*t496*t863*t65) + 0.2222222223e0_dp &
1674  *t516*t1111*t526 + (t187*t2285*t65) + (t3070 &
1675  *t65) - 0.1851851853e0_dp*t1193*t498*t1200 + 0.2222222223e0_dp &
1676  *t508*t1119 + 0.1111111112e0_dp*(t192)*t194*(t1189) &
1677  *t526 + 0.2222222223e0_dp*t1137*t1221 - 0.1666666668e0_dp*t1129 &
1678  *t534 + 0.1111111112e0_dp*t3085*t271 - 0.5555555558e-1_dp*(t192) &
1679  *(t199)*(t2281) - 0.1851851853e0_dp*t508*t1201
1680  t3097 = t66*t69
1681  t3098 = t1109*t267
1682  t3129 = t2296*t67
1683  t3141 = -0.3333333336e0_dp*t192*t2299*t1125 - 0.1666666668e0_dp*t3097 &
1684  *t3098 + 0.1111111112e0_dp*t503*t2300 + 0.1111111112e0_dp*t1129 &
1685  *t527 - 0.1666666668e0_dp*t1129*t531 - 0.5555555558e-1_dp*t192 &
1686  *t68*t3070*t65 + 0.1646090535e0_dp*t192*t97*t187*t65* &
1687  t86 + 0.5555555559e0_dp*t1129*t512 - 0.1666666668e0_dp*t192*t530 &
1688  *t864 - 0.1666666668e0_dp*t1106*t882 - 0.1666666668e0_dp*t192* &
1689  t530*t866 - 0.1481481482e1_dp*t192*t1099*t777 - 0.1111111112e0_dp &
1690  *t3129*t196 + 0.5555555559e0_dp*t1193*t866*t451 - 0.1666666668e0_dp &
1691  *t503*t2282 - 0.1666666668e0_dp*t3085*t275 + 0.1111111112e0_dp &
1692  *t503*t2312
1693  t3181 = -0.1851851853e0_dp*t1106*t874 - 0.1666666668e0_dp*t508*t1235 &
1694  - 0.3333333336e0_dp*t508*t1224 - 0.1111111112e0_dp*t516*t2281 &
1695  *t172 + 0.1111111112e0_dp*t516*t1097*t526 + 0.2222222223e0_dp* &
1696  t1106*t878 - 0.1851851853e0_dp*t503*t2308 - 0.3333333336e0_dp*t1137 &
1697  *t1216 + (3*t3098) + 0.1111111112e0_dp*t516*t1109*t526 &
1698  - 0.5555555558e-1_dp*t503*t2287 - 0.3333333336e0_dp*t192*t2311 &
1699  *t1125 - 0.6666666672e0_dp*t508*t1126 + 0.1646090535e0_dp*t503 &
1700  *t2319 - 0.5555555558e-1_dp*t3129*t200 - 0.5555555558e-1_dp*t58 &
1701  *t2622*t71 - 0.1666666668e0_dp*t1106*t886
1702  t3232 = -0.1666666668e0_dp*t192*t1206*t267 - 0.5555555558e-1_dp*t192 &
1703  *t199*t2295 - 0.1666666668e0_dp*t508*t1122 - 0.3333333336e0_dp &
1704  *t1129*t520 - 0.1111111112e0_dp*t516*t2295*t172 - 0.1481481482e1_dp &
1705  *t66*t67*t97*t267*t1100 - 0.1851851853e0_dp*t192* &
1706  t22*t496*t1200 - 0.3333333336e0_dp*t516*t2292*t65*my_rho* &
1707  t25 + 0.1810699590e1_dp*t192*t311*t70*t2732 - 0.5555555558e-1_dp &
1708  *t503*t2304 - 0.1481481482e1_dp*t508*t1101 - 0.3333333336e0_dp* &
1709  t867*t515*t517 + 0.1111111112e1_dp*t268*t1192*t1194 + 0.5555555559e0_dp &
1710  *t1193*t864*t451 + 0.1111111112e1_dp*t508*t1213 - &
1711  0.1666666668e0_dp*t508*t1207 - 0.3333333336e0_dp*t1137*t1134
1712  t3244 = t278*t140
1713  t3248 = t889*my_rho
1714  t3262 = omega*t1300
1715  t3264 = t140*t2160
1716  t3268 = 0.1555555556e1_dp*t2937*t446*t2843 + 0.3111111111e1_dp*t170 &
1717  *t1268*t777 - 0.2500000000e0_dp*t429*t1275*t290 - 0.1333333334e1_dp &
1718  *t1373*t1292*t1172 + 0.3111111111e1_dp*t170*t341*t278 &
1719  *t1100 - 0.3456790122e0_dp*t170*t341*t203*t86 + 0.3750000000e0_dp &
1720  *t1368*t166*t2418 + 0.4444444444e0_dp*t170*t114*t537 &
1721  *t14 + 0.3333333334e0_dp*t55*t57*(t3093 + t3141 + t3181 + t3232) &
1722  - 0.1111111111e0_dp*t2885*t1247*t2368 - 0.6666666668e0_dp*t1373 &
1723  *t446*t2869 + 0.1666666667e0_dp*t1246*t3244*t833 + 0.5000000001e0_dp &
1724  *t445*t3248*t413 - 0.1666666667e0_dp*t165*t171* &
1725  t1067*t17 - 0.2500000000e0_dp*t429*t437*t918 + 0.3750000000e0_dp &
1726  *t1368*t437*t907 - 0.3125000000e0_dp*t3262*t45*t166*t3264
1727  t3278 = my_rho*t398
1728  t3288 = -0.1000000001e1_dp*t165*t2636*t237 - 0.2000000001e1_dp*t55 &
1729  *t926 - 0.1000000001e1_dp*t83*t922*t379 - 0.5000000004e0_dp*t289 &
1730  *t84*t2645 + 0.2500000002e0_dp*t429*t897*t754 - 0.1000000001e1_dp &
1731  *t83*t294*t1067 - 0.1666666668e0_dp*t289*t84*t2655 &
1732  - 0.1000000001e1_dp*t83*t2404*t237 - 0.5000000004e0_dp*t289*t922 &
1733  *t290 - 0.5000000004e0_dp*t289*t384*t2169 - 0.5000000004e0_dp &
1734  *t289*t1071*t754 - 0.2222222224e0_dp*t144*t46*(t2724 + t2783 &
1735  + t2935 + t3268) - 0.3333333336e0_dp*t83*t45*t2392*t140 - &
1736  0.1250000001e0_dp*t3278*omega*t84*t3264 - 0.1000000001e1_dp*t55 &
1737  *t1068 + 0.8333333340e-1_dp*t906*t384*t2160
1738  t3291 = -0.1000000001e1_dp*t2147*t84*t754 - 0.4000000002e1_dp*t747 &
1739  *t294*t237 - 0.2000000001e1_dp*t747*t84*t804 - 0.1333333334e1_dp &
1740  *t214*t894 + 0.1666666668e0_dp*t4*t150*t46*t78*t2160 &
1741  - 0.1000000001e1_dp*t753*t46*t282*t754 - 0.1000000001e1_dp*t1409 &
1742  *t84*t2169 - 0.2000000001e1_dp*t217*t46*t893*t237 - 0.2000000001e1_dp &
1743  *t217*t46*t282*t804 - 0.6666666672e0_dp*t217* &
1744  t46*t78*t2230 - 0.4444444448e0_dp*t43*t46*t2392 + t8*(t2635 &
1745  + t3288)
1746  END IF
1747  IF (grad_deriv >= 3 .OR. grad_deriv == -3) THEN
1748  e_rho_rho_rho(ii) = e_rho_rho_rho(ii) + t3291*sx
1749  t3305 = t4*t428
1750  t3306 = t754*t561
1751  t3314 = t237*t1447
1752  t3329 = t804*t561
1753  t3339 = t949*t557
1754  t3344 = t953*t1425
1755  t3347 = t316*t1443
1756  t3352 = t772*t557
1757  t3353 = t974*t3352
1758  t3356 = t233*t1443
1759  t3357 = t327*t3356
1760  t3362 = t800*t557
1761  t3363 = t327*t3362
1762  t3366 = beta*t777
1763  t3378 = 0.1866666667e2_dp*t3366*t342 + 0.9866666667e2_dp*t24*t782 &
1764  - 0.8266666668e2_dp*t366*t797 + 0.3200000001e2_dp*t1054/t1014/ &
1765  t12*t1058
1766  t3379 = t105*t3378
1767  t3382 = 0.3911111110e2_dp*t24*t766 - 0.1955555555e2_dp*t962*t3339 &
1768  + 0.2133333334e2_dp*t339*t769 - 0.2133333334e2_dp*t321*t3344 + &
1769  0.1066666667e2_dp*t321*t3347 + 0.80e1_dp*t112*t773 - 0.120e2_dp*t102 &
1770  *t3353 + 0.80e1_dp*t102*t3357 - 0.40e1_dp*t112*t801 + 0.40e1_dp &
1771  *t102*t3363 - 0.20e1_dp*t102*t3379
1772  t3449 = t1447*t17
1773  t3453 = (2*t147*t1885*t249) + 0.1800000000e2_dp*(t1971) &
1774  *(t1972)*(t1973)*(t249) + (2*t147*t393 &
1775  *t1470) + 0.1800000000e2_dp*t658*t575*t827 + 0.2e1_dp*(t147) &
1776  *t149*(-0.5625000000e1_dp*t1302*t19*t754*t561 + 0.4500000000e1_dp &
1777  *t400*t1459*t1447 + 0.1500000000e1_dp*t400*t815*t1483 &
1778  - 0.1000000000e1_dp*t405*t68*t1447*t17 + 0.2250000000e1_dp* &
1779  t400*t19*t804*t561 - 0.1500000000e1_dp*t151*t50*t3382 + 0.3333333334e0_dp &
1780  *t405*t194*t14*t561) + 0.1250000000e0_dp*t1368 &
1781  *t166*t3306 - 0.8333333335e-1_dp*t429*t679*t754 - 0.1666666667e0_dp &
1782  *t429*t166*t3314 + 0.5555555555e-1_dp*t1246*t74*t237 &
1783  *t1483 - 0.1111111111e0_dp*t165*t689*t833 - 0.1111111111e0_dp* &
1784  t165*t171*t3449
1785  t3472 = t14*t561
1786  t3491 = 0.5400000000e2_dp*t1143*t20*t754*t561
1787  t3494 = 0.3600000000e2_dp*t473*t1493*t1447
1788  t3497 = 0.2400000000e2_dp*t473*t852*t1483
1789  t3501 = 0.1200000000e2_dp*t478*t56*t1447*t17
1790  t3505 = 0.1800000000e2_dp*t473*t20*t804*t561
1791  t3507 = t178*t62*t3382
1792  t3512 = 0.2000000000e1_dp*t478*t27*t14*t561
1793  t3513 = t3491 - t3494 - t3497 + t3501 - t3505 + 0.8999999998e1_dp*t3507 &
1794  - t3512
1795  t3514 = t3513*t65
1796  t3525 = t58*t3382
1797  t3533 = t237*t1518
1798  t3543 = t3514 + 0.8999999998e1_dp*t863*t59*t177*t710 + (2 &
1799  *t267*t1504) + 0.8999999998e1_dp*t865*t59*t177*t710 - 0.5555555558e-1_dp &
1800  *t3525*t71 - 0.5000000001e0_dp*t804*t177*t709 + &
1801  0.7407407410e-1_dp*t1755*t271 + 0.6666666668e0_dp*t3533*t1722 - &
1802  0.1111111112e0_dp*t1755*t275 - 0.1111111112e0_dp*t508*t1525 - 0.1000000001e1_dp &
1803  *t237*t266*t1722
1804  t3546 = 0.1e1_dp/t12
1805  t3547 = t60*t3546
1806  t3552 = t194*t1504
1807  t3553 = t3552*t526
1808  t3561 = t68*t3513*t65
1809  t3569 = t274*t1505
1810  t3575 = -0.6172839508e-1_dp*t719*t874 - 0.5555555556e0_dp*t3547*t709 &
1811  + 0.7407407410e-1_dp*t719*t878 + 0.7407407410e-1_dp*t192*t3553 &
1812  + 0.6666666668e0_dp*t1519*t1712 - 0.5555555558e-1_dp*t719*t882 &
1813  - 0.5555555558e-1_dp*t192*t3561 - 0.5000000001e0_dp*t60*t863* &
1814  t709 - 0.5555555558e-1_dp*t719*t886 - 0.1111111112e0_dp*t192*t3569 &
1815  - 0.5000000001e0_dp*t60*t865*t709
1816  t3576 = t3543 + t3575
1817  t3580 = -0.1666666667e0_dp*t429*t437*t1410 + 0.3333333334e0_dp*t165 &
1818  *t1928*t237 + 0.3333333334e0_dp*t165*t437*t1447 - 0.8333333335e-1_dp &
1819  *t429*t166*t3329 + 0.1666666667e0_dp*t165*t679*t804 &
1820  + 0.1666666667e0_dp*t165*t166*t3382 + 0.7407407405e-1_dp*t165 &
1821  *t450*t3472 + 0.1481481481e0_dp*t170*t1875*t14 - 0.1111111111e0_dp &
1822  *t165*t455*t1483 - 0.2222222222e0_dp*t170*t1932*t17 + &
1823  0.1666666667e0_dp*t165*t1275*t561 + 0.3333333334e0_dp*t55*t57 &
1824  *t3576
1825  t3581 = t3453 + t3580
1826  t3608 = t973*my_rho
1827  t3618 = 0.640e2_dp*t1597*t1598*t3356 - 0.640e2_dp*t1582*t773 - &
1828  0.1173333333e3_dp*t93*t3347 - 0.3911111110e2_dp*t1000*t963 - 0.320e2_dp &
1829  *t605*t959 + 0.1173333333e3_dp*t307*t949*t1602 + 0.40e1_dp &
1830  *t102*t327*t136*t3378 - 0.960e2_dp*t1597*t3608*t3352 - &
1831  0.40e1_dp*t112*t1064 + 0.80e1_dp*t112*t984 + 0.2737777778e3_dp*t307 &
1832  *t3339
1833  t3668 = t2552*t23
1834  t3673 = t635*t1058
1835  t3674 = t3673*t220
1836  t3677 = -0.1866666667e3_dp*t1645*t342 - 0.6346666667e3_dp*t24*t991 &
1837  + 0.3946666667e3_dp*t366*t997 + 0.1866666667e3_dp*beta*t764* &
1838  t1004 + 0.60e1_dp*t550*t1046 + 0.60e1_dp*t119*t27*(-0.280e3_dp/ &
1839  0.9e1_dp*t987 + 0.280e3_dp/0.9e1_dp*t2537*my_rho)*t132 - 0.60e1_dp*t7 &
1840  *t640*t1044*t371 + 0.1600000000e2_dp*t366*t368*t1667*t371 &
1841  - 0.4800000000e2_dp*t1680*t3668 + 0.1600000000e3_dp*t1680*t1060 &
1842  + 0.3200000000e2_dp*t1055*t3674
1843  t3679 = t2565*t1439
1844  t3682 = t24*t940
1845  t3711 = -0.1600000000e3_dp*t2220*t368*t3679 + 0.6346666667e3_dp*t3682 &
1846  *t1008 - 0.3946666667e3_dp*t366*t1012*t1021 + 0.1866666667e2_dp &
1847  *t3366*t1026 + 0.1866666667e2_dp*t1024*t341*t635*t132 &
1848  - 0.1706666667e3_dp*t7*t1036 - 0.1600000000e2_dp*t1429*t1030 - 0.1600000000e2_dp &
1849  *t350*t114*t1667*t132 + 0.6400000000e2_dp*t7* &
1850  t1050 - 0.5066666667e2_dp*t366*t1034*t635*t371 + 0.1520000000e3_dp &
1851  *t786*t1034*t1681
1852  t3726 = -0.240e2_dp*t1616*t1617*t3356 + 0.160e2_dp*t302*t3379 + &
1853  0.40e1_dp*t102*t327*t1063*t557 + 0.960e2_dp*t302*t3353 - 0.320e2_dp &
1854  *t302*t3363 - 0.2737777778e3_dp*t941*t2468*t608 - 0.120e2_dp &
1855  *t102*t974*t645*t772 - 0.2133333334e2_dp*t321*t953*t1621 &
1856  - 0.20e1_dp*t102*t105*(t3677 + t3711) + 0.80e1_dp*t102*t327 &
1857  *t375*t1443 - 0.120e2_dp*t1616*t1617*t3362 - 0.2133333334e2_dp &
1858  *t321*t953*t1625
1859  t3750 = t2585*t136
1860  t3763 = 0.2346666666e3_dp*t1589*t950 + 0.80e1_dp*t102*t327*t1684 &
1861  *t233 + 0.6400000002e2_dp*t7*t220*t1618 - 0.240e2_dp*t112*t976 &
1862  - 0.160e2_dp*t93*t316*my_rho*t3378 + 0.2346666666e3_dp*t93* &
1863  t3344 + 0.3911111110e2_dp*t962*t2611*t614 - 0.5475555556e3_dp*t24 &
1864  *t930 + 0.480e2_dp*t1616*t3750*t3352 - 0.1955555555e2_dp*t962 &
1865  *t949*t645 - 0.240e2_dp*t1616*t973*t375*t1425 + 0.2133333334e2_dp &
1866  *t339*t969
1867  t3794 = -0.640e2_dp*t302*t3357 - 0.4266666668e2_dp*t339*t966 + 0.640e2_dp &
1868  *t605*t955 + 0.40e1_dp*t102*t327*t645*t800 + 0.5475555556e3_dp &
1869  *t3682*t946 + 0.1066666667e2_dp*t321*t316*t1684 + 0.160e2_dp &
1870  *t112*t980 - 0.2346666666e3_dp*t7*t929*t1599 + 0.320e2_dp &
1871  *t1597*t1598*t3362 - 0.2346666666e3_dp*t605*t769 + 0.320e2_dp &
1872  *t1582*t801 - 0.2133333334e2_dp*t321*t953*t1631
1873  t3796 = t3618 + t3726 + t3763 + t3794
1874  t3826 = 0.8333333340e-1_dp*t906*t597*t907 + 0.1666666668e0_dp*t429 &
1875  *t1547 - 0.3333333336e0_dp*t83*t84*t3796 - 0.3333333336e0_dp* &
1876  t83*t922*t649 - 0.3333333336e0_dp*t289*t294*t1571 - 0.3333333336e0_dp &
1877  *t289*t1071*t1410 - 0.6666666672e0_dp*t83*t1564*t379 &
1878  - 0.6666666672e0_dp*t55*t1700 - 0.3333333336e0_dp*t165*t207* &
1879  t237*t561 - 0.6666666672e0_dp*t55*t1689 - 0.3333333336e0_dp*t83 &
1880  *t1694*t804 + 0.1666666668e0_dp*t1546*t897*t3314
1881  t3827 = t649*t804
1882  t3842 = t3278*t46
1883  t3849 = t140*t3382
1884  t3853 = t649*t754
1885  t3861 = t78*t649
1886  t3865 = t589*t140
1887  t3869 = -0.1666666668e0_dp*t289*t84*t3827 - 0.1666666668e0_dp*t289 &
1888  *t922*t593 + 0.1666666668e0_dp*t1546*t2636*t1410 - 0.6666666672e0_dp &
1889  *t55*t1703 - 0.3333333336e0_dp*t83*t597*t1067 - 0.1250000001e0_dp &
1890  *t3842*t897*t3306 - 0.3333333336e0_dp*t83*t384* &
1891  t3382 - 0.1666666668e0_dp*t289*t84*t3849 + 0.8333333340e-1_dp*t906 &
1892  *t84*t3853 - 0.6666666672e0_dp*t55*t1568 - 0.6666666672e0_dp* &
1893  t55*t1565 - 0.3333333336e0_dp*t165*t3861*t237 - 0.3333333336e0_dp &
1894  *t165*t3865*t237
1895  t3871 = t379*t1447
1896  t3875 = t45*t2002
1897  t3892 = t225*t1447
1898  t3918 = t25*t3382
1899  t3925 = t777*t561
1900  t3933 = t451*t1410
1901  t3939 = t1301*t245
1902  t3940 = t172*t3306
1903  t3965 = 0.1500000000e1_dp*t405*t156*t3918 + 0.1968750000e2_dp*t2823 &
1904  *t401*t3306 + 0.1666666666e1_dp*t405*t1340*t3925 + 0.3000000000e1_dp &
1905  *t405*t1333*t1447 + 0.3000000000e1_dp*t399*t822*t3933 &
1906  + 0.2250000000e1_dp*t400*t401*t3382 + 0.5625000000e1_dp*t3939 &
1907  *t3940 + 0.3333333333e0_dp*t405*t194*t649*t14 - 0.1125000000e2_dp &
1908  *t1302*t1309*t1410 + 0.2250000000e1_dp*t400*t1892*t804 &
1909  - 0.5625000000e1_dp*t1302*t401*t3329 - 0.5625000000e1_dp*t1302 &
1910  *t1892*t754 + 0.2250000000e1_dp*t400*t2808*t561 - 0.4500000000e1_dp &
1911  *t400*t1333*t1410
1912  t3969 = t172*t3314
1913  t3975 = t19*t1688
1914  t3979 = t290*t1483
1915  t3985 = t172*t3329
1916  t4010 = -0.1125000000e2_dp*t1302*t401*t3314 - 0.4500000000e1_dp*t1912 &
1917  *t3969 + 0.4500000000e1_dp*t400*t1309*t1447 + 0.4500000000e1_dp &
1918  *t400*t3975*t237 - 0.3750000000e1_dp*t3939*t3979 - 0.2000000000e1_dp &
1919  *t405*t417*t3892 - 0.2250000000e1_dp*t1912*t3985 - &
1920  0.2000000000e1_dp*t405*t2873*t561 - 0.5000000000e0_dp*t400*t1316 &
1921  *t3472 - 0.1000000000e1_dp*t405*t68*t1688*t17 + 0.1500000000e1_dp &
1922  *t400*t406*t3449 - 0.1500000000e1_dp*t151*t50*t3796 &
1923  + 0.1500000000e1_dp*t400*t1902*t833 + 0.1500000000e1_dp*t400* &
1924  t1320*t1483
1925  t4018 = 0.2222222222e0_dp*t2885*t446*t1172*t561 - 0.1666666667e0_dp &
1926  *t1246*t1292*t1865 - 0.4444444445e0_dp*t1373*t446*t3892 &
1927  - 0.1111111111e0_dp*t165*t171*t1688*t17 + 0.1666666667e0_dp*t165 &
1928  *t56*t3576*t140 + 0.1250000000e0_dp*t2763*t446*t1168* &
1929  t561 + 0.3333333334e0_dp*t165*t689*t413 + 0.1666666667e0_dp*t165 &
1930  *t679*t1067 - 0.1666666667e0_dp*t1246*t446*t413*t1447 + &
1931  (2*t147*t149*(t3965 + t4010)) - 0.4444444445e0_dp*t1373* &
1932  t1292*t1829
1933  t4025 = t3262*t57
1934  t4032 = t74*t649
1935  t4070 = t3525*t67
1936  t4079 = -0.5555555558e-1_dp*t192*t199*t3514 + (t705*t863* &
1937  t65) + (2*t496*t1504*t65) + (t187*t3513*t65) - &
1938  0.5555555558e-1_dp*t192*t728*t864 - 0.5555555556e0_dp*t140*t3546 &
1939  *t1722 + (t705*t865*t65) - 0.1111111112e0_dp*t1106*t1525 &
1940  - 0.1111111112e0_dp*t4070*t196 + 0.6666666668e0_dp*t1748*t266 &
1941  *t1722 + 0.3703703706e0_dp*t1193*t1505*t451
1942  t4101 = t498*t1505
1943  t4108 = -0.5000000001e0_dp*t60*t1189*t709 + 0.3703703706e0_dp*t1755 &
1944  *t512 - 0.5555555558e-1_dp*t503*t3561 - 0.2222222224e0_dp*t516 &
1945  *t267*t172*t1504 - 0.5555555558e-1_dp*t1715*t886 - 0.5555555558e-1_dp &
1946  *t1715*t882 - 0.1111111112e0_dp*t516*t3514*t172 - 0.5000000001e0_dp &
1947  *t1067*t177*t709 + (2*t4101) - 0.1111111112e0_dp &
1948  *t508*t1769 - 0.1111111112e0_dp*t192*t1837*t267
1949  t4140 = -0.5555555558e-1_dp*t719*t1207 - 0.2000000001e1_dp*t1763* &
1950  t266*t1722 - 0.1111111112e0_dp*t192*t530*t1505 + 0.1333333334e1_dp &
1951  *t1519*t722*t1712 + 0.7407407410e-1_dp*t516*t1718*t526 &
1952  + 0.6666666668e0_dp*t379*t1518*t1722 - 0.5555555558e-1_dp*t192* &
1953  t728*t866 - 0.2222222224e0_dp*t719*t1126 + 0.1800000000e2_dp*t1111 &
1954  *t178*t710 - 0.1111111112e0_dp*t508*t1782 - 0.5555555558e-1_dp &
1955  *t58*t3796*t71
1956  t4156 = t865*t561*t65
1957  t4201 = t20*t1688
1958  t4214 = -0.8000000000e1_dp*t478*t123*t3925 - 0.2400000000e2_dp*t473 &
1959  *t479*t3449 + 0.1200000000e2_dp*t478*t489*t3892 + 0.1200000000e2_dp &
1960  *t478*t2998*t561 - 0.2000000000e1_dp*t478*t27*t649 &
1961  *t14 + 0.1200000000e2_dp*t478*t56*t1688*t17 - 0.2400000000e2_dp &
1962  *t473*t1161*t1483 + 0.1080000000e3_dp*t1143*t474*t3314 - &
1963  0.2160000000e3_dp*t2994*t474*t3306 + 0.7200000000e2_dp*t1821* &
1964  t3969 - 0.3600000000e2_dp*t473*t4201*t237 - 0.1800000000e2_dp*t473 &
1965  *t3030*t561 - 0.2400000000e2_dp*t473*t1811*t833 - 0.1800000000e2_dp &
1966  *t478*t183*t3918
1967  t4230 = t1142*t262
1968  t4255 = 0.5400000000e2_dp*t1143*t474*t3329 + 0.5400000000e2_dp*t1143 &
1969  *t1801*t754 + 0.7200000000e2_dp*t473*t1176*t1410 + 0.8999999998e1_dp &
1970  *t178*t62*t3796 - 0.2400000000e2_dp*t472*t859*t3933 &
1971  - 0.1080000000e3_dp*t4230*t3940 + 0.4000000000e1_dp*t473*t1157 &
1972  *t3472 + 0.1080000000e3_dp*t1143*t1150*t1410 + 0.3600000000e2_dp &
1973  *t1821*t3985 + 0.7200000000e2_dp*t4230*t3979 - 0.1800000000e2_dp &
1974  *t473*t1801*t804 - 0.3600000000e2_dp*t473*t1150*t1447 - &
1975  0.3600000000e2_dp*t478*t1176*t1447 - 0.1800000000e2_dp*t473*t474 &
1976  *t3382
1977  t4256 = t4214 + t4255
1978  t4261 = -0.2222222224e0_dp*t1510*t515*t517 + 0.3703703706e0_dp*t719 &
1979  *t1213 - 0.1000000001e1_dp*t1766*t266*t1722 - 0.5555555558e-1_dp &
1980  *t4070*t200 + 0.6666666668e0_dp*t1519*t496*t561*t65 - 0.5000000001e0_dp &
1981  *t732*t4156 - 0.5000000001e0_dp*t140*t865*t1722 &
1982  - 0.5000000001e0_dp*t804*t187*t1722 - 0.4938271608e0_dp*t719* &
1983  t1101 + 0.8999999998e1_dp*t1097*t178*t710 - 0.5555555558e-1_dp* &
1984  t192*t68*t4256*t65
1985  t4272 = t863*t561*t65
1986  t4292 = (2*t1836*t266*t65) - 0.1111111112e0_dp*t719*t1224 &
1987  - 0.2222222224e0_dp*t1137*t1790 - 0.1000000001e1_dp*t723*t4272 &
1988  - 0.1111111112e0_dp*t1785*t1134 - 0.6172839508e-1_dp*t192*t22* &
1989  t705*t1200 - 0.5000000001e0_dp*t140*t863*t1722 - 0.1111111112e0_dp &
1990  *t1755*t531 - 0.6172839508e-1_dp*t1715*t874 - 0.5555555558e-1_dp &
1991  *t719*t1122 + 0.7407407410e-1_dp*t508*t1726
1992  t4317 = 0.7407407410e-1_dp*t1755*t527 - 0.6172839508e-1_dp*t719*t1201 &
1993  - 0.1111111112e0_dp*t508*t1838 - 0.2222222224e0_dp*t192*t3552 &
1994  *t1125 + 0.7407407410e-1_dp*t1785*t1221 - 0.1111111111e1_dp*t3547 &
1995  *t1737 + 0.6666666668e0_dp*t1519*t187*t1712 + 0.7407407410e-1_dp &
1996  *t503*t3553 - 0.1111111112e0_dp*t1755*t534 - 0.1000000001e1_dp &
1997  *t1774*t1712 + 0.7407407410e-1_dp*t719*t1119
1998  t4345 = -0.1000000001e1_dp*t379*t266*t1722 - 0.1000000001e1_dp*t804 &
1999  *t722*t1722 + 0.8999999998e1_dp*t1109*t178*t710 - 0.5555555558e-1_dp &
2000  *t1129*t729 + t4256*t65 - 0.2222222224e0_dp*t1755*t520 &
2001  - 0.1111111112e0_dp*t503*t3569 - 0.1111111112e0_dp*t1785*t1216 &
2002  - 0.1111111112e0_dp*t3097*t4101 - 0.5000000001e0_dp*t732*t4272 &
2003  + 0.7407407410e-1_dp*t192*t194*t1836*t526
2004  t4352 = t1731*t67
2005  t4378 = 0.7407407410e-1_dp*t1715*t878 + 0.8999999998e1_dp*t1189*t59 &
2006  *t177*t710 + 0.7407407410e-1_dp*t4352*t271 - 0.1111111112e0_dp &
2007  *t4352*t275 - 0.5555555556e0_dp*t3547*t1745 + 0.7407407410e-1_dp &
2008  *t516*t1709*t526 + 0.6666666668e0_dp*t3533*t187*t1722 - 0.1000000001e1_dp &
2009  *t237*t496*t1722 + 0.3703703706e0_dp*t579*t1192 &
2010  *t1194 - 0.1000000001e1_dp*t723*t4156 + 0.1333333334e1_dp*t3533 &
2011  *t722*t1722 - 0.5555555558e-1_dp*t719*t1235
2012  t4392 = 0.3333333334e0_dp*t165*t171*t1825 + 0.1250000000e0_dp*t1981 &
2013  *t1247*t3329 - 0.3125000000e0_dp*t4025*t1247*t3306 + 0.3333333334e0_dp &
2014  *t165*t1392*t1447 + 0.5555555556e-1_dp*t1246*t4032 &
2015  *t833 - 0.1666666667e0_dp*t1246*t74*t25*t1410 + 0.5555555556e-1_dp &
2016  *t1246*t1247*t3449 + 0.1800000000e2_dp*t657*t1283*t59 &
2017  *t1975 - 0.1666666667e0_dp*t429*t166*t3871 + 0.3333333334e0_dp &
2018  *t55*t57*(t4079 + t4108 + t4140 + t4261 + t4292 + t4317 + t4345 &
2019  + t4378) + 0.1481481481e0_dp*t170*t114*t735*t14 - 0.1666666667e0_dp &
2020  *t429*t1928*t290
2021  t4428 = -0.1111111111e0_dp*t165*t1264*t1483 + 0.1800000000e2_dp*t658 &
2022  *t575*t1348 - 0.8333333335e-1_dp*t429*t679*t918 - 0.1111111111e0_dp &
2023  *t165*t455*t1988 + 0.3333333334e0_dp*t170*t27*t3576 &
2024  *t172 - 0.8333333335e-1_dp*t429*t1966*t754 + 0.1250000000e0_dp &
2025  *t1368*t679*t907 + 0.1666666667e0_dp*t445*t446*t3918 - 0.4444444445e0_dp &
2026  *t165*t450*t1829 + 0.2500000000e0_dp*t1981*t3244 &
2027  *t1410 - 0.1666666667e0_dp*t429*t1392*t1410
2028  t4466 = -0.1666666667e0_dp*t429*t437*t1553 - 0.1111111111e0_dp*t165 &
2029  *t689*t1085 + 0.1666666667e0_dp*t165*t1275*t649 - 0.2222222222e0_dp &
2030  *t170*t27*t1843*t17 - 0.8333333335e-1_dp*t1246*t1962 &
2031  *t1168 + 0.1666666667e0_dp*t165*t2720*t561 + 0.6666666668e0_dp &
2032  *t170*t1932*t25 + 0.3333333334e0_dp*t445*t1292*t1825 + 0.1250000000e0_dp &
2033  *t1368*t166*t3853 - 0.4444444445e0_dp*t1373*t1962 &
2034  *t1172 + 0.7407407405e-1_dp*t165*t1377*t3472 + 0.5555555555e-1_dp &
2035  *t1246*t3244*t1483
2036  t4498 = t56*t1843
2037  t4505 = 0.1666666667e0_dp*t165*t166*t3796 - 0.8333333334e-1_dp*t2763 &
2038  *t1247*t833*t561 + (4*t147*t392*t1886) + (2 &
2039  *t147*t1388*t672) - 0.1111111111e0_dp*t165*t1940*t833 + 0.3333333334e0_dp &
2040  *t165*t1928*t379 + 0.7407407409e-1_dp*t165*t450 &
2041  *t649*t14 - 0.1666666667e0_dp*t429*t462*t3314 - 0.3703703704e-1_dp &
2042  *t2885*t1247*t3472 + 0.3333333334e0_dp*t165*t4498*t237 &
2043  + (2*t147*t1284*t672)
2044  t4512 = t1531*my_rho
2045  t4545 = (4*t147*t1885*t424) + 0.1666666667e0_dp*t165*t462 &
2046  *t3382 + 0.3333333334e0_dp*t445*t4512*t413 + 0.5185185185e0_dp &
2047  *t2937*t446*t3925 - 0.8333333335e-1_dp*t429*t166*t3827 - 0.1666666667e0_dp &
2048  *t429*t437*t1571 + 0.5555555555e-1_dp*t1246*t203 &
2049  *t237*t1483 + 0.5555555555e-1_dp*t1246*t2707*t1483 + 0.7407407409e-1_dp &
2050  *t165*t1875*t1360 + (4*t147*t393*t1924) &
2051  + 0.3600000000e2_dp*(t1971)*(t1972)*(t1973)*(t424) &
2052  + 0.3333333334e0_dp*t165*t437*t1688
2053  t4553 = t585*t140
2054  t4575 = t1067*t561
2055  t4585 = 0.1666666667e0_dp*t445*t3248*t668 - 0.1111111111e0_dp*t165 &
2056  *t1932*t433 + 0.5555555556e-1_dp*t1246*t4553*t833 - 0.8333333335e-1_dp &
2057  *t429*t1275*t593 - 0.8333333335e-1_dp*t429*t462* &
2058  t3329 + 0.2500000000e0_dp*t1981*t1247*t3314 + 0.1666666667e0_dp* &
2059  t445*t1962*t1093 + 0.3333333334e0_dp*t165*t455*t668 - 0.8333333335e-1_dp &
2060  *t429*t166*t3849 - 0.8333333335e-1_dp*t429*t166* &
2061  t4575 + 0.2e1_dp*t147*(t3491 - t3494 - t3497 + t3501 - t3505 + 0.9000000000e1_dp &
2062  *t3507 - t3512)*t149*t160
2063  t4607 = t1688*t237
2064  t4627 = 0.1666666667e0_dp*t165*t1966*t804 - 0.1666666667e0_dp*t429 &
2065  *t437*t1557 + 0.1800000000e2_dp*t657*t1387*t59*t1975 + 0.1037037037e1_dp &
2066  *t170*t341*t585*t1100 - 0.8888888890e0_dp*t170 &
2067  *t114*t1531*t451 - 0.8888888890e0_dp*t170*t1875*t225 - 0.1666666667e0_dp &
2068  *t429*t166*t4607 - 0.1111111111e0_dp*t165*t466 &
2069  *t3449 - 0.1666666667e0_dp*t429*t679*t914 - 0.8333333335e-1_dp* &
2070  t1246*t446*t1093*t561 + 0.1250000000e0_dp*t1368*t462*t3306 &
2071  + 0.2500000000e0_dp*t1981*t2707*t1410
2072  t4657 = -0.3333333336e0_dp*t289*t84*t3871 - 0.6666666672e0_dp*t83 &
2073  *t3875*t237 + 0.8333333340e-1_dp*t906*t384*t3306 - 0.1666666668e0_dp &
2074  *t289*t597*t918 - 0.2222222224e0_dp*t144*t46*(t4018 &
2075  + t4392 + t4428 + t4466 + t4505 + t4545 + t4585 + t4627) - 0.1666666668e0_dp &
2076  *t289*t384*t3329 - 0.3333333336e0_dp*t165*t2636*t561 &
2077  - 0.3333333336e0_dp*t165*t897*t1447 + 0.8333333340e-1_dp*t1546 &
2078  *t897*t3329 - 0.6666666672e0_dp*t83*t1071*t1447 - 0.3333333336e0_dp &
2079  *t83*t2404*t561 - 0.4444444448e0_dp*t383*t3875 - 0.3333333336e0_dp &
2080  *t289*t294*t1553
2081  t4696 = -0.6666666672e0_dp*t55*t1575 - 0.3333333336e0_dp*t289*t597 &
2082  *t914 - 0.3333333336e0_dp*t165*t2631*t561 - 0.6666666672e0_dp* &
2083  t55*t1706 - 0.3333333336e0_dp*t289*t384*t3314 - 0.6666666672e0_dp &
2084  *t83*t294*t1688 + 0.1666666668e0_dp*t1546*t2631*t1410 - &
2085  0.3333333336e0_dp*t289*t1564*t290 - 0.1666666668e0_dp*t289*t84 &
2086  *t4575 - 0.3333333336e0_dp*t289*t294*t1557 - 0.1666666668e0_dp &
2087  *t289*t1694*t754 - 0.3333333336e0_dp*t289*t84*t4607 - 0.3333333336e0_dp &
2088  *t83*t45*t3581*t140
2089  t4700 = -0.6666666670e0_dp*t2147*t1411 - 0.1333333334e1_dp*t747*t597 &
2090  *t237 - 0.1333333334e1_dp*t747*t84*t1447 - 0.1333333334e1_dp &
2091  *t747*t294*t561 - 0.8888888896e0_dp*t214*t1536 + 0.1666666668e0_dp &
2092  *t3305*t84*t3306 - 0.3333333336e0_dp*t753*t46*t589*t754 &
2093  - 0.6666666672e0_dp*t1409*t84*t3314 - 0.6666666670e0_dp*t1409 &
2094  *t294*t1410 - 0.1333333334e1_dp*t217*t46*t1535*t237 - 0.1333333334e1_dp &
2095  *t217*t46*t282*t1447 - 0.3333333336e0_dp*t1409 &
2096  *t84*t3329 - 0.6666666672e0_dp*t217*t46*t589*t804 - 0.6666666672e0_dp &
2097  *t217*t46*t78*t3382 - 0.6666666672e0_dp*t217*t46 &
2098  *t893*t561 - 0.4444444448e0_dp*t43*t46*t3581 + t8*(t3826 + &
2099  t3869 + t4657 + t4696)
2100  e_ndrho_rho_rho(ii) = e_ndrho_rho_rho(ii) + t4700*sx
2101  t4701 = t561**2
2102  t4704 = 0.3333333336e0_dp*t2147*t84*t4701
2103  t4707 = 0.1333333334e1_dp*t747*t597*t561
2104  t4708 = t22*t36
2105  t4713 = t557**2
2106  t4714 = t327*t4713
2107  t4717 = t22*t132
2108  t4721 = 0.1e1_dp/t787*t2480
2109  t4725 = 0.120e2_dp*t624*t4717 - 0.60e1_dp*t7*t4721*t371
2110  t4726 = t105*t4725
2111  t4729 = 0.40e1_dp*t624*t4708 - 0.80e1_dp*t112*t558 + 0.40e1_dp*t102 &
2112  *t4714 - 0.20e1_dp*t102*t4726
2113  t4732 = 0.6666666672e0_dp*t747*t84*t4729
2114  t4733 = pi**2
2115  t4734 = t4733*t146
2116  t4736 = 0.1e1_dp/t58/omega
2117  t4738 = t4734*t4736*t1300
2118  t4739 = t4701*t149
2119  t4743 = t19*t4701
2120  t4744 = t399*t4743
2121  t4748 = t151*t19*t4729
2122  t4760 = t20*t4701
2123  t4764 = t20*t4729
2124  t4768 = t58**2
2125  t4769 = 0.1e1_dp/t4768
2126  t4770 = t4769*t1141
2127  t4771 = t4770*t4733
2128  t4772 = t26*t4701
2129  t4776 = t58*t4729
2130  t4782 = -0.2250000000e2_dp*t473*t4760*t65 + 0.8999999998e1_dp*t478 &
2131  *t4764*t65 + 0.8099999996e2_dp*t4771*t4772*t65 - 0.5555555558e-1_dp &
2132  *t4776*t71 - 0.5000000001e0_dp*t60*t4729*t65
2133  t4786 = -0.2700000000e2_dp*t4738*t18*t4739 + 0.4500000000e1_dp*t567 &
2134  *t4744 - 0.3000000000e1_dp*t567*t4748 - 0.8333333335e-1_dp*t429 &
2135  *t166*t4701 + 0.3333333334e0_dp*t165*t679*t561 + 0.1666666667e0_dp &
2136  *t165*t166*t4729 + 0.3333333334e0_dp*t55*t57*t4782
2137  t4789 = 0.4444444448e0_dp*t214*t46*t4786
2138  t4790 = t237*t4701
2139  t4793 = 0.1666666668e0_dp*t3305*t84*t4790
2140  t4796 = 0.6666666672e0_dp*t1409*t597*t1410
2141  t4797 = t1447*t561
2142  t4800 = 0.6666666672e0_dp*t1409*t84*t4797
2143  t4801 = t237*t4729
2144  t4804 = 0.3333333336e0_dp*t1409*t84*t4801
2145  t4808 = 0.6666666672e0_dp*t217*t46*t4786*t237
2146  t4812 = 0.1333333334e1_dp*t217*t46*t589*t1447
2147  t4817 = t953*t4713
2148  t4820 = t316*t4725
2149  t4829 = t233*t4713
2150  t4830 = t974*t4829
2151  t4833 = t1443*t557
2152  t4834 = t327*t4833
2153  t4837 = t233*t4725
2154  t4838 = t327*t4837
2155  t4849 = -0.3200000000e2_dp*t1645*t627 + 0.4800000000e2_dp*t7*t1440 &
2156  - 0.2400000000e2_dp*t786/t2492*t1058
2157  t4850 = t105*t4849
2158  t4853 = -0.1066666667e2_dp*t1645*t98 + 0.2133333334e2_dp*t339*t1420 &
2159  - 0.1066666667e2_dp*t321*t4817 + 0.5333333333e1_dp*t321*t4820 &
2160  - 0.40e1_dp*t624*t234 + 0.160e2_dp*t112*t1426 - 0.80e1_dp*t112* &
2161  t1444 - 0.120e2_dp*t102*t4830 + 0.80e1_dp*t102*t4834 + 0.40e1_dp* &
2162  t102*t4838 - 0.20e1_dp*t102*t4850
2163  t4857 = 0.6666666672e0_dp*t217*t46*t78*t4853
2164  t4861 = 0.3333333336e0_dp*t753*t46*t282*t4701
2165  t4864 = t217*t46*t1535*t561
2166  t4869 = 0.6666666672e0_dp*t217*t46*t282*t4729
2167  t4872 = 0.8333333335e-1_dp*t429*t437*t4701
2168  t4874 = t165*t1928*t561
2169  t4878 = 0.1666666667e0_dp*t165*t437*t4729
2170  t4881 = 0.5400000000e2_dp*t1143*t1493*t4701
2171  t4884 = 0.3600000000e2_dp*t473*t2035*t561
2172  t4887 = 0.1800000000e2_dp*t473*t1493*t4729
2173  t4889 = t178*t62*t4853
2174  t4893 = 0.1200000000e2_dp*t473*t1500*t4701
2175  t4895 = t478*t1500*t4729
2176  t4897 = t4881 - t4884 - t4887 + 0.8999999998e1_dp*t4889 - t4893 + 0.5999999999e1_dp &
2177  *t4895
2178  t4898 = t4897*t65
2179  t4901 = t1504*t59*t177*t710
2180  t4904 = t4701*t65
2181  t4905 = t62*t4904
2182  t4907 = 0.2250000000e2_dp*t1506*t471*t4905
2183  t4908 = t4729*t65
2184  t4909 = t62*t4908
2185  t4911 = 0.8999999998e1_dp*t1507*t4909
2186  t4915 = t4733*t26*t4904
2187  t4917 = 0.8099999996e2_dp*t266*t4769*t1141*t4915
2188  t4918 = t58*t4853
2189  t4920 = 0.5555555558e-1_dp*t4918*t71
2190  t4922 = t1447*t177*t709
2191  t4925 = 0.5000000001e0_dp*t1513*t4908
2192  t4929 = t60*t1504*t709
2193  t4932 = 0.5000000001e0_dp*t1528*t4908
2194  t4935 = 0.1000000000e1_dp*t237*t471*t4904
2195  t4940 = t59*pi*t20*t65
2196  t4941 = t237*t1141*t4701*t4940
2197  t4943 = t4776*t67
2198  t4945 = 0.3703703705e-1_dp*t4943*t271
2199  t4946 = t471*t1518
2200  t4951 = 0.5555555558e-1_dp*t4943*t275
2201  t4952 = t719*t1525
2202  t4955 = t68*t4897*t65
2203  t4958 = t4898 + 0.1800000000e2_dp*t4901 - t4907 + t4911 + t4917 - t4920 &
2204  - 0.1000000000e1_dp*t4922 - t4925 + 0.3333333334e0_dp*t1519*t4908 &
2205  - 0.1000000000e1_dp*t4929 - t4932 + t4935 - 0.4500000000e1_dp*t4941 &
2206  + t4945 + 0.3000000000e1_dp*t4946*t4701*t4940 - t4951 - 0.1111111112e0_dp &
2207  *t4952 - 0.5555555558e-1_dp*t192*t4955
2208  t4994 = t44*t4733*t146
2209  t4995 = t4994*t4770
2210  t5001 = 0.1666666667e0_dp*t165*t166*t4853
2211  t5002 = t17*t4701
2212  t5005 = 0.2777777778e-1_dp*t429*t171*t5002
2213  t5008 = 0.1111111111e0_dp*t165*t689*t1483
2214  t5009 = t17*t4729
2215  t5011 = t165*t171*t5009
2216  t5013 = t27*t4782
2217  t5016 = 0.1111111111e0_dp*t170*t5013*t17
2218  t5019 = 0.1250000000e0_dp*t1368*t166*t4790
2219  t5022 = 0.1666666667e0_dp*t429*t679*t1410
2220  t5025 = 0.1666666667e0_dp*t429*t166*t4797
2221  t5028 = 0.8333333335e-1_dp*t429*t166*t4801
2222  t5029 = t56*t4782
2223  t5032 = 0.1666666667e0_dp*t165*t5029*t237
2224  t5035 = 0.3333333334e0_dp*t165*t679*t1447
2225  t5036 = -t4872 + 0.3333333334e0_dp*t4874 + t4878 + 0.3333333334e0_dp* &
2226  t55*t57*t4958 + 0.2e1_dp*t147*t149*(-0.5625000000e1_dp*t1302 &
2227  *t1459*t4701 + 0.4500000000e1_dp*t400*t2022*t561 + 0.2250000000e1_dp &
2228  *t400*t1459*t4729 - 0.1500000000e1_dp*t151*t50*t4853 &
2229  + 0.7500000000e0_dp*t400*t1466*t4701 - 0.5000000000e0_dp*t405 &
2230  *t1466*t4729) - 0.3600000000e2_dp*t2081*t4760*t250 + 0.1800000000e2_dp &
2231  *t658*t4764*t250 + 0.3600000000e2_dp*t658*t575*t1471 &
2232  + 0.1620000000e3_dp*t4995*t4772*t250 + t5001 + t5005 - t5008 &
2233  - 0.5555555555e-1_dp*t5011 - t5016 + t5019 - t5022 - t5025 - t5028 &
2234  + t5032 + t5035
2235  t5040 = t379*t4729
2236  t5043 = 0.1666666668e0_dp*t289*t84*t5040
2237  t5044 = t140*t4853
2238  t5047 = 0.1666666668e0_dp*t289*t84*t5044
2239  t5050 = 0.1666666668e0_dp*t165*t897*t4729
2240  t5051 = beta*t86
2241  t5060 = beta*t92
2242  t5065 = my_rho*t4713
2243  t5069 = my_rho*t4725
2244  t5079 = t136*t4713
2245  t5083 = t645*t557
2246  t5087 = t136*t4725
2247  t5106 = beta*t640
2248  t5108 = t126*t371*my_ndrho
2249  t5115 = t366*t640
2250  t5118 = -0.480e2_dp*t5051*t4717 + 0.240e2_dp*t7*t2182*t2480*t371 &
2251  + 0.480e2_dp*t5060*t628 - 0.240e2_dp*t7*t1640*t1438*t371 &
2252  *my_rho + 0.120e2_dp*t550*t637 - 0.180e2_dp*t5106*t5108 - 0.120e2_dp &
2253  *t7*t640*t635*t371 + 0.180e2_dp*t5115*t1681
2254  t5122 = -0.320e2_dp*t5051*t4708 + 0.640e2_dp*t1582*t558 - 0.320e2_dp &
2255  *t302*t4714 + 0.160e2_dp*t302*t4726 + 0.320e2_dp*t5060*t99 - &
2256  0.640e2_dp*t605*t609 + 0.320e2_dp*t93*t953*t5065 - 0.160e2_dp* &
2257  t93*t316*t5069 - 0.40e1_dp*t624*t137 + 0.160e2_dp*t112*t615 &
2258  - 0.80e1_dp*t112*t646 - 0.120e2_dp*t102*t974*t5079 + 0.80e1_dp* &
2259  t102*t327*t5083 + 0.40e1_dp*t102*t327*t5087 - 0.20e1_dp*t102 &
2260  *t105*t5118
2261  t5123 = t5122*t237
2262  t5126 = 0.1666666668e0_dp*t289*t84*t5123
2263  t5139 = t25*t4701
2264  t5143 = t25*t4729
2265  t5147 = -0.5625000000e1_dp*t1302*t401*t4701 + 0.4500000000e1_dp*t400 &
2266  *t1892*t561 + 0.2250000000e1_dp*t400*t401*t4729 - 0.1500000000e1_dp &
2267  *t151*t50*t5122 - 0.2250000000e1_dp*t400*t156*t5139 &
2268  + 0.1500000000e1_dp*t405*t156*t5143
2269  t5163 = t140*t4701
2270  t5170 = t649*t561
2271  t5174 = t140*t4729
2272  t5226 = 0.5400000000e2_dp*t1143*t474*t4701 - 0.3600000000e2_dp*t473 &
2273  *t1801*t561 - 0.1800000000e2_dp*t473*t474*t4729 + 0.8999999998e1_dp &
2274  *t178*t62*t5122 + 0.3600000000e2_dp*t473*t183*t5139 &
2275  - 0.1800000000e2_dp*t478*t183*t5143
2276  t5228 = t705*t59
2277  t5229 = t5228*t177
2278  t5237 = t649*t177
2279  t5244 = t60*t705
2280  t5247 = t187*t4769
2281  t5251 = t58*t5122
2282  t5256 = t140*t1141
2283  t5262 = t471*t722
2284  t5270 = t68*t5226
2285  t5271 = t5270*t65
2286  t5276 = t5226*t65 + 0.1800000000e2_dp*t5229*t710 - 0.2250000000e2_dp &
2287  *t707*t471*t4905 + 0.8999999998e1_dp*t708*t4909 - 0.1000000000e1_dp &
2288  *t5237*t709 - 0.5000000001e0_dp*t716*t4908 - 0.1000000001e1_dp &
2289  *t723*t4908 - 0.1000000000e1_dp*t5244*t709 + 0.8099999996e2_dp &
2290  *t5247*t1141*t4915 - 0.5555555558e-1_dp*t5251*t71 + 0.1000000000e1_dp &
2291  *t2098*t4904 - 0.4500000000e1_dp*t5256*t4701*t4940 &
2292  - 0.1111111112e0_dp*t4943*t196 - 0.9000000007e1_dp*t5262*t4701 &
2293  *t4940 - 0.5555555558e-1_dp*t4943*t200 - 0.1111111112e0_dp*t719* &
2294  t729 - 0.5555555558e-1_dp*t192*t5271 - 0.5000000001e0_dp*t732*t4908
2295  t5280 = (2*t147*t149*t5147) - 0.3600000000e2_dp*t2081*t4760 &
2296  *t161 + 0.1800000000e2_dp*t658*t4764*t161 + 0.3600000000e2_dp &
2297  *t658*t575*t673 + 0.1620000000e3_dp*t4995*t4772*t161 + 0.1250000000e0_dp &
2298  *t1368*t166*t5163 - 0.1666666667e0_dp*t429*t679 &
2299  *t593 - 0.1666666667e0_dp*t429*t166*t5170 - 0.8333333335e-1_dp* &
2300  t429*t166*t5174 + 0.1666666667e0_dp*t165*t5029*t140 + 0.3333333334e0_dp &
2301  *t165*t679*t649 + 0.1666666667e0_dp*t165*t166*t5122 &
2302  - 0.8333333335e-1_dp*t1246*t446*t5139 + 0.3333333334e0_dp*t445 &
2303  *t1962*t668 + 0.1666666667e0_dp*t445*t446*t5143 + 0.3333333334e0_dp &
2304  *t170*t5013*t172 - 0.8333333335e-1_dp*t429*t462*t4701 &
2305  + 0.3333333334e0_dp*t165*t1966*t561 + 0.1666666667e0_dp*t165 &
2306  *t462*t4729 + 0.3333333334e0_dp*t55*t57*t5276
2307  t5281 = t45*t5280
2308  t5284 = 0.3333333336e0_dp*t83*t5281*t237
2309  t5291 = 0.1666666668e0_dp*t289*t384*t4801
2310  t5294 = 0.1666666668e0_dp*t1546*t3865*t1410
2311  t5295 = t45*t4786
2312  t5298 = 0.3333333336e0_dp*t83*t5295*t379
2313  t5301 = 0.3333333336e0_dp*t55*t384*t4729
2314  t5303 = t83*t1564*t649
2315  t5305 = -t5043 - t5047 - t5050 - t5126 - t5284 - 0.3333333336e0_dp*t83 &
2316  *t45*t5036*t140 - t5291 + t5294 - t5298 - t5301 - 0.6666666672e0_dp &
2317  *t5303
2318  t5308 = 0.3333333336e0_dp*t289*t1694*t1410
2319  t5311 = 0.1666666668e0_dp*t289*t1071*t4701
2320  t5314 = 0.1666666668e0_dp*t289*t5295*t290
2321  t5317 = 0.3333333336e0_dp*t165*t3861*t561
2322  t5320 = 0.3333333336e0_dp*t83*t1071*t4729
2323  t5323 = 0.1666666668e0_dp*t1546*t3861*t1410
2324  t5326 = 0.1250000001e0_dp*t3842*t897*t4790
2325  t5329 = 0.6666666672e0_dp*t83*t1694*t1447
2326  t5330 = t379*t4701
2327  t5333 = 0.8333333340e-1_dp*t906*t84*t5330
2328  t5335 = 0.2222222224e0_dp*t383*t5281
2329  t5338 = 0.6666666672e0_dp*t55*t1694*t561
2330  t5339 = t649*t1447
2331  t5342 = 0.3333333336e0_dp*t289*t84*t5339
2332  t5343 = -t5308 - t5311 - t5314 - t5317 - t5320 + t5323 - t5326 - t5329 &
2333  + t5333 - t5335 - t5338 - t5342
2334  t5345 = t1688*t561
2335  t5347 = t289*t84*t5345
2336  t5351 = 0.1666666668e0_dp*t164*t384*t4701
2337  t5354 = 0.3333333336e0_dp*t83*t384*t4853
2338  t5357 = 0.6666666672e0_dp*t55*t597*t649
2339  t5360 = 0.3333333336e0_dp*t289*t384*t4797
2340  t5363 = 0.8333333335e-1_dp*t429*t166*t5040
2341  t5367 = 0.1666666667e0_dp*t445*t4782*my_rho*t413
2342  t5370 = 0.1666666667e0_dp*t429*t679*t1557
2343  t5371 = t225*t4701
2344  t5373 = t2885*t446*t5371
2345  t5376 = t165*t466*t5009
2346  t5379 = t165*t1928*t649
2347  t5383 = 0.4166666667e-1_dp*t2763*t1247*t5002
2348  t5386 = 0.8333333335e-1_dp*t429*t5029*t290
2349  t5389 = 0.8333333335e-1_dp*t429*t166*t5044
2350  t5397 = 0.8333333335e-1_dp*t1246*t446*t413*t4729
2351  t5400 = 0.3333333334e0_dp*t445*t1962*t1825
2352  t5402 = t165*t679*t1688
2353  t5406 = 0.8333333335e-1_dp*t429*t166*t5123
2354  t5409 = 0.8333333335e-1_dp*t429*t1392*t4701
2355  t5412 = 0.8333333335e-1_dp*t429*t171*t5139
2356  t5415 = 0.1666666667e0_dp*t429*t462*t4797
2357  t5418 = 2*t147*t393*t5147
2358  t5421 = t657*t1884*t59*t1975
2359  t5423 = -t5363 + t5367 - t5370 + 0.1111111111e0_dp*t5373 - 0.5555555555e-1_dp &
2360  *t5376 + 0.3333333334e0_dp*t5379 - t5383 - t5386 - t5389 + &
2361  0.3333333334e0_dp*t170*t27*t4958*t172 - t5397 + t5400 + 0.3333333334e0_dp &
2362  *t5402 - t5406 - t5409 - t5412 - t5415 + t5418 + 0.3600000000e2_dp &
2363  *t5421
2364  t5426 = 0.8333333335e-1_dp*t1246*t1292*t5139
2365  t5429 = 0.1666666667e0_dp*t445*t1292*t5143
2366  t5430 = t225*t4729
2367  t5432 = t1373*t446*t5430
2368  t5436 = 0.1666666667e0_dp*t165*t5029*t379
2369  t5440 = 0.40e1_dp*t102*t327*t375*t4725
2370  t5443 = 0.960e2_dp*t1597*t3608*t4829
2371  t5446 = 0.480e2_dp*t24*t23*t1618
2372  t5449 = 0.1173333333e3_dp*t307*t2611*t5065
2373  t5451 = 0.640e2_dp*t605*t1603
2374  t5454 = 0.2133333334e2_dp*t321*t953*t5083
2375  t5456 = 0.1280e3_dp*t1582*t1426
2376  t5459 = 0.5333333333e1_dp*t321*t316*t5118
2377  t5460 = beta*t306
2378  t5462 = 0.1173333333e3_dp*t5460*t313
2379  t5466 = 0.40e1_dp*t102*t327*t136*t4849
2380  t5468 = 0.2346666666e3_dp*t605*t1420
2381  t5469 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 - t5456 + t5459 &
2382  - t5462 + t5466 - t5468
2383  t5472 = 0.3200000001e2_dp*t321*t2455*t5079
2384  t5474 = 0.4266666668e2_dp*t339*t1608
2385  t5478 = 0.240e2_dp*t1616*t973*t645*t1425
2386  t5480 = 0.1760000000e3_dp*t5060*t627
2387  t5482 = 0.2160000000e3_dp*t7*t1642
2388  t5484 = 0.1760000000e3_dp*t5460*t347
2389  t5487 = 0.2160000000e3_dp*t7*t995*t1652
2390  t5489 = 0.1600000000e2_dp*t1429*t1658
2391  t5492 = 0.7200000000e2_dp*beta*t368*t5108
2392  t5494 = 0.6400000000e2_dp*t7*t1677
2393  t5496 = t366*t368*t1681
2394  t5499 = 0.120e2_dp*t550*t1669
2395  t5503 = 0.180e2_dp*t5106*t360*t371*my_ndrho
2396  t5507 = 0.120e2_dp*t7*t640*t1667*t371
2397  t5509 = 0.180e2_dp*t5115*t3668
2398  t5511 = t1680*t3673*t23
2399  t5516 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.1920000000e3_dp &
2400  *t5496 + t5499 - t5503 - t5507 + t5509 - 0.4800000000e2_dp &
2401  *t5511 + 0.1200000000e3_dp*t1055*t2565*t4721
2402  t5523 = 0.120e2_dp*t102*t974*t375*t4713
2403  t5525 = 0.2133333334e2_dp*t339*t1611
2404  t5528 = t102*t327*t1684*t557
2405  t5531 = 0.160e2_dp*t112*t1626
2406  t5533 = 0.160e2_dp*t112*t1632
2407  t5535 = 0.640e2_dp*t1582*t1444
2408  t5537 = 0.160e2_dp*t112*t1622
2409  t5540 = 0.320e2_dp*t1597*t1598*t4837
2410  t5541 = t5472 - t5474 - t5478 - 0.20e1_dp*t102*t105*t5516 - t5523 &
2411  + t5525 + 0.80e1_dp*t5528 + t5531 + t5533 + t5535 + t5537 + t5540
2412  t5545 = 0.480e2_dp*t1616*t3750*t4829
2413  t5548 = 0.120e2_dp*t1616*t1617*t4837
2414  t5551 = 0.1280e3_dp*t24*t298*t1599
2415  t5553 = 0.160e2_dp*t302*t4850
2416  t5558 = 0.320e2_dp*t5060*t97*t104*my_rho*t233
2417  t5560 = 0.2346666666e3_dp*t1589*t1592
2418  t5562 = 0.5866666667e2_dp*t93*t4820
2419  t5564 = 0.1173333333e3_dp*t5060*t98
2420  t5565 = t112*t1685
2421  t5568 = 0.1066666667e2_dp*t1645*t322
2422  t5572 = 0.40e1_dp*t102*t327*t5118*t233
2423  t5574 = 0.1173333333e3_dp*t93*t4817
2424  t5575 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 &
2425  - 0.80e1_dp*t5565 + t5568 + t5572 + t5574
2426  t5579 = 0.80e1_dp*t102*t327*t645*t1443
2427  t5581 = 0.320e2_dp*t302*t4838
2428  t5585 = 0.160e2_dp*t93*t316*my_rho*t4849
2429  t5590 = 0.80e1_dp*t624*t22*t326*t136*t233
2430  t5593 = 0.1066666667e2_dp*t321*t953*t5087
2431  t5595 = 0.640e2_dp*t302*t4834
2432  t5597 = 0.960e2_dp*t302*t4830
2433  t5600 = 0.240e2_dp*t1616*t1617*t4833
2434  t5602 = 0.40e1_dp*t624*t376
2435  t5604 = 0.320e2_dp*t5051*t234
2436  t5607 = 0.5866666667e2_dp*t307*t949*t5069
2437  t5610 = 0.640e2_dp*t1597*t1598*t4833
2438  t5611 = t5579 - t5581 - t5585 + t5590 - t5593 - t5595 + t5597 - t5600 &
2439  - t5602 + t5604 + t5607 + t5610
2440  t5613 = t5469 + t5541 + t5575 + t5611
2441  t5619 = 0.3333333334e0_dp*t170*t5013*t25
2442  t5622 = 0.1666666667e0_dp*t165*t1392*t4729
2443  t5625 = 0.1666666667e0_dp*t429*t166*t5339
2444  t5628 = 0.3600000000e2_dp*t2081*t4760*t425
2445  t5631 = 0.5555555556e-1_dp*t1246*t4032*t1483
2446  t5632 = t25*t4853
2447  t5635 = 0.1500000000e1_dp*t405*t156*t5632
2448  t5638 = 0.2250000000e1_dp*t400*t1333*t4701
2449  t5641 = 0.1500000000e1_dp*t405*t1333*t4729
2450  t5643 = t400*t3975*t561
2451  t5647 = 0.5625000000e1_dp*t1302*t1309*t4701
2452  t5650 = 0.5625000000e1_dp*t1302*t401*t4801
2453  t5653 = 0.4500000000e1_dp*t400*t1892*t1447
2454  t5657 = 0.5000000000e0_dp*t405*t68*t5122*t17
2455  t5660 = 0.1125000000e2_dp*t1302*t401*t4797
2456  t5663 = 0.1500000000e1_dp*t400*t417*t5371
2457  t5666 = 0.1125000000e2_dp*t1302*t1892*t1410
2458  t5667 = t5635 - t5638 + t5641 + 0.4500000000e1_dp*t5643 - t5647 - t5650 &
2459  + t5653 - t5657 - t5660 + t5663 - t5666
2460  t5670 = 0.2250000000e1_dp*t400*t1309*t4729
2461  t5671 = t172*t4801
2462  t5673 = 0.2250000000e1_dp*t1912*t5671
2463  t5676 = 0.2250000000e1_dp*t400*t401*t4853
2464  t5679 = 0.1875000000e1_dp*t1302*t406*t5002
2465  t5682 = 0.1500000000e1_dp*t400*t1902*t1483
2466  t5686 = 0.2250000000e1_dp*t400*t19*t5122*t237
2467  t5689 = 0.1000000000e1_dp*t405*t417*t5430
2468  t5692 = 0.1968750000e2_dp*t2823*t401*t4790
2469  t5695 = 0.7500000000e0_dp*t400*t406*t5009
2470  t5696 = t172*t4790
2471  t5698 = 0.5625000000e1_dp*t3939*t5696
2472  t5699 = t172*t4797
2473  t5701 = 0.4500000000e1_dp*t1912*t5699
2474  t5705 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 &
2475  + t5695 + t5698 - t5701 - 0.1500000000e1_dp*t151*t50*t5613
2476  t5713 = t4739*t160
2477  t5716 = 0.1620000000e3_dp*t4994*t392*t4769*t1141*t26*t5713
2478  t5719 = 0.3333333334e0_dp*t165*t1966*t1447
2479  t5722 = 0.1111111111e0_dp*t165*t689*t1988
2480  t5724 = t429*t166*t5345
2481  t5728 = 0.2500000000e0_dp*t1981*t1247*t4797
2482  t5731 = 0.1666666667e0_dp*t445*t446*t5632
2483  t5734 = 0.1666666667e0_dp*t429*t679*t1553
2484  t5738 = 0.4444444445e0_dp*t170*t114*t4782*t451
2485  t5741 = 0.1666666667e0_dp*t165*t171*t5143
2486  t5742 = -t5426 + t5429 - 0.2222222222e0_dp*t5432 + t5436 + 0.1666666667e0_dp &
2487  *t165*t166*t5613 + t5619 + t5622 - t5625 - t5628 + t5631 &
2488  + (2*t147*t149*(t5667 + t5705)) + t5716 + t5719 - t5722 &
2489  - 0.1666666667e0_dp*t5724 + t5728 + t5731 - t5734 - t5738 + t5741
2490  t5745 = t165*t4498*t561
2491  t5749 = 0.1666666667e0_dp*t429*t437*t5170
2492  t5752 = 0.8333333335e-1_dp*t429*t462*t4801
2493  t5756 = 0.1111111111e0_dp*t170*t27*t5276*t17
2494  t5760 = 0.1250000000e0_dp*t2763*t446*t413*t4701
2495  t5767 = 0.1666666667e0_dp*t165*t437*t5122
2496  t5770 = 0.1620000000e3_dp*t4995*t4772*t425
2497  t5773 = 0.1250000000e0_dp*t1368*t437*t5163
2498  t5776 = 0.2777777778e-1_dp*t1246*t1247*t5009
2499  t5780 = 0.1666666667e0_dp*t165*t56*t5276*t237
2500  t5783 = 0.5555555557e-1_dp*t165*t5013*t433
2501  t5786 = 0.3333333334e0_dp*t165*t689*t668
2502  t5789 = 0.1250000000e0_dp*t1368*t166*t5330
2503  t5792 = 0.2777777778e-1_dp*t429*t466*t5002
2504  t5795 = 0.1111111111e0_dp*t165*t1940*t1483
2505  t5797 = t1373*t1962*t1829
2506  t5801 = 0.3600000000e2_dp*t1143*t479*t5002
2507  t5804 = 0.2400000000e2_dp*t473*t1811*t1483
2508  t5807 = 0.2160000000e3_dp*t2994*t474*t4790
2509  t5810 = 0.1080000000e3_dp*t1143*t1801*t1410
2510  t5813 = 0.1800000000e2_dp*t478*t183*t5632
2511  t5816 = 0.3600000000e2_dp*t473*t1176*t4701
2512  t5819 = 0.1800000000e2_dp*t478*t1176*t4729
2513  t5822 = 0.1800000000e2_dp*t473*t474*t4853
2514  t5825 = 0.1200000000e2_dp*t473*t479*t5009
2515  t5828 = 0.3600000000e2_dp*t473*t1801*t1447
2516  t5830 = 0.1080000000e3_dp*t4230*t5696
2517  t5831 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 &
2518  - t5825 - t5828 - t5830
2519  t5833 = 0.7200000000e2_dp*t1821*t5699
2520  t5835 = 0.3600000000e2_dp*t1821*t5671
2521  t5838 = 0.1080000000e3_dp*t1143*t474*t4797
2522  t5841 = 0.5400000000e2_dp*t1143*t474*t4801
2523  t5845 = 0.1800000000e2_dp*t473*t20*t5122*t237
2524  t5848 = 0.5400000000e2_dp*t1143*t1150*t4701
2525  t5850 = t473*t4201*t561
2526  t5854 = 0.1200000000e2_dp*t473*t489*t5371
2527  t5857 = 0.6000000000e1_dp*t478*t489*t5430
2528  t5861 = 0.5999999999e1_dp*t478*t56*t5122*t17
2529  t5864 = 0.1800000000e2_dp*t473*t1150*t4729
2530  t5868 = t5833 + t5835 + t5838 + t5841 - t5845 + t5848 - 0.3600000000e2_dp &
2531  *t5850 - t5854 + t5857 + t5861 - t5864 + 0.8999999998e1_dp*t178 &
2532  *t62*t5613
2533  t5869 = t5831 + t5868
2534  t5875 = t1447*t187*t1722
2535  t5880 = 0.3703703705e-1_dp*t192*t194*t5226*t526
2536  t5881 = t1141*t4701
2537  t5885 = t719*t1769
2538  t5888 = t60*t1836*t709
2539  t5891 = 0.5555555558e-1_dp*t4943*t534
2540  t5898 = t705*t1504*t65
2541  t5902 = 0.1800000000e2_dp*t1718*t178*t710
2542  t5905 = 0.5555555558e-1_dp*t192*t5270*t267
2543  t5908 = t1836*t59*t177*t710
2544  t5911 = t266*t4729*t65
2545  t5913 = 0.1000000001e1_dp*t723*t5911
2546  t5918 = t140*t1504*t1722
2547  t5922 = 0.1111111112e0_dp*t4776*t515*t517
2548  t5925 = 0.8099999996e2_dp*t498*t4770*t4915
2549  t5926 = -0.5555555558e-1_dp*t192*t68*t5869*t65 - 0.1000000000e1_dp &
2550  *t5875 + t5880 + 0.3000000000e1_dp*t1748*t5881*t4940 - 0.1111111112e0_dp &
2551  *t5885 - 0.1000000000e1_dp*t5888 - t5891 + t5869*t65 + &
2552  0.666666666e0_dp*t1519*t722*t4729*t65 + (2*t5898) + t5902 &
2553  - t5905 + 0.1800000000e2_dp*t5908 - t5913 - 0.1111111112e0_dp*t516 &
2554  *t4898*t172 - 0.1000000000e1_dp*t5918 - t5922 + t5925
2555  t5929 = 0.2250000000e2_dp*t1740*t471*t4905
2556  t5932 = 0.1000000000e1_dp*t649*t266*t1722
2557  t5938 = t192*t728*t1505
2558  t5940 = t4918*t67
2559  t5942 = 0.1111111112e0_dp*t5940*t196
2560  t5944 = t1447*t722*t1722
2561  t5949 = 0.8999999998e1_dp*t1795*t4909
2562  t5952 = 0.9000000007e1_dp*t1763*t5881*t4940
2563  t5954 = 0.8999999998e1_dp*t1741*t4909
2564  t5956 = t471*t4701*t65
2565  t5958 = 0.1000000000e1_dp*t1766*t5956
2566  t5960 = 0.5555555558e-1_dp*t5940*t200
2567  t5963 = 0.1000000000e1_dp*t379*t471*t4904
2568  t5964 = t1715*t1525
2569  t5966 = t1785*t1790
2570  t5971 = 0.4500000000e1_dp*t379*t1141*t4701*t4940
2571  t5973 = 0.5555555558e-1_dp*t4943*t531
2572  t5975 = t5226*t266*t65
2573  t5977 = 0.1111111112e0_dp*t1755*t729
2574  t5978 = -t5929 - t5932 + 0.3333333334e0_dp*t1519*t187*t4729*t65 &
2575  - 0.1111111112e0_dp*t5938 - t5942 - 0.2000000002e1_dp*t5944 - 0.5555555558e-1_dp &
2576  *t503*t4955 + t5949 - t5952 + t5954 + t5958 - t5960 &
2577  + t5963 - 0.1111111112e0_dp*t5964 - 0.2222222224e0_dp*t5966 - t5971 &
2578  - t5973 + t5975 - t5977
2579  t5985 = 0.5000000001e0_dp*t1774*t4908
2580  t5990 = t177*t4729*t65
2581  t5994 = 0.5000000001e0_dp*t1766*t5990
2582  t5996 = 0.3703703705e-1_dp*t4943*t527
2583  t6000 = 0.9000000007e1_dp*t5262*t266*t4701*t4940
2584  t6002 = 0.1851851853e0_dp*t4943*t512
2585  t6004 = t1709*t178*t710
2586  t6006 = t719*t1838
2587  t6009 = 0.5000000001e0_dp*t1777*t4908
2588  t6017 = 0.5000000001e0_dp*t732*t5911
2589  t6019 = 0.7407407410e-1_dp*t719*t1726
2590  t6021 = t649*t1518*t1722
2591  t6023 = t5251*t67
2592  t6025 = 0.3703703705e-1_dp*t6023*t271
2593  t6029 = 0.5999999993e1_dp*t4946*t722*t4701*t4940 - t5985 - 0.5555555558e-1_dp &
2594  *t192*t199*t4898 + 0.3333333334e0_dp*t1748*t5990 &
2595  - t5994 + t5996 - t6000 + t6002 + 0.1800000000e2_dp*t6004 - 0.1111111112e0_dp &
2596  *t6006 - t6009 + 0.3000000000e1_dp*t4946*t187*t4701 &
2597  *t4940 - 0.6666666668e0_dp*t1748*t5956 - t6017 + t6019 + 0.6666666668e0_dp &
2598  *t6021 + t6025 - 0.5555555558e-1_dp*t58*t5613*t71
2599  t6031 = 0.5000000001e0_dp*t1720*t5990
2600  t6033 = 0.1000000000e1_dp*t5244*t1712
2601  t6036 = 0.2250000000e2_dp*t498*t472*t4905
2602  t6040 = 0.5555555558e-1_dp*t6023*t275
2603  t6042 = 0.1000000001e1_dp*t1763*t5990
2604  t6044 = 0.2000000002e1_dp*t1763*t5956
2605  t6047 = 0.4500000000e1_dp*t1720*t5881*t4940
2606  t6049 = t1688*t177*t709
2607  t6052 = t1504*t561*t65
2608  t6053 = t732*t6052
2609  t6056 = 0.5555555558e-1_dp*t508*t5271
2610  t6058 = 0.1111111112e0_dp*t4943*t520
2611  t6060 = t1766*t5881*t4940
2612  t6063 = 0.1000000000e1_dp*t1720*t5956
2613  t6066 = t1519*t705*t561*t65
2614  t6074 = 0.8099999996e2_dp*t496*t4769*t1141*t4915
2615  t6075 = t723*t6052
2616  t6078 = 0.1111111112e0_dp*t719*t1782
2617  t6079 = -t6031 - t6033 - t6036 + t187*t4897*t65 - t6040 - t6042 &
2618  + t6044 - t6047 - 0.1000000000e1_dp*t6049 - 0.1000000000e1_dp*t6053 &
2619  - t6056 - t6058 - 0.4500000000e1_dp*t6060 + t6063 + 0.6666666668e0_dp &
2620  *t6066 - 0.1000000000e1_dp*t237*t705*t1722 + t6074 - 0.2000000002e1_dp &
2621  *t6075 - t6078
2622  t6087 = 0.1666666667e0_dp*t429*t1966*t1410
2623  t6090 = 0.3125000000e0_dp*t4025*t1247*t4790
2624  t6091 = 0.3333333334e0_dp*t5745 - t5749 - t5752 - t5756 + t5760 + 0.1666666667e0_dp &
2625  *t165*t56*t4958*t140 + t5767 + t5770 + t5773 + &
2626  t5776 + t5780 - t5783 + t5786 + t5789 + t5792 - t5795 - 0.4444444444e0_dp &
2627  *t5797 + 0.3333333334e0_dp*t55*t57*(t5926 + t5978 + t6029 &
2628  + t6079) - t6087 - t6090
2629  t6094 = 0.1250000000e0_dp*t1981*t1247*t4801
2630  t6099 = 0.1800000000e2_dp*t1971*t1972*t4729*t149*t160
2631  t6102 = 0.2500000000e0_dp*t1981*t4553*t1410
2632  t6106 = 0.3600000000e2_dp*t1971*t1972*t1973*t672
2633  t6109 = 0.1666666667e0_dp*t1246*t1962*t1865
2634  t6112 = 0.5555555556e-1_dp*t1246*t4553*t1483
2635  t6116 = 0.3600000000e2_dp*t1971*t471*t20*t5713
2636  t6119 = 0.1250000000e0_dp*t1368*t462*t4790
2637  t6123 = 0.1666666667e0_dp*t1246*t446*t1825*t561
2638  t6126 = 0.1800000000e2_dp*t658*t4764*t425
2639  t6129 = 0.8333333335e-1_dp*t429*t437*t5174
2640  t6132 = 0.1666666667e0_dp*t165*t462*t4853
2641  t6136 = 0.5555555557e-1_dp*t165*t171*t5122*t17
2642  t6138 = t429*t1928*t593
2643  t6141 = t658*t575*t1925
2644  t6144 = t445*t4512*t668
2645  t6155 = 0.2500000000e0_dp*t1981*t4032*t1410
2646  t6158 = 0.1666666667e0_dp*t429*t679*t1571
2647  t6160 = t147*t1885*t672
2648  t6162 = t6094 + t6099 + t6102 + t6106 - t6109 + t6112 - t6116 + t6119 &
2649  - t6123 + t6126 - t6129 + t6132 - t6136 - 0.1666666667e0_dp*t6138 &
2650  + 0.3600000000e2_dp*t6141 + 0.3333333334e0_dp*t6144 + 0.2e1_dp*t147 &
2651  *(t4881 - t4884 - t4887 + 0.9000000000e1_dp*t4889 - t4893 + 0.6000000000e1_dp &
2652  *t4895)*t149*t160 + t6155 - t6158 + (4*t6160)
2653  t6170 = 0.3333333336e0_dp*t289*t597*t1571
2654  t6173 = 0.3333333336e0_dp*t55*t5295*t140
2655  t6175 = t83*t597*t1688
2656  t6179 = 0.3333333336e0_dp*t165*t3865*t561
2657  t6181 = t289*t1564*t593
2658  t6185 = 0.3333333336e0_dp*t289*t597*t1553
2659  t6186 = -0.3333333336e0_dp*t5347 - t5351 - t5354 - t5357 - t5360 - 0.2222222224e0_dp &
2660  *t144*t46*(t5423 + t5742 + t6091 + t6162) - t6170 &
2661  - t6173 - 0.6666666672e0_dp*t6175 - t6179 - 0.3333333336e0_dp*t6181 &
2662  - t6185
2663  t6189 = 0.8333333340e-1_dp*t906*t294*t5163
2664  t6192 = 0.3333333336e0_dp*t83*t294*t5122
2665  t6194 = t83*t3875*t561
2666  t6198 = 0.3333333336e0_dp*t289*t294*t5170
2667  t6201 = 0.3333333336e0_dp*t289*t597*t1557
2668  t6207 = 0.1666666668e0_dp*t1546*t897*t4797
2669  t6210 = 0.1666666668e0_dp*t289*t294*t5174
2670  t6213 = 0.3333333336e0_dp*t55*t84*t5122
2671  t6216 = 0.8333333340e-1_dp*t429*t897*t4701
2672  t6219 = 0.8333333340e-1_dp*t906*t384*t4790
2673  t6222 = 0.8333333340e-1_dp*t1546*t897*t4801
2674  t6223 = t6189 - t6192 - 0.6666666672e0_dp*t6194 - t6198 - t6201 - 0.3333333336e0_dp &
2675  *t83*t84*t5613 + t6207 - t6210 - t6213 + t6216 + &
2676  t6219 + t6222
2677  t6227 = -t4704 - t4707 - t4732 - t4789 + t4793 - t4796 - t4800 - t4804 &
2678  - t4808 - t4812 - t4857 - t4861 - 0.1333333334e1_dp*t4864 - t4869 &
2679  - 0.4444444448e0_dp*t43*t46*t5036 + t8*(t5305 + t5343 + t6186 &
2680  + t6223)
2681  e_ndrho_ndrho_rho(ii) = e_ndrho_ndrho_rho(ii) + t6227*sx
2682  t6247 = t4769*t2992
2683  t6249 = t4772*t2027
2684  t6252 = t56*t4701
2685  t6253 = t6252*t526
2686  t6256 = t56*t4729
2687  t6257 = t6256*t526
2688  t6260 = t4743*t526
2689  t6263 = t20*t4853
2690  t6267 = t26*t1447
2691  t6268 = t6267*t709
2692  t6271 = t4764*t2027
2693  t6281 = -0.1620000000e3_dp*t6247*t4733*t6249 - 0.1200000000e2_dp* &
2694  t473*t6253 + 0.5999999999e1_dp*t478*t6257 + 0.5399999998e2_dp*t4771 &
2695  *t6260 + 0.8999999998e1_dp*t478*t6263*t65 + 0.8099999996e2_dp &
2696  *t4771*t6268 - 0.1800000000e2_dp*t473*t6271 - 0.4050000000e2_dp &
2697  *t473*t575*t2095 - 0.5000000001e0_dp*t60*t4853*t65 + 0.8999999998e1_dp &
2698  *t4901 - t4907 + t4911
2699  t6283 = t4701*t1518
2700  t6290 = t4917 - t4920 + 0.5000000001e0_dp*t4922 + t4925 + 0.3333333334e0_dp &
2701  *t6283*t177*t65 - 0.5000000001e0_dp*t4929 - t4932 - t4935 &
2702  + 0.5850000000e2_dp*t4941 + t4945 - t4951 - 0.5555555558e-1_dp*t4952
2703  t6291 = t6281 + t6290
2704  t6308 = 0.4050000000e2_dp*t4734*t4736*t2821*t18*t4739*t237 &
2705  - 0.1125000000e2_dp*t2013*t1300*t19*t4790 - t5028 - t5022 + &
2706  0.1500000000e1_dp*t2013*t398*t68*t5002 + 0.3333333334e0_dp*t55 &
2707  *t57*t6291 + t5019 - 0.3000000000e1_dp*t566*t1885*t569 - t5016 &
2708  - 0.9000000000e1_dp*t4734*t4736*t1300*t4701*t149*t17 &
2709  + t5032 + 0.1666666667e0_dp*t165*t2088*t561 - 0.5555555557e-1_dp* &
2710  t5011 + t5001
2711  t6338 = 0.1666666667e0_dp*t4874 - t5025 - 0.2700000000e2_dp*t4734*t392 &
2712  *t4736*t1300*my_rho*t5002*t149 - 0.3000000000e1_dp*t2009 &
2713  *t4748 - 0.2700000000e2_dp*t4738*t18*t1973*t1447 - t5008 - &
2714  0.3000000000e1_dp*t567*t151*t19*t4853 + t5035 - 0.1000000000e1_dp &
2715  *t2013*t2018*t5009 + 0.9000000000e1_dp*t2013*t2014*t4797 &
2716  - t4872 + 0.4500000000e1_dp*t2013*t2014*t4801 + t4878 + t5005 &
2717  + 0.4500000000e1_dp*t2009*t4744
2718  t6339 = t6308 + t6338
2719  t6344 = -t5043 - t5047 - t5050 - t5126 - t5284 - t5291 + t5294 - t5298 &
2720  - t5301 - 0.3333333336e0_dp*t5303 - t5308 - t5311 - t5314
2721  t6352 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 + 0.40e1_dp*t102 &
2722  *t327*t2057*t557 - t5456 + t5459 - t5462 + t5466 - t5468
2723  t6363 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.9600000000e2_dp &
2724  *t5496 + t5499 - t5503 - t5507 + t5509 - 0.2400000000e2_dp &
2725  *t5511 - 0.960e2_dp*t5115*t1060 - 0.240e2_dp*t2054*t3674 + 0.1200e3_dp &
2726  *t1054*t640*t3679
2727  t6367 = t5472 - t5474 - t5478 - t5523 + t5525 + 0.40e1_dp*t5528 + t5531 &
2728  + t5533 + t5535 + t5537 - 0.20e1_dp*t102*t105*t6363 + t5540
2729  t6370 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 &
2730  - 0.40e1_dp*t5565 + t5568 + t5572 + t5574
2731  t6373 = t5579 - t5581 - 0.40e1_dp*t112*t2058 - t5585 + t5590 - t5593 &
2732  - t5595 + t5597 - t5600 - t5602 + t5604 + t5607 + t5610
2733  t6375 = t6352 + t6367 + t6370 + t6373
2734  t6380 = -t5317 - t5320 + t5323 - t5326 - t5329 - 0.3333333336e0_dp*t83 &
2735  *t597*t2061 - 0.3333333336e0_dp*t83*t84*t6375 + t5333 - t5335 &
2736  - t5338 - t5342 - 0.1666666668e0_dp*t5347 - t5351
2737  t6389 = -t5354 - t5357 - 0.3333333336e0_dp*t83*t45*t2139*t561 &
2738  - t5360 - t6170 - t6173 - 0.3333333336e0_dp*t6175 - t6179 - 0.1666666668e0_dp &
2739  *t6181 - t6185 + t6189 - t6192 - 0.3333333336e0_dp*t6194
2740  t6400 = t2061*t561
2741  t6415 = -t5363 + t5367 - t5370 + 0.1111111112e0_dp*t5373 - 0.5555555557e-1_dp &
2742  *t5376 + 0.1666666667e0_dp*t5379 - t5383 - t5386 - t5389 + &
2743  0.1200000000e2_dp*t658*t2031*t673*t17 + 0.3333333334e0_dp*t170 &
2744  *t27*t6291*t172 - t5397
2745  t6428 = t5635 - t5638 + t5641 + 0.2250000000e1_dp*t5643 - t5647 - 0.1500000000e1_dp &
2746  *t151*t50*t6375 - t5650 + t5653 - t5657 - t5660 &
2747  + t5663 - t5666
2748  t6433 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 &
2749  + t5695 + 0.2250000000e1_dp*t400*t19*t2061*t561 + t5698 - &
2750  t5701
2751  t6442 = t5400 + 0.1666666667e0_dp*t5402 - t5406 + 0.1666666667e0_dp*t165 &
2752  *t56*t2131*t561 + 0.1666666667e0_dp*t165*t679*t2061 + &
2753  (2*t147*t149*(t6428 + t6433)) - t5409 - t5412 - t5415 + &
2754  t5418 + 0.1800000000e2_dp*t658*t575*t2074 + 0.1800000000e2_dp*t5421
2755  t6451 = -t5426 + t5429 - 0.2222222223e0_dp*t5432 + t5436 + 0.1620000000e3_dp &
2756  *t4995*t6267*t1974 + 0.1666666667e0_dp*t165*t2088*t649 &
2757  + t5619 + t5622 - t5625 - t5628 + t5631 + t5716
2758  t6461 = t5719 - t5722 - 0.8333333335e-1_dp*t5724 + 0.1200000000e2_dp* &
2759  t658*t6256*t2077 - 0.3240000000e3_dp*t4994*t6247*t4772*t2082 &
2760  + t5728 + t5731 - t5734 - t5738 + t5741 + 0.1666666667e0_dp*t5745 &
2761  - t5749
2762  t6479 = -t5752 + 0.1666666667e0_dp*t445*t2042*my_rho*t668 - t5756 &
2763  - 0.3600000000e2_dp*t2081*t575*t673*t237 + 0.1800000000e2_dp* &
2764  t658*t6263*t161 + t5760 + t5767 + t5770 - 0.7200000000e2_dp*t2081 &
2765  *t575*t161*t1447 + t5773 + t5776 + t5780
2766  t6490 = -t5783 - 0.3600000000e2_dp*t2081*t4764*t2082 - 0.2400000000e2_dp &
2767  *t2081*t6252*t2077 + t5786 + t5789 + t5792 - t5795 - 0.4444444445e0_dp &
2768  *t5797 - t6087 - 0.8333333335e-1_dp*t429*t166*t6400 &
2769  - t6090 + t6094
2770  t6499 = t6099 + 0.1666666667e0_dp*t165*t166*t6375 + t6102 + 0.1666666667e0_dp &
2771  *t165*t56*t6291*t140 + t6106 - t6109 + t6112 - t6116 &
2772  + t6119 - t6123 + t6126 - t6129
2773  t6509 = t4853*t65
2774  t6529 = 0.4999999999e0_dp*t5875 - 0.5000000001e0_dp*t5244*t2095 - 0.5000000001e0_dp &
2775  *t732*t6509 + t5880 + 0.1000000000e1_dp*t649*t471 &
2776  *t2099 - 0.1620000000e3_dp*t5247*t2992*t4733*t6249 - 0.5555555558e-1_dp &
2777  *t5885 + 0.8999999998e1_dp*t140*t2992*t4701*t59* &
2778  t62*t2027 - 0.5000000001e0_dp*t5888 - t5891 - 0.1800000000e2_dp*t2118 &
2779  *t6271
2780  t6539 = t5898 + t5902 - t5905 + 0.8999999998e1_dp*t5908 - t5913 + 0.2000000000e1_dp &
2781  *t2098*t2095*t561 - 0.5000000001e0_dp*t5918 - t5922 &
2782  + 0.3333333334e0_dp*t6283*t187*t177*t65 + t5925 - t5929
2783  t6554 = -t5932 - 0.5555555558e-1_dp*t5938 + 0.666666666e0_dp*t6283* &
2784  t722*t177*t65 - t5942 + 0.8999999998e1_dp*t2124*t59*t177* &
2785  t710 + 0.1000000001e1_dp*t5944 - 0.5000000001e0_dp*t2061*t177*t709 &
2786  + t5949 + t5952 + t5954 - t5958
2787  t6557 = t1447*t59
2788  t6569 = -t5960 - 0.5000000001e0_dp*t5237*t2095 + t5963 - 0.4500000000e1_dp &
2789  *t5256*t6557*t710 - 0.5555555558e-1_dp*t5964 - 0.1111111112e0_dp &
2790  *t5966 - t5971 - 0.1200000000e2_dp*t2118*t6253 - 0.5555555558e-1_dp &
2791  *t719*t2126 - t5973 + t5975 + 0.5999999999e1_dp*t2114*t6257
2792  t6583 = -t5977 - t5985 + t5994 - 0.5000000001e0_dp*t716*t6509 + t5996 &
2793  - t6000 + t6002 + 0.8999999998e1_dp*t6004 + 0.1000000000e1_dp*t2098 &
2794  *t4908*t237 - 0.1000000001e1_dp*t723*t6509 - 0.1800000000e2_dp &
2795  *t5228*t2117*t2028
2796  t6596 = t5247*t1141*t4733
2797  t6603 = -0.5555555558e-1_dp*t6006 - t6009 - t6017 - 0.5555555558e-1_dp &
2798  *t58*t6375*t71 + t6019 - 0.9000000007e1_dp*t5262*t6557*t710 &
2799  + 0.8999999998e1_dp*t708*t62*t6509 + 0.3333333334e0_dp*t6021 + &
2800  t6025 + 0.8099999996e2_dp*t6596*t6268 + 0.5399999998e2_dp*t6596* &
2801  t6260 + 0.8999999998e1_dp*t5229*t2104
2802  t6611 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 &
2803  - t5825 - t5828 - t5830 + t5833
2804  t6620 = t5835 + t5838 + t5841 - t5845 + t5848 - 0.1800000000e2_dp*t5850 &
2805  - t5854 + t5857 + t5861 - t5864 - 0.1800000000e2_dp*t473*t20 &
2806  *t2061*t561 + 0.8999999998e1_dp*t178*t62*t6375
2807  t6621 = t6611 + t6620
2808  t6630 = -0.3000000000e1_dp*t5256*t4904*t237 + 0.5999999999e1_dp*t5228 &
2809  *t2113*t2032 + t6621*t65 - t6031 - 0.4050000000e2_dp*t471 &
2810  *t187*t6557*t710 - t6033 - t6036 - t6040 + t6042 - 0.5000000001e0_dp &
2811  *t60*t2124*t709 - t6044
2812  t6640 = -t6047 - 0.5000000001e0_dp*t6049 - 0.5555555558e-1_dp*t192* &
2813  t68*t6621*t65 - 0.5000000001e0_dp*t6053 - t6056 - t6058 + 0.5850000000e2_dp &
2814  *t6060 + t6063 + 0.3333333334e0_dp*t6066 + t6074 - 0.1000000001e1_dp &
2815  *t6075 - t6078
2816  t6658 = 0.1800000000e2_dp*t658*t2035*t673 - 0.8333333335e-1_dp*t429 &
2817  *t2088*t593 + t6132 + 0.3333333334e0_dp*t55*t57*(t6529 + &
2818  t6539 + t6554 + t6569 + t6583 + t6603 + t6630 + t6640) - t6136 - 0.8333333335e-1_dp &
2819  *t6138 + 0.1800000000e2_dp*t6141 + 0.1080000000e3_dp* &
2820  t4995*t4743*t2077 + 0.1080000000e3_dp*t657*t1142*t4760*t2082 &
2821  + 0.1666666667e0_dp*t6144 + t6155 - t6158 + (2*t6160)
2822  t6665 = -0.3333333336e0_dp*t83*t45*t6339*t140 - t6198 - 0.3333333336e0_dp &
2823  *t83*t2050*t649 - t6201 + t6207 - t6210 - t6213 + t6216 &
2824  + t6219 - 0.1666666668e0_dp*t289*t2050*t593 - 0.1666666668e0_dp &
2825  *t289*t84*t6400 + t6222 - 0.2222222224e0_dp*t144*t46*(t6415 &
2826  + t6442 + t6451 + t6461 + t6479 + t6490 + t6499 + t6658)
2827  t6669 = -t4704 - t4707 - t4732 + t4793 - t4796 - t4800 - t4804 - t4861 &
2828  - 0.6666666672e0_dp*t4864 - t4869 - t4812 - t4857 - t4789 - t4808 &
2829  - 0.6666666672e0_dp*t217*t46*t2046*t561 - 0.4444444448e0_dp* &
2830  t43*t46*t6339 + t8*(t6344 + t6380 + t6389 + t6665)
2831  e_ndrho_ndrho_ndrho(ii) = e_ndrho_ndrho_ndrho(ii) + t6669*sx
2832  END IF
2833 
2834  END IF
2835  END DO
2836 !$OMP END DO
2837  END SUBROUTINE xb88_lr_adiabatic_lda_calc
2838 
2839 ! **************************************************************************************************
2840 !> \brief evaluates the becke 88 longrange exchange functional for lsd
2841 !> \param rho_set ...
2842 !> \param deriv_set ...
2843 !> \param grad_deriv ...
2844 !> \param xb88_lr_ad_params ...
2845 !> \par History
2846 !> 01.2008 created [mguidon]
2847 !> \author Manuel Guidon
2848 ! **************************************************************************************************
2849  SUBROUTINE xb88_lr_adiabatic_lsd_eval(rho_set, deriv_set, grad_deriv, xb88_lr_ad_params)
2850  TYPE(xc_rho_set_type), INTENT(IN) :: rho_set
2851  TYPE(xc_derivative_set_type), INTENT(IN) :: deriv_set
2852  INTEGER, INTENT(in) :: grad_deriv
2853  TYPE(section_vals_type), POINTER :: xb88_lr_ad_params
2854 
2855  CHARACTER(len=*), PARAMETER :: routinen = 'xb88_lr_adiabatic_lsd_eval'
2856 
2857  INTEGER :: handle, i, ispin, npoints
2858  INTEGER, DIMENSION(2, 3) :: bo
2859  REAL(kind=dp) :: epsilon_rho, lambda, omega, sx
2860  REAL(kind=dp), CONTIGUOUS, DIMENSION(:, :, :), &
2861  POINTER :: dummy, e_0
2862  TYPE(cp_3d_r_cp_type), DIMENSION(2) :: e_ndrho, e_ndrho_ndrho, e_ndrho_ndrho_ndrho, &
2863  e_ndrho_ndrho_rho, e_ndrho_rho, e_ndrho_rho_rho, e_rho, e_rho_rho, e_rho_rho_rho, &
2864  norm_drho, rho
2865  TYPE(xc_derivative_type), POINTER :: deriv
2866 
2867  CALL timeset(routinen, handle)
2868 
2869  CALL cite_reference(becke1988)
2870 
2871  NULLIFY (deriv)
2872  DO i = 1, 2
2873  NULLIFY (norm_drho(i)%array, rho(i)%array)
2874  END DO
2875 
2876  CALL section_vals_val_get(xb88_lr_ad_params, "SCALE_X", r_val=sx)
2877  CALL section_vals_val_get(xb88_lr_ad_params, "OMEGA", r_val=omega)
2878  CALL section_vals_val_get(xb88_lr_ad_params, "LAMBDA", r_val=lambda)
2879 
2880  CALL xc_rho_set_get(rho_set, &
2881  rhoa=rho(1)%array, &
2882  rhob=rho(2)%array, norm_drhoa=norm_drho(1)%array, &
2883  norm_drhob=norm_drho(2)%array, rho_cutoff=epsilon_rho, &
2884  local_bounds=bo)
2885  npoints = (bo(2, 1) - bo(1, 1) + 1)*(bo(2, 2) - bo(1, 2) + 1)*(bo(2, 3) - bo(1, 3) + 1)
2886 
2887  dummy => rho(1)%array
2888 
2889  e_0 => dummy
2890  DO i = 1, 2
2891  e_rho(i)%array => dummy
2892  e_ndrho(i)%array => dummy
2893  e_rho_rho(i)%array => dummy
2894  e_ndrho_rho(i)%array => dummy
2895  e_ndrho_ndrho(i)%array => dummy
2896  e_rho_rho_rho(i)%array => dummy
2897  e_ndrho_rho_rho(i)%array => dummy
2898  e_ndrho_ndrho_rho(i)%array => dummy
2899  e_ndrho_ndrho_ndrho(i)%array => dummy
2900  END DO
2901 
2902  IF (grad_deriv >= 0) THEN
2903  deriv => xc_dset_get_derivative(deriv_set, [INTEGER::], &
2904  allocate_deriv=.true.)
2905  CALL xc_derivative_get(deriv, deriv_data=e_0)
2906  END IF
2907  IF (grad_deriv >= 1 .OR. grad_deriv == -1) THEN
2908  deriv => xc_dset_get_derivative(deriv_set, [deriv_rhoa], &
2909  allocate_deriv=.true.)
2910  CALL xc_derivative_get(deriv, deriv_data=e_rho(1)%array)
2911  deriv => xc_dset_get_derivative(deriv_set, [deriv_rhob], &
2912  allocate_deriv=.true.)
2913  CALL xc_derivative_get(deriv, deriv_data=e_rho(2)%array)
2914  deriv => xc_dset_get_derivative(deriv_set, [deriv_norm_drhoa], &
2915  allocate_deriv=.true.)
2916  CALL xc_derivative_get(deriv, deriv_data=e_ndrho(1)%array)
2917  deriv => xc_dset_get_derivative(deriv_set, [deriv_norm_drhob], &
2918  allocate_deriv=.true.)
2919  CALL xc_derivative_get(deriv, deriv_data=e_ndrho(2)%array)
2920  END IF
2921  IF (grad_deriv >= 2 .OR. grad_deriv == -2) THEN
2922  deriv => xc_dset_get_derivative(deriv_set, [deriv_rhoa, deriv_rhoa], &
2923  allocate_deriv=.true.)
2924  CALL xc_derivative_get(deriv, deriv_data=e_rho_rho(1)%array)
2925  deriv => xc_dset_get_derivative(deriv_set, [deriv_rhob, deriv_rhob], &
2926  allocate_deriv=.true.)
2927  CALL xc_derivative_get(deriv, deriv_data=e_rho_rho(2)%array)
2928  deriv => xc_dset_get_derivative(deriv_set, [deriv_norm_drhoa, deriv_rhoa], &
2929  allocate_deriv=.true.)
2930  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho(1)%array)
2931  deriv => xc_dset_get_derivative(deriv_set, [deriv_norm_drhob, deriv_rhob], &
2932  allocate_deriv=.true.)
2933  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho(2)%array)
2934  deriv => xc_dset_get_derivative(deriv_set, &
2935  [deriv_norm_drhoa, deriv_norm_drhoa], allocate_deriv=.true.)
2936  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho(1)%array)
2937  deriv => xc_dset_get_derivative(deriv_set, &
2938  [deriv_norm_drhob, deriv_norm_drhob], allocate_deriv=.true.)
2939  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho(2)%array)
2940  END IF
2941  IF (grad_deriv >= 3 .OR. grad_deriv == -3) THEN
2942  deriv => xc_dset_get_derivative(deriv_set, [deriv_rhoa, deriv_rhoa, deriv_rhoa], &
2943  allocate_deriv=.true.)
2944  CALL xc_derivative_get(deriv, deriv_data=e_rho_rho_rho(1)%array)
2945  deriv => xc_dset_get_derivative(deriv_set, [deriv_rhob, deriv_rhob, deriv_rhob], &
2946  allocate_deriv=.true.)
2947  CALL xc_derivative_get(deriv, deriv_data=e_rho_rho_rho(2)%array)
2948  deriv => xc_dset_get_derivative(deriv_set, &
2949  [deriv_norm_drhoa, deriv_rhoa, deriv_rhoa], allocate_deriv=.true.)
2950  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho_rho(1)%array)
2951  deriv => xc_dset_get_derivative(deriv_set, &
2952  [deriv_norm_drhob, deriv_rhob, deriv_rhob], allocate_deriv=.true.)
2953  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho_rho(2)%array)
2954  deriv => xc_dset_get_derivative(deriv_set, &
2955  [deriv_norm_drhoa, deriv_norm_drhoa, deriv_rhoa], allocate_deriv=.true.)
2956  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_rho(1)%array)
2957  deriv => xc_dset_get_derivative(deriv_set, &
2958  [deriv_norm_drhob, deriv_norm_drhob, deriv_rhob], allocate_deriv=.true.)
2959  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_rho(2)%array)
2960  deriv => xc_dset_get_derivative(deriv_set, &
2961  [deriv_norm_drhoa, deriv_norm_drhoa, deriv_norm_drhoa], allocate_deriv=.true.)
2962  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_ndrho(1)%array)
2963  deriv => xc_dset_get_derivative(deriv_set, &
2964  [deriv_norm_drhob, deriv_norm_drhob, deriv_norm_drhob], allocate_deriv=.true.)
2965  CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_ndrho(2)%array)
2966  END IF
2967  IF (grad_deriv > 3 .OR. grad_deriv < -3) THEN
2968  cpabort("derivatives bigger than 3 not implemented")
2969  END IF
2970 
2971  DO ispin = 1, 2
2972 
2973 !$OMP PARALLEL DEFAULT(NONE) &
2974 !$OMP SHARED(rho, ispin, norm_drho, e_0, e_rho, e_ndrho) &
2975 !$OMP SHARED(e_rho_rho, e_ndrho_rho, e_ndrho_ndrho) &
2976 !$OMP SHARED(e_rho_rho_rho, e_ndrho_rho_rho) &
2977 !$OMP SHARED(e_ndrho_ndrho_rho, e_ndrho_ndrho_ndrho) &
2978 !$OMP SHARED(grad_deriv, npoints, epsilon_rho, sx, omega) &
2979 !$OMP SHARED(lambda)
2980 
2981  CALL xb88_lr_adiabatic_lsd_calc( &
2982  rho_spin=rho(ispin)%array, &
2983  norm_drho_spin=norm_drho(ispin)%array, &
2984  e_0=e_0, &
2985  e_rho_spin=e_rho(ispin)%array, &
2986  e_ndrho_spin=e_ndrho(ispin)%array, &
2987  e_rho_rho_spin=e_rho_rho(ispin)%array, &
2988  e_ndrho_rho_spin=e_ndrho_rho(ispin)%array, &
2989  e_ndrho_ndrho_spin=e_ndrho_ndrho(ispin)%array, &
2990  e_rho_rho_rho_spin=e_rho_rho_rho(ispin)%array, &
2991  e_ndrho_rho_rho_spin=e_ndrho_rho_rho(ispin)%array, &
2992  e_ndrho_ndrho_rho_spin=e_ndrho_ndrho_rho(ispin)%array, &
2993  e_ndrho_ndrho_ndrho_spin=e_ndrho_ndrho_ndrho(ispin)%array, &
2994  grad_deriv=grad_deriv, npoints=npoints, &
2995  epsilon_rho=epsilon_rho, &
2996  sx=sx, omega=omega, lambda=lambda)
2997 
2998 !$OMP END PARALLEL
2999 
3000  END DO
3001 
3002  CALL timestop(handle)
3003 
3004  END SUBROUTINE xb88_lr_adiabatic_lsd_eval
3005 
3006 ! **************************************************************************************************
3007 !> \brief low level calculation of the becke 88 exchange functional for lsd
3008 !> \param rho_spin alpha or beta spin density
3009 !> \param norm_drho_spin || grad rho_spin ||
3010 !> \param e_0 adds to it the local value of the functional
3011 !> \param e_rho_spin e_*_spin: derivative of the functional wrt. to the variables
3012 !> named where the * is. Everything wrt. to the spin of the arguments.
3013 !> \param e_ndrho_spin ...
3014 !> \param e_rho_rho_spin ...
3015 !> \param e_ndrho_rho_spin ...
3016 !> \param e_ndrho_ndrho_spin ...
3017 !> \param e_rho_rho_rho_spin ...
3018 !> \param e_ndrho_rho_rho_spin ...
3019 !> \param e_ndrho_ndrho_rho_spin ...
3020 !> \param e_ndrho_ndrho_ndrho_spin ...
3021 !> \param grad_deriv ...
3022 !> \param npoints ...
3023 !> \param epsilon_rho ...
3024 !> \param sx scaling-parameter for exchange
3025 !> \param omega ...
3026 !> \param lambda ...
3027 !> \par History
3028 !> 01.2008 created [mguidon]
3029 !> \author Manuel Guidon
3030 ! **************************************************************************************************
3031  SUBROUTINE xb88_lr_adiabatic_lsd_calc(rho_spin, norm_drho_spin, e_0, &
3032  e_rho_spin, e_ndrho_spin, e_rho_rho_spin, e_ndrho_rho_spin, &
3033  e_ndrho_ndrho_spin, e_rho_rho_rho_spin, e_ndrho_rho_rho_spin, &
3034  e_ndrho_ndrho_rho_spin, &
3035  e_ndrho_ndrho_ndrho_spin, grad_deriv, npoints, epsilon_rho, sx, &
3036  omega, lambda)
3037  REAL(kind=dp), DIMENSION(*), INTENT(in) :: rho_spin, norm_drho_spin
3038  REAL(kind=dp), DIMENSION(*), INTENT(inout) :: e_0, e_rho_spin, e_ndrho_spin, e_rho_rho_spin, &
3039  e_ndrho_rho_spin, e_ndrho_ndrho_spin, e_rho_rho_rho_spin, e_ndrho_rho_rho_spin, &
3040  e_ndrho_ndrho_rho_spin, e_ndrho_ndrho_ndrho_spin
3041  INTEGER, INTENT(in) :: grad_deriv, npoints
3042  REAL(kind=dp), INTENT(in) :: epsilon_rho, sx, omega, lambda
3043 
3044  INTEGER :: ii
3045  REAL(kind=dp) :: cx, epsilon_rho43, my_epsilon_rho, ndrho, rho, t1, t10, t1000, t1002, &
3046  t1004, t1008, t1012, t1014, t1019, t102, t1021, t1024, t1026, t103, t1030, t1033, t1034, &
3047  t1036, t104, t1040, t1044, t1046, t105, t1050, t1054, t1055, t1056, t1058, t1059, t106, &
3048  t1060, t1063, t1064, t1067, t1068, t107, t1071, t1076, t1079, t108, t1082, t1085, t1089, &
3049  t1093, t1097, t1099, t11, t1100, t1101, t1106, t1109, t1111, t1119, t112, t1122, t1125, &
3050  t1126, t1129, t1134, t1137, t114, t1140, t1141, t1142, t1143, t115, t1150, t1157, t116, &
3051  t1161, t1168, t1172, t1176, t1189, t119, t1191, t1192, t1193, t1194
3052  REAL(kind=dp) :: t12, t1200, t1201, t1206, t1207, t1210, t1213, t1216, t122, t1221, t1224, &
3053  t123, t1235, t1238, t1239, t1246, t1247, t1254, t126, t1264, t1268, t1275, t1283, t1284, &
3054  t1288, t1292, t13, t130, t1300, t1301, t1302, t1309, t131, t1316, t132, t1320, t133, &
3055  t1333, t1340, t1347, t1348, t136, t1360, t1367, t1368, t137, t1372, t1373, t1377, t1387, &
3056  t1388, t1392, t1396, t1397, t14, t140, t1401, t1406, t1408, t1409, t141, t1410, t1411, &
3057  t1413, t1417, t1420, t1425, t1426, t1429, t1436, t1438, t1439, t144, t1440, t1443, t1444, &
3058  t1447, t145, t1451, t1455, t1459, t146, t1466, t147, t1470, t1471
3059  REAL(kind=dp) :: t1476, t1479, t1482, t1483, t1485, t1489, t149, t1492, t1493, t1496, t1498, &
3060  t15, t150, t1500, t1502, t1504, t1505, t1506, t1507, t1509, t151, t1510, t1512, t1513, &
3061  t1515, t1517, t1518, t1519, t1523, t1525, t1528, t1530, t1531, t1535, t1536, t1541, &
3062  t1543, t1545, t1546, t1547, t1549, t155, t1552, t1553, t1556, t1557, t156, t1560, t1563, &
3063  t1564, t1565, t1568, t1570, t1571, t1574, t1575, t1577, t1579, t1581, t1582, t1584, &
3064  t1586, t1588, t1589, t1591, t1592, t1594, t1596, t1597, t1598, t1599, t16, t160, t1601, &
3065  t1602, t1603, t1605, t1607, t1608, t161, t1610, t1611, t1613, t1615
3066  REAL(kind=dp) :: t1616, t1617, t1618, t1620, t1621, t1622, t1624, t1625, t1626, t1628, &
3067  t1630, t1631, t1632, t1634, t1636, t1638, t164, t1640, t1642, t1644, t1645, t1647, t1649, &
3068  t165, t1652, t1654, t1656, t1658, t166, t1660, t1662, t1664, t1667, t1669, t1671, t1675, &
3069  t1677, t1679, t1680, t1681, t1684, t1685, t1688, t1689, t1693, t1694, t1696, t1699, t17, &
3070  t170, t1700, t1702, t1703, t1705, t1706, t1708, t1709, t171, t1712, t1714, t1715, t1717, &
3071  t1718, t1719, t172, t1720, t1722, t1724, t1726, t1728, t1730, t1731, t1735, t1737, t1740, &
3072  t1741, t1743, t1745, t1748, t1752, t1754, t1755, t1757, t1758
3073  REAL(kind=dp) :: t176, t1760, t1762, t1763, t1765, t1766, t1768, t1769, t177, t1773, t1774, &
3074  t1776, t1777, t1779, t178, t1782, t1784, t1785, t1787, t1789, t1790, t1794, t1795, t1797, &
3075  t18, t1800, t1801, t1804, t1807, t1810, t1811, t1814, t1817, t182, t1821, t1822, t1824, &
3076  t1825, t1828, t1829, t183, t1832, t1835, t1836, t1837, t1838, t1842, t1843, t1849, t1852, &
3077  t1854, t1858, t1861, t1864, t1865, t1868, t187, t1871, t1874, t1875, t1878, t1881, t1884, &
3078  t1885, t1886, t189, t1891, t1892, t1895, t1898, t19, t1901, t1902, t1905, t1908, t1912, &
3079  t1914, t1917, t192, t1920, t1923, t1924, t1925, t1928
3080  REAL(kind=dp) :: t1932, t1938, t1939, t194, t1940, t1943, t1946, t195, t1952, t1954, t1958, &
3081  t196, t1961, t1962, t1965, t1966, t1969, t1971, t1972, t1973, t1974, t1975, t1977, t1980, &
3082  t1981, t1984, t1987, t1988, t199, t1991, t1994, t1997, t20, t200, t2000, t2001, t2002, &
3083  t2006, t2009, t2013, t2014, t2018, t2022, t2027, t2028, t203, t2031, t2032, t2035, t2042, &
3084  t2046, t2050, t2054, t2057, t2058, t2061, t207, t2073, t2074, t2077, t2081, t2082, t2086, &
3085  t2088, t2095, t2098, t2099, t2104, t2107, t2113, t2114, t2117, t2118, t2124, t2126, &
3086  t2130, t2131, t2138, t2139, t214, t2143, t2147, t2160, t2169
3087  REAL(kind=dp) :: t217, t218, t2182, t2183, t2187, t219, t2190, t2193, t2196, t2197, t22, &
3088  t220, t2200, t2201, t2204, t2205, t221, t2220, t2226, t2227, t2230, t224, t225, t2257, &
3089  t2261, t2264, t2268, t2272, t2274, t2276, t2279, t2280, t2281, t2282, t2285, t2287, &
3090  t2292, t2295, t2296, t2299, t23, t230, t2300, t2304, t2307, t2308, t2311, t2312, t2319, &
3091  t2326, t233, t234, t2351, t2368, t237, t2378, t2382, t2392, t24, t2404, t2418, t2424, &
3092  t2437, t2439, t245, t2451, t2455, t2468, t2480, t249, t2492, t25, t250, t2537, t2552, &
3093  t2565, t2569, t2576, t2585, t26, t260, t2611, t262, t2621, t2622, t2631
3094  REAL(kind=dp) :: t2635, t2636, t264, t2645, t2655, t266, t267, t268, t27, t2707, t271, &
3095  t2720, t2724, t2732, t274, t275, t2759, t2763, t2779, t278, t2783, t2808, t2816, t282, &
3096  t2821, t2823, t283, t2833, t2843, t2853, t2869, t2873, t2877, t2885, t289, t290, t2935, &
3097  t2937, t294, t295, t298, t299, t2992, t2994, t2998, t302, t3026, t3030, t306, t3069, &
3098  t307, t3070, t308, t3085, t309, t3093, t3097, t3098, t31, t311, t3129, t313, t3141, t316, &
3099  t317, t318, t3181, t321, t322, t3232, t3244, t3248, t326, t3262, t3264, t3268, t327, &
3100  t3278, t328, t3288, t329, t3291, t3305, t3306, t3314, t332, t3329, t3339
3101  REAL(kind=dp) :: t3344, t3347, t3352, t3353, t3356, t3357, t336, t3362, t3363, t3366, t3378, &
3102  t3379, t3382, t339, t341, t342, t343, t3449, t3453, t347, t3472, t3491, t3494, t3497, &
3103  t35, t350, t3501, t3505, t3507, t3512, t3513, t3514, t352, t3525, t3533, t3543, t3546, &
3104  t3547, t3552, t3553, t356, t3561, t3569, t357, t3575, t3576, t3580, t3581, t36, t360, &
3105  t3608, t3618, t362, t365, t366, t3668, t367, t3673, t3674, t3677, t3679, t368, t3682, &
3106  t37, t371, t3711, t372, t3726, t375, t3750, t376, t3763, t379, t3794, t3796, t380, t3826, &
3107  t3827, t383, t384, t3842, t3849, t3853, t3861, t3865, t3869, t387
3108  REAL(kind=dp) :: t3871, t3875, t3892, t3918, t392, t3925, t393, t3933, t3939, t394, t3940, &
3109  t3965, t3969, t3975, t3979, t398, t3985, t399, t4, t40, t400, t401, t4010, t4018, t4025, &
3110  t4032, t405, t406, t4070, t4079, t41, t4101, t4108, t413, t4140, t4156, t417, t42, t4201, &
3111  t4214, t4230, t424, t425, t4255, t4256, t4261, t4272, t428, t429, t4292, t43, t4317, &
3112  t433, t4345, t4352, t437, t4378, t4392, t44, t4428, t444, t445, t446, t4466, t4498, t45, &
3113  t450, t4505, t451, t4512, t4545, t455, t4553, t4575, t4585, t46, t4607, t462, t4627, &
3114  t4657, t466, t4696, t47, t470, t4700, t4701, t4704, t4707, t4708
3115  REAL(kind=dp) :: t471, t4713, t4714, t4717, t472, t4721, t4725, t4726, t4729, t473, t4732, &
3116  t4733, t4734, t4736, t4738, t4739, t474, t4743, t4744, t4748, t4760, t4764, t4768, t4769, &
3117  t4770, t4771, t4772, t4776, t478, t4782, t4786, t4789, t479, t4790, t4793, t4796, t4797, &
3118  t48, t4800, t4801, t4804, t4808, t4812, t4817, t4820, t4829, t4830, t4833, t4834, t4837, &
3119  t4838, t4849, t4850, t4853, t4857, t4861, t4864, t4869, t4872, t4874, t4878, t4881, &
3120  t4884, t4887, t4889, t489, t4893, t4895, t4897, t4898, t49, t4901, t4904, t4905, t4907, &
3121  t4908, t4909, t4911, t4915, t4917, t4918, t4920, t4922, t4925
3122  REAL(kind=dp) :: t4929, t4932, t4935, t4940, t4941, t4943, t4945, t4946, t4951, t4952, &
3123  t4955, t4958, t496, t498, t4994, t4995, t50, t500, t5001, t5002, t5005, t5008, t5009, &
3124  t5011, t5013, t5016, t5019, t5022, t5025, t5028, t5029, t503, t5032, t5035, t5036, t5040, &
3125  t5043, t5044, t5047, t5050, t5051, t5060, t5065, t5069, t5079, t508, t5083, t5087, t5106, &
3126  t5108, t511, t5115, t5118, t512, t5122, t5123, t5126, t5139, t5143, t5147, t515, t516, &
3127  t5163, t517, t5170, t5174, t520, t5226, t5228, t5229, t5237, t5244, t5247, t5251, t5256, &
3128  t526, t5262, t527, t5270, t5271, t5276, t5280, t5281, t5284, t5291
3129  REAL(kind=dp) :: t5294, t5295, t5298, t53, t530, t5301, t5303, t5305, t5308, t531, t5311, &
3130  t5314, t5317, t5320, t5323, t5326, t5329, t5330, t5333, t5335, t5338, t5339, t534, t5342, &
3131  t5343, t5345, t5347, t5351, t5354, t5357, t5360, t5363, t5367, t537, t5370, t5371, t5373, &
3132  t5376, t5379, t5383, t5386, t5389, t5397, t5400, t5402, t5406, t5409, t541, t5412, t5415, &
3133  t5418, t5421, t5423, t5426, t5429, t5430, t5432, t5436, t5440, t5443, t5446, t5449, &
3134  t5451, t5454, t5456, t5459, t5460, t5462, t5466, t5468, t5469, t5472, t5474, t5478, &
3135  t5480, t5482, t5484, t5487, t5489, t5492, t5494, t5496, t5499, t55
3136  REAL(kind=dp) :: t550, t5503, t5507, t5509, t551, t5511, t5516, t5523, t5525, t5528, t5531, &
3137  t5533, t5535, t5537, t5540, t5541, t5545, t5548, t5551, t5553, t5558, t5560, t5562, &
3138  t5564, t5565, t5568, t557, t5572, t5574, t5575, t5579, t558, t5581, t5585, t5590, t5593, &
3139  t5595, t5597, t56, t5600, t5602, t5604, t5607, t561, t5610, t5611, t5613, t5619, t5622, &
3140  t5625, t5628, t5631, t5632, t5635, t5638, t5641, t5643, t5647, t5650, t5653, t5657, t566, &
3141  t5660, t5663, t5666, t5667, t567, t5670, t5671, t5673, t5676, t5679, t5682, t5686, t5689, &
3142  t569, t5692, t5695, t5696, t5698, t5699, t57, t5701, t5705
3143  REAL(kind=dp) :: t5713, t5716, t5719, t5722, t5724, t5728, t5731, t5734, t5738, t5741, &
3144  t5742, t5745, t5749, t575, t5752, t5756, t5760, t5767, t5770, t5773, t5776, t5780, t5783, &
3145  t5786, t5789, t579, t5792, t5795, t5797, t58, t5801, t5804, t5807, t5810, t5813, t5816, &
3146  t5819, t5822, t5825, t5828, t5830, t5831, t5833, t5835, t5838, t5841, t5845, t5848, t585, &
3147  t5850, t5854, t5857, t5861, t5864, t5868, t5869, t5875, t5880, t5881, t5885, t5888, t589, &
3148  t5891, t5898, t59, t590, t5902, t5905, t5908, t5911, t5913, t5918, t5922, t5925, t5926, &
3149  t5929, t593, t5932, t5938, t5940, t5942, t5944, t5949, t5952
3150  REAL(kind=dp) :: t5954, t5956, t5958, t5960, t5963, t5964, t5966, t597, t5971, t5973, t5975, &
3151  t5977, t5978, t598, t5985, t5990, t5994, t5996, t6, t60, t6000, t6002, t6004, t6006, &
3152  t6009, t6017, t6019, t6021, t6023, t6025, t6029, t6031, t6033, t6036, t6040, t6042, &
3153  t6044, t6047, t6049, t605, t6052, t6053, t6056, t6058, t6060, t6063, t6066, t6074, t6075, &
3154  t6078, t6079, t608, t6087, t609, t6090, t6091, t6094, t6099, t61, t6102, t6106, t6109, &
3155  t6112, t6116, t6119, t6123, t6126, t6129, t6132, t6136, t6138, t614, t6141, t6144, t615, &
3156  t6155, t6158, t6160, t6162, t6170, t6173, t6175, t6179, t6181, t6185
3157  REAL(kind=dp) :: t6186, t6189, t6192, t6194, t6198, t62, t6201, t6207, t6210, t6213, t6216, &
3158  t6219, t6222, t6223, t6227, t624, t6247, t6249, t6252, t6253, t6256, t6257, t6260, t6263, &
3159  t6267, t6268, t627, t6271, t628, t6281, t6283, t6290, t6291, t63, t6308, t6338, t6339, &
3160  t6344, t635, t6352, t6363, t6367, t637, t6370, t6373, t6375, t6380, t6389, t640, t6400, &
3161  t6415, t6428, t6433, t6442, t645, t6451, t646, t6461, t6479, t649, t6490, t6499, t65, &
3162  t650, t6509, t6529, t653, t6539, t6554, t6557, t6569, t657, t658, t6583, t6596, t66, &
3163  t6603, t6611, t6620, t6621, t6630, t6640, t6658, t6665, t6669, t668
3164  REAL(kind=dp) :: t67, t672, t673, t679, t68, t689, t69, t7, t70, t705, t707, t708, t709, &
3165  t71, t710, t713, t716, t719, t722, t723, t728, t729, t732, t735, t739, t74, t747, t753, &
3166  t754, t764, t765, t766, t769, t772, t773, t776, t777, t78, t782, t785, t786, t787, t79, &
3167  t790, t792, t795, t796, t797, t8, t800, t801, t804, t815, t822, t826, t827, t83, t833, &
3168  t84, t85, t851, t852, t855, t857, t859, t86, t862, t863, t864, t865, t866, t867, t87, &
3169  t874, t877, t878, t88, t881, t882, t886, t889, t893, t894, t897, t9, t905, t906, t907, &
3170  t914, t918, t92, t922, t923, t926, t929, t93, t930, t94, t940, t941
3171  REAL(kind=dp) :: t942, t944, t946, t949, t95, t950, t953, t954, t955, t958, t959, t962, &
3172  t963, t966, t969, t97, t972, t973, t974, t975, t976, t979, t98, t980, t983, t984, t987, &
3173  t99, t991, t995, t997, xx
3174 
3175  my_epsilon_rho = 0.5_dp*epsilon_rho
3176  epsilon_rho43 = my_epsilon_rho**(4.0_dp/3.0_dp)
3177  cx = 1.5_dp*(3.0_dp/4.0_dp/pi)**(1.0_dp/3.0_dp)
3178 
3179 !$OMP DO
3180  DO ii = 1, npoints
3181  rho = rho_spin(ii)
3182  ndrho = norm_drho_spin(ii)
3183  IF (rho > my_epsilon_rho) THEN
3184  IF (grad_deriv >= 0) THEN
3185  t1 = rho**(0.1e1_dp/0.3e1_dp)
3186  xx = ndrho*max(1.0_dp/t1/rho, epsilon_rho43)
3187  t4 = lambda*rho
3188  t6 = ndrho**2
3189  t7 = beta*t6
3190  t8 = lambda**2
3191  t9 = t8**2
3192  t10 = t9**2
3193  t11 = 0.1e1_dp/t10
3194  t12 = rho**2
3195  t13 = t9*t8
3196  t14 = 0.1e1_dp/t13
3197  t15 = t12*t14
3198  t16 = t8*lambda
3199  t17 = 0.1e1_dp/t16
3200  t18 = rho*t17
3201  t19 = t18**(0.1e1_dp/0.3e1_dp)
3202  t20 = t19**2
3203  t22 = 0.1e1_dp/t20/t15
3204  t23 = t11*t22
3205  t24 = beta*ndrho
3206  t25 = 0.1e1_dp/t9
3207  t26 = t19*t18
3208  t27 = 0.1e1_dp/t26
3209  t31 = log(ndrho*t25*t27 + sqrt((ndrho*t25*t27)**0.2e1_dp + &
3210  0.1e1_dp))
3211  t35 = 0.10e1_dp + 0.60e1_dp*t24*t25*t27*t31
3212  t36 = 0.1e1_dp/t35
3213  t37 = t23*t36
3214  t40 = 0.20e1_dp*cx + 0.20e1_dp*t7*t37
3215  t41 = sqrt(t40)
3216  t42 = t41*t40
3217  t43 = t4*t42
3218  t44 = rootpi
3219  t45 = 0.1e1_dp/t44
3220  t46 = omega*t45
3221  t47 = 0.1e1_dp/omega
3222  t48 = 0.1e1_dp/t41
3223  t49 = t47*t48
3224  t50 = t44*t19
3225  t53 = erf(0.3000000000e1_dp*t49*t50)
3226  t55 = omega*t41
3227  t56 = 0.1e1_dp/t19
3228  t57 = t45*t56
3229  t58 = omega**2
3230  t59 = 0.1e1_dp/t58
3231  t60 = 0.1e1_dp/t40
3232  t61 = t59*t60
3233  t62 = pi*t20
3234  t63 = t61*t62
3235  t65 = exp(-0.8999999998e1_dp*t63)
3236  t66 = t58*t40
3237  t67 = 0.1e1_dp/pi
3238  t68 = 0.1e1_dp/t20
3239  t69 = t67*t68
3240  t70 = t65 - 0.10e1_dp
3241  t71 = t69*t70
3242  t74 = t65 - 0.15e1_dp - 0.5555555558e-1_dp*t66*t71
3243  t78 = t44*t53 + 0.3333333334e0_dp*t55*t57*t74
3244  t79 = t46*t78
3245  t83 = rho*t41*omega
3246  t84 = t45*t78
3247  t85 = t10*lambda
3248  t86 = 0.1e1_dp/t85
3249  t87 = t86*t22
3250  t88 = t87*t36
3251  t92 = 0.1e1_dp/t10/t9
3252  t93 = t7*t92
3253  t94 = t12*rho
3254  t95 = t94*t86
3255  t97 = 0.1e1_dp/t20/t95
3256  t98 = t97*t36
3257  t99 = t98*rho
3258  t102 = t7*t11
3259  t103 = t35**2
3260  t104 = 0.1e1_dp/t103
3261  t105 = t22*t104
3262  t106 = t9*lambda
3263  t107 = 0.1e1_dp/t106
3264  t108 = t107*t27
3265  t112 = t24*t11
3266  t114 = 0.1e1_dp/t19/t15
3267  t115 = t114*t31
3268  t116 = t115*rho
3269  t119 = t24*t25
3270  t122 = ndrho*t11
3271  t123 = t114*rho
3272  t126 = -4*ndrho*t107*t27 + 4*t122*t123
3273  t130 = 1 + t6*t11*t22
3274  t131 = sqrt(t130)
3275  t132 = 0.1e1_dp/t131
3276  t133 = t27*t126*t132
3277  t136 = -0.240e2_dp*t24*t108*t31 + 0.240e2_dp*t112*t116 + 0.60e1_dp &
3278  *t119*t133
3279  t137 = t105*t136
3280  t140 = -0.160e2_dp*t7*t88 + 0.160e2_dp*t93*t99 - 0.20e1_dp*t102* &
3281  t137
3282  t141 = t84*t140
3283  t144 = rho*t42
3284  t145 = sqrt(0.3141592654e1_dp)
3285  t146 = 0.1e1_dp/t145
3286  t147 = t44*t146
3287  t149 = exp(-0.9000000000e1_dp*t63)
3288  t150 = 0.1e1_dp/t42
3289  t151 = t47*t150
3290  t155 = t49*t44
3291  t156 = t68*rho
3292  t160 = -0.1500000000e1_dp*t151*t50*t140 - 0.3000000000e1_dp*t155 &
3293  *t156*t25
3294  t161 = t149*t160
3295  t164 = omega*t48
3296  t165 = t164*t45
3297  t166 = t56*t74
3298  t170 = t55*t45
3299  t171 = t27*t74
3300  t172 = rho*t25
3301  t176 = t40**2
3302  t177 = 0.1e1_dp/t176
3303  t178 = t59*t177
3304  t182 = t61*pi
3305  t183 = t56*rho
3306  t187 = 0.8999999998e1_dp*t178*t62*t140 + 0.1800000000e2_dp*t182* &
3307  t183*t25
3308  t189 = t58*t140
3309  t192 = t66*t67
3310  t194 = 0.1e1_dp/t20/t18
3311  t195 = t194*t70
3312  t196 = t195*t172
3313  t199 = t68*t187
3314  t200 = t199*t65
3315  t203 = t187*t65 - 0.5555555558e-1_dp*t189*t71 - 0.1111111112e0_dp* &
3316  t192*t196 - 0.5555555558e-1_dp*t192*t200
3317  t207 = (2*t147*t161) + 0.1666666667e0_dp*t165*t166*t140 &
3318  + 0.3333333334e0_dp*t170*t171*t172 + 0.3333333334e0_dp*t55*t57 &
3319  *t203
3320  e_0(ii) = e_0(ii) + (-0.4444444448e0_dp*t43*t79 + t8*(-0.3333333336e0_dp*t83*t141 &
3321  - 0.2222222224e0_dp*t144*t46*t207))*sx
3322  END IF
3323  IF (grad_deriv >= 1 .OR. grad_deriv == -1) THEN
3324  t214 = lambda*t42
3325  t217 = t4*t41
3326  t218 = t10*t16
3327  t219 = 0.1e1_dp/t218
3328  t220 = t219*t97
3329  t221 = t220*t36
3330  t224 = t9*t16
3331  t225 = 0.1e1_dp/t224
3332  t230 = t220*t132
3333  t233 = -0.8000000000e1_dp*t24*t225*t114*t31 - 0.8000000000e1_dp* &
3334  t7*t230
3335  t234 = t105*t233
3336  t237 = -0.5333333333e1_dp*t7*t221 - 0.20e1_dp*t102*t234
3337  t245 = t44*t68
3338  t249 = -0.1500000000e1_dp*t151*t50*t237 + 0.1000000000e1_dp*t49* &
3339  t245*t17
3340  t250 = t149*t249
3341  t260 = t178*t62*t237
3342  t262 = pi*t56
3343  t264 = t61*t262*t17
3344  t266 = 0.8999999998e1_dp*t260 - 0.5999999999e1_dp*t264
3345  t267 = t266*t65
3346  t268 = t58*t237
3347  t271 = t195*t17
3348  t274 = t68*t266
3349  t275 = t274*t65
3350  t278 = t267 - 0.5555555558e-1_dp*t268*t71 + 0.3703703705e-1_dp*t192 &
3351  *t271 - 0.5555555558e-1_dp*t192*t275
3352  t282 = (2*t147*t250) + 0.1666666667e0_dp*t165*t166*t237 &
3353  - 0.1111111111e0_dp*t170*t171*t17 + 0.3333333334e0_dp*t55*t57 &
3354  *t278
3355  t283 = t46*t282
3356  t289 = rho*t48*omega
3357  t290 = t140*t237
3358  t294 = t45*t282
3359  t295 = t294*t140
3360  t298 = t92*t97
3361  t299 = t298*t36
3362  t302 = t7*t86
3363  t306 = 0.1e1_dp/t10/t224
3364  t307 = t7*t306
3365  t308 = t12**2
3366  t309 = t308*t92
3367  t311 = 0.1e1_dp/t20/t309
3368  t313 = t311*t36*rho
3369  t316 = t97*t104
3370  t317 = rho*t233
3371  t318 = t316*t317
3372  t321 = t7*t219
3373  t322 = t316*t136
3374  t326 = 0.1e1_dp/t103/t35
3375  t327 = t22*t326
3376  t328 = t136*t233
3377  t329 = t327*t328
3378  t332 = t11*t114
3379  t336 = t298*t132
3380  t339 = t24*t219
3381  t341 = 0.1e1_dp/t19/t95
3382  t342 = t341*t31
3383  t343 = t342*rho
3384  t347 = t311*t132*rho
3385  t350 = t24*t225
3386  t352 = t114*t126*t132
3387  t356 = ndrho*t219
3388  t357 = t341*rho
3389  t360 = 0.28e2_dp/0.3e1_dp*t122*t114 - 0.28e2_dp/0.3e1_dp*t356*t357
3390  t362 = t27*t360*t132
3391  t365 = t6*ndrho
3392  t366 = beta*t365
3393  t367 = t308*rho
3394  t368 = 0.1e1_dp/t367
3395  t371 = 0.1e1_dp/t131/t130
3396  t372 = t368*t126*t371
3397  t375 = 0.5600000000e2_dp*t24*t332*t31 + 0.3200000000e2_dp*t7*t336 &
3398  - 0.5600000000e2_dp*t339*t343 - 0.3200000000e2_dp*t307*t347 - &
3399  0.8000000000e1_dp*t350*t352 + 0.60e1_dp*t119*t362 + 0.8000000000e1_dp &
3400  *t366*t372
3401  t376 = t105*t375
3402  t379 = 0.5866666667e2_dp*t7*t299 + 0.160e2_dp*t302*t234 - 0.5866666667e2_dp &
3403  *t307*t313 - 0.160e2_dp*t93*t318 + 0.5333333333e1_dp*t321 &
3404  *t322 + 0.40e1_dp*t102*t329 - 0.20e1_dp*t102*t376
3405  t380 = t84*t379
3406  t383 = t42*omega
3407  t384 = t45*t207
3408  t387 = t384*t237
3409  t392 = 0.9000000000e1_dp*t260 - 0.6000000000e1_dp*t264
3410  t393 = t392*t149
3411  t394 = t393*t160
3412  t398 = 0.1e1_dp/t41/t176
3413  t399 = t47*t398
3414  t400 = t399*t44
3415  t401 = t19*t140
3416  t405 = t151*t44
3417  t406 = t68*t140
3418  t413 = t25*t237
3419  t417 = t194*rho
3420  t424 = 0.2250000000e1_dp*t400*t401*t237 - 0.5000000000e0_dp*t405 &
3421  *t406*t17 - 0.1500000000e1_dp*t151*t50*t379 + 0.1500000000e1_dp &
3422  *t405*t156*t413 + 0.2000000000e1_dp*t155*t417*t225 - 0.3000000000e1_dp &
3423  *t49*t245*t25
3424  t425 = t149*t424
3425  t428 = omega*t150
3426  t429 = t428*t45
3427  t433 = t140*t17
3428  t437 = t56*t278
3429  t444 = t45*t27
3430  t445 = t164*t444
3431  t446 = t74*rho
3432  t450 = t114*t74
3433  t451 = rho*t225
3434  t455 = t27*t278
3435  t462 = t56*t203
3436  t466 = t27*t203
3437  t470 = t176*t40
3438  t471 = 0.1e1_dp/t470
3439  t472 = t59*t471
3440  t473 = t472*pi
3441  t474 = t20*t140
3442  t478 = t178*pi
3443  t479 = t56*t140
3444  t489 = t27*rho
3445  t496 = -0.1800000000e2_dp*t473*t474*t237 + 0.5999999999e1_dp*t478 &
3446  *t479*t17 + 0.8999999998e1_dp*t178*t62*t379 - 0.1800000000e2_dp &
3447  *t478*t183*t413 - 0.6000000000e1_dp*t182*t489*t225 + 0.1800000000e2_dp &
3448  *t61*t262*t25
3449  t498 = t187*t266
3450  t500 = t58*t379
3451  t503 = t189*t67
3452  t508 = t268*t67
3453  t511 = t22*t70
3454  t512 = t511*t451
3455  t515 = t67*t194
3456  t516 = t66*t515
3457  t517 = t267*t172
3458  t520 = t195*t25
3459  t526 = t65*t17
3460  t527 = t194*t187*t526
3461  t530 = t68*t496
3462  t531 = t530*t65
3463  t534 = t199*t267
3464  t537 = t496*t65 + t498*t65 - 0.5555555558e-1_dp*t500*t71 + 0.3703703705e-1_dp &
3465  *t503*t271 - 0.5555555558e-1_dp*t503*t275 - 0.1111111112e0_dp &
3466  *t508*t196 + 0.1851851853e0_dp*t192*t512 - 0.1111111112e0_dp &
3467  *t516*t517 - 0.1111111112e0_dp*t192*t520 - 0.5555555558e-1_dp &
3468  *t508*t200 + 0.3703703705e-1_dp*t192*t527 - 0.5555555558e-1_dp &
3469  *t192*t531 - 0.5555555558e-1_dp*t192*t534
3470  t541 = (2*t147*t394) + (2*t147*t425) - 0.8333333335e-1_dp &
3471  *t429*t166*t290 - 0.5555555557e-1_dp*t165*t171*t433 + &
3472  0.1666666667e0_dp*t165*t437*t140 + 0.1666666667e0_dp*t165*t166 &
3473  *t379 + 0.1666666667e0_dp*t445*t446*t413 - 0.4444444445e0_dp*t170 &
3474  *t450*t451 + 0.3333333334e0_dp*t170*t455*t172 + 0.3333333334e0_dp &
3475  *t170*t171*t25 + 0.1666666667e0_dp*t165*t462*t237 - &
3476  0.1111111111e0_dp*t170*t466*t17 + 0.3333333334e0_dp*t55*t57* &
3477  t537
3478  e_rho_spin(ii) = e_rho_spin(ii) + (-0.4444444448e0_dp*t214*t79 - 0.6666666672e0_dp*t217*t46 &
3479  *t78*t237 - 0.4444444448e0_dp*t43*t283 + t8*(-0.3333333336e0_dp &
3480  *t55*t141 - 0.1666666668e0_dp*t289*t84*t290 - 0.3333333336e0_dp &
3481  *t83*t295 - 0.3333333336e0_dp*t83*t380 - 0.2222222224e0_dp*t383 &
3482  *t384 - 0.3333333336e0_dp*t83*t387 - 0.2222222224e0_dp*t144* &
3483  t46*t541))*sx
3484  t550 = beta*t25
3485  t551 = t27*t31
3486  t557 = 0.60e1_dp*t550*t551 + 0.60e1_dp*t24*t23*t132
3487  t558 = t105*t557
3488  t561 = 0.40e1_dp*t24*t37 - 0.20e1_dp*t102*t558
3489  t566 = pi*t146
3490  t567 = t566*t149
3491  t569 = t151*t19*t561
3492  t575 = t20*t561
3493  t579 = t58*t561
3494  t585 = 0.8999999998e1_dp*t478*t575*t65 - 0.5555555558e-1_dp*t579 &
3495  *t71 - 0.5000000001e0_dp*t60*t561*t65
3496  t589 = -0.3000000000e1_dp*t567*t569 + 0.1666666667e0_dp*t165*t166 &
3497  *t561 + 0.3333333334e0_dp*t55*t57*t585
3498  t590 = t46*t589
3499  t593 = t140*t561
3500  t597 = t45*t589
3501  t598 = t597*t140
3502  t605 = t24*t92
3503  t608 = rho*t557
3504  t609 = t316*t608
3505  t614 = t136*t557
3506  t615 = t327*t614
3507  t624 = beta*t11
3508  t627 = t97*t132
3509  t628 = t627*rho
3510  t635 = -4*t108 + 4*t332*rho
3511  t637 = t27*t635*t132
3512  t640 = 0.1e1_dp/t308
3513  t645 = -0.240e2_dp*beta*t107*t551 - 0.240e2_dp*t24*t87*t132 + &
3514  0.240e2_dp*t624*t116 + 0.240e2_dp*t605*t628 + 0.60e1_dp*t550*t133 &
3515  + 0.60e1_dp*t119*t637 - 0.60e1_dp*t7*t640*t126*t371
3516  t646 = t105*t645
3517  t649 = -0.320e2_dp*t24*t88 + 0.160e2_dp*t302*t558 + 0.320e2_dp*t605 &
3518  *t99 - 0.160e2_dp*t93*t609 - 0.40e1_dp*t112*t137 + 0.40e1_dp*t102 &
3519  *t615 - 0.20e1_dp*t102*t646
3520  t650 = t84*t649
3521  t653 = t384*t561
3522  t657 = t44*pi*t146
3523  t658 = t657*t178
3524  t668 = t25*t561
3525  t672 = 0.2250000000e1_dp*t400*t401*t561 - 0.1500000000e1_dp*t151 &
3526  *t50*t649 + 0.1500000000e1_dp*t405*t156*t668
3527  t673 = t149*t672
3528  t679 = t56*t585
3529  t689 = t27*t585
3530  t705 = -0.1800000000e2_dp*t473*t474*t561 + 0.8999999998e1_dp*t178 &
3531  *t62*t649 - 0.1800000000e2_dp*t478*t183*t668
3532  t707 = t187*t59
3533  t708 = t707*t177
3534  t709 = t561*t65
3535  t710 = t62*t709
3536  t713 = t58*t649
3537  t716 = t140*t177
3538  t719 = t579*t67
3539  t722 = 0.1e1_dp/lambda
3540  t723 = t60*t722
3541  t728 = t68*t705
3542  t729 = t728*t65
3543  t732 = t60*t187
3544  t735 = t705*t65 + 0.8999999998e1_dp*t708*t710 - 0.5555555558e-1_dp &
3545  *t713*t71 - 0.5000000001e0_dp*t716*t709 - 0.1111111112e0_dp*t719 &
3546  *t196 - 0.1000000001e1_dp*t723*t709 - 0.5555555558e-1_dp*t719* &
3547  t200 - 0.5555555558e-1_dp*t192*t729 - 0.5000000001e0_dp*t732*t709
3548  t739 = 0.1800000000e2_dp*t658*t575*t161 + (2*t147*t673) &
3549  - 0.8333333335e-1_dp*t429*t166*t593 + 0.1666666667e0_dp*t165*t679 &
3550  *t140 + 0.1666666667e0_dp*t165*t166*t649 + 0.1666666667e0_dp &
3551  *t445*t446*t668 + 0.3333333334e0_dp*t170*t689*t172 + 0.1666666667e0_dp &
3552  *t165*t462*t561 + 0.3333333334e0_dp*t55*t57*t735
3553  e_ndrho_spin(ii) = e_ndrho_spin(ii) + (-0.6666666672e0_dp*t217*t46*t78*t561 - 0.4444444448e0_dp &
3554  *t43*t590 + t8*(-0.1666666668e0_dp*t289*t84*t593 - 0.3333333336e0_dp &
3555  *t83*t598 - 0.3333333336e0_dp*t83*t650 - 0.3333333336e0_dp &
3556  *t83*t653 - 0.2222222224e0_dp*t144*t46*t739))*sx
3557  END IF
3558 
3559  IF (grad_deriv >= 2 .OR. grad_deriv == -2) THEN
3560  t747 = lambda*t41*omega
3561  t753 = t4*t48
3562  t754 = t237**2
3563  t764 = 0.1e1_dp/t10/t13
3564  t765 = t764*t311
3565  t766 = t765*t36
3566  t769 = t316*t233
3567  t772 = t233**2
3568  t773 = t327*t772
3569  t776 = t10*t8
3570  t777 = 0.1e1_dp/t776
3571  t782 = t765*t132
3572  t785 = t6**2
3573  t786 = beta*t785
3574  t787 = t10**2
3575  t790 = t308*t94
3576  t792 = 0.1e1_dp/t787/t106
3577  t795 = 0.1e1_dp/t19/t790/t792
3578  t796 = 0.1e1_dp/t787/t13*t795
3579  t797 = t796*t371
3580  t800 = 0.1866666667e2_dp*t24*t777*t341*t31 + 0.4000000000e2_dp* &
3581  t7*t782 - 0.1066666667e2_dp*t786*t797
3582  t801 = t105*t800
3583  t804 = 0.1955555555e2_dp*t7*t766 + 0.1066666667e2_dp*t321*t769 + &
3584  0.40e1_dp*t102*t773 - 0.20e1_dp*t102*t801
3585  t815 = t68*t237
3586  t822 = t44*t194
3587  t826 = 0.2250000000e1_dp*t399*t50*t754 - 0.1000000000e1_dp*t405* &
3588  t815*t17 - 0.1500000000e1_dp*t151*t50*t804 - 0.6666666667e0_dp &
3589  *t49*t822*t14
3590  t827 = t149*t826
3591  t833 = t237*t17
3592  t851 = 0.1800000000e2_dp*t472*t62*t754
3593  t852 = t56*t237
3594  t855 = 0.1200000000e2_dp*t478*t852*t17
3595  t857 = t178*t62*t804
3596  t859 = pi*t27
3597  t862 = 0.2000000000e1_dp*t61*t859*t14
3598  t863 = -t851 + t855 + 0.8999999998e1_dp*t857 + t862
3599  t864 = t863*t65
3600  t865 = t266**2
3601  t866 = t865*t65
3602  t867 = t58*t804
3603  t874 = t511*t14
3604  t877 = t194*t266
3605  t878 = t877*t526
3606  t881 = t68*t863
3607  t882 = t881*t65
3608  t886 = t68*t865*t65
3609  t889 = t864 + t866 - 0.5555555558e-1_dp*t867*t71 + 0.7407407410e-1_dp &
3610  *t508*t271 - 0.1111111112e0_dp*t508*t275 - 0.6172839508e-1_dp* &
3611  t192*t874 + 0.7407407410e-1_dp*t192*t878 - 0.5555555558e-1_dp*t192 &
3612  *t882 - 0.5555555558e-1_dp*t192*t886
3613  t893 = (2*t147*t393*t249) + (2*t147*t827) - 0.8333333335e-1_dp &
3614  *t429*t166*t754 - 0.1111111111e0_dp*t165*t171*t833 &
3615  + 0.3333333334e0_dp*t165*t437*t237 + 0.1666666667e0_dp*t165 &
3616  *t166*t804 + 0.1481481481e0_dp*t170*t450*t14 - 0.2222222222e0_dp &
3617  *t170*t455*t17 + 0.3333333334e0_dp*t55*t57*t889
3618  t894 = t46*t893
3619  t897 = t78*t140
3620  t905 = rho*t150
3621  t906 = t905*omega
3622  t907 = t140*t754
3623  t914 = t379*t237
3624  t918 = t140*t804
3625  t922 = t45*t893
3626  t923 = t922*t140
3627  t926 = t294*t379
3628  t929 = t306*t311
3629  t930 = t929*t36
3630  t940 = 0.1e1_dp/t787/t8
3631  t941 = t7*t940
3632  t942 = t367*t306
3633  t944 = 0.1e1_dp/t20/t942
3634  t946 = t944*t36*rho
3635  t949 = t311*t104
3636  t950 = t949*t317
3637  t953 = t97*t326
3638  t954 = rho*t772
3639  t955 = t953*t954
3640  t958 = rho*t800
3641  t959 = t316*t958
3642  t962 = t7*t764
3643  t963 = t949*t136
3644  t966 = t953*t328
3645  t969 = t316*t375
3646  t972 = t103**2
3647  t973 = 0.1e1_dp/t972
3648  t974 = t22*t973
3649  t975 = t136*t772
3650  t976 = t974*t975
3651  t979 = t375*t233
3652  t980 = t327*t979
3653  t983 = t136*t800
3654  t984 = t327*t983
3655  t987 = t219*t341
3656  t991 = t929*t132
3657  t995 = 0.1e1_dp/t787/t224
3658  t997 = t995*t795*t371
3659  t1000 = t24*t764
3660  t1002 = 0.1e1_dp/t19/t309
3661  t1004 = t1002*t31*rho
3662  t1008 = t944*t132*rho
3663  t1012 = 0.1e1_dp/t787/t776
3664  t1014 = t308**2
3665  t1019 = 0.1e1_dp/t19/t1014*t787*t10
3666  t1021 = t1019*t371*rho
3667  t1024 = t24*t777
3668  t1026 = t341*t126*t132
3669  t1030 = t114*t360*t132
3670  t1033 = t308*t12
3671  t1034 = 0.1e1_dp/t1033
3672  t1036 = t1034*t126*t371
3673  t1040 = ndrho*t764
3674  t1044 = -0.280e3_dp/0.9e1_dp*t356*t341 + 0.280e3_dp/0.9e1_dp*t1040* &
3675  t1002*rho
3676  t1046 = t27*t1044*t132
3677  t1050 = t368*t360*t371
3678  t1054 = beta*t785*ndrho
3679  t1055 = t1054*t368
3680  t1056 = t130**2
3681  t1058 = 0.1e1_dp/t131/t1056
3682  t1059 = t126*t1058
3683  t1060 = t1059*t220
3684  t1063 = -0.1866666667e3_dp*t24*t987*t31 - 0.2240000000e3_dp*t7* &
3685  t991 + 0.4266666667e2_dp*t786*t997 + 0.1866666667e3_dp*t1000*t1004 &
3686  + 0.2240000000e3_dp*t941*t1008 - 0.4266666667e2_dp*t786*t1012 &
3687  *t1021 + 0.1866666667e2_dp*t1024*t1026 - 0.1600000000e2_dp*t350 &
3688  *t1030 - 0.5066666667e2_dp*t366*t1036 + 0.60e1_dp*t119*t1046 + &
3689  0.1600000000e2_dp*t366*t1050 + 0.3200000000e2_dp*t1055*t1060
3690  t1064 = t105*t1063
3691  t1067 = -0.2737777778e3_dp*t7*t930 - 0.1173333333e3_dp*t93*t769 - &
3692  0.320e2_dp*t302*t773 + 0.160e2_dp*t302*t801 + 0.2737777778e3_dp* &
3693  t941*t946 + 0.1173333333e3_dp*t307*t950 + 0.320e2_dp*t93*t955 &
3694  - 0.160e2_dp*t93*t959 - 0.1955555555e2_dp*t962*t963 - 0.2133333334e2_dp &
3695  *t321*t966 + 0.1066666667e2_dp*t321*t969 - 0.120e2_dp*t102 &
3696  *t976 + 0.80e1_dp*t102*t980 + 0.40e1_dp*t102*t984 - 0.20e1_dp*t102 &
3697  *t1064
3698  t1068 = t84*t1067
3699  t1071 = t45*t541
3700  t1076 = t384*t754
3701  t1079 = t1071*t237
3702  t1082 = t384*t804
3703  t1085 = t379*t17
3704  t1089 = t114*t278
3705  t1093 = t25*t804
3706  t1097 = t187*t865
3707  t1099 = t97*t70
3708  t1100 = rho*t777
3709  t1101 = t1099*t1100
3710  t1106 = t500*t67
3711  t1109 = t187*t863
3712  t1111 = t496*t266
3713  t1119 = t194*t496*t526
3714  t1122 = t199*t866
3715  t1125 = t65*t25
3716  t1126 = t877*t1125
3717  t1129 = t867*t67
3718  t1134 = t866*t172
3719  t1137 = t268*t515
3720  t1140 = t176**2
3721  t1141 = 0.1e1_dp/t1140
3722  t1142 = t59*t1141
3723  t1143 = t1142*pi
3724  t1150 = t20*t379
3725  t1157 = t27*t140
3726  t1161 = t56*t379
3727  t1168 = t25*t754
3728  t1172 = t225*t237
3729  t1176 = t56*t25
3730  t1189 = 0.5400000000e2_dp*t1143*t474*t754 - 0.2400000000e2_dp*t473 &
3731  *t479*t833 - 0.3600000000e2_dp*t473*t1150*t237 - 0.1800000000e2_dp &
3732  *t473*t474*t804 - 0.2000000000e1_dp*t478*t1157*t14 + &
3733  0.1200000000e2_dp*t478*t1161*t17 + 0.8999999998e1_dp*t178*t62 &
3734  *t1067 + 0.3600000000e2_dp*t473*t183*t1168 + 0.1200000000e2_dp* &
3735  t478*t489*t1172 - 0.3600000000e2_dp*t478*t1176*t237 - 0.1800000000e2_dp &
3736  *t478*t183*t1093 + 0.8000000000e1_dp*t182*t123* &
3737  t777 - 0.1200000000e2_dp*t61*t859*t225
3738  t1191 = (t1097*t65) - 0.4938271608e0_dp*t192*t1101 - 0.6172839508e-1_dp &
3739  *t503*t874 - 0.1111111112e0_dp*t1106*t275 + (t1109 &
3740  *t65) + (2*t1111*t65) + 0.3703703706e0_dp*t508*t512 + &
3741  0.7407407410e-1_dp*t503*t878 + 0.7407407410e-1_dp*t192*t1119 - 0.5555555558e-1_dp &
3742  *t192*t1122 - 0.2222222224e0_dp*t192*t1126 - 0.1111111112e0_dp &
3743  *t1129*t196 - 0.5555555558e-1_dp*t503*t882 - 0.1111111112e0_dp &
3744  *t516*t1134 - 0.2222222224e0_dp*t1137*t517 + (t1189 &
3745  *t65)
3746  t1192 = t67*t22
3747  t1193 = t66*t1192
3748  t1194 = t267*t451
3749  t1200 = t65*t14
3750  t1201 = t22*t187*t1200
3751  t1206 = t68*t1189
3752  t1207 = t1206*t65
3753  t1210 = t58*t1067
3754  t1213 = t511*t225
3755  t1216 = t864*t172
3756  t1221 = t498*t526
3757  t1224 = t530*t267
3758  t1235 = t199*t864
3759  t1238 = 0.3703703706e0_dp*t1193*t1194 - 0.5555555558e-1_dp*t503*t886 &
3760  - 0.6172839508e-1_dp*t192*t1201 - 0.5555555558e-1_dp*t1129*t200 &
3761  - 0.5555555558e-1_dp*t192*t1207 - 0.5555555558e-1_dp*t1210*t71 &
3762  + 0.3703703706e0_dp*t192*t1213 - 0.1111111112e0_dp*t516*t1216 &
3763  - 0.1111111112e0_dp*t508*t534 + 0.7407407410e-1_dp*t516*t1221 - &
3764  0.1111111112e0_dp*t192*t1224 + 0.7407407410e-1_dp*t508*t527 + 0.7407407410e-1_dp &
3765  *t1106*t271 - 0.1111111112e0_dp*t508*t531 - 0.2222222224e0_dp &
3766  *t508*t520 - 0.5555555558e-1_dp*t192*t1235
3767  t1239 = t1191 + t1238
3768  t1246 = t428*t444
3769  t1247 = t74*t140
3770  t1254 = t27*t889
3771  t1264 = t27*t537
3772  t1268 = t341*t74
3773  t1275 = t56*t889
3774  t1283 = -t851 + t855 + 0.9000000000e1_dp*t857 + t862
3775  t1284 = t1283*t149
3776  t1288 = -0.1111111111e0_dp*t165*t171*t1085 - 0.8888888890e0_dp*t170 &
3777  *t1089*t451 + 0.1666666667e0_dp*t445*t446*t1093 + 0.3333333334e0_dp &
3778  *t55*t57*t1239 - 0.8333333335e-1_dp*t429*t462*t754 &
3779  + 0.5555555556e-1_dp*t1246*t1247*t833 + (4*t147*t393* &
3780  t424) + 0.3333333334e0_dp*t170*t1254*t172 - 0.1111111111e0_dp*t165 &
3781  *t466*t833 + 0.3333333334e0_dp*t165*t437*t379 - 0.2222222222e0_dp &
3782  *t170*t1264*t17 + 0.1037037037e1_dp*t170*t1268*t1100 &
3783  + 0.1666666667e0_dp*t165*t166*t1067 + 0.1666666667e0_dp*t165* &
3784  t1275*t140 - 0.8333333335e-1_dp*t1246*t446*t1168 + (2* &
3785  t147*t1284*t160)
3786  t1292 = t278*rho
3787  t1300 = 0.1e1_dp/t41/t470
3788  t1301 = t47*t1300
3789  t1302 = t1301*t44
3790  t1309 = t19*t379
3791  t1316 = t194*t140
3792  t1320 = t68*t379
3793  t1333 = t68*t25
3794  t1340 = t22*rho
3795  t1347 = -0.5625000000e1_dp*t1302*t401*t754 + 0.1500000000e1_dp*t400 &
3796  *t406*t833 + 0.4500000000e1_dp*t400*t1309*t237 + 0.2250000000e1_dp &
3797  *t400*t401*t804 + 0.3333333333e0_dp*t405*t1316*t14 &
3798  - 0.1000000000e1_dp*t405*t1320*t17 - 0.1500000000e1_dp*t151*t50 &
3799  *t1067 - 0.2250000000e1_dp*t400*t156*t1168 - 0.2000000000e1_dp &
3800  *t405*t417*t1172 + 0.3000000000e1_dp*t405*t1333*t237 + 0.1500000000e1_dp &
3801  *t405*t156*t1093 - 0.3333333333e1_dp*t155*t1340 &
3802  *t777 + 0.4000000000e1_dp*t49*t822*t225
3803  t1348 = t149*t1347
3804  t1360 = t140*t14
3805  t1367 = omega*t398
3806  t1368 = t1367*t45
3807  t1372 = t45*t114
3808  t1373 = t164*t1372
3809  t1377 = t114*t203
3810  t1387 = t392**2
3811  t1388 = t1387*t149
3812  t1392 = t56*t537
3813  t1396 = 0.6666666668e0_dp*t170*t455*t25 + 0.3333333334e0_dp*t445 &
3814  *t1292*t413 + 0.1666666667e0_dp*t165*t462*t804 + (2*t147 &
3815  *t1348) - 0.1111111111e0_dp*t165*t455*t433 - 0.8333333335e-1_dp &
3816  *t429*t166*t918 + 0.3333333334e0_dp*t165*t171*t413 + 0.7407407409e-1_dp &
3817  *t165*t450*t1360 - 0.1666666667e0_dp*t429*t437 &
3818  *t290 + 0.1250000000e0_dp*t1368*t166*t907 - 0.4444444445e0_dp*t1373 &
3819  *t446*t1172 + 0.1481481481e0_dp*t170*t1377*t14 - 0.8888888890e0_dp &
3820  *t170*t450*t225 - 0.1666666667e0_dp*t429*t166*t914 &
3821  + (2*t147*t1388*t160) + 0.3333333334e0_dp*t165*t1392 &
3822  *t237
3823  t1397 = t1288 + t1396
3824  t1401 = -0.3333333336e0_dp*t165*t897*t237 - 0.6666666672e0_dp*t55 &
3825  *t295 - 0.6666666672e0_dp*t55*t380 + 0.8333333340e-1_dp*t906*t84 &
3826  *t907 - 0.3333333336e0_dp*t289*t294*t290 - 0.3333333336e0_dp* &
3827  t289*t84*t914 - 0.1666666668e0_dp*t289*t84*t918 - 0.3333333336e0_dp &
3828  *t83*t923 - 0.6666666672e0_dp*t83*t926 - 0.3333333336e0_dp &
3829  *t83*t1068 - 0.4444444448e0_dp*t383*t1071 - 0.6666666672e0_dp* &
3830  t55*t387 - 0.1666666668e0_dp*t289*t1076 - 0.6666666672e0_dp*t83 &
3831  *t1079 - 0.3333333336e0_dp*t83*t1082 - 0.2222222224e0_dp*t144*t46 &
3832  *t1397
3833  e_rho_rho_spin(ii) = e_rho_rho_spin(ii) + (-0.1333333334e1_dp*t747*t84*t237 - 0.8888888896e0_dp*t214 &
3834  *t283 - 0.3333333336e0_dp*t753*t46*t78*t754 - 0.1333333334e1_dp &
3835  *t217*t46*t282*t237 - 0.6666666672e0_dp*t217*t46*t78* &
3836  t804 - 0.4444444448e0_dp*t43*t894 + t8*t1401)*sx
3837  t1406 = 0.6666666672e0_dp*t747*t84*t561
3838  t1408 = 0.4444444448e0_dp*t214*t590
3839  t1409 = t4*t164
3840  t1410 = t237*t561
3841  t1411 = t84*t1410
3842  t1413 = 0.3333333336e0_dp*t1409*t1411
3843  t1417 = 0.6666666672e0_dp*t217*t46*t589*t237
3844  t1420 = t316*t557
3845  t1425 = t233*t557
3846  t1426 = t327*t1425
3847  t1429 = beta*t225
3848  t1436 = t1033*t940
3849  t1438 = 0.1e1_dp/t19/t1436
3850  t1439 = 0.1e1_dp/t787/t16*t1438
3851  t1440 = t1439*t371
3852  t1443 = -0.8000000000e1_dp*t1429*t115 - 0.2400000000e2_dp*t24*t230 &
3853  + 0.8000000000e1_dp*t366*t1440
3854  t1444 = t105*t1443
3855  t1447 = -0.1066666667e2_dp*t24*t221 + 0.5333333333e1_dp*t321*t1420 &
3856  - 0.40e1_dp*t112*t234 + 0.40e1_dp*t102*t1426 - 0.20e1_dp*t102* &
3857  t1444
3858  t1451 = 0.6666666672e0_dp*t217*t46*t78*t1447
3859  t1455 = 0.6666666672e0_dp*t217*t46*t282*t561
3860  t1459 = t19*t237
3861  t1466 = t68*t17
3862  t1470 = 0.2250000000e1_dp*t400*t1459*t561 - 0.1500000000e1_dp*t151 &
3863  *t50*t1447 - 0.5000000000e0_dp*t405*t1466*t561
3864  t1471 = t149*t1470
3865  t1476 = 0.8333333335e-1_dp*t429*t166*t1410
3866  t1479 = 0.1666666667e0_dp*t165*t679*t237
3867  t1482 = 0.1666666667e0_dp*t165*t166*t1447
3868  t1483 = t17*t561
3869  t1485 = t165*t171*t1483
3870  t1489 = 0.1111111111e0_dp*t170*t689*t17
3871  t1492 = 0.1666666667e0_dp*t165*t437*t561
3872  t1493 = t20*t237
3873  t1496 = 0.1800000000e2_dp*t473*t1493*t561
3874  t1498 = t178*t62*t1447
3875  t1500 = t56*t17
3876  t1502 = t478*t1500*t561
3877  t1504 = -t1496 + 0.8999999998e1_dp*t1498 + 0.5999999999e1_dp*t1502
3878  t1505 = t1504*t65
3879  t1506 = t266*t59
3880  t1507 = t1506*t177
3881  t1509 = 0.8999999998e1_dp*t1507*t710
3882  t1510 = t58*t1447
3883  t1512 = 0.5555555558e-1_dp*t1510*t71
3884  t1513 = t237*t177
3885  t1515 = 0.5000000001e0_dp*t1513*t709
3886  t1517 = 0.3703703705e-1_dp*t719*t271
3887  t1518 = 0.1e1_dp/rho
3888  t1519 = t60*t1518
3889  t1523 = 0.5555555558e-1_dp*t719*t275
3890  t1525 = t68*t1504*t65
3891  t1528 = t60*t266
3892  t1530 = 0.5000000001e0_dp*t1528*t709
3893  t1531 = t1505 + t1509 - t1512 - t1515 + t1517 + 0.3333333334e0_dp*t1519 &
3894  *t709 - t1523 - 0.5555555558e-1_dp*t192*t1525 - t1530
3895  t1535 = 0.1800000000e2_dp*t658*t575*t250 + (2*t147*t1471) &
3896  - t1476 + t1479 + t1482 - 0.5555555555e-1_dp*t1485 - t1489 + t1492 &
3897  + 0.3333333334e0_dp*t55*t57*t1531
3898  t1536 = t46*t1535
3899  t1541 = 0.1666666668e0_dp*t165*t897*t561
3900  t1543 = 0.3333333336e0_dp*t55*t598
3901  t1545 = 0.3333333336e0_dp*t55*t650
3902  t1546 = t905*t46
3903  t1547 = t897*t1410
3904  t1549 = 0.8333333340e-1_dp*t1546*t1547
3905  t1552 = 0.1666666668e0_dp*t289*t597*t290
3906  t1553 = t649*t237
3907  t1556 = 0.1666666668e0_dp*t289*t84*t1553
3908  t1557 = t140*t1447
3909  t1560 = 0.1666666668e0_dp*t289*t84*t1557
3910  t1563 = 0.1666666668e0_dp*t289*t294*t593
3911  t1564 = t45*t1535
3912  t1565 = t1564*t140
3913  t1568 = t294*t649
3914  t1570 = 0.3333333336e0_dp*t83*t1568
3915  t1571 = t379*t561
3916  t1574 = 0.1666666668e0_dp*t289*t84*t1571
3917  t1575 = t597*t379
3918  t1577 = 0.3333333336e0_dp*t83*t1575
3919  t1579 = 0.1173333333e3_dp*t24*t299
3920  t1581 = 0.5866666667e2_dp*t93*t1420
3921  t1582 = t24*t86
3922  t1584 = 0.320e2_dp*t1582*t234
3923  t1586 = 0.320e2_dp*t302*t1426
3924  t1588 = 0.160e2_dp*t302*t1444
3925  t1589 = t24*t306
3926  t1591 = 0.1173333333e3_dp*t1589*t313
3927  t1592 = t949*t608
3928  t1594 = 0.5866666667e2_dp*t307*t1592
3929  t1596 = 0.320e2_dp*t605*t318
3930  t1597 = t7*t298
3931  t1598 = t326*rho
3932  t1599 = t1598*t1425
3933  t1601 = 0.320e2_dp*t1597*t1599
3934  t1602 = rho*t1443
3935  t1603 = t316*t1602
3936  t1605 = 0.160e2_dp*t93*t1603
3937  t1607 = 0.1066666667e2_dp*t339*t322
3938  t1608 = t953*t614
3939  t1610 = 0.1066666667e2_dp*t321*t1608
3940  t1611 = t316*t645
3941  t1613 = 0.5333333333e1_dp*t321*t1611
3942  t1615 = 0.80e1_dp*t112*t329
3943  t1616 = t7*t23
3944  t1617 = t973*t136
3945  t1618 = t1617*t1425
3946  t1620 = 0.120e2_dp*t1616*t1618
3947  t1621 = t645*t233
3948  t1622 = t327*t1621
3949  t1624 = 0.40e1_dp*t102*t1622
3950  t1625 = t136*t1443
3951  t1626 = t327*t1625
3952  t1628 = 0.40e1_dp*t102*t1626
3953  t1630 = 0.40e1_dp*t112*t376
3954  t1631 = t375*t557
3955  t1632 = t327*t1631
3956  t1634 = 0.40e1_dp*t102*t1632
3957  t1636 = 0.5600000000e2_dp*t624*t115
3958  t1638 = 0.1200000000e3_dp*t24*t336
3959  t1640 = 0.1e1_dp/t787/t9
3960  t1642 = t1640*t1438*t371
3961  t1644 = 0.3200000000e2_dp*t366*t1642
3962  t1645 = beta*t219
3963  t1647 = 0.5600000000e2_dp*t1645*t343
3964  t1649 = 0.1200000000e3_dp*t1589*t347
3965  t1652 = t795*t371*rho
3966  t1654 = 0.3200000000e2_dp*t366*t995*t1652
3967  t1656 = 0.8000000000e1_dp*t1429*t352
3968  t1658 = t114*t635*t132
3969  t1660 = 0.8000000000e1_dp*t350*t1658
3970  t1662 = 0.3200000000e2_dp*t7*t372
3971  t1664 = 0.60e1_dp*t550*t362
3972  t1667 = 0.28e2_dp/0.3e1_dp*t332 - 0.28e2_dp/0.3e1_dp*t987*rho
3973  t1669 = t27*t1667*t132
3974  t1671 = 0.60e1_dp*t119*t1669
3975  t1675 = 0.60e1_dp*t7*t640*t360*t371
3976  t1677 = t368*t635*t371
3977  t1679 = 0.8000000000e1_dp*t366*t1677
3978  t1680 = t786*t368
3979  t1681 = t1059*t23
3980  t1684 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 - t1660 &
3981  + t1662 + t1664 + t1671 - t1675 + t1679 - 0.2400000000e2_dp*t1680 &
3982  *t1681
3983  t1685 = t105*t1684
3984  t1688 = t1579 - t1581 + t1584 - t1586 + t1588 - t1591 + t1594 - t1596 &
3985  + t1601 - t1605 + t1607 - t1610 + t1613 + t1615 - t1620 + t1624 &
3986  + t1628 - t1630 + t1634 - 0.20e1_dp*t102*t1685
3987  t1689 = t84*t1688
3988  t1693 = 0.3333333336e0_dp*t55*t653
3989  t1694 = t45*t739
3990  t1696 = 0.2222222224e0_dp*t383*t1694
3991  t1699 = 0.1666666668e0_dp*t289*t384*t1410
3992  t1700 = t1694*t237
3993  t1702 = 0.3333333336e0_dp*t83*t1700
3994  t1703 = t384*t1447
3995  t1705 = 0.3333333336e0_dp*t83*t1703
3996  t1706 = t1071*t561
3997  t1708 = 0.3333333336e0_dp*t83*t1706
3998  t1709 = t187*t1504
3999  t1712 = t266*t561*t65
4000  t1714 = 0.5000000001e0_dp*t732*t1712
4001  t1715 = t713*t67
4002  t1717 = 0.3703703705e-1_dp*t1715*t271
4003  t1718 = t705*t266
4004  t1719 = t1718*t65
4005  t1720 = t140*t266
4006  t1722 = t177*t561*t65
4007  t1724 = 0.5000000001e0_dp*t1720*t1722
4008  t1726 = t194*t705*t526
4009  t1728 = 0.3703703705e-1_dp*t192*t1726
4010  t1730 = 0.1111111112e0_dp*t719*t520
4011  t1731 = t58*t1688
4012  t1735 = 0.3703703705e-1_dp*t719*t527
4013  t1737 = t722*t561*t65
4014  t1740 = t496*t59
4015  t1741 = t1740*t177
4016  t1743 = 0.8999999998e1_dp*t1741*t710
4017  t1745 = t187*t561*t65
4018  t1748 = t140*t1518
4019  t1752 = 0.1851851853e0_dp*t719*t512
4020  t1754 = 0.5555555558e-1_dp*t1715*t275
4021  t1755 = t1510*t67
4022  t1757 = 0.1111111112e0_dp*t1755*t196
4023  t1758 = t1709*t65 - t1714 + t1717 + t1719 - t1724 + t1728 - t1730 &
4024  - 0.5555555558e-1_dp*t1731*t71 + t1735 + 0.666666666e0_dp*t1519* &
4025  t1737 + t1743 + 0.3333333334e0_dp*t1519*t1745 + 0.3333333334e0_dp* &
4026  t1748*t1722 + t1752 - t1754 - t1757
4027  t1760 = 0.5555555558e-1_dp*t719*t534
4028  t1762 = 0.5555555558e-1_dp*t1755*t200
4029  t1763 = t237*t722
4030  t1765 = 0.1000000001e1_dp*t1763*t1722
4031  t1766 = t237*t187
4032  t1768 = 0.5000000001e0_dp*t1766*t1722
4033  t1769 = t199*t1505
4034  t1773 = 0.5555555558e-1_dp*t719*t531
4035  t1774 = t60*t496
4036  t1776 = 0.5000000001e0_dp*t1774*t709
4037  t1777 = t379*t177
4038  t1779 = 0.5000000001e0_dp*t1777*t709
4039  t1782 = t728*t267
4040  t1784 = 0.5555555558e-1_dp*t192*t1782
4041  t1785 = t579*t515
4042  t1787 = 0.1111111112e0_dp*t1785*t517
4043  t1789 = 0.5555555558e-1_dp*t508*t729
4044  t1790 = t1505*t172
4045  t1794 = 0.1000000001e1_dp*t723*t1712
4046  t1795 = t498*t178
4047  t1797 = 0.8999999998e1_dp*t1795*t710
4048  t1800 = 0.5400000000e2_dp*t1143*t474*t1410
4049  t1801 = t20*t649
4050  t1804 = 0.1800000000e2_dp*t473*t1801*t237
4051  t1807 = 0.1800000000e2_dp*t473*t474*t1447
4052  t1810 = 0.1200000000e2_dp*t473*t479*t1483
4053  t1811 = t56*t649
4054  t1814 = 0.5999999999e1_dp*t478*t1811*t17
4055  t1817 = 0.1800000000e2_dp*t473*t1150*t561
4056  t1821 = t472*t262
4057  t1822 = t172*t1410
4058  t1824 = 0.3600000000e2_dp*t1821*t1822
4059  t1825 = t25*t1447
4060  t1828 = 0.1800000000e2_dp*t478*t183*t1825
4061  t1829 = t225*t561
4062  t1832 = 0.6000000000e1_dp*t478*t489*t1829
4063  t1835 = 0.1800000000e2_dp*t478*t1176*t561
4064  t1836 = t1800 - t1804 - t1807 - t1810 + t1814 - t1817 + 0.8999999998e1_dp &
4065  *t178*t62*t1688 + t1824 - t1828 + t1832 - t1835
4066  t1837 = t68*t1836
4067  t1838 = t1837*t65
4068  t1842 = -t1760 - t1762 - t1765 - t1768 - 0.5555555558e-1_dp*t192*t1769 &
4069  - t1773 - t1776 - t1779 - 0.5555555558e-1_dp*t503*t1525 - t1784 &
4070  - t1787 - t1789 - 0.1111111112e0_dp*t516*t1790 - t1794 + t1797 &
4071  - 0.5555555558e-1_dp*t192*t1838 + t1836*t65
4072  t1843 = t1758 + t1842
4073  t1849 = 0.8333333335e-1_dp*t429*t166*t1571
4074  t1852 = 0.8333333335e-1_dp*t429*t679*t290
4075  t1854 = t165*t466*t1483
4076  t1858 = 0.1666666667e0_dp*t445*t446*t1825
4077  t1861 = 0.1800000000e2_dp*t658*t575*t425
4078  t1864 = 0.1666666667e0_dp*t445*t1292*t668
4079  t1865 = t413*t561
4080  t1868 = 0.8333333335e-1_dp*t1246*t446*t1865
4081  t1871 = 2*t147*t393*t672
4082  t1874 = 0.3333333334e0_dp*t170*t689*t25
4083  t1875 = t114*t585
4084  t1878 = 0.4444444445e0_dp*t170*t1875*t451
4085  t1881 = 0.1666666667e0_dp*t165*t437*t649
4086  t1884 = -t1496 + 0.9000000000e1_dp*t1498 + 0.6000000000e1_dp*t1502
4087  t1885 = t1884*t149
4088  t1886 = t1885*t160
4089  t1891 = 0.5625000000e1_dp*t1302*t401*t1410
4090  t1892 = t19*t649
4091  t1895 = 0.2250000000e1_dp*t400*t1892*t237
4092  t1898 = 0.2250000000e1_dp*t400*t401*t1447
4093  t1901 = 0.7500000000e0_dp*t400*t406*t1483
4094  t1902 = t68*t649
4095  t1905 = 0.5000000000e0_dp*t405*t1902*t17
4096  t1908 = 0.2250000000e1_dp*t400*t1309*t561
4097  t1912 = t399*t245
4098  t1914 = 0.2250000000e1_dp*t1912*t1822
4099  t1917 = 0.1500000000e1_dp*t405*t156*t1825
4100  t1920 = 0.1000000000e1_dp*t405*t417*t1829
4101  t1923 = 0.1500000000e1_dp*t405*t1333*t561
4102  t1924 = -t1891 + t1895 + t1898 + t1901 - t1905 + t1908 - 0.1500000000e1_dp &
4103  *t151*t50*t1688 - t1914 + t1917 - t1920 + t1923
4104  t1925 = t149*t1924
4105  t1928 = t56*t1531
4106  t1932 = t27*t1531
4107  t1938 = 0.1666666667e0_dp*t165*t462*t1447
4108  t1939 = 0.3333333334e0_dp*t55*t57*t1843 - t1849 - t1852 - 0.5555555555e-1_dp &
4109  *t1854 + t1858 + t1861 + t1864 - t1868 + t1871 + t1874 &
4110  - t1878 + t1881 + (2*t147*t1886) + (2*t147*t1925) &
4111  + 0.1666666667e0_dp*t165*t1928*t140 + 0.3333333334e0_dp*t170*t1932 &
4112  *t172 + t1938
4113  t1940 = t27*t735
4114  t1943 = 0.1111111111e0_dp*t170*t1940*t17
4115  t1946 = 0.1666666667e0_dp*t165*t1392*t561
4116  t1952 = 0.5555555557e-1_dp*t165*t689*t433
4117  t1954 = t1373*t446*t1829
4118  t1958 = 0.8333333335e-1_dp*t429*t166*t1553
4119  t1961 = 0.1666666667e0_dp*t165*t679*t379
4120  t1962 = t585*rho
4121  t1965 = 0.1666666667e0_dp*t445*t1962*t413
4122  t1966 = t56*t735
4123  t1969 = 0.1666666667e0_dp*t165*t1966*t237
4124  t1971 = t657*t392*t59
4125  t1972 = t177*t20
4126  t1973 = t561*t149
4127  t1974 = t1973*t160
4128  t1975 = t1972*t1974
4129  t1977 = 0.1800000000e2_dp*t1971*t1975
4130  t1980 = 0.2777777778e-1_dp*t1246*t1247*t1483
4131  t1981 = t1367*t57
4132  t1984 = 0.1250000000e0_dp*t1981*t1247*t1410
4133  t1987 = 0.8333333335e-1_dp*t429*t437*t593
4134  t1988 = t649*t17
4135  t1991 = 0.5555555557e-1_dp*t165*t171*t1988
4136  t1994 = 0.8333333335e-1_dp*t429*t166*t1557
4137  t1997 = 0.1666666667e0_dp*t165*t171*t668
4138  t2000 = 0.8333333335e-1_dp*t429*t462*t1410
4139  t2001 = -t1943 + t1946 + 0.1666666667e0_dp*t165*t166*t1688 - t1952 &
4140  - 0.2222222222e0_dp*t1954 - t1958 + t1961 + t1965 + t1969 + t1977 &
4141  + t1980 + t1984 - t1987 - t1991 - t1994 + t1997 - t2000
4142  t2002 = t1939 + t2001
4143  t2006 = -t1541 - t1543 - t1545 + t1549 - t1552 - t1556 - t1560 - t1563 &
4144  - 0.3333333336e0_dp*t83*t1565 - t1570 - t1574 - t1577 - 0.3333333336e0_dp &
4145  *t83*t1689 - t1693 - t1696 - t1699 - t1702 - t1705 - &
4146  t1708 - 0.2222222224e0_dp*t144*t46*t2002
4147  e_ndrho_rho_spin(ii) = e_ndrho_rho_spin(ii) + (-t1406 - t1408 - t1413 - t1417 - t1451 - t1455 - 0.4444444448e0_dp &
4148  *t43*t1536 + t8*t2006)*sx
4149  t2009 = t566*t393
4150  t2013 = t566*t149*t47
4151  t2014 = t398*t19
4152  t2018 = t150*t68
4153  t2022 = t19*t1447
4154  t2027 = t65*t237
4155  t2028 = t575*t2027
4156  t2031 = t56*t561
4157  t2032 = t2031*t526
4158  t2035 = t20*t1447
4159  t2042 = -0.1800000000e2_dp*t473*t2028 + 0.5999999999e1_dp*t478*t2032 &
4160  + 0.8999999998e1_dp*t478*t2035*t65 + t1509 - t1512 + t1517 &
4161  - t1523 + t1515 - 0.5000000001e0_dp*t60*t1447*t65 - t1530
4162  t2046 = -0.3000000000e1_dp*t2009*t569 + 0.4500000000e1_dp*t2013*t2014 &
4163  *t1410 - 0.1000000000e1_dp*t2013*t2018*t1483 - 0.3000000000e1_dp &
4164  *t567*t151*t2022 - t1476 - 0.5555555557e-1_dp*t1485 + t1492 &
4165  + t1482 + t1479 - t1489 + 0.3333333334e0_dp*t55*t57*t2042
4166  t2050 = t45*t2046
4167  t2054 = t786*t640
4168  t2057 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 + t1664 &
4169  + t1662 - t1660 + t1671 + t1679 - t1675 - 0.240e2_dp*t2054*t1060
4170  t2058 = t105*t2057
4171  t2061 = t1579 + t1584 - t1581 - t1586 + t1588 - t1591 - t1596 + t1594 &
4172  + t1601 - t1605 + t1607 + t1615 - t1630 - t1610 - t1620 + t1634 &
4173  + t1628 + t1613 + t1624 - 0.20e1_dp*t102*t2058
4174  t2073 = -t1891 + t1901 + t1908 + t1898 + t1895 - t1905 - 0.1500000000e1_dp &
4175  *t151*t50*t2061 - t1914 - t1920 + t1923 + t1917
4176  t2074 = t149*t2073
4177  t2077 = t161*t17
4178  t2081 = t657*t472
4179  t2082 = t161*t237
4180  t2086 = -t1849 - t1852 - 0.5555555557e-1_dp*t1854 + t1858 + t1861 + &
4181  t1864 - t1868 + t1871 + t1874 + 0.3333333334e0_dp*t170*t27*t2042 &
4182  *t172 - t1878 + (2*t147*t2074) + t1881 + t1938 - t1943 &
4183  + 0.1200000000e2_dp*t658*t2031*t2077 + t1946 - 0.3600000000e2_dp* &
4184  t2081*t575*t2082
4185  t2088 = t56*t2042
4186  t2095 = t1447*t65
4187  t2098 = t140*t471
4188  t2099 = t709*t237
4189  t2104 = t62*t2095
4190  t2107 = -t1714 + t1717 + t1719 - t1724 + t1728 - 0.5000000001e0_dp*t716 &
4191  *t2095 + 0.1000000000e1_dp*t2098*t2099 - 0.1000000001e1_dp*t723 &
4192  *t2095 - t1730 + t1735 + t1743 + 0.8999999998e1_dp*t708*t2104 &
4193  + t1752 - t1754 - t1757 - t1760
4194  t2113 = t177*pi
4195  t2114 = t707*t2113
4196  t2117 = t471*pi
4197  t2118 = t707*t2117
4198  t2124 = t1800 - t1810 - t1817 - t1807 - t1804 + t1814 + 0.8999999998e1_dp &
4199  *t178*t62*t2061 + t1824 + t1832 - t1835 - t1828
4200  t2126 = t68*t2124*t65
4201  t2130 = -0.5000000001e0_dp*t732*t2095 - 0.5555555558e-1_dp*t58*t2061 &
4202  *t71 - t1762 + t1765 + t1768 + 0.5999999999e1_dp*t2114*t2032 &
4203  - t1773 - t1776 - 0.1800000000e2_dp*t2118*t2028 - 0.5555555558e-1_dp &
4204  *t192*t2126 - t1779 - t1784 - t1787 - t1789 - t1794 + t1797 + &
4205  t2124*t65
4206  t2131 = t2107 + t2130
4207  t2138 = -t1952 - 0.2222222223e0_dp*t1954 - t1958 + t1961 + t1965 + t1969 &
4208  + t1977 + t1980 + 0.1666666667e0_dp*t165*t2088*t140 + 0.1800000000e2_dp &
4209  *t658*t2035*t161 + 0.3333333334e0_dp*t55*t57*t2131 &
4210  + t1984 + 0.1666666667e0_dp*t165*t166*t2061 - t1987 - t1991 &
4211  - t1994 + t1997 - t2000
4212  t2139 = t2086 + t2138
4213  t2143 = -t1541 + t1549 - t1563 - t1574 - t1560 - t1543 - t1552 - 0.3333333336e0_dp &
4214  *t83*t2050*t140 - t1577 - t1545 - t1556 - t1570 &
4215  - 0.3333333336e0_dp*t83*t84*t2061 - t1693 - t1699 - t1708 - t1705 &
4216  - t1696 - t1702 - 0.2222222224e0_dp*t144*t46*t2139
4217  e_ndrho_ndrho_spin(ii) = e_ndrho_ndrho_spin(ii) + (-t1406 - t1413 - t1455 - t1451 - t1408 - t1417 - &
4218  0.4444444448e0_dp*t43*t46*t2046 + t8*t2143)*sx
4219  t2147 = lambda*t48*omega
4220  t2160 = t754*t237
4221  t2169 = t237*t804
4222  t2182 = 0.1e1_dp/t787/lambda
4223  t2183 = t2182*t944
4224  t2187 = t949*t233
4225  t2190 = t953*t772
4226  t2193 = t316*t800
4227  t2196 = t772*t233
4228  t2197 = t974*t2196
4229  t2200 = t233*t800
4230  t2201 = t327*t2200
4231  t2204 = t10*t106
4232  t2205 = 0.1e1_dp/t2204
4233  t2220 = beta*t785*t6
4234  t2226 = -0.6222222223e2_dp*t24*t2205*t1002*t31 - 0.2115555556e3_dp &
4235  *t7*t2183*t132 + 0.1315555556e3_dp*t786/t787/t85*t1019 &
4236  *t371 - 0.4266666668e2_dp*t2220/t1014/t94*t1058
4237  t2227 = t105*t2226
4238  t2230 = -0.9125925923e2_dp*t7*t2183*t36 - 0.5866666667e2_dp*t962 &
4239  *t2187 - 0.3200000001e2_dp*t321*t2190 + 0.1600000000e2_dp*t321* &
4240  t2193 - 0.120e2_dp*t102*t2197 + 0.120e2_dp*t102*t2201 - 0.20e1_dp* &
4241  t102*t2227
4242  t2257 = 0.5400000000e2_dp*t1142*t62*t2160
4243  t2261 = 0.3600000000e2_dp*t473*t56*t754*t17
4244  t2264 = 0.5400000000e2_dp*t473*t1493*t804
4245  t2268 = 0.6000000000e1_dp*t478*t27*t237*t14
4246  t2272 = 0.1800000000e2_dp*t478*t56*t804*t17
4247  t2274 = t178*t62*t2230
4248  t2276 = pi*t114
4249  t2279 = 0.2666666667e1_dp*t61*t2276*t86
4250  t2280 = t2257 - t2261 - t2264 - t2268 + t2272 + 0.8999999998e1_dp*t2274 &
4251  - t2279
4252  t2281 = t2280*t65
4253  t2282 = t881*t267
4254  t2285 = t865*t266
4255  t2287 = t68*t2285*t65
4256  t2292 = t863*t266
4257  t2295 = t2285*t65
4258  t2296 = t58*t2230
4259  t2299 = t194*t865
4260  t2300 = t2299*t526
4261  t2304 = t68*t2280*t65
4262  t2307 = t22*t266
4263  t2308 = t2307*t1200
4264  t2311 = t194*t863
4265  t2312 = t2311*t526
4266  t2319 = t1099*t86
4267  t2326 = -0.1851851853e0_dp*t508*t874 + t2281 - 0.1666666668e0_dp*t192 &
4268  *t2282 - 0.5555555558e-1_dp*t192*t2287 - 0.1666666668e0_dp*t508 &
4269  *t886 + (3*t2292*t65) + t2295 - 0.5555555558e-1_dp*t2296 &
4270  *t71 + 0.1111111112e0_dp*t192*t2300 - 0.5555555558e-1_dp*t192* &
4271  t2304 - 0.1851851853e0_dp*t192*t2308 + 0.1111111112e0_dp*t192*t2312 &
4272  + 0.2222222223e0_dp*t508*t878 - 0.1666666668e0_dp*t508*t882 &
4273  + 0.1646090535e0_dp*t192*t2319 - 0.1666666668e0_dp*t1129*t275 + &
4274  0.1111111112e0_dp*t1129*t271
4275  t2351 = t44*t22
4276  t2368 = t237*t14
4277  t2378 = t804*t17
4278  t2382 = t754*t17
4279  t2392 = (2*t147*t1284*t249) + (2*t147*t1388*t249) &
4280  - 0.3456790122e0_dp*t170*t1268*t86 + 0.4444444444e0_dp*t170* &
4281  t1089*t14 + 0.1666666667e0_dp*t165*t166*t2230 + 0.5000000001e0_dp &
4282  *t165*t437*t804 + 0.3333333334e0_dp*t55*t57*t2326 + 0.2e1_dp &
4283  *(t147)*t149*(-0.5625000000e1_dp*t1301*t50*t2160 + &
4284  0.2250000000e1_dp*t400*t68*t754*t17 + 0.6750000000e1_dp*t400* &
4285  t1459*t804 + 0.1000000000e1_dp*t405*t194*t237*t14 - 0.1500000000e1_dp &
4286  *t405*t68*t804*t17 - 0.1500000000e1_dp*t151*t50* &
4287  t2230 + 0.1111111111e1_dp*t49*t2351*t86) - 0.3333333333e0_dp*t170 &
4288  *t1254*t17 + (4*t147*t393*t826) + 0.5000000001e0_dp* &
4289  t165*t1275*t237 + 0.2222222222e0_dp*t165*t450*t2368 - 0.3333333333e0_dp &
4290  *t165*t455*t833 - 0.2500000000e0_dp*t429*t166*t2169 &
4291  - 0.1666666667e0_dp*t165*t171*t2378 + 0.8333333333e-1_dp*t429 &
4292  *t171*t2382 - 0.2500000000e0_dp*t429*t437*t754 + 0.1250000000e0_dp &
4293  *t1368*t166*t2160
4294  t2404 = t45*t1397
4295  t2418 = t379*t754
4296  t2424 = t1067*t237
4297  t2437 = t7*t792
4298  t2439 = 0.1e1_dp/t20/t1436
4299  t2451 = t940*t944
4300  t2455 = t97*t973
4301  t2468 = t944*t104
4302  t2480 = 0.1e1_dp/t19/t942
4303  t2492 = t1014*rho
4304  t2537 = t764*t1002
4305  t2552 = t360*t1058
4306  t2565 = t126/t131/t1056/t130
4307  t2569 = -0.8088888890e3_dp*t24*t2182*t2480*t31*rho - 0.1518222222e4_dp &
4308  *t2437*t2439*t132*rho + 0.6542222223e3_dp*t786/t2204 &
4309  /t19/t2492*t218*t371*rho - 0.6222222223e2_dp*t24*t2205 &
4310  *t1002*t126*t132 + 0.5600000000e2_dp*t1024*t341*t360 &
4311  *t132 + 0.3288888889e3_dp*t366/t790*t126*t371 - 0.2400000000e2_dp &
4312  *t350*t114*t1044*t132 - 0.1520000000e3_dp*t366*t1034* &
4313  t360*t371 - 0.3626666667e3_dp*t1054*t1034*t1060 + 0.60e1_dp*t119 &
4314  *t27*(0.3640e4_dp/0.27e2_dp*t1040*t1002 - 0.3640e4_dp/0.27e2_dp &
4315  *ndrho*t2182*t2480*rho)*t132 + 0.8088888890e3_dp*t24*t2537 &
4316  *t31 + 0.1518222222e4_dp*t7*t2451*t132 - 0.6542222223e3_dp* &
4317  t786*t1012*t1019*t371 + 0.2400000000e2_dp*t366*t368*t1044 &
4318  *t371 + 0.9600000000e2_dp*t1055*t2552*t220 - 0.1173333333e3_dp &
4319  *t1055*t1059*t765 + 0.2133333333e3_dp*beta*t785*t365*t368 &
4320  *t2565*t796
4321  t2576 = 0.40e1_dp*t102*t327*t136*t2226 + 0.3519999999e3_dp*t93 &
4322  *t2190 - 0.1551407408e4_dp*t2437*t2439*t36*rho + 0.960e2_dp* &
4323  t1597*t1598*t2200 + 0.120e2_dp*t102*t327*t375*t800 + 0.1551407408e4_dp &
4324  *t7*t2451*t36 - 0.960e2_dp*t93*t2455*rho*t2196 &
4325  + 0.120e2_dp*t102*t327*t1063*t233 + 0.1600000000e2_dp*t321 &
4326  *t316*t1063 + 0.9125925923e2_dp*t7*t2182*t2468*t136 + 0.1760000000e3_dp &
4327  *t307*t949*t958 - 0.360e2_dp*t1616*t1617*t2200 &
4328  - 0.20e1_dp*t102*t105*t2569 - 0.6400000001e2_dp*t321*t953*t979
4329  t2585 = 0.1e1_dp/t972/t35
4330  t2611 = t311*t326
4331  t2621 = -0.3200000001e2_dp*t321*t953*t983 - 0.160e2_dp*t93*t316 &
4332  *rho*t2226 + 0.480e2_dp*t102*t22*t2585*t136*t2196 - 0.1760000000e3_dp &
4333  *t93*t2193 + 0.960e2_dp*t302*t2197 + 0.160e2_dp*t302 &
4334  *t2227 - 0.960e2_dp*t302*t2201 - 0.8213333332e3_dp*t941*t2468 &
4335  *t317 + 0.8213333332e3_dp*t307*t2187 + 0.9600000002e2_dp*t321* &
4336  t2455*t975 - 0.360e2_dp*t102*t974*t375*t772 - 0.3519999999e3_dp &
4337  *t307*t2611*t954 + 0.1173333334e3_dp*t962*t2611*t328 - &
4338  0.5866666667e2_dp*t962*t949*t375
4339  t2622 = t2576 + t2621
4340  t2631 = t282*t140
4341  t2635 = -0.1000000001e1_dp*t55*t923 - 0.3333333336e0_dp*t83*t384 &
4342  *t2230 - 0.5000000004e0_dp*t165*t897*t804 - 0.6666666672e0_dp*t383 &
4343  *t2404 - 0.1000000001e1_dp*t83*t1071*t804 - 0.5000000004e0_dp &
4344  *t164*t1076 - 0.1000000001e1_dp*t289*t294*t914 - 0.5000000004e0_dp &
4345  *t289*t294*t918 + 0.2500000002e0_dp*t906*t84*t2418 - &
4346  0.2000000001e1_dp*t55*t1079 - 0.5000000004e0_dp*t289*t84*t2424 &
4347  + 0.2500000002e0_dp*t1546*t897*t2169 - 0.3333333336e0_dp*t83* &
4348  t84*t2622 + 0.2500000002e0_dp*t906*t294*t907 - 0.1000000001e1_dp &
4349  *t55*t1082 - 0.1000000001e1_dp*t165*t2631*t237
4350  t2636 = t78*t379
4351  t2645 = t379*t804
4352  t2655 = t140*t2230
4353  t2707 = t74*t379
4354  t2720 = t56*t1239
4355  t2724 = 0.5000000001e0_dp*t165*t1392*t804 - 0.1333333334e1_dp*t165 &
4356  *t450*t1172 - 0.2666666667e1_dp*t170*t1089*t225 + 0.8333333333e-1_dp &
4357  *t429*t466*t2382 + 0.1000000000e1_dp*t170*t1254*t25 &
4358  + 0.1666666667e0_dp*t165*t166*t2622 + 0.1666666667e0_dp*t165* &
4359  t56*t2326*t140 - 0.2500000000e0_dp*t429*t166*t2424 - 0.3333333333e0_dp &
4360  *t165*t455*t1085 - 0.1728395062e0_dp*t165*t1268* &
4361  t140*t86 - 0.2500000000e0_dp*t1246*t446*t413*t804 + 0.1666666666e0_dp &
4362  *t1246*t2707*t833 + 0.1250000000e0_dp*t1368*t462*t2160 &
4363  - 0.1666666667e0_dp*t165*t466*t2378 + (6*t147*t1283 &
4364  *t394) + 0.5000000001e0_dp*t165*t2720*t237
4365  t2732 = rho*t2205
4366  t2759 = t25*t2230
4367  t2763 = t1367*t444
4368  t2779 = t25*t2160
4369  t2783 = -0.2500000000e0_dp*t429*t1392*t754 + (6*t147*t393 &
4370  *t1347) - 0.3456790123e1_dp*t170*t1002*t74*t2732 + 0.5000000001e0_dp &
4371  *t165*t1275*t379 - 0.1333333334e1_dp*t170*t114*t889 &
4372  *t451 + 0.3333333334e0_dp*t170*t27*t2326*t172 - 0.2500000000e0_dp &
4373  *t429*t171*t1168 + 0.3750000000e0_dp*t1981*t1247*t2169 &
4374  + 0.5000000001e0_dp*t165*t171*t1093 + 0.8333333334e-1_dp*t1246 &
4375  *t1247*t2378 + 0.1666666667e0_dp*t445*t446*t2759 - 0.1250000000e0_dp &
4376  *t2763*t1247*t2382 + 0.5000000001e0_dp*t165*t437*t1067 &
4377  + 0.2222222222e0_dp*t165*t1089*t1360 + 0.1000000000e1_dp*t165 &
4378  *t455*t413 - 0.2500000000e0_dp*t429*t462*t2169 + 0.1250000000e0_dp &
4379  *t2763*t446*t2779
4380  t2808 = t19*t1067
4381  t2816 = t225*t754
4382  t2821 = 0.1e1_dp/t41/t1140
4383  t2823 = t47*t2821*t44
4384  t2833 = -0.1687500000e2_dp*t1302*t401*t2169 + 0.6750000000e1_dp*t400 &
4385  *t1309*t804 + 0.4500000000e1_dp*t400*t1320*t833 - 0.1500000000e1_dp &
4386  *t400*t1316*t2368 + 0.1000000000e1_dp*t405*t194*t379 &
4387  *t14 + 0.8888888888e1_dp*t155*t97*rho*t2205 + 0.6750000000e1_dp &
4388  *t400*t2808*t237 - 0.1500000000e1_dp*t405*t68*t1067 &
4389  *t17 + 0.4500000000e1_dp*t400*t417*t2816 + 0.1968750000e2_dp*t2823 &
4390  *t401*t2160 + 0.1500000000e1_dp*t405*t156*t2759 + 0.2250000000e1_dp &
4391  *t400*t401*t2230
4392  t2843 = t777*t237
4393  t2853 = t172*t2169
4394  t2869 = t225*t804
4395  t2873 = t194*t225
4396  t2877 = -0.1500000000e1_dp*t151*t50*t2622 + 0.5625000000e1_dp*t1302 &
4397  *t156*t2779 - 0.6750000000e1_dp*t400*t1333*t754 + 0.4999999999e1_dp &
4398  *t405*t1340*t2843 - 0.1000000000e2_dp*t49*t2351*t777 &
4399  - 0.5625000000e1_dp*t1302*t406*t2382 - 0.6750000000e1_dp*t1912 &
4400  *t2853 - 0.5555555555e0_dp*t405*t22*t140*t86 + 0.4500000000e1_dp &
4401  *t405*t1333*t804 + 0.2250000000e1_dp*t400*t406*t2378 - &
4402  0.1687500000e2_dp*t1302*t1309*t754 - 0.3000000000e1_dp*t405*t417 &
4403  *t2869 - 0.6000000000e1_dp*t405*t2873*t237
4404  t2885 = t428*t1372
4405  t2935 = -0.2500000000e0_dp*t429*t166*t2645 + (2*t147*t149 &
4406  *(t2833 + t2877)) + 0.5000000001e0_dp*t445*t1292*t1093 + 0.3333333333e0_dp &
4407  *t2885*t446*t2816 + 0.2222222222e0_dp*t165*t1377 &
4408  *t2368 - 0.3333333333e0_dp*t165*t1264*t833 + 0.2e1_dp*(t147) &
4409  *(t2257 - t2261 - t2264 - t2268 + t2272 + 0.9000000000e1_dp*t2274 &
4410  - t2279)*(t149)*t160 - 0.3333333333e0_dp*t170*t27*t1239 &
4411  *t17 - 0.8333333335e-1_dp*t429*t166*t2655 + (6*t147 &
4412  *t1284*t424) + 0.2e1_dp*(t147)*t1387*t392*(t149)* &
4413  t160 - 0.2500000000e0_dp*t1246*t1292*t1168 - 0.1666666667e0_dp* &
4414  t165*t1254*t433 + (6*t147*t1388*t424) + 0.1666666667e0_dp &
4415  *t165*t462*t2230 + 0.2222222222e0_dp*t165*t450*t379*t14 &
4416  - 0.5000000001e0_dp*t429*t437*t914
4417  t2937 = t164*t45*t341
4418  t2992 = 0.1e1_dp/t1140/t40
4419  t2994 = t59*t2992*pi
4420  t2998 = t27*t225
4421  t3026 = 0.1620000000e3_dp*t1143*t474*t2169 + 0.1080000000e3_dp*t1143 &
4422  *t479*t2382 - 0.2160000000e3_dp*t2994*t474*t2160 + 0.3600000000e2_dp &
4423  *t478*t2998*t237 + 0.1620000000e3_dp*t1143*t1150* &
4424  t754 + 0.2666666667e1_dp*t478*t114*t140*t86 - 0.3600000000e2_dp &
4425  *t473*t479*t2378 + 0.1080000000e3_dp*t1821*t2853 - 0.7200000000e2_dp &
4426  *t473*t1161*t833 - 0.1800000000e2_dp*t473*t474*t2230 &
4427  + 0.8999999998e1_dp*t178*t62*t2622 - 0.5400000000e2_dp*t478* &
4428  t1176*t804
4429  t3030 = t20*t1067
4430  t3069 = -0.1800000000e2_dp*t478*t183*t2759 - 0.5400000000e2_dp*t473 &
4431  *t3030*t237 - 0.6000000000e1_dp*t478*t27*t379*t14 - 0.5400000000e2_dp &
4432  *t473*t1150*t804 + 0.1800000000e2_dp*t478*t489* &
4433  t2869 + 0.1080000000e3_dp*t473*t1176*t754 + 0.1800000000e2_dp*t478 &
4434  *t56*t1067*t17 - 0.3600000000e2_dp*t473*t489*t2816 - 0.1866666667e2_dp &
4435  *t182*t357*t2205 + 0.2400000000e2_dp*t61*t2276 &
4436  *t777 - 0.2400000000e2_dp*t478*t123*t2843 - 0.1080000000e3_dp* &
4437  t1143*t183*t2779 + 0.1200000000e2_dp*t473*t1157*t2368
4438  t3070 = t3026 + t3069
4439  t3085 = t1210*t67
4440  t3093 = (3*t496*t865*t65) + (3*t1189*t266*t65) &
4441  + 0.1111111112e1_dp*(t192)*(t2307)*(t65)*(t225) &
4442  + (t187*t2280*t65) + (3*t496*t863*t65) + 0.2222222223e0_dp &
4443  *t516*t1111*t526 + (t187*t2285*t65) + (t3070 &
4444  *t65) - 0.1851851853e0_dp*t1193*t498*t1200 + 0.2222222223e0_dp &
4445  *t508*t1119 + 0.1111111112e0_dp*(t192)*t194*(t1189) &
4446  *t526 + 0.2222222223e0_dp*t1137*t1221 - 0.1666666668e0_dp*t1129 &
4447  *t534 + 0.1111111112e0_dp*t3085*t271 - 0.5555555558e-1_dp*(t192) &
4448  *(t199)*(t2281) - 0.1851851853e0_dp*t508*t1201
4449  t3097 = t66*t69
4450  t3098 = t1109*t267
4451  t3129 = t2296*t67
4452  t3141 = -0.3333333336e0_dp*t192*t2299*t1125 - 0.1666666668e0_dp*t3097 &
4453  *t3098 + 0.1111111112e0_dp*t503*t2300 + 0.1111111112e0_dp*t1129 &
4454  *t527 - 0.1666666668e0_dp*t1129*t531 - 0.5555555558e-1_dp*t192 &
4455  *t68*t3070*t65 + 0.1646090535e0_dp*t192*t97*t187*t65* &
4456  t86 + 0.5555555559e0_dp*t1129*t512 - 0.1666666668e0_dp*t192*t530 &
4457  *t864 - 0.1666666668e0_dp*t1106*t882 - 0.1666666668e0_dp*t192* &
4458  t530*t866 - 0.1481481482e1_dp*t192*t1099*t777 - 0.1111111112e0_dp &
4459  *t3129*t196 + 0.5555555559e0_dp*t1193*t866*t451 - 0.1666666668e0_dp &
4460  *t503*t2282 - 0.1666666668e0_dp*t3085*t275 + 0.1111111112e0_dp &
4461  *t503*t2312
4462  t3181 = -0.1851851853e0_dp*t1106*t874 - 0.1666666668e0_dp*t508*t1235 &
4463  - 0.3333333336e0_dp*t508*t1224 - 0.1111111112e0_dp*t516*t2281 &
4464  *t172 + 0.1111111112e0_dp*t516*t1097*t526 + 0.2222222223e0_dp* &
4465  t1106*t878 - 0.1851851853e0_dp*t503*t2308 - 0.3333333336e0_dp*t1137 &
4466  *t1216 + (3*t3098) + 0.1111111112e0_dp*t516*t1109*t526 &
4467  - 0.5555555558e-1_dp*t503*t2287 - 0.3333333336e0_dp*t192*t2311 &
4468  *t1125 - 0.6666666672e0_dp*t508*t1126 + 0.1646090535e0_dp*t503 &
4469  *t2319 - 0.5555555558e-1_dp*t3129*t200 - 0.5555555558e-1_dp*t58 &
4470  *t2622*t71 - 0.1666666668e0_dp*t1106*t886
4471  t3232 = -0.1666666668e0_dp*t192*t1206*t267 - 0.5555555558e-1_dp*t192 &
4472  *t199*t2295 - 0.1666666668e0_dp*t508*t1122 - 0.3333333336e0_dp &
4473  *t1129*t520 - 0.1111111112e0_dp*t516*t2295*t172 - 0.1481481482e1_dp &
4474  *t66*t67*t97*t267*t1100 - 0.1851851853e0_dp*t192* &
4475  t22*t496*t1200 - 0.3333333336e0_dp*t516*t2292*t65*rho* &
4476  t25 + 0.1810699590e1_dp*t192*t311*t70*t2732 - 0.5555555558e-1_dp &
4477  *t503*t2304 - 0.1481481482e1_dp*t508*t1101 - 0.3333333336e0_dp* &
4478  t867*t515*t517 + 0.1111111112e1_dp*t268*t1192*t1194 + 0.5555555559e0_dp &
4479  *t1193*t864*t451 + 0.1111111112e1_dp*t508*t1213 - &
4480  0.1666666668e0_dp*t508*t1207 - 0.3333333336e0_dp*t1137*t1134
4481  t3244 = t278*t140
4482  t3248 = t889*rho
4483  t3262 = omega*t1300
4484  t3264 = t140*t2160
4485  t3268 = 0.1555555556e1_dp*t2937*t446*t2843 + 0.3111111111e1_dp*t170 &
4486  *t1268*t777 - 0.2500000000e0_dp*t429*t1275*t290 - 0.1333333334e1_dp &
4487  *t1373*t1292*t1172 + 0.3111111111e1_dp*t170*t341*t278 &
4488  *t1100 - 0.3456790122e0_dp*t170*t341*t203*t86 + 0.3750000000e0_dp &
4489  *t1368*t166*t2418 + 0.4444444444e0_dp*t170*t114*t537 &
4490  *t14 + 0.3333333334e0_dp*t55*t57*(t3093 + t3141 + t3181 + t3232) &
4491  - 0.1111111111e0_dp*t2885*t1247*t2368 - 0.6666666668e0_dp*t1373 &
4492  *t446*t2869 + 0.1666666667e0_dp*t1246*t3244*t833 + 0.5000000001e0_dp &
4493  *t445*t3248*t413 - 0.1666666667e0_dp*t165*t171* &
4494  t1067*t17 - 0.2500000000e0_dp*t429*t437*t918 + 0.3750000000e0_dp &
4495  *t1368*t437*t907 - 0.3125000000e0_dp*t3262*t45*t166*t3264
4496  t3278 = rho*t398
4497  t3288 = -0.1000000001e1_dp*t165*t2636*t237 - 0.2000000001e1_dp*t55 &
4498  *t926 - 0.1000000001e1_dp*t83*t922*t379 - 0.5000000004e0_dp*t289 &
4499  *t84*t2645 + 0.2500000002e0_dp*t429*t897*t754 - 0.1000000001e1_dp &
4500  *t83*t294*t1067 - 0.1666666668e0_dp*t289*t84*t2655 &
4501  - 0.1000000001e1_dp*t83*t2404*t237 - 0.5000000004e0_dp*t289*t922 &
4502  *t290 - 0.5000000004e0_dp*t289*t384*t2169 - 0.5000000004e0_dp &
4503  *t289*t1071*t754 - 0.2222222224e0_dp*t144*t46*(t2724 + t2783 &
4504  + t2935 + t3268) - 0.3333333336e0_dp*t83*t45*t2392*t140 - &
4505  0.1250000001e0_dp*t3278*omega*t84*t3264 - 0.1000000001e1_dp*t55 &
4506  *t1068 + 0.8333333340e-1_dp*t906*t384*t2160
4507  t3291 = -0.1000000001e1_dp*t2147*t84*t754 - 0.4000000002e1_dp*t747 &
4508  *t294*t237 - 0.2000000001e1_dp*t747*t84*t804 - 0.1333333334e1_dp &
4509  *t214*t894 + 0.1666666668e0_dp*t4*t150*t46*t78*t2160 &
4510  - 0.1000000001e1_dp*t753*t46*t282*t754 - 0.1000000001e1_dp*t1409 &
4511  *t84*t2169 - 0.2000000001e1_dp*t217*t46*t893*t237 - 0.2000000001e1_dp &
4512  *t217*t46*t282*t804 - 0.6666666672e0_dp*t217* &
4513  t46*t78*t2230 - 0.4444444448e0_dp*t43*t46*t2392 + t8*(t2635 &
4514  + t3288)
4515  END IF
4516  IF (grad_deriv >= 3 .OR. grad_deriv == -3) THEN
4517  e_rho_rho_rho_spin(ii) = e_rho_rho_rho_spin(ii) + t3291*sx
4518  t3305 = t4*t428
4519  t3306 = t754*t561
4520  t3314 = t237*t1447
4521  t3329 = t804*t561
4522  t3339 = t949*t557
4523  t3344 = t953*t1425
4524  t3347 = t316*t1443
4525  t3352 = t772*t557
4526  t3353 = t974*t3352
4527  t3356 = t233*t1443
4528  t3357 = t327*t3356
4529  t3362 = t800*t557
4530  t3363 = t327*t3362
4531  t3366 = beta*t777
4532  t3378 = 0.1866666667e2_dp*t3366*t342 + 0.9866666667e2_dp*t24*t782 &
4533  - 0.8266666668e2_dp*t366*t797 + 0.3200000001e2_dp*t1054/t1014/ &
4534  t12*t1058
4535  t3379 = t105*t3378
4536  t3382 = 0.3911111110e2_dp*t24*t766 - 0.1955555555e2_dp*t962*t3339 &
4537  + 0.2133333334e2_dp*t339*t769 - 0.2133333334e2_dp*t321*t3344 + &
4538  0.1066666667e2_dp*t321*t3347 + 0.80e1_dp*t112*t773 - 0.120e2_dp*t102 &
4539  *t3353 + 0.80e1_dp*t102*t3357 - 0.40e1_dp*t112*t801 + 0.40e1_dp &
4540  *t102*t3363 - 0.20e1_dp*t102*t3379
4541  t3449 = t1447*t17
4542  t3453 = (2*t147*t1885*t249) + 0.1800000000e2_dp*(t1971) &
4543  *(t1972)*(t1973)*(t249) + (2*t147*t393 &
4544  *t1470) + 0.1800000000e2_dp*t658*t575*t827 + 0.2e1_dp*(t147) &
4545  *t149*(-0.5625000000e1_dp*t1302*t19*t754*t561 + 0.4500000000e1_dp &
4546  *t400*t1459*t1447 + 0.1500000000e1_dp*t400*t815*t1483 &
4547  - 0.1000000000e1_dp*t405*t68*t1447*t17 + 0.2250000000e1_dp* &
4548  t400*t19*t804*t561 - 0.1500000000e1_dp*t151*t50*t3382 + 0.3333333334e0_dp &
4549  *t405*t194*t14*t561) + 0.1250000000e0_dp*t1368 &
4550  *t166*t3306 - 0.8333333335e-1_dp*t429*t679*t754 - 0.1666666667e0_dp &
4551  *t429*t166*t3314 + 0.5555555555e-1_dp*t1246*t74*t237 &
4552  *t1483 - 0.1111111111e0_dp*t165*t689*t833 - 0.1111111111e0_dp* &
4553  t165*t171*t3449
4554  t3472 = t14*t561
4555  t3491 = 0.5400000000e2_dp*t1143*t20*t754*t561
4556  t3494 = 0.3600000000e2_dp*t473*t1493*t1447
4557  t3497 = 0.2400000000e2_dp*t473*t852*t1483
4558  t3501 = 0.1200000000e2_dp*t478*t56*t1447*t17
4559  t3505 = 0.1800000000e2_dp*t473*t20*t804*t561
4560  t3507 = t178*t62*t3382
4561  t3512 = 0.2000000000e1_dp*t478*t27*t14*t561
4562  t3513 = t3491 - t3494 - t3497 + t3501 - t3505 + 0.8999999998e1_dp*t3507 &
4563  - t3512
4564  t3514 = t3513*t65
4565  t3525 = t58*t3382
4566  t3533 = t237*t1518
4567  t3543 = t3514 + 0.8999999998e1_dp*t863*t59*t177*t710 + (2 &
4568  *t267*t1504) + 0.8999999998e1_dp*t865*t59*t177*t710 - 0.5555555558e-1_dp &
4569  *t3525*t71 - 0.5000000001e0_dp*t804*t177*t709 + &
4570  0.7407407410e-1_dp*t1755*t271 + 0.6666666668e0_dp*t3533*t1722 - &
4571  0.1111111112e0_dp*t1755*t275 - 0.1111111112e0_dp*t508*t1525 - 0.1000000001e1_dp &
4572  *t237*t266*t1722
4573  t3546 = 0.1e1_dp/t12
4574  t3547 = t60*t3546
4575  t3552 = t194*t1504
4576  t3553 = t3552*t526
4577  t3561 = t68*t3513*t65
4578  t3569 = t274*t1505
4579  t3575 = -0.6172839508e-1_dp*t719*t874 - 0.5555555556e0_dp*t3547*t709 &
4580  + 0.7407407410e-1_dp*t719*t878 + 0.7407407410e-1_dp*t192*t3553 &
4581  + 0.6666666668e0_dp*t1519*t1712 - 0.5555555558e-1_dp*t719*t882 &
4582  - 0.5555555558e-1_dp*t192*t3561 - 0.5000000001e0_dp*t60*t863* &
4583  t709 - 0.5555555558e-1_dp*t719*t886 - 0.1111111112e0_dp*t192*t3569 &
4584  - 0.5000000001e0_dp*t60*t865*t709
4585  t3576 = t3543 + t3575
4586  t3580 = -0.1666666667e0_dp*t429*t437*t1410 + 0.3333333334e0_dp*t165 &
4587  *t1928*t237 + 0.3333333334e0_dp*t165*t437*t1447 - 0.8333333335e-1_dp &
4588  *t429*t166*t3329 + 0.1666666667e0_dp*t165*t679*t804 &
4589  + 0.1666666667e0_dp*t165*t166*t3382 + 0.7407407405e-1_dp*t165 &
4590  *t450*t3472 + 0.1481481481e0_dp*t170*t1875*t14 - 0.1111111111e0_dp &
4591  *t165*t455*t1483 - 0.2222222222e0_dp*t170*t1932*t17 + &
4592  0.1666666667e0_dp*t165*t1275*t561 + 0.3333333334e0_dp*t55*t57 &
4593  *t3576
4594  t3581 = t3453 + t3580
4595  t3608 = t973*rho
4596  t3618 = 0.640e2_dp*t1597*t1598*t3356 - 0.640e2_dp*t1582*t773 - &
4597  0.1173333333e3_dp*t93*t3347 - 0.3911111110e2_dp*t1000*t963 - 0.320e2_dp &
4598  *t605*t959 + 0.1173333333e3_dp*t307*t949*t1602 + 0.40e1_dp &
4599  *t102*t327*t136*t3378 - 0.960e2_dp*t1597*t3608*t3352 - &
4600  0.40e1_dp*t112*t1064 + 0.80e1_dp*t112*t984 + 0.2737777778e3_dp*t307 &
4601  *t3339
4602  t3668 = t2552*t23
4603  t3673 = t635*t1058
4604  t3674 = t3673*t220
4605  t3677 = -0.1866666667e3_dp*t1645*t342 - 0.6346666667e3_dp*t24*t991 &
4606  + 0.3946666667e3_dp*t366*t997 + 0.1866666667e3_dp*beta*t764* &
4607  t1004 + 0.60e1_dp*t550*t1046 + 0.60e1_dp*t119*t27*(-0.280e3_dp/ &
4608  0.9e1_dp*t987 + 0.280e3_dp/0.9e1_dp*t2537*rho)*t132 - 0.60e1_dp*t7 &
4609  *t640*t1044*t371 + 0.1600000000e2_dp*t366*t368*t1667*t371 &
4610  - 0.4800000000e2_dp*t1680*t3668 + 0.1600000000e3_dp*t1680*t1060 &
4611  + 0.3200000000e2_dp*t1055*t3674
4612  t3679 = t2565*t1439
4613  t3682 = t24*t940
4614  t3711 = -0.1600000000e3_dp*t2220*t368*t3679 + 0.6346666667e3_dp*t3682 &
4615  *t1008 - 0.3946666667e3_dp*t366*t1012*t1021 + 0.1866666667e2_dp &
4616  *t3366*t1026 + 0.1866666667e2_dp*t1024*t341*t635*t132 &
4617  - 0.1706666667e3_dp*t7*t1036 - 0.1600000000e2_dp*t1429*t1030 - 0.1600000000e2_dp &
4618  *t350*t114*t1667*t132 + 0.6400000000e2_dp*t7* &
4619  t1050 - 0.5066666667e2_dp*t366*t1034*t635*t371 + 0.1520000000e3_dp &
4620  *t786*t1034*t1681
4621  t3726 = -0.240e2_dp*t1616*t1617*t3356 + 0.160e2_dp*t302*t3379 + &
4622  0.40e1_dp*t102*t327*t1063*t557 + 0.960e2_dp*t302*t3353 - 0.320e2_dp &
4623  *t302*t3363 - 0.2737777778e3_dp*t941*t2468*t608 - 0.120e2_dp &
4624  *t102*t974*t645*t772 - 0.2133333334e2_dp*t321*t953*t1621 &
4625  - 0.20e1_dp*t102*t105*(t3677 + t3711) + 0.80e1_dp*t102*t327 &
4626  *t375*t1443 - 0.120e2_dp*t1616*t1617*t3362 - 0.2133333334e2_dp &
4627  *t321*t953*t1625
4628  t3750 = t2585*t136
4629  t3763 = 0.2346666666e3_dp*t1589*t950 + 0.80e1_dp*t102*t327*t1684 &
4630  *t233 + 0.6400000002e2_dp*t7*t220*t1618 - 0.240e2_dp*t112*t976 &
4631  - 0.160e2_dp*t93*t316*rho*t3378 + 0.2346666666e3_dp*t93* &
4632  t3344 + 0.3911111110e2_dp*t962*t2611*t614 - 0.5475555556e3_dp*t24 &
4633  *t930 + 0.480e2_dp*t1616*t3750*t3352 - 0.1955555555e2_dp*t962 &
4634  *t949*t645 - 0.240e2_dp*t1616*t973*t375*t1425 + 0.2133333334e2_dp &
4635  *t339*t969
4636  t3794 = -0.640e2_dp*t302*t3357 - 0.4266666668e2_dp*t339*t966 + 0.640e2_dp &
4637  *t605*t955 + 0.40e1_dp*t102*t327*t645*t800 + 0.5475555556e3_dp &
4638  *t3682*t946 + 0.1066666667e2_dp*t321*t316*t1684 + 0.160e2_dp &
4639  *t112*t980 - 0.2346666666e3_dp*t7*t929*t1599 + 0.320e2_dp &
4640  *t1597*t1598*t3362 - 0.2346666666e3_dp*t605*t769 + 0.320e2_dp &
4641  *t1582*t801 - 0.2133333334e2_dp*t321*t953*t1631
4642  t3796 = t3618 + t3726 + t3763 + t3794
4643  t3826 = 0.8333333340e-1_dp*t906*t597*t907 + 0.1666666668e0_dp*t429 &
4644  *t1547 - 0.3333333336e0_dp*t83*t84*t3796 - 0.3333333336e0_dp* &
4645  t83*t922*t649 - 0.3333333336e0_dp*t289*t294*t1571 - 0.3333333336e0_dp &
4646  *t289*t1071*t1410 - 0.6666666672e0_dp*t83*t1564*t379 &
4647  - 0.6666666672e0_dp*t55*t1700 - 0.3333333336e0_dp*t165*t207* &
4648  t237*t561 - 0.6666666672e0_dp*t55*t1689 - 0.3333333336e0_dp*t83 &
4649  *t1694*t804 + 0.1666666668e0_dp*t1546*t897*t3314
4650  t3827 = t649*t804
4651  t3842 = t3278*t46
4652  t3849 = t140*t3382
4653  t3853 = t649*t754
4654  t3861 = t78*t649
4655  t3865 = t589*t140
4656  t3869 = -0.1666666668e0_dp*t289*t84*t3827 - 0.1666666668e0_dp*t289 &
4657  *t922*t593 + 0.1666666668e0_dp*t1546*t2636*t1410 - 0.6666666672e0_dp &
4658  *t55*t1703 - 0.3333333336e0_dp*t83*t597*t1067 - 0.1250000001e0_dp &
4659  *t3842*t897*t3306 - 0.3333333336e0_dp*t83*t384* &
4660  t3382 - 0.1666666668e0_dp*t289*t84*t3849 + 0.8333333340e-1_dp*t906 &
4661  *t84*t3853 - 0.6666666672e0_dp*t55*t1568 - 0.6666666672e0_dp* &
4662  t55*t1565 - 0.3333333336e0_dp*t165*t3861*t237 - 0.3333333336e0_dp &
4663  *t165*t3865*t237
4664  t3871 = t379*t1447
4665  t3875 = t45*t2002
4666  t3892 = t225*t1447
4667  t3918 = t25*t3382
4668  t3925 = t777*t561
4669  t3933 = t451*t1410
4670  t3939 = t1301*t245
4671  t3940 = t172*t3306
4672  t3965 = 0.1500000000e1_dp*t405*t156*t3918 + 0.1968750000e2_dp*t2823 &
4673  *t401*t3306 + 0.1666666666e1_dp*t405*t1340*t3925 + 0.3000000000e1_dp &
4674  *t405*t1333*t1447 + 0.3000000000e1_dp*t399*t822*t3933 &
4675  + 0.2250000000e1_dp*t400*t401*t3382 + 0.5625000000e1_dp*t3939 &
4676  *t3940 + 0.3333333333e0_dp*t405*t194*t649*t14 - 0.1125000000e2_dp &
4677  *t1302*t1309*t1410 + 0.2250000000e1_dp*t400*t1892*t804 &
4678  - 0.5625000000e1_dp*t1302*t401*t3329 - 0.5625000000e1_dp*t1302 &
4679  *t1892*t754 + 0.2250000000e1_dp*t400*t2808*t561 - 0.4500000000e1_dp &
4680  *t400*t1333*t1410
4681  t3969 = t172*t3314
4682  t3975 = t19*t1688
4683  t3979 = t290*t1483
4684  t3985 = t172*t3329
4685  t4010 = -0.1125000000e2_dp*t1302*t401*t3314 - 0.4500000000e1_dp*t1912 &
4686  *t3969 + 0.4500000000e1_dp*t400*t1309*t1447 + 0.4500000000e1_dp &
4687  *t400*t3975*t237 - 0.3750000000e1_dp*t3939*t3979 - 0.2000000000e1_dp &
4688  *t405*t417*t3892 - 0.2250000000e1_dp*t1912*t3985 - &
4689  0.2000000000e1_dp*t405*t2873*t561 - 0.5000000000e0_dp*t400*t1316 &
4690  *t3472 - 0.1000000000e1_dp*t405*t68*t1688*t17 + 0.1500000000e1_dp &
4691  *t400*t406*t3449 - 0.1500000000e1_dp*t151*t50*t3796 &
4692  + 0.1500000000e1_dp*t400*t1902*t833 + 0.1500000000e1_dp*t400* &
4693  t1320*t1483
4694  t4018 = 0.2222222222e0_dp*t2885*t446*t1172*t561 - 0.1666666667e0_dp &
4695  *t1246*t1292*t1865 - 0.4444444445e0_dp*t1373*t446*t3892 &
4696  - 0.1111111111e0_dp*t165*t171*t1688*t17 + 0.1666666667e0_dp*t165 &
4697  *t56*t3576*t140 + 0.1250000000e0_dp*t2763*t446*t1168* &
4698  t561 + 0.3333333334e0_dp*t165*t689*t413 + 0.1666666667e0_dp*t165 &
4699  *t679*t1067 - 0.1666666667e0_dp*t1246*t446*t413*t1447 + &
4700  (2*t147*t149*(t3965 + t4010)) - 0.4444444445e0_dp*t1373* &
4701  t1292*t1829
4702  t4025 = t3262*t57
4703  t4032 = t74*t649
4704  t4070 = t3525*t67
4705  t4079 = -0.5555555558e-1_dp*t192*t199*t3514 + (t705*t863* &
4706  t65) + (2*t496*t1504*t65) + (t187*t3513*t65) - &
4707  0.5555555558e-1_dp*t192*t728*t864 - 0.5555555556e0_dp*t140*t3546 &
4708  *t1722 + (t705*t865*t65) - 0.1111111112e0_dp*t1106*t1525 &
4709  - 0.1111111112e0_dp*t4070*t196 + 0.6666666668e0_dp*t1748*t266 &
4710  *t1722 + 0.3703703706e0_dp*t1193*t1505*t451
4711  t4101 = t498*t1505
4712  t4108 = -0.5000000001e0_dp*t60*t1189*t709 + 0.3703703706e0_dp*t1755 &
4713  *t512 - 0.5555555558e-1_dp*t503*t3561 - 0.2222222224e0_dp*t516 &
4714  *t267*t172*t1504 - 0.5555555558e-1_dp*t1715*t886 - 0.5555555558e-1_dp &
4715  *t1715*t882 - 0.1111111112e0_dp*t516*t3514*t172 - 0.5000000001e0_dp &
4716  *t1067*t177*t709 + (2*t4101) - 0.1111111112e0_dp &
4717  *t508*t1769 - 0.1111111112e0_dp*t192*t1837*t267
4718  t4140 = -0.5555555558e-1_dp*t719*t1207 - 0.2000000001e1_dp*t1763* &
4719  t266*t1722 - 0.1111111112e0_dp*t192*t530*t1505 + 0.1333333334e1_dp &
4720  *t1519*t722*t1712 + 0.7407407410e-1_dp*t516*t1718*t526 &
4721  + 0.6666666668e0_dp*t379*t1518*t1722 - 0.5555555558e-1_dp*t192* &
4722  t728*t866 - 0.2222222224e0_dp*t719*t1126 + 0.1800000000e2_dp*t1111 &
4723  *t178*t710 - 0.1111111112e0_dp*t508*t1782 - 0.5555555558e-1_dp &
4724  *t58*t3796*t71
4725  t4156 = t865*t561*t65
4726  t4201 = t20*t1688
4727  t4214 = -0.8000000000e1_dp*t478*t123*t3925 - 0.2400000000e2_dp*t473 &
4728  *t479*t3449 + 0.1200000000e2_dp*t478*t489*t3892 + 0.1200000000e2_dp &
4729  *t478*t2998*t561 - 0.2000000000e1_dp*t478*t27*t649 &
4730  *t14 + 0.1200000000e2_dp*t478*t56*t1688*t17 - 0.2400000000e2_dp &
4731  *t473*t1161*t1483 + 0.1080000000e3_dp*t1143*t474*t3314 - &
4732  0.2160000000e3_dp*t2994*t474*t3306 + 0.7200000000e2_dp*t1821* &
4733  t3969 - 0.3600000000e2_dp*t473*t4201*t237 - 0.1800000000e2_dp*t473 &
4734  *t3030*t561 - 0.2400000000e2_dp*t473*t1811*t833 - 0.1800000000e2_dp &
4735  *t478*t183*t3918
4736  t4230 = t1142*t262
4737  t4255 = 0.5400000000e2_dp*t1143*t474*t3329 + 0.5400000000e2_dp*t1143 &
4738  *t1801*t754 + 0.7200000000e2_dp*t473*t1176*t1410 + 0.8999999998e1_dp &
4739  *t178*t62*t3796 - 0.2400000000e2_dp*t472*t859*t3933 &
4740  - 0.1080000000e3_dp*t4230*t3940 + 0.4000000000e1_dp*t473*t1157 &
4741  *t3472 + 0.1080000000e3_dp*t1143*t1150*t1410 + 0.3600000000e2_dp &
4742  *t1821*t3985 + 0.7200000000e2_dp*t4230*t3979 - 0.1800000000e2_dp &
4743  *t473*t1801*t804 - 0.3600000000e2_dp*t473*t1150*t1447 - &
4744  0.3600000000e2_dp*t478*t1176*t1447 - 0.1800000000e2_dp*t473*t474 &
4745  *t3382
4746  t4256 = t4214 + t4255
4747  t4261 = -0.2222222224e0_dp*t1510*t515*t517 + 0.3703703706e0_dp*t719 &
4748  *t1213 - 0.1000000001e1_dp*t1766*t266*t1722 - 0.5555555558e-1_dp &
4749  *t4070*t200 + 0.6666666668e0_dp*t1519*t496*t561*t65 - 0.5000000001e0_dp &
4750  *t732*t4156 - 0.5000000001e0_dp*t140*t865*t1722 &
4751  - 0.5000000001e0_dp*t804*t187*t1722 - 0.4938271608e0_dp*t719* &
4752  t1101 + 0.8999999998e1_dp*t1097*t178*t710 - 0.5555555558e-1_dp* &
4753  t192*t68*t4256*t65
4754  t4272 = t863*t561*t65
4755  t4292 = (2*t1836*t266*t65) - 0.1111111112e0_dp*t719*t1224 &
4756  - 0.2222222224e0_dp*t1137*t1790 - 0.1000000001e1_dp*t723*t4272 &
4757  - 0.1111111112e0_dp*t1785*t1134 - 0.6172839508e-1_dp*t192*t22* &
4758  t705*t1200 - 0.5000000001e0_dp*t140*t863*t1722 - 0.1111111112e0_dp &
4759  *t1755*t531 - 0.6172839508e-1_dp*t1715*t874 - 0.5555555558e-1_dp &
4760  *t719*t1122 + 0.7407407410e-1_dp*t508*t1726
4761  t4317 = 0.7407407410e-1_dp*t1755*t527 - 0.6172839508e-1_dp*t719*t1201 &
4762  - 0.1111111112e0_dp*t508*t1838 - 0.2222222224e0_dp*t192*t3552 &
4763  *t1125 + 0.7407407410e-1_dp*t1785*t1221 - 0.1111111111e1_dp*t3547 &
4764  *t1737 + 0.6666666668e0_dp*t1519*t187*t1712 + 0.7407407410e-1_dp &
4765  *t503*t3553 - 0.1111111112e0_dp*t1755*t534 - 0.1000000001e1_dp &
4766  *t1774*t1712 + 0.7407407410e-1_dp*t719*t1119
4767  t4345 = -0.1000000001e1_dp*t379*t266*t1722 - 0.1000000001e1_dp*t804 &
4768  *t722*t1722 + 0.8999999998e1_dp*t1109*t178*t710 - 0.5555555558e-1_dp &
4769  *t1129*t729 + t4256*t65 - 0.2222222224e0_dp*t1755*t520 &
4770  - 0.1111111112e0_dp*t503*t3569 - 0.1111111112e0_dp*t1785*t1216 &
4771  - 0.1111111112e0_dp*t3097*t4101 - 0.5000000001e0_dp*t732*t4272 &
4772  + 0.7407407410e-1_dp*t192*t194*t1836*t526
4773  t4352 = t1731*t67
4774  t4378 = 0.7407407410e-1_dp*t1715*t878 + 0.8999999998e1_dp*t1189*t59 &
4775  *t177*t710 + 0.7407407410e-1_dp*t4352*t271 - 0.1111111112e0_dp &
4776  *t4352*t275 - 0.5555555556e0_dp*t3547*t1745 + 0.7407407410e-1_dp &
4777  *t516*t1709*t526 + 0.6666666668e0_dp*t3533*t187*t1722 - 0.1000000001e1_dp &
4778  *t237*t496*t1722 + 0.3703703706e0_dp*t579*t1192 &
4779  *t1194 - 0.1000000001e1_dp*t723*t4156 + 0.1333333334e1_dp*t3533 &
4780  *t722*t1722 - 0.5555555558e-1_dp*t719*t1235
4781  t4392 = 0.3333333334e0_dp*t165*t171*t1825 + 0.1250000000e0_dp*t1981 &
4782  *t1247*t3329 - 0.3125000000e0_dp*t4025*t1247*t3306 + 0.3333333334e0_dp &
4783  *t165*t1392*t1447 + 0.5555555556e-1_dp*t1246*t4032 &
4784  *t833 - 0.1666666667e0_dp*t1246*t74*t25*t1410 + 0.5555555556e-1_dp &
4785  *t1246*t1247*t3449 + 0.1800000000e2_dp*t657*t1283*t59 &
4786  *t1975 - 0.1666666667e0_dp*t429*t166*t3871 + 0.3333333334e0_dp &
4787  *t55*t57*(t4079 + t4108 + t4140 + t4261 + t4292 + t4317 + t4345 &
4788  + t4378) + 0.1481481481e0_dp*t170*t114*t735*t14 - 0.1666666667e0_dp &
4789  *t429*t1928*t290
4790  t4428 = -0.1111111111e0_dp*t165*t1264*t1483 + 0.1800000000e2_dp*t658 &
4791  *t575*t1348 - 0.8333333335e-1_dp*t429*t679*t918 - 0.1111111111e0_dp &
4792  *t165*t455*t1988 + 0.3333333334e0_dp*t170*t27*t3576 &
4793  *t172 - 0.8333333335e-1_dp*t429*t1966*t754 + 0.1250000000e0_dp &
4794  *t1368*t679*t907 + 0.1666666667e0_dp*t445*t446*t3918 - 0.4444444445e0_dp &
4795  *t165*t450*t1829 + 0.2500000000e0_dp*t1981*t3244 &
4796  *t1410 - 0.1666666667e0_dp*t429*t1392*t1410
4797  t4466 = -0.1666666667e0_dp*t429*t437*t1553 - 0.1111111111e0_dp*t165 &
4798  *t689*t1085 + 0.1666666667e0_dp*t165*t1275*t649 - 0.2222222222e0_dp &
4799  *t170*t27*t1843*t17 - 0.8333333335e-1_dp*t1246*t1962 &
4800  *t1168 + 0.1666666667e0_dp*t165*t2720*t561 + 0.6666666668e0_dp &
4801  *t170*t1932*t25 + 0.3333333334e0_dp*t445*t1292*t1825 + 0.1250000000e0_dp &
4802  *t1368*t166*t3853 - 0.4444444445e0_dp*t1373*t1962 &
4803  *t1172 + 0.7407407405e-1_dp*t165*t1377*t3472 + 0.5555555555e-1_dp &
4804  *t1246*t3244*t1483
4805  t4498 = t56*t1843
4806  t4505 = 0.1666666667e0_dp*t165*t166*t3796 - 0.8333333334e-1_dp*t2763 &
4807  *t1247*t833*t561 + (4*t147*t392*t1886) + (2 &
4808  *t147*t1388*t672) - 0.1111111111e0_dp*t165*t1940*t833 + 0.3333333334e0_dp &
4809  *t165*t1928*t379 + 0.7407407409e-1_dp*t165*t450 &
4810  *t649*t14 - 0.1666666667e0_dp*t429*t462*t3314 - 0.3703703704e-1_dp &
4811  *t2885*t1247*t3472 + 0.3333333334e0_dp*t165*t4498*t237 &
4812  + (2*t147*t1284*t672)
4813  t4512 = t1531*rho
4814  t4545 = (4*t147*t1885*t424) + 0.1666666667e0_dp*t165*t462 &
4815  *t3382 + 0.3333333334e0_dp*t445*t4512*t413 + 0.5185185185e0_dp &
4816  *t2937*t446*t3925 - 0.8333333335e-1_dp*t429*t166*t3827 - 0.1666666667e0_dp &
4817  *t429*t437*t1571 + 0.5555555555e-1_dp*t1246*t203 &
4818  *t237*t1483 + 0.5555555555e-1_dp*t1246*t2707*t1483 + 0.7407407409e-1_dp &
4819  *t165*t1875*t1360 + (4*t147*t393*t1924) &
4820  + 0.3600000000e2_dp*(t1971)*(t1972)*(t1973)*(t424) &
4821  + 0.3333333334e0_dp*t165*t437*t1688
4822  t4553 = t585*t140
4823  t4575 = t1067*t561
4824  t4585 = 0.1666666667e0_dp*t445*t3248*t668 - 0.1111111111e0_dp*t165 &
4825  *t1932*t433 + 0.5555555556e-1_dp*t1246*t4553*t833 - 0.8333333335e-1_dp &
4826  *t429*t1275*t593 - 0.8333333335e-1_dp*t429*t462* &
4827  t3329 + 0.2500000000e0_dp*t1981*t1247*t3314 + 0.1666666667e0_dp* &
4828  t445*t1962*t1093 + 0.3333333334e0_dp*t165*t455*t668 - 0.8333333335e-1_dp &
4829  *t429*t166*t3849 - 0.8333333335e-1_dp*t429*t166* &
4830  t4575 + 0.2e1_dp*t147*(t3491 - t3494 - t3497 + t3501 - t3505 + 0.9000000000e1_dp &
4831  *t3507 - t3512)*t149*t160
4832  t4607 = t1688*t237
4833  t4627 = 0.1666666667e0_dp*t165*t1966*t804 - 0.1666666667e0_dp*t429 &
4834  *t437*t1557 + 0.1800000000e2_dp*t657*t1387*t59*t1975 + 0.1037037037e1_dp &
4835  *t170*t341*t585*t1100 - 0.8888888890e0_dp*t170 &
4836  *t114*t1531*t451 - 0.8888888890e0_dp*t170*t1875*t225 - 0.1666666667e0_dp &
4837  *t429*t166*t4607 - 0.1111111111e0_dp*t165*t466 &
4838  *t3449 - 0.1666666667e0_dp*t429*t679*t914 - 0.8333333335e-1_dp* &
4839  t1246*t446*t1093*t561 + 0.1250000000e0_dp*t1368*t462*t3306 &
4840  + 0.2500000000e0_dp*t1981*t2707*t1410
4841  t4657 = -0.3333333336e0_dp*t289*t84*t3871 - 0.6666666672e0_dp*t83 &
4842  *t3875*t237 + 0.8333333340e-1_dp*t906*t384*t3306 - 0.1666666668e0_dp &
4843  *t289*t597*t918 - 0.2222222224e0_dp*t144*t46*(t4018 &
4844  + t4392 + t4428 + t4466 + t4505 + t4545 + t4585 + t4627) - 0.1666666668e0_dp &
4845  *t289*t384*t3329 - 0.3333333336e0_dp*t165*t2636*t561 &
4846  - 0.3333333336e0_dp*t165*t897*t1447 + 0.8333333340e-1_dp*t1546 &
4847  *t897*t3329 - 0.6666666672e0_dp*t83*t1071*t1447 - 0.3333333336e0_dp &
4848  *t83*t2404*t561 - 0.4444444448e0_dp*t383*t3875 - 0.3333333336e0_dp &
4849  *t289*t294*t1553
4850  t4696 = -0.6666666672e0_dp*t55*t1575 - 0.3333333336e0_dp*t289*t597 &
4851  *t914 - 0.3333333336e0_dp*t165*t2631*t561 - 0.6666666672e0_dp* &
4852  t55*t1706 - 0.3333333336e0_dp*t289*t384*t3314 - 0.6666666672e0_dp &
4853  *t83*t294*t1688 + 0.1666666668e0_dp*t1546*t2631*t1410 - &
4854  0.3333333336e0_dp*t289*t1564*t290 - 0.1666666668e0_dp*t289*t84 &
4855  *t4575 - 0.3333333336e0_dp*t289*t294*t1557 - 0.1666666668e0_dp &
4856  *t289*t1694*t754 - 0.3333333336e0_dp*t289*t84*t4607 - 0.3333333336e0_dp &
4857  *t83*t45*t3581*t140
4858  t4700 = -0.6666666670e0_dp*t2147*t1411 - 0.1333333334e1_dp*t747*t597 &
4859  *t237 - 0.1333333334e1_dp*t747*t84*t1447 - 0.1333333334e1_dp &
4860  *t747*t294*t561 - 0.8888888896e0_dp*t214*t1536 + 0.1666666668e0_dp &
4861  *t3305*t84*t3306 - 0.3333333336e0_dp*t753*t46*t589*t754 &
4862  - 0.6666666672e0_dp*t1409*t84*t3314 - 0.6666666670e0_dp*t1409 &
4863  *t294*t1410 - 0.1333333334e1_dp*t217*t46*t1535*t237 - 0.1333333334e1_dp &
4864  *t217*t46*t282*t1447 - 0.3333333336e0_dp*t1409 &
4865  *t84*t3329 - 0.6666666672e0_dp*t217*t46*t589*t804 - 0.6666666672e0_dp &
4866  *t217*t46*t78*t3382 - 0.6666666672e0_dp*t217*t46 &
4867  *t893*t561 - 0.4444444448e0_dp*t43*t46*t3581 + t8*(t3826 + &
4868  t3869 + t4657 + t4696)
4869  e_ndrho_rho_rho_spin(ii) = e_ndrho_rho_rho_spin(ii) + t4700*sx
4870  t4701 = t561**2
4871  t4704 = 0.3333333336e0_dp*t2147*t84*t4701
4872  t4707 = 0.1333333334e1_dp*t747*t597*t561
4873  t4708 = t22*t36
4874  t4713 = t557**2
4875  t4714 = t327*t4713
4876  t4717 = t22*t132
4877  t4721 = 0.1e1_dp/t787*t2480
4878  t4725 = 0.120e2_dp*t624*t4717 - 0.60e1_dp*t7*t4721*t371
4879  t4726 = t105*t4725
4880  t4729 = 0.40e1_dp*t624*t4708 - 0.80e1_dp*t112*t558 + 0.40e1_dp*t102 &
4881  *t4714 - 0.20e1_dp*t102*t4726
4882  t4732 = 0.6666666672e0_dp*t747*t84*t4729
4883  t4733 = pi**2
4884  t4734 = t4733*t146
4885  t4736 = 0.1e1_dp/t58/omega
4886  t4738 = t4734*t4736*t1300
4887  t4739 = t4701*t149
4888  t4743 = t19*t4701
4889  t4744 = t399*t4743
4890  t4748 = t151*t19*t4729
4891  t4760 = t20*t4701
4892  t4764 = t20*t4729
4893  t4768 = t58**2
4894  t4769 = 0.1e1_dp/t4768
4895  t4770 = t4769*t1141
4896  t4771 = t4770*t4733
4897  t4772 = t26*t4701
4898  t4776 = t58*t4729
4899  t4782 = -0.2250000000e2_dp*t473*t4760*t65 + 0.8999999998e1_dp*t478 &
4900  *t4764*t65 + 0.8099999996e2_dp*t4771*t4772*t65 - 0.5555555558e-1_dp &
4901  *t4776*t71 - 0.5000000001e0_dp*t60*t4729*t65
4902  t4786 = -0.2700000000e2_dp*t4738*t18*t4739 + 0.4500000000e1_dp*t567 &
4903  *t4744 - 0.3000000000e1_dp*t567*t4748 - 0.8333333335e-1_dp*t429 &
4904  *t166*t4701 + 0.3333333334e0_dp*t165*t679*t561 + 0.1666666667e0_dp &
4905  *t165*t166*t4729 + 0.3333333334e0_dp*t55*t57*t4782
4906  t4789 = 0.4444444448e0_dp*t214*t46*t4786
4907  t4790 = t237*t4701
4908  t4793 = 0.1666666668e0_dp*t3305*t84*t4790
4909  t4796 = 0.6666666672e0_dp*t1409*t597*t1410
4910  t4797 = t1447*t561
4911  t4800 = 0.6666666672e0_dp*t1409*t84*t4797
4912  t4801 = t237*t4729
4913  t4804 = 0.3333333336e0_dp*t1409*t84*t4801
4914  t4808 = 0.6666666672e0_dp*t217*t46*t4786*t237
4915  t4812 = 0.1333333334e1_dp*t217*t46*t589*t1447
4916  t4817 = t953*t4713
4917  t4820 = t316*t4725
4918  t4829 = t233*t4713
4919  t4830 = t974*t4829
4920  t4833 = t1443*t557
4921  t4834 = t327*t4833
4922  t4837 = t233*t4725
4923  t4838 = t327*t4837
4924  t4849 = -0.3200000000e2_dp*t1645*t627 + 0.4800000000e2_dp*t7*t1440 &
4925  - 0.2400000000e2_dp*t786/t2492*t1058
4926  t4850 = t105*t4849
4927  t4853 = -0.1066666667e2_dp*t1645*t98 + 0.2133333334e2_dp*t339*t1420 &
4928  - 0.1066666667e2_dp*t321*t4817 + 0.5333333333e1_dp*t321*t4820 &
4929  - 0.40e1_dp*t624*t234 + 0.160e2_dp*t112*t1426 - 0.80e1_dp*t112* &
4930  t1444 - 0.120e2_dp*t102*t4830 + 0.80e1_dp*t102*t4834 + 0.40e1_dp* &
4931  t102*t4838 - 0.20e1_dp*t102*t4850
4932  t4857 = 0.6666666672e0_dp*t217*t46*t78*t4853
4933  t4861 = 0.3333333336e0_dp*t753*t46*t282*t4701
4934  t4864 = t217*t46*t1535*t561
4935  t4869 = 0.6666666672e0_dp*t217*t46*t282*t4729
4936  t4872 = 0.8333333335e-1_dp*t429*t437*t4701
4937  t4874 = t165*t1928*t561
4938  t4878 = 0.1666666667e0_dp*t165*t437*t4729
4939  t4881 = 0.5400000000e2_dp*t1143*t1493*t4701
4940  t4884 = 0.3600000000e2_dp*t473*t2035*t561
4941  t4887 = 0.1800000000e2_dp*t473*t1493*t4729
4942  t4889 = t178*t62*t4853
4943  t4893 = 0.1200000000e2_dp*t473*t1500*t4701
4944  t4895 = t478*t1500*t4729
4945  t4897 = t4881 - t4884 - t4887 + 0.8999999998e1_dp*t4889 - t4893 + 0.5999999999e1_dp &
4946  *t4895
4947  t4898 = t4897*t65
4948  t4901 = t1504*t59*t177*t710
4949  t4904 = t4701*t65
4950  t4905 = t62*t4904
4951  t4907 = 0.2250000000e2_dp*t1506*t471*t4905
4952  t4908 = t4729*t65
4953  t4909 = t62*t4908
4954  t4911 = 0.8999999998e1_dp*t1507*t4909
4955  t4915 = t4733*t26*t4904
4956  t4917 = 0.8099999996e2_dp*t266*t4769*t1141*t4915
4957  t4918 = t58*t4853
4958  t4920 = 0.5555555558e-1_dp*t4918*t71
4959  t4922 = t1447*t177*t709
4960  t4925 = 0.5000000001e0_dp*t1513*t4908
4961  t4929 = t60*t1504*t709
4962  t4932 = 0.5000000001e0_dp*t1528*t4908
4963  t4935 = 0.1000000000e1_dp*t237*t471*t4904
4964  t4940 = t59*pi*t20*t65
4965  t4941 = t237*t1141*t4701*t4940
4966  t4943 = t4776*t67
4967  t4945 = 0.3703703705e-1_dp*t4943*t271
4968  t4946 = t471*t1518
4969  t4951 = 0.5555555558e-1_dp*t4943*t275
4970  t4952 = t719*t1525
4971  t4955 = t68*t4897*t65
4972  t4958 = t4898 + 0.1800000000e2_dp*t4901 - t4907 + t4911 + t4917 - t4920 &
4973  - 0.1000000000e1_dp*t4922 - t4925 + 0.3333333334e0_dp*t1519*t4908 &
4974  - 0.1000000000e1_dp*t4929 - t4932 + t4935 - 0.4500000000e1_dp*t4941 &
4975  + t4945 + 0.3000000000e1_dp*t4946*t4701*t4940 - t4951 - 0.1111111112e0_dp &
4976  *t4952 - 0.5555555558e-1_dp*t192*t4955
4977  t4994 = t44*t4733*t146
4978  t4995 = t4994*t4770
4979  t5001 = 0.1666666667e0_dp*t165*t166*t4853
4980  t5002 = t17*t4701
4981  t5005 = 0.2777777778e-1_dp*t429*t171*t5002
4982  t5008 = 0.1111111111e0_dp*t165*t689*t1483
4983  t5009 = t17*t4729
4984  t5011 = t165*t171*t5009
4985  t5013 = t27*t4782
4986  t5016 = 0.1111111111e0_dp*t170*t5013*t17
4987  t5019 = 0.1250000000e0_dp*t1368*t166*t4790
4988  t5022 = 0.1666666667e0_dp*t429*t679*t1410
4989  t5025 = 0.1666666667e0_dp*t429*t166*t4797
4990  t5028 = 0.8333333335e-1_dp*t429*t166*t4801
4991  t5029 = t56*t4782
4992  t5032 = 0.1666666667e0_dp*t165*t5029*t237
4993  t5035 = 0.3333333334e0_dp*t165*t679*t1447
4994  t5036 = -t4872 + 0.3333333334e0_dp*t4874 + t4878 + 0.3333333334e0_dp* &
4995  t55*t57*t4958 + 0.2e1_dp*t147*t149*(-0.5625000000e1_dp*t1302 &
4996  *t1459*t4701 + 0.4500000000e1_dp*t400*t2022*t561 + 0.2250000000e1_dp &
4997  *t400*t1459*t4729 - 0.1500000000e1_dp*t151*t50*t4853 &
4998  + 0.7500000000e0_dp*t400*t1466*t4701 - 0.5000000000e0_dp*t405 &
4999  *t1466*t4729) - 0.3600000000e2_dp*t2081*t4760*t250 + 0.1800000000e2_dp &
5000  *t658*t4764*t250 + 0.3600000000e2_dp*t658*t575*t1471 &
5001  + 0.1620000000e3_dp*t4995*t4772*t250 + t5001 + t5005 - t5008 &
5002  - 0.5555555555e-1_dp*t5011 - t5016 + t5019 - t5022 - t5025 - t5028 &
5003  + t5032 + t5035
5004  t5040 = t379*t4729
5005  t5043 = 0.1666666668e0_dp*t289*t84*t5040
5006  t5044 = t140*t4853
5007  t5047 = 0.1666666668e0_dp*t289*t84*t5044
5008  t5050 = 0.1666666668e0_dp*t165*t897*t4729
5009  t5051 = beta*t86
5010  t5060 = beta*t92
5011  t5065 = rho*t4713
5012  t5069 = rho*t4725
5013  t5079 = t136*t4713
5014  t5083 = t645*t557
5015  t5087 = t136*t4725
5016  t5106 = beta*t640
5017  t5108 = t126*t371*ndrho
5018  t5115 = t366*t640
5019  t5118 = -0.480e2_dp*t5051*t4717 + 0.240e2_dp*t7*t2182*t2480*t371 &
5020  + 0.480e2_dp*t5060*t628 - 0.240e2_dp*t7*t1640*t1438*t371 &
5021  *rho + 0.120e2_dp*t550*t637 - 0.180e2_dp*t5106*t5108 - 0.120e2_dp &
5022  *t7*t640*t635*t371 + 0.180e2_dp*t5115*t1681
5023  t5122 = -0.320e2_dp*t5051*t4708 + 0.640e2_dp*t1582*t558 - 0.320e2_dp &
5024  *t302*t4714 + 0.160e2_dp*t302*t4726 + 0.320e2_dp*t5060*t99 - &
5025  0.640e2_dp*t605*t609 + 0.320e2_dp*t93*t953*t5065 - 0.160e2_dp* &
5026  t93*t316*t5069 - 0.40e1_dp*t624*t137 + 0.160e2_dp*t112*t615 &
5027  - 0.80e1_dp*t112*t646 - 0.120e2_dp*t102*t974*t5079 + 0.80e1_dp* &
5028  t102*t327*t5083 + 0.40e1_dp*t102*t327*t5087 - 0.20e1_dp*t102 &
5029  *t105*t5118
5030  t5123 = t5122*t237
5031  t5126 = 0.1666666668e0_dp*t289*t84*t5123
5032  t5139 = t25*t4701
5033  t5143 = t25*t4729
5034  t5147 = -0.5625000000e1_dp*t1302*t401*t4701 + 0.4500000000e1_dp*t400 &
5035  *t1892*t561 + 0.2250000000e1_dp*t400*t401*t4729 - 0.1500000000e1_dp &
5036  *t151*t50*t5122 - 0.2250000000e1_dp*t400*t156*t5139 &
5037  + 0.1500000000e1_dp*t405*t156*t5143
5038  t5163 = t140*t4701
5039  t5170 = t649*t561
5040  t5174 = t140*t4729
5041  t5226 = 0.5400000000e2_dp*t1143*t474*t4701 - 0.3600000000e2_dp*t473 &
5042  *t1801*t561 - 0.1800000000e2_dp*t473*t474*t4729 + 0.8999999998e1_dp &
5043  *t178*t62*t5122 + 0.3600000000e2_dp*t473*t183*t5139 &
5044  - 0.1800000000e2_dp*t478*t183*t5143
5045  t5228 = t705*t59
5046  t5229 = t5228*t177
5047  t5237 = t649*t177
5048  t5244 = t60*t705
5049  t5247 = t187*t4769
5050  t5251 = t58*t5122
5051  t5256 = t140*t1141
5052  t5262 = t471*t722
5053  t5270 = t68*t5226
5054  t5271 = t5270*t65
5055  t5276 = t5226*t65 + 0.1800000000e2_dp*t5229*t710 - 0.2250000000e2_dp &
5056  *t707*t471*t4905 + 0.8999999998e1_dp*t708*t4909 - 0.1000000000e1_dp &
5057  *t5237*t709 - 0.5000000001e0_dp*t716*t4908 - 0.1000000001e1_dp &
5058  *t723*t4908 - 0.1000000000e1_dp*t5244*t709 + 0.8099999996e2_dp &
5059  *t5247*t1141*t4915 - 0.5555555558e-1_dp*t5251*t71 + 0.1000000000e1_dp &
5060  *t2098*t4904 - 0.4500000000e1_dp*t5256*t4701*t4940 &
5061  - 0.1111111112e0_dp*t4943*t196 - 0.9000000007e1_dp*t5262*t4701 &
5062  *t4940 - 0.5555555558e-1_dp*t4943*t200 - 0.1111111112e0_dp*t719* &
5063  t729 - 0.5555555558e-1_dp*t192*t5271 - 0.5000000001e0_dp*t732*t4908
5064  t5280 = (2*t147*t149*t5147) - 0.3600000000e2_dp*t2081*t4760 &
5065  *t161 + 0.1800000000e2_dp*t658*t4764*t161 + 0.3600000000e2_dp &
5066  *t658*t575*t673 + 0.1620000000e3_dp*t4995*t4772*t161 + 0.1250000000e0_dp &
5067  *t1368*t166*t5163 - 0.1666666667e0_dp*t429*t679 &
5068  *t593 - 0.1666666667e0_dp*t429*t166*t5170 - 0.8333333335e-1_dp* &
5069  t429*t166*t5174 + 0.1666666667e0_dp*t165*t5029*t140 + 0.3333333334e0_dp &
5070  *t165*t679*t649 + 0.1666666667e0_dp*t165*t166*t5122 &
5071  - 0.8333333335e-1_dp*t1246*t446*t5139 + 0.3333333334e0_dp*t445 &
5072  *t1962*t668 + 0.1666666667e0_dp*t445*t446*t5143 + 0.3333333334e0_dp &
5073  *t170*t5013*t172 - 0.8333333335e-1_dp*t429*t462*t4701 &
5074  + 0.3333333334e0_dp*t165*t1966*t561 + 0.1666666667e0_dp*t165 &
5075  *t462*t4729 + 0.3333333334e0_dp*t55*t57*t5276
5076  t5281 = t45*t5280
5077  t5284 = 0.3333333336e0_dp*t83*t5281*t237
5078  t5291 = 0.1666666668e0_dp*t289*t384*t4801
5079  t5294 = 0.1666666668e0_dp*t1546*t3865*t1410
5080  t5295 = t45*t4786
5081  t5298 = 0.3333333336e0_dp*t83*t5295*t379
5082  t5301 = 0.3333333336e0_dp*t55*t384*t4729
5083  t5303 = t83*t1564*t649
5084  t5305 = -t5043 - t5047 - t5050 - t5126 - t5284 - 0.3333333336e0_dp*t83 &
5085  *t45*t5036*t140 - t5291 + t5294 - t5298 - t5301 - 0.6666666672e0_dp &
5086  *t5303
5087  t5308 = 0.3333333336e0_dp*t289*t1694*t1410
5088  t5311 = 0.1666666668e0_dp*t289*t1071*t4701
5089  t5314 = 0.1666666668e0_dp*t289*t5295*t290
5090  t5317 = 0.3333333336e0_dp*t165*t3861*t561
5091  t5320 = 0.3333333336e0_dp*t83*t1071*t4729
5092  t5323 = 0.1666666668e0_dp*t1546*t3861*t1410
5093  t5326 = 0.1250000001e0_dp*t3842*t897*t4790
5094  t5329 = 0.6666666672e0_dp*t83*t1694*t1447
5095  t5330 = t379*t4701
5096  t5333 = 0.8333333340e-1_dp*t906*t84*t5330
5097  t5335 = 0.2222222224e0_dp*t383*t5281
5098  t5338 = 0.6666666672e0_dp*t55*t1694*t561
5099  t5339 = t649*t1447
5100  t5342 = 0.3333333336e0_dp*t289*t84*t5339
5101  t5343 = -t5308 - t5311 - t5314 - t5317 - t5320 + t5323 - t5326 - t5329 &
5102  + t5333 - t5335 - t5338 - t5342
5103  t5345 = t1688*t561
5104  t5347 = t289*t84*t5345
5105  t5351 = 0.1666666668e0_dp*t164*t384*t4701
5106  t5354 = 0.3333333336e0_dp*t83*t384*t4853
5107  t5357 = 0.6666666672e0_dp*t55*t597*t649
5108  t5360 = 0.3333333336e0_dp*t289*t384*t4797
5109  t5363 = 0.8333333335e-1_dp*t429*t166*t5040
5110  t5367 = 0.1666666667e0_dp*t445*t4782*rho*t413
5111  t5370 = 0.1666666667e0_dp*t429*t679*t1557
5112  t5371 = t225*t4701
5113  t5373 = t2885*t446*t5371
5114  t5376 = t165*t466*t5009
5115  t5379 = t165*t1928*t649
5116  t5383 = 0.4166666667e-1_dp*t2763*t1247*t5002
5117  t5386 = 0.8333333335e-1_dp*t429*t5029*t290
5118  t5389 = 0.8333333335e-1_dp*t429*t166*t5044
5119  t5397 = 0.8333333335e-1_dp*t1246*t446*t413*t4729
5120  t5400 = 0.3333333334e0_dp*t445*t1962*t1825
5121  t5402 = t165*t679*t1688
5122  t5406 = 0.8333333335e-1_dp*t429*t166*t5123
5123  t5409 = 0.8333333335e-1_dp*t429*t1392*t4701
5124  t5412 = 0.8333333335e-1_dp*t429*t171*t5139
5125  t5415 = 0.1666666667e0_dp*t429*t462*t4797
5126  t5418 = 2*t147*t393*t5147
5127  t5421 = t657*t1884*t59*t1975
5128  t5423 = -t5363 + t5367 - t5370 + 0.1111111111e0_dp*t5373 - 0.5555555555e-1_dp &
5129  *t5376 + 0.3333333334e0_dp*t5379 - t5383 - t5386 - t5389 + &
5130  0.3333333334e0_dp*t170*t27*t4958*t172 - t5397 + t5400 + 0.3333333334e0_dp &
5131  *t5402 - t5406 - t5409 - t5412 - t5415 + t5418 + 0.3600000000e2_dp &
5132  *t5421
5133  t5426 = 0.8333333335e-1_dp*t1246*t1292*t5139
5134  t5429 = 0.1666666667e0_dp*t445*t1292*t5143
5135  t5430 = t225*t4729
5136  t5432 = t1373*t446*t5430
5137  t5436 = 0.1666666667e0_dp*t165*t5029*t379
5138  t5440 = 0.40e1_dp*t102*t327*t375*t4725
5139  t5443 = 0.960e2_dp*t1597*t3608*t4829
5140  t5446 = 0.480e2_dp*t24*t23*t1618
5141  t5449 = 0.1173333333e3_dp*t307*t2611*t5065
5142  t5451 = 0.640e2_dp*t605*t1603
5143  t5454 = 0.2133333334e2_dp*t321*t953*t5083
5144  t5456 = 0.1280e3_dp*t1582*t1426
5145  t5459 = 0.5333333333e1_dp*t321*t316*t5118
5146  t5460 = beta*t306
5147  t5462 = 0.1173333333e3_dp*t5460*t313
5148  t5466 = 0.40e1_dp*t102*t327*t136*t4849
5149  t5468 = 0.2346666666e3_dp*t605*t1420
5150  t5469 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 - t5456 + t5459 &
5151  - t5462 + t5466 - t5468
5152  t5472 = 0.3200000001e2_dp*t321*t2455*t5079
5153  t5474 = 0.4266666668e2_dp*t339*t1608
5154  t5478 = 0.240e2_dp*t1616*t973*t645*t1425
5155  t5480 = 0.1760000000e3_dp*t5060*t627
5156  t5482 = 0.2160000000e3_dp*t7*t1642
5157  t5484 = 0.1760000000e3_dp*t5460*t347
5158  t5487 = 0.2160000000e3_dp*t7*t995*t1652
5159  t5489 = 0.1600000000e2_dp*t1429*t1658
5160  t5492 = 0.7200000000e2_dp*beta*t368*t5108
5161  t5494 = 0.6400000000e2_dp*t7*t1677
5162  t5496 = t366*t368*t1681
5163  t5499 = 0.120e2_dp*t550*t1669
5164  t5503 = 0.180e2_dp*t5106*t360*t371*ndrho
5165  t5507 = 0.120e2_dp*t7*t640*t1667*t371
5166  t5509 = 0.180e2_dp*t5115*t3668
5167  t5511 = t1680*t3673*t23
5168  t5516 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.1920000000e3_dp &
5169  *t5496 + t5499 - t5503 - t5507 + t5509 - 0.4800000000e2_dp &
5170  *t5511 + 0.1200000000e3_dp*t1055*t2565*t4721
5171  t5523 = 0.120e2_dp*t102*t974*t375*t4713
5172  t5525 = 0.2133333334e2_dp*t339*t1611
5173  t5528 = t102*t327*t1684*t557
5174  t5531 = 0.160e2_dp*t112*t1626
5175  t5533 = 0.160e2_dp*t112*t1632
5176  t5535 = 0.640e2_dp*t1582*t1444
5177  t5537 = 0.160e2_dp*t112*t1622
5178  t5540 = 0.320e2_dp*t1597*t1598*t4837
5179  t5541 = t5472 - t5474 - t5478 - 0.20e1_dp*t102*t105*t5516 - t5523 &
5180  + t5525 + 0.80e1_dp*t5528 + t5531 + t5533 + t5535 + t5537 + t5540
5181  t5545 = 0.480e2_dp*t1616*t3750*t4829
5182  t5548 = 0.120e2_dp*t1616*t1617*t4837
5183  t5551 = 0.1280e3_dp*t24*t298*t1599
5184  t5553 = 0.160e2_dp*t302*t4850
5185  t5558 = 0.320e2_dp*t5060*t97*t104*rho*t233
5186  t5560 = 0.2346666666e3_dp*t1589*t1592
5187  t5562 = 0.5866666667e2_dp*t93*t4820
5188  t5564 = 0.1173333333e3_dp*t5060*t98
5189  t5565 = t112*t1685
5190  t5568 = 0.1066666667e2_dp*t1645*t322
5191  t5572 = 0.40e1_dp*t102*t327*t5118*t233
5192  t5574 = 0.1173333333e3_dp*t93*t4817
5193  t5575 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 &
5194  - 0.80e1_dp*t5565 + t5568 + t5572 + t5574
5195  t5579 = 0.80e1_dp*t102*t327*t645*t1443
5196  t5581 = 0.320e2_dp*t302*t4838
5197  t5585 = 0.160e2_dp*t93*t316*rho*t4849
5198  t5590 = 0.80e1_dp*t624*t22*t326*t136*t233
5199  t5593 = 0.1066666667e2_dp*t321*t953*t5087
5200  t5595 = 0.640e2_dp*t302*t4834
5201  t5597 = 0.960e2_dp*t302*t4830
5202  t5600 = 0.240e2_dp*t1616*t1617*t4833
5203  t5602 = 0.40e1_dp*t624*t376
5204  t5604 = 0.320e2_dp*t5051*t234
5205  t5607 = 0.5866666667e2_dp*t307*t949*t5069
5206  t5610 = 0.640e2_dp*t1597*t1598*t4833
5207  t5611 = t5579 - t5581 - t5585 + t5590 - t5593 - t5595 + t5597 - t5600 &
5208  - t5602 + t5604 + t5607 + t5610
5209  t5613 = t5469 + t5541 + t5575 + t5611
5210  t5619 = 0.3333333334e0_dp*t170*t5013*t25
5211  t5622 = 0.1666666667e0_dp*t165*t1392*t4729
5212  t5625 = 0.1666666667e0_dp*t429*t166*t5339
5213  t5628 = 0.3600000000e2_dp*t2081*t4760*t425
5214  t5631 = 0.5555555556e-1_dp*t1246*t4032*t1483
5215  t5632 = t25*t4853
5216  t5635 = 0.1500000000e1_dp*t405*t156*t5632
5217  t5638 = 0.2250000000e1_dp*t400*t1333*t4701
5218  t5641 = 0.1500000000e1_dp*t405*t1333*t4729
5219  t5643 = t400*t3975*t561
5220  t5647 = 0.5625000000e1_dp*t1302*t1309*t4701
5221  t5650 = 0.5625000000e1_dp*t1302*t401*t4801
5222  t5653 = 0.4500000000e1_dp*t400*t1892*t1447
5223  t5657 = 0.5000000000e0_dp*t405*t68*t5122*t17
5224  t5660 = 0.1125000000e2_dp*t1302*t401*t4797
5225  t5663 = 0.1500000000e1_dp*t400*t417*t5371
5226  t5666 = 0.1125000000e2_dp*t1302*t1892*t1410
5227  t5667 = t5635 - t5638 + t5641 + 0.4500000000e1_dp*t5643 - t5647 - t5650 &
5228  + t5653 - t5657 - t5660 + t5663 - t5666
5229  t5670 = 0.2250000000e1_dp*t400*t1309*t4729
5230  t5671 = t172*t4801
5231  t5673 = 0.2250000000e1_dp*t1912*t5671
5232  t5676 = 0.2250000000e1_dp*t400*t401*t4853
5233  t5679 = 0.1875000000e1_dp*t1302*t406*t5002
5234  t5682 = 0.1500000000e1_dp*t400*t1902*t1483
5235  t5686 = 0.2250000000e1_dp*t400*t19*t5122*t237
5236  t5689 = 0.1000000000e1_dp*t405*t417*t5430
5237  t5692 = 0.1968750000e2_dp*t2823*t401*t4790
5238  t5695 = 0.7500000000e0_dp*t400*t406*t5009
5239  t5696 = t172*t4790
5240  t5698 = 0.5625000000e1_dp*t3939*t5696
5241  t5699 = t172*t4797
5242  t5701 = 0.4500000000e1_dp*t1912*t5699
5243  t5705 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 &
5244  + t5695 + t5698 - t5701 - 0.1500000000e1_dp*t151*t50*t5613
5245  t5713 = t4739*t160
5246  t5716 = 0.1620000000e3_dp*t4994*t392*t4769*t1141*t26*t5713
5247  t5719 = 0.3333333334e0_dp*t165*t1966*t1447
5248  t5722 = 0.1111111111e0_dp*t165*t689*t1988
5249  t5724 = t429*t166*t5345
5250  t5728 = 0.2500000000e0_dp*t1981*t1247*t4797
5251  t5731 = 0.1666666667e0_dp*t445*t446*t5632
5252  t5734 = 0.1666666667e0_dp*t429*t679*t1553
5253  t5738 = 0.4444444445e0_dp*t170*t114*t4782*t451
5254  t5741 = 0.1666666667e0_dp*t165*t171*t5143
5255  t5742 = -t5426 + t5429 - 0.2222222222e0_dp*t5432 + t5436 + 0.1666666667e0_dp &
5256  *t165*t166*t5613 + t5619 + t5622 - t5625 - t5628 + t5631 &
5257  + (2*t147*t149*(t5667 + t5705)) + t5716 + t5719 - t5722 &
5258  - 0.1666666667e0_dp*t5724 + t5728 + t5731 - t5734 - t5738 + t5741
5259  t5745 = t165*t4498*t561
5260  t5749 = 0.1666666667e0_dp*t429*t437*t5170
5261  t5752 = 0.8333333335e-1_dp*t429*t462*t4801
5262  t5756 = 0.1111111111e0_dp*t170*t27*t5276*t17
5263  t5760 = 0.1250000000e0_dp*t2763*t446*t413*t4701
5264  t5767 = 0.1666666667e0_dp*t165*t437*t5122
5265  t5770 = 0.1620000000e3_dp*t4995*t4772*t425
5266  t5773 = 0.1250000000e0_dp*t1368*t437*t5163
5267  t5776 = 0.2777777778e-1_dp*t1246*t1247*t5009
5268  t5780 = 0.1666666667e0_dp*t165*t56*t5276*t237
5269  t5783 = 0.5555555557e-1_dp*t165*t5013*t433
5270  t5786 = 0.3333333334e0_dp*t165*t689*t668
5271  t5789 = 0.1250000000e0_dp*t1368*t166*t5330
5272  t5792 = 0.2777777778e-1_dp*t429*t466*t5002
5273  t5795 = 0.1111111111e0_dp*t165*t1940*t1483
5274  t5797 = t1373*t1962*t1829
5275  t5801 = 0.3600000000e2_dp*t1143*t479*t5002
5276  t5804 = 0.2400000000e2_dp*t473*t1811*t1483
5277  t5807 = 0.2160000000e3_dp*t2994*t474*t4790
5278  t5810 = 0.1080000000e3_dp*t1143*t1801*t1410
5279  t5813 = 0.1800000000e2_dp*t478*t183*t5632
5280  t5816 = 0.3600000000e2_dp*t473*t1176*t4701
5281  t5819 = 0.1800000000e2_dp*t478*t1176*t4729
5282  t5822 = 0.1800000000e2_dp*t473*t474*t4853
5283  t5825 = 0.1200000000e2_dp*t473*t479*t5009
5284  t5828 = 0.3600000000e2_dp*t473*t1801*t1447
5285  t5830 = 0.1080000000e3_dp*t4230*t5696
5286  t5831 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 &
5287  - t5825 - t5828 - t5830
5288  t5833 = 0.7200000000e2_dp*t1821*t5699
5289  t5835 = 0.3600000000e2_dp*t1821*t5671
5290  t5838 = 0.1080000000e3_dp*t1143*t474*t4797
5291  t5841 = 0.5400000000e2_dp*t1143*t474*t4801
5292  t5845 = 0.1800000000e2_dp*t473*t20*t5122*t237
5293  t5848 = 0.5400000000e2_dp*t1143*t1150*t4701
5294  t5850 = t473*t4201*t561
5295  t5854 = 0.1200000000e2_dp*t473*t489*t5371
5296  t5857 = 0.6000000000e1_dp*t478*t489*t5430
5297  t5861 = 0.5999999999e1_dp*t478*t56*t5122*t17
5298  t5864 = 0.1800000000e2_dp*t473*t1150*t4729
5299  t5868 = t5833 + t5835 + t5838 + t5841 - t5845 + t5848 - 0.3600000000e2_dp &
5300  *t5850 - t5854 + t5857 + t5861 - t5864 + 0.8999999998e1_dp*t178 &
5301  *t62*t5613
5302  t5869 = t5831 + t5868
5303  t5875 = t1447*t187*t1722
5304  t5880 = 0.3703703705e-1_dp*t192*t194*t5226*t526
5305  t5881 = t1141*t4701
5306  t5885 = t719*t1769
5307  t5888 = t60*t1836*t709
5308  t5891 = 0.5555555558e-1_dp*t4943*t534
5309  t5898 = t705*t1504*t65
5310  t5902 = 0.1800000000e2_dp*t1718*t178*t710
5311  t5905 = 0.5555555558e-1_dp*t192*t5270*t267
5312  t5908 = t1836*t59*t177*t710
5313  t5911 = t266*t4729*t65
5314  t5913 = 0.1000000001e1_dp*t723*t5911
5315  t5918 = t140*t1504*t1722
5316  t5922 = 0.1111111112e0_dp*t4776*t515*t517
5317  t5925 = 0.8099999996e2_dp*t498*t4770*t4915
5318  t5926 = -0.5555555558e-1_dp*t192*t68*t5869*t65 - 0.1000000000e1_dp &
5319  *t5875 + t5880 + 0.3000000000e1_dp*t1748*t5881*t4940 - 0.1111111112e0_dp &
5320  *t5885 - 0.1000000000e1_dp*t5888 - t5891 + t5869*t65 + &
5321  0.666666666e0_dp*t1519*t722*t4729*t65 + (2*t5898) + t5902 &
5322  - t5905 + 0.1800000000e2_dp*t5908 - t5913 - 0.1111111112e0_dp*t516 &
5323  *t4898*t172 - 0.1000000000e1_dp*t5918 - t5922 + t5925
5324  t5929 = 0.2250000000e2_dp*t1740*t471*t4905
5325  t5932 = 0.1000000000e1_dp*t649*t266*t1722
5326  t5938 = t192*t728*t1505
5327  t5940 = t4918*t67
5328  t5942 = 0.1111111112e0_dp*t5940*t196
5329  t5944 = t1447*t722*t1722
5330  t5949 = 0.8999999998e1_dp*t1795*t4909
5331  t5952 = 0.9000000007e1_dp*t1763*t5881*t4940
5332  t5954 = 0.8999999998e1_dp*t1741*t4909
5333  t5956 = t471*t4701*t65
5334  t5958 = 0.1000000000e1_dp*t1766*t5956
5335  t5960 = 0.5555555558e-1_dp*t5940*t200
5336  t5963 = 0.1000000000e1_dp*t379*t471*t4904
5337  t5964 = t1715*t1525
5338  t5966 = t1785*t1790
5339  t5971 = 0.4500000000e1_dp*t379*t1141*t4701*t4940
5340  t5973 = 0.5555555558e-1_dp*t4943*t531
5341  t5975 = t5226*t266*t65
5342  t5977 = 0.1111111112e0_dp*t1755*t729
5343  t5978 = -t5929 - t5932 + 0.3333333334e0_dp*t1519*t187*t4729*t65 &
5344  - 0.1111111112e0_dp*t5938 - t5942 - 0.2000000002e1_dp*t5944 - 0.5555555558e-1_dp &
5345  *t503*t4955 + t5949 - t5952 + t5954 + t5958 - t5960 &
5346  + t5963 - 0.1111111112e0_dp*t5964 - 0.2222222224e0_dp*t5966 - t5971 &
5347  - t5973 + t5975 - t5977
5348  t5985 = 0.5000000001e0_dp*t1774*t4908
5349  t5990 = t177*t4729*t65
5350  t5994 = 0.5000000001e0_dp*t1766*t5990
5351  t5996 = 0.3703703705e-1_dp*t4943*t527
5352  t6000 = 0.9000000007e1_dp*t5262*t266*t4701*t4940
5353  t6002 = 0.1851851853e0_dp*t4943*t512
5354  t6004 = t1709*t178*t710
5355  t6006 = t719*t1838
5356  t6009 = 0.5000000001e0_dp*t1777*t4908
5357  t6017 = 0.5000000001e0_dp*t732*t5911
5358  t6019 = 0.7407407410e-1_dp*t719*t1726
5359  t6021 = t649*t1518*t1722
5360  t6023 = t5251*t67
5361  t6025 = 0.3703703705e-1_dp*t6023*t271
5362  t6029 = 0.5999999993e1_dp*t4946*t722*t4701*t4940 - t5985 - 0.5555555558e-1_dp &
5363  *t192*t199*t4898 + 0.3333333334e0_dp*t1748*t5990 &
5364  - t5994 + t5996 - t6000 + t6002 + 0.1800000000e2_dp*t6004 - 0.1111111112e0_dp &
5365  *t6006 - t6009 + 0.3000000000e1_dp*t4946*t187*t4701 &
5366  *t4940 - 0.6666666668e0_dp*t1748*t5956 - t6017 + t6019 + 0.6666666668e0_dp &
5367  *t6021 + t6025 - 0.5555555558e-1_dp*t58*t5613*t71
5368  t6031 = 0.5000000001e0_dp*t1720*t5990
5369  t6033 = 0.1000000000e1_dp*t5244*t1712
5370  t6036 = 0.2250000000e2_dp*t498*t472*t4905
5371  t6040 = 0.5555555558e-1_dp*t6023*t275
5372  t6042 = 0.1000000001e1_dp*t1763*t5990
5373  t6044 = 0.2000000002e1_dp*t1763*t5956
5374  t6047 = 0.4500000000e1_dp*t1720*t5881*t4940
5375  t6049 = t1688*t177*t709
5376  t6052 = t1504*t561*t65
5377  t6053 = t732*t6052
5378  t6056 = 0.5555555558e-1_dp*t508*t5271
5379  t6058 = 0.1111111112e0_dp*t4943*t520
5380  t6060 = t1766*t5881*t4940
5381  t6063 = 0.1000000000e1_dp*t1720*t5956
5382  t6066 = t1519*t705*t561*t65
5383  t6074 = 0.8099999996e2_dp*t496*t4769*t1141*t4915
5384  t6075 = t723*t6052
5385  t6078 = 0.1111111112e0_dp*t719*t1782
5386  t6079 = -t6031 - t6033 - t6036 + t187*t4897*t65 - t6040 - t6042 &
5387  + t6044 - t6047 - 0.1000000000e1_dp*t6049 - 0.1000000000e1_dp*t6053 &
5388  - t6056 - t6058 - 0.4500000000e1_dp*t6060 + t6063 + 0.6666666668e0_dp &
5389  *t6066 - 0.1000000000e1_dp*t237*t705*t1722 + t6074 - 0.2000000002e1_dp &
5390  *t6075 - t6078
5391  t6087 = 0.1666666667e0_dp*t429*t1966*t1410
5392  t6090 = 0.3125000000e0_dp*t4025*t1247*t4790
5393  t6091 = 0.3333333334e0_dp*t5745 - t5749 - t5752 - t5756 + t5760 + 0.1666666667e0_dp &
5394  *t165*t56*t4958*t140 + t5767 + t5770 + t5773 + &
5395  t5776 + t5780 - t5783 + t5786 + t5789 + t5792 - t5795 - 0.4444444444e0_dp &
5396  *t5797 + 0.3333333334e0_dp*t55*t57*(t5926 + t5978 + t6029 &
5397  + t6079) - t6087 - t6090
5398  t6094 = 0.1250000000e0_dp*t1981*t1247*t4801
5399  t6099 = 0.1800000000e2_dp*t1971*t1972*t4729*t149*t160
5400  t6102 = 0.2500000000e0_dp*t1981*t4553*t1410
5401  t6106 = 0.3600000000e2_dp*t1971*t1972*t1973*t672
5402  t6109 = 0.1666666667e0_dp*t1246*t1962*t1865
5403  t6112 = 0.5555555556e-1_dp*t1246*t4553*t1483
5404  t6116 = 0.3600000000e2_dp*t1971*t471*t20*t5713
5405  t6119 = 0.1250000000e0_dp*t1368*t462*t4790
5406  t6123 = 0.1666666667e0_dp*t1246*t446*t1825*t561
5407  t6126 = 0.1800000000e2_dp*t658*t4764*t425
5408  t6129 = 0.8333333335e-1_dp*t429*t437*t5174
5409  t6132 = 0.1666666667e0_dp*t165*t462*t4853
5410  t6136 = 0.5555555557e-1_dp*t165*t171*t5122*t17
5411  t6138 = t429*t1928*t593
5412  t6141 = t658*t575*t1925
5413  t6144 = t445*t4512*t668
5414  t6155 = 0.2500000000e0_dp*t1981*t4032*t1410
5415  t6158 = 0.1666666667e0_dp*t429*t679*t1571
5416  t6160 = t147*t1885*t672
5417  t6162 = t6094 + t6099 + t6102 + t6106 - t6109 + t6112 - t6116 + t6119 &
5418  - t6123 + t6126 - t6129 + t6132 - t6136 - 0.1666666667e0_dp*t6138 &
5419  + 0.3600000000e2_dp*t6141 + 0.3333333334e0_dp*t6144 + 0.2e1_dp*t147 &
5420  *(t4881 - t4884 - t4887 + 0.9000000000e1_dp*t4889 - t4893 + 0.6000000000e1_dp &
5421  *t4895)*t149*t160 + t6155 - t6158 + (4*t6160)
5422  t6170 = 0.3333333336e0_dp*t289*t597*t1571
5423  t6173 = 0.3333333336e0_dp*t55*t5295*t140
5424  t6175 = t83*t597*t1688
5425  t6179 = 0.3333333336e0_dp*t165*t3865*t561
5426  t6181 = t289*t1564*t593
5427  t6185 = 0.3333333336e0_dp*t289*t597*t1553
5428  t6186 = -0.3333333336e0_dp*t5347 - t5351 - t5354 - t5357 - t5360 - 0.2222222224e0_dp &
5429  *t144*t46*(t5423 + t5742 + t6091 + t6162) - t6170 &
5430  - t6173 - 0.6666666672e0_dp*t6175 - t6179 - 0.3333333336e0_dp*t6181 &
5431  - t6185
5432  t6189 = 0.8333333340e-1_dp*t906*t294*t5163
5433  t6192 = 0.3333333336e0_dp*t83*t294*t5122
5434  t6194 = t83*t3875*t561
5435  t6198 = 0.3333333336e0_dp*t289*t294*t5170
5436  t6201 = 0.3333333336e0_dp*t289*t597*t1557
5437  t6207 = 0.1666666668e0_dp*t1546*t897*t4797
5438  t6210 = 0.1666666668e0_dp*t289*t294*t5174
5439  t6213 = 0.3333333336e0_dp*t55*t84*t5122
5440  t6216 = 0.8333333340e-1_dp*t429*t897*t4701
5441  t6219 = 0.8333333340e-1_dp*t906*t384*t4790
5442  t6222 = 0.8333333340e-1_dp*t1546*t897*t4801
5443  t6223 = t6189 - t6192 - 0.6666666672e0_dp*t6194 - t6198 - t6201 - 0.3333333336e0_dp &
5444  *t83*t84*t5613 + t6207 - t6210 - t6213 + t6216 + &
5445  t6219 + t6222
5446  t6227 = -t4704 - t4707 - t4732 - t4789 + t4793 - t4796 - t4800 - t4804 &
5447  - t4808 - t4812 - t4857 - t4861 - 0.1333333334e1_dp*t4864 - t4869 &
5448  - 0.4444444448e0_dp*t43*t46*t5036 + t8*(t5305 + t5343 + t6186 &
5449  + t6223)
5450  e_ndrho_ndrho_rho_spin(ii) = e_ndrho_ndrho_rho_spin(ii) + t6227*sx
5451  t6247 = t4769*t2992
5452  t6249 = t4772*t2027
5453  t6252 = t56*t4701
5454  t6253 = t6252*t526
5455  t6256 = t56*t4729
5456  t6257 = t6256*t526
5457  t6260 = t4743*t526
5458  t6263 = t20*t4853
5459  t6267 = t26*t1447
5460  t6268 = t6267*t709
5461  t6271 = t4764*t2027
5462  t6281 = -0.1620000000e3_dp*t6247*t4733*t6249 - 0.1200000000e2_dp* &
5463  t473*t6253 + 0.5999999999e1_dp*t478*t6257 + 0.5399999998e2_dp*t4771 &
5464  *t6260 + 0.8999999998e1_dp*t478*t6263*t65 + 0.8099999996e2_dp &
5465  *t4771*t6268 - 0.1800000000e2_dp*t473*t6271 - 0.4050000000e2_dp &
5466  *t473*t575*t2095 - 0.5000000001e0_dp*t60*t4853*t65 + 0.8999999998e1_dp &
5467  *t4901 - t4907 + t4911
5468  t6283 = t4701*t1518
5469  t6290 = t4917 - t4920 + 0.5000000001e0_dp*t4922 + t4925 + 0.3333333334e0_dp &
5470  *t6283*t177*t65 - 0.5000000001e0_dp*t4929 - t4932 - t4935 &
5471  + 0.5850000000e2_dp*t4941 + t4945 - t4951 - 0.5555555558e-1_dp*t4952
5472  t6291 = t6281 + t6290
5473  t6308 = 0.4050000000e2_dp*t4734*t4736*t2821*t18*t4739*t237 &
5474  - 0.1125000000e2_dp*t2013*t1300*t19*t4790 - t5028 - t5022 + &
5475  0.1500000000e1_dp*t2013*t398*t68*t5002 + 0.3333333334e0_dp*t55 &
5476  *t57*t6291 + t5019 - 0.3000000000e1_dp*t566*t1885*t569 - t5016 &
5477  - 0.9000000000e1_dp*t4734*t4736*t1300*t4701*t149*t17 &
5478  + t5032 + 0.1666666667e0_dp*t165*t2088*t561 - 0.5555555557e-1_dp* &
5479  t5011 + t5001
5480  t6338 = 0.1666666667e0_dp*t4874 - t5025 - 0.2700000000e2_dp*t4734*t392 &
5481  *t4736*t1300*rho*t5002*t149 - 0.3000000000e1_dp*t2009 &
5482  *t4748 - 0.2700000000e2_dp*t4738*t18*t1973*t1447 - t5008 - &
5483  0.3000000000e1_dp*t567*t151*t19*t4853 + t5035 - 0.1000000000e1_dp &
5484  *t2013*t2018*t5009 + 0.9000000000e1_dp*t2013*t2014*t4797 &
5485  - t4872 + 0.4500000000e1_dp*t2013*t2014*t4801 + t4878 + t5005 &
5486  + 0.4500000000e1_dp*t2009*t4744
5487  t6339 = t6308 + t6338
5488  t6344 = -t5043 - t5047 - t5050 - t5126 - t5284 - t5291 + t5294 - t5298 &
5489  - t5301 - 0.3333333336e0_dp*t5303 - t5308 - t5311 - t5314
5490  t6352 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 + 0.40e1_dp*t102 &
5491  *t327*t2057*t557 - t5456 + t5459 - t5462 + t5466 - t5468
5492  t6363 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.9600000000e2_dp &
5493  *t5496 + t5499 - t5503 - t5507 + t5509 - 0.2400000000e2_dp &
5494  *t5511 - 0.960e2_dp*t5115*t1060 - 0.240e2_dp*t2054*t3674 + 0.1200e3_dp &
5495  *t1054*t640*t3679
5496  t6367 = t5472 - t5474 - t5478 - t5523 + t5525 + 0.40e1_dp*t5528 + t5531 &
5497  + t5533 + t5535 + t5537 - 0.20e1_dp*t102*t105*t6363 + t5540
5498  t6370 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 &
5499  - 0.40e1_dp*t5565 + t5568 + t5572 + t5574
5500  t6373 = t5579 - t5581 - 0.40e1_dp*t112*t2058 - t5585 + t5590 - t5593 &
5501  - t5595 + t5597 - t5600 - t5602 + t5604 + t5607 + t5610
5502  t6375 = t6352 + t6367 + t6370 + t6373
5503  t6380 = -t5317 - t5320 + t5323 - t5326 - t5329 - 0.3333333336e0_dp*t83 &
5504  *t597*t2061 - 0.3333333336e0_dp*t83*t84*t6375 + t5333 - t5335 &
5505  - t5338 - t5342 - 0.1666666668e0_dp*t5347 - t5351
5506  t6389 = -t5354 - t5357 - 0.3333333336e0_dp*t83*t45*t2139*t561 &
5507  - t5360 - t6170 - t6173 - 0.3333333336e0_dp*t6175 - t6179 - 0.1666666668e0_dp &
5508  *t6181 - t6185 + t6189 - t6192 - 0.3333333336e0_dp*t6194
5509  t6400 = t2061*t561
5510  t6415 = -t5363 + t5367 - t5370 + 0.1111111112e0_dp*t5373 - 0.5555555557e-1_dp &
5511  *t5376 + 0.1666666667e0_dp*t5379 - t5383 - t5386 - t5389 + &
5512  0.1200000000e2_dp*t658*t2031*t673*t17 + 0.3333333334e0_dp*t170 &
5513  *t27*t6291*t172 - t5397
5514  t6428 = t5635 - t5638 + t5641 + 0.2250000000e1_dp*t5643 - t5647 - 0.1500000000e1_dp &
5515  *t151*t50*t6375 - t5650 + t5653 - t5657 - t5660 &
5516  + t5663 - t5666
5517  t6433 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 &
5518  + t5695 + 0.2250000000e1_dp*t400*t19*t2061*t561 + t5698 - &
5519  t5701
5520  t6442 = t5400 + 0.1666666667e0_dp*t5402 - t5406 + 0.1666666667e0_dp*t165 &
5521  *t56*t2131*t561 + 0.1666666667e0_dp*t165*t679*t2061 + &
5522  (2*t147*t149*(t6428 + t6433)) - t5409 - t5412 - t5415 + &
5523  t5418 + 0.1800000000e2_dp*t658*t575*t2074 + 0.1800000000e2_dp*t5421
5524  t6451 = -t5426 + t5429 - 0.2222222223e0_dp*t5432 + t5436 + 0.1620000000e3_dp &
5525  *t4995*t6267*t1974 + 0.1666666667e0_dp*t165*t2088*t649 &
5526  + t5619 + t5622 - t5625 - t5628 + t5631 + t5716
5527  t6461 = t5719 - t5722 - 0.8333333335e-1_dp*t5724 + 0.1200000000e2_dp* &
5528  t658*t6256*t2077 - 0.3240000000e3_dp*t4994*t6247*t4772*t2082 &
5529  + t5728 + t5731 - t5734 - t5738 + t5741 + 0.1666666667e0_dp*t5745 &
5530  - t5749
5531  t6479 = -t5752 + 0.1666666667e0_dp*t445*t2042*rho*t668 - t5756 &
5532  - 0.3600000000e2_dp*t2081*t575*t673*t237 + 0.1800000000e2_dp* &
5533  t658*t6263*t161 + t5760 + t5767 + t5770 - 0.7200000000e2_dp*t2081 &
5534  *t575*t161*t1447 + t5773 + t5776 + t5780
5535  t6490 = -t5783 - 0.3600000000e2_dp*t2081*t4764*t2082 - 0.2400000000e2_dp &
5536  *t2081*t6252*t2077 + t5786 + t5789 + t5792 - t5795 - 0.4444444445e0_dp &
5537  *t5797 - t6087 - 0.8333333335e-1_dp*t429*t166*t6400 &
5538  - t6090 + t6094
5539  t6499 = t6099 + 0.1666666667e0_dp*t165*t166*t6375 + t6102 + 0.1666666667e0_dp &
5540  *t165*t56*t6291*t140 + t6106 - t6109 + t6112 - t6116 &
5541  + t6119 - t6123 + t6126 - t6129
5542  t6509 = t4853*t65
5543  t6529 = 0.4999999999e0_dp*t5875 - 0.5000000001e0_dp*t5244*t2095 - 0.5000000001e0_dp &
5544  *t732*t6509 + t5880 + 0.1000000000e1_dp*t649*t471 &
5545  *t2099 - 0.1620000000e3_dp*t5247*t2992*t4733*t6249 - 0.5555555558e-1_dp &
5546  *t5885 + 0.8999999998e1_dp*t140*t2992*t4701*t59* &
5547  t62*t2027 - 0.5000000001e0_dp*t5888 - t5891 - 0.1800000000e2_dp*t2118 &
5548  *t6271
5549  t6539 = t5898 + t5902 - t5905 + 0.8999999998e1_dp*t5908 - t5913 + 0.2000000000e1_dp &
5550  *t2098*t2095*t561 - 0.5000000001e0_dp*t5918 - t5922 &
5551  + 0.3333333334e0_dp*t6283*t187*t177*t65 + t5925 - t5929
5552  t6554 = -t5932 - 0.5555555558e-1_dp*t5938 + 0.666666666e0_dp*t6283* &
5553  t722*t177*t65 - t5942 + 0.8999999998e1_dp*t2124*t59*t177* &
5554  t710 + 0.1000000001e1_dp*t5944 - 0.5000000001e0_dp*t2061*t177*t709 &
5555  + t5949 + t5952 + t5954 - t5958
5556  t6557 = t1447*t59
5557  t6569 = -t5960 - 0.5000000001e0_dp*t5237*t2095 + t5963 - 0.4500000000e1_dp &
5558  *t5256*t6557*t710 - 0.5555555558e-1_dp*t5964 - 0.1111111112e0_dp &
5559  *t5966 - t5971 - 0.1200000000e2_dp*t2118*t6253 - 0.5555555558e-1_dp &
5560  *t719*t2126 - t5973 + t5975 + 0.5999999999e1_dp*t2114*t6257
5561  t6583 = -t5977 - t5985 + t5994 - 0.5000000001e0_dp*t716*t6509 + t5996 &
5562  - t6000 + t6002 + 0.8999999998e1_dp*t6004 + 0.1000000000e1_dp*t2098 &
5563  *t4908*t237 - 0.1000000001e1_dp*t723*t6509 - 0.1800000000e2_dp &
5564  *t5228*t2117*t2028
5565  t6596 = t5247*t1141*t4733
5566  t6603 = -0.5555555558e-1_dp*t6006 - t6009 - t6017 - 0.5555555558e-1_dp &
5567  *t58*t6375*t71 + t6019 - 0.9000000007e1_dp*t5262*t6557*t710 &
5568  + 0.8999999998e1_dp*t708*t62*t6509 + 0.3333333334e0_dp*t6021 + &
5569  t6025 + 0.8099999996e2_dp*t6596*t6268 + 0.5399999998e2_dp*t6596* &
5570  t6260 + 0.8999999998e1_dp*t5229*t2104
5571  t6611 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 &
5572  - t5825 - t5828 - t5830 + t5833
5573  t6620 = t5835 + t5838 + t5841 - t5845 + t5848 - 0.1800000000e2_dp*t5850 &
5574  - t5854 + t5857 + t5861 - t5864 - 0.1800000000e2_dp*t473*t20 &
5575  *t2061*t561 + 0.8999999998e1_dp*t178*t62*t6375
5576  t6621 = t6611 + t6620
5577  t6630 = -0.3000000000e1_dp*t5256*t4904*t237 + 0.5999999999e1_dp*t5228 &
5578  *t2113*t2032 + t6621*t65 - t6031 - 0.4050000000e2_dp*t471 &
5579  *t187*t6557*t710 - t6033 - t6036 - t6040 + t6042 - 0.5000000001e0_dp &
5580  *t60*t2124*t709 - t6044
5581  t6640 = -t6047 - 0.5000000001e0_dp*t6049 - 0.5555555558e-1_dp*t192* &
5582  t68*t6621*t65 - 0.5000000001e0_dp*t6053 - t6056 - t6058 + 0.5850000000e2_dp &
5583  *t6060 + t6063 + 0.3333333334e0_dp*t6066 + t6074 - 0.1000000001e1_dp &
5584  *t6075 - t6078
5585  t6658 = 0.1800000000e2_dp*t658*t2035*t673 - 0.8333333335e-1_dp*t429 &
5586  *t2088*t593 + t6132 + 0.3333333334e0_dp*t55*t57*(t6529 + &
5587  t6539 + t6554 + t6569 + t6583 + t6603 + t6630 + t6640) - t6136 - 0.8333333335e-1_dp &
5588  *t6138 + 0.1800000000e2_dp*t6141 + 0.1080000000e3_dp* &
5589  t4995*t4743*t2077 + 0.1080000000e3_dp*t657*t1142*t4760*t2082 &
5590  + 0.1666666667e0_dp*t6144 + t6155 - t6158 + (2*t6160)
5591  t6665 = -0.3333333336e0_dp*t83*t45*t6339*t140 - t6198 - 0.3333333336e0_dp &
5592  *t83*t2050*t649 - t6201 + t6207 - t6210 - t6213 + t6216 &
5593  + t6219 - 0.1666666668e0_dp*t289*t2050*t593 - 0.1666666668e0_dp &
5594  *t289*t84*t6400 + t6222 - 0.2222222224e0_dp*t144*t46*(t6415 &
5595  + t6442 + t6451 + t6461 + t6479 + t6490 + t6499 + t6658)
5596  t6669 = -t4704 - t4707 - t4732 + t4793 - t4796 - t4800 - t4804 - t4861 &
5597  - 0.6666666672e0_dp*t4864 - t4869 - t4812 - t4857 - t4789 - t4808 &
5598  - 0.6666666672e0_dp*t217*t46*t2046*t561 - 0.4444444448e0_dp* &
5599  t43*t46*t6339 + t8*(t6344 + t6380 + t6389 + t6665)
5600  e_ndrho_ndrho_ndrho_spin(ii) = e_ndrho_ndrho_ndrho_spin(ii) + t6669*sx
5601  END IF
5602  END IF
5603  END DO
5604 !$OMP END DO
5605 
5606  END SUBROUTINE xb88_lr_adiabatic_lsd_calc
5607 
5608 END MODULE xc_xbecke88_lr_adiabatic
bibliography
collects all references to literature in CP2K as new algorithms / method are included from literature...
Definition: bibliography.F:28
bibliography::becke1988
integer, save, public becke1988
Definition: bibliography.F:43
cp_array_utils
various utilities that regard array of different kinds: output, allocation,... maybe it is not a good...
Definition: cp_array_utils.F:18
input_section_types
objects that represent the structure of input sections and the data contained in an input section
Definition: input_section_types.F:15
input_section_types::section_vals_val_get
subroutine, public section_vals_val_get(section_vals, keyword_name, i_rep_section, i_rep_val, n_rep_val, val, l_val, i_val, r_val, c_val, l_vals, i_vals, r_vals, c_vals, explicit)
returns the requested value
Definition: input_section_types.F:1040
kinds
Defines the basic variable types.
Definition: kinds.F:23
kinds::dp
integer, parameter, public dp
Definition: kinds.F:34
mathconstants
Definition of mathematical constants and functions.
Definition: mathconstants.F:16
mathconstants::pi
real(kind=dp), parameter, public pi
Definition: mathconstants.F:110
mathconstants::rootpi
real(kind=dp), parameter, public rootpi
Definition: mathconstants.F:114
xc_derivative_desc
Module with functions to handle derivative descriptors. derivative description are strings have the f...
Definition: xc_derivative_desc.F:26
xc_derivative_desc::deriv_norm_drho
integer, parameter, public deriv_norm_drho
Definition: xc_derivative_desc.F:35
xc_derivative_desc::deriv_norm_drhoa
integer, parameter, public deriv_norm_drhoa
Definition: xc_derivative_desc.F:35
xc_derivative_desc::deriv_rhob
integer, parameter, public deriv_rhob
Definition: xc_derivative_desc.F:35
xc_derivative_desc::deriv_rhoa
integer, parameter, public deriv_rhoa
Definition: xc_derivative_desc.F:35
xc_derivative_desc::deriv_rho
integer, parameter, public deriv_rho
Definition: xc_derivative_desc.F:35
xc_derivative_desc::deriv_norm_drhob
integer, parameter, public deriv_norm_drhob
Definition: xc_derivative_desc.F:35
xc_derivative_set_types
represent a group ofunctional derivatives
Definition: xc_derivative_set_types.F:14
xc_derivative_set_types::xc_dset_get_derivative
type(xc_derivative_type) function, pointer, public xc_dset_get_derivative(derivative_set, description, allocate_deriv)
returns the requested xc_derivative
Definition: xc_derivative_set_types.F:66
xc_derivative_types
Provides types for the management of the xc-functionals and their derivatives.
Definition: xc_derivative_types.F:12
xc_derivative_types::xc_derivative_get
subroutine, public xc_derivative_get(deriv, split_desc, order, deriv_data, accept_null_data)
returns various information on the given derivative
Definition: xc_derivative_types.F:103
xc_rho_cflags_types
contains the structure
Definition: xc_rho_cflags_types.F:14
xc_rho_set_types
contains the structure
Definition: xc_rho_set_types.F:14
xc_rho_set_types::xc_rho_set_get
subroutine, public xc_rho_set_get(rho_set, can_return_null, rho, drho, norm_drho, rhoa, rhob, norm_drhoa, norm_drhob, rho_1_3, rhoa_1_3, rhob_1_3, laplace_rho, laplace_rhoa, laplace_rhob, drhoa, drhob, rho_cutoff, drho_cutoff, tau_cutoff, tau, tau_a, tau_b, local_bounds)
returns the various attributes of rho_set
Definition: xc_rho_set_types.F:281
xc_xbecke88_lr_adiabatic
Calculates the density_scaled BECKE88 long-range functional when used in adiabatic hybrids....
Definition: xc_xbecke88_lr_adiabatic.F:20
xc_xbecke88_lr_adiabatic::xb88_lr_adiabatic_lda_eval
subroutine, public xb88_lr_adiabatic_lda_eval(rho_set, deriv_set, grad_deriv, xb88_lr_ad_params)
evaluates the becke 88 longrange exchange functional for lda
Definition: xc_xbecke88_lr_adiabatic.F:130
xc_xbecke88_lr_adiabatic::xb88_lr_adiabatic_lda_info
subroutine, public xb88_lr_adiabatic_lda_info(reference, shortform, needs, max_deriv)
return various information on the functional
Definition: xc_xbecke88_lr_adiabatic.F:67
xc_xbecke88_lr_adiabatic::xb88_lr_adiabatic_lsd_eval
subroutine, public xb88_lr_adiabatic_lsd_eval(rho_set, deriv_set, grad_deriv, xb88_lr_ad_params)
evaluates the becke 88 longrange exchange functional for lsd
Definition: xc_xbecke88_lr_adiabatic.F:2850
xc_xbecke88_lr_adiabatic::xb88_lr_adiabatic_lsd_info
subroutine, public xb88_lr_adiabatic_lsd_info(reference, shortform, needs, max_deriv)
return various information on the functional
Definition: xc_xbecke88_lr_adiabatic.F:97