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