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