1 /*
2 This file was generated automatically with ./scripts/maple2c.pl.
3 Do not edit this file directly as it can be overwritten!!
4
5 This Source Code Form is subject to the terms of the Mozilla Public
6 License, v. 2.0. If a copy of the MPL was not distributed with this
7 file, You can obtain one at http://mozilla.org/MPL/2.0/.
8
9 Maple version : Maple 2016 (X86 64 LINUX)
10 Maple source : ./maple/mgga_exc/mgga_x_pbe_gx.mpl
11 Type of functional: mgga_exc
12 */
13
14 #define maple2c_order 4
15 #define MAPLE2C_FLAGS (XC_FLAGS_I_HAVE_EXC | XC_FLAGS_I_HAVE_VXC | XC_FLAGS_I_HAVE_FXC | XC_FLAGS_I_HAVE_KXC | XC_FLAGS_I_HAVE_LXC)
16
17
18 static inline void
func_unpol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
20 {
21
22 #ifndef XC_DONT_COMPILE_EXC
23 double t2, t4, t5, t6, t7, t8, t9, t10;
24 double t11, t12, t13, t16, t17, t18, t20, t22;
25 double t23, t25, t26, t28, t29, t31, t32, t33;
26 double t34, t35, t37, t39, t40, t42, t43, t46;
27 double t47, t48, t49, t51, t52, t55, t56, t57;
28 double t59, t61, t62, t63, t65;
29
30 #ifndef XC_DONT_COMPILE_VXC
31 double t68, t70, t71, t74, t76, t79, t80, t81;
32 double t84, t85, t87, t88, t90, t93, t94, t95;
33 double t96, t97, t100, t102, t103, t106, t109, t110;
34 double t111, t114, t116, t117, t120, t121, t127, t128;
35 double t129, t131, t132, t133, t137, t140, t141, t142;
36 double t145, t147, t148, t149, t151, t153, t155, t157;
37 double t158, t160, t161, t162, t164, t165, t167, t169;
38 double t170, t172, t174, t179, t180, t182, t185, t195;
39 double t198, t205, t209, t211;
40
41 #ifndef XC_DONT_COMPILE_FXC
42 double t214, t215, t222, t224, t231, t233, t236, t237;
43 double t238, t241, t242, t244, t247, t248, t258, t260;
44 double t261, t262, t265, t266, t269, t271, t274, t275;
45 double t282, t286, t287, t292, t294, t297, t298, t303;
46 double t304, t312, t313, t315, t316, t318, t319, t320;
47 double t325, t328, t330, t332, t333, t334, t335, t337;
48 double t338, t339, t342, t344, t345, t346, t347, t349;
49 double t350, t353, t356, t358, t360, t363, t364, t366;
50 double t367, t370, t371, t373, t375, t376, t378, t379;
51 double t381, t383, t385, t387, t390, t391, t393, t394;
52 double t396, t398, t400, t404, t407, t411, t414, t415;
53 double t417, t418, t419, t425, t428, t432, t440, t442;
54 double t453, t458, t460, t468, t470, t474, t478, t479;
55 double t480, t481, t483, t484, t486, t489, t491, t493;
56 double t495, t497, t498, t500, t502, t503, t505, t506;
57 double t508, t509, t511, t513, t514, t516, t517, t519;
58 double t521, t525, t530, t531, t535, t536, t537, t538;
59 double t540, t544, t547, t549, t551, t552, t557, t558;
60 double t560, t562, t564, t566, t567, t571, t573, t575;
61 double t579, t582, t583, t595, t600, t607, t613, t615;
62
63 #ifndef XC_DONT_COMPILE_KXC
64 double t635, t636, t644, t647, t648, t649, t652, t653;
65 double t658, t669, t675, t678, t679, t680, t681, t682;
66 double t689, t692, t694, t697, t702, t703, t704, t705;
67 double t706, t719, t720, t721, t724, t729, t731, t734;
68 double t739, t740, t747, t748, t756, t760, t761, t763;
69 double t765, t766, t767, t768, t769, t770, t771, t775;
70 double t780, t781, t786, t789, t794, t797, t800, t802;
71 double t803, t805, t806, t809, t810, t812, t814, t815;
72 double t816, t818, t819, t821, t823, t824, t826, t827;
73 double t829, t830, t831, t833, t834, t836, t837, t839;
74 double t841, t843, t845, t847, t849, t851, t854, t855;
75 double t857, t858, t859, t861, t863, t864, t867, t869;
76 double t870, t872, t873, t876, t878, t879, t881, t884;
77 double t888, t889, t890, t894, t896, t897, t898, t899;
78 double t901, t904, t906, t908, t909, t911, t912, t913;
79 double t914, t916, t917, t919, t920, t922, t924, t926;
80 double t927, t929, t933, t936, t937, t940, t948, t951;
81 double t955, t957, t958, t959, t974, t983, t995, t1005;
82 double t1010, t1014, t1031, t1033, t1036, t1039, t1042, t1047;
83 double t1056, t1057, t1059, t1063, t1066, t1067, t1073, t1074;
84 double t1075, t1076, t1078, t1080, t1082, t1083, t1084, t1088;
85 double t1091, t1092, t1093, t1096, t1099, t1101, t1103, t1106;
86 double t1107, t1109, t1110, t1112, t1114, t1115, t1117, t1118;
87 double t1119, t1120, t1123, t1124, t1126, t1128, t1129, t1131;
88 double t1132, t1134, t1136, t1138, t1140, t1143, t1144, t1146;
89 double t1147, t1149, t1151, t1152, t1154, t1155, t1157, t1159;
90 double t1161, t1165, t1171, t1174, t1179, t1183, t1184, t1185;
91 double t1186, t1192, t1195, t1196, t1200, t1201, t1204, t1207;
92 double t1209, t1212, t1213, t1215, t1216, t1218, t1225, t1227;
93 double t1228, t1231, t1233, t1235, t1237, t1240, t1242, t1245;
94 double t1246, t1248, t1249, t1251, t1258, t1260, t1263, t1264;
95 double t1266, t1270, t1276, t1279, t1288, t1293, t1300, t1302;
96 double t1312, t1319, t1324, t1326, t1339, t1341, t1345, t1348;
97 double t1350, t1352, t1353, t1355, t1357, t1361, t1363, t1365;
98 double t1366, t1368, t1369, t1371, t1372, t1374, t1376, t1378;
99 double t1380, t1381, t1383, t1384, t1386, t1388, t1390, t1394;
100 double t1397, t1401, t1403, t1404, t1405, t1409, t1411, t1412;
101 double t1414, t1416, t1420, t1422, t1424, t1425, t1427, t1428;
102 double t1432, t1434, t1435, t1437, t1439, t1441, t1443, t1444;
103 double t1446, t1447, t1451, t1453, t1455, t1457, t1461, t1464;
104 double t1468, t1470, t1471, t1473, t1475, t1479, t1481, t1483;
105 double t1484, t1488, t1492, t1493, t1495, t1497, t1499, t1501;
106 double t1502, t1506, t1510, t1512, t1514, t1518, t1524, t1527;
107 double t1535, t1541, t1548, t1556, t1558;
108
109 #ifndef XC_DONT_COMPILE_LXC
110 double t1561, t1569, t1570, t1571, t1573, t1576, t1577, t1578;
111 double t1581, t1594, t1595, t1601, t1614, t1618, t1619, t1626;
112 double t1637, t1675, t1694, t1698, t1699, t1703, t1706, t1709;
113 double t1716, t1727, t1730, t1735, t1738, t1744, t1754, t1755;
114 double t1756, t1765, t1767, t1816, t1820, t1833, t1838, t1848;
115 double t1852, t1855, t1858, t1865, t1872, t1877, t1881, t1884;
116 double t1887, t1893, t1896, t1900, t1909, t1911, t1914, t1917;
117 double t1922, t1940, t1949, t1952, t1955, t1959, t1962, t1965;
118 double t1968, t1971, t1974, t1985, t2000, t2004, t2017, t2027;
119 double t2047, t2049, t2062, t2065, t2077, t2084, t2087, t2092;
120 double t2097, t2100, t2101, t2102, t2103, t2106, t2109, t2161;
121 double t2170, t2174, t2177, t2180, t2185, t2192, t2198, t2225;
122 double t2256, t2262, t2290, t2292, t2303, t2307, t2327, t2358;
123 double t2361, t2366, t2369, t2372, t2375, t2378, t2383, t2387;
124 double t2389, t2396, t2399, t2402, t2405, t2408, t2409, t2412;
125 double t2415, t2428, t2434, t2437, t2441, t2461, t2467, t2483;
126 double t2488, t2504, t2506, t2507, t2512, t2515, t2520, t2523;
127 double t2526, t2529, t2547, t2552, t2559, t2564, t2573, t2576;
128 double t2585, t2604, t2606, t2611, t2660, t2662, t2665, t2670;
129 double t2673, t2676, t2681, t2696, t2707, t2793, t2811, t2812;
130 double t2819, t2822, t2827, t2830, t2843, t2853, t2859, t2878;
131 double t2891, t2894, t2897, t2902, t2905, t2912, t2913, t2916;
132 double t2919, t2927, t2934, t2937, t2940, t2945, t2948, t2955;
133 double t2960, t3009, t3012, t3015, t3018, t3027, t3032, t3035;
134 double t3042, t3047, t3054, t3063, t3066, t3103, t3148, t3151;
135 double t3164, t3167, t3168, t3171, t3210, t3213, t3226, t3267;
136 double t3282, t3286, t3297, t3315, t3328, t3333, t3338, t3339;
137 double t3348, t3351, t3356, t3358, t3366, t3371, t3374, t3379;
138 double t3423, t3426, t3438, t3450, t3453, t3466, t3499, t3502;
139 double t3516, t3528, t3531, t3546, t3576, t3590, t3602, t3617;
140 double t3651;
141 #endif
142
143 #endif
144
145 #endif
146
147 #endif
148
149 #endif
150
151
152
153 t2 = M_CBRT3;
154 t4 = POW_1_3(0.1e1 / M_PI);
155 t5 = t2 * t4;
156 t6 = M_CBRT4;
157 t7 = t6 * t6;
158 t8 = t5 * t7;
159 t9 = M_CBRT2;
160 t10 = t9 * t9;
161 t11 = POW_1_3(rho[0]);
162 t12 = t10 * t11;
163 t13 = t2 * t2;
164 t16 = 0.8e1 / 0.27e2 * t9 * t13 * t6;
165 t17 = tau[0] * t10;
166 t18 = t11 * t11;
167 t20 = 0.1e1 / t18 / rho[0];
168 t22 = sigma[0] * t10;
169 t23 = rho[0] * rho[0];
170 t25 = 0.1e1 / t18 / t23;
171 t26 = t22 * t25;
172 t28 = t17 * t20 - t26 / 0.8e1;
173 t29 = M_CBRT6;
174 t31 = M_PI * M_PI;
175 t32 = POW_1_3(t31);
176 t33 = t32 * t32;
177 t34 = 0.1e1 / t33;
178 t35 = t28 * t29 * t34;
179 t37 = 0.827411e0 - 0.35753333333333333333e0 * t35;
180 t39 = 0.10e1 - 0.45341611111111111111e0 * t35;
181 t40 = 0.1e1 / t39;
182 t42 = 0.1e1 - t16;
183 t43 = t37 * t40 * t42;
184 t46 = t16 + 0.5e1 / 0.9e1 * t35 * t43;
185 t47 = 0.5e1 / 0.9e1 * t35;
186 t48 = 0.1e1 - t47;
187 t49 = Heaviside(t48);
188 t51 = 0.1e1 + t47;
189 t52 = 0.1e1 / t51;
190 t55 = 0.1e1 + 0.148e0 * t48 * t52;
191 t56 = -t48;
192 t57 = Heaviside(t56);
193 t59 = t46 * t49 + t55 * t57;
194 t61 = 0.1e1 + 0.1015549e-2 * t26;
195 t62 = 0.1e1 / t61;
196 t63 = t59 * t62;
197 t65 = t8 * t12 * t63;
198 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
199 zk[0] = -0.3e1 / 0.16e2 * t65;
200
201 #ifndef XC_DONT_COMPILE_VXC
202
203 if(order < 1) return;
204
205
206 t68 = t11 * rho[0];
207 t70 = t68 * t2 * t4;
208 t71 = t7 * t10;
209 t74 = t23 * rho[0];
210 t76 = 0.1e1 / t18 / t74;
211 t79 = -0.5e1 / 0.3e1 * t17 * t25 + t22 * t76 / 0.3e1;
212 t80 = t79 * t29;
213 t81 = t80 * t34;
214 t84 = t29 * t29;
215 t85 = t28 * t84;
216 t87 = 0.1e1 / t32 / t31;
217 t88 = t85 * t87;
218 t90 = t79 * t40 * t42;
219 t93 = t39 * t39;
220 t94 = 0.1e1 / t93;
221 t95 = t37 * t94;
222 t96 = t42 * t79;
223 t97 = t95 * t96;
224 t100 = 0.5e1 / 0.9e1 * t81 * t43 - 0.19862962962962962963e0 * t88 * t90 + 0.25189783950617283951e0 * t88 * t97;
225 t102 = 0.0;
226 t103 = t46 * t102;
227 t106 = t34 * t52;
228 t109 = t51 * t51;
229 t110 = 0.1e1 / t109;
230 t111 = t48 * t110;
231 t114 = -0.82222222222222222222e-1 * t80 * t106 - 0.82222222222222222222e-1 * t111 * t81;
232 t116 = 0.0;
233 t117 = t55 * t116;
234 t120 = t100 * t49 - 0.5e1 / 0.9e1 * t103 * t81 + t114 * t57 + 0.5e1 / 0.9e1 * t117 * t81;
235 t121 = t120 * t62;
236 t127 = 0.1e1 / t11 / t23 * t2;
237 t128 = t4 * t7;
238 t129 = t127 * t128;
239 t131 = t61 * t61;
240 t132 = 0.1e1 / t131;
241 t133 = t132 * sigma[0];
242 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
243 vrho[0] = -t65 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t71 * t121 - 0.10155490000000000000e-2 * t129 * t9 * t59 * t133;
244
245 t137 = t10 * t25;
246 t140 = t40 * t42;
247 t141 = t34 * t37 * t140;
248 t142 = t137 * t29 * t141;
249 t145 = t88 * t137 * t140;
250 t147 = t87 * t37;
251 t148 = t85 * t147;
252 t149 = t94 * t42;
253 t151 = t148 * t149 * t137;
254 t153 = -0.5e1 / 0.72e2 * t142 + 0.24828703703703703703e-1 * t145 - 0.31487229938271604938e-1 * t151;
255 t155 = t103 * t10;
256 t157 = t25 * t29 * t34;
257 t158 = t155 * t157;
258 t160 = t29 * t34;
259 t161 = t160 * t52;
260 t162 = t137 * t161;
261 t164 = t111 * t10;
262 t165 = t164 * t157;
263 t167 = 0.10277777777777777778e-1 * t162 + 0.10277777777777777778e-1 * t165;
264 t169 = t117 * t10;
265 t170 = t169 * t157;
266 t172 = t153 * t49 + 0.5e1 / 0.72e2 * t158 + t167 * t57 - 0.5e1 / 0.72e2 * t170;
267 t174 = t71 * t172 * t62;
268 t179 = 0.1e1 / t68 * t2 * t4;
269 t180 = t7 * t9;
270 t182 = t180 * t59 * t132;
271 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
272 vsigma[0] = -0.3e1 / 0.16e2 * t70 * t174 + 0.38083087500000000000e-3 * t179 * t182;
273
274 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
275 vlapl[0] = 0.0e0;
276
277 t185 = t10 * t20;
278 t195 = 0.5e1 / 0.9e1 * t185 * t29 * t141 - 0.19862962962962962963e0 * t88 * t185 * t140 + 0.25189783950617283951e0 * t148 * t149 * t185;
279 t198 = t20 * t29 * t34;
280 t205 = -0.82222222222222222222e-1 * t185 * t161 - 0.82222222222222222222e-1 * t164 * t198;
281 t209 = t195 * t49 - 0.5e1 / 0.9e1 * t155 * t198 + t205 * t57 + 0.5e1 / 0.9e1 * t169 * t198;
282 t211 = t71 * t209 * t62;
283 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
284 vtau[0] = -0.3e1 / 0.16e2 * t70 * t211;
285
286 #ifndef XC_DONT_COMPILE_FXC
287
288 if(order < 2) return;
289
290
291 t214 = 0.1e1 / t18;
292 t215 = t10 * t214;
293 t222 = t5 * t180;
294 t224 = 0.1e1 / t11 / t74;
295 t231 = t23 * t23;
296 t233 = 0.1e1 / t18 / t231;
297 t236 = 0.40e2 / 0.9e1 * t17 * t76 - 0.11e2 / 0.9e1 * t22 * t233;
298 t237 = t236 * t29;
299 t238 = t237 * t34;
300 t241 = t79 * t79;
301 t242 = t241 * t84;
302 t244 = t87 * t40 * t42;
303 t247 = t242 * t87;
304 t248 = t95 * t42;
305 t258 = t28 * t37;
306 t260 = 0.1e1 / t93 / t39;
307 t261 = t260 * t42;
308 t262 = t261 * t241;
309 t265 = t42 * t236;
310 t266 = t95 * t265;
311 t269 = 0.5e1 / 0.9e1 * t238 * t43 - 0.39725925925925925926e0 * t242 * t244 + 0.50379567901234567902e0 * t247 * t248 - 0.19862962962962962963e0 * t88 * t236 * t40 * t42 - 0.11094883230560388659e-1 * t28 * t241 * t149 + 0.14070293140870518124e-1 * t258 * t262 + 0.25189783950617283951e0 * t88 * t266;
312 t271 = t100 * t102;
313 t274 = 0.0;
314 t275 = t46 * t274;
315 t282 = t87 * t110;
316 t286 = 0.1e1 / t109 / t51;
317 t287 = t48 * t286;
318 t292 = -0.82222222222222222222e-1 * t237 * t106 + 0.91358024691358024692e-1 * t242 * t282 + 0.91358024691358024691e-1 * t287 * t247 - 0.82222222222222222222e-1 * t111 * t238;
319 t294 = t114 * t116;
320 t297 = 0.0;
321 t298 = t55 * t297;
322 t303 = t269 * t49 - 0.10e2 / 0.9e1 * t271 * t81 + 0.25e2 / 0.81e2 * t275 * t247 - 0.5e1 / 0.9e1 * t103 * t238 + t292 * t57 + 0.10e2 / 0.9e1 * t294 * t81 + 0.25e2 / 0.81e2 * t298 * t247 + 0.5e1 / 0.9e1 * t117 * t238;
323 t304 = t303 * t62;
324 t312 = t231 * t23;
325 t313 = 0.1e1 / t312;
326 t315 = t313 * t2 * t4;
327 t316 = t7 * t59;
328 t318 = 0.1e1 / t131 / t61;
329 t319 = sigma[0] * sigma[0];
330 t320 = t318 * t319;
331 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
332 v2rho2[0] = -t8 * t215 * t63 / 0.12e2 - t8 * t12 * t121 / 0.2e1 + 0.10155489999999999999e-2 * t222 * t224 * t59 * t133 - 0.3e1 / 0.16e2 * t70 * t71 * t304 - 0.20310980000000000000e-2 * t129 * t9 * t120 * t133 - 0.11000957561610666667e-4 * t315 * t316 * t320;
333
334 t325 = t11 * t2 * t4;
335 t328 = t10 * t76;
336 t330 = t328 * t29 * t141;
337 t332 = t137 * t84;
338 t333 = t87 * t79;
339 t334 = t333 * t140;
340 t335 = t332 * t334;
341 t337 = t84 * t87;
342 t338 = t137 * t337;
343 t339 = t338 * t97;
344 t342 = t88 * t328 * t140;
345 t344 = t28 * t10;
346 t345 = t344 * t25;
347 t346 = t149 * t79;
348 t347 = t345 * t346;
349 t349 = t258 * t260;
350 t350 = t42 * t10;
351 t353 = t349 * t350 * t25 * t79;
352 t356 = t148 * t149 * t328;
353 t358 = 0.5e1 / 0.27e2 * t330 + 0.49657407407407407406e-1 * t335 - 0.62974459876543209876e-1 * t339 - 0.66209876543209876541e-1 * t342 + 0.13868604038200485824e-2 * t347 - 0.17587866426088147654e-2 * t353 + 0.83965946502057613168e-1 * t356;
354 t360 = t153 * t102;
355 t363 = t271 * t10;
356 t364 = t363 * t157;
357 t366 = t275 * t79;
358 t367 = t366 * t338;
359 t370 = t76 * t29 * t34;
360 t371 = t155 * t370;
361 t373 = t328 * t161;
362 t375 = t282 * t79;
363 t376 = t332 * t375;
364 t378 = t287 * t10;
365 t379 = t25 * t84;
366 t381 = t378 * t379 * t333;
367 t383 = t164 * t370;
368 t385 = -0.27407407407407407408e-1 * t373 - 0.11419753086419753087e-1 * t376 - 0.11419753086419753087e-1 * t381 - 0.27407407407407407408e-1 * t383;
369 t387 = t167 * t116;
370 t390 = t294 * t10;
371 t391 = t390 * t157;
372 t393 = t298 * t79;
373 t394 = t393 * t338;
374 t396 = t169 * t370;
375 t398 = t358 * t49 - 0.5e1 / 0.9e1 * t360 * t81 + 0.5e1 / 0.72e2 * t364 - 0.25e2 / 0.648e3 * t367 - 0.5e1 / 0.27e2 * t371 + t385 * t57 + 0.5e1 / 0.9e1 * t387 * t81 - 0.5e1 / 0.72e2 * t391 - 0.25e2 / 0.648e3 * t394 + 0.5e1 / 0.27e2 * t396;
376 t400 = t71 * t398 * t62;
377 t404 = t9 * t172 * t133;
378 t407 = t127 * t4;
379 t411 = t180 * t120 * t132;
380 t414 = t231 * rho[0];
381 t415 = 0.1e1 / t414;
382 t417 = t415 * t2 * t4;
383 t418 = t318 * sigma[0];
384 t419 = t316 * t418;
385 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
386 v2rhosigma[0] = -t325 * t174 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t400 - 0.10155490000000000000e-2 * t129 * t404 - 0.50777450000000000000e-3 * t407 * t182 + 0.38083087500000000000e-3 * t179 * t411 + 0.41253590856040000001e-5 * t417 * t419;
387
388 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
389 v2rholapl[0] = 0.0e0;
390
391 t425 = t185 * t84;
392 t428 = t185 * t337;
393 t432 = t344 * t20;
394 t440 = -0.25e2 / 0.27e2 * t142 - 0.39725925925925925926e0 * t425 * t334 + 0.50379567901234567902e0 * t428 * t97 + 0.33104938271604938272e0 * t145 - 0.11094883230560388659e-1 * t432 * t346 + 0.14070293140870518124e-1 * t349 * t350 * t20 * t79 - 0.41982973251028806585e0 * t151;
395 t442 = t195 * t102;
396 t453 = t20 * t84;
397 t458 = 0.13703703703703703704e0 * t162 + 0.91358024691358024692e-1 * t425 * t375 + 0.91358024691358024691e-1 * t378 * t453 * t333 + 0.13703703703703703704e0 * t165;
398 t460 = t205 * t116;
399 t468 = t440 * t49 - 0.5e1 / 0.9e1 * t442 * t81 - 0.5e1 / 0.9e1 * t363 * t198 + 0.25e2 / 0.81e2 * t366 * t428 + 0.25e2 / 0.27e2 * t158 + t458 * t57 + 0.5e1 / 0.9e1 * t460 * t81 + 0.5e1 / 0.9e1 * t390 * t198 + 0.25e2 / 0.81e2 * t393 * t428 - 0.25e2 / 0.27e2 * t170;
400 t470 = t71 * t468 * t62;
401 t474 = t9 * t209 * t133;
402 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
403 v2rhotau[0] = -t325 * t211 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t470 - 0.10155490000000000000e-2 * t129 * t474;
404
405 t478 = 0.1e1 / t11 / t414;
406 t479 = t9 * t478;
407 t480 = t479 * t84;
408 t481 = t480 * t244;
409 t483 = t147 * t149;
410 t484 = t480 * t483;
411 t486 = t28 * t9;
412 t489 = t486 * t478 * t94 * t42;
413 t491 = t42 * t9;
414 t493 = t349 * t491 * t478;
415 t495 = -0.12414351851851851852e-1 * t481 + 0.15743614969135802469e-1 * t484 - 0.34671510095501214558e-3 * t489 + 0.43969666065220369137e-3 * t493;
416 t497 = t360 * t10;
417 t498 = t497 * t157;
418 t500 = t275 * t9;
419 t502 = t478 * t84 * t87;
420 t503 = t500 * t502;
421 t505 = t337 * t110;
422 t506 = t479 * t505;
423 t508 = t287 * t9;
424 t509 = t508 * t502;
425 t511 = 0.28549382716049382716e-2 * t506 + 0.28549382716049382717e-2 * t509;
426 t513 = t387 * t10;
427 t514 = t513 * t157;
428 t516 = t298 * t9;
429 t517 = t516 * t502;
430 t519 = t495 * t49 + 0.5e1 / 0.36e2 * t498 + 0.25e2 / 0.2592e4 * t503 + t511 * t57 - 0.5e1 / 0.36e2 * t514 + 0.25e2 / 0.2592e4 * t517;
431 t521 = t71 * t519 * t62;
432 t525 = t180 * t172 * t132;
433 t530 = 0.1e1 / t231 * t2 * t4;
434 t531 = t316 * t318;
435 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
436 v2sigma2[0] = -0.3e1 / 0.16e2 * t70 * t521 + 0.76166175000000000000e-3 * t179 * t525 - 0.15470096571015000000e-5 * t530 * t531;
437
438 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
439 v2sigmalapl[0] = 0.0e0;
440
441 t535 = 0.1e1 / t11 / t231;
442 t536 = t9 * t535;
443 t537 = t536 * t84;
444 t538 = t537 * t244;
445 t540 = t537 * t483;
446 t544 = t486 * t535 * t94 * t42;
447 t547 = t349 * t491 * t535;
448 t549 = 0.99314814814814814815e-1 * t538 - 0.12594891975308641976e0 * t540 + 0.27737208076400971648e-2 * t544 - 0.35175732852176295311e-2 * t547;
449 t551 = t442 * t10;
450 t552 = t551 * t157;
451 t557 = t535 * t84 * t87;
452 t558 = t500 * t557;
453 t560 = t536 * t505;
454 t562 = t508 * t557;
455 t564 = -0.22839506172839506172e-1 * t560 - 0.22839506172839506173e-1 * t562;
456 t566 = t460 * t10;
457 t567 = t566 * t157;
458 t571 = t516 * t557;
459 t573 = t549 * t49 + 0.5e1 / 0.72e2 * t552 - 0.5e1 / 0.9e1 * t497 * t198 - 0.25e2 / 0.324e3 * t558 + t564 * t57 - 0.5e1 / 0.72e2 * t567 + 0.5e1 / 0.9e1 * t513 * t198 - 0.25e2 / 0.324e3 * t571;
460 t575 = t71 * t573 * t62;
461 t579 = t180 * t209 * t132;
462 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
463 v2sigmatau[0] = -0.3e1 / 0.16e2 * t70 * t575 + 0.38083087500000000000e-3 * t179 * t579;
464
465 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
466 v2lapl2[0] = 0.0e0;
467
468 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
469 v2lapltau[0] = 0.0e0;
470
471 t582 = t9 * t224;
472 t583 = t582 * t84;
473 t595 = -0.79451851851851851852e0 * t583 * t244 + 0.10075913580246913580e1 * t583 * t483 - 0.22189766461120777318e-1 * t486 * t224 * t94 * t42 + 0.28140586281741036247e-1 * t349 * t491 * t224;
474 t600 = t224 * t84 * t87;
475 t607 = 0.18271604938271604938e0 * t582 * t505 + 0.18271604938271604938e0 * t508 * t600;
476 t613 = t595 * t49 - 0.10e2 / 0.9e1 * t551 * t198 + 0.50e2 / 0.81e2 * t500 * t600 + t607 * t57 + 0.10e2 / 0.9e1 * t566 * t198 + 0.50e2 / 0.81e2 * t516 * t600;
477 t615 = t71 * t613 * t62;
478 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
479 v2tau2[0] = -0.3e1 / 0.16e2 * t70 * t615;
480
481 #ifndef XC_DONT_COMPILE_KXC
482
483 if(order < 3) return;
484
485
486 t635 = t231 * t74;
487 t636 = 0.1e1 / t635;
488 t644 = 0.1e1 / t18 / t414;
489 t647 = -0.440e3 / 0.27e2 * t17 * t233 + 0.154e3 / 0.27e2 * t22 * t644;
490 t648 = t647 * t29;
491 t649 = t648 * t34;
492 t652 = t236 * t84;
493 t653 = t652 * t87;
494 t658 = t241 * t79;
495 t669 = t28 * t236;
496 t675 = t42 * t29 * t34;
497 t678 = t93 * t93;
498 t679 = 0.1e1 / t678;
499 t680 = t258 * t679;
500 t681 = t42 * t658;
501 t682 = t681 * t160;
502 t689 = t95 * t42 * t647;
503 t692 = 0.5e1 / 0.9e1 * t649 * t43 - 0.11917777777777777778e1 * t653 * t90 + 0.15113870370370370370e1 * t653 * t97 - 0.33284649691681165977e-1 * t658 * t94 * t42 + 0.42210879422611554372e-1 * t658 * t37 * t261 - 0.19862962962962962963e0 * t88 * t647 * t40 * t42 - 0.33284649691681165977e-1 * t669 * t346 - 0.15091796422897717740e-1 * t28 * t658 * t260 * t675 + 0.19139092794380554160e-1 * t680 * t682 + 0.42210879422611554372e-1 * t349 * t96 * t236 + 0.25189783950617283951e0 * t88 * t689;
504 t694 = t269 * t102;
505 t697 = t100 * t274;
506 t702 = 0.0;
507 t703 = t46 * t702;
508 t704 = t31 * t31;
509 t705 = 0.1e1 / t704;
510 t706 = t658 * t705;
511 t719 = t109 * t109;
512 t720 = 0.1e1 / t719;
513 t721 = t48 * t720;
514 t724 = t287 * t79;
515 t729 = -0.82222222222222222222e-1 * t648 * t106 + 0.27407407407407407407e0 * t652 * t375 - 0.91358024691358024692e0 * t706 * t286 - 0.91358024691358024691e0 * t721 * t706 + 0.27407407407407407407e0 * t724 * t653 - 0.82222222222222222222e-1 * t111 * t649;
516 t731 = t292 * t116;
517 t734 = t114 * t297;
518 t739 = 0.0;
519 t740 = t55 * t739;
520 t747 = t692 * t49 - 0.5e1 / 0.3e1 * t694 * t81 + 0.25e2 / 0.27e2 * t697 * t247 - 0.5e1 / 0.3e1 * t271 * t238 - 0.250e3 / 0.243e3 * t703 * t706 + 0.25e2 / 0.27e2 * t366 * t653 - 0.5e1 / 0.9e1 * t103 * t649 + t729 * t57 + 0.5e1 / 0.3e1 * t731 * t81 + 0.25e2 / 0.27e2 * t734 * t247 + 0.5e1 / 0.3e1 * t294 * t238 + 0.250e3 / 0.243e3 * t740 * t706 + 0.25e2 / 0.27e2 * t393 * t653 + 0.5e1 / 0.9e1 * t117 * t649;
521 t748 = t747 * t62;
522 t756 = t7 * t120;
523 t760 = t231 * t231;
524 t761 = t760 * rho[0];
525 t763 = 0.1e1 / t18 / t761;
526 t765 = t763 * t2 * t128;
527 t766 = t131 * t131;
528 t767 = 0.1e1 / t766;
529 t768 = t59 * t767;
530 t769 = t319 * sigma[0];
531 t770 = t769 * t10;
532 t771 = t768 * t770;
533 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
534 v3rho3[0] = t8 * t185 * t63 / 0.18e2 - t8 * t215 * t121 / 0.4e1 - 0.38365184444444444441e-2 * t222 * t535 * t59 * t133 - 0.3e1 / 0.4e1 * t8 * t12 * t304 + 0.30466469999999999999e-2 * t222 * t224 * t120 * t133 + 0.77006702931274666668e-4 * t8 * t636 * t59 * t320 - 0.3e1 / 0.16e2 * t70 * t71 * t748 - 0.30466470000000000000e-2 * t129 * t9 * t303 * t133 - 0.33002872684832000001e-4 * t315 * t756 * t320 - 0.89376091605889207385e-7 * t765 * t771;
535
536 t775 = t214 * t2 * t4;
537 t780 = t224 * t2;
538 t781 = t780 * t128;
539 t786 = t167 * t297;
540 t789 = t358 * t102;
541 t794 = t153 * t274;
542 t797 = t385 * t116;
543 t800 = t390 * t370;
544 t802 = t734 * t79;
545 t803 = t802 * t338;
546 t805 = t298 * t236;
547 t806 = t805 * t338;
548 t809 = t233 * t29 * t34;
549 t810 = t169 * t809;
550 t812 = t363 * t370;
551 t814 = 0.5e1 / 0.9e1 * t387 * t238 + 0.25e2 / 0.81e2 * t786 * t247 - 0.10e2 / 0.9e1 * t789 * t81 - 0.5e1 / 0.9e1 * t360 * t238 + 0.25e2 / 0.81e2 * t794 * t247 + 0.10e2 / 0.9e1 * t797 * t81 + 0.10e2 / 0.27e2 * t800 - 0.25e2 / 0.324e3 * t803 - 0.25e2 / 0.648e3 * t806 - 0.55e2 / 0.81e2 * t810 - 0.10e2 / 0.27e2 * t812;
552 t815 = t697 * t79;
553 t816 = t815 * t338;
554 t818 = t275 * t236;
555 t819 = t818 * t338;
556 t821 = t155 * t809;
557 t823 = t10 * t233;
558 t824 = t823 * t161;
559 t826 = t328 * t84;
560 t827 = t826 * t375;
561 t829 = t705 * t286;
562 t830 = t829 * t241;
563 t831 = t137 * t830;
564 t833 = t282 * t236;
565 t834 = t332 * t833;
566 t836 = t721 * t10;
567 t837 = t25 * t705;
568 t839 = t836 * t837 * t241;
569 t841 = t76 * t84;
570 t843 = t378 * t841 * t333;
571 t845 = t87 * t236;
572 t847 = t378 * t379 * t845;
573 t849 = t164 * t809;
574 t851 = 0.10049382716049382716e0 * t824 + 0.60905349794238683129e-1 * t827 + 0.11419753086419753087e0 * t831 - 0.11419753086419753087e-1 * t834 + 0.11419753086419753087e0 * t839 + 0.60905349794238683129e-1 * t843 - 0.11419753086419753087e-1 * t847 + 0.10049382716049382716e0 * t849;
575 t854 = t241 * t94 * t42;
576 t855 = t137 * t854;
577 t857 = t25 * t236;
578 t858 = t350 * t857;
579 t859 = t349 * t858;
580 t861 = t826 * t334;
581 t863 = t845 * t140;
582 t864 = t332 * t863;
583 t867 = t137 * t37 * t262;
584 t869 = t344 * t76;
585 t870 = t869 * t346;
586 t872 = t149 * t236;
587 t873 = t345 * t872;
588 t876 = t823 * t29 * t141;
589 t878 = t328 * t337;
590 t879 = t878 * t97;
591 t881 = t338 * t266;
592 t884 = t88 * t823 * t140;
593 t888 = t42 * t241;
594 t889 = t888 * t160;
595 t890 = t344 * t25 * t260 * t889;
596 t894 = t349 * t350 * t76 * t79;
597 t896 = t679 * t42;
598 t897 = t258 * t896;
599 t898 = t241 * t29;
600 t899 = t898 * t34;
601 t901 = t897 * t137 * t899;
602 t904 = t148 * t149 * t823;
603 t906 = 0.41605812114601457471e-2 * t855 - 0.17587866426088147654e-2 * t859 - 0.26483950617283950616e0 * t861 + 0.49657407407407407406e-1 * t864 - 0.52763599278264442963e-2 * t867 - 0.73965888203735924393e-2 * t870 + 0.13868604038200485824e-2 * t873 - 0.55e2 / 0.81e2 * t876 + 0.33586378600823045268e0 * t879 - 0.62974459876543209876e-1 * t881 + 0.24276954732510288065e0 * t884 + 0.18864745528622147174e-2 * t890 + 0.93801954272470120822e-2 * t894 - 0.23923865992975692699e-2 * t901 - 0.30787513717421124828e0 * t904;
604 t908 = t731 * t10;
605 t909 = t908 * t157;
606 t911 = t740 * t241;
607 t912 = t705 * t10;
608 t913 = t912 * t25;
609 t914 = t911 * t913;
610 t916 = t703 * t241;
611 t917 = t916 * t913;
612 t919 = t694 * t10;
613 t920 = t919 * t157;
614 t922 = t393 * t878;
615 t924 = t366 * t878;
616 t926 = -0.25e2 / 0.324e3 * t816 - 0.25e2 / 0.648e3 * t819 + 0.55e2 / 0.81e2 * t821 + t851 * t57 + t906 * t49 - 0.5e1 / 0.72e2 * t909 - 0.125e3 / 0.972e3 * t914 + 0.125e3 / 0.972e3 * t917 + 0.5e1 / 0.72e2 * t920 + 0.50e2 / 0.243e3 * t922 + 0.50e2 / 0.243e3 * t924;
617 t927 = t926 + t814;
618 t929 = t71 * t927 * t62;
619 t933 = t9 * t398 * t133;
620 t936 = t7 * t172;
621 t937 = t936 * t320;
622 t940 = t780 * t4;
623 t948 = t180 * t303 * t132;
624 t951 = t756 * t418;
625 t955 = 0.1e1 / t18 / t760;
626 t957 = t955 * t2 * t128;
627 t958 = t319 * t10;
628 t959 = t768 * t958;
629 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
630 v3rho2sigma[0] = -t775 * t174 / 0.12e2 - t325 * t400 / 0.2e1 + 0.10155489999999999999e-2 * t781 * t404 - 0.3e1 / 0.16e2 * t70 * t929 - 0.20310980000000000000e-2 * t129 * t933 - 0.11000957561610666667e-4 * t315 * t937 + 0.11848071666666666667e-2 * t940 * t182 - 0.10155490000000000000e-2 * t407 * t411 - 0.26127274208825333334e-4 * t315 * t419 + 0.38083087500000000000e-3 * t179 * t948 + 0.82507181712080000002e-5 * t417 * t951 + 0.33516034352208452769e-7 * t957 * t959;
631
632 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
633 v3rho2lapl[0] = 0.0e0;
634
635 t974 = t20 * t705;
636 t983 = -0.36543209876543209877e0 * t373 - 0.30452674897119341564e0 * t376 - 0.91358024691358024692e0 * t185 * t830 + 0.91358024691358024692e-1 * t425 * t833 - 0.91358024691358024691e0 * t836 * t974 * t241 - 0.30452674897119341564e0 * t381 + 0.91358024691358024691e-1 * t378 * t453 * t845 - 0.36543209876543209877e0 * t383;
637 t995 = t912 * t20;
638 t1005 = t344 * t20 * t260;
639 t1010 = t20 * t236;
640 t1014 = t185 * t37;
641 t1031 = 0.50379567901234567902e0 * t428 * t266 - 0.15091796422897717740e-1 * t1005 * t889 - 0.39725925925925925926e0 * t425 * t863 + 0.14070293140870518124e-1 * t349 * t350 * t1010 + 0.42210879422611554372e-1 * t1014 * t262 - 0.11094883230560388659e-1 * t432 * t872 + 0.19139092794380554160e-1 * t897 * t185 * t899 - 0.33284649691681165977e-1 * t185 * t854 + 0.11195459533607681756e1 * t356 + 0.13241975308641975309e1 * t335 - 0.46900977136235060413e-1 * t353 + 0.36982944101867962196e-1 * t347 + 0.200e3 / 0.81e2 * t330 - 0.16793189300411522634e1 * t339 - 0.88279835390946502059e0 * t342;
642 t1033 = t440 * t102;
643 t1036 = t983 * t57 + 0.50e2 / 0.81e2 * t802 * t428 + 0.25e2 / 0.81e2 * t805 * t428 + 0.25e2 / 0.81e2 * t818 * t428 + 0.50e2 / 0.81e2 * t815 * t428 + 0.5e1 / 0.9e1 * t908 * t198 + 0.250e3 / 0.243e3 * t911 * t995 - 0.5e1 / 0.9e1 * t919 * t198 - 0.250e3 / 0.243e3 * t916 * t995 + t1031 * t49 - 0.10e2 / 0.9e1 * t1033 * t81;
644 t1039 = t195 * t274;
645 t1042 = t458 * t116;
646 t1047 = t205 * t297;
647 t1056 = -0.5e1 / 0.9e1 * t442 * t238 + 0.25e2 / 0.81e2 * t1039 * t247 + 0.10e2 / 0.9e1 * t1042 * t81 + 0.5e1 / 0.9e1 * t460 * t238 + 0.25e2 / 0.81e2 * t1047 * t247 + 0.200e3 / 0.81e2 * t396 - 0.250e3 / 0.243e3 * t394 - 0.200e3 / 0.81e2 * t371 - 0.250e3 / 0.243e3 * t367 - 0.50e2 / 0.27e2 * t391 + 0.50e2 / 0.27e2 * t364;
648 t1057 = t1056 + t1036;
649 t1059 = t71 * t1057 * t62;
650 t1063 = t9 * t468 * t133;
651 t1066 = t7 * t209;
652 t1067 = t1066 * t320;
653 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
654 v3rho2tau[0] = -t775 * t211 / 0.12e2 - t325 * t470 / 0.2e1 + 0.10155489999999999999e-2 * t781 * t474 - 0.3e1 / 0.16e2 * t70 * t1059 - 0.20310980000000000000e-2 * t129 * t1063 - 0.11000957561610666667e-4 * t315 * t1067;
655
656 t1073 = 0.1e1 / t11 / t312;
657 t1074 = t9 * t1073;
658 t1075 = t1074 * t84;
659 t1076 = t1075 * t244;
660 t1078 = t479 * t346;
661 t1080 = t1075 * t483;
662 t1082 = t479 * t37;
663 t1083 = t261 * t79;
664 t1084 = t1082 * t1083;
665 t1088 = t486 * t1073 * t94 * t42;
666 t1091 = t486 * t478 * t260;
667 t1092 = t96 * t160;
668 t1093 = t1091 * t1092;
669 t1096 = t897 * t479 * t81;
670 t1099 = t349 * t491 * t1073;
671 t1101 = 0.66209876543209876544e-1 * t1076 - 0.10401453028650364368e-2 * t1078 - 0.83965946502057613168e-1 * t1080 + 0.13190899819566110741e-2 * t1084 + 0.18491472050933981098e-2 * t1088 - 0.47161863821555367934e-3 * t1093 + 0.59809664982439231750e-3 * t1096 - 0.23450488568117530206e-2 * t1099;
672 t1103 = t495 * t102;
673 t1106 = t789 * t10;
674 t1107 = t1106 * t157;
675 t1109 = t794 * t79;
676 t1110 = t1109 * t338;
677 t1112 = t497 * t370;
678 t1114 = t697 * t9;
679 t1115 = t1114 * t502;
680 t1117 = t703 * t79;
681 t1118 = t705 * t9;
682 t1119 = t1118 * t478;
683 t1120 = t1117 * t1119;
684 t1123 = t1073 * t84 * t87;
685 t1124 = t500 * t1123;
686 t1126 = t1074 * t505;
687 t1128 = t829 * t79;
688 t1129 = t479 * t1128;
689 t1131 = t721 * t9;
690 t1132 = t478 * t705;
691 t1134 = t1131 * t1132 * t79;
692 t1136 = t508 * t1123;
693 t1138 = -0.15226337448559670782e-1 * t1126 - 0.28549382716049382716e-1 * t1129 - 0.28549382716049382717e-1 * t1134 - 0.15226337448559670782e-1 * t1136;
694 t1140 = t511 * t116;
695 t1143 = t797 * t10;
696 t1144 = t1143 * t157;
697 t1146 = t786 * t79;
698 t1147 = t1146 * t338;
699 t1149 = t513 * t370;
700 t1151 = t734 * t9;
701 t1152 = t1151 * t502;
702 t1154 = t740 * t79;
703 t1155 = t1154 * t1119;
704 t1157 = t516 * t1123;
705 t1159 = t1101 * t49 - 0.5e1 / 0.9e1 * t1103 * t81 + 0.5e1 / 0.36e2 * t1107 - 0.25e2 / 0.324e3 * t1110 - 0.10e2 / 0.27e2 * t1112 + 0.25e2 / 0.2592e4 * t1115 - 0.125e3 / 0.3888e4 * t1120 - 0.25e2 / 0.486e3 * t1124 + t1138 * t57 + 0.5e1 / 0.9e1 * t1140 * t81 - 0.5e1 / 0.36e2 * t1144 - 0.25e2 / 0.324e3 * t1147 + 0.10e2 / 0.27e2 * t1149 + 0.25e2 / 0.2592e4 * t1152 + 0.125e3 / 0.3888e4 * t1155 - 0.25e2 / 0.486e3 * t1157;
706 t1161 = t71 * t1159 * t62;
707 t1165 = t9 * t519 * t133;
708 t1171 = t180 * t398 * t132;
709 t1174 = t936 * t418;
710 t1179 = t756 * t318;
711 t1183 = 0.1e1 / t18 / t635;
712 t1184 = t1183 * t2;
713 t1185 = t1184 * t128;
714 t1186 = t768 * t22;
715 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
716 v3rhosigma2[0] = -t325 * t521 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t1161 - 0.10155490000000000000e-2 * t129 * t1165 - 0.10155490000000000000e-2 * t407 * t525 + 0.76166175000000000000e-3 * t179 * t1171 + 0.82507181712080000003e-5 * t417 * t1174 + 0.61880386284060000000e-5 * t417 * t531 - 0.15470096571015000000e-5 * t530 * t1179 - 0.12568512882078169788e-7 * t1185 * t1186;
717
718 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
719 v3rhosigmalapl[0] = 0.0e0;
720
721 t1192 = t536 * t346;
722 t1195 = t536 * t37;
723 t1196 = t1195 * t1083;
724 t1200 = t486 * t535 * t260;
725 t1201 = t1200 * t1092;
726 t1204 = t897 * t536 * t81;
727 t1207 = -0.43036419753086419753e0 * t481 + 0.83211624229202914944e-2 * t1192 + 0.54577865226337448563e0 * t484 - 0.10552719855652888593e-1 * t1196 - 0.12019456833107087714e-1 * t489 + 0.37729491057244294349e-2 * t1201 - 0.47847731985951385402e-2 * t1204 + 0.15242817569276394635e-1 * t493;
728 t1209 = t549 * t102;
729 t1212 = t1033 * t10;
730 t1213 = t1212 * t157;
731 t1215 = t1039 * t79;
732 t1216 = t1215 * t338;
733 t1218 = t551 * t370;
734 t1225 = t1114 * t557;
735 t1227 = t1118 * t535;
736 t1228 = t1117 * t1227;
737 t1231 = t1207 * t49 - 0.5e1 / 0.9e1 * t1209 * t81 + 0.5e1 / 0.72e2 * t1213 - 0.25e2 / 0.648e3 * t1216 - 0.5e1 / 0.27e2 * t1218 - 0.5e1 / 0.9e1 * t1106 * t198 + 0.25e2 / 0.81e2 * t1109 * t428 + 0.25e2 / 0.27e2 * t498 - 0.25e2 / 0.324e3 * t1225 + 0.125e3 / 0.486e3 * t1228 + 0.325e3 / 0.972e3 * t503;
738 t1233 = t536 * t1128;
739 t1235 = t535 * t705;
740 t1237 = t1131 * t1235 * t79;
741 t1240 = 0.98971193415637860079e-1 * t506 + 0.22839506172839506172e0 * t1233 + 0.22839506172839506173e0 * t1237 + 0.98971193415637860083e-1 * t509;
742 t1242 = t564 * t116;
743 t1245 = t1042 * t10;
744 t1246 = t1245 * t157;
745 t1248 = t1047 * t79;
746 t1249 = t1248 * t338;
747 t1251 = t566 * t370;
748 t1258 = t1151 * t557;
749 t1260 = t1154 * t1227;
750 t1263 = t1240 * t57 + 0.5e1 / 0.9e1 * t1242 * t81 - 0.5e1 / 0.72e2 * t1246 - 0.25e2 / 0.648e3 * t1249 + 0.5e1 / 0.27e2 * t1251 + 0.5e1 / 0.9e1 * t1143 * t198 + 0.25e2 / 0.81e2 * t1146 * t428 - 0.25e2 / 0.27e2 * t514 - 0.25e2 / 0.324e3 * t1258 - 0.125e3 / 0.486e3 * t1260 + 0.325e3 / 0.972e3 * t517;
751 t1264 = t1263 + t1231;
752 t1266 = t71 * t1264 * t62;
753 t1270 = t9 * t573 * t133;
754 t1276 = t180 * t468 * t132;
755 t1279 = t1066 * t418;
756 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
757 v3rhosigmatau[0] = -t325 * t575 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t1266 - 0.10155490000000000000e-2 * t129 * t1270 - 0.50777450000000000000e-3 * t407 * t579 + 0.38083087500000000000e-3 * t179 * t1276 + 0.41253590856040000001e-5 * t417 * t1279;
758
759 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
760 v3rholapl2[0] = 0.0e0;
761
762 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
763 v3rholapltau[0] = 0.0e0;
764
765 t1288 = t582 * t37;
766 t1293 = t486 * t224 * t260;
767 t1300 = 0.26483950617283950617e1 * t538 - 0.66569299383362331954e-1 * t582 * t346 - 0.33586378600823045267e1 * t540 + 0.84421758845223108740e-1 * t1288 * t1083 + 0.73965888203735924393e-1 * t544 - 0.30183592845795435478e-1 * t1293 * t1092 + 0.38278185588761108319e-1 * t897 * t582 * t81 - 0.93801954272470120823e-1 * t547;
768 t1302 = t595 * t102;
769 t1312 = t1118 * t224;
770 t1319 = t224 * t705;
771 t1324 = -0.60905349794238683127e0 * t560 - 0.18271604938271604938e1 * t582 * t1128 - 0.18271604938271604938e1 * t1131 * t1319 * t79 - 0.60905349794238683127e0 * t562;
772 t1326 = t607 * t116;
773 t1339 = t1300 * t49 - 0.5e1 / 0.9e1 * t1302 * t81 - 0.10e2 / 0.9e1 * t1212 * t198 + 0.50e2 / 0.81e2 * t1215 * t428 + 0.50e2 / 0.27e2 * t552 + 0.50e2 / 0.81e2 * t1114 * t600 - 0.500e3 / 0.243e3 * t1117 * t1312 - 0.500e3 / 0.243e3 * t558 + t1324 * t57 + 0.5e1 / 0.9e1 * t1326 * t81 + 0.10e2 / 0.9e1 * t1245 * t198 + 0.50e2 / 0.81e2 * t1248 * t428 - 0.50e2 / 0.27e2 * t567 + 0.50e2 / 0.81e2 * t1151 * t600 + 0.500e3 / 0.243e3 * t1154 * t1312 - 0.500e3 / 0.243e3 * t571;
774 t1341 = t71 * t1339 * t62;
775 t1345 = t9 * t613 * t133;
776 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
777 v3rhotau2[0] = -t325 * t615 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t1341 - 0.10155490000000000000e-2 * t129 * t1345;
778
779 t1348 = 0.1e1 / t760;
780 t1350 = t1348 * t94 * t42;
781 t1352 = t1348 * t37;
782 t1353 = t1352 * t261;
783 t1355 = t28 * t1348;
784 t1357 = t1355 * t260 * t675;
785 t1361 = t680 * t42 * t1348 * t160;
786 t1363 = 0.26003632571625910920e-3 * t1350 - 0.32977249548915276853e-3 * t1353 + 0.11790465955388841984e-3 * t1357 - 0.14952416245609807938e-3 * t1361;
787 t1365 = t1103 * t10;
788 t1366 = t1365 * t157;
789 t1368 = t794 * t9;
790 t1369 = t1368 * t502;
791 t1371 = t1348 * t705;
792 t1372 = t703 * t1371;
793 t1374 = t1371 * t286;
794 t1376 = t721 * t1371;
795 t1378 = 0.71373456790123456790e-2 * t1374 + 0.71373456790123456792e-2 * t1376;
796 t1380 = t1140 * t10;
797 t1381 = t1380 * t157;
798 t1383 = t786 * t9;
799 t1384 = t1383 * t502;
800 t1386 = t740 * t1371;
801 t1388 = t1363 * t49 + 0.5e1 / 0.24e2 * t1366 + 0.25e2 / 0.864e3 * t1369 + 0.125e3 / 0.15552e5 * t1372 + t1378 * t57 - 0.5e1 / 0.24e2 * t1381 + 0.25e2 / 0.864e3 * t1384 - 0.125e3 / 0.15552e5 * t1386;
802 t1390 = t71 * t1388 * t62;
803 t1394 = t180 * t519 * t132;
804 t1397 = t936 * t318;
805 t1401 = 0.1e1 / t18 / t312;
806 t1403 = t1401 * t2 * t4;
807 t1404 = t767 * t10;
808 t1405 = t316 * t1404;
809 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
810 v3sigma3[0] = -0.3e1 / 0.16e2 * t70 * t1390 + 0.11424926250000000000e-2 * t179 * t1394 - 0.46410289713045000000e-5 * t530 * t1397 + 0.47131923307793136705e-8 * t1403 * t1405;
811
812 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
813 v3sigma2lapl[0] = 0.0e0;
814
815 t1409 = t636 * t94 * t42;
816 t1411 = t636 * t37;
817 t1412 = t1411 * t261;
818 t1414 = t28 * t636;
819 t1416 = t1414 * t260 * t675;
820 t1420 = t680 * t42 * t636 * t160;
821 t1422 = -0.20802906057300728736e-2 * t1409 + 0.26381799639132221484e-2 * t1412 - 0.94323727643110735875e-3 * t1416 + 0.11961932996487846351e-2 * t1420;
822 t1424 = t1209 * t10;
823 t1425 = t1424 * t157;
824 t1427 = t1039 * t9;
825 t1428 = t1427 * t502;
826 t1432 = t1368 * t557;
827 t1434 = t636 * t705;
828 t1435 = t703 * t1434;
829 t1437 = t1434 * t286;
830 t1439 = t721 * t1434;
831 t1441 = -0.57098765432098765430e-1 * t1437 - 0.57098765432098765432e-1 * t1439;
832 t1443 = t1242 * t10;
833 t1444 = t1443 * t157;
834 t1446 = t1047 * t9;
835 t1447 = t1446 * t502;
836 t1451 = t1383 * t557;
837 t1453 = t740 * t1434;
838 t1455 = t1422 * t49 + 0.5e1 / 0.36e2 * t1425 + 0.25e2 / 0.2592e4 * t1428 - 0.5e1 / 0.9e1 * t1365 * t198 - 0.25e2 / 0.162e3 * t1432 - 0.125e3 / 0.1944e4 * t1435 + t1441 * t57 - 0.5e1 / 0.36e2 * t1444 + 0.25e2 / 0.2592e4 * t1447 + 0.5e1 / 0.9e1 * t1380 * t198 - 0.25e2 / 0.162e3 * t1451 + 0.125e3 / 0.1944e4 * t1453;
839 t1457 = t71 * t1455 * t62;
840 t1461 = t180 * t573 * t132;
841 t1464 = t1066 * t318;
842 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
843 v3sigma2tau[0] = -0.3e1 / 0.16e2 * t70 * t1457 + 0.76166175000000000000e-3 * t179 * t1461 - 0.15470096571015000000e-5 * t530 * t1464;
844
845 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
846 v3sigmalapl2[0] = 0.0e0;
847
848 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
849 v3sigmalapltau[0] = 0.0e0;
850
851 t1468 = t313 * t94 * t42;
852 t1470 = t313 * t37;
853 t1471 = t1470 * t261;
854 t1473 = t28 * t313;
855 t1475 = t1473 * t260 * t675;
856 t1479 = t680 * t42 * t313 * t160;
857 t1481 = 0.16642324845840582988e-1 * t1468 - 0.21105439711305777186e-1 * t1471 + 0.75458982114488588697e-2 * t1475 - 0.95695463971902770802e-2 * t1479;
858 t1483 = t1302 * t10;
859 t1484 = t1483 * t157;
860 t1488 = t1427 * t557;
861 t1492 = t313 * t705;
862 t1493 = t703 * t1492;
863 t1495 = t1492 * t286;
864 t1497 = t721 * t1492;
865 t1499 = 0.45679012345679012345e0 * t1495 + 0.45679012345679012345e0 * t1497;
866 t1501 = t1326 * t10;
867 t1502 = t1501 * t157;
868 t1506 = t1446 * t557;
869 t1510 = t740 * t1492;
870 t1512 = t1481 * t49 + 0.5e1 / 0.72e2 * t1484 - 0.10e2 / 0.9e1 * t1424 * t198 - 0.25e2 / 0.162e3 * t1488 + 0.50e2 / 0.81e2 * t1368 * t600 + 0.125e3 / 0.243e3 * t1493 + t1499 * t57 - 0.5e1 / 0.72e2 * t1502 + 0.10e2 / 0.9e1 * t1443 * t198 - 0.25e2 / 0.162e3 * t1506 + 0.50e2 / 0.81e2 * t1383 * t600 - 0.125e3 / 0.243e3 * t1510;
871 t1514 = t71 * t1512 * t62;
872 t1518 = t180 * t613 * t132;
873 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
874 v3sigmatau2[0] = -0.3e1 / 0.16e2 * t70 * t1514 + 0.38083087500000000000e-3 * t179 * t1518;
875
876 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
877 v3lapl3[0] = 0.0e0;
878
879 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
880 v3lapl2tau[0] = 0.0e0;
881
882 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
883 v3lapltau2[0] = 0.0e0;
884
885 t1524 = t415 * t37;
886 t1527 = t28 * t415;
887 t1535 = -0.13313859876672466391e0 * t415 * t94 * t42 + 0.16884351769044621747e0 * t1524 * t261 - 0.60367185691590870956e-1 * t1527 * t260 * t675 + 0.76556371177522216641e-1 * t680 * t42 * t415 * t160;
888 t1541 = t415 * t705;
889 t1548 = -0.36543209876543209876e1 * t1541 * t286 - 0.36543209876543209876e1 * t721 * t1541;
890 t1556 = t1535 * t49 - 0.5e1 / 0.3e1 * t1483 * t198 + 0.50e2 / 0.27e2 * t1427 * t600 - 0.1000e4 / 0.243e3 * t703 * t1541 + t1548 * t57 + 0.5e1 / 0.3e1 * t1501 * t198 + 0.50e2 / 0.27e2 * t1446 * t600 + 0.1000e4 / 0.243e3 * t740 * t1541;
891 t1558 = t71 * t1556 * t62;
892 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
893 v3tau3[0] = -0.3e1 / 0.16e2 * t70 * t1558;
894
895 #ifndef XC_DONT_COMPILE_LXC
896
897 if(order < 4) return;
898
899
900 t1561 = t7 * t303;
901 t1569 = 0.0;
902 t1570 = t55 * t1569;
903 t1571 = t241 * t241;
904 t1573 = t160 * t705;
905 t1576 = t236 * t236;
906 t1577 = t1576 * t84;
907 t1578 = t1577 * t87;
908 t1581 = t337 * t647;
909 t1594 = 0.6160e4 / 0.81e2 * t17 * t644 - 0.2618e4 / 0.81e2 * t22 * t1401;
910 t1595 = t1594 * t29;
911 t1601 = t236 * t705;
912 t1614 = t48 / t719 / t51;
913 t1618 = t241 * t705;
914 t1619 = t1618 * t236;
915 t1626 = t1595 * t34;
916 t1637 = 0.1e1 / t678 / t39;
917 t1675 = t42 * t84;
918 t1694 = 0.15113870370370370370e1 * t1578 * t248 - 0.90550778537386306439e-1 * t669 * t260 * t889 + 0.34711892100090877548e-1 * t258 * t1637 * t42 * t1571 * t337 + 0.25189783950617283951e0 * t88 * t95 * t42 * t1594 + 0.20151827160493827160e1 * t1581 * t97 + 0.11483455676628332496e0 * t897 * t898 * t34 * t236 + 0.42210879422611554372e-1 * t258 * t261 * t1576 + 0.56281172563482072496e-1 * t349 * t96 * t647 + 0.5e1 / 0.9e1 * t1626 * t43 - 0.15890370370370370370e1 * t1581 * t90 - 0.11917777777777777778e1 * t1577 * t244 + 0.76556371177522216641e-1 * t1571 * t37 * t679 * t675 - 0.19862962962962962963e0 * t88 * t1594 * t40 * t42 - 0.27371454575003443189e-1 * t28 * t1571 * t679 * t1675 * t87 - 0.19970789815008699586e0 * t236 * t241 * t149 + 0.25326527653566932623e0 * t236 * t37 * t262 - 0.60367185691590870959e-1 * t1571 * t260 * t675 - 0.44379532922241554636e-1 * t28 * t647 * t346 - 0.33284649691681165977e-1 * t28 * t1576 * t149;
919 t1698 = 0.0;
920 t1699 = t46 * t1698;
921 t1703 = t100 * t702;
922 t1706 = t114 * t739;
923 t1709 = 0.1250e4 / 0.2187e4 * t1570 * t1571 * t1573 + 0.25e2 / 0.27e2 * t298 * t1578 + 0.100e3 / 0.81e2 * t393 * t1581 + 0.100e3 / 0.27e2 * t802 * t653 + 0.25e2 / 0.27e2 * t275 * t1578 + 0.100e3 / 0.81e2 * t366 * t1581 + (-0.82222222222222222222e-1 * t1595 * t106 + 0.36543209876543209876e0 * t647 * t84 * t375 - 0.54814814814814814815e1 * t1601 * t286 * t241 + 0.27407407407407407407e0 * t1577 * t282 + 0.20301783264746227709e1 * t1571 * t705 * t720 * t29 * t34 + 0.20301783264746227709e1 * t1614 * t1571 * t1573 - 0.54814814814814814814e1 * t721 * t1619 + 0.27407407407407407407e0 * t287 * t1578 + 0.36543209876543209876e0 * t724 * t1581 - 0.82222222222222222222e-1 * t111 * t1626) * t57 + t1694 * t49 + 0.100e3 / 0.27e2 * t815 * t653 + 0.1250e4 / 0.2187e4 * t1699 * t1571 * t1573 - 0.1000e4 / 0.243e3 * t1703 * t706 + 0.1000e4 / 0.243e3 * t1706 * t706;
924 t1716 = t292 * t297;
925 t1727 = t729 * t116;
926 t1730 = t692 * t102;
927 t1735 = t269 * t274;
928 t1738 = 0.500e3 / 0.81e2 * t740 * t1619 + 0.5e1 / 0.9e1 * t117 * t1626 + 0.10e2 / 0.3e1 * t731 * t238 + 0.50e2 / 0.27e2 * t1716 * t247 + 0.20e2 / 0.9e1 * t294 * t649 - 0.20e2 / 0.9e1 * t271 * t649 - 0.500e3 / 0.81e2 * t703 * t1619 - 0.5e1 / 0.9e1 * t103 * t1626 + 0.20e2 / 0.9e1 * t1727 * t81 - 0.20e2 / 0.9e1 * t1730 * t81 - 0.10e2 / 0.3e1 * t694 * t238 + 0.50e2 / 0.27e2 * t1735 * t247;
929 t1744 = t120 * t767;
930 t1754 = 0.1e1 / t766 / t61;
931 t1755 = t59 * t1754;
932 t1756 = t319 * t319;
933 t1765 = t760 * t23;
934 t1767 = 0.1e1 / t18 / t1765;
935 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
936 v4rho4[0] = -0.66005745369664000002e-4 * t315 * t1561 * t320 + 0.30802681172509866668e-3 * t8 * t636 * t120 * t320 - 0.3e1 / 0.16e2 * t70 * t71 * (t1738 + t1709) * t62 - 0.35750436642355682954e-6 * t765 * t1744 * t770 - 0.19363370763577424784e-8 / t11 / t760 / t414 * t2 * t128 * t1755 * t1756 * t9 - 0.40621960000000000000e-2 * t129 * t9 * t747 * t133 + 0.14896015267648201231e-5 * t5 * t7 * t1767 * t771 + 0.60932939999999999999e-2 * t222 * t224 * t303 * t133 - 0.5e1 / 0.54e2 * t8 * t137 * t63 + 0.16925816666666666665e-1 * t222 * t478 * t59 * t133 - 0.15346073777777777778e-1 * t222 * t535 * t120 * t133 - 0.58060609352945185186e-3 * t8 * t1348 * t59 * t320 - t8 * t12 * t748 + 0.2e1 / 0.9e1 * t8 * t185 * t121 - t8 * t215 * t304 / 0.2e1;
937
938 t1816 = t172 * t767;
939 t1820 = t535 * t2;
940 t1833 = t636 * t2 * t4;
941 t1838 = t7 * t398;
942 t1848 = t1820 * t128;
943 t1852 = t20 * t2 * t4;
944 t1855 = t167 * t739;
945 t1858 = t153 * t702;
946 t1865 = t79 * t236;
947 t1872 = t87 * t647;
948 t1877 = t644 * t29 * t34;
949 t1881 = t720 * t658 * t160;
950 t1884 = t10 * t644;
951 t1887 = t823 * t84;
952 t1893 = t286 * t79 * t236;
953 t1896 = t282 * t647;
954 t1900 = t706 * t160;
955 t1909 = -0.91358024691358024694e0 * t836 * t76 * t705 * t241 + 0.34259259259259259261e0 * t836 * t837 * t1865 + 0.91358024691358024694e-1 * t378 * t841 * t845 - 0.11419753086419753087e-1 * t378 * t379 * t1872 - 0.46897119341563786008e0 * t164 * t1877 - 0.25377229080932784637e0 * t913 * t1881 - 0.46897119341563786008e0 * t1884 * t161 - 0.33497942386831275721e0 * t1887 * t375 + 0.91358024691358024694e-1 * t826 * t833 + 0.34259259259259259261e0 * t913 * t1893 - 0.11419753086419753087e-1 * t332 * t1896 - 0.25377229080932784638e0 * t1614 * t137 * t1900 - 0.33497942386831275721e0 * t378 * t233 * t84 * t333 - 0.91358024691358024694e0 * t328 * t830;
956 t1911 = t1730 * t10;
957 t1914 = t1727 * t10;
958 t1917 = t1706 * t241;
959 t1922 = t1703 * t241;
960 t1940 = t912 * t76;
961 t1949 = t1735 * t79;
962 t1952 = t697 * t236;
963 t1955 = 0.25e2 / 0.27e2 * t1109 * t653 - 0.770e3 / 0.243e3 * t155 * t1877 + 0.55e2 / 0.27e2 * t363 * t809 + 0.770e3 / 0.243e3 * t169 * t1877 - 0.55e2 / 0.27e2 * t390 * t809 + 0.250e3 / 0.243e3 * t911 * t1940 - 0.250e3 / 0.243e3 * t916 * t1940 + 0.25e2 / 0.81e2 * t818 * t878 + 0.25e2 / 0.81e2 * t805 * t878 - 0.25e2 / 0.216e3 * t1949 * t338 - 0.25e2 / 0.216e3 * t1952 * t338;
964 t1959 = t1716 * t79;
965 t1962 = t734 * t236;
966 t1965 = t298 * t647;
967 t1968 = t1601 * t137;
968 t1971 = t337 * t823;
969 t1974 = t275 * t647;
970 t1985 = t258 * t896 * t10;
971 t2000 = t149 * t647;
972 t2004 = t261 * t160;
973 t2017 = t1872 * t140;
974 t2027 = -0.71771597978927078097e-2 * t1985 * t857 * t81 + 0.42210879422611554370e-1 * t328 * t37 * t262 + 0.40681238512054758415e-1 * t344 * t233 * t346 + 0.12481743634380437241e-1 * t137 * t79 * t872 - 0.11094883230560388659e-1 * t869 * t872 + 0.13868604038200485824e-2 * t345 * t2000 + 0.75458982114488588696e-2 * t137 * t658 * t2004 - 0.15829079783479332889e-1 * t79 * t37 * t260 * t858 - 0.17587866426088147654e-2 * t349 * t350 * t25 * t647 - 0.39725925925925925924e0 * t826 * t863 + 0.49657407407407407406e-1 * t332 * t2017 - 0.11329245541838134430e1 * t88 * t1884 * t140 - 0.51591074849858566452e-1 * t349 * t350 * t233 * t79;
975 t2047 = t258 * t1637 * t42;
976 t2049 = t658 * t84 * t87;
977 t2062 = t681 * t337;
978 t2065 = t37 * t679;
979 t2077 = 0.14070293140870518123e-1 * t349 * t350 * t76 * t236 + 0.14566172839506172838e1 * t1887 * t334 + 0.770e3 / 0.243e3 * t1884 * t29 * t141 + 0.56594236585866441522e-2 * t28 * t79 * t160 * t261 * t137 * t236 + 0.19139092794380554159e-1 * t897 * t328 * t899 - 0.43389865125113596934e-2 * t2047 * t137 * t2049 + 0.14367506401463191586e1 * t148 * t149 * t1884 + 0.50379567901234567902e0 * t878 * t266 - 0.62974459876543209876e-1 * t338 * t689 + 0.34214318218754303985e-2 * t344 * t25 * t679 * t2062 - 0.95695463971902770797e-2 * t137 * t2065 * t682 - 0.15091796422897717739e-1 * t344 * t76 * t260 * t889 - 0.18472508230452674898e1 * t1971 * t97 - 0.33284649691681165976e-1 * t328 * t854;
980 t2084 = t385 * t297;
981 t2087 = t906 * t102;
982 t2092 = t358 * t274;
983 t2097 = t851 * t116;
984 t2100 = t658 * t29;
985 t2101 = t1570 * t2100;
986 t2102 = t34 * t705;
987 t2103 = t2102 * t137;
988 t2106 = t1699 * t2100;
989 t2109 = (t2077 + t2027) * t49 + 0.5e1 / 0.3e1 * t797 * t238 + 0.5e1 / 0.9e1 * t387 * t649 + 0.25e2 / 0.27e2 * t2084 * t247 - 0.5e1 / 0.3e1 * t2087 * t81 - 0.5e1 / 0.3e1 * t789 * t238 + 0.25e2 / 0.27e2 * t2092 * t247 - 0.5e1 / 0.9e1 * t360 * t649 + 0.5e1 / 0.3e1 * t2097 * t81 - 0.625e3 / 0.8748e4 * t2101 * t2103 - 0.625e3 / 0.8748e4 * t2106 * t2103;
990 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
991 v4rho3sigma[0] = 0.12376077256812000000e-4 * t417 * t1561 * t418 + 0.10054810305662535831e-6 * t957 * t1744 * t958 + 0.72612640363415342938e-9 / t11 / t760 / t231 * t2 * t128 * t1755 * t769 * t9 - 0.50274051528312679154e-6 * t765 * t959 - 0.89376091605889207385e-7 * t765 * t1816 * t770 - 0.39493572222222222223e-2 * t1820 * t4 * t182 - 0.78381822626476000002e-4 * t315 * t951 + 0.38083087500000000000e-3 * t179 * t180 * t747 * t132 + 0.35544215000000000000e-2 * t940 * t411 + 0.16959809574149777778e-3 * t1833 * t419 - 0.15233235000000000000e-2 * t407 * t948 - 0.33002872684832000001e-4 * t315 * t1838 * t320 - 0.30466470000000000000e-2 * t129 * t9 * t927 * t133 + 0.30466469999999999999e-2 * t781 * t933 - 0.38365184444444444441e-2 * t1848 * t404 + t1852 * t174 / 0.18e2 - 0.3e1 / 0.16e2 * t70 * t71 * (t2109 + 0.50e2 / 0.81e2 * t802 * t878 - 0.25e2 / 0.216e3 * t1959 * t338 - 0.25e2 / 0.216e3 * t1962 * t338 - 0.25e2 / 0.648e3 * t1965 * t338 - 0.125e3 / 0.324e3 * t1154 * t1968 - 0.275e3 / 0.243e3 * t393 * t1971 - 0.25e2 / 0.648e3 * t1974 * t338 + 0.125e3 / 0.324e3 * t1117 * t1968 - 0.275e3 / 0.243e3 * t366 * t1971 + 0.50e2 / 0.81e2 * t815 * t878 + t1955 + 0.250e3 / 0.243e3 * t1855 * t706 - 0.250e3 / 0.243e3 * t1858 * t706 + t1909 * t57 + 0.5e1 / 0.72e2 * t1911 * t157 - 0.5e1 / 0.72e2 * t1914 * t157 - 0.125e3 / 0.324e3 * t1917 * t913 - 0.5e1 / 0.9e1 * t919 * t370 + 0.125e3 / 0.324e3 * t1922 * t913 + 0.5e1 / 0.9e1 * t908 * t370 + 0.25e2 / 0.27e2 * t1146 * t653) * t62 + 0.77006702931274666668e-4 * t1833 * t937 - 0.3e1 / 0.4e1 * t325 * t929 - t775 * t400 / 0.4e1;
992
993 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
994 v4rho3lapl[0] = 0.0e0;
995
996 t2161 = t1601 * t185;
997 t2170 = 0.25e2 / 0.27e2 * t1215 * t653 - 0.5e1 / 0.9e1 * t1911 * t198 - 0.250e3 / 0.81e2 * t1922 * t995 + 0.5e1 / 0.9e1 * t1914 * t198 + 0.25e2 / 0.27e2 * t1959 * t428 + 0.25e2 / 0.27e2 * t1962 * t428 + 0.25e2 / 0.81e2 * t1965 * t428 + 0.250e3 / 0.81e2 * t1154 * t2161 + 0.25e2 / 0.27e2 * t1952 * t428 + 0.25e2 / 0.81e2 * t1974 * t428 - 0.250e3 / 0.81e2 * t1117 * t2161;
998 t2174 = t195 * t702;
999 t2177 = t205 * t739;
1000 t2180 = t1031 * t102;
1001 t2185 = t440 * t274;
1002 t2192 = t458 * t297;
1003 t2198 = t983 * t116;
1004 t2225 = -0.21105439711305777186e0 * t867 - 0.14793177640747184879e0 * t870 + 0.55474416152801943294e-1 * t873 + 0.16642324845840582989e0 * t855 + 0.67172757201646090536e1 * t879 - 0.25189783950617283951e1 * t881 + 0.75458982114488588697e-1 * t890 - 0.41050018289894833105e1 * t904 - 0.95695463971902770800e-1 * t901 - 0.99853949075043497931e-1 * t185 * t79 * t872 - 0.11094883230560388659e-1 * t432 * t2000 + 0.57417278383141662480e-1 * t1985 * t1010 * t81 - 0.60367185691590870959e-1 * t658 * t10 * t20 * t2004;
1005 t2256 = 0.12663263826783466312e0 * t1014 * t261 * t1865 - 0.39725925925925925926e0 * t425 * t2017 + 0.14070293140870518124e-1 * t349 * t350 * t20 * t647 + 0.34711892100090877548e-1 * t2047 * t185 * t2049 - 0.45275389268693153220e-1 * t1005 * t96 * t238 - 0.70351465704352590620e-1 * t859 - 0.52967901234567901236e1 * t861 + 0.19862962962962962963e1 * t864 - 0.2200e4 / 0.243e3 * t876 + 0.32369272976680384088e1 * t884 + 0.18760390854494024165e0 * t894 - 0.27371454575003443189e-1 * t344 * t20 * t679 * t2062 + 0.76556371177522216641e-1 * t185 * t2065 * t682 + 0.50379567901234567902e0 * t428 * t689;
1006 t2262 = t2102 * t185;
1007 t2290 = 0.20301783264746227709e1 * t1614 * t185 * t1900 + 0.20301783264746227709e1 * t995 * t1881 - 0.27407407407407407407e1 * t836 * t974 * t1865 + 0.91358024691358024691e-1 * t378 * t453 * t1872 - 0.27407407407407407407e1 * t995 * t1893 + 0.91358024691358024692e-1 * t425 * t1896 + 0.45679012345679012346e1 * t831 - 0.45679012345679012346e0 * t847 + 0.13399176954732510288e1 * t849 + 0.13399176954732510288e1 * t824 + 0.12181069958847736626e1 * t827 - 0.45679012345679012346e0 * t834 + 0.45679012345679012346e1 * t839 + 0.12181069958847736626e1 * t843;
1008 t2292 = 0.5e1 / 0.3e1 * t2198 * t81 - 0.250e3 / 0.81e2 * t803 - 0.125e3 / 0.81e2 * t806 - 0.250e3 / 0.81e2 * t816 + (t2256 + t2225) * t49 + 0.1000e4 / 0.243e3 * t922 + 0.1000e4 / 0.243e3 * t924 - 0.125e3 / 0.81e2 * t819 + 0.1250e4 / 0.2187e4 * t2101 * t2262 + 0.1250e4 / 0.2187e4 * t2106 * t2262 + t2290 * t57;
1009 t2303 = t7 * t468;
1010 t2307 = t209 * t767;
1011 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1012 v4rho3tau[0] = t1852 * t211 / 0.18e2 - t775 * t470 / 0.4e1 - 0.38365184444444444441e-2 * t1848 * t474 - 0.3e1 / 0.4e1 * t325 * t1059 + 0.30466469999999999999e-2 * t781 * t1063 + 0.77006702931274666668e-4 * t1833 * t1067 - 0.3e1 / 0.16e2 * t70 * t71 * (t2292 + 0.25e2 / 0.27e2 * t1949 * t428 - 0.250e3 / 0.243e3 * t2174 * t706 + 0.250e3 / 0.243e3 * t2177 * t706 - 0.5e1 / 0.3e1 * t2180 * t81 - 0.5e1 / 0.3e1 * t1033 * t238 + 0.25e2 / 0.27e2 * t2185 * t247 - 0.5e1 / 0.9e1 * t442 * t649 + 0.5e1 / 0.3e1 * t1042 * t238 + 0.25e2 / 0.27e2 * t2192 * t247 + 0.5e1 / 0.9e1 * t460 * t649 + t2170 + 0.2200e4 / 0.243e3 * t821 - 0.25e2 / 0.9e1 * t909 - 0.1250e4 / 0.243e3 * t914 + 0.1250e4 / 0.243e3 * t917 + 0.25e2 / 0.9e1 * t920 + 0.200e3 / 0.27e2 * t800 - 0.2200e4 / 0.243e3 * t810 - 0.200e3 / 0.27e2 * t812 + 0.250e3 / 0.81e2 * t1917 * t995 + 0.25e2 / 0.27e2 * t1248 * t653) * t62 - 0.30466470000000000000e-2 * t129 * t9 * t1057 * t133 - 0.33002872684832000001e-4 * t315 * t2303 * t320 - 0.89376091605889207385e-7 * t765 * t2307 * t770;
1013
1014 t2327 = t7 * t519;
1015 t2358 = t794 * t236;
1016 t2361 = t2092 * t79;
1017 t2366 = t2084 * t79;
1018 t2369 = t786 * t236;
1019 t2372 = t2087 * t10;
1020 t2375 = t1858 * t241;
1021 t2378 = t1735 * t9;
1022 t2383 = t1118 * t1073;
1023 t2387 = 0.1e1 / t11 / t635;
1024 t2389 = t2387 * t84 * t87;
1025 t2396 = t740 * t236;
1026 t2399 = t1855 * t241;
1027 t2402 = t1716 * t9;
1028 t2405 = t1706 * t79;
1029 t2408 = 0.100e3 / 0.243e3 * t1109 * t878 - 0.25e2 / 0.324e3 * t2358 * t338 - 0.25e2 / 0.162e3 * t2361 * t338 + 0.100e3 / 0.243e3 * t1146 * t878 - 0.25e2 / 0.162e3 * t2366 * t338 - 0.25e2 / 0.324e3 * t2369 * t338 + 0.5e1 / 0.36e2 * t2372 * t157 + 0.125e3 / 0.486e3 * t2375 * t913 + 0.25e2 / 0.2592e4 * t2378 * t502 - 0.25e2 / 0.243e3 * t1114 * t1123 + 0.250e3 / 0.729e3 * t1117 * t2383 + 0.475e3 / 0.1458e4 * t500 * t2389 + 0.110e3 / 0.81e2 * t497 * t809 - 0.20e2 / 0.27e2 * t1106 * t370 + 0.125e3 / 0.3888e4 * t2396 * t1119 - 0.125e3 / 0.486e3 * t2399 * t913 + 0.25e2 / 0.2592e4 * t2402 * t502 + 0.125e3 / 0.1944e4 * t2405 * t1119;
1030 t2409 = t2097 * t10;
1031 t2412 = t1703 * t79;
1032 t2415 = t703 * t236;
1033 t2428 = t9 * t2387;
1034 t2434 = t720 * t241 * t160;
1035 t2437 = t829 * t236;
1036 t2441 = t1618 * t160;
1037 t2461 = t2428 * t84;
1038 t2467 = t261 * t236;
1039 t2483 = t265 * t160;
1040 t2488 = t888 * t337;
1041 t2504 = -0.18864745528622147174e-2 * t479 * t260 * t889 + 0.14851976093141102464e-1 * t349 * t491 * t2387 - 0.41932921810699588478e0 * t2461 * t244 - 0.14070293140870518124e-1 * t1074 * t37 * t1083 + 0.13190899819566110741e-2 * t1082 * t2467 - 0.11711265632258188029e-1 * t486 * t2387 * t94 * t42 + 0.53178432784636488340e0 * t2461 * t483 + 0.23923865992975692700e-2 * t479 * t2065 * t889 + 0.50305988076325725797e-2 * t486 * t1073 * t260 * t1092 - 0.47161863821555367934e-3 * t1091 * t2483 - 0.85535795546885759963e-3 * t486 * t478 * t679 * t2488 + 0.59809664982439231750e-3 * t897 * t479 * t238 + 0.10847466281278399234e-2 * t2047 * t479 * t247 - 0.63796975981268513866e-2 * t897 * t1074 * t81 + 0.11094883230560388659e-1 * t1074 * t346 - 0.10401453028650364368e-2 * t479 * t872;
1042 t2506 = t1699 * t898;
1043 t2507 = t2102 * t479;
1044 t2512 = t495 * t274;
1045 t2515 = t1138 * t116;
1046 t2520 = t511 * t297;
1047 t2523 = t1101 * t102;
1048 t2526 = t1570 * t898;
1049 t2529 = -0.5e1 / 0.36e2 * t2409 * t157 - 0.125e3 / 0.1944e4 * t2412 * t1119 - 0.125e3 / 0.3888e4 * t2415 * t1119 + 0.475e3 / 0.1458e4 * t516 * t2389 - 0.110e3 / 0.81e2 * t513 * t809 - 0.25e2 / 0.243e3 * t1151 * t1123 - 0.250e3 / 0.729e3 * t1154 * t2383 + 0.20e2 / 0.27e2 * t1143 * t370 + (0.96433470507544581619e-1 * t2428 * t505 + 0.30452674897119341564e0 * t1074 * t1128 + 0.63443072702331961591e-1 * t1119 * t2434 - 0.28549382716049382716e-1 * t479 * t2437 + 0.63443072702331961593e-1 * t1614 * t479 * t2441 + 0.30452674897119341564e0 * t1131 * t1073 * t705 * t79 - 0.28549382716049382717e-1 * t1131 * t1132 * t236 + 0.96433470507544581619e-1 * t508 * t2389) * t57 + t2504 * t49 + 0.625e3 / 0.34992e5 * t2506 * t2507 - 0.5e1 / 0.9e1 * t1103 * t238 + 0.25e2 / 0.81e2 * t2512 * t247 + 0.10e2 / 0.9e1 * t2515 * t81 + 0.5e1 / 0.9e1 * t1140 * t238 + 0.25e2 / 0.81e2 * t2520 * t247 - 0.10e2 / 0.9e1 * t2523 * t81 + 0.625e3 / 0.34992e5 * t2526 * t2507;
1050 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1051 v4rho2sigma2[0] = -0.15470096571015000000e-5 * t530 * t1561 * t318 + 0.12376077256812000000e-4 * t417 * t1179 - 0.30940193142030000000e-4 * t315 * t531 + 0.16501436342416000001e-4 * t417 * t1838 * t418 - 0.52254548417650666669e-4 * t315 * t1174 + 0.76166175000000000000e-3 * t179 * t180 * t927 * t132 - 0.11000957561610666667e-4 * t315 * t2327 * t320 - 0.20310980000000000000e-2 * t407 * t1171 - 0.27229740136280753601e-9 / t11 / t760 / t74 * t2 * t128 * t1755 * t319 * t9 + 0.67032068704416905539e-7 * t957 * t1816 * t958 + 0.14663265029091198086e-6 * t957 * t1186 - 0.25137025764156339576e-7 * t1185 * t1744 * t22 + 0.23696143333333333333e-2 * t940 * t525 - 0.20310980000000000000e-2 * t129 * t9 * t1159 * t133 - 0.3e1 / 0.16e2 * t70 * t71 * (t2529 + t2408) * t62 - t325 * t1161 / 0.2e1 + 0.10155489999999999999e-2 * t781 * t1165 - t775 * t521 / 0.12e2;
1052
1053 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1054 v4rho2sigmalapl[0] = 0.0e0;
1055
1056 t2547 = t2185 * t79;
1057 t2552 = t1047 * t236;
1058 t2559 = t1039 * t236;
1059 t2564 = t2192 * t79;
1060 t2573 = t2180 * t10;
1061 t2576 = -0.25e2 / 0.324e3 * t2547 * t338 + 0.50e2 / 0.243e3 * t1215 * t878 - 0.25e2 / 0.648e3 * t2552 * t338 + 0.50e2 / 0.81e2 * t2361 * t428 + 0.25e2 / 0.81e2 * t2358 * t428 - 0.25e2 / 0.648e3 * t2559 * t338 + 0.50e2 / 0.81e2 * t2366 * t428 - 0.25e2 / 0.324e3 * t2564 * t338 + 0.25e2 / 0.81e2 * t2369 * t428 + 0.50e2 / 0.243e3 * t1248 * t878 - 0.250e3 / 0.243e3 * t2375 * t995 + 0.5e1 / 0.72e2 * t2573 * t157;
1062 t2585 = t2174 * t241;
1063 t2604 = 0.10e2 / 0.27e2 * t1245 * t370 - 0.55e2 / 0.81e2 * t566 * t809 + 0.55e2 / 0.81e2 * t551 * t809 - 0.10e2 / 0.27e2 * t1212 * t370 + 0.125e3 / 0.972e3 * t2585 * t913 - 0.5e1 / 0.9e1 * t2372 * t198 - 0.25e2 / 0.324e3 * t2378 * t557 + 0.125e3 / 0.243e3 * t2412 * t1227 + 0.125e3 / 0.486e3 * t2415 * t1227 - 0.125e3 / 0.243e3 * t2405 * t1227 - 0.125e3 / 0.486e3 * t2396 * t1227 + 0.250e3 / 0.243e3 * t2399 * t995 - 0.25e2 / 0.324e3 * t2402 * t557;
1064 t2606 = t2177 * t241;
1065 t2611 = t2198 * t10;
1066 t2660 = 0.15091796422897717740e-1 * t536 * t260 * t889 - 0.19139092794380554160e-1 * t536 * t2065 * t889 + 0.37729491057244294349e-2 * t1200 * t2483 + 0.68428636437508607974e-2 * t486 * t535 * t679 * t2488 - 0.10552719855652888593e-1 * t1195 * t2467 + 0.83211624229202914944e-2 * t536 * t872 - 0.47847731985951385402e-2 * t897 * t536 * t238 - 0.86779730250227193874e-2 * t2047 * t536 * t247 - 0.32698892249611721770e-1 * t1093 - 0.29108194787379972567e1 * t1080 - 0.81295027036140771387e-1 * t1099 + 0.22952757201646090535e1 * t1076 + 0.91456905415658367808e-1 * t1084 + 0.64103769776571134475e-1 * t1088 + 0.41468034387824534016e-1 * t1096 - 0.72116740998642526285e-1 * t1078;
1067 t2662 = t564 * t297;
1068 t2665 = t1207 * t102;
1069 t2670 = t549 * t274;
1070 t2673 = t1240 * t116;
1071 t2676 = t2102 * t536;
1072 t2681 = -0.125e3 / 0.972e3 * t2606 * t913 + 0.5e1 / 0.9e1 * t2409 * t198 - 0.5e1 / 0.72e2 * t2611 * t157 + (-0.52784636488340192042e0 * t1126 - 0.19794238683127572016e1 * t1129 - 0.50754458161865569271e0 * t1227 * t2434 + 0.22839506172839506172e0 * t536 * t2437 - 0.50754458161865569273e0 * t1614 * t536 * t2441 - 0.19794238683127572017e1 * t1134 + 0.22839506172839506173e0 * t1131 * t1235 * t236 - 0.52784636488340192044e0 * t1136) * t57 + t2660 * t49 + 0.25e2 / 0.81e2 * t2662 * t247 - 0.10e2 / 0.9e1 * t2665 * t81 - 0.5e1 / 0.9e1 * t1209 * t238 + 0.25e2 / 0.81e2 * t2670 * t247 + 0.10e2 / 0.9e1 * t2673 * t81 - 0.625e3 / 0.4374e4 * t2526 * t2676 - 0.625e3 / 0.4374e4 * t2506 * t2676;
1073 t2696 = 0.5e1 / 0.9e1 * t1242 * t238 - 0.250e3 / 0.243e3 * t1147 - 0.250e3 / 0.243e3 * t1110 - 0.50e2 / 0.27e2 * t1144 + 0.200e3 / 0.81e2 * t1149 + 0.325e3 / 0.486e3 * t1152 + 0.1625e4 / 0.729e3 * t1155 - 0.1300e4 / 0.729e3 * t1157 + 0.50e2 / 0.27e2 * t1107 - 0.200e3 / 0.81e2 * t1112 + 0.325e3 / 0.486e3 * t1115 - 0.1625e4 / 0.729e3 * t1120 - 0.1300e4 / 0.729e3 * t1124;
1074 t2707 = t7 * t573;
1075 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1076 v4rho2sigmatau[0] = -t775 * t575 / 0.12e2 - t325 * t1266 / 0.2e1 + 0.10155489999999999999e-2 * t781 * t1270 - 0.3e1 / 0.16e2 * t70 * t71 * (t2696 + t2681 + t2604 + t2576) * t62 - 0.20310980000000000000e-2 * t129 * t9 * t1264 * t133 - 0.11000957561610666667e-4 * t315 * t2707 * t320 + 0.11848071666666666667e-2 * t940 * t579 - 0.10155490000000000000e-2 * t407 * t1276 - 0.26127274208825333334e-4 * t315 * t1279 + 0.38083087500000000000e-3 * t179 * t180 * t1057 * t132 + 0.82507181712080000002e-5 * t417 * t2303 * t418 + 0.33516034352208452769e-7 * t957 * t2307 * t958;
1077
1078 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1079 v4rho2lapl2[0] = 0.0e0;
1080
1081 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1082 v4rho2lapltau[0] = 0.0e0;
1083
1084 t2793 = -0.12073437138318174191e0 * t582 * t260 * t889 - 0.66569299383362331954e-1 * t582 * t872 + 0.84421758845223108740e-1 * t1288 * t2467 + 0.15311274235504443328e0 * t582 * t2065 * t889 - 0.30183592845795435478e-1 * t1293 * t2483 - 0.54742909150006886376e-1 * t486 * t224 * t679 * t2488 + 0.38278185588761108319e-1 * t897 * t582 * t238 + 0.69423784200181755095e-1 * t2047 * t582 * t247 + 0.20122395230530290318e0 * t1201 + 0.44379532922241554635e0 * t1192 - 0.56281172563482072493e0 * t1196 - 0.25518790392507405546e0 * t1204 - 0.32051884888285567237e0 * t489 + 0.14554097393689986282e2 * t484 - 0.11476378600823045267e2 * t481 + 0.40647513518070385690e0 * t493;
1085 t2811 = 0.6500e4 / 0.729e3 * t503 + 0.6500e4 / 0.729e3 * t517 + 0.10e2 / 0.9e1 * t2611 * t198 + 0.500e3 / 0.243e3 * t2606 * t995 - 0.500e3 / 0.243e3 * t2415 * t1312 - 0.500e3 / 0.243e3 * t2585 * t995 + 0.50e2 / 0.81e2 * t2378 * t600 - 0.1000e4 / 0.243e3 * t2412 * t1312 - 0.10e2 / 0.9e1 * t2573 * t198 + 0.50e2 / 0.81e2 * t2402 * t600 + 0.1000e4 / 0.243e3 * t2405 * t1312 + 0.500e3 / 0.243e3 * t2396 * t1312 + 0.50e2 / 0.81e2 * t2552 * t428 + 0.100e3 / 0.81e2 * t2564 * t428 + 0.100e3 / 0.81e2 * t2547 * t428 + 0.50e2 / 0.81e2 * t2559 * t428 + t2793 * t49 + (0.26392318244170096022e1 * t506 + 0.12181069958847736625e2 * t1233 + 0.40603566529492455417e1 * t1312 * t2434 - 0.18271604938271604938e1 * t582 * t2437 + 0.40603566529492455418e1 * t1614 * t582 * t2441 + 0.12181069958847736625e2 * t1237 - 0.18271604938271604938e1 * t1131 * t1319 * t236 + 0.26392318244170096022e1 * t509) * t57;
1086 t2812 = t2102 * t582;
1087 t2819 = t595 * t274;
1088 t2822 = t1324 * t116;
1089 t2827 = t607 * t297;
1090 t2830 = t1300 * t102;
1091 t2843 = 0.2500e4 / 0.2187e4 * t2526 * t2812 + 0.2500e4 / 0.2187e4 * t2506 * t2812 - 0.5e1 / 0.9e1 * t1302 * t238 + 0.25e2 / 0.81e2 * t2819 * t247 + 0.10e2 / 0.9e1 * t2822 * t81 + 0.5e1 / 0.9e1 * t1326 * t238 + 0.25e2 / 0.81e2 * t2827 * t247 - 0.10e2 / 0.9e1 * t2830 * t81 - 0.500e3 / 0.243e3 * t1249 - 0.500e3 / 0.243e3 * t1216 - 0.100e3 / 0.27e2 * t1246 + 0.400e3 / 0.81e2 * t1251 - 0.1000e4 / 0.243e3 * t1258 - 0.10000e5 / 0.729e3 * t1260 + 0.100e3 / 0.27e2 * t1213 - 0.400e3 / 0.81e2 * t1218 - 0.1000e4 / 0.243e3 * t1225 + 0.10000e5 / 0.729e3 * t1228;
1092 t2853 = t7 * t613;
1093 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1094 v4rho2tau2[0] = -t775 * t615 / 0.12e2 - t325 * t1341 / 0.2e1 + 0.10155489999999999999e-2 * t781 * t1345 - 0.3e1 / 0.16e2 * t70 * t71 * (t2843 + t2811) * t62 - 0.20310980000000000000e-2 * t129 * t9 * t1339 * t133 - 0.11000957561610666667e-4 * t315 * t2853 * t320;
1095
1096 t2859 = 0.1e1 / t761;
1097 t2878 = t1675 * t333;
1098 t2891 = t1363 * t102;
1099 t2894 = t2523 * t10;
1100 t2897 = t2512 * t79;
1101 t2902 = t2092 * t9;
1102 t2905 = t1858 * t79;
1103 t2912 = t1699 * t79;
1104 t2913 = t160 * t1371;
1105 t2916 = t2859 * t705;
1106 t2919 = (-0.20802906057300728736e-2 * t2859 * t94 * t42 + 0.47161863821555367936e-3 * t1348 * t260 * t42 * t81 + 0.26381799639132221482e-2 * t2859 * t37 * t261 - 0.59809664982439231751e-3 * t1352 * t679 * t1092 - 0.94323727643110735872e-3 * t28 * t2859 * t260 * t675 + 0.21383948886721439992e-3 * t1355 * t679 * t2878 - 0.27118665703195998086e-3 * t2047 * t1348 * t84 * t333 + 0.11961932996487846350e-2 * t680 * t42 * t2859 * t160) * t49 - 0.5e1 / 0.9e1 * t2891 * t81 + 0.5e1 / 0.24e2 * t2894 * t157 - 0.25e2 / 0.216e3 * t2897 * t338 - 0.5e1 / 0.9e1 * t1365 * t370 + 0.25e2 / 0.864e3 * t2902 * t502 - 0.125e3 / 0.1296e4 * t2905 * t1119 - 0.25e2 / 0.162e3 * t1368 * t1123 + 0.125e3 / 0.15552e5 * t1703 * t1371 - 0.625e3 / 0.139968e6 * t2912 * t2913 - 0.125e3 / 0.1944e4 * t703 * t2916;
1107 t2927 = t705 * t79 * t160;
1108 t2934 = t1378 * t116;
1109 t2937 = t2515 * t10;
1110 t2940 = t2520 * t79;
1111 t2945 = t2084 * t9;
1112 t2948 = t1855 * t79;
1113 t2955 = t1570 * t79;
1114 t2960 = (-0.57098765432098765432e-1 * t2916 * t286 - 0.15860768175582990398e-1 * t1371 * t720 * t81 - 0.15860768175582990398e-1 * t1614 * t1348 * t2927 - 0.57098765432098765434e-1 * t721 * t2916) * t57 + 0.5e1 / 0.9e1 * t2934 * t81 - 0.5e1 / 0.24e2 * t2937 * t157 - 0.25e2 / 0.216e3 * t2940 * t338 + 0.5e1 / 0.9e1 * t1380 * t370 + 0.25e2 / 0.864e3 * t2945 * t502 + 0.125e3 / 0.1296e4 * t2948 * t1119 - 0.25e2 / 0.162e3 * t1383 * t1123 - 0.125e3 / 0.15552e5 * t1706 * t1371 - 0.625e3 / 0.139968e6 * t2955 * t2913 + 0.125e3 / 0.1944e4 * t740 * t2916;
1115 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1116 v4rhosigma3[0] = -t325 * t1390 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t71 * (t2960 + t2919) * t62 - 0.10155490000000000000e-2 * t129 * t9 * t1388 * t133 - 0.15233235000000000000e-2 * t407 * t1394 + 0.11424926250000000000e-2 * t179 * t180 * t1159 * t132 + 0.12376077256812000000e-4 * t417 * t2327 * t418 + 0.18564115885218000000e-4 * t417 * t1397 - 0.46410289713045000000e-5 * t530 * t1838 * t318 - 0.37705538646234509364e-7 * t1185 * t1816 * t22 - 0.31421282205195424470e-7 * t1184 * t4 * t1405 + 0.47131923307793136705e-8 * t1403 * t756 * t1404 + 0.10211152551105282600e-9 / t11 / t1765 * t2 * t128 * t1755 * t9 * sigma[0];
1117
1118 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1119 v4rhosigma2lapl[0] = 0.0e0;
1120
1121 t3009 = t2673 * t10;
1122 t3012 = t2665 * t10;
1123 t3015 = t2185 * t9;
1124 t3018 = t2174 * t79;
1125 t3027 = t2670 * t79;
1126 t3032 = t2192 * t9;
1127 t3035 = t2177 * t79;
1128 t3042 = 0.875e3 / 0.1944e4 * t1372 - 0.875e3 / 0.1944e4 * t1386 - 0.10e2 / 0.27e2 * t1424 * t370 - 0.25e2 / 0.486e3 * t1427 * t1123 - 0.5e1 / 0.36e2 * t3009 * t157 + 0.5e1 / 0.36e2 * t3012 * t157 + 0.25e2 / 0.2592e4 * t3015 * t502 - 0.125e3 / 0.3888e4 * t3018 * t1119 - 0.5e1 / 0.9e1 * t2894 * t198 - 0.25e2 / 0.486e3 * t1446 * t1123 + 0.10e2 / 0.27e2 * t1443 * t370 - 0.25e2 / 0.324e3 * t3027 * t338 - 0.125e3 / 0.243e3 * t2948 * t1227 + 0.25e2 / 0.2592e4 * t3032 * t502 + 0.125e3 / 0.3888e4 * t3035 * t1119 + 0.5e1 / 0.9e1 * t2937 * t198 - 0.25e2 / 0.162e3 * t2945 * t557;
1129 t3047 = t160 * t1434;
1130 t3054 = t2662 * t79;
1131 t3063 = t1422 * t102;
1132 t3066 = t1441 * t116;
1133 t3103 = -0.25e2 / 0.162e3 * t2902 * t557 + 0.125e3 / 0.243e3 * t2905 * t1227 + 0.625e3 / 0.17496e5 * t2955 * t3047 + 0.25e2 / 0.81e2 * t2940 * t428 + 0.625e3 / 0.17496e5 * t2912 * t3047 - 0.25e2 / 0.324e3 * t3054 * t338 + 0.25e2 / 0.81e2 * t2897 * t428 - 0.125e3 / 0.1944e4 * t1703 * t1434 + 0.125e3 / 0.1944e4 * t1706 * t1434 - 0.5e1 / 0.9e1 * t3063 * t81 + 0.5e1 / 0.9e1 * t3066 * t81 + (0.39969135802469135801e0 * t1374 + 0.12688614540466392318e0 * t1434 * t720 * t81 + 0.12688614540466392318e0 * t1614 * t636 * t2927 + 0.39969135802469135802e0 * t1376) * t57 + (0.14562034240110510115e-1 * t1350 - 0.37729491057244294350e-2 * t636 * t260 * t42 * t81 - 0.18467259747392555039e-1 * t1353 + 0.47847731985951385403e-2 * t1411 * t679 * t1092 + 0.66026609350177515112e-2 * t1357 - 0.17107159109377151994e-2 * t1414 * t679 * t2878 + 0.21694932562556798470e-2 * t2047 * t636 * t84 * t333 - 0.83733530975414924457e-2 * t1361) * t49 + 0.25e2 / 0.27e2 * t1366 + 0.325e3 / 0.486e3 * t1369 - 0.25e2 / 0.27e2 * t1381 + 0.325e3 / 0.486e3 * t1384;
1134 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1135 v4rhosigma2tau[0] = -t325 * t1457 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t71 * (t3103 + t3042) * t62 - 0.10155490000000000000e-2 * t129 * t9 * t1455 * t133 - 0.10155490000000000000e-2 * t407 * t1461 + 0.76166175000000000000e-3 * t179 * t180 * t1264 * t132 + 0.82507181712080000003e-5 * t417 * t2707 * t418 + 0.61880386284060000000e-5 * t417 * t1464 - 0.15470096571015000000e-5 * t530 * t2303 * t318 - 0.12568512882078169788e-7 * t1185 * t2307 * t22;
1136
1137 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1138 v4rhosigmalapl2[0] = 0.0e0;
1139
1140 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1141 v4rhosigmalapltau[0] = 0.0e0;
1142
1143 t3148 = t2822 * t10;
1144 t3151 = t2830 * t10;
1145 t3164 = t2819 * t79;
1146 t3167 = 0.5e1 / 0.27e2 * t1501 * t370 - 0.5e1 / 0.27e2 * t1483 * t370 - 0.25e2 / 0.162e3 * t3032 * t557 - 0.125e3 / 0.243e3 * t3035 * t1227 + 0.50e2 / 0.81e2 * t2945 * t600 + 0.125e3 / 0.243e3 * t3018 * t1227 + 0.50e2 / 0.81e2 * t2902 * t600 - 0.500e3 / 0.243e3 * t2905 * t1312 - 0.5e1 / 0.72e2 * t3148 * t157 + 0.5e1 / 0.72e2 * t3151 * t157 - 0.10e2 / 0.9e1 * t3012 * t198 - 0.25e2 / 0.162e3 * t3015 * t557 + 0.500e3 / 0.243e3 * t2948 * t1312 + 0.10e2 / 0.9e1 * t3009 * t198 + 0.250e3 / 0.81e2 * t1453 - 0.250e3 / 0.81e2 * t1435 - 0.25e2 / 0.648e3 * t3164 * t338;
1147 t3168 = t160 * t1492;
1148 t3171 = t2827 * t79;
1149 t3210 = t1481 * t102;
1150 t3213 = t1499 * t116;
1151 t3226 = -0.625e3 / 0.2187e4 * t2955 * t3168 - 0.25e2 / 0.648e3 * t3171 * t338 + 0.50e2 / 0.81e2 * t3054 * t428 - 0.625e3 / 0.2187e4 * t2912 * t3168 + 0.50e2 / 0.81e2 * t3027 * t428 + (-0.27407407407407407407e1 * t1437 - 0.10150891632373113854e1 * t1492 * t720 * t81 - 0.10150891632373113854e1 * t1614 * t313 * t2927 - 0.27407407407407407407e1 * t1439) * t57 + (-0.99853949075043497928e-1 * t1409 + 0.30183592845795435479e-1 * t313 * t260 * t42 * t81 + 0.12663263826783466312e0 * t1412 - 0.38278185588761108320e-1 * t1470 * t679 * t1092 - 0.45275389268693153218e-1 * t1416 + 0.13685727287501721595e-1 * t1473 * t679 * t2878 - 0.17355946050045438775e-1 * t2047 * t313 * t84 * t333 + 0.57417278383141662481e-1 * t1420) * t49 - 0.5e1 / 0.9e1 * t3210 * t81 + 0.5e1 / 0.9e1 * t3213 * t81 - 0.125e3 / 0.243e3 * t1706 * t1492 + 0.125e3 / 0.243e3 * t1703 * t1492 + 0.50e2 / 0.27e2 * t1425 + 0.325e3 / 0.486e3 * t1428 - 0.500e3 / 0.243e3 * t1432 - 0.50e2 / 0.27e2 * t1444 + 0.325e3 / 0.486e3 * t1447 - 0.500e3 / 0.243e3 * t1451;
1152 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1153 v4rhosigmatau2[0] = -t325 * t1514 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t71 * (t3226 + t3167) * t62 - 0.10155490000000000000e-2 * t129 * t9 * t1512 * t133 - 0.50777450000000000000e-3 * t407 * t1518 + 0.38083087500000000000e-3 * t179 * t180 * t1339 * t132 + 0.41253590856040000001e-5 * t417 * t2853 * t418;
1154
1155 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1156 v4rholapl3[0] = 0.0e0;
1157
1158 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1159 v4rholapl2tau[0] = 0.0e0;
1160
1161 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1162 v4rholapltau2[0] = 0.0e0;
1163
1164 t3267 = t1535 * t102;
1165 t3282 = t160 * t1541;
1166 t3286 = (0.66569299383362331955e0 * t1468 - 0.24146874276636348383e0 * t415 * t260 * t42 * t81 - 0.84421758845223108735e0 * t1471 + 0.30622548471008886654e0 * t1524 * t679 * t1092 + 0.30183592845795435478e0 * t1475 - 0.10948581830001377275e0 * t1527 * t679 * t2878 + 0.13884756840036351020e0 * t2047 * t415 * t84 * t333 - 0.38278185588761108320e0 * t1479) * t49 - 0.5e1 / 0.9e1 * t3267 * t81 - 0.5e1 / 0.3e1 * t3151 * t198 + 0.25e2 / 0.27e2 * t3164 * t428 + 0.25e2 / 0.9e1 * t1484 + 0.50e2 / 0.27e2 * t3015 * t600 - 0.500e3 / 0.81e2 * t3018 * t1312 - 0.500e3 / 0.81e2 * t1488 - 0.1000e4 / 0.243e3 * t1703 * t1541 + 0.5000e4 / 0.2187e4 * t2912 * t3282 + 0.5000e4 / 0.243e3 * t1493;
1167 t3297 = t1548 * t116;
1168 t3315 = (0.18271604938271604938e2 * t1495 + 0.81207133058984910836e1 * t1541 * t720 * t81 + 0.81207133058984910835e1 * t1614 * t415 * t2927 + 0.18271604938271604938e2 * t1497) * t57 + 0.5e1 / 0.9e1 * t3297 * t81 + 0.5e1 / 0.3e1 * t3148 * t198 + 0.25e2 / 0.27e2 * t3171 * t428 - 0.25e2 / 0.9e1 * t1502 + 0.50e2 / 0.27e2 * t3032 * t600 + 0.500e3 / 0.81e2 * t3035 * t1312 - 0.500e3 / 0.81e2 * t1506 + 0.1000e4 / 0.243e3 * t1706 * t1541 + 0.5000e4 / 0.2187e4 * t2955 * t3282 - 0.5000e4 / 0.243e3 * t1510;
1169 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1170 v4rhotau3[0] = -t325 * t1558 / 0.4e1 - 0.3e1 / 0.16e2 * t70 * t71 * (t3315 + t3286) * t62 - 0.10155490000000000000e-2 * t129 * t9 * t1556 * t133;
1171
1172 t3328 = t10 * t29 * t34;
1173 t3333 = t350 * t160;
1174 t3338 = t87 * t10;
1175 t3339 = t1675 * t3338;
1176 t3348 = t2891 * t10;
1177 t3351 = t2512 * t9;
1178 t3356 = t1699 * t10;
1179 t3358 = t1767 * t29 * t2102;
1180 t3366 = t912 * t160;
1181 t3371 = t2934 * t10;
1182 t3374 = t2520 * t9;
1183 t3379 = t1570 * t10;
1184 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1185 v4sigma4[0] = -0.3e1 / 0.16e2 * t70 * t71 * ((-0.58952329776944209921e-4 * t1767 * t260 * t42 * t3328 + 0.74762081228049039690e-4 * t1767 * t37 * t679 * t3333 - 0.26729936108401799990e-4 * t28 * t1767 * t679 * t3339 + 0.33898332128994997608e-4 * t2047 * t1767 * t84 * t3338) * t49 + 0.5e1 / 0.18e2 * t3348 * t157 + 0.25e2 / 0.432e3 * t3351 * t502 + 0.125e3 / 0.3888e4 * t1858 * t1371 + 0.625e3 / 0.1119744e7 * t3356 * t3358 + (0.19825960219478737997e-2 * t1767 * t705 * t720 * t3328 + 0.19825960219478737998e-2 * t1614 * t1767 * t3366) * t57 - 0.5e1 / 0.18e2 * t3371 * t157 + 0.25e2 / 0.432e3 * t3374 * t502 - 0.125e3 / 0.3888e4 * t1855 * t1371 + 0.625e3 / 0.1119744e7 * t3379 * t3358) * t62 + 0.15233235000000000000e-2 * t179 * t180 * t1388 * t132 - 0.92820579426090000000e-5 * t530 * t2327 * t318 + 0.18852769323117254682e-7 * t1403 * t936 * t1404 - 0.38291822066644809750e-10 / t11 / t761 * t2 * t4 * t316 * t1754 * t9;
1186
1187 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1188 v4sigma3lapl[0] = 0.0e0;
1189
1190 t3423 = t3063 * t10;
1191 t3426 = t2670 * t9;
1192 t3438 = t763 * t29 * t2102;
1193 t3450 = t3066 * t10;
1194 t3453 = t2662 * t9;
1195 t3466 = (0.47161863821555367938e-3 * t763 * t260 * t42 * t3328 - 0.59809664982439231756e-3 * t763 * t37 * t679 * t3333 + 0.21383948886721439993e-3 * t28 * t763 * t679 * t3339 - 0.27118665703195998088e-3 * t2047 * t763 * t84 * t3338) * t49 + 0.5e1 / 0.24e2 * t3423 * t157 + 0.25e2 / 0.864e3 * t3426 * t502 + 0.125e3 / 0.15552e5 * t2174 * t1371 - 0.5e1 / 0.9e1 * t3348 * t198 - 0.25e2 / 0.108e3 * t3351 * t557 - 0.125e3 / 0.648e3 * t1858 * t1434 - 0.625e3 / 0.139968e6 * t3356 * t3438 + (-0.15860768175582990397e-1 * t763 * t705 * t720 * t3328 - 0.15860768175582990398e-1 * t1614 * t763 * t3366) * t57 - 0.5e1 / 0.24e2 * t3450 * t157 + 0.25e2 / 0.864e3 * t3453 * t502 - 0.125e3 / 0.15552e5 * t2177 * t1371 + 0.5e1 / 0.9e1 * t3371 * t198 - 0.25e2 / 0.108e3 * t3374 * t557 + 0.125e3 / 0.648e3 * t1855 * t1434 - 0.625e3 / 0.139968e6 * t3379 * t3438;
1196 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1197 v4sigma3tau[0] = -0.3e1 / 0.16e2 * t70 * t71 * t3466 * t62 + 0.11424926250000000000e-2 * t179 * t180 * t1455 * t132 - 0.46410289713045000000e-5 * t530 * t2707 * t318 + 0.47131923307793136705e-8 * t1403 * t1066 * t1404;
1198
1199 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1200 v4sigma2lapl2[0] = 0.0e0;
1201
1202 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1203 v4sigma2lapltau[0] = 0.0e0;
1204
1205 t3499 = t3210 * t10;
1206 t3502 = t2819 * t9;
1207 t3516 = t955 * t29 * t2102;
1208 t3528 = t3213 * t10;
1209 t3531 = t2827 * t9;
1210 t3546 = (-0.37729491057244294348e-2 * t955 * t260 * t42 * t3328 + 0.47847731985951385402e-2 * t955 * t37 * t679 * t3333 - 0.17107159109377151993e-2 * t28 * t955 * t679 * t3339 + 0.21694932562556798469e-2 * t2047 * t955 * t84 * t3338) * t49 + 0.5e1 / 0.36e2 * t3499 * t157 + 0.25e2 / 0.2592e4 * t3502 * t502 - 0.10e2 / 0.9e1 * t3423 * t198 - 0.25e2 / 0.81e2 * t3426 * t557 - 0.125e3 / 0.972e3 * t2174 * t1434 + 0.50e2 / 0.81e2 * t3351 * t600 + 0.250e3 / 0.243e3 * t1858 * t1492 + 0.625e3 / 0.17496e5 * t3356 * t3516 + (0.12688614540466392318e0 * t955 * t705 * t720 * t3328 + 0.12688614540466392318e0 * t1614 * t955 * t3366) * t57 - 0.5e1 / 0.36e2 * t3528 * t157 + 0.25e2 / 0.2592e4 * t3531 * t502 + 0.10e2 / 0.9e1 * t3450 * t198 - 0.25e2 / 0.81e2 * t3453 * t557 + 0.125e3 / 0.972e3 * t2177 * t1434 + 0.50e2 / 0.81e2 * t3374 * t600 - 0.250e3 / 0.243e3 * t1855 * t1492 + 0.625e3 / 0.17496e5 * t3379 * t3516;
1211 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1212 v4sigma2tau2[0] = -0.3e1 / 0.16e2 * t70 * t71 * t3546 * t62 + 0.76166175000000000000e-3 * t179 * t180 * t1512 * t132 - 0.15470096571015000000e-5 * t530 * t2853 * t318;
1213
1214 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1215 v4sigmalapl3[0] = 0.0e0;
1216
1217 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1218 v4sigmalapl2tau[0] = 0.0e0;
1219
1220 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1221 v4sigmalapltau2[0] = 0.0e0;
1222
1223 t3576 = t3267 * t10;
1224 t3590 = t1183 * t29 * t2102;
1225 t3602 = t3297 * t10;
1226 t3617 = (0.30183592845795435479e-1 * t1183 * t260 * t42 * t3328 - 0.38278185588761108318e-1 * t1183 * t37 * t679 * t3333 + 0.13685727287501721595e-1 * t28 * t1183 * t679 * t3339 - 0.17355946050045438775e-1 * t2047 * t1183 * t84 * t3338) * t49 + 0.5e1 / 0.72e2 * t3576 * t157 - 0.5e1 / 0.3e1 * t3499 * t198 - 0.25e2 / 0.108e3 * t3502 * t557 + 0.50e2 / 0.27e2 * t3426 * t600 + 0.125e3 / 0.81e2 * t2174 * t1492 - 0.1000e4 / 0.243e3 * t1858 * t1541 - 0.625e3 / 0.2187e4 * t3356 * t3590 + (-0.10150891632373113854e1 * t1183 * t705 * t720 * t3328 - 0.10150891632373113854e1 * t1614 * t1183 * t3366) * t57 - 0.5e1 / 0.72e2 * t3602 * t157 + 0.5e1 / 0.3e1 * t3528 * t198 - 0.25e2 / 0.108e3 * t3531 * t557 + 0.50e2 / 0.27e2 * t3453 * t600 - 0.125e3 / 0.81e2 * t2177 * t1492 + 0.1000e4 / 0.243e3 * t1855 * t1541 - 0.625e3 / 0.2187e4 * t3379 * t3590;
1227 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1228 v4sigmatau3[0] = -0.3e1 / 0.16e2 * t70 * t71 * t3617 * t62 + 0.38083087500000000000e-3 * t179 * t180 * t1556 * t132;
1229
1230 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1231 v4lapl4[0] = 0.0e0;
1232
1233 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1234 v4lapl3tau[0] = 0.0e0;
1235
1236 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1237 v4lapl2tau2[0] = 0.0e0;
1238
1239 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1240 v4lapltau3[0] = 0.0e0;
1241
1242 t3651 = t1401 * t29 * t2102;
1243 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1244 v4tau4[0] = -0.3e1 / 0.16e2 * t70 * t71 * ((-0.24146874276636348383e0 * t1401 * t260 * t42 * t3328 + 0.30622548471008886654e0 * t1401 * t37 * t679 * t3333 - 0.10948581830001377275e0 * t28 * t1401 * t679 * t3339 + 0.13884756840036351020e0 * t2047 * t1401 * t84 * t3338) * t49 - 0.20e2 / 0.9e1 * t3576 * t198 + 0.100e3 / 0.27e2 * t3502 * t600 - 0.4000e4 / 0.243e3 * t2174 * t1541 + 0.5000e4 / 0.2187e4 * t3356 * t3651 + (0.81207133058984910836e1 * t1401 * t705 * t720 * t3328 + 0.81207133058984910835e1 * t1614 * t1401 * t3366) * t57 + 0.20e2 / 0.9e1 * t3602 * t198 + 0.100e3 / 0.27e2 * t3531 * t600 + 0.4000e4 / 0.243e3 * t2177 * t1541 + 0.5000e4 / 0.2187e4 * t3379 * t3651) * t62;
1245
1246 #ifndef XC_DONT_COMPILE_MXC
1247
1248 if(order < 5) return;
1249
1250
1251 #endif
1252
1253 #endif
1254
1255 #endif
1256
1257 #endif
1258
1259 #endif
1260
1261
1262 }
1263
1264
1265 static inline void
func_ferr(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))1266 func_ferr(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
1267 {
1268
1269 #ifndef XC_DONT_COMPILE_EXC
1270 double t2, t4, t6, t7, t8, t9, t10, t11;
1271 double t14, t15, t17, t19, t21, t22, t24, t25;
1272 double t27, t28, t29, t30, t31, t33, t35, t36;
1273 double t38, t39, t42, t43, t44, t45, t47, t48;
1274 double t51, t52, t53, t55, t58, t59, t61;
1275
1276 #ifndef XC_DONT_COMPILE_VXC
1277 double t64, t66, t69, t71, t74, t75, t76, t79;
1278 double t82, t83, t85, t88, t89, t90, t91, t92;
1279 double t95, t97, t98, t101, t104, t105, t106, t109;
1280 double t111, t112, t115, t116, t123, t124, t125, t126;
1281 double t127, t131, t132, t133, t137, t139, t141, t143;
1282 double t145, t147, t149, t151, t153, t156, t157, t162;
1283 double t163, t166, t167, t174, t178, t186, t191, t192;
1284
1285 #ifndef XC_DONT_COMPILE_FXC
1286 double t195, t204, t211, t213, t216, t217, t218, t221;
1287 double t222, t224, t227, t228, t232, t236, t239, t241;
1288 double t242, t243, t246, t247, t250, t252, t255, t256;
1289 double t263, t267, t268, t273, t275, t278, t279, t284;
1290 double t285, t292, t293, t295, t297, t298, t299, t304;
1291 double t307, t308, t309, t311, t312, t313, t315, t319;
1292 double t321, t322, t323, t325, t327, t329, t331, t333;
1293 double t335, t338, t340, t341, t343, t345, t347, t348;
1294 double t350, t351, t352, t353, t355, t357, t359, t362;
1295 double t364, t365, t367, t370, t371, t374, t379, t382;
1296 double t383, t385, t386, t387, t393, t394, t400, t407;
1297 double t409, t420, t424, t426, t435, t436, t439, t443;
1298 double t444, t445, t447, t448, t450, t451, t453, t454;
1299 double t456, t458, t460, t462, t464, t466, t468, t470;
1300 double t473, t474, t477, t482, t483, t487, t488, t489;
1301 double t491, t492, t494, t495, t497, t498, t500, t502;
1302 double t506, t508, t510, t512, t514, t518, t521, t522;
1303 double t525, t528, t531, t534, t537, t540, t550, t557;
1304 double t558;
1305
1306 #ifndef XC_DONT_COMPILE_KXC
1307 double t581, t582, t590, t593, t594, t595, t598, t599;
1308 double t604, t612, t615, t621, t624, t625, t626, t627;
1309 double t628, t629, t636, t639, t641, t644, t649, t650;
1310 double t651, t652, t653, t666, t667, t668, t671, t676;
1311 double t678, t681, t686, t687, t694, t695, t705, t706;
1312 double t708, t710, t711, t712, t713, t714, t719, t724;
1313 double t727, t729, t730, t732, t733, t735, t736, t737;
1314 double t739, t740, t742, t744, t746, t747, t749, t751;
1315 double t752, t754, t755, t756, t758, t759, t761, t762;
1316 double t764, t765, t767, t769, t771, t773, t774, t776;
1317 double t777, t779, t781, t782, t784, t788, t791, t792;
1318 double t793, t796, t798, t800, t802, t803, t805, t806;
1319 double t808, t809, t812, t814, t816, t818, t820, t822;
1320 double t824, t825, t829, t832, t834, t836, t841, t844;
1321 double t846, t848, t851, t853, t854, t857, t860, t869;
1322 double t872, t876, t878, t879, t880, t890, t895, t902;
1323 double t918, t923, t926, t929, t934, t939, t942, t952;
1324 double t965, t973, t975, t976, t979, t982, t988, t989;
1325 double t990, t992, t993, t995, t996, t998, t999, t1000;
1326 double t1002, t1003, t1005, t1006, t1007, t1011, t1014, t1016;
1327 double t1018, t1021, t1023, t1024, t1026, t1028, t1030, t1031;
1328 double t1032, t1034, t1036, t1038, t1039, t1040, t1042, t1044;
1329 double t1046, t1048, t1051, t1053, t1054, t1056, t1058, t1060;
1330 double t1062, t1064, t1065, t1066, t1069, t1074, t1077, t1082;
1331 double t1086, t1088, t1089, t1090, t1096, t1097, t1100, t1101;
1332 double t1104, t1105, t1109, t1112, t1114, t1117, t1119, t1120;
1333 double t1122, t1129, t1131, t1132, t1135, t1137, t1138, t1140;
1334 double t1143, t1145, t1148, t1150, t1151, t1153, t1160, t1162;
1335 double t1165, t1167, t1168, t1171, t1176, t1179, t1185, t1189;
1336 double t1193, t1201, t1203, t1213, t1218, t1224, t1226, t1239;
1337 double t1240, t1241, t1244, t1247, t1249, t1251, t1252, t1254;
1338 double t1256, t1260, t1262, t1264, t1266, t1268, t1269, t1271;
1339 double t1273, t1275, t1277, t1279, t1281, t1284, t1285, t1288;
1340 double t1291, t1295, t1297, t1298, t1302, t1304, t1305, t1307;
1341 double t1309, t1313, t1315, t1317, t1319, t1323, t1325, t1326;
1342 double t1328, t1330, t1332, t1334, t1336, t1340, t1342, t1344;
1343 double t1345, t1346, t1349, t1352, t1356, t1358, t1359, t1361;
1344 double t1363, t1367, t1369, t1371, t1375, t1379, t1380, t1382;
1345 double t1384, t1386, t1388, t1392, t1396, t1398, t1399, t1400;
1346 double t1403, t1409, t1412, t1420, t1426, t1433, t1442, t1443;
1347
1348 #ifndef XC_DONT_COMPILE_LXC
1349 double t1452, t1453, t1469, t1470, t1471, t1473, t1476, t1477;
1350 double t1478, t1481, t1484, t1485, t1499, t1500, t1506, t1513;
1351 double t1518, t1522, t1523, t1530, t1547, t1548, t1561, t1567;
1352 double t1568, t1599, t1605, t1608, t1613, t1616, t1621, t1630;
1353 double t1633, t1636, t1653, t1655, t1714, t1718, t1724, t1725;
1354 double t1729, t1736, t1737, t1742, t1746, t1756, t1761, t1764;
1355 double t1767, t1770, t1771, t1776, t1777, t1781, t1791, t1807;
1356 double t1814, t1835, t1851, t1854, t1857, t1860, t1863, t1866;
1357 double t1867, t1874, t1877, t1891, t1894, t1897, t1902, t1905;
1358 double t1906, t1909, t1911, t1922, t1929, t1941, t1948, t1959;
1359 double t1978, t1995, t1998, t2014, t2018, t2026, t2058, t2084;
1360 double t2101, t2103, t2118, t2132, t2135, t2140, t2147, t2152;
1361 double t2214, t2217, t2224, t2227, t2230, t2233, t2236, t2241;
1362 double t2256, t2259, t2268, t2272, t2273, t2274, t2293, t2294;
1363 double t2297, t2317, t2321, t2326, t2335, t2349, t2359, t2363;
1364 double t2374, t2398, t2399, t2406, t2409, t2416, t2429, t2435;
1365 double t2438, t2441, t2446, t2485, t2489, t2502, t2527, t2532;
1366 double t2605, t2618, t2634, t2641, t2644, t2649, t2662, t2671;
1367 double t2676, t2690, t2709, t2710, t2723, t2728, t2741, t2742;
1368 double t2745, t2748, t2755, t2762, t2767, t2780, t2785, t2865;
1369 double t2870, t2883, t2898, t2905, t2908, t2919, t2958, t2975;
1370 double t2988, t2991, t2996, t3021, t3038, t3077, t3092, t3096;
1371 double t3107, t3125, t3253, t3326, t3392;
1372 #endif
1373
1374 #endif
1375
1376 #endif
1377
1378 #endif
1379
1380 #endif
1381
1382
1383
1384 t2 = M_CBRT3;
1385 t4 = POW_1_3(0.1e1 / M_PI);
1386 t6 = M_CBRT4;
1387 t7 = t6 * t6;
1388 t8 = t2 * t4 * t7;
1389 t9 = POW_1_3(rho[0]);
1390 t10 = M_CBRT2;
1391 t11 = t2 * t2;
1392 t14 = 0.8e1 / 0.27e2 * t10 * t11 * t6;
1393 t15 = t9 * t9;
1394 t17 = 0.1e1 / t15 / rho[0];
1395 t19 = rho[0] * rho[0];
1396 t21 = 0.1e1 / t15 / t19;
1397 t22 = sigma[0] * t21;
1398 t24 = tau[0] * t17 - t22 / 0.8e1;
1399 t25 = M_CBRT6;
1400 t27 = M_PI * M_PI;
1401 t28 = POW_1_3(t27);
1402 t29 = t28 * t28;
1403 t30 = 0.1e1 / t29;
1404 t31 = t24 * t25 * t30;
1405 t33 = 0.827411e0 - 0.35753333333333333333e0 * t31;
1406 t35 = 0.10e1 - 0.45341611111111111111e0 * t31;
1407 t36 = 0.1e1 / t35;
1408 t38 = 0.1e1 - t14;
1409 t39 = t33 * t36 * t38;
1410 t42 = t14 + 0.5e1 / 0.9e1 * t31 * t39;
1411 t43 = 0.5e1 / 0.9e1 * t31;
1412 t44 = 0.1e1 - t43;
1413 t45 = Heaviside(t44);
1414 t47 = 0.1e1 + t43;
1415 t48 = 0.1e1 / t47;
1416 t51 = 0.1e1 + 0.148e0 * t44 * t48;
1417 t52 = -t44;
1418 t53 = Heaviside(t52);
1419 t55 = t42 * t45 + t51 * t53;
1420 t58 = 0.1e1 + 0.1015549e-2 * t22;
1421 t59 = 0.1e1 / t58;
1422 t61 = t8 * t9 * t55 * t59;
1423 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1424 zk[0] = -0.3e1 / 0.8e1 * t61;
1425
1426 #ifndef XC_DONT_COMPILE_VXC
1427
1428 if(order < 1) return;
1429
1430
1431 t64 = t9 * rho[0];
1432 t66 = t64 * t2 * t4;
1433 t69 = t19 * rho[0];
1434 t71 = 0.1e1 / t15 / t69;
1435 t74 = -0.5e1 / 0.3e1 * tau[0] * t21 + sigma[0] * t71 / 0.3e1;
1436 t75 = t74 * t25;
1437 t76 = t75 * t30;
1438 t79 = t25 * t25;
1439 t82 = 0.1e1 / t28 / t27;
1440 t83 = t24 * t79 * t82;
1441 t85 = t74 * t36 * t38;
1442 t88 = t35 * t35;
1443 t89 = 0.1e1 / t88;
1444 t90 = t33 * t89;
1445 t91 = t38 * t74;
1446 t92 = t90 * t91;
1447 t95 = 0.5e1 / 0.9e1 * t76 * t39 - 0.19862962962962962963e0 * t83 * t85 + 0.25189783950617283951e0 * t83 * t92;
1448 t97 = 0.0;
1449 t98 = t42 * t97;
1450 t101 = t30 * t48;
1451 t104 = t47 * t47;
1452 t105 = 0.1e1 / t104;
1453 t106 = t44 * t105;
1454 t109 = -0.82222222222222222222e-1 * t75 * t101 - 0.82222222222222222222e-1 * t106 * t76;
1455 t111 = 0.0;
1456 t112 = t51 * t111;
1457 t115 = t95 * t45 - 0.5e1 / 0.9e1 * t98 * t76 + t109 * t53 + 0.5e1 / 0.9e1 * t112 * t76;
1458 t116 = t7 * t115;
1459 t123 = 0.1e1 / t9 / t19 * t2 * t4;
1460 t124 = t7 * t55;
1461 t125 = t58 * t58;
1462 t126 = 0.1e1 / t125;
1463 t127 = t126 * sigma[0];
1464 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1465 vrho[0] = -t61 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t116 * t59 - 0.10155490000000000000e-2 * t123 * t124 * t127;
1466
1467 t131 = t21 * t25;
1468 t132 = t131 * t30;
1469 t133 = t132 * t39;
1470 t137 = t83 * t21 * t36 * t38;
1471 t139 = t38 * t21;
1472 t141 = t83 * t90 * t139;
1473 t143 = -0.5e1 / 0.72e2 * t133 + 0.24828703703703703703e-1 * t137 - 0.31487229938271604938e-1 * t141;
1474 t145 = t98 * t132;
1475 t147 = t131 * t101;
1476 t149 = t106 * t132;
1477 t151 = 0.10277777777777777778e-1 * t147 + 0.10277777777777777778e-1 * t149;
1478 t153 = t112 * t132;
1479 t156 = t7 * (t143 * t45 + 0.5e1 / 0.72e2 * t145 + t151 * t53 - 0.5e1 / 0.72e2 * t153);
1480 t157 = t156 * t59;
1481 t162 = 0.1e1 / t64 * t2 * t4;
1482 t163 = t124 * t126;
1483 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1484 vsigma[0] = -0.3e1 / 0.8e1 * t66 * t157 + 0.38083087500000000000e-3 * t162 * t163;
1485
1486 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1487 vlapl[0] = 0.0e0;
1488
1489 t166 = t17 * t25;
1490 t167 = t166 * t30;
1491 t174 = t38 * t17;
1492 t178 = 0.5e1 / 0.9e1 * t167 * t39 - 0.19862962962962962963e0 * t83 * t17 * t36 * t38 + 0.25189783950617283951e0 * t83 * t90 * t174;
1493 t186 = -0.82222222222222222222e-1 * t166 * t101 - 0.82222222222222222222e-1 * t106 * t167;
1494 t191 = t7 * (t178 * t45 - 0.5e1 / 0.9e1 * t98 * t167 + t186 * t53 + 0.5e1 / 0.9e1 * t112 * t167);
1495 t192 = t191 * t59;
1496 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1497 vtau[0] = -0.3e1 / 0.8e1 * t66 * t192;
1498
1499 #ifndef XC_DONT_COMPILE_FXC
1500
1501 if(order < 2) return;
1502
1503
1504 t195 = 0.1e1 / t15;
1505 t204 = 0.1e1 / t9 / t69;
1506 t211 = t19 * t19;
1507 t213 = 0.1e1 / t15 / t211;
1508 t216 = 0.40e2 / 0.9e1 * tau[0] * t71 - 0.11e2 / 0.9e1 * sigma[0] * t213;
1509 t217 = t216 * t25;
1510 t218 = t217 * t30;
1511 t221 = t74 * t74;
1512 t222 = t221 * t79;
1513 t224 = t82 * t36 * t38;
1514 t227 = t222 * t82;
1515 t228 = t90 * t38;
1516 t232 = t216 * t36 * t38;
1517 t236 = t89 * t38;
1518 t239 = t24 * t33;
1519 t241 = 0.1e1 / t88 / t35;
1520 t242 = t241 * t38;
1521 t243 = t242 * t221;
1522 t246 = t38 * t216;
1523 t247 = t90 * t246;
1524 t250 = 0.5e1 / 0.9e1 * t218 * t39 - 0.39725925925925925926e0 * t222 * t224 + 0.50379567901234567902e0 * t227 * t228 - 0.19862962962962962963e0 * t83 * t232 - 0.11094883230560388659e-1 * t24 * t221 * t236 + 0.14070293140870518124e-1 * t239 * t243 + 0.25189783950617283951e0 * t83 * t247;
1525 t252 = t95 * t97;
1526 t255 = 0.0;
1527 t256 = t42 * t255;
1528 t263 = t82 * t105;
1529 t267 = 0.1e1 / t104 / t47;
1530 t268 = t44 * t267;
1531 t273 = -0.82222222222222222222e-1 * t217 * t101 + 0.91358024691358024692e-1 * t222 * t263 + 0.91358024691358024691e-1 * t268 * t227 - 0.82222222222222222222e-1 * t106 * t218;
1532 t275 = t109 * t111;
1533 t278 = 0.0;
1534 t279 = t51 * t278;
1535 t284 = t250 * t45 - 0.10e2 / 0.9e1 * t252 * t76 + 0.25e2 / 0.81e2 * t256 * t227 - 0.5e1 / 0.9e1 * t98 * t218 + t273 * t53 + 0.10e2 / 0.9e1 * t275 * t76 + 0.25e2 / 0.81e2 * t279 * t227 + 0.5e1 / 0.9e1 * t112 * t218;
1536 t285 = t7 * t284;
1537 t292 = t211 * t19;
1538 t293 = 0.1e1 / t292;
1539 t295 = t293 * t2 * t4;
1540 t297 = 0.1e1 / t125 / t58;
1541 t298 = sigma[0] * sigma[0];
1542 t299 = t297 * t298;
1543 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1544 v2rho2[0] = -t8 * t195 * t55 * t59 / 0.6e1 - t8 * t9 * t115 * t59 + 0.10155489999999999999e-2 * t8 * t204 * t55 * t127 - 0.3e1 / 0.8e1 * t66 * t285 * t59 - 0.20310980000000000000e-2 * t123 * t116 * t127 - 0.55004787808053333334e-5 * t295 * t124 * t299;
1545
1546 t304 = t9 * t2 * t4;
1547 t307 = t71 * t25;
1548 t308 = t307 * t30;
1549 t309 = t308 * t39;
1550 t311 = t21 * t79;
1551 t312 = t311 * t82;
1552 t313 = t312 * t85;
1553 t315 = t312 * t92;
1554 t319 = t83 * t71 * t36 * t38;
1555 t321 = t24 * t21;
1556 t322 = t236 * t74;
1557 t323 = t321 * t322;
1558 t325 = t239 * t241;
1559 t327 = t325 * t139 * t74;
1560 t329 = t38 * t71;
1561 t331 = t83 * t90 * t329;
1562 t333 = 0.5e1 / 0.27e2 * t309 + 0.49657407407407407406e-1 * t313 - 0.62974459876543209876e-1 * t315 - 0.66209876543209876541e-1 * t319 + 0.13868604038200485824e-2 * t323 - 0.17587866426088147654e-2 * t327 + 0.83965946502057613168e-1 * t331;
1563 t335 = t143 * t97;
1564 t338 = t252 * t132;
1565 t340 = t256 * t74;
1566 t341 = t340 * t312;
1567 t343 = t98 * t308;
1568 t345 = t307 * t101;
1569 t347 = t263 * t74;
1570 t348 = t311 * t347;
1571 t350 = t268 * t21;
1572 t351 = t79 * t82;
1573 t352 = t351 * t74;
1574 t353 = t350 * t352;
1575 t355 = t106 * t308;
1576 t357 = -0.27407407407407407408e-1 * t345 - 0.11419753086419753087e-1 * t348 - 0.11419753086419753087e-1 * t353 - 0.27407407407407407408e-1 * t355;
1577 t359 = t151 * t111;
1578 t362 = t275 * t132;
1579 t364 = t279 * t74;
1580 t365 = t364 * t312;
1581 t367 = t112 * t308;
1582 t370 = t7 * (t333 * t45 - 0.5e1 / 0.9e1 * t335 * t76 + 0.5e1 / 0.72e2 * t338 - 0.25e2 / 0.648e3 * t341 - 0.5e1 / 0.27e2 * t343 + t357 * t53 + 0.5e1 / 0.9e1 * t359 * t76 - 0.5e1 / 0.72e2 * t362 - 0.25e2 / 0.648e3 * t365 + 0.5e1 / 0.27e2 * t367);
1583 t371 = t370 * t59;
1584 t374 = t156 * t127;
1585 t379 = t116 * t126;
1586 t382 = t211 * rho[0];
1587 t383 = 0.1e1 / t382;
1588 t385 = t383 * t2 * t4;
1589 t386 = t297 * sigma[0];
1590 t387 = t124 * t386;
1591 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1592 v2rhosigma[0] = -t304 * t157 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t371 - 0.10155490000000000000e-2 * t123 * t374 - 0.50777450000000000000e-3 * t123 * t163 + 0.38083087500000000000e-3 * t162 * t379 + 0.20626795428020000000e-5 * t385 * t387;
1593
1594 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1595 v2rholapl[0] = 0.0e0;
1596
1597 t393 = t17 * t79;
1598 t394 = t393 * t82;
1599 t400 = t24 * t17;
1600 t407 = -0.25e2 / 0.27e2 * t133 - 0.39725925925925925926e0 * t394 * t85 + 0.50379567901234567902e0 * t394 * t92 + 0.33104938271604938272e0 * t137 - 0.11094883230560388659e-1 * t400 * t322 + 0.14070293140870518124e-1 * t325 * t174 * t74 - 0.41982973251028806585e0 * t141;
1601 t409 = t178 * t97;
1602 t420 = t268 * t17;
1603 t424 = 0.13703703703703703704e0 * t147 + 0.91358024691358024692e-1 * t393 * t347 + 0.91358024691358024691e-1 * t420 * t352 + 0.13703703703703703704e0 * t149;
1604 t426 = t186 * t111;
1605 t435 = t7 * (t407 * t45 - 0.5e1 / 0.9e1 * t409 * t76 - 0.5e1 / 0.9e1 * t252 * t167 + 0.25e2 / 0.81e2 * t340 * t394 + 0.25e2 / 0.27e2 * t145 + t424 * t53 + 0.5e1 / 0.9e1 * t426 * t76 + 0.5e1 / 0.9e1 * t275 * t167 + 0.25e2 / 0.81e2 * t364 * t394 - 0.25e2 / 0.27e2 * t153);
1606 t436 = t435 * t59;
1607 t439 = t191 * t127;
1608 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1609 v2rhotau[0] = -t304 * t192 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t436 - 0.10155490000000000000e-2 * t123 * t439;
1610
1611 t443 = 0.1e1 / t9 / t382;
1612 t444 = t443 * t79;
1613 t445 = t444 * t224;
1614 t447 = t444 * t82;
1615 t448 = t447 * t228;
1616 t450 = t24 * t443;
1617 t451 = t450 * t236;
1618 t453 = t242 * t443;
1619 t454 = t239 * t453;
1620 t456 = -0.62071759259259259258e-2 * t445 + 0.78718074845679012345e-2 * t448 - 0.17335755047750607279e-3 * t451 + 0.21984833032610184568e-3 * t454;
1621 t458 = t335 * t132;
1622 t460 = t256 * t447;
1623 t462 = t444 * t263;
1624 t464 = t268 * t447;
1625 t466 = 0.14274691358024691358e-2 * t462 + 0.14274691358024691358e-2 * t464;
1626 t468 = t359 * t132;
1627 t470 = t279 * t447;
1628 t473 = t7 * (t456 * t45 + 0.5e1 / 0.36e2 * t458 + 0.25e2 / 0.5184e4 * t460 + t466 * t53 - 0.5e1 / 0.36e2 * t468 + 0.25e2 / 0.5184e4 * t470);
1629 t474 = t473 * t59;
1630 t477 = t156 * t126;
1631 t482 = 0.1e1 / t211 * t2 * t4;
1632 t483 = t124 * t297;
1633 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1634 v2sigma2[0] = -0.3e1 / 0.8e1 * t66 * t474 + 0.76166175000000000000e-3 * t162 * t477 - 0.77350482855075000000e-6 * t482 * t483;
1635
1636 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1637 v2sigmalapl[0] = 0.0e0;
1638
1639 t487 = 0.1e1 / t9 / t211;
1640 t488 = t487 * t79;
1641 t489 = t488 * t224;
1642 t491 = t488 * t82;
1643 t492 = t491 * t228;
1644 t494 = t24 * t487;
1645 t495 = t494 * t236;
1646 t497 = t242 * t487;
1647 t498 = t239 * t497;
1648 t500 = 0.49657407407407407407e-1 * t489 - 0.62974459876543209877e-1 * t492 + 0.13868604038200485824e-2 * t495 - 0.17587866426088147655e-2 * t498;
1649 t502 = t409 * t132;
1650 t506 = t256 * t491;
1651 t508 = t488 * t263;
1652 t510 = t268 * t491;
1653 t512 = -0.11419753086419753086e-1 * t508 - 0.11419753086419753086e-1 * t510;
1654 t514 = t426 * t132;
1655 t518 = t279 * t491;
1656 t521 = t7 * (t500 * t45 + 0.5e1 / 0.72e2 * t502 - 0.5e1 / 0.9e1 * t335 * t167 - 0.25e2 / 0.648e3 * t506 + t512 * t53 - 0.5e1 / 0.72e2 * t514 + 0.5e1 / 0.9e1 * t359 * t167 - 0.25e2 / 0.648e3 * t518);
1657 t522 = t521 * t59;
1658 t525 = t191 * t126;
1659 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1660 v2sigmatau[0] = -0.3e1 / 0.8e1 * t66 * t522 + 0.38083087500000000000e-3 * t162 * t525;
1661
1662 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1663 v2lapl2[0] = 0.0e0;
1664
1665 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1666 v2lapltau[0] = 0.0e0;
1667
1668 t528 = t204 * t79;
1669 t531 = t528 * t82;
1670 t534 = t24 * t204;
1671 t537 = t242 * t204;
1672 t540 = -0.39725925925925925926e0 * t528 * t224 + 0.50379567901234567902e0 * t531 * t228 - 0.11094883230560388659e-1 * t534 * t236 + 0.14070293140870518124e-1 * t239 * t537;
1673 t550 = 0.91358024691358024692e-1 * t528 * t263 + 0.91358024691358024691e-1 * t268 * t531;
1674 t557 = t7 * (t540 * t45 - 0.10e2 / 0.9e1 * t409 * t167 + 0.25e2 / 0.81e2 * t256 * t531 + t550 * t53 + 0.10e2 / 0.9e1 * t426 * t167 + 0.25e2 / 0.81e2 * t279 * t531);
1675 t558 = t557 * t59;
1676 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1677 v2tau2[0] = -0.3e1 / 0.8e1 * t66 * t558;
1678
1679 #ifndef XC_DONT_COMPILE_KXC
1680
1681 if(order < 3) return;
1682
1683
1684 t581 = t211 * t69;
1685 t582 = 0.1e1 / t581;
1686 t590 = 0.1e1 / t15 / t382;
1687 t593 = -0.440e3 / 0.27e2 * tau[0] * t213 + 0.154e3 / 0.27e2 * sigma[0] * t590;
1688 t594 = t593 * t25;
1689 t595 = t594 * t30;
1690 t598 = t216 * t79;
1691 t599 = t598 * t82;
1692 t604 = t221 * t74;
1693 t612 = t593 * t36 * t38;
1694 t615 = t24 * t216;
1695 t621 = t38 * t25 * t30;
1696 t624 = t88 * t88;
1697 t625 = 0.1e1 / t624;
1698 t626 = t239 * t625;
1699 t627 = t38 * t604;
1700 t628 = t25 * t30;
1701 t629 = t627 * t628;
1702 t636 = t90 * t38 * t593;
1703 t639 = 0.5e1 / 0.9e1 * t595 * t39 - 0.11917777777777777778e1 * t599 * t85 + 0.15113870370370370370e1 * t599 * t92 - 0.33284649691681165977e-1 * t604 * t89 * t38 + 0.42210879422611554372e-1 * t604 * t33 * t242 - 0.19862962962962962963e0 * t83 * t612 - 0.33284649691681165977e-1 * t615 * t322 - 0.15091796422897717740e-1 * t24 * t604 * t241 * t621 + 0.19139092794380554160e-1 * t626 * t629 + 0.42210879422611554372e-1 * t325 * t91 * t216 + 0.25189783950617283951e0 * t83 * t636;
1704 t641 = t250 * t97;
1705 t644 = t95 * t255;
1706 t649 = 0.0;
1707 t650 = t42 * t649;
1708 t651 = t27 * t27;
1709 t652 = 0.1e1 / t651;
1710 t653 = t604 * t652;
1711 t666 = t104 * t104;
1712 t667 = 0.1e1 / t666;
1713 t668 = t44 * t667;
1714 t671 = t268 * t74;
1715 t676 = -0.82222222222222222222e-1 * t594 * t101 + 0.27407407407407407407e0 * t598 * t347 - 0.91358024691358024692e0 * t653 * t267 - 0.91358024691358024691e0 * t668 * t653 + 0.27407407407407407407e0 * t671 * t599 - 0.82222222222222222222e-1 * t106 * t595;
1716 t678 = t273 * t111;
1717 t681 = t109 * t278;
1718 t686 = 0.0;
1719 t687 = t51 * t686;
1720 t694 = t639 * t45 - 0.5e1 / 0.3e1 * t641 * t76 + 0.25e2 / 0.27e2 * t644 * t227 - 0.5e1 / 0.3e1 * t252 * t218 - 0.250e3 / 0.243e3 * t650 * t653 + 0.25e2 / 0.27e2 * t340 * t599 - 0.5e1 / 0.9e1 * t98 * t595 + t676 * t53 + 0.5e1 / 0.3e1 * t678 * t76 + 0.25e2 / 0.27e2 * t681 * t227 + 0.5e1 / 0.3e1 * t275 * t218 + 0.250e3 / 0.243e3 * t687 * t653 + 0.25e2 / 0.27e2 * t364 * t599 + 0.5e1 / 0.9e1 * t112 * t595;
1721 t695 = t7 * t694;
1722 t705 = t211 * t211;
1723 t706 = t705 * rho[0];
1724 t708 = 0.1e1 / t15 / t706;
1725 t710 = t708 * t2 * t4;
1726 t711 = t125 * t125;
1727 t712 = 0.1e1 / t711;
1728 t713 = t298 * sigma[0];
1729 t714 = t712 * t713;
1730 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1731 v3rho3[0] = t8 * t17 * t55 * t59 / 0.9e1 - t8 * t195 * t115 * t59 / 0.2e1 - 0.38365184444444444441e-2 * t8 * t487 * t55 * t127 - 0.3e1 / 0.2e1 * t8 * t9 * t284 * t59 + 0.30466469999999999999e-2 * t8 * t204 * t115 * t127 + 0.38503351465637333333e-4 * t8 * t582 * t55 * t299 - 0.3e1 / 0.8e1 * t66 * t695 * t59 - 0.30466470000000000000e-2 * t123 * t285 * t127 - 0.16501436342416000000e-4 * t295 * t116 * t299 - 0.44688045802944603692e-7 * t710 * t124 * t714;
1732
1733 t719 = t195 * t2 * t4;
1734 t724 = t204 * t2 * t4;
1735 t727 = t275 * t308;
1736 t729 = t681 * t74;
1737 t730 = t729 * t312;
1738 t732 = t279 * t216;
1739 t733 = t732 * t312;
1740 t735 = t213 * t25;
1741 t736 = t735 * t30;
1742 t737 = t112 * t736;
1743 t739 = t256 * t216;
1744 t740 = t739 * t312;
1745 t742 = t98 * t736;
1746 t744 = t252 * t308;
1747 t746 = t644 * t74;
1748 t747 = t746 * t312;
1749 t749 = t735 * t101;
1750 t751 = t71 * t79;
1751 t752 = t751 * t347;
1752 t754 = t21 * t652;
1753 t755 = t267 * t221;
1754 t756 = t754 * t755;
1755 t758 = t263 * t216;
1756 t759 = t311 * t758;
1757 t761 = t754 * t221;
1758 t762 = t668 * t761;
1759 t764 = t268 * t71;
1760 t765 = t764 * t352;
1761 t767 = t350 * t599;
1762 t769 = t106 * t736;
1763 t771 = 0.10049382716049382716e0 * t749 + 0.60905349794238683129e-1 * t752 + 0.11419753086419753087e0 * t756 - 0.11419753086419753087e-1 * t759 + 0.11419753086419753087e0 * t762 + 0.60905349794238683129e-1 * t765 - 0.11419753086419753087e-1 * t767 + 0.10049382716049382716e0 * t769;
1764 t773 = t139 * t216;
1765 t774 = t325 * t773;
1766 t776 = t751 * t82;
1767 t777 = t776 * t85;
1768 t779 = t312 * t232;
1769 t781 = t21 * t221;
1770 t782 = t781 * t236;
1771 t784 = t312 * t247;
1772 t788 = t83 * t213 * t36 * t38;
1773 t791 = t38 * t221;
1774 t792 = t791 * t628;
1775 t793 = t321 * t241 * t792;
1776 t796 = t325 * t329 * t74;
1777 t798 = t736 * t39;
1778 t800 = t776 * t92;
1779 t802 = t21 * t33;
1780 t803 = t802 * t243;
1781 t805 = t24 * t71;
1782 t806 = t805 * t322;
1783 t808 = t236 * t216;
1784 t809 = t321 * t808;
1785 t812 = t239 * t625 * t38;
1786 t814 = t812 * t781 * t628;
1787 t816 = t38 * t213;
1788 t818 = t83 * t90 * t816;
1789 t820 = -0.17587866426088147654e-2 * t774 - 0.26483950617283950616e0 * t777 + 0.49657407407407407406e-1 * t779 + 0.41605812114601457471e-2 * t782 - 0.62974459876543209876e-1 * t784 + 0.24276954732510288065e0 * t788 + 0.18864745528622147174e-2 * t793 + 0.93801954272470120822e-2 * t796 - 0.55e2 / 0.81e2 * t798 + 0.33586378600823045268e0 * t800 - 0.52763599278264442963e-2 * t803 - 0.73965888203735924393e-2 * t806 + 0.13868604038200485824e-2 * t809 - 0.23923865992975692699e-2 * t814 - 0.30787513717421124828e0 * t818;
1790 t822 = t364 * t776;
1791 t824 = 0.10e2 / 0.27e2 * t727 - 0.25e2 / 0.324e3 * t730 - 0.25e2 / 0.648e3 * t733 - 0.55e2 / 0.81e2 * t737 - 0.25e2 / 0.648e3 * t740 + 0.55e2 / 0.81e2 * t742 - 0.10e2 / 0.27e2 * t744 - 0.25e2 / 0.324e3 * t747 + t771 * t53 + t820 * t45 + 0.50e2 / 0.243e3 * t822;
1792 t825 = t340 * t776;
1793 t829 = t151 * t278;
1794 t832 = t678 * t132;
1795 t834 = t687 * t761;
1796 t836 = t333 * t97;
1797 t841 = t143 * t255;
1798 t844 = t641 * t132;
1799 t846 = t650 * t761;
1800 t848 = t357 * t111;
1801 t851 = 0.50e2 / 0.243e3 * t825 + 0.5e1 / 0.9e1 * t359 * t218 + 0.25e2 / 0.81e2 * t829 * t227 - 0.5e1 / 0.72e2 * t832 - 0.125e3 / 0.972e3 * t834 - 0.10e2 / 0.9e1 * t836 * t76 - 0.5e1 / 0.9e1 * t335 * t218 + 0.25e2 / 0.81e2 * t841 * t227 + 0.5e1 / 0.72e2 * t844 + 0.125e3 / 0.972e3 * t846 + 0.10e2 / 0.9e1 * t848 * t76;
1802 t853 = t7 * (t851 + t824);
1803 t854 = t853 * t59;
1804 t857 = t370 * t127;
1805 t860 = t156 * t299;
1806 t869 = t285 * t126;
1807 t872 = t116 * t386;
1808 t876 = 0.1e1 / t15 / t705;
1809 t878 = t876 * t2 * t4;
1810 t879 = t712 * t298;
1811 t880 = t124 * t879;
1812 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1813 v3rho2sigma[0] = -t719 * t157 / 0.6e1 - t304 * t371 + 0.10155489999999999999e-2 * t724 * t374 - 0.3e1 / 0.8e1 * t66 * t854 - 0.20310980000000000000e-2 * t123 * t857 - 0.55004787808053333334e-5 * t295 * t860 + 0.11848071666666666667e-2 * t724 * t163 - 0.10155490000000000000e-2 * t123 * t379 - 0.13063637104412666667e-4 * t295 * t387 + 0.38083087500000000000e-3 * t162 * t869 + 0.41253590856040000000e-5 * t385 * t872 + 0.16758017176104226384e-7 * t878 * t880;
1814
1815 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1816 v3rho2lapl[0] = 0.0e0;
1817
1818 t890 = t17 * t652;
1819 t895 = t890 * t221;
1820 t902 = -0.36543209876543209877e0 * t345 - 0.30452674897119341564e0 * t348 - 0.91358024691358024692e0 * t890 * t755 + 0.91358024691358024692e-1 * t393 * t758 - 0.91358024691358024691e0 * t668 * t895 - 0.30452674897119341564e0 * t353 + 0.91358024691358024691e-1 * t420 * t599 - 0.36543209876543209877e0 * t355;
1821 t918 = t424 * t111;
1822 t923 = t186 * t278;
1823 t926 = t902 * t53 + 0.50e2 / 0.81e2 * t729 * t394 + 0.25e2 / 0.81e2 * t732 * t394 + 0.50e2 / 0.81e2 * t746 * t394 + 0.25e2 / 0.81e2 * t739 * t394 + 0.250e3 / 0.243e3 * t687 * t895 - 0.5e1 / 0.9e1 * t641 * t167 - 0.250e3 / 0.243e3 * t650 * t895 + 0.10e2 / 0.9e1 * t918 * t76 + 0.5e1 / 0.9e1 * t426 * t218 + 0.25e2 / 0.81e2 * t923 * t227;
1824 t929 = t407 * t97;
1825 t934 = t178 * t255;
1826 t939 = t174 * t216;
1827 t942 = t17 * t33;
1828 t952 = t17 * t221;
1829 t965 = -0.39725925925925925926e0 * t394 * t232 + 0.14070293140870518124e-1 * t325 * t939 + 0.42210879422611554372e-1 * t942 * t243 - 0.11094883230560388659e-1 * t400 * t808 + 0.50379567901234567902e0 * t394 * t247 - 0.15091796422897717740e-1 * t400 * t241 * t792 - 0.33284649691681165977e-1 * t952 * t236 + 0.200e3 / 0.81e2 * t309 - 0.16793189300411522634e1 * t315 - 0.88279835390946502059e0 * t319 + 0.13241975308641975309e1 * t313 - 0.46900977136235060413e-1 * t327 + 0.11195459533607681756e1 * t331 + 0.19139092794380554160e-1 * t812 * t952 * t628 + 0.36982944101867962196e-1 * t323;
1830 t973 = 0.5e1 / 0.9e1 * t678 * t167 - 0.10e2 / 0.9e1 * t929 * t76 - 0.5e1 / 0.9e1 * t409 * t218 + 0.25e2 / 0.81e2 * t934 * t227 + t965 * t45 - 0.200e3 / 0.81e2 * t343 - 0.250e3 / 0.243e3 * t341 + 0.200e3 / 0.81e2 * t367 - 0.250e3 / 0.243e3 * t365 + 0.50e2 / 0.27e2 * t338 - 0.50e2 / 0.27e2 * t362;
1831 t975 = t7 * (t973 + t926);
1832 t976 = t975 * t59;
1833 t979 = t435 * t127;
1834 t982 = t191 * t299;
1835 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1836 v3rho2tau[0] = -t719 * t192 / 0.6e1 - t304 * t436 + 0.10155489999999999999e-2 * t724 * t439 - 0.3e1 / 0.8e1 * t66 * t976 - 0.20310980000000000000e-2 * t123 * t979 - 0.55004787808053333334e-5 * t295 * t982;
1837
1838 t988 = 0.1e1 / t9 / t292;
1839 t989 = t988 * t79;
1840 t990 = t989 * t224;
1841 t992 = t443 * t89;
1842 t993 = t992 * t91;
1843 t995 = t989 * t82;
1844 t996 = t995 * t228;
1845 t998 = t443 * t33;
1846 t999 = t242 * t74;
1847 t1000 = t998 * t999;
1848 t1002 = t24 * t988;
1849 t1003 = t1002 * t236;
1850 t1005 = t450 * t241;
1851 t1006 = t91 * t628;
1852 t1007 = t1005 * t1006;
1853 t1011 = t812 * t443 * t74 * t628;
1854 t1014 = t239 * t242 * t988;
1855 t1016 = 0.33104938271604938271e-1 * t990 - 0.52007265143251821838e-3 * t993 - 0.41982973251028806584e-1 * t996 + 0.65954499097830553704e-3 * t1000 + 0.92457360254669905488e-3 * t1003 - 0.23580931910777683967e-3 * t1007 + 0.29904832491219615874e-3 * t1011 - 0.11725244284058765103e-2 * t1014;
1856 t1018 = t456 * t97;
1857 t1021 = t836 * t132;
1858 t1023 = t841 * t74;
1859 t1024 = t1023 * t312;
1860 t1026 = t335 * t308;
1861 t1028 = t644 * t447;
1862 t1030 = t74 * t652;
1863 t1031 = t1030 * t443;
1864 t1032 = t650 * t1031;
1865 t1034 = t256 * t995;
1866 t1036 = t989 * t263;
1867 t1038 = t443 * t652;
1868 t1039 = t267 * t74;
1869 t1040 = t1038 * t1039;
1870 t1042 = t668 * t1031;
1871 t1044 = t268 * t995;
1872 t1046 = -0.76131687242798353909e-2 * t1036 - 0.14274691358024691358e-1 * t1040 - 0.14274691358024691358e-1 * t1042 - 0.76131687242798353909e-2 * t1044;
1873 t1048 = t466 * t111;
1874 t1051 = t848 * t132;
1875 t1053 = t829 * t74;
1876 t1054 = t1053 * t312;
1877 t1056 = t359 * t308;
1878 t1058 = t681 * t447;
1879 t1060 = t687 * t1031;
1880 t1062 = t279 * t995;
1881 t1064 = t1016 * t45 - 0.5e1 / 0.9e1 * t1018 * t76 + 0.5e1 / 0.36e2 * t1021 - 0.25e2 / 0.324e3 * t1024 - 0.10e2 / 0.27e2 * t1026 + 0.25e2 / 0.5184e4 * t1028 - 0.125e3 / 0.7776e4 * t1032 - 0.25e2 / 0.972e3 * t1034 + t1046 * t53 + 0.5e1 / 0.9e1 * t1048 * t76 - 0.5e1 / 0.36e2 * t1051 - 0.25e2 / 0.324e3 * t1054 + 0.10e2 / 0.27e2 * t1056 + 0.25e2 / 0.5184e4 * t1058 + 0.125e3 / 0.7776e4 * t1060 - 0.25e2 / 0.972e3 * t1062;
1882 t1065 = t7 * t1064;
1883 t1066 = t1065 * t59;
1884 t1069 = t473 * t127;
1885 t1074 = t370 * t126;
1886 t1077 = t156 * t386;
1887 t1082 = t116 * t297;
1888 t1086 = 0.1e1 / t15 / t581;
1889 t1088 = t1086 * t2 * t4;
1890 t1089 = t712 * sigma[0];
1891 t1090 = t124 * t1089;
1892 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1893 v3rhosigma2[0] = -t304 * t474 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t1066 - 0.10155490000000000000e-2 * t123 * t1069 - 0.10155490000000000000e-2 * t123 * t477 + 0.76166175000000000000e-3 * t162 * t1074 + 0.41253590856040000001e-5 * t385 * t1077 + 0.30940193142030000000e-5 * t385 * t483 - 0.77350482855075000000e-6 * t482 * t1082 - 0.62842564410390848941e-8 * t1088 * t1090;
1894
1895 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1896 v3rhosigmalapl[0] = 0.0e0;
1897
1898 t1096 = t487 * t89;
1899 t1097 = t1096 * t91;
1900 t1100 = t487 * t33;
1901 t1101 = t1100 * t999;
1902 t1104 = t494 * t241;
1903 t1105 = t1104 * t1006;
1904 t1109 = t812 * t487 * t74 * t628;
1905 t1112 = -0.21518209876543209876e0 * t445 + 0.41605812114601457472e-2 * t1097 + 0.27288932613168724280e0 * t448 - 0.52763599278264442964e-2 * t1101 - 0.60097284165535438571e-2 * t451 + 0.18864745528622147175e-2 * t1105 - 0.23923865992975692700e-2 * t1109 + 0.76214087846381973172e-2 * t454;
1906 t1114 = t500 * t97;
1907 t1117 = t929 * t132;
1908 t1119 = t934 * t74;
1909 t1120 = t1119 * t312;
1910 t1122 = t409 * t308;
1911 t1129 = t644 * t491;
1912 t1131 = t1030 * t487;
1913 t1132 = t650 * t1131;
1914 t1135 = t1112 * t45 - 0.5e1 / 0.9e1 * t1114 * t76 + 0.5e1 / 0.72e2 * t1117 - 0.25e2 / 0.648e3 * t1120 - 0.5e1 / 0.27e2 * t1122 - 0.5e1 / 0.9e1 * t836 * t167 + 0.25e2 / 0.81e2 * t1023 * t394 + 0.25e2 / 0.27e2 * t458 - 0.25e2 / 0.648e3 * t1129 + 0.125e3 / 0.972e3 * t1132 + 0.325e3 / 0.1944e4 * t460;
1915 t1137 = t487 * t652;
1916 t1138 = t1137 * t1039;
1917 t1140 = t668 * t1131;
1918 t1143 = 0.49485596707818930039e-1 * t462 + 0.11419753086419753086e0 * t1138 + 0.11419753086419753086e0 * t1140 + 0.49485596707818930039e-1 * t464;
1919 t1145 = t512 * t111;
1920 t1148 = t918 * t132;
1921 t1150 = t923 * t74;
1922 t1151 = t1150 * t312;
1923 t1153 = t426 * t308;
1924 t1160 = t681 * t491;
1925 t1162 = t687 * t1131;
1926 t1165 = t1143 * t53 + 0.5e1 / 0.9e1 * t1145 * t76 - 0.5e1 / 0.72e2 * t1148 - 0.25e2 / 0.648e3 * t1151 + 0.5e1 / 0.27e2 * t1153 + 0.5e1 / 0.9e1 * t848 * t167 + 0.25e2 / 0.81e2 * t1053 * t394 - 0.25e2 / 0.27e2 * t468 - 0.25e2 / 0.648e3 * t1160 - 0.125e3 / 0.972e3 * t1162 + 0.325e3 / 0.1944e4 * t470;
1927 t1167 = t7 * (t1165 + t1135);
1928 t1168 = t1167 * t59;
1929 t1171 = t521 * t127;
1930 t1176 = t435 * t126;
1931 t1179 = t191 * t386;
1932 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1933 v3rhosigmatau[0] = -t304 * t522 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t1168 - 0.10155490000000000000e-2 * t123 * t1171 - 0.50777450000000000000e-3 * t123 * t525 + 0.38083087500000000000e-3 * t162 * t1176 + 0.20626795428020000000e-5 * t385 * t1179;
1934
1935 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1936 v3rholapl2[0] = 0.0e0;
1937
1938 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1939 v3rholapltau[0] = 0.0e0;
1940
1941 t1185 = t204 * t89;
1942 t1189 = t204 * t33;
1943 t1193 = t534 * t241;
1944 t1201 = 0.13241975308641975309e1 * t489 - 0.33284649691681165977e-1 * t1185 * t91 - 0.16793189300411522634e1 * t492 + 0.42210879422611554372e-1 * t1189 * t999 + 0.36982944101867962197e-1 * t495 - 0.15091796422897717740e-1 * t1193 * t1006 + 0.19139092794380554160e-1 * t812 * t204 * t74 * t628 - 0.46900977136235060413e-1 * t498;
1945 t1203 = t540 * t97;
1946 t1213 = t1030 * t204;
1947 t1218 = t204 * t652;
1948 t1224 = -0.30452674897119341564e0 * t508 - 0.91358024691358024692e0 * t1218 * t1039 - 0.91358024691358024691e0 * t668 * t1213 - 0.30452674897119341564e0 * t510;
1949 t1226 = t550 * t111;
1950 t1239 = t1201 * t45 - 0.5e1 / 0.9e1 * t1203 * t76 - 0.10e2 / 0.9e1 * t929 * t167 + 0.50e2 / 0.81e2 * t1119 * t394 + 0.50e2 / 0.27e2 * t502 + 0.25e2 / 0.81e2 * t644 * t531 - 0.250e3 / 0.243e3 * t650 * t1213 - 0.250e3 / 0.243e3 * t506 + t1224 * t53 + 0.5e1 / 0.9e1 * t1226 * t76 + 0.10e2 / 0.9e1 * t918 * t167 + 0.50e2 / 0.81e2 * t1150 * t394 - 0.50e2 / 0.27e2 * t514 + 0.25e2 / 0.81e2 * t681 * t531 + 0.250e3 / 0.243e3 * t687 * t1213 - 0.250e3 / 0.243e3 * t518;
1951 t1240 = t7 * t1239;
1952 t1241 = t1240 * t59;
1953 t1244 = t557 * t127;
1954 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1955 v3rhotau2[0] = -t304 * t558 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t1241 - 0.10155490000000000000e-2 * t123 * t1244;
1956
1957 t1247 = 0.1e1 / t705;
1958 t1249 = t1247 * t89 * t38;
1959 t1251 = t1247 * t33;
1960 t1252 = t1251 * t242;
1961 t1254 = t24 * t1247;
1962 t1256 = t1254 * t241 * t621;
1963 t1260 = t626 * t38 * t1247 * t628;
1964 t1262 = 0.65009081429064777297e-4 * t1249 - 0.82443123872288192129e-4 * t1252 + 0.29476164888472104959e-4 * t1256 - 0.37381040614024519844e-4 * t1260;
1965 t1264 = t1018 * t132;
1966 t1266 = t841 * t447;
1967 t1268 = t1247 * t652;
1968 t1269 = t650 * t1268;
1969 t1271 = t1268 * t267;
1970 t1273 = t668 * t1268;
1971 t1275 = 0.17843364197530864197e-2 * t1271 + 0.17843364197530864198e-2 * t1273;
1972 t1277 = t1048 * t132;
1973 t1279 = t829 * t447;
1974 t1281 = t687 * t1268;
1975 t1284 = t7 * (t1262 * t45 + 0.5e1 / 0.24e2 * t1264 + 0.25e2 / 0.1728e4 * t1266 + 0.125e3 / 0.62208e5 * t1269 + t1275 * t53 - 0.5e1 / 0.24e2 * t1277 + 0.25e2 / 0.1728e4 * t1279 - 0.125e3 / 0.62208e5 * t1281);
1976 t1285 = t1284 * t59;
1977 t1288 = t473 * t126;
1978 t1291 = t156 * t297;
1979 t1295 = 0.1e1 / t15 / t292;
1980 t1297 = t1295 * t2 * t4;
1981 t1298 = t124 * t712;
1982 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1983 v3sigma3[0] = -0.3e1 / 0.8e1 * t66 * t1285 + 0.11424926250000000000e-2 * t162 * t1288 - 0.23205144856522500000e-5 * t482 * t1291 + 0.23565961653896568352e-8 * t1297 * t1298;
1984
1985 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1986 v3sigma2lapl[0] = 0.0e0;
1987
1988 t1302 = t582 * t89 * t38;
1989 t1304 = t582 * t33;
1990 t1305 = t1304 * t242;
1991 t1307 = t24 * t582;
1992 t1309 = t1307 * t241 * t621;
1993 t1313 = t626 * t38 * t582 * t628;
1994 t1315 = -0.52007265143251821838e-3 * t1302 + 0.65954499097830553705e-3 * t1305 - 0.23580931910777683968e-3 * t1309 + 0.29904832491219615877e-3 * t1313;
1995 t1317 = t1114 * t132;
1996 t1319 = t934 * t447;
1997 t1323 = t841 * t491;
1998 t1325 = t582 * t652;
1999 t1326 = t650 * t1325;
2000 t1328 = t1325 * t267;
2001 t1330 = t668 * t1325;
2002 t1332 = -0.14274691358024691358e-1 * t1328 - 0.14274691358024691358e-1 * t1330;
2003 t1334 = t1145 * t132;
2004 t1336 = t923 * t447;
2005 t1340 = t829 * t491;
2006 t1342 = t687 * t1325;
2007 t1344 = t1315 * t45 + 0.5e1 / 0.36e2 * t1317 + 0.25e2 / 0.5184e4 * t1319 - 0.5e1 / 0.9e1 * t1018 * t167 - 0.25e2 / 0.324e3 * t1323 - 0.125e3 / 0.7776e4 * t1326 + t1332 * t53 - 0.5e1 / 0.36e2 * t1334 + 0.25e2 / 0.5184e4 * t1336 + 0.5e1 / 0.9e1 * t1048 * t167 - 0.25e2 / 0.324e3 * t1340 + 0.125e3 / 0.7776e4 * t1342;
2008 t1345 = t7 * t1344;
2009 t1346 = t1345 * t59;
2010 t1349 = t521 * t126;
2011 t1352 = t191 * t297;
2012 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2013 v3sigma2tau[0] = -0.3e1 / 0.8e1 * t66 * t1346 + 0.76166175000000000000e-3 * t162 * t1349 - 0.77350482855075000000e-6 * t482 * t1352;
2014
2015 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2016 v3sigmalapl2[0] = 0.0e0;
2017
2018 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2019 v3sigmalapltau[0] = 0.0e0;
2020
2021 t1356 = t293 * t89 * t38;
2022 t1358 = t293 * t33;
2023 t1359 = t1358 * t242;
2024 t1361 = t24 * t293;
2025 t1363 = t1361 * t241 * t621;
2026 t1367 = t626 * t38 * t293 * t628;
2027 t1369 = 0.41605812114601457472e-2 * t1356 - 0.52763599278264442964e-2 * t1359 + 0.18864745528622147175e-2 * t1363 - 0.23923865992975692701e-2 * t1367;
2028 t1371 = t1203 * t132;
2029 t1375 = t934 * t491;
2030 t1379 = t293 * t652;
2031 t1380 = t650 * t1379;
2032 t1382 = t1379 * t267;
2033 t1384 = t668 * t1379;
2034 t1386 = 0.11419753086419753086e0 * t1382 + 0.11419753086419753086e0 * t1384;
2035 t1388 = t1226 * t132;
2036 t1392 = t923 * t491;
2037 t1396 = t687 * t1379;
2038 t1398 = t1369 * t45 + 0.5e1 / 0.72e2 * t1371 - 0.10e2 / 0.9e1 * t1114 * t167 - 0.25e2 / 0.324e3 * t1375 + 0.25e2 / 0.81e2 * t841 * t531 + 0.125e3 / 0.972e3 * t1380 + t1386 * t53 - 0.5e1 / 0.72e2 * t1388 + 0.10e2 / 0.9e1 * t1145 * t167 - 0.25e2 / 0.324e3 * t1392 + 0.25e2 / 0.81e2 * t829 * t531 - 0.125e3 / 0.972e3 * t1396;
2039 t1399 = t7 * t1398;
2040 t1400 = t1399 * t59;
2041 t1403 = t557 * t126;
2042 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2043 v3sigmatau2[0] = -0.3e1 / 0.8e1 * t66 * t1400 + 0.38083087500000000000e-3 * t162 * t1403;
2044
2045 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2046 v3lapl3[0] = 0.0e0;
2047
2048 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2049 v3lapl2tau[0] = 0.0e0;
2050
2051 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2052 v3lapltau2[0] = 0.0e0;
2053
2054 t1409 = t383 * t33;
2055 t1412 = t24 * t383;
2056 t1420 = -0.33284649691681165977e-1 * t383 * t89 * t38 + 0.42210879422611554372e-1 * t1409 * t242 - 0.15091796422897717740e-1 * t1412 * t241 * t621 + 0.19139092794380554160e-1 * t626 * t38 * t383 * t628;
2057 t1426 = t383 * t652;
2058 t1433 = -0.91358024691358024692e0 * t1426 * t267 - 0.91358024691358024691e0 * t668 * t1426;
2059 t1442 = t7 * (t1420 * t45 - 0.5e1 / 0.3e1 * t1203 * t167 + 0.25e2 / 0.27e2 * t934 * t531 - 0.250e3 / 0.243e3 * t650 * t1426 + t1433 * t53 + 0.5e1 / 0.3e1 * t1226 * t167 + 0.25e2 / 0.27e2 * t923 * t531 + 0.250e3 / 0.243e3 * t687 * t1426);
2060 t1443 = t1442 * t59;
2061 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2062 v3tau3[0] = -0.3e1 / 0.8e1 * t66 * t1443;
2063
2064 #ifndef XC_DONT_COMPILE_LXC
2065
2066 if(order < 4) return;
2067
2068
2069 t1452 = 0.1e1 / t711 / t58;
2070 t1453 = t298 * t298;
2071 t1469 = 0.0;
2072 t1470 = t51 * t1469;
2073 t1471 = t221 * t221;
2074 t1473 = t628 * t652;
2075 t1476 = t216 * t216;
2076 t1477 = t1476 * t79;
2077 t1478 = t1477 * t82;
2078 t1481 = t351 * t593;
2079 t1484 = 0.0;
2080 t1485 = t42 * t1484;
2081 t1499 = 0.6160e4 / 0.81e2 * tau[0] * t590 - 0.2618e4 / 0.81e2 * sigma[0] * t1295;
2082 t1500 = t1499 * t25;
2083 t1506 = t216 * t652;
2084 t1513 = t667 * t25 * t30;
2085 t1518 = t44 / t666 / t47;
2086 t1522 = t221 * t652;
2087 t1523 = t1522 * t216;
2088 t1530 = t1500 * t30;
2089 t1547 = t38 * t79;
2090 t1548 = t1547 * t82;
2091 t1561 = t221 * t25;
2092 t1567 = 0.1e1 / t624 / t35;
2093 t1568 = t239 * t1567;
2094 t1599 = -0.11917777777777777778e1 * t1477 * t224 + 0.76556371177522216641e-1 * t1471 * t33 * t625 * t621 - 0.19862962962962962963e0 * t83 * t1499 * t36 * t38 - 0.27371454575003443189e-1 * t24 * t1471 * t625 * t1548 + 0.42210879422611554372e-1 * t239 * t242 * t1476 + 0.56281172563482072496e-1 * t325 * t91 * t593 + 0.5e1 / 0.9e1 * t1530 * t39 - 0.15890370370370370370e1 * t1481 * t85 + 0.11483455676628332496e0 * t812 * t1561 * t30 * t216 + 0.34711892100090877548e-1 * t1568 * t38 * t1471 * t351 + 0.25189783950617283951e0 * t83 * t90 * t38 * t1499 + 0.20151827160493827160e1 * t1481 * t92 + 0.15113870370370370370e1 * t1478 * t228 - 0.90550778537386306439e-1 * t615 * t241 * t792 - 0.33284649691681165977e-1 * t24 * t1476 * t236 + 0.25326527653566932623e0 * t216 * t33 * t243 - 0.60367185691590870959e-1 * t1471 * t241 * t621 - 0.44379532922241554636e-1 * t24 * t593 * t322 - 0.19970789815008699586e0 * t216 * t221 * t236;
2095 t1605 = 0.100e3 / 0.27e2 * t729 * t599 + 0.1250e4 / 0.2187e4 * t1470 * t1471 * t1473 + 0.25e2 / 0.27e2 * t279 * t1478 + 0.100e3 / 0.81e2 * t364 * t1481 + 0.1250e4 / 0.2187e4 * t1485 * t1471 * t1473 + 0.25e2 / 0.27e2 * t256 * t1478 + 0.100e3 / 0.81e2 * t340 * t1481 + 0.100e3 / 0.27e2 * t746 * t599 + (-0.82222222222222222222e-1 * t1500 * t101 + 0.36543209876543209876e0 * t593 * t79 * t347 - 0.54814814814814814815e1 * t1506 * t755 + 0.27407407407407407407e0 * t1477 * t263 + 0.20301783264746227709e1 * t1471 * t652 * t1513 + 0.20301783264746227709e1 * t1518 * t1471 * t1473 - 0.54814814814814814814e1 * t668 * t1523 + 0.27407407407407407407e0 * t268 * t1478 + 0.36543209876543209876e0 * t671 * t1481 - 0.82222222222222222222e-1 * t106 * t1530) * t53 + t1599 * t45 + 0.20e2 / 0.9e1 * t275 * t595 + 0.500e3 / 0.81e2 * t687 * t1523;
2096 t1608 = t676 * t111;
2097 t1613 = t273 * t278;
2098 t1616 = t639 * t97;
2099 t1621 = t250 * t255;
2100 t1630 = t109 * t686;
2101 t1633 = t95 * t649;
2102 t1636 = 0.5e1 / 0.9e1 * t112 * t1530 + 0.20e2 / 0.9e1 * t1608 * t76 + 0.10e2 / 0.3e1 * t678 * t218 + 0.50e2 / 0.27e2 * t1613 * t227 - 0.20e2 / 0.9e1 * t1616 * t76 - 0.10e2 / 0.3e1 * t641 * t218 + 0.50e2 / 0.27e2 * t1621 * t227 - 0.20e2 / 0.9e1 * t252 * t595 - 0.500e3 / 0.81e2 * t650 * t1523 - 0.5e1 / 0.9e1 * t98 * t1530 + 0.1000e4 / 0.243e3 * t1630 * t653 - 0.1000e4 / 0.243e3 * t1633 * t653;
2103 t1653 = t705 * t19;
2104 t1655 = 0.1e1 / t15 / t1653;
2105 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2106 v4rho4[0] = -0.48408426908943561959e-9 / t9 / t705 / t382 * t2 * t4 * t124 * t1452 * t1453 - 0.17875218321177841476e-6 * t710 * t116 * t714 - 0.33002872684832000000e-4 * t295 * t285 * t299 - 0.40621960000000000000e-2 * t123 * t695 * t127 - 0.3e1 / 0.8e1 * t66 * t7 * (t1636 + t1605) * t59 - 0.2e1 * t8 * t9 * t694 * t59 + 0.4e1 / 0.9e1 * t8 * t17 * t115 * t59 - t8 * t195 * t284 * t59 + 0.74480076338241006153e-6 * t8 * t1655 * t55 * t714 + 0.15401340586254933333e-3 * t8 * t582 * t115 * t299 + 0.60932939999999999999e-2 * t8 * t204 * t284 * t127 - 0.15346073777777777778e-1 * t8 * t487 * t115 * t127 - 0.29030304676472592592e-3 * t8 * t1247 * t55 * t299 - 0.5e1 / 0.27e2 * t8 * t21 * t55 * t59 + 0.16925816666666666665e-1 * t8 * t443 * t55 * t127;
2107
2108 t1714 = t487 * t2 * t4;
2109 t1718 = t582 * t2 * t4;
2110 t1724 = t71 * t652;
2111 t1725 = t1724 * t221;
2112 t1729 = t1030 * t216;
2113 t1736 = t590 * t25;
2114 t1737 = t1736 * t30;
2115 t1742 = t604 * t25 * t30;
2116 t1746 = t653 * t628;
2117 t1756 = t213 * t79;
2118 t1761 = t1039 * t216;
2119 t1764 = t263 * t593;
2120 t1767 = -0.91358024691358024694e0 * t668 * t1725 + 0.34259259259259259261e0 * t668 * t21 * t1729 + 0.91358024691358024694e-1 * t764 * t599 - 0.11419753086419753087e-1 * t350 * t1481 - 0.46897119341563786008e0 * t106 * t1737 - 0.25377229080932784637e0 * t754 * t667 * t1742 - 0.25377229080932784638e0 * t1518 * t21 * t1746 - 0.33497942386831275721e0 * t268 * t213 * t352 - 0.91358024691358024694e0 * t1724 * t755 - 0.46897119341563786008e0 * t1736 * t101 - 0.33497942386831275721e0 * t1756 * t347 + 0.91358024691358024694e-1 * t751 * t758 + 0.34259259259259259261e0 * t754 * t1761 - 0.11419753086419753087e-1 * t311 * t1764;
2121 t1770 = t239 * t1567 * t38;
2122 t1771 = t21 * t604;
2123 t1776 = t24 * t74 * t628;
2124 t1777 = t21 * t216;
2125 t1781 = t71 * t221;
2126 t1791 = t74 * t33 * t241;
2127 t1807 = t1756 * t82;
2128 t1814 = -0.43389865125113596934e-2 * t1770 * t1771 * t351 + 0.56594236585866441522e-2 * t1776 * t242 * t1777 + 0.19139092794380554159e-1 * t812 * t1781 * t628 - 0.71771597978927078097e-2 * t812 * t1777 * t76 - 0.33284649691681165977e-1 * t1781 * t236 - 0.15829079783479332889e-1 * t1791 * t773 - 0.17587866426088147654e-2 * t325 * t139 * t593 - 0.39725925925925925924e0 * t776 * t232 + 0.49657407407407407406e-1 * t312 * t612 + 0.75458982114488588696e-2 * t1771 * t241 * t621 + 0.14070293140870518123e-1 * t325 * t329 * t216 + 0.14566172839506172839e1 * t1807 * t85 - 0.11329245541838134430e1 * t83 * t590 * t36 * t38;
2129 t1835 = t627 * t351;
2130 t1851 = t236 * t593;
2131 t1854 = -0.51591074849858566452e-1 * t325 * t816 * t74 + 0.770e3 / 0.243e3 * t1737 * t39 + 0.14367506401463191586e1 * t83 * t90 * t38 * t590 + 0.50379567901234567902e0 * t776 * t247 - 0.15091796422897717739e-1 * t805 * t241 * t792 - 0.95695463971902770797e-2 * t802 * t625 * t629 - 0.62974459876543209876e-1 * t312 * t636 + 0.34214318218754303985e-2 * t321 * t625 * t1835 - 0.18472508230452674898e1 * t1807 * t92 + 0.42210879422611554370e-1 * t221 * t33 * t242 * t71 + 0.12481743634380437241e-1 * t1777 * t322 + 0.40681238512054758415e-1 * t24 * t213 * t322 - 0.11094883230560388659e-1 * t805 * t808 + 0.13868604038200485824e-2 * t321 * t1851;
2132 t1857 = t151 * t686;
2133 t1860 = t143 * t649;
2134 t1863 = t256 * t593;
2135 t1866 = t650 * t74;
2136 t1867 = t1506 * t21;
2137 t1874 = t1613 * t74;
2138 t1877 = t681 * t216;
2139 t1891 = t1621 * t74;
2140 t1894 = t279 * t593;
2141 t1897 = t687 * t74;
2142 t1902 = t644 * t216;
2143 t1905 = t1485 * t604;
2144 t1906 = t628 * t754;
2145 t1909 = 0.25e2 / 0.81e2 * t739 * t776 + 0.25e2 / 0.81e2 * t732 * t776 + 0.25e2 / 0.27e2 * t1023 * t599 + 0.25e2 / 0.27e2 * t1053 * t599 + 0.50e2 / 0.81e2 * t746 * t776 - 0.25e2 / 0.216e3 * t1891 * t312 - 0.25e2 / 0.648e3 * t1894 * t312 - 0.125e3 / 0.324e3 * t1897 * t1867 - 0.275e3 / 0.243e3 * t364 * t1807 - 0.25e2 / 0.216e3 * t1902 * t312 - 0.625e3 / 0.8748e4 * t1905 * t1906;
2146 t1911 = t1470 * t604;
2147 t1922 = t333 * t255;
2148 t1929 = t820 * t97;
2149 t1941 = t357 * t278;
2150 t1948 = t771 * t111;
2151 t1959 = -0.250e3 / 0.243e3 * t650 * t1725 + 0.5e1 / 0.3e1 * t848 * t218 + 0.5e1 / 0.9e1 * t359 * t595 + 0.25e2 / 0.27e2 * t1941 * t227 - 0.5e1 / 0.72e2 * t1608 * t132 + 0.125e3 / 0.324e3 * t1633 * t761 + 0.5e1 / 0.3e1 * t1948 * t76 + 0.5e1 / 0.9e1 * t678 * t308 - 0.125e3 / 0.324e3 * t1630 * t761 + 0.55e2 / 0.27e2 * t252 * t736 - 0.5e1 / 0.9e1 * t641 * t308;
2152 t1978 = t17 * t2 * t4;
2153 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2154 v4rho3sigma[0] = 0.38083087500000000000e-3 * t162 * t695 * t126 + 0.35544215000000000000e-2 * t724 * t379 - 0.15233235000000000000e-2 * t123 * t869 + 0.50274051528312679152e-7 * t878 * t116 * t879 + 0.18153160090853835734e-9 / t9 / t705 / t211 * t2 * t4 * t124 * t1452 * t713 + 0.61880386284060000000e-5 * t385 * t285 * t386 - 0.39190911313238000000e-4 * t295 * t872 - 0.25137025764156339576e-6 * t710 * t880 - 0.44688045802944603692e-7 * t710 * t156 * t714 - 0.39493572222222222223e-2 * t1714 * t163 + 0.84799047870748888891e-4 * t1718 * t387 - 0.16501436342416000000e-4 * t295 * t370 * t299 - 0.3e1 / 0.8e1 * t66 * t7 * (t1959 - 0.625e3 / 0.8748e4 * t1911 * t1906 + 0.770e3 / 0.243e3 * t112 * t1737 - 0.770e3 / 0.243e3 * t98 * t1737 - 0.55e2 / 0.27e2 * t275 * t736 - 0.5e1 / 0.3e1 * t836 * t218 + 0.25e2 / 0.27e2 * t1922 * t227 - 0.5e1 / 0.9e1 * t335 * t595 + 0.5e1 / 0.72e2 * t1616 * t132 - 0.5e1 / 0.3e1 * t1929 * t76 + 0.250e3 / 0.243e3 * t687 * t1725 + t1909 + t1767 * t53 + (t1854 + t1814) * t45 + 0.250e3 / 0.243e3 * t1857 * t653 - 0.250e3 / 0.243e3 * t1860 * t653 - 0.25e2 / 0.648e3 * t1863 * t312 + 0.125e3 / 0.324e3 * t1866 * t1867 - 0.275e3 / 0.243e3 * t340 * t1807 + 0.50e2 / 0.81e2 * t729 * t776 - 0.25e2 / 0.216e3 * t1874 * t312 - 0.25e2 / 0.216e3 * t1877 * t312) * t59 - 0.3e1 / 0.2e1 * t304 * t854 - 0.30466470000000000000e-2 * t123 * t853 * t127 + 0.38503351465637333333e-4 * t1718 * t860 + 0.30466469999999999999e-2 * t724 * t857 - 0.38365184444444444441e-2 * t1714 * t374 + t1978 * t157 / 0.9e1 - t719 * t371 / 0.2e1;
2155
2156 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2157 v4rho3lapl[0] = 0.0e0;
2158
2159 t1995 = t186 * t686;
2160 t1998 = t178 * t649;
2161 t2014 = t17 * t604;
2162 t2018 = t17 * t216;
2163 t2026 = 0.16642324845840582989e0 * t782 - 0.70351465704352590620e-1 * t774 - 0.52967901234567901236e1 * t777 + 0.19862962962962962963e1 * t779 + 0.32369272976680384088e1 * t788 + 0.18760390854494024165e0 * t796 - 0.2200e4 / 0.243e3 * t798 + 0.34711892100090877548e-1 * t1770 * t2014 * t351 - 0.45275389268693153220e-1 * t1776 * t242 * t2018 - 0.95695463971902770800e-1 * t814 - 0.25189783950617283951e1 * t784 + 0.75458982114488588697e-1 * t793 + 0.67172757201646090536e1 * t800;
2164 t2058 = -0.41050018289894833105e1 * t818 + 0.57417278383141662480e-1 * t812 * t2018 * t76 - 0.21105439711305777185e0 * t803 - 0.14793177640747184878e0 * t806 + 0.55474416152801943294e-1 * t809 + 0.14070293140870518124e-1 * t325 * t174 * t593 - 0.60367185691590870959e-1 * t2014 * t25 * t30 * t241 * t38 - 0.39725925925925925926e0 * t394 * t612 + 0.12663263826783466312e0 * t1791 * t939 + 0.50379567901234567902e0 * t394 * t636 - 0.27371454575003443189e-1 * t400 * t625 * t1835 + 0.76556371177522216641e-1 * t942 * t625 * t629 - 0.99853949075043497931e-1 * t2018 * t322 - 0.11094883230560388659e-1 * t400 * t1851;
2165 t2084 = 0.91358024691358024691e-1 * t420 * t1481 + 0.20301783264746227709e1 * t890 * t667 * t1742 - 0.27407407407407407407e1 * t668 * t17 * t1729 + 0.20301783264746227709e1 * t1518 * t17 * t1746 - 0.27407407407407407407e1 * t890 * t1761 + 0.91358024691358024692e-1 * t393 * t1764 - 0.45679012345679012346e0 * t767 + 0.13399176954732510288e1 * t769 + 0.45679012345679012346e1 * t756 + 0.12181069958847736626e1 * t765 + 0.13399176954732510288e1 * t749 + 0.12181069958847736626e1 * t752 - 0.45679012345679012346e0 * t759 + 0.45679012345679012346e1 * t762;
2166 t2101 = 0.200e3 / 0.27e2 * t727 - 0.2200e4 / 0.243e3 * t737 + 0.2200e4 / 0.243e3 * t742 - 0.200e3 / 0.27e2 * t744 - 0.25e2 / 0.9e1 * t832 - 0.1250e4 / 0.243e3 * t834 + 0.25e2 / 0.9e1 * t844 + 0.1250e4 / 0.243e3 * t846 + 0.25e2 / 0.27e2 * t1891 * t394 + 0.25e2 / 0.27e2 * t1902 * t394 + 0.25e2 / 0.81e2 * t1863 * t394;
2167 t2103 = t1506 * t17;
2168 t2118 = t628 * t890;
2169 t2132 = t902 * t111;
2170 t2135 = t965 * t97;
2171 t2140 = t407 * t255;
2172 t2147 = t424 * t278;
2173 t2152 = 0.250e3 / 0.81e2 * t1630 * t895 - 0.250e3 / 0.81e2 * t1633 * t895 - 0.5e1 / 0.9e1 * t1616 * t167 + 0.5e1 / 0.3e1 * t2132 * t76 - 0.5e1 / 0.3e1 * t2135 * t76 - 0.5e1 / 0.3e1 * t929 * t218 + 0.25e2 / 0.27e2 * t2140 * t227 - 0.5e1 / 0.9e1 * t409 * t595 + 0.5e1 / 0.3e1 * t918 * t218 + 0.25e2 / 0.27e2 * t2147 * t227 + 0.5e1 / 0.9e1 * t426 * t595;
2174 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2175 v4rho3tau[0] = t1978 * t192 / 0.9e1 - t719 * t436 / 0.2e1 - 0.38365184444444444441e-2 * t1714 * t439 - 0.3e1 / 0.2e1 * t304 * t976 + 0.30466469999999999999e-2 * t724 * t979 + 0.38503351465637333333e-4 * t1718 * t982 - 0.3e1 / 0.8e1 * t66 * t7 * (t2152 - 0.250e3 / 0.81e2 * t1866 * t2103 + 0.25e2 / 0.27e2 * t1874 * t394 + 0.25e2 / 0.27e2 * t1877 * t394 + 0.25e2 / 0.81e2 * t1894 * t394 + 0.250e3 / 0.81e2 * t1897 * t2103 + 0.25e2 / 0.27e2 * t1119 * t599 + 0.25e2 / 0.27e2 * t1150 * t599 + 0.1250e4 / 0.2187e4 * t1905 * t2118 + 0.1250e4 / 0.2187e4 * t1911 * t2118 + 0.5e1 / 0.9e1 * t1608 * t167 + t2101 + 0.250e3 / 0.243e3 * t1995 * t653 - 0.250e3 / 0.243e3 * t1998 * t653 - 0.125e3 / 0.81e2 * t740 - 0.250e3 / 0.81e2 * t747 + 0.1000e4 / 0.243e3 * t822 + 0.1000e4 / 0.243e3 * t825 - 0.250e3 / 0.81e2 * t730 - 0.125e3 / 0.81e2 * t733 + (t2058 + t2026) * t45 + t2084 * t53) * t59 - 0.30466470000000000000e-2 * t123 * t975 * t127 - 0.16501436342416000000e-4 * t295 * t435 * t299 - 0.44688045802944603692e-7 * t710 * t191 * t714;
2176
2177 t2214 = t841 * t216;
2178 t2217 = t1922 * t74;
2179 t2224 = t829 * t216;
2180 t2227 = t1941 * t74;
2181 t2230 = t1506 * t443;
2182 t2233 = t1046 * t111;
2183 t2236 = t1016 * t97;
2184 t2241 = t456 * t255;
2185 t2256 = t466 * t278;
2186 t2259 = -0.25e2 / 0.324e3 * t2214 * t312 - 0.25e2 / 0.162e3 * t2217 * t312 + 0.100e3 / 0.243e3 * t1053 * t776 + 0.100e3 / 0.243e3 * t1023 * t776 - 0.25e2 / 0.324e3 * t2224 * t312 - 0.25e2 / 0.162e3 * t2227 * t312 - 0.125e3 / 0.7776e4 * t650 * t2230 + 0.10e2 / 0.9e1 * t2233 * t76 - 0.10e2 / 0.9e1 * t2236 * t76 - 0.5e1 / 0.9e1 * t1018 * t218 + 0.25e2 / 0.81e2 * t2241 * t227 + 0.5e1 / 0.36e2 * t1929 * t132 + 0.125e3 / 0.486e3 * t1860 * t761 + 0.25e2 / 0.5184e4 * t1613 * t447 + 0.125e3 / 0.3888e4 * t1630 * t1031 + 0.125e3 / 0.7776e4 * t687 * t2230 + 0.5e1 / 0.9e1 * t1048 * t218 + 0.25e2 / 0.81e2 * t2256 * t227;
2187 t2268 = t1030 * t988;
2188 t2272 = 0.1e1 / t9 / t581;
2189 t2273 = t2272 * t79;
2190 t2274 = t2273 * t82;
2191 t2293 = t1470 * t221;
2192 t2294 = t628 * t1038;
2193 t2297 = t1485 * t221;
2194 t2317 = t246 * t628;
2195 t2321 = t791 * t351;
2196 t2326 = t1561 * t30;
2197 t2335 = t242 * t216;
2198 t2349 = -0.31898487990634256932e-2 * t812 * t988 * t74 * t628 + 0.55474416152801943294e-2 * t988 * t89 * t91 - 0.52007265143251821838e-3 * t992 * t246 + 0.26589216392318244170e0 * t2274 * t228 + 0.11961932996487846350e-2 * t998 * t625 * t792 + 0.25152994038162862898e-2 * t1002 * t241 * t1006 - 0.23580931910777683967e-3 * t1005 * t2317 - 0.42767897773442879981e-3 * t450 * t625 * t2321 - 0.20966460905349794238e0 * t2273 * t224 - 0.94323727643110735869e-3 * t453 * t2326 + 0.74259880465705512319e-2 * t239 * t242 * t2272 - 0.70351465704352590618e-2 * t988 * t33 * t999 + 0.65954499097830553704e-3 * t998 * t2335 - 0.58556328161290940142e-2 * t24 * t2272 * t236 + 0.29904832491219615874e-3 * t812 * t443 * t216 * t628 + 0.54237331406391996167e-3 * t1770 * t443 * t221 * t351;
2199 t2359 = t267 * t216;
2200 t2363 = t1522 * t628;
2201 t2374 = -0.5e1 / 0.36e2 * t1948 * t132 - 0.125e3 / 0.486e3 * t1857 * t761 + 0.25e2 / 0.5184e4 * t1621 * t447 - 0.125e3 / 0.3888e4 * t1633 * t1031 - 0.125e3 / 0.729e3 * t687 * t2268 + 0.475e3 / 0.2916e4 * t279 * t2274 - 0.110e3 / 0.81e2 * t359 * t736 - 0.25e2 / 0.486e3 * t681 * t995 + 0.20e2 / 0.27e2 * t848 * t308 - 0.25e2 / 0.486e3 * t644 * t995 + 0.125e3 / 0.729e3 * t650 * t2268 + 0.475e3 / 0.2916e4 * t256 * t2274 + 0.110e3 / 0.81e2 * t335 * t736 - 0.20e2 / 0.27e2 * t836 * t308 + 0.625e3 / 0.69984e5 * t2293 * t2294 + 0.625e3 / 0.69984e5 * t2297 * t2294 + t2349 * t45 + (0.48216735253772290809e-1 * t2273 * t263 + 0.15226337448559670782e0 * t988 * t652 * t1039 + 0.31721536351165980796e-1 * t1038 * t667 * t2326 - 0.14274691358024691358e-1 * t1038 * t2359 + 0.31721536351165980796e-1 * t1518 * t443 * t2363 + 0.15226337448559670782e0 * t668 * t2268 - 0.14274691358024691358e-1 * t668 * t2230 + 0.48216735253772290809e-1 * t268 * t2274) * t53;
2202 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2203 v4rho2sigma2[0] = -0.12568512882078169788e-7 * t1088 * t116 * t1089 - 0.68074350340701884003e-10 / t9 / t705 / t69 * t2 * t4 * t124 * t1452 * t298 + 0.33516034352208452769e-7 * t878 * t156 * t879 - 0.15470096571015000000e-4 * t295 * t483 + 0.73316325145455990431e-7 * t878 * t1090 + 0.82507181712080000002e-5 * t385 * t370 * t386 - 0.77350482855075000000e-6 * t482 * t285 * t297 + 0.61880386284060000000e-5 * t385 * t1082 + 0.76166175000000000000e-3 * t162 * t853 * t126 - 0.20310980000000000000e-2 * t123 * t1074 - 0.26127274208825333333e-4 * t295 * t1077 - 0.55004787808053333334e-5 * t295 * t473 * t299 + 0.23696143333333333333e-2 * t724 * t477 - 0.20310980000000000000e-2 * t123 * t1065 * t127 + 0.10155489999999999999e-2 * t724 * t1069 - t719 * t474 / 0.6e1 - 0.3e1 / 0.8e1 * t66 * t7 * (t2374 + t2259) * t59 - t304 * t1066;
2204
2205 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2206 v4rho2sigmalapl[0] = 0.0e0;
2207
2208 t2398 = -0.250e3 / 0.243e3 * t1054 - 0.250e3 / 0.243e3 * t1024 + 0.50e2 / 0.27e2 * t1021 - 0.200e3 / 0.81e2 * t1026 + 0.325e3 / 0.972e3 * t1028 - 0.1625e4 / 0.1458e4 * t1032 - 0.650e3 / 0.729e3 * t1034 - 0.50e2 / 0.27e2 * t1051 + 0.200e3 / 0.81e2 * t1056 + 0.325e3 / 0.972e3 * t1058 + 0.1625e4 / 0.1458e4 * t1060 - 0.650e3 / 0.729e3 * t1062;
2209 t2399 = t2140 * t74;
2210 t2406 = t923 * t216;
2211 t2409 = t2147 * t74;
2212 t2416 = t934 * t216;
2213 t2429 = -0.25e2 / 0.324e3 * t2399 * t312 + 0.50e2 / 0.243e3 * t1150 * t776 + 0.50e2 / 0.243e3 * t1119 * t776 - 0.25e2 / 0.648e3 * t2406 * t312 - 0.25e2 / 0.324e3 * t2409 * t312 + 0.50e2 / 0.81e2 * t2217 * t394 + 0.25e2 / 0.81e2 * t2214 * t394 - 0.25e2 / 0.648e3 * t2416 * t312 + 0.50e2 / 0.81e2 * t2227 * t394 + 0.25e2 / 0.81e2 * t2224 * t394 - 0.5e1 / 0.72e2 * t2132 * t132 - 0.125e3 / 0.972e3 * t1995 * t761 - 0.250e3 / 0.243e3 * t1860 * t895;
2214 t2435 = t1506 * t487;
2215 t2438 = t1143 * t111;
2216 t2441 = t1112 * t97;
2217 t2446 = t500 * t255;
2218 t2485 = 0.75458982114488588698e-2 * t497 * t2326 - 0.95695463971902770799e-2 * t1100 * t625 * t792 + 0.18864745528622147175e-2 * t1104 * t2317 + 0.34214318218754303988e-2 * t494 * t625 * t2321 - 0.52763599278264442964e-2 * t1100 * t2335 - 0.23923865992975692700e-2 * t812 * t487 * t216 * t628 - 0.43389865125113596935e-2 * t1770 * t487 * t221 * t351 + 0.41605812114601457472e-2 * t1096 * t246 + 0.20734017193912267006e-1 * t1011 + 0.11476378600823045267e1 * t990 - 0.40647513518070385692e-1 * t1014 + 0.45728452707829183902e-1 * t1000 + 0.32051884888285567238e-1 * t1003 - 0.14554097393689986283e1 * t996 - 0.16349446124805860885e-1 * t1007 - 0.36058370499321263142e-1 * t993;
2219 t2489 = -0.25e2 / 0.648e3 * t1621 * t491 + 0.125e3 / 0.486e3 * t1633 * t1131 + 0.125e3 / 0.972e3 * t650 * t2435 + 0.10e2 / 0.9e1 * t2438 * t76 - 0.10e2 / 0.9e1 * t2441 * t76 - 0.5e1 / 0.9e1 * t1114 * t218 + 0.25e2 / 0.81e2 * t2446 * t227 + 0.5e1 / 0.72e2 * t2135 * t132 + 0.125e3 / 0.972e3 * t1998 * t761 - 0.5e1 / 0.9e1 * t1929 * t167 + t2485 * t45 - 0.55e2 / 0.81e2 * t426 * t736;
2220 t2502 = t512 * t278;
2221 t2527 = t628 * t1137;
2222 t2532 = 0.10e2 / 0.27e2 * t918 * t308 + 0.55e2 / 0.81e2 * t409 * t736 - 0.10e2 / 0.27e2 * t929 * t308 + 0.5e1 / 0.9e1 * t1948 * t167 + 0.250e3 / 0.243e3 * t1857 * t895 + 0.5e1 / 0.9e1 * t1145 * t218 + 0.25e2 / 0.81e2 * t2502 * t227 - 0.25e2 / 0.648e3 * t1613 * t491 - 0.125e3 / 0.486e3 * t1630 * t1131 - 0.125e3 / 0.972e3 * t687 * t2435 + (-0.26392318244170096021e0 * t1036 - 0.98971193415637860078e0 * t1040 - 0.25377229080932784636e0 * t1137 * t667 * t2326 + 0.11419753086419753086e0 * t1137 * t2359 - 0.25377229080932784636e0 * t1518 * t487 * t2363 - 0.98971193415637860078e0 * t1042 + 0.11419753086419753086e0 * t668 * t2435 - 0.26392318244170096021e0 * t1044) * t53 - 0.625e3 / 0.8748e4 * t2297 * t2527 - 0.625e3 / 0.8748e4 * t2293 * t2527;
2223 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2224 v4rho2sigmatau[0] = -t719 * t522 / 0.6e1 - t304 * t1168 + 0.10155489999999999999e-2 * t724 * t1171 - 0.3e1 / 0.8e1 * t66 * t7 * (t2532 + t2489 + t2429 + t2398) * t59 - 0.20310980000000000000e-2 * t123 * t1167 * t127 - 0.55004787808053333334e-5 * t295 * t521 * t299 + 0.11848071666666666667e-2 * t724 * t525 - 0.10155490000000000000e-2 * t123 * t1176 - 0.13063637104412666667e-4 * t295 * t1179 + 0.38083087500000000000e-3 * t162 * t975 * t126 + 0.41253590856040000000e-5 * t385 * t435 * t386 + 0.16758017176104226384e-7 * t878 * t191 * t879;
2225
2226 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2227 v4rho2lapl2[0] = 0.0e0;
2228
2229 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2230 v4rho2lapltau[0] = 0.0e0;
2231
2232 t2605 = 0.42210879422611554372e-1 * t1189 * t2335 - 0.60367185691590870959e-1 * t537 * t2326 + 0.76556371177522216641e-1 * t1189 * t625 * t792 - 0.15091796422897717740e-1 * t1193 * t2317 - 0.27371454575003443189e-1 * t534 * t625 * t2321 + 0.19139092794380554160e-1 * t812 * t204 * t216 * t628 + 0.34711892100090877548e-1 * t1770 * t204 * t221 * t351 - 0.33284649691681165977e-1 * t1185 * t246 + 0.22189766461120777319e0 * t1097 + 0.10061197615265145160e0 * t1105 - 0.12759395196253702773e0 * t1109 - 0.28140586281741036247e0 * t1101 - 0.16025942444142783619e0 * t451 + 0.72770486968449931414e1 * t448 - 0.57381893004115226339e1 * t445 + 0.20323756759035192846e0 * t454;
2233 t2618 = t1218 * t216;
2234 t2634 = -0.500e3 / 0.243e3 * t1151 - 0.500e3 / 0.243e3 * t1120 + 0.100e3 / 0.27e2 * t1117 - 0.400e3 / 0.81e2 * t1122 - 0.500e3 / 0.243e3 * t1129 + 0.5000e4 / 0.729e3 * t1132 - 0.100e3 / 0.27e2 * t1148 + 0.400e3 / 0.81e2 * t1153 - 0.500e3 / 0.243e3 * t1160 - 0.5000e4 / 0.729e3 * t1162 + t2605 * t45 + (0.13196159122085048011e1 * t462 + 0.60905349794238683128e1 * t1138 + 0.20301783264746227709e1 * t1218 * t667 * t2326 - 0.91358024691358024692e0 * t1218 * t2359 + 0.20301783264746227709e1 * t1518 * t204 * t2363 + 0.60905349794238683128e1 * t1140 - 0.91358024691358024691e0 * t668 * t2618 + 0.13196159122085048011e1 * t464) * t53 + 0.3250e4 / 0.729e3 * t460 + 0.3250e4 / 0.729e3 * t470 + 0.100e3 / 0.81e2 * t2409 * t394 + 0.50e2 / 0.81e2 * t2406 * t394 + 0.100e3 / 0.81e2 * t2399 * t394 + 0.50e2 / 0.81e2 * t2416 * t394;
2235 t2641 = t1224 * t111;
2236 t2644 = t1201 * t97;
2237 t2649 = t540 * t255;
2238 t2662 = t550 * t278;
2239 t2671 = t628 * t1218;
2240 t2676 = 0.25e2 / 0.81e2 * t1621 * t531 - 0.500e3 / 0.243e3 * t1633 * t1213 - 0.250e3 / 0.243e3 * t650 * t2618 + 0.10e2 / 0.9e1 * t2641 * t76 - 0.10e2 / 0.9e1 * t2644 * t76 - 0.5e1 / 0.9e1 * t1203 * t218 + 0.25e2 / 0.81e2 * t2649 * t227 - 0.10e2 / 0.9e1 * t2135 * t167 + 0.25e2 / 0.81e2 * t1613 * t531 + 0.500e3 / 0.243e3 * t1630 * t1213 + 0.250e3 / 0.243e3 * t687 * t2618 + 0.5e1 / 0.9e1 * t1226 * t218 + 0.25e2 / 0.81e2 * t2662 * t227 + 0.10e2 / 0.9e1 * t2132 * t167 + 0.500e3 / 0.243e3 * t1995 * t895 - 0.500e3 / 0.243e3 * t1998 * t895 + 0.1250e4 / 0.2187e4 * t2293 * t2671 + 0.1250e4 / 0.2187e4 * t2297 * t2671;
2241 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2242 v4rho2tau2[0] = -t719 * t558 / 0.6e1 - t304 * t1241 + 0.10155489999999999999e-2 * t724 * t1244 - 0.3e1 / 0.8e1 * t66 * t7 * (t2676 + t2634) * t59 - 0.20310980000000000000e-2 * t123 * t1240 * t127 - 0.55004787808053333334e-5 * t295 * t557 * t299;
2243
2244 t2690 = 0.1e1 / t706;
2245 t2709 = t82 * t74;
2246 t2710 = t1547 * t2709;
2247 t2723 = t1262 * t97;
2248 t2728 = t2241 * t74;
2249 t2741 = t1485 * t74;
2250 t2742 = t628 * t1268;
2251 t2745 = t2690 * t652;
2252 t2748 = (-0.52007265143251821838e-3 * t2690 * t89 * t38 + 0.11790465955388841984e-3 * t1247 * t241 * t38 * t76 + 0.65954499097830553703e-3 * t2690 * t33 * t242 - 0.14952416245609807937e-3 * t1251 * t625 * t1006 - 0.23580931910777683967e-3 * t24 * t2690 * t241 * t621 + 0.53459872216803599978e-4 * t1254 * t625 * t2710 - 0.67796664257989995212e-4 * t1770 * t1247 * t79 * t2709 + 0.29904832491219615875e-3 * t626 * t38 * t2690 * t628) * t45 - 0.5e1 / 0.9e1 * t2723 * t76 + 0.5e1 / 0.24e2 * t2236 * t132 - 0.25e2 / 0.216e3 * t2728 * t312 - 0.5e1 / 0.9e1 * t1018 * t308 + 0.25e2 / 0.1728e4 * t1922 * t447 - 0.125e3 / 0.2592e4 * t1860 * t1031 - 0.25e2 / 0.324e3 * t841 * t995 + 0.125e3 / 0.62208e5 * t1633 * t1268 - 0.625e3 / 0.559872e6 * t2741 * t2742 - 0.125e3 / 0.7776e4 * t650 * t2745;
2253 t2755 = t1030 * t628;
2254 t2762 = t1275 * t111;
2255 t2767 = t2256 * t74;
2256 t2780 = t1470 * t74;
2257 t2785 = (-0.14274691358024691358e-1 * t2745 * t267 - 0.39651920438957475994e-2 * t1268 * t667 * t76 - 0.39651920438957475996e-2 * t1518 * t1247 * t2755 - 0.14274691358024691358e-1 * t668 * t2745) * t53 + 0.5e1 / 0.9e1 * t2762 * t76 - 0.5e1 / 0.24e2 * t2233 * t132 - 0.25e2 / 0.216e3 * t2767 * t312 + 0.5e1 / 0.9e1 * t1048 * t308 + 0.25e2 / 0.1728e4 * t1941 * t447 + 0.125e3 / 0.2592e4 * t1857 * t1031 - 0.25e2 / 0.324e3 * t829 * t995 - 0.125e3 / 0.62208e5 * t1630 * t1268 - 0.625e3 / 0.559872e6 * t2780 * t2742 + 0.125e3 / 0.7776e4 * t687 * t2745;
2258 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2259 v4rhosigma3[0] = -t304 * t1285 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t7 * (t2785 + t2748) * t59 - 0.10155490000000000000e-2 * t123 * t1284 * t127 - 0.15233235000000000000e-2 * t123 * t1288 + 0.11424926250000000000e-2 * t162 * t1065 * t126 + 0.61880386284060000001e-5 * t385 * t473 * t386 + 0.92820579426090000000e-5 * t385 * t1291 - 0.23205144856522500000e-5 * t482 * t370 * t297 - 0.18852769323117254682e-7 * t1088 * t156 * t1089 - 0.15710641102597712235e-7 * t1088 * t1298 + 0.23565961653896568352e-8 * t1297 * t116 * t712 + 0.25527881377763206500e-10 / t9 / t1653 * t2 * t4 * t124 * t1452 * sigma[0];
2260
2261 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2262 v4rhosigma2lapl[0] = 0.0e0;
2263
2264 t2865 = t1332 * t111;
2265 t2870 = t1315 * t97;
2266 t2883 = 0.25e2 / 0.27e2 * t1264 + 0.325e3 / 0.972e3 * t1266 - 0.25e2 / 0.27e2 * t1277 + 0.325e3 / 0.972e3 * t1279 + (0.99922839506172839506e-1 * t1271 + 0.31721536351165980796e-1 * t1325 * t667 * t76 + 0.31721536351165980796e-1 * t1518 * t582 * t2755 + 0.99922839506172839506e-1 * t1273) * t53 + (0.36405085600276275287e-2 * t1249 - 0.94323727643110735871e-3 * t582 * t241 * t38 * t76 - 0.46168149368481387594e-2 * t1252 + 0.11961932996487846350e-2 * t1304 * t625 * t1006 + 0.16506652337544378778e-2 * t1256 - 0.42767897773442879983e-3 * t1307 * t625 * t2710 + 0.54237331406391996173e-3 * t1770 * t582 * t79 * t2709 - 0.20933382743853731114e-2 * t1260) * t45 - 0.5e1 / 0.9e1 * t2236 * t167 - 0.25e2 / 0.324e3 * t1922 * t491 + 0.125e3 / 0.486e3 * t1860 * t1131 + 0.5e1 / 0.9e1 * t2865 * t76 - 0.5e1 / 0.36e2 * t2438 * t132 - 0.5e1 / 0.9e1 * t2870 * t76 + 0.5e1 / 0.36e2 * t2441 * t132 + 0.25e2 / 0.5184e4 * t2140 * t447 + 0.10e2 / 0.27e2 * t1145 * t308 - 0.10e2 / 0.27e2 * t1114 * t308 - 0.25e2 / 0.972e3 * t934 * t995;
2267 t2898 = t2502 * t74;
2268 t2905 = t2446 * t74;
2269 t2908 = t628 * t1325;
2270 t2919 = 0.25e2 / 0.5184e4 * t2147 * t447 + 0.125e3 / 0.7776e4 * t1995 * t1031 + 0.5e1 / 0.9e1 * t2233 * t167 - 0.25e2 / 0.324e3 * t1941 * t491 - 0.125e3 / 0.486e3 * t1857 * t1131 - 0.125e3 / 0.7776e4 * t1998 * t1031 - 0.25e2 / 0.972e3 * t923 * t995 - 0.25e2 / 0.324e3 * t2898 * t312 + 0.25e2 / 0.81e2 * t2767 * t394 + 0.25e2 / 0.81e2 * t2728 * t394 - 0.25e2 / 0.324e3 * t2905 * t312 + 0.625e3 / 0.69984e5 * t2780 * t2908 + 0.625e3 / 0.69984e5 * t2741 * t2908 - 0.125e3 / 0.7776e4 * t1633 * t1325 + 0.125e3 / 0.7776e4 * t1630 * t1325 + 0.875e3 / 0.7776e4 * t1269 - 0.875e3 / 0.7776e4 * t1281;
2271 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2272 v4rhosigma2tau[0] = -t304 * t1346 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t7 * (t2919 + t2883) * t59 - 0.10155490000000000000e-2 * t123 * t1345 * t127 - 0.10155490000000000000e-2 * t123 * t1349 + 0.76166175000000000000e-3 * t162 * t1167 * t126 + 0.41253590856040000001e-5 * t385 * t521 * t386 + 0.30940193142030000000e-5 * t385 * t1352 - 0.77350482855075000000e-6 * t482 * t435 * t297 - 0.62842564410390848941e-8 * t1088 * t191 * t1089;
2273
2274 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2275 v4rhosigmalapl2[0] = 0.0e0;
2276
2277 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2278 v4rhosigmalapltau[0] = 0.0e0;
2279
2280 t2958 = t1369 * t97;
2281 t2975 = 0.50e2 / 0.27e2 * t1317 + 0.325e3 / 0.972e3 * t1319 - 0.250e3 / 0.243e3 * t1323 - 0.50e2 / 0.27e2 * t1334 + 0.325e3 / 0.972e3 * t1336 - 0.250e3 / 0.243e3 * t1340 + 0.125e3 / 0.972e3 * t1633 * t1379 - 0.125e3 / 0.972e3 * t1630 * t1379 - 0.5e1 / 0.72e2 * t2641 * t132 - 0.5e1 / 0.9e1 * t2958 * t76 + 0.5e1 / 0.72e2 * t2644 * t132 - 0.10e2 / 0.9e1 * t2441 * t167 + 0.5e1 / 0.27e2 * t1226 * t308 - 0.5e1 / 0.27e2 * t1203 * t308 + 0.10e2 / 0.9e1 * t2438 * t167 - 0.25e2 / 0.324e3 * t2147 * t491 - 0.125e3 / 0.486e3 * t1995 * t1131;
2282 t2988 = t1386 * t111;
2283 t2991 = t2662 * t74;
2284 t2996 = t2649 * t74;
2285 t3021 = t628 * t1379;
2286 t3038 = 0.25e2 / 0.81e2 * t1941 * t531 + 0.250e3 / 0.243e3 * t1857 * t1213 - 0.25e2 / 0.324e3 * t2140 * t491 + 0.125e3 / 0.486e3 * t1998 * t1131 + 0.25e2 / 0.81e2 * t1922 * t531 - 0.250e3 / 0.243e3 * t1860 * t1213 + 0.5e1 / 0.9e1 * t2988 * t76 - 0.25e2 / 0.648e3 * t2991 * t312 + 0.50e2 / 0.81e2 * t2898 * t394 - 0.25e2 / 0.648e3 * t2996 * t312 + 0.50e2 / 0.81e2 * t2905 * t394 + (-0.24963487268760874483e-1 * t1302 + 0.75458982114488588698e-2 * t293 * t241 * t38 * t76 + 0.31658159566958665778e-1 * t1305 - 0.95695463971902770800e-2 * t1358 * t625 * t1006 - 0.11318847317173288305e-1 * t1309 + 0.34214318218754303988e-2 * t1361 * t625 * t2710 - 0.43389865125113596937e-2 * t1770 * t293 * t79 * t2709 + 0.14354319595785415621e-1 * t1313) * t45 - 0.625e3 / 0.8748e4 * t2780 * t3021 - 0.625e3 / 0.8748e4 * t2741 * t3021 + (-0.68518518518518518516e0 * t1328 - 0.25377229080932784636e0 * t1379 * t667 * t76 - 0.25377229080932784636e0 * t1518 * t293 * t2755 - 0.68518518518518518516e0 * t1330) * t53 - 0.125e3 / 0.162e3 * t1326 + 0.125e3 / 0.162e3 * t1342;
2287 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2288 v4rhosigmatau2[0] = -t304 * t1400 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t7 * (t3038 + t2975) * t59 - 0.10155490000000000000e-2 * t123 * t1399 * t127 - 0.50777450000000000000e-3 * t123 * t1403 + 0.38083087500000000000e-3 * t162 * t1240 * t126 + 0.20626795428020000000e-5 * t385 * t557 * t386;
2289
2290 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2291 v4rholapl3[0] = 0.0e0;
2292
2293 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2294 v4rholapl2tau[0] = 0.0e0;
2295
2296 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2297 v4rholapltau2[0] = 0.0e0;
2298
2299 t3077 = t1420 * t97;
2300 t3092 = t628 * t1426;
2301 t3096 = (0.16642324845840582988e0 * t1356 - 0.60367185691590870959e-1 * t383 * t241 * t38 * t76 - 0.21105439711305777186e0 * t1359 + 0.76556371177522216641e-1 * t1409 * t625 * t1006 + 0.75458982114488588700e-1 * t1363 - 0.27371454575003443189e-1 * t1412 * t625 * t2710 + 0.34711892100090877548e-1 * t1770 * t383 * t79 * t2709 - 0.95695463971902770800e-1 * t1367) * t45 - 0.5e1 / 0.9e1 * t3077 * t76 - 0.5e1 / 0.3e1 * t2644 * t167 + 0.25e2 / 0.27e2 * t2996 * t394 + 0.25e2 / 0.9e1 * t1371 + 0.25e2 / 0.27e2 * t2140 * t531 - 0.250e3 / 0.81e2 * t1998 * t1213 - 0.250e3 / 0.81e2 * t1375 - 0.250e3 / 0.243e3 * t1633 * t1426 + 0.1250e4 / 0.2187e4 * t2741 * t3092 + 0.1250e4 / 0.243e3 * t1380;
2302 t3107 = t1433 * t111;
2303 t3125 = (0.45679012345679012346e1 * t1382 + 0.20301783264746227709e1 * t1426 * t667 * t76 + 0.20301783264746227709e1 * t1518 * t383 * t2755 + 0.45679012345679012346e1 * t1384) * t53 + 0.5e1 / 0.9e1 * t3107 * t76 + 0.5e1 / 0.3e1 * t2641 * t167 + 0.25e2 / 0.27e2 * t2991 * t394 - 0.25e2 / 0.9e1 * t1388 + 0.25e2 / 0.27e2 * t2147 * t531 + 0.250e3 / 0.81e2 * t1995 * t1213 - 0.250e3 / 0.81e2 * t1392 + 0.250e3 / 0.243e3 * t1630 * t1426 + 0.1250e4 / 0.2187e4 * t2780 * t3092 - 0.1250e4 / 0.243e3 * t1396;
2304 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2305 v4rhotau3[0] = -t304 * t1443 / 0.2e1 - 0.3e1 / 0.8e1 * t66 * t7 * (t3125 + t3096) * t59 - 0.10155490000000000000e-2 * t123 * t1442 * t127;
2306
2307 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2308 v4sigma4[0] = -0.3e1 / 0.8e1 * t66 * t7 * ((-0.14738082444236052480e-4 * t1655 * t241 * t621 + 0.18690520307012259922e-4 * t1655 * t33 * t625 * t621 - 0.66824840271004499974e-5 * t24 * t1655 * t625 * t1548 + 0.84745830322487494019e-5 * t1568 * t38 * t1655 * t351) * t45 + 0.5e1 / 0.18e2 * t2723 * t132 + 0.25e2 / 0.864e3 * t2241 * t447 + 0.125e3 / 0.15552e5 * t1860 * t1268 + 0.625e3 / 0.4478976e7 * t1485 * t1655 * t1473 + (0.49564900548696844993e-3 * t1655 * t652 * t1513 + 0.49564900548696844994e-3 * t1518 * t1655 * t1473) * t53 - 0.5e1 / 0.18e2 * t2762 * t132 + 0.25e2 / 0.864e3 * t2256 * t447 - 0.125e3 / 0.15552e5 * t1857 * t1268 + 0.625e3 / 0.4478976e7 * t1470 * t1655 * t1473) * t59 + 0.15233235000000000000e-2 * t162 * t1284 * t126 - 0.46410289713045000000e-5 * t482 * t473 * t297 + 0.94263846615586273410e-8 * t1297 * t156 * t712 - 0.95729555166612024373e-11 / t9 / t706 * t2 * t4 * t124 * t1452;
2309
2310 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2311 v4sigma3lapl[0] = 0.0e0;
2312
2313 t3253 = (0.11790465955388841984e-3 * t708 * t241 * t621 - 0.14952416245609807939e-3 * t708 * t33 * t625 * t621 + 0.53459872216803599981e-4 * t24 * t708 * t625 * t1548 - 0.67796664257989995219e-4 * t1568 * t38 * t708 * t351) * t45 + 0.5e1 / 0.24e2 * t2870 * t132 + 0.25e2 / 0.1728e4 * t2446 * t447 + 0.125e3 / 0.62208e5 * t1998 * t1268 - 0.5e1 / 0.9e1 * t2723 * t167 - 0.25e2 / 0.216e3 * t2241 * t491 - 0.125e3 / 0.2592e4 * t1860 * t1325 - 0.625e3 / 0.559872e6 * t1485 * t708 * t1473 + (-0.39651920438957475995e-2 * t708 * t652 * t1513 - 0.39651920438957475994e-2 * t1518 * t708 * t1473) * t53 - 0.5e1 / 0.24e2 * t2865 * t132 + 0.25e2 / 0.1728e4 * t2502 * t447 - 0.125e3 / 0.62208e5 * t1995 * t1268 + 0.5e1 / 0.9e1 * t2762 * t167 - 0.25e2 / 0.216e3 * t2256 * t491 + 0.125e3 / 0.2592e4 * t1857 * t1325 - 0.625e3 / 0.559872e6 * t1470 * t708 * t1473;
2314 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2315 v4sigma3tau[0] = -0.3e1 / 0.8e1 * t66 * t7 * t3253 * t59 + 0.11424926250000000000e-2 * t162 * t1345 * t126 - 0.23205144856522500000e-5 * t482 * t521 * t297 + 0.23565961653896568352e-8 * t1297 * t191 * t712;
2316
2317 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2318 v4sigma2lapl2[0] = 0.0e0;
2319
2320 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2321 v4sigma2lapltau[0] = 0.0e0;
2322
2323 t3326 = (-0.94323727643110735874e-3 * t876 * t241 * t621 + 0.11961932996487846350e-2 * t876 * t33 * t625 * t621 - 0.42767897773442879986e-3 * t24 * t876 * t625 * t1548 + 0.54237331406391996174e-3 * t1568 * t38 * t876 * t351) * t45 + 0.5e1 / 0.36e2 * t2958 * t132 + 0.25e2 / 0.5184e4 * t2649 * t447 - 0.10e2 / 0.9e1 * t2870 * t167 - 0.25e2 / 0.162e3 * t2446 * t491 - 0.125e3 / 0.3888e4 * t1998 * t1325 + 0.25e2 / 0.81e2 * t2241 * t531 + 0.125e3 / 0.486e3 * t1860 * t1379 + 0.625e3 / 0.69984e5 * t1485 * t876 * t1473 + (0.31721536351165980795e-1 * t876 * t652 * t1513 + 0.31721536351165980794e-1 * t1518 * t876 * t1473) * t53 - 0.5e1 / 0.36e2 * t2988 * t132 + 0.25e2 / 0.5184e4 * t2662 * t447 + 0.10e2 / 0.9e1 * t2865 * t167 - 0.25e2 / 0.162e3 * t2502 * t491 + 0.125e3 / 0.3888e4 * t1995 * t1325 + 0.25e2 / 0.81e2 * t2256 * t531 - 0.125e3 / 0.486e3 * t1857 * t1379 + 0.625e3 / 0.69984e5 * t1470 * t876 * t1473;
2324 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2325 v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t66 * t7 * t3326 * t59 + 0.76166175000000000000e-3 * t162 * t1399 * t126 - 0.77350482855075000000e-6 * t482 * t557 * t297;
2326
2327 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2328 v4sigmalapl3[0] = 0.0e0;
2329
2330 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2331 v4sigmalapl2tau[0] = 0.0e0;
2332
2333 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2334 v4sigmalapltau2[0] = 0.0e0;
2335
2336 t3392 = (0.75458982114488588698e-2 * t1086 * t241 * t621 - 0.95695463971902770804e-2 * t1086 * t33 * t625 * t621 + 0.34214318218754303988e-2 * t24 * t1086 * t625 * t1548 - 0.43389865125113596937e-2 * t1568 * t38 * t1086 * t351) * t45 + 0.5e1 / 0.72e2 * t3077 * t132 - 0.5e1 / 0.3e1 * t2958 * t167 - 0.25e2 / 0.216e3 * t2649 * t491 + 0.25e2 / 0.27e2 * t2446 * t531 + 0.125e3 / 0.324e3 * t1998 * t1379 - 0.250e3 / 0.243e3 * t1860 * t1426 - 0.625e3 / 0.8748e4 * t1485 * t1086 * t1473 + (-0.25377229080932784636e0 * t1086 * t652 * t1513 - 0.25377229080932784636e0 * t1518 * t1086 * t1473) * t53 - 0.5e1 / 0.72e2 * t3107 * t132 + 0.5e1 / 0.3e1 * t2988 * t167 - 0.25e2 / 0.216e3 * t2662 * t491 + 0.25e2 / 0.27e2 * t2502 * t531 - 0.125e3 / 0.324e3 * t1995 * t1379 + 0.250e3 / 0.243e3 * t1857 * t1426 - 0.625e3 / 0.8748e4 * t1470 * t1086 * t1473;
2337 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2338 v4sigmatau3[0] = -0.3e1 / 0.8e1 * t66 * t7 * t3392 * t59 + 0.38083087500000000000e-3 * t162 * t1442 * t126;
2339
2340 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2341 v4lapl4[0] = 0.0e0;
2342
2343 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2344 v4lapl3tau[0] = 0.0e0;
2345
2346 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2347 v4lapl2tau2[0] = 0.0e0;
2348
2349 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2350 v4lapltau3[0] = 0.0e0;
2351
2352 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2353 v4tau4[0] = -0.3e1 / 0.8e1 * t66 * t7 * ((-0.60367185691590870959e-1 * t1295 * t241 * t621 + 0.76556371177522216641e-1 * t1295 * t33 * t625 * t621 - 0.27371454575003443189e-1 * t24 * t1295 * t625 * t1548 + 0.34711892100090877548e-1 * t1568 * t38 * t1295 * t351) * t45 - 0.20e2 / 0.9e1 * t3077 * t167 + 0.50e2 / 0.27e2 * t2649 * t531 - 0.1000e4 / 0.243e3 * t1998 * t1426 + 0.1250e4 / 0.2187e4 * t1485 * t1295 * t1473 + (0.20301783264746227709e1 * t1295 * t652 * t1513 + 0.20301783264746227709e1 * t1518 * t1295 * t1473) * t53 + 0.20e2 / 0.9e1 * t3107 * t167 + 0.50e2 / 0.27e2 * t2662 * t531 + 0.1000e4 / 0.243e3 * t1995 * t1426 + 0.1250e4 / 0.2187e4 * t1470 * t1295 * t1473) * t59;
2354
2355 #ifndef XC_DONT_COMPILE_MXC
2356
2357 if(order < 5) return;
2358
2359
2360 #endif
2361
2362 #endif
2363
2364 #endif
2365
2366 #endif
2367
2368 #endif
2369
2370
2371 }
2372
2373
2374 static inline void
func_pol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))2375 func_pol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
2376 {
2377
2378 #ifndef XC_DONT_COMPILE_EXC
2379 double t2, t4, t5, t6, t7, t8, t9, t10;
2380 double t11, t12, t14, t15, t16, t17, t18, t19;
2381 double t20, t23, t24, t25, t27, t29, t31, t32;
2382 double t34, t35, t37, t38, t39, t40, t41, t43;
2383 double t45, t46, t48, t49, t52, t53, t54, t55;
2384 double t57, t58, t61, t62, t63, t65, t67, t68;
2385 double t69, t71, t73, t74, t75, t76, t77, t78;
2386 double t80, t82, t84, t85, t87, t89, t91, t93;
2387 double t94, t96, t99, t100, t101, t102, t104, t105;
2388 double t108, t109, t110, t112, t114, t115, t116, t118;
2389
2390 #ifndef XC_DONT_COMPILE_VXC
2391 double t120, t121, t122, t123, t124, t125, t126, t127;
2392 double t129, t130, t132, t133, t134, t135, t136, t138;
2393 double t139, t142, t144, t147, t148, t149, t152, t155;
2394 double t156, t158, t161, t162, t163, t164, t165, t168;
2395 double t170, t171, t174, t177, t178, t179, t182, t184;
2396 double t185, t188, t189, t191, t192, t193, t194, t195;
2397 double t196, t197, t198, t200, t201, t202, t203, t204;
2398 double t205, t206, t208, t209, t210, t212, t213, t217;
2399 double t218, t220, t221, t222, t223, t225, t226, t229;
2400 double t231, t232, t234, t235, t236, t240, t242, t245;
2401 double t246, t247, t248, t249, t252, t254, t255, t258;
2402 double t261, t262, t263, t266, t268, t269, t272, t273;
2403 double t275, t276, t277, t278, t279, t280, t281, t282;
2404 double t284, t285, t288, t289, t290, t294, t296, t298;
2405 double t300, t302, t304, t306, t308, t310, t312, t313;
2406 double t316, t317, t320, t322, t323, t324, t328, t330;
2407 double t332, t334, t336, t338, t340, t342, t344, t346;
2408 double t347, t350, t351, t354, t357, t358, t359, t360;
2409 double t367, t371, t379, t383, t384, t388, t389, t396;
2410 double t400, t408, t412, t413;
2411
2412 #ifndef XC_DONT_COMPILE_FXC
2413 double t417, t420, t421, t422, t423, t424, t425, t426;
2414 double t428, t429, t430, t432, t433, t434, t436, t438;
2415 double t439, t440, t441, t442, t443, t444, t445, t446;
2416 double t447, t448, t449, t451, t452, t454, t455, t457;
2417 double t458, t460, t461, t463, t467, t469, t472, t473;
2418 double t474, t477, t478, t480, t483, t484, t488, t492;
2419 double t495, t497, t498, t499, t502, t503, t506, t508;
2420 double t511, t512, t519, t523, t524, t529, t531, t534;
2421 double t535, t540, t541, t543, t544, t546, t547, t549;
2422 double t550, t551, t552, t554, t555, t557, t558, t559;
2423 double t561, t562, t563, t564, t565, t566, t567, t568;
2424 double t570, t571, t572, t574, t575, t576, t577, t579;
2425 double t580, t581, t583, t584, t585, t587, t589, t592;
2426 double t595, t597, t598, t599, t600, t603, t604, t605;
2427 double t607, t612, t614, t617, t619, t620, t622, t625;
2428 double t627, t630, t633, t634, t635, t636, t637, t640;
2429 double t642, t646, t647, t649, t650, t651, t652, t653;
2430 double t655, t656, t657, t658, t660, t661, t662, t664;
2431 double t665, t666, t667, t668, t669, t670, t671, t673;
2432 double t674, t675, t679, t681, t682, t684, t685, t686;
2433 double t689, t690, t692, t695, t696, t700, t704, t707;
2434 double t709, t710, t711, t714, t715, t718, t720, t723;
2435 double t724, t731, t735, t736, t741, t743, t746, t747;
2436 double t752, t753, t755, t756, t758, t759, t761, t762;
2437 double t763, t764, t766, t767, t769, t770, t771, t773;
2438 double t774, t775, t777, t779, t780, t782, t783, t784;
2439 double t785, t786, t788, t789, t790, t792, t796, t798;
2440 double t799, t800, t802, t804, t806, t808, t810, t812;
2441 double t815, t817, t818, t820, t822, t824, t825, t827;
2442 double t828, t829, t830, t832, t834, t836, t839, t841;
2443 double t842, t844, t846, t847, t849, t850, t852, t853;
2444 double t854, t856, t857, t859, t860, t862, t863, t864;
2445 double t866, t867, t868, t870, t871, t872, t874, t875;
2446 double t878, t880, t881, t883, t884, t885, t887, t888;
2447 double t890, t891, t895, t896, t897, t899, t900, t904;
2448 double t905, t906, t907, t908, t910, t911, t912, t914;
2449 double t918, t920, t921, t922, t924, t926, t928, t930;
2450 double t932, t934, t937, t939, t940, t942, t944, t946;
2451 double t947, t949, t950, t951, t953, t955, t957, t960;
2452 double t962, t963, t965, t967, t968, t970, t971, t973;
2453 double t974, t975, t977, t978, t980, t981, t982, t984;
2454 double t985, t986, t988, t989, t990, t992, t993, t997;
2455 double t999, t1000, t1001, t1006, t1007, t1013, t1020, t1022;
2456 double t1033, t1037, t1039, t1047, t1048, t1052, t1057, t1058;
2457 double t1062, t1066, t1070, t1071, t1077, t1084, t1086, t1097;
2458 double t1101, t1103, t1111, t1113, t1116, t1117, t1120, t1122;
2459 double t1123, t1124, t1126, t1127, t1129, t1130, t1132, t1133;
2460 double t1135, t1137, t1139, t1141, t1143, t1145, t1147, t1149;
2461 double t1151, t1152, t1155, t1158, t1159, t1162, t1164, t1166;
2462 double t1167, t1168, t1170, t1171, t1173, t1174, t1176, t1177;
2463 double t1179, t1181, t1183, t1185, t1187, t1189, t1191, t1193;
2464 double t1195, t1196, t1199, t1202, t1203, t1206, t1209, t1210;
2465 double t1211, t1213, t1214, t1216, t1217, t1219, t1220, t1222;
2466 double t1224, t1228, t1230, t1232, t1234, t1236, t1240, t1242;
2467 double t1244, t1247, t1251, t1252, t1253, t1255, t1256, t1258;
2468 double t1259, t1261, t1262, t1264, t1266, t1270, t1272, t1274;
2469 double t1276, t1278, t1282, t1284, t1286, t1289, t1293, t1294;
2470 double t1297, t1300, t1303, t1306, t1316, t1322, t1324, t1328;
2471 double t1329, t1332, t1335, t1338, t1341, t1351, t1357, t1359;
2472
2473 #ifndef XC_DONT_COMPILE_KXC
2474 double t1362, t1363, t1364, t1365, t1366, t1367, t1368, t1369;
2475 double t1370, t1371, t1372, t1373, t1374, t1375, t1376, t1378;
2476 double t1379, t1380, t1381, t1382, t1383, t1385, t1386, t1388;
2477 double t1389, t1390, t1391, t1393, t1395, t1396, t1397, t1399;
2478 double t1400, t1402, t1403, t1404, t1406, t1408, t1410, t1412;
2479 double t1413, t1415, t1416, t1417, t1418, t1420, t1421, t1423;
2480 double t1424, t1426, t1427, t1428, t1429, t1430, t1432, t1433;
2481 double t1435, t1437, t1439, t1440, t1442, t1443, t1444, t1445;
2482 double t1446, t1448, t1449, t1450, t1452, t1454, t1456, t1457;
2483 double t1459, t1460, t1462, t1463, t1465, t1466, t1467, t1469;
2484 double t1470, t1472, t1473, t1475, t1477, t1479, t1480, t1482;
2485 double t1483, t1485, t1486, t1487, t1488, t1489, t1490, t1491;
2486 double t1492, t1493, t1495, t1496, t1498, t1501, t1504, t1506;
2487 double t1508, t1509, t1510, t1512, t1513, t1514, t1516, t1517;
2488 double t1519, t1520, t1522, t1528, t1529, t1530, t1533, t1534;
2489 double t1539, t1543, t1547, t1550, t1556, t1559, t1560, t1561;
2490 double t1562, t1563, t1567, t1571, t1574, t1576, t1579, t1584;
2491 double t1585, t1586, t1587, t1588, t1601, t1602, t1603, t1606;
2492 double t1611, t1613, t1616, t1621, t1622, t1629, t1630, t1632;
2493 double t1633, t1634, t1647, t1650, t1653, t1654, t1655, t1657;
2494 double t1658, t1659, t1661, t1663, t1664, t1666, t1669, t1672;
2495 double t1673, t1675, t1677, t1679, t1680, t1682, t1685, t1688;
2496 double t1689, t1691, t1693, t1695, t1704, t1706, t1709, t1710;
2497 double t1711, t1713, t1716, t1718, t1720, t1722, t1725, t1726;
2498 double t1727, t1729, t1731, t1733, t1736, t1738, t1740, t1746;
2499 double t1748, t1751, t1753, t1754, t1756, t1758, t1759, t1760;
2500 double t1761, t1763, t1764, t1765, t1768, t1769, t1770, t1771;
2501 double t1772, t1775, t1776, t1777, t1778, t1781, t1782, t1784;
2502 double t1786, t1787, t1791, t1796, t1799, t1802, t1804, t1807;
2503 double t1811, t1812, t1813, t1816, t1819, t1822, t1825, t1828;
2504 double t1834, t1837, t1839, t1841, t1843, t1845, t1846, t1848;
2505 double t1851, t1854, t1856, t1857, t1859, t1862, t1864, t1866;
2506 double t1868, t1870, t1872, t1874, t1876, t1878, t1880, t1882;
2507 double t1884, t1887, t1890, t1893, t1895, t1897, t1902, t1905;
2508 double t1906, t1907, t1908, t1909, t1911, t1913, t1914, t1915;
2509 double t1917, t1918, t1919, t1920, t1921, t1923, t1924, t1925;
2510 double t1928, t1929, t1930, t1931, t1932, t1934, t1935, t1936;
2511 double t1937, t1942, t1948, t1953, t1954, t1955, t1957, t1958;
2512 double t1960, t1961, t1963, t1964, t1966, t1967, t1968, t1970;
2513 double t1971, t1973, t1974, t1976, t1977, t1978, t1979, t1980;
2514 double t1981, t1982, t1983, t1984, t1986, t1987, t1989, t1990;
2515 double t1991, t1993, t1994, t1996, t1997, t1999, t2000, t2001;
2516 double t2002, t2004, t2005, t2007, t2008, t2009, t2011, t2012;
2517 double t2013, t2014, t2016, t2017, t2018, t2019, t2021, t2022;
2518 double t2024, t2025, t2032, t2034, t2035, t2036, t2039, t2040;
2519 double t2045, t2049, t2053, t2056, t2059, t2063, t2064, t2065;
2520 double t2070, t2074, t2077, t2079, t2082, t2087, t2088, t2089;
2521 double t2102, t2103, t2104, t2107, t2112, t2114, t2117, t2122;
2522 double t2123, t2130, t2131, t2133, t2134, t2136, t2137, t2138;
2523 double t2139, t2140, t2141, t2142, t2143, t2144, t2146, t2147;
2524 double t2148, t2149, t2150, t2151, t2152, t2153, t2154, t2155;
2525 double t2156, t2157, t2158, t2160, t2175, t2179, t2183, t2184;
2526 double t2185, t2186, t2188, t2189, t2191, t2192, t2194, t2195;
2527 double t2196, t2198, t2199, t2201, t2202, t2204, t2205, t2206;
2528 double t2208, t2209, t2210, t2212, t2214, t2215, t2217, t2218;
2529 double t2220, t2221, t2222, t2224, t2225, t2227, t2229, t2231;
2530 double t2232, t2234, t2235, t2236, t2238, t2239, t2241, t2242;
2531 double t2244, t2245, t2247, t2248, t2250, t2252, t2253, t2254;
2532 double t2256, t2257, t2259, t2260, t2262, t2265, t2266, t2267;
2533 double t2268, t2270, t2271, t2273, t2274, t2275, t2277, t2278;
2534 double t2280, t2281, t2283, t2284, t2286, t2288, t2289, t2291;
2535 double t2293, t2294, t2296, t2298, t2299, t2301, t2305, t2308;
2536 double t2309, t2310, t2313, t2315, t2317, t2319, t2321, t2324;
2537 double t2325, t2327, t2330, t2332, t2333, t2335, t2336, t2338;
2538 double t2340, t2342, t2343, t2345, t2347, t2349, t2350, t2352;
2539 double t2354, t2355, t2357, t2358, t2360, t2362, t2364, t2365;
2540 double t2367, t2371, t2374, t2376, t2378, t2383, t2386, t2388;
2541 double t2391, t2392, t2393, t2395, t2396, t2398, t2399, t2401;
2542 double t2402, t2403, t2404, t2405, t2406, t2407, t2408, t2409;
2543 double t2412, t2414, t2416, t2417, t2418, t2420, t2421, t2423;
2544 double t2424, t2426, t2427, t2428, t2430, t2431, t2433, t2435;
2545 double t2437, t2438, t2440, t2441, t2445, t2448, t2451, t2453;
2546 double t2454, t2456, t2458, t2463, t2464, t2465, t2466, t2469;
2547 double t2472, t2475, t2476, t2477, t2479, t2481, t2483, t2485;
2548 double t2491, t2494, t2497, t2499, t2501, t2504, t2506, t2509;
2549 double t2511, t2512, t2513, t2516, t2518, t2519, t2520, t2521;
2550 double t2524, t2526, t2528, t2532, t2535, t2537, t2538, t2539;
2551 double t2540, t2543, t2545, t2547, t2550, t2552, t2556, t2557;
2552 double t2558, t2560, t2561, t2562, t2564, t2565, t2566, t2567;
2553 double t2569, t2570, t2579, t2580, t2582, t2583, t2585, t2586;
2554 double t2587, t2589, t2590, t2592, t2593, t2595, t2596, t2598;
2555 double t2600, t2601, t2603, t2605, t2606, t2609, t2611, t2613;
2556 double t2614, t2615, t2617, t2618, t2620, t2622, t2623, t2626;
2557 double t2627, t2628, t2631, t2633, t2635, t2637, t2641, t2644;
2558 double t2646, t2647, t2649, t2650, t2652, t2654, t2655, t2657;
2559 double t2659, t2661, t2662, t2664, t2666, t2667, t2669, t2670;
2560 double t2672, t2674, t2676, t2677, t2679, t2684, t2687, t2689;
2561 double t2691, t2696, t2699, t2701, t2703, t2704, t2705, t2707;
2562 double t2708, t2709, t2711, t2712, t2713, t2714, t2716, t2717;
2563 double t2718, t2720, t2721, t2723, t2724, t2725, t2727, t2728;
2564 double t2730, t2731, t2732, t2733, t2734, t2735, t2737, t2738;
2565 double t2740, t2741, t2743, t2744, t2745, t2747, t2748, t2751;
2566 double t2752, t2753, t2754, t2755, t2757, t2758, t2760, t2761;
2567 double t2763, t2765, t2766, t2767, t2769, t2770, t2772, t2773;
2568 double t2775, t2776, t2777, t2778, t2779, t2780, t2781, t2782;
2569 double t2785, t2787, t2791, t2793, t2795, t2797, t2801, t2805;
2570 double t2806, t2807, t2813, t2818, t2823, t2824, t2829, t2840;
2571 double t2860, t2866, t2878, t2880, t2881, t2886, t2899, t2900;
2572 double t2901, t2905, t2915, t2917, t2921, t2922, t2932, t2933;
2573 double t2934, t2936, t2939, t2942, t2945, t2946, t2947, t2951;
2574 double t2953, t2956, t2959, t2960, t2962, t2963, t2966, t2969;
2575 double t2970, t2971, t2975, t2978, t2983, t2986, t2988, t2991;
2576 double t3000, t3005, t3012, t3014, t3028, t3042, t3050, t3057;
2577 double t3060, t3063, t3070, t3079, t3080, t3082, t3085, t3086;
2578 double t3089, t3092, t3095, t3097, t3098, t3100, t3101, t3102;
2579 double t3103, t3105, t3106, t3108, t3109, t3111, t3112, t3113;
2580 double t3115, t3116, t3118, t3119, t3120, t3124, t3127, t3129;
2581 double t3131, t3134, t3136, t3137, t3139, t3141, t3143, t3144;
2582 double t3145, t3147, t3149, t3151, t3152, t3153, t3155, t3157;
2583 double t3159, t3161, t3164, t3166, t3167, t3169, t3171, t3173;
2584 double t3175, t3177, t3178, t3180, t3181, t3183, t3184, t3186;
2585 double t3187, t3189, t3190, t3192, t3193, t3195, t3196, t3198;
2586 double t3199, t3200, t3202, t3203, t3205, t3206, t3208, t3209;
2587 double t3210, t3211, t3212, t3213, t3215, t3216, t3218, t3219;
2588 double t3220, t3222, t3224, t3225, t3227, t3228, t3230, t3231;
2589 double t3233, t3234, t3235, t3237, t3238, t3240, t3241, t3245;
2590 double t3246, t3248, t3249, t3250, t3252, t3253, t3257, t3258;
2591 double t3259, t3260, t3262, t3263, t3265, t3266, t3268, t3269;
2592 double t3270, t3272, t3273, t3275, t3276, t3277, t3281, t3284;
2593 double t3286, t3288, t3291, t3293, t3294, t3296, t3298, t3300;
2594 double t3301, t3302, t3304, t3306, t3308, t3309, t3310, t3312;
2595 double t3314, t3316, t3318, t3321, t3323, t3324, t3326, t3328;
2596 double t3330, t3332, t3334, t3335, t3337, t3338, t3340, t3341;
2597 double t3343, t3344, t3346, t3347, t3349, t3350, t3352, t3353;
2598 double t3354, t3356, t3357, t3359, t3360, t3361, t3362, t3363;
2599 double t3364, t3366, t3367, t3369, t3370, t3371, t3374, t3375;
2600 double t3376, t3380, t3381, t3384, t3385, t3388, t3389, t3393;
2601 double t3396, t3398, t3401, t3403, t3404, t3406, t3413, t3415;
2602 double t3416, t3419, t3421, t3422, t3424, t3427, t3429, t3432;
2603 double t3434, t3435, t3437, t3444, t3446, t3449, t3450, t3452;
2604 double t3455, t3456, t3460, t3461, t3464, t3467, t3470, t3474;
2605 double t3475, t3476, t3480, t3481, t3484, t3487, t3490, t3494;
2606 double t3495, t3498, t3499, t3502, t3503, t3507, t3510, t3512;
2607 double t3515, t3517, t3518, t3520, t3527, t3529, t3530, t3533;
2608 double t3535, t3536, t3538, t3541, t3543, t3546, t3548, t3549;
2609 double t3551, t3558, t3560, t3563, t3564, t3566, t3569, t3570;
2610 double t3573, t3576, t3579, t3582, t3585, t3587, t3588, t3592;
2611 double t3596, t3600, t3608, t3610, t3620, t3625, t3631, t3633;
2612 double t3646, t3648, t3651, t3652, t3655, t3656, t3657, t3660;
2613 double t3664, t3668, t3672, t3676, t3684, t3686, t3696, t3701;
2614 double t3707, t3709, t3722, t3724, t3727, t3728, t3731, t3733;
2615 double t3735, t3736, t3738, t3740, t3744, t3746, t3748, t3750;
2616 double t3752, t3753, t3755, t3757, t3759, t3761, t3763, t3765;
2617 double t3767, t3768, t3771, t3774, t3777, t3778, t3781, t3783;
2618 double t3785, t3787, t3788, t3790, t3792, t3796, t3798, t3800;
2619 double t3802, t3804, t3805, t3807, t3809, t3811, t3813, t3815;
2620 double t3817, t3819, t3820, t3823, t3826, t3829, t3830, t3833;
2621 double t3835, t3837, t3839, t3840, t3842, t3844, t3848, t3850;
2622 double t3852, t3854, t3858, t3860, t3861, t3863, t3865, t3867;
2623 double t3869, t3871, t3875, t3877, t3879, t3881, t3884, t3887;
2624 double t3890, t3892, t3894, t3895, t3897, t3899, t3903, t3905;
2625 double t3907, t3909, t3913, t3915, t3916, t3918, t3920, t3922;
2626 double t3924, t3926, t3930, t3932, t3934, t3936, t3939, t3942;
2627 double t3945, t3947, t3949, t3950, t3952, t3954, t3958, t3960;
2628 double t3962, t3966, t3970, t3971, t3973, t3975, t3977, t3979;
2629 double t3983, t3987, t3989, t3991, t3994, t3997, t3999, t4001;
2630 double t4002, t4004, t4006, t4010, t4012, t4014, t4018, t4022;
2631 double t4023, t4025, t4027, t4029, t4031, t4035, t4039, t4041;
2632 double t4043, t4046, t4049, t4053, t4056, t4064, t4070, t4077;
2633 double t4085, t4087, t4090, t4094, t4097, t4105, t4111, t4118;
2634 double t4126, t4128;
2635
2636 #ifndef XC_DONT_COMPILE_LXC
2637 double t4150, t4165, t4168, t4171, t4174, t4177, t4179, t4181;
2638 double t4183, t4192, t4194, t4196, t4198, t4200, t4204, t4209;
2639 double t4210, t4212, t4216, t4217, t4223, t4226, t4239, t4247;
2640 double t4250, t4251, t4257, t4260, t4261, t4264, t4267, t4272;
2641 double t4275, t4278, t4281, t4284, t4287, t4292, t4293, t4303;
2642 double t4304, t4318, t4321, t4332, t4335, t4340, t4345, t4346;
2643 double t4370, t4371, t4399, t4400, t4407, t4409, t4412, t4415;
2644 double t4422, t4425, t4430, t4434, t4440, t4443, t4446, t4448;
2645 double t4449, t4452, t4458, t4460, t4470, t4476, t4477, t4489;
2646 double t4492, t4499, t4506, t4508, t4513, t4533, t4538, t4542;
2647 double t4543, t4549, t4552, t4554, t4559, t4560, t4565, t4569;
2648 double t4579, t4586, t4596, t4599, t4600, t4603, t4609, t4615;
2649 double t4617, t4637, t4640, t4641, t4646, t4650, t4651, t4654;
2650 double t4678, t4683, t4706, t4720, t4723, t4724, t4725, t4727;
2651 double t4728, t4737, t4747, t4750, t4756, t4764, t4767, t4772;
2652 double t4781, t4782, t4784, t4798, t4810, t4811, t4813, t4814;
2653 double t4817, t4820, t4825, t4827, t4834, t4835, t4838, t4842;
2654 double t4845, t4850, t4860, t4862, t4863, t4864, t4866, t4868;
2655 double t4870, t4876, t4877, t4895, t4896, t4906, t4917, t4922;
2656 double t4930, t4940, t4941, t4943, t4949, t4956, t4965, t4972;
2657 double t4973, t4977, t4982, t4992, t4996, t5015, t5032, t5052;
2658 double t5055, t5075, t5081, t5088, t5095, t5101, t5103, t5110;
2659 double t5113, t5116, t5143, t5162, t5179, t5189, t5195, t5230;
2660 double t5232, t5239, t5252, t5260, t5270, t5276, t5280, t5288;
2661 double t5290, t5301, t5312, t5314, t5318, t5320, t5323, t5326;
2662 double t5329, t5332, t5335, t5337, t5356, t5363, t5366, t5369;
2663 double t5372, t5374, t5380, t5398, t5404, t5411, t5446, t5449;
2664 double t5452, t5455, t5462, t5465, t5471, t5473, t5476, t5506;
2665 double t5518, t5546, t5561, t5575, t5579, t5580, t5585, t5587;
2666 double t5589, t5591, t5602, t5608, t5625, t5635, t5639, t5652;
2667 double t5654, t5657, t5660, t5663, t5666, t5669, t5672, t5677;
2668 double t5686, t5703, t5709, t5719, t5755, t5756, t5773, t5777;
2669 double t5780, t5781, t5787, t5790, t5791, t5794, t5797, t5802;
2670 double t5806, t5807, t5810, t5813, t5816, t5823, t5824, t5832;
2671 double t5833, t5849, t5852, t5861, t5864, t5869, t5872, t5875;
2672 double t5882, t5883, t5932, t5933, t5940, t5942, t6007, t6032;
2673 double t6061, t6071, t6076, t6081, t6086, t6098, t6116, t6123;
2674 double t6140, t6142, t6150, t6158, t6161, t6163, t6179, t6182;
2675 double t6185, t6192, t6200, t6210, t6212, t6215, t6218, t6240;
2676 double t6243, t6248, t6250, t6263, t6271, t6272, t6275, t6278;
2677 double t6279, t6282, t6285, t6289, t6295, t6298, t6299, t6309;
2678 double t6324, t6328, t6332, t6333, t6354, t6362, t6374, t6377;
2679 double t6380, t6383, t6384, t6392, t6399, t6402, t6413, t6416;
2680 double t6419, t6422, t6434, t6437, t6442, t6445, t6446, t6450;
2681 double t6461, t6465, t6476, t6490, t6503, t6508, t6533, t6535;
2682 double t6542, t6544, t6564, t6566, t6568, t6570, t6575, t6580;
2683 double t6583, t6586, t6593, t6602, t6605, t6611, t6623, t6625;
2684 double t6642, t6650, t6652, t6657, t6660, t6664, t6669, t6674;
2685 double t6676, t6679, t6686, t6692, t6700, t6703, t6709, t6711;
2686 double t6712, t6728, t6740, t6746, t6759, t6762, t6771, t6779;
2687 double t6786, t6789, t6818, t6846, t6855, t6859, t6863, t6875;
2688 double t6879, t6880, t6881, t6886, t6893, t6894, t6914, t6919;
2689 double t6927, t6936, t6945, t6953, t6957, t6960, t6963, t6966;
2690 double t6973, t6979, t6985, t6988, t6994, t6997, t7001, t7008;
2691 double t7013, t7017, t7020, t7022, t7024, t7029, t7035, t7089;
2692 double t7096, t7098, t7112, t7116, t7132, t7138, t7145, t7150;
2693 double t7172, t7190, t7192, t7199, t7208, t7242, t7245, t7248;
2694 double t7251, t7254, t7256, t7259, t7262, t7265, t7268, t7271;
2695 double t7283, t7286, t7289, t7291, t7293, t7296, t7299, t7301;
2696 double t7325, t7328, t7335, t7368, t7384, t7440, t7448, t7449;
2697 double t7459, t7463, t7470, t7471, t7475, t7485, t7491, t7496;
2698 double t7497, t7521, t7522, t7528, t7531, t7536, t7539, t7543;
2699 double t7558, t7561, t7565, t7571, t7573, t7574, t7577, t7580;
2700 double t7583, t7595, t7618, t7620, t7623, t7630, t7633, t7640;
2701 double t7641, t7649, t7652, t7655, t7658, t7661, t7668, t7675;
2702 double t7685, t7721, t7790, t7817, t7823, t7827, t7829, t7836;
2703 double t7841, t7847, t7849, t7852, t7854, t7859, t7861, t7863;
2704 double t7865, t7870, t7872, t7874, t7876, t7883, t7888, t7891;
2705 double t7908, t7916, t7919, t7921, t7926, t7952, t7957, t7966;
2706 double t7969, t7975, t7984, t7988, t8014, t8033, t8055, t8076;
2707 double t8079, t8086, t8088, t8092, t8095, t8099, t8100, t8127;
2708 double t8130, t8131, t8141, t8142, t8143, t8144, t8145, t8150;
2709 double t8151, t8173, t8177, t8179, t8184, t8188, t8191, t8200;
2710 double t8205, t8206, t8209, t8215, t8225, t8239, t8257, t8262;
2711 double t8266, t8286, t8288, t8290, t8292, t8295, t8302, t8304;
2712 double t8308, t8313, t8315, t8356, t8368, t8376, t8394, t8399;
2713 double t8402, t8412, t8444, t8446, t8455, t8477, t8497, t8509;
2714 double t8512, t8521, t8526, t8529, t8556, t8564, t8575, t8579;
2715 double t8581, t8594, t8596, t8609, t8632, t8634, t8642, t8651;
2716 double t8654, t8663, t8667, t8668, t8680, t8682, t8686, t8688;
2717 double t8690, t8697, t8700, t8703, t8706, t8709, t8721, t8725;
2718 double t8728, t8738, t8757, t8761, t8767, t8771, t8774, t8777;
2719 double t8784, t8785, t8790, t8801, t8808, t8811, t8814, t8845;
2720 double t8848, t8862, t8866, t8871, t8875, t8879, t8883, t8885;
2721 double t8887, t8891, t8893, t8900, t8905, t8912, t8918, t8926;
2722 double t8927, t8935, t8949, t8957, t8960, t8999, t9004, t9009;
2723 double t9012, t9015, t9018, t9021, t9039, t9047, t9050, t9053;
2724 double t9056, t9059, t9068, t9083, t9090, t9118, t9148, t9152;
2725 double t9155, t9160, t9163, t9174, t9177, t9184, t9191, t9194;
2726 double t9195, t9198, t9213, t9216, t9233, t9236, t9240, t9253;
2727 double t9254, t9257, t9275, t9279, t9302, t9308, t9310, t9333;
2728 double t9372, t9395, t9412, t9415, t9416, t9421, t9428, t9433;
2729 double t9444, t9447, t9466, t9472, t9515, t9517, t9544, t9547;
2730 double t9550, t9553, t9562, t9569, t9570, t9573, t9578, t9586;
2731 double t9593, t9595, t9605, t9607, t9615, t9629, t9633, t9637;
2732 double t9639, t9640, t9642, t9650, t9651, t9662, t9680, t9698;
2733 double t9706, t9708, t9712, t9714, t9719, t9727, t9732, t9737;
2734 double t9762, t9790, t9819, t9822, t9829, t9838, t9843, t9846;
2735 double t9863, t9871, t9874, t9879, t9890, t9897, t9902, t9945;
2736 double t9963, t9970, t9972, t9973, t9975, t9976, t9978, t9982;
2737 double t9985, t10007, t10043, t10061, t10062, t10067, t10072, t10085;
2738 double t10090, t10103, t10109, t10120, t10121, t10123, t10133, t10148;
2739 double t10156, t10158, t10162, t10164, t10208, t10213, t10218, t10223;
2740 double t10234, t10239, t10292, t10294, t10299, t10305, t10315, t10321;
2741 double t10340, t10341, t10354, t10359, t10372, t10373, t10376, t10379;
2742 double t10386, t10393, t10398, t10411, t10416, t10430, t10445, t10461;
2743 double t10475, t10477, t10483, t10489, t10495, t10502, t10541, t10542;
2744 double t10555, t10560, t10573, t10574, t10577, t10580, t10587, t10594;
2745 double t10599, t10612, t10617, t10667, t10670, t10671, t10697, t10706;
2746 double t10715, t10750, t10757, t10762, t10769, t10775, t10780, t10794;
2747 double t10808, t10809, t10814, t10819, t10843, t10852, t10857, t10892;
2748 double t10905, t10926, t10929, t10935, t10964, t10965, t10981, t10986;
2749 double t11003, t11010, t11049, t11054, t11061, t11067, t11072, t11086;
2750 double t11087, t11092, t11105, t11150, t11155, t11161, t11175, t11184;
2751 double t11197, t11203, t11219, t11221, t11245, t11260, t11264, t11275;
2752 double t11293, t11299, t11303, t11304, t11335, t11350, t11354, t11365;
2753 double t11383, t11389, t11394, t11458, t11522, t11578, t11593, t11649;
2754 double t11664, t11724, t11736, t11796, t11808, t11864, t11873, t11929;
2755 #endif
2756
2757 #endif
2758
2759 #endif
2760
2761 #endif
2762
2763 #endif
2764
2765
2766
2767 t2 = M_CBRT3;
2768 t4 = POW_1_3(0.1e1 / M_PI);
2769 t5 = t2 * t4;
2770 t6 = M_CBRT4;
2771 t7 = t6 * t6;
2772 t8 = t5 * t7;
2773 t9 = rho[0] - rho[1];
2774 t10 = rho[0] + rho[1];
2775 t11 = 0.1e1 / t10;
2776 t12 = t9 * t11;
2777 t14 = 0.1e1 / 0.2e1 + t12 / 0.2e1;
2778 t15 = POW_1_3(t14);
2779 t16 = t15 * t14;
2780 t17 = POW_1_3(t10);
2781 t18 = t16 * t17;
2782 t19 = M_CBRT2;
2783 t20 = t2 * t2;
2784 t23 = 0.8e1 / 0.27e2 * t19 * t20 * t6;
2785 t24 = POW_1_3(rho[0]);
2786 t25 = t24 * t24;
2787 t27 = 0.1e1 / t25 / rho[0];
2788 t29 = rho[0] * rho[0];
2789 t31 = 0.1e1 / t25 / t29;
2790 t32 = sigma[0] * t31;
2791 t34 = tau[0] * t27 - t32 / 0.8e1;
2792 t35 = M_CBRT6;
2793 t37 = M_PI * M_PI;
2794 t38 = POW_1_3(t37);
2795 t39 = t38 * t38;
2796 t40 = 0.1e1 / t39;
2797 t41 = t34 * t35 * t40;
2798 t43 = 0.827411e0 - 0.35753333333333333333e0 * t41;
2799 t45 = 0.10e1 - 0.45341611111111111111e0 * t41;
2800 t46 = 0.1e1 / t45;
2801 t48 = 0.1e1 - t23;
2802 t49 = t43 * t46 * t48;
2803 t52 = t23 + 0.5e1 / 0.9e1 * t41 * t49;
2804 t53 = 0.5e1 / 0.9e1 * t41;
2805 t54 = 0.1e1 - t53;
2806 t55 = Heaviside(t54);
2807 t57 = 0.1e1 + t53;
2808 t58 = 0.1e1 / t57;
2809 t61 = 0.1e1 + 0.148e0 * t54 * t58;
2810 t62 = -t54;
2811 t63 = Heaviside(t62);
2812 t65 = t52 * t55 + t61 * t63;
2813 t67 = 0.1e1 + 0.1015549e-2 * t32;
2814 t68 = 0.1e1 / t67;
2815 t69 = t65 * t68;
2816 t71 = t8 * t18 * t69;
2817 t73 = 0.1e1 / 0.2e1 - t12 / 0.2e1;
2818 t74 = POW_1_3(t73);
2819 t75 = t74 * t73;
2820 t76 = t75 * t17;
2821 t77 = POW_1_3(rho[1]);
2822 t78 = t77 * t77;
2823 t80 = 0.1e1 / t78 / rho[1];
2824 t82 = rho[1] * rho[1];
2825 t84 = 0.1e1 / t78 / t82;
2826 t85 = sigma[2] * t84;
2827 t87 = tau[1] * t80 - t85 / 0.8e1;
2828 t89 = t87 * t35 * t40;
2829 t91 = 0.827411e0 - 0.35753333333333333333e0 * t89;
2830 t93 = 0.10e1 - 0.45341611111111111111e0 * t89;
2831 t94 = 0.1e1 / t93;
2832 t96 = t91 * t94 * t48;
2833 t99 = t23 + 0.5e1 / 0.9e1 * t89 * t96;
2834 t100 = 0.5e1 / 0.9e1 * t89;
2835 t101 = 0.1e1 - t100;
2836 t102 = Heaviside(t101);
2837 t104 = 0.1e1 + t100;
2838 t105 = 0.1e1 / t104;
2839 t108 = 0.1e1 + 0.148e0 * t101 * t105;
2840 t109 = -t101;
2841 t110 = Heaviside(t109);
2842 t112 = t102 * t99 + t108 * t110;
2843 t114 = 0.1e1 + 0.1015549e-2 * t85;
2844 t115 = 0.1e1 / t114;
2845 t116 = t112 * t115;
2846 t118 = t8 * t76 * t116;
2847 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
2848 zk[0] = -0.3e1 / 0.8e1 * t71 - 0.3e1 / 0.8e1 * t118;
2849
2850 #ifndef XC_DONT_COMPILE_VXC
2851
2852 if(order < 1) return;
2853
2854
2855 t120 = 0.3e1 / 0.8e1 * t71;
2856 t121 = 0.3e1 / 0.8e1 * t118;
2857 t122 = t7 * t15;
2858 t123 = t5 * t122;
2859 t124 = t17 * t65;
2860 t125 = t10 * t10;
2861 t126 = 0.1e1 / t125;
2862 t127 = t9 * t126;
2863 t129 = t11 / 0.2e1 - t127 / 0.2e1;
2864 t130 = t68 * t129;
2865 t132 = t123 * t124 * t130;
2866 t133 = t132 / 0.2e1;
2867 t134 = t17 * t17;
2868 t135 = 0.1e1 / t134;
2869 t136 = t16 * t135;
2870 t138 = t8 * t136 * t69;
2871 t139 = t138 / 0.8e1;
2872 t142 = t29 * rho[0];
2873 t144 = 0.1e1 / t25 / t142;
2874 t147 = -0.5e1 / 0.3e1 * tau[0] * t31 + sigma[0] * t144 / 0.3e1;
2875 t148 = t147 * t35;
2876 t149 = t148 * t40;
2877 t152 = t35 * t35;
2878 t155 = 0.1e1 / t38 / t37;
2879 t156 = t34 * t152 * t155;
2880 t158 = t147 * t46 * t48;
2881 t161 = t45 * t45;
2882 t162 = 0.1e1 / t161;
2883 t163 = t43 * t162;
2884 t164 = t48 * t147;
2885 t165 = t163 * t164;
2886 t168 = 0.5e1 / 0.9e1 * t149 * t49 - 0.19862962962962962963e0 * t156 * t158 + 0.25189783950617283951e0 * t156 * t165;
2887 t170 = 0.0;
2888 t171 = t52 * t170;
2889 t174 = t40 * t58;
2890 t177 = t57 * t57;
2891 t178 = 0.1e1 / t177;
2892 t179 = t54 * t178;
2893 t182 = -0.82222222222222222222e-1 * t148 * t174 - 0.82222222222222222222e-1 * t179 * t149;
2894 t184 = 0.0;
2895 t185 = t61 * t184;
2896 t188 = t168 * t55 - 0.5e1 / 0.9e1 * t171 * t149 + t182 * t63 + 0.5e1 / 0.9e1 * t185 * t149;
2897 t189 = t188 * t68;
2898 t191 = t8 * t18 * t189;
2899 t192 = 0.3e1 / 0.8e1 * t191;
2900 t193 = t7 * t16;
2901 t194 = t5 * t193;
2902 t195 = t67 * t67;
2903 t196 = 0.1e1 / t195;
2904 t197 = t196 * sigma[0];
2905 t198 = t197 * t144;
2906 t200 = t194 * t124 * t198;
2907 t201 = 0.10155490000000000000e-2 * t200;
2908 t202 = t7 * t74;
2909 t203 = t5 * t202;
2910 t204 = t17 * t112;
2911 t205 = -t129;
2912 t206 = t115 * t205;
2913 t208 = t203 * t204 * t206;
2914 t209 = t208 / 0.2e1;
2915 t210 = t75 * t135;
2916 t212 = t8 * t210 * t116;
2917 t213 = t212 / 0.8e1;
2918 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2919 vrho[0] = -t120 - t121 + t10 * (-t133 - t139 - t192 - t201 - t209 - t213);
2920
2921 t217 = -t11 / 0.2e1 - t127 / 0.2e1;
2922 t218 = t68 * t217;
2923 t220 = t123 * t124 * t218;
2924 t221 = t220 / 0.2e1;
2925 t222 = -t217;
2926 t223 = t115 * t222;
2927 t225 = t203 * t204 * t223;
2928 t226 = t225 / 0.2e1;
2929 t229 = t82 * rho[1];
2930 t231 = 0.1e1 / t78 / t229;
2931 t232 = sigma[2] * t231;
2932 t234 = -0.5e1 / 0.3e1 * tau[1] * t84 + t232 / 0.3e1;
2933 t235 = t234 * t35;
2934 t236 = t235 * t40;
2935 t240 = t87 * t152 * t155;
2936 t242 = t234 * t94 * t48;
2937 t245 = t93 * t93;
2938 t246 = 0.1e1 / t245;
2939 t247 = t91 * t246;
2940 t248 = t48 * t234;
2941 t249 = t247 * t248;
2942 t252 = 0.5e1 / 0.9e1 * t236 * t96 - 0.19862962962962962963e0 * t240 * t242 + 0.25189783950617283951e0 * t240 * t249;
2943 t254 = 0.0;
2944 t255 = t99 * t254;
2945 t258 = t40 * t105;
2946 t261 = t104 * t104;
2947 t262 = 0.1e1 / t261;
2948 t263 = t101 * t262;
2949 t266 = -0.82222222222222222222e-1 * t235 * t258 - 0.82222222222222222222e-1 * t263 * t236;
2950 t268 = 0.0;
2951 t269 = t108 * t268;
2952 t272 = t252 * t102 - 0.5e1 / 0.9e1 * t255 * t236 + t266 * t110 + 0.5e1 / 0.9e1 * t269 * t236;
2953 t273 = t272 * t115;
2954 t275 = t8 * t76 * t273;
2955 t276 = 0.3e1 / 0.8e1 * t275;
2956 t277 = t7 * t75;
2957 t278 = t5 * t277;
2958 t279 = t114 * t114;
2959 t280 = 0.1e1 / t279;
2960 t281 = t280 * sigma[2];
2961 t282 = t281 * t231;
2962 t284 = t278 * t204 * t282;
2963 t285 = 0.10155490000000000000e-2 * t284;
2964 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2965 vrho[1] = -t120 - t121 + t10 * (-t221 - t139 - t226 - t213 - t276 - t285);
2966
2967 t288 = t31 * t35;
2968 t289 = t288 * t40;
2969 t290 = t289 * t49;
2970 t294 = t156 * t31 * t46 * t48;
2971 t296 = t48 * t31;
2972 t298 = t156 * t163 * t296;
2973 t300 = -0.5e1 / 0.72e2 * t290 + 0.24828703703703703703e-1 * t294 - 0.31487229938271604938e-1 * t298;
2974 t302 = t171 * t289;
2975 t304 = t288 * t174;
2976 t306 = t179 * t289;
2977 t308 = 0.10277777777777777778e-1 * t304 + 0.10277777777777777778e-1 * t306;
2978 t310 = t185 * t289;
2979 t312 = t300 * t55 + 0.5e1 / 0.72e2 * t302 + t308 * t63 - 0.5e1 / 0.72e2 * t310;
2980 t313 = t312 * t68;
2981 t316 = 0.3e1 / 0.8e1 * t8 * t18 * t313;
2982 t317 = t196 * t31;
2983 t320 = 0.38083087500000000000e-3 * t194 * t124 * t317;
2984 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2985 vsigma[0] = t10 * (-t316 + t320);
2986
2987 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2988 vsigma[1] = 0.0e0;
2989
2990 t322 = t84 * t35;
2991 t323 = t322 * t40;
2992 t324 = t323 * t96;
2993 t328 = t240 * t84 * t94 * t48;
2994 t330 = t48 * t84;
2995 t332 = t240 * t247 * t330;
2996 t334 = -0.5e1 / 0.72e2 * t324 + 0.24828703703703703703e-1 * t328 - 0.31487229938271604938e-1 * t332;
2997 t336 = t255 * t323;
2998 t338 = t322 * t258;
2999 t340 = t263 * t323;
3000 t342 = 0.10277777777777777778e-1 * t338 + 0.10277777777777777778e-1 * t340;
3001 t344 = t269 * t323;
3002 t346 = t334 * t102 + 0.5e1 / 0.72e2 * t336 + t342 * t110 - 0.5e1 / 0.72e2 * t344;
3003 t347 = t346 * t115;
3004 t350 = 0.3e1 / 0.8e1 * t8 * t76 * t347;
3005 t351 = t280 * t84;
3006 t354 = 0.38083087500000000000e-3 * t278 * t204 * t351;
3007 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3008 vsigma[2] = t10 * (-t350 + t354);
3009
3010 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
3011 vlapl[0] = 0.0e0;
3012
3013 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
3014 vlapl[1] = 0.0e0;
3015
3016 t357 = t17 * t10 * t2;
3017 t358 = t357 * t4;
3018 t359 = t27 * t35;
3019 t360 = t359 * t40;
3020 t367 = t48 * t27;
3021 t371 = 0.5e1 / 0.9e1 * t360 * t49 - 0.19862962962962962963e0 * t156 * t27 * t46 * t48 + 0.25189783950617283951e0 * t156 * t163 * t367;
3022 t379 = -0.82222222222222222222e-1 * t359 * t174 - 0.82222222222222222222e-1 * t179 * t360;
3023 t383 = t371 * t55 - 0.5e1 / 0.9e1 * t171 * t360 + t379 * t63 + 0.5e1 / 0.9e1 * t185 * t360;
3024 t384 = t383 * t68;
3025 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3026 vtau[0] = -0.3e1 / 0.8e1 * t358 * t193 * t384;
3027
3028 t388 = t80 * t35;
3029 t389 = t388 * t40;
3030 t396 = t48 * t80;
3031 t400 = 0.5e1 / 0.9e1 * t389 * t96 - 0.19862962962962962963e0 * t240 * t80 * t94 * t48 + 0.25189783950617283951e0 * t240 * t247 * t396;
3032 t408 = -0.82222222222222222222e-1 * t388 * t258 - 0.82222222222222222222e-1 * t263 * t389;
3033 t412 = t400 * t102 - 0.5e1 / 0.9e1 * t255 * t389 + t408 * t110 + 0.5e1 / 0.9e1 * t269 * t389;
3034 t413 = t412 * t115;
3035 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3036 vtau[1] = -0.3e1 / 0.8e1 * t358 * t277 * t413;
3037
3038 #ifndef XC_DONT_COMPILE_FXC
3039
3040 if(order < 2) return;
3041
3042
3043 t417 = t138 / 0.4e1;
3044 t420 = t212 / 0.4e1;
3045 t421 = t15 * t15;
3046 t422 = 0.1e1 / t421;
3047 t423 = t7 * t422;
3048 t424 = t5 * t423;
3049 t425 = t129 * t129;
3050 t426 = t68 * t425;
3051 t428 = t424 * t124 * t426;
3052 t429 = t428 / 0.6e1;
3053 t430 = t135 * t65;
3054 t432 = t123 * t430 * t130;
3055 t433 = t432 / 0.3e1;
3056 t434 = t17 * t188;
3057 t436 = t123 * t434 * t130;
3058 t438 = t5 * t122 * t17;
3059 t439 = t65 * t196;
3060 t440 = t129 * sigma[0];
3061 t441 = t440 * t144;
3062 t442 = t439 * t441;
3063 t443 = t438 * t442;
3064 t444 = 0.27081306666666666667e-2 * t443;
3065 t445 = t125 * t10;
3066 t446 = 0.1e1 / t445;
3067 t447 = t9 * t446;
3068 t448 = -t126 + t447;
3069 t449 = t68 * t448;
3070 t451 = t123 * t124 * t449;
3071 t452 = t451 / 0.2e1;
3072 t454 = 0.1e1 / t134 / t10;
3073 t455 = t16 * t454;
3074 t457 = t8 * t455 * t69;
3075 t458 = t457 / 0.12e2;
3076 t460 = t8 * t136 * t189;
3077 t461 = t460 / 0.4e1;
3078 t463 = t194 * t430 * t198;
3079 t467 = t29 * t29;
3080 t469 = 0.1e1 / t25 / t467;
3081 t472 = 0.40e2 / 0.9e1 * tau[0] * t144 - 0.11e2 / 0.9e1 * sigma[0] * t469;
3082 t473 = t472 * t35;
3083 t474 = t473 * t40;
3084 t477 = t147 * t147;
3085 t478 = t477 * t152;
3086 t480 = t155 * t46 * t48;
3087 t483 = t478 * t155;
3088 t484 = t163 * t48;
3089 t488 = t472 * t46 * t48;
3090 t492 = t162 * t48;
3091 t495 = t34 * t43;
3092 t497 = 0.1e1 / t161 / t45;
3093 t498 = t497 * t48;
3094 t499 = t498 * t477;
3095 t502 = t48 * t472;
3096 t503 = t163 * t502;
3097 t506 = 0.5e1 / 0.9e1 * t474 * t49 - 0.39725925925925925926e0 * t478 * t480 + 0.50379567901234567902e0 * t483 * t484 - 0.19862962962962962963e0 * t156 * t488 - 0.11094883230560388659e-1 * t34 * t477 * t492 + 0.14070293140870518124e-1 * t495 * t499 + 0.25189783950617283951e0 * t156 * t503;
3098 t508 = t168 * t170;
3099 t511 = 0.0;
3100 t512 = t52 * t511;
3101 t519 = t155 * t178;
3102 t523 = 0.1e1 / t177 / t57;
3103 t524 = t54 * t523;
3104 t529 = -0.82222222222222222222e-1 * t473 * t174 + 0.91358024691358024692e-1 * t478 * t519 + 0.91358024691358024691e-1 * t524 * t483 - 0.82222222222222222222e-1 * t179 * t474;
3105 t531 = t182 * t184;
3106 t534 = 0.0;
3107 t535 = t61 * t534;
3108 t540 = t506 * t55 - 0.10e2 / 0.9e1 * t508 * t149 + 0.25e2 / 0.81e2 * t512 * t483 - 0.5e1 / 0.9e1 * t171 * t474 + t529 * t63 + 0.10e2 / 0.9e1 * t531 * t149 + 0.25e2 / 0.81e2 * t535 * t483 + 0.5e1 / 0.9e1 * t185 * t474;
3109 t541 = t540 * t68;
3110 t543 = t8 * t18 * t541;
3111 t544 = 0.3e1 / 0.8e1 * t543;
3112 t546 = t194 * t434 * t198;
3113 t547 = 0.20310980000000000000e-2 * t546;
3114 t549 = 0.1e1 / t195 / t67;
3115 t550 = sigma[0] * sigma[0];
3116 t551 = t549 * t550;
3117 t552 = t467 * t142;
3118 t554 = 0.1e1 / t24 / t552;
3119 t555 = t551 * t554;
3120 t557 = t194 * t124 * t555;
3121 t558 = 0.55004787808053333334e-5 * t557;
3122 t559 = t197 * t469;
3123 t561 = t194 * t124 * t559;
3124 t562 = 0.37236796666666666667e-2 * t561;
3125 t563 = t74 * t74;
3126 t564 = 0.1e1 / t563;
3127 t565 = t7 * t564;
3128 t566 = t5 * t565;
3129 t567 = t205 * t205;
3130 t568 = t115 * t567;
3131 t570 = t566 * t204 * t568;
3132 t571 = t570 / 0.6e1;
3133 t572 = t135 * t112;
3134 t574 = t203 * t572 * t206;
3135 t575 = t574 / 0.3e1;
3136 t576 = -t448;
3137 t577 = t115 * t576;
3138 t579 = t203 * t204 * t577;
3139 t580 = t579 / 0.2e1;
3140 t581 = t75 * t454;
3141 t583 = t8 * t581 * t116;
3142 t584 = t583 / 0.12e2;
3143 t585 = -t429 - t433 - t436 - t444 - t452 + t458 - t461 - 0.67703266666666666667e-3 * t463 - t544 - t547 - t558 + t562 - t571 - t575 - t580 + t584;
3144 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3145 v2rho2[0] = -t132 - t417 - 0.3e1 / 0.4e1 * t191 - 0.20310980000000000000e-2 * t200 - t208 - t420 + t10 * t585;
3146
3147 t587 = t218 * t129;
3148 t589 = t424 * t124 * t587;
3149 t592 = t123 * t430 * t218;
3150 t595 = t123 * t434 * t218;
3151 t597 = t217 * sigma[0];
3152 t598 = t597 * t144;
3153 t599 = t439 * t598;
3154 t600 = t438 * t599;
3155 t603 = 0.1e1 / t134 / t125;
3156 t604 = t603 * t65;
3157 t605 = t68 * t9;
3158 t607 = t123 * t604 * t605;
3159 t612 = t223 * t205;
3160 t614 = t566 * t204 * t612;
3161 t617 = t203 * t572 * t223;
3162 t619 = t603 * t112;
3163 t620 = t115 * t9;
3164 t622 = t203 * t619 * t620;
3165 t625 = t17 * t272;
3166 t627 = t203 * t625 * t206;
3167 t630 = t8 * t210 * t273;
3168 t633 = t5 * t202 * t17;
3169 t634 = t112 * t280;
3170 t635 = t232 * t205;
3171 t636 = t634 * t635;
3172 t637 = t633 * t636;
3173 t640 = t278 * t572 * t282;
3174 t642 = -t589 / 0.6e1 - t592 / 0.6e1 - t595 / 0.2e1 - 0.13540653333333333334e-2 * t600 - t607 / 0.2e1 - t432 / 0.6e1 + t458 - t460 / 0.8e1 - 0.33851633333333333334e-3 * t463 - t614 / 0.6e1 - t617 / 0.6e1 + t622 / 0.2e1 - t574 / 0.6e1 + t584 - t627 / 0.2e1 - t630 / 0.8e1 - 0.13540653333333333333e-2 * t637 - 0.33851633333333333333e-3 * t640;
3175 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3176 v2rho2[1] = t10 * t642 - t133 - t192 - t201 - t209 - t221 - t226 - t276 - t285 - t417 - t420;
3177
3178 t646 = t217 * t217;
3179 t647 = t68 * t646;
3180 t649 = t424 * t124 * t647;
3181 t650 = t649 / 0.6e1;
3182 t651 = t592 / 0.3e1;
3183 t652 = t126 + t447;
3184 t653 = t68 * t652;
3185 t655 = t123 * t124 * t653;
3186 t656 = t655 / 0.2e1;
3187 t657 = t222 * t222;
3188 t658 = t115 * t657;
3189 t660 = t566 * t204 * t658;
3190 t661 = t660 / 0.6e1;
3191 t662 = t617 / 0.3e1;
3192 t664 = t203 * t625 * t223;
3193 t665 = t222 * sigma[2];
3194 t666 = t665 * t231;
3195 t667 = t634 * t666;
3196 t668 = t633 * t667;
3197 t669 = 0.27081306666666666667e-2 * t668;
3198 t670 = -t652;
3199 t671 = t115 * t670;
3200 t673 = t203 * t204 * t671;
3201 t674 = t673 / 0.2e1;
3202 t675 = t630 / 0.4e1;
3203 t679 = t82 * t82;
3204 t681 = 0.1e1 / t78 / t679;
3205 t682 = sigma[2] * t681;
3206 t684 = 0.40e2 / 0.9e1 * tau[1] * t231 - 0.11e2 / 0.9e1 * t682;
3207 t685 = t684 * t35;
3208 t686 = t685 * t40;
3209 t689 = t234 * t234;
3210 t690 = t689 * t152;
3211 t692 = t155 * t94 * t48;
3212 t695 = t690 * t155;
3213 t696 = t247 * t48;
3214 t700 = t684 * t94 * t48;
3215 t704 = t246 * t48;
3216 t707 = t87 * t91;
3217 t709 = 0.1e1 / t245 / t93;
3218 t710 = t709 * t48;
3219 t711 = t710 * t689;
3220 t714 = t48 * t684;
3221 t715 = t247 * t714;
3222 t718 = 0.5e1 / 0.9e1 * t686 * t96 - 0.39725925925925925926e0 * t690 * t692 + 0.50379567901234567902e0 * t695 * t696 - 0.19862962962962962963e0 * t240 * t700 - 0.11094883230560388659e-1 * t87 * t689 * t704 + 0.14070293140870518124e-1 * t707 * t711 + 0.25189783950617283951e0 * t240 * t715;
3223 t720 = t252 * t254;
3224 t723 = 0.0;
3225 t724 = t99 * t723;
3226 t731 = t155 * t262;
3227 t735 = 0.1e1 / t261 / t104;
3228 t736 = t101 * t735;
3229 t741 = -0.82222222222222222222e-1 * t685 * t258 + 0.91358024691358024692e-1 * t690 * t731 + 0.91358024691358024691e-1 * t736 * t695 - 0.82222222222222222222e-1 * t263 * t686;
3230 t743 = t266 * t268;
3231 t746 = 0.0;
3232 t747 = t108 * t746;
3233 t752 = t718 * t102 - 0.10e2 / 0.9e1 * t720 * t236 + 0.25e2 / 0.81e2 * t724 * t695 - 0.5e1 / 0.9e1 * t255 * t686 + t741 * t110 + 0.10e2 / 0.9e1 * t743 * t236 + 0.25e2 / 0.81e2 * t747 * t695 + 0.5e1 / 0.9e1 * t269 * t686;
3234 t753 = t752 * t115;
3235 t755 = t8 * t76 * t753;
3236 t756 = 0.3e1 / 0.8e1 * t755;
3237 t758 = t278 * t625 * t282;
3238 t759 = 0.20310980000000000000e-2 * t758;
3239 t761 = 0.1e1 / t279 / t114;
3240 t762 = sigma[2] * sigma[2];
3241 t763 = t761 * t762;
3242 t764 = t679 * t229;
3243 t766 = 0.1e1 / t77 / t764;
3244 t767 = t763 * t766;
3245 t769 = t278 * t204 * t767;
3246 t770 = 0.55004787808053333334e-5 * t769;
3247 t771 = t281 * t681;
3248 t773 = t278 * t204 * t771;
3249 t774 = 0.37236796666666666667e-2 * t773;
3250 t775 = -t650 - t651 - t656 + t458 - t661 - t662 - t664 - t669 - t674 + t584 - t675 - 0.67703266666666666667e-3 * t640 - t756 - t759 - t770 + t774;
3251 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3252 v2rho2[2] = -t220 - t417 - t225 - t420 - 0.3e1 / 0.4e1 * t275 - 0.20310980000000000000e-2 * t284 + t10 * t775;
3253
3254 t777 = t17 * t312;
3255 t779 = t123 * t777 * t130;
3256 t780 = t779 / 0.2e1;
3257 t782 = t8 * t136 * t313;
3258 t783 = t782 / 0.8e1;
3259 t784 = t144 * t35;
3260 t785 = t784 * t40;
3261 t786 = t785 * t49;
3262 t788 = t31 * t152;
3263 t789 = t788 * t155;
3264 t790 = t789 * t158;
3265 t792 = t789 * t165;
3266 t796 = t156 * t144 * t46 * t48;
3267 t798 = t34 * t31;
3268 t799 = t492 * t147;
3269 t800 = t798 * t799;
3270 t802 = t495 * t497;
3271 t804 = t802 * t296 * t147;
3272 t806 = t48 * t144;
3273 t808 = t156 * t163 * t806;
3274 t810 = 0.5e1 / 0.27e2 * t786 + 0.49657407407407407406e-1 * t790 - 0.62974459876543209876e-1 * t792 - 0.66209876543209876541e-1 * t796 + 0.13868604038200485824e-2 * t800 - 0.17587866426088147654e-2 * t804 + 0.83965946502057613168e-1 * t808;
3275 t812 = t300 * t170;
3276 t815 = t508 * t289;
3277 t817 = t512 * t147;
3278 t818 = t817 * t789;
3279 t820 = t171 * t785;
3280 t822 = t784 * t174;
3281 t824 = t519 * t147;
3282 t825 = t788 * t824;
3283 t827 = t524 * t31;
3284 t828 = t152 * t155;
3285 t829 = t828 * t147;
3286 t830 = t827 * t829;
3287 t832 = t179 * t785;
3288 t834 = -0.27407407407407407408e-1 * t822 - 0.11419753086419753087e-1 * t825 - 0.11419753086419753087e-1 * t830 - 0.27407407407407407408e-1 * t832;
3289 t836 = t308 * t184;
3290 t839 = t531 * t289;
3291 t841 = t535 * t147;
3292 t842 = t841 * t789;
3293 t844 = t185 * t785;
3294 t846 = t810 * t55 - 0.5e1 / 0.9e1 * t812 * t149 + 0.5e1 / 0.72e2 * t815 - 0.25e2 / 0.648e3 * t818 - 0.5e1 / 0.27e2 * t820 + t834 * t63 + 0.5e1 / 0.9e1 * t836 * t149 - 0.5e1 / 0.72e2 * t839 - 0.25e2 / 0.648e3 * t842 + 0.5e1 / 0.27e2 * t844;
3295 t847 = t846 * t68;
3296 t849 = t8 * t18 * t847;
3297 t850 = 0.3e1 / 0.8e1 * t849;
3298 t852 = t194 * t777 * t198;
3299 t853 = 0.10155490000000000000e-2 * t852;
3300 t854 = t317 * t129;
3301 t856 = t123 * t124 * t854;
3302 t857 = 0.50777450000000000000e-3 * t856;
3303 t859 = t194 * t430 * t317;
3304 t860 = 0.12694362500000000000e-3 * t859;
3305 t862 = t194 * t434 * t317;
3306 t863 = 0.38083087500000000000e-3 * t862;
3307 t864 = t467 * t29;
3308 t866 = 0.1e1 / t24 / t864;
3309 t867 = t549 * t866;
3310 t868 = t867 * sigma[0];
3311 t870 = t194 * t124 * t868;
3312 t871 = 0.20626795428020000000e-5 * t870;
3313 t872 = t196 * t144;
3314 t874 = t194 * t124 * t872;
3315 t875 = 0.10155490000000000000e-2 * t874;
3316 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3317 v2rhosigma[0] = -t316 + t320 + t10 * (-t780 - t783 - t850 - t853 + t857 + t860 + t863 + t871 - t875);
3318
3319 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3320 v2rhosigma[1] = 0.0e0;
3321
3322 t878 = t17 * t346;
3323 t880 = t203 * t878 * t206;
3324 t881 = t880 / 0.2e1;
3325 t883 = t8 * t210 * t347;
3326 t884 = t883 / 0.8e1;
3327 t885 = t351 * t205;
3328 t887 = t203 * t204 * t885;
3329 t888 = 0.50777450000000000000e-3 * t887;
3330 t890 = t278 * t572 * t351;
3331 t891 = 0.12694362500000000000e-3 * t890;
3332 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3333 v2rhosigma[2] = -t350 + t354 + t10 * (-t881 - t884 + t888 + t891);
3334
3335 t895 = t123 * t777 * t218;
3336 t896 = t895 / 0.2e1;
3337 t897 = t317 * t217;
3338 t899 = t123 * t124 * t897;
3339 t900 = 0.50777450000000000000e-3 * t899;
3340 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3341 v2rhosigma[3] = -t316 + t320 + t10 * (-t896 - t783 + t900 + t860);
3342
3343 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3344 v2rhosigma[4] = 0.0e0;
3345
3346 t904 = t203 * t878 * t223;
3347 t905 = t904 / 0.2e1;
3348 t906 = t231 * t35;
3349 t907 = t906 * t40;
3350 t908 = t907 * t96;
3351 t910 = t84 * t152;
3352 t911 = t910 * t155;
3353 t912 = t911 * t242;
3354 t914 = t911 * t249;
3355 t918 = t240 * t231 * t94 * t48;
3356 t920 = t87 * t84;
3357 t921 = t704 * t234;
3358 t922 = t920 * t921;
3359 t924 = t707 * t709;
3360 t926 = t924 * t330 * t234;
3361 t928 = t48 * t231;
3362 t930 = t240 * t247 * t928;
3363 t932 = 0.5e1 / 0.27e2 * t908 + 0.49657407407407407406e-1 * t912 - 0.62974459876543209876e-1 * t914 - 0.66209876543209876541e-1 * t918 + 0.13868604038200485824e-2 * t922 - 0.17587866426088147654e-2 * t926 + 0.83965946502057613168e-1 * t930;
3364 t934 = t334 * t254;
3365 t937 = t720 * t323;
3366 t939 = t724 * t234;
3367 t940 = t939 * t911;
3368 t942 = t255 * t907;
3369 t944 = t906 * t258;
3370 t946 = t731 * t234;
3371 t947 = t910 * t946;
3372 t949 = t736 * t84;
3373 t950 = t828 * t234;
3374 t951 = t949 * t950;
3375 t953 = t263 * t907;
3376 t955 = -0.27407407407407407408e-1 * t944 - 0.11419753086419753087e-1 * t947 - 0.11419753086419753087e-1 * t951 - 0.27407407407407407408e-1 * t953;
3377 t957 = t342 * t268;
3378 t960 = t743 * t323;
3379 t962 = t747 * t234;
3380 t963 = t962 * t911;
3381 t965 = t269 * t907;
3382 t967 = t932 * t102 - 0.5e1 / 0.9e1 * t934 * t236 + 0.5e1 / 0.72e2 * t937 - 0.25e2 / 0.648e3 * t940 - 0.5e1 / 0.27e2 * t942 + t955 * t110 + 0.5e1 / 0.9e1 * t957 * t236 - 0.5e1 / 0.72e2 * t960 - 0.25e2 / 0.648e3 * t963 + 0.5e1 / 0.27e2 * t965;
3383 t968 = t967 * t115;
3384 t970 = t8 * t76 * t968;
3385 t971 = 0.3e1 / 0.8e1 * t970;
3386 t973 = t278 * t878 * t282;
3387 t974 = 0.10155490000000000000e-2 * t973;
3388 t975 = t351 * t222;
3389 t977 = t203 * t204 * t975;
3390 t978 = 0.50777450000000000000e-3 * t977;
3391 t980 = t278 * t625 * t351;
3392 t981 = 0.38083087500000000000e-3 * t980;
3393 t982 = t679 * t82;
3394 t984 = 0.1e1 / t77 / t982;
3395 t985 = t761 * t984;
3396 t986 = t985 * sigma[2];
3397 t988 = t278 * t204 * t986;
3398 t989 = 0.20626795428020000000e-5 * t988;
3399 t990 = t280 * t231;
3400 t992 = t278 * t204 * t990;
3401 t993 = 0.10155490000000000000e-2 * t992;
3402 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3403 v2rhosigma[5] = -t350 + t354 + t10 * (-t905 - t884 - t971 - t974 + t978 + t891 + t981 + t989 - t993);
3404
3405 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3406 v2rholapl[0] = 0.0e0;
3407
3408 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3409 v2rholapl[1] = 0.0e0;
3410
3411 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3412 v2rholapl[2] = 0.0e0;
3413
3414 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3415 v2rholapl[3] = 0.0e0;
3416
3417 t997 = t8 * t18 * t384;
3418 t999 = t4 * t7;
3419 t1000 = t357 * t999;
3420 t1001 = t15 * t383;
3421 t1006 = t27 * t152;
3422 t1007 = t1006 * t155;
3423 t1013 = t34 * t27;
3424 t1020 = -0.25e2 / 0.27e2 * t290 - 0.39725925925925925926e0 * t1007 * t158 + 0.50379567901234567902e0 * t1007 * t165 + 0.33104938271604938272e0 * t294 - 0.11094883230560388659e-1 * t1013 * t799 + 0.14070293140870518124e-1 * t802 * t367 * t147 - 0.41982973251028806585e0 * t298;
3425 t1022 = t371 * t170;
3426 t1033 = t524 * t27;
3427 t1037 = 0.13703703703703703704e0 * t304 + 0.91358024691358024692e-1 * t1006 * t824 + 0.91358024691358024691e-1 * t1033 * t829 + 0.13703703703703703704e0 * t306;
3428 t1039 = t379 * t184;
3429 t1047 = t1020 * t55 - 0.5e1 / 0.9e1 * t1022 * t149 - 0.5e1 / 0.9e1 * t508 * t360 + 0.25e2 / 0.81e2 * t817 * t1007 + 0.25e2 / 0.27e2 * t302 + t1037 * t63 + 0.5e1 / 0.9e1 * t1039 * t149 + 0.5e1 / 0.9e1 * t531 * t360 + 0.25e2 / 0.81e2 * t841 * t1007 - 0.25e2 / 0.27e2 * t310;
3430 t1048 = t1047 * t68;
3431 t1052 = t16 * t383;
3432 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3433 v2rhotau[0] = -t997 / 0.2e1 - t1000 * t1001 * t130 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t193 * t1048 - 0.10155490000000000000e-2 * t1000 * t1052 * t198;
3434
3435 t1057 = t8 * t76 * t413;
3436 t1058 = t74 * t412;
3437 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3438 v2rhotau[1] = -t1000 * t1058 * t206 / 0.2e1 - t1057 / 0.2e1;
3439
3440 t1062 = t1001 * t218;
3441 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3442 v2rhotau[2] = -t1000 * t1062 / 0.2e1 - t997 / 0.2e1;
3443
3444 t1066 = t1058 * t223;
3445 t1070 = t80 * t152;
3446 t1071 = t1070 * t155;
3447 t1077 = t87 * t80;
3448 t1084 = -0.25e2 / 0.27e2 * t324 - 0.39725925925925925926e0 * t1071 * t242 + 0.50379567901234567902e0 * t1071 * t249 + 0.33104938271604938272e0 * t328 - 0.11094883230560388659e-1 * t1077 * t921 + 0.14070293140870518124e-1 * t924 * t396 * t234 - 0.41982973251028806585e0 * t332;
3449 t1086 = t400 * t254;
3450 t1097 = t736 * t80;
3451 t1101 = 0.13703703703703703704e0 * t338 + 0.91358024691358024692e-1 * t1070 * t946 + 0.91358024691358024691e-1 * t1097 * t950 + 0.13703703703703703704e0 * t340;
3452 t1103 = t408 * t268;
3453 t1111 = t1084 * t102 - 0.5e1 / 0.9e1 * t1086 * t236 - 0.5e1 / 0.9e1 * t720 * t389 + 0.25e2 / 0.81e2 * t939 * t1071 + 0.25e2 / 0.27e2 * t336 + t1101 * t110 + 0.5e1 / 0.9e1 * t1103 * t236 + 0.5e1 / 0.9e1 * t743 * t389 + 0.25e2 / 0.81e2 * t962 * t1071 - 0.25e2 / 0.27e2 * t344;
3454 t1113 = t277 * t1111 * t115;
3455 t1116 = t75 * t412;
3456 t1117 = t1116 * t282;
3457 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3458 v2rhotau[3] = -t1057 / 0.2e1 - t1000 * t1066 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t1113 - 0.10155490000000000000e-2 * t1000 * t1117;
3459
3460 t1120 = t467 * rho[0];
3461 t1122 = 0.1e1 / t24 / t1120;
3462 t1123 = t1122 * t152;
3463 t1124 = t1123 * t480;
3464 t1126 = t1123 * t155;
3465 t1127 = t1126 * t484;
3466 t1129 = t34 * t1122;
3467 t1130 = t1129 * t492;
3468 t1132 = t498 * t1122;
3469 t1133 = t495 * t1132;
3470 t1135 = -0.62071759259259259258e-2 * t1124 + 0.78718074845679012345e-2 * t1127 - 0.17335755047750607279e-3 * t1130 + 0.21984833032610184568e-3 * t1133;
3471 t1137 = t812 * t289;
3472 t1139 = t512 * t1126;
3473 t1141 = t1123 * t519;
3474 t1143 = t524 * t1126;
3475 t1145 = 0.14274691358024691358e-2 * t1141 + 0.14274691358024691358e-2 * t1143;
3476 t1147 = t836 * t289;
3477 t1149 = t535 * t1126;
3478 t1151 = t1135 * t55 + 0.5e1 / 0.36e2 * t1137 + 0.25e2 / 0.5184e4 * t1139 + t1145 * t63 - 0.5e1 / 0.36e2 * t1147 + 0.25e2 / 0.5184e4 * t1149;
3479 t1152 = t1151 * t68;
3480 t1155 = 0.3e1 / 0.8e1 * t8 * t18 * t1152;
3481 t1158 = 0.76166175000000000000e-3 * t194 * t777 * t317;
3482 t1159 = t549 * t1122;
3483 t1162 = 0.77350482855075000000e-6 * t194 * t124 * t1159;
3484 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3485 v2sigma2[0] = t10 * (-t1155 + t1158 - t1162);
3486
3487 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3488 v2sigma2[1] = 0.0e0;
3489
3490 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3491 v2sigma2[2] = 0.0e0;
3492
3493 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3494 v2sigma2[3] = 0.0e0;
3495
3496 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3497 v2sigma2[4] = 0.0e0;
3498
3499 t1164 = t679 * rho[1];
3500 t1166 = 0.1e1 / t77 / t1164;
3501 t1167 = t1166 * t152;
3502 t1168 = t1167 * t692;
3503 t1170 = t1167 * t155;
3504 t1171 = t1170 * t696;
3505 t1173 = t87 * t1166;
3506 t1174 = t1173 * t704;
3507 t1176 = t710 * t1166;
3508 t1177 = t707 * t1176;
3509 t1179 = -0.62071759259259259258e-2 * t1168 + 0.78718074845679012345e-2 * t1171 - 0.17335755047750607279e-3 * t1174 + 0.21984833032610184568e-3 * t1177;
3510 t1181 = t934 * t323;
3511 t1183 = t724 * t1170;
3512 t1185 = t1167 * t731;
3513 t1187 = t736 * t1170;
3514 t1189 = 0.14274691358024691358e-2 * t1185 + 0.14274691358024691358e-2 * t1187;
3515 t1191 = t957 * t323;
3516 t1193 = t747 * t1170;
3517 t1195 = t1179 * t102 + 0.5e1 / 0.36e2 * t1181 + 0.25e2 / 0.5184e4 * t1183 + t1189 * t110 - 0.5e1 / 0.36e2 * t1191 + 0.25e2 / 0.5184e4 * t1193;
3518 t1196 = t1195 * t115;
3519 t1199 = 0.3e1 / 0.8e1 * t8 * t76 * t1196;
3520 t1202 = 0.76166175000000000000e-3 * t278 * t878 * t351;
3521 t1203 = t761 * t1166;
3522 t1206 = 0.77350482855075000000e-6 * t278 * t204 * t1203;
3523 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3524 v2sigma2[5] = t10 * (-t1199 + t1202 - t1206);
3525
3526 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3527 v2sigmalapl[0] = 0.0e0;
3528
3529 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3530 v2sigmalapl[1] = 0.0e0;
3531
3532 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3533 v2sigmalapl[2] = 0.0e0;
3534
3535 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3536 v2sigmalapl[3] = 0.0e0;
3537
3538 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3539 v2sigmalapl[4] = 0.0e0;
3540
3541 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3542 v2sigmalapl[5] = 0.0e0;
3543
3544 t1209 = 0.1e1 / t24 / t467;
3545 t1210 = t1209 * t152;
3546 t1211 = t1210 * t480;
3547 t1213 = t1210 * t155;
3548 t1214 = t1213 * t484;
3549 t1216 = t34 * t1209;
3550 t1217 = t1216 * t492;
3551 t1219 = t498 * t1209;
3552 t1220 = t495 * t1219;
3553 t1222 = 0.49657407407407407407e-1 * t1211 - 0.62974459876543209877e-1 * t1214 + 0.13868604038200485824e-2 * t1217 - 0.17587866426088147655e-2 * t1220;
3554 t1224 = t1022 * t289;
3555 t1228 = t512 * t1213;
3556 t1230 = t1210 * t519;
3557 t1232 = t524 * t1213;
3558 t1234 = -0.11419753086419753086e-1 * t1230 - 0.11419753086419753086e-1 * t1232;
3559 t1236 = t1039 * t289;
3560 t1240 = t535 * t1213;
3561 t1242 = t1222 * t55 + 0.5e1 / 0.72e2 * t1224 - 0.5e1 / 0.9e1 * t812 * t360 - 0.25e2 / 0.648e3 * t1228 + t1234 * t63 - 0.5e1 / 0.72e2 * t1236 + 0.5e1 / 0.9e1 * t836 * t360 - 0.25e2 / 0.648e3 * t1240;
3562 t1244 = t193 * t1242 * t68;
3563 t1247 = t1052 * t317;
3564 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3565 v2sigmatau[0] = -0.3e1 / 0.8e1 * t358 * t1244 + 0.38083087500000000000e-3 * t1000 * t1247;
3566
3567 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3568 v2sigmatau[1] = 0.0e0;
3569
3570 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3571 v2sigmatau[2] = 0.0e0;
3572
3573 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3574 v2sigmatau[3] = 0.0e0;
3575
3576 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3577 v2sigmatau[4] = 0.0e0;
3578
3579 t1251 = 0.1e1 / t77 / t679;
3580 t1252 = t1251 * t152;
3581 t1253 = t1252 * t692;
3582 t1255 = t1252 * t155;
3583 t1256 = t1255 * t696;
3584 t1258 = t87 * t1251;
3585 t1259 = t1258 * t704;
3586 t1261 = t710 * t1251;
3587 t1262 = t707 * t1261;
3588 t1264 = 0.49657407407407407407e-1 * t1253 - 0.62974459876543209877e-1 * t1256 + 0.13868604038200485824e-2 * t1259 - 0.17587866426088147655e-2 * t1262;
3589 t1266 = t1086 * t323;
3590 t1270 = t724 * t1255;
3591 t1272 = t1252 * t731;
3592 t1274 = t736 * t1255;
3593 t1276 = -0.11419753086419753086e-1 * t1272 - 0.11419753086419753086e-1 * t1274;
3594 t1278 = t1103 * t323;
3595 t1282 = t747 * t1255;
3596 t1284 = t1264 * t102 + 0.5e1 / 0.72e2 * t1266 - 0.5e1 / 0.9e1 * t934 * t389 - 0.25e2 / 0.648e3 * t1270 + t1276 * t110 - 0.5e1 / 0.72e2 * t1278 + 0.5e1 / 0.9e1 * t957 * t389 - 0.25e2 / 0.648e3 * t1282;
3597 t1286 = t277 * t1284 * t115;
3598 t1289 = t1116 * t351;
3599 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3600 v2sigmatau[5] = -0.3e1 / 0.8e1 * t358 * t1286 + 0.38083087500000000000e-3 * t1000 * t1289;
3601
3602 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3603 v2lapl2[0] = 0.0e0;
3604
3605 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3606 v2lapl2[1] = 0.0e0;
3607
3608 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3609 v2lapl2[2] = 0.0e0;
3610
3611 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3612 v2lapltau[0] = 0.0e0;
3613
3614 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3615 v2lapltau[1] = 0.0e0;
3616
3617 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3618 v2lapltau[2] = 0.0e0;
3619
3620 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3621 v2lapltau[3] = 0.0e0;
3622
3623 t1293 = 0.1e1 / t24 / t142;
3624 t1294 = t1293 * t152;
3625 t1297 = t1294 * t155;
3626 t1300 = t34 * t1293;
3627 t1303 = t498 * t1293;
3628 t1306 = -0.39725925925925925926e0 * t1294 * t480 + 0.50379567901234567902e0 * t1297 * t484 - 0.11094883230560388659e-1 * t1300 * t492 + 0.14070293140870518124e-1 * t495 * t1303;
3629 t1316 = 0.91358024691358024692e-1 * t1294 * t519 + 0.91358024691358024691e-1 * t524 * t1297;
3630 t1322 = t1306 * t55 - 0.10e2 / 0.9e1 * t1022 * t360 + 0.25e2 / 0.81e2 * t512 * t1297 + t1316 * t63 + 0.10e2 / 0.9e1 * t1039 * t360 + 0.25e2 / 0.81e2 * t535 * t1297;
3631 t1324 = t193 * t1322 * t68;
3632 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3633 v2tau2[0] = -0.3e1 / 0.8e1 * t358 * t1324;
3634
3635 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3636 v2tau2[1] = 0.0e0;
3637
3638 t1328 = 0.1e1 / t77 / t229;
3639 t1329 = t1328 * t152;
3640 t1332 = t1329 * t155;
3641 t1335 = t87 * t1328;
3642 t1338 = t710 * t1328;
3643 t1341 = -0.39725925925925925926e0 * t1329 * t692 + 0.50379567901234567902e0 * t1332 * t696 - 0.11094883230560388659e-1 * t1335 * t704 + 0.14070293140870518124e-1 * t707 * t1338;
3644 t1351 = 0.91358024691358024692e-1 * t1329 * t731 + 0.91358024691358024691e-1 * t736 * t1332;
3645 t1357 = t1341 * t102 - 0.10e2 / 0.9e1 * t1086 * t389 + 0.25e2 / 0.81e2 * t724 * t1332 + t1351 * t110 + 0.10e2 / 0.9e1 * t1103 * t389 + 0.25e2 / 0.81e2 * t747 * t1332;
3646 t1359 = t277 * t1357 * t115;
3647 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3648 v2tau2[2] = -0.3e1 / 0.8e1 * t358 * t1359;
3649
3650 #ifndef XC_DONT_COMPILE_KXC
3651
3652 if(order < 3) return;
3653
3654
3655 t1362 = t188 * t196;
3656 t1363 = t1362 * t441;
3657 t1364 = t438 * t1363;
3658 t1365 = 0.81243920000000000001e-2 * t1364;
3659 t1366 = t448 * sigma[0];
3660 t1367 = t1366 * t144;
3661 t1368 = t439 * t1367;
3662 t1369 = t438 * t1368;
3663 t1370 = 0.40621960000000000001e-2 * t1369;
3664 t1371 = t65 * t549;
3665 t1372 = t129 * t550;
3666 t1373 = t1372 * t554;
3667 t1374 = t1371 * t1373;
3668 t1375 = t438 * t1374;
3669 t1376 = 0.22001915123221333334e-4 * t1375;
3670 t1378 = t5 * t423 * t17;
3671 t1379 = t425 * sigma[0];
3672 t1380 = t1379 * t144;
3673 t1381 = t439 * t1380;
3674 t1382 = t1378 * t1381;
3675 t1383 = 0.13540653333333333334e-2 * t1382;
3676 t1385 = t5 * t122 * t135;
3677 t1386 = t1385 * t442;
3678 t1388 = t440 * t469;
3679 t1389 = t439 * t1388;
3680 t1390 = t438 * t1389;
3681 t1391 = 0.14894718666666666667e-1 * t1390;
3682 t1393 = t203 * t572 * t577;
3683 t1395 = t125 * t125;
3684 t1396 = 0.1e1 / t1395;
3685 t1397 = t9 * t1396;
3686 t1399 = -0.3e1 * t446 + 0.3e1 * t1397;
3687 t1400 = t115 * t1399;
3688 t1402 = t203 * t204 * t1400;
3689 t1403 = t1402 / 0.2e1;
3690 t1404 = t135 * t188;
3691 t1406 = t123 * t1404 * t130;
3692 t1408 = t123 * t430 * t449;
3693 t1410 = t17 * t540;
3694 t1412 = t123 * t1410 * t130;
3695 t1413 = 0.3e1 / 0.2e1 * t1412;
3696 t1415 = t123 * t434 * t449;
3697 t1416 = 0.3e1 / 0.2e1 * t1415;
3698 t1417 = -t1399;
3699 t1418 = t68 * t1417;
3700 t1420 = t123 * t124 * t1418;
3701 t1421 = t1420 / 0.2e1;
3702 t1423 = t424 * t434 * t426;
3703 t1424 = t1423 / 0.2e1;
3704 t1426 = 0.1e1 / t563 / t73;
3705 t1427 = t7 * t1426;
3706 t1428 = t5 * t1427;
3707 t1429 = t567 * t205;
3708 t1430 = t115 * t1429;
3709 t1432 = t1428 * t204 * t1430;
3710 t1433 = t1432 / 0.9e1;
3711 t1435 = t566 * t572 * t568;
3712 t1437 = t454 * t112;
3713 t1439 = t203 * t1437 * t206;
3714 t1440 = t1439 / 0.3e1;
3715 t1442 = 0.1e1 / t421 / t14;
3716 t1443 = t7 * t1442;
3717 t1444 = t5 * t1443;
3718 t1445 = t425 * t129;
3719 t1446 = t68 * t1445;
3720 t1448 = t1444 * t124 * t1446;
3721 t1449 = t1448 / 0.9e1;
3722 t1450 = -t1365 - t1370 - t1376 - t1383 - 0.27081306666666666667e-2 * t1386 + t1391 - t1393 / 0.2e1 - t1403 - t1406 - t1408 / 0.2e1 - t1413 - t1416 - t1421 - t1424 + t1433 - t1435 / 0.6e1 + t1440 + t1449;
3723 t1452 = t424 * t430 * t426;
3724 t1454 = t454 * t65;
3725 t1456 = t123 * t1454 * t130;
3726 t1457 = t1456 / 0.3e1;
3727 t1459 = 0.1e1 / t25 / t1120;
3728 t1460 = t197 * t1459;
3729 t1462 = t194 * t124 * t1460;
3730 t1463 = 0.17377171777777777778e-1 * t1462;
3731 t1465 = t194 * t434 * t559;
3732 t1466 = 0.11171039000000000000e-1 * t1465;
3733 t1467 = t467 * t467;
3734 t1469 = 0.1e1 / t24 / t1467;
3735 t1470 = t551 * t1469;
3736 t1472 = t194 * t124 * t1470;
3737 t1473 = 0.60505266588858666668e-4 * t1472;
3738 t1475 = t194 * t430 * t559;
3739 t1477 = t206 * t576;
3740 t1479 = t566 * t204 * t1477;
3741 t1480 = t1479 / 0.2e1;
3742 t1482 = t194 * t1410 * t198;
3743 t1483 = 0.30466470000000000000e-2 * t1482;
3744 t1485 = t194 * t434 * t555;
3745 t1486 = 0.16501436342416000000e-4 * t1485;
3746 t1487 = t195 * t195;
3747 t1488 = 0.1e1 / t1487;
3748 t1489 = t550 * sigma[0];
3749 t1490 = t1488 * t1489;
3750 t1491 = t1467 * t142;
3751 t1492 = 0.1e1 / t1491;
3752 t1493 = t1490 * t1492;
3753 t1495 = t194 * t124 * t1493;
3754 t1496 = 0.44688045802944603692e-7 * t1495;
3755 t1498 = t194 * t1404 * t198;
3756 t1501 = t194 * t430 * t555;
3757 t1504 = t194 * t1454 * t198;
3758 t1506 = t130 * t448;
3759 t1508 = t424 * t124 * t1506;
3760 t1509 = t1508 / 0.2e1;
3761 t1510 = t75 * t603;
3762 t1512 = t8 * t1510 * t116;
3763 t1513 = 0.5e1 / 0.36e2 * t1512;
3764 t1514 = t16 * t603;
3765 t1516 = t8 * t1514 * t69;
3766 t1517 = 0.5e1 / 0.36e2 * t1516;
3767 t1519 = t8 * t455 * t189;
3768 t1520 = t1519 / 0.4e1;
3769 t1522 = t8 * t136 * t541;
3770 t1528 = -0.440e3 / 0.27e2 * tau[0] * t469 + 0.154e3 / 0.27e2 * sigma[0] * t1459;
3771 t1529 = t1528 * t35;
3772 t1530 = t1529 * t40;
3773 t1533 = t472 * t152;
3774 t1534 = t1533 * t155;
3775 t1539 = t477 * t147;
3776 t1543 = t1539 * t43;
3777 t1547 = t1528 * t46 * t48;
3778 t1550 = t34 * t472;
3779 t1556 = t48 * t35 * t40;
3780 t1559 = t161 * t161;
3781 t1560 = 0.1e1 / t1559;
3782 t1561 = t495 * t1560;
3783 t1562 = t48 * t1539;
3784 t1563 = t35 * t40;
3785 t1567 = t164 * t472;
3786 t1571 = t163 * t48 * t1528;
3787 t1574 = 0.5e1 / 0.9e1 * t1530 * t49 - 0.11917777777777777778e1 * t1534 * t158 + 0.15113870370370370370e1 * t1534 * t165 - 0.33284649691681165977e-1 * t1539 * t162 * t48 + 0.42210879422611554372e-1 * t1543 * t498 - 0.19862962962962962963e0 * t156 * t1547 - 0.33284649691681165977e-1 * t1550 * t799 - 0.15091796422897717740e-1 * t34 * t1539 * t497 * t1556 + 0.19139092794380554160e-1 * t1561 * t1562 * t1563 + 0.42210879422611554372e-1 * t802 * t1567 + 0.25189783950617283951e0 * t156 * t1571;
3788 t1576 = t506 * t170;
3789 t1579 = t168 * t511;
3790 t1584 = 0.0;
3791 t1585 = t52 * t1584;
3792 t1586 = t37 * t37;
3793 t1587 = 0.1e1 / t1586;
3794 t1588 = t1539 * t1587;
3795 t1601 = t177 * t177;
3796 t1602 = 0.1e1 / t1601;
3797 t1603 = t54 * t1602;
3798 t1606 = t524 * t147;
3799 t1611 = -0.82222222222222222222e-1 * t1529 * t174 + 0.27407407407407407407e0 * t1533 * t824 - 0.91358024691358024692e0 * t1588 * t523 - 0.91358024691358024691e0 * t1603 * t1588 + 0.27407407407407407407e0 * t1606 * t1534 - 0.82222222222222222222e-1 * t179 * t1530;
3800 t1613 = t529 * t184;
3801 t1616 = t182 * t534;
3802 t1621 = 0.0;
3803 t1622 = t61 * t1621;
3804 t1629 = t1574 * t55 - 0.5e1 / 0.3e1 * t1576 * t149 + 0.25e2 / 0.27e2 * t1579 * t483 - 0.5e1 / 0.3e1 * t508 * t474 - 0.250e3 / 0.243e3 * t1585 * t1588 + 0.25e2 / 0.27e2 * t817 * t1534 - 0.5e1 / 0.9e1 * t171 * t1530 + t1611 * t63 + 0.5e1 / 0.3e1 * t1613 * t149 + 0.25e2 / 0.27e2 * t1616 * t483 + 0.5e1 / 0.3e1 * t531 * t474 + 0.250e3 / 0.243e3 * t1622 * t1588 + 0.25e2 / 0.27e2 * t841 * t1534 + 0.5e1 / 0.9e1 * t185 * t1530;
3805 t1630 = t1629 * t68;
3806 t1632 = t8 * t18 * t1630;
3807 t1633 = 0.3e1 / 0.8e1 * t1632;
3808 t1634 = -t1452 / 0.6e1 + t1457 - t1463 + t1466 + t1473 + 0.37236796666666666667e-2 * t1475 - t1480 - t1483 - t1486 - t1496 - 0.20310980000000000001e-2 * t1498 - 0.55004787808053333334e-5 * t1501 + 0.67703266666666666667e-3 * t1504 - t1509 - t1513 - t1517 + t1520 - 0.3e1 / 0.8e1 * t1522 - t1633;
3809 t1647 = t583 / 0.4e1;
3810 t1650 = t457 / 0.4e1;
3811 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3812 v3rho3[0] = t10 * (t1634 + t1450) + 0.11171039000000000000e-1 * t561 - 0.81243920000000000001e-2 * t443 - 0.60932940000000000000e-2 * t546 - 0.16501436342416000000e-4 * t557 - t570 / 0.2e1 - t574 - t428 / 0.2e1 - t432 - 0.20310980000000000001e-2 * t463 - 0.3e1 / 0.4e1 * t460 - 0.9e1 / 0.8e1 * t543 - 0.3e1 / 0.2e1 * t579 + t1647 - 0.3e1 * t436 - 0.3e1 / 0.2e1 * t451 + t1650;
3813
3814 t1653 = t232 * t576;
3815 t1654 = t634 * t1653;
3816 t1655 = t633 * t1654;
3817 t1657 = t439 * t217;
3818 t1658 = t1657 * t441;
3819 t1659 = t1378 * t1658;
3820 t1661 = t135 * t272;
3821 t1663 = t203 * t1661 * t206;
3822 t1664 = t1663 / 0.3e1;
3823 t1666 = t203 * t1437 * t223;
3824 t1669 = t123 * t1454 * t218;
3825 t1672 = 0.1e1 / t134 / t445;
3826 t1673 = t1672 * t65;
3827 t1675 = t123 * t1673 * t605;
3828 t1677 = t603 * t188;
3829 t1679 = t123 * t1677 * t605;
3830 t1680 = t1672 * t112;
3831 t1682 = t203 * t1680 * t620;
3832 t1685 = t203 * t625 * t577;
3833 t1688 = t123 * t1404 * t218;
3834 t1689 = t1688 / 0.3e1;
3835 t1691 = t123 * t1410 * t218;
3836 t1693 = -0.90271022222222222224e-3 * t1386 - 0.13540653333333333333e-2 * t1655 - 0.90271022222222222225e-3 * t1659 - t1664 + t1666 / 0.9e1 + t1669 / 0.9e1 + 0.7e1 / 0.6e1 * t1675 - t1679 - 0.7e1 / 0.6e1 * t1682 - t1685 / 0.2e1 - t1689 - t1691 / 0.2e1;
3837 t1695 = t566 * t625 * t568;
3838 t1704 = t218 * t425;
3839 t1706 = t1444 * t124 * t1704;
3840 t1709 = t424 * t430 * t587;
3841 t1710 = t1709 / 0.9e1;
3842 t1711 = t605 * t129;
3843 t1713 = t424 * t604 * t1711;
3844 t1716 = t278 * t1437 * t282;
3845 t1718 = -t1695 / 0.6e1 - t1393 / 0.6e1 - t1406 / 0.3e1 - t1408 / 0.6e1 - t1435 / 0.18e2 + 0.2e1 / 0.9e1 * t1439 - t1452 / 0.18e2 + 0.2e1 / 0.9e1 * t1456 + t1706 / 0.9e1 - t1710 - t1713 / 0.3e1 + 0.22567755555555555555e-3 * t1716;
3846 t1720 = t223 * t567;
3847 t1722 = t1428 * t204 * t1720;
3848 t1725 = t566 * t572 * t612;
3849 t1726 = t1725 / 0.9e1;
3850 t1727 = t223 * t576;
3851 t1729 = t566 * t204 * t1727;
3852 t1731 = t620 * t205;
3853 t1733 = t566 * t619 * t1731;
3854 t1736 = t424 * t434 * t587;
3855 t1738 = t218 * t448;
3856 t1740 = t424 * t124 * t1738;
3857 t1746 = t74 * t603;
3858 t1748 = t8 * t1746 * t116;
3859 t1751 = t8 * t581 * t273;
3860 t1753 = t1722 / 0.9e1 - t1726 - t1729 / 0.6e1 + t1733 / 0.3e1 - t1736 / 0.3e1 - t1740 / 0.6e1 + 0.12412265555555555556e-2 * t1475 - 0.67703266666666666668e-3 * t1498 - 0.18334929269351111112e-5 * t1501 + 0.45135511111111111112e-3 * t1504 + t1748 / 0.2e1 + t1751 / 0.12e2;
3861 t1754 = t15 * t603;
3862 t1756 = t8 * t1754 * t69;
3863 t1758 = t217 * t550;
3864 t1759 = t1758 * t554;
3865 t1760 = t1371 * t1759;
3866 t1761 = t438 * t1760;
3867 t1763 = t597 * t469;
3868 t1764 = t439 * t1763;
3869 t1765 = t438 * t1764;
3870 t1768 = t5 * t122 * t603;
3871 t1769 = t9 * sigma[0];
3872 t1770 = t1769 * t144;
3873 t1771 = t439 * t1770;
3874 t1772 = t1768 * t1771;
3875 t1775 = t5 * t565 * t17;
3876 t1776 = t232 * t567;
3877 t1777 = t634 * t1776;
3878 t1778 = t1775 * t1777;
3879 t1781 = t5 * t202 * t135;
3880 t1782 = t1781 * t636;
3881 t1784 = t1385 * t599;
3882 t1786 = t1362 * t598;
3883 t1787 = t438 * t1786;
3884 t1791 = -t1756 / 0.2e1 - 0.73339717077404444449e-5 * t1761 + 0.49649062222222222225e-2 * t1765 - 0.27081306666666666668e-2 * t1772 - 0.45135511111111111110e-3 * t1778 - 0.90271022222222222221e-3 * t1782 - 0.90271022222222222225e-3 * t1784 - 0.27081306666666666668e-2 * t1787 - t1513 - t1517 + t1519 / 0.6e1 - t1522 / 0.8e1;
3885 t1796 = -t460 / 0.2e1 - t544 + t1647 + t10 * (t1791 + t1753 + t1718 + t1693) - t675 + t1650 - t662 + t622 - t627 - t571 - 0.2e1 / 0.3e1 * t574 - t580 - t651 - t595;
3886 t1799 = t614 / 0.3e1;
3887 t1802 = t589 / 0.3e1;
3888 t1804 = -t607 - t444 - 0.27081306666666666668e-2 * t600 - 0.27081306666666666666e-2 * t637 - t1799 - 0.67703266666666666666e-3 * t640 - 0.13540653333333333333e-2 * t463 - t547 - t558 + t562 - t1802 - t429 - 0.2e1 / 0.3e1 * t432 - t436 - t452;
3889 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3890 v3rho3[1] = t1804 + t1796;
3891
3892 t1807 = -t461 + t1647 - t756 - t630 / 0.2e1 + t1650 - 0.2e1 / 0.3e1 * t617 + t622 - t627 - t650 - t656 - t661 - t664 - t674 - t575;
3893 t1811 = t634 * t222;
3894 t1812 = t1811 * t635;
3895 t1813 = t1775 * t1812;
3896 t1816 = t203 * t1661 * t223;
3897 t1819 = t203 * t572 * t671;
3898 t1822 = t123 * t430 * t653;
3899 t1825 = t566 * t572 * t658;
3900 t1828 = t424 * t430 * t647;
3901 t1834 = -0.90271022222222222223e-3 * t1813 - t1816 / 0.3e1 - t1819 / 0.6e1 - t1822 / 0.6e1 - t1825 / 0.18e2 - t1828 / 0.18e2 - t1664 + 0.2e1 / 0.9e1 * t1666 + 0.2e1 / 0.9e1 * t1669 - t1675 / 0.3e1 + t1682 / 0.3e1 - t1689;
3902 t1837 = t17 * t752;
3903 t1839 = t203 * t1837 * t206;
3904 t1841 = t603 * t272;
3905 t1843 = t203 * t1841 * t620;
3906 t1845 = t446 + 0.3e1 * t1397;
3907 t1846 = t115 * t1845;
3908 t1848 = t203 * t204 * t1846;
3909 t1851 = t424 * t434 * t647;
3910 t1854 = t123 * t434 * t653;
3911 t1856 = -t1845;
3912 t1857 = t68 * t1856;
3913 t1859 = t123 * t124 * t1857;
3914 t1862 = t566 * t625 * t612;
3915 t1864 = t671 * t205;
3916 t1866 = t566 * t204 * t1864;
3917 t1868 = t653 * t129;
3918 t1870 = t424 * t124 * t1868;
3919 t1872 = t658 * t205;
3920 t1874 = t1428 * t204 * t1872;
3921 t1876 = t1439 / 0.9e1 + t1456 / 0.9e1 - t1839 / 0.2e1 + t1843 - t1848 / 0.2e1 - t1851 / 0.6e1 - t1854 / 0.2e1 - t1859 / 0.2e1 - t1862 / 0.3e1 - t1866 / 0.6e1 - t1870 / 0.6e1 + t1874 / 0.9e1;
3922 t1878 = t223 * t9;
3923 t1880 = t566 * t619 * t1878;
3924 t1882 = t647 * t129;
3925 t1884 = t1444 * t124 * t1882;
3926 t1887 = t278 * t1661 * t282;
3927 t1890 = t278 * t572 * t767;
3928 t1893 = t278 * t572 * t771;
3929 t1895 = t218 * t9;
3930 t1897 = t424 * t604 * t1895;
3931 t1902 = t8 * t210 * t753;
3932 t1905 = t1880 / 0.3e1 + t1884 / 0.9e1 - 0.67703266666666666667e-3 * t1887 - 0.18334929269351111111e-5 * t1890 + 0.12412265555555555556e-2 * t1893 - t1897 / 0.3e1 - t1710 + 0.45135511111111111111e-3 * t1716 - t1726 + 0.22567755555555555556e-3 * t1504 - t1902 / 0.8e1 + t1751 / 0.6e1;
3933 t1906 = t652 * sigma[0];
3934 t1907 = t1906 * t144;
3935 t1908 = t439 * t1907;
3936 t1909 = t438 * t1908;
3937 t1911 = t1781 * t667;
3938 t1913 = t272 * t280;
3939 t1914 = t1913 * t635;
3940 t1915 = t633 * t1914;
3941 t1917 = t112 * t761;
3942 t1918 = t762 * t766;
3943 t1919 = t1918 * t205;
3944 t1920 = t1917 * t1919;
3945 t1921 = t633 * t1920;
3946 t1923 = t682 * t205;
3947 t1924 = t634 * t1923;
3948 t1925 = t633 * t1924;
3949 t1928 = t5 * t202 * t603;
3950 t1929 = t9 * sigma[2];
3951 t1930 = t1929 * t231;
3952 t1931 = t634 * t1930;
3953 t1932 = t1928 * t1931;
3954 t1934 = t646 * sigma[0];
3955 t1935 = t1934 * t144;
3956 t1936 = t439 * t1935;
3957 t1937 = t1378 * t1936;
3958 t1942 = -0.13540653333333333334e-2 * t1909 - 0.90271022222222222223e-3 * t1911 - 0.27081306666666666667e-2 * t1915 - 0.73339717077404444445e-5 * t1921 + 0.49649062222222222223e-2 * t1925 + 0.27081306666666666667e-2 * t1932 - 0.45135511111111111112e-3 * t1937 - 0.90271022222222222222e-3 * t1782 - 0.90271022222222222223e-3 * t1784 - t1513 - t1517 + t1519 / 0.12e2;
3959 t1948 = -0.2e1 / 0.3e1 * t592 - t595 - t607 - 0.27081306666666666667e-2 * t600 - 0.27081306666666666667e-2 * t637 - t669 + t10 * (t1942 + t1905 + t1876 + t1834) - t770 + t774 - t1799 - 0.13540653333333333333e-2 * t640 - t759 - 0.67703266666666666668e-3 * t463 - t1802 - t433;
3960 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3961 v3rho3[2] = t1948 + t1807;
3962
3963 t1953 = t1666 / 0.3e1;
3964 t1954 = t1669 / 0.3e1;
3965 t1955 = t223 * t670;
3966 t1957 = t566 * t204 * t1955;
3967 t1958 = t1957 / 0.2e1;
3968 t1960 = 0.1e1 / t78 / t1164;
3969 t1961 = t281 * t1960;
3970 t1963 = t278 * t204 * t1961;
3971 t1964 = 0.17377171777777777778e-1 * t1963;
3972 t1966 = t278 * t625 * t771;
3973 t1967 = 0.11171039000000000000e-1 * t1966;
3974 t1968 = t679 * t679;
3975 t1970 = 0.1e1 / t77 / t1968;
3976 t1971 = t763 * t1970;
3977 t1973 = t278 * t204 * t1971;
3978 t1974 = 0.60505266588858666668e-4 * t1973;
3979 t1976 = t278 * t625 * t767;
3980 t1977 = 0.16501436342416000000e-4 * t1976;
3981 t1978 = t279 * t279;
3982 t1979 = 0.1e1 / t1978;
3983 t1980 = t762 * sigma[2];
3984 t1981 = t1979 * t1980;
3985 t1982 = t1968 * t229;
3986 t1983 = 0.1e1 / t1982;
3987 t1984 = t1981 * t1983;
3988 t1986 = t278 * t204 * t1984;
3989 t1987 = 0.44688045802944603692e-7 * t1986;
3990 t1989 = t278 * t1837 * t282;
3991 t1990 = 0.30466470000000000000e-2 * t1989;
3992 t1991 = t218 * t652;
3993 t1993 = t424 * t124 * t1991;
3994 t1994 = t1993 / 0.2e1;
3995 t1996 = 0.3e1 * t446 + 0.3e1 * t1397;
3996 t1997 = t115 * t1996;
3997 t1999 = t203 * t204 * t1997;
3998 t2000 = t1999 / 0.2e1;
3999 t2001 = -t1996;
4000 t2002 = t68 * t2001;
4001 t2004 = t123 * t124 * t2002;
4002 t2005 = t2004 / 0.2e1;
4003 t2007 = t566 * t625 * t658;
4004 t2008 = t2007 / 0.2e1;
4005 t2009 = -t1816 - t1819 / 0.2e1 - t1822 / 0.2e1 - t1825 / 0.6e1 - t1828 / 0.6e1 + t1953 + t1954 - t1958 - t1964 + t1967 + t1974 - t1977 - t1987 - t1990 - t1994 - t2000 - t2005 - t2008;
4006 t2011 = t203 * t1837 * t223;
4007 t2012 = 0.3e1 / 0.2e1 * t2011;
4008 t2013 = t657 * t222;
4009 t2014 = t115 * t2013;
4010 t2016 = t1428 * t204 * t2014;
4011 t2017 = t2016 / 0.9e1;
4012 t2018 = t646 * t217;
4013 t2019 = t68 * t2018;
4014 t2021 = t1444 * t124 * t2019;
4015 t2022 = t2021 / 0.9e1;
4016 t2024 = t203 * t625 * t671;
4017 t2025 = 0.3e1 / 0.2e1 * t2024;
4018 t2032 = sigma[2] * t1960;
4019 t2034 = -0.440e3 / 0.27e2 * tau[1] * t681 + 0.154e3 / 0.27e2 * t2032;
4020 t2035 = t2034 * t35;
4021 t2036 = t2035 * t40;
4022 t2039 = t684 * t152;
4023 t2040 = t2039 * t155;
4024 t2045 = t689 * t234;
4025 t2049 = t2045 * t91;
4026 t2053 = t2034 * t94 * t48;
4027 t2056 = t87 * t684;
4028 t2059 = t87 * t2045;
4029 t2063 = t245 * t245;
4030 t2064 = 0.1e1 / t2063;
4031 t2065 = t707 * t2064;
4032 t2070 = t248 * t684;
4033 t2074 = t247 * t48 * t2034;
4034 t2077 = 0.5e1 / 0.9e1 * t2036 * t96 - 0.11917777777777777778e1 * t2040 * t242 + 0.15113870370370370370e1 * t2040 * t249 - 0.33284649691681165977e-1 * t2045 * t246 * t48 + 0.42210879422611554372e-1 * t2049 * t710 - 0.19862962962962962963e0 * t240 * t2053 - 0.33284649691681165977e-1 * t2056 * t921 - 0.15091796422897717740e-1 * t2059 * t709 * t1556 + 0.19139092794380554160e-1 * t2065 * t48 * t2045 * t1563 + 0.42210879422611554372e-1 * t924 * t2070 + 0.25189783950617283951e0 * t240 * t2074;
4035 t2079 = t718 * t254;
4036 t2082 = t252 * t723;
4037 t2087 = 0.0;
4038 t2088 = t99 * t2087;
4039 t2089 = t2045 * t1587;
4040 t2102 = t261 * t261;
4041 t2103 = 0.1e1 / t2102;
4042 t2104 = t101 * t2103;
4043 t2107 = t736 * t234;
4044 t2112 = -0.82222222222222222222e-1 * t2035 * t258 + 0.27407407407407407407e0 * t2039 * t946 - 0.91358024691358024692e0 * t2089 * t735 - 0.91358024691358024691e0 * t2104 * t2089 + 0.27407407407407407407e0 * t2107 * t2040 - 0.82222222222222222222e-1 * t263 * t2036;
4045 t2114 = t741 * t268;
4046 t2117 = t266 * t746;
4047 t2122 = 0.0;
4048 t2123 = t108 * t2122;
4049 t2130 = t2077 * t102 - 0.5e1 / 0.3e1 * t2079 * t236 + 0.25e2 / 0.27e2 * t2082 * t695 - 0.5e1 / 0.3e1 * t720 * t686 - 0.250e3 / 0.243e3 * t2088 * t2089 + 0.25e2 / 0.27e2 * t939 * t2040 - 0.5e1 / 0.9e1 * t255 * t2036 + t2112 * t110 + 0.5e1 / 0.3e1 * t2114 * t236 + 0.25e2 / 0.27e2 * t2117 * t695 + 0.5e1 / 0.3e1 * t743 * t686 + 0.250e3 / 0.243e3 * t2123 * t2089 + 0.25e2 / 0.27e2 * t962 * t2040 + 0.5e1 / 0.9e1 * t269 * t2036;
4050 t2131 = t2130 * t115;
4051 t2133 = t8 * t76 * t2131;
4052 t2134 = 0.3e1 / 0.8e1 * t2133;
4053 t2136 = t1751 / 0.4e1;
4054 t2137 = t1913 * t666;
4055 t2138 = t633 * t2137;
4056 t2139 = 0.81243920000000000001e-2 * t2138;
4057 t2140 = t670 * sigma[2];
4058 t2141 = t2140 * t231;
4059 t2142 = t634 * t2141;
4060 t2143 = t633 * t2142;
4061 t2144 = 0.40621960000000000001e-2 * t2143;
4062 t2146 = t222 * t762 * t766;
4063 t2147 = t1917 * t2146;
4064 t2148 = t633 * t2147;
4065 t2149 = 0.22001915123221333334e-4 * t2148;
4066 t2150 = t657 * sigma[2];
4067 t2151 = t2150 * t231;
4068 t2152 = t634 * t2151;
4069 t2153 = t1775 * t2152;
4070 t2154 = 0.13540653333333333334e-2 * t2153;
4071 t2155 = t665 * t681;
4072 t2156 = t634 * t2155;
4073 t2157 = t633 * t2156;
4074 t2158 = 0.14894718666666666667e-1 * t2157;
4075 t2160 = -t2012 + t2017 + t2022 - t2025 - 0.20310980000000000001e-2 * t1887 - 0.55004787808053333334e-5 * t1890 + 0.37236796666666666667e-2 * t1893 + 0.67703266666666666667e-3 * t1716 - t2134 - 0.3e1 / 0.8e1 * t1902 + t2136 - t2139 - t2144 - t2149 - t2154 + t2158 - 0.27081306666666666667e-2 * t1911 - t1513 - t1517;
4076 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4077 v3rho3[3] = t10 * (t2160 + t2009) + 0.11171039000000000000e-1 * t773 - 0.20310980000000000001e-2 * t640 - 0.81243920000000000001e-2 * t668 - 0.60932940000000000000e-2 * t758 - 0.16501436342416000000e-4 * t769 - t649 / 0.2e1 - t660 / 0.2e1 - t617 - t592 - 0.9e1 / 0.8e1 * t755 - 0.3e1 / 0.4e1 * t630 - 0.3e1 / 0.2e1 * t655 - 0.3e1 * t664 - 0.3e1 / 0.2e1 * t673 + t1647 + t1650;
4078
4079 t2175 = t782 / 0.4e1;
4080 t2179 = 0.25388725000000000000e-3 * t859;
4081 t2183 = t1467 * t29;
4082 t2184 = 0.1e1 / t2183;
4083 t2185 = t1488 * t2184;
4084 t2186 = t2185 * t550;
4085 t2188 = t194 * t124 * t2186;
4086 t2189 = 0.16758017176104226384e-7 * t2188;
4087 t2191 = t194 * t430 * t868;
4088 t2192 = 0.13751196952013333334e-5 * t2191;
4089 t2194 = t194 * t434 * t868;
4090 t2195 = 0.41253590856040000000e-5 * t2194;
4091 t2196 = t17 * t846;
4092 t2198 = t194 * t2196 * t198;
4093 t2199 = 0.20310980000000000000e-2 * t2198;
4094 t2201 = t194 * t777 * t555;
4095 t2202 = 0.55004787808053333334e-5 * t2201;
4096 t2204 = t123 * t434 * t854;
4097 t2205 = 0.10155490000000000000e-2 * t2204;
4098 t2206 = t317 * t448;
4099 t2208 = t123 * t124 * t2206;
4100 t2209 = 0.50777450000000000000e-3 * t2208;
4101 t2210 = t135 * t312;
4102 t2212 = t194 * t2210 * t198;
4103 t2214 = t549 * t554;
4104 t2215 = t2214 * sigma[0];
4105 t2217 = t194 * t124 * t2215;
4106 t2218 = 0.18564115885218000000e-4 * t2217;
4107 t2220 = t194 * t777 * t559;
4108 t2221 = 0.37236796666666666667e-2 * t2220;
4109 t2222 = t317 * t425;
4110 t2224 = t424 * t124 * t2222;
4111 t2225 = 0.16925816666666666667e-3 * t2224;
4112 t2227 = t123 * t430 * t854;
4113 t2229 = t872 * t129;
4114 t2231 = t123 * t124 * t2229;
4115 t2232 = 0.27081306666666666666e-2 * t2231;
4116 t2234 = t194 * t434 * t872;
4117 t2235 = 0.20310980000000000000e-2 * t2234;
4118 t2236 = t2189 + t2192 + t2195 - t2199 - t2202 + t2205 + t2209 - 0.67703266666666666667e-3 * t2212 - t2218 + t2221 + t2225 + 0.33851633333333333334e-3 * t2227 - t2232 - t2235;
4119 t2238 = t424 * t777 * t426;
4120 t2239 = t2238 / 0.6e1;
4121 t2241 = t123 * t2210 * t130;
4122 t2242 = t2241 / 0.3e1;
4123 t2244 = t194 * t1404 * t317;
4124 t2245 = 0.25388725000000000000e-3 * t2244;
4125 t2247 = t194 * t1410 * t317;
4126 t2248 = 0.38083087500000000000e-3 * t2247;
4127 t2250 = t123 * t2196 * t130;
4128 t2252 = t123 * t777 * t449;
4129 t2253 = t2252 / 0.2e1;
4130 t2254 = t196 * t469;
4131 t2256 = t194 * t124 * t2254;
4132 t2257 = 0.37236796666666666667e-2 * t2256;
4133 t2259 = t194 * t1454 * t317;
4134 t2260 = 0.84629083333333333333e-4 * t2259;
4135 t2262 = t194 * t430 * t872;
4136 t2265 = t8 * t455 * t313;
4137 t2266 = t2265 / 0.12e2;
4138 t2267 = t469 * t35;
4139 t2268 = t2267 * t174;
4140 t2270 = t144 * t152;
4141 t2271 = t2270 * t824;
4142 t2273 = t31 * t1587;
4143 t2274 = t523 * t477;
4144 t2275 = t2273 * t2274;
4145 t2277 = t519 * t472;
4146 t2278 = t788 * t2277;
4147 t2280 = t2273 * t477;
4148 t2281 = t1603 * t2280;
4149 t2283 = t524 * t144;
4150 t2284 = t2283 * t829;
4151 t2286 = t827 * t1534;
4152 t2288 = t2267 * t40;
4153 t2289 = t179 * t2288;
4154 t2291 = 0.10049382716049382716e0 * t2268 + 0.60905349794238683129e-1 * t2271 + 0.11419753086419753087e0 * t2275 - 0.11419753086419753087e-1 * t2278 + 0.11419753086419753087e0 * t2281 + 0.60905349794238683129e-1 * t2284 - 0.11419753086419753087e-1 * t2286 + 0.10049382716049382716e0 * t2289;
4155 t2293 = t2270 * t155;
4156 t2294 = t2293 * t158;
4157 t2296 = t789 * t488;
4158 t2298 = t296 * t472;
4159 t2299 = t802 * t2298;
4160 t2301 = t789 * t503;
4161 t2305 = t156 * t469 * t46 * t48;
4162 t2308 = t48 * t477;
4163 t2309 = t2308 * t1563;
4164 t2310 = t798 * t497 * t2309;
4165 t2313 = t802 * t806 * t147;
4166 t2315 = t2288 * t49;
4167 t2317 = t2293 * t165;
4168 t2319 = t48 * t469;
4169 t2321 = t156 * t163 * t2319;
4170 t2324 = t495 * t1560 * t48;
4171 t2325 = t31 * t477;
4172 t2327 = t2324 * t2325 * t1563;
4173 t2330 = t31 * t43 * t499;
4174 t2332 = t34 * t144;
4175 t2333 = t2332 * t799;
4176 t2335 = t492 * t472;
4177 t2336 = t798 * t2335;
4178 t2338 = t2325 * t492;
4179 t2340 = -0.26483950617283950616e0 * t2294 + 0.49657407407407407406e-1 * t2296 - 0.17587866426088147654e-2 * t2299 - 0.62974459876543209876e-1 * t2301 + 0.24276954732510288065e0 * t2305 + 0.18864745528622147174e-2 * t2310 + 0.93801954272470120822e-2 * t2313 - 0.55e2 / 0.81e2 * t2315 + 0.33586378600823045268e0 * t2317 - 0.30787513717421124828e0 * t2321 - 0.23923865992975692699e-2 * t2327 - 0.52763599278264442963e-2 * t2330 - 0.73965888203735924393e-2 * t2333 + 0.13868604038200485824e-2 * t2336 + 0.41605812114601457471e-2 * t2338;
4180 t2342 = t535 * t472;
4181 t2343 = t2342 * t789;
4182 t2345 = t185 * t2288;
4183 t2347 = t531 * t785;
4184 t2349 = t1616 * t147;
4185 t2350 = t2349 * t789;
4186 t2352 = t508 * t785;
4187 t2354 = t1579 * t147;
4188 t2355 = t2354 * t789;
4189 t2357 = t512 * t472;
4190 t2358 = t2357 * t789;
4191 t2360 = t171 * t2288;
4192 t2362 = t841 * t2293;
4193 t2364 = t2291 * t63 + t2340 * t55 - 0.25e2 / 0.648e3 * t2343 - 0.55e2 / 0.81e2 * t2345 + 0.10e2 / 0.27e2 * t2347 - 0.25e2 / 0.324e3 * t2350 - 0.10e2 / 0.27e2 * t2352 - 0.25e2 / 0.324e3 * t2355 - 0.25e2 / 0.648e3 * t2358 + 0.55e2 / 0.81e2 * t2360 + 0.50e2 / 0.243e3 * t2362;
4194 t2365 = t817 * t2293;
4195 t2367 = t1622 * t2280;
4196 t2371 = t300 * t511;
4197 t2374 = t1576 * t289;
4198 t2376 = t1585 * t2280;
4199 t2378 = t834 * t184;
4200 t2383 = t308 * t534;
4201 t2386 = t1613 * t289;
4202 t2388 = t810 * t170;
4203 t2391 = 0.50e2 / 0.243e3 * t2365 - 0.125e3 / 0.972e3 * t2367 - 0.5e1 / 0.9e1 * t812 * t474 + 0.25e2 / 0.81e2 * t2371 * t483 + 0.5e1 / 0.72e2 * t2374 + 0.125e3 / 0.972e3 * t2376 + 0.10e2 / 0.9e1 * t2378 * t149 + 0.5e1 / 0.9e1 * t836 * t474 + 0.25e2 / 0.81e2 * t2383 * t483 - 0.5e1 / 0.72e2 * t2386 - 0.10e2 / 0.9e1 * t2388 * t149;
4204 t2392 = t2391 + t2364;
4205 t2393 = t2392 * t68;
4206 t2395 = t8 * t18 * t2393;
4207 t2396 = 0.3e1 / 0.8e1 * t2395;
4208 t2398 = t8 * t136 * t847;
4209 t2399 = t2398 / 0.4e1;
4210 t2401 = t866 * t129 * sigma[0];
4211 t2402 = t1371 * t2401;
4212 t2403 = t438 * t2402;
4213 t2404 = 0.55004787808053333334e-5 * t2403;
4214 t2405 = t312 * t196;
4215 t2406 = t2405 * t441;
4216 t2407 = t438 * t2406;
4217 t2408 = 0.27081306666666666667e-2 * t2407;
4218 t2409 = -t2239 - t2242 + t2245 + t2248 - t2250 - t2253 + t2257 - t2260 - 0.67703266666666666666e-3 * t2262 + t2266 - t2396 - t2399 + t2404 - t2408;
4219 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4220 v3rho2sigma[0] = -t779 - t2175 - 0.3e1 / 0.4e1 * t849 - 0.20310980000000000000e-2 * t852 + 0.10155490000000000000e-2 * t856 + t2179 + 0.76166175000000000000e-3 * t862 + 0.41253590856040000000e-5 * t870 - 0.20310980000000000000e-2 * t874 + t10 * (t2409 + t2236);
4221
4222 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4223 v3rho2sigma[1] = 0.0e0;
4224
4225 t2412 = t883 / 0.4e1;
4226 t2414 = 0.25388725000000000000e-3 * t890;
4227 t2416 = t566 * t878 * t568;
4228 t2417 = t2416 / 0.6e1;
4229 t2418 = t135 * t346;
4230 t2420 = t203 * t2418 * t206;
4231 t2421 = t2420 / 0.3e1;
4232 t2423 = t203 * t878 * t577;
4233 t2424 = t2423 / 0.2e1;
4234 t2426 = t8 * t581 * t347;
4235 t2427 = t2426 / 0.12e2;
4236 t2428 = t351 * t567;
4237 t2430 = t566 * t204 * t2428;
4238 t2431 = 0.16925816666666666667e-3 * t2430;
4239 t2433 = t203 * t572 * t885;
4240 t2435 = t351 * t576;
4241 t2437 = t203 * t204 * t2435;
4242 t2438 = 0.50777450000000000000e-3 * t2437;
4243 t2440 = t278 * t1437 * t351;
4244 t2441 = 0.84629083333333333333e-4 * t2440;
4245 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4246 v3rho2sigma[2] = -t880 - t2412 + 0.10155490000000000000e-2 * t887 + t2414 + t10 * (-t2417 - t2421 - t2424 + t2427 + t2431 + 0.33851633333333333334e-3 * t2433 + t2438 - t2441);
4247
4248 t2445 = t424 * t777 * t587;
4249 t2448 = t123 * t2210 * t218;
4250 t2451 = t123 * t2196 * t218;
4251 t2453 = t2405 * t598;
4252 t2454 = t438 * t2453;
4253 t2456 = t603 * t312;
4254 t2458 = t123 * t2456 * t605;
4255 t2463 = t31 * t217;
4256 t2464 = t2463 * t129;
4257 t2465 = t439 * t2464;
4258 t2466 = t1378 * t2465;
4259 t2469 = t123 * t430 * t897;
4260 t2472 = t123 * t434 * t897;
4261 t2475 = t866 * t217 * sigma[0];
4262 t2476 = t1371 * t2475;
4263 t2477 = t438 * t2476;
4264 t2479 = t872 * t217;
4265 t2481 = t123 * t124 * t2479;
4266 t2483 = t317 * t9;
4267 t2485 = t123 * t604 * t2483;
4268 t2491 = -t2445 / 0.6e1 - t2448 / 0.6e1 - t2451 / 0.2e1 - 0.13540653333333333334e-2 * t2454 - t2458 / 0.2e1 - t2241 / 0.6e1 + t2266 - t2398 / 0.8e1 - 0.33851633333333333334e-3 * t2212 + 0.16925816666666666667e-3 * t2466 + 0.16925816666666666667e-3 * t2469 + 0.50777450000000000000e-3 * t2472 + 0.27502393904026666667e-5 * t2477 - 0.13540653333333333333e-2 * t2481 + 0.50777450000000000000e-3 * t2485 + 0.16925816666666666667e-3 * t2227 - t2260 + 0.12694362500000000000e-3 * t2244 + 0.68755984760066666668e-6 * t2191 - 0.33851633333333333333e-3 * t2262;
4269 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4270 v3rho2sigma[3] = t10 * t2491 - t2175 + t2179 - t780 - t850 - t853 + t857 + t863 + t871 - t875 - t896 + t900;
4271
4272 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4273 v3rho2sigma[4] = 0.0e0;
4274
4275 t2494 = t566 * t878 * t612;
4276 t2497 = t203 * t2418 * t223;
4277 t2499 = t603 * t346;
4278 t2501 = t203 * t2499 * t620;
4279 t2504 = t17 * t967;
4280 t2506 = t203 * t2504 * t206;
4281 t2509 = t8 * t210 * t968;
4282 t2511 = t346 * t280;
4283 t2512 = t2511 * t635;
4284 t2513 = t633 * t2512;
4285 t2516 = t278 * t2418 * t282;
4286 t2518 = t84 * t222;
4287 t2519 = t2518 * t205;
4288 t2520 = t634 * t2519;
4289 t2521 = t1775 * t2520;
4290 t2524 = t203 * t572 * t975;
4291 t2526 = t351 * t9;
4292 t2528 = t203 * t619 * t2526;
4293 t2532 = t203 * t625 * t885;
4294 t2535 = t278 * t1661 * t351;
4295 t2537 = t984 * sigma[2];
4296 t2538 = t2537 * t205;
4297 t2539 = t1917 * t2538;
4298 t2540 = t633 * t2539;
4299 t2543 = t278 * t572 * t986;
4300 t2545 = t990 * t205;
4301 t2547 = t203 * t204 * t2545;
4302 t2550 = t278 * t572 * t990;
4303 t2552 = -t2494 / 0.6e1 - t2497 / 0.6e1 + t2501 / 0.2e1 - t2420 / 0.6e1 + t2427 - t2506 / 0.2e1 - t2509 / 0.8e1 - 0.13540653333333333333e-2 * t2513 - 0.33851633333333333333e-3 * t2516 + 0.16925816666666666667e-3 * t2521 + 0.16925816666666666667e-3 * t2524 - 0.50777450000000000000e-3 * t2528 + 0.16925816666666666667e-3 * t2433 - t2441 + 0.50777450000000000000e-3 * t2532 + 0.12694362500000000000e-3 * t2535 + 0.27502393904026666667e-5 * t2540 + 0.68755984760066666667e-6 * t2543 - 0.13540653333333333333e-2 * t2547 - 0.33851633333333333333e-3 * t2550;
4304 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4305 v3rho2sigma[5] = t10 * t2552 - t2412 + t2414 - t881 + t888 - t905 - t971 - t974 + t978 + t981 + t989 - t993;
4306
4307 t2556 = t424 * t777 * t647;
4308 t2557 = t2556 / 0.6e1;
4309 t2558 = t2448 / 0.3e1;
4310 t2560 = t123 * t777 * t653;
4311 t2561 = t2560 / 0.2e1;
4312 t2562 = t317 * t646;
4313 t2564 = t424 * t124 * t2562;
4314 t2565 = 0.16925816666666666667e-3 * t2564;
4315 t2566 = 0.33851633333333333334e-3 * t2469;
4316 t2567 = t317 * t652;
4317 t2569 = t123 * t124 * t2567;
4318 t2570 = 0.50777450000000000000e-3 * t2569;
4319 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4320 v3rho2sigma[6] = -t895 - t2175 + 0.10155490000000000000e-2 * t899 + t2179 + t10 * (-t2557 - t2558 - t2561 + t2266 + t2565 + t2566 + t2570 - t2260);
4321
4322 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4323 v3rho2sigma[7] = 0.0e0;
4324
4325 t2579 = t681 * t35;
4326 t2580 = t2579 * t258;
4327 t2582 = t231 * t152;
4328 t2583 = t2582 * t946;
4329 t2585 = t84 * t1587;
4330 t2586 = t735 * t689;
4331 t2587 = t2585 * t2586;
4332 t2589 = t731 * t684;
4333 t2590 = t910 * t2589;
4334 t2592 = t2585 * t689;
4335 t2593 = t2104 * t2592;
4336 t2595 = t736 * t231;
4337 t2596 = t2595 * t950;
4338 t2598 = t949 * t2040;
4339 t2600 = t2579 * t40;
4340 t2601 = t263 * t2600;
4341 t2603 = 0.10049382716049382716e0 * t2580 + 0.60905349794238683129e-1 * t2583 + 0.11419753086419753087e0 * t2587 - 0.11419753086419753087e-1 * t2590 + 0.11419753086419753087e0 * t2593 + 0.60905349794238683129e-1 * t2596 - 0.11419753086419753087e-1 * t2598 + 0.10049382716049382716e0 * t2601;
4342 t2605 = t84 * t689;
4343 t2606 = t2605 * t704;
4344 t2609 = t707 * t2064 * t48;
4345 t2611 = t2609 * t2605 * t1563;
4346 t2613 = t48 * t681;
4347 t2614 = t247 * t2613;
4348 t2615 = t240 * t2614;
4349 t2617 = t2582 * t155;
4350 t2618 = t2617 * t242;
4351 t2620 = t911 * t700;
4352 t2622 = t330 * t684;
4353 t2623 = t924 * t2622;
4354 t2626 = t48 * t689;
4355 t2627 = t2626 * t1563;
4356 t2628 = t920 * t709 * t2627;
4357 t2631 = t924 * t928 * t234;
4358 t2633 = t2600 * t96;
4359 t2635 = t2617 * t249;
4360 t2637 = t911 * t715;
4361 t2641 = t240 * t681 * t94 * t48;
4362 t2644 = t84 * t91 * t711;
4363 t2646 = t87 * t231;
4364 t2647 = t2646 * t921;
4365 t2649 = t704 * t684;
4366 t2650 = t920 * t2649;
4367 t2652 = 0.41605812114601457471e-2 * t2606 - 0.23923865992975692699e-2 * t2611 - 0.30787513717421124828e0 * t2615 - 0.26483950617283950616e0 * t2618 + 0.49657407407407407406e-1 * t2620 - 0.17587866426088147654e-2 * t2623 + 0.18864745528622147174e-2 * t2628 + 0.93801954272470120822e-2 * t2631 - 0.55e2 / 0.81e2 * t2633 + 0.33586378600823045268e0 * t2635 - 0.62974459876543209876e-1 * t2637 + 0.24276954732510288065e0 * t2641 - 0.52763599278264442963e-2 * t2644 - 0.73965888203735924393e-2 * t2647 + 0.13868604038200485824e-2 * t2650;
4368 t2654 = t747 * t684;
4369 t2655 = t2654 * t911;
4370 t2657 = t269 * t2600;
4371 t2659 = t743 * t907;
4372 t2661 = t2117 * t234;
4373 t2662 = t2661 * t911;
4374 t2664 = t720 * t907;
4375 t2666 = t2082 * t234;
4376 t2667 = t2666 * t911;
4377 t2669 = t724 * t684;
4378 t2670 = t2669 * t911;
4379 t2672 = t255 * t2600;
4380 t2674 = t962 * t2617;
4381 t2676 = t2603 * t110 + t2652 * t102 - 0.25e2 / 0.648e3 * t2655 - 0.55e2 / 0.81e2 * t2657 + 0.10e2 / 0.27e2 * t2659 - 0.25e2 / 0.324e3 * t2662 - 0.10e2 / 0.27e2 * t2664 - 0.25e2 / 0.324e3 * t2667 - 0.25e2 / 0.648e3 * t2670 + 0.55e2 / 0.81e2 * t2672 + 0.50e2 / 0.243e3 * t2674;
4382 t2677 = t939 * t2617;
4383 t2679 = t955 * t268;
4384 t2684 = t342 * t746;
4385 t2687 = t2114 * t323;
4386 t2689 = t2123 * t2592;
4387 t2691 = t932 * t254;
4388 t2696 = t334 * t723;
4389 t2699 = t2079 * t323;
4390 t2701 = t2088 * t2592;
4391 t2703 = 0.50e2 / 0.243e3 * t2677 + 0.10e2 / 0.9e1 * t2679 * t236 + 0.5e1 / 0.9e1 * t957 * t686 + 0.25e2 / 0.81e2 * t2684 * t695 - 0.5e1 / 0.72e2 * t2687 - 0.125e3 / 0.972e3 * t2689 - 0.10e2 / 0.9e1 * t2691 * t236 - 0.5e1 / 0.9e1 * t934 * t686 + 0.25e2 / 0.81e2 * t2696 * t695 + 0.5e1 / 0.72e2 * t2699 + 0.125e3 / 0.972e3 * t2701;
4392 t2704 = t2703 + t2676;
4393 t2705 = t2704 * t115;
4394 t2707 = t8 * t76 * t2705;
4395 t2708 = 0.3e1 / 0.8e1 * t2707;
4396 t2709 = t2509 / 0.4e1;
4397 t2711 = t278 * t2504 * t282;
4398 t2712 = 0.20310980000000000000e-2 * t2711;
4399 t2713 = t761 * t766;
4400 t2714 = t2713 * sigma[2];
4401 t2716 = t278 * t204 * t2714;
4402 t2717 = 0.18564115885218000000e-4 * t2716;
4403 t2718 = t990 * t222;
4404 t2720 = t203 * t204 * t2718;
4405 t2721 = 0.27081306666666666666e-2 * t2720;
4406 t2723 = t278 * t878 * t771;
4407 t2724 = 0.37236796666666666667e-2 * t2723;
4408 t2725 = t351 * t657;
4409 t2727 = t566 * t204 * t2725;
4410 t2728 = 0.16925816666666666667e-3 * t2727;
4411 t2730 = t278 * t625 * t986;
4412 t2731 = 0.41253590856040000000e-5 * t2730;
4413 t2732 = t1968 * t82;
4414 t2733 = 0.1e1 / t2732;
4415 t2734 = t1979 * t2733;
4416 t2735 = t2734 * t762;
4417 t2737 = t278 * t204 * t2735;
4418 t2738 = 0.16758017176104226384e-7 * t2737;
4419 t2740 = t278 * t878 * t767;
4420 t2741 = 0.55004787808053333334e-5 * t2740;
4421 t2743 = t203 * t625 * t975;
4422 t2744 = 0.10155490000000000000e-2 * t2743;
4423 t2745 = t351 * t670;
4424 t2747 = t203 * t204 * t2745;
4425 t2748 = 0.50777450000000000000e-3 * t2747;
4426 t2751 = -t2708 - t2709 - t2712 - t2717 - t2721 + t2724 + t2728 + t2731 + t2738 - t2741 + t2744 + t2748 + 0.13751196952013333334e-5 * t2543 - 0.67703266666666666667e-3 * t2516;
4427 t2752 = 0.33851633333333333334e-3 * t2524;
4428 t2753 = t2497 / 0.3e1;
4429 t2754 = 0.25388725000000000000e-3 * t2535;
4430 t2755 = 0.67703266666666666666e-3 * t2550;
4431 t2757 = t278 * t1837 * t351;
4432 t2758 = 0.38083087500000000000e-3 * t2757;
4433 t2760 = t203 * t878 * t671;
4434 t2761 = t2760 / 0.2e1;
4435 t2763 = t203 * t2504 * t223;
4436 t2765 = t278 * t625 * t990;
4437 t2766 = 0.20310980000000000000e-2 * t2765;
4438 t2767 = t280 * t681;
4439 t2769 = t278 * t204 * t2767;
4440 t2770 = 0.37236796666666666667e-2 * t2769;
4441 t2772 = t566 * t878 * t658;
4442 t2773 = t2772 / 0.6e1;
4443 t2775 = t984 * t222 * sigma[2];
4444 t2776 = t1917 * t2775;
4445 t2777 = t633 * t2776;
4446 t2778 = 0.55004787808053333334e-5 * t2777;
4447 t2779 = t2511 * t666;
4448 t2780 = t633 * t2779;
4449 t2781 = 0.27081306666666666667e-2 * t2780;
4450 t2782 = t2752 - t2441 - t2753 + t2754 - t2755 + t2758 - t2761 - t2763 - t2766 + t2770 - t2773 + t2427 + t2778 - t2781;
4451 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4452 v3rho2sigma[8] = -t904 - t2412 - 0.3e1 / 0.4e1 * t970 - 0.20310980000000000000e-2 * t973 + 0.10155490000000000000e-2 * t977 + t2414 + 0.76166175000000000000e-3 * t980 + 0.41253590856040000000e-5 * t988 - 0.20310980000000000000e-2 * t992 + t10 * (t2782 + t2751);
4453
4454 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4455 v3rho2lapl[0] = 0.0e0;
4456
4457 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4458 v3rho2lapl[1] = 0.0e0;
4459
4460 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4461 v3rho2lapl[2] = 0.0e0;
4462
4463 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4464 v3rho2lapl[3] = 0.0e0;
4465
4466 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4467 v3rho2lapl[4] = 0.0e0;
4468
4469 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4470 v3rho2lapl[5] = 0.0e0;
4471
4472 t2785 = t17 * t383;
4473 t2787 = t123 * t2785 * t130;
4474 t2791 = t8 * t136 * t384 / 0.6e1;
4475 t2793 = t8 * t18 * t1048;
4476 t2795 = t194 * t2785 * t198;
4477 t2797 = t422 * t383;
4478 t2801 = t15 * t1047;
4479 t2805 = t357 * t999 * t15;
4480 t2806 = t383 * t196;
4481 t2807 = t2806 * t441;
4482 t2813 = t1037 * t184;
4483 t2818 = t379 * t534;
4484 t2823 = t477 * t1587;
4485 t2824 = t2823 * t27;
4486 t2829 = t27 * t1587;
4487 t2840 = -0.36543209876543209877e0 * t822 - 0.30452674897119341564e0 * t825 - 0.91358024691358024692e0 * t2829 * t2274 + 0.91358024691358024692e-1 * t1006 * t2277 - 0.91358024691358024691e0 * t1603 * t2824 - 0.30452674897119341564e0 * t830 + 0.91358024691358024691e-1 * t1033 * t1534 - 0.36543209876543209877e0 * t832;
4488 t2860 = t27 * t477;
4489 t2866 = t27 * t43;
4490 t2878 = 0.50379567901234567902e0 * t1007 * t503 - 0.15091796422897717740e-1 * t1013 * t497 * t2309 - 0.39725925925925925926e0 * t1007 * t488 + 0.14070293140870518124e-1 * t802 * t367 * t472 - 0.33284649691681165977e-1 * t2860 * t492 + 0.19139092794380554160e-1 * t2324 * t2860 * t1563 + 0.42210879422611554372e-1 * t2866 * t499 - 0.11094883230560388659e-1 * t1013 * t2335 + 0.36982944101867962196e-1 * t800 + 0.200e3 / 0.81e2 * t786 - 0.16793189300411522634e1 * t792 - 0.88279835390946502059e0 * t796 + 0.11195459533607681756e1 * t808 + 0.13241975308641975309e1 * t790 - 0.46900977136235060413e-1 * t804;
4491 t2880 = 0.10e2 / 0.9e1 * t2813 * t149 + 0.5e1 / 0.9e1 * t1039 * t474 + 0.25e2 / 0.81e2 * t2818 * t483 + 0.5e1 / 0.9e1 * t1613 * t360 + 0.250e3 / 0.243e3 * t1622 * t2824 + t2840 * t63 + 0.25e2 / 0.81e2 * t2342 * t1007 + 0.50e2 / 0.81e2 * t2349 * t1007 + 0.50e2 / 0.81e2 * t2354 * t1007 + 0.25e2 / 0.81e2 * t2357 * t1007 + t2878 * t55;
4492 t2881 = t1020 * t170;
4493 t2886 = t371 * t511;
4494 t2899 = -0.10e2 / 0.9e1 * t2881 * t149 - 0.5e1 / 0.9e1 * t1022 * t474 + 0.25e2 / 0.81e2 * t2886 * t483 - 0.5e1 / 0.9e1 * t1576 * t360 - 0.250e3 / 0.243e3 * t1585 * t2824 + 0.50e2 / 0.27e2 * t815 - 0.50e2 / 0.27e2 * t839 - 0.200e3 / 0.81e2 * t820 - 0.250e3 / 0.243e3 * t818 + 0.200e3 / 0.81e2 * t844 - 0.250e3 / 0.243e3 * t842;
4495 t2900 = t2899 + t2880;
4496 t2901 = t2900 * t68;
4497 t2905 = t16 * t1047;
4498 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4499 v3rho2tau[0] = -0.4e1 / 0.3e1 * t2787 - t2791 - t2793 - 0.27081306666666666667e-2 * t2795 - t1000 * t2797 * t426 / 0.6e1 - t1000 * t2801 * t130 - 0.27081306666666666667e-2 * t2805 * t2807 - t1000 * t1001 * t449 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t193 * t2901 - 0.20310980000000000000e-2 * t1000 * t2905 * t198 - 0.55004787808053333334e-5 * t1000 * t1052 * t555 + 0.37236796666666666667e-2 * t1000 * t1052 * t559;
4500
4501 t2915 = t17 * t412;
4502 t2917 = t203 * t2915 * t206;
4503 t2921 = t8 * t210 * t413 / 0.6e1;
4504 t2922 = t564 * t412;
4505 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4506 v3rho2tau[1] = -0.4e1 / 0.3e1 * t2917 - t2921 - t1000 * t2922 * t568 / 0.6e1 - t1000 * t1058 * t577 / 0.2e1;
4507
4508 t2932 = t17 * t2;
4509 t2933 = t2932 * t999;
4510 t2934 = t2933 * t1062;
4511 t2936 = t2797 * t587;
4512 t2939 = t2801 * t218;
4513 t2942 = t2806 * t598;
4514 t2945 = t454 * t2;
4515 t2946 = t2945 * t999;
4516 t2947 = t1001 * t605;
4517 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4518 v3rho2tau[2] = -0.2e1 / 0.3e1 * t2787 - t2791 - t2793 / 0.2e1 - 0.13540653333333333334e-2 * t2795 - 0.2e1 / 0.3e1 * t2934 - t1000 * t2936 / 0.6e1 - t1000 * t2939 / 0.2e1 - 0.13540653333333333334e-2 * t2805 * t2942 - t2946 * t2947 / 0.2e1;
4519
4520 t2951 = t2933 * t1066;
4521 t2953 = t2922 * t612;
4522 t2956 = t1058 * t620;
4523 t2959 = t2932 * t4;
4524 t2960 = t2959 * t1113;
4525 t2962 = t74 * t1111;
4526 t2963 = t2962 * t206;
4527 t2966 = t2933 * t1117;
4528 t2969 = t357 * t999 * t74;
4529 t2970 = t412 * t280;
4530 t2971 = t2970 * t635;
4531 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4532 v3rho2tau[3] = -0.2e1 / 0.3e1 * t2917 - t2921 - 0.2e1 / 0.3e1 * t2951 - t1000 * t2953 / 0.6e1 + t2946 * t2956 / 0.2e1 - t2960 / 0.2e1 - t1000 * t2963 / 0.2e1 - 0.13540653333333333333e-2 * t2966 - 0.13540653333333333333e-2 * t2969 * t2971;
4533
4534 t2975 = t2797 * t647;
4535 t2978 = t1001 * t653;
4536 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4537 v3rho2tau[4] = -0.4e1 / 0.3e1 * t2934 - t2791 - t1000 * t2975 / 0.6e1 - t1000 * t2978 / 0.2e1;
4538
4539 t2983 = t2922 * t658;
4540 t2986 = t2962 * t223;
4541 t2988 = t2970 * t666;
4542 t2991 = t1058 * t671;
4543 t3000 = t80 * t1587;
4544 t3005 = t3000 * t689;
4545 t3012 = -0.36543209876543209877e0 * t944 - 0.30452674897119341564e0 * t947 - 0.91358024691358024692e0 * t3000 * t2586 + 0.91358024691358024692e-1 * t1070 * t2589 - 0.91358024691358024691e0 * t2104 * t3005 - 0.30452674897119341564e0 * t951 + 0.91358024691358024691e-1 * t1097 * t2040 - 0.36543209876543209877e0 * t953;
4546 t3014 = t80 * t689;
4547 t3028 = t80 * t91;
4548 t3042 = 0.19139092794380554160e-1 * t2609 * t3014 * t1563 + 0.50379567901234567902e0 * t1071 * t715 - 0.15091796422897717740e-1 * t1077 * t709 * t2627 + 0.14070293140870518124e-1 * t924 * t396 * t684 - 0.39725925925925925926e0 * t1071 * t700 + 0.42210879422611554372e-1 * t3028 * t711 - 0.11094883230560388659e-1 * t1077 * t2649 - 0.33284649691681165977e-1 * t3014 * t704 + 0.13241975308641975309e1 * t912 - 0.46900977136235060413e-1 * t926 + 0.36982944101867962196e-1 * t922 + 0.200e3 / 0.81e2 * t908 - 0.16793189300411522634e1 * t914 - 0.88279835390946502059e0 * t918 + 0.11195459533607681756e1 * t930;
4549 t3050 = t408 * t746;
4550 t3057 = t1084 * t254;
4551 t3060 = 0.50e2 / 0.81e2 * t2661 * t1071 + 0.25e2 / 0.81e2 * t2654 * t1071 + t3012 * t110 + t3042 * t102 + 0.25e2 / 0.81e2 * t2669 * t1071 + 0.50e2 / 0.81e2 * t2666 * t1071 + 0.5e1 / 0.9e1 * t1103 * t686 + 0.25e2 / 0.81e2 * t3050 * t695 + 0.5e1 / 0.9e1 * t2114 * t389 + 0.250e3 / 0.243e3 * t2123 * t3005 - 0.10e2 / 0.9e1 * t3057 * t236;
4552 t3063 = t400 * t723;
4553 t3070 = t1101 * t268;
4554 t3079 = -0.5e1 / 0.9e1 * t1086 * t686 + 0.25e2 / 0.81e2 * t3063 * t695 - 0.5e1 / 0.9e1 * t2079 * t389 - 0.250e3 / 0.243e3 * t2088 * t3005 + 0.10e2 / 0.9e1 * t3070 * t236 - 0.200e3 / 0.81e2 * t942 - 0.250e3 / 0.243e3 * t940 + 0.200e3 / 0.81e2 * t965 - 0.250e3 / 0.243e3 * t963 + 0.50e2 / 0.27e2 * t937 - 0.50e2 / 0.27e2 * t960;
4555 t3080 = t3079 + t3060;
4556 t3082 = t277 * t3080 * t115;
4557 t3085 = t75 * t1111;
4558 t3086 = t3085 * t282;
4559 t3089 = t1116 * t767;
4560 t3092 = t1116 * t771;
4561 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4562 v3rho2tau[5] = -0.4e1 / 0.3e1 * t2951 - t2921 - t2960 - 0.27081306666666666667e-2 * t2966 - t1000 * t2983 / 0.6e1 - t1000 * t2986 - 0.27081306666666666667e-2 * t2969 * t2988 - t1000 * t2991 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t3082 - 0.20310980000000000000e-2 * t1000 * t3086 - 0.55004787808053333334e-5 * t1000 * t3089 + 0.37236796666666666667e-2 * t1000 * t3092;
4563
4564 t3095 = t17 * t1151;
4565 t3097 = t123 * t3095 * t130;
4566 t3098 = t3097 / 0.2e1;
4567 t3100 = t8 * t136 * t1152;
4568 t3101 = t3100 / 0.8e1;
4569 t3102 = t866 * t152;
4570 t3103 = t3102 * t480;
4571 t3105 = t1122 * t162;
4572 t3106 = t3105 * t164;
4573 t3108 = t3102 * t155;
4574 t3109 = t3108 * t484;
4575 t3111 = t1122 * t43;
4576 t3112 = t498 * t147;
4577 t3113 = t3111 * t3112;
4578 t3115 = t34 * t866;
4579 t3116 = t3115 * t492;
4580 t3118 = t1129 * t497;
4581 t3119 = t164 * t1563;
4582 t3120 = t3118 * t3119;
4583 t3124 = t2324 * t1122 * t147 * t1563;
4584 t3127 = t495 * t498 * t866;
4585 t3129 = 0.33104938271604938271e-1 * t3103 - 0.52007265143251821838e-3 * t3106 - 0.41982973251028806584e-1 * t3109 + 0.65954499097830553704e-3 * t3113 + 0.92457360254669905488e-3 * t3116 - 0.23580931910777683967e-3 * t3120 + 0.29904832491219615874e-3 * t3124 - 0.11725244284058765103e-2 * t3127;
4586 t3131 = t1135 * t170;
4587 t3134 = t2388 * t289;
4588 t3136 = t2371 * t147;
4589 t3137 = t3136 * t789;
4590 t3139 = t812 * t785;
4591 t3141 = t1579 * t1126;
4592 t3143 = t147 * t1587;
4593 t3144 = t3143 * t1122;
4594 t3145 = t1585 * t3144;
4595 t3147 = t512 * t3108;
4596 t3149 = t3102 * t519;
4597 t3151 = t1122 * t1587;
4598 t3152 = t523 * t147;
4599 t3153 = t3151 * t3152;
4600 t3155 = t1603 * t3144;
4601 t3157 = t524 * t3108;
4602 t3159 = -0.76131687242798353909e-2 * t3149 - 0.14274691358024691358e-1 * t3153 - 0.14274691358024691358e-1 * t3155 - 0.76131687242798353909e-2 * t3157;
4603 t3161 = t1145 * t184;
4604 t3164 = t2378 * t289;
4605 t3166 = t2383 * t147;
4606 t3167 = t3166 * t789;
4607 t3169 = t836 * t785;
4608 t3171 = t1616 * t1126;
4609 t3173 = t1622 * t3144;
4610 t3175 = t535 * t3108;
4611 t3177 = t3129 * t55 - 0.5e1 / 0.9e1 * t3131 * t149 + 0.5e1 / 0.36e2 * t3134 - 0.25e2 / 0.324e3 * t3137 - 0.10e2 / 0.27e2 * t3139 + 0.25e2 / 0.5184e4 * t3141 - 0.125e3 / 0.7776e4 * t3145 - 0.25e2 / 0.972e3 * t3147 + t3159 * t63 + 0.5e1 / 0.9e1 * t3161 * t149 - 0.5e1 / 0.36e2 * t3164 - 0.25e2 / 0.324e3 * t3167 + 0.10e2 / 0.27e2 * t3169 + 0.25e2 / 0.5184e4 * t3171 + 0.125e3 / 0.7776e4 * t3173 - 0.25e2 / 0.972e3 * t3175;
4612 t3178 = t3177 * t68;
4613 t3180 = t8 * t18 * t3178;
4614 t3181 = 0.3e1 / 0.8e1 * t3180;
4615 t3183 = t194 * t3095 * t198;
4616 t3184 = 0.10155490000000000000e-2 * t3183;
4617 t3186 = t123 * t777 * t854;
4618 t3187 = 0.10155490000000000000e-2 * t3186;
4619 t3189 = t194 * t2210 * t317;
4620 t3190 = 0.25388725000000000000e-3 * t3189;
4621 t3192 = t194 * t2196 * t317;
4622 t3193 = 0.76166175000000000000e-3 * t3192;
4623 t3195 = t194 * t777 * t868;
4624 t3196 = 0.41253590856040000001e-5 * t3195;
4625 t3198 = t194 * t777 * t872;
4626 t3199 = 0.20310980000000000000e-2 * t3198;
4627 t3200 = t1159 * t129;
4628 t3202 = t123 * t124 * t3200;
4629 t3203 = 0.10313397714010000000e-5 * t3202;
4630 t3205 = t194 * t430 * t1159;
4631 t3206 = 0.25783494285025000000e-6 * t3205;
4632 t3208 = t194 * t434 * t1159;
4633 t3209 = 0.77350482855075000000e-6 * t3208;
4634 t3210 = t1467 * rho[0];
4635 t3211 = 0.1e1 / t3210;
4636 t3212 = t1488 * t3211;
4637 t3213 = t3212 * sigma[0];
4638 t3215 = t194 * t124 * t3213;
4639 t3216 = 0.62842564410390848941e-8 * t3215;
4640 t3218 = t194 * t124 * t867;
4641 t3219 = 0.41253590856040000000e-5 * t3218;
4642 t3220 = -t3098 - t3101 - t3181 - t3184 + t3187 + t3190 + t3193 + t3196 - t3199 - t3203 - t3206 - t3209 - t3216 + t3219;
4643 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4644 v3rhosigma2[0] = t10 * t3220 - t1155 + t1158 - t1162;
4645
4646 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4647 v3rhosigma2[1] = 0.0e0;
4648
4649 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4650 v3rhosigma2[2] = 0.0e0;
4651
4652 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4653 v3rhosigma2[3] = 0.0e0;
4654
4655 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4656 v3rhosigma2[4] = 0.0e0;
4657
4658 t3222 = t17 * t1195;
4659 t3224 = t203 * t3222 * t206;
4660 t3225 = t3224 / 0.2e1;
4661 t3227 = t8 * t210 * t1196;
4662 t3228 = t3227 / 0.8e1;
4663 t3230 = t203 * t878 * t885;
4664 t3231 = 0.10155490000000000000e-2 * t3230;
4665 t3233 = t278 * t2418 * t351;
4666 t3234 = 0.25388725000000000000e-3 * t3233;
4667 t3235 = t1203 * t205;
4668 t3237 = t203 * t204 * t3235;
4669 t3238 = 0.10313397714010000000e-5 * t3237;
4670 t3240 = t278 * t572 * t1203;
4671 t3241 = 0.25783494285025000000e-6 * t3240;
4672 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4673 v3rhosigma2[5] = -t1199 + t1202 - t1206 + t10 * (-t3225 - t3228 + t3231 + t3234 - t3238 - t3241);
4674
4675 t3245 = t123 * t3095 * t218;
4676 t3246 = t3245 / 0.2e1;
4677 t3248 = t123 * t777 * t897;
4678 t3249 = 0.10155490000000000000e-2 * t3248;
4679 t3250 = t1159 * t217;
4680 t3252 = t123 * t124 * t3250;
4681 t3253 = 0.10313397714010000000e-5 * t3252;
4682 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4683 v3rhosigma2[6] = -t1155 + t1158 - t1162 + t10 * (-t3246 - t3101 + t3249 + t3190 - t3253 - t3206);
4684
4685 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4686 v3rhosigma2[7] = 0.0e0;
4687
4688 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4689 v3rhosigma2[8] = 0.0e0;
4690
4691 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4692 v3rhosigma2[9] = 0.0e0;
4693
4694 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4695 v3rhosigma2[10] = 0.0e0;
4696
4697 t3257 = t203 * t3222 * t223;
4698 t3258 = t3257 / 0.2e1;
4699 t3259 = t984 * t152;
4700 t3260 = t3259 * t692;
4701 t3262 = t1166 * t246;
4702 t3263 = t3262 * t248;
4703 t3265 = t3259 * t155;
4704 t3266 = t3265 * t696;
4705 t3268 = t1166 * t91;
4706 t3269 = t710 * t234;
4707 t3270 = t3268 * t3269;
4708 t3272 = t87 * t984;
4709 t3273 = t3272 * t704;
4710 t3275 = t1173 * t709;
4711 t3276 = t248 * t1563;
4712 t3277 = t3275 * t3276;
4713 t3281 = t2609 * t1166 * t234 * t1563;
4714 t3284 = t707 * t710 * t984;
4715 t3286 = 0.33104938271604938271e-1 * t3260 - 0.52007265143251821838e-3 * t3263 - 0.41982973251028806584e-1 * t3266 + 0.65954499097830553704e-3 * t3270 + 0.92457360254669905488e-3 * t3273 - 0.23580931910777683967e-3 * t3277 + 0.29904832491219615874e-3 * t3281 - 0.11725244284058765103e-2 * t3284;
4716 t3288 = t1179 * t254;
4717 t3291 = t2691 * t323;
4718 t3293 = t2696 * t234;
4719 t3294 = t3293 * t911;
4720 t3296 = t934 * t907;
4721 t3298 = t2082 * t1170;
4722 t3300 = t234 * t1587;
4723 t3301 = t3300 * t1166;
4724 t3302 = t2088 * t3301;
4725 t3304 = t724 * t3265;
4726 t3306 = t3259 * t731;
4727 t3308 = t1166 * t1587;
4728 t3309 = t735 * t234;
4729 t3310 = t3308 * t3309;
4730 t3312 = t2104 * t3301;
4731 t3314 = t736 * t3265;
4732 t3316 = -0.76131687242798353909e-2 * t3306 - 0.14274691358024691358e-1 * t3310 - 0.14274691358024691358e-1 * t3312 - 0.76131687242798353909e-2 * t3314;
4733 t3318 = t1189 * t268;
4734 t3321 = t2679 * t323;
4735 t3323 = t2684 * t234;
4736 t3324 = t3323 * t911;
4737 t3326 = t957 * t907;
4738 t3328 = t2117 * t1170;
4739 t3330 = t2123 * t3301;
4740 t3332 = t747 * t3265;
4741 t3334 = t3286 * t102 - 0.5e1 / 0.9e1 * t3288 * t236 + 0.5e1 / 0.36e2 * t3291 - 0.25e2 / 0.324e3 * t3294 - 0.10e2 / 0.27e2 * t3296 + 0.25e2 / 0.5184e4 * t3298 - 0.125e3 / 0.7776e4 * t3302 - 0.25e2 / 0.972e3 * t3304 + t3316 * t110 + 0.5e1 / 0.9e1 * t3318 * t236 - 0.5e1 / 0.36e2 * t3321 - 0.25e2 / 0.324e3 * t3324 + 0.10e2 / 0.27e2 * t3326 + 0.25e2 / 0.5184e4 * t3328 + 0.125e3 / 0.7776e4 * t3330 - 0.25e2 / 0.972e3 * t3332;
4742 t3335 = t3334 * t115;
4743 t3337 = t8 * t76 * t3335;
4744 t3338 = 0.3e1 / 0.8e1 * t3337;
4745 t3340 = t278 * t3222 * t282;
4746 t3341 = 0.10155490000000000000e-2 * t3340;
4747 t3343 = t203 * t878 * t975;
4748 t3344 = 0.10155490000000000000e-2 * t3343;
4749 t3346 = t278 * t2504 * t351;
4750 t3347 = 0.76166175000000000000e-3 * t3346;
4751 t3349 = t278 * t878 * t986;
4752 t3350 = 0.41253590856040000001e-5 * t3349;
4753 t3352 = t278 * t878 * t990;
4754 t3353 = 0.20310980000000000000e-2 * t3352;
4755 t3354 = t1203 * t222;
4756 t3356 = t203 * t204 * t3354;
4757 t3357 = 0.10313397714010000000e-5 * t3356;
4758 t3359 = t278 * t625 * t1203;
4759 t3360 = 0.77350482855075000000e-6 * t3359;
4760 t3361 = t1968 * rho[1];
4761 t3362 = 0.1e1 / t3361;
4762 t3363 = t1979 * t3362;
4763 t3364 = t3363 * sigma[2];
4764 t3366 = t278 * t204 * t3364;
4765 t3367 = 0.62842564410390848941e-8 * t3366;
4766 t3369 = t278 * t204 * t985;
4767 t3370 = 0.41253590856040000000e-5 * t3369;
4768 t3371 = -t3258 - t3228 - t3338 - t3341 + t3344 + t3234 + t3347 + t3350 - t3353 - t3357 - t3241 - t3360 - t3367 + t3370;
4769 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4770 v3rhosigma2[11] = t10 * t3371 - t1199 + t1202 - t1206;
4771
4772 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4773 v3rhosigmalapl[0] = 0.0e0;
4774
4775 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4776 v3rhosigmalapl[1] = 0.0e0;
4777
4778 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4779 v3rhosigmalapl[2] = 0.0e0;
4780
4781 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4782 v3rhosigmalapl[3] = 0.0e0;
4783
4784 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4785 v3rhosigmalapl[4] = 0.0e0;
4786
4787 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4788 v3rhosigmalapl[5] = 0.0e0;
4789
4790 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4791 v3rhosigmalapl[6] = 0.0e0;
4792
4793 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4794 v3rhosigmalapl[7] = 0.0e0;
4795
4796 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4797 v3rhosigmalapl[8] = 0.0e0;
4798
4799 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4800 v3rhosigmalapl[9] = 0.0e0;
4801
4802 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4803 v3rhosigmalapl[10] = 0.0e0;
4804
4805 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4806 v3rhosigmalapl[11] = 0.0e0;
4807
4808 t3374 = t2959 * t1244 / 0.2e1;
4809 t3375 = t15 * t1242;
4810 t3376 = t3375 * t130;
4811 t3380 = t1209 * t162;
4812 t3381 = t3380 * t164;
4813 t3384 = t1209 * t43;
4814 t3385 = t3384 * t3112;
4815 t3388 = t1216 * t497;
4816 t3389 = t3388 * t3119;
4817 t3393 = t2324 * t1209 * t147 * t1563;
4818 t3396 = -0.21518209876543209876e0 * t1124 + 0.41605812114601457472e-2 * t3381 + 0.27288932613168724280e0 * t1127 - 0.52763599278264442964e-2 * t3385 - 0.60097284165535438571e-2 * t1130 + 0.18864745528622147175e-2 * t3389 - 0.23923865992975692700e-2 * t3393 + 0.76214087846381973172e-2 * t1133;
4819 t3398 = t1222 * t170;
4820 t3401 = t2881 * t289;
4821 t3403 = t2886 * t147;
4822 t3404 = t3403 * t789;
4823 t3406 = t1022 * t785;
4824 t3413 = t1579 * t1213;
4825 t3415 = t3143 * t1209;
4826 t3416 = t1585 * t3415;
4827 t3419 = t3396 * t55 - 0.5e1 / 0.9e1 * t3398 * t149 + 0.5e1 / 0.72e2 * t3401 - 0.25e2 / 0.648e3 * t3404 - 0.5e1 / 0.27e2 * t3406 - 0.5e1 / 0.9e1 * t2388 * t360 + 0.25e2 / 0.81e2 * t3136 * t1007 + 0.25e2 / 0.27e2 * t1137 - 0.25e2 / 0.648e3 * t3413 + 0.125e3 / 0.972e3 * t3416 + 0.325e3 / 0.1944e4 * t1139;
4828 t3421 = t1209 * t1587;
4829 t3422 = t3421 * t3152;
4830 t3424 = t1603 * t3415;
4831 t3427 = 0.49485596707818930039e-1 * t1141 + 0.11419753086419753086e0 * t3422 + 0.11419753086419753086e0 * t3424 + 0.49485596707818930039e-1 * t1143;
4832 t3429 = t1234 * t184;
4833 t3432 = t2813 * t289;
4834 t3434 = t2818 * t147;
4835 t3435 = t3434 * t789;
4836 t3437 = t1039 * t785;
4837 t3444 = t1616 * t1213;
4838 t3446 = t1622 * t3415;
4839 t3449 = t3427 * t63 + 0.5e1 / 0.9e1 * t3429 * t149 - 0.5e1 / 0.72e2 * t3432 - 0.25e2 / 0.648e3 * t3435 + 0.5e1 / 0.27e2 * t3437 + 0.5e1 / 0.9e1 * t2378 * t360 + 0.25e2 / 0.81e2 * t3166 * t1007 - 0.25e2 / 0.27e2 * t1147 - 0.25e2 / 0.648e3 * t3444 - 0.125e3 / 0.972e3 * t3446 + 0.325e3 / 0.1944e4 * t1149;
4840 t3450 = t3449 + t3419;
4841 t3452 = t193 * t3450 * t68;
4842 t3455 = t16 * t1242;
4843 t3456 = t3455 * t198;
4844 t3460 = 0.50777450000000000000e-3 * t2933 * t1247;
4845 t3461 = t1001 * t854;
4846 t3464 = t2905 * t317;
4847 t3467 = t1052 * t868;
4848 t3470 = t1052 * t872;
4849 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4850 v3rhosigmatau[0] = -t3374 - t1000 * t3376 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t3452 - 0.10155490000000000000e-2 * t1000 * t3456 + t3460 + 0.50777450000000000000e-3 * t1000 * t3461 + 0.38083087500000000000e-3 * t1000 * t3464 + 0.20626795428020000000e-5 * t1000 * t3467 - 0.10155490000000000000e-2 * t1000 * t3470;
4851
4852 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4853 v3rhosigmatau[1] = 0.0e0;
4854
4855 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4856 v3rhosigmatau[2] = 0.0e0;
4857
4858 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4859 v3rhosigmatau[3] = 0.0e0;
4860
4861 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4862 v3rhosigmatau[4] = 0.0e0;
4863
4864 t3474 = t2959 * t1286 / 0.2e1;
4865 t3475 = t74 * t1284;
4866 t3476 = t3475 * t206;
4867 t3480 = 0.50777450000000000000e-3 * t2933 * t1289;
4868 t3481 = t1058 * t885;
4869 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4870 v3rhosigmatau[5] = -t3474 - t1000 * t3476 / 0.2e1 + t3480 + 0.50777450000000000000e-3 * t1000 * t3481;
4871
4872 t3484 = t3375 * t218;
4873 t3487 = t1001 * t897;
4874 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4875 v3rhosigmatau[6] = -t3374 - t1000 * t3484 / 0.2e1 + t3460 + 0.50777450000000000000e-3 * t1000 * t3487;
4876
4877 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4878 v3rhosigmatau[7] = 0.0e0;
4879
4880 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4881 v3rhosigmatau[8] = 0.0e0;
4882
4883 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4884 v3rhosigmatau[9] = 0.0e0;
4885
4886 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4887 v3rhosigmatau[10] = 0.0e0;
4888
4889 t3490 = t3475 * t223;
4890 t3494 = t1251 * t246;
4891 t3495 = t3494 * t248;
4892 t3498 = t1251 * t91;
4893 t3499 = t3498 * t3269;
4894 t3502 = t1258 * t709;
4895 t3503 = t3502 * t3276;
4896 t3507 = t2609 * t1251 * t234 * t1563;
4897 t3510 = -0.21518209876543209876e0 * t1168 + 0.41605812114601457472e-2 * t3495 + 0.27288932613168724280e0 * t1171 - 0.52763599278264442964e-2 * t3499 - 0.60097284165535438571e-2 * t1174 + 0.18864745528622147175e-2 * t3503 - 0.23923865992975692700e-2 * t3507 + 0.76214087846381973172e-2 * t1177;
4898 t3512 = t1264 * t254;
4899 t3515 = t3057 * t323;
4900 t3517 = t3063 * t234;
4901 t3518 = t3517 * t911;
4902 t3520 = t1086 * t907;
4903 t3527 = t2082 * t1255;
4904 t3529 = t3300 * t1251;
4905 t3530 = t2088 * t3529;
4906 t3533 = t3510 * t102 - 0.5e1 / 0.9e1 * t3512 * t236 + 0.5e1 / 0.72e2 * t3515 - 0.25e2 / 0.648e3 * t3518 - 0.5e1 / 0.27e2 * t3520 - 0.5e1 / 0.9e1 * t2691 * t389 + 0.25e2 / 0.81e2 * t3293 * t1071 + 0.25e2 / 0.27e2 * t1181 - 0.25e2 / 0.648e3 * t3527 + 0.125e3 / 0.972e3 * t3530 + 0.325e3 / 0.1944e4 * t1183;
4907 t3535 = t1251 * t1587;
4908 t3536 = t3535 * t3309;
4909 t3538 = t2104 * t3529;
4910 t3541 = 0.49485596707818930039e-1 * t1185 + 0.11419753086419753086e0 * t3536 + 0.11419753086419753086e0 * t3538 + 0.49485596707818930039e-1 * t1187;
4911 t3543 = t1276 * t268;
4912 t3546 = t3070 * t323;
4913 t3548 = t3050 * t234;
4914 t3549 = t3548 * t911;
4915 t3551 = t1103 * t907;
4916 t3558 = t2117 * t1255;
4917 t3560 = t2123 * t3529;
4918 t3563 = t3541 * t110 + 0.5e1 / 0.9e1 * t3543 * t236 - 0.5e1 / 0.72e2 * t3546 - 0.25e2 / 0.648e3 * t3549 + 0.5e1 / 0.27e2 * t3551 + 0.5e1 / 0.9e1 * t2679 * t389 + 0.25e2 / 0.81e2 * t3323 * t1071 - 0.25e2 / 0.27e2 * t1191 - 0.25e2 / 0.648e3 * t3558 - 0.125e3 / 0.972e3 * t3560 + 0.325e3 / 0.1944e4 * t1193;
4919 t3564 = t3563 + t3533;
4920 t3566 = t277 * t3564 * t115;
4921 t3569 = t75 * t1284;
4922 t3570 = t3569 * t282;
4923 t3573 = t1058 * t975;
4924 t3576 = t3085 * t351;
4925 t3579 = t1116 * t986;
4926 t3582 = t1116 * t990;
4927 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4928 v3rhosigmatau[11] = -t3474 - t1000 * t3490 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t3566 - 0.10155490000000000000e-2 * t1000 * t3570 + t3480 + 0.50777450000000000000e-3 * t1000 * t3573 + 0.38083087500000000000e-3 * t1000 * t3576 + 0.20626795428020000000e-5 * t1000 * t3579 - 0.10155490000000000000e-2 * t1000 * t3582;
4929
4930 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4931 v3rholapl2[0] = 0.0e0;
4932
4933 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4934 v3rholapl2[1] = 0.0e0;
4935
4936 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4937 v3rholapl2[2] = 0.0e0;
4938
4939 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4940 v3rholapl2[3] = 0.0e0;
4941
4942 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4943 v3rholapl2[4] = 0.0e0;
4944
4945 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4946 v3rholapl2[5] = 0.0e0;
4947
4948 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4949 v3rholapltau[0] = 0.0e0;
4950
4951 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4952 v3rholapltau[1] = 0.0e0;
4953
4954 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4955 v3rholapltau[2] = 0.0e0;
4956
4957 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4958 v3rholapltau[3] = 0.0e0;
4959
4960 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4961 v3rholapltau[4] = 0.0e0;
4962
4963 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4964 v3rholapltau[5] = 0.0e0;
4965
4966 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4967 v3rholapltau[6] = 0.0e0;
4968
4969 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4970 v3rholapltau[7] = 0.0e0;
4971
4972 t3585 = t2959 * t1324;
4973 t3587 = t15 * t1322;
4974 t3588 = t3587 * t130;
4975 t3592 = t1293 * t162;
4976 t3596 = t1293 * t43;
4977 t3600 = t1300 * t497;
4978 t3608 = 0.13241975308641975309e1 * t1211 - 0.33284649691681165977e-1 * t3592 * t164 - 0.16793189300411522634e1 * t1214 + 0.42210879422611554372e-1 * t3596 * t3112 + 0.36982944101867962197e-1 * t1217 - 0.15091796422897717740e-1 * t3600 * t3119 + 0.19139092794380554160e-1 * t2324 * t1293 * t147 * t1563 - 0.46900977136235060413e-1 * t1220;
4979 t3610 = t1306 * t170;
4980 t3620 = t3143 * t1293;
4981 t3625 = t1293 * t1587;
4982 t3631 = -0.30452674897119341564e0 * t1230 - 0.91358024691358024692e0 * t3625 * t3152 - 0.91358024691358024691e0 * t1603 * t3620 - 0.30452674897119341564e0 * t1232;
4983 t3633 = t1316 * t184;
4984 t3646 = t3608 * t55 - 0.5e1 / 0.9e1 * t3610 * t149 - 0.10e2 / 0.9e1 * t2881 * t360 + 0.50e2 / 0.81e2 * t3403 * t1007 + 0.50e2 / 0.27e2 * t1224 + 0.25e2 / 0.81e2 * t1579 * t1297 - 0.250e3 / 0.243e3 * t1585 * t3620 - 0.250e3 / 0.243e3 * t1228 + t3631 * t63 + 0.5e1 / 0.9e1 * t3633 * t149 + 0.10e2 / 0.9e1 * t2813 * t360 + 0.50e2 / 0.81e2 * t3434 * t1007 - 0.50e2 / 0.27e2 * t1236 + 0.25e2 / 0.81e2 * t1616 * t1297 + 0.250e3 / 0.243e3 * t1622 * t3620 - 0.250e3 / 0.243e3 * t1240;
4985 t3648 = t193 * t3646 * t68;
4986 t3651 = t16 * t1322;
4987 t3652 = t3651 * t198;
4988 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4989 v3rhotau2[0] = -t3585 / 0.2e1 - t1000 * t3588 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t3648 - 0.10155490000000000000e-2 * t1000 * t3652;
4990
4991 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4992 v3rhotau2[1] = 0.0e0;
4993
4994 t3655 = t2959 * t1359;
4995 t3656 = t74 * t1357;
4996 t3657 = t3656 * t206;
4997 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4998 v3rhotau2[2] = -t1000 * t3657 / 0.2e1 - t3655 / 0.2e1;
4999
5000 t3660 = t3587 * t218;
5001 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5002 v3rhotau2[3] = -t1000 * t3660 / 0.2e1 - t3585 / 0.2e1;
5003
5004 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5005 v3rhotau2[4] = 0.0e0;
5006
5007 t3664 = t3656 * t223;
5008 t3668 = t1328 * t246;
5009 t3672 = t1328 * t91;
5010 t3676 = t1335 * t709;
5011 t3684 = 0.13241975308641975309e1 * t1253 - 0.33284649691681165977e-1 * t3668 * t248 - 0.16793189300411522634e1 * t1256 + 0.42210879422611554372e-1 * t3672 * t3269 + 0.36982944101867962197e-1 * t1259 - 0.15091796422897717740e-1 * t3676 * t3276 + 0.19139092794380554160e-1 * t2609 * t1328 * t234 * t1563 - 0.46900977136235060413e-1 * t1262;
5012 t3686 = t1341 * t254;
5013 t3696 = t3300 * t1328;
5014 t3701 = t1328 * t1587;
5015 t3707 = -0.30452674897119341564e0 * t1272 - 0.91358024691358024692e0 * t3701 * t3309 - 0.91358024691358024691e0 * t2104 * t3696 - 0.30452674897119341564e0 * t1274;
5016 t3709 = t1351 * t268;
5017 t3722 = t3684 * t102 - 0.5e1 / 0.9e1 * t3686 * t236 - 0.10e2 / 0.9e1 * t3057 * t389 + 0.50e2 / 0.81e2 * t3517 * t1071 + 0.50e2 / 0.27e2 * t1266 + 0.25e2 / 0.81e2 * t2082 * t1332 - 0.250e3 / 0.243e3 * t2088 * t3696 - 0.250e3 / 0.243e3 * t1270 + t3707 * t110 + 0.5e1 / 0.9e1 * t3709 * t236 + 0.10e2 / 0.9e1 * t3070 * t389 + 0.50e2 / 0.81e2 * t3548 * t1071 - 0.50e2 / 0.27e2 * t1278 + 0.25e2 / 0.81e2 * t2117 * t1332 + 0.250e3 / 0.243e3 * t2123 * t3696 - 0.250e3 / 0.243e3 * t1282;
5018 t3724 = t277 * t3722 * t115;
5019 t3727 = t75 * t1357;
5020 t3728 = t3727 * t282;
5021 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5022 v3rhotau2[5] = -t3655 / 0.2e1 - t1000 * t3664 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t3724 - 0.10155490000000000000e-2 * t1000 * t3728;
5023
5024 t3731 = 0.1e1 / t1467;
5025 t3733 = t3731 * t162 * t48;
5026 t3735 = t3731 * t43;
5027 t3736 = t3735 * t498;
5028 t3738 = t34 * t3731;
5029 t3740 = t3738 * t497 * t1556;
5030 t3744 = t1561 * t48 * t3731 * t1563;
5031 t3746 = 0.65009081429064777297e-4 * t3733 - 0.82443123872288192129e-4 * t3736 + 0.29476164888472104959e-4 * t3740 - 0.37381040614024519844e-4 * t3744;
5032 t3748 = t3131 * t289;
5033 t3750 = t2371 * t1126;
5034 t3752 = t3731 * t1587;
5035 t3753 = t1585 * t3752;
5036 t3755 = t3752 * t523;
5037 t3757 = t1603 * t3752;
5038 t3759 = 0.17843364197530864197e-2 * t3755 + 0.17843364197530864198e-2 * t3757;
5039 t3761 = t3161 * t289;
5040 t3763 = t2383 * t1126;
5041 t3765 = t1622 * t3752;
5042 t3767 = t3746 * t55 + 0.5e1 / 0.24e2 * t3748 + 0.25e2 / 0.1728e4 * t3750 + 0.125e3 / 0.62208e5 * t3753 + t3759 * t63 - 0.5e1 / 0.24e2 * t3761 + 0.25e2 / 0.1728e4 * t3763 - 0.125e3 / 0.62208e5 * t3765;
5043 t3768 = t3767 * t68;
5044 t3771 = 0.3e1 / 0.8e1 * t8 * t18 * t3768;
5045 t3774 = 0.11424926250000000000e-2 * t194 * t3095 * t317;
5046 t3777 = 0.23205144856522500000e-5 * t194 * t777 * t1159;
5047 t3778 = t1488 * t3731;
5048 t3781 = 0.23565961653896568352e-8 * t194 * t124 * t3778;
5049 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5050 v3sigma3[0] = t10 * (-t3771 + t3774 - t3777 + t3781);
5051
5052 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5053 v3sigma3[1] = 0.0e0;
5054
5055 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5056 v3sigma3[2] = 0.0e0;
5057
5058 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5059 v3sigma3[3] = 0.0e0;
5060
5061 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5062 v3sigma3[4] = 0.0e0;
5063
5064 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5065 v3sigma3[5] = 0.0e0;
5066
5067 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5068 v3sigma3[6] = 0.0e0;
5069
5070 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5071 v3sigma3[7] = 0.0e0;
5072
5073 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5074 v3sigma3[8] = 0.0e0;
5075
5076 t3783 = 0.1e1 / t1968;
5077 t3785 = t3783 * t246 * t48;
5078 t3787 = t3783 * t91;
5079 t3788 = t3787 * t710;
5080 t3790 = t87 * t3783;
5081 t3792 = t3790 * t709 * t1556;
5082 t3796 = t2065 * t48 * t3783 * t1563;
5083 t3798 = 0.65009081429064777297e-4 * t3785 - 0.82443123872288192129e-4 * t3788 + 0.29476164888472104959e-4 * t3792 - 0.37381040614024519844e-4 * t3796;
5084 t3800 = t3288 * t323;
5085 t3802 = t2696 * t1170;
5086 t3804 = t3783 * t1587;
5087 t3805 = t2088 * t3804;
5088 t3807 = t3804 * t735;
5089 t3809 = t2104 * t3804;
5090 t3811 = 0.17843364197530864197e-2 * t3807 + 0.17843364197530864198e-2 * t3809;
5091 t3813 = t3318 * t323;
5092 t3815 = t2684 * t1170;
5093 t3817 = t2123 * t3804;
5094 t3819 = t3798 * t102 + 0.5e1 / 0.24e2 * t3800 + 0.25e2 / 0.1728e4 * t3802 + 0.125e3 / 0.62208e5 * t3805 + t3811 * t110 - 0.5e1 / 0.24e2 * t3813 + 0.25e2 / 0.1728e4 * t3815 - 0.125e3 / 0.62208e5 * t3817;
5095 t3820 = t3819 * t115;
5096 t3823 = 0.3e1 / 0.8e1 * t8 * t76 * t3820;
5097 t3826 = 0.11424926250000000000e-2 * t278 * t3222 * t351;
5098 t3829 = 0.23205144856522500000e-5 * t278 * t878 * t1203;
5099 t3830 = t1979 * t3783;
5100 t3833 = 0.23565961653896568352e-8 * t278 * t204 * t3830;
5101 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5102 v3sigma3[9] = t10 * (-t3823 + t3826 - t3829 + t3833);
5103
5104 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5105 v3sigma2lapl[0] = 0.0e0;
5106
5107 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5108 v3sigma2lapl[1] = 0.0e0;
5109
5110 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5111 v3sigma2lapl[2] = 0.0e0;
5112
5113 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5114 v3sigma2lapl[3] = 0.0e0;
5115
5116 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5117 v3sigma2lapl[4] = 0.0e0;
5118
5119 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5120 v3sigma2lapl[5] = 0.0e0;
5121
5122 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5123 v3sigma2lapl[6] = 0.0e0;
5124
5125 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5126 v3sigma2lapl[7] = 0.0e0;
5127
5128 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5129 v3sigma2lapl[8] = 0.0e0;
5130
5131 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5132 v3sigma2lapl[9] = 0.0e0;
5133
5134 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5135 v3sigma2lapl[10] = 0.0e0;
5136
5137 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5138 v3sigma2lapl[11] = 0.0e0;
5139
5140 t3835 = 0.1e1 / t552;
5141 t3837 = t3835 * t162 * t48;
5142 t3839 = t3835 * t43;
5143 t3840 = t3839 * t498;
5144 t3842 = t34 * t3835;
5145 t3844 = t3842 * t497 * t1556;
5146 t3848 = t1561 * t48 * t3835 * t1563;
5147 t3850 = -0.52007265143251821838e-3 * t3837 + 0.65954499097830553705e-3 * t3840 - 0.23580931910777683968e-3 * t3844 + 0.29904832491219615877e-3 * t3848;
5148 t3852 = t3398 * t289;
5149 t3854 = t2886 * t1126;
5150 t3858 = t2371 * t1213;
5151 t3860 = t3835 * t1587;
5152 t3861 = t1585 * t3860;
5153 t3863 = t3860 * t523;
5154 t3865 = t1603 * t3860;
5155 t3867 = -0.14274691358024691358e-1 * t3863 - 0.14274691358024691358e-1 * t3865;
5156 t3869 = t3429 * t289;
5157 t3871 = t2818 * t1126;
5158 t3875 = t2383 * t1213;
5159 t3877 = t1622 * t3860;
5160 t3879 = t3850 * t55 + 0.5e1 / 0.36e2 * t3852 + 0.25e2 / 0.5184e4 * t3854 - 0.5e1 / 0.9e1 * t3131 * t360 - 0.25e2 / 0.324e3 * t3858 - 0.125e3 / 0.7776e4 * t3861 + t3867 * t63 - 0.5e1 / 0.36e2 * t3869 + 0.25e2 / 0.5184e4 * t3871 + 0.5e1 / 0.9e1 * t3161 * t360 - 0.25e2 / 0.324e3 * t3875 + 0.125e3 / 0.7776e4 * t3877;
5161 t3881 = t193 * t3879 * t68;
5162 t3884 = t3455 * t317;
5163 t3887 = t1052 * t1159;
5164 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5165 v3sigma2tau[0] = -0.3e1 / 0.8e1 * t358 * t3881 + 0.76166175000000000000e-3 * t1000 * t3884 - 0.77350482855075000000e-6 * t1000 * t3887;
5166
5167 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5168 v3sigma2tau[1] = 0.0e0;
5169
5170 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5171 v3sigma2tau[2] = 0.0e0;
5172
5173 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5174 v3sigma2tau[3] = 0.0e0;
5175
5176 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5177 v3sigma2tau[4] = 0.0e0;
5178
5179 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5180 v3sigma2tau[5] = 0.0e0;
5181
5182 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5183 v3sigma2tau[6] = 0.0e0;
5184
5185 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5186 v3sigma2tau[7] = 0.0e0;
5187
5188 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5189 v3sigma2tau[8] = 0.0e0;
5190
5191 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5192 v3sigma2tau[9] = 0.0e0;
5193
5194 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5195 v3sigma2tau[10] = 0.0e0;
5196
5197 t3890 = 0.1e1 / t764;
5198 t3892 = t3890 * t246 * t48;
5199 t3894 = t3890 * t91;
5200 t3895 = t3894 * t710;
5201 t3897 = t87 * t3890;
5202 t3899 = t3897 * t709 * t1556;
5203 t3903 = t2065 * t48 * t3890 * t1563;
5204 t3905 = -0.52007265143251821838e-3 * t3892 + 0.65954499097830553705e-3 * t3895 - 0.23580931910777683968e-3 * t3899 + 0.29904832491219615877e-3 * t3903;
5205 t3907 = t3512 * t323;
5206 t3909 = t3063 * t1170;
5207 t3913 = t2696 * t1255;
5208 t3915 = t3890 * t1587;
5209 t3916 = t2088 * t3915;
5210 t3918 = t3915 * t735;
5211 t3920 = t2104 * t3915;
5212 t3922 = -0.14274691358024691358e-1 * t3918 - 0.14274691358024691358e-1 * t3920;
5213 t3924 = t3543 * t323;
5214 t3926 = t3050 * t1170;
5215 t3930 = t2684 * t1255;
5216 t3932 = t2123 * t3915;
5217 t3934 = t3905 * t102 + 0.5e1 / 0.36e2 * t3907 + 0.25e2 / 0.5184e4 * t3909 - 0.5e1 / 0.9e1 * t3288 * t389 - 0.25e2 / 0.324e3 * t3913 - 0.125e3 / 0.7776e4 * t3916 + t3922 * t110 - 0.5e1 / 0.36e2 * t3924 + 0.25e2 / 0.5184e4 * t3926 + 0.5e1 / 0.9e1 * t3318 * t389 - 0.25e2 / 0.324e3 * t3930 + 0.125e3 / 0.7776e4 * t3932;
5218 t3936 = t277 * t3934 * t115;
5219 t3939 = t3569 * t351;
5220 t3942 = t1116 * t1203;
5221 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5222 v3sigma2tau[11] = -0.3e1 / 0.8e1 * t358 * t3936 + 0.76166175000000000000e-3 * t1000 * t3939 - 0.77350482855075000000e-6 * t1000 * t3942;
5223
5224 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5225 v3sigmalapl2[0] = 0.0e0;
5226
5227 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5228 v3sigmalapl2[1] = 0.0e0;
5229
5230 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5231 v3sigmalapl2[2] = 0.0e0;
5232
5233 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5234 v3sigmalapl2[3] = 0.0e0;
5235
5236 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5237 v3sigmalapl2[4] = 0.0e0;
5238
5239 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5240 v3sigmalapl2[5] = 0.0e0;
5241
5242 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5243 v3sigmalapl2[6] = 0.0e0;
5244
5245 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5246 v3sigmalapl2[7] = 0.0e0;
5247
5248 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5249 v3sigmalapl2[8] = 0.0e0;
5250
5251 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5252 v3sigmalapltau[0] = 0.0e0;
5253
5254 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5255 v3sigmalapltau[1] = 0.0e0;
5256
5257 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5258 v3sigmalapltau[2] = 0.0e0;
5259
5260 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5261 v3sigmalapltau[3] = 0.0e0;
5262
5263 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5264 v3sigmalapltau[4] = 0.0e0;
5265
5266 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5267 v3sigmalapltau[5] = 0.0e0;
5268
5269 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5270 v3sigmalapltau[6] = 0.0e0;
5271
5272 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5273 v3sigmalapltau[7] = 0.0e0;
5274
5275 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5276 v3sigmalapltau[8] = 0.0e0;
5277
5278 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5279 v3sigmalapltau[9] = 0.0e0;
5280
5281 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5282 v3sigmalapltau[10] = 0.0e0;
5283
5284 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5285 v3sigmalapltau[11] = 0.0e0;
5286
5287 t3945 = 0.1e1 / t864;
5288 t3947 = t3945 * t162 * t48;
5289 t3949 = t3945 * t43;
5290 t3950 = t3949 * t498;
5291 t3952 = t34 * t3945;
5292 t3954 = t3952 * t497 * t1556;
5293 t3958 = t1561 * t48 * t3945 * t1563;
5294 t3960 = 0.41605812114601457472e-2 * t3947 - 0.52763599278264442964e-2 * t3950 + 0.18864745528622147175e-2 * t3954 - 0.23923865992975692701e-2 * t3958;
5295 t3962 = t3610 * t289;
5296 t3966 = t2886 * t1213;
5297 t3970 = t3945 * t1587;
5298 t3971 = t1585 * t3970;
5299 t3973 = t3970 * t523;
5300 t3975 = t1603 * t3970;
5301 t3977 = 0.11419753086419753086e0 * t3973 + 0.11419753086419753086e0 * t3975;
5302 t3979 = t3633 * t289;
5303 t3983 = t2818 * t1213;
5304 t3987 = t1622 * t3970;
5305 t3989 = t3960 * t55 + 0.5e1 / 0.72e2 * t3962 - 0.10e2 / 0.9e1 * t3398 * t360 - 0.25e2 / 0.324e3 * t3966 + 0.25e2 / 0.81e2 * t2371 * t1297 + 0.125e3 / 0.972e3 * t3971 + t3977 * t63 - 0.5e1 / 0.72e2 * t3979 + 0.10e2 / 0.9e1 * t3429 * t360 - 0.25e2 / 0.324e3 * t3983 + 0.25e2 / 0.81e2 * t2383 * t1297 - 0.125e3 / 0.972e3 * t3987;
5306 t3991 = t193 * t3989 * t68;
5307 t3994 = t3651 * t317;
5308 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5309 v3sigmatau2[0] = -0.3e1 / 0.8e1 * t358 * t3991 + 0.38083087500000000000e-3 * t1000 * t3994;
5310
5311 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5312 v3sigmatau2[1] = 0.0e0;
5313
5314 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5315 v3sigmatau2[2] = 0.0e0;
5316
5317 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5318 v3sigmatau2[3] = 0.0e0;
5319
5320 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5321 v3sigmatau2[4] = 0.0e0;
5322
5323 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5324 v3sigmatau2[5] = 0.0e0;
5325
5326 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5327 v3sigmatau2[6] = 0.0e0;
5328
5329 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5330 v3sigmatau2[7] = 0.0e0;
5331
5332 t3997 = 0.1e1 / t982;
5333 t3999 = t3997 * t246 * t48;
5334 t4001 = t3997 * t91;
5335 t4002 = t4001 * t710;
5336 t4004 = t87 * t3997;
5337 t4006 = t4004 * t709 * t1556;
5338 t4010 = t2065 * t48 * t3997 * t1563;
5339 t4012 = 0.41605812114601457472e-2 * t3999 - 0.52763599278264442964e-2 * t4002 + 0.18864745528622147175e-2 * t4006 - 0.23923865992975692701e-2 * t4010;
5340 t4014 = t3686 * t323;
5341 t4018 = t3063 * t1255;
5342 t4022 = t3997 * t1587;
5343 t4023 = t2088 * t4022;
5344 t4025 = t4022 * t735;
5345 t4027 = t2104 * t4022;
5346 t4029 = 0.11419753086419753086e0 * t4025 + 0.11419753086419753086e0 * t4027;
5347 t4031 = t3709 * t323;
5348 t4035 = t3050 * t1255;
5349 t4039 = t2123 * t4022;
5350 t4041 = t4012 * t102 + 0.5e1 / 0.72e2 * t4014 - 0.10e2 / 0.9e1 * t3512 * t389 - 0.25e2 / 0.324e3 * t4018 + 0.25e2 / 0.81e2 * t2696 * t1332 + 0.125e3 / 0.972e3 * t4023 + t4029 * t110 - 0.5e1 / 0.72e2 * t4031 + 0.10e2 / 0.9e1 * t3543 * t389 - 0.25e2 / 0.324e3 * t4035 + 0.25e2 / 0.81e2 * t2684 * t1332 - 0.125e3 / 0.972e3 * t4039;
5351 t4043 = t277 * t4041 * t115;
5352 t4046 = t3727 * t351;
5353 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5354 v3sigmatau2[8] = -0.3e1 / 0.8e1 * t358 * t4043 + 0.38083087500000000000e-3 * t1000 * t4046;
5355
5356 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5357 v3lapl3[0] = 0.0e0;
5358
5359 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5360 v3lapl3[1] = 0.0e0;
5361
5362 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5363 v3lapl3[2] = 0.0e0;
5364
5365 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5366 v3lapl3[3] = 0.0e0;
5367
5368 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5369 v3lapl2tau[0] = 0.0e0;
5370
5371 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5372 v3lapl2tau[1] = 0.0e0;
5373
5374 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5375 v3lapl2tau[2] = 0.0e0;
5376
5377 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5378 v3lapl2tau[3] = 0.0e0;
5379
5380 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5381 v3lapl2tau[4] = 0.0e0;
5382
5383 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5384 v3lapl2tau[5] = 0.0e0;
5385
5386 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5387 v3lapltau2[0] = 0.0e0;
5388
5389 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5390 v3lapltau2[1] = 0.0e0;
5391
5392 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5393 v3lapltau2[2] = 0.0e0;
5394
5395 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5396 v3lapltau2[3] = 0.0e0;
5397
5398 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5399 v3lapltau2[4] = 0.0e0;
5400
5401 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5402 v3lapltau2[5] = 0.0e0;
5403
5404 t4049 = 0.1e1 / t1120;
5405 t4053 = t4049 * t43;
5406 t4056 = t34 * t4049;
5407 t4064 = -0.33284649691681165977e-1 * t4049 * t162 * t48 + 0.42210879422611554372e-1 * t4053 * t498 - 0.15091796422897717740e-1 * t4056 * t497 * t1556 + 0.19139092794380554160e-1 * t1561 * t48 * t4049 * t1563;
5408 t4070 = t4049 * t1587;
5409 t4077 = -0.91358024691358024692e0 * t4070 * t523 - 0.91358024691358024691e0 * t1603 * t4070;
5410 t4085 = t4064 * t55 - 0.5e1 / 0.3e1 * t3610 * t360 + 0.25e2 / 0.27e2 * t2886 * t1297 - 0.250e3 / 0.243e3 * t1585 * t4070 + t4077 * t63 + 0.5e1 / 0.3e1 * t3633 * t360 + 0.25e2 / 0.27e2 * t2818 * t1297 + 0.250e3 / 0.243e3 * t1622 * t4070;
5411 t4087 = t193 * t4085 * t68;
5412 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5413 v3tau3[0] = -0.3e1 / 0.8e1 * t358 * t4087;
5414
5415 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5416 v3tau3[1] = 0.0e0;
5417
5418 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5419 v3tau3[2] = 0.0e0;
5420
5421 t4090 = 0.1e1 / t1164;
5422 t4094 = t4090 * t91;
5423 t4097 = t87 * t4090;
5424 t4105 = -0.33284649691681165977e-1 * t4090 * t246 * t48 + 0.42210879422611554372e-1 * t4094 * t710 - 0.15091796422897717740e-1 * t4097 * t709 * t1556 + 0.19139092794380554160e-1 * t2065 * t48 * t4090 * t1563;
5425 t4111 = t4090 * t1587;
5426 t4118 = -0.91358024691358024692e0 * t4111 * t735 - 0.91358024691358024691e0 * t2104 * t4111;
5427 t4126 = t4105 * t102 - 0.5e1 / 0.3e1 * t3686 * t389 + 0.25e2 / 0.27e2 * t3063 * t1332 - 0.250e3 / 0.243e3 * t2088 * t4111 + t4118 * t110 + 0.5e1 / 0.3e1 * t3709 * t389 + 0.25e2 / 0.27e2 * t3050 * t1332 + 0.250e3 / 0.243e3 * t2123 * t4111;
5428 t4128 = t277 * t4126 * t115;
5429 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5430 v3tau3[3] = -0.3e1 / 0.8e1 * t358 * t4128;
5431
5432 #ifndef XC_DONT_COMPILE_LXC
5433
5434 if(order < 4) return;
5435
5436
5437 t4150 = -0.32497568000000000000e-1 * t1364 - 0.16248784000000000000e-1 * t1369 - 0.88007660492885333335e-4 * t1375 - 0.54162613333333333335e-2 * t1382 - 0.10832522666666666667e-1 * t1386 + 0.59578874666666666668e-1 * t1390 - 0.2e1 * t1393 - 0.2e1 * t1402 - 0.4e1 * t1406 - 0.2e1 * t1408 - 0.6e1 * t1412 - 0.6e1 * t1415 - 0.2e1 * t1420 - 0.2e1 * t1423 + 0.4e1 / 0.9e1 * t1432 - 0.2e1 / 0.3e1 * t1435 + 0.4e1 / 0.3e1 * t1439 + 0.4e1 / 0.9e1 * t1448 - 0.2e1 / 0.3e1 * t1452;
5438 t4165 = t123 * t1404 * t449;
5439 t4168 = t123 * t430 * t1418;
5440 t4171 = t424 * t1404 * t426;
5441 t4174 = t123 * t1454 * t449;
5442 t4177 = t203 * t572 * t1400;
5443 t4179 = t1395 * t10;
5444 t4181 = t9 / t4179;
5445 t4183 = 0.12e2 * t1396 - 0.12e2 * t4181;
5446 t4192 = t203 * t1437 * t577;
5447 t4194 = t135 * t540;
5448 t4196 = t123 * t4194 * t130;
5449 t4198 = t454 * t188;
5450 t4200 = t123 * t4198 * t130;
5451 t4204 = t448 * t448;
5452 t4209 = t604 * t130;
5453 t4210 = t123 * t4209;
5454 t4212 = t14 * t14;
5455 t4216 = t5 * t7 / t421 / t4212;
5456 t4217 = t425 * t425;
5457 t4223 = t1444 * t430 * t1446;
5458 t4226 = t424 * t1454 * t426;
5459 t4239 = -0.2e1 * t4165 - 0.2e1 / 0.3e1 * t4168 - 0.2e1 / 0.3e1 * t4171 + 0.2e1 / 0.3e1 * t4174 - 0.2e1 / 0.3e1 * t4177 - t203 * t204 * t115 * t4183 / 0.2e1 + 0.4e1 / 0.9e1 * t1444 * t434 * t1446 + 0.2e1 / 0.3e1 * t4192 - 0.2e1 * t4196 + 0.4e1 / 0.3e1 * t4200 - t424 * t1410 * t426 - t424 * t124 * t68 * t4204 / 0.2e1 - 0.20e2 / 0.27e2 * t4210 - 0.5e1 / 0.27e2 * t4216 * t124 * t68 * t4217 + 0.4e1 / 0.27e2 * t4223 + 0.2e1 / 0.9e1 * t4226 - 0.2e1 * t123 * t434 * t1418 + t123 * t124 * t68 * t4183 / 0.2e1 - 0.3e1 * t123 * t1410 * t449;
5460 t4247 = 0.1e1 / t25 / t864;
5461 t4250 = 0.6160e4 / 0.81e2 * tau[0] * t1459 - 0.2618e4 / 0.81e2 * sigma[0] * t4247;
5462 t4251 = t4250 * t35;
5463 t4257 = t472 * t1587;
5464 t4260 = t472 * t472;
5465 t4261 = t4260 * t152;
5466 t4264 = t477 * t477;
5467 t4267 = t1602 * t35 * t40;
5468 t4272 = t54 / t1601 / t57;
5469 t4275 = t1587 * t35 * t40;
5470 t4278 = t2823 * t472;
5471 t4281 = t4261 * t155;
5472 t4284 = t828 * t1528;
5473 t4287 = t4251 * t40;
5474 t4292 = 0.0;
5475 t4293 = t61 * t4292;
5476 t4303 = 0.0;
5477 t4304 = t52 * t4303;
5478 t4318 = t529 * t534;
5479 t4321 = (-0.82222222222222222222e-1 * t4251 * t174 + 0.36543209876543209876e0 * t1528 * t152 * t824 - 0.54814814814814814815e1 * t4257 * t2274 + 0.27407407407407407407e0 * t4261 * t519 + 0.20301783264746227709e1 * t4264 * t1587 * t4267 + 0.20301783264746227709e1 * t4272 * t4264 * t4275 - 0.54814814814814814814e1 * t1603 * t4278 + 0.27407407407407407407e0 * t524 * t4281 + 0.36543209876543209876e0 * t1606 * t4284 - 0.82222222222222222222e-1 * t179 * t4287) * t63 + 0.1250e4 / 0.2187e4 * t4293 * t4264 * t4275 + 0.25e2 / 0.27e2 * t535 * t4281 + 0.100e3 / 0.81e2 * t841 * t4284 + 0.100e3 / 0.27e2 * t2349 * t1534 + 0.1250e4 / 0.2187e4 * t4304 * t4264 * t4275 + 0.25e2 / 0.27e2 * t512 * t4281 + 0.100e3 / 0.81e2 * t817 * t4284 + 0.100e3 / 0.27e2 * t2354 * t1534 + 0.5e1 / 0.9e1 * t185 * t4287 + 0.10e2 / 0.3e1 * t1613 * t474 + 0.50e2 / 0.27e2 * t4318 * t483;
5480 t4332 = t1611 * t184;
5481 t4335 = t1574 * t170;
5482 t4340 = t506 * t511;
5483 t4345 = t48 * t152;
5484 t4346 = t4345 * t155;
5485 t4370 = 0.1e1 / t1559 / t45;
5486 t4371 = t495 * t4370;
5487 t4399 = t477 * t35;
5488 t4400 = t40 * t472;
5489 t4407 = -0.27371454575003443189e-1 * t34 * t4264 * t1560 * t4346 + 0.42210879422611554372e-1 * t495 * t498 * t4260 + 0.56281172563482072496e-1 * t802 * t164 * t1528 + 0.5e1 / 0.9e1 * t4287 * t49 - 0.15890370370370370370e1 * t4284 * t158 - 0.11917777777777777778e1 * t4261 * t480 + 0.76556371177522216641e-1 * t4264 * t43 * t1560 * t1556 - 0.19862962962962962963e0 * t156 * t4250 * t46 * t48 + 0.34711892100090877548e-1 * t4371 * t48 * t4264 * t828 + 0.25189783950617283951e0 * t156 * t163 * t48 * t4250 + 0.20151827160493827160e1 * t4284 * t165 + 0.15113870370370370370e1 * t4281 * t484 - 0.90550778537386306439e-1 * t1550 * t497 * t2309 + 0.25326527653566932623e0 * t472 * t43 * t499 - 0.60367185691590870959e-1 * t4264 * t497 * t1556 - 0.44379532922241554636e-1 * t34 * t1528 * t799 - 0.33284649691681165977e-1 * t34 * t4260 * t492 + 0.11483455676628332496e0 * t2324 * t4399 * t4400 - 0.19970789815008699586e0 * t472 * t477 * t492;
5490 t4409 = t168 * t1584;
5491 t4412 = t182 * t1621;
5492 t4415 = 0.20e2 / 0.9e1 * t531 * t1530 + 0.500e3 / 0.81e2 * t1622 * t4278 - 0.20e2 / 0.9e1 * t508 * t1530 - 0.500e3 / 0.81e2 * t1585 * t4278 - 0.5e1 / 0.9e1 * t171 * t4287 + 0.20e2 / 0.9e1 * t4332 * t149 - 0.20e2 / 0.9e1 * t4335 * t149 - 0.10e2 / 0.3e1 * t1576 * t474 + 0.50e2 / 0.27e2 * t4340 * t483 + t4407 * t55 - 0.1000e4 / 0.243e3 * t4409 * t1588 + 0.1000e4 / 0.243e3 * t4412 * t1588;
5493 t4422 = t8 * t1514 * t189;
5494 t4425 = t8 * t455 * t541;
5495 t4430 = 0.10e2 / 0.27e2 * t8 * t75 * t1672 * t116;
5496 t4434 = 0.10e2 / 0.27e2 * t8 * t16 * t1672 * t69;
5497 t4440 = t194 * t1404 * t559;
5498 t4443 = t194 * t1454 * t555;
5499 t4446 = t194 * t430 * t1470;
5500 t4448 = t604 * t198;
5501 t4449 = t194 * t4448;
5502 t4452 = t194 * t1454 * t559;
5503 t4458 = t194 * t430 * t1493;
5504 t4460 = t1467 * t467;
5505 t4470 = t194 * t1404 * t555;
5506 t4476 = 0.1e1 / t1487 / t67;
5507 t4477 = t550 * t550;
5508 t4489 = -0.54162613333333333336e-2 * t1378 * t439 * t129 * t1367 - 0.3e1 / 0.8e1 * t8 * t18 * (t4415 + t4321) * t68 - 0.5e1 / 0.9e1 * t4422 + t4425 / 0.2e1 + t4430 + t4434 + 0.98470640074074074075e-1 * t194 * t124 * t197 * t4247 + 0.14894718666666666667e-1 * t4440 + 0.73339717077404444446e-5 * t4443 + 0.80673688785144888891e-4 * t4446 - 0.15045170370370370371e-2 * t4449 - 0.49649062222222222222e-2 * t4452 + 0.24202106635543466667e-3 * t194 * t434 * t1470 - 0.59584061070592804923e-7 * t4458 + 0.98313700766478128122e-6 * t194 * t124 * t1490 / t4460 + 0.22342078000000000000e-1 * t194 * t1410 * t559 - 0.22001915123221333333e-4 * t4470 - 0.17875218321177841476e-6 * t194 * t434 * t1493 - 0.48408426908943561959e-9 * t194 * t124 * t4476 * t4477 / t25 / t1467 / t864 - 0.33002872684832000000e-4 * t194 * t1410 * t555;
5509 t4492 = t194 * t4194 * t198;
5510 t4499 = t566 * t572 * t1477;
5511 t4506 = t194 * t4198 * t198;
5512 t4508 = t17 * t1629;
5513 t4513 = t194 * t430 * t1460;
5514 t4533 = t424 * t430 * t1506;
5515 t4538 = t73 * t73;
5516 t4542 = t5 * t7 / t563 / t4538;
5517 t4543 = t567 * t567;
5518 t4549 = t1428 * t572 * t1430;
5519 t4552 = t566 * t1437 * t568;
5520 t4554 = t576 * t576;
5521 t4559 = t619 * t206;
5522 t4560 = t203 * t4559;
5523 t4565 = t540 * t196;
5524 t4569 = -0.40621960000000000001e-2 * t4492 + 0.2e1 / 0.3e1 * t1428 * t204 * t568 * t576 - 0.2e1 / 0.3e1 * t4499 - 0.2e1 / 0.3e1 * t566 * t204 * t206 * t1399 + 0.27081306666666666668e-2 * t4506 - 0.40621960000000000000e-2 * t194 * t4508 * t198 - 0.23169562370370370371e-1 * t4513 - 0.69508687111111111111e-1 * t194 * t434 * t1460 - 0.59832985848982459261e-3 * t194 * t124 * t551 / t24 / t3210 - 0.2e1 / 0.3e1 * t424 * t124 * t130 * t1417 + 0.2e1 / 0.3e1 * t1444 * t124 * t426 * t448 - 0.2e1 / 0.3e1 * t4533 - 0.2e1 * t424 * t434 * t1506 - 0.5e1 / 0.27e2 * t4542 * t204 * t115 * t4543 + 0.4e1 / 0.27e2 * t4549 + 0.2e1 / 0.9e1 * t4552 - t566 * t204 * t115 * t4554 / 0.2e1 - 0.20e2 / 0.27e2 * t4560 - 0.2e1 * t123 * t4508 * t130 - 0.16248784000000000000e-1 * t438 * t4565 * t441;
5525 t4579 = t1385 * t1389;
5526 t4586 = t8 * t136 * t1630;
5527 t4596 = t1385 * t1374;
5528 t4599 = t5 * t122 * t454;
5529 t4600 = t4599 * t442;
5530 t4603 = t5 * t1443 * t17;
5531 t4609 = t65 * t1488;
5532 t4615 = t1385 * t1363;
5533 t4617 = t188 * t549;
5534 t4637 = t1385 * t1368;
5535 t4640 = t5 * t423 * t135;
5536 t4641 = t4640 * t1381;
5537 t4646 = -0.14667943415480888890e-4 * t1378 * t1371 * t425 * t550 * t554 + 0.99298124444444444448e-2 * t1378 * t439 * t1379 * t469 + 0.19859624888888888889e-1 * t4579 - 0.92678249481481481484e-1 * t438 * t439 * t440 * t1459 - t4586 / 0.2e1 + 0.29789437333333333334e-1 * t438 * t439 * t1366 * t469 + 0.32269475514057955556e-3 * t438 * t1371 * t1372 * t1469 - 0.29335886830961777778e-4 * t4596 + 0.36108408888888888889e-2 * t4600 + 0.12036136296296296297e-2 * t4603 * t439 * t1445 * sigma[0] * t144 - 0.23833624428237121969e-6 * t438 * t4609 * t1489 * t1492 * t129 - 0.10832522666666666667e-1 * t4615 - 0.88007660492885333335e-4 * t438 * t4617 * t1373 - 0.44003830246442666668e-4 * t438 * t1371 * t448 * t550 * t554 - 0.54162613333333333335e-2 * t438 * t439 * t1417 * sigma[0] * t144 - 0.54162613333333333335e-2 * t1378 * t1362 * t1380 - 0.16248784000000000000e-1 * t438 * t1362 * t1367 - 0.54162613333333333335e-2 * t4637 - 0.18054204444444444445e-2 * t4641 + 0.59578874666666666668e-1 * t438 * t1362 * t1388;
5538 t4650 = 0.5e1 / 0.9e1 * t1512;
5539 t4651 = 0.5e1 / 0.9e1 * t1516;
5540 t4654 = 0.4e1 / 0.3e1 * t1456 - 0.69508687111111111111e-1 * t1462 + 0.44684156000000000000e-1 * t1465 + 0.24202106635543466667e-3 * t1472 + 0.14894718666666666667e-1 * t1475 - 0.2e1 * t1479 - 0.12186588000000000000e-1 * t1482 - 0.66005745369664000000e-4 * t1485 - 0.17875218321177841476e-6 * t1495 - 0.81243920000000000002e-2 * t1498 - 0.22001915123221333334e-4 * t1501 + 0.27081306666666666668e-2 * t1504 - 0.2e1 * t1508 + t10 * (t4646 + t4569 + t4489 + t4239) - t4650 - t4651 + t1519 - 0.3e1 / 0.2e1 * t1522 - 0.3e1 / 0.2e1 * t1632;
5541 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5542 v4rho4[0] = t4654 + t4150;
5543
5544 t4678 = -t4165 / 0.2e1 - t4168 / 0.6e1 - t4171 / 0.6e1 + t4174 / 0.3e1 - t4177 / 0.6e1 + t4192 / 0.3e1 - t4196 / 0.2e1 + 0.2e1 / 0.3e1 * t4200 - 0.5e1 / 0.9e1 * t4210 + t4223 / 0.27e2 + t4226 / 0.9e1 - 0.13540653333333333333e-2 * t1775 * t634 * sigma[2] * t231 * t576 * t205 + 0.90271022222222222224e-3 * t4603 * t1657 * t1380;
5545 t4683 = t5 * t423 * t603;
5546 t4706 = t424 * t430 * t1738;
5547 t4720 = t1428 * t572 * t1720;
5548 t4723 = t566 * t1437 * t612;
5549 t4724 = t4723 / 0.9e1;
5550 t4725 = 0.49649062222222222224e-2 * t1378 * t1657 * t1388 - 0.27081306666666666667e-2 * t4683 * t439 * t9 * t441 - 0.27081306666666666668e-2 * t1378 * t1362 * t217 * t441 - 0.13540653333333333334e-2 * t1378 * t1657 * t1367 - 0.73339717077404444448e-5 * t1378 * t1371 * t217 * t1373 - 0.5e1 / 0.12e2 * t4422 + t4425 / 0.4e1 - 0.5e1 / 0.27e2 * t4216 * t124 * t218 * t1445 - t4706 / 0.6e1 - t424 * t604 * t605 * t448 / 0.2e1 + t1444 * t434 * t1704 / 0.3e1 - 0.5e1 / 0.27e2 * t4542 * t204 * t223 * t1429 + t4720 / 0.9e1 + t4724;
5551 t4727 = t619 * t282;
5552 t4728 = t278 * t4727;
5553 t4737 = t424 * t1404 * t587;
5554 t4747 = t566 * t572 * t1727;
5555 t4750 = t566 * t1680 * t1731;
5556 t4756 = t1444 * t430 * t1704;
5557 t4764 = t8 * t74 * t1672 * t116;
5558 t4767 = t8 * t1510 * t273;
5559 t4772 = -0.37612925925925925925e-3 * t4728 + t566 * t619 * t620 * t576 / 0.2e1 - 0.40621960000000000002e-2 * t123 * t4448 - t4737 / 0.3e1 - t424 * t1410 * t587 / 0.2e1 - t1428 * t619 * t620 * t567 / 0.3e1 - t4747 / 0.6e1 - 0.7e1 / 0.6e1 * t4750 - t566 * t625 * t1477 / 0.2e1 + t4756 / 0.9e1 + t1444 * t604 * t605 * t425 / 0.3e1 - 0.5e1 / 0.2e1 * t4764 - 0.5e1 / 0.36e2 * t4767 - 0.3e1 / 0.2e1 * t8 * t1754 * t189;
5560 t4781 = t424 * t1454 * t587;
5561 t4782 = t4781 / 0.9e1;
5562 t4784 = t424 * t1673 * t1711;
5563 t4798 = t4430 + t4434 - t424 * t434 * t1738 / 0.2e1 - t424 * t124 * t218 * t1417 / 0.6e1 + t4782 + 0.7e1 / 0.6e1 * t4784 - t424 * t1677 * t1711 - t566 * t204 * t223 * t1399 / 0.6e1 + 0.37236796666666666668e-2 * t4440 + 0.36669858538702222224e-5 * t4443 + 0.20168422196286222223e-4 * t4446 - 0.11283877777777777778e-2 * t4449 - 0.24824531111111111112e-2 * t4452 - 0.14896015267648201231e-7 * t4458;
5564 t4810 = t619 * t223;
5565 t4811 = t203 * t4810;
5566 t4813 = t604 * t218;
5567 t4814 = t123 * t4813;
5568 t4817 = 0.1e1 / t134 / t1395;
5569 t4820 = t123 * t4817 * t65 * t605;
5570 t4825 = -0.55004787808053333335e-5 * t4470 - 0.10155490000000000000e-2 * t4492 - t4499 / 0.6e1 + 0.13540653333333333334e-2 * t4506 - 0.57923905925925925928e-2 * t4513 - t4533 / 0.6e1 + t4549 / 0.27e2 + t4552 / 0.9e1 - 0.5e1 / 0.9e1 * t4560 - 0.5e1 / 0.27e2 * t4811 - 0.5e1 / 0.27e2 * t4814 - 0.25e2 / 0.6e1 * t4820 + t1428 * t625 * t1430 / 0.9e1;
5571 t4827 = t566 * t1661 * t568;
5572 t4834 = t123 * t4198 * t218;
5573 t4835 = t4834 / 0.3e1;
5574 t4838 = t123 * t1672 * t188 * t605;
5575 t4842 = t203 * t4817 * t112 * t620;
5576 t4845 = t203 * t1661 * t577;
5577 t4850 = t123 * t4194 * t218;
5578 t4860 = t454 * t272;
5579 t4862 = t203 * t4860 * t206;
5580 t4863 = t4862 / 0.3e1;
5581 t4864 = t4640 * t1658;
5582 t4866 = t4599 * t599;
5583 t4868 = -t4827 / 0.6e1 - 0.3e1 / 0.2e1 * t123 * t603 * t540 * t605 + t4835 + 0.7e1 / 0.2e1 * t4838 + 0.25e2 / 0.6e1 * t4842 - t4845 / 0.2e1 - t424 * t4209 / 0.2e1 - t4850 / 0.2e1 - t123 * t4508 * t218 / 0.2e1 + t566 * t4559 / 0.2e1 - t203 * t625 * t1400 / 0.2e1 + t4863 - 0.90271022222222222225e-3 * t4864 + 0.90271022222222222224e-3 * t4866;
5584 t4870 = t1385 * t1786;
5585 t4876 = t5 * t1427 * t17;
5586 t4877 = t222 * t205;
5587 t4895 = t5 * t202 * t454;
5588 t4896 = t4895 * t636;
5589 t4906 = t1385 * t1760;
5590 t4917 = t1781 * t1654;
5591 t4922 = -0.27081306666666666668e-2 * t4870 - 0.40621960000000000002e-2 * t438 * t4565 * t598 + t4876 * t116 * t4877 * t576 / 0.3e1 - 0.22001915123221333335e-4 * t438 * t4617 * t1759 - 0.59584061070592804925e-7 * t438 * t4609 * t217 * t1489 * t1492 - 0.13540653333333333333e-2 * t633 * t634 * t232 * t1399 + 0.90271022222222222221e-3 * t4896 - 0.23169562370370370372e-1 * t438 * t439 * t597 * t1459 + 0.14894718666666666667e-1 * t1768 * t439 * t1769 * t469 - 0.73339717077404444448e-5 * t4906 + 0.80673688785144888894e-4 * t438 * t1371 * t1758 * t1469 - 0.22001915123221333335e-4 * t1768 * t1371 * t9 * t550 * t554 - 0.13540653333333333333e-2 * t4917 + 0.14894718666666666667e-1 * t438 * t1362 * t1763;
5592 t4930 = t5 * t122 * t1672 * t1771;
5593 t4940 = t5 * t565 * t135;
5594 t4941 = t4940 * t1777;
5595 t4943 = t1385 * t1764;
5596 t4949 = t8 * t15 * t1672 * t69;
5597 t4956 = t4603 * t69 * t217 * t448 * t129 / 0.3e1 + 0.94784573333333333338e-2 * t4930 - 0.81243920000000000003e-2 * t1768 * t1362 * t1770 + 0.30090340740740740740e-3 * t4876 * t634 * t232 * t1429 - 0.45135511111111111110e-3 * t4941 + 0.49649062222222222224e-2 * t4943 + 0.49649062222222222223e-2 * t4579 - t4586 / 0.8e1 + 0.5e1 / 0.2e1 * t4949 - 0.73339717077404444447e-5 * t4596 + 0.18054204444444444444e-2 * t4600 - 0.27081306666666666667e-2 * t4615 - 0.13540653333333333334e-2 * t4637 - 0.45135511111111111112e-3 * t4641;
5598 t4965 = -t1365 - t1370 - t1376 - t1383 - 0.54162613333333333334e-2 * t1386 - 0.40621959999999999999e-2 * t1655 - 0.27081306666666666667e-2 * t1659 + t10 * (t4956 + t4922 + t4868 + t4825 + t4798 + t4772 + t4725 + t4678) + t1391 - t1663 + t1953 + t1954 + 0.7e1 / 0.2e1 * t1675 - 0.3e1 * t1679 - 0.7e1 / 0.2e1 * t1682 - 0.3e1 / 0.2e1 * t1685 - t1688;
5599 t4972 = t1709 / 0.3e1;
5600 t4973 = -0.3e1 / 0.2e1 * t1691 - t1695 / 0.2e1 - t1393 - t1403 - 0.2e1 * t1406 - t1408 - t1413 - t1416 - t1421 - t1424 + t1433 - t1435 / 0.3e1 + t1439 + t1449 - t1452 / 0.3e1 + t1456 + t1706 / 0.3e1 - t4972;
5601 t4977 = t1725 / 0.3e1;
5602 t4982 = -t1713 + 0.67703266666666666666e-3 * t1716 + t1722 / 0.3e1 - t4977 - t1729 / 0.2e1 + t1733 - t1736 - t1740 / 0.2e1 - t1463 + t1466 + t1473 + 0.74473593333333333333e-2 * t1475 - t1480 - t1483 - t1486 - t1496 - 0.40621960000000000001e-2 * t1498;
5603 t4992 = 0.27081306666666666667e-2 * t1784;
5604 t4996 = -0.11000957561610666667e-4 * t1501 + 0.20310980000000000000e-2 * t1504 - t1509 + 0.3e1 / 0.2e1 * t1748 + t2136 - 0.3e1 / 0.2e1 * t1756 - 0.22001915123221333335e-4 * t1761 + 0.14894718666666666667e-1 * t1765 - 0.81243920000000000003e-2 * t1772 - 0.13540653333333333333e-2 * t1778 - 0.27081306666666666666e-2 * t1782 - t4992 - 0.81243920000000000003e-2 * t1787 - t4650 - t4651 + 0.3e1 / 0.4e1 * t1519 - 0.3e1 / 0.4e1 * t1522 - t1633;
5605 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5606 v4rho4[1] = t4996 + t4982 + t4973 + t4965;
5607
5608 t5015 = -0.18054204444444444445e-2 * t1386 - 0.27081306666666666667e-2 * t1655 - 0.18054204444444444445e-2 * t1813 - 0.18054204444444444445e-2 * t1659 - 0.2e1 / 0.3e1 * t1816 - t1819 / 0.3e1 - t1822 / 0.3e1 - t1825 / 0.9e1 - t1828 / 0.9e1 - 0.4e1 / 0.3e1 * t1663 + 0.2e1 / 0.3e1 * t1666 + 0.2e1 / 0.3e1 * t1669 + 0.5e1 / 0.3e1 * t1675 - 0.2e1 * t1679 - 0.5e1 / 0.3e1 * t1682 - t1685 - 0.4e1 / 0.3e1 * t1688 - t1691 - t1695 / 0.3e1;
5609 t5032 = -t1393 / 0.3e1 - 0.2e1 / 0.3e1 * t1406 - t1408 / 0.3e1 - t1435 / 0.9e1 + 0.2e1 / 0.3e1 * t1439 - t1452 / 0.9e1 + 0.2e1 / 0.3e1 * t1456 - t1839 + 0.2e1 * t1843 - t1848 - t1851 / 0.3e1 - t1854 - t1859 - 0.2e1 / 0.3e1 * t1862 - t1866 / 0.3e1 - t1870 / 0.3e1 + 0.2e1 / 0.9e1 * t1874 + 0.2e1 / 0.3e1 * t1880 + 0.2e1 / 0.9e1 * t1884 - 0.13540653333333333333e-2 * t1887;
5610 t5052 = t278 * t1437 * t767;
5611 t5055 = t278 * t1437 * t771;
5612 t5075 = t566 * t1680 * t1878;
5613 t5081 = t566 * t1661 * t612;
5614 t5088 = t566 * t572 * t1864;
5615 t5095 = t424 * t430 * t1868;
5616 t5101 = 0.12223286179567407407e-5 * t5052 - 0.82748437037037037040e-3 * t5055 + 0.27081306666666666667e-2 * t203 * t4727 - t424 * t434 * t1868 / 0.3e1 - t424 * t124 * t1857 * t129 / 0.3e1 - t424 * t124 * t653 * t448 / 0.6e1 + t1428 * t204 * t658 * t576 / 0.9e1 - 0.7e1 / 0.9e1 * t5075 + 0.2e1 / 0.9e1 * t1428 * t625 * t1720 - 0.2e1 / 0.9e1 * t5081 + t1428 * t204 * t671 * t567 / 0.9e1 - t5088 / 0.9e1 + t1444 * t124 * t653 * t425 / 0.9e1 - t5095 / 0.9e1 - 0.5e1 / 0.27e2 * t4542 * t204 * t658 * t567;
5617 t5103 = t1428 * t572 * t1872;
5618 t5110 = t1444 * t430 * t1882;
5619 t5113 = t424 * t1673 * t1895;
5620 t5116 = t278 * t4860 * t282;
5621 t5143 = 0.2e1 / 0.27e2 * t5103 - 0.5e1 / 0.27e2 * t4216 * t124 * t647 * t425 + 0.2e1 / 0.27e2 * t5110 + 0.7e1 / 0.9e1 * t5113 + 0.45135511111111111111e-3 * t5116 + t4174 / 0.9e1 + t4192 / 0.9e1 + 0.2e1 / 0.9e1 * t4200 - 0.10e2 / 0.27e2 * t4210 + t4226 / 0.27e2 - 0.2e1 / 0.3e1 * t424 * t1677 * t1895 + 0.2e1 / 0.9e1 * t1444 * t434 * t1882 + t1444 * t124 * t647 * t448 / 0.9e1 - t566 * t625 * t1727 / 0.3e1 + 0.2e1 / 0.3e1 * t566 * t1841 * t1731 - t566 * t204 * t1846 * t205 / 0.3e1;
5622 t5162 = -t566 * t204 * t671 * t576 / 0.6e1 - 0.5e1 / 0.18e2 * t4422 + t4425 / 0.12e2 - t4706 / 0.9e1 + 0.2e1 / 0.27e2 * t4720 + 0.4e1 / 0.27e2 * t4723 - 0.75225851851851851852e-3 * t4728 - 0.2e1 / 0.9e1 * t4737 - t4747 / 0.9e1 + 0.2e1 / 0.9e1 * t4750 + 0.2e1 / 0.27e2 * t4756 + t4764 / 0.3e1 - 0.5e1 / 0.18e2 * t4767 + t4430 + t4434 + 0.4e1 / 0.27e2 * t4781;
5623 t5179 = -0.2e1 / 0.9e1 * t4784 + 0.12223286179567407408e-5 * t4443 - 0.75225851851851851853e-3 * t4449 - 0.82748437037037037039e-3 * t4452 + 0.45135511111111111112e-3 * t4506 + t4552 / 0.27e2 - 0.10e2 / 0.27e2 * t4560 - 0.10e2 / 0.27e2 * t4811 - 0.10e2 / 0.27e2 * t4814 - 0.41e2 / 0.9e1 * t4820 - t4827 / 0.9e1 + 0.4e1 / 0.9e1 * t4834 - 0.2e1 / 0.3e1 * t4838 + 0.41e2 / 0.9e1 * t4842 - t4845 / 0.3e1 - t4850 / 0.3e1;
5624 t5189 = t4940 * t1812;
5625 t5195 = t5 * t565 * t603;
5626 t5230 = t1385 * t1908;
5627 t5232 = 0.4e1 / 0.9e1 * t4862 - 0.18054204444444444445e-2 * t4683 * t1657 * t1770 + 0.60180681481481481482e-3 * t4876 * t1811 * t1776 - 0.60180681481481481482e-3 * t5189 - 0.90271022222222222223e-3 * t1775 * t1811 * t1653 + 0.18054204444444444445e-2 * t5195 * t634 * t9 * t635 - 0.90271022222222222225e-3 * t1378 * t439 * t652 * t441 + 0.60180681481481481482e-3 * t4603 * t439 * t646 * t441 - 0.60180681481481481482e-3 * t4864 - 0.90271022222222222224e-3 * t1378 * t1362 * t1935 - 0.24446572359134814816e-5 * t1378 * t1371 * t646 * t550 * t554 - 0.27081306666666666668e-2 * t438 * t1362 * t1907 - 0.27081306666666666668e-2 * t438 * t439 * t1856 * sigma[0] * t144 - 0.73339717077404444449e-5 * t438 * t1371 * t652 * t550 * t554 - 0.90271022222222222225e-3 * t5230;
5628 t5239 = t4640 * t1936;
5629 t5252 = t4895 * t667;
5630 t5260 = t5 * t202 * t1672 * t1931;
5631 t5270 = t1781 * t1920;
5632 t5276 = t1781 * t1924;
5633 t5280 = t217 * t129;
5634 t5288 = t1781 * t1914;
5635 t5290 = -0.4e1 / 0.9e1 * t5 * t1427 * t603 * t116 * t4877 * t9 - 0.30090340740740740742e-3 * t5239 - 0.27081306666666666667e-2 * t633 * t1913 * t1653 - 0.73339717077404444445e-5 * t633 * t1917 * t1918 * t576 + 0.49649062222222222223e-2 * t633 * t634 * t682 * t576 + 0.60180681481481481482e-3 * t5252 + 0.49649062222222222225e-2 * t438 * t439 * t1906 * t469 - 0.63189715555555555557e-2 * t5260 + 0.16549687407407407408e-2 * t1378 * t439 * t1934 * t469 - 0.24446572359134814815e-5 * t1775 * t1917 * t1918 * t567 - 0.48893144718269629630e-5 * t5270 + 0.16549687407407407408e-2 * t1775 * t634 * t682 * t567 + 0.33099374814814814816e-2 * t5276 + 0.4e1 / 0.9e1 * t5 * t1443 * t603 * t69 * t5280 * t9 - 0.90271022222222222223e-3 * t1775 * t1913 * t1776 - 0.18054204444444444444e-2 * t5288;
5636 t5301 = t8 * t581 * t753;
5637 t5312 = t135 * t752;
5638 t5314 = t203 * t5312 * t206;
5639 t5318 = 0.12036136296296296296e-2 * t4866 - 0.18054204444444444445e-2 * t4870 + 0.12036136296296296296e-2 * t4896 - 0.48893144718269629631e-5 * t4906 - 0.90271022222222222222e-3 * t4917 - 0.18054204444444444445e-2 * t4930 - 0.30090340740740740741e-3 * t4941 + 0.33099374814814814815e-2 * t4943 + t5301 / 0.12e2 + t8 * t1746 * t273 - t4949 / 0.3e1 + 0.60180681481481481482e-3 * t4600 - t424 * t4813 / 0.3e1 - t566 * t1837 * t568 / 0.6e1 - t5314 / 0.3e1 + t566 * t4810 / 0.3e1;
5640 t5320 = t424 * t1454 * t647;
5641 t5323 = t203 * t4860 * t223;
5642 t5326 = t203 * t1437 * t671;
5643 t5329 = t123 * t1454 * t653;
5644 t5332 = t566 * t1437 * t658;
5645 t5335 = 0.1e1 / t134 / t4179;
5646 t5337 = t9 * t9;
5647 t5356 = t424 * t1404 * t647;
5648 t5363 = t203 * t1672 * t272 * t620;
5649 t5366 = t203 * t572 * t1846;
5650 t5369 = t123 * t1404 * t653;
5651 t5372 = t123 * t430 * t1857;
5652 t5374 = t5320 / 0.27e2 + 0.2e1 / 0.9e1 * t5323 + t5326 / 0.9e1 + t5329 / 0.9e1 + t5332 / 0.27e2 - t424 * t5335 * t65 * t68 * t5337 / 0.3e1 - t424 * t1410 * t647 / 0.6e1 - t123 * t1410 * t653 / 0.2e1 - t123 * t434 * t1857 - t566 * t5335 * t112 * t115 * t5337 / 0.3e1 - t5356 / 0.9e1 - t203 * t1837 * t577 / 0.2e1 - 0.7e1 / 0.3e1 * t5363 - t5366 / 0.3e1 - t5369 / 0.3e1 - t5372 / 0.3e1;
5653 t5380 = -0.36669858538702222222e-5 * t1890 + 0.24824531111111111112e-2 * t1893 - 0.2e1 / 0.3e1 * t1897 + 0.2e1 / 0.9e1 * t1706 - 0.4e1 / 0.9e1 * t1709 - 0.2e1 / 0.3e1 * t1713 + 0.13540653333333333333e-2 * t1716 + 0.2e1 / 0.9e1 * t1722 - 0.4e1 / 0.9e1 * t1725 - t1729 / 0.3e1 + 0.2e1 / 0.3e1 * t1733 - 0.2e1 / 0.3e1 * t1736 - t1740 / 0.3e1 + 0.24824531111111111112e-2 * t1475 - 0.13540653333333333334e-2 * t1498 - 0.36669858538702222223e-5 * t1501 + 0.13540653333333333334e-2 * t1504 + t10 * (t5374 + t5318 + t5290 + t5232 + t5179 + t5162 + t5143 + t5101) - t1902 / 0.4e1 + t1748;
5654 t5398 = t1751 / 0.2e1 - t1756 - 0.27081306666666666668e-2 * t1909 - 0.18054204444444444445e-2 * t1911 - 0.54162613333333333334e-2 * t1915 - 0.14667943415480888889e-4 * t1921 + 0.99298124444444444446e-2 * t1925 + 0.54162613333333333334e-2 * t1932 - 0.90271022222222222224e-3 * t1937 - 0.14667943415480888889e-4 * t1761 + 0.99298124444444444446e-2 * t1765 - 0.54162613333333333334e-2 * t1772 - 0.90271022222222222223e-3 * t1778 - 0.36108408888888888888e-2 * t1782 - 0.36108408888888888890e-2 * t1784 - 0.54162613333333333334e-2 * t1787 - t4650 - t4651 + t1519 / 0.2e1 - t1522 / 0.4e1;
5655 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5656 v4rho4[2] = t5398 + t5380 + t5032 + t5015;
5657
5658 t5404 = -0.27081306666666666667e-2 * t1813 - 0.2e1 * t1816 - t1819 - t1822 - t1825 / 0.3e1 - t1828 / 0.3e1 - t1663 + t1666 + t1669 - t1675 + t1682 - t1688 + t1440 + t1457 - t1958 - t1964 + t1967;
5659 t5411 = t1974 - t1977 - t1987 - t1990 - t1994 - t2000 - t2005 - t2008 - t2012 + t2017 + t2022 - t2025 - 0.3e1 / 0.2e1 * t1839 + 0.3e1 * t1843 - 0.3e1 / 0.2e1 * t1848 - t1851 / 0.2e1 - 0.3e1 / 0.2e1 * t1854 - 0.3e1 / 0.2e1 * t1859;
5660 t5446 = t278 * t572 * t1971;
5661 t5449 = t278 * t572 * t1961;
5662 t5452 = t278 * t1661 * t771;
5663 t5455 = t566 * t572 * t1955;
5664 t5462 = t278 * t5312 * t282;
5665 t5465 = t424 * t430 * t1991;
5666 t5471 = -0.5e1 / 0.27e2 * t4542 * t204 * t2014 * t205 - t1428 * t619 * t658 * t9 / 0.3e1 - t566 * t204 * t223 * t1845 / 0.2e1 + t566 * t619 * t620 * t670 / 0.2e1 - 0.5e1 / 0.27e2 * t4216 * t124 * t2019 * t129 - t424 * t434 * t1991 / 0.2e1 + 0.20168422196286222223e-4 * t5446 - 0.57923905925925925927e-2 * t5449 + 0.37236796666666666667e-2 * t5452 - t5455 / 0.6e1 + t1444 * t604 * t647 * t9 / 0.3e1 - 0.10155490000000000000e-2 * t5462 - t5465 / 0.6e1 - t424 * t604 * t605 * t652 / 0.2e1;
5667 t5473 = t278 * t1661 * t767;
5668 t5476 = t278 * t572 * t1984;
5669 t5506 = -0.55004787808053333333e-5 * t5473 - 0.14896015267648201231e-7 * t5476 + t1428 * t625 * t1872 / 0.3e1 + t566 * t1841 * t1878 - t566 * t1837 * t612 / 0.2e1 - t566 * t625 * t1864 / 0.2e1 - t566 * t204 * t1997 * t205 / 0.6e1 - t424 * t124 * t2002 * t129 / 0.6e1 - t424 * t124 * t218 * t1856 / 0.2e1 + 0.36669858538702222223e-5 * t5052 - 0.24824531111111111111e-2 * t5055 + t5075 / 0.3e1 - t5081 / 0.3e1 - t5088 / 0.6e1;
5670 t5518 = -t5095 / 0.6e1 + t5103 / 0.9e1 + t5110 / 0.9e1 - t5113 / 0.3e1 + 0.13540653333333333334e-2 * t5116 - 0.5e1 / 0.27e2 * t4210 - 0.5e1 / 0.36e2 * t4422 + t4724 - 0.11283877777777777778e-2 * t4728 - 0.5e1 / 0.12e2 * t4767 + t4430 + t4434 + t4782 - 0.37612925925925925926e-3 * t4449;
5671 t5546 = -0.5e1 / 0.27e2 * t4560 - 0.5e1 / 0.9e1 * t4811 - 0.5e1 / 0.9e1 * t4814 + t4820 / 0.3e1 + t4835 - t4842 / 0.3e1 + t4863 + 0.27081306666666666668e-2 * t5195 * t1811 * t1930 + 0.49649062222222222223e-2 * t1775 * t1811 * t1923 - 0.13540653333333333334e-2 * t1775 * t634 * t670 * t635 - 0.73339717077404444447e-5 * t1775 * t1917 * t222 * t1919 + 0.90271022222222222227e-3 * t4876 * t634 * t657 * t635 - 0.90271022222222222223e-3 * t5189 - 0.13540653333333333334e-2 * t1378 * t1657 * t1907;
5672 t5561 = t752 * t280;
5673 t5575 = t272 * t761;
5674 t5579 = t112 * t1979;
5675 t5580 = t1980 * t1983;
5676 t5585 = t4940 * t2152;
5677 t5587 = t1781 * t2156;
5678 t5589 = t1781 * t2142;
5679 t5591 = t1781 * t2147;
5680 t5602 = -0.27081306666666666667e-2 * t1775 * t1913 * t222 * t635 + 0.14894718666666666667e-1 * t633 * t1913 * t1923 + 0.30090340740740740741e-3 * t4603 * t439 * t2018 * sigma[0] * t144 - 0.40621960000000000000e-2 * t633 * t5561 * t635 + t4603 * t69 * t217 * t652 * t129 / 0.3e1 + t4876 * t116 * t222 * t670 * t205 / 0.3e1 - 0.22001915123221333333e-4 * t633 * t5575 * t1919 - 0.59584061070592804923e-7 * t633 * t5579 * t5580 * t205 - 0.45135511111111111113e-3 * t5585 + 0.49649062222222222223e-2 * t5587 - 0.13540653333333333334e-2 * t5589 - 0.73339717077404444447e-5 * t5591 - 0.14894718666666666667e-1 * t1928 * t634 * t1929 * t681 - 0.13540653333333333334e-2 * t438 * t439 * t2001 * sigma[0] * t144;
5681 t5608 = t762 * t1970;
5682 t5625 = t1781 * t2137;
5683 t5635 = 0.22001915123221333334e-4 * t1928 * t1917 * t9 * t762 * t766 + 0.80673688785144888890e-4 * t633 * t1917 * t5608 * t205 + 0.81243920000000000001e-2 * t1928 * t1913 * t1930 - 0.40621960000000000001e-2 * t633 * t634 * t1845 * sigma[2] * t231 - 0.23169562370370370371e-1 * t633 * t634 * t2032 * t205 - 0.27081306666666666667e-2 * t5625 - 0.13540653333333333334e-2 * t5230 - 0.45135511111111111112e-3 * t5239 + 0.18054204444444444445e-2 * t5252 + 0.27081306666666666667e-2 * t5260 - 0.73339717077404444445e-5 * t5270 + 0.49649062222222222223e-2 * t5276 - 0.27081306666666666668e-2 * t5288 + 0.90271022222222222223e-3 * t4866;
5684 t5639 = t8 * t210 * t2131;
5685 t5652 = 0.90271022222222222222e-3 * t4896 - t5639 / 0.8e1 + t5301 / 0.4e1 - t5314 / 0.2e1 + t5320 / 0.9e1 + 0.2e1 / 0.3e1 * t5323 + t5326 / 0.3e1 + t5329 / 0.3e1 + t5332 / 0.9e1 - t5356 / 0.6e1 + t5363 - t5366 / 0.2e1 - t5369 / 0.2e1 - t5372 / 0.2e1;
5686 t5654 = t566 * t1661 * t658;
5687 t5657 = t203 * t5312 * t223;
5688 t5660 = t203 * t1661 * t671;
5689 t5663 = t203 * t572 * t1997;
5690 t5666 = t123 * t430 * t2002;
5691 t5669 = t1428 * t572 * t2014;
5692 t5672 = t1444 * t430 * t2019;
5693 t5677 = t17 * t2130;
5694 t5686 = -0.6e1 * t1396 - 0.12e2 * t4181;
5695 t5703 = -t5654 / 0.6e1 - t5657 / 0.2e1 - t5660 / 0.2e1 - t5663 / 0.6e1 - t5666 / 0.6e1 + t5669 / 0.27e2 + t5672 / 0.27e2 + t1444 * t434 * t2019 / 0.9e1 - t203 * t5677 * t206 / 0.2e1 - 0.3e1 / 0.2e1 * t203 * t625 * t1846 - t203 * t204 * t115 * t5686 / 0.2e1 - t123 * t434 * t2002 / 0.2e1 + t123 * t124 * t68 * t5686 / 0.2e1 + 0.3e1 / 0.2e1 * t203 * t603 * t752 * t620;
5696 t5709 = -t1862 - t1866 / 0.2e1 - t1870 / 0.2e1 + t1874 / 0.3e1 + t1880 + t1884 / 0.3e1 - 0.40621960000000000001e-2 * t1887 - 0.11000957561610666667e-4 * t1890 + 0.74473593333333333334e-2 * t1893 - t1897 - t4972 + 0.20310980000000000001e-2 * t1716 - t4977 + 0.67703266666666666668e-3 * t1504 + t10 * (t5703 + t5652 + t5635 + t5602 + t5546 + t5518 + t5506 + t5471) - t2134 - 0.3e1 / 0.4e1 * t1902;
5697 t5719 = 0.3e1 / 0.4e1 * t1751 - t2139 - t2144 - t2149 - t2154 + t2158 - 0.40621960000000000000e-2 * t1909 - 0.54162613333333333334e-2 * t1911 - 0.81243920000000000000e-2 * t1915 - 0.22001915123221333333e-4 * t1921 + 0.14894718666666666667e-1 * t1925 + 0.81243920000000000001e-2 * t1932 - 0.13540653333333333334e-2 * t1937 - 0.27081306666666666668e-2 * t1782 - t4992 - t4650 - t4651 + t1520;
5698 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5699 v4rho4[3] = t5719 + t5709 + t5411 + t5404;
5700
5701 t5755 = 0.1e1 / t1978 / t114;
5702 t5756 = t762 * t762;
5703 t5773 = 0.80673688785144888891e-4 * t5446 - 0.23169562370370370371e-1 * t5449 + 0.14894718666666666667e-1 * t5452 - 0.2e1 / 0.3e1 * t5455 - 0.40621960000000000001e-2 * t5462 - 0.2e1 / 0.3e1 * t5465 - 0.22001915123221333333e-4 * t5473 - 0.59584061070592804923e-7 * t5476 + 0.73339717077404444446e-5 * t5052 - 0.49649062222222222222e-2 * t5055 + 0.27081306666666666668e-2 * t5116 - 0.2e1 / 0.3e1 * t424 * t124 * t218 * t2001 - 0.17875218321177841476e-6 * t278 * t625 * t1984 - 0.48408426908943561959e-9 * t278 * t204 * t5755 * t5756 / t78 / t1968 / t982 - 0.40621960000000000000e-2 * t278 * t5677 * t282 - 0.33002872684832000000e-4 * t278 * t1837 * t767 - 0.15045170370370370371e-2 * t4728 - 0.5e1 / 0.9e1 * t4767 + t4430;
5704 t5777 = 0.1e1 / t78 / t982;
5705 t5780 = 0.6160e4 / 0.81e2 * tau[1] * t1960 - 0.2618e4 / 0.81e2 * sigma[2] * t5777;
5706 t5781 = t5780 * t35;
5707 t5787 = t684 * t1587;
5708 t5790 = t684 * t684;
5709 t5791 = t5790 * t152;
5710 t5794 = t689 * t689;
5711 t5797 = t2103 * t35 * t40;
5712 t5802 = t101 / t2102 / t104;
5713 t5806 = t689 * t1587;
5714 t5807 = t5806 * t684;
5715 t5810 = t5791 * t155;
5716 t5813 = t828 * t2034;
5717 t5816 = t5781 * t40;
5718 t5823 = 0.0;
5719 t5824 = t108 * t5823;
5720 t5832 = 0.0;
5721 t5833 = t99 * t5832;
5722 t5849 = (-0.82222222222222222222e-1 * t5781 * t258 + 0.36543209876543209876e0 * t2034 * t152 * t946 - 0.54814814814814814815e1 * t5787 * t2586 + 0.27407407407407407407e0 * t5791 * t731 + 0.20301783264746227709e1 * t5794 * t1587 * t5797 + 0.20301783264746227709e1 * t5802 * t5794 * t4275 - 0.54814814814814814814e1 * t2104 * t5807 + 0.27407407407407407407e0 * t736 * t5810 + 0.36543209876543209876e0 * t2107 * t5813 - 0.82222222222222222222e-1 * t263 * t5816) * t110 + 0.100e3 / 0.27e2 * t2661 * t2040 + 0.1250e4 / 0.2187e4 * t5824 * t5794 * t4275 + 0.25e2 / 0.27e2 * t747 * t5810 + 0.100e3 / 0.81e2 * t962 * t5813 + 0.1250e4 / 0.2187e4 * t5833 * t5794 * t4275 + 0.25e2 / 0.27e2 * t724 * t5810 + 0.100e3 / 0.81e2 * t939 * t5813 + 0.100e3 / 0.27e2 * t2666 * t2040 + 0.20e2 / 0.9e1 * t743 * t2036 + 0.500e3 / 0.81e2 * t2123 * t5807 + 0.5e1 / 0.9e1 * t269 * t5816;
5723 t5852 = t741 * t746;
5724 t5861 = t2112 * t268;
5725 t5864 = t2077 * t254;
5726 t5869 = t718 * t723;
5727 t5872 = t266 * t2122;
5728 t5875 = t252 * t2087;
5729 t5882 = 0.1e1 / t2063 / t93;
5730 t5883 = t707 * t5882;
5731 t5932 = t689 * t35;
5732 t5933 = t40 * t684;
5733 t5940 = -0.90550778537386306439e-1 * t2056 * t709 * t2627 + 0.34711892100090877548e-1 * t5883 * t48 * t5794 * t828 + 0.25189783950617283951e0 * t240 * t247 * t48 * t5780 - 0.15890370370370370370e1 * t5813 * t242 - 0.11917777777777777778e1 * t5791 * t692 + 0.76556371177522216641e-1 * t5794 * t91 * t2064 * t1556 - 0.19862962962962962963e0 * t240 * t5780 * t94 * t48 - 0.27371454575003443189e-1 * t87 * t5794 * t2064 * t4346 + 0.42210879422611554372e-1 * t707 * t710 * t5790 + 0.56281172563482072496e-1 * t924 * t248 * t2034 + 0.5e1 / 0.9e1 * t5816 * t96 + 0.20151827160493827160e1 * t5813 * t249 + 0.15113870370370370370e1 * t5810 * t696 - 0.33284649691681165977e-1 * t87 * t5790 * t704 + 0.25326527653566932623e0 * t684 * t91 * t711 - 0.60367185691590870959e-1 * t5794 * t709 * t1556 - 0.44379532922241554636e-1 * t87 * t2034 * t921 + 0.11483455676628332496e0 * t2609 * t5932 * t5933 - 0.19970789815008699586e0 * t684 * t689 * t704;
5734 t5942 = 0.10e2 / 0.3e1 * t2114 * t686 + 0.50e2 / 0.27e2 * t5852 * t695 - 0.20e2 / 0.9e1 * t720 * t2036 - 0.500e3 / 0.81e2 * t2088 * t5807 - 0.5e1 / 0.9e1 * t255 * t5816 + 0.20e2 / 0.9e1 * t5861 * t236 - 0.20e2 / 0.9e1 * t5864 * t236 - 0.10e2 / 0.3e1 * t2079 * t686 + 0.50e2 / 0.27e2 * t5869 * t695 + 0.1000e4 / 0.243e3 * t5872 * t2089 - 0.1000e4 / 0.243e3 * t5875 * t2089 + t5940 * t102;
5735 t6007 = t4434 - 0.3e1 / 0.8e1 * t8 * t76 * (t5942 + t5849) * t115 - 0.16248784000000000000e-1 * t633 * t1913 * t2141 - 0.54162613333333333335e-2 * t633 * t634 * t1996 * sigma[2] * t231 - 0.44003830246442666668e-4 * t633 * t1917 * t670 * t762 * t766 + 0.59578874666666666668e-1 * t633 * t1913 * t2155 + 0.32269475514057955556e-3 * t633 * t1917 * t5608 * t222 - 0.92678249481481481484e-1 * t633 * t634 * t2032 * t222 + 0.12036136296296296297e-2 * t4876 * t634 * t2013 * sigma[2] * t231 - 0.16248784000000000000e-1 * t633 * t5561 * t666 - 0.88007660492885333335e-4 * t633 * t5575 * t2146 - 0.23833624428237121969e-6 * t633 * t5579 * t5580 * t222 - 0.14667943415480888890e-4 * t1775 * t1917 * t657 * t762 * t766 + 0.99298124444444444448e-2 * t1775 * t634 * t2150 * t681 - 0.54162613333333333335e-2 * t1775 * t1913 * t2151 + 0.29789437333333333334e-1 * t633 * t634 * t2140 * t681 - 0.20e2 / 0.27e2 * t4811 - 0.20e2 / 0.27e2 * t4814 - 0.18054204444444444445e-2 * t5585 + 0.19859624888888888889e-1 * t5587;
5736 t6032 = t1968 * t679;
5737 t6061 = -0.54162613333333333335e-2 * t5589 - 0.29335886830961777778e-4 * t5591 - 0.10832522666666666667e-1 * t5625 + 0.36108408888888888889e-2 * t5252 - t5639 / 0.2e1 - 0.54162613333333333336e-2 * t1775 * t1811 * t2141 + t5301 / 0.2e1 + 0.98470640074074074075e-1 * t278 * t204 * t281 * t5777 + 0.22342078000000000000e-1 * t278 * t1837 * t771 + 0.2e1 / 0.3e1 * t1444 * t124 * t647 * t652 + 0.24202106635543466667e-3 * t278 * t625 * t1971 + 0.98313700766478128122e-6 * t278 * t204 * t1981 / t6032 - 0.69508687111111111111e-1 * t278 * t625 * t1961 - 0.59832985848982459261e-3 * t278 * t204 * t763 / t77 / t3361 + 0.2e1 / 0.3e1 * t1428 * t204 * t658 * t670 - 0.2e1 * t566 * t625 * t1955 - 0.2e1 / 0.3e1 * t566 * t204 * t223 * t1996 + 0.2e1 / 0.9e1 * t5320 + 0.4e1 / 0.3e1 * t5323 + 0.2e1 / 0.3e1 * t5326;
5738 t6071 = t670 * t670;
5739 t6076 = t646 * t646;
5740 t6081 = t652 * t652;
5741 t6086 = t657 * t657;
5742 t6098 = -0.12e2 * t1396 - 0.12e2 * t4181;
5743 t6116 = 0.2e1 / 0.3e1 * t5329 + 0.2e1 / 0.9e1 * t5332 - 0.2e1 / 0.3e1 * t5654 - 0.2e1 * t5657 - 0.2e1 * t5660 - 0.2e1 / 0.3e1 * t5663 - 0.2e1 / 0.3e1 * t5666 + 0.4e1 / 0.27e2 * t5669 + 0.4e1 / 0.27e2 * t5672 - t566 * t204 * t115 * t6071 / 0.2e1 - 0.5e1 / 0.27e2 * t4216 * t124 * t68 * t6076 - t424 * t124 * t68 * t6081 / 0.2e1 - 0.5e1 / 0.27e2 * t4542 * t204 * t115 * t6086 - 0.3e1 * t203 * t1837 * t671 - 0.2e1 * t203 * t625 * t1997 - t203 * t204 * t115 * t6098 / 0.2e1 + t123 * t124 * t68 * t6098 / 0.2e1 - t566 * t1837 * t658 - 0.2e1 * t203 * t5677 * t223 + 0.4e1 / 0.9e1 * t1428 * t625 * t2014;
5744 t6123 = -0.4e1 * t1816 - 0.2e1 * t1819 - 0.2e1 * t1822 - 0.2e1 / 0.3e1 * t1825 - 0.2e1 / 0.3e1 * t1828 + 0.4e1 / 0.3e1 * t1666 + 0.4e1 / 0.3e1 * t1669 - 0.2e1 * t1957 - 0.69508687111111111111e-1 * t1963 + 0.44684156000000000000e-1 * t1966 + 0.24202106635543466667e-3 * t1973 - 0.66005745369664000000e-4 * t1976 - 0.17875218321177841476e-6 * t1986 - 0.12186588000000000000e-1 * t1989 - 0.2e1 * t1993 + t10 * (t6116 + t6061 + t6007 + t5773) - 0.2e1 * t1999 - 0.2e1 * t2004 - 0.2e1 * t2007;
5745 t6140 = -0.6e1 * t2011 + 0.4e1 / 0.9e1 * t2016 + 0.4e1 / 0.9e1 * t2021 - 0.6e1 * t2024 - 0.81243920000000000002e-2 * t1887 - 0.22001915123221333333e-4 * t1890 + 0.14894718666666666667e-1 * t1893 + 0.27081306666666666668e-2 * t1716 - 0.3e1 / 0.2e1 * t2133 - 0.3e1 / 0.2e1 * t1902 + t1751 - 0.32497568000000000000e-1 * t2138 - 0.16248784000000000000e-1 * t2143 - 0.88007660492885333335e-4 * t2148 - 0.54162613333333333335e-2 * t2153 + 0.59578874666666666668e-1 * t2157 - 0.10832522666666666667e-1 * t1911 - t4650 - t4651;
5746 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5747 v4rho4[4] = t6140 + t6123;
5748
5749 t6142 = t8 * t455 * t847;
5750 t6150 = t194 * t430 * t2186;
5751 t6158 = t123 * t1454 * t854;
5752 t6161 = t194 * t1454 * t868;
5753 t6163 = t17 * t2392;
5754 t6179 = t424 * t430 * t2222;
5755 t6182 = t194 * t2210 * t559;
5756 t6185 = t123 * t430 * t2206;
5757 t6192 = t194 * t2210 * t555;
5758 t6200 = t6142 / 0.4e1 - 0.31840232634598030130e-6 * t194 * t124 * t1488 * t1492 * t550 + 0.16758017176104226384e-7 * t6150 + 0.15630527202121822222e-3 * t194 * t124 * t549 * t1469 * sigma[0] - 0.33851633333333333334e-3 * t6158 - 0.13751196952013333334e-5 * t6161 - 0.30466470000000000000e-2 * t194 * t6163 * t198 - 0.13540653333333333333e-2 * t424 * t124 * t872 * t425 - 0.17377171777777777778e-1 * t194 * t777 * t1460 - 0.11283877777777777778e-3 * t1444 * t124 * t317 * t1445 + 0.16925816666666666667e-3 * t6179 + 0.37236796666666666667e-2 * t6182 + 0.50777450000000000001e-3 * t6185 - 0.40621959999999999999e-2 * t123 * t124 * t872 * t448 - 0.55004787808053333334e-5 * t6192 + 0.60505266588858666668e-4 * t194 * t777 * t1470 + 0.50777450000000000000e-3 * t424 * t434 * t2222;
5759 t6210 = t135 * t846;
5760 t6212 = t194 * t6210 * t198;
5761 t6215 = t123 * t1404 * t854;
5762 t6218 = t194 * t1404 * t868;
5763 t6240 = t123 * t430 * t2229;
5764 t6243 = t194 * t430 * t2215;
5765 t6248 = t454 * t312;
5766 t6250 = t194 * t6248 * t198;
5767 t6263 = 0.11171039000000000000e-1 * t194 * t2196 * t559 - t424 * t777 * t1506 / 0.2e1 + 0.61880386284060000000e-5 * t194 * t1410 * t868 - 0.20310980000000000001e-2 * t6212 + 0.10155490000000000000e-2 * t6215 + 0.41253590856040000001e-5 * t6218 + 0.15233235000000000000e-2 * t123 * t1410 * t854 - 0.44688045802944603692e-7 * t194 * t777 * t1493 + 0.15233235000000000000e-2 * t123 * t434 * t2206 + 0.50777450000000000000e-3 * t123 * t124 * t317 * t1417 - 0.16501436342416000000e-4 * t194 * t2196 * t555 - 0.55692347655654000000e-4 * t194 * t434 * t2215 - 0.27081306666666666666e-2 * t6240 - 0.18564115885218000000e-4 * t6243 - 0.81243920000000000000e-2 * t123 * t434 * t2229 + 0.67703266666666666667e-3 * t6250 + 0.50274051528312679152e-7 * t194 * t434 * t2186 + 0.18153160090853835734e-9 * t194 * t124 * t4476 / t25 / t1467 / t1120 * t1489;
5768 t6271 = 0.5e1 / 0.36e2 * t8 * t1514 * t313;
5769 t6272 = t300 * t1584;
5770 t6275 = t308 * t1621;
5771 t6278 = t4304 * t1539;
5772 t6279 = t1563 * t2273;
5773 t6282 = t4293 * t1539;
5774 t6285 = t31 * t472;
5775 t6289 = t144 * t477;
5776 t6295 = t1562 * t828;
5777 t6298 = t469 * t152;
5778 t6299 = t6298 * t155;
5779 t6309 = t1543 * t1560;
5780 t6324 = t1539 * t31;
5781 t6328 = -0.71771597978927078097e-2 * t2324 * t6285 * t149 - 0.33284649691681165976e-1 * t6289 * t492 - 0.62974459876543209876e-1 * t789 * t1571 + 0.34214318218754303985e-2 * t798 * t1560 * t6295 - 0.18472508230452674898e1 * t6299 * t165 - 0.15091796422897717739e-1 * t2332 * t497 * t2309 + 0.14367506401463191586e1 * t156 * t163 * t48 * t1459 - 0.95695463971902770797e-2 * t6309 * t296 * t1563 + 0.50379567901234567902e0 * t2293 * t503 + 0.14566172839506172839e1 * t6299 * t158 + 0.14070293140870518123e-1 * t802 * t806 * t472 - 0.11329245541838134430e1 * t156 * t1459 * t46 * t48 + 0.75458982114488588696e-2 * t6324 * t497 * t1556;
5782 t6332 = t1459 * t35;
5783 t6333 = t6332 * t40;
5784 t6354 = t492 * t1528;
5785 t6362 = t495 * t4370 * t48;
5786 t6374 = -0.51591074849858566452e-1 * t802 * t2319 * t147 + 0.770e3 / 0.243e3 * t6333 * t49 - 0.39725925925925925924e0 * t2293 * t488 + 0.49657407407407407406e-1 * t789 * t1547 - 0.15829079783479332889e-1 * t147 * t43 * t497 * t2298 - 0.17587866426088147654e-2 * t802 * t296 * t1528 + 0.12481743634380437241e-1 * t6285 * t799 + 0.40681238512054758415e-1 * t34 * t469 * t799 - 0.11094883230560388659e-1 * t2332 * t2335 + 0.13868604038200485824e-2 * t798 * t6354 + 0.42210879422611554370e-1 * t477 * t43 * t498 * t144 - 0.43389865125113596934e-2 * t6362 * t6324 * t828 + 0.19139092794380554159e-1 * t2324 * t6289 * t1563 + 0.56594236585866441522e-2 * t34 * t147 * t1563 * t498 * t6285;
5787 t6377 = t1616 * t472;
5788 t6380 = t535 * t1528;
5789 t6383 = t1622 * t147;
5790 t6384 = t4257 * t31;
5791 t6392 = t4318 * t147;
5792 t6399 = t4340 * t147;
5793 t6402 = t1579 * t472;
5794 t6413 = t512 * t1528;
5795 t6416 = t1585 * t147;
5796 t6419 = -0.25e2 / 0.216e3 * t6392 * t789 - 0.275e3 / 0.243e3 * t817 * t6299 + 0.50e2 / 0.81e2 * t2354 * t2293 - 0.25e2 / 0.216e3 * t6399 * t789 - 0.25e2 / 0.216e3 * t6402 * t789 + 0.25e2 / 0.81e2 * t2357 * t2293 + 0.25e2 / 0.81e2 * t2342 * t2293 + 0.25e2 / 0.27e2 * t3166 * t1534 + 0.25e2 / 0.27e2 * t3136 * t1534 - 0.25e2 / 0.648e3 * t6413 * t789 + 0.125e3 / 0.324e3 * t6416 * t6384;
5797 t6422 = t1588 * t1563;
5798 t6434 = t3152 * t472;
5799 t6437 = t519 * t1528;
5800 t6442 = t1539 * t35 * t40;
5801 t6445 = t144 * t1587;
5802 t6446 = t6445 * t477;
5803 t6450 = t3143 * t472;
5804 t6461 = -0.25377229080932784638e0 * t4272 * t31 * t6422 - 0.33497942386831275721e0 * t524 * t469 * t829 - 0.46897119341563786008e0 * t6332 * t174 - 0.33497942386831275721e0 * t6298 * t824 + 0.91358024691358024694e-1 * t2270 * t2277 + 0.34259259259259259261e0 * t2273 * t6434 - 0.11419753086419753087e-1 * t788 * t6437 - 0.25377229080932784637e0 * t2273 * t1602 * t6442 - 0.91358024691358024694e0 * t1603 * t6446 + 0.34259259259259259261e0 * t1603 * t31 * t6450 + 0.91358024691358024694e-1 * t2283 * t1534 - 0.11419753086419753087e-1 * t827 * t4284 - 0.46897119341563786008e0 * t179 * t6333 - 0.91358024691358024694e0 * t6445 * t2274;
5805 t6465 = t2340 * t170;
5806 t6476 = t2291 * t184;
5807 t6490 = t834 * t534;
5808 t6503 = t810 * t511;
5809 t6508 = 0.5e1 / 0.9e1 * t836 * t1530 - 0.5e1 / 0.72e2 * t4332 * t289 + 0.5e1 / 0.3e1 * t2378 * t474 + 0.25e2 / 0.27e2 * t6490 * t483 + 0.125e3 / 0.324e3 * t4409 * t2280 + 0.250e3 / 0.243e3 * t1622 * t6446 - 0.250e3 / 0.243e3 * t1585 * t6446 - 0.5e1 / 0.3e1 * t2388 * t474 - 0.5e1 / 0.9e1 * t812 * t1530 + 0.25e2 / 0.27e2 * t6503 * t483 + 0.5e1 / 0.72e2 * t4335 * t289;
5810 t6533 = t1385 * t2406;
5811 t6535 = t312 * t549;
5812 t6542 = t1385 * t2402;
5813 t6544 = t846 * t196;
5814 t6564 = t604 * t317;
5815 t6566 = 0.14104847222222222222e-3 * t194 * t6564;
5816 t6568 = t194 * t1454 * t872;
5817 t6570 = 0.14894718666666666666e-1 * t123 * t124 * t2254 * t129 - t6271 - 0.3e1 / 0.8e1 * t8 * t18 * (t6508 + t6461 * t63 + 0.770e3 / 0.243e3 * t185 * t6333 - 0.5e1 / 0.3e1 * t6465 * t149 - 0.55e2 / 0.27e2 * t531 * t2288 + 0.5e1 / 0.9e1 * t1613 * t785 - 0.125e3 / 0.324e3 * t4412 * t2280 - 0.5e1 / 0.9e1 * t1576 * t785 + 0.5e1 / 0.3e1 * t6476 * t149 - 0.770e3 / 0.243e3 * t171 * t6333 + 0.55e2 / 0.27e2 * t508 * t2288 + t6419 - 0.250e3 / 0.243e3 * t6272 * t1588 + 0.250e3 / 0.243e3 * t6275 * t1588 - 0.625e3 / 0.8748e4 * t6278 * t6279 - 0.625e3 / 0.8748e4 * t6282 * t6279 + (t6374 + t6328) * t55 - 0.25e2 / 0.216e3 * t6377 * t789 - 0.25e2 / 0.648e3 * t6380 * t789 - 0.125e3 / 0.324e3 * t6383 * t6384 - 0.275e3 / 0.243e3 * t841 * t6299 + 0.50e2 / 0.81e2 * t2349 * t2293) * t68 + 0.67032068704416905537e-7 * t438 * t4609 * t2184 * t550 * t129 - 0.13540653333333333334e-2 * t1378 * t2405 * t1380 + 0.50777450000000000001e-3 * t1378 * t439 * t31 * t448 * t129 + 0.82507181712080000001e-5 * t438 * t1371 * t866 * t448 * sigma[0] - 0.27081306666666666666e-2 * t6533 - 0.22001915123221333334e-4 * t438 * t6535 * t1373 + 0.16501436342416000000e-4 * t438 * t4617 * t2401 + 0.55004787808053333335e-5 * t6542 - 0.81243920000000000001e-2 * t438 * t6544 * t441 - 0.40621960000000000001e-2 * t438 * t2405 * t1367 + 0.27502393904026666667e-5 * t1378 * t1371 * t866 * t425 * sigma[0] - 0.74256463540872000001e-4 * t438 * t1371 * t554 * sigma[0] * t129 + 0.14894718666666666667e-1 * t438 * t2405 * t1388 + t6566 + 0.67703266666666666666e-3 * t6568;
5818 t6575 = t123 * t6210 * t130;
5819 t6580 = t194 * t4194 * t317;
5820 t6583 = t123 * t6248 * t130;
5821 t6586 = t194 * t430 * t2254;
5822 t6593 = t123 * t2210 * t449;
5823 t6602 = t194 * t4198 * t317;
5824 t6605 = t194 * t1404 * t872;
5825 t6611 = t424 * t2210 * t426;
5826 t6623 = t8 * t136 * t2393;
5827 t6625 = -0.3e1 / 0.2e1 * t123 * t6163 * t130 - t6575 + 0.38083087500000000000e-3 * t194 * t4508 * t317 + 0.38083087500000000000e-3 * t6580 + t6583 / 0.3e1 + 0.37236796666666666667e-2 * t6586 - 0.17377171777777777778e-1 * t194 * t124 * t196 * t1459 - t6593 / 0.2e1 - t424 * t2196 * t426 / 0.2e1 - 0.30466470000000000000e-2 * t194 * t1410 * t872 - 0.25388725000000000000e-3 * t6602 - 0.20310980000000000000e-2 * t6605 + t1444 * t777 * t1446 / 0.9e1 - t6611 / 0.6e1 + 0.11171039000000000000e-1 * t194 * t434 * t2254 - 0.3e1 / 0.2e1 * t123 * t2196 * t449 - t123 * t777 * t1418 / 0.2e1 - 0.3e1 / 0.8e1 * t6623;
5828 t6642 = t10 * (t6625 + t6570 + t6263 + t6200) + 0.50274051528312679152e-7 * t2188 + 0.41253590856040000001e-5 * t2191 + 0.12376077256812000000e-4 * t2194 - 0.60932940000000000000e-2 * t2198 - 0.16501436342416000000e-4 * t2201 + 0.30466470000000000000e-2 * t2204 + 0.15233235000000000000e-2 * t2208 - 0.20310980000000000001e-2 * t2212 - 0.55692347655654000000e-4 * t2217 + 0.11171039000000000000e-1 * t2220 + 0.50777450000000000000e-3 * t2224 + 0.10155490000000000000e-2 * t2227 - 0.81243920000000000000e-2 * t2231;
5829 t6650 = 0.25388725000000000000e-3 * t2259;
5830 t6652 = t2265 / 0.4e1;
5831 t6657 = -0.60932940000000000000e-2 * t2234 - t2238 / 0.2e1 - t2241 + 0.76166175000000000000e-3 * t2244 + 0.11424926250000000000e-2 * t2247 - 0.3e1 * t2250 - 0.3e1 / 0.2e1 * t2252 + 0.11171039000000000000e-1 * t2256 - t6650 - 0.20310980000000000000e-2 * t2262 + t6652 - 0.9e1 / 0.8e1 * t2395 - 0.3e1 / 0.4e1 * t2398 + 0.16501436342416000000e-4 * t2403 - 0.81243920000000000001e-2 * t2407;
5832 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5833 v4rho3sigma[0] = t6657 + t6642;
5834
5835 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5836 v4rho3sigma[1] = 0.0e0;
5837
5838 t6660 = t2426 / 0.4e1;
5839 t6664 = 0.25388725000000000000e-3 * t2440;
5840 t6669 = t566 * t2418 * t568;
5841 t6674 = t454 * t346;
5842 t6676 = t203 * t6674 * t206;
5843 t6679 = t203 * t2418 * t577;
5844 t6686 = 0.5e1 / 0.36e2 * t8 * t1510 * t347;
5845 t6692 = t566 * t572 * t2428;
5846 t6700 = t203 * t1437 * t885;
5847 t6703 = t203 * t572 * t2435;
5848 t6709 = t619 * t351;
5849 t6711 = 0.14104847222222222222e-3 * t278 * t6709;
5850 t6712 = t1428 * t878 * t1430 / 0.9e1 - t6669 / 0.6e1 - t566 * t878 * t1477 / 0.2e1 + t6676 / 0.3e1 - t6679 / 0.2e1 - t203 * t878 * t1400 / 0.2e1 - t6686 - 0.11283877777777777778e-3 * t1428 * t204 * t351 * t1429 + 0.16925816666666666667e-3 * t6692 + 0.50777450000000000001e-3 * t1775 * t634 * t84 * t205 * t576 - 0.33851633333333333334e-3 * t6700 + 0.50777450000000000001e-3 * t6703 + 0.50777450000000000000e-3 * t203 * t204 * t351 * t1399 + t6711;
5851 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5852 v4rho3sigma[2] = -t2416 / 0.2e1 - t2420 - 0.3e1 / 0.2e1 * t2423 + t6660 + 0.50777450000000000000e-3 * t2430 + 0.10155490000000000000e-2 * t2433 + 0.15233235000000000000e-2 * t2437 - t6664 + t10 * t6712;
5853
5854 t6728 = t424 * t2210 * t587 / 0.9e1;
5855 t6740 = -t8 * t1754 * t313 / 0.2e1 - t424 * t777 * t1738 / 0.6e1 - t424 * t2196 * t587 / 0.3e1 + t1444 * t777 * t1704 / 0.9e1 - t6728 + t6142 / 0.6e1 + 0.55860057253680754615e-8 * t6150 - 0.22567755555555555556e-3 * t6158 - 0.91674646346755555557e-6 * t6161 + 0.56419388888888888890e-4 * t6179 + 0.12412265555555555556e-2 * t6182 + 0.16925816666666666667e-3 * t6185 - 0.18334929269351111112e-5 * t6192 - 0.67703266666666666668e-3 * t6212 + 0.33851633333333333334e-3 * t6215 + 0.13751196952013333334e-5 * t6218;
5856 t6746 = 0.33851633333333333334e-3 * t123 * t1404 * t897;
5857 t6759 = t123 * t430 * t2479;
5858 t6762 = t123 * t1673 * t2483;
5859 t6771 = t123 * t1454 * t897;
5860 t6779 = t1385 * t2453;
5861 t6786 = -0.90271022222222222223e-3 * t6240 - 0.61880386284060000001e-5 * t6243 + 0.45135511111111111112e-3 * t6250 - t6271 + t6746 + 0.50777450000000000000e-3 * t123 * t1410 * t897 + 0.49649062222222222221e-2 * t123 * t124 * t2254 * t217 - 0.27081306666666666666e-2 * t123 * t604 * t872 * t9 - 0.90271022222222222222e-3 * t6759 - 0.11848071666666666666e-2 * t6762 - 0.27081306666666666666e-2 * t123 * t434 * t2479 + 0.10155490000000000000e-2 * t123 * t1677 * t2483 - 0.11283877777777777778e-3 * t6771 - t424 * t2456 * t1711 / 0.3e1 - 0.73339717077404444449e-5 * t438 * t6535 * t1759 - 0.90271022222222222225e-3 * t6779 + 0.22344022901472301846e-7 * t438 * t4609 * t2184 * t217 * t550;
5862 t6789 = 0.18334929269351111112e-5 * t1385 * t2476;
5863 t6818 = 0.11283877777777777778e-3 * t4640 * t2465;
5864 t6846 = t6789 + 0.55004787808053333334e-5 * t438 * t4617 * t2475 + 0.33851633333333333334e-3 * t1378 * t1362 * t2464 + 0.16925816666666666667e-3 * t1378 * t439 * t2463 * t448 - 0.27081306666666666668e-2 * t438 * t6544 * t598 - 0.24752154513624000000e-4 * t438 * t1371 * t554 * t217 * sigma[0] + 0.55004787808053333334e-5 * t1768 * t1371 * t866 * t9 * sigma[0] - 0.11283877777777777778e-3 * t4603 * t439 * t2463 * t425 + t6818 - 0.90271022222222222222e-3 * t1378 * t439 * t144 * t217 * t129 + 0.33851633333333333334e-3 * t4683 * t439 * t31 * t9 * t129 + 0.49649062222222222225e-2 * t438 * t2405 * t1763 - 0.27081306666666666668e-2 * t1768 * t2405 * t1770 - 0.90271022222222222224e-3 * t6533 + 0.18334929269351111112e-5 * t6542 + 0.18334929269351111112e-5 * t1378 * t1371 * t866 * t5280 * sigma[0] - 0.90271022222222222225e-3 * t1378 * t2405 * t217 * t441;
5865 t6855 = t123 * t6210 * t218 / 0.3e1;
5866 t6859 = t123 * t6248 * t218;
5867 t6863 = t123 * t1672 * t312 * t605;
5868 t6875 = -t123 * t603 * t846 * t605 - t123 * t6163 * t218 / 0.2e1 - t6855 + 0.50777450000000000000e-3 * t123 * t6564 + t6859 / 0.9e1 + 0.7e1 / 0.6e1 * t6863 + t6566 + 0.45135511111111111110e-3 * t6568 - t6575 / 0.3e1 + 0.12694362500000000000e-3 * t6580 + 0.2e1 / 0.9e1 * t6583 + 0.12412265555555555555e-2 * t6586 - t6593 / 0.6e1 - 0.16925816666666666667e-3 * t6602 - 0.67703266666666666666e-3 * t6605 - t6611 / 0.18e2 - t6623 / 0.8e1;
5869 t6879 = 0.10155490000000000000e-2 * t2485;
5870 t6880 = t2445 / 0.3e1;
5871 t6881 = 0.10155490000000000000e-2 * t2472;
5872 t6886 = t10 * (t6875 + t6846 + t6786 + t6740) + t6879 - t6880 + t2566 + t6881 - 0.27081306666666666666e-2 * t2481 + t2189 + 0.27502393904026666668e-5 * t2191 + t2195 - t2199 - t2202 + t2205 + t2209 - 0.13540653333333333333e-2 * t2212 - t2218 + t2221 + t2225 + 0.67703266666666666667e-3 * t2227 - t2232 - t2558;
5873 t6893 = 0.55004787808053333334e-5 * t2477;
5874 t6894 = -t2451 - t2458 - t2235 - t2239 - 0.2e1 / 0.3e1 * t2241 + 0.50777450000000000000e-3 * t2244 + t2248 - t2250 - t2253 + t2257 - t6650 - 0.13540653333333333333e-2 * t2262 + t6652 - t2396 - t2398 / 0.2e1 + t2404 - t2408 - 0.27081306666666666668e-2 * t2454 + 0.33851633333333333334e-3 * t2466 + t6893;
5875 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5876 v4rho3sigma[3] = t6894 + t6886;
5877
5878 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5879 v4rho3sigma[4] = 0.0e0;
5880
5881 t6914 = t1781 * t2539;
5882 t6919 = t1781 * t2512;
5883 t6927 = 0.11283877777777777778e-3 * t4940 * t2520;
5884 t6936 = t203 * t1680 * t2526;
5885 t6945 = t278 * t1437 * t986;
5886 t6953 = 0.90271022222222222221e-3 * t203 * t572 * t2545;
5887 t6957 = -0.11283877777777777778e-3 * t4876 * t634 * t2518 * t567 + t6927 + 0.50777450000000000000e-3 * t203 * t625 * t2435 - 0.13540653333333333333e-2 * t203 * t204 * t990 * t576 + 0.11848071666666666666e-2 * t6936 - t566 * t878 * t1727 / 0.6e1 + t566 * t2499 * t1731 / 0.3e1 - 0.45837323173377777778e-6 * t6945 - 0.45135511111111111110e-3 * t566 * t204 * t990 * t567 - t6953 + 0.16925816666666666667e-3 * t566 * t625 * t2428;
5888 t6960 = t203 * t1661 * t885;
5889 t6963 = t278 * t6674 * t282;
5890 t6966 = t203 * t1437 * t975;
5891 t6973 = t566 * t2418 * t612 / 0.9e1;
5892 t6979 = t8 * t581 * t968;
5893 t6985 = t278 * t4860 * t351;
5894 t6988 = t278 * t1437 * t990;
5895 t6994 = t135 * t967;
5896 t6997 = t203 * t6994 * t206 / 0.3e1;
5897 t7001 = t203 * t6674 * t223;
5898 t7008 = t203 * t1672 * t346 * t620;
5899 t7013 = -t566 * t2504 * t568 / 0.6e1 - t6997 - 0.50777450000000000000e-3 * t203 * t6709 + t7001 / 0.9e1 - t203 * t2504 * t577 / 0.2e1 - 0.7e1 / 0.6e1 * t7008 - t6669 / 0.18e2 + 0.2e1 / 0.9e1 * t6676 - t6679 / 0.6e1 + t6711 - t6686;
5900 t7017 = 0.10155490000000000000e-2 * t2532;
5901 t7020 = t2494 / 0.3e1;
5902 t7022 = 0.10155490000000000000e-2 * t2528;
5903 t7024 = t10 * (t7013 + 0.33851633333333333334e-3 * t6960 + 0.22567755555555555555e-3 * t6963 - 0.11283877777777777778e-3 * t6966 + t1428 * t878 * t1720 / 0.9e1 - t6973 + 0.91674646346755555557e-6 * t1775 * t1917 * t2537 * t567 + t6979 / 0.12e2 + t8 * t1746 * t347 / 0.2e1 - 0.84629083333333333333e-4 * t6985 + 0.22567755555555555555e-3 * t6988 + t6957 + 0.56419388888888888890e-4 * t6692 - 0.22567755555555555556e-3 * t6700 + 0.16925816666666666667e-3 * t6703 + 0.27502393904026666667e-5 * t633 * t1917 * t2537 * t576 + 0.16925816666666666667e-3 * t1775 * t634 * t2518 * t576 - 0.33851633333333333334e-3 * t5195 * t634 * t84 * t9 * t205 - 0.13540653333333333333e-2 * t633 * t2511 * t1653 + 0.18334929269351111111e-5 * t6914 - 0.45135511111111111110e-3 * t1775 * t2511 * t1776 - 0.90271022222222222221e-3 * t6919) - t2709 + t7017 + 0.13751196952013333333e-5 * t2543 - 0.27081306666666666666e-2 * t2547 - t7020 - 0.67703266666666666666e-3 * t2516 + t2752 - t7022 + t2431 + 0.67703266666666666667e-3 * t2433 + t2438;
5904 t7029 = -t6664 - t2753 + t2501 - t2506 + t2754 - t2755 - t2417 - 0.2e1 / 0.3e1 * t2420 - t2424 + t6660 - 0.27081306666666666666e-2 * t2513 + 0.33851633333333333334e-3 * t2521 + 0.55004787808053333334e-5 * t2540;
5905 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5906 v4rho3sigma[5] = t7029 + t7024;
5907
5908 t7035 = t2565 + t2570 + t6879 - t6880 + 0.67703266666666666667e-3 * t2469 + t6881 - 0.27081306666666666667e-2 * t2481 + t2192 - 0.67703266666666666668e-3 * t2212 + 0.33851633333333333333e-3 * t2227 - 0.2e1 / 0.3e1 * t2448 - t2451;
5909 t7089 = t123 * t430 * t2567;
5910 t7096 = t424 * t430 * t2562;
5911 t7098 = -0.45135511111111111112e-3 * t1378 * t2405 * t1935 - 0.13540653333333333334e-2 * t438 * t2405 * t1907 + 0.33851633333333333334e-3 * t4683 * t439 * t2463 * t9 + 0.16925816666666666667e-3 * t424 * t434 * t2562 + 0.50777450000000000000e-3 * t123 * t434 * t2567 + 0.50777450000000000000e-3 * t123 * t124 * t317 * t1856 - t424 * t777 * t1868 / 0.6e1 + t1444 * t777 * t1882 / 0.9e1 + 0.16925816666666666667e-3 * t7089 - 0.13540653333333333333e-2 * t123 * t124 * t872 * t652 + 0.56419388888888888890e-4 * t7096;
5912 t7112 = t424 * t2210 * t647;
5913 t7116 = t123 * t2210 * t653;
5914 t7132 = -t7116 / 0.6e1 - t123 * t777 * t1857 / 0.2e1 - t123 * t2196 * t653 / 0.2e1 - t424 * t2196 * t647 / 0.6e1 - t6855 + 0.2e1 / 0.9e1 * t6859 - t6863 / 0.3e1 + t6566 + 0.22567755555555555555e-3 * t6568 + t6583 / 0.9e1 - 0.84629083333333333333e-4 * t6602;
5915 t7138 = -t2458 - t2557 - t2561 - t2242 + t2245 - t6650 - 0.67703266666666666667e-3 * t2262 + t6652 - t2399 + t10 * (t7132 - 0.45135511111111111112e-3 * t424 * t124 * t872 * t646 - t424 * t2456 * t1895 / 0.3e1 + t6746 - 0.90271022222222222224e-3 * t6759 + 0.33851633333333333334e-3 * t6762 - 0.22567755555555555556e-3 * t6771 - 0.90271022222222222223e-3 * t6779 + t6789 + t6818 - t7112 / 0.18e2 + t7098 - t6728 + t6142 / 0.12e2 - 0.11283877777777777778e-3 * t6158 - 0.45837323173377777778e-6 * t6161 + 0.22567755555555555556e-3 * t6250 - t6271 + 0.16925816666666666667e-3 * t1378 * t439 * t31 * t652 * t129 + 0.27502393904026666667e-5 * t438 * t1371 * t866 * t652 * sigma[0] - 0.11283877777777777778e-3 * t4603 * t439 * t31 * t646 * t129 + 0.91674646346755555558e-6 * t1378 * t1371 * t866 * t646 * sigma[0]) - 0.27081306666666666667e-2 * t2454 + 0.33851633333333333333e-3 * t2466 + t6893;
5916 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5917 v4rho3sigma[6] = t7138 + t7035;
5918
5919 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5920 v4rho3sigma[7] = 0.0e0;
5921
5922 t7145 = -t2708 - t2509 / 0.2e1 - t2712 - t2717 - t2721 + t2724 + t2728 + t2731 + t2738 - t2741 + t2744 + t2748 + t7017 + 0.27502393904026666667e-5 * t2543 - 0.27081306666666666667e-2 * t2547 - t7020 - 0.13540653333333333333e-2 * t2516 + 0.67703266666666666667e-3 * t2524 - t7022 + 0.33851633333333333333e-3 * t2433;
5923 t7150 = t346 * t761;
5924 t7172 = t766 * sigma[2];
5925 t7190 = t1781 * t2776;
5926 t7192 = t1781 * t2779;
5927 t7199 = t967 * t280;
5928 t7208 = -0.11283877777777777778e-3 * t6700 - 0.73339717077404444445e-5 * t633 * t7150 * t1919 + 0.33851633333333333333e-3 * t1775 * t1913 * t2519 + 0.55004787808053333333e-5 * t633 * t5575 * t2538 - 0.11283877777777777778e-3 * t4876 * t634 * t84 * t657 * t205 - 0.33851633333333333334e-3 * t5195 * t634 * t2518 * t9 + 0.27081306666666666667e-2 * t1928 * t2511 * t1930 - 0.24752154513624000000e-4 * t633 * t1917 * t7172 * t205 - 0.90271022222222222220e-3 * t1775 * t634 * t231 * t222 * t205 - 0.55004787808053333334e-5 * t1928 * t1917 * t984 * t9 * sigma[2] + 0.49649062222222222223e-2 * t633 * t2511 * t1923 + 0.18334929269351111111e-5 * t7190 - 0.90271022222222222223e-3 * t7192 + 0.16925816666666666667e-3 * t1775 * t634 * t84 * t670 * t205 - 0.27081306666666666667e-2 * t633 * t7199 * t635 + 0.22344022901472301845e-7 * t633 * t5579 * t2733 * t762 * t205;
5929 t7242 = t203 * t572 * t2745;
5930 t7245 = t278 * t6994 * t282;
5931 t7248 = t278 * t572 * t2735;
5932 t7251 = t278 * t2418 * t767;
5933 t7254 = t203 * t1661 * t975;
5934 t7256 = 0.18334929269351111112e-5 * t6914 - 0.90271022222222222222e-3 * t6919 + t6927 - 0.10155490000000000000e-2 * t203 * t1841 * t2526 + 0.50777450000000000000e-3 * t203 * t204 * t351 * t1845 + t1428 * t878 * t1872 / 0.9e1 + t566 * t2499 * t1878 / 0.3e1 - 0.27081306666666666667e-2 * t203 * t625 * t2545 + 0.49649062222222222223e-2 * t203 * t204 * t2767 * t205 - t566 * t2504 * t612 / 0.3e1 + 0.27081306666666666666e-2 * t203 * t619 * t990 * t9 + 0.50777450000000000000e-3 * t203 * t1837 * t885 + 0.16925816666666666667e-3 * t7242 - 0.67703266666666666667e-3 * t7245 + 0.55860057253680754613e-8 * t7248 - 0.18334929269351111111e-5 * t7251 + 0.33851633333333333333e-3 * t7254;
5935 t7259 = t278 * t1661 * t986;
5936 t7262 = t566 * t572 * t2725;
5937 t7265 = t278 * t572 * t2714;
5938 t7268 = t203 * t572 * t2718;
5939 t7271 = t278 * t2418 * t771;
5940 t7283 = t278 * t1661 * t990;
5941 t7286 = t278 * t572 * t2767;
5942 t7289 = t203 * t6994 * t223;
5943 t7291 = 0.13751196952013333333e-5 * t7259 + 0.56419388888888888890e-4 * t7262 - 0.61880386284060000000e-5 * t7265 - 0.90271022222222222220e-3 * t7268 + 0.12412265555555555556e-2 * t7271 - 0.33851633333333333334e-3 * t6936 - 0.91674646346755555560e-6 * t6945 - t6953 + 0.33851633333333333333e-3 * t6960 + 0.45135511111111111111e-3 * t6963 - 0.22567755555555555556e-3 * t6966 - t6973 - t566 * t878 * t1864 / 0.6e1 + t6979 / 0.6e1 - 0.67703266666666666667e-3 * t7283 + 0.12412265555555555556e-2 * t7286 - t7289 / 0.3e1;
5944 t7293 = t278 * t5312 * t351;
5945 t7296 = t203 * t2418 * t671;
5946 t7299 = t566 * t2418 * t658;
5947 t7301 = t17 * t2704;
5948 t7325 = t8 * t210 * t2705;
5949 t7328 = 0.12694362500000000000e-3 * t7293 - t7296 / 0.6e1 - t7299 / 0.18e2 - t203 * t7301 * t206 / 0.2e1 - t203 * t878 * t1846 / 0.2e1 + t203 * t603 * t967 * t620 - 0.16925816666666666667e-3 * t6985 + 0.45135511111111111111e-3 * t6988 - t6997 + 0.2e1 / 0.9e1 * t7001 - 0.90271022222222222223e-3 * t1775 * t2511 * t222 * t635 + 0.18334929269351111111e-5 * t1775 * t1917 * t984 * t665 * t205 + t7008 / 0.3e1 - t7325 / 0.8e1 + t6676 / 0.9e1 + t6711 - t6686;
5950 t7335 = -t6664 - 0.2e1 / 0.3e1 * t2497 + t2501 - t2506 + 0.50777450000000000000e-3 * t2535 - 0.13540653333333333333e-2 * t2550 + t2758 - t2761 - t2763 - t2766 + t2770 - t2773 - t2421 + t10 * (t7328 + t7291 + t7256 + t7208) + t6660 + t2778 - t2781 - 0.27081306666666666667e-2 * t2513 + 0.33851633333333333333e-3 * t2521 + 0.55004787808053333333e-5 * t2540;
5951 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5952 v4rho3sigma[8] = t7335 + t7145;
5953
5954 t7368 = t1444 * t777 * t2019 / 0.9e1 - t7112 / 0.6e1 - t424 * t777 * t1991 / 0.2e1 + t6859 / 0.3e1 - t7116 / 0.2e1 - t123 * t777 * t2002 / 0.2e1 - t6271 - 0.11283877777777777778e-3 * t1444 * t124 * t317 * t2018 + 0.16925816666666666667e-3 * t7096 + 0.50777450000000000001e-3 * t1378 * t439 * t2463 * t652 - 0.33851633333333333334e-3 * t6771 + 0.50777450000000000001e-3 * t7089 + 0.50777450000000000000e-3 * t123 * t124 * t317 * t2001 + t6566;
5955 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5956 v4rho3sigma[9] = -t2556 / 0.2e1 - t2448 - 0.3e1 / 0.2e1 * t2560 + t6652 + 0.50777450000000000000e-3 * t2564 + 0.10155490000000000000e-2 * t2469 + 0.15233235000000000000e-2 * t2569 - t6650 + t10 * t7368;
5957
5958 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5959 v4rho3sigma[10] = 0.0e0;
5960
5961 t7384 = -0.9e1 / 0.8e1 * t2707 - 0.3e1 / 0.4e1 * t2509 - 0.60932940000000000000e-2 * t2711 - 0.55692347655654000000e-4 * t2716 - 0.81243920000000000000e-2 * t2720 + 0.11171039000000000000e-1 * t2723 + 0.50777450000000000000e-3 * t2727 + 0.12376077256812000000e-4 * t2730 + 0.50274051528312679152e-7 * t2737 - 0.16501436342416000000e-4 * t2740 + 0.30466470000000000000e-2 * t2743 + 0.15233235000000000000e-2 * t2747 + 0.41253590856040000001e-5 * t2543 - 0.20310980000000000001e-2 * t2516;
5962 t7440 = t2049 * t2064;
5963 t7448 = t2059 * t152;
5964 t7449 = t155 * t2064;
5965 t7459 = t231 * t689;
5966 t7463 = t87 * t234;
5967 t7470 = t707 * t5882 * t48;
5968 t7471 = t84 * t2045;
5969 t7475 = t84 * t234;
5970 t7485 = -0.15091796422897717739e-1 * t2646 * t709 * t2627 - 0.95695463971902770797e-2 * t7440 * t330 * t1563 + 0.50379567901234567902e0 * t2617 * t715 - 0.62974459876543209876e-1 * t911 * t2074 + 0.34214318218754303985e-2 * t7448 * t7449 * t330 - 0.18472508230452674898e1 * t950 * t2614 + 0.14367506401463191586e1 * t240 * t247 * t48 * t1960 + 0.19139092794380554159e-1 * t2609 * t7459 * t1563 + 0.56594236585866441522e-2 * t7463 * t1563 * t710 * t84 * t684 - 0.43389865125113596934e-2 * t7470 * t7471 * t828 - 0.71771597978927078097e-2 * t2609 * t7475 * t686 - 0.33284649691681165977e-1 * t7459 * t704 + 0.42210879422611554370e-1 * t689 * t91 * t710 * t231;
5971 t7491 = t704 * t2034;
5972 t7496 = t1960 * t35;
5973 t7497 = t7496 * t40;
5974 t7521 = t681 * t152;
5975 t7522 = t7521 * t155;
5976 t7528 = 0.40681238512054758415e-1 * t7463 * t704 * t681 - 0.11094883230560388659e-1 * t2646 * t2649 + 0.13868604038200485824e-2 * t920 * t7491 + 0.12481743634380437241e-1 * t7475 * t2649 + 0.770e3 / 0.243e3 * t7497 * t96 - 0.11329245541838134430e1 * t240 * t1960 * t94 * t48 + 0.49657407407407407406e-1 * t911 * t2053 - 0.15829079783479332889e-1 * t234 * t91 * t709 * t2622 - 0.17587866426088147654e-2 * t924 * t330 * t2034 + 0.75458982114488588696e-2 * t7471 * t709 * t1556 - 0.51591074849858566452e-1 * t924 * t2613 * t234 - 0.39725925925925925924e0 * t2617 * t700 + 0.14566172839506172838e1 * t7522 * t242 + 0.14070293140870518123e-1 * t924 * t928 * t684;
5977 t7531 = t231 * t1587;
5978 t7536 = t2045 * t35 * t40;
5979 t7539 = t7531 * t689;
5980 t7543 = t3300 * t684;
5981 t7558 = t3309 * t684;
5982 t7561 = t731 * t2034;
5983 t7565 = t2089 * t1563;
5984 t7571 = -0.91358024691358024694e0 * t7531 * t2586 - 0.25377229080932784637e0 * t2585 * t2103 * t7536 - 0.91358024691358024694e0 * t2104 * t7539 + 0.34259259259259259261e0 * t2104 * t84 * t7543 + 0.91358024691358024694e-1 * t2595 * t2040 - 0.11419753086419753087e-1 * t949 * t5813 - 0.46897119341563786008e0 * t263 * t7497 - 0.46897119341563786008e0 * t7496 * t258 - 0.33497942386831275721e0 * t7521 * t946 + 0.91358024691358024694e-1 * t2582 * t2589 + 0.34259259259259259261e0 * t2585 * t7558 - 0.11419753086419753087e-1 * t910 * t7561 - 0.25377229080932784638e0 * t5802 * t84 * t7565 - 0.33497942386831275721e0 * t736 * t681 * t950;
5985 t7573 = t5833 * t2045;
5986 t7574 = t1563 * t2585;
5987 t7577 = t5824 * t2045;
5988 t7580 = t342 * t2122;
5989 t7583 = t334 * t2087;
5990 t7595 = t932 * t723;
5991 t7618 = 0.25e2 / 0.27e2 * t7595 * t695 - 0.5e1 / 0.9e1 * t934 * t2036 + 0.5e1 / 0.72e2 * t5864 * t323 + 0.5e1 / 0.9e1 * t957 * t2036 - 0.5e1 / 0.72e2 * t5861 * t323 - 0.125e3 / 0.324e3 * t5872 * t2592 - 0.5e1 / 0.9e1 * t2079 * t907 + 0.125e3 / 0.324e3 * t5875 * t2592 + 0.250e3 / 0.243e3 * t2123 * t7539 - 0.250e3 / 0.243e3 * t2088 * t7539 + 0.5e1 / 0.3e1 * t2679 * t686;
5992 t7620 = t955 * t746;
5993 t7623 = t2652 * t254;
5994 t7630 = t2603 * t268;
5995 t7633 = t2117 * t684;
5996 t7640 = t2088 * t234;
5997 t7641 = t5787 * t84;
5998 t7649 = t5869 * t234;
5999 t7652 = t2082 * t684;
6000 t7655 = t724 * t2034;
6001 t7658 = t747 * t2034;
6002 t7661 = t2123 * t234;
6003 t7668 = t5852 * t234;
6004 t7675 = 0.50e2 / 0.81e2 * t2666 * t2617 - 0.25e2 / 0.216e3 * t7649 * t911 - 0.25e2 / 0.216e3 * t7652 * t911 - 0.25e2 / 0.648e3 * t7655 * t911 - 0.25e2 / 0.648e3 * t7658 * t911 - 0.125e3 / 0.324e3 * t7661 * t7641 - 0.275e3 / 0.243e3 * t962 * t7522 + 0.50e2 / 0.81e2 * t2661 * t2617 - 0.25e2 / 0.216e3 * t7668 * t911 + 0.25e2 / 0.81e2 * t2669 * t2617 + 0.25e2 / 0.81e2 * t2654 * t2617;
6005 t7685 = 0.27502393904026666667e-5 * t1775 * t1917 * t984 * t657 * sigma[2] - 0.13540653333333333334e-2 * t1775 * t2511 * t2151 - 0.22001915123221333334e-4 * t633 * t7150 * t2146 + 0.14894718666666666667e-1 * t633 * t2511 * t2155 + 0.50777450000000000001e-3 * t1775 * t634 * t2518 * t670 - 0.74256463540872000001e-4 * t633 * t1917 * t7172 * t222 + 0.16501436342416000000e-4 * t633 * t5575 * t2775 + 0.82507181712080000001e-5 * t633 * t1917 * t984 * t670 * sigma[2] + 0.67032068704416905537e-7 * t633 * t5579 * t2733 * t222 * t762 - 0.81243920000000000001e-2 * t633 * t7199 * t666 - 0.40621960000000000001e-2 * t633 * t2511 * t2141 + 0.55004787808053333335e-5 * t7190 - 0.27081306666666666666e-2 * t7192 - 0.3e1 / 0.8e1 * t8 * t76 * (t7675 + 0.25e2 / 0.27e2 * t7620 * t695 - 0.5e1 / 0.3e1 * t7623 * t236 - 0.55e2 / 0.27e2 * t743 * t2600 + 0.5e1 / 0.9e1 * t2114 * t907 + 0.5e1 / 0.3e1 * t7630 * t236 - 0.25e2 / 0.216e3 * t7633 * t911 + 0.25e2 / 0.27e2 * t3293 * t2040 + 0.25e2 / 0.27e2 * t3323 * t2040 + 0.125e3 / 0.324e3 * t7640 * t7641 - 0.275e3 / 0.243e3 * t939 * t7522 + t7618 + (t7528 + t7485) * t102 + t7571 * t110 - 0.625e3 / 0.8748e4 * t7573 * t7574 - 0.625e3 / 0.8748e4 * t7577 * t7574 + 0.250e3 / 0.243e3 * t7580 * t2089 - 0.250e3 / 0.243e3 * t7583 * t2089 - 0.770e3 / 0.243e3 * t255 * t7497 + 0.55e2 / 0.27e2 * t720 * t2600 + 0.770e3 / 0.243e3 * t269 * t7497 - 0.5e1 / 0.3e1 * t2691 * t686) * t115 + 0.50777450000000000001e-3 * t7242 - 0.20310980000000000000e-2 * t7245 + 0.16758017176104226384e-7 * t7248;
6006 t7721 = -0.55004787808053333334e-5 * t7251 + 0.10155490000000000000e-2 * t7254 + 0.41253590856040000001e-5 * t7259 + 0.16925816666666666667e-3 * t7262 - 0.18564115885218000000e-4 * t7265 - 0.27081306666666666666e-2 * t7268 + 0.37236796666666666667e-2 * t7271 - 0.13751196952013333334e-5 * t6945 + 0.67703266666666666667e-3 * t6963 - 0.33851633333333333334e-3 * t6966 - 0.3e1 / 0.2e1 * t203 * t7301 * t223 + 0.38083087500000000000e-3 * t278 * t5677 * t351 - 0.3e1 / 0.2e1 * t203 * t2504 * t671 - t203 * t878 * t1997 / 0.2e1 + t1428 * t878 * t2014 / 0.9e1 + 0.15233235000000000000e-2 * t203 * t625 * t2745 + 0.50777450000000000000e-3 * t203 * t204 * t351 * t1996 - 0.17377171777777777778e-1 * t278 * t878 * t1961;
6007 t7790 = -0.11283877777777777778e-3 * t1428 * t204 * t351 * t2013 + 0.15630527202121822222e-3 * t278 * t204 * t761 * t1970 * sigma[2] - 0.13540653333333333333e-2 * t566 * t204 * t990 * t657 + 0.14894718666666666666e-1 * t203 * t204 * t2767 * t222 - 0.31840232634598030130e-6 * t278 * t204 * t1979 * t1983 * t762 - 0.81243920000000000000e-2 * t203 * t625 * t2718 - t566 * t878 * t1955 / 0.2e1 + 0.15233235000000000000e-2 * t203 * t1837 * t975 + 0.61880386284060000000e-5 * t278 * t1837 * t986 - 0.16501436342416000000e-4 * t278 * t2504 * t767 - 0.44688045802944603692e-7 * t278 * t878 * t1984 + 0.50274051528312679152e-7 * t278 * t625 * t2735 + 0.18153160090853835734e-9 * t278 * t204 * t5755 / t78 / t1968 / t1164 * t1980 - 0.30466470000000000000e-2 * t278 * t7301 * t282 - 0.40621959999999999999e-2 * t203 * t204 * t990 * t670 + 0.11171039000000000000e-1 * t278 * t2504 * t771 + 0.60505266588858666668e-4 * t278 * t878 * t1971 + 0.50777450000000000000e-3 * t566 * t625 * t2725;
6008 t7817 = -0.55692347655654000000e-4 * t278 * t625 * t2714 + t6979 / 0.4e1 - t566 * t2504 * t658 / 0.2e1 - 0.30466470000000000000e-2 * t278 * t1837 * t990 - 0.17377171777777777778e-1 * t278 * t204 * t280 * t1960 + 0.11171039000000000000e-1 * t278 * t625 * t2767 - 0.20310980000000000000e-2 * t7283 + 0.37236796666666666667e-2 * t7286 - t7289 + 0.38083087500000000000e-3 * t7293 - t7296 / 0.2e1 - t7299 / 0.6e1 - 0.25388725000000000000e-3 * t6985 + 0.67703266666666666666e-3 * t6988 + t7001 / 0.3e1 - 0.3e1 / 0.8e1 * t7325 + t6711 - t6686;
6009 t7823 = 0.10155490000000000000e-2 * t2524 - t6664 - t2497 + 0.76166175000000000000e-3 * t2535 - 0.20310980000000000000e-2 * t2550 + 0.11424926250000000000e-2 * t2757 - 0.3e1 / 0.2e1 * t2760 - 0.3e1 * t2763 - 0.60932940000000000000e-2 * t2765 + 0.11171039000000000000e-1 * t2769 - t2772 / 0.2e1 + t6660 + t10 * (t7817 + t7790 + t7721 + t7685) + 0.16501436342416000000e-4 * t2777 - 0.81243920000000000001e-2 * t2780;
6010 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6011 v4rho3sigma[11] = t7823 + t7384;
6012
6013 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6014 v4rho3lapl[0] = 0.0e0;
6015
6016 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6017 v4rho3lapl[1] = 0.0e0;
6018
6019 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6020 v4rho3lapl[2] = 0.0e0;
6021
6022 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6023 v4rho3lapl[3] = 0.0e0;
6024
6025 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6026 v4rho3lapl[4] = 0.0e0;
6027
6028 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6029 v4rho3lapl[5] = 0.0e0;
6030
6031 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6032 v4rho3lapl[6] = 0.0e0;
6033
6034 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6035 v4rho3lapl[7] = 0.0e0;
6036
6037 t7827 = t438 * t2807;
6038 t7829 = t1047 * t196;
6039 t7836 = t383 * t549;
6040 t7841 = t357 * t999 * t422;
6041 t7847 = t8 * t455 * t384 / 0.9e1;
6042 t7849 = t8 * t136 * t1048;
6043 t7852 = t8 * t18 * t2901;
6044 t7854 = t1442 * t383;
6045 t7859 = t424 * t2785 * t426;
6046 t7861 = t135 * t383;
6047 t7863 = t123 * t7861 * t130;
6048 t7865 = t15 * t2900;
6049 t7870 = t123 * t2785 * t449;
6050 t7872 = t17 * t1047;
6051 t7874 = t123 * t7872 * t130;
6052 t7876 = 0.14894718666666666667e-1 * t2805 * t2806 * t1388 - 0.10832522666666666667e-1 * t7827 - 0.81243920000000000001e-2 * t2805 * t7829 * t441 - 0.40621960000000000001e-2 * t2805 * t2806 * t1367 - 0.22001915123221333334e-4 * t2805 * t7836 * t1373 - 0.13540653333333333334e-2 * t7841 * t2806 * t1380 + t7847 - t7849 / 0.2e1 - 0.3e1 / 0.2e1 * t7852 + t1000 * t7854 * t1446 / 0.9e1 - 0.2e1 / 0.3e1 * t7859 - 0.2e1 / 0.3e1 * t7863 - 0.3e1 / 0.2e1 * t1000 * t7865 * t130 - 0.2e1 * t7870 - 0.4e1 * t7874;
6053 t7883 = t422 * t1047;
6054 t7888 = t194 * t7861 * t198;
6055 t7891 = t194 * t2785 * t559;
6056 t7908 = t16 * t2900;
6057 t7916 = t194 * t7872 * t198;
6058 t7919 = t194 * t2785 * t555;
6059 t7921 = t1563 * t2829;
6060 t7926 = t2829 * t472;
6061 t7952 = t2878 * t170;
6062 t7957 = t1020 * t511;
6063 t7966 = t1037 * t534;
6064 t7969 = 0.25e2 / 0.27e2 * t6399 * t1007 + 0.25e2 / 0.27e2 * t6392 * t1007 - 0.5e1 / 0.9e1 * t4335 * t360 - 0.250e3 / 0.81e2 * t4409 * t2824 - 0.5e1 / 0.3e1 * t7952 * t149 - 0.5e1 / 0.3e1 * t2881 * t474 + 0.25e2 / 0.27e2 * t7957 * t483 - 0.5e1 / 0.9e1 * t1022 * t1530 + 0.250e3 / 0.81e2 * t4412 * t2824 + 0.5e1 / 0.3e1 * t2813 * t474 + 0.25e2 / 0.27e2 * t7966 * t483;
6065 t7975 = t2840 * t184;
6066 t7984 = t379 * t1621;
6067 t7988 = t371 * t1584;
6068 t8014 = -0.27407407407407407407e1 * t2829 * t6434 + 0.91358024691358024692e-1 * t1006 * t6437 - 0.45679012345679012346e0 * t2286 + 0.13399176954732510288e1 * t2289 + 0.12181069958847736626e1 * t2284 + 0.13399176954732510288e1 * t2268 + 0.12181069958847736626e1 * t2271 - 0.45679012345679012346e0 * t2278 + 0.45679012345679012346e1 * t2281 + 0.45679012345679012346e1 * t2275 + 0.20301783264746227709e1 * t4272 * t27 * t6422 + 0.20301783264746227709e1 * t2829 * t1602 * t6442 - 0.27407407407407407407e1 * t1603 * t27 * t6450 + 0.91358024691358024691e-1 * t1033 * t4284;
6069 t8033 = t27 * t1539;
6070 t8055 = 0.50379567901234567902e0 * t1007 * t1571 - 0.27371454575003443189e-1 * t1013 * t1560 * t6295 + 0.76556371177522216641e-1 * t6309 * t367 * t1563 - 0.95695463971902770800e-1 * t2327 + 0.34711892100090877548e-1 * t6362 * t8033 * t828 - 0.45275389268693153220e-1 * t1013 * t498 * t148 * t4400 + 0.57417278383141662480e-1 * t2324 * t27 * t472 * t149 - 0.25189783950617283951e1 * t2301 + 0.75458982114488588697e-1 * t2310 + 0.67172757201646090536e1 * t2317 - 0.41050018289894833105e1 * t2321 - 0.60367185691590870959e-1 * t8033 * t497 * t1556 + 0.12663263826783466312e0 * t2866 * t497 * t1567;
6071 t8076 = -0.39725925925925925926e0 * t1007 * t1547 + 0.14070293140870518124e-1 * t802 * t367 * t1528 - 0.99853949075043497931e-1 * t27 * t147 * t2335 - 0.11094883230560388659e-1 * t1013 * t6354 - 0.52967901234567901236e1 * t2294 + 0.19862962962962962963e1 * t2296 - 0.70351465704352590620e-1 * t2299 + 0.32369272976680384088e1 * t2305 + 0.18760390854494024165e0 * t2313 - 0.2200e4 / 0.243e3 * t2315 + 0.16642324845840582989e0 * t2338 - 0.21105439711305777185e0 * t2330 - 0.14793177640747184879e0 * t2333 + 0.55474416152801943294e-1 * t2336;
6072 t8079 = -0.250e3 / 0.243e3 * t7988 * t1588 + t8014 * t63 + 0.25e2 / 0.9e1 * t2374 + 0.1250e4 / 0.243e3 * t2376 - 0.25e2 / 0.9e1 * t2386 - 0.2200e4 / 0.243e3 * t2345 + 0.200e3 / 0.27e2 * t2347 - 0.200e3 / 0.27e2 * t2352 + 0.2200e4 / 0.243e3 * t2360 - 0.1250e4 / 0.243e3 * t2367 + (t8076 + t8055) * t55;
6073 t8086 = -t1000 * t1001 * t1418 / 0.2e1 - 0.3e1 / 0.2e1 * t1000 * t2801 * t449 - t1000 * t7883 * t426 / 0.2e1 - 0.13540653333333333334e-2 * t7888 + 0.14894718666666666667e-1 * t7891 + 0.60505266588858666668e-4 * t1000 * t1052 * t1470 - 0.17377171777777777778e-1 * t1000 * t1052 * t1460 + 0.11171039000000000000e-1 * t1000 * t2905 * t559 - 0.16501436342416000000e-4 * t1000 * t2905 * t555 - 0.44688045802944603692e-7 * t1000 * t1052 * t1493 - 0.30466470000000000000e-2 * t1000 * t7908 * t198 - t1000 * t2797 * t1506 / 0.2e1 - 0.81243920000000000001e-2 * t7916 - 0.22001915123221333334e-4 * t7919 - 0.3e1 / 0.8e1 * t358 * t193 * (t8079 + 0.5e1 / 0.9e1 * t1039 * t1530 + 0.5e1 / 0.9e1 * t4332 * t360 + 0.5e1 / 0.3e1 * t7975 * t149 - 0.125e3 / 0.81e2 * t2343 - 0.250e3 / 0.81e2 * t2350 - 0.250e3 / 0.81e2 * t2355 - 0.125e3 / 0.81e2 * t2358 + 0.1000e4 / 0.243e3 * t2362 + 0.1000e4 / 0.243e3 * t2365 + 0.250e3 / 0.243e3 * t7984 * t1588 + t7969 + 0.1250e4 / 0.2187e4 * t6278 * t7921 + 0.1250e4 / 0.2187e4 * t6282 * t7921 + 0.250e3 / 0.81e2 * t6383 * t7926 + 0.25e2 / 0.27e2 * t3434 * t1534 + 0.25e2 / 0.27e2 * t3403 * t1534 + 0.25e2 / 0.27e2 * t6402 * t1007 + 0.25e2 / 0.81e2 * t6413 * t1007 - 0.250e3 / 0.81e2 * t6416 * t7926 + 0.25e2 / 0.27e2 * t6377 * t1007 + 0.25e2 / 0.81e2 * t6380 * t1007) * t68;
6074 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6075 v4rho3tau[0] = t8086 + t7876;
6076
6077 t8088 = t566 * t2915 * t568;
6078 t8092 = t203 * t135 * t412 * t206;
6079 t8095 = t203 * t2915 * t577;
6080 t8099 = t8 * t581 * t413 / 0.9e1;
6081 t8100 = t1426 * t412;
6082 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6083 v4rho3tau[1] = -0.2e1 / 0.3e1 * t8088 - 0.2e1 / 0.3e1 * t8092 - 0.2e1 * t8095 + t8099 + t1000 * t8100 * t1430 / 0.9e1 - t1000 * t2922 * t1477 / 0.2e1 - t1000 * t1058 * t1400 / 0.2e1;
6084
6085 t8127 = t438 * t2942;
6086 t8130 = 0.4e1 / 0.9e1 * t2933 * t2936;
6087 t8131 = t2945 * t4;
6088 t8141 = 0.4e1 / 0.3e1 * t2933 * t2939;
6089 t8142 = -0.90271022222222222225e-3 * t7841 * t2806 * t217 * t441 + 0.49649062222222222225e-2 * t2805 * t2806 * t1763 - 0.27081306666666666668e-2 * t4599 * t2806 * t1770 - 0.36108408888888888890e-2 * t7827 - 0.73339717077404444449e-5 * t2805 * t7836 * t1759 - 0.27081306666666666668e-2 * t2805 * t7829 * t598 - 0.36108408888888888890e-2 * t8127 - t8130 - t8131 * t122 * t384 / 0.2e1 + t7847 - t7849 / 0.3e1 - t7852 / 0.2e1 - t1000 * t7865 * t218 / 0.2e1 - t8141;
6090 t8143 = t135 * t2;
6091 t8144 = t8143 * t999;
6092 t8145 = t8144 * t1062;
6093 t8150 = t603 * t2 * t999;
6094 t8151 = t8150 * t2947;
6095 t8173 = -0.2e1 / 0.9e1 * t8145 - t2946 * t2801 * t605 + t8151 / 0.6e1 - 0.2e1 / 0.9e1 * t7859 - 0.4e1 / 0.9e1 * t7863 - 0.2e1 / 0.3e1 * t7870 - 0.4e1 / 0.3e1 * t7874 - 0.90271022222222222225e-3 * t7888 + 0.49649062222222222225e-2 * t7891 + t1000 * t7854 * t1704 / 0.9e1 - t2946 * t2797 * t1711 / 0.3e1 - t1000 * t7883 * t587 / 0.3e1 - t1000 * t2797 * t1738 / 0.6e1 - 0.27081306666666666668e-2 * t7916 - 0.73339717077404444449e-5 * t7919;
6096 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6097 v4rho3tau[2] = t8173 + t8142;
6098
6099 t8177 = t8144 * t1117;
6100 t8179 = t633 * t2971;
6101 t8184 = t564 * t1111;
6102 t8188 = t8144 * t1066;
6103 t8191 = 0.4e1 / 0.9e1 * t2933 * t2953;
6104 t8200 = t8150 * t2956;
6105 t8205 = t8143 * t4;
6106 t8206 = t8205 * t1113;
6107 t8209 = 0.4e1 / 0.3e1 * t2933 * t2963;
6108 t8215 = t357 * t999 * t564;
6109 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6110 v4rho3tau[3] = t1000 * t8100 * t1720 / 0.9e1 - 0.45135511111111111110e-3 * t8177 - 0.36108408888888888888e-2 * t8179 - 0.13540653333333333333e-2 * t2969 * t2970 * t1653 - t1000 * t8184 * t568 / 0.6e1 - 0.2e1 / 0.9e1 * t8188 - t8191 - t1000 * t2922 * t1727 / 0.6e1 + t2946 * t2922 * t1731 / 0.3e1 - 0.2e1 / 0.9e1 * t8088 - 0.4e1 / 0.9e1 * t8092 - t8200 / 0.6e1 + t8131 * t202 * t413 / 0.2e1 - t8206 / 0.6e1 - t8209 - t1000 * t2962 * t577 / 0.2e1 - 0.2e1 / 0.3e1 * t8095 + t8099 - 0.45135511111111111110e-3 * t8215 * t2970 * t1776;
6111
6112 t8225 = t2933 * t2975;
6113 t8239 = t2933 * t2978;
6114 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6115 v4rho3tau[4] = -0.4e1 / 0.9e1 * t8145 - t8130 - t8141 - 0.36108408888888888889e-2 * t8127 - 0.4e1 / 0.3e1 * t8151 - 0.2e1 / 0.9e1 * t7863 + t7847 - t7849 / 0.6e1 - 0.45135511111111111112e-3 * t7888 - 0.2e1 / 0.9e1 * t8225 + t1000 * t7854 * t1882 / 0.9e1 - t1000 * t7883 * t647 / 0.6e1 - 0.45135511111111111112e-3 * t7841 * t2806 * t1935 - t2946 * t2797 * t1895 / 0.3e1 - 0.2e1 / 0.3e1 * t8239 - t1000 * t2797 * t1868 / 0.6e1 - t1000 * t2801 * t653 / 0.2e1 - 0.13540653333333333334e-2 * t2805 * t2806 * t1907 - t1000 * t1001 * t1857 / 0.2e1;
6116
6117 t8257 = t633 * t2988;
6118 t8262 = t1111 * t280;
6119 t8266 = t412 * t761;
6120 t8286 = t2933 * t3086;
6121 t8288 = t2933 * t3089;
6122 t8290 = t2933 * t3092;
6123 t8292 = -0.90271022222222222223e-3 * t8215 * t2970 * t222 * t635 - 0.36108408888888888889e-2 * t8257 + 0.27081306666666666667e-2 * t4895 * t2970 * t1930 - 0.27081306666666666667e-2 * t2969 * t8262 * t635 - 0.73339717077404444445e-5 * t2969 * t8266 * t1919 + 0.49649062222222222223e-2 * t2969 * t2970 * t1923 - 0.36108408888888888889e-2 * t8179 - t1000 * t8184 * t612 / 0.3e1 - t1000 * t2922 * t1864 / 0.6e1 + t1000 * t8100 * t1872 / 0.9e1 + t2946 * t2922 * t1878 / 0.3e1 - 0.27081306666666666667e-2 * t8286 - 0.73339717077404444445e-5 * t8288 + 0.49649062222222222223e-2 * t8290;
6124 t8295 = t74 * t3080;
6125 t8302 = t2933 * t2983;
6126 t8304 = t2933 * t2986;
6127 t8308 = t2933 * t2991;
6128 t8313 = t2959 * t3082;
6129 t8315 = -0.90271022222222222223e-3 * t8177 - t8191 - t8206 / 0.3e1 - t1000 * t8295 * t206 / 0.2e1 - t1000 * t1058 * t1846 / 0.2e1 - 0.2e1 / 0.9e1 * t8302 - 0.4e1 / 0.3e1 * t8304 + t2946 * t2962 * t620 - 0.2e1 / 0.3e1 * t8308 - t8209 - 0.4e1 / 0.9e1 * t8188 + 0.4e1 / 0.3e1 * t8200 - 0.2e1 / 0.9e1 * t8092 - t8313 / 0.2e1 + t8099;
6130 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6131 v4rho3tau[5] = t8315 + t8292;
6132
6133 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6134 v4rho3tau[6] = -0.2e1 / 0.3e1 * t8145 - 0.2e1 / 0.3e1 * t8225 - 0.2e1 * t8239 + t7847 + t1000 * t7854 * t2019 / 0.9e1 - t1000 * t2797 * t1991 / 0.2e1 - t1000 * t1001 * t2002 / 0.2e1;
6135
6136 t8356 = t75 * t3080;
6137 t8368 = 0.14894718666666666667e-1 * t2969 * t2970 * t2155 - 0.81243920000000000001e-2 * t2969 * t8262 * t666 - 0.40621960000000000001e-2 * t2969 * t2970 * t2141 - 0.22001915123221333334e-4 * t2969 * t8266 * t2146 - 0.13540653333333333334e-2 * t8215 * t2970 * t2151 - 0.10832522666666666667e-1 * t8257 - t1000 * t2922 * t1955 / 0.2e1 - 0.17377171777777777778e-1 * t1000 * t1116 * t1961 - 0.44688045802944603692e-7 * t1000 * t1116 * t1984 - 0.16501436342416000000e-4 * t1000 * t3085 * t767 - 0.30466470000000000000e-2 * t1000 * t8356 * t282 + 0.60505266588858666668e-4 * t1000 * t1116 * t1971 + 0.11171039000000000000e-1 * t1000 * t3085 * t771 - 0.81243920000000000001e-2 * t8286 - 0.22001915123221333334e-4 * t8288;
6138 t8376 = t5787 * t80;
6139 t8394 = t1563 * t3000;
6140 t8399 = t408 * t2122;
6141 t8402 = t400 * t2087;
6142 t8412 = 0.1250e4 / 0.2187e4 * t7573 * t8394 + 0.1250e4 / 0.2187e4 * t7577 * t8394 + 0.250e3 / 0.243e3 * t8399 * t2089 - 0.250e3 / 0.243e3 * t8402 * t2089 - 0.125e3 / 0.81e2 * t2655 - 0.250e3 / 0.81e2 * t2662 - 0.250e3 / 0.81e2 * t2667 - 0.125e3 / 0.81e2 * t2670 + 0.1000e4 / 0.243e3 * t2674 + 0.1000e4 / 0.243e3 * t2677 - 0.25e2 / 0.9e1 * t2687;
6143 t8444 = 0.45679012345679012346e1 * t2587 - 0.27407407407407407407e1 * t2104 * t80 * t7543 + 0.91358024691358024691e-1 * t1097 * t5813 - 0.45679012345679012346e0 * t2598 + 0.13399176954732510288e1 * t2601 + 0.20301783264746227709e1 * t3000 * t2103 * t7536 + 0.12181069958847736626e1 * t2596 + 0.13399176954732510288e1 * t2580 + 0.12181069958847736626e1 * t2583 - 0.45679012345679012346e0 * t2590 + 0.45679012345679012346e1 * t2593 + 0.20301783264746227709e1 * t5802 * t80 * t7565 - 0.27407407407407407407e1 * t3000 * t7558 + 0.91358024691358024692e-1 * t1070 * t7561;
6144 t8446 = t80 * t234;
6145 t8455 = t2045 * t80;
6146 t8477 = 0.57417278383141662480e-1 * t2609 * t8446 * t686 + 0.14070293140870518124e-1 * t924 * t396 * t2034 - 0.39725925925925925926e0 * t1071 * t2053 - 0.60367185691590870959e-1 * t8455 * t709 * t1556 + 0.12663263826783466312e0 * t3028 * t709 * t2070 - 0.41050018289894833105e1 * t2615 + 0.75458982114488588697e-1 * t2628 + 0.67172757201646090536e1 * t2635 - 0.25189783950617283951e1 * t2637 + 0.50379567901234567902e0 * t1071 * t2074 - 0.27371454575003443189e-1 * t7448 * t7449 * t396 + 0.76556371177522216641e-1 * t7440 * t396 * t1563 + 0.34711892100090877548e-1 * t7470 * t8455 * t828;
6147 t8497 = -0.45275389268693153220e-1 * t1077 * t710 * t235 * t5933 - 0.52967901234567901236e1 * t2618 + 0.19862962962962962963e1 * t2620 - 0.70351465704352590620e-1 * t2623 + 0.18760390854494024165e0 * t2631 - 0.2200e4 / 0.243e3 * t2633 + 0.32369272976680384088e1 * t2641 - 0.95695463971902770800e-1 * t2611 - 0.21105439711305777186e0 * t2644 - 0.14793177640747184879e0 * t2647 + 0.55474416152801943294e-1 * t2650 + 0.16642324845840582989e0 * t2606 - 0.99853949075043497931e-1 * t8446 * t2649 - 0.11094883230560388659e-1 * t1077 * t7491;
6148 t8509 = t1084 * t723;
6149 t8512 = t3042 * t254;
6150 t8521 = t1101 * t746;
6151 t8526 = t3012 * t268;
6152 t8529 = -0.5e1 / 0.9e1 * t5864 * t389 + 0.5e1 / 0.9e1 * t5861 * t389 - 0.5e1 / 0.3e1 * t3057 * t686 + 0.25e2 / 0.27e2 * t8509 * t695 - 0.5e1 / 0.3e1 * t8512 * t236 - 0.250e3 / 0.81e2 * t5875 * t3005 + 0.5e1 / 0.3e1 * t3070 * t686 + 0.5e1 / 0.9e1 * t1103 * t2036 + 0.25e2 / 0.27e2 * t8521 * t695 + 0.250e3 / 0.81e2 * t5872 * t3005 + 0.5e1 / 0.3e1 * t8526 * t236;
6153 t8556 = 0.14894718666666666667e-1 * t8290 - 0.13540653333333333334e-2 * t8177 - t8206 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t277 * (t8529 - 0.1250e4 / 0.243e3 * t2689 + 0.25e2 / 0.9e1 * t2699 + 0.1250e4 / 0.243e3 * t2701 - 0.2200e4 / 0.243e3 * t2657 + 0.200e3 / 0.27e2 * t2659 - 0.200e3 / 0.27e2 * t2664 + 0.2200e4 / 0.243e3 * t2672 + t8444 * t110 + (t8497 + t8477) * t102 - 0.5e1 / 0.9e1 * t1086 * t2036 + t8412 + 0.25e2 / 0.27e2 * t3517 * t2040 + 0.25e2 / 0.81e2 * t7655 * t1071 - 0.250e3 / 0.81e2 * t7640 * t8376 + 0.25e2 / 0.27e2 * t7649 * t1071 + 0.25e2 / 0.27e2 * t3548 * t2040 + 0.25e2 / 0.27e2 * t7652 * t1071 + 0.25e2 / 0.27e2 * t7668 * t1071 + 0.25e2 / 0.27e2 * t7633 * t1071 + 0.25e2 / 0.81e2 * t7658 * t1071 + 0.250e3 / 0.81e2 * t7661 * t8376) * t115 - 0.3e1 / 0.2e1 * t1000 * t8295 * t223 - 0.3e1 / 0.2e1 * t1000 * t2962 * t671 - t1000 * t1058 * t1997 / 0.2e1 + t1000 * t8100 * t2014 / 0.9e1 - t1000 * t8184 * t658 / 0.2e1 - 0.2e1 / 0.3e1 * t8302 - 0.4e1 * t8304 - 0.2e1 * t8308 - 0.2e1 / 0.3e1 * t8188 - 0.3e1 / 0.2e1 * t8313 + t8099;
6154 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6155 v4rho3tau[7] = t8556 + t8368;
6156
6157 t8564 = t194 * t2210 * t868;
6158 t8575 = t17 * t3177;
6159 t8579 = t135 * t1151;
6160 t8581 = t194 * t8579 * t198;
6161 t8594 = 0.82507181712080000002e-5 * t194 * t2196 * t868 + 0.33516034352208452769e-7 * t194 * t777 * t2186 + 0.27502393904026666668e-5 * t8564 - 0.55004787808053333334e-5 * t194 * t3095 * t555 + 0.20310980000000000000e-2 * t123 * t2196 * t854 + 0.10155490000000000000e-2 * t123 * t777 * t2206 - 0.20310980000000000000e-2 * t194 * t8575 * t198 - 0.67703266666666666667e-3 * t8581 + 0.90074342321560216815e-7 * t194 * t124 * t2185 * sigma[0] - 0.37128231770436000001e-4 * t194 * t777 * t2215 - 0.34377992380033333333e-6 * t424 * t124 * t1159 * t425;
6162 t8596 = t123 * t430 * t3200;
6163 t8609 = t123 * t2210 * t854;
6164 t8632 = t194 * t430 * t3213;
6165 t8634 = -0.68755984760066666666e-6 * t8596 + 0.11000957561610666667e-4 * t123 * t124 * t867 * t129 + 0.37236796666666666667e-2 * t194 * t3095 * t559 + 0.33851633333333333333e-3 * t424 * t777 * t2222 + 0.67703266666666666666e-3 * t8609 - 0.54162613333333333334e-2 * t123 * t777 * t2229 - 0.12568512882078169788e-7 * t194 * t434 * t3213 - 0.68074350340701884003e-10 * t194 * t124 * t4476 / t25 / t4460 * t550 - 0.20626795428020000000e-5 * t123 * t434 * t3200 - 0.10313397714010000000e-5 * t123 * t124 * t1159 * t448 - 0.41895042940260565960e-8 * t8632;
6166 t8642 = t194 * t6210 * t317;
6167 t8651 = t123 * t8579 * t130;
6168 t8654 = t194 * t1404 * t1159;
6169 t8663 = t194 * t2210 * t872;
6170 t8667 = 0.16925816666666666667e-3 * t194 * t6248 * t317;
6171 t8668 = -t123 * t8575 * t130 + 0.76166175000000000000e-3 * t194 * t6163 * t317 + 0.50777450000000000000e-3 * t8642 - t123 * t3095 * t449 / 0.2e1 - t424 * t3095 * t426 / 0.6e1 - t8651 / 0.3e1 - 0.51566988570050000000e-6 * t8654 - 0.77350482855075000000e-6 * t194 * t1410 * t1159 - 0.40621960000000000000e-2 * t194 * t2196 * t872 - 0.13540653333333333333e-2 * t8663 - t8667;
6172 t8680 = 0.17188996190016666667e-6 * t194 * t1454 * t1159;
6173 t8682 = t194 * t430 * t867;
6174 t8686 = t8 * t455 * t1152 / 0.12e2;
6175 t8688 = t8 * t136 * t3178;
6176 t8690 = t6503 * t147;
6177 t8697 = t2383 * t472;
6178 t8700 = t6490 * t147;
6179 t8703 = t2371 * t472;
6180 t8706 = t554 * t152;
6181 t8709 = t4399 * t40;
6182 t8721 = t502 * t1563;
6183 t8725 = t2308 * t828;
6184 t8728 = t8706 * t155;
6185 t8738 = t498 * t472;
6186 t8757 = -0.20966460905349794238e0 * t8706 * t480 - 0.94323727643110735869e-3 * t1132 * t8709 + 0.74259880465705512319e-2 * t495 * t498 * t554 + 0.11961932996487846350e-2 * t3111 * t1560 * t2309 + 0.25152994038162862898e-2 * t3115 * t497 * t3119 - 0.23580931910777683967e-3 * t3118 * t8721 - 0.42767897773442879981e-3 * t1129 * t1560 * t8725 + 0.26589216392318244170e0 * t8728 * t484 - 0.31898487990634256932e-2 * t2324 * t866 * t147 * t1563 - 0.70351465704352590618e-2 * t866 * t43 * t3112 + 0.65954499097830553704e-3 * t3111 * t8738 - 0.58556328161290940142e-2 * t34 * t554 * t492 + 0.29904832491219615874e-3 * t2324 * t1122 * t472 * t1563 + 0.54237331406391996167e-3 * t6362 * t1122 * t477 * t828 + 0.55474416152801943294e-2 * t866 * t162 * t164 - 0.52007265143251821838e-3 * t3105 * t502;
6187 t8761 = t866 * t1587;
6188 t8767 = t523 * t472;
6189 t8771 = t2823 * t1563;
6190 t8774 = t8761 * t147;
6191 t8777 = t3151 * t472;
6192 t8784 = t4293 * t477;
6193 t8785 = t1563 * t3151;
6194 t8790 = t1135 * t511;
6195 t8801 = t1145 * t534;
6196 t8808 = -0.25e2 / 0.162e3 * t8690 * t789 + 0.100e3 / 0.243e3 * t3166 * t2293 + 0.100e3 / 0.243e3 * t3136 * t2293 - 0.25e2 / 0.324e3 * t8697 * t789 - 0.25e2 / 0.162e3 * t8700 * t789 - 0.25e2 / 0.324e3 * t8703 * t789 + t8757 * t55 + (0.48216735253772290809e-1 * t8706 * t519 + 0.15226337448559670782e0 * t8761 * t3152 + 0.31721536351165980796e-1 * t3151 * t1602 * t8709 - 0.14274691358024691358e-1 * t3151 * t8767 + 0.31721536351165980796e-1 * t4272 * t1122 * t8771 + 0.15226337448559670782e0 * t1603 * t8774 - 0.14274691358024691358e-1 * t1603 * t8777 + 0.48216735253772290809e-1 * t524 * t8728) * t63 + 0.625e3 / 0.69984e5 * t8784 * t8785 - 0.5e1 / 0.9e1 * t3131 * t474 + 0.25e2 / 0.81e2 * t8790 * t483 + 0.5e1 / 0.36e2 * t6465 * t289 + 0.125e3 / 0.486e3 * t6272 * t2280 + 0.25e2 / 0.5184e4 * t4340 * t1126 + 0.5e1 / 0.9e1 * t3161 * t474 + 0.25e2 / 0.81e2 * t8801 * t483 - 0.5e1 / 0.36e2 * t6476 * t289 - 0.125e3 / 0.3888e4 * t4409 * t3144;
6197 t8811 = t3159 * t184;
6198 t8814 = t3129 * t170;
6199 t8845 = t4304 * t477;
6200 t8848 = -0.125e3 / 0.7776e4 * t1585 * t8777 + 0.10e2 / 0.9e1 * t8811 * t149 - 0.10e2 / 0.9e1 * t8814 * t149 + 0.125e3 / 0.7776e4 * t1622 * t8777 - 0.125e3 / 0.486e3 * t6275 * t2280 + 0.25e2 / 0.5184e4 * t4318 * t1126 + 0.125e3 / 0.3888e4 * t4412 * t3144 + 0.110e3 / 0.81e2 * t812 * t2288 - 0.25e2 / 0.486e3 * t1579 * t3108 - 0.20e2 / 0.27e2 * t2388 * t785 - 0.125e3 / 0.729e3 * t1622 * t8774 + 0.475e3 / 0.2916e4 * t535 * t8728 - 0.110e3 / 0.81e2 * t836 * t2288 - 0.25e2 / 0.486e3 * t1616 * t3108 + 0.20e2 / 0.27e2 * t2378 * t785 + 0.125e3 / 0.729e3 * t1585 * t8774 + 0.475e3 / 0.2916e4 * t512 * t8728 + 0.625e3 / 0.69984e5 * t8845 * t8785;
6201 t8862 = t1151 * t196;
6202 t8866 = -0.26127274208825333333e-4 * t194 * t124 * t2214 + 0.82507181712080000000e-5 * t194 * t434 * t867 + 0.74473593333333333333e-2 * t194 * t777 * t2254 + t8680 + 0.27502393904026666666e-5 * t8682 + t8686 - t8688 / 0.4e1 - 0.3e1 / 0.8e1 * t8 * t18 * (t8848 + t8808) * t68 - 0.16758017176104226384e-7 * t438 * t4609 * t3211 * t129 * sigma[0] + 0.11000957561610666667e-4 * t438 * t6535 * t2401 - 0.27081306666666666667e-2 * t438 * t8862 * t441;
6203 t8871 = t3100 / 0.4e1;
6204 t8875 = 0.50777450000000000000e-3 * t3189;
6205 t8879 = 0.51566988570050000000e-6 * t3205;
6206 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6207 v4rho2sigma2[0] = t10 * (t8866 + t8668 + t8634 + t8594) - 0.15470096571015000000e-5 * t3208 - t3097 - t8871 + 0.15233235000000000000e-2 * t3192 - 0.3e1 / 0.4e1 * t3180 + 0.20310980000000000000e-2 * t3186 + t8875 - 0.40621960000000000000e-2 * t3198 + 0.82507181712080000002e-5 * t3195 - 0.20626795428020000000e-5 * t3202 - t8879 + 0.82507181712080000000e-5 * t3218 - 0.12568512882078169788e-7 * t3215 - 0.20310980000000000000e-2 * t3183;
6208
6209 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6210 v4rho2sigma2[1] = 0.0e0;
6211
6212 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6213 v4rho2sigma2[2] = 0.0e0;
6214
6215 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6216 v4rho2sigma2[3] = 0.0e0;
6217
6218 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6219 v4rho2sigma2[4] = 0.0e0;
6220
6221 t8883 = t3227 / 0.4e1;
6222 t8885 = 0.50777450000000000000e-3 * t3233;
6223 t8887 = 0.51566988570050000000e-6 * t3240;
6224 t8891 = t135 * t1195;
6225 t8893 = t203 * t8891 * t206;
6226 t8900 = t8 * t581 * t1196 / 0.12e2;
6227 t8905 = t203 * t2418 * t885;
6228 t8912 = 0.16925816666666666667e-3 * t278 * t6674 * t351;
6229 t8918 = t203 * t572 * t3235;
6230 t8926 = 0.17188996190016666667e-6 * t278 * t1437 * t1203;
6231 t8927 = -t566 * t3222 * t568 / 0.6e1 - t8893 / 0.3e1 - t203 * t3222 * t577 / 0.2e1 + t8900 + 0.33851633333333333333e-3 * t566 * t878 * t2428 + 0.67703266666666666666e-3 * t8905 + 0.10155490000000000000e-2 * t203 * t878 * t2435 - t8912 - 0.34377992380033333333e-6 * t566 * t204 * t1203 * t567 - 0.68755984760066666666e-6 * t8918 - 0.10313397714010000000e-5 * t203 * t204 * t1203 * t576 + t8926;
6232 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6233 v4rho2sigma2[5] = -t3224 - t8883 + 0.20310980000000000000e-2 * t3230 + t8885 - 0.20626795428020000000e-5 * t3237 - t8887 + t10 * t8927;
6234
6235 t8935 = t123 * t8579 * t218;
6236 t8949 = 0.13751196952013333334e-5 * t8564 - 0.33851633333333333334e-3 * t8581 - 0.34377992380033333333e-6 * t8596 + 0.33851633333333333333e-3 * t8609 - 0.20947521470130282980e-8 * t8632 - t8935 / 0.6e1 - t123 * t603 * t1151 * t605 / 0.2e1 - t123 * t8575 * t218 / 0.2e1 + 0.25388725000000000000e-3 * t8642 - t8651 / 0.6e1 - 0.25783494285025000000e-6 * t8654 - 0.67703266666666666667e-3 * t8663 - t8667 + t8680 + 0.13751196952013333333e-5 * t8682;
6237 t8957 = t123 * t2210 * t897;
6238 t8960 = t123 * t430 * t3250;
6239 t8999 = -0.27081306666666666667e-2 * t123 * t777 * t2479 + 0.10155490000000000000e-2 * t123 * t2456 * t2483 + 0.33851633333333333333e-3 * t8957 - 0.34377992380033333333e-6 * t8960 + 0.55004787808053333333e-5 * t123 * t124 * t867 * t217 - 0.10313397714010000000e-5 * t123 * t604 * t1159 * t9 - 0.10313397714010000000e-5 * t123 * t434 * t3250 + 0.10155490000000000000e-2 * t123 * t2196 * t897 - t424 * t3095 * t587 / 0.6e1 + t8686 - t8688 / 0.8e1 - 0.34377992380033333333e-6 * t1378 * t1371 * t1122 * t217 * t129 - 0.83790085880521131921e-8 * t438 * t4609 * t3211 * t217 * sigma[0] + 0.55004787808053333334e-5 * t438 * t6535 * t2475 - 0.13540653333333333334e-2 * t438 * t8862 * t598 + 0.33851633333333333333e-3 * t1378 * t2405 * t2464;
6240 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6241 v4rho2sigma2[6] = -t3098 - t8871 - t3181 - t3184 + t3187 + t8875 + t3193 + t3196 - t3199 - t3203 - t8879 - t3209 - t3216 + t3219 - t3246 + t3249 - t3253 + t10 * (t8999 + t8949);
6242
6243 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6244 v4rho2sigma2[7] = 0.0e0;
6245
6246 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6247 v4rho2sigma2[8] = 0.0e0;
6248
6249 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6250 v4rho2sigma2[9] = 0.0e0;
6251
6252 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6253 v4rho2sigma2[10] = 0.0e0;
6254
6255 t9004 = t17 * t3334;
6256 t9009 = t203 * t8891 * t223;
6257 t9012 = t278 * t1661 * t1203;
6258 t9015 = t278 * t572 * t985;
6259 t9018 = t278 * t2418 * t990;
6260 t9021 = t278 * t6994 * t351;
6261 t9039 = 0.33851633333333333333e-3 * t8905 - 0.34377992380033333333e-6 * t8918 - t203 * t9004 * t206 / 0.2e1 - t9009 / 0.6e1 - 0.25783494285025000000e-6 * t9012 + 0.13751196952013333333e-5 * t9015 - 0.67703266666666666667e-3 * t9018 + 0.25388725000000000000e-3 * t9021 + t203 * t603 * t1195 * t620 / 0.2e1 - t8893 / 0.6e1 - t8912 + t8926 + 0.55004787808053333333e-5 * t203 * t204 * t985 * t205 - 0.27081306666666666667e-2 * t203 * t878 * t2545 + 0.10313397714010000000e-5 * t203 * t619 * t1203 * t9;
6262 t9047 = t278 * t572 * t3364;
6263 t9050 = t278 * t2418 * t986;
6264 t9053 = t203 * t572 * t3354;
6265 t9056 = t278 * t8891 * t282;
6266 t9059 = t203 * t2418 * t975;
6267 t9068 = t8 * t210 * t3335;
6268 t9083 = t1195 * t280;
6269 t9090 = -0.10155490000000000000e-2 * t203 * t2499 * t2526 + 0.10155490000000000000e-2 * t203 * t2504 * t885 - 0.20947521470130282980e-8 * t9047 + 0.13751196952013333334e-5 * t9050 - 0.34377992380033333333e-6 * t9053 - 0.33851633333333333333e-3 * t9056 + 0.33851633333333333333e-3 * t9059 - t566 * t3222 * t612 / 0.6e1 - 0.10313397714010000000e-5 * t203 * t625 * t3235 - t9068 / 0.8e1 + t8900 - 0.83790085880521131921e-8 * t633 * t5579 * t3362 * sigma[2] * t205 + 0.55004787808053333335e-5 * t633 * t7150 * t2538 - 0.34377992380033333333e-6 * t1775 * t1917 * t1166 * t222 * t205 - 0.13540653333333333333e-2 * t633 * t9083 * t635 + 0.33851633333333333333e-3 * t1775 * t2511 * t2519;
6270 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6271 v4rho2sigma2[11] = -t3225 - t8883 + t3231 + t8885 - t3238 - t8887 - t3258 - t3338 - t3341 + t3344 + t3347 + t3350 - t3353 - t3357 - t3360 - t3367 + t3370 + t10 * (t9090 + t9039);
6272
6273 t9118 = -t424 * t3095 * t647 / 0.6e1 - t8935 / 0.3e1 - t123 * t3095 * t653 / 0.2e1 + t8686 + 0.33851633333333333333e-3 * t424 * t777 * t2562 + 0.67703266666666666666e-3 * t8957 + 0.10155490000000000000e-2 * t123 * t777 * t2567 - t8667 - 0.34377992380033333333e-6 * t424 * t124 * t1159 * t646 - 0.68755984760066666666e-6 * t8960 - 0.10313397714010000000e-5 * t123 * t124 * t1159 * t652 + t8680;
6274 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6275 v4rho2sigma2[12] = -t3245 - t8871 + 0.20310980000000000000e-2 * t3248 + t8875 - 0.20626795428020000000e-5 * t3252 - t8879 + t10 * t9118;
6276
6277 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6278 v4rho2sigma2[13] = 0.0e0;
6279
6280 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6281 v4rho2sigma2[14] = 0.0e0;
6282
6283 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6284 v4rho2sigma2[15] = 0.0e0;
6285
6286 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6287 v4rho2sigma2[16] = 0.0e0;
6288
6289 t9148 = -t566 * t3222 * t658 / 0.6e1 - t203 * t3222 * t671 / 0.2e1 - t203 * t9004 * t223 - 0.77350482855075000000e-6 * t278 * t1837 * t1203 + 0.76166175000000000000e-3 * t278 * t7301 * t351 - 0.40621960000000000000e-2 * t278 * t2504 * t990 + 0.74473593333333333333e-2 * t278 * t878 * t2767 - 0.26127274208825333333e-4 * t278 * t204 * t2713 + 0.82507181712080000000e-5 * t278 * t625 * t985 - t9009 / 0.3e1 - 0.51566988570050000000e-6 * t9012;
6290 t9152 = t7620 * t234;
6291 t9155 = t2684 * t684;
6292 t9160 = t7595 * t234;
6293 t9163 = t2696 * t684;
6294 t9174 = t3286 * t254;
6295 t9177 = t1189 * t746;
6296 t9184 = t1179 * t723;
6297 t9191 = t3300 * t984;
6298 t9194 = t766 * t152;
6299 t9195 = t9194 * t155;
6300 t9198 = -0.25e2 / 0.162e3 * t9152 * t911 - 0.25e2 / 0.324e3 * t9155 * t911 + 0.100e3 / 0.243e3 * t3323 * t2617 - 0.25e2 / 0.162e3 * t9160 * t911 - 0.25e2 / 0.324e3 * t9163 * t911 + 0.5e1 / 0.36e2 * t7623 * t323 + 0.125e3 / 0.486e3 * t7583 * t2592 + 0.25e2 / 0.5184e4 * t5869 * t1170 - 0.125e3 / 0.3888e4 * t5875 * t3301 - 0.10e2 / 0.9e1 * t9174 * t236 + 0.25e2 / 0.81e2 * t9177 * t695 - 0.5e1 / 0.36e2 * t7630 * t323 - 0.5e1 / 0.9e1 * t3288 * t686 + 0.25e2 / 0.81e2 * t9184 * t695 - 0.110e3 / 0.81e2 * t957 * t2600 - 0.25e2 / 0.486e3 * t2117 * t3265 - 0.125e3 / 0.729e3 * t2123 * t9191 + 0.475e3 / 0.2916e4 * t747 * t9195;
6301 t9213 = t5787 * t1166;
6302 t9216 = t3316 * t268;
6303 t9233 = t5932 * t40;
6304 t9236 = t735 * t684;
6305 t9240 = t5806 * t1563;
6306 t9253 = t5833 * t689;
6307 t9254 = t1563 * t3308;
6308 t9257 = t5824 * t689;
6309 t9275 = t714 * t1563;
6310 t9279 = t2626 * t828;
6311 t9302 = t710 * t684;
6312 t9308 = -0.20966460905349794238e0 * t9194 * t692 - 0.94323727643110735869e-3 * t1176 * t9233 + 0.74259880465705512319e-2 * t707 * t710 * t766 + 0.26589216392318244170e0 * t9195 * t696 + 0.11961932996487846350e-2 * t3268 * t2064 * t2627 + 0.25152994038162862898e-2 * t3272 * t709 * t3276 - 0.23580931910777683967e-3 * t3275 * t9275 - 0.42767897773442879981e-3 * t1173 * t2064 * t9279 - 0.31898487990634256932e-2 * t2609 * t984 * t234 * t1563 + 0.55474416152801943294e-2 * t984 * t246 * t248 - 0.52007265143251821838e-3 * t3262 * t714 + 0.29904832491219615874e-3 * t2609 * t1166 * t684 * t1563 + 0.54237331406391996167e-3 * t7470 * t1166 * t689 * t828 - 0.70351465704352590618e-2 * t984 * t91 * t3269 + 0.65954499097830553704e-3 * t3268 * t9302 - 0.58556328161290940142e-2 * t87 * t766 * t704;
6313 t9310 = 0.20e2 / 0.27e2 * t2679 * t907 + 0.475e3 / 0.2916e4 * t724 * t9195 + 0.110e3 / 0.81e2 * t934 * t2600 - 0.25e2 / 0.486e3 * t2082 * t3265 + 0.125e3 / 0.729e3 * t2088 * t9191 - 0.125e3 / 0.486e3 * t7580 * t2592 + 0.25e2 / 0.5184e4 * t5852 * t1170 - 0.125e3 / 0.7776e4 * t2088 * t9213 + 0.10e2 / 0.9e1 * t9216 * t236 + 0.5e1 / 0.9e1 * t3318 * t686 + 0.125e3 / 0.3888e4 * t5872 * t3301 + 0.125e3 / 0.7776e4 * t2123 * t9213 - 0.20e2 / 0.27e2 * t2691 * t907 + (0.48216735253772290809e-1 * t9194 * t731 + 0.15226337448559670782e0 * t984 * t1587 * t3309 + 0.31721536351165980796e-1 * t3308 * t2103 * t9233 - 0.14274691358024691358e-1 * t3308 * t9236 + 0.31721536351165980796e-1 * t5802 * t1166 * t9240 + 0.15226337448559670782e0 * t2104 * t9191 - 0.14274691358024691358e-1 * t2104 * t9213 + 0.48216735253772290809e-1 * t736 * t9195) * t110 + 0.100e3 / 0.243e3 * t3293 * t2617 + 0.625e3 / 0.69984e5 * t9253 * t9254 + 0.625e3 / 0.69984e5 * t9257 * t9254 + t9308 * t102;
6314 t9333 = 0.27502393904026666666e-5 * t9015 - 0.13540653333333333333e-2 * t9018 + 0.50777450000000000000e-3 * t9021 - t8912 + t8926 - 0.3e1 / 0.8e1 * t8 * t76 * (t9310 + t9198) * t115 - 0.27081306666666666667e-2 * t633 * t9083 * t666 - 0.16758017176104226384e-7 * t633 * t5579 * t3362 * t222 * sigma[2] + 0.11000957561610666667e-4 * t633 * t7150 * t2775 + 0.37236796666666666667e-2 * t278 * t3222 * t771 + 0.33851633333333333333e-3 * t566 * t878 * t2725;
6315 t9372 = 0.33516034352208452769e-7 * t278 * t878 * t2735 - 0.20626795428020000000e-5 * t203 * t625 * t3354 - 0.10313397714010000000e-5 * t203 * t204 * t1203 * t670 + 0.90074342321560216815e-7 * t278 * t204 * t2734 * sigma[2] + 0.11000957561610666667e-4 * t203 * t204 * t985 * t222 - 0.37128231770436000001e-4 * t278 * t878 * t2714 - 0.34377992380033333333e-6 * t566 * t204 * t1203 * t657 - 0.54162613333333333334e-2 * t203 * t878 * t2718 + 0.82507181712080000002e-5 * t278 * t2504 * t986 - 0.55004787808053333334e-5 * t278 * t3222 * t767 + 0.20310980000000000000e-2 * t203 * t2504 * t975;
6316 t9395 = 0.10155490000000000000e-2 * t203 * t878 * t2745 - 0.20310980000000000000e-2 * t278 * t9004 * t282 - 0.68074350340701884003e-10 * t278 * t204 * t5755 / t78 / t6032 * t762 - 0.12568512882078169788e-7 * t278 * t625 * t3364 - 0.41895042940260565960e-8 * t9047 + 0.27502393904026666668e-5 * t9050 - 0.68755984760066666666e-6 * t9053 - 0.67703266666666666667e-3 * t9056 + 0.67703266666666666666e-3 * t9059 - t9068 / 0.4e1 + t8900;
6317 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6318 v4rho2sigma2[17] = t10 * (t9395 + t9372 + t9333 + t9148) - 0.3e1 / 0.4e1 * t3337 + 0.15233235000000000000e-2 * t3346 - 0.15470096571015000000e-5 * t3359 - t3257 - t8883 - 0.40621960000000000000e-2 * t3352 + 0.82507181712080000002e-5 * t3349 - 0.20626795428020000000e-5 * t3356 + 0.82507181712080000000e-5 * t3369 - 0.12568512882078169788e-7 * t3366 - 0.20310980000000000000e-2 * t3340 + 0.20310980000000000000e-2 * t3343 + t8885 - t8887;
6319
6320 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6321 v4rho2sigmalapl[0] = 0.0e0;
6322
6323 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6324 v4rho2sigmalapl[1] = 0.0e0;
6325
6326 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6327 v4rho2sigmalapl[2] = 0.0e0;
6328
6329 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6330 v4rho2sigmalapl[3] = 0.0e0;
6331
6332 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6333 v4rho2sigmalapl[4] = 0.0e0;
6334
6335 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6336 v4rho2sigmalapl[5] = 0.0e0;
6337
6338 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6339 v4rho2sigmalapl[6] = 0.0e0;
6340
6341 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6342 v4rho2sigmalapl[7] = 0.0e0;
6343
6344 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6345 v4rho2sigmalapl[8] = 0.0e0;
6346
6347 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6348 v4rho2sigmalapl[9] = 0.0e0;
6349
6350 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6351 v4rho2sigmalapl[10] = 0.0e0;
6352
6353 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6354 v4rho2sigmalapl[11] = 0.0e0;
6355
6356 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6357 v4rho2sigmalapl[12] = 0.0e0;
6358
6359 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6360 v4rho2sigmalapl[13] = 0.0e0;
6361
6362 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6363 v4rho2sigmalapl[14] = 0.0e0;
6364
6365 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6366 v4rho2sigmalapl[15] = 0.0e0;
6367
6368 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6369 v4rho2sigmalapl[16] = 0.0e0;
6370
6371 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6372 v4rho2sigmalapl[17] = 0.0e0;
6373
6374 t9412 = t2933 * t3470;
6375 t9415 = 0.16925816666666666667e-3 * t8144 * t1247;
6376 t9416 = t3396 * t170;
6377 t9421 = t1222 * t511;
6378 t9428 = t3427 * t184;
6379 t9433 = t1234 * t534;
6380 t9444 = -0.10e2 / 0.9e1 * t9416 * t149 - 0.5e1 / 0.9e1 * t3398 * t474 + 0.25e2 / 0.81e2 * t9421 * t483 + 0.5e1 / 0.72e2 * t7952 * t289 + 0.125e3 / 0.972e3 * t7988 * t2280 + 0.10e2 / 0.9e1 * t9428 * t149 + 0.5e1 / 0.9e1 * t3429 * t474 + 0.25e2 / 0.81e2 * t9433 * t483 - 0.5e1 / 0.72e2 * t7975 * t289 - 0.5e1 / 0.9e1 * t6465 * t360 - 0.250e3 / 0.243e3 * t6272 * t2824 - 0.25e2 / 0.648e3 * t4340 * t1213;
6381 t9447 = t4257 * t1209;
6382 t9466 = t1563 * t3421;
6383 t9472 = 0.125e3 / 0.486e3 * t4409 * t3415 + 0.125e3 / 0.972e3 * t1585 * t9447 - 0.55e2 / 0.81e2 * t1039 * t2288 + 0.55e2 / 0.81e2 * t1022 * t2288 - 0.25e2 / 0.648e3 * t4318 * t1213 - 0.125e3 / 0.486e3 * t4412 * t3415 - 0.125e3 / 0.972e3 * t1622 * t9447 - 0.125e3 / 0.972e3 * t7984 * t2280 + 0.5e1 / 0.9e1 * t6476 * t360 + 0.250e3 / 0.243e3 * t6275 * t2824 - 0.625e3 / 0.8748e4 * t8784 * t9466 - 0.625e3 / 0.8748e4 * t8845 * t9466 - 0.250e3 / 0.243e3 * t3137;
6384 t9515 = 0.18864745528622147175e-2 * t3388 * t8721 + 0.34214318218754303988e-2 * t1216 * t1560 * t8725 - 0.95695463971902770799e-2 * t3384 * t1560 * t2309 + 0.75458982114488588698e-2 * t1219 * t8709 - 0.52763599278264442964e-2 * t3384 * t8738 + 0.41605812114601457472e-2 * t3380 * t502 - 0.23923865992975692700e-2 * t2324 * t1209 * t472 * t1563 - 0.43389865125113596935e-2 * t6362 * t1209 * t477 * t828 - 0.40647513518070385692e-1 * t3127 + 0.11476378600823045267e1 * t3103 + 0.20734017193912267006e-1 * t3124 - 0.14554097393689986283e1 * t3109 - 0.16349446124805860885e-1 * t3120 + 0.45728452707829183902e-1 * t3113 + 0.32051884888285567238e-1 * t3116 - 0.36058370499321263142e-1 * t3106;
6385 t9517 = -0.250e3 / 0.243e3 * t3167 + 0.50e2 / 0.27e2 * t3134 - 0.200e3 / 0.81e2 * t3139 + 0.325e3 / 0.972e3 * t3141 - 0.1625e4 / 0.1458e4 * t3145 - 0.650e3 / 0.729e3 * t3147 - 0.50e2 / 0.27e2 * t3164 + 0.200e3 / 0.81e2 * t3169 + 0.325e3 / 0.972e3 * t3171 + 0.1625e4 / 0.1458e4 * t3173 - 0.650e3 / 0.729e3 * t3175 + t9515 * t55;
6386 t9544 = t7957 * t147;
6387 t9547 = t2886 * t472;
6388 t9550 = t7966 * t147;
6389 t9553 = t2818 * t472;
6390 t9562 = (-0.26392318244170096021e0 * t3149 - 0.98971193415637860078e0 * t3153 - 0.25377229080932784636e0 * t3421 * t1602 * t8709 + 0.11419753086419753086e0 * t3421 * t8767 - 0.25377229080932784636e0 * t4272 * t1209 * t8771 - 0.98971193415637860078e0 * t3155 + 0.11419753086419753086e0 * t1603 * t9447 - 0.26392318244170096021e0 * t3157) * t63 + 0.50e2 / 0.243e3 * t3434 * t2293 + 0.50e2 / 0.243e3 * t3403 * t2293 + 0.25e2 / 0.81e2 * t8697 * t1007 + 0.50e2 / 0.81e2 * t8700 * t1007 + 0.50e2 / 0.81e2 * t8690 * t1007 - 0.25e2 / 0.324e3 * t9544 * t789 - 0.25e2 / 0.648e3 * t9547 * t789 - 0.25e2 / 0.324e3 * t9550 * t789 - 0.25e2 / 0.648e3 * t9553 * t789 + 0.25e2 / 0.81e2 * t8703 * t1007 + 0.10e2 / 0.27e2 * t2813 * t785 - 0.10e2 / 0.27e2 * t2881 * t785;
6391 t9569 = t2959 * t3452;
6392 t9570 = t15 * t3450;
6393 t9573 = t2933 * t3376;
6394 t9578 = t2933 * t3464;
6395 t9586 = t1242 * t196;
6396 t9593 = t2933 * t3456;
6397 t9595 = 0.37236796666666666667e-2 * t1000 * t1052 * t2254 - 0.27081306666666666666e-2 * t9412 + t9415 - 0.3e1 / 0.8e1 * t358 * t193 * (t9562 + t9517 + t9472 + t9444) * t68 - t9569 - t1000 * t9570 * t130 - 0.4e1 / 0.3e1 * t9573 - 0.20310980000000000000e-2 * t1000 * t2905 * t872 + 0.10155490000000000000e-2 * t9578 - t1000 * t3375 * t449 / 0.2e1 + 0.55004787808053333334e-5 * t2805 * t7836 * t2401 - 0.27081306666666666667e-2 * t2805 * t9586 * t441 + 0.37236796666666666667e-2 * t1000 * t3455 * t559 - 0.27081306666666666667e-2 * t9593;
6398 t9605 = t2933 * t3461;
6399 t9607 = t2933 * t3467;
6400 t9615 = t16 * t3450;
6401 t9629 = t8205 * t1244 / 0.6e1;
6402 t9633 = t422 * t1242;
6403 t9637 = 0.50777450000000000000e-3 * t1000 * t1001 * t2206 + 0.41253590856040000000e-5 * t1000 * t2905 * t868 + 0.16758017176104226384e-7 * t1000 * t1052 * t2186 + 0.13540653333333333333e-2 * t9605 + 0.55004787808053333334e-5 * t9607 + 0.10155490000000000000e-2 * t1000 * t2801 * t854 - 0.55004787808053333334e-5 * t1000 * t3455 * t555 - 0.20310980000000000000e-2 * t1000 * t9615 * t198 - 0.18564115885218000000e-4 * t1000 * t1052 * t2215 + 0.16925816666666666667e-3 * t1000 * t2797 * t2222 - 0.27081306666666666666e-2 * t1000 * t1001 * t2229 - t9629 + 0.38083087500000000000e-3 * t1000 * t7908 * t317 - t1000 * t9633 * t426 / 0.6e1;
6404 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6405 v4rho2sigmatau[0] = t9637 + t9595;
6406
6407 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6408 v4rho2sigmatau[1] = 0.0e0;
6409
6410 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6411 v4rho2sigmatau[2] = 0.0e0;
6412
6413 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6414 v4rho2sigmatau[3] = 0.0e0;
6415
6416 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6417 v4rho2sigmatau[4] = 0.0e0;
6418
6419 t9639 = t8205 * t1286 / 0.6e1;
6420 t9640 = t2933 * t3476;
6421 t9642 = t564 * t1284;
6422 t9650 = 0.16925816666666666667e-3 * t8144 * t1289;
6423 t9651 = t2933 * t3481;
6424 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6425 v4rho2sigmatau[5] = -t9639 - 0.4e1 / 0.3e1 * t9640 - t1000 * t9642 * t568 / 0.6e1 - t1000 * t3475 * t577 / 0.2e1 + t9650 + 0.13540653333333333333e-2 * t9651 + 0.16925816666666666667e-3 * t1000 * t2922 * t2428 + 0.50777450000000000000e-3 * t1000 * t1058 * t2435;
6426
6427 t9662 = t2933 * t3484;
6428 t9680 = t2933 * t3487;
6429 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6430 v4rho2sigmatau[6] = -t9629 - 0.2e1 / 0.3e1 * t9573 - t9569 / 0.2e1 - 0.13540653333333333334e-2 * t9593 - 0.2e1 / 0.3e1 * t9662 - t1000 * t9633 * t587 / 0.6e1 - t1000 * t9570 * t218 / 0.2e1 - 0.13540653333333333334e-2 * t2805 * t9586 * t598 - t2946 * t3375 * t605 / 0.2e1 + t9415 + 0.67703266666666666666e-3 * t9605 + 0.50777450000000000000e-3 * t9578 + 0.27502393904026666667e-5 * t9607 - 0.13540653333333333333e-2 * t9412 + 0.67703266666666666666e-3 * t9680 + 0.16925816666666666667e-3 * t7841 * t2806 * t2464 + 0.50777450000000000000e-3 * t1000 * t2801 * t897 + 0.27502393904026666667e-5 * t2805 * t7836 * t2475 - 0.13540653333333333333e-2 * t1000 * t1001 * t2479 + 0.50777450000000000000e-3 * t2946 * t1001 * t2483;
6431
6432 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6433 v4rho2sigmatau[7] = 0.0e0;
6434
6435 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6436 v4rho2sigmatau[8] = 0.0e0;
6437
6438 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6439 v4rho2sigmatau[9] = 0.0e0;
6440
6441 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6442 v4rho2sigmatau[10] = 0.0e0;
6443
6444 t9698 = t2933 * t3490;
6445 t9706 = t2959 * t3566;
6446 t9708 = t74 * t3564;
6447 t9712 = t2933 * t3570;
6448 t9714 = t1284 * t280;
6449 t9719 = t2933 * t3573;
6450 t9727 = t2933 * t3576;
6451 t9732 = t2933 * t3579;
6452 t9737 = t2933 * t3582;
6453 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6454 v4rho2sigmatau[11] = -t9639 - 0.2e1 / 0.3e1 * t9640 - 0.2e1 / 0.3e1 * t9698 - t1000 * t9642 * t612 / 0.6e1 + t2946 * t3475 * t620 / 0.2e1 - t9706 / 0.2e1 - t1000 * t9708 * t206 / 0.2e1 - 0.13540653333333333333e-2 * t9712 - 0.13540653333333333333e-2 * t2969 * t9714 * t635 + t9650 + 0.67703266666666666666e-3 * t9651 + 0.67703266666666666666e-3 * t9719 + 0.16925816666666666667e-3 * t8215 * t2970 * t2519 - 0.50777450000000000000e-3 * t2946 * t1058 * t2526 + 0.50777450000000000000e-3 * t9727 + 0.50777450000000000000e-3 * t1000 * t2962 * t885 + 0.27502393904026666667e-5 * t9732 + 0.27502393904026666667e-5 * t2969 * t8266 * t2538 - 0.13540653333333333333e-2 * t9737 - 0.13540653333333333333e-2 * t1000 * t1058 * t2545;
6455
6456 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6457 v4rho2sigmatau[12] = -t9629 - 0.4e1 / 0.3e1 * t9662 - t1000 * t9633 * t647 / 0.6e1 - t1000 * t3375 * t653 / 0.2e1 + t9415 + 0.13540653333333333333e-2 * t9680 + 0.16925816666666666667e-3 * t1000 * t2797 * t2562 + 0.50777450000000000000e-3 * t1000 * t1001 * t2567;
6458
6459 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6460 v4rho2sigmatau[13] = 0.0e0;
6461
6462 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6463 v4rho2sigmatau[14] = 0.0e0;
6464
6465 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6466 v4rho2sigmatau[15] = 0.0e0;
6467
6468 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6469 v4rho2sigmatau[16] = 0.0e0;
6470
6471 t9762 = t75 * t3564;
6472 t9790 = -t9706 - 0.55004787808053333334e-5 * t1000 * t3569 * t767 + 0.10155490000000000000e-2 * t1000 * t2962 * t975 - 0.20310980000000000000e-2 * t1000 * t9762 * t282 + 0.16758017176104226384e-7 * t1000 * t1116 * t2735 + 0.41253590856040000000e-5 * t1000 * t3085 * t986 + 0.50777450000000000000e-3 * t1000 * t1058 * t2745 - 0.18564115885218000000e-4 * t1000 * t1116 * t2714 + 0.16925816666666666667e-3 * t1000 * t2922 * t2725 - 0.27081306666666666666e-2 * t1000 * t1058 * t2718 + 0.37236796666666666667e-2 * t1000 * t3569 * t771 - 0.27081306666666666667e-2 * t9712 + 0.13540653333333333333e-2 * t9719 + 0.55004787808053333334e-5 * t9732;
6473 t9819 = t8521 * t234;
6474 t9822 = t3050 * t684;
6475 t9829 = t3063 * t684;
6476 t9838 = t1563 * t3535;
6477 t9843 = -0.250e3 / 0.243e3 * t3294 - 0.250e3 / 0.243e3 * t3324 - 0.25e2 / 0.324e3 * t9819 * t911 - 0.25e2 / 0.648e3 * t9822 * t911 + 0.50e2 / 0.81e2 * t9160 * t1071 + 0.25e2 / 0.81e2 * t9163 * t1071 - 0.25e2 / 0.648e3 * t9829 * t911 + 0.50e2 / 0.81e2 * t9152 * t1071 + 0.25e2 / 0.81e2 * t9155 * t1071 + 0.50e2 / 0.243e3 * t3548 * t2617 - 0.625e3 / 0.8748e4 * t9257 * t9838 - 0.625e3 / 0.8748e4 * t9253 * t9838;
6478 t9846 = t8509 * t234;
6479 t9863 = 0.50e2 / 0.243e3 * t3517 * t2617 - 0.25e2 / 0.324e3 * t9846 * t911 + 0.10e2 / 0.27e2 * t3070 * t907 - 0.55e2 / 0.81e2 * t1103 * t2600 + 0.55e2 / 0.81e2 * t1086 * t2600 + 0.200e3 / 0.81e2 * t3326 + 0.325e3 / 0.972e3 * t3328 + 0.1625e4 / 0.1458e4 * t3330 - 0.650e3 / 0.729e3 * t3332 + 0.50e2 / 0.27e2 * t3291 - 0.200e3 / 0.81e2 * t3296 + 0.325e3 / 0.972e3 * t3298 - 0.1625e4 / 0.1458e4 * t3302;
6480 t9871 = t5787 * t1251;
6481 t9874 = t3541 * t268;
6482 t9879 = t1276 * t746;
6483 t9890 = -0.650e3 / 0.729e3 * t3304 - 0.50e2 / 0.27e2 * t3321 - 0.25e2 / 0.648e3 * t5869 * t1255 + 0.125e3 / 0.486e3 * t5875 * t3529 + 0.125e3 / 0.972e3 * t2088 * t9871 + 0.10e2 / 0.9e1 * t9874 * t236 + 0.5e1 / 0.9e1 * t3543 * t686 + 0.25e2 / 0.81e2 * t9879 * t695 - 0.5e1 / 0.72e2 * t8526 * t323 - 0.125e3 / 0.972e3 * t8399 * t2592 + 0.5e1 / 0.9e1 * t7630 * t389 + 0.250e3 / 0.243e3 * t7580 * t3005;
6484 t9897 = t3510 * t254;
6485 t9902 = t1264 * t723;
6486 t9945 = -0.95695463971902770799e-2 * t3498 * t2064 * t2627 + 0.18864745528622147175e-2 * t3502 * t9275 + 0.34214318218754303988e-2 * t1258 * t2064 * t9279 + 0.75458982114488588698e-2 * t1261 * t9233 - 0.36058370499321263142e-1 * t3263 + 0.45728452707829183902e-1 * t3270 + 0.32051884888285567238e-1 * t3273 + 0.11476378600823045267e1 * t3260 - 0.40647513518070385692e-1 * t3284 - 0.14554097393689986283e1 * t3266 - 0.16349446124805860885e-1 * t3277 + 0.41605812114601457472e-2 * t3494 * t714 + 0.20734017193912267006e-1 * t3281 - 0.52763599278264442964e-2 * t3498 * t9302 - 0.23923865992975692700e-2 * t2609 * t1251 * t684 * t1563 - 0.43389865125113596935e-2 * t7470 * t1251 * t689 * t828;
6487 t9963 = -0.25e2 / 0.648e3 * t5852 * t1255 - 0.125e3 / 0.486e3 * t5872 * t3529 - 0.125e3 / 0.972e3 * t2123 * t9871 - 0.10e2 / 0.9e1 * t9897 * t236 - 0.5e1 / 0.9e1 * t3512 * t686 + 0.25e2 / 0.81e2 * t9902 * t695 + 0.5e1 / 0.72e2 * t8512 * t323 + 0.125e3 / 0.972e3 * t8402 * t2592 - 0.5e1 / 0.9e1 * t7623 * t389 - 0.250e3 / 0.243e3 * t7583 * t3005 - 0.10e2 / 0.27e2 * t3057 * t907 + t9945 * t102 + (-0.26392318244170096021e0 * t3306 - 0.98971193415637860078e0 * t3310 - 0.25377229080932784636e0 * t3535 * t2103 * t9233 + 0.11419753086419753086e0 * t3535 * t9236 - 0.25377229080932784636e0 * t5802 * t1251 * t9240 - 0.98971193415637860078e0 * t3312 + 0.11419753086419753086e0 * t2104 * t9871 - 0.26392318244170096021e0 * t3314) * t110;
6488 t9970 = 0.10155490000000000000e-2 * t9727 - 0.27081306666666666666e-2 * t9737 - 0.4e1 / 0.3e1 * t9698 + 0.55004787808053333334e-5 * t2969 * t8266 * t2775 - 0.27081306666666666667e-2 * t2969 * t9714 * t666 - t1000 * t9708 * t223 - t1000 * t9642 * t658 / 0.6e1 - t1000 * t3475 * t671 / 0.2e1 + 0.38083087500000000000e-3 * t1000 * t8356 * t351 + 0.37236796666666666667e-2 * t1000 * t1116 * t2767 - 0.20310980000000000000e-2 * t1000 * t3085 * t990 - 0.3e1 / 0.8e1 * t358 * t277 * (t9963 + t9890 + t9863 + t9843) * t115 - t9639 + t9650;
6489 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6490 v4rho2sigmatau[17] = t9970 + t9790;
6491
6492 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6493 v4rho2lapl2[0] = 0.0e0;
6494
6495 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6496 v4rho2lapl2[1] = 0.0e0;
6497
6498 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6499 v4rho2lapl2[2] = 0.0e0;
6500
6501 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6502 v4rho2lapl2[3] = 0.0e0;
6503
6504 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6505 v4rho2lapl2[4] = 0.0e0;
6506
6507 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6508 v4rho2lapl2[5] = 0.0e0;
6509
6510 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6511 v4rho2lapl2[6] = 0.0e0;
6512
6513 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6514 v4rho2lapl2[7] = 0.0e0;
6515
6516 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6517 v4rho2lapl2[8] = 0.0e0;
6518
6519 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6520 v4rho2lapltau[0] = 0.0e0;
6521
6522 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6523 v4rho2lapltau[1] = 0.0e0;
6524
6525 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6526 v4rho2lapltau[2] = 0.0e0;
6527
6528 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6529 v4rho2lapltau[3] = 0.0e0;
6530
6531 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6532 v4rho2lapltau[4] = 0.0e0;
6533
6534 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6535 v4rho2lapltau[5] = 0.0e0;
6536
6537 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6538 v4rho2lapltau[6] = 0.0e0;
6539
6540 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6541 v4rho2lapltau[7] = 0.0e0;
6542
6543 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6544 v4rho2lapltau[8] = 0.0e0;
6545
6546 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6547 v4rho2lapltau[9] = 0.0e0;
6548
6549 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6550 v4rho2lapltau[10] = 0.0e0;
6551
6552 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6553 v4rho2lapltau[11] = 0.0e0;
6554
6555 t9972 = t8205 * t1324 / 0.6e1;
6556 t9973 = t2933 * t3588;
6557 t9975 = t2959 * t3648;
6558 t9976 = t2933 * t3652;
6559 t9978 = t422 * t1322;
6560 t9982 = t15 * t3646;
6561 t9985 = t1322 * t196;
6562 t10007 = t3625 * t472;
6563 t10043 = 0.19139092794380554160e-1 * t2324 * t1293 * t472 * t1563 + 0.34711892100090877548e-1 * t6362 * t1293 * t477 * t828 - 0.12759395196253702773e0 * t3393 + 0.22189766461120777319e0 * t3381 - 0.28140586281741036247e0 * t3385 + 0.10061197615265145160e0 * t3389 - 0.33284649691681165977e-1 * t3592 * t502 + 0.42210879422611554372e-1 * t3596 * t8738 + 0.76556371177522216641e-1 * t3596 * t1560 * t2309 - 0.15091796422897717740e-1 * t3600 * t8721 - 0.27371454575003443189e-1 * t1300 * t1560 * t8725 - 0.16025942444142783619e0 * t1130 + 0.72770486968449931414e1 * t1127 - 0.57381893004115226339e1 * t1124 + 0.20323756759035192846e0 * t1133 - 0.60367185691590870959e-1 * t1303 * t8709;
6564 t10061 = 0.3250e4 / 0.729e3 * t1139 + 0.3250e4 / 0.729e3 * t1149 - 0.500e3 / 0.243e3 * t3435 - 0.500e3 / 0.243e3 * t3404 + (0.13196159122085048011e1 * t1141 + 0.60905349794238683128e1 * t3422 + 0.20301783264746227709e1 * t3625 * t1602 * t8709 - 0.91358024691358024692e0 * t3625 * t8767 + 0.20301783264746227709e1 * t4272 * t1293 * t8771 + 0.60905349794238683128e1 * t3424 - 0.91358024691358024691e0 * t1603 * t10007 + 0.13196159122085048011e1 * t1143) * t63 + t10043 * t55 - 0.100e3 / 0.27e2 * t3432 + 0.400e3 / 0.81e2 * t3437 - 0.500e3 / 0.243e3 * t3444 - 0.5000e4 / 0.729e3 * t3446 + 0.100e3 / 0.27e2 * t3401 - 0.400e3 / 0.81e2 * t3406 - 0.500e3 / 0.243e3 * t3413 + 0.5000e4 / 0.729e3 * t3416 + 0.100e3 / 0.81e2 * t9544 * t1007 + 0.50e2 / 0.81e2 * t9547 * t1007 + 0.50e2 / 0.81e2 * t9553 * t1007 + 0.100e3 / 0.81e2 * t9550 * t1007;
6565 t10062 = t1563 * t3625;
6566 t10067 = t3608 * t170;
6567 t10072 = t1306 * t511;
6568 t10085 = t3631 * t184;
6569 t10090 = t1316 * t534;
6570 t10103 = 0.1250e4 / 0.2187e4 * t8845 * t10062 + 0.1250e4 / 0.2187e4 * t8784 * t10062 - 0.10e2 / 0.9e1 * t10067 * t149 - 0.5e1 / 0.9e1 * t3610 * t474 + 0.25e2 / 0.81e2 * t10072 * t483 - 0.10e2 / 0.9e1 * t7952 * t360 - 0.500e3 / 0.243e3 * t7988 * t2824 + 0.25e2 / 0.81e2 * t4340 * t1297 - 0.500e3 / 0.243e3 * t4409 * t3620 - 0.250e3 / 0.243e3 * t1585 * t10007 + 0.10e2 / 0.9e1 * t10085 * t149 + 0.5e1 / 0.9e1 * t3633 * t474 + 0.25e2 / 0.81e2 * t10090 * t483 + 0.10e2 / 0.9e1 * t7975 * t360 + 0.500e3 / 0.243e3 * t7984 * t2824 + 0.25e2 / 0.81e2 * t4318 * t1297 + 0.500e3 / 0.243e3 * t4412 * t3620 + 0.250e3 / 0.243e3 * t1622 * t10007;
6571 t10109 = t16 * t3646;
6572 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6573 v4rho2tau2[0] = -t9972 - 0.4e1 / 0.3e1 * t9973 - t9975 - 0.27081306666666666667e-2 * t9976 - t1000 * t9978 * t426 / 0.6e1 - t1000 * t9982 * t130 - 0.27081306666666666667e-2 * t2805 * t9985 * t441 - t1000 * t3587 * t449 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t193 * (t10103 + t10061) * t68 - 0.20310980000000000000e-2 * t1000 * t10109 * t198 - 0.55004787808053333334e-5 * t1000 * t3651 * t555 + 0.37236796666666666667e-2 * t1000 * t3651 * t559;
6574
6575 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6576 v4rho2tau2[1] = 0.0e0;
6577
6578 t10120 = t8205 * t1359 / 0.6e1;
6579 t10121 = t2933 * t3657;
6580 t10123 = t564 * t1357;
6581 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6582 v4rho2tau2[2] = -t10120 - 0.4e1 / 0.3e1 * t10121 - t1000 * t10123 * t568 / 0.6e1 - t1000 * t3656 * t577 / 0.2e1;
6583
6584 t10133 = t2933 * t3660;
6585 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6586 v4rho2tau2[3] = -t9972 - 0.2e1 / 0.3e1 * t9973 - t9975 / 0.2e1 - 0.13540653333333333334e-2 * t9976 - 0.2e1 / 0.3e1 * t10133 - t1000 * t9978 * t587 / 0.6e1 - t1000 * t9982 * t218 / 0.2e1 - 0.13540653333333333334e-2 * t2805 * t9985 * t598 - t2946 * t3587 * t605 / 0.2e1;
6587
6588 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6589 v4rho2tau2[4] = 0.0e0;
6590
6591 t10148 = t2933 * t3664;
6592 t10156 = t2959 * t3724;
6593 t10158 = t74 * t3722;
6594 t10162 = t2933 * t3728;
6595 t10164 = t1357 * t280;
6596 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6597 v4rho2tau2[5] = -t10120 - 0.2e1 / 0.3e1 * t10121 - 0.2e1 / 0.3e1 * t10148 - t1000 * t10123 * t612 / 0.6e1 + t2946 * t3656 * t620 / 0.2e1 - t10156 / 0.2e1 - t1000 * t10158 * t206 / 0.2e1 - 0.13540653333333333333e-2 * t10162 - 0.13540653333333333333e-2 * t2969 * t10164 * t635;
6598
6599 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6600 v4rho2tau2[6] = -t9972 - 0.4e1 / 0.3e1 * t10133 - t1000 * t9978 * t647 / 0.6e1 - t1000 * t3587 * t653 / 0.2e1;
6601
6602 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6603 v4rho2tau2[7] = 0.0e0;
6604
6605 t10208 = t5787 * t1328;
6606 t10213 = -0.500e3 / 0.243e3 * t3549 - 0.500e3 / 0.243e3 * t3518 + 0.3250e4 / 0.729e3 * t1183 + 0.3250e4 / 0.729e3 * t1193 + 0.100e3 / 0.81e2 * t9846 * t1071 + 0.50e2 / 0.81e2 * t9829 * t1071 + 0.100e3 / 0.81e2 * t9819 * t1071 + 0.50e2 / 0.81e2 * t9822 * t1071 - 0.400e3 / 0.81e2 * t3520 - 0.500e3 / 0.243e3 * t3527 + 0.5000e4 / 0.729e3 * t3530 - 0.100e3 / 0.27e2 * t3546 + 0.400e3 / 0.81e2 * t3551 - 0.500e3 / 0.243e3 * t3558 - 0.5000e4 / 0.729e3 * t3560 + 0.100e3 / 0.27e2 * t3515 + 0.250e3 / 0.243e3 * t2123 * t10208 + 0.25e2 / 0.81e2 * t5869 * t1332;
6607 t10218 = t3707 * t268;
6608 t10223 = t1351 * t746;
6609 t10234 = t3684 * t254;
6610 t10239 = t1341 * t723;
6611 t10292 = 0.19139092794380554160e-1 * t2609 * t1328 * t684 * t1563 + 0.34711892100090877548e-1 * t7470 * t1328 * t689 * t828 - 0.60367185691590870959e-1 * t1338 * t9233 - 0.28140586281741036247e0 * t3499 + 0.10061197615265145160e0 * t3503 - 0.12759395196253702773e0 * t3507 + 0.22189766461120777319e0 * t3495 - 0.33284649691681165977e-1 * t3668 * t714 + 0.42210879422611554372e-1 * t3672 * t9302 + 0.76556371177522216641e-1 * t3672 * t2064 * t2627 - 0.15091796422897717740e-1 * t3676 * t9275 - 0.27371454575003443189e-1 * t1335 * t2064 * t9279 - 0.16025942444142783619e0 * t1174 + 0.72770486968449931414e1 * t1171 - 0.57381893004115226339e1 * t1168 + 0.20323756759035192846e0 * t1177;
6612 t10294 = t1563 * t3701;
6613 t10299 = -0.500e3 / 0.243e3 * t5875 * t3696 - 0.250e3 / 0.243e3 * t2088 * t10208 + 0.10e2 / 0.9e1 * t10218 * t236 + 0.5e1 / 0.9e1 * t3709 * t686 + 0.25e2 / 0.81e2 * t10223 * t695 + 0.10e2 / 0.9e1 * t8526 * t389 + 0.500e3 / 0.243e3 * t8399 * t3005 + 0.25e2 / 0.81e2 * t5852 * t1332 + 0.500e3 / 0.243e3 * t5872 * t3696 - 0.10e2 / 0.9e1 * t10234 * t236 - 0.5e1 / 0.9e1 * t3686 * t686 + 0.25e2 / 0.81e2 * t10239 * t695 - 0.10e2 / 0.9e1 * t8512 * t389 - 0.500e3 / 0.243e3 * t8402 * t3005 + (0.13196159122085048011e1 * t1185 + 0.60905349794238683128e1 * t3536 + 0.20301783264746227709e1 * t3701 * t2103 * t9233 - 0.91358024691358024692e0 * t3701 * t9236 + 0.20301783264746227709e1 * t5802 * t1328 * t9240 + 0.60905349794238683128e1 * t3538 - 0.91358024691358024691e0 * t2104 * t10208 + 0.13196159122085048011e1 * t1187) * t110 + t10292 * t102 + 0.1250e4 / 0.2187e4 * t9253 * t10294 + 0.1250e4 / 0.2187e4 * t9257 * t10294;
6614 t10305 = t75 * t3722;
6615 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6616 v4rho2tau2[8] = -t10120 - 0.4e1 / 0.3e1 * t10148 - t10156 - 0.27081306666666666667e-2 * t10162 - t1000 * t10123 * t658 / 0.6e1 - t1000 * t10158 * t223 - 0.27081306666666666667e-2 * t2969 * t10164 * t666 - t1000 * t3656 * t671 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t277 * (t10299 + t10213) * t115 - 0.20310980000000000000e-2 * t1000 * t10305 * t282 - 0.55004787808053333334e-5 * t1000 * t3727 * t767 + 0.37236796666666666667e-2 * t1000 * t3727 * t771;
6617
6618 t10315 = t17 * t3767;
6619 t10321 = t8 * t136 * t3768 / 0.8e1;
6620 t10340 = t155 * t147;
6621 t10341 = t4345 * t10340;
6622 t10354 = t3746 * t170;
6623 t10359 = t8790 * t147;
6624 t10372 = t4304 * t147;
6625 t10373 = t1563 * t3752;
6626 t10376 = t3211 * t1587;
6627 t10379 = (-0.52007265143251821838e-3 * t3211 * t162 * t48 + 0.11790465955388841984e-3 * t3731 * t497 * t48 * t149 + 0.65954499097830553703e-3 * t3211 * t43 * t498 - 0.14952416245609807937e-3 * t3735 * t1560 * t3119 - 0.23580931910777683967e-3 * t34 * t3211 * t497 * t1556 + 0.53459872216803599978e-4 * t3738 * t1560 * t10341 - 0.67796664257989995212e-4 * t6362 * t3731 * t152 * t10340 + 0.29904832491219615875e-3 * t1561 * t48 * t3211 * t1563) * t55 - 0.5e1 / 0.9e1 * t10354 * t149 + 0.5e1 / 0.24e2 * t8814 * t289 - 0.25e2 / 0.216e3 * t10359 * t789 - 0.5e1 / 0.9e1 * t3131 * t785 + 0.25e2 / 0.1728e4 * t6503 * t1126 - 0.125e3 / 0.2592e4 * t6272 * t3144 - 0.25e2 / 0.324e3 * t2371 * t3108 + 0.125e3 / 0.62208e5 * t4409 * t3752 - 0.625e3 / 0.559872e6 * t10372 * t10373 - 0.125e3 / 0.7776e4 * t1585 * t10376;
6628 t10386 = t3143 * t1563;
6629 t10393 = t3759 * t184;
6630 t10398 = t8801 * t147;
6631 t10411 = t4293 * t147;
6632 t10416 = (-0.14274691358024691358e-1 * t10376 * t523 - 0.39651920438957475994e-2 * t3752 * t1602 * t149 - 0.39651920438957475996e-2 * t4272 * t3731 * t10386 - 0.14274691358024691358e-1 * t1603 * t10376) * t63 + 0.5e1 / 0.9e1 * t10393 * t149 - 0.5e1 / 0.24e2 * t8811 * t289 - 0.25e2 / 0.216e3 * t10398 * t789 + 0.5e1 / 0.9e1 * t3161 * t785 + 0.25e2 / 0.1728e4 * t6490 * t1126 + 0.125e3 / 0.2592e4 * t6275 * t3144 - 0.25e2 / 0.324e3 * t2383 * t3108 - 0.125e3 / 0.62208e5 * t4412 * t3752 - 0.625e3 / 0.559872e6 * t10411 * t10373 + 0.125e3 / 0.7776e4 * t1622 * t10376;
6633 t10430 = 0.38083087500000000000e-3 * t194 * t8579 * t317;
6634 t10445 = 0.77350482855075000000e-6 * t194 * t2210 * t1159;
6635 t10461 = 0.78553205512988561173e-9 * t194 * t430 * t3778;
6636 t10475 = -t123 * t10315 * t130 / 0.2e1 - t10321 - 0.3e1 / 0.8e1 * t8 * t18 * (t10416 + t10379) * t68 - 0.10155490000000000000e-2 * t194 * t10315 * t198 + 0.15233235000000000000e-2 * t123 * t3095 * t854 + t10430 + 0.11424926250000000000e-2 * t194 * t8575 * t317 + 0.61880386284060000001e-5 * t194 * t3095 * t868 - 0.30466470000000000000e-2 * t194 * t3095 * t872 - 0.30940193142030000000e-5 * t123 * t777 * t3200 - t10445 - 0.23205144856522500000e-5 * t194 * t2196 * t1159 - 0.18852769323117254682e-7 * t194 * t777 * t3213 + 0.12376077256812000000e-4 * t194 * t777 * t867 + 0.31421282205195424469e-8 * t123 * t124 * t3778 * t129 + t10461 + 0.23565961653896568352e-8 * t194 * t434 * t3778 + 0.25527881377763206500e-10 * t194 * t124 * t4476 / t25 / t1491 * sigma[0] - 0.18852769323117254682e-7 * t194 * t124 * t3212;
6637 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6638 v4rhosigma3[0] = t10 * t10475 - t3771 + t3774 - t3777 + t3781;
6639
6640 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6641 v4rhosigma3[1] = 0.0e0;
6642
6643 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6644 v4rhosigma3[2] = 0.0e0;
6645
6646 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6647 v4rhosigma3[3] = 0.0e0;
6648
6649 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6650 v4rhosigma3[4] = 0.0e0;
6651
6652 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6653 v4rhosigma3[5] = 0.0e0;
6654
6655 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6656 v4rhosigma3[6] = 0.0e0;
6657
6658 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6659 v4rhosigma3[7] = 0.0e0;
6660
6661 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6662 v4rhosigma3[8] = 0.0e0;
6663
6664 t10477 = t17 * t3819;
6665 t10483 = t8 * t210 * t3820 / 0.8e1;
6666 t10489 = 0.38083087500000000000e-3 * t278 * t8891 * t351;
6667 t10495 = 0.77350482855075000000e-6 * t278 * t2418 * t1203;
6668 t10502 = 0.78553205512988561173e-9 * t278 * t572 * t3830;
6669 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6670 v4rhosigma3[9] = -t3823 + t3826 - t3829 + t3833 + t10 * (-t203 * t10477 * t206 / 0.2e1 - t10483 + 0.15233235000000000000e-2 * t203 * t3222 * t885 + t10489 - 0.30940193142030000000e-5 * t203 * t878 * t3235 - t10495 + 0.31421282205195424469e-8 * t203 * t204 * t3830 * t205 + t10502);
6671
6672 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6673 v4rhosigma3[10] = -t3771 + t3774 - t3777 + t3781 + t10 * (-t123 * t10315 * t218 / 0.2e1 - t10321 + 0.15233235000000000000e-2 * t123 * t3095 * t897 + t10430 - 0.30940193142030000000e-5 * t123 * t777 * t3250 - t10445 + 0.31421282205195424469e-8 * t123 * t124 * t3778 * t217 + t10461);
6674
6675 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6676 v4rhosigma3[11] = 0.0e0;
6677
6678 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6679 v4rhosigma3[12] = 0.0e0;
6680
6681 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6682 v4rhosigma3[13] = 0.0e0;
6683
6684 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6685 v4rhosigma3[14] = 0.0e0;
6686
6687 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6688 v4rhosigma3[15] = 0.0e0;
6689
6690 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6691 v4rhosigma3[16] = 0.0e0;
6692
6693 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6694 v4rhosigma3[17] = 0.0e0;
6695
6696 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6697 v4rhosigma3[18] = 0.0e0;
6698
6699 t10541 = t155 * t234;
6700 t10542 = t4345 * t10541;
6701 t10555 = t3798 * t254;
6702 t10560 = t9184 * t234;
6703 t10573 = t5833 * t234;
6704 t10574 = t1563 * t3804;
6705 t10577 = t3362 * t1587;
6706 t10580 = (-0.52007265143251821838e-3 * t3362 * t246 * t48 + 0.11790465955388841984e-3 * t3783 * t709 * t48 * t236 + 0.65954499097830553703e-3 * t3362 * t91 * t710 - 0.14952416245609807937e-3 * t3787 * t2064 * t3276 - 0.23580931910777683967e-3 * t87 * t3362 * t709 * t1556 + 0.53459872216803599978e-4 * t3790 * t2064 * t10542 - 0.67796664257989995212e-4 * t7470 * t3783 * t152 * t10541 + 0.29904832491219615875e-3 * t2065 * t48 * t3362 * t1563) * t102 - 0.5e1 / 0.9e1 * t10555 * t236 + 0.5e1 / 0.24e2 * t9174 * t323 - 0.25e2 / 0.216e3 * t10560 * t911 - 0.5e1 / 0.9e1 * t3288 * t907 + 0.25e2 / 0.1728e4 * t7595 * t1170 - 0.125e3 / 0.2592e4 * t7583 * t3301 - 0.25e2 / 0.324e3 * t2696 * t3265 + 0.125e3 / 0.62208e5 * t5875 * t3804 - 0.625e3 / 0.559872e6 * t10573 * t10574 - 0.125e3 / 0.7776e4 * t2088 * t10577;
6707 t10587 = t3300 * t1563;
6708 t10594 = t3811 * t268;
6709 t10599 = t9177 * t234;
6710 t10612 = t5824 * t234;
6711 t10617 = (-0.14274691358024691358e-1 * t10577 * t735 - 0.39651920438957475994e-2 * t3804 * t2103 * t236 - 0.39651920438957475996e-2 * t5802 * t3783 * t10587 - 0.14274691358024691358e-1 * t2104 * t10577) * t110 + 0.5e1 / 0.9e1 * t10594 * t236 - 0.5e1 / 0.24e2 * t9216 * t323 - 0.25e2 / 0.216e3 * t10599 * t911 + 0.5e1 / 0.9e1 * t3318 * t907 + 0.25e2 / 0.1728e4 * t7620 * t1170 + 0.125e3 / 0.2592e4 * t7580 * t3301 - 0.25e2 / 0.324e3 * t2684 * t3265 - 0.125e3 / 0.62208e5 * t5872 * t3804 - 0.625e3 / 0.559872e6 * t10612 * t10574 + 0.125e3 / 0.7776e4 * t2123 * t10577;
6712 t10667 = -t203 * t10477 * t223 / 0.2e1 - t10483 - 0.3e1 / 0.8e1 * t8 * t76 * (t10617 + t10580) * t115 - 0.10155490000000000000e-2 * t278 * t10477 * t282 + 0.15233235000000000000e-2 * t203 * t3222 * t975 + t10489 + 0.11424926250000000000e-2 * t278 * t9004 * t351 + 0.61880386284060000001e-5 * t278 * t3222 * t986 - 0.30466470000000000000e-2 * t278 * t3222 * t990 - 0.30940193142030000000e-5 * t203 * t878 * t3354 - t10495 - 0.23205144856522500000e-5 * t278 * t2504 * t1203 - 0.18852769323117254682e-7 * t278 * t878 * t3364 + 0.12376077256812000000e-4 * t278 * t878 * t985 + 0.31421282205195424469e-8 * t203 * t204 * t3830 * t222 + t10502 + 0.23565961653896568352e-8 * t278 * t625 * t3830 + 0.25527881377763206500e-10 * t278 * t204 * t5755 / t78 / t1982 * sigma[2] - 0.18852769323117254682e-7 * t278 * t204 * t3363;
6713 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6714 v4rhosigma3[19] = t10 * t10667 - t3823 + t3826 - t3829 + t3833;
6715
6716 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6717 v4rhosigma2lapl[0] = 0.0e0;
6718
6719 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6720 v4rhosigma2lapl[1] = 0.0e0;
6721
6722 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6723 v4rhosigma2lapl[2] = 0.0e0;
6724
6725 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6726 v4rhosigma2lapl[3] = 0.0e0;
6727
6728 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6729 v4rhosigma2lapl[4] = 0.0e0;
6730
6731 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6732 v4rhosigma2lapl[5] = 0.0e0;
6733
6734 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6735 v4rhosigma2lapl[6] = 0.0e0;
6736
6737 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6738 v4rhosigma2lapl[7] = 0.0e0;
6739
6740 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6741 v4rhosigma2lapl[8] = 0.0e0;
6742
6743 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6744 v4rhosigma2lapl[9] = 0.0e0;
6745
6746 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6747 v4rhosigma2lapl[10] = 0.0e0;
6748
6749 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6750 v4rhosigma2lapl[11] = 0.0e0;
6751
6752 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6753 v4rhosigma2lapl[12] = 0.0e0;
6754
6755 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6756 v4rhosigma2lapl[13] = 0.0e0;
6757
6758 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6759 v4rhosigma2lapl[14] = 0.0e0;
6760
6761 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6762 v4rhosigma2lapl[15] = 0.0e0;
6763
6764 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6765 v4rhosigma2lapl[16] = 0.0e0;
6766
6767 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6768 v4rhosigma2lapl[17] = 0.0e0;
6769
6770 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6771 v4rhosigma2lapl[18] = 0.0e0;
6772
6773 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6774 v4rhosigma2lapl[19] = 0.0e0;
6775
6776 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6777 v4rhosigma2lapl[20] = 0.0e0;
6778
6779 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6780 v4rhosigma2lapl[21] = 0.0e0;
6781
6782 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6783 v4rhosigma2lapl[22] = 0.0e0;
6784
6785 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6786 v4rhosigma2lapl[23] = 0.0e0;
6787
6788 t10670 = t2959 * t3881 / 0.2e1;
6789 t10671 = t15 * t3879;
6790 t10697 = t3850 * t170;
6791 t10706 = 0.25e2 / 0.27e2 * t3748 + 0.325e3 / 0.972e3 * t3750 - 0.25e2 / 0.27e2 * t3761 + 0.325e3 / 0.972e3 * t3763 + 0.5e1 / 0.36e2 * t9416 * t289 - 0.5e1 / 0.36e2 * t9428 * t289 + 0.25e2 / 0.5184e4 * t7966 * t1126 + 0.125e3 / 0.7776e4 * t7984 * t3144 + 0.25e2 / 0.5184e4 * t7957 * t1126 - 0.125e3 / 0.7776e4 * t7988 * t3144 - 0.5e1 / 0.9e1 * t8814 * t360 - 0.25e2 / 0.324e3 * t6503 * t1213 + 0.125e3 / 0.486e3 * t6272 * t3415 - 0.5e1 / 0.9e1 * t10697 * t149 + 0.10e2 / 0.27e2 * t3429 * t785 - 0.25e2 / 0.972e3 * t2818 * t3108 - 0.10e2 / 0.27e2 * t3398 * t785;
6792 t10715 = t3867 * t184;
6793 t10750 = t1563 * t3860;
6794 t10757 = t9433 * t147;
6795 t10762 = t9421 * t147;
6796 t10769 = -0.25e2 / 0.972e3 * t2886 * t3108 + 0.5e1 / 0.9e1 * t8811 * t360 - 0.25e2 / 0.324e3 * t6490 * t1213 - 0.125e3 / 0.486e3 * t6275 * t3415 + 0.5e1 / 0.9e1 * t10715 * t149 - 0.875e3 / 0.7776e4 * t3765 + 0.875e3 / 0.7776e4 * t3753 + (0.99922839506172839506e-1 * t3755 + 0.31721536351165980796e-1 * t3860 * t1602 * t149 + 0.31721536351165980796e-1 * t4272 * t3835 * t10386 + 0.99922839506172839506e-1 * t3757) * t63 + (0.36405085600276275287e-2 * t3733 - 0.94323727643110735871e-3 * t3835 * t497 * t48 * t149 - 0.46168149368481387594e-2 * t3736 + 0.11961932996487846350e-2 * t3839 * t1560 * t3119 + 0.16506652337544378778e-2 * t3740 - 0.42767897773442879983e-3 * t3842 * t1560 * t10341 + 0.54237331406391996173e-3 * t6362 * t3835 * t152 * t10340 - 0.20933382743853731114e-2 * t3744) * t55 + 0.625e3 / 0.69984e5 * t10411 * t10750 + 0.625e3 / 0.69984e5 * t10372 * t10750 + 0.25e2 / 0.81e2 * t10398 * t1007 - 0.25e2 / 0.324e3 * t10757 * t789 + 0.25e2 / 0.81e2 * t10359 * t1007 - 0.25e2 / 0.324e3 * t10762 * t789 - 0.125e3 / 0.7776e4 * t4409 * t3860 + 0.125e3 / 0.7776e4 * t4412 * t3860;
6797 t10775 = t16 * t3879;
6798 t10780 = 0.10155490000000000000e-2 * t2933 * t3884;
6799 t10794 = 0.10313397714010000000e-5 * t2933 * t3887;
6800 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6801 v4rhosigma2tau[0] = -t10670 - t1000 * t10671 * t130 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t193 * (t10769 + t10706) * t68 - 0.10155490000000000000e-2 * t1000 * t10775 * t198 + t10780 + 0.10155490000000000000e-2 * t1000 * t3375 * t854 + 0.76166175000000000000e-3 * t1000 * t9615 * t317 + 0.41253590856040000001e-5 * t1000 * t3455 * t868 - 0.20310980000000000000e-2 * t1000 * t3455 * t872 - t10794 - 0.10313397714010000000e-5 * t1000 * t1001 * t3200 - 0.77350482855075000000e-6 * t1000 * t2905 * t1159 - 0.62842564410390848941e-8 * t1000 * t1052 * t3213 + 0.41253590856040000000e-5 * t1000 * t1052 * t867;
6802
6803 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6804 v4rhosigma2tau[1] = 0.0e0;
6805
6806 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6807 v4rhosigma2tau[2] = 0.0e0;
6808
6809 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6810 v4rhosigma2tau[3] = 0.0e0;
6811
6812 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6813 v4rhosigma2tau[4] = 0.0e0;
6814
6815 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6816 v4rhosigma2tau[5] = 0.0e0;
6817
6818 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6819 v4rhosigma2tau[6] = 0.0e0;
6820
6821 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6822 v4rhosigma2tau[7] = 0.0e0;
6823
6824 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6825 v4rhosigma2tau[8] = 0.0e0;
6826
6827 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6828 v4rhosigma2tau[9] = 0.0e0;
6829
6830 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6831 v4rhosigma2tau[10] = 0.0e0;
6832
6833 t10808 = t2959 * t3936 / 0.2e1;
6834 t10809 = t74 * t3934;
6835 t10814 = 0.10155490000000000000e-2 * t2933 * t3939;
6836 t10819 = 0.10313397714010000000e-5 * t2933 * t3942;
6837 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6838 v4rhosigma2tau[11] = -t10808 - t1000 * t10809 * t206 / 0.2e1 + t10814 + 0.10155490000000000000e-2 * t1000 * t3475 * t885 - t10819 - 0.10313397714010000000e-5 * t1000 * t1058 * t3235;
6839
6840 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6841 v4rhosigma2tau[12] = -t10670 - t1000 * t10671 * t218 / 0.2e1 + t10780 + 0.10155490000000000000e-2 * t1000 * t3375 * t897 - t10794 - 0.10313397714010000000e-5 * t1000 * t1001 * t3250;
6842
6843 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6844 v4rhosigma2tau[13] = 0.0e0;
6845
6846 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6847 v4rhosigma2tau[14] = 0.0e0;
6848
6849 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6850 v4rhosigma2tau[15] = 0.0e0;
6851
6852 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6853 v4rhosigma2tau[16] = 0.0e0;
6854
6855 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6856 v4rhosigma2tau[17] = 0.0e0;
6857
6858 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6859 v4rhosigma2tau[18] = 0.0e0;
6860
6861 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6862 v4rhosigma2tau[19] = 0.0e0;
6863
6864 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6865 v4rhosigma2tau[20] = 0.0e0;
6866
6867 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6868 v4rhosigma2tau[21] = 0.0e0;
6869
6870 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6871 v4rhosigma2tau[22] = 0.0e0;
6872
6873 t10843 = t1563 * t3915;
6874 t10852 = t9902 * t234;
6875 t10857 = t9879 * t234;
6876 t10892 = 0.25e2 / 0.27e2 * t3800 + 0.325e3 / 0.972e3 * t3802 - 0.25e2 / 0.27e2 * t3813 + 0.325e3 / 0.972e3 * t3815 - 0.125e3 / 0.7776e4 * t5875 * t3915 + 0.125e3 / 0.7776e4 * t5872 * t3915 + 0.625e3 / 0.69984e5 * t10612 * t10843 + 0.625e3 / 0.69984e5 * t10573 * t10843 + 0.875e3 / 0.7776e4 * t3805 - 0.875e3 / 0.7776e4 * t3817 + 0.25e2 / 0.81e2 * t10560 * t1071 - 0.25e2 / 0.324e3 * t10852 * t911 + 0.25e2 / 0.81e2 * t10599 * t1071 - 0.25e2 / 0.324e3 * t10857 * t911 + (0.36405085600276275287e-2 * t3785 - 0.94323727643110735871e-3 * t3890 * t709 * t48 * t236 - 0.46168149368481387594e-2 * t3788 + 0.11961932996487846350e-2 * t3894 * t2064 * t3276 + 0.16506652337544378778e-2 * t3792 - 0.42767897773442879983e-3 * t3897 * t2064 * t10542 + 0.54237331406391996173e-3 * t7470 * t3890 * t152 * t10541 - 0.20933382743853731114e-2 * t3796) * t102 + (0.99922839506172839506e-1 * t3807 + 0.31721536351165980796e-1 * t3915 * t2103 * t236 + 0.31721536351165980796e-1 * t5802 * t3890 * t10587 + 0.99922839506172839506e-1 * t3809) * t110 - 0.10e2 / 0.27e2 * t3512 * t907;
6877 t10905 = t3905 * t254;
6878 t10926 = t3922 * t268;
6879 t10929 = -0.25e2 / 0.972e3 * t3063 * t3265 - 0.5e1 / 0.9e1 * t9174 * t389 - 0.5e1 / 0.36e2 * t9874 * t323 + 0.25e2 / 0.5184e4 * t8521 * t1170 + 0.10e2 / 0.27e2 * t3543 * t907 - 0.25e2 / 0.972e3 * t3050 * t3265 - 0.5e1 / 0.9e1 * t10905 * t236 + 0.5e1 / 0.36e2 * t9897 * t323 + 0.25e2 / 0.5184e4 * t8509 * t1170 - 0.125e3 / 0.7776e4 * t8402 * t3301 + 0.125e3 / 0.7776e4 * t8399 * t3301 + 0.5e1 / 0.9e1 * t9216 * t389 - 0.25e2 / 0.324e3 * t7620 * t1255 - 0.125e3 / 0.486e3 * t7580 * t3529 - 0.25e2 / 0.324e3 * t7595 * t1255 + 0.125e3 / 0.486e3 * t7583 * t3529 + 0.5e1 / 0.9e1 * t10926 * t236;
6880 t10935 = t75 * t3934;
6881 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6882 v4rhosigma2tau[23] = -t10808 - t1000 * t10809 * t223 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t277 * (t10929 + t10892) * t115 - 0.10155490000000000000e-2 * t1000 * t10935 * t282 + t10814 + 0.10155490000000000000e-2 * t1000 * t3475 * t975 + 0.76166175000000000000e-3 * t1000 * t9762 * t351 + 0.41253590856040000001e-5 * t1000 * t3569 * t986 - 0.20310980000000000000e-2 * t1000 * t3569 * t990 - t10819 - 0.10313397714010000000e-5 * t1000 * t1058 * t3354 - 0.77350482855075000000e-6 * t1000 * t3085 * t1203 - 0.62842564410390848941e-8 * t1000 * t1116 * t3364 + 0.41253590856040000000e-5 * t1000 * t1116 * t985;
6883
6884 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6885 v4rhosigmalapl2[0] = 0.0e0;
6886
6887 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6888 v4rhosigmalapl2[1] = 0.0e0;
6889
6890 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6891 v4rhosigmalapl2[2] = 0.0e0;
6892
6893 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6894 v4rhosigmalapl2[3] = 0.0e0;
6895
6896 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6897 v4rhosigmalapl2[4] = 0.0e0;
6898
6899 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6900 v4rhosigmalapl2[5] = 0.0e0;
6901
6902 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6903 v4rhosigmalapl2[6] = 0.0e0;
6904
6905 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6906 v4rhosigmalapl2[7] = 0.0e0;
6907
6908 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6909 v4rhosigmalapl2[8] = 0.0e0;
6910
6911 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6912 v4rhosigmalapl2[9] = 0.0e0;
6913
6914 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6915 v4rhosigmalapl2[10] = 0.0e0;
6916
6917 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6918 v4rhosigmalapl2[11] = 0.0e0;
6919
6920 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6921 v4rhosigmalapl2[12] = 0.0e0;
6922
6923 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6924 v4rhosigmalapl2[13] = 0.0e0;
6925
6926 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6927 v4rhosigmalapl2[14] = 0.0e0;
6928
6929 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6930 v4rhosigmalapl2[15] = 0.0e0;
6931
6932 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6933 v4rhosigmalapl2[16] = 0.0e0;
6934
6935 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6936 v4rhosigmalapl2[17] = 0.0e0;
6937
6938 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6939 v4rhosigmalapltau[0] = 0.0e0;
6940
6941 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6942 v4rhosigmalapltau[1] = 0.0e0;
6943
6944 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6945 v4rhosigmalapltau[2] = 0.0e0;
6946
6947 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6948 v4rhosigmalapltau[3] = 0.0e0;
6949
6950 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6951 v4rhosigmalapltau[4] = 0.0e0;
6952
6953 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6954 v4rhosigmalapltau[5] = 0.0e0;
6955
6956 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6957 v4rhosigmalapltau[6] = 0.0e0;
6958
6959 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6960 v4rhosigmalapltau[7] = 0.0e0;
6961
6962 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6963 v4rhosigmalapltau[8] = 0.0e0;
6964
6965 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6966 v4rhosigmalapltau[9] = 0.0e0;
6967
6968 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6969 v4rhosigmalapltau[10] = 0.0e0;
6970
6971 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6972 v4rhosigmalapltau[11] = 0.0e0;
6973
6974 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6975 v4rhosigmalapltau[12] = 0.0e0;
6976
6977 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6978 v4rhosigmalapltau[13] = 0.0e0;
6979
6980 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6981 v4rhosigmalapltau[14] = 0.0e0;
6982
6983 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6984 v4rhosigmalapltau[15] = 0.0e0;
6985
6986 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6987 v4rhosigmalapltau[16] = 0.0e0;
6988
6989 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6990 v4rhosigmalapltau[17] = 0.0e0;
6991
6992 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6993 v4rhosigmalapltau[18] = 0.0e0;
6994
6995 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6996 v4rhosigmalapltau[19] = 0.0e0;
6997
6998 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6999 v4rhosigmalapltau[20] = 0.0e0;
7000
7001 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7002 v4rhosigmalapltau[21] = 0.0e0;
7003
7004 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7005 v4rhosigmalapltau[22] = 0.0e0;
7006
7007 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7008 v4rhosigmalapltau[23] = 0.0e0;
7009
7010 t10964 = t2959 * t3991 / 0.2e1;
7011 t10965 = t15 * t3989;
7012 t10981 = t3977 * t184;
7013 t10986 = t3960 * t170;
7014 t11003 = 0.25e2 / 0.81e2 * t6490 * t1297 + 0.250e3 / 0.243e3 * t6275 * t3620 - 0.25e2 / 0.324e3 * t7957 * t1213 + 0.125e3 / 0.486e3 * t7988 * t3415 + 0.25e2 / 0.81e2 * t6503 * t1297 - 0.250e3 / 0.243e3 * t6272 * t3620 + 0.5e1 / 0.9e1 * t10981 * t149 - 0.5e1 / 0.72e2 * t10085 * t289 - 0.5e1 / 0.9e1 * t10986 * t149 + 0.5e1 / 0.72e2 * t10067 * t289 - 0.10e2 / 0.9e1 * t9416 * t360 + 0.5e1 / 0.27e2 * t3633 * t785 + 0.10e2 / 0.9e1 * t9428 * t360 - 0.25e2 / 0.324e3 * t7966 * t1213 - 0.125e3 / 0.486e3 * t7984 * t3415 + 0.325e3 / 0.972e3 * t3871 - 0.250e3 / 0.243e3 * t3875;
7015 t11010 = t1563 * t3970;
7016 t11049 = t10090 * t147;
7017 t11054 = t10072 * t147;
7018 t11061 = 0.50e2 / 0.27e2 * t3852 + 0.325e3 / 0.972e3 * t3854 - 0.250e3 / 0.243e3 * t3858 - 0.50e2 / 0.27e2 * t3869 - 0.5e1 / 0.27e2 * t3610 * t785 - 0.625e3 / 0.8748e4 * t10411 * t11010 - 0.625e3 / 0.8748e4 * t10372 * t11010 - 0.125e3 / 0.162e3 * t3861 + 0.125e3 / 0.162e3 * t3877 + (-0.24963487268760874483e-1 * t3837 + 0.75458982114488588698e-2 * t3945 * t497 * t48 * t149 + 0.31658159566958665778e-1 * t3840 - 0.95695463971902770800e-2 * t3949 * t1560 * t3119 - 0.11318847317173288305e-1 * t3844 + 0.34214318218754303988e-2 * t3952 * t1560 * t10341 - 0.43389865125113596937e-2 * t6362 * t3945 * t152 * t10340 + 0.14354319595785415621e-1 * t3848) * t55 + (-0.68518518518518518516e0 * t3863 - 0.25377229080932784636e0 * t3970 * t1602 * t149 - 0.25377229080932784636e0 * t4272 * t3945 * t10386 - 0.68518518518518518516e0 * t3865) * t63 + 0.50e2 / 0.81e2 * t10762 * t1007 - 0.25e2 / 0.648e3 * t11049 * t789 + 0.50e2 / 0.81e2 * t10757 * t1007 - 0.25e2 / 0.648e3 * t11054 * t789 + 0.125e3 / 0.972e3 * t4409 * t3970 - 0.125e3 / 0.972e3 * t4412 * t3970;
7019 t11067 = t16 * t3989;
7020 t11072 = 0.50777450000000000000e-3 * t2933 * t3994;
7021 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7022 v4rhosigmatau2[0] = -t10964 - t1000 * t10965 * t130 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t193 * (t11061 + t11003) * t68 - 0.10155490000000000000e-2 * t1000 * t11067 * t198 + t11072 + 0.50777450000000000000e-3 * t1000 * t3587 * t854 + 0.38083087500000000000e-3 * t1000 * t10109 * t317 + 0.20626795428020000000e-5 * t1000 * t3651 * t868 - 0.10155490000000000000e-2 * t1000 * t3651 * t872;
7023
7024 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7025 v4rhosigmatau2[1] = 0.0e0;
7026
7027 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7028 v4rhosigmatau2[2] = 0.0e0;
7029
7030 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7031 v4rhosigmatau2[3] = 0.0e0;
7032
7033 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7034 v4rhosigmatau2[4] = 0.0e0;
7035
7036 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7037 v4rhosigmatau2[5] = 0.0e0;
7038
7039 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7040 v4rhosigmatau2[6] = 0.0e0;
7041
7042 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7043 v4rhosigmatau2[7] = 0.0e0;
7044
7045 t11086 = t2959 * t4043 / 0.2e1;
7046 t11087 = t74 * t4041;
7047 t11092 = 0.50777450000000000000e-3 * t2933 * t4046;
7048 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7049 v4rhosigmatau2[8] = -t11086 - t1000 * t11087 * t206 / 0.2e1 + t11092 + 0.50777450000000000000e-3 * t1000 * t3656 * t885;
7050
7051 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7052 v4rhosigmatau2[9] = -t10964 - t1000 * t10965 * t218 / 0.2e1 + t11072 + 0.50777450000000000000e-3 * t1000 * t3587 * t897;
7053
7054 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7055 v4rhosigmatau2[10] = 0.0e0;
7056
7057 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7058 v4rhosigmatau2[11] = 0.0e0;
7059
7060 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7061 v4rhosigmatau2[12] = 0.0e0;
7062
7063 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7064 v4rhosigmatau2[13] = 0.0e0;
7065
7066 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7067 v4rhosigmatau2[14] = 0.0e0;
7068
7069 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7070 v4rhosigmatau2[15] = 0.0e0;
7071
7072 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7073 v4rhosigmatau2[16] = 0.0e0;
7074
7075 t11105 = t1563 * t4022;
7076 t11150 = t10223 * t234;
7077 t11155 = t10239 * t234;
7078 t11161 = -0.625e3 / 0.8748e4 * t10573 * t11105 - 0.625e3 / 0.8748e4 * t10612 * t11105 + 0.50e2 / 0.27e2 * t3907 + 0.325e3 / 0.972e3 * t3909 - 0.250e3 / 0.243e3 * t3913 - 0.50e2 / 0.27e2 * t3924 + 0.325e3 / 0.972e3 * t3926 - 0.250e3 / 0.243e3 * t3930 + 0.125e3 / 0.972e3 * t5875 * t4022 - 0.125e3 / 0.972e3 * t5872 * t4022 + (-0.68518518518518518516e0 * t3918 - 0.25377229080932784636e0 * t4022 * t2103 * t236 - 0.25377229080932784636e0 * t5802 * t3997 * t10587 - 0.68518518518518518516e0 * t3920) * t110 + (-0.24963487268760874483e-1 * t3892 + 0.75458982114488588698e-2 * t3997 * t709 * t48 * t236 + 0.31658159566958665778e-1 * t3895 - 0.95695463971902770800e-2 * t4001 * t2064 * t3276 - 0.11318847317173288305e-1 * t3899 + 0.34214318218754303988e-2 * t4004 * t2064 * t10542 - 0.43389865125113596937e-2 * t7470 * t3997 * t152 * t10541 + 0.14354319595785415621e-1 * t3903) * t102 - 0.25e2 / 0.648e3 * t11150 * t911 + 0.50e2 / 0.81e2 * t10857 * t1071 - 0.25e2 / 0.648e3 * t11155 * t911 + 0.50e2 / 0.81e2 * t10852 * t1071 - 0.125e3 / 0.162e3 * t3916;
7079 t11175 = t4029 * t268;
7080 t11184 = t4012 * t254;
7081 t11197 = 0.125e3 / 0.162e3 * t3932 + 0.5e1 / 0.27e2 * t3709 * t907 - 0.5e1 / 0.27e2 * t3686 * t907 - 0.125e3 / 0.486e3 * t8399 * t3529 + 0.25e2 / 0.81e2 * t7620 * t1332 + 0.250e3 / 0.243e3 * t7580 * t3696 - 0.250e3 / 0.243e3 * t7583 * t3696 + 0.5e1 / 0.9e1 * t11175 * t236 - 0.5e1 / 0.72e2 * t10218 * t323 + 0.10e2 / 0.9e1 * t9874 * t389 - 0.25e2 / 0.324e3 * t8521 * t1255 - 0.5e1 / 0.9e1 * t11184 * t236 + 0.5e1 / 0.72e2 * t10234 * t323 - 0.10e2 / 0.9e1 * t9897 * t389 - 0.25e2 / 0.324e3 * t8509 * t1255 + 0.125e3 / 0.486e3 * t8402 * t3529 + 0.25e2 / 0.81e2 * t7595 * t1332;
7082 t11203 = t75 * t4041;
7083 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7084 v4rhosigmatau2[17] = -t11086 - t1000 * t11087 * t223 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t277 * (t11197 + t11161) * t115 - 0.10155490000000000000e-2 * t1000 * t11203 * t282 + t11092 + 0.50777450000000000000e-3 * t1000 * t3656 * t975 + 0.38083087500000000000e-3 * t1000 * t10305 * t351 + 0.20626795428020000000e-5 * t1000 * t3727 * t986 - 0.10155490000000000000e-2 * t1000 * t3727 * t990;
7085
7086 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7087 v4rholapl3[0] = 0.0e0;
7088
7089 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7090 v4rholapl3[1] = 0.0e0;
7091
7092 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7093 v4rholapl3[2] = 0.0e0;
7094
7095 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7096 v4rholapl3[3] = 0.0e0;
7097
7098 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7099 v4rholapl3[4] = 0.0e0;
7100
7101 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7102 v4rholapl3[5] = 0.0e0;
7103
7104 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7105 v4rholapl3[6] = 0.0e0;
7106
7107 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7108 v4rholapl3[7] = 0.0e0;
7109
7110 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7111 v4rholapl2tau[0] = 0.0e0;
7112
7113 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7114 v4rholapl2tau[1] = 0.0e0;
7115
7116 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7117 v4rholapl2tau[2] = 0.0e0;
7118
7119 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7120 v4rholapl2tau[3] = 0.0e0;
7121
7122 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7123 v4rholapl2tau[4] = 0.0e0;
7124
7125 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7126 v4rholapl2tau[5] = 0.0e0;
7127
7128 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7129 v4rholapl2tau[6] = 0.0e0;
7130
7131 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7132 v4rholapl2tau[7] = 0.0e0;
7133
7134 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7135 v4rholapl2tau[8] = 0.0e0;
7136
7137 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7138 v4rholapl2tau[9] = 0.0e0;
7139
7140 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7141 v4rholapl2tau[10] = 0.0e0;
7142
7143 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7144 v4rholapl2tau[11] = 0.0e0;
7145
7146 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7147 v4rholapltau2[0] = 0.0e0;
7148
7149 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7150 v4rholapltau2[1] = 0.0e0;
7151
7152 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7153 v4rholapltau2[2] = 0.0e0;
7154
7155 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7156 v4rholapltau2[3] = 0.0e0;
7157
7158 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7159 v4rholapltau2[4] = 0.0e0;
7160
7161 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7162 v4rholapltau2[5] = 0.0e0;
7163
7164 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7165 v4rholapltau2[6] = 0.0e0;
7166
7167 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7168 v4rholapltau2[7] = 0.0e0;
7169
7170 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7171 v4rholapltau2[8] = 0.0e0;
7172
7173 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7174 v4rholapltau2[9] = 0.0e0;
7175
7176 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7177 v4rholapltau2[10] = 0.0e0;
7178
7179 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7180 v4rholapltau2[11] = 0.0e0;
7181
7182 t11219 = t2959 * t4087;
7183 t11221 = t15 * t4085;
7184 t11245 = t4064 * t170;
7185 t11260 = t1563 * t4070;
7186 t11264 = (0.16642324845840582988e0 * t3947 - 0.60367185691590870959e-1 * t4049 * t497 * t48 * t149 - 0.21105439711305777186e0 * t3950 + 0.76556371177522216641e-1 * t4053 * t1560 * t3119 + 0.75458982114488588700e-1 * t3954 - 0.27371454575003443189e-1 * t4056 * t1560 * t10341 + 0.34711892100090877548e-1 * t6362 * t4049 * t152 * t10340 - 0.95695463971902770800e-1 * t3958) * t55 - 0.5e1 / 0.9e1 * t11245 * t149 - 0.5e1 / 0.3e1 * t10067 * t360 + 0.25e2 / 0.27e2 * t11054 * t1007 + 0.25e2 / 0.9e1 * t3962 + 0.25e2 / 0.27e2 * t7957 * t1297 - 0.250e3 / 0.81e2 * t7988 * t3620 - 0.250e3 / 0.81e2 * t3966 - 0.250e3 / 0.243e3 * t4409 * t4070 + 0.1250e4 / 0.2187e4 * t10372 * t11260 + 0.1250e4 / 0.243e3 * t3971;
7187 t11275 = t4077 * t184;
7188 t11293 = (0.45679012345679012346e1 * t3973 + 0.20301783264746227709e1 * t4070 * t1602 * t149 + 0.20301783264746227709e1 * t4272 * t4049 * t10386 + 0.45679012345679012346e1 * t3975) * t63 + 0.5e1 / 0.9e1 * t11275 * t149 + 0.5e1 / 0.3e1 * t10085 * t360 + 0.25e2 / 0.27e2 * t11049 * t1007 - 0.25e2 / 0.9e1 * t3979 + 0.25e2 / 0.27e2 * t7966 * t1297 + 0.250e3 / 0.81e2 * t7984 * t3620 - 0.250e3 / 0.81e2 * t3983 + 0.250e3 / 0.243e3 * t4412 * t4070 + 0.1250e4 / 0.2187e4 * t10411 * t11260 - 0.1250e4 / 0.243e3 * t3987;
7189 t11299 = t16 * t4085;
7190 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7191 v4rhotau3[0] = -t11219 / 0.2e1 - t1000 * t11221 * t130 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t193 * (t11293 + t11264) * t68 - 0.10155490000000000000e-2 * t1000 * t11299 * t198;
7192
7193 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7194 v4rhotau3[1] = 0.0e0;
7195
7196 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7197 v4rhotau3[2] = 0.0e0;
7198
7199 t11303 = t2959 * t4128;
7200 t11304 = t74 * t4126;
7201 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7202 v4rhotau3[3] = -t1000 * t11304 * t206 / 0.2e1 - t11303 / 0.2e1;
7203
7204 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7205 v4rhotau3[4] = -t1000 * t11221 * t218 / 0.2e1 - t11219 / 0.2e1;
7206
7207 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7208 v4rhotau3[5] = 0.0e0;
7209
7210 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7211 v4rhotau3[6] = 0.0e0;
7212
7213 t11335 = t4105 * t254;
7214 t11350 = t1563 * t4111;
7215 t11354 = (0.16642324845840582988e0 * t3999 - 0.60367185691590870959e-1 * t4090 * t709 * t48 * t236 - 0.21105439711305777186e0 * t4002 + 0.76556371177522216641e-1 * t4094 * t2064 * t3276 + 0.75458982114488588700e-1 * t4006 - 0.27371454575003443189e-1 * t4097 * t2064 * t10542 + 0.34711892100090877548e-1 * t7470 * t4090 * t152 * t10541 - 0.95695463971902770800e-1 * t4010) * t102 - 0.5e1 / 0.9e1 * t11335 * t236 - 0.5e1 / 0.3e1 * t10234 * t389 + 0.25e2 / 0.27e2 * t11155 * t1071 + 0.25e2 / 0.9e1 * t4014 + 0.25e2 / 0.27e2 * t8509 * t1332 - 0.250e3 / 0.81e2 * t8402 * t3696 - 0.250e3 / 0.81e2 * t4018 - 0.250e3 / 0.243e3 * t5875 * t4111 + 0.1250e4 / 0.2187e4 * t10573 * t11350 + 0.1250e4 / 0.243e3 * t4023;
7216 t11365 = t4118 * t268;
7217 t11383 = (0.45679012345679012346e1 * t4025 + 0.20301783264746227709e1 * t4111 * t2103 * t236 + 0.20301783264746227709e1 * t5802 * t4090 * t10587 + 0.45679012345679012346e1 * t4027) * t110 + 0.5e1 / 0.9e1 * t11365 * t236 + 0.5e1 / 0.3e1 * t10218 * t389 + 0.25e2 / 0.27e2 * t11150 * t1071 - 0.25e2 / 0.9e1 * t4031 + 0.25e2 / 0.27e2 * t8521 * t1332 + 0.250e3 / 0.81e2 * t8399 * t3696 - 0.250e3 / 0.81e2 * t4035 + 0.250e3 / 0.243e3 * t5872 * t4111 + 0.1250e4 / 0.2187e4 * t10612 * t11350 - 0.1250e4 / 0.243e3 * t4039;
7218 t11389 = t75 * t4126;
7219 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7220 v4rhotau3[7] = -t11303 / 0.2e1 - t1000 * t11304 * t223 / 0.2e1 - 0.3e1 / 0.8e1 * t358 * t277 * (t11383 + t11354) * t115 - 0.10155490000000000000e-2 * t1000 * t11389 * t282;
7221
7222 t11394 = 0.1e1 / t25 / t2183;
7223 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7224 v4sigma4[0] = t10 * (-0.3e1 / 0.8e1 * t8 * t18 * ((-0.14738082444236052480e-4 * t11394 * t497 * t1556 + 0.18690520307012259922e-4 * t11394 * t43 * t1560 * t1556 - 0.66824840271004499974e-5 * t34 * t11394 * t1560 * t4346 + 0.84745830322487494019e-5 * t4371 * t48 * t11394 * t828) * t55 + 0.5e1 / 0.18e2 * t10354 * t289 + 0.25e2 / 0.864e3 * t8790 * t1126 + 0.125e3 / 0.15552e5 * t6272 * t3752 + 0.625e3 / 0.4478976e7 * t4304 * t11394 * t4275 + (0.49564900548696844993e-3 * t11394 * t1587 * t4267 + 0.49564900548696844994e-3 * t4272 * t11394 * t4275) * t63 - 0.5e1 / 0.18e2 * t10393 * t289 + 0.25e2 / 0.864e3 * t8801 * t1126 - 0.125e3 / 0.15552e5 * t6275 * t3752 + 0.625e3 / 0.4478976e7 * t4293 * t11394 * t4275) * t68 + 0.15233235000000000000e-2 * t194 * t10315 * t317 - 0.46410289713045000000e-5 * t194 * t3095 * t1159 + 0.94263846615586273410e-8 * t194 * t777 * t3778 - 0.95729555166612024373e-11 * t194 * t124 * t4476 * t11394);
7225
7226 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7227 v4sigma4[1] = 0.0e0;
7228
7229 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7230 v4sigma4[2] = 0.0e0;
7231
7232 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7233 v4sigma4[3] = 0.0e0;
7234
7235 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7236 v4sigma4[4] = 0.0e0;
7237
7238 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7239 v4sigma4[5] = 0.0e0;
7240
7241 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7242 v4sigma4[6] = 0.0e0;
7243
7244 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7245 v4sigma4[7] = 0.0e0;
7246
7247 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7248 v4sigma4[8] = 0.0e0;
7249
7250 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7251 v4sigma4[9] = 0.0e0;
7252
7253 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7254 v4sigma4[10] = 0.0e0;
7255
7256 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7257 v4sigma4[11] = 0.0e0;
7258
7259 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7260 v4sigma4[12] = 0.0e0;
7261
7262 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7263 v4sigma4[13] = 0.0e0;
7264
7265 t11458 = 0.1e1 / t78 / t2732;
7266 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7267 v4sigma4[14] = t10 * (-0.3e1 / 0.8e1 * t8 * t76 * ((-0.14738082444236052480e-4 * t11458 * t709 * t1556 + 0.18690520307012259922e-4 * t11458 * t91 * t2064 * t1556 - 0.66824840271004499974e-5 * t87 * t11458 * t2064 * t4346 + 0.84745830322487494019e-5 * t5883 * t48 * t11458 * t828) * t102 + 0.5e1 / 0.18e2 * t10555 * t323 + 0.25e2 / 0.864e3 * t9184 * t1170 + 0.125e3 / 0.15552e5 * t7583 * t3804 + 0.625e3 / 0.4478976e7 * t5833 * t11458 * t4275 + (0.49564900548696844993e-3 * t11458 * t1587 * t5797 + 0.49564900548696844994e-3 * t5802 * t11458 * t4275) * t110 - 0.5e1 / 0.18e2 * t10594 * t323 + 0.25e2 / 0.864e3 * t9177 * t1170 - 0.125e3 / 0.15552e5 * t7580 * t3804 + 0.625e3 / 0.4478976e7 * t5824 * t11458 * t4275) * t115 + 0.15233235000000000000e-2 * t278 * t10477 * t351 - 0.46410289713045000000e-5 * t278 * t3222 * t1203 + 0.94263846615586273410e-8 * t278 * t878 * t3830 - 0.95729555166612024373e-11 * t278 * t204 * t5755 * t11458);
7268
7269 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7270 v4sigma3lapl[0] = 0.0e0;
7271
7272 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7273 v4sigma3lapl[1] = 0.0e0;
7274
7275 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7276 v4sigma3lapl[2] = 0.0e0;
7277
7278 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7279 v4sigma3lapl[3] = 0.0e0;
7280
7281 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7282 v4sigma3lapl[4] = 0.0e0;
7283
7284 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7285 v4sigma3lapl[5] = 0.0e0;
7286
7287 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7288 v4sigma3lapl[6] = 0.0e0;
7289
7290 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7291 v4sigma3lapl[7] = 0.0e0;
7292
7293 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7294 v4sigma3lapl[8] = 0.0e0;
7295
7296 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7297 v4sigma3lapl[9] = 0.0e0;
7298
7299 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7300 v4sigma3lapl[10] = 0.0e0;
7301
7302 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7303 v4sigma3lapl[11] = 0.0e0;
7304
7305 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7306 v4sigma3lapl[12] = 0.0e0;
7307
7308 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7309 v4sigma3lapl[13] = 0.0e0;
7310
7311 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7312 v4sigma3lapl[14] = 0.0e0;
7313
7314 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7315 v4sigma3lapl[15] = 0.0e0;
7316
7317 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7318 v4sigma3lapl[16] = 0.0e0;
7319
7320 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7321 v4sigma3lapl[17] = 0.0e0;
7322
7323 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7324 v4sigma3lapl[18] = 0.0e0;
7325
7326 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7327 v4sigma3lapl[19] = 0.0e0;
7328
7329 t11522 = 0.1e1 / t25 / t3210;
7330 t11578 = (0.11790465955388841984e-3 * t11522 * t497 * t1556 - 0.14952416245609807939e-3 * t11522 * t43 * t1560 * t1556 + 0.53459872216803599981e-4 * t34 * t11522 * t1560 * t4346 - 0.67796664257989995219e-4 * t4371 * t48 * t11522 * t828) * t55 + 0.5e1 / 0.24e2 * t10697 * t289 + 0.25e2 / 0.1728e4 * t9421 * t1126 + 0.125e3 / 0.62208e5 * t7988 * t3752 - 0.5e1 / 0.9e1 * t10354 * t360 - 0.25e2 / 0.216e3 * t8790 * t1213 - 0.125e3 / 0.2592e4 * t6272 * t3860 - 0.625e3 / 0.559872e6 * t4304 * t11522 * t4275 + (-0.39651920438957475995e-2 * t11522 * t1587 * t4267 - 0.39651920438957475994e-2 * t4272 * t11522 * t4275) * t63 - 0.5e1 / 0.24e2 * t10715 * t289 + 0.25e2 / 0.1728e4 * t9433 * t1126 - 0.125e3 / 0.62208e5 * t7984 * t3752 + 0.5e1 / 0.9e1 * t10393 * t360 - 0.25e2 / 0.216e3 * t8801 * t1213 + 0.125e3 / 0.2592e4 * t6275 * t3860 - 0.625e3 / 0.559872e6 * t4293 * t11522 * t4275;
7331 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7332 v4sigma3tau[0] = -0.3e1 / 0.8e1 * t358 * t193 * t11578 * t68 + 0.11424926250000000000e-2 * t1000 * t10775 * t317 - 0.23205144856522500000e-5 * t1000 * t3455 * t1159 + 0.23565961653896568352e-8 * t1000 * t1052 * t3778;
7333
7334 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7335 v4sigma3tau[1] = 0.0e0;
7336
7337 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7338 v4sigma3tau[2] = 0.0e0;
7339
7340 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7341 v4sigma3tau[3] = 0.0e0;
7342
7343 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7344 v4sigma3tau[4] = 0.0e0;
7345
7346 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7347 v4sigma3tau[5] = 0.0e0;
7348
7349 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7350 v4sigma3tau[6] = 0.0e0;
7351
7352 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7353 v4sigma3tau[7] = 0.0e0;
7354
7355 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7356 v4sigma3tau[8] = 0.0e0;
7357
7358 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7359 v4sigma3tau[9] = 0.0e0;
7360
7361 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7362 v4sigma3tau[10] = 0.0e0;
7363
7364 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7365 v4sigma3tau[11] = 0.0e0;
7366
7367 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7368 v4sigma3tau[12] = 0.0e0;
7369
7370 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7371 v4sigma3tau[13] = 0.0e0;
7372
7373 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7374 v4sigma3tau[14] = 0.0e0;
7375
7376 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7377 v4sigma3tau[15] = 0.0e0;
7378
7379 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7380 v4sigma3tau[16] = 0.0e0;
7381
7382 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7383 v4sigma3tau[17] = 0.0e0;
7384
7385 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7386 v4sigma3tau[18] = 0.0e0;
7387
7388 t11593 = 0.1e1 / t78 / t3361;
7389 t11649 = (0.11790465955388841984e-3 * t11593 * t709 * t1556 - 0.14952416245609807939e-3 * t11593 * t91 * t2064 * t1556 + 0.53459872216803599981e-4 * t87 * t11593 * t2064 * t4346 - 0.67796664257989995219e-4 * t5883 * t48 * t11593 * t828) * t102 + 0.5e1 / 0.24e2 * t10905 * t323 + 0.25e2 / 0.1728e4 * t9902 * t1170 + 0.125e3 / 0.62208e5 * t8402 * t3804 - 0.5e1 / 0.9e1 * t10555 * t389 - 0.25e2 / 0.216e3 * t9184 * t1255 - 0.125e3 / 0.2592e4 * t7583 * t3915 - 0.625e3 / 0.559872e6 * t5833 * t11593 * t4275 + (-0.39651920438957475995e-2 * t11593 * t1587 * t5797 - 0.39651920438957475994e-2 * t5802 * t11593 * t4275) * t110 - 0.5e1 / 0.24e2 * t10926 * t323 + 0.25e2 / 0.1728e4 * t9879 * t1170 - 0.125e3 / 0.62208e5 * t8399 * t3804 + 0.5e1 / 0.9e1 * t10594 * t389 - 0.25e2 / 0.216e3 * t9177 * t1255 + 0.125e3 / 0.2592e4 * t7580 * t3915 - 0.625e3 / 0.559872e6 * t5824 * t11593 * t4275;
7390 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7391 v4sigma3tau[19] = -0.3e1 / 0.8e1 * t358 * t277 * t11649 * t115 + 0.11424926250000000000e-2 * t1000 * t10935 * t351 - 0.23205144856522500000e-5 * t1000 * t3569 * t1203 + 0.23565961653896568352e-8 * t1000 * t1116 * t3830;
7392
7393 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7394 v4sigma2lapl2[0] = 0.0e0;
7395
7396 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7397 v4sigma2lapl2[1] = 0.0e0;
7398
7399 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7400 v4sigma2lapl2[2] = 0.0e0;
7401
7402 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7403 v4sigma2lapl2[3] = 0.0e0;
7404
7405 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7406 v4sigma2lapl2[4] = 0.0e0;
7407
7408 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7409 v4sigma2lapl2[5] = 0.0e0;
7410
7411 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7412 v4sigma2lapl2[6] = 0.0e0;
7413
7414 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7415 v4sigma2lapl2[7] = 0.0e0;
7416
7417 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7418 v4sigma2lapl2[8] = 0.0e0;
7419
7420 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7421 v4sigma2lapl2[9] = 0.0e0;
7422
7423 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7424 v4sigma2lapl2[10] = 0.0e0;
7425
7426 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7427 v4sigma2lapl2[11] = 0.0e0;
7428
7429 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7430 v4sigma2lapl2[12] = 0.0e0;
7431
7432 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7433 v4sigma2lapl2[13] = 0.0e0;
7434
7435 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7436 v4sigma2lapl2[14] = 0.0e0;
7437
7438 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7439 v4sigma2lapl2[15] = 0.0e0;
7440
7441 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7442 v4sigma2lapl2[16] = 0.0e0;
7443
7444 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7445 v4sigma2lapl2[17] = 0.0e0;
7446
7447 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7448 v4sigma2lapltau[0] = 0.0e0;
7449
7450 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7451 v4sigma2lapltau[1] = 0.0e0;
7452
7453 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7454 v4sigma2lapltau[2] = 0.0e0;
7455
7456 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7457 v4sigma2lapltau[3] = 0.0e0;
7458
7459 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7460 v4sigma2lapltau[4] = 0.0e0;
7461
7462 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7463 v4sigma2lapltau[5] = 0.0e0;
7464
7465 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7466 v4sigma2lapltau[6] = 0.0e0;
7467
7468 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7469 v4sigma2lapltau[7] = 0.0e0;
7470
7471 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7472 v4sigma2lapltau[8] = 0.0e0;
7473
7474 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7475 v4sigma2lapltau[9] = 0.0e0;
7476
7477 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7478 v4sigma2lapltau[10] = 0.0e0;
7479
7480 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7481 v4sigma2lapltau[11] = 0.0e0;
7482
7483 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7484 v4sigma2lapltau[12] = 0.0e0;
7485
7486 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7487 v4sigma2lapltau[13] = 0.0e0;
7488
7489 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7490 v4sigma2lapltau[14] = 0.0e0;
7491
7492 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7493 v4sigma2lapltau[15] = 0.0e0;
7494
7495 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7496 v4sigma2lapltau[16] = 0.0e0;
7497
7498 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7499 v4sigma2lapltau[17] = 0.0e0;
7500
7501 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7502 v4sigma2lapltau[18] = 0.0e0;
7503
7504 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7505 v4sigma2lapltau[19] = 0.0e0;
7506
7507 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7508 v4sigma2lapltau[20] = 0.0e0;
7509
7510 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7511 v4sigma2lapltau[21] = 0.0e0;
7512
7513 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7514 v4sigma2lapltau[22] = 0.0e0;
7515
7516 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7517 v4sigma2lapltau[23] = 0.0e0;
7518
7519 t11664 = 0.1e1 / t25 / t1467;
7520 t11724 = (-0.94323727643110735874e-3 * t11664 * t497 * t1556 + 0.11961932996487846350e-2 * t11664 * t43 * t1560 * t1556 - 0.42767897773442879986e-3 * t34 * t11664 * t1560 * t4346 + 0.54237331406391996174e-3 * t4371 * t48 * t11664 * t828) * t55 + 0.5e1 / 0.36e2 * t10986 * t289 + 0.25e2 / 0.5184e4 * t10072 * t1126 - 0.10e2 / 0.9e1 * t10697 * t360 - 0.25e2 / 0.162e3 * t9421 * t1213 - 0.125e3 / 0.3888e4 * t7988 * t3860 + 0.25e2 / 0.81e2 * t8790 * t1297 + 0.125e3 / 0.486e3 * t6272 * t3970 + 0.625e3 / 0.69984e5 * t4304 * t11664 * t4275 + (0.31721536351165980795e-1 * t11664 * t1587 * t4267 + 0.31721536351165980794e-1 * t4272 * t11664 * t4275) * t63 - 0.5e1 / 0.36e2 * t10981 * t289 + 0.25e2 / 0.5184e4 * t10090 * t1126 + 0.10e2 / 0.9e1 * t10715 * t360 - 0.25e2 / 0.162e3 * t9433 * t1213 + 0.125e3 / 0.3888e4 * t7984 * t3860 + 0.25e2 / 0.81e2 * t8801 * t1297 - 0.125e3 / 0.486e3 * t6275 * t3970 + 0.625e3 / 0.69984e5 * t4293 * t11664 * t4275;
7521 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7522 v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t358 * t193 * t11724 * t68 + 0.76166175000000000000e-3 * t1000 * t11067 * t317 - 0.77350482855075000000e-6 * t1000 * t3651 * t1159;
7523
7524 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7525 v4sigma2tau2[1] = 0.0e0;
7526
7527 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7528 v4sigma2tau2[2] = 0.0e0;
7529
7530 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7531 v4sigma2tau2[3] = 0.0e0;
7532
7533 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7534 v4sigma2tau2[4] = 0.0e0;
7535
7536 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7537 v4sigma2tau2[5] = 0.0e0;
7538
7539 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7540 v4sigma2tau2[6] = 0.0e0;
7541
7542 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7543 v4sigma2tau2[7] = 0.0e0;
7544
7545 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7546 v4sigma2tau2[8] = 0.0e0;
7547
7548 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7549 v4sigma2tau2[9] = 0.0e0;
7550
7551 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7552 v4sigma2tau2[10] = 0.0e0;
7553
7554 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7555 v4sigma2tau2[11] = 0.0e0;
7556
7557 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7558 v4sigma2tau2[12] = 0.0e0;
7559
7560 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7561 v4sigma2tau2[13] = 0.0e0;
7562
7563 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7564 v4sigma2tau2[14] = 0.0e0;
7565
7566 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7567 v4sigma2tau2[15] = 0.0e0;
7568
7569 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7570 v4sigma2tau2[16] = 0.0e0;
7571
7572 t11736 = 0.1e1 / t78 / t1968;
7573 t11796 = (-0.94323727643110735874e-3 * t11736 * t709 * t1556 + 0.11961932996487846350e-2 * t11736 * t91 * t2064 * t1556 - 0.42767897773442879986e-3 * t87 * t11736 * t2064 * t4346 + 0.54237331406391996174e-3 * t5883 * t48 * t11736 * t828) * t102 + 0.5e1 / 0.36e2 * t11184 * t323 + 0.25e2 / 0.5184e4 * t10239 * t1170 - 0.10e2 / 0.9e1 * t10905 * t389 - 0.25e2 / 0.162e3 * t9902 * t1255 - 0.125e3 / 0.3888e4 * t8402 * t3915 + 0.25e2 / 0.81e2 * t9184 * t1332 + 0.125e3 / 0.486e3 * t7583 * t4022 + 0.625e3 / 0.69984e5 * t5833 * t11736 * t4275 + (0.31721536351165980795e-1 * t11736 * t1587 * t5797 + 0.31721536351165980794e-1 * t5802 * t11736 * t4275) * t110 - 0.5e1 / 0.36e2 * t11175 * t323 + 0.25e2 / 0.5184e4 * t10223 * t1170 + 0.10e2 / 0.9e1 * t10926 * t389 - 0.25e2 / 0.162e3 * t9879 * t1255 + 0.125e3 / 0.3888e4 * t8399 * t3915 + 0.25e2 / 0.81e2 * t9177 * t1332 - 0.125e3 / 0.486e3 * t7580 * t4022 + 0.625e3 / 0.69984e5 * t5824 * t11736 * t4275;
7574 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7575 v4sigma2tau2[17] = -0.3e1 / 0.8e1 * t358 * t277 * t11796 * t115 + 0.76166175000000000000e-3 * t1000 * t11203 * t351 - 0.77350482855075000000e-6 * t1000 * t3727 * t1203;
7576
7577 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7578 v4sigmalapl3[0] = 0.0e0;
7579
7580 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7581 v4sigmalapl3[1] = 0.0e0;
7582
7583 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7584 v4sigmalapl3[2] = 0.0e0;
7585
7586 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7587 v4sigmalapl3[3] = 0.0e0;
7588
7589 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7590 v4sigmalapl3[4] = 0.0e0;
7591
7592 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7593 v4sigmalapl3[5] = 0.0e0;
7594
7595 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7596 v4sigmalapl3[6] = 0.0e0;
7597
7598 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7599 v4sigmalapl3[7] = 0.0e0;
7600
7601 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7602 v4sigmalapl3[8] = 0.0e0;
7603
7604 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7605 v4sigmalapl3[9] = 0.0e0;
7606
7607 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7608 v4sigmalapl3[10] = 0.0e0;
7609
7610 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7611 v4sigmalapl3[11] = 0.0e0;
7612
7613 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7614 v4sigmalapl2tau[0] = 0.0e0;
7615
7616 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7617 v4sigmalapl2tau[1] = 0.0e0;
7618
7619 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7620 v4sigmalapl2tau[2] = 0.0e0;
7621
7622 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7623 v4sigmalapl2tau[3] = 0.0e0;
7624
7625 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7626 v4sigmalapl2tau[4] = 0.0e0;
7627
7628 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7629 v4sigmalapl2tau[5] = 0.0e0;
7630
7631 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7632 v4sigmalapl2tau[6] = 0.0e0;
7633
7634 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7635 v4sigmalapl2tau[7] = 0.0e0;
7636
7637 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7638 v4sigmalapl2tau[8] = 0.0e0;
7639
7640 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7641 v4sigmalapl2tau[9] = 0.0e0;
7642
7643 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7644 v4sigmalapl2tau[10] = 0.0e0;
7645
7646 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7647 v4sigmalapl2tau[11] = 0.0e0;
7648
7649 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7650 v4sigmalapl2tau[12] = 0.0e0;
7651
7652 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7653 v4sigmalapl2tau[13] = 0.0e0;
7654
7655 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7656 v4sigmalapl2tau[14] = 0.0e0;
7657
7658 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7659 v4sigmalapl2tau[15] = 0.0e0;
7660
7661 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7662 v4sigmalapl2tau[16] = 0.0e0;
7663
7664 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7665 v4sigmalapl2tau[17] = 0.0e0;
7666
7667 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7668 v4sigmalapltau2[0] = 0.0e0;
7669
7670 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7671 v4sigmalapltau2[1] = 0.0e0;
7672
7673 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7674 v4sigmalapltau2[2] = 0.0e0;
7675
7676 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7677 v4sigmalapltau2[3] = 0.0e0;
7678
7679 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7680 v4sigmalapltau2[4] = 0.0e0;
7681
7682 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7683 v4sigmalapltau2[5] = 0.0e0;
7684
7685 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7686 v4sigmalapltau2[6] = 0.0e0;
7687
7688 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7689 v4sigmalapltau2[7] = 0.0e0;
7690
7691 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7692 v4sigmalapltau2[8] = 0.0e0;
7693
7694 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7695 v4sigmalapltau2[9] = 0.0e0;
7696
7697 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7698 v4sigmalapltau2[10] = 0.0e0;
7699
7700 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7701 v4sigmalapltau2[11] = 0.0e0;
7702
7703 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7704 v4sigmalapltau2[12] = 0.0e0;
7705
7706 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7707 v4sigmalapltau2[13] = 0.0e0;
7708
7709 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7710 v4sigmalapltau2[14] = 0.0e0;
7711
7712 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7713 v4sigmalapltau2[15] = 0.0e0;
7714
7715 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7716 v4sigmalapltau2[16] = 0.0e0;
7717
7718 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7719 v4sigmalapltau2[17] = 0.0e0;
7720
7721 t11808 = 0.1e1 / t25 / t552;
7722 t11864 = (0.75458982114488588698e-2 * t11808 * t497 * t1556 - 0.95695463971902770804e-2 * t11808 * t43 * t1560 * t1556 + 0.34214318218754303988e-2 * t34 * t11808 * t1560 * t4346 - 0.43389865125113596937e-2 * t4371 * t48 * t11808 * t828) * t55 + 0.5e1 / 0.72e2 * t11245 * t289 - 0.5e1 / 0.3e1 * t10986 * t360 - 0.25e2 / 0.216e3 * t10072 * t1213 + 0.25e2 / 0.27e2 * t9421 * t1297 + 0.125e3 / 0.324e3 * t7988 * t3970 - 0.250e3 / 0.243e3 * t6272 * t4070 - 0.625e3 / 0.8748e4 * t4304 * t11808 * t4275 + (-0.25377229080932784636e0 * t11808 * t1587 * t4267 - 0.25377229080932784636e0 * t4272 * t11808 * t4275) * t63 - 0.5e1 / 0.72e2 * t11275 * t289 + 0.5e1 / 0.3e1 * t10981 * t360 - 0.25e2 / 0.216e3 * t10090 * t1213 + 0.25e2 / 0.27e2 * t9433 * t1297 - 0.125e3 / 0.324e3 * t7984 * t3970 + 0.250e3 / 0.243e3 * t6275 * t4070 - 0.625e3 / 0.8748e4 * t4293 * t11808 * t4275;
7723 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7724 v4sigmatau3[0] = -0.3e1 / 0.8e1 * t358 * t193 * t11864 * t68 + 0.38083087500000000000e-3 * t1000 * t11299 * t317;
7725
7726 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7727 v4sigmatau3[1] = 0.0e0;
7728
7729 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7730 v4sigmatau3[2] = 0.0e0;
7731
7732 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7733 v4sigmatau3[3] = 0.0e0;
7734
7735 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7736 v4sigmatau3[4] = 0.0e0;
7737
7738 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7739 v4sigmatau3[5] = 0.0e0;
7740
7741 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7742 v4sigmatau3[6] = 0.0e0;
7743
7744 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7745 v4sigmatau3[7] = 0.0e0;
7746
7747 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7748 v4sigmatau3[8] = 0.0e0;
7749
7750 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7751 v4sigmatau3[9] = 0.0e0;
7752
7753 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7754 v4sigmatau3[10] = 0.0e0;
7755
7756 t11873 = 0.1e1 / t78 / t764;
7757 t11929 = (0.75458982114488588698e-2 * t11873 * t709 * t1556 - 0.95695463971902770804e-2 * t11873 * t91 * t2064 * t1556 + 0.34214318218754303988e-2 * t87 * t11873 * t2064 * t4346 - 0.43389865125113596937e-2 * t5883 * t48 * t11873 * t828) * t102 + 0.5e1 / 0.72e2 * t11335 * t323 - 0.5e1 / 0.3e1 * t11184 * t389 - 0.25e2 / 0.216e3 * t10239 * t1255 + 0.25e2 / 0.27e2 * t9902 * t1332 + 0.125e3 / 0.324e3 * t8402 * t4022 - 0.250e3 / 0.243e3 * t7583 * t4111 - 0.625e3 / 0.8748e4 * t5833 * t11873 * t4275 + (-0.25377229080932784636e0 * t11873 * t1587 * t5797 - 0.25377229080932784636e0 * t5802 * t11873 * t4275) * t110 - 0.5e1 / 0.72e2 * t11365 * t323 + 0.5e1 / 0.3e1 * t11175 * t389 - 0.25e2 / 0.216e3 * t10223 * t1255 + 0.25e2 / 0.27e2 * t9879 * t1332 - 0.125e3 / 0.324e3 * t8399 * t4022 + 0.250e3 / 0.243e3 * t7580 * t4111 - 0.625e3 / 0.8748e4 * t5824 * t11873 * t4275;
7758 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7759 v4sigmatau3[11] = -0.3e1 / 0.8e1 * t358 * t277 * t11929 * t115 + 0.38083087500000000000e-3 * t1000 * t11389 * t351;
7760
7761 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7762 v4lapl4[0] = 0.0e0;
7763
7764 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7765 v4lapl4[1] = 0.0e0;
7766
7767 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7768 v4lapl4[2] = 0.0e0;
7769
7770 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7771 v4lapl4[3] = 0.0e0;
7772
7773 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7774 v4lapl4[4] = 0.0e0;
7775
7776 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7777 v4lapl3tau[0] = 0.0e0;
7778
7779 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7780 v4lapl3tau[1] = 0.0e0;
7781
7782 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7783 v4lapl3tau[2] = 0.0e0;
7784
7785 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7786 v4lapl3tau[3] = 0.0e0;
7787
7788 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7789 v4lapl3tau[4] = 0.0e0;
7790
7791 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7792 v4lapl3tau[5] = 0.0e0;
7793
7794 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7795 v4lapl3tau[6] = 0.0e0;
7796
7797 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7798 v4lapl3tau[7] = 0.0e0;
7799
7800 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7801 v4lapl2tau2[0] = 0.0e0;
7802
7803 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7804 v4lapl2tau2[1] = 0.0e0;
7805
7806 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7807 v4lapl2tau2[2] = 0.0e0;
7808
7809 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7810 v4lapl2tau2[3] = 0.0e0;
7811
7812 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7813 v4lapl2tau2[4] = 0.0e0;
7814
7815 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7816 v4lapl2tau2[5] = 0.0e0;
7817
7818 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7819 v4lapl2tau2[6] = 0.0e0;
7820
7821 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7822 v4lapl2tau2[7] = 0.0e0;
7823
7824 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7825 v4lapl2tau2[8] = 0.0e0;
7826
7827 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7828 v4lapltau3[0] = 0.0e0;
7829
7830 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7831 v4lapltau3[1] = 0.0e0;
7832
7833 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7834 v4lapltau3[2] = 0.0e0;
7835
7836 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7837 v4lapltau3[3] = 0.0e0;
7838
7839 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7840 v4lapltau3[4] = 0.0e0;
7841
7842 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7843 v4lapltau3[5] = 0.0e0;
7844
7845 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7846 v4lapltau3[6] = 0.0e0;
7847
7848 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7849 v4lapltau3[7] = 0.0e0;
7850
7851 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7852 v4tau4[0] = -0.3e1 / 0.8e1 * t358 * t193 * ((-0.60367185691590870959e-1 * t4247 * t497 * t1556 + 0.76556371177522216641e-1 * t4247 * t43 * t1560 * t1556 - 0.27371454575003443189e-1 * t34 * t4247 * t1560 * t4346 + 0.34711892100090877548e-1 * t4371 * t48 * t4247 * t828) * t55 - 0.20e2 / 0.9e1 * t11245 * t360 + 0.50e2 / 0.27e2 * t10072 * t1297 - 0.1000e4 / 0.243e3 * t7988 * t4070 + 0.1250e4 / 0.2187e4 * t4304 * t4247 * t4275 + (0.20301783264746227709e1 * t4247 * t1587 * t4267 + 0.20301783264746227709e1 * t4272 * t4247 * t4275) * t63 + 0.20e2 / 0.9e1 * t11275 * t360 + 0.50e2 / 0.27e2 * t10090 * t1297 + 0.1000e4 / 0.243e3 * t7984 * t4070 + 0.1250e4 / 0.2187e4 * t4293 * t4247 * t4275) * t68;
7853
7854 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7855 v4tau4[1] = 0.0e0;
7856
7857 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7858 v4tau4[2] = 0.0e0;
7859
7860 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7861 v4tau4[3] = 0.0e0;
7862
7863 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7864 v4tau4[4] = -0.3e1 / 0.8e1 * t358 * t277 * ((-0.60367185691590870959e-1 * t5777 * t709 * t1556 + 0.76556371177522216641e-1 * t5777 * t91 * t2064 * t1556 - 0.27371454575003443189e-1 * t87 * t5777 * t2064 * t4346 + 0.34711892100090877548e-1 * t5883 * t48 * t5777 * t828) * t102 - 0.20e2 / 0.9e1 * t11335 * t389 + 0.50e2 / 0.27e2 * t10239 * t1332 - 0.1000e4 / 0.243e3 * t8402 * t4111 + 0.1250e4 / 0.2187e4 * t5833 * t5777 * t4275 + (0.20301783264746227709e1 * t5777 * t1587 * t5797 + 0.20301783264746227709e1 * t5802 * t5777 * t4275) * t110 + 0.20e2 / 0.9e1 * t11365 * t389 + 0.50e2 / 0.27e2 * t10223 * t1332 + 0.1000e4 / 0.243e3 * t8399 * t4111 + 0.1250e4 / 0.2187e4 * t5824 * t5777 * t4275) * t115;
7865
7866 #ifndef XC_DONT_COMPILE_MXC
7867
7868 if(order < 5) return;
7869
7870
7871 #endif
7872
7873 #endif
7874
7875 #endif
7876
7877 #endif
7878
7879 #endif
7880
7881
7882 }
7883
7884