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_scan.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, t14, t15, t16, t17, t18;
25   double t19, t20, t21, t22, t23, t24, t25, t29;
26   double t30, t32, t33, t34, t35, t36, t37, t38;
27   double t40, t45, t46, t50, t51, t52, t55, t56;
28   double t57, t60, t63, t64, t66, t68, t71, t72;
29   double t73, t78, t79, t80, t81, t82, t85, t87;
30   double t89, t90, t93, t94, t95, t96, t97, t99;
31   double t100, t102, t103, t107, t108, t109, t111;
32 
33 #ifndef XC_DONT_COMPILE_VXC
34   double t115, t116, t117, t118, t120, t121, t123, t124;
35   double t127, t129, t130, t134, t135, t136, t137, t138;
36   double t139, t140, t141, t151, t153, t156, t160, t163;
37   double t164, t169, t170, t171, t172, t175, t176, t177;
38   double t178, t179, t180, t184, t187, t188, t192, t193;
39   double t194, t195, t196, t197, t198, t199, t202, t203;
40   double t206, t209, t212, t216, t221, t225, t226, t227;
41   double t229, t230, t231, t233, t235, t238, t239, t241;
42   double t242, t243, t246, t248, t249, t251, t253, t255;
43   double t258, t260, t263, t264, t265, t266, t269, t272;
44   double t274, t278, t279, t283, t286, t290, t291, t295;
45   double t298, t300;
46 
47 #ifndef XC_DONT_COMPILE_FXC
48   double t303, t304, t311, t312, t319, t320, t321, t325;
49   double t326, t329, t331, t332, t336, t337, t343, t344;
50   double t345, t347, t350, t351, t354, t361, t362, t365;
51   double t368, t369, t375, t376, t378, t379, t382, t385;
52   double t388, t391, t395, t398, t399, t400, t406, t407;
53   double t408, t409, t411, t412, t413, t414, t421, t422;
54   double t423, t424, t425, t429, t432, t433, t437, t442;
55   double t443, t447, t452, t455, t459, t460, t464, t467;
56   double t470, t480, t482, t492, t493, t495, t496, t497;
57   double t498, t499, t501, t503, t505, t506, t507, t509;
58   double t512, t513, t515, t517, t519, t520, t523, t524;
59   double t526, t527, t528, t530, t533, t535, t536, t537;
60   double t540, t541, t542, t543, t546, t548, t549, t550;
61   double t553, t556, t558, t561, t565, t566, t570, t571;
62   double t575, t578, t579, t580, t581, t583, t588, t589;
63   double t590, t593, t598, t599, t603, t606, t607, t614;
64   double t619, t624, t625, t626, t629, t636, t639, t641;
65   double t644, t648, t649, t652, t661, t666, t668, t669;
66   double t671, t672, t674, t675, t676, t678, t680, t683;
67   double t684, t686, t689, t690, t691, t693, t695, t697;
68   double t699, t700, t702, t703, t704, t706, t707, t708;
69   double t711, t714, t716, t719, t720, t723, t725, t726;
70   double t731, t735, t736, t737, t739, t742, t745, t750;
71   double t751, t752, t754, t756, t758, t759, t766, t768;
72   double t769, t772, t774, t775, t776, t779, t780, t782;
73   double t785, t788, t790, t793, t794, t797, t798, t802;
74   double t805, t808, t812, t813, t820, t826, t828, t829;
75   double t831, t837, t840, t842;
76 
77 #ifndef XC_DONT_COMPILE_KXC
78   double t851, t852, t864, t869, t872, t875, t877, t878;
79   double t882, t889, t890, t895, t899, t904, t906, t911;
80   double t912, t913, t914, t916, t920, t930, t931, t937;
81   double t938, t939, t942, t943, t952, t953, t957, t960;
82   double t969, t979, t982, t989, t994, t997, t998, t1001;
83   double t1002, t1006, t1007, t1008, t1017, t1018, t1022, t1024;
84   double t1025, t1029, t1032, t1033, t1037, t1047, t1049, t1051;
85   double t1055, t1059, t1065, t1069, t1071, t1072, t1076, t1081;
86   double t1088, t1097, t1113, t1126, t1128, t1129, t1130, t1132;
87   double t1133, t1134, t1136, t1137, t1138, t1140, t1141, t1142;
88   double t1144, t1146, t1148, t1149, t1151, t1152, t1154, t1155;
89   double t1157, t1159, t1162, t1163, t1165, t1168, t1178, t1179;
90   double t1181, t1183, t1186, t1187, t1189, t1190, t1191, t1192;
91   double t1194, t1198, t1202, t1205, t1207, t1212, t1217, t1218;
92   double t1219, t1220, t1222, t1223, t1225, t1226, t1227, t1229;
93   double t1230, t1231, t1234, t1236, t1238, t1240, t1241, t1242;
94   double t1245, t1248, t1250, t1253, t1263, t1264, t1268, t1272;
95   double t1276, t1277, t1279, t1283, t1284, t1286, t1287, t1291;
96   double t1295, t1300, t1301, t1311, t1312, t1315, t1318, t1319;
97   double t1322, t1323, t1326, t1329, t1333, t1352, t1356, t1357;
98   double t1390, t1395, t1400, t1406, t1416, t1419, t1421, t1424;
99   double t1442, t1445, t1448, t1460, t1462, t1471, t1472, t1475;
100   double t1476, t1478, t1479, t1481, t1483, t1485, t1486, t1488;
101   double t1490, t1493, t1494, t1496, t1501, t1504, t1509, t1510;
102   double t1512, t1513, t1515, t1517, t1520, t1522, t1531, t1532;
103   double t1533, t1535, t1536, t1538, t1539, t1540, t1542, t1544;
104   double t1545, t1546, t1549, t1552, t1554, t1557, t1561, t1562;
105   double t1566, t1570, t1575, t1576, t1577, t1578, t1581, t1583;
106   double t1584, t1592, t1595, t1597, t1602, t1603, t1608, t1611;
107   double t1614, t1617, t1620, t1624, t1631, t1632, t1635, t1639;
108   double t1641, t1643, t1646, t1648, t1650, t1651, t1658, t1659;
109   double t1674, t1676, t1681, t1683, t1685, t1688, t1692, t1694;
110   double t1698, t1699, t1702, t1705, t1708, t1711, t1712, t1714;
111   double t1717, t1721, t1722, t1726, t1730, t1735, t1736, t1742;
112   double t1743, t1753, t1756, t1757, t1760, t1770, t1774, t1775;
113   double t1782, t1783, t1800, t1805, t1814, t1824, t1827, t1829;
114   double t1832, t1836, t1837, t1843, t1854, t1861, t1862, t1864;
115   double t1866, t1868, t1870, t1873, t1874, t1876, t1879, t1882;
116   double t1883, t1887, t1889, t1891, t1894, t1897, t1898, t1900;
117   double t1902, t1905, t1908, t1910, t1913, t1914, t1922, t1925;
118   double t1926, t1927, t1931, t1935, t1936, t1938, t1939, t1944;
119   double t1948, t1951, t1953, t1956, t1961, t1964, t1967, t1970;
120   double t1974, t1981, t1982, t1983, t1985, t1987, t1989, t1991;
121   double t1992, t2002, t2005, t2007, t2010, t2011, t2015, t2017;
122   double t2019, t2022, t2024, t2027, t2028, t2030, t2032, t2035;
123   double t2038, t2040, t2043, t2044, t2052, t2055, t2058, t2061;
124   double t2071, t2074, t2077, t2081, t2082, t2083, t2085, t2087;
125   double t2089, t2091, t2092, t2099, t2111, t2113, t2114, t2118;
126   double t2120, t2122, t2126, t2129, t2130, t2132, t2134, t2137;
127   double t2140, t2142, t2145, t2146, t2149, t2150, t2151, t2155;
128   double t2159, t2167, t2170, t2171, t2176, t2180, t2181, t2191;
129   double t2198, t2200, t2203, t2206, t2214, t2217, t2219;
130 
131 #ifndef XC_DONT_COMPILE_LXC
132   double t2222, t2234, t2235, t2245, t2259, t2260, t2280, t2288;
133   double t2290, t2298, t2307, t2316, t2326, t2328, t2349, t2355;
134   double t2387, t2409, t2415, t2419, t2420, t2423, t2431, t2441;
135   double t2458, t2459, t2460, t2461, t2466, t2467, t2470, t2491;
136   double t2503, t2504, t2507, t2525, t2542, t2546, t2562, t2590;
137   double t2598, t2599, t2605, t2606, t2610, t2629, t2631, t2635;
138   double t2653, t2654, t2657, t2661, t2662, t2665, t2666, t2669;
139   double t2670, t2675, t2679, t2692, t2705, t2711, t2712, t2729;
140   double t2743, t2784, t2785, t2789, t2790, t2798, t2801, t2803;
141   double t2819, t2823, t2827, t2830, t2863, t2885, t2898, t2900;
142   double t2909, t2917, t2926, t2940, t2946, t2951, t2958, t2974;
143   double t2977, t2982, t2987, t2994, t3009, t3026, t3039, t3064;
144   double t3080, t3126, t3144, t3149, t3180, t3181, t3188, t3223;
145   double t3238, t3246, t3250, t3260, t3316, t3338, t3341, t3344;
146   double t3366, t3380, t3383, t3384, t3391, t3394, t3395, t3402;
147   double t3413, t3418, t3419, t3421, t3450, t3465, t3468, t3470;
148   double t3473, t3477, t3490, t3493, t3510, t3541, t3594, t3604;
149   double t3623, t3624, t3658, t3672, t3675, t3686, t3692, t3699;
150   double t3703, t3705, t3748, t3793, t3808, t3821, t3843, t3851;
151   double t3855, t3876, t3885, t3900, t3915, t3930, t3938, t3941;
152   double t3944, t3947, t3968, t3974, t3980, t3984, t4001, t4006;
153   double t4033, t4054, t4073, t4074, t4096, t4100, t4107, t4161;
154   double t4164, t4182, t4223, t4248, t4251, t4253, t4258, t4262;
155   double t4302, t4306, t4333, t4336, t4356, t4359, t4369, t4378;
156   double t4412, t4433, t4474, t4514, t4525, t4564, t4610, t4617;
157   double t4621, t4628, t4644, t4697, t4718, t4723, t4726, t4732;
158   double t4735, t4748, t4766, t4767, t4773, t4779, t4784, t4791;
159   double t4794, t4818, t4884, t4937, t4953, t5007, t5034, t5041;
160   double t5047, t5050, t5053, t5056, t5077, t5106, t5112, t5116;
161   double t5122, t5123, t5126, t5127, t5132, t5135, t5158, t5168;
162   double t5193, t5197, t5199, t5200, t5227, t5231, t5240, t5246;
163   double t5252, t5268, t5271, t5299, t5378, t5383, t5384, t5470;
164   double t5487, t5525, t5528, t5533, t5547, t5550, t5553, t5572;
165   double t5590, t5619, t5627, t5638, t5643, t5687, t5723, t5745;
166   double t5748, t5751, t5754, t5795, t5796, t5799, t5807, t5808;
167   double t5828, t5838, t5883, t5907, t5930, t5936, t5956, t5958;
168   double t5961, t5964, t5969, t5974, t5979, t6018, t6033;
169 #endif
170 
171 #endif
172 
173 #endif
174 
175 #endif
176 
177 #endif
178 
179 
180   mgga_x_scan_params *params;
181 
182   assert(p->params != NULL);
183   params = (mgga_x_scan_params * )(p->params);
184 
185   t2 = M_CBRT3;
186   t4 = POW_1_3(0.1e1 / M_PI);
187   t5 = t2 * t4;
188   t6 = M_CBRT4;
189   t7 = t6 * t6;
190   t8 = t5 * t7;
191   t9 = M_CBRT2;
192   t10 = t9 * t9;
193   t11 = POW_1_3(rho[0]);
194   t12 = t10 * t11;
195   t13 = M_CBRT6;
196   t14 = M_PI * M_PI;
197   t15 = POW_1_3(t14);
198   t16 = t15 * t15;
199   t17 = 0.1e1 / t16;
200   t18 = t13 * t17;
201   t19 = sigma[0] * t10;
202   t20 = rho[0] * rho[0];
203   t21 = t11 * t11;
204   t22 = t21 * t20;
205   t23 = 0.1e1 / t22;
206   t24 = t19 * t23;
207   t25 = t18 * t24;
208   t29 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
209   t30 = t13 * t13;
210   t32 = t15 * t14;
211   t33 = 0.1e1 / t32;
212   t34 = t29 * t30 * t33;
213   t35 = sigma[0] * sigma[0];
214   t36 = t35 * t9;
215   t37 = t20 * t20;
216   t38 = t37 * rho[0];
217   t40 = 0.1e1 / t11 / t38;
218   t45 = exp(-0.27e2 / 0.80e2 * t29 * t13 * t17 * t24);
219   t46 = t40 * t45;
220   t50 = sqrt(0.146e3);
221   t51 = t50 * t13;
222   t52 = t51 * t17;
223   t55 = tau[0] * t10;
224   t56 = t21 * rho[0];
225   t57 = 0.1e1 / t56;
226   t60 = t55 * t57 - t24 / 0.8e1;
227   t63 = 0.5e1 / 0.9e1 * t60 * t13 * t17;
228   t64 = 0.1e1 - t63;
229   t66 = t64 * t64;
230   t68 = exp(-t66 / 0.2e1);
231   t71 = 0.7e1 / 0.12960e5 * t52 * t24 + t50 * t64 * t68 / 0.100e3;
232   t72 = t71 * t71;
233   t73 = params->k1 + 0.5e1 / 0.972e3 * t25 + t34 * t36 * t46 / 0.288e3 + t72;
234   t78 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t73);
235   t79 = t63 <= 0.1e1;
236   t80 = params->c1 * t60;
237   t81 = 0.1e1 / t64;
238   t82 = t18 * t81;
239   t85 = exp(-0.5e1 / 0.9e1 * t80 * t82);
240   t87 = exp(params->c2 * t81);
241   t89 = my_piecewise3(t79, t85, -params->d * t87);
242   t90 = 0.1e1 - t89;
243   t93 = t78 * t90 + 0.1174e1 * t89;
244   t94 = sqrt(0.3e1);
245   t95 = 0.1e1 / t15;
246   t96 = t30 * t95;
247   t97 = sqrt(sigma[0]);
248   t99 = t11 * rho[0];
249   t100 = 0.1e1 / t99;
250   t102 = t96 * t97 * t9 * t100;
251   t103 = sqrt(t102);
252   t107 = exp(-0.98958000000000000000e1 * t94 / t103);
253   t108 = 0.1e1 - t107;
254   t109 = t93 * t108;
255   t111 = t8 * t12 * t109;
256   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
257     zk[0] = -0.3e1 / 0.16e2 * t111;
258 
259 #ifndef XC_DONT_COMPILE_VXC
260 
261   if(order < 1) return;
262 
263 
264   t115 = t99 * t2 * t4;
265   t116 = t7 * t10;
266   t117 = params->k1 * params->k1;
267   t118 = t73 * t73;
268   t120 = t117 / t118;
269   t121 = t20 * rho[0];
270   t123 = 0.1e1 / t21 / t121;
271   t124 = t19 * t123;
272   t127 = t37 * t20;
273   t129 = 0.1e1 / t11 / t127;
274   t130 = t129 * t45;
275   t134 = t29 * t29;
276   t135 = t14 * t14;
277   t136 = 0.1e1 / t135;
278   t137 = t134 * t136;
279   t138 = t35 * sigma[0];
280   t139 = t37 * t37;
281   t140 = t139 * rho[0];
282   t141 = 0.1e1 / t140;
283   t151 = -0.5e1 / 0.3e1 * t55 * t23 + t124 / 0.3e1;
284   t153 = t18 * t68;
285   t156 = t50 * t66;
286   t160 = -0.7e1 / 0.4860e4 * t52 * t124 - t50 * t151 * t153 / 0.180e3 + t156 * t151 * t153 / 0.180e3;
287   t163 = -0.10e2 / 0.729e3 * t18 * t124 - t34 * t36 * t130 / 0.54e2 + 0.3e1 / 0.80e2 * t137 * t138 * t141 * t45 + 0.2e1 * t71 * t160;
288   t164 = t163 * t90;
289   t169 = t80 * t30;
290   t170 = 0.1e1 / t66;
291   t171 = t33 * t170;
292   t172 = t171 * t151;
293   t175 = -0.5e1 / 0.9e1 * params->c1 * t151 * t82 - 0.25e2 / 0.81e2 * t169 * t172;
294   t176 = t175 * t85;
295   t177 = params->d * params->c2;
296   t178 = t177 * t170;
297   t179 = t151 * t13;
298   t180 = t17 * t87;
299   t184 = my_piecewise3(t79, t176, -0.5e1 / 0.9e1 * t178 * t179 * t180);
300   t187 = t120 * t164 - t78 * t184 + 0.1174e1 * t184;
301   t188 = t187 * t108;
302   t192 = 0.1e1 / rho[0];
303   t193 = pow(0.3e1, 0.1e1 / 0.6e1);
304   t194 = t193 * t193;
305   t195 = t194 * t194;
306   t196 = t195 * t193;
307   t197 = t192 * t196;
308   t198 = t4 * t7;
309   t199 = t198 * t93;
310   t202 = 0.1e1 / t103 / t102;
311   t203 = t202 * t30;
312   t206 = t203 * t95 * t97 * t107;
313   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
314     vrho[0] = -t111 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t116 * t188 - 0.24739500000000000000e1 * t197 * t199 * t206;
315 
316   t209 = t10 * t23;
317   t212 = sigma[0] * t9;
318   t216 = 0.1e1 / t139;
319   t221 = t17 * t10;
320   t225 = t50 * t10;
321   t226 = t225 * t23;
322   t227 = t226 * t153;
323   t229 = t156 * t10;
324   t230 = t23 * t13;
325   t231 = t17 * t68;
326   t233 = t229 * t230 * t231;
327   t235 = 0.7e1 / 0.12960e5 * t51 * t221 * t23 + t227 / 0.1440e4 - t233 / 0.1440e4;
328   t238 = 0.5e1 / 0.972e3 * t209 * t18 + t34 * t212 * t46 / 0.144e3 - 0.9e1 / 0.640e3 * t137 * t35 * t216 * t45 + 0.2e1 * t71 * t235;
329   t239 = t238 * t90;
330   t241 = params->c1 * t10;
331   t242 = t241 * t23;
332   t243 = t242 * t82;
333   t246 = t169 * t171 * t209;
334   t248 = 0.5e1 / 0.72e2 * t243 + 0.25e2 / 0.648e3 * t246;
335   t249 = t248 * t85;
336   t251 = t177 * t170 * t10;
337   t253 = t251 * t230 * t180;
338   t255 = my_piecewise3(t79, t249, 0.5e1 / 0.72e2 * t253);
339   t258 = t120 * t239 - t78 * t255 + 0.1174e1 * t255;
340   t260 = t116 * t258 * t108;
341   t263 = t196 * t4;
342   t264 = t7 * t93;
343   t265 = t263 * t264;
344   t266 = 0.1e1 / t97;
345   t269 = t203 * t95 * t266 * t107;
346   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
347     vsigma[0] = -0.3e1 / 0.16e2 * t115 * t260 + 0.92773125000000000000e0 * t265 * t269;
348 
349   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
350     vlapl[0] = 0.0e0;
351 
352   t272 = t225 * t57;
353   t274 = t57 * t13;
354   t278 = t229 * t274 * t231 / 0.180e3 - t272 * t153 / 0.180e3;
355   t279 = t71 * t278;
356   t283 = t241 * t57;
357   t286 = t10 * t57;
358   t290 = -0.5e1 / 0.9e1 * t283 * t82 - 0.25e2 / 0.81e2 * t169 * t171 * t286;
359   t291 = t290 * t85;
360   t295 = my_piecewise3(t79, t291, -0.5e1 / 0.9e1 * t251 * t274 * t180);
361   t298 = 0.2e1 * t120 * t279 * t90 - t78 * t295 + 0.1174e1 * t295;
362   t300 = t116 * t298 * t108;
363   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
364     vtau[0] = -0.3e1 / 0.16e2 * t115 * t300;
365 
366 #ifndef XC_DONT_COMPILE_FXC
367 
368   if(order < 2) return;
369 
370 
371   t303 = 0.1e1 / t21;
372   t304 = t10 * t303;
373   t311 = 0.1e1 / t20;
374   t312 = t7 * t311;
375   t319 = t117 / t118 / t73;
376   t320 = t163 * t163;
377   t321 = t320 * t90;
378   t325 = 0.1e1 / t21 / t37;
379   t326 = t19 * t325;
380   t329 = t37 * t121;
381   t331 = 0.1e1 / t11 / t329;
382   t332 = t331 * t45;
383   t336 = t139 * t20;
384   t337 = 0.1e1 / t336;
385   t343 = t134 * t29 * t136;
386   t344 = t35 * t35;
387   t345 = t139 * t37;
388   t347 = 0.1e1 / t21 / t345;
389   t350 = t10 * t45;
390   t351 = t18 * t350;
391   t354 = t160 * t160;
392   t361 = 0.40e2 / 0.9e1 * t55 * t123 - 0.11e2 / 0.9e1 * t326;
393   t362 = t50 * t361;
394   t365 = t151 * t151;
395   t368 = t33 * t64;
396   t369 = t368 * t68;
397   t375 = t66 * t64;
398   t376 = t50 * t375;
399   t378 = t30 * t33;
400   t379 = t378 * t68;
401   t382 = 0.77e2 / 0.14580e5 * t52 * t326 - t362 * t153 / 0.180e3 - t50 * t365 * t30 * t369 / 0.108e3 + t156 * t361 * t153 / 0.180e3 + t376 * t365 * t379 / 0.324e3;
402   t385 = 0.110e3 / 0.2187e4 * t18 * t326 + 0.19e2 / 0.162e3 * t34 * t36 * t332 - 0.43e2 / 0.80e2 * t137 * t138 * t337 * t45 + 0.27e2 / 0.800e3 * t343 * t344 * t347 * t351 + 0.2e1 * t354 + 0.2e1 * t71 * t382;
403   t388 = t163 * t184;
404   t391 = params->c1 * t361;
405   t395 = t378 * t170;
406   t398 = 0.1e1 / t375;
407   t399 = t136 * t398;
408   t400 = t399 * t365;
409   t406 = -0.5e1 / 0.9e1 * t391 * t82 - 0.50e2 / 0.81e2 * params->c1 * t365 * t395 - 0.500e3 / 0.243e3 * t80 * t400 - 0.25e2 / 0.81e2 * t169 * t171 * t361;
410   t407 = t406 * t85;
411   t408 = t175 * t175;
412   t409 = t408 * t85;
413   t411 = t177 * t398;
414   t412 = t365 * t30;
415   t413 = t33 * t87;
416   t414 = t412 * t413;
417   t421 = params->c2 * params->c2;
418   t422 = params->d * t421;
419   t423 = t66 * t66;
420   t424 = 0.1e1 / t423;
421   t425 = t422 * t424;
422   t429 = my_piecewise3(t79, t407 + t409, -0.50e2 / 0.81e2 * t411 * t414 - 0.5e1 / 0.9e1 * t178 * t361 * t13 * t180 - 0.25e2 / 0.81e2 * t425 * t414);
423   t432 = -0.2e1 * t319 * t321 + t120 * t385 * t90 - 0.2e1 * t120 * t388 - t78 * t429 + 0.1174e1 * t429;
424   t433 = t432 * t108;
425   t437 = t198 * t187;
426   t442 = 0.1e1 / t11 / t121;
427   t443 = t442 * t196;
428   t447 = 0.1e1 / t103 / t25 / 0.6e1;
429   t452 = t447 * t13 * t17 * sigma[0] * t107 * t9;
430   t455 = t21 * t2;
431   t459 = t17 * t9 * t107;
432   t460 = t266 * t13 * t459;
433   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
434     v2rho2[0] = -t8 * t304 * t109 / 0.12e2 - t8 * t12 * t188 / 0.2e1 - 0.8246500000000000000e0 * t263 * t312 * t93 * t206 - 0.3e1 / 0.16e2 * t115 * t116 * t433 - 0.49479000000000000000e1 * t197 * t437 * t206 - 0.29687400000000000000e2 * t443 * t199 * t452 + 0.40270806047858128433e2 * t455 * t199 * t460;
435 
436   t464 = t11 * t2 * t4;
437   t467 = t239 * t163;
438   t470 = t10 * t123;
439   t480 = t139 * t121;
440   t482 = 0.1e1 / t21 / t480;
441   t492 = t225 * t123;
442   t493 = t492 * t153;
443   t495 = t23 * t30;
444   t496 = t225 * t495;
445   t497 = t151 * t68;
446   t498 = t368 * t497;
447   t499 = t496 * t498;
448   t501 = t123 * t13;
449   t503 = t229 * t501 * t231;
450   t505 = t376 * t209;
451   t506 = t378 * t497;
452   t507 = t505 * t506;
453   t509 = -0.7e1 / 0.4860e4 * t51 * t221 * t123 - t493 / 0.540e3 + t499 / 0.864e3 + t503 / 0.540e3 - t507 / 0.2592e4;
454   t512 = -0.10e2 / 0.729e3 * t470 * t18 - t34 * t212 * t130 / 0.27e2 + 0.3e1 / 0.16e2 * t137 * t35 * t141 * t45 - 0.81e2 / 0.6400e4 * t343 * t138 * t482 * t351 + 0.2e1 * t160 * t235 + 0.2e1 * t71 * t509;
455   t513 = t512 * t90;
456   t515 = t238 * t184;
457   t517 = t163 * t255;
458   t519 = t241 * t123;
459   t520 = t519 * t82;
460   t523 = t378 * t170 * t151;
461   t524 = t242 * t523;
462   t526 = t80 * t136;
463   t527 = t398 * t10;
464   t528 = t23 * t151;
465   t530 = t526 * t527 * t528;
466   t533 = t169 * t171 * t470;
467   t535 = -0.5e1 / 0.27e2 * t520 + 0.25e2 / 0.324e3 * t524 + 0.125e3 / 0.486e3 * t530 - 0.25e2 / 0.243e3 * t533;
468   t536 = t535 * t85;
469   t537 = t248 * t175;
470   t540 = t177 * t527;
471   t541 = t413 * t151;
472   t542 = t495 * t541;
473   t543 = t540 * t542;
474   t546 = t251 * t501 * t180;
475   t548 = t424 * t10;
476   t549 = t422 * t548;
477   t550 = t549 * t542;
478   t553 = my_piecewise3(t79, t537 * t85 + t536, 0.25e2 / 0.324e3 * t543 - 0.5e1 / 0.27e2 * t546 + 0.25e2 / 0.648e3 * t550);
479   t556 = -0.2e1 * t319 * t467 + t120 * t513 - t120 * t515 - t120 * t517 - t78 * t553 + 0.1174e1 * t553;
480   t558 = t116 * t556 * t108;
481   t561 = t198 * t258;
482   t565 = t7 * t187;
483   t566 = t263 * t565;
484   t570 = t263 * t264 * t447;
485   t571 = t107 * t9;
486   t575 = t18 * t571 / t11 / t20;
487   t578 = t97 * sigma[0];
488   t579 = 0.1e1 / t578;
489   t580 = t264 * t579;
490   t581 = t5 * t580;
491   t583 = t56 * t13 * t459;
492   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
493     v2rhosigma[0] = -t464 * t260 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t558 - 0.24739500000000000000e1 * t197 * t561 * t206 + 0.92773125000000000000e0 * t566 * t269 + 0.11132775000000000000e2 * t570 * t575 - 0.15101552267946798162e2 * t581 * t583;
494 
495   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
496     v2rholapl[0] = 0.0e0;
497 
498   t588 = t319 * t71;
499   t589 = t278 * t90;
500   t590 = t589 * t163;
501   t593 = t160 * t278;
502   t598 = t57 * t30;
503   t599 = t225 * t598;
504   t603 = t376 * t286;
505   t606 = t227 / 0.108e3 - t599 * t498 / 0.108e3 - t233 / 0.108e3 + t603 * t506 / 0.324e3;
506   t607 = t71 * t606;
507   t614 = t163 * t295;
508   t619 = t57 * t151;
509   t624 = 0.25e2 / 0.27e2 * t243 - 0.50e2 / 0.81e2 * t283 * t523 - 0.500e3 / 0.243e3 * t526 * t527 * t619 + 0.125e3 / 0.243e3 * t246;
510   t625 = t624 * t85;
511   t626 = t290 * t175;
512   t629 = t598 * t541;
513   t636 = my_piecewise3(t79, t626 * t85 + t625, -0.50e2 / 0.81e2 * t540 * t629 + 0.25e2 / 0.27e2 * t253 - 0.25e2 / 0.81e2 * t549 * t629);
514   t639 = -0.4e1 * t588 * t590 + 0.2e1 * t120 * t593 * t90 + 0.2e1 * t120 * t607 * t90 - 0.2e1 * t120 * t279 * t184 - t120 * t614 - t78 * t636 + 0.1174e1 * t636;
515   t641 = t116 * t639 * t108;
516   t644 = t198 * t298;
517   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
518     v2rhotau[0] = -t464 * t300 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t641 - 0.24739500000000000000e1 * t197 * t644 * t206;
519 
520   t648 = t238 * t238;
521   t649 = t648 * t90;
522   t652 = t9 * t40;
523   t661 = 0.1e1 / t21 / t336;
524   t666 = t235 * t235;
525   t668 = t50 * t9;
526   t669 = t668 * t40;
527   t671 = t378 * t64 * t68;
528   t672 = t669 * t671;
529   t674 = t376 * t9;
530   t675 = t40 * t30;
531   t676 = t33 * t68;
532   t678 = t674 * t675 * t676;
533   t680 = -t672 / 0.3456e4 + t678 / 0.10368e5;
534   t683 = t34 * t652 * t45 / 0.144e3 - 0.9e1 / 0.160e3 * t137 * sigma[0] * t216 * t45 + 0.243e3 / 0.51200e5 * t343 * t35 * t661 * t351 + 0.2e1 * t666 + 0.2e1 * t71 * t680;
535   t684 = t683 * t90;
536   t686 = t238 * t255;
537   t689 = params->c1 * t9;
538   t690 = t689 * t40;
539   t691 = t690 * t395;
540   t693 = t398 * t9;
541   t695 = t526 * t693 * t40;
542   t697 = -0.25e2 / 0.1296e4 * t691 - 0.125e3 / 0.1944e4 * t695;
543   t699 = t248 * t248;
544   t700 = t699 * t85;
545   t702 = t177 * t693;
546   t703 = t675 * t413;
547   t704 = t702 * t703;
548   t706 = t424 * t9;
549   t707 = t422 * t706;
550   t708 = t707 * t703;
551   t711 = my_piecewise3(t79, t697 * t85 + t700, -0.25e2 / 0.1296e4 * t704 - 0.25e2 / 0.2592e4 * t708);
552   t714 = -0.2e1 * t319 * t649 + t120 * t684 - 0.2e1 * t120 * t686 - t78 * t711 + 0.1174e1 * t711;
553   t716 = t116 * t714 * t108;
554   t719 = t7 * t258;
555   t720 = t263 * t719;
556   t723 = 0.1e1 / sigma[0];
557   t725 = t571 * t100;
558   t726 = t18 * t723 * t725;
559   t731 = t203 * t95 * t579 * t107;
560   t735 = 0.1e1 / t97 / t35;
561   t736 = t264 * t735;
562   t737 = t5 * t736;
563   t739 = t22 * t13 * t459;
564   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
565     v2sigma2[0] = -0.3e1 / 0.16e2 * t115 * t716 + 0.18554625000000000000e1 * t720 * t269 - 0.41747906250000000000e1 * t570 * t726 - 0.46386562500000000000e0 * t265 * t731 + 0.56630821004800493110e1 * t737 * t739;
566 
567   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
568     v2sigmalapl[0] = 0.0e0;
569 
570   t742 = t589 * t238;
571   t745 = t235 * t278;
572   t750 = 0.1e1 / t11 / t37;
573   t751 = t668 * t750;
574   t752 = t751 * t671;
575   t754 = t750 * t30;
576   t756 = t674 * t754 * t676;
577   t758 = t752 / 0.432e3 - t756 / 0.1296e4;
578   t759 = t71 * t758;
579   t766 = t238 * t295;
580   t768 = t689 * t750;
581   t769 = t768 * t395;
582   t772 = t526 * t693 * t750;
583   t774 = 0.25e2 / 0.162e3 * t769 + 0.125e3 / 0.243e3 * t772;
584   t775 = t774 * t85;
585   t776 = t290 * t248;
586   t779 = t754 * t413;
587   t780 = t702 * t779;
588   t782 = t707 * t779;
589   t785 = my_piecewise3(t79, t776 * t85 + t775, 0.25e2 / 0.162e3 * t780 + 0.25e2 / 0.324e3 * t782);
590   t788 = -0.4e1 * t588 * t742 + 0.2e1 * t120 * t745 * t90 + 0.2e1 * t120 * t759 * t90 - 0.2e1 * t120 * t279 * t255 - t120 * t766 - t78 * t785 + 0.1174e1 * t785;
591   t790 = t116 * t788 * t108;
592   t793 = t7 * t298;
593   t794 = t263 * t793;
594   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
595     v2sigmatau[0] = -0.3e1 / 0.16e2 * t115 * t790 + 0.92773125000000000000e0 * t794 * t269;
596 
597   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
598     v2lapl2[0] = 0.0e0;
599 
600   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
601     v2lapltau[0] = 0.0e0;
602 
603   t797 = t278 * t278;
604   t798 = t72 * t797;
605   t802 = t797 * t90;
606   t805 = t668 * t442;
607   t808 = t442 * t30;
608   t812 = -t805 * t671 / 0.54e2 + t674 * t808 * t676 / 0.162e3;
609   t813 = t71 * t812;
610   t820 = t689 * t442;
611   t826 = -0.100e3 / 0.81e2 * t820 * t395 - 0.1000e4 / 0.243e3 * t526 * t693 * t442;
612   t828 = t290 * t290;
613   t829 = t828 * t85;
614   t831 = t808 * t413;
615   t837 = my_piecewise3(t79, t826 * t85 + t829, -0.100e3 / 0.81e2 * t702 * t831 - 0.50e2 / 0.81e2 * t707 * t831);
616   t840 = -0.8e1 * t319 * t798 * t90 + 0.2e1 * t120 * t802 + 0.2e1 * t120 * t813 * t90 - 0.4e1 * t120 * t279 * t295 - t78 * t837 + 0.1174e1 * t837;
617   t842 = t116 * t840 * t108;
618   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
619     v2tau2[0] = -0.3e1 / 0.16e2 * t115 * t842;
620 
621 #ifndef XC_DONT_COMPILE_KXC
622 
623   if(order < 3) return;
624 
625 
626   t851 = 0.1e1 / t121;
627   t852 = t7 * t851;
628   t864 = t7 * t750;
629   t869 = 0.1e1 / t11;
630   t872 = t5 * t7 * t869 * t93;
631   t875 = t118 * t118;
632   t877 = t117 / t875;
633   t878 = t320 * t163;
634   t882 = t164 * t385;
635   t889 = 0.1e1 / t21 / t38;
636   t890 = t19 * t889;
637   t895 = 0.1e1 / t11 / t139 * t45;
638   t899 = 0.1e1 / t480;
639   t904 = t139 * t38;
640   t906 = 0.1e1 / t21 / t904;
641   t911 = t134 * t134;
642   t912 = t911 * t136;
643   t913 = t344 * sigma[0];
644   t914 = t139 * t139;
645   t916 = 0.1e1 / t11 / t914;
646   t920 = t378 * t9 * t45;
647   t930 = -0.440e3 / 0.27e2 * t55 * t325 + 0.154e3 / 0.27e2 * t890;
648   t931 = t50 * t930;
649   t937 = t365 * t151;
650   t938 = t50 * t937;
651   t939 = t136 * t68;
652   t942 = t136 * t66;
653   t943 = t942 * t68;
654   t952 = t50 * t423;
655   t953 = t937 * t136;
656   t957 = -0.539e3 / 0.21870e5 * t52 * t890 - t931 * t153 / 0.180e3 - t362 * t30 * t498 / 0.36e2 + 0.5e1 / 0.162e3 * t938 * t939 - 0.5e1 / 0.81e2 * t938 * t943 + t156 * t930 * t153 / 0.180e3 + t376 * t361 * t506 / 0.108e3 + 0.5e1 / 0.486e3 * t952 * t953 * t68;
657   t960 = -0.1540e4 / 0.6561e4 * t18 * t890 - 0.209e3 / 0.243e3 * t34 * t36 * t895 + 0.797e3 / 0.120e3 * t137 * t138 * t899 * t45 - 0.729e3 / 0.800e3 * t343 * t344 * t906 * t351 + 0.243e3 / 0.4000e4 * t912 * t913 * t916 * t920 + 0.6e1 * t160 * t382 + 0.2e1 * t71 * t957;
658   t969 = params->c1 * t930;
659   t979 = t424 * t937 * t18;
660   t982 = t398 * t151;
661   t989 = -0.5e1 / 0.9e1 * t969 * t82 - 0.50e2 / 0.27e2 * t391 * t30 * t172 - 0.500e3 / 0.81e2 * params->c1 * t937 * t399 - 0.2500e4 / 0.729e3 * t526 * t979 - 0.500e3 / 0.81e2 * t526 * t982 * t361 - 0.25e2 / 0.81e2 * t169 * t171 * t930;
662   t994 = t408 * t175;
663   t997 = t177 * t424;
664   t998 = t953 * t87;
665   t1001 = t177 * t982;
666   t1002 = t87 * t361;
667   t1006 = t423 * t64;
668   t1007 = 0.1e1 / t1006;
669   t1008 = t422 * t1007;
670   t1017 = t151 * t87;
671   t1018 = t378 * t1017;
672   t1022 = params->d * t421 * params->c2;
673   t1024 = 0.1e1 / t423 / t66;
674   t1025 = t1022 * t1024;
675   t1029 = my_piecewise3(t79, 0.3e1 * t406 * t175 * t85 + t989 * t85 + t994 * t85, -0.500e3 / 0.81e2 * t997 * t998 - 0.50e2 / 0.27e2 * t1001 * t378 * t1002 - 0.500e3 / 0.81e2 * t1008 * t998 - 0.5e1 / 0.9e1 * t178 * t930 * t13 * t180 - 0.25e2 / 0.27e2 * t422 * t424 * t361 * t1018 - 0.250e3 / 0.243e3 * t1025 * t998);
676   t1032 = 0.6e1 * t877 * t878 * t90 - 0.6e1 * t319 * t882 + 0.6e1 * t319 * t320 * t184 + t120 * t960 * t90 - 0.3e1 * t120 * t385 * t184 - 0.3e1 * t120 * t163 * t429 - t78 * t1029 + 0.1174e1 * t1029;
677   t1033 = t1032 * t108;
678   t1037 = t198 * t432;
679   t1047 = t889 * t196;
680   t1049 = 0.1e1 / t14;
681   t1051 = 0.1e1 / t37;
682   t1055 = 0.1e1 / t103 / t1049 / t578 / t1051 / 0.72e2;
683   t1059 = t1055 * t1049 * t578 * t107 * t10;
684   t1065 = t13 * t32 * t266 * t9 * t107;
685   t1069 = t57 * t196 * t198;
686   t1071 = t202 * t107;
687   t1072 = t93 * t10 * t1071;
688   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
689     v3rho3[0] = t8 * t286 * t109 / 0.18e2 - t8 * t304 * t188 / 0.4e1 + 0.5497666666666666667e0 * t263 * t852 * t93 * t206 - 0.3e1 / 0.4e1 * t8 * t12 * t433 - 0.24739500000000000000e1 * t263 * t312 * t187 * t206 + 0.89062200000000000000e2 * t263 * t864 * t93 * t452 + 0.40270806047858128433e2 * t872 * t460 - 0.3e1 / 0.16e2 * t115 * t116 * t1033 - 0.74218500000000000000e1 * t197 * t1037 * t206 - 0.89062200000000000000e2 * t443 * t437 * t452 + 0.12081241814357438530e3 * t455 * t437 * t460 - 0.59374800000000000000e3 * t1047 * t199 * t1059 + 0.82683876053829230172e0 * t872 * t1065 - 0.16151076630565200000e3 * t1069 * t1072;
690 
691   t1076 = t303 * t2 * t4;
692   t1081 = t311 * t196;
693   t1088 = t513 * t163;
694   t1097 = t10 * t325;
695   t1113 = 0.1e1 / t11 / t139 / t329;
696   t1126 = t225 * t325 * t153;
697   t1128 = t123 * t30;
698   t1129 = t225 * t1128;
699   t1130 = t1129 * t498;
700   t1132 = t136 * t365;
701   t1133 = t1132 * t68;
702   t1134 = t226 * t1133;
703   t1136 = t361 * t68;
704   t1137 = t368 * t1136;
705   t1138 = t496 * t1137;
706   t1140 = t365 * t68;
707   t1141 = t942 * t1140;
708   t1142 = t226 * t1141;
709   t1144 = t325 * t13;
710   t1146 = t229 * t1144 * t231;
711   t1148 = t376 * t470;
712   t1149 = t1148 * t506;
713   t1151 = t378 * t1136;
714   t1152 = t505 * t1151;
715   t1154 = t952 * t10;
716   t1155 = t23 * t136;
717   t1157 = t1154 * t1155 * t1140;
718   t1159 = 0.77e2 / 0.14580e5 * t51 * t221 * t325 + 0.11e2 / 0.1620e4 * t1126 - t1130 / 0.162e3 - 0.5e1 / 0.1296e4 * t1134 + t1138 / 0.864e3 + 0.5e1 / 0.648e3 * t1142 - 0.11e2 / 0.1620e4 * t1146 + t1149 / 0.486e3 - t1152 / 0.2592e4 - 0.5e1 / 0.3888e4 * t1157;
719   t1162 = 0.110e3 / 0.2187e4 * t1097 * t18 + 0.19e2 / 0.81e2 * t34 * t212 * t332 - 0.167e3 / 0.80e2 * t137 * t35 * t337 * t45 + 0.81e2 / 0.256e3 * t343 * t138 * t347 * t351 - 0.729e3 / 0.32000e5 * t912 * t344 * t1113 * t920 + 0.2e1 * t382 * t235 + 0.4e1 * t160 * t509 + 0.2e1 * t71 * t1159;
720   t1163 = t1162 * t90;
721   t1165 = t512 * t184;
722   t1168 = t238 * t429;
723   t1178 = t241 * t325;
724   t1179 = t1178 * t82;
725   t1181 = t519 * t523;
726   t1183 = t242 * t400;
727   t1186 = t378 * t170 * t361;
728   t1187 = t242 * t1186;
729   t1189 = t136 * t424;
730   t1190 = t80 * t1189;
731   t1191 = t365 * t13;
732   t1192 = t1191 * t17;
733   t1194 = t1190 * t209 * t1192;
734   t1198 = t526 * t527 * t123 * t151;
735   t1202 = t526 * t527 * t23 * t361;
736   t1205 = t169 * t171 * t1097;
737   t1207 = 0.55e2 / 0.81e2 * t1179 - 0.100e3 / 0.243e3 * t1181 + 0.125e3 / 0.162e3 * t1183 + 0.25e2 / 0.324e3 * t1187 + 0.625e3 / 0.1458e4 * t1194 - 0.1000e4 / 0.729e3 * t1198 + 0.125e3 / 0.486e3 * t1202 + 0.275e3 / 0.729e3 * t1205;
738   t1212 = t248 * t406;
739   t1217 = t177 * t548;
740   t1218 = t87 * t365;
741   t1219 = t1155 * t1218;
742   t1220 = t1217 * t1219;
743   t1222 = t1128 * t541;
744   t1223 = t540 * t1222;
745   t1225 = t1007 * t10;
746   t1226 = t422 * t1225;
747   t1227 = t1226 * t1219;
748   t1229 = t413 * t361;
749   t1230 = t495 * t1229;
750   t1231 = t540 * t1230;
751   t1234 = t251 * t1144 * t180;
752   t1236 = t549 * t1222;
753   t1238 = t549 * t1230;
754   t1240 = t1024 * t10;
755   t1241 = t1022 * t1240;
756   t1242 = t1241 * t1219;
757   t1245 = my_piecewise3(t79, 0.2e1 * t535 * t175 * t85 + t248 * t408 * t85 + t1207 * t85 + t1212 * t85, 0.125e3 / 0.162e3 * t1220 - 0.100e3 / 0.243e3 * t1223 + 0.125e3 / 0.162e3 * t1227 + 0.25e2 / 0.324e3 * t1231 + 0.55e2 / 0.81e2 * t1234 - 0.50e2 / 0.243e3 * t1236 + 0.25e2 / 0.648e3 * t1238 + 0.125e3 / 0.972e3 * t1242);
758   t1248 = 0.6e1 * t877 * t239 * t320 - 0.4e1 * t319 * t1088 + 0.4e1 * t319 * t515 * t163 - 0.2e1 * t319 * t239 * t385 + t120 * t1163 - 0.2e1 * t120 * t1165 - t120 * t1168 + 0.2e1 * t319 * t320 * t255 - t120 * t385 * t255 - 0.2e1 * t120 * t163 * t553 - t78 * t1245 + 0.1174e1 * t1245;
759   t1250 = t116 * t1248 * t108;
760   t1253 = t198 * t556;
761   t1263 = t7 * t432;
762   t1264 = t263 * t1263;
763   t1268 = t263 * t565 * t447;
764   t1272 = t5 * t565 * t579;
765   t1276 = t263 * t264 * t1055;
766   t1277 = t1049 * t107;
767   t1279 = t1277 * t1097 * t97;
768   t1283 = t5 * t264 * t13;
769   t1284 = t32 * t579;
770   t1286 = t9 * t21 * t107;
771   t1287 = t1284 * t1286;
772   t1291 = t18 * t571 * t442;
773   t1295 = t21 * t13 * t459;
774   t1300 = t10 * t202 * t107;
775   t1301 = t723 * t303 * t1300;
776   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
777     v3rho2sigma[0] = -t1076 * t260 / 0.12e2 - t464 * t558 / 0.2e1 - 0.8246500000000000000e0 * t1081 * t561 * t206 - 0.3e1 / 0.16e2 * t115 * t1250 - 0.49479000000000000000e1 * t197 * t1253 * t206 - 0.29687400000000000000e2 * t443 * t561 * t452 + 0.40270806047858128433e2 * t455 * t561 * t460 + 0.92773125000000000000e0 * t1264 * t269 + 0.22265550000000000000e2 * t1268 * t575 - 0.30203104535893596324e2 * t1272 * t583 + 0.22265550000000000000e3 * t1276 * t1279 - 0.31006453520185961314e0 * t1283 * t1287 - 0.25976475000000000000e2 * t570 * t1291 - 0.25169253779911330270e2 * t581 * t1295 + 0.60566537364619499997e2 * t265 * t1301;
778 
779   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
780     v3rho2lapl[0] = 0.0e0;
781 
782   t1311 = t877 * t71;
783   t1312 = t589 * t320;
784   t1315 = t319 * t160;
785   t1318 = t606 * t90;
786   t1319 = t1318 * t163;
787   t1322 = t278 * t184;
788   t1323 = t1322 * t163;
789   t1326 = t589 * t385;
790   t1329 = t382 * t278;
791   t1333 = t160 * t606;
792   t1352 = t57 * t136;
793   t1356 = -0.2e1 / 0.81e2 * t493 + 0.5e1 / 0.162e3 * t499 + 0.5e1 / 0.162e3 * t272 * t1133 - t599 * t1137 / 0.108e3 - 0.5e1 / 0.81e2 * t272 * t1141 + 0.2e1 / 0.81e2 * t503 - 0.5e1 / 0.486e3 * t507 + t603 * t1151 / 0.324e3 + 0.5e1 / 0.486e3 * t1154 * t1352 * t1140;
794   t1357 = t71 * t1356;
795   t1390 = -0.200e3 / 0.81e2 * t520 + 0.500e3 / 0.243e3 * t524 - 0.500e3 / 0.81e2 * t283 * t400 - 0.50e2 / 0.81e2 * t283 * t1186 - 0.2500e4 / 0.729e3 * t1190 * t286 * t1192 + 0.5000e4 / 0.729e3 * t530 - 0.500e3 / 0.243e3 * t526 * t527 * t57 * t361 - 0.1000e4 / 0.729e3 * t533;
796   t1395 = t290 * t406;
797   t1400 = t1352 * t1218;
798   t1406 = t598 * t1229;
799   t1416 = my_piecewise3(t79, 0.2e1 * t624 * t175 * t85 + t290 * t408 * t85 + t1390 * t85 + t1395 * t85, -0.500e3 / 0.81e2 * t1217 * t1400 + 0.500e3 / 0.243e3 * t543 - 0.500e3 / 0.81e2 * t1226 * t1400 - 0.50e2 / 0.81e2 * t540 * t1406 - 0.200e3 / 0.81e2 * t546 + 0.250e3 / 0.243e3 * t550 - 0.25e2 / 0.81e2 * t549 * t1406 - 0.250e3 / 0.243e3 * t1241 * t1400);
800   t1419 = 0.12e2 * t1311 * t1312 - 0.8e1 * t1315 * t590 - 0.8e1 * t588 * t1319 + 0.8e1 * t588 * t1323 - 0.4e1 * t588 * t1326 + 0.2e1 * t120 * t1329 * t90 + 0.4e1 * t120 * t1333 * t90 - 0.4e1 * t120 * t593 * t184 + 0.2e1 * t120 * t1357 * t90 - 0.4e1 * t120 * t607 * t184 - 0.2e1 * t120 * t279 * t429 + 0.2e1 * t319 * t320 * t295 - t120 * t385 * t295 - 0.2e1 * t120 * t163 * t636 - t78 * t1416 + 0.1174e1 * t1416;
801   t1421 = t116 * t1419 * t108;
802   t1424 = t198 * t639;
803   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
804     v3rho2tau[0] = -t1076 * t300 / 0.12e2 - t464 * t641 / 0.2e1 - 0.8246500000000000000e0 * t1081 * t644 * t206 - 0.3e1 / 0.16e2 * t115 * t1421 - 0.49479000000000000000e1 * t197 * t1424 * t206 - 0.29687400000000000000e2 * t443 * t644 * t452 + 0.40270806047858128433e2 * t455 * t644 * t460;
805 
806   t1442 = t648 * t184;
807   t1445 = t684 * t163;
808   t1448 = t9 * t129;
809   t1460 = t139 * t127;
810   t1462 = 0.1e1 / t11 / t1460;
811   t1471 = t668 * t129;
812   t1472 = t1471 * t671;
813   t1475 = t136 * t151 * t68;
814   t1476 = t669 * t1475;
815   t1478 = t942 * t497;
816   t1479 = t669 * t1478;
817   t1481 = t129 * t30;
818   t1483 = t674 * t1481 * t676;
819   t1485 = t952 * t9;
820   t1486 = t40 * t136;
821   t1488 = t1485 * t1486 * t497;
822   t1490 = t1472 / 0.648e3 + 0.5e1 / 0.5184e4 * t1476 - 0.5e1 / 0.2592e4 * t1479 - t1483 / 0.1944e4 + 0.5e1 / 0.15552e5 * t1488;
823   t1493 = -t34 * t1448 * t45 / 0.27e2 + 0.21e2 / 0.40e2 * t137 * t141 * sigma[0] * t45 - 0.81e2 / 0.800e3 * t343 * t35 * t482 * t351 + 0.2187e4 / 0.256000e6 * t912 * t138 * t1462 * t920 + 0.4e1 * t235 * t509 + 0.2e1 * t160 * t680 + 0.2e1 * t71 * t1490;
824   t1494 = t1493 * t90;
825   t1496 = t683 * t184;
826   t1501 = t512 * t255;
827   t1504 = t238 * t553;
828   t1509 = t689 * t129;
829   t1510 = t1509 * t395;
830   t1512 = t399 * t151;
831   t1513 = t690 * t1512;
832   t1515 = t179 * t17;
833   t1517 = t1190 * t652 * t1515;
834   t1520 = t526 * t693 * t129;
835   t1522 = 0.25e2 / 0.243e3 * t1510 - 0.125e3 / 0.648e3 * t1513 - 0.625e3 / 0.5832e4 * t1517 + 0.250e3 / 0.729e3 * t1520;
836   t1531 = t177 * t706;
837   t1532 = t1486 * t1017;
838   t1533 = t1531 * t1532;
839   t1535 = t1481 * t413;
840   t1536 = t702 * t1535;
841   t1538 = t1007 * t9;
842   t1539 = t422 * t1538;
843   t1540 = t1539 * t1532;
844   t1542 = t707 * t1535;
845   t1544 = t1024 * t9;
846   t1545 = t1022 * t1544;
847   t1546 = t1545 * t1532;
848   t1549 = my_piecewise3(t79, t697 * t175 * t85 + t699 * t175 * t85 + t1522 * t85 + 0.2e1 * t249 * t535, -0.125e3 / 0.648e3 * t1533 + 0.25e2 / 0.243e3 * t1536 - 0.125e3 / 0.648e3 * t1540 + 0.25e2 / 0.486e3 * t1542 - 0.125e3 / 0.3888e4 * t1546);
849   t1552 = 0.6e1 * t877 * t649 * t163 - 0.4e1 * t319 * t239 * t512 + 0.2e1 * t319 * t1442 - 0.2e1 * t319 * t1445 + t120 * t1494 - t120 * t1496 + 0.4e1 * t319 * t686 * t163 - 0.2e1 * t120 * t1501 - 0.2e1 * t120 * t1504 - t120 * t163 * t711 - t78 * t1549 + 0.1174e1 * t1549;
850   t1554 = t116 * t1552 * t108;
851   t1557 = t198 * t714;
852   t1561 = t7 * t556;
853   t1562 = t263 * t1561;
854   t1566 = t263 * t719 * t447;
855   t1570 = t5 * t719 * t579;
856   t1575 = t1049 * t266;
857   t1576 = t107 * t10;
858   t1577 = t1576 * t123;
859   t1578 = t1575 * t1577;
860   t1581 = t32 * t735;
861   t1583 = t9 * t56 * t107;
862   t1584 = t1581 * t1583;
863   t1592 = t5 * t565 * t735;
864   t1595 = 0.1e1 / t35;
865   t1597 = t1595 * t11 * t1300;
866   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
867     v3rhosigma2[0] = -t464 * t716 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t1554 - 0.24739500000000000000e1 * t197 * t1557 * t206 + 0.18554625000000000000e1 * t1562 * t269 + 0.22265550000000000000e2 * t1566 * t575 - 0.30203104535893596324e2 * t1570 * t583 - 0.41747906250000000000e1 * t1268 * t726 - 0.83495812500000000000e2 * t1276 * t1578 + 0.11627420070069735493e0 * t1283 * t1584 - 0.46386562500000000000e0 * t566 * t731 + 0.22652328401920197244e2 * t737 * t583 + 0.56630821004800493110e1 * t1592 * t739 - 0.22712451511732312500e2 * t265 * t1597;
868 
869   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
870     v3rhosigmalapl[0] = 0.0e0;
871 
872   t1602 = t238 * t163;
873   t1603 = t589 * t1602;
874   t1608 = t1318 * t238;
875   t1611 = t1322 * t238;
876   t1614 = t589 * t512;
877   t1617 = t319 * t235;
878   t1620 = t509 * t278;
879   t1624 = t235 * t606;
880   t1631 = t758 * t90;
881   t1632 = t1631 * t163;
882   t1635 = t160 * t758;
883   t1639 = 0.2e1 * t120 * t1620 * t90 + 0.2e1 * t120 * t1624 * t90 + 0.2e1 * t120 * t1635 * t90 - 0.2e1 * t120 * t745 * t184 + 0.12e2 * t1311 * t1603 - 0.4e1 * t1315 * t742 - 0.4e1 * t588 * t1608 + 0.4e1 * t588 * t1611 - 0.4e1 * t588 * t1614 - 0.4e1 * t1617 * t590 - 0.4e1 * t588 * t1632;
884   t1641 = t751 * t1475;
885   t1643 = t751 * t1478;
886   t1646 = t750 * t136;
887   t1648 = t1485 * t1646 * t497;
888   t1650 = -0.13e2 / 0.1296e4 * t672 - 0.5e1 / 0.648e3 * t1641 + 0.5e1 / 0.324e3 * t1643 + 0.13e2 / 0.3888e4 * t678 - 0.5e1 / 0.1944e4 * t1648;
889   t1651 = t71 * t1650;
890   t1658 = t278 * t255;
891   t1659 = t1658 * t163;
892   t1674 = t512 * t295;
893   t1676 = t238 * t636;
894   t1681 = t768 * t1512;
895   t1683 = t9 * t750;
896   t1685 = t1190 * t1683 * t1515;
897   t1688 = -0.325e3 / 0.486e3 * t691 + 0.125e3 / 0.81e2 * t1681 + 0.625e3 / 0.729e3 * t1685 - 0.1625e4 / 0.729e3 * t695;
898   t1692 = t624 * t248;
899   t1694 = t290 * t535;
900   t1698 = t1646 * t1017;
901   t1699 = t1531 * t1698;
902   t1702 = t1539 * t1698;
903   t1705 = t1545 * t1698;
904   t1708 = my_piecewise3(t79, t774 * t175 * t85 + t1688 * t85 + t1692 * t85 + t1694 * t85 + t776 * t176, 0.125e3 / 0.81e2 * t1699 - 0.325e3 / 0.486e3 * t704 + 0.125e3 / 0.81e2 * t1702 - 0.325e3 / 0.972e3 * t708 + 0.125e3 / 0.486e3 * t1705);
905   t1711 = 0.2e1 * t120 * t1651 * t90 - 0.2e1 * t120 * t759 * t184 + 0.4e1 * t588 * t1659 - 0.2e1 * t120 * t593 * t255 - 0.2e1 * t120 * t607 * t255 - 0.2e1 * t120 * t279 * t553 + 0.2e1 * t319 * t766 * t163 - t120 * t1674 - t120 * t1676 - t120 * t163 * t785 - t78 * t1708 + 0.1174e1 * t1708;
906   t1712 = t1639 + t1711;
907   t1714 = t116 * t1712 * t108;
908   t1717 = t198 * t788;
909   t1721 = t7 * t639;
910   t1722 = t263 * t1721;
911   t1726 = t263 * t793 * t447;
912   t1730 = t5 * t793 * t579;
913   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
914     v3rhosigmatau[0] = -t464 * t790 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t1714 - 0.24739500000000000000e1 * t197 * t1717 * t206 + 0.92773125000000000000e0 * t1722 * t269 + 0.11132775000000000000e2 * t1726 * t575 - 0.15101552267946798162e2 * t1730 * t583;
915 
916   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
917     v3rholapl2[0] = 0.0e0;
918 
919   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
920     v3rholapltau[0] = 0.0e0;
921 
922   t1735 = t877 * t72;
923   t1736 = t802 * t163;
924   t1742 = t319 * t72;
925   t1743 = t589 * t606;
926   t1753 = t797 * t184;
927   t1756 = t812 * t90;
928   t1757 = t1756 * t163;
929   t1760 = t160 * t812;
930   t1770 = t442 * t136;
931   t1774 = 0.5e1 / 0.81e2 * t752 + 0.5e1 / 0.81e2 * t805 * t1475 - 0.10e2 / 0.81e2 * t805 * t1478 - 0.5e1 / 0.243e3 * t756 + 0.5e1 / 0.243e3 * t1485 * t1770 * t497;
932   t1775 = t71 * t1774;
933   t1782 = t278 * t295;
934   t1783 = t1782 * t163;
935   t1800 = t9 * t442;
936   t1805 = 0.1000e4 / 0.243e3 * t769 - 0.1000e4 / 0.81e2 * t820 * t1512 - 0.5000e4 / 0.729e3 * t1190 * t1800 * t1515 + 0.10000e5 / 0.729e3 * t772;
937   t1814 = t1770 * t1017;
938   t1824 = my_piecewise3(t79, t826 * t175 * t85 + t828 * t175 * t85 + t1805 * t85 + 0.2e1 * t291 * t624, -0.1000e4 / 0.81e2 * t1531 * t1814 + 0.1000e4 / 0.243e3 * t780 - 0.1000e4 / 0.81e2 * t1539 * t1814 + 0.500e3 / 0.243e3 * t782 - 0.500e3 / 0.243e3 * t1545 * t1814);
939   t1827 = 0.24e2 * t1735 * t1736 - 0.16e2 * t588 * t802 * t160 - 0.16e2 * t1742 * t1743 + 0.8e1 * t319 * t798 * t184 - 0.4e1 * t319 * t1736 + 0.4e1 * t120 * t1743 - 0.2e1 * t120 * t1753 - 0.4e1 * t588 * t1757 + 0.2e1 * t120 * t1760 * t90 + 0.2e1 * t120 * t1775 * t90 - 0.2e1 * t120 * t813 * t184 + 0.8e1 * t588 * t1783 - 0.4e1 * t120 * t593 * t295 - 0.4e1 * t120 * t607 * t295 - 0.4e1 * t120 * t279 * t636 - t120 * t163 * t837 - t78 * t1824 + 0.1174e1 * t1824;
940   t1829 = t116 * t1827 * t108;
941   t1832 = t198 * t840;
942   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
943     v3rhotau2[0] = -t464 * t842 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t1829 - 0.24739500000000000000e1 * t197 * t1832 * t206;
944 
945   t1836 = t648 * t238;
946   t1837 = t1836 * t90;
947   t1843 = t648 * t255;
948   t1854 = 0.1e1 / t11 / t904;
949   t1861 = t50 * t216;
950   t1862 = t1861 * t939;
951   t1864 = t1861 * t943;
952   t1866 = t216 * t136;
953   t1868 = t952 * t1866 * t68;
954   t1870 = -0.5e1 / 0.20736e5 * t1862 + 0.5e1 / 0.10368e5 * t1864 - 0.5e1 / 0.62208e5 * t1868;
955   t1873 = -0.27e2 / 0.320e3 * t137 * t216 * t45 + 0.729e3 / 0.25600e5 * t343 * sigma[0] * t661 * t351 - 0.6561e4 / 0.2048000e7 * t912 * t35 * t1854 * t920 + 0.6e1 * t235 * t680 + 0.2e1 * t71 * t1870;
956   t1874 = t1873 * t90;
957   t1876 = t683 * t255;
958   t1879 = t238 * t711;
959   t1882 = params->c1 * t216;
960   t1883 = t1882 * t399;
961   t1887 = t526 * t424 * t216 * t18;
962   t1889 = 0.125e3 / 0.2592e4 * t1883 + 0.625e3 / 0.23328e5 * t1887;
963   t1891 = t697 * t248;
964   t1894 = t699 * t248;
965   t1897 = t1866 * t87;
966   t1898 = t997 * t1897;
967   t1900 = t1008 * t1897;
968   t1902 = t1025 * t1897;
969   t1905 = my_piecewise3(t79, t1889 * t85 + 0.3e1 * t1891 * t85 + t1894 * t85, 0.125e3 / 0.2592e4 * t1898 + 0.125e3 / 0.2592e4 * t1900 + 0.125e3 / 0.15552e5 * t1902);
970   t1908 = 0.6e1 * t877 * t1837 - 0.6e1 * t319 * t239 * t683 + 0.6e1 * t319 * t1843 + t120 * t1874 - 0.3e1 * t120 * t1876 - 0.3e1 * t120 * t1879 - t78 * t1905 + 0.1174e1 * t1905;
971   t1910 = t116 * t1908 * t108;
972   t1913 = t7 * t714;
973   t1914 = t263 * t1913;
974   t1922 = t5 * t719 * t735;
975   t1925 = t1049 * t579;
976   t1926 = t1576 * t23;
977   t1927 = t1925 * t1926;
978   t1931 = t18 * t1595 * t725;
979   t1935 = 0.1e1 / t97 / t138;
980   t1936 = t32 * t1935;
981   t1938 = t9 * t22 * t107;
982   t1939 = t1936 * t1938;
983   t1944 = t203 * t95 * t735 * t107;
984   t1948 = t5 * t264 * t1935;
985   t1951 = 0.1e1 / t138;
986   t1953 = t1951 * t99 * t1300;
987   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
988     v3sigma3[0] = -0.3e1 / 0.16e2 * t115 * t1910 + 0.27831937500000000000e1 * t1914 * t269 - 0.12524371875000000000e2 * t1566 * t726 - 0.13915968750000000000e1 * t720 * t731 + 0.16989246301440147933e2 * t1922 * t739 + 0.31310929687500000000e2 * t1276 * t1927 + 0.62621859375000000000e1 * t570 * t1931 - 0.43602825262761508097e-1 * t1283 * t1939 + 0.69579843750000000000e0 * t265 * t1944 - 0.16989246301440147934e2 * t1948 * t739 + 0.85171693168996171873e1 * t265 * t1953;
989 
990   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
991     v3sigma2lapl[0] = 0.0e0;
992 
993   t1956 = t589 * t648;
994   t1961 = t1631 * t238;
995   t1964 = t1658 * t238;
996   t1967 = t589 * t683;
997   t1970 = t680 * t278;
998   t1974 = t235 * t758;
999   t1981 = 0.1e1 / t329;
1000   t1982 = t50 * t1981;
1001   t1983 = t1982 * t939;
1002   t1985 = t1982 * t943;
1003   t1987 = t1981 * t136;
1004   t1989 = t952 * t1987 * t68;
1005   t1991 = 0.5e1 / 0.2592e4 * t1983 - 0.5e1 / 0.1296e4 * t1985 + 0.5e1 / 0.7776e4 * t1989;
1006   t1992 = t71 * t1991;
1007   t2002 = t648 * t295;
1008   t2005 = t683 * t295;
1009   t2007 = t238 * t785;
1010   t2010 = params->c1 * t1981;
1011   t2011 = t2010 * t399;
1012   t2015 = t526 * t424 * t1981 * t18;
1013   t2017 = -0.125e3 / 0.324e3 * t2011 - 0.625e3 / 0.2916e4 * t2015;
1014   t2019 = t774 * t248;
1015   t2022 = t290 * t697;
1016   t2024 = t290 * t699;
1017   t2027 = t1987 * t87;
1018   t2028 = t997 * t2027;
1019   t2030 = t1008 * t2027;
1020   t2032 = t1025 * t2027;
1021   t2035 = my_piecewise3(t79, t2017 * t85 + 0.2e1 * t2019 * t85 + t2022 * t85 + t2024 * t85, -0.125e3 / 0.324e3 * t2028 - 0.125e3 / 0.324e3 * t2030 - 0.125e3 / 0.1944e4 * t2032);
1022   t2038 = 0.12e2 * t1311 * t1956 - 0.8e1 * t1617 * t742 - 0.8e1 * t588 * t1961 + 0.8e1 * t588 * t1964 - 0.4e1 * t588 * t1967 + 0.2e1 * t120 * t1970 * t90 + 0.4e1 * t120 * t1974 * t90 - 0.4e1 * t120 * t745 * t255 + 0.2e1 * t120 * t1992 * t90 - 0.4e1 * t120 * t759 * t255 - 0.2e1 * t120 * t279 * t711 + 0.2e1 * t319 * t2002 - t120 * t2005 - 0.2e1 * t120 * t2007 - t78 * t2035 + 0.1174e1 * t2035;
1023   t2040 = t116 * t2038 * t108;
1024   t2043 = t7 * t788;
1025   t2044 = t263 * t2043;
1026   t2052 = t5 * t793 * t735;
1027   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1028     v3sigma2tau[0] = -0.3e1 / 0.16e2 * t115 * t2040 + 0.18554625000000000000e1 * t2044 * t269 - 0.41747906250000000000e1 * t1726 * t726 - 0.46386562500000000000e0 * t794 * t731 + 0.56630821004800493110e1 * t2052 * t739;
1029 
1030   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1031     v3sigmalapl2[0] = 0.0e0;
1032 
1033   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1034     v3sigmalapltau[0] = 0.0e0;
1035 
1036   t2055 = t802 * t238;
1037   t2058 = t802 * t235;
1038   t2061 = t589 * t758;
1039   t2071 = t797 * t255;
1040   t2074 = t1756 * t238;
1041   t2077 = t235 * t812;
1042   t2081 = 0.1e1 / t127;
1043   t2082 = t50 * t2081;
1044   t2083 = t2082 * t939;
1045   t2085 = t2082 * t943;
1046   t2087 = t2081 * t136;
1047   t2089 = t952 * t2087 * t68;
1048   t2091 = -0.5e1 / 0.324e3 * t2083 + 0.5e1 / 0.162e3 * t2085 - 0.5e1 / 0.972e3 * t2089;
1049   t2092 = t71 * t2091;
1050   t2099 = t1782 * t238;
1051   t2111 = t238 * t837;
1052   t2113 = params->c1 * t2081;
1053   t2114 = t2113 * t399;
1054   t2118 = t526 * t424 * t2081 * t18;
1055   t2120 = 0.250e3 / 0.81e2 * t2114 + 0.1250e4 / 0.729e3 * t2118;
1056   t2122 = t826 * t248;
1057   t2126 = t828 * t248;
1058   t2129 = t2087 * t87;
1059   t2130 = t997 * t2129;
1060   t2132 = t1008 * t2129;
1061   t2134 = t1025 * t2129;
1062   t2137 = my_piecewise3(t79, t2120 * t85 + t2122 * t85 + t2126 * t85 + 0.2e1 * t291 * t774, 0.250e3 / 0.81e2 * t2130 + 0.250e3 / 0.81e2 * t2132 + 0.125e3 / 0.243e3 * t2134);
1063   t2140 = 0.24e2 * t1735 * t2055 - 0.16e2 * t588 * t2058 - 0.16e2 * t1742 * t2061 + 0.8e1 * t319 * t798 * t255 - 0.4e1 * t319 * t2055 + 0.4e1 * t120 * t2061 - 0.2e1 * t120 * t2071 - 0.4e1 * t588 * t2074 + 0.2e1 * t120 * t2077 * t90 + 0.2e1 * t120 * t2092 * t90 - 0.2e1 * t120 * t813 * t255 + 0.8e1 * t588 * t2099 - 0.4e1 * t120 * t745 * t295 - 0.4e1 * t120 * t759 * t295 - 0.4e1 * t120 * t279 * t785 - t120 * t2111 - t78 * t2137 + 0.1174e1 * t2137;
1064   t2142 = t116 * t2140 * t108;
1065   t2145 = t7 * t840;
1066   t2146 = t263 * t2145;
1067   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1068     v3sigmatau2[0] = -0.3e1 / 0.16e2 * t115 * t2142 + 0.92773125000000000000e0 * t2146 * t269;
1069 
1070   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1071     v3lapl3[0] = 0.0e0;
1072 
1073   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1074     v3lapl2tau[0] = 0.0e0;
1075 
1076   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1077     v3lapltau2[0] = 0.0e0;
1078 
1079   t2149 = t72 * t71;
1080   t2150 = t797 * t278;
1081   t2151 = t2149 * t2150;
1082   t2155 = t71 * t2150;
1083   t2159 = t589 * t812;
1084   t2167 = t797 * t295;
1085   t2170 = 0.1e1 / t38;
1086   t2171 = t50 * t2170;
1087   t2176 = t2170 * t136;
1088   t2180 = 0.10e2 / 0.81e2 * t2171 * t939 - 0.20e2 / 0.81e2 * t2171 * t943 + 0.10e2 / 0.243e3 * t952 * t2176 * t68;
1089   t2181 = t71 * t2180;
1090   t2191 = params->c1 * t2170;
1091   t2198 = -0.2000e4 / 0.81e2 * t2191 * t399 - 0.10000e5 / 0.729e3 * t526 * t424 * t2170 * t18;
1092   t2200 = t826 * t290;
1093   t2203 = t828 * t290;
1094   t2206 = t2176 * t87;
1095   t2214 = my_piecewise3(t79, t2198 * t85 + 0.3e1 * t2200 * t85 + t2203 * t85, -0.2000e4 / 0.81e2 * t997 * t2206 - 0.2000e4 / 0.81e2 * t1008 * t2206 - 0.1000e4 / 0.243e3 * t1025 * t2206);
1096   t2217 = 0.48e2 * t877 * t2151 * t90 - 0.24e2 * t319 * t2155 * t90 - 0.24e2 * t1742 * t2159 + 0.24e2 * t319 * t798 * t295 + 0.6e1 * t120 * t2159 - 0.6e1 * t120 * t2167 + 0.2e1 * t120 * t2181 * t90 - 0.6e1 * t120 * t813 * t295 - 0.6e1 * t120 * t279 * t837 - t78 * t2214 + 0.1174e1 * t2214;
1097   t2219 = t116 * t2217 * t108;
1098   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1099     v3tau3[0] = -0.3e1 / 0.16e2 * t115 * t2219;
1100 
1101 #ifndef XC_DONT_COMPILE_LXC
1102 
1103   if(order < 4) return;
1104 
1105 
1106   t2222 = t5 * t264;
1107   t2234 = t117 / t875 / t73;
1108   t2235 = t320 * t320;
1109   t2245 = t385 * t385;
1110   t2259 = 0.1e1 / t21 / t127;
1111   t2260 = t19 * t2259;
1112   t2280 = t914 * rho[0];
1113   t2288 = t135 * t135;
1114   t2290 = t911 * t29 / t2288;
1115   t2298 = t382 * t382;
1116   t2307 = 0.6160e4 / 0.81e2 * t55 * t889 - 0.2618e4 / 0.81e2 * t2260;
1117   t2316 = t361 * t361;
1118   t2326 = t365 * t365;
1119   t2328 = t50 * t2326 * t136;
1120   t2349 = t50 * t1006;
1121   t2355 = 0.9163e4 / 0.65610e5 * t52 * t2260 - t50 * t2307 * t153 / 0.180e3 - t931 * t30 * t498 / 0.27e2 + 0.5e1 / 0.27e2 * t362 * t1133 - t50 * t2316 * t30 * t369 / 0.36e2 - 0.10e2 / 0.27e2 * t362 * t136 * t66 * t365 * t68 + 0.125e3 / 0.1458e4 * t2328 * t64 * t13 * t231 - 0.125e3 / 0.2187e4 * t2328 * t375 * t13 * t231 + t156 * t2307 * t153 / 0.180e3 + t376 * t930 * t506 / 0.81e2 + t376 * t2316 * t379 / 0.108e3 + 0.5e1 / 0.81e2 * t952 * t361 * t1133 + 0.25e2 / 0.4374e4 * t2349 * t2326 * t136 * t13 * t231;
1122   t2387 = t1007 * t2326;
1123   t2409 = t406 * t406;
1124   t2415 = t408 * t408;
1125   t2419 = t136 * t87;
1126   t2420 = t2419 * t18;
1127   t2423 = t1132 * t1002;
1128   t2431 = t2316 * t30 * t413;
1129   t2441 = 0.1e1 / t423 / t375;
1130   t2458 = t421 * t421;
1131   t2459 = params->d * t2458;
1132   t2460 = t423 * t423;
1133   t2461 = 0.1e1 / t2460;
1134   t2466 = -0.10000e5 / 0.729e3 * t177 * t2387 * t2420 - 0.1000e4 / 0.27e2 * t997 * t2423 - 0.5000e4 / 0.243e3 * t422 * t1024 * t2326 * t2420 - 0.50e2 / 0.27e2 * t411 * t2431 - 0.1000e4 / 0.27e2 * t1008 * t2423 - 0.200e3 / 0.81e2 * t1001 * t378 * t87 * t930 - 0.5000e4 / 0.729e3 * t1022 * t2441 * t2326 * t2420 - 0.5e1 / 0.9e1 * t178 * t2307 * t13 * t180 - 0.100e3 / 0.81e2 * t422 * t424 * t930 * t1018 - 0.25e2 / 0.27e2 * t425 * t2431 - 0.500e3 / 0.81e2 * t1025 * t2423 - 0.1250e4 / 0.2187e4 * t2459 * t2461 * t2326 * t2420;
1135   t2467 = my_piecewise3(t79, (-0.5e1 / 0.9e1 * params->c1 * t2307 * t82 - 0.200e3 / 0.81e2 * t969 * t30 * t172 - 0.1000e4 / 0.27e2 * t391 * t400 - 0.50e2 / 0.27e2 * params->c1 * t2316 * t395 - 0.10000e5 / 0.729e3 * params->c1 * t2326 * t136 * t424 * t13 * t17 - 0.50000e5 / 0.6561e4 * t526 * t2387 * t378 - 0.5000e4 / 0.243e3 * t1190 * t1191 * t17 * t361 - 0.500e3 / 0.81e2 * t80 * t399 * t2316 - 0.2000e4 / 0.243e3 * t526 * t982 * t930 - 0.25e2 / 0.81e2 * t169 * t171 * t2307) * t85 + 0.4e1 * t989 * t175 * t85 + 0.3e1 * t2409 * t85 + 0.6e1 * t406 * t408 * t85 + t2415 * t85, t2466);
1136   t2470 = -0.24e2 * t2234 * t2235 * t90 + 0.36e2 * t877 * t321 * t385 - 0.24e2 * t877 * t878 * t184 - 0.6e1 * t319 * t2245 * t90 + 0.24e2 * t319 * t388 * t385 - 0.8e1 * t319 * t164 * t960 + 0.12e2 * t319 * t320 * t429 + t120 * (0.26180e5 / 0.19683e5 * t18 * t2260 + 0.5225e4 / 0.729e3 * t34 * t36 / t11 / t140 * t45 - 0.5929e4 / 0.72e2 * t137 * t138 / t345 * t45 + 0.2949e4 / 0.160e3 * t343 * t344 / t21 / t1460 * t351 - 0.1053e4 / 0.400e3 * t912 * t913 / t11 / t2280 * t920 + 0.6561e4 / 0.10000e5 * t2290 * t344 * t35 / t914 / t37 * t45 + 0.6e1 * t2298 + 0.8e1 * t160 * t957 + 0.2e1 * t71 * t2355) * t90 - 0.4e1 * t120 * t960 * t184 - 0.6e1 * t120 * t385 * t429 - 0.4e1 * t120 * t163 * t1029 - t78 * t2467 + 0.1174e1 * t2467;
1137   t2491 = t1051 * t196 * t199;
1138   t2503 = t869 * t2;
1139   t2504 = t2503 * t437;
1140   t2507 = 0.87635410908814532668e3 * t2222 * t723 * t30 * t95 * t107 - 0.64604306522260799999e3 * t1069 * t187 * t10 * t1071 - 0.3e1 / 0.16e2 * t115 * t116 * t2470 * t108 - t8 * t12 * t1033 + 0.2e1 / 0.9e1 * t8 * t286 * t188 - t8 * t304 * t433 / 0.2e1 - 0.21534768840753600000e3 * t263 * t7 * t23 * t1072 - 0.5e1 / 0.54e2 * t8 * t209 * t109 - 0.64604306522260800000e3 * t2491 * t447 * t107 * t96 * t97 + 0.24162483628714877060e3 * t455 * t1037 * t460 - 0.23749920000000000000e4 * t1047 * t437 * t1059 + 0.33073550421531692069e1 * t2504 * t1065;
1141   t2525 = t5 * t7 * t100 * t93;
1142   t2542 = 0.1e1 / t103 / t378 / t36 / t40 / 0.72e2;
1143   t2546 = t107 * t30 * t95;
1144   t2562 = -0.98958000000000000000e1 * t197 * t198 * t1032 * t206 - 0.49479000000000000000e1 * t263 * t312 * t432 * t206 + 0.16108322419143251373e3 * t2504 * t460 + 0.51458160000000000000e4 * t263 * t7 * t2259 * t93 * t1059 - 0.14e-18 * t2525 * t1065 - 0.91627777777777777788e0 * t2491 * t206 + 0.21990666666666666667e1 * t263 * t852 * t187 * t206 - 0.22372670026587849130e2 * t2525 * t460 - 0.55416480000000000000e4 * t216 * t196 * t199 * t2542 * t1049 * t35 * t2546 - 0.17812440000000000000e3 * t443 * t1037 * t452 + 0.35624880000000000000e3 * t263 * t864 * t187 * t452 - 0.37933900000000000000e3 * t263 * t7 * t40 * t93 * t452;
1145   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1146     v4rho4[0] = t2507 + t2562;
1147 
1148   t2590 = t10 * t889;
1149   t2598 = t80 * t1189 * t10;
1150   t2599 = t18 * t361;
1151   t2605 = t151 * t361;
1152   t2606 = t399 * t2605;
1153   t2610 = t378 * t170 * t930;
1154   t2629 = t80 * t136 * t1007;
1155   t2631 = t937 * t30 * t33;
1156   t2635 = 0.1250e4 / 0.729e3 * t241 * t1155 * t979 + 0.5500e4 / 0.729e3 * t526 * t527 * t325 * t151 - 0.3850e4 / 0.2187e4 * t169 * t171 * t2590 - 0.2500e4 / 0.729e3 * t1190 * t470 * t1192 + 0.625e3 / 0.486e3 * t2598 * t528 * t2599 - 0.50e2 / 0.81e2 * t519 * t1186 + 0.125e3 / 0.54e2 * t242 * t2606 + 0.25e2 / 0.324e3 * t242 * t2610 - 0.500e3 / 0.243e3 * t526 * t527 * t123 * t361 + 0.125e3 / 0.486e3 * t526 * t527 * t23 * t930 - 0.770e3 / 0.243e3 * t241 * t889 * t82 + 0.550e3 / 0.243e3 * t1178 * t523 - 0.500e3 / 0.81e2 * t519 * t400 + 0.6250e4 / 0.6561e4 * t2629 * t209 * t2631;
1157   t2653 = t325 * t30;
1158   t2654 = t2653 * t541;
1159   t2657 = t1128 * t1229;
1160   t2661 = t33 * t930 * t87;
1161   t2662 = t495 * t2661;
1162   t2665 = t2605 * t87;
1163   t2666 = t1155 * t2665;
1164   t2669 = t123 * t136;
1165   t2670 = t2669 * t1218;
1166   t2675 = t2461 * t10;
1167   t2679 = t953 * t18 * t87;
1168   t2692 = t2441 * t10;
1169   t2705 = t889 * t13;
1170   t2711 = 0.275e3 / 0.243e3 * t549 * t2654 - 0.25e2 / 0.81e2 * t549 * t2657 + 0.25e2 / 0.648e3 * t549 * t2662 + 0.125e3 / 0.324e3 * t1241 * t2666 - 0.250e3 / 0.243e3 * t1241 * t2670 - 0.500e3 / 0.81e2 * t1226 * t2670 + 0.625e3 / 0.8748e4 * t2459 * t2675 * t23 * t2679 + 0.1250e4 / 0.729e3 * t177 * t1225 * t23 * t2679 + 0.625e3 / 0.243e3 * t422 * t1240 * t23 * t2679 + 0.550e3 / 0.243e3 * t540 * t2654 + 0.625e3 / 0.729e3 * t1022 * t2692 * t23 * t2679 + 0.125e3 / 0.54e2 * t1217 * t2666 - 0.50e2 / 0.81e2 * t540 * t2657 + 0.125e3 / 0.54e2 * t1226 * t2666 + 0.25e2 / 0.324e3 * t540 * t2662 - 0.770e3 / 0.243e3 * t251 * t2705 * t180 - 0.500e3 / 0.81e2 * t1217 * t2670;
1171   t2712 = my_piecewise3(t79, 0.3e1 * t1207 * t175 * t85 + t248 * t989 * t85 + t248 * t994 * t85 + 0.3e1 * t535 * t406 * t85 + 0.3e1 * t535 * t408 * t85 + 0.3e1 * t1212 * t176 + t2635 * t85, t2711);
1172   t2729 = t877 * t238;
1173   t2743 = 0.1174e1 * t2712 - 0.6e1 * t877 * t878 * t255 + 0.6e1 * t319 * t517 * t385 - 0.2e1 * t319 * t239 * t960 + 0.6e1 * t319 * t1168 * t163 + 0.6e1 * t319 * t515 * t385 + 0.18e2 * t2729 * t882 - 0.24e2 * t2234 * t239 * t878 - t120 * t960 * t255 - 0.3e1 * t120 * t385 * t553 - 0.3e1 * t120 * t163 * t1245;
1174   t2784 = t930 * t68;
1175   t2785 = t378 * t2784;
1176   t2789 = t136 * t361;
1177   t2790 = t2789 * t497;
1178   t2798 = t368 * t2784;
1179   t2801 = t225 * t1155;
1180   t2803 = t66 * t361 * t497;
1181   t2819 = t953 * t153;
1182   t2823 = t937 * t64 * t153;
1183   t2827 = t375 * t937 * t153;
1184   t2830 = -0.539e3 / 0.21870e5 * t51 * t221 * t889 + 0.77e2 / 0.2430e4 * t229 * t2705 * t231 - 0.11e2 / 0.972e3 * t376 * t1097 * t506 + t1148 * t1151 / 0.324e3 - t505 * t2785 / 0.2592e4 - 0.5e1 / 0.1296e4 * t952 * t209 * t2790 + 0.11e2 / 0.324e3 * t225 * t2653 * t498 - t1129 * t1137 / 0.108e3 + t496 * t2798 / 0.864e3 + 0.5e1 / 0.216e3 * t2801 * t2803 - 0.77e2 / 0.2430e4 * t225 * t889 * t153 - 0.5e1 / 0.81e2 * t492 * t1141 - 0.5e1 / 0.432e3 * t226 * t2790 + 0.5e1 / 0.486e3 * t1154 * t2669 * t1140 + 0.5e1 / 0.162e3 * t492 * t1133 - 0.25e2 / 0.34992e5 * t2349 * t209 * t2819 - 0.125e3 / 0.11664e5 * t2801 * t2823 + 0.125e3 / 0.17496e5 * t2801 * t2827;
1185   t2863 = t120 * (-0.1540e4 / 0.6561e4 * t2590 * t18 - 0.418e3 / 0.243e3 * t34 * t212 * t895 + 0.2809e4 / 0.120e3 * t137 * t35 * t899 * t45 - 0.18837e5 / 0.3200e4 * t343 * t138 * t906 * t351 + 0.29403e5 / 0.32000e5 * t912 * t344 * t916 * t920 - 0.19683e5 / 0.80000e5 * t2290 * t913 / t914 / t121 * t45 + 0.2e1 * t957 * t235 + 0.6e1 * t382 * t509 + 0.6e1 * t160 * t1159 + 0.2e1 * t71 * t2830) * t90 - 0.3e1 * t120 * t1162 * t184 - 0.3e1 * t120 * t512 * t429 - t120 * t238 * t1029 + 0.6e1 * t319 * t320 * t553 - t78 * t2712 - 0.6e1 * t319 * t513 * t385 + 0.12e2 * t319 * t1165 * t163 - 0.18e2 * t877 * t515 * t320 - 0.6e1 * t319 * t1163 * t163 + 0.18e2 * t877 * t513 * t320;
1186   t2885 = t851 * t196;
1187   t2898 = 0.92773125000000000000e0 * t263 * t7 * t1032 * t269 - 0.32863279090805449749e3 * t2222 * t1595 * rho[0] * t2546 + 0.18169961209385849999e3 * t566 * t1301 + 0.18169961209385850000e3 * t265 * t723 * t10 * t57 * t202 * t107 - t1076 * t558 / 0.4e1 - 0.3e1 / 0.4e1 * t464 * t1250 - 0.3e1 / 0.16e2 * t115 * t116 * (t2743 + t2863) * t108 - 0.16779502519940886847e2 * t581 * t869 * t13 * t459 + 0.86588250000000000000e2 * t570 * t18 * t571 * t750 - 0.77929425000000000000e2 * t1268 * t1291 - 0.75507761339733990810e2 * t1272 * t1295 - 0.15585885000000000000e4 * t1276 * t1277 * t2590 * t97 + 0.5497666666666666667e0 * t2885 * t561 * t206 - 0.24739500000000000000e1 * t1081 * t1253 * t206 + 0.24226614945847799999e3 * t263 * t264 * t266 * t851 * t447 * t2546;
1188   t2900 = t5 * t565 * t13;
1189   t2909 = t263 * t1263 * t447;
1190   t2917 = t263 * t565 * t1055;
1191   t2926 = t2503 * t561;
1192   t2940 = t57 * t2 * t4;
1193   t2946 = t750 * t196;
1194   t2951 = t263 * t264 * t2542;
1195   t2958 = -0.93019360560557883943e0 * t2900 * t1287 - 0.51677422533643268850e0 * t1283 * t1284 * t9 * t869 * t107 + 0.33398325000000000000e2 * t2909 * t575 - 0.45304656803840394486e2 * t5 * t1263 * t579 * t583 + 0.66796650000000000000e3 * t2917 * t1279 + 0.12081241814357438530e3 * t455 * t1253 * t460 - 0.59374800000000000000e3 * t1047 * t561 * t1059 + 0.82683876053829230172e0 * t2926 * t1065 - 0.74218500000000000000e1 * t197 * t198 * t1248 * t206 + 0.40270806047858128433e2 * t2926 * t460 - 0.16151076630565200000e3 * t1069 * t258 * t10 * t1071 + t2940 * t260 / 0.18e2 - 0.89062200000000000000e2 * t443 * t1253 * t452 + 0.89062200000000000000e2 * t2946 * t561 * t452 + 0.20781180000000000000e4 * t2951 * t1277 * t1981 * sigma[0] * t30 * t95;
1196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1197     v4rho3sigma[0] = t2898 + t2958;
1198 
1199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1200     v4rho3lapl[0] = 0.0e0;
1201 
1202   t2974 = t2503 * t644;
1203   t2977 = t319 * t382;
1204   t2982 = t877 * t160;
1205   t2987 = t1356 * t90;
1206   t2994 = t606 * t184;
1207   t3009 = t278 * t429;
1208   t3026 = 0.2e1 * t120 * t957 * t278 * t90 - 0.12e2 * t120 * t1333 * t184 - 0.6e1 * t120 * t1357 * t184 - 0.36e2 * t1311 * t1322 * t320 - 0.12e2 * t588 * t1318 * t385 + 0.12e2 * t588 * t1322 * t385 - 0.12e2 * t588 * t2987 * t163 + 0.24e2 * t588 * t2994 * t163 + 0.12e2 * t588 * t3009 * t163 + 0.6e1 * t319 * t614 * t385 - 0.4e1 * t588 * t589 * t960 + 0.36e2 * t2982 * t1312 - 0.24e2 * t1315 * t1319 + 0.24e2 * t1315 * t1323 - 0.12e2 * t1315 * t1326 - 0.12e2 * t2977 * t590;
1209   t3039 = t225 * t1352;
1210   t3064 = 0.25e2 / 0.4374e4 * t2349 * t286 * t2819 - 0.125e3 / 0.2187e4 * t3039 * t2827 + 0.125e3 / 0.1458e4 * t3039 * t2823 + t603 * t2785 / 0.324e3 + 0.5e1 / 0.162e3 * t952 * t286 * t2790 - t599 * t2798 / 0.108e3 - 0.5e1 / 0.27e2 * t3039 * t2803 + 0.5e1 / 0.54e2 * t272 * t2790 - 0.25e2 / 0.162e3 * t1134 + 0.22e2 / 0.243e3 * t1126 + 0.25e2 / 0.81e2 * t1142 - 0.25e2 / 0.486e3 * t1157 - 0.10e2 / 0.81e2 * t1130 + 0.5e1 / 0.108e3 * t1138 - 0.22e2 / 0.243e3 * t1146 + 0.10e2 / 0.243e3 * t1149 - 0.5e1 / 0.324e3 * t1152;
1211   t3080 = t2234 * t71;
1212   t3126 = -0.500e3 / 0.27e2 * t283 * t2606 - 0.50e2 / 0.81e2 * t283 * t2610 - 0.500e3 / 0.243e3 * t526 * t527 * t57 * t930 - 0.10000e5 / 0.729e3 * t241 * t1352 * t979 - 0.50000e5 / 0.6561e4 * t2629 * t286 * t2631 - 0.2500e4 / 0.243e3 * t2598 * t619 * t2599 + 0.12500e5 / 0.729e3 * t1194 + 0.2500e4 / 0.81e2 * t1183 + 0.2200e4 / 0.243e3 * t1179 - 0.2000e4 / 0.243e3 * t1181 + 0.250e3 / 0.81e2 * t1187 + 0.2500e4 / 0.243e3 * t1202 - 0.20000e5 / 0.729e3 * t1198 + 0.11000e5 / 0.2187e4 * t1205;
1213   t3144 = t598 * t2661;
1214   t3149 = t1352 * t2665;
1215   t3180 = -0.50e2 / 0.81e2 * t540 * t3144 - 0.25e2 / 0.81e2 * t549 * t3144 - 0.250e3 / 0.81e2 * t1241 * t3149 - 0.500e3 / 0.27e2 * t1217 * t3149 - 0.500e3 / 0.27e2 * t1226 * t3149 - 0.1250e4 / 0.2187e4 * t2459 * t2675 * t57 * t2679 - 0.10000e5 / 0.729e3 * t177 * t1225 * t57 * t2679 - 0.5000e4 / 0.243e3 * t422 * t1240 * t57 * t2679 - 0.5000e4 / 0.729e3 * t1022 * t2692 * t57 * t2679 + 0.2200e4 / 0.243e3 * t1234 - 0.1000e4 / 0.243e3 * t1236 + 0.125e3 / 0.81e2 * t1238 + 0.250e3 / 0.81e2 * t1231 + 0.2500e4 / 0.81e2 * t1220 + 0.2500e4 / 0.81e2 * t1227 + 0.1250e4 / 0.243e3 * t1242 - 0.2000e4 / 0.243e3 * t1223;
1216   t3181 = my_piecewise3(t79, 0.3e1 * t1390 * t175 * t85 + t290 * t989 * t85 + t290 * t994 * t85 + 0.3e1 * t624 * t406 * t85 + 0.3e1 * t624 * t408 * t85 + 0.3e1 * t1395 * t176 + t3126 * t85, t3180);
1217   t3188 = -0.6e1 * t120 * t607 * t429 - 0.2e1 * t120 * t279 * t1029 - 0.6e1 * t120 * t593 * t429 + 0.2e1 * t120 * t71 * t3064 * t90 + 0.6e1 * t120 * t382 * t606 * t90 - 0.6e1 * t120 * t1329 * t184 + 0.6e1 * t120 * t160 * t1356 * t90 - 0.48e2 * t3080 * t589 * t878 + 0.36e2 * t1311 * t1318 * t320 - 0.3e1 * t120 * t385 * t636 - t120 * t960 * t295 - 0.3e1 * t120 * t163 * t1416 + 0.6e1 * t319 * t320 * t636 - 0.6e1 * t877 * t878 * t295 + 0.1174e1 * t3181 + 0.36e2 * t1311 * t589 * t163 * t385 - t78 * t3181;
1218   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1219     v4rho3tau[0] = t2940 * t300 / 0.18e2 - t1076 * t641 / 0.4e1 + 0.5497666666666666667e0 * t2885 * t644 * t206 - 0.3e1 / 0.4e1 * t464 * t1421 - 0.24739500000000000000e1 * t1081 * t1424 * t206 + 0.89062200000000000000e2 * t2946 * t644 * t452 + 0.40270806047858128433e2 * t2974 * t460 - 0.3e1 / 0.16e2 * t115 * t116 * (t3026 + t3188) * t108 - 0.74218500000000000000e1 * t197 * t198 * t1419 * t206 - 0.89062200000000000000e2 * t443 * t1424 * t452 + 0.12081241814357438530e3 * t455 * t1424 * t460 - 0.59374800000000000000e3 * t1047 * t644 * t1059 + 0.82683876053829230172e0 * t2974 * t1065 - 0.16151076630565200000e3 * t1069 * t298 * t10 * t1071;
1220 
1221   t3223 = t2081 * t30;
1222   t3238 = t263 * t1561 * t447;
1223   t3246 = t263 * t719 * t1055;
1224   t3250 = t5 * t719 * t13;
1225   t3260 = -0.8246500000000000000e0 * t1081 * t1557 * t206 - 0.51952950000000000000e2 * t1566 * t1291 - 0.90849806046929250000e2 * t263 * t580 * t311 * t447 * t2546 - 0.77929425000000000000e3 * t2951 * t1277 * t3223 * t95 + 0.58137100350348677464e0 * t1283 * t1581 * t1286 + 0.45304656803840394488e2 * t1592 * t583 + 0.56630821004800493110e1 * t5 * t1263 * t735 * t739 + 0.44531100000000000000e2 * t3238 * t575 - 0.60406209071787192648e2 * t5 * t1561 * t579 * t583 + 0.44531100000000000000e3 * t3246 * t1279 - 0.62012907040371922629e0 * t3250 * t1287 - 0.16699162500000000000e3 * t2917 * t1578 + 0.23254840140139470986e0 * t2900 * t1584 + 0.40270806047858128433e2 * t455 * t1557 * t460;
1226   t3316 = -0.4e1 * t319 * t239 * t1162 - 0.12e2 * t877 * t1442 * t163 - 0.4e1 * t319 * t1494 * t163 + 0.4e1 * t319 * t1496 * t163 + 0.8e1 * t319 * t1501 * t163 + 0.8e1 * t319 * t1504 * t163 - 0.24e2 * t2234 * t649 * t320 - 0.2e1 * t319 * t684 * t385 + 0.4e1 * t319 * t686 * t385 + 0.8e1 * t319 * t515 * t512 + 0.6e1 * t877 * t684 * t320 - 0.12e2 * t877 * t686 * t320 + 0.6e1 * t877 * t649 * t385;
1227   t3338 = t424 * t365 * t18;
1228   t3341 = t399 * t361;
1229   t3344 = t412 * t33;
1230   t3366 = t535 * t535;
1231   t3380 = t2419 * t1192;
1232   t3383 = t129 * t136;
1233   t3384 = t3383 * t1017;
1234   t3391 = t1486 * t1002;
1235   t3394 = t331 * t30;
1236   t3395 = t3394 * t413;
1237   t3402 = t2441 * t9;
1238   t3413 = t2461 * t9;
1239   t3418 = -0.625e3 / 0.1458e4 * t177 * t1538 * t40 * t3380 + 0.500e3 / 0.243e3 * t1531 * t3384 - 0.625e3 / 0.972e3 * t422 * t1544 * t40 * t3380 - 0.125e3 / 0.648e3 * t1531 * t3391 - 0.475e3 / 0.729e3 * t702 * t3395 + 0.500e3 / 0.243e3 * t1539 * t3384 - 0.125e3 / 0.648e3 * t1539 * t3391 - 0.625e3 / 0.2916e4 * t1022 * t3402 * t40 * t3380 - 0.475e3 / 0.1458e4 * t707 * t3395 + 0.250e3 / 0.729e3 * t1545 * t3384 - 0.125e3 / 0.3888e4 * t1545 * t3391 - 0.625e3 / 0.34992e5 * t2459 * t3413 * t40 * t3380;
1240   t3419 = my_piecewise3(t79, (-0.475e3 / 0.729e3 * t689 * t331 * t395 + 0.500e3 / 0.243e3 * t1509 * t1512 - 0.625e3 / 0.1458e4 * t689 * t1486 * t3338 - 0.125e3 / 0.648e3 * t690 * t3341 - 0.3125e4 / 0.13122e5 * t2629 * t652 * t3344 + 0.2500e4 / 0.2187e4 * t1190 * t1448 * t1515 - 0.625e3 / 0.5832e4 * t1190 * t652 * t2599 - 0.4750e4 / 0.2187e4 * t526 * t693 * t331) * t85 + 0.2e1 * t1522 * t175 * t85 + t697 * t406 * t85 + t697 * t408 * t85 + 0.2e1 * t3366 * t85 + 0.4e1 * t537 * t536 + 0.2e1 * t249 * t1207 + t699 * t406 * t85 + t699 * t408 * t85, t3418);
1241   t3421 = t512 * t512;
1242   t3450 = t509 * t509;
1243   t3465 = t2789 * t68;
1244   t3468 = t668 * t1486;
1245   t3470 = t365 * t64 * t153;
1246   t3473 = t942 * t1136;
1247   t3477 = t375 * t365 * t153;
1248   t3490 = t1132 * t153;
1249   t3493 = -0.19e2 / 0.1944e4 * t668 * t331 * t671 - 0.5e1 / 0.486e3 * t1471 * t1475 + 0.5e1 / 0.243e3 * t1471 * t1478 + 0.5e1 / 0.5184e4 * t669 * t3465 + 0.125e3 / 0.46656e5 * t3468 * t3470 - 0.5e1 / 0.2592e4 * t669 * t3473 - 0.125e3 / 0.69984e5 * t3468 * t3477 + 0.19e2 / 0.5832e4 * t674 * t3394 * t676 - 0.5e1 / 0.1458e4 * t1485 * t3383 * t497 + 0.5e1 / 0.15552e5 * t1485 * t1486 * t1136 + 0.25e2 / 0.139968e6 * t2349 * t652 * t3490;
1250   t3510 = -t120 * t385 * t711 - 0.2e1 * t120 * t163 * t1549 - 0.4e1 * t120 * t512 * t553 - 0.2e1 * t120 * t238 * t1245 - 0.2e1 * t120 * t1162 * t255 - t78 * t3419 - 0.4e1 * t319 * t3421 * t90 + 0.2e1 * t319 * t648 * t429 + t120 * (0.19e2 / 0.81e2 * t34 * t9 * t331 * t45 - 0.41e2 / 0.8e1 * t137 * t337 * sigma[0] * t45 + 0.1323e4 / 0.800e3 * t343 * t347 * t35 * t351 - 0.78003e5 / 0.256000e6 * t912 * t138 * t1113 * t920 + 0.59049e5 / 0.640000e6 * t2290 * t344 / t914 / t20 * t45 + 0.4e1 * t3450 + 0.4e1 * t235 * t1159 + 0.2e1 * t382 * t680 + 0.4e1 * t160 * t1490 + 0.2e1 * t71 * t3493) * t90 - 0.2e1 * t120 * t1493 * t184 - t120 * t683 * t429 + 0.24e2 * t2729 * t1088 + 0.2e1 * t319 * t320 * t711 + 0.1174e1 * t3419;
1251   t3541 = -0.49479000000000000000e1 * t197 * t198 * t1552 * t206 + 0.37753880669866995407e2 * t737 * t1295 - 0.50338507559822660540e2 * t1570 * t1295 + 0.30615131250000000000e3 * t1276 * t1575 * t1576 * t325 - t464 * t1554 / 0.2e1 - t1076 * t716 / 0.12e2 - 0.3e1 / 0.16e2 * t115 * t116 * (t3316 + t3510) * t108 - 0.29687400000000000000e2 * t443 * t1557 * t452 - 0.45424903023464625000e2 * t566 * t1597 + 0.12323729659052043656e3 * t2222 * t1951 * t20 * t2546 - 0.14384552624097131250e3 * t265 * t1595 * t10 * t303 * t202 * t107 - 0.46386562500000000000e0 * t1264 * t731 + 0.12113307472923899999e3 * t720 * t1301 - 0.41747906250000000000e1 * t2909 * t726 + 0.18554625000000000000e1 * t263 * t7 * t1248 * t269;
1252   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1253     v4rho2sigma2[0] = t3260 + t3541;
1254 
1255   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1256     v4rho2sigmalapl[0] = 0.0e0;
1257 
1258   t3594 = (0.2600e4 / 0.729e3 * t1510 - 0.3250e4 / 0.243e3 * t1513 + 0.2500e4 / 0.729e3 * t689 * t1646 * t3338 + 0.125e3 / 0.81e2 * t768 * t3341 + 0.12500e5 / 0.6561e4 * t2629 * t1683 * t3344 - 0.16250e5 / 0.2187e4 * t1517 + 0.625e3 / 0.729e3 * t1190 * t1683 * t2599 + 0.26000e5 / 0.2187e4 * t1520) * t85 + 0.2e1 * t1688 * t175 * t85 + t774 * t406 * t85 + t774 * t408 * t85 + t1390 * t248 * t85 + 0.2e1 * t624 * t535 * t85 + 0.2e1 * t1692 * t176 + t290 * t1207 * t85 + 0.2e1 * t1694 * t176 + t776 * t407 + t776 * t409;
1259   t3604 = t1646 * t1002;
1260   t3623 = 0.2500e4 / 0.729e3 * t177 * t1538 * t750 * t3380 - 0.3250e4 / 0.243e3 * t1533 + 0.1250e4 / 0.243e3 * t422 * t1544 * t750 * t3380 + 0.125e3 / 0.81e2 * t1531 * t3604 + 0.2600e4 / 0.729e3 * t1536 - 0.3250e4 / 0.243e3 * t1540 + 0.125e3 / 0.81e2 * t1539 * t3604 + 0.1250e4 / 0.729e3 * t1022 * t3402 * t750 * t3380 + 0.1300e4 / 0.729e3 * t1542 - 0.1625e4 / 0.729e3 * t1546 + 0.125e3 / 0.486e3 * t1545 * t3604 + 0.625e3 / 0.4374e4 * t2459 * t3413 * t750 * t3380;
1261   t3624 = my_piecewise3(t79, t3594, t3623);
1262   t3658 = 0.24e2 * t1311 * t589 * t512 * t163 + 0.12e2 * t1311 * t589 * t238 * t385 + 0.1174e1 * t3624 + 0.24e2 * t2982 * t1603 + 0.24e2 * t1311 * t1318 * t1602 - 0.24e2 * t1311 * t1322 * t1602 - 0.48e2 * t3080 * t589 * t238 * t320 - 0.8e1 * t1315 * t1614 + 0.8e1 * t1315 * t1611 - 0.4e1 * t2977 * t742 - 0.8e1 * t588 * t1318 * t512 + 0.8e1 * t588 * t2994 * t238 - 0.8e1 * t1315 * t1608 - 0.4e1 * t588 * t589 * t1162 - 0.4e1 * t588 * t2987 * t238;
1263   t3672 = t319 * t509;
1264   t3675 = t1650 * t90;
1265   t3686 = t758 * t184;
1266   t3692 = t278 * t553;
1267   t3699 = t606 * t255;
1268   t3703 = 0.8e1 * t588 * t1322 * t512 - 0.8e1 * t588 * t3675 * t163 + 0.8e1 * t588 * t3686 * t163 + 0.8e1 * t588 * t3692 * t163 + 0.8e1 * t588 * t3699 * t163 - 0.4e1 * t588 * t1631 * t385 + 0.4e1 * t588 * t1658 * t385 + 0.4e1 * t588 * t3009 * t238 + 0.2e1 * t319 * t320 * t785 - 0.8e1 * t1315 * t1632 + 0.8e1 * t1315 * t1659 - 0.8e1 * t1617 * t1319 + 0.8e1 * t1617 * t1323 - 0.4e1 * t1617 * t1326 - 0.8e1 * t3672 * t590;
1269   t3705 = t877 * t235;
1270   t3748 = 0.2e1 * t120 * t235 * t1356 * t90 - t120 * t1162 * t295 - 0.2e1 * t120 * t279 * t1245 - t120 * t238 * t1416 - 0.4e1 * t120 * t1620 * t184 - 0.4e1 * t120 * t1624 * t184 - 0.2e1 * t120 * t163 * t1708 - t120 * t385 * t785 - 0.2e1 * t120 * t512 * t636 - 0.4e1 * t120 * t607 * t553 + 0.12e2 * t1311 * t1631 * t320 - 0.12e2 * t1311 * t1658 * t320 + 0.4e1 * t319 * t1676 * t163 + 0.2e1 * t319 * t766 * t385 + 0.12e2 * t3705 * t1312;
1271   t3793 = t668 * t1646;
1272   t3808 = 0.13e2 / 0.243e3 * t1472 + 0.65e2 / 0.972e3 * t1476 - 0.65e2 / 0.486e3 * t1479 - 0.5e1 / 0.648e3 * t751 * t3465 - 0.125e3 / 0.5832e4 * t3793 * t3470 + 0.5e1 / 0.324e3 * t751 * t3473 + 0.125e3 / 0.8748e4 * t3793 * t3477 - 0.13e2 / 0.729e3 * t1483 + 0.65e2 / 0.2916e4 * t1488 - 0.5e1 / 0.1944e4 * t1485 * t1646 * t1136 - 0.25e2 / 0.17496e5 * t2349 * t1683 * t3490;
1273   t3821 = 0.2e1 * t120 * t1159 * t278 * t90 - 0.6e1 * t877 * t766 * t320 + 0.4e1 * t319 * t1674 * t163 - 0.2e1 * t120 * t1329 * t255 - 0.4e1 * t120 * t1333 * t255 - 0.4e1 * t120 * t593 * t553 - 0.2e1 * t120 * t1357 * t255 - 0.4e1 * t120 * t1651 * t184 - 0.2e1 * t120 * t759 * t429 + 0.2e1 * t120 * t382 * t758 * t90 + 0.4e1 * t120 * t160 * t1650 * t90 - 0.4e1 * t120 * t1635 * t184 + 0.2e1 * t120 * t71 * t3808 * t90 - 0.2e1 * t120 * t745 * t429 + 0.4e1 * t120 * t509 * t606 * t90 - t78 * t3624;
1274   t3843 = t263 * t1721 * t447;
1275   t3851 = t263 * t793 * t1055;
1276   t3855 = t5 * t793 * t13;
1277   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1278     v4rho2sigmatau[0] = -t1076 * t790 / 0.12e2 - t464 * t1714 / 0.2e1 - 0.8246500000000000000e0 * t1081 * t1717 * t206 - 0.3e1 / 0.16e2 * t115 * t116 * (t3658 + t3703 + t3748 + t3821) * t108 - 0.49479000000000000000e1 * t197 * t198 * t1712 * t206 - 0.29687400000000000000e2 * t443 * t1717 * t452 + 0.40270806047858128433e2 * t455 * t1717 * t460 + 0.92773125000000000000e0 * t263 * t7 * t1419 * t269 + 0.22265550000000000000e2 * t3843 * t575 - 0.30203104535893596324e2 * t5 * t1721 * t579 * t583 + 0.22265550000000000000e3 * t3851 * t1279 - 0.31006453520185961314e0 * t3855 * t1287 - 0.25976475000000000000e2 * t1726 * t1291 - 0.25169253779911330270e2 * t1730 * t1295 + 0.60566537364619499997e2 * t794 * t1301;
1279 
1280   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1281     v4rho2lapl2[0] = 0.0e0;
1282 
1283   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1284     v4rho2lapltau[0] = 0.0e0;
1285 
1286   t3876 = t319 * t278;
1287   t3885 = t606 * t606;
1288   t3900 = t668 * t1770;
1289   t3915 = -0.65e2 / 0.243e3 * t672 - 0.100e3 / 0.243e3 * t1641 + 0.200e3 / 0.243e3 * t1643 + 0.5e1 / 0.81e2 * t805 * t3465 + 0.125e3 / 0.729e3 * t3900 * t3470 - 0.10e2 / 0.81e2 * t805 * t3473 - 0.250e3 / 0.2187e4 * t3900 * t3477 + 0.65e2 / 0.729e3 * t678 - 0.100e3 / 0.729e3 * t1648 + 0.5e1 / 0.243e3 * t1485 * t1770 * t1136 + 0.25e2 / 0.2187e4 * t2349 * t1800 * t3490;
1290   t3930 = 0.2e1 * t120 * t382 * t812 * t90 + 0.2e1 * t120 * t71 * t3915 * t90 - 0.8e1 * t120 * t1333 * t295 - 0.4e1 * t120 * t1775 * t184 + 0.4e1 * t120 * t3885 * t90 - 0.2e1 * t120 * t813 * t429 - 0.8e1 * t120 * t593 * t636 + 0.32e2 * t588 * t1753 * t160 + 0.2e1 * t319 * t320 * t837 - 0.16e2 * t588 * t802 * t382 + 0.16e2 * t1315 * t1783 - 0.16e2 * t3876 * t1319;
1291   t3938 = t589 * t1356;
1292   t3941 = t1322 * t606;
1293   t3944 = t802 * t385;
1294   t3947 = t1753 * t163;
1295   t3968 = 0.4e1 * t120 * t160 * t1774 * t90 - 0.4e1 * t120 * t1329 * t295 - 0.4e1 * t120 * t1357 * t295 - 0.4e1 * t120 * t279 * t1416 - 0.4e1 * t120 * t1760 * t184 - 0.8e1 * t120 * t607 * t636 - 0.4e1 * t588 * t1756 * t385 + 0.8e1 * t319 * t798 * t429 + 0.4e1 * t120 * t3938 - 0.8e1 * t120 * t3941 - 0.4e1 * t319 * t3944 + 0.8e1 * t319 * t3947;
1296   t3974 = t812 * t184;
1297   t3980 = t1774 * t90;
1298   t3984 = t802 * t320;
1299   t4001 = t2234 * t72;
1300   t4006 = -0.16e2 * t319 * t354 * t797 * t90 - 0.16e2 * t319 * t72 * t3885 * t90 + 0.12e2 * t1311 * t1756 * t320 - 0.24e2 * t1311 * t1782 * t320 + 0.8e1 * t588 * t3974 * t163 - 0.8e1 * t588 * t3980 * t163 - 0.8e1 * t1315 * t1757 + 0.24e2 * t1735 * t3944 - 0.16e2 * t1742 * t3938 + 0.32e2 * t1742 * t3941 - 0.96e2 * t4001 * t3984 + 0.12e2 * t877 * t3984;
1301   t4033 = t624 * t624;
1302   t4054 = t1770 * t1002;
1303   t4073 = -0.20000e5 / 0.729e3 * t177 * t1538 * t442 * t3380 + 0.20000e5 / 0.243e3 * t1699 - 0.10000e5 / 0.243e3 * t422 * t1544 * t442 * t3380 - 0.1000e4 / 0.81e2 * t1531 * t4054 - 0.13000e5 / 0.729e3 * t704 + 0.20000e5 / 0.243e3 * t1702 - 0.1000e4 / 0.81e2 * t1539 * t4054 - 0.10000e5 / 0.729e3 * t1022 * t3402 * t442 * t3380 - 0.6500e4 / 0.729e3 * t708 + 0.10000e5 / 0.729e3 * t1705 - 0.500e3 / 0.243e3 * t1545 * t4054 - 0.2500e4 / 0.2187e4 * t2459 * t3413 * t442 * t3380;
1304   t4074 = my_piecewise3(t79, (-0.13000e5 / 0.729e3 * t691 + 0.20000e5 / 0.243e3 * t1681 - 0.20000e5 / 0.729e3 * t689 * t1770 * t3338 - 0.1000e4 / 0.81e2 * t820 * t3341 - 0.100000e6 / 0.6561e4 * t2629 * t1800 * t3344 + 0.100000e6 / 0.2187e4 * t1685 - 0.5000e4 / 0.729e3 * t1190 * t1800 * t2599 - 0.130000e6 / 0.2187e4 * t695) * t85 + 0.2e1 * t1805 * t175 * t85 + t826 * t406 * t85 + t826 * t408 * t85 + 0.2e1 * t4033 * t85 + 0.4e1 * t626 * t625 + 0.2e1 * t291 * t1390 + t828 * t406 * t85 + t828 * t408 * t85, t4073);
1305   t4096 = t606 * t295;
1306   t4100 = t278 * t636;
1307   t4107 = -0.48e2 * t1735 * t3947 - t78 * t4074 - t120 * t385 * t837 - 0.2e1 * t120 * t163 * t1824 - 0.2e1 * t120 * t797 * t429 + 0.1174e1 * t4074 + 0.96e2 * t1311 * t802 * t163 * t160 + 0.96e2 * t1735 * t589 * t163 * t606 - 0.64e2 * t588 * t589 * t1333 + 0.16e2 * t588 * t4096 * t163 + 0.16e2 * t588 * t4100 * t163 + 0.8e1 * t588 * t1782 * t385;
1308   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1309     v4rho2tau2[0] = -t1076 * t842 / 0.12e2 - t464 * t1829 / 0.2e1 - 0.8246500000000000000e0 * t1081 * t1832 * t206 - 0.3e1 / 0.16e2 * t115 * t116 * (t3930 + t3968 + t4006 + t4107) * t108 - 0.49479000000000000000e1 * t197 * t198 * t1827 * t206 - 0.29687400000000000000e2 * t443 * t1832 * t452 + 0.40270806047858128433e2 * t455 * t1832 * t460;
1310 
1311   t4161 = t263 * t1913 * t447;
1312   t4164 = -0.56630821004800493113e2 * t1948 * t583 - 0.16989246301440147934e2 * t5 * t565 * t1935 * t739 + 0.34068677267598468749e2 * t263 * t736 * t192 * t447 * t2546 - 0.45304656803840394487e2 * t5 * t1913 * t579 * t583 - 0.25048743750000000000e3 * t3246 * t1578 + 0.34882260210209206479e0 * t3250 * t1584 + 0.67956985205760591731e2 * t1922 * t583 + 0.16989246301440147933e2 * t5 * t1561 * t735 * t739 + 0.31310929687500000000e2 * t2917 * t1927 - 0.43602825262761508098e0 * t1283 * t1936 * t1583 - 0.43602825262761508097e-1 * t2900 * t1939 - 0.24739500000000000000e1 * t197 * t198 * t1908 * t206 + 0.33398325000000000000e2 * t4161 * t575;
1313   t4182 = 0.1e1 / t344;
1314   t4223 = -0.6e1 * t319 * t239 * t1493 - 0.24e2 * t2234 * t1837 * t163 - 0.18e2 * t877 * t1843 * t163 - 0.2e1 * t319 * t1874 * t163 - 0.6e1 * t877 * t1836 * t184 + 0.12e2 * t319 * t686 * t512 - 0.6e1 * t319 * t513 * t683 + 0.6e1 * t319 * t515 * t683 + 0.6e1 * t319 * t648 * t553 + 0.18e2 * t877 * t649 * t512 + 0.18e2 * t2729 * t1445;
1315   t4248 = t50 * t141;
1316   t4251 = t136 * t64;
1317   t4253 = t179 * t231;
1318   t4258 = t136 * t375;
1319   t4262 = t141 * t136;
1320   t4302 = t424 * t151 * t18;
1321   t4306 = t33 * t151;
1322   t4333 = t2419 * t1515;
1323   t4336 = t4262 * t87;
1324   t4356 = my_piecewise3(t79, (-0.125e3 / 0.324e3 * params->c1 * t141 * t399 + 0.625e3 / 0.5832e4 * t1882 * t136 * t4302 + 0.3125e4 / 0.52488e5 * t2629 * t216 * t30 * t4306 - 0.625e3 / 0.2916e4 * t526 * t424 * t141 * t18) * t85 + t1889 * t175 * t85 + 0.3e1 * t1522 * t248 * t85 + 0.3e1 * t697 * t535 * t85 + 0.3e1 * t1891 * t176 + 0.3e1 * t700 * t535 + t1894 * t175 * t85, 0.625e3 / 0.5832e4 * t177 * t1007 * t216 * t4333 - 0.125e3 / 0.324e3 * t997 * t4336 + 0.625e3 / 0.3888e4 * t422 * t1024 * t216 * t4333 - 0.125e3 / 0.324e3 * t1008 * t4336 + 0.625e3 / 0.11664e5 * t1022 * t2441 * t216 * t4333 - 0.125e3 / 0.1944e4 * t1025 * t4336 + 0.625e3 / 0.139968e6 * t2459 * t2461 * t216 * t4333);
1325   t4359 = t120 * (0.27e2 / 0.40e2 * t137 * t141 * t45 - 0.243e3 / 0.640e3 * t343 * t482 * t13 * t17 * sigma[0] * t350 + 0.24057e5 / 0.256000e6 * t912 * t35 * t1462 * t920 - 0.177147e6 / 0.5120000e7 * t2290 * t138 / t2280 * t45 + 0.6e1 * t509 * t680 + 0.6e1 * t235 * t1490 + 0.2e1 * t160 * t1870 + 0.2e1 * t71 * (0.5e1 / 0.2592e4 * t4248 * t939 - 0.125e3 / 0.186624e6 * t1861 * t4251 * t4253 - 0.5e1 / 0.1296e4 * t4248 * t943 + 0.125e3 / 0.279936e6 * t1861 * t4258 * t4253 + 0.5e1 / 0.7776e4 * t952 * t4262 * t68 - 0.25e2 / 0.559872e6 * t2349 * t1866 * t4253)) * t90 - t120 * t1873 * t184 + 0.6e1 * t319 * t1876 * t163 - 0.3e1 * t120 * t1493 * t255 - 0.3e1 * t120 * t683 * t553 + 0.6e1 * t319 * t1879 * t163 - 0.3e1 * t120 * t512 * t711 - 0.3e1 * t120 * t238 * t1549 - t120 * t163 * t1905 - t78 * t4356 + 0.1174e1 * t4356;
1326   t4369 = t2170 * t30;
1327   t4378 = 0.41747906250000000000e2 * t1276 * t1925 * t1577 + 0.27831937500000000000e1 * t263 * t7 * t1552 * t269 + 0.96527918924862328128e2 * t265 * t1951 * t10 * t11 * t202 * t107 + 0.69579843750000000000e0 * t566 * t1944 + 0.85171693168996171873e1 * t566 * t1953 - 0.46213986221445163711e2 * t2222 * t4182 * t121 * t2546 - 0.68137354535196937500e2 * t720 * t1597 - 0.13915968750000000000e1 * t1562 * t731 - 0.3e1 / 0.16e2 * t115 * t116 * (t4223 + t4359) * t108 - t464 * t1910 / 0.4e1 + 0.29223534375000000000e3 * t2951 * t1049 * t723 * t107 * t4369 * t95 + 0.62621859375000000000e1 * t1268 * t1931 - 0.12524371875000000000e2 * t3238 * t726;
1328   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1329     v4rhosigma3[0] = t4164 + t4378;
1330 
1331   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1332     v4rhosigma2lapl[0] = 0.0e0;
1333 
1334   t4412 = (0.875e3 / 0.324e3 * t1883 - 0.625e3 / 0.729e3 * t2010 * t136 * t4302 - 0.3125e4 / 0.6561e4 * t2629 * t1981 * t30 * t4306 + 0.4375e4 / 0.2916e4 * t1887) * t85 + t2017 * t175 * t85 + 0.2e1 * t1688 * t248 * t85 + 0.2e1 * t774 * t535 * t85 + 0.2e1 * t2019 * t176 + t624 * t697 * t85 + t290 * t1522 * t85 + t2022 * t176 + t624 * t699 * t85 + 0.2e1 * t776 * t536 + t2024 * t176;
1335   t4433 = my_piecewise3(t79, t4412, -0.625e3 / 0.729e3 * t177 * t1007 * t1981 * t4333 + 0.875e3 / 0.324e3 * t1898 - 0.625e3 / 0.486e3 * t422 * t1024 * t1981 * t4333 + 0.875e3 / 0.324e3 * t1900 - 0.625e3 / 0.1458e4 * t1022 * t2441 * t1981 * t4333 + 0.875e3 / 0.1944e4 * t1902 - 0.625e3 / 0.17496e5 * t2459 * t2461 * t1981 * t4333);
1336   t4474 = 0.1174e1 * t4433 - 0.24e2 * t1311 * t1658 * t1602 + 0.12e2 * t1311 * t589 * t683 * t163 + 0.24e2 * t3705 * t1603 + 0.24e2 * t1311 * t1631 * t1602 - 0.48e2 * t3080 * t589 * t648 * t163 + 0.24e2 * t1311 * t589 * t238 * t512 - 0.2e1 * t120 * t512 * t785 - 0.2e1 * t120 * t238 * t1708 - t120 * t1493 * t295 - t120 * t683 * t636 - t120 * t163 * t2035 + 0.2e1 * t319 * t648 * t636 - 0.8e1 * t1617 * t1614 + 0.12e2 * t2982 * t1956;
1337   t4514 = 0.12e2 * t1311 * t1318 * t648 - 0.12e2 * t1311 * t1322 * t648 + 0.2e1 * t319 * t2005 * t163 + 0.4e1 * t319 * t2007 * t163 - 0.8e1 * t588 * t1631 * t512 + 0.8e1 * t588 * t1658 * t512 - 0.8e1 * t588 * t3675 * t238 + 0.8e1 * t588 * t3686 * t238 + 0.8e1 * t588 * t3699 * t238 - 0.8e1 * t1315 * t1961 + 0.8e1 * t1315 * t1964 - 0.4e1 * t1315 * t1967 - 0.8e1 * t1617 * t1608 + 0.8e1 * t1617 * t1611 - 0.8e1 * t3672 * t742;
1338   t4525 = t319 * t680;
1339   t4564 = 0.2e1 * t120 * t1490 * t278 * t90 + 0.4e1 * t120 * t235 * t1650 * t90 + 0.4e1 * t120 * t509 * t758 * t90 - 0.4e1 * t120 * t1620 * t255 - 0.4e1 * t120 * t1624 * t255 - 0.4e1 * t120 * t1635 * t255 - 0.4e1 * t120 * t1651 * t255 - 0.2e1 * t120 * t1970 * t184 - 0.4e1 * t120 * t1974 * t184 - 0.2e1 * t120 * t1992 * t184 - 0.4e1 * t120 * t745 * t553 + 0.4e1 * t588 * t1322 * t683 - 0.4e1 * t588 * t589 * t1493 + 0.8e1 * t588 * t3692 * t238 - 0.4e1 * t4525 * t590;
1340   t4610 = t1991 * t90;
1341   t4617 = t758 * t255;
1342   t4621 = t278 * t711;
1343   t4628 = 0.2e1 * t120 * t680 * t606 * t90 + 0.2e1 * t120 * t160 * t1991 * t90 + 0.2e1 * t120 * t71 * (-0.35e2 / 0.2592e4 * t1862 + 0.125e3 / 0.23328e5 * t1982 * t4251 * t4253 + 0.35e2 / 0.1296e4 * t1864 - 0.125e3 / 0.34992e5 * t1982 * t4258 * t4253 - 0.35e2 / 0.7776e4 * t1868 + 0.25e2 / 0.69984e5 * t2349 * t1987 * t4253) * t90 - 0.2e1 * t120 * t593 * t711 - 0.2e1 * t120 * t607 * t711 - 0.2e1 * t120 * t279 * t1549 - 0.6e1 * t877 * t2002 * t163 + 0.4e1 * t319 * t766 * t512 - 0.4e1 * t120 * t759 * t553 + 0.8e1 * t1617 * t1659 - 0.4e1 * t588 * t4610 * t163 - 0.4e1 * t588 * t1318 * t683 + 0.8e1 * t588 * t4617 * t163 + 0.4e1 * t588 * t4621 * t163 - 0.8e1 * t1617 * t1632 - t78 * t4433;
1344   t4644 = t263 * t2043 * t447;
1345   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1346     v4rhosigma2tau[0] = -t464 * t2040 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t116 * (t4474 + t4514 + t4564 + t4628) * t108 - 0.24739500000000000000e1 * t197 * t198 * t2038 * t206 + 0.18554625000000000000e1 * t263 * t7 * t1712 * t269 + 0.22265550000000000000e2 * t4644 * t575 - 0.30203104535893596324e2 * t5 * t2043 * t579 * t583 - 0.41747906250000000000e1 * t3843 * t726 - 0.83495812500000000000e2 * t3851 * t1578 + 0.11627420070069735493e0 * t3855 * t1584 - 0.46386562500000000000e0 * t1722 * t731 + 0.22652328401920197244e2 * t2052 * t583 + 0.56630821004800493110e1 * t5 * t1721 * t735 * t739 - 0.22712451511732312500e2 * t794 * t1597;
1347 
1348   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1349     v4rhosigmalapl2[0] = 0.0e0;
1350 
1351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1352     v4rhosigmalapltau[0] = 0.0e0;
1353 
1354   t4697 = (-0.500e3 / 0.27e2 * t2011 + 0.5000e4 / 0.729e3 * t2113 * t136 * t4302 + 0.25000e5 / 0.6561e4 * t2629 * t3223 * t4306 - 0.2500e4 / 0.243e3 * t2015) * t85 + t2120 * t175 * t85 + t1805 * t248 * t85 + t826 * t535 * t85 + t2122 * t176 + 0.2e1 * t625 * t774 + 0.2e1 * t626 * t775 + 0.2e1 * t291 * t1688 + 0.2e1 * t776 * t625 + t828 * t535 * t85 + t2126 * t176;
1355   t4718 = my_piecewise3(t79, t4697, 0.5000e4 / 0.729e3 * t177 * t1007 * t2081 * t4333 - 0.500e3 / 0.27e2 * t2028 + 0.2500e4 / 0.243e3 * t422 * t1024 * t2081 * t4333 - 0.500e3 / 0.27e2 * t2030 + 0.2500e4 / 0.729e3 * t1022 * t2441 * t2081 * t4333 - 0.250e3 / 0.81e2 * t2032 + 0.625e3 / 0.2187e4 * t2459 * t2461 * t2081 * t4333);
1356   t4723 = t1322 * t758;
1357   t4726 = t2071 * t163;
1358   t4732 = t1658 * t606;
1359   t4735 = t589 * t1650;
1360   t4748 = t2091 * t90;
1361   t4766 = 0.1174e1 * t4718 + 0.12e2 * t877 * t797 * t467 + 0.16e2 * t1742 * t4723 - 0.24e2 * t1735 * t4726 + 0.16e2 * t588 * t2071 * t160 + 0.16e2 * t1742 * t4732 - 0.16e2 * t1742 * t4735 - 0.4e1 * t588 * t1756 * t512 + 0.4e1 * t588 * t3974 * t238 - 0.4e1 * t1617 * t1757 - 0.8e1 * t3876 * t1632 - 0.4e1 * t588 * t4748 * t163 - 0.4e1 * t1315 * t2074 - 0.4e1 * t588 * t3980 * t238 + 0.8e1 * t588 * t4096 * t238 + 0.8e1 * t588 * t4100 * t238 + 0.8e1 * t588 * t1782 * t512;
1362   t4767 = t812 * t255;
1363   t4773 = t278 * t785;
1364   t4779 = t758 * t295;
1365   t4784 = t802 * t512;
1366   t4791 = t1753 * t238;
1367   t4794 = t1318 * t758;
1368   t4818 = 0.2e1 * t120 * t235 * t1774 * t90 + 0.2e1 * t120 * t509 * t812 * t90 - 0.2e1 * t120 * t2077 * t184 - 0.2e1 * t120 * t813 * t553 + 0.4e1 * t588 * t4767 * t163 + 0.8e1 * t588 * t4773 * t163 + 0.8e1 * t588 * t4779 * t163 + 0.8e1 * t319 * t798 * t553 - 0.4e1 * t120 * t4723 - 0.4e1 * t120 * t4732 + 0.4e1 * t120 * t4735 + 0.4e1 * t120 * t4794 + 0.8e1 * t1315 * t2099 + 0.8e1 * t1617 * t1783 + 0.4e1 * t319 * t4726 - 0.4e1 * t319 * t4784 + 0.4e1 * t319 * t4791 - t78 * t4718;
1369   t4884 = 0.2e1 * t120 * t160 * t2091 * t90 + 0.2e1 * t120 * t71 * (0.5e1 / 0.54e2 * t1983 - 0.125e3 / 0.2916e4 * t2082 * t4251 * t4253 - 0.5e1 / 0.27e2 * t1985 + 0.125e3 / 0.4374e4 * t2082 * t4258 * t4253 + 0.5e1 / 0.162e3 * t1989 - 0.25e2 / 0.8748e4 * t2349 * t2087 * t4253) * t90 - 0.2e1 * t120 * t2092 * t184 + 0.2e1 * t319 * t2111 * t163 - 0.4e1 * t120 * t1620 * t295 - 0.4e1 * t120 * t1624 * t295 - 0.4e1 * t120 * t745 * t636 - 0.4e1 * t120 * t1635 * t295 - 0.4e1 * t120 * t1651 * t295 - 0.4e1 * t120 * t759 * t636 - 0.2e1 * t120 * t1760 * t255 - 0.2e1 * t120 * t1775 * t255 - 0.4e1 * t120 * t593 * t785 - 0.4e1 * t120 * t607 * t785 - 0.4e1 * t120 * t279 * t1708 + 0.24e2 * t1735 * t4784 - 0.24e2 * t1735 * t4791;
1370   t4937 = -0.16e2 * t1315 * t2058 - 0.16e2 * t588 * t802 * t509 + 0.16e2 * t588 * t1753 * t235 - 0.16e2 * t1742 * t4794 - 0.8e1 * t3876 * t1608 + 0.48e2 * t1735 * t589 * t238 * t606 - 0.32e2 * t588 * t589 * t1624 - 0.96e2 * t4001 * t802 * t1602 + 0.48e2 * t1311 * t802 * t238 * t160 + 0.48e2 * t1735 * t589 * t758 * t163 - 0.32e2 * t588 * t589 * t1635 + 0.48e2 * t1311 * t802 * t235 * t163 - 0.24e2 * t1311 * t1782 * t1602 + 0.12e2 * t1311 * t1756 * t1602 - t120 * t512 * t837 - t120 * t238 * t1824 - 0.2e1 * t120 * t797 * t553 - t120 * t163 * t2137;
1371   t4953 = t263 * t2145 * t447;
1372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1373     v4rhosigmatau2[0] = -t464 * t2142 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t116 * (t4766 + t4818 + t4884 + t4937) * t108 - 0.24739500000000000000e1 * t197 * t198 * t2140 * t206 + 0.92773125000000000000e0 * t263 * t7 * t1827 * t269 + 0.11132775000000000000e2 * t4953 * t575 - 0.15101552267946798162e2 * t5 * t2145 * t579 * t583;
1374 
1375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1376     v4rholapl3[0] = 0.0e0;
1377 
1378   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1379     v4rholapl2tau[0] = 0.0e0;
1380 
1381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1382     v4rholapltau2[0] = 0.0e0;
1383 
1384   t5007 = my_piecewise3(t79, (0.10000e5 / 0.81e2 * t2114 - 0.40000e5 / 0.729e3 * t2191 * t136 * t4302 - 0.200000e6 / 0.6561e4 * t2629 * t4369 * t4306 + 0.50000e5 / 0.729e3 * t2118) * t85 + t2198 * t175 * t85 + 0.3e1 * t1805 * t290 * t85 + 0.3e1 * t826 * t624 * t85 + 0.3e1 * t2200 * t176 + 0.3e1 * t829 * t624 + t2203 * t175 * t85, -0.40000e5 / 0.729e3 * t177 * t1007 * t2170 * t4333 + 0.10000e5 / 0.81e2 * t2130 - 0.20000e5 / 0.243e3 * t422 * t1024 * t2170 * t4333 + 0.10000e5 / 0.81e2 * t2132 - 0.20000e5 / 0.729e3 * t1022 * t2441 * t2170 * t4333 + 0.5000e4 / 0.243e3 * t2134 - 0.5000e4 / 0.2187e4 * t2459 * t2461 * t2170 * t4333);
1385   t5034 = t1318 * t812;
1386   t5041 = t160 * t2150 * t90;
1387   t5047 = t589 * t1774;
1388   t5050 = t1322 * t812;
1389   t5053 = t2167 * t163;
1390   t5056 = t1782 * t606;
1391   t5077 = -t78 * t5007 + 0.1174e1 * t5007 + 0.2e1 * t120 * t160 * t2180 * t90 + 0.2e1 * t120 * t71 * (-0.50e2 / 0.81e2 * t2083 + 0.250e3 / 0.729e3 * t2171 * t4251 * t4253 + 0.100e3 / 0.81e2 * t2085 - 0.500e3 / 0.2187e4 * t2171 * t4258 * t4253 - 0.50e2 / 0.243e3 * t2089 + 0.50e2 / 0.2187e4 * t2349 * t2176 * t4253) * t90 + 0.24e2 * t319 * t798 * t636 + 0.6e1 * t120 * t5034 - 0.48e2 * t877 * t2151 * t184 - 0.24e2 * t319 * t5041 + 0.24e2 * t319 * t2155 * t184 + 0.6e1 * t120 * t5047 - 0.6e1 * t120 * t5050 + 0.12e2 * t319 * t5053 - 0.12e2 * t120 * t5056 - 0.6e1 * t120 * t279 * t1824 - 0.2e1 * t120 * t2181 * t184 - 0.6e1 * t120 * t1760 * t295 - 0.6e1 * t120 * t1775 * t295 - 0.6e1 * t120 * t813 * t636 - 0.6e1 * t120 * t593 * t837;
1392   t5106 = t278 * t837;
1393   t5112 = t2180 * t90;
1394   t5116 = t812 * t295;
1395   t5122 = t877 * t2149;
1396   t5123 = t802 * t606;
1397   t5126 = t2150 * t90;
1398   t5127 = t5126 * t163;
1399   t5132 = t2234 * t2149;
1400   t5135 = -0.6e1 * t120 * t607 * t837 - 0.6e1 * t120 * t797 * t636 - t120 * t163 * t2214 + 0.72e2 * t1735 * t589 * t812 * t163 - 0.48e2 * t588 * t589 * t1760 - 0.72e2 * t1735 * t5053 + 0.48e2 * t588 * t2167 * t160 + 0.48e2 * t1742 * t5056 - 0.24e2 * t1742 * t5034 - 0.24e2 * t1742 * t5047 + 0.24e2 * t1742 * t5050 + 0.12e2 * t588 * t5106 * t163 - 0.12e2 * t3876 * t1757 - 0.4e1 * t588 * t5112 * t163 + 0.12e2 * t588 * t5116 * t163 + 0.144e3 * t1735 * t5041 + 0.144e3 * t5122 * t5123 + 0.72e2 * t1311 * t5127 - 0.72e2 * t588 * t5123 - 0.192e3 * t5132 * t5127;
1401   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1402     v4rhotau3[0] = -t464 * t2219 / 0.4e1 - 0.3e1 / 0.16e2 * t115 * t116 * (t5077 + t5135) * t108 - 0.24739500000000000000e1 * t197 * t198 * t2217 * t206;
1403 
1404   t5158 = t648 * t648;
1405   t5168 = t683 * t683;
1406   t5193 = t680 * t680;
1407   t5197 = t50 * t661;
1408   t5199 = t10 * t13;
1409   t5200 = t5199 * t231;
1410   t5227 = t548 * t18;
1411   t5231 = t33 * t10;
1412   t5240 = t697 * t697;
1413   t5246 = t699 * t699;
1414   t5252 = t2419 * t5199 * t17;
1415   t5268 = my_piecewise3(t79, (-0.625e3 / 0.46656e5 * params->c1 * t661 * t136 * t5227 - 0.3125e4 / 0.419904e6 * t2629 * t661 * t30 * t5231) * t85 + 0.4e1 * t1889 * t248 * t85 + 0.3e1 * t5240 * t85 + 0.6e1 * t697 * t699 * t85 + t5246 * t85, -0.625e3 / 0.46656e5 * t177 * t1007 * t661 * t5252 - 0.625e3 / 0.31104e5 * t422 * t1024 * t661 * t5252 - 0.625e3 / 0.93312e5 * t1022 * t2441 * t661 * t5252 - 0.625e3 / 0.1119744e7 * t2459 * t2461 * t661 * t5252);
1416   t5271 = -0.24e2 * t2234 * t5158 * t90 + 0.36e2 * t877 * t649 * t683 - 0.24e2 * t877 * t1836 * t255 - 0.6e1 * t319 * t5168 * t90 + 0.24e2 * t319 * t686 * t683 - 0.8e1 * t319 * t239 * t1873 + 0.12e2 * t319 * t648 * t711 + t120 * (0.729e3 / 0.12800e5 * t343 * t661 * t351 - 0.6561e4 / 0.256000e6 * t912 * sigma[0] * t1854 * t920 + 0.531441e6 / 0.40960000e8 * t2290 * t35 / t914 * t45 + 0.6e1 * t5193 + 0.8e1 * t235 * t1870 + 0.2e1 * t71 * (0.125e3 / 0.1492992e7 * t5197 * t4251 * t5200 - 0.125e3 / 0.2239488e7 * t5197 * t4258 * t5200 + 0.25e2 / 0.4478976e7 * t2349 * t661 * t136 * t5200)) * t90 - 0.4e1 * t120 * t1873 * t255 - 0.6e1 * t120 * t683 * t711 - 0.4e1 * t120 * t238 * t1905 - t78 * t5268 + 0.1174e1 * t5268;
1417   t5299 = 0.1e1 / t97 / t344;
1418   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1419     v4sigma4[0] = -0.57490892889072416015e2 * t265 * t4182 * t10 * t99 * t202 * t107 + 0.17330244833041936391e2 * t2222 / t913 * t37 * t2546 + 0.34068677267598468749e2 * t720 * t1953 - 0.3e1 / 0.16e2 * t115 * t116 * t5271 * t108 - 0.15655464843750000000e2 * t570 * t18 * t1951 * t725 + 0.25048743750000000000e2 * t1566 * t1931 - 0.10958825390625000000e3 * t2951 * t1049 * t1595 * t107 * t1051 * t30 * t95 - 0.12775753975349425781e2 * t265 * t1935 * t447 * t2546 - 0.17394960937500000000e1 * t265 * t203 * t95 * t1935 * t107 + 0.63709673630400554752e2 * t5 * t264 * t5299 * t739 + 0.27831937500000000000e1 * t720 * t1944 - 0.67956985205760591732e2 * t5 * t719 * t1935 * t739 + 0.27251765789225942561e0 * t1283 * t32 * t5299 * t1938 - 0.27831937500000000000e1 * t1914 * t731 + 0.33978492602880295866e2 * t5 * t1913 * t735 * t739 + 0.12524371875000000000e3 * t3246 * t1927 - 0.17441130105104603239e0 * t3250 * t1939 - 0.93932789062500000000e2 * t1276 * t1049 * t735 * t1926 - 0.25048743750000000000e2 * t4161 * t726 + 0.37109250000000000000e1 * t263 * t7 * t1908 * t269;
1420 
1421   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1422     v4sigma3lapl[0] = 0.0e0;
1423 
1424   t5378 = 0.36e2 * t1311 * t238 * t589 * t683 + 0.36e2 * t1311 * t1631 * t648 - 0.36e2 * t1311 * t1658 * t648 - 0.12e2 * t1631 * t588 * t683 + 0.12e2 * t1658 * t588 * t683 - 0.48e2 * t1836 * t3080 * t589 - 0.4e1 * t1873 * t588 * t589 - 0.12e2 * t238 * t4610 * t588 + 0.24e2 * t238 * t4617 * t588 + 0.12e2 * t238 * t4621 * t588 + 0.6e1 * t319 * t683 * t766 - 0.24e2 * t1617 * t1961 + 0.24e2 * t1617 * t1964 - 0.12e2 * t1617 * t1967 + 0.36e2 * t1956 * t3705 - 0.12e2 * t4525 * t742;
1425   t5383 = 0.1e1 / t21 / t140;
1426   t5384 = t50 * t5383;
1427   t5470 = my_piecewise3(t79, (0.625e3 / 0.5832e4 * params->c1 * t5383 * t136 * t5227 + 0.3125e4 / 0.52488e5 * t2629 * t5383 * t30 * t5231) * t85 + 0.3e1 * t2017 * t248 * t85 + 0.3e1 * t774 * t697 * t85 + 0.3e1 * t774 * t699 * t85 + t290 * t1889 * t85 + 0.3e1 * t2022 * t249 + t290 * t1894 * t85, 0.625e3 / 0.5832e4 * t177 * t1007 * t5383 * t5252 + 0.625e3 / 0.3888e4 * t422 * t1024 * t5383 * t5252 + 0.625e3 / 0.11664e5 * t1022 * t2441 * t5383 * t5252 + 0.625e3 / 0.139968e6 * t2459 * t2461 * t5383 * t5252);
1428   t5487 = -0.6e1 * t120 * t745 * t711 + 0.2e1 * t120 * t71 * (-0.125e3 / 0.186624e6 * t5384 * t4251 * t5200 + 0.125e3 / 0.279936e6 * t5384 * t4258 * t5200 - 0.25e2 / 0.559872e6 * t2349 * t5383 * t136 * t5200) * t90 - 0.6e1 * t120 * t1992 * t255 - 0.6e1 * t120 * t759 * t711 + 0.2e1 * t120 * t1870 * t278 * t90 + 0.6e1 * t120 * t680 * t758 * t90 - 0.6e1 * t120 * t1970 * t255 + 0.6e1 * t120 * t235 * t1991 * t90 - 0.12e2 * t120 * t1974 * t255 - 0.2e1 * t120 * t279 * t1905 - t78 * t5470 - t120 * t1873 * t295 - 0.3e1 * t120 * t683 * t785 - 0.3e1 * t120 * t238 * t2035 + 0.6e1 * t319 * t648 * t785 + 0.1174e1 * t5470 - 0.6e1 * t877 * t1836 * t295;
1429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1430     v4sigma3tau[0] = -0.3e1 / 0.16e2 * t115 * t116 * (t5378 + t5487) * t108 + 0.27831937500000000000e1 * t263 * t7 * t2038 * t269 - 0.12524371875000000000e2 * t4644 * t726 - 0.13915968750000000000e1 * t2044 * t731 + 0.16989246301440147933e2 * t5 * t2043 * t735 * t739 + 0.31310929687500000000e2 * t3851 * t1927 + 0.62621859375000000000e1 * t1726 * t1931 - 0.43602825262761508097e-1 * t3855 * t1939 + 0.69579843750000000000e0 * t794 * t1944 - 0.16989246301440147934e2 * t5 * t793 * t1935 * t739 + 0.85171693168996171873e1 * t794 * t1953;
1431 
1432   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1433     v4sigma2lapl2[0] = 0.0e0;
1434 
1435   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1436     v4sigma2lapltau[0] = 0.0e0;
1437 
1438   t5525 = t802 * t683;
1439   t5528 = t802 * t648;
1440   t5533 = t2071 * t238;
1441   t5547 = t589 * t1991;
1442   t5550 = t1658 * t758;
1443   t5553 = 0.12e2 * t1311 * t1756 * t648 + 0.32e2 * t2071 * t235 * t588 - 0.8e1 * t238 * t4748 * t588 + 0.8e1 * t238 * t4767 * t588 - 0.16e2 * t588 * t680 * t802 - 0.8e1 * t1617 * t2074 + 0.24e2 * t1735 * t5525 - 0.48e2 * t1735 * t5533 - 0.16e2 * t1742 * t5547 + 0.32e2 * t1742 * t5550 - 0.16e2 * t1961 * t3876 - 0.96e2 * t4001 * t5528;
1444   t5572 = 0.1e1 / t21 / t139;
1445   t5590 = t774 * t774;
1446   t5619 = my_piecewise3(t79, (-0.625e3 / 0.729e3 * params->c1 * t5572 * t136 * t5227 - 0.3125e4 / 0.6561e4 * t2629 * t5572 * t30 * t5231) * t85 + 0.2e1 * t2120 * t248 * t85 + t826 * t697 * t85 + t826 * t699 * t85 + 0.2e1 * t5590 * t85 + 0.4e1 * t776 * t775 + 0.2e1 * t291 * t2017 + t828 * t697 * t85 + t828 * t699 * t85, -0.625e3 / 0.729e3 * t177 * t1007 * t5572 * t5252 - 0.625e3 / 0.486e3 * t422 * t1024 * t5572 * t5252 - 0.625e3 / 0.1458e4 * t1022 * t2441 * t5572 * t5252 - 0.625e3 / 0.17496e5 * t2459 * t2461 * t5572 * t5252);
1447   t5627 = t758 * t758;
1448   t5638 = 0.8e1 * t588 * t1782 * t683 + 0.16e2 * t1617 * t2099 + 0.16e2 * t588 * t4779 * t238 - 0.4e1 * t588 * t1756 * t683 - 0.24e2 * t1311 * t1782 * t648 + 0.16e2 * t588 * t4773 * t238 + 0.1174e1 * t5619 + 0.12e2 * t877 * t5528 - 0.16e2 * t319 * t666 * t797 * t90 - 0.16e2 * t319 * t72 * t5627 * t90 - 0.4e1 * t120 * t279 * t2035 - 0.4e1 * t120 * t1992 * t295;
1449   t5643 = t50 * t5572;
1450   t5687 = -0.8e1 * t120 * t759 * t785 + 0.2e1 * t120 * t71 * (0.125e3 / 0.23328e5 * t5643 * t4251 * t5200 - 0.125e3 / 0.34992e5 * t5643 * t4258 * t5200 + 0.25e2 / 0.69984e5 * t2349 * t5572 * t136 * t5200) * t90 - 0.4e1 * t120 * t2092 * t255 - 0.2e1 * t120 * t813 * t711 + 0.2e1 * t120 * t680 * t812 * t90 + 0.4e1 * t120 * t235 * t2091 * t90 - 0.4e1 * t120 * t2077 * t255 + 0.8e1 * t319 * t798 * t711 - 0.4e1 * t319 * t5525 + 0.8e1 * t319 * t5533 + 0.4e1 * t120 * t5547 - 0.8e1 * t120 * t5550;
1451   t5723 = 0.96e2 * t1311 * t235 * t238 * t802 + 0.96e2 * t1735 * t238 * t589 * t758 - 0.4e1 * t120 * t1970 * t295 - 0.8e1 * t120 * t1974 * t295 - 0.2e1 * t120 * t2137 * t238 + 0.4e1 * t120 * t5627 * t90 - t120 * t683 * t837 - 0.2e1 * t120 * t711 * t797 - 0.8e1 * t120 * t745 * t785 - 0.64e2 * t1974 * t588 * t589 + 0.2e1 * t319 * t648 * t837 - t5619 * t78;
1452   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1453     v4sigma2tau2[0] = -0.3e1 / 0.16e2 * t115 * t116 * (t5553 + t5638 + t5687 + t5723) * t108 + 0.18554625000000000000e1 * t263 * t7 * t2140 * t269 - 0.41747906250000000000e1 * t4953 * t726 - 0.46386562500000000000e0 * t2146 * t731 + 0.56630821004800493110e1 * t5 * t2145 * t735 * t739;
1454 
1455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1456     v4sigmalapl3[0] = 0.0e0;
1457 
1458   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1459     v4sigmalapl2tau[0] = 0.0e0;
1460 
1461   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1462     v4sigmalapltau2[0] = 0.0e0;
1463 
1464   t5745 = t802 * t758;
1465   t5748 = t1631 * t812;
1466   t5751 = t589 * t2091;
1467   t5754 = t1658 * t812;
1468   t5795 = -0.6e1 * t120 * t2077 * t295 - 0.6e1 * t120 * t2092 * t295 - 0.6e1 * t120 * t2137 * t279 - 0.6e1 * t120 * t745 * t837 - 0.6e1 * t120 * t759 * t837 - 0.6e1 * t120 * t785 * t813 + 0.24e2 * t2155 * t255 * t319 + 0.12e2 * t238 * t5106 * t588 - 0.4e1 * t238 * t5112 * t588 + 0.12e2 * t238 * t5116 * t588 + 0.24e2 * t319 * t785 * t798 + 0.6e1 * t120 * t5748 + 0.6e1 * t120 * t5751 - 0.6e1 * t120 * t5754 - 0.24e2 * t1742 * t5748 - 0.24e2 * t1742 * t5751 + 0.24e2 * t1742 * t5754 - 0.12e2 * t2074 * t3876 - 0.72e2 * t5745 * t588;
1469   t5796 = t2167 * t238;
1470   t5799 = t1782 * t758;
1471   t5807 = 0.1e1 / t21 / t329;
1472   t5808 = t50 * t5807;
1473   t5828 = t235 * t2150 * t90;
1474   t5838 = t5126 * t238;
1475   t5883 = my_piecewise3(t79, (0.5000e4 / 0.729e3 * params->c1 * t5807 * t136 * t5227 + 0.25000e5 / 0.6561e4 * t2629 * t5807 * t30 * t5231) * t85 + t2198 * t248 * t85 + 0.3e1 * t2120 * t290 * t85 + 0.3e1 * t826 * t774 * t85 + 0.3e1 * t2200 * t249 + 0.3e1 * t829 * t774 + t2203 * t248 * t85, 0.5000e4 / 0.729e3 * t177 * t1007 * t5807 * t5252 + 0.2500e4 / 0.243e3 * t422 * t1024 * t5807 * t5252 + 0.2500e4 / 0.729e3 * t1022 * t2441 * t5807 * t5252 + 0.625e3 / 0.2187e4 * t2459 * t2461 * t5807 * t5252);
1476   t5907 = 0.12e2 * t319 * t5796 - 0.12e2 * t120 * t5799 + 0.2e1 * t120 * t235 * t2180 * t90 + 0.2e1 * t120 * t71 * (-0.125e3 / 0.2916e4 * t5808 * t4251 * t5200 + 0.125e3 / 0.4374e4 * t5808 * t4258 * t5200 - 0.25e2 / 0.8748e4 * t2349 * t5807 * t136 * t5200) * t90 - 0.48e2 * t877 * t2151 * t255 - 0.24e2 * t319 * t5828 - 0.2e1 * t120 * t2181 * t255 + 0.144e3 * t1735 * t5828 + 0.144e3 * t5122 * t5745 + 0.72e2 * t1311 * t5838 - t78 * t5883 + 0.1174e1 * t5883 - 0.6e1 * t120 * t797 * t785 - t120 * t238 * t2214 + 0.72e2 * t1735 * t589 * t812 * t238 - 0.48e2 * t588 * t589 * t2077 - 0.72e2 * t1735 * t5796 + 0.48e2 * t588 * t2167 * t235 + 0.48e2 * t1742 * t5799 - 0.192e3 * t5132 * t5838;
1477   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1478     v4sigmatau3[0] = -0.3e1 / 0.16e2 * t115 * t116 * (t5795 + t5907) * t108 + 0.92773125000000000000e0 * t263 * t7 * t2217 * t269;
1479 
1480   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1481     v4lapl4[0] = 0.0e0;
1482 
1483   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1484     v4lapl3tau[0] = 0.0e0;
1485 
1486   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1487     v4lapl2tau2[0] = 0.0e0;
1488 
1489   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1490     v4lapltau3[0] = 0.0e0;
1491 
1492   t5930 = t826 * t826;
1493   t5936 = t828 * t828;
1494   t5956 = my_piecewise3(t79, (-0.40000e5 / 0.729e3 * params->c1 * t2259 * t136 * t5227 - 0.200000e6 / 0.6561e4 * t2629 * t2259 * t30 * t5231) * t85 + 0.4e1 * t2198 * t290 * t85 + 0.3e1 * t5930 * t85 + 0.6e1 * t826 * t828 * t85 + t5936 * t85, -0.40000e5 / 0.729e3 * t177 * t1007 * t2259 * t5252 - 0.20000e5 / 0.243e3 * t422 * t1024 * t2259 * t5252 - 0.20000e5 / 0.729e3 * t1022 * t2441 * t2259 * t5252 - 0.5000e4 / 0.2187e4 * t2459 * t2461 * t2259 * t5252);
1495   t5958 = t589 * t2180;
1496   t5961 = t1782 * t812;
1497   t5964 = t797 * t797;
1498   t5969 = t802 * t812;
1499   t5974 = t812 * t812;
1500   t5979 = t50 * t2259;
1501   t6018 = t72 * t72;
1502   t6033 = -0.384e3 * t2234 * t5964 * t6018 * t90 - 0.8e1 * t120 * t2214 * t279 + 0.6e1 * t120 * t5974 * t90 - 0.12e2 * t120 * t797 * t837 - 0.192e3 * t2151 * t295 * t877 + 0.96e2 * t2155 * t295 * t319 - 0.24e2 * t319 * t5964 * t90 + 0.48e2 * t319 * t798 * t837 + 0.8e1 * t120 * t5958 - 0.24e2 * t120 * t5961 - t5956 * t78;
1503   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1504     v4tau4[0] = -0.3e1 / 0.16e2 * t115 * t116 * (0.1174e1 * t5956 - 0.32e2 * t1742 * t5958 + 0.96e2 * t1742 * t5961 + 0.288e3 * t877 * t72 * t5964 * t90 + 0.288e3 * t5122 * t5969 - 0.144e3 * t588 * t5969 - 0.24e2 * t319 * t72 * t5974 * t90 + 0.2e1 * t120 * t71 * (0.250e3 / 0.729e3 * t5979 * t4251 * t5200 - 0.500e3 / 0.2187e4 * t5979 * t4258 * t5200 + 0.50e2 / 0.2187e4 * t2349 * t2259 * t136 * t5200) * t90 - 0.8e1 * t120 * t2181 * t295 - 0.12e2 * t120 * t813 * t837 + t6033) * t108;
1505 
1506 #ifndef XC_DONT_COMPILE_MXC
1507 
1508   if(order < 5) return;
1509 
1510 
1511 #endif
1512 
1513 #endif
1514 
1515 #endif
1516 
1517 #endif
1518 
1519 #endif
1520 
1521 
1522 }
1523 
1524 
1525 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 *))1526 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 *))
1527 {
1528 
1529 #ifndef XC_DONT_COMPILE_EXC
1530   double t2, t4, t5, t6, t7, t8, t9, t10;
1531   double t11, t12, t13, t14, t15, t16, t17, t18;
1532   double t19, t20, t21, t25, t26, t27, t28, t29;
1533   double t30, t31, t32, t33, t35, t36, t38, t39;
1534   double t42, t46, t47, t50, t51, t54, t57, t58;
1535   double t60, t62, t65, t66, t67, t72, t73, t74;
1536   double t75, t76, t79, t81, t83, t84, t87, t89;
1537   double t90, t91, t92, t93, t94, t96, t97, t101;
1538   double t102, t104;
1539 
1540 #ifndef XC_DONT_COMPILE_VXC
1541   double t108, t109, t110, t112, t113, t115, t116, t119;
1542   double t121, t126, t127, t128, t129, t130, t131, t132;
1543   double t133, t144, t146, t149, t153, t156, t157, t162;
1544   double t163, t164, t165, t168, t169, t170, t171, t172;
1545   double t173, t177, t180, t181, t185, t186, t187, t188;
1546   double t189, t190, t191, t192, t195, t196, t199, t202;
1547   double t209, t217, t218, t221, t223, t226, t227, t229;
1548   double t230, t233, t235, t236, t238, t240, t243, t244;
1549   double t245, t248, t249, t250, t251, t254, t257, t262;
1550   double t263, t267, t273, t274, t279, t282, t283, t284;
1551 
1552 #ifndef XC_DONT_COMPILE_FXC
1553   double t287, t295, t296, t303, t304, t305, t309, t310;
1554   double t313, t315, t320, t321, t327, t328, t329, t330;
1555   double t332, t334, t335, t338, t346, t347, t350, t353;
1556   double t354, t360, t361, t363, t364, t367, t370, t373;
1557   double t376, t380, t383, t384, t385, t388, t391, t392;
1558   double t393, t394, t396, t398, t399, t406, t407, t408;
1559   double t409, t410, t414, t417, t418, t422, t427, t428;
1560   double t432, t433, t435, t439, t441, t442, t446, t449;
1561   double t452, t463, t464, t466, t468, t476, t477, t479;
1562   double t480, t481, t482, t485, t487, t488, t489, t491;
1563   double t494, t495, t497, t499, t501, t502, t504, t505;
1564   double t507, t508, t510, t513, t515, t516, t517, t520;
1565   double t521, t522, t523, t526, t528, t529, t530, t533;
1566   double t536, t537, t538, t541, t545, t548, t552, t555;
1567   double t556, t557, t559, t564, t565, t566, t569, t574;
1568   double t578, t581, t582, t589, t592, t595, t600, t601;
1569   double t602, t605, t609, t610, t614, t617, t618, t619;
1570   double t622, t626, t627, t638, t640, t642, t645, t647;
1571   double t649, t652, t654, t657, t658, t660, t663, t664;
1572   double t667, t669, t671, t672, t675, t676, t678, t681;
1573   double t684, t685, t686, t689, t693, t694, t697, t702;
1574   double t706, t708, t711, t714, t719, t720, t722, t725;
1575   double t727, t728, t735, t737, t738, t741, t743, t744;
1576   double t745, t749, t750, t752, t755, t758, t759, t760;
1577   double t763, t766, t767, t771, t774, t781, t782, t789;
1578   double t795, t797, t798, t801, t807, t810, t811, t812;
1579 
1580 #ifndef XC_DONT_COMPILE_KXC
1581   double t823, t824, t837, t842, t844, t847, t849, t850;
1582   double t854, t861, t862, t866, t871, t876, t880, t883;
1583   double t884, t885, t886, t887, t891, t892, t903, t904;
1584   double t910, t911, t912, t916, t925, t926, t930, t933;
1585   double t942, t952, t955, t956, t959, t962, t967, t970;
1586   double t971, t974, t975, t976, t979, t980, t981, t993;
1587   double t995, t996, t1000, t1003, t1004, t1008, t1016, t1020;
1588   double t1021, t1022, t1023, t1027, t1029, t1030, t1035, t1036;
1589   double t1040, t1041, t1046, t1050, t1057, t1066, t1079, t1084;
1590   double t1094, t1095, t1097, t1098, t1100, t1101, t1102, t1104;
1591   double t1105, t1106, t1108, t1110, t1111, t1114, t1116, t1117;
1592   double t1119, t1120, t1122, t1123, t1125, t1128, t1129, t1131;
1593   double t1134, t1144, t1145, t1147, t1148, t1150, t1152, t1155;
1594   double t1158, t1160, t1162, t1165, t1168, t1170, t1175, t1180;
1595   double t1181, t1182, t1183, t1185, t1186, t1188, t1190, t1193;
1596   double t1196, t1197, t1199, t1201, t1204, t1207, t1208, t1209;
1597   double t1212, t1220, t1223, t1228, t1231, t1234, t1237, t1238;
1598   double t1240, t1244, t1247, t1251, t1260, t1261, t1264, t1267;
1599   double t1268, t1271, t1272, t1275, t1278, t1282, t1295, t1302;
1600   double t1305, t1306, t1339, t1344, t1349, t1350, t1365, t1368;
1601   double t1369, t1370, t1373, t1381, t1392, t1395, t1408, t1409;
1602   double t1413, t1420, t1422, t1425, t1426, t1428, t1430, t1431;
1603   double t1434, t1436, t1437, t1439, t1442, t1443, t1445, t1450;
1604   double t1453, t1458, t1459, t1461, t1462, t1466, t1469, t1471;
1605   double t1480, t1481, t1482, t1485, t1486, t1488, t1490, t1492;
1606   double t1495, t1498, t1499, t1500, t1503, t1507, t1512, t1516;
1607   double t1519, t1521, t1524, t1526, t1531, t1536, t1538, t1543;
1608   double t1544, t1549, t1552, t1555, t1558, t1561, t1565, t1572;
1609   double t1573, t1576, t1580, t1582, t1584, t1585, t1588, t1589;
1610   double t1591, t1592, t1599, t1600, t1615, t1617, t1622, t1626;
1611   double t1629, t1633, t1635, t1639, t1640, t1641, t1644, t1647;
1612   double t1650, t1653, t1654, t1655, t1656, t1659, t1663, t1668;
1613   double t1673, t1674, t1680, t1681, t1691, t1694, t1695, t1698;
1614   double t1705, t1709, t1712, t1713, t1720, t1721, t1743, t1752;
1615   double t1753, t1763, t1766, t1767, t1768, t1771, t1775, t1776;
1616   double t1782, t1791, t1795, t1800, t1801, t1803, t1805, t1807;
1617   double t1809, t1812, t1813, t1815, t1818, t1821, t1822, t1826;
1618   double t1828, t1830, t1833, t1836, t1837, t1839, t1841, t1844;
1619   double t1847, t1848, t1849, t1852, t1856, t1863, t1865, t1870;
1620   double t1874, t1875, t1877, t1882, t1885, t1888, t1890, t1893;
1621   double t1898, t1901, t1904, t1907, t1911, t1918, t1919, t1920;
1622   double t1922, t1924, t1926, t1928, t1929, t1939, t1942, t1944;
1623   double t1947, t1948, t1952, t1954, t1956, t1959, t1961, t1964;
1624   double t1965, t1967, t1969, t1972, t1975, t1976, t1977, t1980;
1625   double t1984, t1991, t1994, t1997, t2007, t2010, t2013, t2017;
1626   double t2018, t2019, t2021, t2023, t2025, t2027, t2028, t2035;
1627   double t2047, t2049, t2050, t2054, t2056, t2058, t2062, t2065;
1628   double t2066, t2068, t2070, t2073, t2076, t2077, t2078, t2081;
1629   double t2084, t2085, t2086, t2090, t2094, t2102, t2105, t2106;
1630   double t2111, t2115, t2116, t2126, t2133, t2135, t2138, t2141;
1631   double t2149, t2152, t2153, t2154;
1632 
1633 #ifndef XC_DONT_COMPILE_LXC
1634   double t2161, t2172, t2173, t2183, t2197, t2198, t2218, t2226;
1635   double t2228, t2236, t2246, t2255, t2263, t2265, t2267, t2268;
1636   double t2272, t2287, t2290, t2293, t2322, t2325, t2329, t2348;
1637   double t2354, t2358, t2359, t2362, t2370, t2376, t2380, t2397;
1638   double t2398, t2399, t2400, t2405, t2406, t2409, t2419, t2443;
1639   double t2447, t2455, t2494, t2499, t2501, t2502, t2522, t2541;
1640   double t2552, t2564, t2569, t2572, t2600, t2610, t2614, t2633;
1641   double t2646, t2648, t2649, t2659, t2665, t2672, t2688, t2689;
1642   double t2700, t2721, t2769, t2777, t2780, t2789, t2790, t2793;
1643   double t2794, t2805, t2808, t2819, t2836, t2867, t2871, t2875;
1644   double t2893, t2919, t2939, t2946, t2974, t2975, t2991, t2997;
1645   double t3007, t3011, t3018, t3022, t3026, t3058, t3106, t3175;
1646   double t3189, t3192, t3219, t3234, t3238, t3245, t3249, t3270;
1647   double t3271, t3299, t3316, t3322, t3326, t3340, t3355, t3368;
1648   double t3382, t3393, t3402, t3427, t3454, t3503, t3513, t3532;
1649   double t3533, t3565, t3575, t3586, t3598, t3602, t3609, t3611;
1650   double t3617, t3664, t3697, t3735, t3758, t3777, t3780, t3783;
1651   double t3786, t3792, t3804, t3808, t3815, t3819, t3833, t3836;
1652   double t3869, t3877, t3900, t3914, t3947, t3968, t3987, t3988;
1653   double t3997, t4015, t4035, t4080, t4102, t4105, t4107, t4115;
1654   double t4155, t4159, t4187, t4190, t4210, t4213, t4223, t4237;
1655   double t4242, t4248, t4281, t4315, t4336, t4371, t4404, t4409;
1656   double t4413, t4415, t4421, t4480, t4531, t4547, t4596, t4617;
1657   double t4626, t4629, t4632, t4639, t4642, t4645, t4651, t4662;
1658   double t4670, t4677, t4692, t4696, t4712, t4780, t4836, t4852;
1659   double t4902, t4910, t4911, t4916, t4919, t4920, t4921, t4924;
1660   double t4927, t4933, t4940, t4943, t4946, t4950, t4954, t4958;
1661   double t5029, t5041, t5075, t5085, t5110, t5115, t5142, t5151;
1662   double t5157, t5176, t5179, t5231, t5236, t5274, t5302, t5318;
1663   double t5366, t5396, t5401, t5414, t5442, t5444, t5459, t5462;
1664   double t5465, t5468, t5471, t5477, t5511, t5543, t5556, t5596;
1665   double t5619, t5625, t5628, t5631, t5636, t5639, t5642, t5655;
1666   double t5660, t5697, t5708, t5714, t5736, t5776, t5785, t5790;
1667   double t5793, t5796, t5799, t5810, t5819, t5825, t5844, t5862;
1668   double t5881, t5898;
1669 #endif
1670 
1671 #endif
1672 
1673 #endif
1674 
1675 #endif
1676 
1677 #endif
1678 
1679 
1680   mgga_x_scan_params *params;
1681 
1682   assert(p->params != NULL);
1683   params = (mgga_x_scan_params * )(p->params);
1684 
1685   t2 = M_CBRT3;
1686   t4 = POW_1_3(0.1e1 / M_PI);
1687   t5 = t2 * t4;
1688   t6 = M_CBRT4;
1689   t7 = t6 * t6;
1690   t8 = t5 * t7;
1691   t9 = POW_1_3(rho[0]);
1692   t10 = M_CBRT6;
1693   t11 = M_PI * M_PI;
1694   t12 = POW_1_3(t11);
1695   t13 = t12 * t12;
1696   t14 = 0.1e1 / t13;
1697   t15 = t10 * t14;
1698   t16 = rho[0] * rho[0];
1699   t17 = t9 * t9;
1700   t18 = t17 * t16;
1701   t19 = 0.1e1 / t18;
1702   t20 = sigma[0] * t19;
1703   t21 = t15 * t20;
1704   t25 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
1705   t26 = t10 * t10;
1706   t27 = t25 * t26;
1707   t28 = t12 * t11;
1708   t29 = 0.1e1 / t28;
1709   t30 = t27 * t29;
1710   t31 = sigma[0] * sigma[0];
1711   t32 = t16 * t16;
1712   t33 = t32 * rho[0];
1713   t35 = 0.1e1 / t9 / t33;
1714   t36 = t31 * t35;
1715   t38 = t14 * sigma[0];
1716   t39 = t38 * t19;
1717   t42 = exp(-0.27e2 / 0.80e2 * t25 * t10 * t39);
1718   t46 = sqrt(0.146e3);
1719   t47 = t46 * t10;
1720   t50 = t17 * rho[0];
1721   t51 = 0.1e1 / t50;
1722   t54 = tau[0] * t51 - t20 / 0.8e1;
1723   t57 = 0.5e1 / 0.9e1 * t54 * t10 * t14;
1724   t58 = 0.1e1 - t57;
1725   t60 = t58 * t58;
1726   t62 = exp(-t60 / 0.2e1);
1727   t65 = 0.7e1 / 0.12960e5 * t47 * t39 + t46 * t58 * t62 / 0.100e3;
1728   t66 = t65 * t65;
1729   t67 = params->k1 + 0.5e1 / 0.972e3 * t21 + t30 * t36 * t42 / 0.576e3 + t66;
1730   t72 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t67);
1731   t73 = t57 <= 0.1e1;
1732   t74 = params->c1 * t54;
1733   t75 = 0.1e1 / t58;
1734   t76 = t15 * t75;
1735   t79 = exp(-0.5e1 / 0.9e1 * t74 * t76);
1736   t81 = exp(params->c2 * t75);
1737   t83 = my_piecewise3(t73, t79, -params->d * t81);
1738   t84 = 0.1e1 - t83;
1739   t87 = t72 * t84 + 0.1174e1 * t83;
1740   t89 = sqrt(0.3e1);
1741   t90 = 0.1e1 / t12;
1742   t91 = t26 * t90;
1743   t92 = sqrt(sigma[0]);
1744   t93 = t9 * rho[0];
1745   t94 = 0.1e1 / t93;
1746   t96 = t91 * t92 * t94;
1747   t97 = sqrt(t96);
1748   t101 = exp(-0.98958000000000000000e1 * t89 / t97);
1749   t102 = 0.1e1 - t101;
1750   t104 = t8 * t9 * t87 * t102;
1751   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1752     zk[0] = -0.3e1 / 0.8e1 * t104;
1753 
1754 #ifndef XC_DONT_COMPILE_VXC
1755 
1756   if(order < 1) return;
1757 
1758 
1759   t108 = t93 * t2 * t4;
1760   t109 = params->k1 * params->k1;
1761   t110 = t67 * t67;
1762   t112 = t109 / t110;
1763   t113 = t16 * rho[0];
1764   t115 = 0.1e1 / t17 / t113;
1765   t116 = sigma[0] * t115;
1766   t119 = t32 * t16;
1767   t121 = 0.1e1 / t9 / t119;
1768   t126 = t25 * t25;
1769   t127 = t11 * t11;
1770   t128 = 0.1e1 / t127;
1771   t129 = t126 * t128;
1772   t130 = t31 * sigma[0];
1773   t131 = t32 * t32;
1774   t132 = t131 * rho[0];
1775   t133 = 0.1e1 / t132;
1776   t144 = -0.5e1 / 0.3e1 * tau[0] * t19 + t116 / 0.3e1;
1777   t146 = t15 * t62;
1778   t149 = t46 * t60;
1779   t153 = -0.7e1 / 0.4860e4 * t47 * t38 * t115 - t46 * t144 * t146 / 0.180e3 + t149 * t144 * t146 / 0.180e3;
1780   t156 = -0.10e2 / 0.729e3 * t15 * t116 - t30 * t31 * t121 * t42 / 0.108e3 + 0.3e1 / 0.320e3 * t129 * t130 * t133 * t42 + 0.2e1 * t65 * t153;
1781   t157 = t156 * t84;
1782   t162 = t74 * t26;
1783   t163 = 0.1e1 / t60;
1784   t164 = t29 * t163;
1785   t165 = t164 * t144;
1786   t168 = -0.5e1 / 0.9e1 * params->c1 * t144 * t76 - 0.25e2 / 0.81e2 * t162 * t165;
1787   t169 = t168 * t79;
1788   t170 = params->d * params->c2;
1789   t171 = t170 * t163;
1790   t172 = t144 * t10;
1791   t173 = t14 * t81;
1792   t177 = my_piecewise3(t73, t169, -0.5e1 / 0.9e1 * t171 * t172 * t173);
1793   t180 = t112 * t157 - t72 * t177 + 0.1174e1 * t177;
1794   t181 = t7 * t180;
1795   t185 = 0.1e1 / rho[0];
1796   t186 = pow(0.3e1, 0.1e1 / 0.6e1);
1797   t187 = t186 * t186;
1798   t188 = t187 * t187;
1799   t189 = t188 * t186;
1800   t190 = t185 * t189;
1801   t191 = t4 * t7;
1802   t192 = t191 * t87;
1803   t195 = 0.1e1 / t97 / t96;
1804   t196 = t195 * t26;
1805   t199 = t196 * t90 * t92 * t101;
1806   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1807     vrho[0] = -t104 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t181 * t102 - 0.24739500000000000000e1 * t190 * t192 * t199;
1808 
1809   t202 = t19 * t10;
1810   t209 = 0.1e1 / t131;
1811   t217 = t46 * t19;
1812   t218 = t217 * t146;
1813   t221 = t149 * t19 * t146;
1814   t223 = 0.7e1 / 0.12960e5 * t47 * t14 * t19 + t218 / 0.1440e4 - t221 / 0.1440e4;
1815   t226 = 0.5e1 / 0.972e3 * t202 * t14 + t30 * sigma[0] * t35 * t42 / 0.288e3 - 0.9e1 / 0.2560e4 * t129 * t31 * t209 * t42 + 0.2e1 * t65 * t223;
1816   t227 = t226 * t84;
1817   t229 = params->c1 * t19;
1818   t230 = t229 * t76;
1819   t233 = t162 * t164 * t19;
1820   t235 = 0.5e1 / 0.72e2 * t230 + 0.25e2 / 0.648e3 * t233;
1821   t236 = t235 * t79;
1822   t238 = t171 * t202 * t173;
1823   t240 = my_piecewise3(t73, t236, 0.5e1 / 0.72e2 * t238);
1824   t243 = t112 * t227 - t72 * t240 + 0.1174e1 * t240;
1825   t244 = t7 * t243;
1826   t245 = t244 * t102;
1827   t248 = t189 * t4;
1828   t249 = t7 * t87;
1829   t250 = t248 * t249;
1830   t251 = 0.1e1 / t92;
1831   t254 = t196 * t90 * t251 * t101;
1832   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1833     vsigma[0] = -0.3e1 / 0.8e1 * t108 * t245 + 0.92773125000000000000e0 * t250 * t254;
1834 
1835   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1836     vlapl[0] = 0.0e0;
1837 
1838   t257 = t46 * t51;
1839   t262 = t149 * t51 * t146 / 0.180e3 - t257 * t146 / 0.180e3;
1840   t263 = t65 * t262;
1841   t267 = params->c1 * t51;
1842   t273 = -0.5e1 / 0.9e1 * t267 * t76 - 0.25e2 / 0.81e2 * t162 * t164 * t51;
1843   t274 = t273 * t79;
1844   t279 = my_piecewise3(t73, t274, -0.5e1 / 0.9e1 * t171 * t51 * t10 * t173);
1845   t282 = 0.2e1 * t112 * t263 * t84 - t72 * t279 + 0.1174e1 * t279;
1846   t283 = t7 * t282;
1847   t284 = t283 * t102;
1848   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1849     vtau[0] = -0.3e1 / 0.8e1 * t108 * t284;
1850 
1851 #ifndef XC_DONT_COMPILE_FXC
1852 
1853   if(order < 2) return;
1854 
1855 
1856   t287 = 0.1e1 / t17;
1857   t295 = 0.1e1 / t16;
1858   t296 = t7 * t295;
1859   t303 = t109 / t110 / t67;
1860   t304 = t156 * t156;
1861   t305 = t304 * t84;
1862   t309 = 0.1e1 / t17 / t32;
1863   t310 = sigma[0] * t309;
1864   t313 = t32 * t113;
1865   t315 = 0.1e1 / t9 / t313;
1866   t320 = t131 * t16;
1867   t321 = 0.1e1 / t320;
1868   t327 = t126 * t25 * t128;
1869   t328 = t31 * t31;
1870   t329 = t327 * t328;
1871   t330 = t131 * t32;
1872   t332 = 0.1e1 / t17 / t330;
1873   t334 = t14 * t42;
1874   t335 = t332 * t10 * t334;
1875   t338 = t153 * t153;
1876   t346 = 0.40e2 / 0.9e1 * tau[0] * t115 - 0.11e2 / 0.9e1 * t310;
1877   t347 = t46 * t346;
1878   t350 = t144 * t144;
1879   t353 = t29 * t58;
1880   t354 = t353 * t62;
1881   t360 = t60 * t58;
1882   t361 = t46 * t360;
1883   t363 = t26 * t29;
1884   t364 = t363 * t62;
1885   t367 = 0.77e2 / 0.14580e5 * t47 * t38 * t309 - t347 * t146 / 0.180e3 - t46 * t350 * t26 * t354 / 0.108e3 + t149 * t346 * t146 / 0.180e3 + t361 * t350 * t364 / 0.324e3;
1886   t370 = 0.110e3 / 0.2187e4 * t15 * t310 + 0.19e2 / 0.324e3 * t30 * t31 * t315 * t42 - 0.43e2 / 0.320e3 * t129 * t130 * t321 * t42 + 0.27e2 / 0.3200e4 * t329 * t335 + 0.2e1 * t338 + 0.2e1 * t65 * t367;
1887   t373 = t156 * t177;
1888   t376 = params->c1 * t346;
1889   t380 = t363 * t163;
1890   t383 = 0.1e1 / t360;
1891   t384 = t128 * t383;
1892   t385 = t384 * t350;
1893   t388 = t164 * t346;
1894   t391 = -0.5e1 / 0.9e1 * t376 * t76 - 0.50e2 / 0.81e2 * params->c1 * t350 * t380 - 0.500e3 / 0.243e3 * t74 * t385 - 0.25e2 / 0.81e2 * t162 * t388;
1895   t392 = t391 * t79;
1896   t393 = t168 * t168;
1897   t394 = t393 * t79;
1898   t396 = t170 * t383;
1899   t398 = t29 * t81;
1900   t399 = t350 * t26 * t398;
1901   t406 = params->c2 * params->c2;
1902   t407 = params->d * t406;
1903   t408 = t60 * t60;
1904   t409 = 0.1e1 / t408;
1905   t410 = t407 * t409;
1906   t414 = my_piecewise3(t73, t392 + t394, -0.50e2 / 0.81e2 * t396 * t399 - 0.5e1 / 0.9e1 * t171 * t346 * t10 * t173 - 0.25e2 / 0.81e2 * t410 * t399);
1907   t417 = -0.2e1 * t303 * t305 + t112 * t370 * t84 - 0.2e1 * t112 * t373 - t72 * t414 + 0.1174e1 * t414;
1908   t418 = t7 * t417;
1909   t422 = t191 * t180;
1910   t427 = 0.1e1 / t9 / t113;
1911   t428 = t427 * t189;
1912   t432 = 0.1e1 / t97 / t21 / 0.6e1;
1913   t433 = t432 * t10;
1914   t435 = t433 * t38 * t101;
1915   t439 = t17 * t2 * t191;
1916   t441 = t15 * t101;
1917   t442 = t87 * t251 * t441;
1918   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1919     v2rho2[0] = -t8 * t287 * t87 * t102 / 0.6e1 - t8 * t9 * t180 * t102 - 0.8246500000000000000e0 * t248 * t296 * t87 * t199 - 0.3e1 / 0.8e1 * t108 * t418 * t102 - 0.49479000000000000000e1 * t190 * t422 * t199 - 0.29687400000000000000e2 * t428 * t192 * t435 + 0.80541612095716256868e2 * t439 * t442;
1920 
1921   t446 = t9 * t2 * t4;
1922   t449 = t227 * t156;
1923   t452 = t115 * t10;
1924   t463 = t327 * t130;
1925   t464 = t131 * t113;
1926   t466 = 0.1e1 / t17 / t464;
1927   t468 = t466 * t10 * t334;
1928   t476 = t46 * t115;
1929   t477 = t476 * t146;
1930   t479 = t217 * t26;
1931   t480 = t144 * t62;
1932   t481 = t353 * t480;
1933   t482 = t479 * t481;
1934   t485 = t149 * t115 * t146;
1935   t487 = t361 * t19;
1936   t488 = t363 * t480;
1937   t489 = t487 * t488;
1938   t491 = -0.7e1 / 0.4860e4 * t47 * t14 * t115 - t477 / 0.540e3 + t482 / 0.864e3 + t485 / 0.540e3 - t489 / 0.2592e4;
1939   t494 = -0.10e2 / 0.729e3 * t452 * t14 - t30 * sigma[0] * t121 * t42 / 0.54e2 + 0.3e1 / 0.64e2 * t129 * t31 * t133 * t42 - 0.81e2 / 0.25600e5 * t463 * t468 + 0.2e1 * t153 * t223 + 0.2e1 * t65 * t491;
1940   t495 = t494 * t84;
1941   t497 = t226 * t177;
1942   t499 = t156 * t240;
1943   t501 = params->c1 * t115;
1944   t502 = t501 * t76;
1945   t504 = t229 * t26;
1946   t505 = t504 * t165;
1947   t507 = t74 * t128;
1948   t508 = t383 * t19;
1949   t510 = t507 * t508 * t144;
1950   t513 = t162 * t164 * t115;
1951   t515 = -0.5e1 / 0.27e2 * t502 + 0.25e2 / 0.324e3 * t505 + 0.125e3 / 0.486e3 * t510 - 0.25e2 / 0.243e3 * t513;
1952   t516 = t515 * t79;
1953   t517 = t235 * t168;
1954   t520 = t170 * t508;
1955   t521 = t81 * t144;
1956   t522 = t363 * t521;
1957   t523 = t520 * t522;
1958   t526 = t171 * t452 * t173;
1959   t528 = t409 * t19;
1960   t529 = t407 * t528;
1961   t530 = t529 * t522;
1962   t533 = my_piecewise3(t73, t517 * t79 + t516, 0.25e2 / 0.324e3 * t523 - 0.5e1 / 0.27e2 * t526 + 0.25e2 / 0.648e3 * t530);
1963   t536 = -0.2e1 * t303 * t449 + t112 * t495 - t112 * t497 - t112 * t499 - t72 * t533 + 0.1174e1 * t533;
1964   t537 = t7 * t536;
1965   t538 = t537 * t102;
1966   t541 = t191 * t243;
1967   t545 = t248 * t181;
1968   t548 = t14 * t101;
1969   t552 = t433 * t548 / t9 / t16;
1970   t555 = t5 * t249;
1971   t556 = t92 * sigma[0];
1972   t557 = 0.1e1 / t556;
1973   t559 = t557 * t50 * t441;
1974   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1975     v2rhosigma[0] = -t446 * t245 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t538 - 0.24739500000000000000e1 * t190 * t541 * t199 + 0.92773125000000000000e0 * t545 * t254 + 0.11132775000000000000e2 * t250 * t552 - 0.30203104535893596325e2 * t555 * t559;
1976 
1977   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1978     v2rholapl[0] = 0.0e0;
1979 
1980   t564 = t303 * t65;
1981   t565 = t262 * t84;
1982   t566 = t565 * t156;
1983   t569 = t153 * t262;
1984   t574 = t257 * t26;
1985   t578 = t361 * t51;
1986   t581 = t218 / 0.108e3 - t574 * t481 / 0.108e3 - t221 / 0.108e3 + t578 * t488 / 0.324e3;
1987   t582 = t65 * t581;
1988   t589 = t156 * t279;
1989   t592 = t267 * t26;
1990   t595 = t383 * t51;
1991   t600 = 0.25e2 / 0.27e2 * t230 - 0.50e2 / 0.81e2 * t592 * t165 - 0.500e3 / 0.243e3 * t507 * t595 * t144 + 0.125e3 / 0.243e3 * t233;
1992   t601 = t600 * t79;
1993   t602 = t273 * t168;
1994   t605 = t170 * t595;
1995   t609 = t409 * t51;
1996   t610 = t407 * t609;
1997   t614 = my_piecewise3(t73, t602 * t79 + t601, -0.50e2 / 0.81e2 * t605 * t522 + 0.25e2 / 0.27e2 * t238 - 0.25e2 / 0.81e2 * t610 * t522);
1998   t617 = -0.4e1 * t564 * t566 + 0.2e1 * t112 * t569 * t84 + 0.2e1 * t112 * t582 * t84 - 0.2e1 * t112 * t263 * t177 - t112 * t589 - t72 * t614 + 0.1174e1 * t614;
1999   t618 = t7 * t617;
2000   t619 = t618 * t102;
2001   t622 = t191 * t282;
2002   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2003     v2rhotau[0] = -t446 * t284 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t619 - 0.24739500000000000000e1 * t190 * t622 * t199;
2004 
2005   t626 = t226 * t226;
2006   t627 = t626 * t84;
2007   t638 = t327 * t31;
2008   t640 = 0.1e1 / t17 / t320;
2009   t642 = t640 * t10 * t334;
2010   t645 = t223 * t223;
2011   t647 = t46 * t35;
2012   t649 = t647 * t26 * t354;
2013   t652 = t361 * t35 * t364;
2014   t654 = -t649 / 0.6912e4 + t652 / 0.20736e5;
2015   t657 = t27 * t29 * t35 * t42 / 0.288e3 - 0.9e1 / 0.640e3 * t129 * sigma[0] * t209 * t42 + 0.243e3 / 0.204800e6 * t638 * t642 + 0.2e1 * t645 + 0.2e1 * t65 * t654;
2016   t658 = t657 * t84;
2017   t660 = t226 * t240;
2018   t663 = params->c1 * t35;
2019   t664 = t663 * t380;
2020   t667 = t74 * t384 * t35;
2021   t669 = -0.25e2 / 0.2592e4 * t664 - 0.125e3 / 0.3888e4 * t667;
2022   t671 = t235 * t235;
2023   t672 = t671 * t79;
2024   t675 = t35 * t26 * t398;
2025   t676 = t396 * t675;
2026   t678 = t410 * t675;
2027   t681 = my_piecewise3(t73, t669 * t79 + t672, -0.25e2 / 0.2592e4 * t676 - 0.25e2 / 0.5184e4 * t678);
2028   t684 = -0.2e1 * t303 * t627 + t112 * t658 - 0.2e1 * t112 * t660 - t72 * t681 + 0.1174e1 * t681;
2029   t685 = t7 * t684;
2030   t686 = t685 * t102;
2031   t689 = t248 * t244;
2032   t693 = t248 * t249 * t432;
2033   t694 = 0.1e1 / sigma[0];
2034   t697 = t15 * t694 * t101 * t94;
2035   t702 = t196 * t90 * t557 * t101;
2036   t706 = 0.1e1 / t92 / t31;
2037   t708 = t706 * t18 * t441;
2038   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2039     v2sigma2[0] = -0.3e1 / 0.8e1 * t108 * t686 + 0.18554625000000000000e1 * t689 * t254 - 0.41747906250000000000e1 * t693 * t697 - 0.46386562500000000000e0 * t250 * t702 + 0.11326164200960098622e2 * t555 * t708;
2040 
2041   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2042     v2sigmalapl[0] = 0.0e0;
2043 
2044   t711 = t565 * t226;
2045   t714 = t223 * t262;
2046   t719 = 0.1e1 / t9 / t32;
2047   t720 = t46 * t719;
2048   t722 = t720 * t26 * t354;
2049   t725 = t361 * t719 * t364;
2050   t727 = t722 / 0.864e3 - t725 / 0.2592e4;
2051   t728 = t65 * t727;
2052   t735 = t226 * t279;
2053   t737 = params->c1 * t719;
2054   t738 = t737 * t380;
2055   t741 = t74 * t384 * t719;
2056   t743 = 0.25e2 / 0.324e3 * t738 + 0.125e3 / 0.486e3 * t741;
2057   t744 = t743 * t79;
2058   t745 = t273 * t235;
2059   t749 = t719 * t26 * t398;
2060   t750 = t396 * t749;
2061   t752 = t410 * t749;
2062   t755 = my_piecewise3(t73, t745 * t79 + t744, 0.25e2 / 0.324e3 * t750 + 0.25e2 / 0.648e3 * t752);
2063   t758 = -0.4e1 * t564 * t711 + 0.2e1 * t112 * t714 * t84 + 0.2e1 * t112 * t728 * t84 - 0.2e1 * t112 * t263 * t240 - t112 * t735 - t72 * t755 + 0.1174e1 * t755;
2064   t759 = t7 * t758;
2065   t760 = t759 * t102;
2066   t763 = t248 * t283;
2067   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2068     v2sigmatau[0] = -0.3e1 / 0.8e1 * t108 * t760 + 0.92773125000000000000e0 * t763 * t254;
2069 
2070   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2071     v2lapl2[0] = 0.0e0;
2072 
2073   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2074     v2lapltau[0] = 0.0e0;
2075 
2076   t766 = t262 * t262;
2077   t767 = t66 * t766;
2078   t771 = t766 * t84;
2079   t774 = t46 * t427;
2080   t781 = -t774 * t26 * t354 / 0.108e3 + t361 * t427 * t364 / 0.324e3;
2081   t782 = t65 * t781;
2082   t789 = params->c1 * t427;
2083   t795 = -0.50e2 / 0.81e2 * t789 * t380 - 0.500e3 / 0.243e3 * t74 * t384 * t427;
2084   t797 = t273 * t273;
2085   t798 = t797 * t79;
2086   t801 = t427 * t26 * t398;
2087   t807 = my_piecewise3(t73, t795 * t79 + t798, -0.50e2 / 0.81e2 * t396 * t801 - 0.25e2 / 0.81e2 * t410 * t801);
2088   t810 = -0.8e1 * t303 * t767 * t84 + 0.2e1 * t112 * t771 + 0.2e1 * t112 * t782 * t84 - 0.4e1 * t112 * t263 * t279 - t72 * t807 + 0.1174e1 * t807;
2089   t811 = t7 * t810;
2090   t812 = t811 * t102;
2091   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2092     v2tau2[0] = -0.3e1 / 0.8e1 * t108 * t812;
2093 
2094 #ifndef XC_DONT_COMPILE_KXC
2095 
2096   if(order < 3) return;
2097 
2098 
2099   t823 = 0.1e1 / t113;
2100   t824 = t7 * t823;
2101   t837 = t7 * t719;
2102   t842 = 0.1e1 / t9;
2103   t844 = t5 * t7 * t842;
2104   t847 = t110 * t110;
2105   t849 = t109 / t847;
2106   t850 = t304 * t156;
2107   t854 = t157 * t370;
2108   t861 = 0.1e1 / t17 / t33;
2109   t862 = sigma[0] * t861;
2110   t866 = 0.1e1 / t9 / t131;
2111   t871 = 0.1e1 / t464;
2112   t876 = t131 * t33;
2113   t880 = 0.1e1 / t17 / t876 * t10 * t334;
2114   t883 = t126 * t126;
2115   t884 = t883 * t128;
2116   t885 = t328 * sigma[0];
2117   t886 = t884 * t885;
2118   t887 = t131 * t131;
2119   t891 = t29 * t42;
2120   t892 = 0.1e1 / t9 / t887 * t26 * t891;
2121   t903 = -0.440e3 / 0.27e2 * tau[0] * t309 + 0.154e3 / 0.27e2 * t862;
2122   t904 = t46 * t903;
2123   t910 = t350 * t144;
2124   t911 = t46 * t910;
2125   t912 = t128 * t62;
2126   t916 = t128 * t60 * t62;
2127   t925 = t46 * t408;
2128   t926 = t910 * t128;
2129   t930 = -0.539e3 / 0.21870e5 * t47 * t38 * t861 - t904 * t146 / 0.180e3 - t347 * t26 * t481 / 0.36e2 + 0.5e1 / 0.162e3 * t911 * t912 - 0.5e1 / 0.81e2 * t911 * t916 + t149 * t903 * t146 / 0.180e3 + t361 * t346 * t488 / 0.108e3 + 0.5e1 / 0.486e3 * t925 * t926 * t62;
2130   t933 = -0.1540e4 / 0.6561e4 * t15 * t862 - 0.209e3 / 0.486e3 * t30 * t31 * t866 * t42 + 0.797e3 / 0.480e3 * t129 * t130 * t871 * t42 - 0.729e3 / 0.3200e4 * t329 * t880 + 0.243e3 / 0.32000e5 * t886 * t892 + 0.6e1 * t153 * t367 + 0.2e1 * t65 * t930;
2131   t942 = params->c1 * t903;
2132   t952 = t409 * t910 * t15;
2133   t955 = t383 * t144;
2134   t956 = t955 * t346;
2135   t959 = t164 * t903;
2136   t962 = -0.5e1 / 0.9e1 * t942 * t76 - 0.50e2 / 0.27e2 * t376 * t26 * t165 - 0.500e3 / 0.81e2 * params->c1 * t910 * t384 - 0.2500e4 / 0.729e3 * t507 * t952 - 0.500e3 / 0.81e2 * t507 * t956 - 0.25e2 / 0.81e2 * t162 * t959;
2137   t967 = t393 * t168;
2138   t970 = t170 * t409;
2139   t971 = t926 * t81;
2140   t974 = t170 * t955;
2141   t975 = t81 * t346;
2142   t976 = t363 * t975;
2143   t979 = t408 * t58;
2144   t980 = 0.1e1 / t979;
2145   t981 = t407 * t980;
2146   t993 = params->d * t406 * params->c2;
2147   t995 = 0.1e1 / t408 / t60;
2148   t996 = t993 * t995;
2149   t1000 = my_piecewise3(t73, 0.3e1 * t391 * t168 * t79 + t962 * t79 + t967 * t79, -0.500e3 / 0.81e2 * t970 * t971 - 0.50e2 / 0.27e2 * t974 * t976 - 0.500e3 / 0.81e2 * t981 * t971 - 0.5e1 / 0.9e1 * t171 * t903 * t10 * t173 - 0.25e2 / 0.27e2 * t407 * t409 * t346 * t522 - 0.250e3 / 0.243e3 * t996 * t971);
2150   t1003 = 0.6e1 * t849 * t850 * t84 - 0.6e1 * t303 * t854 + 0.6e1 * t303 * t304 * t177 + t112 * t933 * t84 - 0.3e1 * t112 * t370 * t177 - 0.3e1 * t112 * t156 * t414 - t72 * t1000 + 0.1174e1 * t1000;
2151   t1004 = t7 * t1003;
2152   t1008 = t191 * t417;
2153   t1016 = t180 * t251 * t441;
2154   t1020 = t861 * t189 * t191;
2155   t1021 = 0.1e1 / t11;
2156   t1022 = t1021 * t556;
2157   t1023 = 0.1e1 / t32;
2158   t1027 = 0.1e1 / t97 / t1022 / t1023 / 0.36e2;
2159   t1029 = t1022 * t101;
2160   t1030 = t87 * t1027 * t1029;
2161   t1035 = t28 * t251 * t101;
2162   t1036 = t87 * t10 * t1035;
2163   t1040 = t51 * t189 * t4;
2164   t1041 = t195 * t101;
2165   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2166     v3rho3[0] = t8 * t51 * t87 * t102 / 0.9e1 - t8 * t287 * t180 * t102 / 0.2e1 + 0.5497666666666666667e0 * t248 * t824 * t87 * t199 - 0.3e1 / 0.2e1 * t8 * t9 * t417 * t102 - 0.24739500000000000000e1 * t248 * t296 * t180 * t199 + 0.89062200000000000000e2 * t248 * t837 * t87 * t435 + 0.80541612095716256868e2 * t844 * t442 - 0.3e1 / 0.8e1 * t108 * t1004 * t102 - 0.74218500000000000000e1 * t190 * t1008 * t199 - 0.89062200000000000000e2 * t428 * t422 * t435 + 0.24162483628714877061e3 * t439 * t1016 - 0.59374800000000000000e3 * t1020 * t1030 + 0.16536775210765846035e1 * t844 * t1036 - 0.32302153261130400000e3 * t1040 * t249 * t1041;
2167 
2168   t1046 = t287 * t2 * t4;
2169   t1050 = t295 * t189;
2170   t1057 = t495 * t156;
2171   t1066 = t309 * t10;
2172   t1079 = t884 * t328;
2173   t1084 = 0.1e1 / t9 / t131 / t313 * t26 * t891;
2174   t1094 = t46 * t309;
2175   t1095 = t1094 * t146;
2176   t1097 = t476 * t26;
2177   t1098 = t1097 * t481;
2178   t1100 = t128 * t350;
2179   t1101 = t1100 * t62;
2180   t1102 = t217 * t1101;
2181   t1104 = t346 * t62;
2182   t1105 = t353 * t1104;
2183   t1106 = t479 * t1105;
2184   t1108 = t217 * t128;
2185   t1110 = t60 * t350 * t62;
2186   t1111 = t1108 * t1110;
2187   t1114 = t149 * t309 * t146;
2188   t1116 = t361 * t115;
2189   t1117 = t1116 * t488;
2190   t1119 = t363 * t1104;
2191   t1120 = t487 * t1119;
2192   t1122 = t925 * t19;
2193   t1123 = t1122 * t1101;
2194   t1125 = 0.77e2 / 0.14580e5 * t47 * t14 * t309 + 0.11e2 / 0.1620e4 * t1095 - t1098 / 0.162e3 - 0.5e1 / 0.1296e4 * t1102 + t1106 / 0.864e3 + 0.5e1 / 0.648e3 * t1111 - 0.11e2 / 0.1620e4 * t1114 + t1117 / 0.486e3 - t1120 / 0.2592e4 - 0.5e1 / 0.3888e4 * t1123;
2195   t1128 = 0.110e3 / 0.2187e4 * t1066 * t14 + 0.19e2 / 0.162e3 * t30 * sigma[0] * t315 * t42 - 0.167e3 / 0.320e3 * t129 * t31 * t321 * t42 + 0.81e2 / 0.1024e4 * t463 * t335 - 0.729e3 / 0.256000e6 * t1079 * t1084 + 0.2e1 * t367 * t223 + 0.4e1 * t153 * t491 + 0.2e1 * t65 * t1125;
2196   t1129 = t1128 * t84;
2197   t1131 = t494 * t177;
2198   t1134 = t226 * t414;
2199   t1144 = params->c1 * t309;
2200   t1145 = t1144 * t76;
2201   t1147 = t501 * t26;
2202   t1148 = t1147 * t165;
2203   t1150 = t229 * t385;
2204   t1152 = t504 * t388;
2205   t1155 = t74 * t128 * t409;
2206   t1158 = t1155 * t19 * t350 * t15;
2207   t1160 = t383 * t115;
2208   t1162 = t507 * t1160 * t144;
2209   t1165 = t507 * t508 * t346;
2210   t1168 = t162 * t164 * t309;
2211   t1170 = 0.55e2 / 0.81e2 * t1145 - 0.100e3 / 0.243e3 * t1148 + 0.125e3 / 0.162e3 * t1150 + 0.25e2 / 0.324e3 * t1152 + 0.625e3 / 0.1458e4 * t1158 - 0.1000e4 / 0.729e3 * t1162 + 0.125e3 / 0.486e3 * t1165 + 0.275e3 / 0.729e3 * t1168;
2212   t1175 = t235 * t391;
2213   t1180 = t19 * t128;
2214   t1181 = t81 * t350;
2215   t1182 = t1180 * t1181;
2216   t1183 = t970 * t1182;
2217   t1185 = t170 * t1160;
2218   t1186 = t1185 * t522;
2219   t1188 = t981 * t1182;
2220   t1190 = t520 * t976;
2221   t1193 = t171 * t1066 * t173;
2222   t1196 = t407 * t409 * t115;
2223   t1197 = t1196 * t522;
2224   t1199 = t529 * t976;
2225   t1201 = t996 * t1182;
2226   t1204 = my_piecewise3(t73, 0.2e1 * t515 * t168 * t79 + t235 * t393 * t79 + t1170 * t79 + t1175 * t79, 0.125e3 / 0.162e3 * t1183 - 0.100e3 / 0.243e3 * t1186 + 0.125e3 / 0.162e3 * t1188 + 0.25e2 / 0.324e3 * t1190 + 0.55e2 / 0.81e2 * t1193 - 0.50e2 / 0.243e3 * t1197 + 0.25e2 / 0.648e3 * t1199 + 0.125e3 / 0.972e3 * t1201);
2227   t1207 = 0.6e1 * t849 * t227 * t304 - 0.4e1 * t303 * t1057 + 0.4e1 * t303 * t497 * t156 - 0.2e1 * t303 * t227 * t370 + t112 * t1129 - 0.2e1 * t112 * t1131 - t112 * t1134 + 0.2e1 * t303 * t304 * t240 - t112 * t370 * t240 - 0.2e1 * t112 * t156 * t533 - t72 * t1204 + 0.1174e1 * t1204;
2228   t1208 = t7 * t1207;
2229   t1209 = t1208 * t102;
2230   t1212 = t191 * t536;
2231   t1220 = t243 * t251 * t441;
2232   t1223 = t248 * t418;
2233   t1228 = t5 * t181;
2234   t1231 = t1027 * t1021;
2235   t1234 = t1231 * t101 * t309 * t92;
2236   t1237 = t10 * t28;
2237   t1238 = t557 * t17;
2238   t1240 = t1237 * t1238 * t101;
2239   t1244 = t433 * t548 * t427;
2240   t1247 = t1238 * t441;
2241   t1251 = t694 * t287 * t1041;
2242   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2243     v3rho2sigma[0] = -t1046 * t245 / 0.6e1 - t446 * t538 - 0.8246500000000000000e0 * t1050 * t541 * t199 - 0.3e1 / 0.8e1 * t108 * t1209 - 0.49479000000000000000e1 * t190 * t1212 * t199 - 0.29687400000000000000e2 * t428 * t541 * t435 + 0.80541612095716256868e2 * t439 * t1220 + 0.92773125000000000000e0 * t1223 * t254 + 0.22265550000000000000e2 * t545 * t552 - 0.60406209071787192650e2 * t1228 * t559 + 0.22265550000000000000e3 * t250 * t1234 - 0.62012907040371922630e0 * t555 * t1240 - 0.25976475000000000000e2 * t250 * t1244 - 0.50338507559822660542e2 * t555 * t1247 + 0.12113307472923900000e3 * t250 * t1251;
2244 
2245   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2246     v3rho2lapl[0] = 0.0e0;
2247 
2248   t1260 = t849 * t65;
2249   t1261 = t565 * t304;
2250   t1264 = t303 * t153;
2251   t1267 = t581 * t84;
2252   t1268 = t1267 * t156;
2253   t1271 = t262 * t177;
2254   t1272 = t1271 * t156;
2255   t1275 = t565 * t370;
2256   t1278 = t367 * t262;
2257   t1282 = t153 * t581;
2258   t1295 = t257 * t128;
2259   t1302 = t925 * t51;
2260   t1305 = -0.2e1 / 0.81e2 * t477 + 0.5e1 / 0.162e3 * t482 + 0.5e1 / 0.162e3 * t257 * t1101 - t574 * t1105 / 0.108e3 - 0.5e1 / 0.81e2 * t1295 * t1110 + 0.2e1 / 0.81e2 * t485 - 0.5e1 / 0.486e3 * t489 + t578 * t1119 / 0.324e3 + 0.5e1 / 0.486e3 * t1302 * t1101;
2261   t1306 = t65 * t1305;
2262   t1339 = -0.200e3 / 0.81e2 * t502 + 0.500e3 / 0.243e3 * t505 - 0.500e3 / 0.81e2 * t267 * t385 - 0.50e2 / 0.81e2 * t592 * t388 - 0.2500e4 / 0.729e3 * t1155 * t51 * t350 * t15 + 0.5000e4 / 0.729e3 * t510 - 0.500e3 / 0.243e3 * t507 * t595 * t346 - 0.1000e4 / 0.729e3 * t513;
2263   t1344 = t273 * t391;
2264   t1349 = t51 * t128;
2265   t1350 = t1349 * t1181;
2266   t1365 = my_piecewise3(t73, 0.2e1 * t600 * t168 * t79 + t273 * t393 * t79 + t1339 * t79 + t1344 * t79, -0.500e3 / 0.81e2 * t970 * t1350 + 0.500e3 / 0.243e3 * t523 - 0.500e3 / 0.81e2 * t981 * t1350 - 0.50e2 / 0.81e2 * t605 * t976 - 0.200e3 / 0.81e2 * t526 + 0.250e3 / 0.243e3 * t530 - 0.25e2 / 0.81e2 * t610 * t976 - 0.250e3 / 0.243e3 * t996 * t1350);
2267   t1368 = 0.12e2 * t1260 * t1261 - 0.8e1 * t1264 * t566 - 0.8e1 * t564 * t1268 + 0.8e1 * t564 * t1272 - 0.4e1 * t564 * t1275 + 0.2e1 * t112 * t1278 * t84 + 0.4e1 * t112 * t1282 * t84 - 0.4e1 * t112 * t569 * t177 + 0.2e1 * t112 * t1306 * t84 - 0.4e1 * t112 * t582 * t177 - 0.2e1 * t112 * t263 * t414 + 0.2e1 * t303 * t304 * t279 - t112 * t370 * t279 - 0.2e1 * t112 * t156 * t614 - t72 * t1365 + 0.1174e1 * t1365;
2268   t1369 = t7 * t1368;
2269   t1370 = t1369 * t102;
2270   t1373 = t191 * t617;
2271   t1381 = t282 * t251 * t441;
2272   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2273     v3rho2tau[0] = -t1046 * t284 / 0.6e1 - t446 * t619 - 0.8246500000000000000e0 * t1050 * t622 * t199 - 0.3e1 / 0.8e1 * t108 * t1370 - 0.49479000000000000000e1 * t190 * t1373 * t199 - 0.29687400000000000000e2 * t428 * t622 * t435 + 0.80541612095716256868e2 * t439 * t1381;
2274 
2275   t1392 = t626 * t177;
2276   t1395 = t658 * t156;
2277   t1408 = t884 * t130;
2278   t1409 = t131 * t119;
2279   t1413 = 0.1e1 / t9 / t1409 * t26 * t891;
2280   t1420 = t46 * t121;
2281   t1422 = t1420 * t26 * t354;
2282   t1425 = t128 * t144 * t62;
2283   t1426 = t647 * t1425;
2284   t1428 = t647 * t128;
2285   t1430 = t60 * t144 * t62;
2286   t1431 = t1428 * t1430;
2287   t1434 = t361 * t121 * t364;
2288   t1436 = t925 * t35;
2289   t1437 = t1436 * t1425;
2290   t1439 = t1422 / 0.1296e4 + 0.5e1 / 0.10368e5 * t1426 - 0.5e1 / 0.5184e4 * t1431 - t1434 / 0.3888e4 + 0.5e1 / 0.31104e5 * t1437;
2291   t1442 = -t27 * t29 * t121 * t42 / 0.54e2 + 0.21e2 / 0.160e3 * t129 * t133 * sigma[0] * t42 - 0.81e2 / 0.3200e4 * t638 * t468 + 0.2187e4 / 0.2048000e7 * t1408 * t1413 + 0.4e1 * t223 * t491 + 0.2e1 * t153 * t654 + 0.2e1 * t65 * t1439;
2292   t1443 = t1442 * t84;
2293   t1445 = t657 * t177;
2294   t1450 = t494 * t240;
2295   t1453 = t226 * t533;
2296   t1458 = params->c1 * t121;
2297   t1459 = t1458 * t380;
2298   t1461 = t384 * t144;
2299   t1462 = t663 * t1461;
2300   t1466 = t1155 * t35 * t144 * t15;
2301   t1469 = t74 * t384 * t121;
2302   t1471 = 0.25e2 / 0.486e3 * t1459 - 0.125e3 / 0.1296e4 * t1462 - 0.625e3 / 0.11664e5 * t1466 + 0.125e3 / 0.729e3 * t1469;
2303   t1480 = t35 * t128;
2304   t1481 = t1480 * t521;
2305   t1482 = t970 * t1481;
2306   t1485 = t121 * t26 * t398;
2307   t1486 = t396 * t1485;
2308   t1488 = t981 * t1481;
2309   t1490 = t410 * t1485;
2310   t1492 = t996 * t1481;
2311   t1495 = my_piecewise3(t73, t669 * t168 * t79 + t671 * t168 * t79 + t1471 * t79 + 0.2e1 * t236 * t515, -0.125e3 / 0.1296e4 * t1482 + 0.25e2 / 0.486e3 * t1486 - 0.125e3 / 0.1296e4 * t1488 + 0.25e2 / 0.972e3 * t1490 - 0.125e3 / 0.7776e4 * t1492);
2312   t1498 = 0.6e1 * t849 * t627 * t156 - 0.4e1 * t303 * t227 * t494 + 0.2e1 * t303 * t1392 - 0.2e1 * t303 * t1395 + t112 * t1443 - t112 * t1445 + 0.4e1 * t303 * t660 * t156 - 0.2e1 * t112 * t1450 - 0.2e1 * t112 * t1453 - t112 * t156 * t681 - t72 * t1495 + 0.1174e1 * t1495;
2313   t1499 = t7 * t1498;
2314   t1500 = t1499 * t102;
2315   t1503 = t191 * t684;
2316   t1507 = t248 * t537;
2317   t1512 = t5 * t244;
2318   t1516 = t248 * t181 * t432;
2319   t1519 = t251 * t101;
2320   t1521 = t1231 * t1519 * t115;
2321   t1524 = t706 * t50;
2322   t1526 = t1237 * t1524 * t101;
2323   t1531 = t1524 * t441;
2324   t1536 = 0.1e1 / t31;
2325   t1538 = t1536 * t9 * t1041;
2326   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2327     v3rhosigma2[0] = -t446 * t686 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t1500 - 0.24739500000000000000e1 * t190 * t1503 * t199 + 0.18554625000000000000e1 * t1507 * t254 + 0.22265550000000000000e2 * t689 * t552 - 0.60406209071787192651e2 * t1512 * t559 - 0.41747906250000000000e1 * t1516 * t697 - 0.83495812500000000000e2 * t250 * t1521 + 0.23254840140139470986e0 * t555 * t1526 - 0.46386562500000000000e0 * t545 * t702 + 0.45304656803840394488e2 * t555 * t1531 + 0.11326164200960098622e2 * t1228 * t708 - 0.45424903023464625000e2 * t250 * t1538;
2328 
2329   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2330     v3rhosigmalapl[0] = 0.0e0;
2331 
2332   t1543 = t226 * t156;
2333   t1544 = t565 * t1543;
2334   t1549 = t1267 * t226;
2335   t1552 = t1271 * t226;
2336   t1555 = t565 * t494;
2337   t1558 = t303 * t223;
2338   t1561 = t491 * t262;
2339   t1565 = t223 * t581;
2340   t1572 = t727 * t84;
2341   t1573 = t1572 * t156;
2342   t1576 = t153 * t727;
2343   t1580 = 0.2e1 * t112 * t1561 * t84 + 0.2e1 * t112 * t1565 * t84 + 0.2e1 * t112 * t1576 * t84 - 0.2e1 * t112 * t714 * t177 + 0.12e2 * t1260 * t1544 - 0.4e1 * t1264 * t711 - 0.4e1 * t564 * t1549 + 0.4e1 * t564 * t1552 - 0.4e1 * t564 * t1555 - 0.4e1 * t1558 * t566 - 0.4e1 * t564 * t1573;
2344   t1582 = t720 * t1425;
2345   t1584 = t720 * t128;
2346   t1585 = t1584 * t1430;
2347   t1588 = t925 * t719;
2348   t1589 = t1588 * t1425;
2349   t1591 = -0.13e2 / 0.2592e4 * t649 - 0.5e1 / 0.1296e4 * t1582 + 0.5e1 / 0.648e3 * t1585 + 0.13e2 / 0.7776e4 * t652 - 0.5e1 / 0.3888e4 * t1589;
2350   t1592 = t65 * t1591;
2351   t1599 = t262 * t240;
2352   t1600 = t1599 * t156;
2353   t1615 = t494 * t279;
2354   t1617 = t226 * t614;
2355   t1622 = t737 * t1461;
2356   t1626 = t1155 * t719 * t144 * t15;
2357   t1629 = -0.325e3 / 0.972e3 * t664 + 0.125e3 / 0.162e3 * t1622 + 0.625e3 / 0.1458e4 * t1626 - 0.1625e4 / 0.1458e4 * t667;
2358   t1633 = t600 * t235;
2359   t1635 = t273 * t515;
2360   t1639 = t719 * t128;
2361   t1640 = t1639 * t521;
2362   t1641 = t970 * t1640;
2363   t1644 = t981 * t1640;
2364   t1647 = t996 * t1640;
2365   t1650 = my_piecewise3(t73, t743 * t168 * t79 + t1629 * t79 + t1633 * t79 + t1635 * t79 + t745 * t169, 0.125e3 / 0.162e3 * t1641 - 0.325e3 / 0.972e3 * t676 + 0.125e3 / 0.162e3 * t1644 - 0.325e3 / 0.1944e4 * t678 + 0.125e3 / 0.972e3 * t1647);
2366   t1653 = 0.2e1 * t112 * t1592 * t84 - 0.2e1 * t112 * t728 * t177 + 0.4e1 * t564 * t1600 - 0.2e1 * t112 * t569 * t240 - 0.2e1 * t112 * t582 * t240 - 0.2e1 * t112 * t263 * t533 + 0.2e1 * t303 * t735 * t156 - t112 * t1615 - t112 * t1617 - t112 * t156 * t755 - t72 * t1650 + 0.1174e1 * t1650;
2367   t1654 = t1580 + t1653;
2368   t1655 = t7 * t1654;
2369   t1656 = t1655 * t102;
2370   t1659 = t191 * t758;
2371   t1663 = t248 * t618;
2372   t1668 = t5 * t283;
2373   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2374     v3rhosigmatau[0] = -t446 * t760 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t1656 - 0.24739500000000000000e1 * t190 * t1659 * t199 + 0.92773125000000000000e0 * t1663 * t254 + 0.11132775000000000000e2 * t763 * t552 - 0.30203104535893596325e2 * t1668 * t559;
2375 
2376   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2377     v3rholapl2[0] = 0.0e0;
2378 
2379   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2380     v3rholapltau[0] = 0.0e0;
2381 
2382   t1673 = t849 * t66;
2383   t1674 = t771 * t156;
2384   t1680 = t303 * t66;
2385   t1681 = t565 * t581;
2386   t1691 = t766 * t177;
2387   t1694 = t781 * t84;
2388   t1695 = t1694 * t156;
2389   t1698 = t153 * t781;
2390   t1705 = t774 * t128;
2391   t1709 = t925 * t427;
2392   t1712 = 0.5e1 / 0.162e3 * t722 + 0.5e1 / 0.162e3 * t774 * t1425 - 0.5e1 / 0.81e2 * t1705 * t1430 - 0.5e1 / 0.486e3 * t725 + 0.5e1 / 0.486e3 * t1709 * t1425;
2393   t1713 = t65 * t1712;
2394   t1720 = t262 * t279;
2395   t1721 = t1720 * t156;
2396   t1743 = 0.500e3 / 0.243e3 * t738 - 0.500e3 / 0.81e2 * t789 * t1461 - 0.2500e4 / 0.729e3 * t1155 * t427 * t144 * t15 + 0.5000e4 / 0.729e3 * t741;
2397   t1752 = t427 * t128;
2398   t1753 = t1752 * t521;
2399   t1763 = my_piecewise3(t73, t795 * t168 * t79 + t797 * t168 * t79 + t1743 * t79 + 0.2e1 * t274 * t600, -0.500e3 / 0.81e2 * t970 * t1753 + 0.500e3 / 0.243e3 * t750 - 0.500e3 / 0.81e2 * t981 * t1753 + 0.250e3 / 0.243e3 * t752 - 0.250e3 / 0.243e3 * t996 * t1753);
2400   t1766 = 0.24e2 * t1673 * t1674 - 0.16e2 * t564 * t771 * t153 - 0.16e2 * t1680 * t1681 + 0.8e1 * t303 * t767 * t177 - 0.4e1 * t303 * t1674 + 0.4e1 * t112 * t1681 - 0.2e1 * t112 * t1691 - 0.4e1 * t564 * t1695 + 0.2e1 * t112 * t1698 * t84 + 0.2e1 * t112 * t1713 * t84 - 0.2e1 * t112 * t782 * t177 + 0.8e1 * t564 * t1721 - 0.4e1 * t112 * t569 * t279 - 0.4e1 * t112 * t582 * t279 - 0.4e1 * t112 * t263 * t614 - t112 * t156 * t807 - t72 * t1763 + 0.1174e1 * t1763;
2401   t1767 = t7 * t1766;
2402   t1768 = t1767 * t102;
2403   t1771 = t191 * t810;
2404   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2405     v3rhotau2[0] = -t446 * t812 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t1768 - 0.24739500000000000000e1 * t190 * t1771 * t199;
2406 
2407   t1775 = t626 * t226;
2408   t1776 = t1775 * t84;
2409   t1782 = t626 * t240;
2410   t1791 = t884 * t31;
2411   t1795 = 0.1e1 / t9 / t876 * t26 * t891;
2412   t1800 = t46 * t209;
2413   t1801 = t1800 * t912;
2414   t1803 = t1800 * t916;
2415   t1805 = t209 * t128;
2416   t1807 = t925 * t1805 * t62;
2417   t1809 = -0.5e1 / 0.82944e5 * t1801 + 0.5e1 / 0.41472e5 * t1803 - 0.5e1 / 0.248832e6 * t1807;
2418   t1812 = -0.27e2 / 0.1280e4 * t129 * t209 * t42 + 0.729e3 / 0.102400e6 * t327 * sigma[0] * t642 - 0.6561e4 / 0.16384000e8 * t1791 * t1795 + 0.6e1 * t223 * t654 + 0.2e1 * t65 * t1809;
2419   t1813 = t1812 * t84;
2420   t1815 = t657 * t240;
2421   t1818 = t226 * t681;
2422   t1821 = params->c1 * t209;
2423   t1822 = t1821 * t384;
2424   t1826 = t507 * t409 * t209 * t15;
2425   t1828 = 0.125e3 / 0.10368e5 * t1822 + 0.625e3 / 0.93312e5 * t1826;
2426   t1830 = t669 * t235;
2427   t1833 = t671 * t235;
2428   t1836 = t1805 * t81;
2429   t1837 = t970 * t1836;
2430   t1839 = t981 * t1836;
2431   t1841 = t996 * t1836;
2432   t1844 = my_piecewise3(t73, t1828 * t79 + 0.3e1 * t1830 * t79 + t1833 * t79, 0.125e3 / 0.10368e5 * t1837 + 0.125e3 / 0.10368e5 * t1839 + 0.125e3 / 0.62208e5 * t1841);
2433   t1847 = 0.6e1 * t849 * t1776 - 0.6e1 * t303 * t227 * t657 + 0.6e1 * t303 * t1782 + t112 * t1813 - 0.3e1 * t112 * t1815 - 0.3e1 * t112 * t1818 - t72 * t1844 + 0.1174e1 * t1844;
2434   t1848 = t7 * t1847;
2435   t1849 = t1848 * t102;
2436   t1852 = t248 * t685;
2437   t1856 = t248 * t244 * t432;
2438   t1863 = t557 * t101;
2439   t1865 = t1231 * t1863 * t19;
2440   t1870 = t15 * t1536 * t101 * t94;
2441   t1874 = 0.1e1 / t92 / t130;
2442   t1875 = t1874 * t18;
2443   t1877 = t1237 * t1875 * t101;
2444   t1882 = t196 * t90 * t706 * t101;
2445   t1885 = t1875 * t441;
2446   t1888 = 0.1e1 / t130;
2447   t1890 = t1888 * t93 * t1041;
2448   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2449     v3sigma3[0] = -0.3e1 / 0.8e1 * t108 * t1849 + 0.27831937500000000000e1 * t1852 * t254 - 0.12524371875000000000e2 * t1856 * t697 - 0.13915968750000000000e1 * t689 * t702 + 0.33978492602880295866e2 * t1512 * t708 + 0.31310929687500000000e2 * t250 * t1865 + 0.62621859375000000000e1 * t693 * t1870 - 0.87205650525523016199e-1 * t555 * t1877 + 0.69579843750000000000e0 * t250 * t1882 - 0.33978492602880295866e2 * t555 * t1885 + 0.17034338633799234375e2 * t250 * t1890;
2450 
2451   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2452     v3sigma2lapl[0] = 0.0e0;
2453 
2454   t1893 = t565 * t626;
2455   t1898 = t1572 * t226;
2456   t1901 = t1599 * t226;
2457   t1904 = t565 * t657;
2458   t1907 = t654 * t262;
2459   t1911 = t223 * t727;
2460   t1918 = 0.1e1 / t313;
2461   t1919 = t46 * t1918;
2462   t1920 = t1919 * t912;
2463   t1922 = t1919 * t916;
2464   t1924 = t1918 * t128;
2465   t1926 = t925 * t1924 * t62;
2466   t1928 = 0.5e1 / 0.10368e5 * t1920 - 0.5e1 / 0.5184e4 * t1922 + 0.5e1 / 0.31104e5 * t1926;
2467   t1929 = t65 * t1928;
2468   t1939 = t626 * t279;
2469   t1942 = t657 * t279;
2470   t1944 = t226 * t755;
2471   t1947 = params->c1 * t1918;
2472   t1948 = t1947 * t384;
2473   t1952 = t507 * t409 * t1918 * t15;
2474   t1954 = -0.125e3 / 0.1296e4 * t1948 - 0.625e3 / 0.11664e5 * t1952;
2475   t1956 = t743 * t235;
2476   t1959 = t273 * t669;
2477   t1961 = t273 * t671;
2478   t1964 = t1924 * t81;
2479   t1965 = t970 * t1964;
2480   t1967 = t981 * t1964;
2481   t1969 = t996 * t1964;
2482   t1972 = my_piecewise3(t73, t1954 * t79 + 0.2e1 * t1956 * t79 + t1959 * t79 + t1961 * t79, -0.125e3 / 0.1296e4 * t1965 - 0.125e3 / 0.1296e4 * t1967 - 0.125e3 / 0.7776e4 * t1969);
2483   t1975 = 0.12e2 * t1260 * t1893 - 0.8e1 * t1558 * t711 - 0.8e1 * t564 * t1898 + 0.8e1 * t564 * t1901 - 0.4e1 * t564 * t1904 + 0.2e1 * t112 * t1907 * t84 + 0.4e1 * t112 * t1911 * t84 - 0.4e1 * t112 * t714 * t240 + 0.2e1 * t112 * t1929 * t84 - 0.4e1 * t112 * t728 * t240 - 0.2e1 * t112 * t263 * t681 + 0.2e1 * t303 * t1939 - t112 * t1942 - 0.2e1 * t112 * t1944 - t72 * t1972 + 0.1174e1 * t1972;
2484   t1976 = t7 * t1975;
2485   t1977 = t1976 * t102;
2486   t1980 = t248 * t759;
2487   t1984 = t248 * t283 * t432;
2488   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2489     v3sigma2tau[0] = -0.3e1 / 0.8e1 * t108 * t1977 + 0.18554625000000000000e1 * t1980 * t254 - 0.41747906250000000000e1 * t1984 * t697 - 0.46386562500000000000e0 * t763 * t702 + 0.11326164200960098622e2 * t1668 * t708;
2490 
2491   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2492     v3sigmalapl2[0] = 0.0e0;
2493 
2494   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2495     v3sigmalapltau[0] = 0.0e0;
2496 
2497   t1991 = t771 * t226;
2498   t1994 = t771 * t223;
2499   t1997 = t565 * t727;
2500   t2007 = t766 * t240;
2501   t2010 = t1694 * t226;
2502   t2013 = t223 * t781;
2503   t2017 = 0.1e1 / t119;
2504   t2018 = t46 * t2017;
2505   t2019 = t2018 * t912;
2506   t2021 = t2018 * t916;
2507   t2023 = t2017 * t128;
2508   t2025 = t925 * t2023 * t62;
2509   t2027 = -0.5e1 / 0.1296e4 * t2019 + 0.5e1 / 0.648e3 * t2021 - 0.5e1 / 0.3888e4 * t2025;
2510   t2028 = t65 * t2027;
2511   t2035 = t1720 * t226;
2512   t2047 = t226 * t807;
2513   t2049 = params->c1 * t2017;
2514   t2050 = t2049 * t384;
2515   t2054 = t507 * t409 * t2017 * t15;
2516   t2056 = 0.125e3 / 0.162e3 * t2050 + 0.625e3 / 0.1458e4 * t2054;
2517   t2058 = t795 * t235;
2518   t2062 = t797 * t235;
2519   t2065 = t2023 * t81;
2520   t2066 = t970 * t2065;
2521   t2068 = t981 * t2065;
2522   t2070 = t996 * t2065;
2523   t2073 = my_piecewise3(t73, t2056 * t79 + t2058 * t79 + t2062 * t79 + 0.2e1 * t274 * t743, 0.125e3 / 0.162e3 * t2066 + 0.125e3 / 0.162e3 * t2068 + 0.125e3 / 0.972e3 * t2070);
2524   t2076 = 0.24e2 * t1673 * t1991 - 0.16e2 * t564 * t1994 - 0.16e2 * t1680 * t1997 + 0.8e1 * t303 * t767 * t240 - 0.4e1 * t303 * t1991 + 0.4e1 * t112 * t1997 - 0.2e1 * t112 * t2007 - 0.4e1 * t564 * t2010 + 0.2e1 * t112 * t2013 * t84 + 0.2e1 * t112 * t2028 * t84 - 0.2e1 * t112 * t782 * t240 + 0.8e1 * t564 * t2035 - 0.4e1 * t112 * t714 * t279 - 0.4e1 * t112 * t728 * t279 - 0.4e1 * t112 * t263 * t755 - t112 * t2047 - t72 * t2073 + 0.1174e1 * t2073;
2525   t2077 = t7 * t2076;
2526   t2078 = t2077 * t102;
2527   t2081 = t248 * t811;
2528   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2529     v3sigmatau2[0] = -0.3e1 / 0.8e1 * t108 * t2078 + 0.92773125000000000000e0 * t2081 * t254;
2530 
2531   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2532     v3lapl3[0] = 0.0e0;
2533 
2534   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2535     v3lapl2tau[0] = 0.0e0;
2536 
2537   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2538     v3lapltau2[0] = 0.0e0;
2539 
2540   t2084 = t66 * t65;
2541   t2085 = t766 * t262;
2542   t2086 = t2084 * t2085;
2543   t2090 = t65 * t2085;
2544   t2094 = t565 * t781;
2545   t2102 = t766 * t279;
2546   t2105 = 0.1e1 / t33;
2547   t2106 = t46 * t2105;
2548   t2111 = t2105 * t128;
2549   t2115 = 0.5e1 / 0.162e3 * t2106 * t912 - 0.5e1 / 0.81e2 * t2106 * t916 + 0.5e1 / 0.486e3 * t925 * t2111 * t62;
2550   t2116 = t65 * t2115;
2551   t2126 = params->c1 * t2105;
2552   t2133 = -0.500e3 / 0.81e2 * t2126 * t384 - 0.2500e4 / 0.729e3 * t507 * t409 * t2105 * t15;
2553   t2135 = t795 * t273;
2554   t2138 = t797 * t273;
2555   t2141 = t2111 * t81;
2556   t2149 = my_piecewise3(t73, t2133 * t79 + 0.3e1 * t2135 * t79 + t2138 * t79, -0.500e3 / 0.81e2 * t970 * t2141 - 0.500e3 / 0.81e2 * t981 * t2141 - 0.250e3 / 0.243e3 * t996 * t2141);
2557   t2152 = 0.48e2 * t849 * t2086 * t84 - 0.24e2 * t303 * t2090 * t84 - 0.24e2 * t1680 * t2094 + 0.24e2 * t303 * t767 * t279 + 0.6e1 * t112 * t2094 - 0.6e1 * t112 * t2102 + 0.2e1 * t112 * t2116 * t84 - 0.6e1 * t112 * t782 * t279 - 0.6e1 * t112 * t263 * t807 - t72 * t2149 + 0.1174e1 * t2149;
2558   t2153 = t7 * t2152;
2559   t2154 = t2153 * t102;
2560   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2561     v3tau3[0] = -0.3e1 / 0.8e1 * t108 * t2154;
2562 
2563 #ifndef XC_DONT_COMPILE_LXC
2564 
2565   if(order < 4) return;
2566 
2567 
2568   t2161 = t1023 * t189 * t192;
2569   t2172 = t109 / t847 / t67;
2570   t2173 = t304 * t304;
2571   t2183 = t370 * t370;
2572   t2197 = 0.1e1 / t17 / t119;
2573   t2198 = sigma[0] * t2197;
2574   t2218 = t887 * rho[0];
2575   t2226 = t127 * t127;
2576   t2228 = t883 * t25 / t2226;
2577   t2236 = t367 * t367;
2578   t2246 = 0.6160e4 / 0.81e2 * tau[0] * t861 - 0.2618e4 / 0.81e2 * t2198;
2579   t2255 = t346 * t346;
2580   t2263 = t350 * t350;
2581   t2265 = t46 * t2263 * t128;
2582   t2267 = t14 * t62;
2583   t2268 = t58 * t10 * t2267;
2584   t2272 = t360 * t10 * t2267;
2585   t2287 = t46 * t979;
2586   t2290 = t128 * t10 * t2267;
2587   t2293 = 0.9163e4 / 0.65610e5 * t47 * t38 * t2197 - t46 * t2246 * t146 / 0.180e3 - t904 * t26 * t481 / 0.27e2 + 0.5e1 / 0.27e2 * t347 * t1101 - t46 * t2255 * t26 * t354 / 0.36e2 - 0.10e2 / 0.27e2 * t347 * t128 * t1110 + 0.125e3 / 0.1458e4 * t2265 * t2268 - 0.125e3 / 0.2187e4 * t2265 * t2272 + t149 * t2246 * t146 / 0.180e3 + t361 * t903 * t488 / 0.81e2 + t361 * t2255 * t364 / 0.108e3 + 0.5e1 / 0.81e2 * t925 * t346 * t1101 + 0.25e2 / 0.4374e4 * t2287 * t2263 * t2290;
2588   t2322 = t409 * t10 * t14;
2589   t2325 = t980 * t2263;
2590   t2329 = t350 * t10;
2591   t2348 = t391 * t391;
2592   t2354 = t393 * t393;
2593   t2358 = t128 * t81;
2594   t2359 = t2358 * t15;
2595   t2362 = t1100 * t975;
2596   t2370 = t2255 * t26 * t398;
2597   t2376 = t363 * t81 * t903;
2598   t2380 = 0.1e1 / t408 / t360;
2599   t2397 = t406 * t406;
2600   t2398 = params->d * t2397;
2601   t2399 = t408 * t408;
2602   t2400 = 0.1e1 / t2399;
2603   t2405 = -0.10000e5 / 0.729e3 * t170 * t2325 * t2359 - 0.1000e4 / 0.27e2 * t970 * t2362 - 0.5000e4 / 0.243e3 * t407 * t995 * t2263 * t2359 - 0.50e2 / 0.27e2 * t396 * t2370 - 0.1000e4 / 0.27e2 * t981 * t2362 - 0.200e3 / 0.81e2 * t974 * t2376 - 0.5000e4 / 0.729e3 * t993 * t2380 * t2263 * t2359 - 0.5e1 / 0.9e1 * t171 * t2246 * t10 * t173 - 0.100e3 / 0.81e2 * t407 * t409 * t903 * t522 - 0.25e2 / 0.27e2 * t410 * t2370 - 0.500e3 / 0.81e2 * t996 * t2362 - 0.1250e4 / 0.2187e4 * t2398 * t2400 * t2263 * t2359;
2604   t2406 = my_piecewise3(t73, (-0.5e1 / 0.9e1 * params->c1 * t2246 * t76 - 0.200e3 / 0.81e2 * t942 * t26 * t165 - 0.1000e4 / 0.27e2 * t376 * t385 - 0.50e2 / 0.27e2 * params->c1 * t2255 * t380 - 0.10000e5 / 0.729e3 * params->c1 * t2263 * t128 * t2322 - 0.50000e5 / 0.6561e4 * t507 * t2325 * t363 - 0.5000e4 / 0.243e3 * t1155 * t2329 * t14 * t346 - 0.500e3 / 0.81e2 * t74 * t384 * t2255 - 0.2000e4 / 0.243e3 * t507 * t955 * t903 - 0.25e2 / 0.81e2 * t162 * t164 * t2246) * t79 + 0.4e1 * t962 * t168 * t79 + 0.3e1 * t2348 * t79 + 0.6e1 * t391 * t393 * t79 + t2354 * t79, t2405);
2605   t2409 = -0.24e2 * t2172 * t2173 * t84 + 0.36e2 * t849 * t305 * t370 - 0.24e2 * t849 * t850 * t177 - 0.6e1 * t303 * t2183 * t84 + 0.24e2 * t303 * t373 * t370 - 0.8e1 * t303 * t157 * t933 + 0.12e2 * t303 * t304 * t414 + t112 * (0.26180e5 / 0.19683e5 * t15 * t2198 + 0.5225e4 / 0.1458e4 * t30 * t31 / t9 / t132 * t42 - 0.5929e4 / 0.288e3 * t129 * t130 / t330 * t42 + 0.2949e4 / 0.640e3 * t329 / t17 / t1409 * t10 * t334 - 0.1053e4 / 0.3200e4 * t886 / t9 / t2218 * t26 * t891 + 0.6561e4 / 0.160000e6 * t2228 * t328 * t31 / t887 / t32 * t42 + 0.6e1 * t2236 + 0.8e1 * t153 * t930 + 0.2e1 * t65 * t2293) * t84 - 0.4e1 * t112 * t933 * t177 - 0.6e1 * t112 * t370 * t414 - 0.4e1 * t112 * t156 * t1000 - t72 * t2406 + 0.1174e1 * t2406;
2606   t2419 = t19 * t87;
2607   t2443 = 0.1e1 / t97 / t363 / t36 / 0.36e2;
2608   t2447 = t101 * t26 * t90;
2609   t2455 = -0.12920861304452160000e4 * t1040 * t181 * t1041 - 0.64604306522260800000e3 * t2161 * t432 * t101 * t91 * t92 - 0.17812440000000000000e3 * t428 * t1008 * t435 - 0.3e1 / 0.8e1 * t108 * t7 * t2409 * t102 - 0.2e1 * t8 * t9 * t1003 * t102 - 0.43069537681507200002e3 * t248 * t7 * t2419 * t1041 + 0.17527082181762906534e4 * t555 * t694 * t26 * t90 * t101 + 0.4e1 / 0.9e1 * t8 * t51 * t180 * t102 - t8 * t287 * t417 * t102 - 0.5e1 / 0.27e2 * t8 * t2419 * t102 - 0.27708240000000000000e4 * t209 * t189 * t192 * t2443 * t1021 * t31 * t2447 - 0.98958000000000000000e1 * t190 * t191 * t1003 * t199;
2610   t2494 = t5 * t7 * t94;
2611   t2499 = -0.37933900000000000000e3 * t248 * t7 * t35 * t87 * t435 - 0.49479000000000000000e1 * t248 * t296 * t417 * t199 + 0.35624880000000000000e3 * t248 * t837 * t180 * t435 - 0.91627777777777777788e0 * t2161 * t199 + 0.21990666666666666667e1 * t248 * t824 * t180 * t199 + 0.48324967257429754121e3 * t439 * t417 * t251 * t441 - 0.23749920000000000000e4 * t1020 * t180 * t1027 * t1029 + 0.66147100843063384139e1 * t844 * t180 * t10 * t1035 + 0.32216644838286502748e3 * t844 * t1016 + 0.51458160000000000000e4 * t248 * t7 * t2197 * t1030 - 0.20e-18 * t2494 * t1036 - 0.44745340053175698261e2 * t2494 * t442;
2612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2613     v4rho4[0] = t2455 + t2499;
2614 
2615   t2501 = t248 * t249 * t2443;
2616   t2502 = t1021 * t101;
2617   t2522 = t557 * t842;
2618   t2541 = t5 * t418;
2619   t2552 = 0.10390590000000000000e4 * t2501 * t2502 * t1918 * sigma[0] * t26 * t90 - 0.77929425000000000000e2 * t545 * t1244 - 0.15101552267946798162e3 * t1228 * t1247 + 0.16536775210765846035e1 * t844 * t243 * t10 * t1035 + 0.92773125000000000000e0 * t248 * t1004 * t254 + 0.80541612095716256868e2 * t844 * t1220 - 0.33559005039881773695e2 * t555 * t2522 * t441 - 0.15585885000000000000e4 * t250 * t1231 * t101 * t861 * t92 + 0.86588250000000000000e2 * t250 * t433 * t548 * t719 - 0.65726558181610899501e3 * t555 * t1536 * rho[0] * t2447 + 0.33398325000000000000e2 * t1223 * t552 - 0.90609313607680788975e2 * t2541 * t559 + 0.66796650000000000000e3 * t545 * t1234 - 0.18603872112111576789e1 * t1228 * t1240 - 0.10335484506728653772e1 * t555 * t1237 * t2522 * t101;
2620   t2564 = t51 * t2 * t4;
2621   t2569 = t229 * t128;
2622   t2572 = t383 * t309;
2623   t2600 = t74 * t128 * t980;
2624   t2610 = t15 * t346;
2625   t2614 = 0.1250e4 / 0.729e3 * t2569 * t952 + 0.5500e4 / 0.729e3 * t507 * t2572 * t144 - 0.3850e4 / 0.2187e4 * t162 * t164 * t861 - 0.500e3 / 0.243e3 * t507 * t1160 * t346 + 0.125e3 / 0.486e3 * t507 * t508 * t903 - 0.770e3 / 0.243e3 * params->c1 * t861 * t76 + 0.550e3 / 0.243e3 * t1144 * t26 * t165 - 0.50e2 / 0.81e2 * t1147 * t388 + 0.125e3 / 0.54e2 * t2569 * t956 + 0.25e2 / 0.324e3 * t504 * t959 - 0.500e3 / 0.81e2 * t501 * t385 + 0.6250e4 / 0.6561e4 * t2600 * t19 * t910 * t363 - 0.2500e4 / 0.729e3 * t1155 * t115 * t350 * t15 + 0.625e3 / 0.486e3 * t1155 * t19 * t144 * t2610;
2626   t2633 = t115 * t128 * t1181;
2627   t2646 = t995 * t19;
2628   t2648 = t128 * t346;
2629   t2649 = t2648 * t521;
2630   t2659 = t980 * t19;
2631   t2665 = t861 * t10;
2632   t2672 = t926 * t15 * t81;
2633   t2688 = -0.250e3 / 0.243e3 * t996 * t2633 - 0.500e3 / 0.81e2 * t981 * t2633 + 0.275e3 / 0.243e3 * t407 * t409 * t309 * t522 - 0.25e2 / 0.81e2 * t1196 * t976 + 0.25e2 / 0.648e3 * t529 * t2376 + 0.125e3 / 0.324e3 * t993 * t2646 * t2649 - 0.500e3 / 0.81e2 * t970 * t2633 + 0.125e3 / 0.54e2 * t170 * t528 * t2649 - 0.50e2 / 0.81e2 * t1185 * t976 + 0.125e3 / 0.54e2 * t407 * t2659 * t2649 + 0.25e2 / 0.324e3 * t520 * t2376 - 0.770e3 / 0.243e3 * t171 * t2665 * t173 + 0.625e3 / 0.8748e4 * t2398 * t2400 * t19 * t2672 + 0.1250e4 / 0.729e3 * t170 * t2659 * t2672 + 0.625e3 / 0.243e3 * t407 * t2646 * t2672 + 0.550e3 / 0.243e3 * t170 * t2572 * t522 + 0.625e3 / 0.729e3 * t993 * t2380 * t19 * t2672;
2634   t2689 = my_piecewise3(t73, 0.3e1 * t1170 * t168 * t79 + t235 * t962 * t79 + t235 * t967 * t79 + 0.3e1 * t515 * t391 * t79 + 0.3e1 * t515 * t393 * t79 + 0.3e1 * t1175 * t169 + t2614 * t79, t2688);
2635   t2700 = t849 * t226;
2636   t2721 = 0.1174e1 * t2689 - 0.6e1 * t849 * t850 * t240 + 0.6e1 * t303 * t499 * t370 - 0.24e2 * t2172 * t227 * t850 + 0.18e2 * t2700 * t854 - 0.2e1 * t303 * t227 * t933 + 0.12e2 * t303 * t1131 * t156 + 0.6e1 * t303 * t1134 * t156 + 0.6e1 * t303 * t497 * t370 - 0.6e1 * t303 * t495 * t370 - 0.18e2 * t849 * t497 * t304;
2637   t2769 = t480 * t346;
2638   t2777 = t128 * t360;
2639   t2780 = t910 * t10 * t2267;
2640   t2789 = t903 * t62;
2641   t2790 = t353 * t2789;
2642   t2793 = t60 * t346;
2643   t2794 = t2793 * t480;
2644   t2805 = t363 * t2789;
2645   t2808 = t2648 * t480;
2646   t2819 = -0.77e2 / 0.2430e4 * t46 * t861 * t146 - 0.5e1 / 0.81e2 * t476 * t128 * t1110 - 0.5e1 / 0.432e3 * t1108 * t2769 + 0.5e1 / 0.486e3 * t925 * t115 * t1101 + 0.5e1 / 0.162e3 * t476 * t1101 + 0.125e3 / 0.17496e5 * t217 * t2777 * t2780 - 0.25e2 / 0.34992e5 * t2287 * t1180 * t2780 - 0.125e3 / 0.11664e5 * t217 * t926 * t2268 + t479 * t2790 / 0.864e3 + 0.5e1 / 0.216e3 * t1108 * t2794 + 0.77e2 / 0.2430e4 * t149 * t861 * t146 - 0.11e2 / 0.972e3 * t361 * t309 * t488 + t1116 * t1119 / 0.324e3 - t487 * t2805 / 0.2592e4 - 0.5e1 / 0.1296e4 * t1122 * t2808 + 0.11e2 / 0.324e3 * t1094 * t26 * t481 - t1097 * t1105 / 0.108e3 - 0.539e3 / 0.21870e5 * t47 * t14 * t861;
2647   t2836 = -0.6e1 * t303 * t1129 * t156 + 0.18e2 * t849 * t495 * t304 - t72 * t2689 - t112 * t933 * t240 - 0.3e1 * t112 * t370 * t533 - 0.3e1 * t112 * t156 * t1204 + t112 * (-0.1540e4 / 0.6561e4 * t2665 * t14 - 0.209e3 / 0.243e3 * t30 * sigma[0] * t866 * t42 + 0.2809e4 / 0.480e3 * t129 * t31 * t871 * t42 - 0.18837e5 / 0.12800e5 * t463 * t880 + 0.29403e5 / 0.256000e6 * t1079 * t892 - 0.19683e5 / 0.1280000e7 * t2228 * t885 / t887 / t113 * t42 + 0.2e1 * t930 * t223 + 0.6e1 * t367 * t491 + 0.6e1 * t153 * t1125 + 0.2e1 * t65 * t2819) * t84 - 0.3e1 * t112 * t1128 * t177 - 0.3e1 * t112 * t494 * t414 - t112 * t226 * t1000 + 0.6e1 * t303 * t304 * t533;
2648   t2867 = t719 * t189;
2649   t2871 = t823 * t189;
2650   t2875 = 0.24162483628714877061e3 * t439 * t536 * t251 * t441 - 0.59374800000000000000e3 * t1020 * t243 * t1027 * t1029 - t1046 * t538 / 0.2e1 + t2564 * t245 / 0.9e1 - 0.3e1 / 0.2e1 * t446 * t1209 - 0.3e1 / 0.8e1 * t108 * t7 * (t2721 + t2836) * t102 - 0.32302153261130400000e3 * t1040 * t244 * t1041 + 0.36339922418771700000e3 * t545 * t1251 + 0.36339922418771700000e3 * t250 * t694 * t51 * t1041 + 0.24226614945847800000e3 * t248 * t249 * t251 * t823 * t432 * t2447 - 0.89062200000000000000e2 * t428 * t1212 * t435 - 0.74218500000000000000e1 * t190 * t191 * t1207 * t199 - 0.24739500000000000000e1 * t1050 * t1212 * t199 + 0.89062200000000000000e2 * t2867 * t541 * t435 + 0.5497666666666666667e0 * t2871 * t541 * t199;
2651   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2652     v4rho3sigma[0] = t2552 + t2875;
2653 
2654   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2655     v4rho3lapl[0] = 0.0e0;
2656 
2657   t2893 = t267 * t128;
2658   t2919 = -0.10000e5 / 0.729e3 * t2893 * t952 - 0.500e3 / 0.27e2 * t2893 * t956 - 0.50e2 / 0.81e2 * t592 * t959 - 0.500e3 / 0.243e3 * t507 * t595 * t903 - 0.50000e5 / 0.6561e4 * t2600 * t51 * t910 * t363 - 0.2500e4 / 0.243e3 * t1155 * t51 * t144 * t2610 + 0.2500e4 / 0.81e2 * t1150 - 0.20000e5 / 0.729e3 * t1162 + 0.11000e5 / 0.2187e4 * t1168 + 0.2200e4 / 0.243e3 * t1145 - 0.2000e4 / 0.243e3 * t1148 + 0.250e3 / 0.81e2 * t1152 + 0.2500e4 / 0.243e3 * t1165 + 0.12500e5 / 0.729e3 * t1158;
2659   t2939 = t995 * t51;
2660   t2946 = t980 * t51;
2661   t2974 = -0.25e2 / 0.81e2 * t610 * t2376 - 0.250e3 / 0.81e2 * t993 * t2939 * t2649 - 0.500e3 / 0.27e2 * t170 * t609 * t2649 - 0.500e3 / 0.27e2 * t407 * t2946 * t2649 - 0.50e2 / 0.81e2 * t605 * t2376 - 0.10000e5 / 0.729e3 * t170 * t2946 * t2672 - 0.5000e4 / 0.243e3 * t407 * t2939 * t2672 - 0.5000e4 / 0.729e3 * t993 * t2380 * t51 * t2672 - 0.1250e4 / 0.2187e4 * t2398 * t2400 * t51 * t2672 + 0.2500e4 / 0.81e2 * t1183 + 0.2500e4 / 0.81e2 * t1188 + 0.1250e4 / 0.243e3 * t1201 - 0.2000e4 / 0.243e3 * t1186 + 0.250e3 / 0.81e2 * t1190 + 0.2200e4 / 0.243e3 * t1193 - 0.1000e4 / 0.243e3 * t1197 + 0.125e3 / 0.81e2 * t1199;
2662   t2975 = my_piecewise3(t73, 0.3e1 * t1339 * t168 * t79 + t273 * t962 * t79 + t273 * t967 * t79 + 0.3e1 * t600 * t391 * t79 + 0.3e1 * t600 * t393 * t79 + 0.3e1 * t1344 * t169 + t2919 * t79, t2974);
2663   t2991 = t849 * t153;
2664   t2997 = t303 * t367;
2665   t3007 = t1305 * t84;
2666   t3011 = t262 * t414;
2667   t3018 = 0.1174e1 * t2975 - t72 * t2975 + 0.6e1 * t303 * t304 * t614 - t112 * t933 * t279 - 0.3e1 * t112 * t370 * t614 + 0.36e2 * t1260 * t1267 * t304 - 0.12e2 * t1264 * t1275 + 0.36e2 * t2991 * t1261 - 0.36e2 * t1260 * t1271 * t304 - 0.12e2 * t2997 * t566 - 0.24e2 * t1264 * t1268 - 0.12e2 * t564 * t1267 * t370 + 0.24e2 * t1264 * t1272 - 0.12e2 * t564 * t3007 * t156 + 0.12e2 * t564 * t3011 * t156 + 0.12e2 * t564 * t1271 * t370;
2668   t3022 = t581 * t177;
2669   t3026 = t2172 * t65;
2670   t3058 = 0.5e1 / 0.54e2 * t1295 * t2769 + t578 * t2805 / 0.324e3 + 0.5e1 / 0.162e3 * t1302 * t2808 - t574 * t2790 / 0.108e3 - 0.5e1 / 0.27e2 * t1295 * t2794 - 0.125e3 / 0.2187e4 * t257 * t2777 * t2780 + 0.25e2 / 0.4374e4 * t2287 * t1349 * t2780 + 0.125e3 / 0.1458e4 * t257 * t926 * t2268 - 0.10e2 / 0.81e2 * t1098 + 0.5e1 / 0.108e3 * t1106 - 0.22e2 / 0.243e3 * t1114 + 0.10e2 / 0.243e3 * t1117 - 0.5e1 / 0.324e3 * t1120 + 0.22e2 / 0.243e3 * t1095 + 0.25e2 / 0.81e2 * t1111 - 0.25e2 / 0.486e3 * t1123 - 0.25e2 / 0.162e3 * t1102;
2671   t3106 = -0.4e1 * t564 * t565 * t933 + 0.24e2 * t564 * t3022 * t156 - 0.48e2 * t3026 * t565 * t850 + 0.2e1 * t112 * t65 * t3058 * t84 + 0.6e1 * t112 * t153 * t1305 * t84 - 0.12e2 * t112 * t1282 * t177 + 0.2e1 * t112 * t930 * t262 * t84 + 0.6e1 * t112 * t367 * t581 * t84 - 0.6e1 * t112 * t1278 * t177 + 0.6e1 * t303 * t589 * t370 - 0.6e1 * t112 * t1306 * t177 - 0.6e1 * t112 * t582 * t414 - 0.6e1 * t112 * t569 * t414 - 0.2e1 * t112 * t263 * t1000 + 0.36e2 * t1260 * t565 * t156 * t370 - 0.6e1 * t849 * t850 * t279 - 0.3e1 * t112 * t156 * t1365;
2672   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2673     v4rho3tau[0] = t2564 * t284 / 0.9e1 - t1046 * t619 / 0.2e1 + 0.5497666666666666667e0 * t2871 * t622 * t199 - 0.3e1 / 0.2e1 * t446 * t1370 - 0.24739500000000000000e1 * t1050 * t1373 * t199 + 0.89062200000000000000e2 * t2867 * t622 * t435 + 0.80541612095716256868e2 * t844 * t1381 - 0.3e1 / 0.8e1 * t108 * t7 * (t3018 + t3106) * t102 - 0.74218500000000000000e1 * t190 * t191 * t1368 * t199 - 0.89062200000000000000e2 * t428 * t1373 * t435 + 0.24162483628714877061e3 * t439 * t617 * t251 * t441 - 0.59374800000000000000e3 * t1020 * t282 * t1027 * t1029 + 0.16536775210765846035e1 * t844 * t282 * t10 * t1035 - 0.32302153261130400000e3 * t1040 * t283 * t1041;
2674 
2675   t3175 = -0.2e1 * t112 * t1442 * t177 - 0.4e1 * t303 * t227 * t1128 - 0.12e2 * t849 * t1392 * t156 - 0.4e1 * t303 * t1443 * t156 + 0.4e1 * t303 * t1445 * t156 + 0.8e1 * t303 * t1453 * t156 - 0.24e2 * t2172 * t627 * t304 - 0.2e1 * t303 * t658 * t370 + 0.4e1 * t303 * t660 * t370 + 0.8e1 * t303 * t497 * t494 + 0.6e1 * t849 * t658 * t304 + 0.6e1 * t849 * t627 * t370 + 0.24e2 * t2700 * t1057;
2676   t3189 = t409 * t350 * t15;
2677   t3192 = t384 * t346;
2678   t3219 = t515 * t515;
2679   t3234 = t2358 * t2329 * t14;
2680   t3238 = t121 * t128 * t521;
2681   t3245 = t1480 * t975;
2682   t3249 = t315 * t26 * t398;
2683   t3270 = -0.625e3 / 0.2916e4 * t170 * t980 * t35 * t3234 + 0.250e3 / 0.243e3 * t970 * t3238 - 0.625e3 / 0.1944e4 * t407 * t995 * t35 * t3234 - 0.125e3 / 0.1296e4 * t970 * t3245 - 0.475e3 / 0.1458e4 * t396 * t3249 + 0.250e3 / 0.243e3 * t981 * t3238 - 0.125e3 / 0.1296e4 * t981 * t3245 - 0.625e3 / 0.5832e4 * t993 * t2380 * t35 * t3234 - 0.475e3 / 0.2916e4 * t410 * t3249 + 0.125e3 / 0.729e3 * t996 * t3238 - 0.125e3 / 0.7776e4 * t996 * t3245 - 0.625e3 / 0.69984e5 * t2398 * t2400 * t35 * t3234;
2684   t3271 = my_piecewise3(t73, (-0.475e3 / 0.1458e4 * params->c1 * t315 * t380 + 0.250e3 / 0.243e3 * t1458 * t1461 - 0.625e3 / 0.2916e4 * t663 * t128 * t3189 - 0.125e3 / 0.1296e4 * t663 * t3192 - 0.3125e4 / 0.26244e5 * t2600 * t35 * t350 * t363 + 0.1250e4 / 0.2187e4 * t1155 * t121 * t144 * t15 - 0.625e3 / 0.11664e5 * t1155 * t35 * t346 * t15 - 0.2375e4 / 0.2187e4 * t74 * t384 * t315) * t79 + 0.2e1 * t1471 * t168 * t79 + t669 * t391 * t79 + t669 * t393 * t79 + 0.2e1 * t3219 * t79 + 0.4e1 * t517 * t516 + 0.2e1 * t236 * t1170 + t671 * t391 * t79 + t671 * t393 * t79, t3270);
2685   t3299 = t491 * t491;
2686   t3316 = t2648 * t62;
2687   t3322 = t2793 * t62;
2688   t3326 = t2329 * t2267;
2689   t3340 = -0.19e2 / 0.3888e4 * t46 * t315 * t26 * t354 - 0.5e1 / 0.972e3 * t1420 * t1425 + 0.5e1 / 0.486e3 * t1420 * t128 * t1430 + 0.5e1 / 0.10368e5 * t647 * t3316 + 0.125e3 / 0.93312e5 * t647 * t1100 * t2268 - 0.5e1 / 0.5184e4 * t1428 * t3322 - 0.125e3 / 0.139968e6 * t647 * t2777 * t3326 + 0.19e2 / 0.11664e5 * t361 * t315 * t364 - 0.5e1 / 0.2916e4 * t925 * t121 * t1425 + 0.5e1 / 0.31104e5 * t1436 * t3316 + 0.25e2 / 0.279936e6 * t2287 * t1480 * t3326;
2690   t3355 = t494 * t494;
2691   t3368 = 0.8e1 * t303 * t1450 * t156 - 0.12e2 * t849 * t660 * t304 + 0.1174e1 * t3271 - t112 * t370 * t681 + 0.2e1 * t303 * t626 * t414 + t112 * (0.19e2 / 0.162e3 * t27 * t29 * t315 * t42 - 0.41e2 / 0.32e2 * t129 * t321 * sigma[0] * t42 + 0.1323e4 / 0.3200e4 * t327 * t332 * t31 * t10 * t334 - 0.78003e5 / 0.2048000e7 * t1408 * t1084 + 0.59049e5 / 0.10240000e8 * t2228 * t328 / t887 / t16 * t42 + 0.4e1 * t3299 + 0.4e1 * t223 * t1125 + 0.2e1 * t367 * t654 + 0.4e1 * t153 * t1439 + 0.2e1 * t65 * t3340) * t84 - 0.2e1 * t112 * t1128 * t240 - 0.4e1 * t112 * t494 * t533 - 0.2e1 * t112 * t226 * t1204 - 0.4e1 * t303 * t3355 * t84 - 0.2e1 * t112 * t156 * t1495 - t112 * t657 * t414 + 0.2e1 * t303 * t304 * t681 - t72 * t3271;
2692   t3382 = t5 * t537;
2693   t3393 = t706 * t17;
2694   t3402 = -t446 * t1500 - t1046 * t686 / 0.6e1 - 0.3e1 / 0.8e1 * t108 * t7 * (t3175 + t3368) * t102 + 0.11326164200960098622e2 * t2541 * t708 + 0.24647459318104087313e3 * t555 * t1888 * t16 * t2447 + 0.44531100000000000000e2 * t1507 * t552 - 0.12081241814357438530e3 * t3382 * t559 + 0.44531100000000000000e3 * t689 * t1234 - 0.12402581408074384526e1 * t1512 * t1240 - 0.16699162500000000000e3 * t545 * t1521 + 0.46509680280278941972e0 * t1228 * t1526 + 0.11627420070069735493e1 * t555 * t1237 * t3393 * t101 - 0.46386562500000000000e0 * t1223 * t702 + 0.90609313607680788976e2 * t1228 * t1531;
2695   t3427 = t2017 * t26;
2696   t3454 = 0.80541612095716256868e2 * t439 * t684 * t251 * t441 + 0.18554625000000000000e1 * t248 * t1208 * t254 + 0.75507761339733990813e2 * t555 * t3393 * t441 + 0.30615131250000000000e3 * t250 * t1231 * t1519 * t309 - 0.51952950000000000000e2 * t689 * t1244 - 0.10067701511964532109e3 * t1512 * t1247 - 0.90849806046929250000e2 * t248 * t249 * t557 * t295 * t432 * t2447 - 0.38964712500000000000e3 * t2501 * t2502 * t3427 * t90 - 0.41747906250000000000e1 * t248 * t418 * t432 * t697 - 0.29687400000000000000e2 * t428 * t1503 * t435 - 0.49479000000000000000e1 * t190 * t191 * t1498 * t199 - 0.8246500000000000000e0 * t1050 * t1503 * t199 - 0.90849806046929250000e2 * t545 * t1538 - 0.28769105248194262500e3 * t250 * t1536 * t287 * t1041 + 0.24226614945847800000e3 * t689 * t1251;
2697   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2698     v4rho2sigma2[0] = t3402 + t3454;
2699 
2700   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2701     v4rho2sigmalapl[0] = 0.0e0;
2702 
2703   t3503 = (0.1300e4 / 0.729e3 * t1459 - 0.1625e4 / 0.243e3 * t1462 + 0.1250e4 / 0.729e3 * t737 * t128 * t3189 + 0.125e3 / 0.162e3 * t737 * t3192 + 0.6250e4 / 0.6561e4 * t2600 * t719 * t350 * t363 - 0.8125e4 / 0.2187e4 * t1466 + 0.625e3 / 0.1458e4 * t1155 * t719 * t346 * t15 + 0.13000e5 / 0.2187e4 * t1469) * t79 + 0.2e1 * t1629 * t168 * t79 + t743 * t391 * t79 + t743 * t393 * t79 + t1339 * t235 * t79 + 0.2e1 * t600 * t515 * t79 + 0.2e1 * t1633 * t169 + t273 * t1170 * t79 + 0.2e1 * t1635 * t169 + t745 * t392 + t745 * t394;
2704   t3513 = t1639 * t975;
2705   t3532 = 0.1250e4 / 0.729e3 * t170 * t980 * t719 * t3234 - 0.1625e4 / 0.243e3 * t1482 + 0.625e3 / 0.243e3 * t407 * t995 * t719 * t3234 + 0.125e3 / 0.162e3 * t970 * t3513 + 0.1300e4 / 0.729e3 * t1486 - 0.1625e4 / 0.243e3 * t1488 + 0.125e3 / 0.162e3 * t981 * t3513 + 0.625e3 / 0.729e3 * t993 * t2380 * t719 * t3234 + 0.650e3 / 0.729e3 * t1490 - 0.1625e4 / 0.1458e4 * t1492 + 0.125e3 / 0.972e3 * t996 * t3513 + 0.625e3 / 0.8748e4 * t2398 * t2400 * t719 * t3234;
2706   t3533 = my_piecewise3(t73, t3503, t3532);
2707   t3565 = -0.2e1 * t112 * t494 * t614 - t72 * t3533 + 0.1174e1 * t3533 - t112 * t226 * t1365 - t112 * t370 * t755 - 0.2e1 * t112 * t156 * t1650 - t112 * t1128 * t279 + 0.2e1 * t303 * t304 * t755 - 0.8e1 * t1264 * t1549 - 0.4e1 * t564 * t3007 * t226 - 0.4e1 * t2997 * t711 - 0.8e1 * t564 * t1267 * t494 - 0.8e1 * t1264 * t1555 + 0.8e1 * t1264 * t1552 + 0.4e1 * t564 * t3011 * t226;
2708   t3575 = t849 * t223;
2709   t3586 = t303 * t491;
2710   t3598 = t1591 * t84;
2711   t3602 = t262 * t533;
2712   t3609 = -0.4e1 * t564 * t565 * t1128 + 0.12e2 * t1260 * t1572 * t304 - 0.12e2 * t1260 * t1599 * t304 + 0.8e1 * t564 * t1271 * t494 - 0.8e1 * t564 * t3598 * t156 + 0.8e1 * t564 * t3602 * t156 - 0.4e1 * t564 * t1572 * t370 + 0.4e1 * t564 * t1599 * t370 + 0.8e1 * t564 * t3022 * t226 + 0.12e2 * t3575 * t1261 - 0.8e1 * t1264 * t1573 - 0.8e1 * t1558 * t1268 + 0.8e1 * t1558 * t1272 - 0.4e1 * t1558 * t1275 - 0.8e1 * t3586 * t566;
2713   t3611 = t727 * t177;
2714   t3617 = t581 * t240;
2715   t3664 = 0.8e1 * t564 * t3611 * t156 + 0.8e1 * t1264 * t1600 + 0.8e1 * t564 * t3617 * t156 - 0.4e1 * t112 * t1561 * t177 + 0.2e1 * t112 * t223 * t1305 * t84 + 0.2e1 * t112 * t1125 * t262 * t84 + 0.4e1 * t112 * t491 * t581 * t84 + 0.24e2 * t1260 * t565 * t494 * t156 - 0.48e2 * t3026 * t565 * t226 * t304 + 0.2e1 * t112 * t367 * t727 * t84 + 0.4e1 * t112 * t153 * t1591 * t84 - 0.4e1 * t112 * t1565 * t177 - 0.2e1 * t112 * t714 * t414 - 0.6e1 * t849 * t735 * t304 - 0.4e1 * t112 * t1282 * t240;
2716   t3697 = 0.13e2 / 0.486e3 * t1422 + 0.65e2 / 0.1944e4 * t1426 - 0.65e2 / 0.972e3 * t1431 - 0.5e1 / 0.1296e4 * t720 * t3316 - 0.125e3 / 0.11664e5 * t720 * t1100 * t2268 + 0.5e1 / 0.648e3 * t1584 * t3322 + 0.125e3 / 0.17496e5 * t720 * t2777 * t3326 - 0.13e2 / 0.1458e4 * t1434 + 0.65e2 / 0.5832e4 * t1437 - 0.5e1 / 0.3888e4 * t1588 * t3316 - 0.25e2 / 0.34992e5 * t2287 * t1639 * t3326;
2717   t3735 = -0.4e1 * t112 * t569 * t533 - 0.2e1 * t112 * t1306 * t240 - 0.2e1 * t112 * t728 * t414 - 0.4e1 * t112 * t1576 * t177 + 0.2e1 * t112 * t65 * t3697 * t84 - 0.4e1 * t112 * t1592 * t177 + 0.2e1 * t303 * t735 * t370 - 0.4e1 * t112 * t582 * t533 - 0.2e1 * t112 * t263 * t1204 + 0.4e1 * t303 * t1615 * t156 - 0.2e1 * t112 * t1278 * t240 + 0.4e1 * t303 * t1617 * t156 + 0.24e2 * t2991 * t1544 + 0.24e2 * t1260 * t1267 * t1543 + 0.12e2 * t1260 * t565 * t226 * t370 - 0.24e2 * t1260 * t1271 * t1543;
2718   t3758 = t5 * t618;
2719   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2720     v4rho2sigmatau[0] = -t1046 * t760 / 0.6e1 - t446 * t1656 - 0.8246500000000000000e0 * t1050 * t1659 * t199 - 0.3e1 / 0.8e1 * t108 * t7 * (t3565 + t3609 + t3664 + t3735) * t102 - 0.49479000000000000000e1 * t190 * t191 * t1654 * t199 - 0.29687400000000000000e2 * t428 * t1659 * t435 + 0.80541612095716256868e2 * t439 * t758 * t251 * t441 + 0.92773125000000000000e0 * t248 * t1369 * t254 + 0.22265550000000000000e2 * t1663 * t552 - 0.60406209071787192650e2 * t3758 * t559 + 0.22265550000000000000e3 * t763 * t1234 - 0.62012907040371922630e0 * t1668 * t1240 - 0.25976475000000000000e2 * t763 * t1244 - 0.50338507559822660542e2 * t1668 * t1247 + 0.12113307472923900000e3 * t763 * t1251;
2721 
2722   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2723     v4rho2lapl2[0] = 0.0e0;
2724 
2725   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2726     v4rho2lapltau[0] = 0.0e0;
2727 
2728   t3777 = t303 * t262;
2729   t3780 = t565 * t1305;
2730   t3783 = t1271 * t581;
2731   t3786 = t781 * t177;
2732   t3792 = t1712 * t84;
2733   t3804 = t581 * t279;
2734   t3808 = t262 * t614;
2735   t3815 = -0.24e2 * t1260 * t1720 * t304 + 0.8e1 * t564 * t3786 * t156 - 0.8e1 * t564 * t3792 * t156 + 0.16e2 * t564 * t3804 * t156 + 0.16e2 * t564 * t3808 * t156 - 0.4e1 * t564 * t1694 * t370 + 0.8e1 * t564 * t1720 * t370 - 0.8e1 * t1264 * t1695 + 0.16e2 * t1264 * t1721 - 0.16e2 * t3777 * t1268 - 0.16e2 * t1680 * t3780 + 0.32e2 * t1680 * t3783;
2736   t3819 = t581 * t581;
2737   t3833 = t771 * t370;
2738   t3836 = t1691 * t156;
2739   t3869 = -0.65e2 / 0.486e3 * t649 - 0.50e2 / 0.243e3 * t1582 + 0.100e3 / 0.243e3 * t1585 + 0.5e1 / 0.162e3 * t774 * t3316 + 0.125e3 / 0.1458e4 * t774 * t1100 * t2268 - 0.5e1 / 0.81e2 * t1705 * t3322 - 0.125e3 / 0.2187e4 * t774 * t2777 * t3326 + 0.65e2 / 0.1458e4 * t652 - 0.50e2 / 0.729e3 * t1589 + 0.5e1 / 0.486e3 * t1709 * t3316 + 0.25e2 / 0.4374e4 * t2287 * t1752 * t3326;
2740   t3877 = 0.4e1 * t112 * t153 * t1712 * t84 + 0.2e1 * t112 * t65 * t3869 * t84 - 0.16e2 * t303 * t338 * t766 * t84 - 0.16e2 * t303 * t66 * t3819 * t84 - 0.4e1 * t112 * t1698 * t177 - 0.4e1 * t112 * t1713 * t177 - 0.2e1 * t112 * t782 * t414 + 0.12e2 * t1260 * t1694 * t304 + 0.8e1 * t303 * t767 * t414 - 0.8e1 * t112 * t3783 - 0.4e1 * t303 * t3833 + 0.8e1 * t303 * t3836;
2741   t3900 = t771 * t304;
2742   t3914 = 0.2e1 * t112 * t367 * t781 * t84 - 0.4e1 * t112 * t1278 * t279 - 0.8e1 * t112 * t1282 * t279 - 0.4e1 * t112 * t1306 * t279 - 0.4e1 * t112 * t263 * t1365 - 0.2e1 * t112 * t156 * t1763 - t112 * t370 * t807 - 0.8e1 * t112 * t569 * t614 - 0.8e1 * t112 * t582 * t614 + 0.2e1 * t303 * t304 * t807 + 0.4e1 * t112 * t3780 + 0.12e2 * t849 * t3900;
2743   t3947 = t600 * t600;
2744   t3968 = t1752 * t975;
2745   t3987 = -0.10000e5 / 0.729e3 * t170 * t980 * t427 * t3234 + 0.10000e5 / 0.243e3 * t1641 - 0.5000e4 / 0.243e3 * t407 * t995 * t427 * t3234 - 0.500e3 / 0.81e2 * t970 * t3968 - 0.6500e4 / 0.729e3 * t676 + 0.10000e5 / 0.243e3 * t1644 - 0.500e3 / 0.81e2 * t981 * t3968 - 0.5000e4 / 0.729e3 * t993 * t2380 * t427 * t3234 - 0.3250e4 / 0.729e3 * t678 + 0.5000e4 / 0.729e3 * t1647 - 0.250e3 / 0.243e3 * t996 * t3968 - 0.1250e4 / 0.2187e4 * t2398 * t2400 * t427 * t3234;
2746   t3988 = my_piecewise3(t73, (-0.6500e4 / 0.729e3 * t664 + 0.10000e5 / 0.243e3 * t1622 - 0.10000e5 / 0.729e3 * t789 * t128 * t3189 - 0.500e3 / 0.81e2 * t789 * t3192 - 0.50000e5 / 0.6561e4 * t2600 * t427 * t350 * t363 + 0.50000e5 / 0.2187e4 * t1626 - 0.2500e4 / 0.729e3 * t1155 * t427 * t346 * t15 - 0.65000e5 / 0.2187e4 * t667) * t79 + 0.2e1 * t1743 * t168 * t79 + t795 * t391 * t79 + t795 * t393 * t79 + 0.2e1 * t3947 * t79 + 0.4e1 * t602 * t601 + 0.2e1 * t274 * t1339 + t797 * t391 * t79 + t797 * t393 * t79, t3987);
2747   t3997 = t2172 * t66;
2748   t4015 = 0.4e1 * t112 * t3819 * t84 - 0.2e1 * t112 * t766 * t414 + 0.1174e1 * t3988 - 0.16e2 * t564 * t771 * t367 + 0.32e2 * t564 * t1691 * t153 - t72 * t3988 - 0.96e2 * t3997 * t3900 - 0.48e2 * t1673 * t3836 + 0.24e2 * t1673 * t3833 - 0.64e2 * t564 * t565 * t1282 + 0.96e2 * t1260 * t771 * t156 * t153 + 0.96e2 * t1673 * t565 * t156 * t581;
2749   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2750     v4rho2tau2[0] = -t1046 * t812 / 0.6e1 - t446 * t1768 - 0.8246500000000000000e0 * t1050 * t1771 * t199 - 0.3e1 / 0.8e1 * t108 * t7 * (t3815 + t3877 + t3914 + t4015) * t102 - 0.49479000000000000000e1 * t190 * t191 * t1766 * t199 - 0.29687400000000000000e2 * t428 * t1771 * t435 + 0.80541612095716256868e2 * t439 * t810 * t251 * t441;
2751 
2752   t4035 = t2105 * t26;
2753   t4080 = -0.6e1 * t303 * t227 * t1442 - 0.24e2 * t2172 * t1776 * t156 - 0.18e2 * t849 * t1782 * t156 - 0.2e1 * t303 * t1813 * t156 - 0.6e1 * t849 * t1775 * t177 + 0.12e2 * t303 * t660 * t494 - 0.6e1 * t303 * t495 * t657 + 0.6e1 * t303 * t497 * t657 + 0.6e1 * t303 * t626 * t533 + 0.18e2 * t849 * t627 * t494 + 0.18e2 * t2700 * t1395;
2754   t4102 = t46 * t133;
2755   t4105 = t128 * t58;
2756   t4107 = t172 * t2267;
2757   t4115 = t133 * t128;
2758   t4155 = t409 * t144 * t15;
2759   t4159 = t29 * t144;
2760   t4187 = t2358 * t172 * t14;
2761   t4190 = t4115 * t81;
2762   t4210 = my_piecewise3(t73, (-0.125e3 / 0.1296e4 * params->c1 * t133 * t384 + 0.625e3 / 0.23328e5 * t1821 * t128 * t4155 + 0.3125e4 / 0.209952e6 * t2600 * t209 * t26 * t4159 - 0.625e3 / 0.11664e5 * t507 * t409 * t133 * t15) * t79 + t1828 * t168 * t79 + 0.3e1 * t1471 * t235 * t79 + 0.3e1 * t669 * t515 * t79 + 0.3e1 * t1830 * t169 + 0.3e1 * t672 * t515 + t1833 * t168 * t79, 0.625e3 / 0.23328e5 * t170 * t980 * t209 * t4187 - 0.125e3 / 0.1296e4 * t970 * t4190 + 0.625e3 / 0.15552e5 * t407 * t995 * t209 * t4187 - 0.125e3 / 0.1296e4 * t981 * t4190 + 0.625e3 / 0.46656e5 * t993 * t2380 * t209 * t4187 - 0.125e3 / 0.7776e4 * t996 * t4190 + 0.625e3 / 0.559872e6 * t2398 * t2400 * t209 * t4187);
2763   t4213 = t112 * (0.27e2 / 0.160e3 * t129 * t133 * t42 - 0.243e3 / 0.2560e4 * t327 * t466 * t15 * sigma[0] * t42 + 0.24057e5 / 0.2048000e7 * t1791 * t1413 - 0.177147e6 / 0.81920000e8 * t2228 * t130 / t2218 * t42 + 0.6e1 * t491 * t654 + 0.6e1 * t223 * t1439 + 0.2e1 * t153 * t1809 + 0.2e1 * t65 * (0.5e1 / 0.10368e5 * t4102 * t912 - 0.125e3 / 0.746496e6 * t1800 * t4105 * t4107 - 0.5e1 / 0.5184e4 * t4102 * t916 + 0.125e3 / 0.1119744e7 * t1800 * t2777 * t4107 + 0.5e1 / 0.31104e5 * t925 * t4115 * t62 - 0.25e2 / 0.2239488e7 * t2287 * t1805 * t4107)) * t84 - t112 * t1812 * t177 + 0.6e1 * t303 * t1815 * t156 - 0.3e1 * t112 * t1442 * t240 - 0.3e1 * t112 * t657 * t533 + 0.6e1 * t303 * t1818 * t156 - 0.3e1 * t112 * t494 * t681 - 0.3e1 * t112 * t226 * t1495 - t112 * t156 * t1844 - t72 * t4210 + 0.1174e1 * t4210;
2764   t4223 = t1874 * t50;
2765   t4237 = 0.1e1 / t328;
2766   t4242 = 0.14611767187500000000e3 * t2501 * t1021 * t694 * t101 * t4035 * t90 - 0.13627470907039387500e3 * t689 * t1538 + 0.19305583784972465625e3 * t250 * t1888 * t9 * t1041 + 0.17034338633799234375e2 * t545 * t1890 - 0.3e1 / 0.8e1 * t108 * t7 * (t4080 + t4213) * t102 + 0.33978492602880295866e2 * t3382 * t708 + 0.31310929687500000000e2 * t545 * t1865 - 0.87205650525523016197e0 * t555 * t1237 * t4223 * t101 - 0.87205650525523016199e-1 * t1228 * t1877 + 0.69579843750000000000e0 * t545 * t1882 - 0.11326164200960098622e3 * t555 * t4223 * t441 - 0.33978492602880295866e2 * t1228 * t1885 - 0.92427972442890327423e2 * t555 * t4237 * t113 * t2447;
2767   t4248 = t5 * t685;
2768   t4281 = 0.27831937500000000000e1 * t248 * t1499 * t254 + 0.33398325000000000000e2 * t1852 * t552 - 0.90609313607680788976e2 * t4248 * t559 - 0.25048743750000000000e3 * t689 * t1521 + 0.69764520420418412959e0 * t1512 * t1526 - 0.13915968750000000000e1 * t1507 * t702 + 0.13591397041152118346e3 * t1512 * t1531 + 0.41747906250000000000e2 * t250 * t1231 * t1863 * t115 + 0.34068677267598468750e2 * t248 * t249 * t706 * t185 * t432 * t2447 + 0.62621859375000000000e1 * t1516 * t1870 - 0.12524371875000000000e2 * t248 * t537 * t432 * t697 - 0.24739500000000000000e1 * t190 * t191 * t1847 * t199 - t446 * t1849 / 0.2e1;
2769   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2770     v4rhosigma3[0] = t4242 + t4281;
2771 
2772   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2773     v4rhosigma2lapl[0] = 0.0e0;
2774 
2775   t4315 = (0.875e3 / 0.1296e4 * t1822 - 0.625e3 / 0.2916e4 * t1947 * t128 * t4155 - 0.3125e4 / 0.26244e5 * t2600 * t1918 * t26 * t4159 + 0.4375e4 / 0.11664e5 * t1826) * t79 + t1954 * t168 * t79 + 0.2e1 * t1629 * t235 * t79 + 0.2e1 * t743 * t515 * t79 + 0.2e1 * t1956 * t169 + t600 * t669 * t79 + t273 * t1471 * t79 + t1959 * t169 + t600 * t671 * t79 + 0.2e1 * t745 * t516 + t1961 * t169;
2776   t4336 = my_piecewise3(t73, t4315, -0.625e3 / 0.2916e4 * t170 * t980 * t1918 * t4187 + 0.875e3 / 0.1296e4 * t1837 - 0.625e3 / 0.1944e4 * t407 * t995 * t1918 * t4187 + 0.875e3 / 0.1296e4 * t1839 - 0.625e3 / 0.5832e4 * t993 * t2380 * t1918 * t4187 + 0.875e3 / 0.7776e4 * t1841 - 0.625e3 / 0.69984e5 * t2398 * t2400 * t1918 * t4187);
2777   t4371 = 0.1174e1 * t4336 - t72 * t4336 - t112 * t156 * t1972 - t112 * t1442 * t279 - t112 * t657 * t614 - 0.2e1 * t112 * t494 * t755 - 0.2e1 * t112 * t226 * t1650 + 0.2e1 * t303 * t626 * t614 - 0.8e1 * t1558 * t1549 + 0.12e2 * t2991 * t1893 + 0.12e2 * t1260 * t1267 * t626 + 0.8e1 * t1558 * t1552 - 0.12e2 * t1260 * t1271 * t626 - 0.8e1 * t3586 * t711 - 0.8e1 * t564 * t1572 * t494;
2778   t4404 = t303 * t654;
2779   t4409 = t1928 * t84;
2780   t4413 = -0.4e1 * t564 * t1267 * t657 + 0.4e1 * t564 * t1271 * t657 - 0.4e1 * t564 * t565 * t1442 - 0.4e1 * t564 * t4409 * t156 + 0.8e1 * t564 * t1599 * t494 - 0.8e1 * t564 * t3598 * t226 + 0.8e1 * t564 * t3602 * t226 + 0.8e1 * t564 * t3611 * t226 + 0.8e1 * t564 * t3617 * t226 - 0.8e1 * t1264 * t1898 + 0.8e1 * t1264 * t1901 - 0.4e1 * t1264 * t1904 - 0.8e1 * t1558 * t1555 - 0.8e1 * t1558 * t1573 - 0.4e1 * t4404 * t566;
2781   t4415 = t727 * t240;
2782   t4421 = t262 * t681;
2783   t4480 = 0.8e1 * t564 * t4415 * t156 + 0.8e1 * t1558 * t1600 + 0.4e1 * t564 * t4421 * t156 + 0.4e1 * t112 * t223 * t1591 * t84 - 0.4e1 * t112 * t1911 * t177 - 0.4e1 * t112 * t714 * t533 + 0.2e1 * t112 * t153 * t1928 * t84 + 0.2e1 * t112 * t65 * (-0.35e2 / 0.10368e5 * t1801 + 0.125e3 / 0.93312e5 * t1919 * t4105 * t4107 + 0.35e2 / 0.5184e4 * t1803 - 0.125e3 / 0.139968e6 * t1919 * t2777 * t4107 - 0.35e2 / 0.31104e5 * t1807 + 0.25e2 / 0.279936e6 * t2287 * t1924 * t4107) * t84 + 0.2e1 * t112 * t1439 * t262 * t84 + 0.2e1 * t112 * t654 * t581 * t84 - 0.2e1 * t112 * t1907 * t177 + 0.4e1 * t112 * t491 * t727 * t84 - 0.4e1 * t112 * t1576 * t240 - 0.4e1 * t112 * t1592 * t240 - 0.4e1 * t112 * t728 * t533;
2784   t4531 = 0.12e2 * t1260 * t565 * t657 * t156 + 0.24e2 * t1260 * t565 * t226 * t494 - 0.48e2 * t3026 * t565 * t626 * t156 - 0.2e1 * t112 * t263 * t1495 - 0.4e1 * t112 * t1561 * t240 - 0.4e1 * t112 * t1565 * t240 - 0.2e1 * t112 * t1929 * t177 - 0.2e1 * t112 * t569 * t681 - 0.2e1 * t112 * t582 * t681 + 0.24e2 * t1260 * t1572 * t1543 - 0.24e2 * t1260 * t1599 * t1543 - 0.6e1 * t849 * t1939 * t156 + 0.2e1 * t303 * t1942 * t156 + 0.4e1 * t303 * t1944 * t156 + 0.4e1 * t303 * t735 * t494 + 0.24e2 * t3575 * t1544;
2785   t4547 = t5 * t759;
2786   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2787     v4rhosigma2tau[0] = -t446 * t1977 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t7 * (t4371 + t4413 + t4480 + t4531) * t102 - 0.24739500000000000000e1 * t190 * t191 * t1975 * t199 + 0.18554625000000000000e1 * t248 * t1655 * t254 + 0.22265550000000000000e2 * t1980 * t552 - 0.60406209071787192651e2 * t4547 * t559 - 0.41747906250000000000e1 * t248 * t618 * t432 * t697 - 0.83495812500000000000e2 * t763 * t1521 + 0.23254840140139470986e0 * t1668 * t1526 - 0.46386562500000000000e0 * t1663 * t702 + 0.45304656803840394488e2 * t1668 * t1531 + 0.11326164200960098622e2 * t3758 * t708 - 0.45424903023464625000e2 * t763 * t1538;
2788 
2789   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2790     v4rhosigmalapl2[0] = 0.0e0;
2791 
2792   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2793     v4rhosigmalapltau[0] = 0.0e0;
2794 
2795   t4596 = (-0.125e3 / 0.27e2 * t1948 + 0.1250e4 / 0.729e3 * t2049 * t128 * t4155 + 0.6250e4 / 0.6561e4 * t2600 * t3427 * t4159 - 0.625e3 / 0.243e3 * t1952) * t79 + t2056 * t168 * t79 + t1743 * t235 * t79 + t795 * t515 * t79 + t2058 * t169 + 0.2e1 * t601 * t743 + 0.2e1 * t602 * t744 + 0.2e1 * t274 * t1629 + 0.2e1 * t745 * t601 + t797 * t515 * t79 + t2062 * t169;
2796   t4617 = my_piecewise3(t73, t4596, 0.1250e4 / 0.729e3 * t170 * t980 * t2017 * t4187 - 0.125e3 / 0.27e2 * t1965 + 0.625e3 / 0.243e3 * t407 * t995 * t2017 * t4187 - 0.125e3 / 0.27e2 * t1967 + 0.625e3 / 0.729e3 * t993 * t2380 * t2017 * t4187 - 0.125e3 / 0.162e3 * t1969 + 0.625e3 / 0.8748e4 * t2398 * t2400 * t2017 * t4187);
2797   t4626 = t771 * t494;
2798   t4629 = t2007 * t156;
2799   t4632 = t1691 * t226;
2800   t4639 = t1267 * t727;
2801   t4642 = t565 * t1591;
2802   t4645 = t1271 * t727;
2803   t4651 = t1599 * t581;
2804   t4662 = 0.1174e1 * t4617 - t72 * t4617 - 0.16e2 * t564 * t771 * t491 + 0.16e2 * t564 * t1691 * t223 + 0.24e2 * t1673 * t4626 - 0.24e2 * t1673 * t4629 - 0.24e2 * t1673 * t4632 - 0.16e2 * t1264 * t1994 - 0.8e1 * t3777 * t1549 - 0.16e2 * t1680 * t4639 - 0.16e2 * t1680 * t4642 + 0.16e2 * t1680 * t4645 + 0.16e2 * t564 * t2007 * t153 + 0.16e2 * t1680 * t4651 + 0.12e2 * t849 * t766 * t449 - 0.4e1 * t564 * t1694 * t494 - 0.8e1 * t3777 * t1573;
2805   t4670 = t2027 * t84;
2806   t4677 = t781 * t240;
2807   t4692 = t727 * t279;
2808   t4696 = t262 * t755;
2809   t4712 = -0.4e1 * t564 * t4670 * t156 + 0.4e1 * t564 * t4677 * t156 + 0.8e1 * t564 * t4692 * t156 + 0.8e1 * t564 * t4696 * t156 + 0.8e1 * t564 * t1720 * t494 + 0.4e1 * t564 * t3786 * t226 - 0.4e1 * t564 * t3792 * t226 + 0.8e1 * t564 * t3804 * t226 + 0.8e1 * t564 * t3808 * t226 + 0.4e1 * t112 * t4639 + 0.4e1 * t112 * t4642 - 0.4e1 * t112 * t4645 - 0.4e1 * t1264 * t2010 + 0.8e1 * t1264 * t2035 - 0.4e1 * t1558 * t1695 + 0.8e1 * t1558 * t1721 - 0.4e1 * t303 * t4626 + 0.4e1 * t303 * t4632;
2810   t4780 = 0.4e1 * t303 * t4629 - 0.4e1 * t112 * t4651 + 0.8e1 * t303 * t767 * t533 + 0.2e1 * t112 * t223 * t1712 * t84 - 0.2e1 * t112 * t2013 * t177 + 0.2e1 * t112 * t153 * t2027 * t84 + 0.2e1 * t112 * t65 * (0.5e1 / 0.216e3 * t1920 - 0.125e3 / 0.11664e5 * t2018 * t4105 * t4107 - 0.5e1 / 0.108e3 * t1922 + 0.125e3 / 0.17496e5 * t2018 * t2777 * t4107 + 0.5e1 / 0.648e3 * t1926 - 0.25e2 / 0.34992e5 * t2287 * t2023 * t4107) * t84 - 0.2e1 * t112 * t2028 * t177 + 0.2e1 * t112 * t491 * t781 * t84 - 0.4e1 * t112 * t1561 * t279 - 0.4e1 * t112 * t1565 * t279 - 0.4e1 * t112 * t714 * t614 - 0.4e1 * t112 * t1576 * t279 - 0.4e1 * t112 * t1592 * t279 - 0.2e1 * t112 * t1698 * t240 - 0.2e1 * t112 * t1713 * t240 - 0.2e1 * t112 * t782 * t533;
2811   t4836 = -0.4e1 * t112 * t728 * t614 - 0.4e1 * t112 * t569 * t755 - 0.4e1 * t112 * t582 * t755 - 0.4e1 * t112 * t263 * t1650 + 0.2e1 * t303 * t2047 * t156 + 0.48e2 * t1260 * t771 * t223 * t156 - 0.32e2 * t564 * t565 * t1565 - 0.96e2 * t3997 * t771 * t1543 + 0.48e2 * t1260 * t771 * t226 * t153 + 0.48e2 * t1673 * t565 * t226 * t581 + 0.48e2 * t1673 * t565 * t727 * t156 - 0.32e2 * t564 * t565 * t1576 - 0.24e2 * t1260 * t1720 * t1543 + 0.12e2 * t1260 * t1694 * t1543 - t112 * t156 * t2073 - t112 * t494 * t807 - t112 * t226 * t1763 - 0.2e1 * t112 * t766 * t533;
2812   t4852 = t5 * t811;
2813   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2814     v4rhosigmatau2[0] = -t446 * t2078 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t7 * (t4662 + t4712 + t4780 + t4836) * t102 - 0.24739500000000000000e1 * t190 * t191 * t2076 * t199 + 0.92773125000000000000e0 * t248 * t1767 * t254 + 0.11132775000000000000e2 * t2081 * t552 - 0.30203104535893596325e2 * t4852 * t559;
2815 
2816   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2817     v4rholapl3[0] = 0.0e0;
2818 
2819   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2820     v4rholapl2tau[0] = 0.0e0;
2821 
2822   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2823     v4rholapltau2[0] = 0.0e0;
2824 
2825   t4902 = my_piecewise3(t73, (0.2500e4 / 0.81e2 * t2050 - 0.10000e5 / 0.729e3 * t2126 * t128 * t4155 - 0.50000e5 / 0.6561e4 * t2600 * t4035 * t4159 + 0.12500e5 / 0.729e3 * t2054) * t79 + t2133 * t168 * t79 + 0.3e1 * t1743 * t273 * t79 + 0.3e1 * t795 * t600 * t79 + 0.3e1 * t2135 * t169 + 0.3e1 * t798 * t600 + t2138 * t168 * t79, -0.10000e5 / 0.729e3 * t170 * t980 * t2105 * t4187 + 0.2500e4 / 0.81e2 * t2066 - 0.5000e4 / 0.243e3 * t407 * t995 * t2105 * t4187 + 0.2500e4 / 0.81e2 * t2068 - 0.5000e4 / 0.729e3 * t993 * t2380 * t2105 * t4187 + 0.1250e4 / 0.243e3 * t2070 - 0.1250e4 / 0.2187e4 * t2398 * t2400 * t2105 * t4187);
2826   t4910 = t849 * t2084;
2827   t4911 = t771 * t581;
2828   t4916 = t1267 * t781;
2829   t4919 = t2172 * t2084;
2830   t4920 = t2085 * t84;
2831   t4921 = t4920 * t156;
2832   t4924 = t4920 * t153;
2833   t4927 = t2102 * t156;
2834   t4933 = t1720 * t581;
2835   t4940 = t565 * t1712;
2836   t4943 = t1271 * t781;
2837   t4946 = t781 * t279;
2838   t4950 = t262 * t807;
2839   t4954 = t2115 * t84;
2840   t4958 = 0.1174e1 * t4902 - t112 * t156 * t2149 - 0.6e1 * t112 * t766 * t614 - t72 * t4902 + 0.144e3 * t4910 * t4911 - 0.72e2 * t564 * t4911 - 0.24e2 * t1680 * t4916 - 0.192e3 * t4919 * t4921 + 0.144e3 * t1673 * t4924 - 0.72e2 * t1673 * t4927 + 0.48e2 * t564 * t2102 * t153 + 0.48e2 * t1680 * t4933 + 0.72e2 * t1260 * t4921 - 0.12e2 * t3777 * t1695 - 0.24e2 * t1680 * t4940 + 0.24e2 * t1680 * t4943 + 0.12e2 * t564 * t4946 * t156 + 0.12e2 * t564 * t4950 * t156 - 0.4e1 * t564 * t4954 * t156;
2841   t5029 = -0.24e2 * t303 * t4924 + 0.24e2 * t303 * t2090 * t177 - 0.12e2 * t112 * t4933 + 0.2e1 * t112 * t153 * t2115 * t84 + 0.2e1 * t112 * t65 * (-0.25e2 / 0.162e3 * t2019 + 0.125e3 / 0.1458e4 * t2106 * t4105 * t4107 + 0.25e2 / 0.81e2 * t2021 - 0.125e3 / 0.2187e4 * t2106 * t2777 * t4107 - 0.25e2 / 0.486e3 * t2025 + 0.25e2 / 0.4374e4 * t2287 * t2111 * t4107) * t84 + 0.24e2 * t303 * t767 * t614 + 0.6e1 * t112 * t4916 + 0.6e1 * t112 * t4940 - 0.48e2 * t849 * t2086 * t177 - 0.2e1 * t112 * t2116 * t177 - 0.6e1 * t112 * t1698 * t279 - 0.6e1 * t112 * t1713 * t279 - 0.6e1 * t112 * t782 * t614 - 0.6e1 * t112 * t569 * t807 - 0.6e1 * t112 * t582 * t807 - 0.6e1 * t112 * t4943 + 0.12e2 * t303 * t4927 - 0.6e1 * t112 * t263 * t1763 + 0.72e2 * t1673 * t565 * t781 * t156 - 0.48e2 * t564 * t565 * t1698;
2842   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2843     v4rhotau3[0] = -t446 * t2154 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t7 * (t4958 + t5029) * t102 - 0.24739500000000000000e1 * t190 * t191 * t2152 * t199;
2844 
2845   t5041 = 0.1e1 / t92 / t328 * t18;
2846   t5075 = t626 * t626;
2847   t5085 = t657 * t657;
2848   t5110 = t654 * t654;
2849   t5115 = t46 * t640 * t128;
2850   t5142 = t980 * t640;
2851   t5151 = t669 * t669;
2852   t5157 = t671 * t671;
2853   t5176 = my_piecewise3(t73, (-0.625e3 / 0.186624e6 * params->c1 * t640 * t128 * t2322 - 0.3125e4 / 0.1679616e7 * t507 * t5142 * t363) * t79 + 0.4e1 * t1828 * t235 * t79 + 0.3e1 * t5151 * t79 + 0.6e1 * t669 * t671 * t79 + t5157 * t79, -0.625e3 / 0.186624e6 * t170 * t5142 * t2359 - 0.625e3 / 0.124416e6 * t407 * t995 * t640 * t2359 - 0.625e3 / 0.373248e6 * t993 * t2380 * t640 * t2359 - 0.625e3 / 0.4478976e7 * t2398 * t2400 * t640 * t2359);
2854   t5179 = -0.24e2 * t2172 * t5075 * t84 + 0.36e2 * t849 * t627 * t657 - 0.24e2 * t849 * t1775 * t240 - 0.6e1 * t303 * t5085 * t84 + 0.24e2 * t303 * t660 * t657 - 0.8e1 * t303 * t227 * t1812 + 0.12e2 * t303 * t626 * t681 + t112 * (0.729e3 / 0.51200e5 * t327 * t640 * t15 * t42 - 0.6561e4 / 0.2048000e7 * t884 * sigma[0] * t1795 + 0.531441e6 / 0.655360000e9 * t2228 * t31 / t887 * t42 + 0.6e1 * t5110 + 0.8e1 * t223 * t1809 + 0.2e1 * t65 * (0.125e3 / 0.5971968e7 * t5115 * t2268 - 0.125e3 / 0.8957952e7 * t5115 * t2272 + 0.25e2 / 0.17915904e8 * t2287 * t640 * t2290)) * t84 - 0.4e1 * t112 * t1812 * t240 - 0.6e1 * t112 * t657 * t681 - 0.4e1 * t112 * t226 * t1844 - t72 * t5176 + 0.1174e1 * t5176;
2855   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2856     v4sigma4[0] = 0.54503531578451885124e0 * t555 * t1237 * t5041 * t101 + 0.12741934726080110950e3 * t555 * t5041 * t441 - 0.12775753975349425781e2 * t250 * t1874 * t432 * t2447 + 0.34660489666083872784e2 * t555 / t885 * t32 * t2447 + 0.37109250000000000000e1 * t248 * t1848 * t254 + 0.67956985205760591732e2 * t4248 * t708 + 0.12524371875000000000e3 * t689 * t1865 - 0.34882260210209206480e0 * t1512 * t1877 - 0.13591397041152118347e3 * t1512 * t1885 + 0.68137354535196937499e2 * t689 * t1890 - 0.11498178577814483203e3 * t250 * t4237 * t93 * t1041 - 0.3e1 / 0.8e1 * t108 * t7 * t5179 * t102 - 0.93932789062500000000e2 * t250 * t1231 * t706 * t101 * t19 - 0.17394960937500000000e1 * t250 * t196 * t90 * t1874 * t101 + 0.27831937500000000000e1 * t689 * t1882 - 0.27831937500000000000e1 * t1852 * t702 - 0.25048743750000000000e2 * t248 * t685 * t432 * t697 - 0.15655464843750000000e2 * t693 * t15 * t1888 * t101 * t94 - 0.54794126953125000000e2 * t2501 * t1021 * t1536 * t101 * t1023 * t26 * t90 + 0.25048743750000000000e2 * t1856 * t1870;
2857 
2858   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2859     v4sigma3lapl[0] = 0.0e0;
2860 
2861   t5231 = 0.1e1 / t17 / t132;
2862   t5236 = t980 * t5231;
2863   t5274 = my_piecewise3(t73, (0.625e3 / 0.23328e5 * params->c1 * t5231 * t128 * t2322 + 0.3125e4 / 0.209952e6 * t507 * t5236 * t363) * t79 + 0.3e1 * t1954 * t235 * t79 + 0.3e1 * t743 * t669 * t79 + 0.3e1 * t743 * t671 * t79 + t273 * t1828 * t79 + 0.3e1 * t1959 * t236 + t273 * t1833 * t79, 0.625e3 / 0.23328e5 * t170 * t5236 * t2359 + 0.625e3 / 0.15552e5 * t407 * t995 * t5231 * t2359 + 0.625e3 / 0.46656e5 * t993 * t2380 * t5231 * t2359 + 0.625e3 / 0.559872e6 * t2398 * t2400 * t5231 * t2359);
2864   t5302 = -t112 * t1812 * t279 - 0.3e1 * t112 * t657 * t755 - 0.3e1 * t112 * t226 * t1972 + 0.6e1 * t303 * t626 * t755 - 0.6e1 * t849 * t1775 * t279 + 0.1174e1 * t5274 - 0.48e2 * t3026 * t565 * t1775 - 0.12e2 * t4404 * t711 + 0.36e2 * t3575 * t1893 + 0.36e2 * t1260 * t1572 * t626 - 0.24e2 * t1558 * t1898 - 0.12e2 * t1558 * t1904 - 0.36e2 * t1260 * t1599 * t626 - 0.12e2 * t564 * t4409 * t226 - 0.12e2 * t564 * t1572 * t657 + 0.12e2 * t564 * t1599 * t657;
2865   t5318 = t46 * t5231 * t128;
2866   t5366 = 0.24e2 * t564 * t4415 * t226 + 0.24e2 * t1558 * t1901 - 0.4e1 * t564 * t565 * t1812 + 0.12e2 * t564 * t4421 * t226 - 0.6e1 * t112 * t714 * t681 + 0.2e1 * t112 * t65 * (-0.125e3 / 0.746496e6 * t5318 * t2268 + 0.125e3 / 0.1119744e7 * t5318 * t2272 - 0.25e2 / 0.2239488e7 * t2287 * t5231 * t2290) * t84 + 0.6e1 * t112 * t654 * t727 * t84 - 0.6e1 * t112 * t1907 * t240 + 0.6e1 * t112 * t223 * t1928 * t84 - 0.12e2 * t112 * t1911 * t240 + 0.2e1 * t112 * t1809 * t262 * t84 - 0.2e1 * t112 * t263 * t1844 + 0.6e1 * t303 * t735 * t657 - 0.6e1 * t112 * t1929 * t240 - 0.6e1 * t112 * t728 * t681 + 0.36e2 * t1260 * t565 * t226 * t657 - t72 * t5274;
2867   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2868     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t108 * t7 * (t5302 + t5366) * t102 + 0.27831937500000000000e1 * t248 * t1976 * t254 - 0.12524371875000000000e2 * t248 * t759 * t432 * t697 - 0.13915968750000000000e1 * t1980 * t702 + 0.33978492602880295866e2 * t4547 * t708 + 0.31310929687500000000e2 * t763 * t1865 + 0.62621859375000000000e1 * t1984 * t1870 - 0.87205650525523016199e-1 * t1668 * t1877 + 0.69579843750000000000e0 * t763 * t1882 - 0.33978492602880295866e2 * t1668 * t1885 + 0.17034338633799234375e2 * t763 * t1890;
2869 
2870   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2871     v4sigma2lapl2[0] = 0.0e0;
2872 
2873   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2874     v4sigma2lapltau[0] = 0.0e0;
2875 
2876   t5396 = 0.1e1 / t17 / t131;
2877   t5401 = t980 * t5396;
2878   t5414 = t743 * t743;
2879   t5442 = my_piecewise3(t73, (-0.625e3 / 0.2916e4 * params->c1 * t5396 * t128 * t2322 - 0.3125e4 / 0.26244e5 * t507 * t5401 * t363) * t79 + 0.2e1 * t2056 * t235 * t79 + t795 * t669 * t79 + t795 * t671 * t79 + 0.2e1 * t5414 * t79 + 0.4e1 * t745 * t744 + 0.2e1 * t274 * t1954 + t797 * t669 * t79 + t797 * t671 * t79, -0.625e3 / 0.2916e4 * t170 * t5401 * t2359 - 0.625e3 / 0.1944e4 * t407 * t995 * t5396 * t2359 - 0.625e3 / 0.5832e4 * t993 * t2380 * t5396 * t2359 - 0.625e3 / 0.69984e5 * t2398 * t2400 * t5396 * t2359);
2880   t5444 = t727 * t727;
2881   t5459 = t771 * t626;
2882   t5462 = t771 * t657;
2883   t5465 = t2007 * t226;
2884   t5468 = t565 * t1928;
2885   t5471 = t1599 * t727;
2886   t5477 = -0.2e1 * t112 * t226 * t2073 + 0.4e1 * t112 * t5444 * t84 - t112 * t657 * t807 - 0.2e1 * t112 * t766 * t681 + 0.2e1 * t303 * t626 * t807 - 0.16e2 * t564 * t771 * t654 + 0.24e2 * t1673 * t5462 - 0.48e2 * t1673 * t5465 - 0.16e2 * t1680 * t5468 + 0.32e2 * t1680 * t5471 - 0.96e2 * t3997 * t5459 - t72 * t5442;
2887   t5511 = 0.12e2 * t1260 * t1694 * t626 - 0.24e2 * t1260 * t1720 * t626 - 0.4e1 * t564 * t1694 * t657 + 0.8e1 * t564 * t1720 * t657 + 0.32e2 * t564 * t2007 * t223 - 0.8e1 * t564 * t4670 * t226 + 0.8e1 * t564 * t4677 * t226 + 0.16e2 * t564 * t4692 * t226 + 0.16e2 * t564 * t4696 * t226 - 0.8e1 * t1558 * t2010 + 0.16e2 * t1558 * t2035 - 0.16e2 * t3777 * t1898;
2888   t5543 = t46 * t5396 * t128;
2889   t5556 = 0.1174e1 * t5442 + 0.8e1 * t303 * t5465 + 0.4e1 * t112 * t5468 - 0.8e1 * t112 * t5471 + 0.8e1 * t303 * t767 * t681 - 0.4e1 * t303 * t5462 - 0.16e2 * t303 * t645 * t766 * t84 + 0.12e2 * t849 * t5459 - 0.16e2 * t303 * t66 * t5444 * t84 + 0.4e1 * t112 * t223 * t2027 * t84 - 0.4e1 * t112 * t2013 * t240 + 0.2e1 * t112 * t65 * (0.125e3 / 0.93312e5 * t5543 * t2268 - 0.125e3 / 0.139968e6 * t5543 * t2272 + 0.25e2 / 0.279936e6 * t2287 * t5396 * t2290) * t84;
2890   t5596 = 0.2e1 * t112 * t654 * t781 * t84 + 0.96e2 * t1260 * t771 * t226 * t223 + 0.96e2 * t1673 * t565 * t226 * t727 - 0.4e1 * t112 * t1907 * t279 - 0.8e1 * t112 * t1911 * t279 - 0.4e1 * t112 * t1929 * t279 - 0.4e1 * t112 * t263 * t1972 - 0.4e1 * t112 * t2028 * t240 - 0.2e1 * t112 * t782 * t681 - 0.8e1 * t112 * t714 * t755 - 0.8e1 * t112 * t728 * t755 - 0.64e2 * t564 * t565 * t1911;
2891   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2892     v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t108 * t7 * (t5477 + t5511 + t5556 + t5596) * t102 + 0.18554625000000000000e1 * t248 * t2077 * t254 - 0.41747906250000000000e1 * t248 * t811 * t432 * t697 - 0.46386562500000000000e0 * t2081 * t702 + 0.11326164200960098622e2 * t4852 * t708;
2893 
2894   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2895     v4sigmalapl3[0] = 0.0e0;
2896 
2897   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2898     v4sigmalapl2tau[0] = 0.0e0;
2899 
2900   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2901     v4sigmalapltau2[0] = 0.0e0;
2902 
2903   t5619 = t1572 * t781;
2904   t5625 = t1720 * t727;
2905   t5628 = t4920 * t226;
2906   t5631 = t771 * t727;
2907   t5636 = t565 * t2027;
2908   t5639 = t1599 * t781;
2909   t5642 = t2102 * t226;
2910   t5655 = 0.1e1 / t17 / t313;
2911   t5660 = t980 * t5655;
2912   t5697 = my_piecewise3(t73, (0.1250e4 / 0.729e3 * params->c1 * t5655 * t128 * t2322 + 0.6250e4 / 0.6561e4 * t507 * t5660 * t363) * t79 + t2133 * t235 * t79 + 0.3e1 * t2056 * t273 * t79 + 0.3e1 * t795 * t743 * t79 + 0.3e1 * t2135 * t236 + 0.3e1 * t798 * t743 + t2138 * t235 * t79, 0.1250e4 / 0.729e3 * t170 * t5660 * t2359 + 0.625e3 / 0.243e3 * t407 * t995 * t5655 * t2359 + 0.625e3 / 0.729e3 * t993 * t2380 * t5655 * t2359 + 0.625e3 / 0.8748e4 * t2398 * t2400 * t5655 * t2359);
2913   t5708 = -t112 * t226 * t2149 - 0.6e1 * t112 * t766 * t755 + 0.24e2 * t303 * t2090 * t240 + 0.48e2 * t564 * t2102 * t223 + 0.12e2 * t564 * t4946 * t226 + 0.12e2 * t564 * t4950 * t226 - 0.4e1 * t564 * t4954 * t226 - 0.12e2 * t112 * t5625 - 0.6e1 * t112 * t5639 + 0.72e2 * t1260 * t5628 - 0.72e2 * t1673 * t5642 - 0.24e2 * t1680 * t5619 + 0.48e2 * t1680 * t5625 - 0.24e2 * t1680 * t5636 + 0.24e2 * t1680 * t5639 - 0.12e2 * t3777 * t2010 + 0.12e2 * t303 * t5642 - 0.72e2 * t564 * t5631 - t72 * t5697;
2914   t5714 = t46 * t5655 * t128;
2915   t5736 = t223 * t2085 * t84;
2916   t5776 = 0.2e1 * t112 * t223 * t2115 * t84 + 0.2e1 * t112 * t65 * (-0.125e3 / 0.11664e5 * t5714 * t2268 + 0.125e3 / 0.17496e5 * t5714 * t2272 - 0.25e2 / 0.34992e5 * t2287 * t5655 * t2290) * t84 + 0.24e2 * t303 * t767 * t755 + 0.6e1 * t112 * t5619 - 0.48e2 * t849 * t2086 * t240 - 0.24e2 * t303 * t5736 - 0.6e1 * t112 * t728 * t807 - 0.6e1 * t112 * t263 * t2073 - 0.2e1 * t112 * t2116 * t240 - 0.6e1 * t112 * t2013 * t279 - 0.6e1 * t112 * t2028 * t279 - 0.6e1 * t112 * t782 * t755 + 0.6e1 * t112 * t5636 - 0.6e1 * t112 * t714 * t807 + 0.72e2 * t1673 * t565 * t781 * t226 - 0.48e2 * t564 * t565 * t2013 + 0.1174e1 * t5697 + 0.144e3 * t1673 * t5736 + 0.144e3 * t4910 * t5631 - 0.192e3 * t4919 * t5628;
2917   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2918     v4sigmatau3[0] = -0.3e1 / 0.8e1 * t108 * t7 * (t5708 + t5776) * t102 + 0.92773125000000000000e0 * t248 * t2153 * t254;
2919 
2920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2921     v4lapl4[0] = 0.0e0;
2922 
2923   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2924     v4lapl3tau[0] = 0.0e0;
2925 
2926   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2927     v4lapl2tau2[0] = 0.0e0;
2928 
2929   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2930     v4lapltau3[0] = 0.0e0;
2931 
2932   t5785 = t781 * t781;
2933   t5790 = t565 * t2115;
2934   t5793 = t1720 * t781;
2935   t5796 = t771 * t781;
2936   t5799 = t766 * t766;
2937   t5810 = t980 * t2197;
2938   t5819 = t795 * t795;
2939   t5825 = t797 * t797;
2940   t5844 = my_piecewise3(t73, (-0.10000e5 / 0.729e3 * params->c1 * t2197 * t128 * t2322 - 0.50000e5 / 0.6561e4 * t507 * t5810 * t363) * t79 + 0.4e1 * t2133 * t273 * t79 + 0.3e1 * t5819 * t79 + 0.6e1 * t795 * t797 * t79 + t5825 * t79, -0.10000e5 / 0.729e3 * t170 * t5810 * t2359 - 0.5000e4 / 0.243e3 * t407 * t995 * t2197 * t2359 - 0.5000e4 / 0.729e3 * t993 * t2380 * t2197 * t2359 - 0.1250e4 / 0.2187e4 * t2398 * t2400 * t2197 * t2359);
2941   t5862 = t46 * t2197 * t128;
2942   t5881 = t66 * t66;
2943   t5898 = -0.8e1 * t112 * t263 * t2149 + 0.8e1 * t112 * t5790 - 0.24e2 * t112 * t5793 + 0.2e1 * t112 * t65 * (0.125e3 / 0.1458e4 * t5862 * t2268 - 0.125e3 / 0.2187e4 * t5862 * t2272 + 0.25e2 / 0.4374e4 * t2287 * t2197 * t2290) * t84 + 0.48e2 * t303 * t767 * t807 + 0.6e1 * t112 * t5785 * t84 - 0.384e3 * t2172 * t5881 * t5799 * t84 - 0.192e3 * t849 * t2086 * t279 - 0.24e2 * t303 * t5799 * t84 + 0.96e2 * t303 * t2090 * t279 - 0.12e2 * t112 * t766 * t807;
2944   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2945     v4tau4[0] = -0.3e1 / 0.8e1 * t108 * t7 * (-0.24e2 * t303 * t66 * t5785 * t84 - 0.32e2 * t1680 * t5790 + 0.96e2 * t1680 * t5793 - 0.144e3 * t564 * t5796 + 0.288e3 * t849 * t66 * t5799 * t84 + 0.288e3 * t4910 * t5796 + 0.1174e1 * t5844 - t72 * t5844 - 0.8e1 * t112 * t2116 * t279 - 0.12e2 * t112 * t782 * t807 + t5898) * t102;
2946 
2947 #ifndef XC_DONT_COMPILE_MXC
2948 
2949   if(order < 5) return;
2950 
2951 
2952 #endif
2953 
2954 #endif
2955 
2956 #endif
2957 
2958 #endif
2959 
2960 #endif
2961 
2962 
2963 }
2964 
2965 
2966 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 *))2967 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 *))
2968 {
2969 
2970 #ifndef XC_DONT_COMPILE_EXC
2971   double t2, t4, t5, t6, t7, t8, t9, t10;
2972   double t11, t12, t14, t15, t16, t17, t18, t19;
2973   double t20, t21, t22, t23, t24, t25, t26, t27;
2974   double t28, t29, t30, t31, t35, t36, t37, t38;
2975   double t39, t40, t41, t42, t43, t45, t46, t47;
2976   double t48, t49, t52, t56, t57, t60, t61, t64;
2977   double t67, t68, t70, t72, t75, t76, t77, t82;
2978   double t83, t84, t85, t86, t89, t91, t93, t94;
2979   double t97, t98, t99, t100, t101, t102, t103, t105;
2980   double t106, t110, t111, t112, t114, t116, t117, t118;
2981   double t119, t120, t121, t122, t123, t124, t125, t126;
2982   double t128, t129, t130, t132, t133, t134, t135, t138;
2983   double t144, t145, t148, t151, t152, t154, t156, t159;
2984   double t160, t161, t166, t167, t168, t169, t170, t173;
2985   double t175, t177, t178, t181, t182, t183, t184, t186;
2986   double t187, t191, t192, t193, t195;
2987 
2988 #ifndef XC_DONT_COMPILE_VXC
2989   double t197, t198, t199, t200, t201, t202, t203, t204;
2990   double t206, t207, t209, t210, t211, t212, t213, t215;
2991   double t216, t217, t218, t220, t221, t223, t224, t227;
2992   double t229, t234, t235, t236, t237, t238, t239, t240;
2993   double t241, t252, t254, t257, t261, t264, t265, t270;
2994   double t271, t272, t273, t276, t277, t278, t279, t280;
2995   double t281, t285, t288, t289, t291, t292, t293, t294;
2996   double t295, t296, t297, t298, t300, t302, t304, t306;
2997   double t307, t309, t310, t311, t312, t313, t314, t315;
2998   double t316, t318, t319, t320, t322, t323, t327, t328;
2999   double t330, t331, t332, t333, t335, t336, t337, t339;
3000   double t340, t342, t343, t346, t348, t353, t354, t355;
3001   double t356, t367, t369, t372, t376, t379, t380, t385;
3002   double t386, t387, t388, t391, t392, t393, t394, t395;
3003   double t399, t402, t403, t405, t406, t408, t410, t412;
3004   double t414, t415, t417, t418, t419, t422, t429, t437;
3005   double t438, t441, t443, t446, t447, t449, t450, t453;
3006   double t455, t456, t458, t460, t463, t464, t467, t468;
3007   double t469, t471, t473, t475, t482, t490, t491, t494;
3008   double t496, t499, t500, t502, t503, t506, t508, t509;
3009   double t511, t513, t516, t517, t520, t521, t522, t524;
3010   double t526, t528, t529, t530, t531, t532, t537, t538;
3011   double t542, t548, t549, t554, t557, t558, t562, t563;
3012   double t568, t569, t573, t579, t580, t585, t588, t589;
3013 
3014 #ifndef XC_DONT_COMPILE_FXC
3015   double t593, t596, t597, t598, t599, t600, t601, t602;
3016   double t604, t605, t606, t608, t609, t610, t612, t613;
3017   double t614, t615, t616, t618, t619, t620, t621, t622;
3018   double t623, t624, t625, t627, t628, t630, t631, t633;
3019   double t634, t636, t637, t639, t640, t641, t644, t645;
3020   double t646, t650, t651, t654, t656, t661, t662, t668;
3021   double t669, t670, t671, t673, t675, t676, t679, t687;
3022   double t688, t691, t694, t695, t701, t702, t704, t705;
3023   double t708, t711, t714, t717, t721, t724, t725, t726;
3024   double t729, t732, t733, t734, t735, t737, t739, t740;
3025   double t747, t748, t749, t750, t751, t755, t758, t759;
3026   double t761, t762, t764, t765, t766, t769, t771, t773;
3027   double t774, t775, t777, t778, t780, t781, t782, t783;
3028   double t784, t785, t786, t788, t789, t790, t791, t792;
3029   double t793, t794, t795, t796, t797, t799, t800, t801;
3030   double t803, t804, t805, t806, t808, t809, t810, t812;
3031   double t813, t814, t816, t818, t821, t824, t826, t828;
3032   double t829, t832, t833, t834, t836, t841, t843, t846;
3033   double t848, t849, t851, t854, t856, t859, t861, t862;
3034   double t863, t864, t866, t867, t870, t871, t873, t877;
3035   double t878, t880, t881, t882, t883, t884, t886, t887;
3036   double t888, t889, t891, t892, t893, t895, t896, t898;
3037   double t899, t900, t901, t902, t904, t905, t906, t907;
3038   double t910, t911, t912, t916, t917, t920, t922, t927;
3039   double t928, t933, t934, t935, t937, t939, t940, t943;
3040   double t951, t952, t955, t958, t959, t965, t966, t968;
3041   double t971, t974, t977, t980, t984, t987, t988, t989;
3042   double t992, t995, t996, t997, t998, t1000, t1002, t1003;
3043   double t1010, t1011, t1012, t1016, t1019, t1020, t1022, t1023;
3044   double t1025, t1026, t1027, t1030, t1032, t1034, t1035, t1036;
3045   double t1038, t1039, t1041, t1042, t1043, t1044, t1045, t1046;
3046   double t1047, t1049, t1050, t1051, t1052, t1053, t1055, t1057;
3047   double t1058, t1060, t1061, t1062, t1065, t1076, t1077, t1079;
3048   double t1081, t1086, t1089, t1090, t1092, t1093, t1094, t1095;
3049   double t1098, t1100, t1101, t1102, t1104, t1107, t1108, t1110;
3050   double t1112, t1114, t1115, t1117, t1118, t1120, t1121, t1123;
3051   double t1126, t1128, t1129, t1130, t1133, t1134, t1135, t1136;
3052   double t1139, t1141, t1142, t1143, t1146, t1149, t1150, t1152;
3053   double t1153, t1155, t1156, t1157, t1159, t1160, t1161, t1162;
3054   double t1163, t1164, t1165, t1166, t1167, t1168, t1169, t1170;
3055   double t1171, t1172, t1173, t1175, t1176, t1177, t1178, t1179;
3056   double t1180, t1182, t1183, t1184, t1187, t1189, t1190, t1192;
3057   double t1193, t1195, t1196, t1197, t1198, t1199, t1203, t1204;
3058   double t1206, t1207, t1208, t1212, t1213, t1214, t1217, t1228;
3059   double t1229, t1231, t1233, t1238, t1241, t1242, t1244, t1245;
3060   double t1246, t1247, t1250, t1252, t1253, t1254, t1256, t1259;
3061   double t1260, t1262, t1264, t1266, t1267, t1269, t1270, t1272;
3062   double t1273, t1275, t1278, t1280, t1281, t1282, t1285, t1286;
3063   double t1287, t1288, t1291, t1293, t1294, t1295, t1298, t1301;
3064   double t1302, t1304, t1305, t1307, t1308, t1309, t1311, t1312;
3065   double t1313, t1314, t1315, t1316, t1317, t1318, t1319, t1320;
3066   double t1321, t1322, t1323, t1325, t1326, t1327, t1328, t1329;
3067   double t1330, t1332, t1333, t1334, t1338, t1340, t1341, t1342;
3068   double t1346, t1347, t1348, t1351, t1356, t1360, t1363, t1364;
3069   double t1371, t1374, t1377, t1382, t1383, t1384, t1387, t1391;
3070   double t1392, t1396, t1399, t1400, t1404, t1405, t1407, t1411;
3071   double t1412, t1416, t1420, t1423, t1424, t1425, t1428, t1433;
3072   double t1437, t1440, t1441, t1448, t1451, t1454, t1459, t1460;
3073   double t1461, t1464, t1468, t1469, t1473, t1476, t1478, t1481;
3074   double t1482, t1485, t1486, t1497, t1499, t1501, t1504, t1506;
3075   double t1508, t1511, t1513, t1516, t1517, t1519, t1522, t1523;
3076   double t1526, t1528, t1530, t1531, t1534, t1535, t1537, t1540;
3077   double t1543, t1544, t1547, t1549, t1550, t1551, t1553, t1555;
3078   double t1556, t1558, t1560, t1562, t1563, t1565, t1567, t1569;
3079   double t1570, t1581, t1583, t1585, t1588, t1590, t1592, t1595;
3080   double t1597, t1600, t1601, t1603, t1606, t1607, t1610, t1612;
3081   double t1614, t1615, t1618, t1619, t1621, t1624, t1627, t1628;
3082   double t1631, t1633, t1634, t1635, t1637, t1639, t1640, t1642;
3083   double t1644, t1646, t1647, t1649, t1651, t1653, t1656, t1661;
3084   double t1662, t1664, t1667, t1669, t1670, t1677, t1679, t1680;
3085   double t1683, t1685, t1686, t1687, t1691, t1692, t1694, t1697;
3086   double t1700, t1702, t1707, t1710, t1715, t1716, t1718, t1721;
3087   double t1723, t1724, t1731, t1733, t1734, t1737, t1739, t1740;
3088   double t1741, t1745, t1746, t1748, t1751, t1754, t1756, t1761;
3089   double t1762, t1766, t1769, t1776, t1777, t1784, t1790, t1792;
3090   double t1793, t1796, t1802, t1805, t1807, t1810, t1811, t1815;
3091   double t1818, t1825, t1826, t1833, t1839, t1841, t1842, t1845;
3092   double t1851, t1854, t1856;
3093 
3094 #ifndef XC_DONT_COMPILE_KXC
3095   double t1860, t1861, t1863, t1864, t1865, t1866, t1868, t1869;
3096   double t1870, t1871, t1872, t1873, t1875, t1878, t1879, t1880;
3097   double t1881, t1882, t1883, t1885, t1886, t1887, t1888, t1889;
3098   double t1890, t1892, t1893, t1894, t1896, t1897, t1900, t1901;
3099   double t1902, t1904, t1906, t1907, t1908, t1909, t1911, t1915;
3100   double t1917, t1918, t1920, t1921, t1922, t1923, t1925, t1926;
3101   double t1927, t1928, t1929, t1930, t1932, t1933, t1934, t1936;
3102   double t1938, t1939, t1940, t1942, t1943, t1945, t1946, t1947;
3103   double t1949, t1950, t1952, t1953, t1954, t1955, t1957, t1958;
3104   double t1960, t1961, t1962, t1964, t1966, t1968, t1970, t1972;
3105   double t1973, t1975, t1976, t1977, t1978, t1979, t1981, t1982;
3106   double t1984, t1987, t1988, t1989, t1990, t1991, t1993, t1994;
3107   double t1996, t1998, t2000, t2001, t2003, t2004, t2005, t2006;
3108   double t2008, t2009, t2010, t2012, t2013, t2014, t2015, t2016;
3109   double t2017, t2018, t2019, t2021, t2022, t2023, t2024, t2025;
3110   double t2026, t2027, t2029, t2030, t2031, t2032, t2033, t2034;
3111   double t2036, t2038, t2039, t2040, t2042, t2043, t2044, t2046;
3112   double t2047, t2048, t2050, t2051, t2052, t2054, t2055, t2059;
3113   double t2068, t2073, t2078, t2082, t2085, t2086, t2087, t2088;
3114   double t2089, t2093, t2094, t2105, t2106, t2112, t2113, t2114;
3115   double t2118, t2127, t2128, t2132, t2135, t2144, t2154, t2157;
3116   double t2158, t2161, t2164, t2169, t2172, t2173, t2176, t2177;
3117   double t2178, t2181, t2182, t2183, t2195, t2197, t2198, t2202;
3118   double t2205, t2206, t2208, t2209, t2211, t2214, t2215, t2216;
3119   double t2218, t2219, t2220, t2234, t2238, t2241, t2242, t2244;
3120   double t2245, t2246, t2254, t2257, t2259, t2261, t2262, t2263;
3121   double t2265, t2267, t2269, t2271, t2272, t2274, t2277, t2279;
3122   double t2281, t2284, t2285, t2287, t2296, t2297, t2298, t2299;
3123   double t2301, t2302, t2304, t2306, t2307, t2308, t2309, t2312;
3124   double t2313, t2315, t2316, t2317, t2318, t2320, t2321, t2323;
3125   double t2325, t2326, t2328, t2330, t2333, t2334, t2337, t2339;
3126   double t2340, t2341, t2342, t2343, t2344, t2345, t2348, t2350;
3127   double t2352, t2355, t2357, t2359, t2361, t2363, t2365, t2367;
3128   double t2370, t2371, t2372, t2374, t2376, t2378, t2381, t2382;
3129   double t2383, t2385, t2387, t2389, t2393, t2398, t2400, t2401;
3130   double t2403, t2404, t2405, t2409, t2412, t2414, t2417, t2418;
3131   double t2420, t2422, t2423, t2424, t2425, t2426, t2429, t2430;
3132   double t2431, t2434, t2437, t2440, t2443, t2446, t2448, t2453;
3133   double t2455, t2456, t2457, t2458, t2459, t2460, t2461, t2465;
3134   double t2467, t2469, t2470, t2472, t2474, t2476, t2479, t2481;
3135   double t2484, t2486, t2487, t2489, t2491, t2494, t2495, t2497;
3136   double t2498, t2499, t2502, t2503, t2505, t2507, t2508, t2510;
3137   double t2512, t2513, t2515, t2516, t2517, t2519, t2520, t2525;
3138   double t2527, t2529, t2531, t2533, t2535, t2537, t2539, t2541;
3139   double t2543, t2545, t2547, t2550, t2552, t2554, t2557, t2561;
3140   double t2562, t2564, t2565, t2566, t2567, t2568, t2570, t2571;
3141   double t2573, t2574, t2575, t2576, t2580, t2581, t2583, t2584;
3142   double t2585, t2586, t2587, t2588, t2589, t2592, t2593, t2595;
3143   double t2596, t2598, t2599, t2601, t2602, t2603, t2604, t2606;
3144   double t2607, t2609, t2610, t2611, t2613, t2614, t2615, t2617;
3145   double t2621, t2623, t2624, t2626, t2627, t2628, t2629, t2631;
3146   double t2632, t2633, t2634, t2635, t2636, t2638, t2639, t2640;
3147   double t2642, t2648, t2649, t2650, t2651, t2653, t2654, t2655;
3148   double t2656, t2658, t2659, t2660, t2662, t2663, t2664, t2665;
3149   double t2666, t2667, t2669, t2670, t2671, t2672, t2674, t2675;
3150   double t2676, t2678, t2679, t2680, t2682, t2684, t2685, t2689;
3151   double t2698, t2703, t2708, t2712, t2715, t2716, t2717, t2721;
3152   double t2722, t2733, t2734, t2740, t2741, t2742, t2746, t2755;
3153   double t2756, t2760, t2763, t2772, t2782, t2785, t2786, t2789;
3154   double t2792, t2797, t2800, t2801, t2804, t2805, t2806, t2809;
3155   double t2810, t2811, t2823, t2824, t2828, t2831, t2832, t2834;
3156   double t2835, t2837, t2838, t2839, t2841, t2843, t2844, t2845;
3157   double t2847, t2848, t2849, t2851, t2852, t2853, t2870, t2874;
3158   double t2879, t2881, t2882, t2883, t2885, t2886, t2887, t2888;
3159   double t2890, t2891, t2892, t2893, t2894, t2895, t2896, t2897;
3160   double t2898, t2899, t2901, t2902, t2903, t2904, t2905, t2906;
3161   double t2907, t2908, t2909, t2911, t2912, t2913, t2914, t2915;
3162   double t2916, t2917, t2918, t2919, t2920, t2922, t2923, t2924;
3163   double t2925, t2926, t2928, t2929, t2930, t2931, t2933, t2934;
3164   double t2935, t2936, t2937, t2938, t2939, t2940, t2941, t2942;
3165   double t2944, t2945, t2946, t2947, t2949, t2950, t2951, t2952;
3166   double t2953, t2954, t2955, t2957, t2959, t2961, t2962, t2964;
3167   double t2965, t2966, t2968, t2969, t2970, t2971, t2973, t2974;
3168   double t2975, t2976, t2977, t2978, t2980, t2981, t2982, t2983;
3169   double t2984, t2985, t2986, t2988, t2989, t2990, t2991, t2992;
3170   double t2994, t2995, t2996, t2998, t2999, t3001, t3002, t3006;
3171   double t3015, t3028, t3033, t3042, t3043, t3045, t3046, t3048;
3172   double t3049, t3050, t3052, t3053, t3054, t3056, t3058, t3059;
3173   double t3062, t3064, t3065, t3067, t3068, t3070, t3071, t3073;
3174   double t3076, t3077, t3079, t3082, t3092, t3093, t3095, t3096;
3175   double t3098, t3100, t3103, t3106, t3108, t3110, t3113, t3116;
3176   double t3118, t3123, t3128, t3129, t3130, t3131, t3133, t3134;
3177   double t3136, t3138, t3141, t3144, t3145, t3147, t3149, t3152;
3178   double t3155, t3156, t3158, t3159, t3160, t3163, t3165, t3167;
3179   double t3168, t3169, t3171, t3172, t3174, t3175, t3177, t3178;
3180   double t3180, t3181, t3182, t3183, t3184, t3186, t3187, t3188;
3181   double t3189, t3190, t3194, t3197, t3200, t3202, t3204, t3206;
3182   double t3211, t3212, t3213, t3214, t3215, t3217, t3219, t3220;
3183   double t3223, t3224, t3227, t3228, t3230, t3231, t3234, t3235;
3184   double t3242, t3246, t3249, t3251, t3253, t3256, t3258, t3261;
3185   double t3263, t3264, t3265, t3268, t3269, t3271, t3272, t3273;
3186   double t3274, t3275, t3277, t3279, t3281, t3282, t3285, t3287;
3187   double t3289, t3291, t3292, t3294, t3295, t3298, t3299, t3301;
3188   double t3304, t3305, t3306, t3308, t3310, t3315, t3316, t3317;
3189   double t3319, t3320, t3322, t3323, t3324, t3325, t3327, t3328;
3190   double t3329, t3339, t3340, t3342, t3343, t3344, t3345, t3347;
3191   double t3348, t3349, t3350, t3351, t3352, t3353, t3354, t3355;
3192   double t3357, t3358, t3359, t3360, t3361, t3362, t3363, t3364;
3193   double t3365, t3366, t3367, t3368, t3369, t3370, t3371, t3372;
3194   double t3373, t3375, t3376, t3377, t3379, t3380, t3381, t3382;
3195   double t3383, t3384, t3386, t3387, t3388, t3389, t3391, t3392;
3196   double t3393, t3394, t3395, t3396, t3397, t3398, t3399, t3401;
3197   double t3402, t3403, t3404, t3405, t3407, t3408, t3409, t3410;
3198   double t3414, t3423, t3436, t3441, t3450, t3451, t3453, t3454;
3199   double t3456, t3457, t3458, t3460, t3461, t3462, t3464, t3466;
3200   double t3467, t3470, t3472, t3473, t3475, t3476, t3478, t3479;
3201   double t3481, t3484, t3485, t3487, t3490, t3500, t3501, t3503;
3202   double t3504, t3506, t3508, t3511, t3514, t3516, t3518, t3521;
3203   double t3524, t3526, t3531, t3536, t3537, t3538, t3539, t3541;
3204   double t3542, t3544, t3546, t3549, t3552, t3553, t3555, t3557;
3205   double t3560, t3563, t3564, t3566, t3567, t3568, t3569, t3570;
3206   double t3572, t3573, t3574, t3575, t3576, t3578, t3579, t3580;
3207   double t3582, t3583, t3584, t3585, t3586, t3588, t3590, t3591;
3208   double t3593, t3594, t3595, t3598, t3600, t3604, t3606, t3608;
3209   double t3609, t3611, t3615, t3618, t3619, t3625, t3626, t3629;
3210   double t3632, t3633, t3636, t3637, t3640, t3643, t3647, t3660;
3211   double t3667, t3670, t3671, t3704, t3709, t3714, t3715, t3730;
3212   double t3733, t3734, t3739, t3746, t3747, t3748, t3750, t3753;
3213   double t3755, t3759, t3760, t3770, t3771, t3772, t3774, t3777;
3214   double t3782, t3783, t3784, t3788, t3790, t3793, t3796, t3797;
3215   double t3799, t3800, t3804, t3805, t3806, t3808, t3809, t3813;
3216   double t3816, t3821, t3824, t3828, t3831, t3832, t3835, t3838;
3217   double t3839, t3842, t3843, t3846, t3849, t3853, t3866, t3873;
3218   double t3876, t3877, t3910, t3915, t3920, t3921, t3936, t3939;
3219   double t3941, t3944, t3945, t3952, t3953, t3954, t3956, t3959;
3220   double t3960, t3962, t3963, t3964, t3965, t3967, t3968, t3969;
3221   double t3970, t3971, t3972, t3973, t3974, t3976, t3977, t3978;
3222   double t3979, t3980, t3981, t3983, t3984, t3985, t3986, t3987;
3223   double t3988, t3989, t3990, t3991, t3992, t3993, t3994, t3996;
3224   double t3997, t3998, t3999, t4000, t4002, t4003, t4004, t4005;
3225   double t4007, t4008, t4009, t4010, t4011, t4012, t4013, t4014;
3226   double t4015, t4017, t4018, t4019, t4020, t4022, t4023, t4024;
3227   double t4026, t4027, t4034, t4037, t4050, t4051, t4055, t4062;
3228   double t4064, t4067, t4068, t4070, t4072, t4073, t4076, t4078;
3229   double t4079, t4081, t4084, t4085, t4087, t4092, t4095, t4100;
3230   double t4101, t4103, t4104, t4108, t4111, t4113, t4122, t4123;
3231   double t4124, t4127, t4128, t4130, t4132, t4134, t4137, t4140;
3232   double t4141, t4143, t4144, t4145, t4146, t4147, t4149, t4150;
3233   double t4151, t4152, t4154, t4155, t4156, t4158, t4159, t4160;
3234   double t4161, t4162, t4163, t4165, t4166, t4167, t4170, t4172;
3235   double t4173, t4175, t4176, t4177, t4178, t4179, t4180, t4182;
3236   double t4183, t4184, t4185, t4186, t4188, t4189, t4190, t4191;
3237   double t4192, t4194, t4195, t4196, t4197, t4198, t4199, t4203;
3238   double t4204, t4205, t4206, t4208, t4209, t4210, t4212, t4213;
3239   double t4214, t4215, t4216, t4217, t4220, t4222, t4223, t4224;
3240   double t4225, t4227, t4228, t4229, t4230, t4231, t4232, t4233;
3241   double t4234, t4236, t4237, t4238, t4239, t4240, t4241, t4242;
3242   double t4243, t4244, t4245, t4247, t4248, t4249, t4250, t4251;
3243   double t4253, t4254, t4255, t4256, t4257, t4258, t4259, t4260;
3244   double t4261, t4263, t4264, t4265, t4266, t4268, t4269, t4270;
3245   double t4272, t4273, t4274, t4275, t4282, t4285, t4298, t4299;
3246   double t4303, t4310, t4312, t4315, t4316, t4318, t4320, t4321;
3247   double t4324, t4326, t4327, t4329, t4332, t4333, t4335, t4340;
3248   double t4343, t4348, t4349, t4351, t4352, t4356, t4359, t4361;
3249   double t4370, t4371, t4372, t4375, t4376, t4378, t4380, t4382;
3250   double t4385, t4388, t4389, t4391, t4392, t4393, t4394, t4395;
3251   double t4397, t4398, t4399, t4400, t4401, t4402, t4404, t4405;
3252   double t4406, t4408, t4409, t4410, t4412, t4413, t4414, t4418;
3253   double t4419, t4420, t4423, t4424, t4429, t4432, t4435, t4438;
3254   double t4441, t4445, t4452, t4453, t4456, t4460, t4462, t4464;
3255   double t4465, t4468, t4469, t4471, t4472, t4479, t4480, t4495;
3256   double t4497, t4502, t4506, t4509, t4513, t4515, t4519, t4520;
3257   double t4521, t4524, t4527, t4530, t4533, t4534, t4536, t4539;
3258   double t4540, t4544, t4549, t4551, t4552, t4557, t4559, t4563;
3259   double t4564, t4565, t4569, t4572, t4577, t4580, t4581, t4586;
3260   double t4589, t4592, t4595, t4598, t4602, t4609, t4610, t4613;
3261   double t4617, t4619, t4621, t4622, t4625, t4626, t4628, t4629;
3262   double t4636, t4637, t4652, t4654, t4659, t4663, t4666, t4670;
3263   double t4672, t4676, t4677, t4678, t4681, t4684, t4687, t4690;
3264   double t4691, t4693, t4696, t4697, t4704, t4706, t4707, t4712;
3265   double t4714, t4717, t4719, t4720, t4723, t4724, t4730, t4731;
3266   double t4741, t4744, t4745, t4748, t4755, t4759, t4762, t4763;
3267   double t4770, t4771, t4793, t4802, t4803, t4813, t4816, t4818;
3268   double t4821, t4822, t4825, t4826, t4827, t4830, t4834, t4837;
3269   double t4838, t4844, t4845, t4855, t4858, t4859, t4862, t4869;
3270   double t4873, t4876, t4877, t4884, t4885, t4907, t4916, t4917;
3271   double t4927, t4930, t4932, t4935, t4936, t4939, t4940, t4946;
3272   double t4955, t4959, t4964, t4965, t4967, t4969, t4971, t4973;
3273   double t4976, t4977, t4979, t4982, t4985, t4986, t4990, t4992;
3274   double t4994, t4997, t5000, t5001, t5003, t5005, t5008, t5011;
3275   double t5012, t5015, t5017, t5019, t5021, t5022, t5024, t5026;
3276   double t5028, t5029, t5031, t5032, t5034, t5036, t5038, t5039;
3277   double t5040, t5041, t5043, t5044, t5046, t5048, t5049, t5051;
3278   double t5053, t5054, t5056, t5059, t5060, t5061, t5062, t5068;
3279   double t5077, t5081, t5086, t5087, t5089, t5091, t5093, t5095;
3280   double t5098, t5099, t5101, t5104, t5107, t5108, t5112, t5114;
3281   double t5116, t5119, t5122, t5123, t5125, t5127, t5130, t5133;
3282   double t5134, t5137, t5139, t5141, t5143, t5144, t5146, t5148;
3283   double t5150, t5151, t5153, t5154, t5156, t5158, t5160, t5161;
3284   double t5162, t5163, t5165, t5166, t5168, t5170, t5171, t5173;
3285   double t5175, t5176, t5178, t5181, t5182, t5183, t5188, t5191;
3286   double t5194, t5197, t5201, t5208, t5209, t5211, t5213, t5215;
3287   double t5217, t5218, t5228, t5231, t5233, t5236, t5237, t5241;
3288   double t5243, t5245, t5248, t5250, t5253, t5254, t5256, t5258;
3289   double t5261, t5264, t5266, t5275, t5277, t5280, t5285, t5288;
3290   double t5291, t5294, t5298, t5305, t5306, t5308, t5310, t5312;
3291   double t5314, t5315, t5325, t5328, t5330, t5333, t5334, t5338;
3292   double t5340, t5342, t5345, t5347, t5350, t5351, t5353, t5355;
3293   double t5358, t5361, t5363, t5372, t5374, t5377, t5380, t5383;
3294   double t5393, t5396, t5399, t5403, t5404, t5406, t5408, t5410;
3295   double t5412, t5413, t5420, t5432, t5434, t5435, t5439, t5441;
3296   double t5443, t5447, t5450, t5451, t5453, t5455, t5458, t5461;
3297   double t5463, t5468, t5471, t5474, t5484, t5487, t5490, t5494;
3298   double t5495, t5497, t5499, t5501, t5503, t5504, t5511, t5523;
3299   double t5525, t5526, t5530, t5532, t5534, t5538, t5541, t5542;
3300   double t5544, t5546, t5549, t5552, t5554, t5559, t5560, t5561;
3301   double t5565, t5569, t5577, t5580, t5585, t5589, t5590, t5600;
3302   double t5607, t5609, t5612, t5615, t5623, t5626, t5628, t5631;
3303   double t5632, t5633, t5637, t5641, t5649, t5652, t5657, t5661;
3304   double t5662, t5672, t5679, t5681, t5684, t5687, t5695, t5698;
3305   double t5700;
3306 
3307 #ifndef XC_DONT_COMPILE_LXC
3308   double t5714, t5725, t5737, t5744, t5746, t5747, t5748, t5750;
3309   double t5754, t5764, t5768, t5769, t5773, t5774, t5784, t5798;
3310   double t5799, t5803, t5819, t5827, t5829, t5837, t5847, t5856;
3311   double t5864, t5866, t5868, t5869, t5873, t5888, t5890, t5891;
3312   double t5894, t5923, t5926, t5930, t5949, t5955, t5959, t5960;
3313   double t5963, t5971, t5977, t5981, t5998, t5999, t6000, t6001;
3314   double t6006, t6007, t6010, t6015, t6017, t6019, t6026, t6028;
3315   double t6035, t6039, t6040, t6043, t6044, t6048, t6052, t6056;
3316   double t6062, t6063, t6064, t6069, t6070, t6071, t6076, t6077;
3317   double t6079, t6083, t6084, t6093, t6094, t6098, t6099, t6102;
3318   double t6105, t6108, t6113, t6117, t6118, t6124, t6125, t6126;
3319   double t6127, t6132, t6133, t6135, t6145, t6147, t6152, t6164;
3320   double t6176, t6181, t6187, t6198, t6201, t6202, t6204, t6206;
3321   double t6207, t6212, t6214, t6215, t6218, t6245, t6248, t6253;
3322   double t6255, t6260, t6264, t6265, t6271, t6274, t6276, t6282;
3323   double t6284, t6288, t6289, t6295, t6298, t6304, t6307, t6309;
3324   double t6310, t6312, t6314, t6319, t6320, t6328, t6330, t6332;
3325   double t6333, t6336, t6343, t6345, t6347, t6352, t6357, t6359;
3326   double t6370, t6383, t6390, t6393, t6394, t6403, t6411, t6415;
3327   double t6419, t6442, t6443, t6448, t6449, t6451, t6457, t6475;
3328   double t6477, t6482, t6484, t6491, t6494, t6500, t6501, t6507;
3329   double t6508, t6512, t6513, t6518, t6523, t6529, t6530, t6535;
3330   double t6537, t6538, t6543, t6545, t6546, t6556, t6560, t6561;
3331   double t6565, t6566, t6568, t6571, t6574, t6576, t6578, t6579;
3332   double t6581, t6585, t6598, t6607, t6614, t6616, t6618, t6624;
3333   double t6631, t6638, t6645, t6652, t6654, t6659, t6662, t6663;
3334   double t6672, t6675, t6690, t6691, t6702, t6706, t6707, t6709;
3335   double t6712, t6715, t6721, t6723, t6724, t6727, t6729, t6730;
3336   double t6734, t6738, t6739, t6745, t6748, t6753, t6773, t6778;
3337   double t6783, t6785, t6789, t6811, t6828, t6851, t6870, t6871;
3338   double t6872, t6875, t6879, t6883, t6884, t6888, t6889, t6894;
3339   double t6895, t6897, t6899, t6901, t6910, t6917, t6918, t6929;
3340   double t6933, t6934, t6940, t6952, t6954, t6960, t6965, t6967;
3341   double t6969, t6979, t6984, t6989, t6995, t6996, t7002, t7003;
3342   double t7007, t7008, t7026, t7036, t7057, t7065, t7072, t7087;
3343   double t7107, t7116, t7118, t7125, t7131, t7149, t7151, t7155;
3344   double t7158, t7161, t7164, t7167, t7169, t7184, t7186, t7189;
3345   double t7192, t7195, t7200, t7203, t7210, t7228, t7235, t7243;
3346   double t7245, t7247, t7249, t7251, t7254, t7255, t7256, t7261;
3347   double t7262, t7267, t7271, t7272, t7274, t7276, t7278, t7280;
3348   double t7282, t7284, t7285, t7289, t7290, t7300, t7302, t7304;
3349   double t7306, t7308, t7310, t7316, t7325, t7332, t7337, t7346;
3350   double t7356, t7366, t7367, t7374, t7377, t7382, t7387, t7398;
3351   double t7400, t7412, t7413, t7414, t7415, t7419, t7426, t7431;
3352   double t7454, t7461, t7464, t7480, t7508, t7515, t7521, t7524;
3353   double t7527, t7530, t7533, t7536, t7539, t7541, t7559, t7574;
3354   double t7583, t7598, t7605, t7618, t7630, t7643, t7648, t7654;
3355   double t7681, t7690, t7710, t7714, t7721, t7722, t7729, t7739;
3356   double t7756, t7773, t7776, t7782, t7800, t7806, t7827, t7848;
3357   double t7853, t7858, t7865, t7870, t7879, t7901, t7910, t7920;
3358   double t7921, t7931, t7961, t7975, t7985, t7994, t8002, t8004;
3359   double t8006, t8007, t8011, t8026, t8028, t8031, t8060, t8063;
3360   double t8067, t8086, t8092, t8096, t8097, t8100, t8108, t8114;
3361   double t8118, t8135, t8136, t8141, t8142, t8145, t8157, t8166;
3362   double t8177, t8179, t8185, t8187, t8189, t8195, t8197, t8203;
3363   double t8207, t8209, t8213, t8242, t8244, t8251, t8253, t8259;
3364   double t8263, t8278, t8284, t8288, t8289, t8293, t8298, t8310;
3365   double t8320, t8332, t8338, t8341, t8343, t8351, t8356, t8358;
3366   double t8360, t8366, t8367, t8370, t8373, t8378, t8382, t8384;
3367   double t8386, t8390, t8393, t8399, t8400, t8408, t8409, t8413;
3368   double t8415, t8427, t8431, t8438, t8439, t8443, t8447, t8448;
3369   double t8450, t8452, t8455, t8483, t8493, t8497, t8516, t8529;
3370   double t8531, t8532, t8542, t8548, t8555, t8571, t8572, t8580;
3371   double t8627, t8630, t8639, t8640, t8651, t8652, t8655, t8663;
3372   double t8675, t8680, t8686, t8718, t8727, t8729, t8745, t8749;
3373   double t8754, t8766, t8776, t8792, t8794, t8797, t8801, t8806;
3374   double t8811, t8813, t8816, t8823, t8828, t8834, t8836, t8843;
3375   double t8844, t8847, t8848, t8851, t8855, t8869, t8883, t8884;
3376   double t8888, t8893, t8899, t8924, t8936, t8938, t8943, t8947;
3377   double t8980, t8982, t8990, t9004, t9015, t9028, t9035, t9037;
3378   double t9039, t9040, t9041, t9042, t9043, t9046, t9047, t9049;
3379   double t9050, t9051, t9053, t9054, t9055, t9056, t9057, t9059;
3380   double t9060, t9063, t9069, t9076, t9080, t9081, t9084, t9087;
3381   double t9089, t9090, t9110, t9112, t9117, t9122, t9125, t9127;
3382   double t9131, t9149, t9151, t9152, t9154, t9161, t9165, t9166;
3383   double t9180, t9182, t9186, t9193, t9195, t9214, t9230, t9235;
3384   double t9244, t9262, t9281, t9285, t9287, t9291, t9292, t9294;
3385   double t9296, t9298, t9300, t9302, t9304, t9308, t9328, t9330;
3386   double t9332, t9334, t9336, t9337, t9342, t9348, t9354, t9372;
3387   double t9373, t9375, t9377, t9379, t9381, t9383, t9385, t9394;
3388   double t9399, t9402, t9405, t9426, t9430, t9437, t9440, t9442;
3389   double t9444, t9446, t9448, t9451, t9475, t9488, t9495, t9499;
3390   double t9501, t9535, t9554, t9595, t9615, t9618, t9630, t9640;
3391   double t9644, t9663, t9668, t9680, t9682, t9683, t9693, t9702;
3392   double t9718, t9719, t9721, t9775, t9781, t9784, t9785, t9788;
3393   double t9796, t9799, t9800, t9813, t9816, t9825, t9834, t9866;
3394   double t9890, t9893, t9899, t9933, t9958, t9984, t10005, t10010;
3395   double t10017, t10049, t10088, t10096, t10101, t10123, t10143, t10150;
3396   double t10178, t10179, t10215, t10252, t10258, t10259, t10268, t10275;
3397   double t10296, t10300, t10310, t10316, t10317, t10325, t10328, t10337;
3398   double t10339, t10342, t10343, t10346, t10347, t10353, t10354, t10359;
3399   double t10363, t10368, t10369, t10373, t10378, t10382, t10393, t10398;
3400   double t10406, t10409, t10412, t10417, t10425, t10426, t10429, t10432;
3401   double t10434, t10438, t10441, t10445, t10446, t10469, t10477, t10478;
3402   double t10482, t10483, t10484, t10489, t10491, t10492, t10502, t10511;
3403   double t10517, t10518, t10522, t10526, t10531, t10532, t10535, t10541;
3404   double t10543, t10547, t10548, t10550, t10554, t10557, t10567, t10575;
3405   double t10588, t10613, t10616, t10619, t10621, t10622, t10624, t10630;
3406   double t10632, t10634, t10635, t10637, t10650, t10654, t10657, t10661;
3407   double t10664, t10666, t10679, t10701, t10718, t10737, t10741, t10747;
3408   double t10753, t10767, t10789, t10809, t10813, t10844, t10845, t10895;
3409   double t10900, t10915, t10919, t10950, t10963, t10968, t10976, t10981;
3410   double t10983, t10985, t10988, t10990, t11004, t11012, t11014, t11019;
3411   double t11024, t11026, t11029, t11039, t11040, t11048, t11049, t11058;
3412   double t11059, t11065, t11069, t11078, t11079, t11081, t11082, t11088;
3413   double t11089, t11094, t11111, t11116, t11117, t11120, t11129, t11132;
3414   double t11159, t11174, t11178, t11185, t11189, t11210, t11211, t11224;
3415   double t11245, t11270, t11287, t11293, t11297, t11311, t11353, t11370;
3416   double t11375, t11388, t11394, t11407, t11419, t11421, t11427, t11432;
3417   double t11463, t11465, t11484, t11486, t11488, t11491, t11492, t11497;
3418   double t11503, t11504, t11506, t11508, t11510, t11512, t11518, t11523;
3419   double t11524, t11526, t11534, t11540, t11546, t11550, t11555, t11561;
3420   double t11567, t11568, t11570, t11582, t11599, t11615, t11624, t11634;
3421   double t11644, t11654, t11673, t11682, t11686, t11687, t11689, t11695;
3422   double t11701, t11718, t11725, t11746, t11748, t11750, t11757, t11762;
3423   double t11765, t11767, t11769, t11771, t11773, t11775, t11777, t11781;
3424   double t11783, t11786, t11787, t11789, t11791, t11793, t11794, t11796;
3425   double t11798, t11802, t11808, t11809, t11814, t11815, t11826, t11830;
3426   double t11872, t11884, t11939, t11942, t11969, t11984, t11988, t11995;
3427   double t11999, t12020, t12021, t12023, t12057, t12074, t12080, t12084;
3428   double t12098, t12118, t12128, t12181, t12235, t12251, t12278, t12289;
3429   double t12307, t12345, t12350, t12351, t12407, t12417, t12436, t12437;
3430   double t12463, t12464, t12476, t12480, t12490, t12499, t12506, t12509;
3431   double t12557, t12601, t12626, t12633, t12636, t12641, t12657, t12660;
3432   double t12679, t12692, t12694, t12698, t12705, t12712, t12717, t12720;
3433   double t12721, t12724, t12725, t12727, t12728, t12730, t12738, t12739;
3434   double t12748, t12762, t12767, t12781, t12783, t12791, t12793, t12797;
3435   double t12798, t12801, t12805, t12806, t12812, t12816, t12820, t12824;
3436   double t12828, t12879, t12906, t12930, t12967, t12972, t12976, t12981;
3437   double t12985, t12996, t13027, t13091, t13101, t13120, t13121, t13139;
3438   double t13153, t13158, t13198, t13200, t13201, t13203, t13204, t13205;
3439   double t13207, t13211, t13215, t13247, t13268, t13287, t13288, t13290;
3440   double t13293, t13294, t13306, t13309, t13312, t13321, t13324, t13325;
3441   double t13331, t13335, t13339, t13363, t13394, t13411, t13423, t13459;
3442   double t13467, t13480, t13481, t13483, t13493, t13507, t13515, t13517;
3443   double t13521, t13522, t13525, t13578, t13581, t13584, t13585, t13588;
3444   double t13595, t13596, t13631, t13652, t13671, t13672, t13684, t13688;
3445   double t13690, t13697, t13725, t13749, t13765, t13776, t13780, t13785;
3446   double t13793, t13805, t13811, t13847, t13869, t13872, t13874, t13882;
3447   double t13922, t13926, t13954, t13957, t13977, t13980, t13988, t14012;
3448   double t14021, t14032, t14039, t14041, t14047, t14050, t14053, t14056;
3449   double t14057, t14066, t14078, t14079, t14087, t14089, t14095, t14108;
3450   double t14143, t14145, t14146, t14150, t14156, t14160, t14164, t14168;
3451   double t14172, t14173, t14174, t14179, t14181, t14187, t14188, t14189;
3452   double t14195, t14201, t14202, t14207, t14213, t14214, t14232, t14251;
3453   double t14289, t14311, t14314, t14316, t14324, t14364, t14368, t14396;
3454   double t14399, t14419, t14422, t14456, t14484, t14499, t14525, t14546;
3455   double t14565, t14569, t14584, t14588, t14596, t14599, t14607, t14609;
3456   double t14636, t14701, t14748, t14788, t14809, t14840, t14849, t14852;
3457   double t14860, t14864, t14884, t14891, t14893, t14894, t14899, t14903;
3458   double t14907, t14911, t14975, t15003, t15006, t15014, t15018, t15020;
3459   double t15083, t15104, t15123, t15185, t15197, t15206, t15236, t15238;
3460   double t15239, t15250, t15253, t15256, t15264, t15267, t15273, t15284;
3461   double t15289, t15298, t15331, t15352, t15412, t15466, t15489, t15498;
3462   double t15502, t15512, t15520, t15524, t15542, t15543, t15548, t15576;
3463   double t15593, t15596, t15599, t15602, t15605, t15608, t15613, t15614;
3464   double t15618, t15685, t15731, t15741, t15748, t15786, t15807, t15828;
3465   double t15836, t15855, t15857, t15861, t15865, t15869, t15876, t15879;
3466   double t15882, t15885, t15969, t15971, t15972, t15975, t15978, t15981;
3467   double t15982, t15987, t15992, t16034, t16041, t16044, t16045, t16063;
3468   double t16077, t16095, t16098, t16101, t16104, t16116, t16180, t16188;
3469   double t16191, t16192, t16193, t16198, t16216, t16220, t16226, t16230;
3470   double t16237, t16257, t16267, t16292, t16297, t16324, t16333, t16339;
3471   double t16358, t16361, t16390, t16428, t16429, t16439, t16464, t16469;
3472   double t16496, t16505, t16511, t16530, t16533, t16562, t16617, t16629;
3473   double t16634, t16672, t16698, t16723, t16768, t16804, t16809, t16847;
3474   double t16869, t16907, t16953, t16998, t17003, t17016, t17044, t17052;
3475   double t17061, t17066, t17069, t17070, t17095, t17106, t17112, t17153;
3476   double t17179, t17189, t17229, t17236, t17239, t17242, t17252, t17276;
3477   double t17281, t17294, t17322, t17327, t17333, t17336, t17358, t17395;
3478   double t17408, t17426, t17429, t17432, t17437, t17442, t17445, t17457;
3479   double t17462, t17480, t17516, t17518, t17547, t17584, t17587, t17595;
3480   double t17598, t17601, t17609, t17611, t17627, t17651, t17654, t17657;
3481   double t17664, t17665, t17706, t17743, t17756, t17768, t17777, t17783;
3482   double t17802, t17813, t17817, t17820, t17824, t17848, t17849, t17872;
3483   double t17877, t17883, t17886, t17889, t17892, t17897, t17908, t17944;
3484   double t17956, t17965, t17971, t17990, t17996;
3485 #endif
3486 
3487 #endif
3488 
3489 #endif
3490 
3491 #endif
3492 
3493 #endif
3494 
3495 
3496   mgga_x_scan_params *params;
3497 
3498   assert(p->params != NULL);
3499   params = (mgga_x_scan_params * )(p->params);
3500 
3501   t2 = M_CBRT3;
3502   t4 = POW_1_3(0.1e1 / M_PI);
3503   t5 = t2 * t4;
3504   t6 = M_CBRT4;
3505   t7 = t6 * t6;
3506   t8 = t5 * t7;
3507   t9 = rho[0] - rho[1];
3508   t10 = rho[0] + rho[1];
3509   t11 = 0.1e1 / t10;
3510   t12 = t9 * t11;
3511   t14 = 0.1e1 / 0.2e1 + t12 / 0.2e1;
3512   t15 = POW_1_3(t14);
3513   t16 = t15 * t14;
3514   t17 = POW_1_3(t10);
3515   t18 = t16 * t17;
3516   t19 = M_CBRT6;
3517   t20 = M_PI * M_PI;
3518   t21 = POW_1_3(t20);
3519   t22 = t21 * t21;
3520   t23 = 0.1e1 / t22;
3521   t24 = t19 * t23;
3522   t25 = rho[0] * rho[0];
3523   t26 = POW_1_3(rho[0]);
3524   t27 = t26 * t26;
3525   t28 = t27 * t25;
3526   t29 = 0.1e1 / t28;
3527   t30 = sigma[0] * t29;
3528   t31 = t24 * t30;
3529   t35 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
3530   t36 = t19 * t19;
3531   t37 = t35 * t36;
3532   t38 = t21 * t20;
3533   t39 = 0.1e1 / t38;
3534   t40 = t37 * t39;
3535   t41 = sigma[0] * sigma[0];
3536   t42 = t25 * t25;
3537   t43 = t42 * rho[0];
3538   t45 = 0.1e1 / t26 / t43;
3539   t46 = t41 * t45;
3540   t47 = t35 * t19;
3541   t48 = t23 * sigma[0];
3542   t49 = t48 * t29;
3543   t52 = exp(-0.27e2 / 0.80e2 * t47 * t49);
3544   t56 = sqrt(0.146e3);
3545   t57 = t56 * t19;
3546   t60 = t27 * rho[0];
3547   t61 = 0.1e1 / t60;
3548   t64 = tau[0] * t61 - t30 / 0.8e1;
3549   t67 = 0.5e1 / 0.9e1 * t64 * t19 * t23;
3550   t68 = 0.1e1 - t67;
3551   t70 = t68 * t68;
3552   t72 = exp(-t70 / 0.2e1);
3553   t75 = 0.7e1 / 0.12960e5 * t57 * t49 + t56 * t68 * t72 / 0.100e3;
3554   t76 = t75 * t75;
3555   t77 = params->k1 + 0.5e1 / 0.972e3 * t31 + t40 * t46 * t52 / 0.576e3 + t76;
3556   t82 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t77);
3557   t83 = t67 <= 0.1e1;
3558   t84 = params->c1 * t64;
3559   t85 = 0.1e1 / t68;
3560   t86 = t24 * t85;
3561   t89 = exp(-0.5e1 / 0.9e1 * t84 * t86);
3562   t91 = exp(params->c2 * t85);
3563   t93 = my_piecewise3(t83, t89, -params->d * t91);
3564   t94 = 0.1e1 - t93;
3565   t97 = t82 * t94 + 0.1174e1 * t93;
3566   t98 = sqrt(0.3e1);
3567   t99 = 0.1e1 / t21;
3568   t100 = t36 * t99;
3569   t101 = sqrt(sigma[0]);
3570   t102 = t26 * rho[0];
3571   t103 = 0.1e1 / t102;
3572   t105 = t100 * t101 * t103;
3573   t106 = sqrt(t105);
3574   t110 = exp(-0.98958000000000000000e1 * t98 / t106);
3575   t111 = 0.1e1 - t110;
3576   t112 = t97 * t111;
3577   t114 = t8 * t18 * t112;
3578   t116 = 0.1e1 / 0.2e1 - t12 / 0.2e1;
3579   t117 = POW_1_3(t116);
3580   t118 = t117 * t116;
3581   t119 = t118 * t17;
3582   t120 = rho[1] * rho[1];
3583   t121 = POW_1_3(rho[1]);
3584   t122 = t121 * t121;
3585   t123 = t122 * t120;
3586   t124 = 0.1e1 / t123;
3587   t125 = sigma[2] * t124;
3588   t126 = t24 * t125;
3589   t128 = sigma[2] * sigma[2];
3590   t129 = t120 * t120;
3591   t130 = t129 * rho[1];
3592   t132 = 0.1e1 / t121 / t130;
3593   t133 = t128 * t132;
3594   t134 = t23 * sigma[2];
3595   t135 = t134 * t124;
3596   t138 = exp(-0.27e2 / 0.80e2 * t47 * t135);
3597   t144 = t122 * rho[1];
3598   t145 = 0.1e1 / t144;
3599   t148 = tau[1] * t145 - t125 / 0.8e1;
3600   t151 = 0.5e1 / 0.9e1 * t148 * t19 * t23;
3601   t152 = 0.1e1 - t151;
3602   t154 = t152 * t152;
3603   t156 = exp(-t154 / 0.2e1);
3604   t159 = 0.7e1 / 0.12960e5 * t57 * t135 + t56 * t152 * t156 / 0.100e3;
3605   t160 = t159 * t159;
3606   t161 = params->k1 + 0.5e1 / 0.972e3 * t126 + t40 * t133 * t138 / 0.576e3 + t160;
3607   t166 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t161);
3608   t167 = t151 <= 0.1e1;
3609   t168 = params->c1 * t148;
3610   t169 = 0.1e1 / t152;
3611   t170 = t24 * t169;
3612   t173 = exp(-0.5e1 / 0.9e1 * t168 * t170);
3613   t175 = exp(params->c2 * t169);
3614   t177 = my_piecewise3(t167, t173, -params->d * t175);
3615   t178 = 0.1e1 - t177;
3616   t181 = t166 * t178 + 0.1174e1 * t177;
3617   t182 = sqrt(sigma[2]);
3618   t183 = t121 * rho[1];
3619   t184 = 0.1e1 / t183;
3620   t186 = t100 * t182 * t184;
3621   t187 = sqrt(t186);
3622   t191 = exp(-0.98958000000000000000e1 * t98 / t187);
3623   t192 = 0.1e1 - t191;
3624   t193 = t181 * t192;
3625   t195 = t8 * t119 * t193;
3626   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
3627     zk[0] = -0.3e1 / 0.8e1 * t114 - 0.3e1 / 0.8e1 * t195;
3628 
3629 #ifndef XC_DONT_COMPILE_VXC
3630 
3631   if(order < 1) return;
3632 
3633 
3634   t197 = 0.3e1 / 0.8e1 * t114;
3635   t198 = 0.3e1 / 0.8e1 * t195;
3636   t199 = t7 * t15;
3637   t200 = t5 * t199;
3638   t201 = t17 * t97;
3639   t202 = t10 * t10;
3640   t203 = 0.1e1 / t202;
3641   t204 = t9 * t203;
3642   t206 = t11 / 0.2e1 - t204 / 0.2e1;
3643   t207 = t111 * t206;
3644   t209 = t200 * t201 * t207;
3645   t210 = t209 / 0.2e1;
3646   t211 = t17 * t17;
3647   t212 = 0.1e1 / t211;
3648   t213 = t16 * t212;
3649   t215 = t8 * t213 * t112;
3650   t216 = t215 / 0.8e1;
3651   t217 = params->k1 * params->k1;
3652   t218 = t77 * t77;
3653   t220 = t217 / t218;
3654   t221 = t25 * rho[0];
3655   t223 = 0.1e1 / t27 / t221;
3656   t224 = sigma[0] * t223;
3657   t227 = t42 * t25;
3658   t229 = 0.1e1 / t26 / t227;
3659   t234 = t35 * t35;
3660   t235 = t20 * t20;
3661   t236 = 0.1e1 / t235;
3662   t237 = t234 * t236;
3663   t238 = t41 * sigma[0];
3664   t239 = t42 * t42;
3665   t240 = t239 * rho[0];
3666   t241 = 0.1e1 / t240;
3667   t252 = -0.5e1 / 0.3e1 * tau[0] * t29 + t224 / 0.3e1;
3668   t254 = t24 * t72;
3669   t257 = t56 * t70;
3670   t261 = -0.7e1 / 0.4860e4 * t57 * t48 * t223 - t56 * t252 * t254 / 0.180e3 + t257 * t252 * t254 / 0.180e3;
3671   t264 = -0.10e2 / 0.729e3 * t24 * t224 - t40 * t41 * t229 * t52 / 0.108e3 + 0.3e1 / 0.320e3 * t237 * t238 * t241 * t52 + 0.2e1 * t75 * t261;
3672   t265 = t264 * t94;
3673   t270 = t84 * t36;
3674   t271 = 0.1e1 / t70;
3675   t272 = t39 * t271;
3676   t273 = t272 * t252;
3677   t276 = -0.5e1 / 0.9e1 * params->c1 * t252 * t86 - 0.25e2 / 0.81e2 * t270 * t273;
3678   t277 = t276 * t89;
3679   t278 = params->d * params->c2;
3680   t279 = t278 * t271;
3681   t280 = t252 * t19;
3682   t281 = t23 * t91;
3683   t285 = my_piecewise3(t83, t277, -0.5e1 / 0.9e1 * t279 * t280 * t281);
3684   t288 = t220 * t265 - t82 * t285 + 0.1174e1 * t285;
3685   t289 = t288 * t111;
3686   t291 = t8 * t18 * t289;
3687   t292 = 0.3e1 / 0.8e1 * t291;
3688   t293 = pow(0.3e1, 0.1e1 / 0.6e1);
3689   t294 = t293 * t293;
3690   t295 = t294 * t294;
3691   t296 = t295 * t293;
3692   t297 = t296 * t4;
3693   t298 = t297 * t7;
3694   t300 = t298 * t18 * t97;
3695   t302 = 0.1e1 / t106 / t105;
3696   t304 = t302 * t36 * t99;
3697   t306 = 0.1e1 / t26 / t25;
3698   t307 = t101 * t306;
3699   t309 = t304 * t307 * t110;
3700   t310 = t300 * t309;
3701   t311 = 0.24739500000000000000e1 * t310;
3702   t312 = t7 * t117;
3703   t313 = t5 * t312;
3704   t314 = t17 * t181;
3705   t315 = -t206;
3706   t316 = t192 * t315;
3707   t318 = t313 * t314 * t316;
3708   t319 = t318 / 0.2e1;
3709   t320 = t118 * t212;
3710   t322 = t8 * t320 * t193;
3711   t323 = t322 / 0.8e1;
3712   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3713     vrho[0] = -t197 - t198 + t10 * (-t210 - t216 - t292 - t311 - t319 - t323);
3714 
3715   t327 = -t11 / 0.2e1 - t204 / 0.2e1;
3716   t328 = t111 * t327;
3717   t330 = t200 * t201 * t328;
3718   t331 = t330 / 0.2e1;
3719   t332 = -t327;
3720   t333 = t192 * t332;
3721   t335 = t313 * t314 * t333;
3722   t336 = t335 / 0.2e1;
3723   t337 = t161 * t161;
3724   t339 = t217 / t337;
3725   t340 = t120 * rho[1];
3726   t342 = 0.1e1 / t122 / t340;
3727   t343 = sigma[2] * t342;
3728   t346 = t129 * t120;
3729   t348 = 0.1e1 / t121 / t346;
3730   t353 = t128 * sigma[2];
3731   t354 = t129 * t129;
3732   t355 = t354 * rho[1];
3733   t356 = 0.1e1 / t355;
3734   t367 = -0.5e1 / 0.3e1 * tau[1] * t124 + t343 / 0.3e1;
3735   t369 = t24 * t156;
3736   t372 = t56 * t154;
3737   t376 = -0.7e1 / 0.4860e4 * t57 * t134 * t342 - t56 * t367 * t369 / 0.180e3 + t372 * t367 * t369 / 0.180e3;
3738   t379 = -0.10e2 / 0.729e3 * t24 * t343 - t40 * t128 * t348 * t138 / 0.108e3 + 0.3e1 / 0.320e3 * t237 * t353 * t356 * t138 + 0.2e1 * t159 * t376;
3739   t380 = t379 * t178;
3740   t385 = t168 * t36;
3741   t386 = 0.1e1 / t154;
3742   t387 = t39 * t386;
3743   t388 = t387 * t367;
3744   t391 = -0.5e1 / 0.9e1 * params->c1 * t367 * t170 - 0.25e2 / 0.81e2 * t385 * t388;
3745   t392 = t391 * t173;
3746   t393 = t278 * t386;
3747   t394 = t367 * t19;
3748   t395 = t23 * t175;
3749   t399 = my_piecewise3(t167, t392, -0.5e1 / 0.9e1 * t393 * t394 * t395);
3750   t402 = t339 * t380 - t166 * t399 + 0.1174e1 * t399;
3751   t403 = t402 * t192;
3752   t405 = t8 * t119 * t403;
3753   t406 = 0.3e1 / 0.8e1 * t405;
3754   t408 = t298 * t119 * t181;
3755   t410 = 0.1e1 / t187 / t186;
3756   t412 = t410 * t36 * t99;
3757   t414 = 0.1e1 / t121 / t120;
3758   t415 = t182 * t414;
3759   t417 = t412 * t415 * t191;
3760   t418 = t408 * t417;
3761   t419 = 0.24739500000000000000e1 * t418;
3762   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3763     vrho[1] = -t197 - t198 + t10 * (-t331 - t216 - t336 - t323 - t406 - t419);
3764 
3765   t422 = t29 * t19;
3766   t429 = 0.1e1 / t239;
3767   t437 = t56 * t29;
3768   t438 = t437 * t254;
3769   t441 = t257 * t29 * t254;
3770   t443 = 0.7e1 / 0.12960e5 * t57 * t23 * t29 + t438 / 0.1440e4 - t441 / 0.1440e4;
3771   t446 = 0.5e1 / 0.972e3 * t422 * t23 + t40 * sigma[0] * t45 * t52 / 0.288e3 - 0.9e1 / 0.2560e4 * t237 * t41 * t429 * t52 + 0.2e1 * t75 * t443;
3772   t447 = t446 * t94;
3773   t449 = params->c1 * t29;
3774   t450 = t449 * t86;
3775   t453 = t270 * t272 * t29;
3776   t455 = 0.5e1 / 0.72e2 * t450 + 0.25e2 / 0.648e3 * t453;
3777   t456 = t455 * t89;
3778   t458 = t279 * t422 * t281;
3779   t460 = my_piecewise3(t83, t456, 0.5e1 / 0.72e2 * t458);
3780   t463 = t220 * t447 - t82 * t460 + 0.1174e1 * t460;
3781   t464 = t463 * t111;
3782   t467 = 0.3e1 / 0.8e1 * t8 * t18 * t464;
3783   t468 = 0.1e1 / t101;
3784   t469 = t468 * t103;
3785   t471 = t304 * t469 * t110;
3786   t473 = 0.92773125000000000000e0 * t300 * t471;
3787   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3788     vsigma[0] = t10 * (-t467 + t473);
3789 
3790   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3791     vsigma[1] = 0.0e0;
3792 
3793   t475 = t124 * t19;
3794   t482 = 0.1e1 / t354;
3795   t490 = t56 * t124;
3796   t491 = t490 * t369;
3797   t494 = t372 * t124 * t369;
3798   t496 = 0.7e1 / 0.12960e5 * t57 * t23 * t124 + t491 / 0.1440e4 - t494 / 0.1440e4;
3799   t499 = 0.5e1 / 0.972e3 * t475 * t23 + t40 * sigma[2] * t132 * t138 / 0.288e3 - 0.9e1 / 0.2560e4 * t237 * t128 * t482 * t138 + 0.2e1 * t159 * t496;
3800   t500 = t499 * t178;
3801   t502 = params->c1 * t124;
3802   t503 = t502 * t170;
3803   t506 = t385 * t387 * t124;
3804   t508 = 0.5e1 / 0.72e2 * t503 + 0.25e2 / 0.648e3 * t506;
3805   t509 = t508 * t173;
3806   t511 = t393 * t475 * t395;
3807   t513 = my_piecewise3(t167, t509, 0.5e1 / 0.72e2 * t511);
3808   t516 = t339 * t500 - t166 * t513 + 0.1174e1 * t513;
3809   t517 = t516 * t192;
3810   t520 = 0.3e1 / 0.8e1 * t8 * t119 * t517;
3811   t521 = 0.1e1 / t182;
3812   t522 = t521 * t184;
3813   t524 = t412 * t522 * t191;
3814   t526 = 0.92773125000000000000e0 * t408 * t524;
3815   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3816     vsigma[2] = t10 * (-t520 + t526);
3817 
3818   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
3819     vlapl[0] = 0.0e0;
3820 
3821   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
3822     vlapl[1] = 0.0e0;
3823 
3824   t528 = t17 * t10;
3825   t529 = t528 * t2;
3826   t530 = t529 * t4;
3827   t531 = t7 * t16;
3828   t532 = t56 * t61;
3829   t537 = t257 * t61 * t254 / 0.180e3 - t532 * t254 / 0.180e3;
3830   t538 = t75 * t537;
3831   t542 = params->c1 * t61;
3832   t548 = -0.5e1 / 0.9e1 * t542 * t86 - 0.25e2 / 0.81e2 * t270 * t272 * t61;
3833   t549 = t548 * t89;
3834   t554 = my_piecewise3(t83, t549, -0.5e1 / 0.9e1 * t279 * t61 * t19 * t281);
3835   t557 = 0.2e1 * t220 * t538 * t94 - t82 * t554 + 0.1174e1 * t554;
3836   t558 = t557 * t111;
3837   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3838     vtau[0] = -0.3e1 / 0.8e1 * t530 * t531 * t558;
3839 
3840   t562 = t7 * t118;
3841   t563 = t56 * t145;
3842   t568 = t372 * t145 * t369 / 0.180e3 - t563 * t369 / 0.180e3;
3843   t569 = t159 * t568;
3844   t573 = params->c1 * t145;
3845   t579 = -0.5e1 / 0.9e1 * t573 * t170 - 0.25e2 / 0.81e2 * t385 * t387 * t145;
3846   t580 = t579 * t173;
3847   t585 = my_piecewise3(t167, t580, -0.5e1 / 0.9e1 * t393 * t145 * t19 * t395);
3848   t588 = 0.2e1 * t339 * t569 * t178 - t166 * t585 + 0.1174e1 * t585;
3849   t589 = t588 * t192;
3850   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3851     vtau[1] = -0.3e1 / 0.8e1 * t530 * t562 * t589;
3852 
3853 #ifndef XC_DONT_COMPILE_FXC
3854 
3855   if(order < 2) return;
3856 
3857 
3858   t593 = t215 / 0.4e1;
3859   t596 = t322 / 0.4e1;
3860   t597 = t15 * t15;
3861   t598 = 0.1e1 / t597;
3862   t599 = t7 * t598;
3863   t600 = t5 * t599;
3864   t601 = t206 * t206;
3865   t602 = t111 * t601;
3866   t604 = t600 * t201 * t602;
3867   t605 = t604 / 0.6e1;
3868   t606 = t212 * t97;
3869   t608 = t200 * t606 * t207;
3870   t609 = t608 / 0.3e1;
3871   t610 = t17 * t288;
3872   t612 = t200 * t610 * t207;
3873   t613 = t15 * t17;
3874   t614 = t613 * t97;
3875   t615 = t298 * t614;
3876   t616 = t110 * t206;
3877   t618 = t304 * t307 * t616;
3878   t619 = t615 * t618;
3879   t620 = 0.65972000000000000000e1 * t619;
3880   t621 = t202 * t10;
3881   t622 = 0.1e1 / t621;
3882   t623 = t9 * t622;
3883   t624 = -t203 + t623;
3884   t625 = t111 * t624;
3885   t627 = t200 * t201 * t625;
3886   t628 = t627 / 0.2e1;
3887   t630 = 0.1e1 / t211 / t10;
3888   t631 = t16 * t630;
3889   t633 = t8 * t631 * t112;
3890   t634 = t633 / 0.12e2;
3891   t636 = t8 * t213 * t289;
3892   t637 = t636 / 0.4e1;
3893   t639 = t298 * t213 * t97;
3894   t640 = t639 * t309;
3895   t641 = 0.16493000000000000000e1 * t640;
3896   t644 = t217 / t218 / t77;
3897   t645 = t264 * t264;
3898   t646 = t645 * t94;
3899   t650 = 0.1e1 / t27 / t42;
3900   t651 = sigma[0] * t650;
3901   t654 = t42 * t221;
3902   t656 = 0.1e1 / t26 / t654;
3903   t661 = t239 * t25;
3904   t662 = 0.1e1 / t661;
3905   t668 = t234 * t35 * t236;
3906   t669 = t41 * t41;
3907   t670 = t668 * t669;
3908   t671 = t239 * t42;
3909   t673 = 0.1e1 / t27 / t671;
3910   t675 = t23 * t52;
3911   t676 = t673 * t19 * t675;
3912   t679 = t261 * t261;
3913   t687 = 0.40e2 / 0.9e1 * tau[0] * t223 - 0.11e2 / 0.9e1 * t651;
3914   t688 = t56 * t687;
3915   t691 = t252 * t252;
3916   t694 = t39 * t68;
3917   t695 = t694 * t72;
3918   t701 = t70 * t68;
3919   t702 = t56 * t701;
3920   t704 = t36 * t39;
3921   t705 = t704 * t72;
3922   t708 = 0.77e2 / 0.14580e5 * t57 * t48 * t650 - t688 * t254 / 0.180e3 - t56 * t691 * t36 * t695 / 0.108e3 + t257 * t687 * t254 / 0.180e3 + t702 * t691 * t705 / 0.324e3;
3923   t711 = 0.110e3 / 0.2187e4 * t24 * t651 + 0.19e2 / 0.324e3 * t40 * t41 * t656 * t52 - 0.43e2 / 0.320e3 * t237 * t238 * t662 * t52 + 0.27e2 / 0.3200e4 * t670 * t676 + 0.2e1 * t679 + 0.2e1 * t75 * t708;
3924   t714 = t264 * t285;
3925   t717 = params->c1 * t687;
3926   t721 = t704 * t271;
3927   t724 = 0.1e1 / t701;
3928   t725 = t236 * t724;
3929   t726 = t725 * t691;
3930   t729 = t272 * t687;
3931   t732 = -0.5e1 / 0.9e1 * t717 * t86 - 0.50e2 / 0.81e2 * params->c1 * t691 * t721 - 0.500e3 / 0.243e3 * t84 * t726 - 0.25e2 / 0.81e2 * t270 * t729;
3932   t733 = t732 * t89;
3933   t734 = t276 * t276;
3934   t735 = t734 * t89;
3935   t737 = t278 * t724;
3936   t739 = t39 * t91;
3937   t740 = t691 * t36 * t739;
3938   t747 = params->c2 * params->c2;
3939   t748 = params->d * t747;
3940   t749 = t70 * t70;
3941   t750 = 0.1e1 / t749;
3942   t751 = t748 * t750;
3943   t755 = my_piecewise3(t83, t733 + t735, -0.50e2 / 0.81e2 * t737 * t740 - 0.5e1 / 0.9e1 * t279 * t687 * t19 * t281 - 0.25e2 / 0.81e2 * t751 * t740);
3944   t758 = -0.2e1 * t644 * t646 + t220 * t711 * t94 - 0.2e1 * t220 * t714 - t82 * t755 + 0.1174e1 * t755;
3945   t759 = t758 * t111;
3946   t761 = t8 * t18 * t759;
3947   t762 = 0.3e1 / 0.8e1 * t761;
3948   t764 = t298 * t18 * t288;
3949   t765 = t764 * t309;
3950   t766 = 0.49479000000000000000e1 * t765;
3951   t769 = 0.1e1 / t106 / t31 / 0.6e1;
3952   t771 = t769 * t19 * t23;
3953   t773 = t771 * t651 * t110;
3954   t774 = t300 * t773;
3955   t775 = 0.29687400000000000000e2 * t774;
3956   t777 = 0.1e1 / t26 / t221;
3957   t778 = t101 * t777;
3958   t780 = t304 * t778 * t110;
3959   t781 = t300 * t780;
3960   t782 = 0.57725500000000000000e1 * t781;
3961   t783 = t531 * t17;
3962   t784 = t5 * t783;
3963   t785 = t97 * t468;
3964   t786 = 0.1e1 / t27;
3965   t788 = t24 * t110;
3966   t789 = t785 * t786 * t788;
3967   t790 = t784 * t789;
3968   t791 = 0.80541612095716256868e2 * t790;
3969   t792 = t117 * t117;
3970   t793 = 0.1e1 / t792;
3971   t794 = t7 * t793;
3972   t795 = t5 * t794;
3973   t796 = t315 * t315;
3974   t797 = t192 * t796;
3975   t799 = t795 * t314 * t797;
3976   t800 = t799 / 0.6e1;
3977   t801 = t212 * t181;
3978   t803 = t313 * t801 * t316;
3979   t804 = t803 / 0.3e1;
3980   t805 = -t624;
3981   t806 = t192 * t805;
3982   t808 = t313 * t314 * t806;
3983   t809 = t808 / 0.2e1;
3984   t810 = t118 * t630;
3985   t812 = t8 * t810 * t193;
3986   t813 = t812 / 0.12e2;
3987   t814 = -t605 - t609 - t612 - t620 - t628 + t634 - t637 - t641 - t762 - t766 - t775 + t782 + t791 - t800 - t804 - t809 + t813;
3988   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3989     v2rho2[0] = -t209 - t593 - 0.3e1 / 0.4e1 * t291 - 0.49479000000000000000e1 * t310 - t318 - t596 + t10 * t814;
3990 
3991   t816 = t328 * t206;
3992   t818 = t600 * t201 * t816;
3993   t821 = t200 * t606 * t328;
3994   t824 = t200 * t610 * t328;
3995   t826 = t110 * t327;
3996   t828 = t304 * t307 * t826;
3997   t829 = t615 * t828;
3998   t832 = 0.1e1 / t211 / t202;
3999   t833 = t832 * t97;
4000   t834 = t111 * t9;
4001   t836 = t200 * t833 * t834;
4002   t841 = t333 * t315;
4003   t843 = t795 * t314 * t841;
4004   t846 = t313 * t801 * t333;
4005   t848 = t832 * t181;
4006   t849 = t192 * t9;
4007   t851 = t313 * t848 * t849;
4008   t854 = t17 * t402;
4009   t856 = t313 * t854 * t316;
4010   t859 = t8 * t320 * t403;
4011   t861 = t117 * t17;
4012   t862 = t861 * t181;
4013   t863 = t298 * t862;
4014   t864 = t191 * t315;
4015   t866 = t412 * t415 * t864;
4016   t867 = t863 * t866;
4017   t870 = t298 * t320 * t181;
4018   t871 = t870 * t417;
4019   t873 = -t818 / 0.6e1 - t821 / 0.6e1 - t824 / 0.2e1 - 0.32986000000000000000e1 * t829 - t836 / 0.2e1 - t608 / 0.6e1 + t634 - t636 / 0.8e1 - 0.82465000000000000000e0 * t640 - t843 / 0.6e1 - t846 / 0.6e1 + t851 / 0.2e1 - t803 / 0.6e1 + t813 - t856 / 0.2e1 - t859 / 0.8e1 - 0.32986000000000000000e1 * t867 - 0.82465000000000000000e0 * t871;
4020   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4021     v2rho2[1] = t10 * t873 - t210 - t292 - t311 - t319 - t331 - t336 - t406 - t419 - t593 - t596;
4022 
4023   t877 = t327 * t327;
4024   t878 = t111 * t877;
4025   t880 = t600 * t201 * t878;
4026   t881 = t880 / 0.6e1;
4027   t882 = t821 / 0.3e1;
4028   t883 = t203 + t623;
4029   t884 = t111 * t883;
4030   t886 = t200 * t201 * t884;
4031   t887 = t886 / 0.2e1;
4032   t888 = t332 * t332;
4033   t889 = t192 * t888;
4034   t891 = t795 * t314 * t889;
4035   t892 = t891 / 0.6e1;
4036   t893 = t846 / 0.3e1;
4037   t895 = t313 * t854 * t333;
4038   t896 = t191 * t332;
4039   t898 = t412 * t415 * t896;
4040   t899 = t863 * t898;
4041   t900 = 0.65972000000000000000e1 * t899;
4042   t901 = -t883;
4043   t902 = t192 * t901;
4044   t904 = t313 * t314 * t902;
4045   t905 = t904 / 0.2e1;
4046   t906 = t859 / 0.4e1;
4047   t907 = 0.16493000000000000000e1 * t871;
4048   t910 = t217 / t337 / t161;
4049   t911 = t379 * t379;
4050   t912 = t911 * t178;
4051   t916 = 0.1e1 / t122 / t129;
4052   t917 = sigma[2] * t916;
4053   t920 = t129 * t340;
4054   t922 = 0.1e1 / t121 / t920;
4055   t927 = t354 * t120;
4056   t928 = 0.1e1 / t927;
4057   t933 = t128 * t128;
4058   t934 = t668 * t933;
4059   t935 = t354 * t129;
4060   t937 = 0.1e1 / t122 / t935;
4061   t939 = t23 * t138;
4062   t940 = t937 * t19 * t939;
4063   t943 = t376 * t376;
4064   t951 = 0.40e2 / 0.9e1 * tau[1] * t342 - 0.11e2 / 0.9e1 * t917;
4065   t952 = t56 * t951;
4066   t955 = t367 * t367;
4067   t958 = t39 * t152;
4068   t959 = t958 * t156;
4069   t965 = t154 * t152;
4070   t966 = t56 * t965;
4071   t968 = t704 * t156;
4072   t971 = 0.77e2 / 0.14580e5 * t57 * t134 * t916 - t952 * t369 / 0.180e3 - t56 * t955 * t36 * t959 / 0.108e3 + t372 * t951 * t369 / 0.180e3 + t966 * t955 * t968 / 0.324e3;
4073   t974 = 0.110e3 / 0.2187e4 * t24 * t917 + 0.19e2 / 0.324e3 * t40 * t128 * t922 * t138 - 0.43e2 / 0.320e3 * t237 * t353 * t928 * t138 + 0.27e2 / 0.3200e4 * t934 * t940 + 0.2e1 * t943 + 0.2e1 * t159 * t971;
4074   t977 = t379 * t399;
4075   t980 = params->c1 * t951;
4076   t984 = t704 * t386;
4077   t987 = 0.1e1 / t965;
4078   t988 = t236 * t987;
4079   t989 = t988 * t955;
4080   t992 = t387 * t951;
4081   t995 = -0.5e1 / 0.9e1 * t980 * t170 - 0.50e2 / 0.81e2 * params->c1 * t955 * t984 - 0.500e3 / 0.243e3 * t168 * t989 - 0.25e2 / 0.81e2 * t385 * t992;
4082   t996 = t995 * t173;
4083   t997 = t391 * t391;
4084   t998 = t997 * t173;
4085   t1000 = t278 * t987;
4086   t1002 = t39 * t175;
4087   t1003 = t955 * t36 * t1002;
4088   t1010 = t154 * t154;
4089   t1011 = 0.1e1 / t1010;
4090   t1012 = t748 * t1011;
4091   t1016 = my_piecewise3(t167, t996 + t998, -0.50e2 / 0.81e2 * t1000 * t1003 - 0.5e1 / 0.9e1 * t393 * t951 * t19 * t395 - 0.25e2 / 0.81e2 * t1012 * t1003);
4092   t1019 = -0.2e1 * t910 * t912 + t339 * t974 * t178 - 0.2e1 * t339 * t977 - t166 * t1016 + 0.1174e1 * t1016;
4093   t1020 = t1019 * t192;
4094   t1022 = t8 * t119 * t1020;
4095   t1023 = 0.3e1 / 0.8e1 * t1022;
4096   t1025 = t298 * t119 * t402;
4097   t1026 = t1025 * t417;
4098   t1027 = 0.49479000000000000000e1 * t1026;
4099   t1030 = 0.1e1 / t187 / t126 / 0.6e1;
4100   t1032 = t1030 * t19 * t23;
4101   t1034 = t1032 * t917 * t191;
4102   t1035 = t408 * t1034;
4103   t1036 = 0.29687400000000000000e2 * t1035;
4104   t1038 = 0.1e1 / t121 / t340;
4105   t1039 = t182 * t1038;
4106   t1041 = t412 * t1039 * t191;
4107   t1042 = t408 * t1041;
4108   t1043 = 0.57725500000000000000e1 * t1042;
4109   t1044 = t562 * t17;
4110   t1045 = t5 * t1044;
4111   t1046 = t181 * t521;
4112   t1047 = 0.1e1 / t122;
4113   t1049 = t24 * t191;
4114   t1050 = t1046 * t1047 * t1049;
4115   t1051 = t1045 * t1050;
4116   t1052 = 0.80541612095716256868e2 * t1051;
4117   t1053 = -t881 - t882 - t887 + t634 - t892 - t893 - t895 - t900 - t905 + t813 - t906 - t907 - t1023 - t1027 - t1036 + t1043 + t1052;
4118   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4119     v2rho2[2] = -t330 - t593 - t335 - t596 - 0.3e1 / 0.4e1 * t405 - 0.49479000000000000000e1 * t418 + t10 * t1053;
4120 
4121   t1055 = t17 * t463;
4122   t1057 = t200 * t1055 * t207;
4123   t1058 = t1057 / 0.2e1;
4124   t1060 = t8 * t213 * t464;
4125   t1061 = t1060 / 0.8e1;
4126   t1062 = t447 * t264;
4127   t1065 = t223 * t19;
4128   t1076 = t668 * t238;
4129   t1077 = t239 * t221;
4130   t1079 = 0.1e1 / t27 / t1077;
4131   t1081 = t1079 * t19 * t675;
4132   t1086 = t23 * t223;
4133   t1089 = t56 * t223;
4134   t1090 = t1089 * t254;
4135   t1092 = t437 * t36;
4136   t1093 = t252 * t72;
4137   t1094 = t694 * t1093;
4138   t1095 = t1092 * t1094;
4139   t1098 = t257 * t223 * t254;
4140   t1100 = t702 * t29;
4141   t1101 = t704 * t1093;
4142   t1102 = t1100 * t1101;
4143   t1104 = -0.7e1 / 0.4860e4 * t57 * t1086 - t1090 / 0.540e3 + t1095 / 0.864e3 + t1098 / 0.540e3 - t1102 / 0.2592e4;
4144   t1107 = -0.10e2 / 0.729e3 * t1065 * t23 - t40 * sigma[0] * t229 * t52 / 0.54e2 + 0.3e1 / 0.64e2 * t237 * t41 * t241 * t52 - 0.81e2 / 0.25600e5 * t1076 * t1081 + 0.2e1 * t261 * t443 + 0.2e1 * t75 * t1104;
4145   t1108 = t1107 * t94;
4146   t1110 = t446 * t285;
4147   t1112 = t264 * t460;
4148   t1114 = params->c1 * t223;
4149   t1115 = t1114 * t86;
4150   t1117 = t449 * t36;
4151   t1118 = t1117 * t273;
4152   t1120 = t84 * t236;
4153   t1121 = t724 * t29;
4154   t1123 = t1120 * t1121 * t252;
4155   t1126 = t270 * t272 * t223;
4156   t1128 = -0.5e1 / 0.27e2 * t1115 + 0.25e2 / 0.324e3 * t1118 + 0.125e3 / 0.486e3 * t1123 - 0.25e2 / 0.243e3 * t1126;
4157   t1129 = t1128 * t89;
4158   t1130 = t455 * t276;
4159   t1133 = t278 * t1121;
4160   t1134 = t91 * t252;
4161   t1135 = t704 * t1134;
4162   t1136 = t1133 * t1135;
4163   t1139 = t279 * t1065 * t281;
4164   t1141 = t750 * t29;
4165   t1142 = t748 * t1141;
4166   t1143 = t1142 * t1135;
4167   t1146 = my_piecewise3(t83, t1130 * t89 + t1129, 0.25e2 / 0.324e3 * t1136 - 0.5e1 / 0.27e2 * t1139 + 0.25e2 / 0.648e3 * t1143);
4168   t1149 = -0.2e1 * t644 * t1062 + t220 * t1108 - t220 * t1110 - t220 * t1112 - t82 * t1146 + 0.1174e1 * t1146;
4169   t1150 = t1149 * t111;
4170   t1152 = t8 * t18 * t1150;
4171   t1153 = 0.3e1 / 0.8e1 * t1152;
4172   t1155 = t298 * t18 * t463;
4173   t1156 = t1155 * t309;
4174   t1157 = 0.24739500000000000000e1 * t1156;
4175   t1159 = t304 * t469 * t616;
4176   t1160 = t615 * t1159;
4177   t1161 = 0.12369750000000000000e1 * t1160;
4178   t1162 = t639 * t471;
4179   t1163 = 0.30924375000000000000e0 * t1162;
4180   t1164 = t764 * t471;
4181   t1165 = 0.92773125000000000000e0 * t1164;
4182   t1166 = t297 * t783;
4183   t1167 = t97 * t769;
4184   t1168 = t1167 * t19;
4185   t1169 = t1086 * t110;
4186   t1170 = t1168 * t1169;
4187   t1171 = t1166 * t1170;
4188   t1172 = 0.11132775000000000000e2 * t1171;
4189   t1173 = t468 * t306;
4190   t1175 = t304 * t1173 * t110;
4191   t1176 = t300 * t1175;
4192   t1177 = 0.12369750000000000000e1 * t1176;
4193   t1178 = t101 * sigma[0];
4194   t1179 = 0.1e1 / t1178;
4195   t1180 = t97 * t1179;
4196   t1182 = t1180 * t26 * t788;
4197   t1183 = t784 * t1182;
4198   t1184 = 0.30203104535893596325e2 * t1183;
4199   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4200     v2rhosigma[0] = -t467 + t473 + t10 * (-t1058 - t1061 - t1153 - t1157 + t1161 + t1163 + t1165 + t1172 - t1177 - t1184);
4201 
4202   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4203     v2rhosigma[1] = 0.0e0;
4204 
4205   t1187 = t17 * t516;
4206   t1189 = t313 * t1187 * t316;
4207   t1190 = t1189 / 0.2e1;
4208   t1192 = t8 * t320 * t517;
4209   t1193 = t1192 / 0.8e1;
4210   t1195 = t412 * t522 * t864;
4211   t1196 = t863 * t1195;
4212   t1197 = 0.12369750000000000000e1 * t1196;
4213   t1198 = t870 * t524;
4214   t1199 = 0.30924375000000000000e0 * t1198;
4215   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4216     v2rhosigma[2] = -t520 + t526 + t10 * (-t1190 - t1193 + t1197 + t1199);
4217 
4218   t1203 = t200 * t1055 * t328;
4219   t1204 = t1203 / 0.2e1;
4220   t1206 = t304 * t469 * t826;
4221   t1207 = t615 * t1206;
4222   t1208 = 0.12369750000000000000e1 * t1207;
4223   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4224     v2rhosigma[3] = -t467 + t473 + t10 * (-t1204 - t1061 + t1208 + t1163);
4225 
4226   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4227     v2rhosigma[4] = 0.0e0;
4228 
4229   t1212 = t313 * t1187 * t333;
4230   t1213 = t1212 / 0.2e1;
4231   t1214 = t500 * t379;
4232   t1217 = t342 * t19;
4233   t1228 = t668 * t353;
4234   t1229 = t354 * t340;
4235   t1231 = 0.1e1 / t122 / t1229;
4236   t1233 = t1231 * t19 * t939;
4237   t1238 = t23 * t342;
4238   t1241 = t56 * t342;
4239   t1242 = t1241 * t369;
4240   t1244 = t490 * t36;
4241   t1245 = t367 * t156;
4242   t1246 = t958 * t1245;
4243   t1247 = t1244 * t1246;
4244   t1250 = t372 * t342 * t369;
4245   t1252 = t966 * t124;
4246   t1253 = t704 * t1245;
4247   t1254 = t1252 * t1253;
4248   t1256 = -0.7e1 / 0.4860e4 * t57 * t1238 - t1242 / 0.540e3 + t1247 / 0.864e3 + t1250 / 0.540e3 - t1254 / 0.2592e4;
4249   t1259 = -0.10e2 / 0.729e3 * t1217 * t23 - t40 * sigma[2] * t348 * t138 / 0.54e2 + 0.3e1 / 0.64e2 * t237 * t128 * t356 * t138 - 0.81e2 / 0.25600e5 * t1228 * t1233 + 0.2e1 * t376 * t496 + 0.2e1 * t159 * t1256;
4250   t1260 = t1259 * t178;
4251   t1262 = t499 * t399;
4252   t1264 = t379 * t513;
4253   t1266 = params->c1 * t342;
4254   t1267 = t1266 * t170;
4255   t1269 = t502 * t36;
4256   t1270 = t1269 * t388;
4257   t1272 = t168 * t236;
4258   t1273 = t987 * t124;
4259   t1275 = t1272 * t1273 * t367;
4260   t1278 = t385 * t387 * t342;
4261   t1280 = -0.5e1 / 0.27e2 * t1267 + 0.25e2 / 0.324e3 * t1270 + 0.125e3 / 0.486e3 * t1275 - 0.25e2 / 0.243e3 * t1278;
4262   t1281 = t1280 * t173;
4263   t1282 = t508 * t391;
4264   t1285 = t278 * t1273;
4265   t1286 = t175 * t367;
4266   t1287 = t704 * t1286;
4267   t1288 = t1285 * t1287;
4268   t1291 = t393 * t1217 * t395;
4269   t1293 = t1011 * t124;
4270   t1294 = t748 * t1293;
4271   t1295 = t1294 * t1287;
4272   t1298 = my_piecewise3(t167, t1282 * t173 + t1281, 0.25e2 / 0.324e3 * t1288 - 0.5e1 / 0.27e2 * t1291 + 0.25e2 / 0.648e3 * t1295);
4273   t1301 = -0.2e1 * t910 * t1214 + t339 * t1260 - t339 * t1262 - t339 * t1264 - t166 * t1298 + 0.1174e1 * t1298;
4274   t1302 = t1301 * t192;
4275   t1304 = t8 * t119 * t1302;
4276   t1305 = 0.3e1 / 0.8e1 * t1304;
4277   t1307 = t298 * t119 * t516;
4278   t1308 = t1307 * t417;
4279   t1309 = 0.24739500000000000000e1 * t1308;
4280   t1311 = t412 * t522 * t896;
4281   t1312 = t863 * t1311;
4282   t1313 = 0.12369750000000000000e1 * t1312;
4283   t1314 = t1025 * t524;
4284   t1315 = 0.92773125000000000000e0 * t1314;
4285   t1316 = t297 * t1044;
4286   t1317 = t181 * t1030;
4287   t1318 = t1317 * t19;
4288   t1319 = t1238 * t191;
4289   t1320 = t1318 * t1319;
4290   t1321 = t1316 * t1320;
4291   t1322 = 0.11132775000000000000e2 * t1321;
4292   t1323 = t521 * t414;
4293   t1325 = t412 * t1323 * t191;
4294   t1326 = t408 * t1325;
4295   t1327 = 0.12369750000000000000e1 * t1326;
4296   t1328 = t182 * sigma[2];
4297   t1329 = 0.1e1 / t1328;
4298   t1330 = t181 * t1329;
4299   t1332 = t1330 * t121 * t1049;
4300   t1333 = t1045 * t1332;
4301   t1334 = 0.30203104535893596325e2 * t1333;
4302   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4303     v2rhosigma[5] = -t520 + t526 + t10 * (-t1213 - t1193 - t1305 - t1309 + t1313 + t1199 + t1315 + t1322 - t1327 - t1334);
4304 
4305   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4306     v2rholapl[0] = 0.0e0;
4307 
4308   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4309     v2rholapl[1] = 0.0e0;
4310 
4311   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4312     v2rholapl[2] = 0.0e0;
4313 
4314   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4315     v2rholapl[3] = 0.0e0;
4316 
4317   t1338 = t8 * t18 * t558;
4318   t1340 = t4 * t7;
4319   t1341 = t529 * t1340;
4320   t1342 = t15 * t557;
4321   t1346 = t644 * t75;
4322   t1347 = t537 * t94;
4323   t1348 = t1347 * t264;
4324   t1351 = t261 * t537;
4325   t1356 = t532 * t36;
4326   t1360 = t702 * t61;
4327   t1363 = t438 / 0.108e3 - t1356 * t1094 / 0.108e3 - t441 / 0.108e3 + t1360 * t1101 / 0.324e3;
4328   t1364 = t75 * t1363;
4329   t1371 = t264 * t554;
4330   t1374 = t542 * t36;
4331   t1377 = t724 * t61;
4332   t1382 = 0.25e2 / 0.27e2 * t450 - 0.50e2 / 0.81e2 * t1374 * t273 - 0.500e3 / 0.243e3 * t1120 * t1377 * t252 + 0.125e3 / 0.243e3 * t453;
4333   t1383 = t1382 * t89;
4334   t1384 = t548 * t276;
4335   t1387 = t278 * t1377;
4336   t1391 = t750 * t61;
4337   t1392 = t748 * t1391;
4338   t1396 = my_piecewise3(t83, t1384 * t89 + t1383, -0.50e2 / 0.81e2 * t1387 * t1135 + 0.25e2 / 0.27e2 * t458 - 0.25e2 / 0.81e2 * t1392 * t1135);
4339   t1399 = -0.4e1 * t1346 * t1348 + 0.2e1 * t220 * t1351 * t94 + 0.2e1 * t220 * t1364 * t94 - 0.2e1 * t220 * t538 * t285 - t220 * t1371 - t82 * t1396 + 0.1174e1 * t1396;
4340   t1400 = t1399 * t111;
4341   t1404 = t528 * t296;
4342   t1405 = t1404 * t4;
4343   t1407 = t1405 * t531 * t557;
4344   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4345     v2rhotau[0] = -t1338 / 0.2e1 - t1341 * t1342 * t207 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t531 * t1400 - 0.24739500000000000000e1 * t1407 * t309;
4346 
4347   t1411 = t8 * t119 * t589;
4348   t1412 = t117 * t588;
4349   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4350     v2rhotau[1] = -t1341 * t1412 * t316 / 0.2e1 - t1411 / 0.2e1;
4351 
4352   t1416 = t1342 * t328;
4353   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4354     v2rhotau[2] = -t1341 * t1416 / 0.2e1 - t1338 / 0.2e1;
4355 
4356   t1420 = t1412 * t333;
4357   t1423 = t910 * t159;
4358   t1424 = t568 * t178;
4359   t1425 = t1424 * t379;
4360   t1428 = t376 * t568;
4361   t1433 = t563 * t36;
4362   t1437 = t966 * t145;
4363   t1440 = t491 / 0.108e3 - t1433 * t1246 / 0.108e3 - t494 / 0.108e3 + t1437 * t1253 / 0.324e3;
4364   t1441 = t159 * t1440;
4365   t1448 = t379 * t585;
4366   t1451 = t573 * t36;
4367   t1454 = t987 * t145;
4368   t1459 = 0.25e2 / 0.27e2 * t503 - 0.50e2 / 0.81e2 * t1451 * t388 - 0.500e3 / 0.243e3 * t1272 * t1454 * t367 + 0.125e3 / 0.243e3 * t506;
4369   t1460 = t1459 * t173;
4370   t1461 = t579 * t391;
4371   t1464 = t278 * t1454;
4372   t1468 = t1011 * t145;
4373   t1469 = t748 * t1468;
4374   t1473 = my_piecewise3(t167, t1461 * t173 + t1460, -0.50e2 / 0.81e2 * t1464 * t1287 + 0.25e2 / 0.27e2 * t511 - 0.25e2 / 0.81e2 * t1469 * t1287);
4375   t1476 = -0.4e1 * t1423 * t1425 + 0.2e1 * t339 * t1428 * t178 + 0.2e1 * t339 * t1441 * t178 - 0.2e1 * t339 * t569 * t399 - t339 * t1448 - t166 * t1473 + 0.1174e1 * t1473;
4376   t1478 = t562 * t1476 * t192;
4377   t1481 = t562 * t588;
4378   t1482 = t1405 * t1481;
4379   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4380     v2rhotau[3] = -t1411 / 0.2e1 - t1341 * t1420 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t1478 - 0.24739500000000000000e1 * t1482 * t417;
4381 
4382   t1485 = t446 * t446;
4383   t1486 = t1485 * t94;
4384   t1497 = t668 * t41;
4385   t1499 = 0.1e1 / t27 / t661;
4386   t1501 = t1499 * t19 * t675;
4387   t1504 = t443 * t443;
4388   t1506 = t56 * t45;
4389   t1508 = t1506 * t36 * t695;
4390   t1511 = t702 * t45 * t705;
4391   t1513 = -t1508 / 0.6912e4 + t1511 / 0.20736e5;
4392   t1516 = t37 * t39 * t45 * t52 / 0.288e3 - 0.9e1 / 0.640e3 * t237 * sigma[0] * t429 * t52 + 0.243e3 / 0.204800e6 * t1497 * t1501 + 0.2e1 * t1504 + 0.2e1 * t75 * t1513;
4393   t1517 = t1516 * t94;
4394   t1519 = t446 * t460;
4395   t1522 = params->c1 * t45;
4396   t1523 = t1522 * t721;
4397   t1526 = t84 * t725 * t45;
4398   t1528 = -0.25e2 / 0.2592e4 * t1523 - 0.125e3 / 0.3888e4 * t1526;
4399   t1530 = t455 * t455;
4400   t1531 = t1530 * t89;
4401   t1534 = t45 * t36 * t739;
4402   t1535 = t737 * t1534;
4403   t1537 = t751 * t1534;
4404   t1540 = my_piecewise3(t83, t1528 * t89 + t1531, -0.25e2 / 0.2592e4 * t1535 - 0.25e2 / 0.5184e4 * t1537);
4405   t1543 = -0.2e1 * t644 * t1486 + t220 * t1517 - 0.2e1 * t220 * t1519 - t82 * t1540 + 0.1174e1 * t1540;
4406   t1544 = t1543 * t111;
4407   t1547 = 0.3e1 / 0.8e1 * t8 * t18 * t1544;
4408   t1549 = 0.18554625000000000000e1 * t1155 * t471;
4409   t1550 = 0.1e1 / sigma[0];
4410   t1551 = t1550 * t29;
4411   t1553 = t771 * t1551 * t110;
4412   t1555 = 0.41747906250000000000e1 * t300 * t1553;
4413   t1556 = t1179 * t103;
4414   t1558 = t304 * t1556 * t110;
4415   t1560 = 0.46386562500000000000e0 * t300 * t1558;
4416   t1562 = 0.1e1 / t101 / t41;
4417   t1563 = t97 * t1562;
4418   t1565 = t1563 * t102 * t788;
4419   t1567 = 0.11326164200960098622e2 * t784 * t1565;
4420   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4421     v2sigma2[0] = t10 * (-t1547 + t1549 - t1555 - t1560 + t1567);
4422 
4423   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4424     v2sigma2[1] = 0.0e0;
4425 
4426   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4427     v2sigma2[2] = 0.0e0;
4428 
4429   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4430     v2sigma2[3] = 0.0e0;
4431 
4432   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4433     v2sigma2[4] = 0.0e0;
4434 
4435   t1569 = t499 * t499;
4436   t1570 = t1569 * t178;
4437   t1581 = t668 * t128;
4438   t1583 = 0.1e1 / t122 / t927;
4439   t1585 = t1583 * t19 * t939;
4440   t1588 = t496 * t496;
4441   t1590 = t56 * t132;
4442   t1592 = t1590 * t36 * t959;
4443   t1595 = t966 * t132 * t968;
4444   t1597 = -t1592 / 0.6912e4 + t1595 / 0.20736e5;
4445   t1600 = t37 * t39 * t132 * t138 / 0.288e3 - 0.9e1 / 0.640e3 * t237 * sigma[2] * t482 * t138 + 0.243e3 / 0.204800e6 * t1581 * t1585 + 0.2e1 * t1588 + 0.2e1 * t159 * t1597;
4446   t1601 = t1600 * t178;
4447   t1603 = t499 * t513;
4448   t1606 = params->c1 * t132;
4449   t1607 = t1606 * t984;
4450   t1610 = t168 * t988 * t132;
4451   t1612 = -0.25e2 / 0.2592e4 * t1607 - 0.125e3 / 0.3888e4 * t1610;
4452   t1614 = t508 * t508;
4453   t1615 = t1614 * t173;
4454   t1618 = t132 * t36 * t1002;
4455   t1619 = t1000 * t1618;
4456   t1621 = t1012 * t1618;
4457   t1624 = my_piecewise3(t167, t1612 * t173 + t1615, -0.25e2 / 0.2592e4 * t1619 - 0.25e2 / 0.5184e4 * t1621);
4458   t1627 = -0.2e1 * t910 * t1570 + t339 * t1601 - 0.2e1 * t339 * t1603 - t166 * t1624 + 0.1174e1 * t1624;
4459   t1628 = t1627 * t192;
4460   t1631 = 0.3e1 / 0.8e1 * t8 * t119 * t1628;
4461   t1633 = 0.18554625000000000000e1 * t1307 * t524;
4462   t1634 = 0.1e1 / sigma[2];
4463   t1635 = t1634 * t124;
4464   t1637 = t1032 * t1635 * t191;
4465   t1639 = 0.41747906250000000000e1 * t408 * t1637;
4466   t1640 = t1329 * t184;
4467   t1642 = t412 * t1640 * t191;
4468   t1644 = 0.46386562500000000000e0 * t408 * t1642;
4469   t1646 = 0.1e1 / t182 / t128;
4470   t1647 = t181 * t1646;
4471   t1649 = t1647 * t183 * t1049;
4472   t1651 = 0.11326164200960098622e2 * t1045 * t1649;
4473   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4474     v2sigma2[5] = t10 * (-t1631 + t1633 - t1639 - t1644 + t1651);
4475 
4476   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4477     v2sigmalapl[0] = 0.0e0;
4478 
4479   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4480     v2sigmalapl[1] = 0.0e0;
4481 
4482   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4483     v2sigmalapl[2] = 0.0e0;
4484 
4485   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4486     v2sigmalapl[3] = 0.0e0;
4487 
4488   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4489     v2sigmalapl[4] = 0.0e0;
4490 
4491   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4492     v2sigmalapl[5] = 0.0e0;
4493 
4494   t1653 = t1347 * t446;
4495   t1656 = t443 * t537;
4496   t1661 = 0.1e1 / t26 / t42;
4497   t1662 = t56 * t1661;
4498   t1664 = t1662 * t36 * t695;
4499   t1667 = t702 * t1661 * t705;
4500   t1669 = t1664 / 0.864e3 - t1667 / 0.2592e4;
4501   t1670 = t75 * t1669;
4502   t1677 = t446 * t554;
4503   t1679 = params->c1 * t1661;
4504   t1680 = t1679 * t721;
4505   t1683 = t84 * t725 * t1661;
4506   t1685 = 0.25e2 / 0.324e3 * t1680 + 0.125e3 / 0.486e3 * t1683;
4507   t1686 = t1685 * t89;
4508   t1687 = t548 * t455;
4509   t1691 = t1661 * t36 * t739;
4510   t1692 = t737 * t1691;
4511   t1694 = t751 * t1691;
4512   t1697 = my_piecewise3(t83, t1687 * t89 + t1686, 0.25e2 / 0.324e3 * t1692 + 0.25e2 / 0.648e3 * t1694);
4513   t1700 = -0.4e1 * t1346 * t1653 + 0.2e1 * t220 * t1656 * t94 + 0.2e1 * t220 * t1670 * t94 - 0.2e1 * t220 * t538 * t460 - t220 * t1677 - t82 * t1697 + 0.1174e1 * t1697;
4514   t1702 = t531 * t1700 * t111;
4515   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4516     v2sigmatau[0] = -0.3e1 / 0.8e1 * t530 * t1702 + 0.92773125000000000000e0 * t1407 * t471;
4517 
4518   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4519     v2sigmatau[1] = 0.0e0;
4520 
4521   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4522     v2sigmatau[2] = 0.0e0;
4523 
4524   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4525     v2sigmatau[3] = 0.0e0;
4526 
4527   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4528     v2sigmatau[4] = 0.0e0;
4529 
4530   t1707 = t1424 * t499;
4531   t1710 = t496 * t568;
4532   t1715 = 0.1e1 / t121 / t129;
4533   t1716 = t56 * t1715;
4534   t1718 = t1716 * t36 * t959;
4535   t1721 = t966 * t1715 * t968;
4536   t1723 = t1718 / 0.864e3 - t1721 / 0.2592e4;
4537   t1724 = t159 * t1723;
4538   t1731 = t499 * t585;
4539   t1733 = params->c1 * t1715;
4540   t1734 = t1733 * t984;
4541   t1737 = t168 * t988 * t1715;
4542   t1739 = 0.25e2 / 0.324e3 * t1734 + 0.125e3 / 0.486e3 * t1737;
4543   t1740 = t1739 * t173;
4544   t1741 = t579 * t508;
4545   t1745 = t1715 * t36 * t1002;
4546   t1746 = t1000 * t1745;
4547   t1748 = t1012 * t1745;
4548   t1751 = my_piecewise3(t167, t1741 * t173 + t1740, 0.25e2 / 0.324e3 * t1746 + 0.25e2 / 0.648e3 * t1748);
4549   t1754 = -0.4e1 * t1423 * t1707 + 0.2e1 * t339 * t1710 * t178 + 0.2e1 * t339 * t1724 * t178 - 0.2e1 * t339 * t569 * t513 - t339 * t1731 - t166 * t1751 + 0.1174e1 * t1751;
4550   t1756 = t562 * t1754 * t192;
4551   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4552     v2sigmatau[5] = -0.3e1 / 0.8e1 * t530 * t1756 + 0.92773125000000000000e0 * t1482 * t524;
4553 
4554   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4555     v2lapl2[0] = 0.0e0;
4556 
4557   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4558     v2lapl2[1] = 0.0e0;
4559 
4560   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4561     v2lapl2[2] = 0.0e0;
4562 
4563   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4564     v2lapltau[0] = 0.0e0;
4565 
4566   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4567     v2lapltau[1] = 0.0e0;
4568 
4569   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4570     v2lapltau[2] = 0.0e0;
4571 
4572   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4573     v2lapltau[3] = 0.0e0;
4574 
4575   t1761 = t537 * t537;
4576   t1762 = t76 * t1761;
4577   t1766 = t1761 * t94;
4578   t1769 = t56 * t777;
4579   t1776 = -t1769 * t36 * t695 / 0.108e3 + t702 * t777 * t705 / 0.324e3;
4580   t1777 = t75 * t1776;
4581   t1784 = params->c1 * t777;
4582   t1790 = -0.50e2 / 0.81e2 * t1784 * t721 - 0.500e3 / 0.243e3 * t84 * t725 * t777;
4583   t1792 = t548 * t548;
4584   t1793 = t1792 * t89;
4585   t1796 = t777 * t36 * t739;
4586   t1802 = my_piecewise3(t83, t1790 * t89 + t1793, -0.50e2 / 0.81e2 * t737 * t1796 - 0.25e2 / 0.81e2 * t751 * t1796);
4587   t1805 = -0.8e1 * t644 * t1762 * t94 + 0.2e1 * t220 * t1766 + 0.2e1 * t220 * t1777 * t94 - 0.4e1 * t220 * t538 * t554 - t82 * t1802 + 0.1174e1 * t1802;
4588   t1807 = t531 * t1805 * t111;
4589   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4590     v2tau2[0] = -0.3e1 / 0.8e1 * t530 * t1807;
4591 
4592   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4593     v2tau2[1] = 0.0e0;
4594 
4595   t1810 = t568 * t568;
4596   t1811 = t160 * t1810;
4597   t1815 = t1810 * t178;
4598   t1818 = t56 * t1038;
4599   t1825 = -t1818 * t36 * t959 / 0.108e3 + t966 * t1038 * t968 / 0.324e3;
4600   t1826 = t159 * t1825;
4601   t1833 = params->c1 * t1038;
4602   t1839 = -0.50e2 / 0.81e2 * t1833 * t984 - 0.500e3 / 0.243e3 * t168 * t988 * t1038;
4603   t1841 = t579 * t579;
4604   t1842 = t1841 * t173;
4605   t1845 = t1038 * t36 * t1002;
4606   t1851 = my_piecewise3(t167, t1839 * t173 + t1842, -0.50e2 / 0.81e2 * t1000 * t1845 - 0.25e2 / 0.81e2 * t1012 * t1845);
4607   t1854 = -0.8e1 * t910 * t1811 * t178 + 0.2e1 * t339 * t1815 + 0.2e1 * t339 * t1826 * t178 - 0.4e1 * t339 * t569 * t585 - t166 * t1851 + 0.1174e1 * t1851;
4608   t1856 = t562 * t1854 * t192;
4609   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4610     v2tau2[2] = -0.3e1 / 0.8e1 * t530 * t1856;
4611 
4612 #ifndef XC_DONT_COMPILE_KXC
4613 
4614   if(order < 3) return;
4615 
4616 
4617   t1860 = 0.1e1 / t27 / t43;
4618   t1861 = sigma[0] * t1860;
4619   t1863 = t771 * t1861 * t110;
4620   t1864 = t300 * t1863;
4621   t1865 = 0.20781180000000000000e3 * t1864;
4622   t1866 = t101 * t1661;
4623   t1868 = t304 * t1866 * t110;
4624   t1869 = t300 * t1868;
4625   t1870 = 0.19241833333333333333e2 * t1869;
4626   t1871 = t764 * t780;
4627   t1872 = 0.17317650000000000000e2 * t1871;
4628   t1873 = t639 * t780;
4629   t1875 = t639 * t773;
4630   t1878 = t298 * t18 * t758;
4631   t1879 = t1878 * t309;
4632   t1880 = 0.74218500000000000000e1 * t1879;
4633   t1881 = t764 * t773;
4634   t1882 = 0.89062200000000000000e2 * t1881;
4635   t1883 = t8 * t614;
4636   t1885 = t468 * t786 * t19;
4637   t1886 = t23 * t110;
4638   t1887 = t1886 * t206;
4639   t1888 = t1885 * t1887;
4640   t1889 = t1883 * t1888;
4641   t1890 = 0.32216644838286502747e3 * t1889;
4642   t1892 = t298 * t631 * t97;
4643   t1893 = t1892 * t309;
4644   t1894 = 0.16493000000000000000e1 * t1893;
4645   t1896 = t298 * t213 * t288;
4646   t1897 = t1896 * t309;
4647   t1900 = t531 * t212;
4648   t1901 = t5 * t1900;
4649   t1902 = t1901 * t789;
4650   t1904 = t288 * t468;
4651   t1906 = t1904 * t786 * t788;
4652   t1907 = t784 * t1906;
4653   t1908 = 0.24162483628714877061e3 * t1907;
4654   t1909 = 0.1e1 / t20;
4655   t1911 = 0.1e1 / t42;
4656   t1915 = 0.1e1 / t106 / t1909 / t1178 / t1911 / 0.36e2;
4657   t1917 = t97 * t1915 * t1909;
4658   t1918 = 0.1e1 / t654;
4659   t1920 = t1178 * t1918 * t110;
4660   t1921 = t1917 * t1920;
4661   t1922 = t1166 * t1921;
4662   t1923 = 0.59374800000000000000e3 * t1922;
4663   t1925 = t97 * t19 * t38;
4664   t1926 = t468 * t61;
4665   t1927 = t1926 * t110;
4666   t1928 = t1925 * t1927;
4667   t1929 = t784 * t1928;
4668   t1930 = 0.16536775210765846035e1 * t1929;
4669   t1932 = t785 * t61 * t788;
4670   t1933 = t784 * t1932;
4671   t1934 = 0.24162483628714877060e3 * t1933;
4672   t1936 = t313 * t801 * t806;
4673   t1938 = t202 * t202;
4674   t1939 = 0.1e1 / t1938;
4675   t1940 = t9 * t1939;
4676   t1942 = -0.3e1 * t622 + 0.3e1 * t1940;
4677   t1943 = t192 * t1942;
4678   t1945 = t313 * t314 * t1943;
4679   t1946 = t1945 / 0.2e1;
4680   t1947 = t17 * t758;
4681   t1949 = t200 * t1947 * t207;
4682   t1950 = 0.3e1 / 0.2e1 * t1949;
4683   t1952 = t200 * t610 * t625;
4684   t1953 = 0.3e1 / 0.2e1 * t1952;
4685   t1954 = -t1942;
4686   t1955 = t111 * t1954;
4687   t1957 = t200 * t201 * t1955;
4688   t1958 = t1957 / 0.2e1;
4689   t1960 = t600 * t610 * t602;
4690   t1961 = t1960 / 0.2e1;
4691   t1962 = 0.80541612095716256868e2 * t1902 + t1908 - t1923 + t1930 - t1934 - t1936 / 0.2e1 - t1946 - t1950 - t1953 - t1958 - t1961;
4692   t1964 = t212 * t288;
4693   t1966 = t200 * t1964 * t207;
4694   t1968 = t200 * t606 * t625;
4695   t1970 = t630 * t181;
4696   t1972 = t313 * t1970 * t316;
4697   t1973 = t1972 / 0.3e1;
4698   t1975 = 0.1e1 / t792 / t116;
4699   t1976 = t7 * t1975;
4700   t1977 = t5 * t1976;
4701   t1978 = t796 * t315;
4702   t1979 = t192 * t1978;
4703   t1981 = t1977 * t314 * t1979;
4704   t1982 = t1981 / 0.9e1;
4705   t1984 = t795 * t801 * t797;
4706   t1987 = 0.1e1 / t597 / t14;
4707   t1988 = t7 * t1987;
4708   t1989 = t5 * t1988;
4709   t1990 = t601 * t206;
4710   t1991 = t111 * t1990;
4711   t1993 = t1989 * t201 * t1991;
4712   t1994 = t1993 / 0.9e1;
4713   t1996 = t600 * t606 * t602;
4714   t1998 = t630 * t97;
4715   t2000 = t200 * t1998 * t207;
4716   t2001 = t2000 / 0.3e1;
4717   t2003 = t304 * t778 * t616;
4718   t2004 = t615 * t2003;
4719   t2005 = 0.23090200000000000000e2 * t2004;
4720   t2006 = t110 * t624;
4721   t2008 = t304 * t307 * t2006;
4722   t2009 = t615 * t2008;
4723   t2010 = 0.98958000000000000000e1 * t2009;
4724   t2012 = t771 * t651 * t616;
4725   t2013 = t615 * t2012;
4726   t2014 = 0.11874960000000000000e3 * t2013;
4727   t2015 = -t1966 - t1968 / 0.2e1 + t1973 + t1982 - t1984 / 0.6e1 + t1994 - t1996 / 0.6e1 + t2001 + t2005 - t2010 - t2014;
4728   t2016 = t598 * t17;
4729   t2017 = t2016 * t97;
4730   t2018 = t298 * t2017;
4731   t2019 = t110 * t601;
4732   t2021 = t304 * t307 * t2019;
4733   t2022 = t2018 * t2021;
4734   t2023 = 0.32986000000000000000e1 * t2022;
4735   t2024 = t15 * t212;
4736   t2025 = t2024 * t97;
4737   t2026 = t298 * t2025;
4738   t2027 = t2026 * t618;
4739   t2029 = t613 * t288;
4740   t2030 = t298 * t2029;
4741   t2031 = t2030 * t618;
4742   t2032 = 0.19791600000000000000e2 * t2031;
4743   t2033 = t297 * t531;
4744   t2034 = 0.1e1 / t221;
4745   t2036 = t2034 * t302 * t110;
4746   t2038 = t2033 * t201 * t2036;
4747   t2039 = 0.32302153261130400000e3 * t2038;
4748   t2040 = t316 * t805;
4749   t2042 = t795 * t314 * t2040;
4750   t2043 = t2042 / 0.2e1;
4751   t2044 = t207 * t624;
4752   t2046 = t600 * t201 * t2044;
4753   t2047 = t2046 / 0.2e1;
4754   t2048 = t16 * t832;
4755   t2050 = t8 * t2048 * t112;
4756   t2051 = 0.5e1 / 0.36e2 * t2050;
4757   t2052 = t218 * t218;
4758   t2054 = t217 / t2052;
4759   t2055 = t645 * t264;
4760   t2059 = t265 * t711;
4761   t2068 = 0.1e1 / t26 / t239;
4762   t2073 = 0.1e1 / t1077;
4763   t2078 = t239 * t43;
4764   t2082 = 0.1e1 / t27 / t2078 * t19 * t675;
4765   t2085 = t234 * t234;
4766   t2086 = t2085 * t236;
4767   t2087 = t669 * sigma[0];
4768   t2088 = t2086 * t2087;
4769   t2089 = t239 * t239;
4770   t2093 = t39 * t52;
4771   t2094 = 0.1e1 / t26 / t2089 * t36 * t2093;
4772   t2105 = -0.440e3 / 0.27e2 * tau[0] * t650 + 0.154e3 / 0.27e2 * t1861;
4773   t2106 = t56 * t2105;
4774   t2112 = t691 * t252;
4775   t2113 = t56 * t2112;
4776   t2114 = t236 * t72;
4777   t2118 = t236 * t70 * t72;
4778   t2127 = t56 * t749;
4779   t2128 = t2112 * t236;
4780   t2132 = -0.539e3 / 0.21870e5 * t57 * t48 * t1860 - t2106 * t254 / 0.180e3 - t688 * t36 * t1094 / 0.36e2 + 0.5e1 / 0.162e3 * t2113 * t2114 - 0.5e1 / 0.81e2 * t2113 * t2118 + t257 * t2105 * t254 / 0.180e3 + t702 * t687 * t1101 / 0.108e3 + 0.5e1 / 0.486e3 * t2127 * t2128 * t72;
4781   t2135 = -0.1540e4 / 0.6561e4 * t24 * t1861 - 0.209e3 / 0.486e3 * t40 * t41 * t2068 * t52 + 0.797e3 / 0.480e3 * t237 * t238 * t2073 * t52 - 0.729e3 / 0.3200e4 * t670 * t2082 + 0.243e3 / 0.32000e5 * t2088 * t2094 + 0.6e1 * t261 * t708 + 0.2e1 * t75 * t2132;
4782   t2144 = params->c1 * t2105;
4783   t2154 = t750 * t2112 * t24;
4784   t2157 = t724 * t252;
4785   t2158 = t2157 * t687;
4786   t2161 = t272 * t2105;
4787   t2164 = -0.5e1 / 0.9e1 * t2144 * t86 - 0.50e2 / 0.27e2 * t717 * t36 * t273 - 0.500e3 / 0.81e2 * params->c1 * t2112 * t725 - 0.2500e4 / 0.729e3 * t1120 * t2154 - 0.500e3 / 0.81e2 * t1120 * t2158 - 0.25e2 / 0.81e2 * t270 * t2161;
4788   t2169 = t734 * t276;
4789   t2172 = t278 * t750;
4790   t2173 = t2128 * t91;
4791   t2176 = t278 * t2157;
4792   t2177 = t91 * t687;
4793   t2178 = t704 * t2177;
4794   t2181 = t749 * t68;
4795   t2182 = 0.1e1 / t2181;
4796   t2183 = t748 * t2182;
4797   t2195 = params->d * t747 * params->c2;
4798   t2197 = 0.1e1 / t749 / t70;
4799   t2198 = t2195 * t2197;
4800   t2202 = my_piecewise3(t83, 0.3e1 * t732 * t276 * t89 + t2164 * t89 + t2169 * t89, -0.500e3 / 0.81e2 * t2172 * t2173 - 0.50e2 / 0.27e2 * t2176 * t2178 - 0.500e3 / 0.81e2 * t2183 * t2173 - 0.5e1 / 0.9e1 * t279 * t2105 * t19 * t281 - 0.25e2 / 0.27e2 * t748 * t750 * t687 * t1135 - 0.250e3 / 0.243e3 * t2198 * t2173);
4801   t2205 = 0.6e1 * t2054 * t2055 * t94 - 0.6e1 * t644 * t2059 + 0.6e1 * t644 * t645 * t285 + t220 * t2135 * t94 - 0.3e1 * t220 * t711 * t285 - 0.3e1 * t220 * t264 * t755 - t82 * t2202 + 0.1174e1 * t2202;
4802   t2206 = t2205 * t111;
4803   t2208 = t8 * t18 * t2206;
4804   t2209 = 0.3e1 / 0.8e1 * t2208;
4805   t2211 = t8 * t213 * t759;
4806   t2214 = t8 * t631 * t289;
4807   t2215 = t2214 / 0.4e1;
4808   t2216 = t118 * t832;
4809   t2218 = t8 * t2216 * t193;
4810   t2219 = 0.5e1 / 0.36e2 * t2218;
4811   t2220 = -t2023 - 0.65972000000000000001e1 * t2027 - t2032 - t2039 - t2043 - t2047 - t2051 - t2209 - 0.3e1 / 0.8e1 * t2211 + t2215 - t2219;
4812   t2234 = t812 / 0.4e1;
4813   t2238 = t633 / 0.4e1;
4814   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4815     v3rho3[0] = t10 * (t1865 - t1870 + t1872 + 0.57725500000000000000e1 * t1873 - 0.29687400000000000000e2 * t1875 - t1880 - t1882 + t1890 + t1894 - 0.49479000000000000000e1 * t1897 + t1962 + t2015 + t2220) - 0.49479000000000000000e1 * t640 - 0.14843700000000000000e2 * t765 - 0.89062200000000000000e2 * t774 + 0.24162483628714877061e3 * t790 - 0.19791600000000000000e2 * t619 + 0.17317650000000000000e2 * t781 - t604 / 0.2e1 - t608 - t799 / 0.2e1 - t803 - 0.3e1 / 0.4e1 * t636 - 0.9e1 / 0.8e1 * t761 + t2234 - 0.3e1 / 0.2e1 * t808 - 0.3e1 * t612 - 0.3e1 / 0.2e1 * t627 + t2238;
4816 
4817   t2241 = t298 * t810 * t181;
4818   t2242 = t2241 * t417;
4819   t2244 = t1886 * t327;
4820   t2245 = t1885 * t2244;
4821   t2246 = t1883 * t2245;
4822   t2254 = t313 * t1970 * t333;
4823   t2257 = t795 * t854 * t797;
4824   t2259 = t212 * t402;
4825   t2261 = t313 * t2259 * t316;
4826   t2262 = t2261 / 0.3e1;
4827   t2263 = t832 * t288;
4828   t2265 = t200 * t2263 * t834;
4829   t2267 = t200 * t1998 * t328;
4830   t2269 = 0.54976666666666666667e0 * t2242 + 0.10738881612762167582e3 * t2246 + 0.19241833333333333333e1 * t1873 - 0.98958000000000000000e1 * t1875 + 0.10995333333333333333e1 * t1893 - 0.16493000000000000000e1 * t1897 + 0.26847204031905418956e2 * t1902 + t2254 / 0.9e1 - t2257 / 0.6e1 - t2262 - t2265 + t2267 / 0.9e1;
4831   t2271 = 0.1e1 / t211 / t621;
4832   t2272 = t2271 * t97;
4833   t2274 = t200 * t2272 * t834;
4834   t2277 = t313 * t854 * t806;
4835   t2279 = t2271 * t181;
4836   t2281 = t313 * t2279 * t849;
4837   t2284 = t200 * t1964 * t328;
4838   t2285 = t2284 / 0.3e1;
4839   t2287 = t200 * t1947 * t328;
4840   t2296 = t793 * t17;
4841   t2297 = t2296 * t181;
4842   t2298 = t298 * t2297;
4843   t2299 = t191 * t796;
4844   t2301 = t412 * t415 * t2299;
4845   t2302 = t2298 * t2301;
4846   t2304 = 0.7e1 / 0.6e1 * t2274 - t2277 / 0.2e1 - 0.7e1 / 0.6e1 * t2281 - t2285 - t2287 / 0.2e1 - t1936 / 0.6e1 - t1966 / 0.3e1 - t1968 / 0.6e1 + 0.2e1 / 0.9e1 * t1972 - t1984 / 0.18e2 - t1996 / 0.18e2 + 0.2e1 / 0.9e1 * t2000 - 0.10995333333333333333e1 * t2302;
4847   t2306 = t117 * t212;
4848   t2307 = t2306 * t181;
4849   t2308 = t298 * t2307;
4850   t2309 = t2308 * t866;
4851   t2312 = t304 * t778 * t826;
4852   t2313 = t615 * t2312;
4853   t2315 = t15 * t832;
4854   t2316 = t2315 * t97;
4855   t2317 = t298 * t2316;
4856   t2318 = t110 * t9;
4857   t2320 = t304 * t307 * t2318;
4858   t2321 = t2317 * t2320;
4859   t2323 = t191 * t805;
4860   t2325 = t412 * t415 * t2323;
4861   t2326 = t863 * t2325;
4862   t2328 = t2026 * t828;
4863   t2330 = t2030 * t828;
4864   t2333 = t771 * t651 * t826;
4865   t2334 = t615 * t2333;
4866   t2337 = t97 * t302;
4867   t2339 = t298 * t2016 * t2337;
4868   t2340 = t100 * t101;
4869   t2341 = t306 * t110;
4870   t2342 = t327 * t206;
4871   t2343 = t2341 * t2342;
4872   t2344 = t2340 * t2343;
4873   t2345 = t2339 * t2344;
4874   t2348 = t8 * t810 * t403;
4875   t2350 = t117 * t832;
4876   t2352 = t8 * t2350 * t193;
4877   t2355 = t8 * t2315 * t112;
4878   t2357 = -0.21990666666666666666e1 * t2309 + 0.76967333333333333333e1 * t2313 - 0.65972000000000000000e1 * t2321 - 0.32986000000000000000e1 * t2326 - 0.21990666666666666666e1 * t2328 - 0.65972000000000000000e1 * t2330 - 0.39583200000000000000e2 * t2334 - 0.21990666666666666666e1 * t2027 - 0.21990666666666666666e1 * t2345 + t2348 / 0.12e2 + t2352 / 0.2e1 - t2355 / 0.2e1;
4879   t2359 = t600 * t610 * t816;
4880   t2361 = t328 * t624;
4881   t2363 = t600 * t201 * t2361;
4882   t2365 = t328 * t601;
4883   t2367 = t1989 * t201 * t2365;
4884   t2370 = t600 * t606 * t816;
4885   t2371 = t2370 / 0.9e1;
4886   t2372 = t834 * t206;
4887   t2374 = t600 * t833 * t2372;
4888   t2376 = t333 * t796;
4889   t2378 = t1977 * t314 * t2376;
4890   t2381 = t795 * t801 * t841;
4891   t2382 = t2381 / 0.9e1;
4892   t2383 = t333 * t805;
4893   t2385 = t795 * t314 * t2383;
4894   t2387 = t849 * t315;
4895   t2389 = t795 * t848 * t2387;
4896   t2393 = -t2359 / 0.3e1 - t2363 / 0.6e1 + t2367 / 0.9e1 - t2371 - t2374 / 0.3e1 + t2378 / 0.9e1 - t2382 - t2385 / 0.6e1 + t2389 / 0.3e1 - t2051 - t2211 / 0.8e1 + t2214 / 0.6e1 - t2219;
4897   t2398 = -0.32986000000000000000e1 * t640 - t766 - t775 + t782 - t907 - t882 - t824 - t836 - t893 + t851 - t856 + t10 * (t2269 + t2304 + t2357 + t2393) + t791 - t605 - 0.2e1 / 0.3e1 * t608;
4898   t2400 = t818 / 0.3e1;
4899   t2401 = t843 / 0.3e1;
4900   t2403 = 0.65972000000000000000e1 * t829;
4901   t2404 = 0.65972000000000000000e1 * t867;
4902   t2405 = -t612 - t628 - t800 - 0.2e1 / 0.3e1 * t803 - t809 - t2400 - t2401 - t906 - t762 + t2234 + t2238 - t636 / 0.2e1 - t2403 - t2404 - t620;
4903   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4904     v3rho3[1] = t2398 + t2405;
4905 
4906   t2409 = -t641 - 0.32986000000000000000e1 * t871 - t1027 - t1036 + t1043 - 0.2e1 / 0.3e1 * t821 - t824 - t836 - 0.2e1 / 0.3e1 * t846 + t851 - t856 - t881 - t887 - t892 - t895;
4907   t2412 = t870 * t1034;
4908   t2414 = t870 * t1041;
4909   t2417 = t298 * t320 * t402;
4910   t2418 = t2417 * t417;
4911   t2420 = t8 * t862;
4912   t2422 = t521 * t1047 * t19;
4913   t2423 = t23 * t191;
4914   t2424 = t2423 * t315;
4915   t2425 = t2422 * t2424;
4916   t2426 = t2420 * t2425;
4917   t2429 = t562 * t212;
4918   t2430 = t5 * t2429;
4919   t2431 = t2430 * t1050;
4920   t2434 = t313 * t2259 * t333;
4921   t2437 = t313 * t801 * t902;
4922   t2440 = t200 * t606 * t884;
4923   t2443 = t795 * t801 * t889;
4924   t2446 = t600 * t606 * t878;
4925   t2448 = 0.10995333333333333333e1 * t2242 - 0.98958000000000000000e1 * t2412 + 0.19241833333333333333e1 * t2414 - 0.16493000000000000000e1 * t2418 + 0.10738881612762167582e3 * t2426 + 0.54976666666666666667e0 * t1893 + 0.26847204031905418956e2 * t2431 - t2434 / 0.3e1 - t2437 / 0.6e1 - t2440 / 0.6e1 - t2443 / 0.18e2 - t2446 / 0.18e2;
4926   t2453 = t181 * t410;
4927   t2455 = t298 * t2296 * t2453;
4928   t2456 = t100 * t182;
4929   t2457 = t414 * t191;
4930   t2458 = t332 * t315;
4931   t2459 = t2457 * t2458;
4932   t2460 = t2456 * t2459;
4933   t2461 = t2455 * t2460;
4934   t2465 = t832 * t402;
4935   t2467 = t313 * t2465 * t849;
4936   t2469 = t622 + 0.3e1 * t1940;
4937   t2470 = t192 * t2469;
4938   t2472 = t313 * t314 * t2470;
4939   t2474 = t17 * t1019;
4940   t2476 = t313 * t2474 * t316;
4941   t2479 = t600 * t610 * t878;
4942   t2481 = 0.2e1 / 0.9e1 * t2254 - t2262 + 0.2e1 / 0.9e1 * t2267 - t2274 / 0.3e1 + t2281 / 0.3e1 - t2285 - 0.21990666666666666667e1 * t2461 + t1972 / 0.9e1 + t2000 / 0.9e1 + t2467 - t2472 / 0.2e1 - t2476 / 0.2e1 - t2479 / 0.6e1;
4943   t2484 = t200 * t610 * t884;
4944   t2486 = -t2469;
4945   t2487 = t111 * t2486;
4946   t2489 = t200 * t201 * t2487;
4947   t2491 = t2308 * t898;
4948   t2494 = t412 * t1039 * t864;
4949   t2495 = t863 * t2494;
4950   t2497 = t861 * t402;
4951   t2498 = t298 * t2497;
4952   t2499 = t2498 * t866;
4953   t2502 = t1032 * t917 * t864;
4954   t2503 = t863 * t2502;
4955   t2505 = t110 * t877;
4956   t2507 = t304 * t307 * t2505;
4957   t2508 = t2018 * t2507;
4958   t2510 = t110 * t883;
4959   t2512 = t304 * t307 * t2510;
4960   t2513 = t615 * t2512;
4961   t2515 = t2350 * t181;
4962   t2516 = t298 * t2515;
4963   t2517 = t191 * t9;
4964   t2519 = t412 * t415 * t2517;
4965   t2520 = t2516 * t2519;
4966   t2525 = t8 * t320 * t1020;
4967   t2527 = -t2484 / 0.2e1 - t2489 / 0.2e1 - 0.21990666666666666667e1 * t2491 + 0.76967333333333333333e1 * t2495 - 0.65972000000000000000e1 * t2499 - 0.39583200000000000000e2 * t2503 - 0.10995333333333333333e1 * t2508 - 0.32986000000000000000e1 * t2513 + 0.65972000000000000000e1 * t2520 - 0.21990666666666666667e1 * t2309 - 0.21990666666666666667e1 * t2328 - t2525 / 0.8e1;
4968   t2529 = t328 * t9;
4969   t2531 = t600 * t833 * t2529;
4970   t2533 = t884 * t206;
4971   t2535 = t600 * t201 * t2533;
4972   t2537 = t889 * t315;
4973   t2539 = t1977 * t314 * t2537;
4974   t2541 = t333 * t9;
4975   t2543 = t795 * t848 * t2541;
4976   t2545 = t878 * t206;
4977   t2547 = t1989 * t201 * t2545;
4978   t2550 = t795 * t854 * t841;
4979   t2552 = t902 * t315;
4980   t2554 = t795 * t314 * t2552;
4981   t2557 = t2348 / 0.6e1 - t2531 / 0.3e1 - t2535 / 0.6e1 + t2539 / 0.9e1 + t2543 / 0.3e1 + t2547 / 0.9e1 - t2550 / 0.3e1 - t2554 / 0.6e1 - t2371 - t2382 - t2051 + t2214 / 0.12e2 - t2219;
4982   t2561 = t1052 - t609 - t804 - t2400 - t2401 - t1023 - t859 / 0.2e1 + t2234 + t2238 - t637 - t905 - t2403 - t2404 - t900 + t10 * (t2448 + t2481 + t2527 + t2557);
4983   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4984     v3rho3[2] = t2409 + t2561;
4985 
4986   t2562 = t182 * t1715;
4987   t2564 = t412 * t2562 * t191;
4988   t2565 = t408 * t2564;
4989   t2566 = 0.19241833333333333333e2 * t2565;
4990   t2567 = t1025 * t1041;
4991   t2568 = 0.17317650000000000000e2 * t2567;
4992   t2570 = 0.1e1 / t122 / t130;
4993   t2571 = sigma[2] * t2570;
4994   t2573 = t1032 * t2571 * t191;
4995   t2574 = t408 * t2573;
4996   t2575 = 0.20781180000000000000e3 * t2574;
4997   t2576 = 0.16493000000000000000e1 * t2242;
4998   t2580 = t1025 * t1034;
4999   t2581 = 0.89062200000000000000e2 * t2580;
5000   t2583 = t298 * t119 * t1019;
5001   t2584 = t2583 * t417;
5002   t2585 = 0.74218500000000000000e1 * t2584;
5003   t2586 = t2423 * t332;
5004   t2587 = t2422 * t2586;
5005   t2588 = t2420 * t2587;
5006   t2589 = 0.32216644838286502747e3 * t2588;
5007   t2592 = t313 * t2474 * t333;
5008   t2593 = 0.3e1 / 0.2e1 * t2592;
5009   t2595 = t313 * t854 * t902;
5010   t2596 = 0.3e1 / 0.2e1 * t2595;
5011   t2598 = 0.3e1 * t622 + 0.3e1 * t1940;
5012   t2599 = t192 * t2598;
5013   t2601 = t313 * t314 * t2599;
5014   t2602 = t2601 / 0.2e1;
5015   t2603 = -t2598;
5016   t2604 = t111 * t2603;
5017   t2606 = t200 * t201 * t2604;
5018   t2607 = t2606 / 0.2e1;
5019   t2609 = t795 * t854 * t889;
5020   t2610 = t2609 / 0.2e1;
5021   t2611 = t402 * t521;
5022   t2613 = t2611 * t1047 * t1049;
5023   t2614 = t1045 * t2613;
5024   t2615 = 0.24162483628714877061e3 * t2614;
5025   t2617 = 0.1e1 / t129;
5026   t2621 = 0.1e1 / t187 / t1909 / t1328 / t2617 / 0.36e2;
5027   t2623 = t181 * t2621 * t1909;
5028   t2624 = 0.1e1 / t920;
5029   t2626 = t1328 * t2624 * t191;
5030   t2627 = t2623 * t2626;
5031   t2628 = t1316 * t2627;
5032   t2629 = 0.59374800000000000000e3 * t2628;
5033   t2631 = t181 * t19 * t38;
5034   t2632 = t521 * t145;
5035   t2633 = t2632 * t191;
5036   t2634 = t2631 * t2633;
5037   t2635 = t1045 * t2634;
5038   t2636 = 0.16536775210765846035e1 * t2635;
5039   t2638 = t1046 * t145 * t1049;
5040   t2639 = t1045 * t2638;
5041   t2640 = 0.24162483628714877060e3 * t2639;
5042   t2642 = -t2593 - t2596 - t2602 - t2607 - t2610 + t2615 - t2629 + t2636 - t2640 + 0.80541612095716256868e2 * t2431 - t2434;
5043   t2648 = t2254 / 0.3e1;
5044   t2649 = t2267 / 0.3e1;
5045   t2650 = t888 * t332;
5046   t2651 = t192 * t2650;
5047   t2653 = t1977 * t314 * t2651;
5048   t2654 = t2653 / 0.9e1;
5049   t2655 = t877 * t327;
5050   t2656 = t111 * t2655;
5051   t2658 = t1989 * t201 * t2656;
5052   t2659 = t2658 / 0.9e1;
5053   t2660 = t191 * t888;
5054   t2662 = t412 * t415 * t2660;
5055   t2663 = t2298 * t2662;
5056   t2664 = 0.32986000000000000000e1 * t2663;
5057   t2665 = t2498 * t898;
5058   t2666 = 0.19791600000000000000e2 * t2665;
5059   t2667 = t191 * t901;
5060   t2669 = t412 * t415 * t2667;
5061   t2670 = t863 * t2669;
5062   t2671 = 0.98958000000000000000e1 * t2670;
5063   t2672 = -t2437 / 0.2e1 - t2440 / 0.2e1 - t2443 / 0.6e1 - t2446 / 0.6e1 + t2648 + t2649 + t2654 + t2659 - t2664 - t2666 - t2671;
5064   t2674 = t1032 * t917 * t896;
5065   t2675 = t863 * t2674;
5066   t2676 = 0.11874960000000000000e3 * t2675;
5067   t2678 = t412 * t1039 * t896;
5068   t2679 = t863 * t2678;
5069   t2680 = 0.23090200000000000000e2 * t2679;
5070   t2682 = t337 * t337;
5071   t2684 = t217 / t2682;
5072   t2685 = t911 * t379;
5073   t2689 = t380 * t974;
5074   t2698 = 0.1e1 / t121 / t354;
5075   t2703 = 0.1e1 / t1229;
5076   t2708 = t354 * t130;
5077   t2712 = 0.1e1 / t122 / t2708 * t19 * t939;
5078   t2715 = t933 * sigma[2];
5079   t2716 = t2086 * t2715;
5080   t2717 = t354 * t354;
5081   t2721 = t39 * t138;
5082   t2722 = 0.1e1 / t121 / t2717 * t36 * t2721;
5083   t2733 = -0.440e3 / 0.27e2 * tau[1] * t916 + 0.154e3 / 0.27e2 * t2571;
5084   t2734 = t56 * t2733;
5085   t2740 = t955 * t367;
5086   t2741 = t56 * t2740;
5087   t2742 = t236 * t156;
5088   t2746 = t236 * t154 * t156;
5089   t2755 = t56 * t1010;
5090   t2756 = t2740 * t236;
5091   t2760 = -0.539e3 / 0.21870e5 * t57 * t134 * t2570 - t2734 * t369 / 0.180e3 - t952 * t36 * t1246 / 0.36e2 + 0.5e1 / 0.162e3 * t2741 * t2742 - 0.5e1 / 0.81e2 * t2741 * t2746 + t372 * t2733 * t369 / 0.180e3 + t966 * t951 * t1253 / 0.108e3 + 0.5e1 / 0.486e3 * t2755 * t2756 * t156;
5092   t2763 = -0.1540e4 / 0.6561e4 * t24 * t2571 - 0.209e3 / 0.486e3 * t40 * t128 * t2698 * t138 + 0.797e3 / 0.480e3 * t237 * t353 * t2703 * t138 - 0.729e3 / 0.3200e4 * t934 * t2712 + 0.243e3 / 0.32000e5 * t2716 * t2722 + 0.6e1 * t376 * t971 + 0.2e1 * t159 * t2760;
5093   t2772 = params->c1 * t2733;
5094   t2782 = t1011 * t2740 * t24;
5095   t2785 = t987 * t367;
5096   t2786 = t2785 * t951;
5097   t2789 = t387 * t2733;
5098   t2792 = -0.5e1 / 0.9e1 * t2772 * t170 - 0.50e2 / 0.27e2 * t980 * t36 * t388 - 0.500e3 / 0.81e2 * params->c1 * t2740 * t988 - 0.2500e4 / 0.729e3 * t1272 * t2782 - 0.500e3 / 0.81e2 * t1272 * t2786 - 0.25e2 / 0.81e2 * t385 * t2789;
5099   t2797 = t997 * t391;
5100   t2800 = t278 * t1011;
5101   t2801 = t2756 * t175;
5102   t2804 = t278 * t2785;
5103   t2805 = t175 * t951;
5104   t2806 = t704 * t2805;
5105   t2809 = t1010 * t152;
5106   t2810 = 0.1e1 / t2809;
5107   t2811 = t748 * t2810;
5108   t2823 = 0.1e1 / t1010 / t154;
5109   t2824 = t2195 * t2823;
5110   t2828 = my_piecewise3(t167, 0.3e1 * t995 * t391 * t173 + t2792 * t173 + t2797 * t173, -0.500e3 / 0.81e2 * t2800 * t2801 - 0.50e2 / 0.27e2 * t2804 * t2806 - 0.500e3 / 0.81e2 * t2811 * t2801 - 0.5e1 / 0.9e1 * t393 * t2733 * t19 * t395 - 0.25e2 / 0.27e2 * t748 * t1011 * t951 * t1287 - 0.250e3 / 0.243e3 * t2824 * t2801);
5111   t2831 = 0.6e1 * t2684 * t2685 * t178 - 0.6e1 * t910 * t2689 + 0.6e1 * t910 * t911 * t399 + t339 * t2763 * t178 - 0.3e1 * t339 * t974 * t399 - 0.3e1 * t339 * t379 * t1016 - t166 * t2828 + 0.1174e1 * t2828;
5112   t2832 = t2831 * t192;
5113   t2834 = t8 * t119 * t2832;
5114   t2835 = 0.3e1 / 0.8e1 * t2834;
5115   t2837 = t2348 / 0.4e1;
5116   t2838 = t297 * t562;
5117   t2839 = 0.1e1 / t340;
5118   t2841 = t2839 * t410 * t191;
5119   t2843 = t2838 * t314 * t2841;
5120   t2844 = 0.32302153261130400000e3 * t2843;
5121   t2845 = t333 * t901;
5122   t2847 = t795 * t314 * t2845;
5123   t2848 = t2847 / 0.2e1;
5124   t2849 = t328 * t883;
5125   t2851 = t600 * t201 * t2849;
5126   t2852 = t2851 / 0.2e1;
5127   t2853 = -t2676 + t2680 - 0.65972000000000000001e1 * t2491 - t2835 - 0.3e1 / 0.8e1 * t2525 + t2837 - t2844 - t2848 - t2852 - t2051 - t2219;
5128   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5129     v3rho3[3] = t10 * (-t2566 + t2568 + t2575 + t2576 - 0.29687400000000000000e2 * t2412 + 0.57725500000000000000e1 * t2414 - 0.49479000000000000000e1 * t2418 - t2581 - t2585 + t2589 + t2642 + t2672 + t2853) + 0.17317650000000000000e2 * t1042 - 0.49479000000000000000e1 * t871 - 0.19791600000000000000e2 * t899 - 0.14843700000000000000e2 * t1026 - 0.89062200000000000000e2 * t1035 + 0.24162483628714877061e3 * t1051 - 0.3e1 / 0.4e1 * t859 - 0.3e1 / 0.2e1 * t886 - 0.3e1 * t895 - 0.3e1 / 0.2e1 * t904 - t880 / 0.2e1 - t891 / 0.2e1 - t821 - t846 - 0.9e1 / 0.8e1 * t1022 + t2234 + t2238;
5130 
5131   t2870 = t1060 / 0.4e1;
5132   t2874 = 0.61848750000000000000e0 * t1162;
5133   t2879 = t223 * t110;
5134   t2881 = t771 * t2879 * t206;
5135   t2882 = t615 * t2881;
5136   t2883 = 0.29687400000000000000e2 * t2882;
5137   t2885 = t1179 * t26 * t19;
5138   t2886 = t2885 * t1887;
5139   t2887 = t1883 * t2886;
5140   t2888 = 0.80541612095716256867e2 * t2887;
5141   t2890 = t298 * t213 * t463;
5142   t2891 = t2890 * t309;
5143   t2892 = 0.16493000000000000000e1 * t2891;
5144   t2893 = t1896 * t471;
5145   t2894 = 0.61848750000000000000e0 * t2893;
5146   t2895 = t1878 * t471;
5147   t2896 = 0.92773125000000000000e0 * t2895;
5148   t2897 = t764 * t1175;
5149   t2898 = 0.24739500000000000000e1 * t2897;
5150   t2899 = t468 * t777;
5151   t2901 = t304 * t2899 * t110;
5152   t2902 = t300 * t2901;
5153   t2903 = 0.28862750000000000000e1 * t2902;
5154   t2904 = t1892 * t471;
5155   t2905 = 0.20616250000000000000e0 * t2904;
5156   t2906 = t639 * t1175;
5157   t2907 = 0.82465000000000000000e0 * t2906;
5158   t2908 = t1155 * t780;
5159   t2909 = 0.57725500000000000000e1 * t2908;
5160   t2911 = t298 * t18 * t1149;
5161   t2912 = t2911 * t309;
5162   t2913 = 0.49479000000000000000e1 * t2912;
5163   t2914 = t1155 * t773;
5164   t2915 = 0.29687400000000000000e2 * t2914;
5165   t2916 = t23 * t650;
5166   t2917 = t2916 * t110;
5167   t2918 = t1168 * t2917;
5168   t2919 = t1166 * t2918;
5169   t2920 = 0.55663875000000000000e2 * t2919;
5170   t2922 = t288 * t769 * t19;
5171   t2923 = t2922 * t1169;
5172   t2924 = t1166 * t2923;
5173   t2925 = 0.22265550000000000000e2 * t2924;
5174   t2926 = t288 * t1179;
5175   t2928 = t2926 * t26 * t788;
5176   t2929 = t784 * t2928;
5177   t2930 = 0.60406209071787192650e2 * t2929;
5178   t2931 = 0.1e1 / t227;
5179   t2933 = t2931 * t110 * t101;
5180   t2934 = t1917 * t2933;
5181   t2935 = t1166 * t2934;
5182   t2936 = 0.22265550000000000000e3 * t2935;
5183   t2937 = t1179 * t786;
5184   t2938 = t2937 * t110;
5185   t2939 = t1925 * t2938;
5186   t2940 = t784 * t2939;
5187   t2941 = 0.62012907040371922630e0 * t2940;
5188   t2942 = t2883 - t2888 - t2892 + t2894 + t2896 - t2898 + t2903 - t2905 - t2907 + t2909 - t2913 - t2915 - t2920 + t2925 - t2930 + t2936 - t2941;
5189   t2944 = t1180 * t786 * t788;
5190   t2945 = t784 * t2944;
5191   t2946 = 0.30203104535893596326e2 * t2945;
5192   t2947 = t463 * t468;
5193   t2949 = t2947 * t786 * t788;
5194   t2950 = t784 * t2949;
5195   t2951 = 0.80541612095716256868e2 * t2950;
5196   t2952 = t297 * t1900;
5197   t2953 = t2952 * t1170;
5198   t2954 = 0.74218500000000000000e1 * t2953;
5199   t2955 = t1901 * t1182;
5200   t2957 = t17 * t1149;
5201   t2959 = t200 * t2957 * t207;
5202   t2961 = t200 * t1055 * t625;
5203   t2962 = t2961 / 0.2e1;
5204   t2964 = t600 * t1055 * t602;
5205   t2965 = t2964 / 0.6e1;
5206   t2966 = t212 * t463;
5207   t2968 = t200 * t2966 * t207;
5208   t2969 = t2968 / 0.3e1;
5209   t2970 = t97 * t1550;
5210   t2971 = 0.1e1 / t25;
5211   t2973 = t2971 * t302 * t110;
5212   t2974 = t2970 * t2973;
5213   t2975 = t1166 * t2974;
5214   t2976 = 0.12113307472923900000e3 * t2975;
5215   t2977 = t2030 * t1159;
5216   t2978 = 0.24739500000000000000e1 * t2977;
5217   t2980 = t304 * t469 * t2006;
5218   t2981 = t615 * t2980;
5219   t2982 = 0.12369750000000000000e1 * t2981;
5220   t2983 = t613 * t463;
5221   t2984 = t298 * t2983;
5222   t2985 = t2984 * t618;
5223   t2986 = 0.65972000000000000000e1 * t2985;
5224   t2988 = t304 * t469 * t2019;
5225   t2989 = t2018 * t2988;
5226   t2990 = 0.41232500000000000000e0 * t2989;
5227   t2991 = t2026 * t1159;
5228   t2992 = 0.82465000000000000000e0 * t2991;
5229   t2994 = t304 * t1173 * t616;
5230   t2995 = t615 * t2994;
5231   t2996 = 0.32986000000000000000e1 * t2995;
5232   t2998 = t8 * t213 * t1150;
5233   t2999 = t2998 / 0.4e1;
5234   t3001 = t8 * t631 * t464;
5235   t3002 = t3001 / 0.12e2;
5236   t3006 = t1108 * t264;
5237   t3015 = t650 * t19;
5238   t3028 = t2086 * t669;
5239   t3033 = 0.1e1 / t26 / t239 / t654 * t36 * t2093;
5240   t3042 = t56 * t650;
5241   t3043 = t3042 * t254;
5242   t3045 = t1089 * t36;
5243   t3046 = t3045 * t1094;
5244   t3048 = t236 * t691;
5245   t3049 = t3048 * t72;
5246   t3050 = t437 * t3049;
5247   t3052 = t687 * t72;
5248   t3053 = t694 * t3052;
5249   t3054 = t1092 * t3053;
5250   t3056 = t437 * t236;
5251   t3058 = t70 * t691 * t72;
5252   t3059 = t3056 * t3058;
5253   t3062 = t257 * t650 * t254;
5254   t3064 = t702 * t223;
5255   t3065 = t3064 * t1101;
5256   t3067 = t704 * t3052;
5257   t3068 = t1100 * t3067;
5258   t3070 = t2127 * t29;
5259   t3071 = t3070 * t3049;
5260   t3073 = 0.77e2 / 0.14580e5 * t57 * t2916 + 0.11e2 / 0.1620e4 * t3043 - t3046 / 0.162e3 - 0.5e1 / 0.1296e4 * t3050 + t3054 / 0.864e3 + 0.5e1 / 0.648e3 * t3059 - 0.11e2 / 0.1620e4 * t3062 + t3065 / 0.486e3 - t3068 / 0.2592e4 - 0.5e1 / 0.3888e4 * t3071;
5261   t3076 = 0.110e3 / 0.2187e4 * t3015 * t23 + 0.19e2 / 0.162e3 * t40 * sigma[0] * t656 * t52 - 0.167e3 / 0.320e3 * t237 * t41 * t662 * t52 + 0.81e2 / 0.1024e4 * t1076 * t676 - 0.729e3 / 0.256000e6 * t3028 * t3033 + 0.2e1 * t708 * t443 + 0.4e1 * t261 * t1104 + 0.2e1 * t75 * t3073;
5262   t3077 = t3076 * t94;
5263   t3079 = t1107 * t285;
5264   t3082 = t446 * t755;
5265   t3092 = params->c1 * t650;
5266   t3093 = t3092 * t86;
5267   t3095 = t1114 * t36;
5268   t3096 = t3095 * t273;
5269   t3098 = t449 * t726;
5270   t3100 = t1117 * t729;
5271   t3103 = t84 * t236 * t750;
5272   t3106 = t3103 * t29 * t691 * t24;
5273   t3108 = t724 * t223;
5274   t3110 = t1120 * t3108 * t252;
5275   t3113 = t1120 * t1121 * t687;
5276   t3116 = t270 * t272 * t650;
5277   t3118 = 0.55e2 / 0.81e2 * t3093 - 0.100e3 / 0.243e3 * t3096 + 0.125e3 / 0.162e3 * t3098 + 0.25e2 / 0.324e3 * t3100 + 0.625e3 / 0.1458e4 * t3106 - 0.1000e4 / 0.729e3 * t3110 + 0.125e3 / 0.486e3 * t3113 + 0.275e3 / 0.729e3 * t3116;
5278   t3123 = t455 * t732;
5279   t3128 = t29 * t236;
5280   t3129 = t91 * t691;
5281   t3130 = t3128 * t3129;
5282   t3131 = t2172 * t3130;
5283   t3133 = t278 * t3108;
5284   t3134 = t3133 * t1135;
5285   t3136 = t2183 * t3130;
5286   t3138 = t1133 * t2178;
5287   t3141 = t279 * t3015 * t281;
5288   t3144 = t748 * t750 * t223;
5289   t3145 = t3144 * t1135;
5290   t3147 = t1142 * t2178;
5291   t3149 = t2198 * t3130;
5292   t3152 = my_piecewise3(t83, 0.2e1 * t1128 * t276 * t89 + t455 * t734 * t89 + t3118 * t89 + t3123 * t89, 0.125e3 / 0.162e3 * t3131 - 0.100e3 / 0.243e3 * t3134 + 0.125e3 / 0.162e3 * t3136 + 0.25e2 / 0.324e3 * t3138 + 0.55e2 / 0.81e2 * t3141 - 0.50e2 / 0.243e3 * t3145 + 0.25e2 / 0.648e3 * t3147 + 0.125e3 / 0.972e3 * t3149);
5293   t3155 = 0.6e1 * t2054 * t447 * t645 - 0.4e1 * t644 * t3006 + 0.4e1 * t644 * t1110 * t264 - 0.2e1 * t644 * t447 * t711 + t220 * t3077 - 0.2e1 * t220 * t3079 - t220 * t3082 + 0.2e1 * t644 * t645 * t460 - t220 * t711 * t460 - 0.2e1 * t220 * t264 * t1146 - t82 * t3152 + 0.1174e1 * t3152;
5294   t3156 = t3155 * t111;
5295   t3158 = t8 * t18 * t3156;
5296   t3159 = 0.3e1 / 0.8e1 * t3158;
5297   t3160 = t2946 + t2951 + t2954 - 0.20135403023929064216e2 * t2955 - t2959 - t2962 - t2965 - t2969 + t2976 + t2978 + t2982 - t2986 + t2990 + t2992 - t2996 - t2999 + t3002 - t3159;
5298   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5299     v3rho2sigma[0] = -t1057 - t2870 - 0.3e1 / 0.4e1 * t1152 - 0.49479000000000000000e1 * t1156 + 0.24739500000000000000e1 * t1160 + t2874 + 0.18554625000000000000e1 * t1164 + 0.22265550000000000000e2 * t1171 - 0.24739500000000000000e1 * t1176 - 0.60406209071787192650e2 * t1183 + t10 * (t2942 + t3160);
5300 
5301   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5302     v3rho2sigma[1] = 0.0e0;
5303 
5304   t3163 = t1192 / 0.4e1;
5305   t3165 = 0.61848750000000000000e0 * t1198;
5306   t3167 = t795 * t1187 * t797;
5307   t3168 = t3167 / 0.6e1;
5308   t3169 = t212 * t516;
5309   t3171 = t313 * t3169 * t316;
5310   t3172 = t3171 / 0.3e1;
5311   t3174 = t313 * t1187 * t806;
5312   t3175 = t3174 / 0.2e1;
5313   t3177 = t8 * t810 * t517;
5314   t3178 = t3177 / 0.12e2;
5315   t3180 = t412 * t522 * t2299;
5316   t3181 = t2298 * t3180;
5317   t3182 = 0.41232500000000000000e0 * t3181;
5318   t3183 = t2308 * t1195;
5319   t3184 = 0.82465000000000000000e0 * t3183;
5320   t3186 = t412 * t522 * t2323;
5321   t3187 = t863 * t3186;
5322   t3188 = 0.12369750000000000000e1 * t3187;
5323   t3189 = t2241 * t524;
5324   t3190 = 0.20616250000000000000e0 * t3189;
5325   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5326     v3rho2sigma[2] = -t1189 - t3163 + 0.24739500000000000000e1 * t1196 + t3165 + t10 * (-t3168 - t3172 - t3175 + t3178 + t3182 + t3184 + t3188 - t3190);
5327 
5328   t3194 = t600 * t1055 * t816;
5329   t3197 = t200 * t2966 * t328;
5330   t3200 = t200 * t2957 * t328;
5331   t3202 = t2984 * t828;
5332   t3204 = t832 * t463;
5333   t3206 = t200 * t3204 * t834;
5334   t3211 = t100 * t468;
5335   t3212 = t103 * t110;
5336   t3213 = t3212 * t2342;
5337   t3214 = t3211 * t3213;
5338   t3215 = t2339 * t3214;
5339   t3217 = t2026 * t1206;
5340   t3219 = -t3194 / 0.6e1 - t3197 / 0.6e1 - t3200 / 0.2e1 - 0.32986000000000000000e1 * t3202 - t3206 / 0.2e1 - t2968 / 0.6e1 + t3002 - t2998 / 0.8e1 - 0.82465000000000000000e0 * t2891 + 0.41232500000000000000e0 * t3215 + 0.41232500000000000000e0 * t3217;
5341   t3220 = t2030 * t1206;
5342   t3223 = t771 * t2879 * t327;
5343   t3224 = t615 * t3223;
5344   t3227 = t304 * t1173 * t826;
5345   t3228 = t615 * t3227;
5346   t3230 = t2885 * t2244;
5347   t3231 = t1883 * t3230;
5348   t3234 = t304 * t469 * t2318;
5349   t3235 = t2317 * t3234;
5350   t3242 = 0.12369750000000000000e1 * t3220 + 0.14843700000000000000e2 * t3224 - 0.16493000000000000000e1 * t3228 - 0.40270806047858128434e2 * t3231 + 0.12369750000000000000e1 * t3235 + 0.41232500000000000000e0 * t2991 - t2905 + 0.30924375000000000000e0 * t2893 + 0.37109250000000000000e1 * t2953 - 0.41232500000000000000e0 * t2906 - 0.10067701511964532108e2 * t2955;
5351   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5352     v3rho2sigma[3] = -t1058 - t2870 - t1153 - t1157 + t1161 + t2874 + t1165 + t1172 - t1177 - t1184 - t1204 + t1208 + t10 * (t3219 + t3242);
5353 
5354   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5355     v3rho2sigma[4] = 0.0e0;
5356 
5357   t3246 = t795 * t1187 * t841;
5358   t3249 = t313 * t3169 * t333;
5359   t3251 = t832 * t516;
5360   t3253 = t313 * t3251 * t849;
5361   t3256 = t17 * t1301;
5362   t3258 = t313 * t3256 * t316;
5363   t3261 = t8 * t320 * t1302;
5364   t3263 = t861 * t516;
5365   t3264 = t298 * t3263;
5366   t3265 = t3264 * t866;
5367   t3268 = t298 * t320 * t516;
5368   t3269 = t3268 * t417;
5369   t3271 = t100 * t521;
5370   t3272 = t184 * t191;
5371   t3273 = t3272 * t2458;
5372   t3274 = t3271 * t3273;
5373   t3275 = t2455 * t3274;
5374   t3277 = t2308 * t1311;
5375   t3279 = -t3246 / 0.6e1 - t3249 / 0.6e1 + t3253 / 0.2e1 - t3171 / 0.6e1 + t3178 - t3258 / 0.2e1 - t3261 / 0.8e1 - 0.32986000000000000000e1 * t3265 - 0.82465000000000000000e0 * t3269 + 0.41232500000000000000e0 * t3275 + 0.41232500000000000000e0 * t3277;
5376   t3281 = t412 * t522 * t2517;
5377   t3282 = t2516 * t3281;
5378   t3285 = t2498 * t1195;
5379   t3287 = t2417 * t524;
5380   t3289 = t342 * t191;
5381   t3291 = t1032 * t3289 * t315;
5382   t3292 = t863 * t3291;
5383   t3294 = t297 * t2429;
5384   t3295 = t3294 * t1320;
5385   t3298 = t412 * t1323 * t864;
5386   t3299 = t863 * t3298;
5387   t3301 = t870 * t1325;
5388   t3304 = t1329 * t121 * t19;
5389   t3305 = t3304 * t2424;
5390   t3306 = t2420 * t3305;
5391   t3308 = t2430 * t1332;
5392   t3310 = -0.12369750000000000000e1 * t3282 + 0.41232500000000000000e0 * t3183 - t3190 + 0.12369750000000000000e1 * t3285 + 0.30924375000000000000e0 * t3287 + 0.14843700000000000000e2 * t3292 + 0.37109250000000000000e1 * t3295 - 0.16493000000000000000e1 * t3299 - 0.41232500000000000000e0 * t3301 - 0.40270806047858128433e2 * t3306 - 0.10067701511964532108e2 * t3308;
5393   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5394     v3rho2sigma[5] = -t1190 - t3163 + t1197 + t3165 - t1213 - t1305 - t1309 + t1313 + t1315 + t1322 - t1327 - t1334 + t10 * (t3279 + t3310);
5395 
5396   t3315 = t600 * t1055 * t878;
5397   t3316 = t3315 / 0.6e1;
5398   t3317 = t3197 / 0.3e1;
5399   t3319 = t200 * t1055 * t884;
5400   t3320 = t3319 / 0.2e1;
5401   t3322 = t304 * t469 * t2505;
5402   t3323 = t2018 * t3322;
5403   t3324 = 0.41232500000000000000e0 * t3323;
5404   t3325 = 0.82465000000000000000e0 * t3217;
5405   t3327 = t304 * t469 * t2510;
5406   t3328 = t615 * t3327;
5407   t3329 = 0.12369750000000000000e1 * t3328;
5408   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5409     v3rho2sigma[6] = -t1203 - t2870 + 0.24739500000000000000e1 * t1207 + t2874 + t10 * (-t3316 - t3317 - t3320 + t3002 + t3324 + t3325 + t3329 - t2905);
5410 
5411   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5412     v3rho2sigma[7] = 0.0e0;
5413 
5414   t3339 = t2583 * t524;
5415   t3340 = 0.92773125000000000000e0 * t3339;
5416   t3342 = t298 * t119 * t1301;
5417   t3343 = t3342 * t417;
5418   t3344 = 0.49479000000000000000e1 * t3343;
5419   t3345 = t521 * t1038;
5420   t3347 = t412 * t3345 * t191;
5421   t3348 = t408 * t3347;
5422   t3349 = 0.28862750000000000000e1 * t3348;
5423   t3350 = t1025 * t1325;
5424   t3351 = 0.24739500000000000000e1 * t3350;
5425   t3352 = t1307 * t1041;
5426   t3353 = 0.57725500000000000000e1 * t3352;
5427   t3354 = t1307 * t1034;
5428   t3355 = 0.29687400000000000000e2 * t3354;
5429   t3357 = t1032 * t3289 * t332;
5430   t3358 = t863 * t3357;
5431   t3359 = 0.29687400000000000000e2 * t3358;
5432   t3360 = t3304 * t2586;
5433   t3361 = t2420 * t3360;
5434   t3362 = 0.80541612095716256867e2 * t3361;
5435   t3363 = 0.16493000000000000000e1 * t3269;
5436   t3364 = 0.61848750000000000000e0 * t3287;
5437   t3365 = 0.82465000000000000000e0 * t3301;
5438   t3366 = 0.74218500000000000000e1 * t3295;
5439   t3367 = 0.20135403023929064216e2 * t3308;
5440   t3368 = t23 * t916;
5441   t3369 = t3368 * t191;
5442   t3370 = t1318 * t3369;
5443   t3371 = t1316 * t3370;
5444   t3372 = 0.55663875000000000000e2 * t3371;
5445   t3373 = t516 * t521;
5446   t3375 = t3373 * t1047 * t1049;
5447   t3376 = t1045 * t3375;
5448   t3377 = 0.80541612095716256868e2 * t3376;
5449   t3379 = t402 * t1030 * t19;
5450   t3380 = t3379 * t1319;
5451   t3381 = t1316 * t3380;
5452   t3382 = 0.22265550000000000000e2 * t3381;
5453   t3383 = t3340 - t3344 + t3349 - t3351 + t3353 - t3355 + t3359 - t3362 - t3363 + t3364 - t3365 - t3190 + t3366 - t3367 - t3372 + t3377 + t3382;
5454   t3384 = t402 * t1329;
5455   t3386 = t3384 * t121 * t1049;
5456   t3387 = t1045 * t3386;
5457   t3388 = 0.60406209071787192650e2 * t3387;
5458   t3389 = 0.1e1 / t346;
5459   t3391 = t3389 * t191 * t182;
5460   t3392 = t2623 * t3391;
5461   t3393 = t1316 * t3392;
5462   t3394 = 0.22265550000000000000e3 * t3393;
5463   t3395 = t1329 * t1047;
5464   t3396 = t3395 * t191;
5465   t3397 = t2631 * t3396;
5466   t3398 = t1045 * t3397;
5467   t3399 = 0.62012907040371922630e0 * t3398;
5468   t3401 = t1330 * t1047 * t1049;
5469   t3402 = t1045 * t3401;
5470   t3403 = 0.30203104535893596326e2 * t3402;
5471   t3404 = t181 * t1634;
5472   t3405 = 0.1e1 / t120;
5473   t3407 = t3405 * t410 * t191;
5474   t3408 = t3404 * t3407;
5475   t3409 = t1316 * t3408;
5476   t3410 = 0.12113307472923900000e3 * t3409;
5477   t3414 = t1260 * t379;
5478   t3423 = t916 * t19;
5479   t3436 = t2086 * t933;
5480   t3441 = 0.1e1 / t121 / t354 / t920 * t36 * t2721;
5481   t3450 = t56 * t916;
5482   t3451 = t3450 * t369;
5483   t3453 = t1241 * t36;
5484   t3454 = t3453 * t1246;
5485   t3456 = t236 * t955;
5486   t3457 = t3456 * t156;
5487   t3458 = t490 * t3457;
5488   t3460 = t951 * t156;
5489   t3461 = t958 * t3460;
5490   t3462 = t1244 * t3461;
5491   t3464 = t490 * t236;
5492   t3466 = t154 * t955 * t156;
5493   t3467 = t3464 * t3466;
5494   t3470 = t372 * t916 * t369;
5495   t3472 = t966 * t342;
5496   t3473 = t3472 * t1253;
5497   t3475 = t704 * t3460;
5498   t3476 = t1252 * t3475;
5499   t3478 = t2755 * t124;
5500   t3479 = t3478 * t3457;
5501   t3481 = 0.77e2 / 0.14580e5 * t57 * t3368 + 0.11e2 / 0.1620e4 * t3451 - t3454 / 0.162e3 - 0.5e1 / 0.1296e4 * t3458 + t3462 / 0.864e3 + 0.5e1 / 0.648e3 * t3467 - 0.11e2 / 0.1620e4 * t3470 + t3473 / 0.486e3 - t3476 / 0.2592e4 - 0.5e1 / 0.3888e4 * t3479;
5502   t3484 = 0.110e3 / 0.2187e4 * t3423 * t23 + 0.19e2 / 0.162e3 * t40 * sigma[2] * t922 * t138 - 0.167e3 / 0.320e3 * t237 * t128 * t928 * t138 + 0.81e2 / 0.1024e4 * t1228 * t940 - 0.729e3 / 0.256000e6 * t3436 * t3441 + 0.2e1 * t971 * t496 + 0.4e1 * t376 * t1256 + 0.2e1 * t159 * t3481;
5503   t3485 = t3484 * t178;
5504   t3487 = t1259 * t399;
5505   t3490 = t499 * t1016;
5506   t3500 = params->c1 * t916;
5507   t3501 = t3500 * t170;
5508   t3503 = t1266 * t36;
5509   t3504 = t3503 * t388;
5510   t3506 = t502 * t989;
5511   t3508 = t1269 * t992;
5512   t3511 = t168 * t236 * t1011;
5513   t3514 = t3511 * t124 * t955 * t24;
5514   t3516 = t987 * t342;
5515   t3518 = t1272 * t3516 * t367;
5516   t3521 = t1272 * t1273 * t951;
5517   t3524 = t385 * t387 * t916;
5518   t3526 = 0.55e2 / 0.81e2 * t3501 - 0.100e3 / 0.243e3 * t3504 + 0.125e3 / 0.162e3 * t3506 + 0.25e2 / 0.324e3 * t3508 + 0.625e3 / 0.1458e4 * t3514 - 0.1000e4 / 0.729e3 * t3518 + 0.125e3 / 0.486e3 * t3521 + 0.275e3 / 0.729e3 * t3524;
5519   t3531 = t508 * t995;
5520   t3536 = t124 * t236;
5521   t3537 = t175 * t955;
5522   t3538 = t3536 * t3537;
5523   t3539 = t2800 * t3538;
5524   t3541 = t278 * t3516;
5525   t3542 = t3541 * t1287;
5526   t3544 = t2811 * t3538;
5527   t3546 = t1285 * t2806;
5528   t3549 = t393 * t3423 * t395;
5529   t3552 = t748 * t1011 * t342;
5530   t3553 = t3552 * t1287;
5531   t3555 = t1294 * t2806;
5532   t3557 = t2824 * t3538;
5533   t3560 = my_piecewise3(t167, 0.2e1 * t1280 * t391 * t173 + t508 * t997 * t173 + t3526 * t173 + t3531 * t173, 0.125e3 / 0.162e3 * t3539 - 0.100e3 / 0.243e3 * t3542 + 0.125e3 / 0.162e3 * t3544 + 0.25e2 / 0.324e3 * t3546 + 0.55e2 / 0.81e2 * t3549 - 0.50e2 / 0.243e3 * t3553 + 0.25e2 / 0.648e3 * t3555 + 0.125e3 / 0.972e3 * t3557);
5534   t3563 = 0.6e1 * t2684 * t500 * t911 - 0.4e1 * t910 * t3414 + 0.4e1 * t910 * t1262 * t379 - 0.2e1 * t910 * t500 * t974 + t339 * t3485 - 0.2e1 * t339 * t3487 - t339 * t3490 + 0.2e1 * t910 * t911 * t513 - t339 * t974 * t513 - 0.2e1 * t339 * t379 * t1298 - t166 * t3560 + 0.1174e1 * t3560;
5535   t3564 = t3563 * t192;
5536   t3566 = t8 * t119 * t3564;
5537   t3567 = 0.3e1 / 0.8e1 * t3566;
5538   t3568 = t3261 / 0.4e1;
5539   t3569 = t2498 * t1311;
5540   t3570 = 0.24739500000000000000e1 * t3569;
5541   t3572 = t412 * t522 * t2667;
5542   t3573 = t863 * t3572;
5543   t3574 = 0.12369750000000000000e1 * t3573;
5544   t3575 = t3264 * t898;
5545   t3576 = 0.65972000000000000000e1 * t3575;
5546   t3578 = t412 * t1323 * t896;
5547   t3579 = t863 * t3578;
5548   t3580 = 0.32986000000000000000e1 * t3579;
5549   t3582 = t412 * t522 * t2660;
5550   t3583 = t2298 * t3582;
5551   t3584 = 0.41232500000000000000e0 * t3583;
5552   t3585 = 0.82465000000000000000e0 * t3277;
5553   t3586 = t3249 / 0.3e1;
5554   t3588 = t313 * t3256 * t333;
5555   t3590 = t313 * t1187 * t902;
5556   t3591 = t3590 / 0.2e1;
5557   t3593 = t795 * t1187 * t889;
5558   t3594 = t3593 / 0.6e1;
5559   t3595 = -t3388 + t3394 - t3399 + t3403 + t3410 - t3567 - t3568 + t3570 + t3574 - t3576 - t3580 + t3584 + t3585 + t3178 - t3586 - t3588 - t3591 - t3594;
5560   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5561     v3rho2sigma[8] = -t1212 - t3163 - 0.3e1 / 0.4e1 * t1304 - 0.49479000000000000000e1 * t1308 + 0.24739500000000000000e1 * t1312 + t3165 + 0.18554625000000000000e1 * t1314 + 0.22265550000000000000e2 * t1321 - 0.24739500000000000000e1 * t1326 - 0.60406209071787192650e2 * t1333 + t10 * (t3383 + t3595);
5562 
5563   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5564     v3rho2lapl[0] = 0.0e0;
5565 
5566   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5567     v3rho2lapl[1] = 0.0e0;
5568 
5569   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5570     v3rho2lapl[2] = 0.0e0;
5571 
5572   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5573     v3rho2lapl[3] = 0.0e0;
5574 
5575   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5576     v3rho2lapl[4] = 0.0e0;
5577 
5578   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5579     v3rho2lapl[5] = 0.0e0;
5580 
5581   t3598 = t17 * t557;
5582   t3600 = t200 * t3598 * t207;
5583   t3604 = t8 * t213 * t558 / 0.6e1;
5584   t3606 = t8 * t18 * t1400;
5585   t3608 = t298 * t18 * t557;
5586   t3609 = t3608 * t309;
5587   t3611 = t598 * t557;
5588   t3615 = t15 * t1399;
5589   t3618 = t199 * t557;
5590   t3619 = t1405 * t3618;
5591   t3625 = t2054 * t75;
5592   t3626 = t1347 * t645;
5593   t3629 = t644 * t261;
5594   t3632 = t1363 * t94;
5595   t3633 = t3632 * t264;
5596   t3636 = t537 * t285;
5597   t3637 = t3636 * t264;
5598   t3640 = t1347 * t711;
5599   t3643 = t708 * t537;
5600   t3647 = t261 * t1363;
5601   t3660 = t532 * t236;
5602   t3667 = t2127 * t61;
5603   t3670 = -0.2e1 / 0.81e2 * t1090 + 0.5e1 / 0.162e3 * t1095 + 0.5e1 / 0.162e3 * t532 * t3049 - t1356 * t3053 / 0.108e3 - 0.5e1 / 0.81e2 * t3660 * t3058 + 0.2e1 / 0.81e2 * t1098 - 0.5e1 / 0.486e3 * t1102 + t1360 * t3067 / 0.324e3 + 0.5e1 / 0.486e3 * t3667 * t3049;
5604   t3671 = t75 * t3670;
5605   t3704 = -0.200e3 / 0.81e2 * t1115 + 0.500e3 / 0.243e3 * t1118 - 0.500e3 / 0.81e2 * t542 * t726 - 0.50e2 / 0.81e2 * t1374 * t729 - 0.2500e4 / 0.729e3 * t3103 * t61 * t691 * t24 + 0.5000e4 / 0.729e3 * t1123 - 0.500e3 / 0.243e3 * t1120 * t1377 * t687 - 0.1000e4 / 0.729e3 * t1126;
5606   t3709 = t548 * t732;
5607   t3714 = t61 * t236;
5608   t3715 = t3714 * t3129;
5609   t3730 = my_piecewise3(t83, 0.2e1 * t1382 * t276 * t89 + t548 * t734 * t89 + t3704 * t89 + t3709 * t89, -0.500e3 / 0.81e2 * t2172 * t3715 + 0.500e3 / 0.243e3 * t1136 - 0.500e3 / 0.81e2 * t2183 * t3715 - 0.50e2 / 0.81e2 * t1387 * t2178 - 0.200e3 / 0.81e2 * t1139 + 0.250e3 / 0.243e3 * t1143 - 0.25e2 / 0.81e2 * t1392 * t2178 - 0.250e3 / 0.243e3 * t2198 * t3715);
5610   t3733 = 0.12e2 * t3625 * t3626 - 0.8e1 * t3629 * t1348 - 0.8e1 * t1346 * t3633 + 0.8e1 * t1346 * t3637 - 0.4e1 * t1346 * t3640 + 0.2e1 * t220 * t3643 * t94 + 0.4e1 * t220 * t3647 * t94 - 0.4e1 * t220 * t1351 * t285 + 0.2e1 * t220 * t3671 * t94 - 0.4e1 * t220 * t1364 * t285 - 0.2e1 * t220 * t538 * t755 + 0.2e1 * t644 * t645 * t554 - t220 * t711 * t554 - 0.2e1 * t220 * t264 * t1396 - t82 * t3730 + 0.1174e1 * t3730;
5611   t3734 = t3733 * t111;
5612   t3739 = t1405 * t531 * t1399;
5613   t3746 = t1340 * t16;
5614   t3747 = t529 * t3746;
5615   t3748 = t557 * t468;
5616   t3750 = t3748 * t786 * t788;
5617   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5618     v3rho2tau[0] = -0.4e1 / 0.3e1 * t3600 - t3604 - t3606 - 0.65972000000000000000e1 * t3609 - t1341 * t3611 * t602 / 0.6e1 - t1341 * t3615 * t207 - 0.65972000000000000000e1 * t3619 * t618 - t1341 * t1342 * t625 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t531 * t3734 - 0.49479000000000000000e1 * t3739 * t309 - 0.29687400000000000000e2 * t1407 * t773 + 0.57725500000000000000e1 * t1407 * t780 + 0.80541612095716256868e2 * t3747 * t3750;
5619 
5620   t3753 = t17 * t588;
5621   t3755 = t313 * t3753 * t316;
5622   t3759 = t8 * t320 * t589 / 0.6e1;
5623   t3760 = t793 * t588;
5624   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5625     v3rho2tau[1] = -0.4e1 / 0.3e1 * t3755 - t3759 - t1341 * t3760 * t797 / 0.6e1 - t1341 * t1412 * t806 / 0.2e1;
5626 
5627   t3770 = t17 * t2;
5628   t3771 = t3770 * t1340;
5629   t3772 = t3771 * t1416;
5630   t3774 = t3611 * t816;
5631   t3777 = t3615 * t328;
5632   t3782 = t630 * t2;
5633   t3783 = t3782 * t1340;
5634   t3784 = t1342 * t834;
5635   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5636     v3rho2tau[2] = -0.2e1 / 0.3e1 * t3600 - t3604 - t3606 / 0.2e1 - 0.32986000000000000000e1 * t3609 - 0.2e1 / 0.3e1 * t3772 - t1341 * t3774 / 0.6e1 - t1341 * t3777 / 0.2e1 - 0.32986000000000000000e1 * t3619 * t828 - t3783 * t3784 / 0.2e1;
5637 
5638   t3788 = t3771 * t1420;
5639   t3790 = t3760 * t841;
5640   t3793 = t1412 * t849;
5641   t3796 = t3770 * t4;
5642   t3797 = t3796 * t1478;
5643   t3799 = t117 * t1476;
5644   t3800 = t3799 * t316;
5645   t3804 = t17 * t296 * t4;
5646   t3805 = t3804 * t1481;
5647   t3806 = t3805 * t417;
5648   t3808 = t312 * t588;
5649   t3809 = t1405 * t3808;
5650   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5651     v3rho2tau[3] = -0.2e1 / 0.3e1 * t3755 - t3759 - 0.2e1 / 0.3e1 * t3788 - t1341 * t3790 / 0.6e1 + t3783 * t3793 / 0.2e1 - t3797 / 0.2e1 - t1341 * t3800 / 0.2e1 - 0.32986000000000000000e1 * t3806 - 0.32986000000000000000e1 * t3809 * t866;
5652 
5653   t3813 = t3611 * t878;
5654   t3816 = t1342 * t884;
5655   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5656     v3rho2tau[4] = -0.4e1 / 0.3e1 * t3772 - t3604 - t1341 * t3813 / 0.6e1 - t1341 * t3816 / 0.2e1;
5657 
5658   t3821 = t3760 * t889;
5659   t3824 = t3799 * t333;
5660   t3828 = t1412 * t902;
5661   t3831 = t2684 * t159;
5662   t3832 = t1424 * t911;
5663   t3835 = t910 * t376;
5664   t3838 = t1440 * t178;
5665   t3839 = t3838 * t379;
5666   t3842 = t568 * t399;
5667   t3843 = t3842 * t379;
5668   t3846 = t1424 * t974;
5669   t3849 = t971 * t568;
5670   t3853 = t376 * t1440;
5671   t3866 = t563 * t236;
5672   t3873 = t2755 * t145;
5673   t3876 = -0.2e1 / 0.81e2 * t1242 + 0.5e1 / 0.162e3 * t1247 + 0.5e1 / 0.162e3 * t563 * t3457 - t1433 * t3461 / 0.108e3 - 0.5e1 / 0.81e2 * t3866 * t3466 + 0.2e1 / 0.81e2 * t1250 - 0.5e1 / 0.486e3 * t1254 + t1437 * t3475 / 0.324e3 + 0.5e1 / 0.486e3 * t3873 * t3457;
5674   t3877 = t159 * t3876;
5675   t3910 = -0.200e3 / 0.81e2 * t1267 + 0.500e3 / 0.243e3 * t1270 - 0.500e3 / 0.81e2 * t573 * t989 - 0.50e2 / 0.81e2 * t1451 * t992 - 0.2500e4 / 0.729e3 * t3511 * t145 * t955 * t24 + 0.5000e4 / 0.729e3 * t1275 - 0.500e3 / 0.243e3 * t1272 * t1454 * t951 - 0.1000e4 / 0.729e3 * t1278;
5676   t3915 = t579 * t995;
5677   t3920 = t145 * t236;
5678   t3921 = t3920 * t3537;
5679   t3936 = my_piecewise3(t167, 0.2e1 * t1459 * t391 * t173 + t579 * t997 * t173 + t3910 * t173 + t3915 * t173, -0.500e3 / 0.81e2 * t2800 * t3921 + 0.500e3 / 0.243e3 * t1288 - 0.500e3 / 0.81e2 * t2811 * t3921 - 0.50e2 / 0.81e2 * t1464 * t2806 - 0.200e3 / 0.81e2 * t1291 + 0.250e3 / 0.243e3 * t1295 - 0.25e2 / 0.81e2 * t1469 * t2806 - 0.250e3 / 0.243e3 * t2824 * t3921);
5680   t3939 = 0.12e2 * t3831 * t3832 - 0.8e1 * t3835 * t1425 - 0.8e1 * t1423 * t3839 + 0.8e1 * t1423 * t3843 - 0.4e1 * t1423 * t3846 + 0.2e1 * t339 * t3849 * t178 + 0.4e1 * t339 * t3853 * t178 - 0.4e1 * t339 * t1428 * t399 + 0.2e1 * t339 * t3877 * t178 - 0.4e1 * t339 * t1441 * t399 - 0.2e1 * t339 * t569 * t1016 + 0.2e1 * t910 * t911 * t585 - t339 * t974 * t585 - 0.2e1 * t339 * t379 * t1473 - t166 * t3936 + 0.1174e1 * t3936;
5681   t3941 = t562 * t3939 * t192;
5682   t3944 = t562 * t1476;
5683   t3945 = t1405 * t3944;
5684   t3952 = t1340 * t118;
5685   t3953 = t529 * t3952;
5686   t3954 = t588 * t521;
5687   t3956 = t3954 * t1047 * t1049;
5688   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5689     v3rho2tau[5] = -0.4e1 / 0.3e1 * t3788 - t3759 - t3797 - 0.65972000000000000000e1 * t3806 - t1341 * t3821 / 0.6e1 - t1341 * t3824 - 0.65972000000000000000e1 * t3809 * t898 - t1341 * t3828 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t3941 - 0.49479000000000000000e1 * t3945 * t417 - 0.29687400000000000000e2 * t1482 * t1034 + 0.57725500000000000000e1 * t1482 * t1041 + 0.80541612095716256868e2 * t3953 * t3956;
5690 
5691   t3959 = t764 * t1558;
5692   t3960 = 0.46386562500000000000e0 * t3959;
5693   t3962 = t1562 * t102 * t19;
5694   t3963 = t3962 * t1887;
5695   t3964 = t1883 * t3963;
5696   t3965 = 0.15101552267946798163e2 * t3964;
5697   t3967 = t298 * t18 * t1543;
5698   t3968 = t3967 * t309;
5699   t3969 = 0.24739500000000000000e1 * t3968;
5700   t3970 = t2911 * t471;
5701   t3971 = 0.18554625000000000000e1 * t3970;
5702   t3972 = t639 * t1553;
5703   t3973 = 0.13915968750000000000e1 * t3972;
5704   t3974 = t1550 * t223;
5705   t3976 = t771 * t3974 * t110;
5706   t3977 = t300 * t3976;
5707   t3978 = 0.55663875000000000000e1 * t3977;
5708   t3979 = t639 * t1558;
5709   t3980 = 0.15462187500000000000e0 * t3979;
5710   t3981 = t1179 * t306;
5711   t3983 = t304 * t3981 * t110;
5712   t3984 = t300 * t3983;
5713   t3985 = 0.61848750000000000000e0 * t3984;
5714   t3986 = t2890 * t471;
5715   t3987 = 0.61848750000000000000e0 * t3986;
5716   t3988 = t1155 * t1175;
5717   t3989 = 0.24739500000000000000e1 * t3988;
5718   t3990 = t764 * t1553;
5719   t3991 = 0.41747906250000000000e1 * t3990;
5720   t3992 = t1901 * t1565;
5721   t3993 = 0.37753880669866995407e1 * t3992;
5722   t3994 = -t3960 + t3965 - t3969 + t3971 - t3973 + t3978 - t3980 + t3985 + t3987 - t3989 - t3991 + t3993;
5723   t3996 = t463 * t769 * t19;
5724   t3997 = t3996 * t1169;
5725   t3998 = t1166 * t3997;
5726   t3999 = 0.22265550000000000000e2 * t3998;
5727   t4000 = t463 * t1179;
5728   t4002 = t4000 * t26 * t788;
5729   t4003 = t784 * t4002;
5730   t4004 = 0.60406209071787192651e2 * t4003;
5731   t4005 = 0.1e1 / t43;
5732   t4007 = t468 * t4005 * t110;
5733   t4008 = t1917 * t4007;
5734   t4009 = t1166 * t4008;
5735   t4010 = 0.83495812500000000000e2 * t4009;
5736   t4011 = t1562 * t26;
5737   t4012 = t4011 * t110;
5738   t4013 = t1925 * t4012;
5739   t4014 = t784 * t4013;
5740   t4015 = 0.23254840140139470986e0 * t4014;
5741   t4017 = t1563 * t26 * t788;
5742   t4018 = t784 * t4017;
5743   t4019 = 0.30203104535893596326e2 * t4018;
5744   t4020 = t288 * t1562;
5745   t4022 = t4020 * t102 * t788;
5746   t4023 = t784 * t4022;
5747   t4024 = 0.11326164200960098622e2 * t4023;
5748   t4026 = t8 * t213 * t1544;
5749   t4027 = t4026 / 0.8e1;
5750   t4034 = t1485 * t285;
5751   t4037 = t1517 * t264;
5752   t4050 = t2086 * t238;
5753   t4051 = t239 * t227;
5754   t4055 = 0.1e1 / t26 / t4051 * t36 * t2093;
5755   t4062 = t56 * t229;
5756   t4064 = t4062 * t36 * t695;
5757   t4067 = t236 * t252 * t72;
5758   t4068 = t1506 * t4067;
5759   t4070 = t1506 * t236;
5760   t4072 = t70 * t252 * t72;
5761   t4073 = t4070 * t4072;
5762   t4076 = t702 * t229 * t705;
5763   t4078 = t2127 * t45;
5764   t4079 = t4078 * t4067;
5765   t4081 = t4064 / 0.1296e4 + 0.5e1 / 0.10368e5 * t4068 - 0.5e1 / 0.5184e4 * t4073 - t4076 / 0.3888e4 + 0.5e1 / 0.31104e5 * t4079;
5766   t4084 = -t37 * t39 * t229 * t52 / 0.54e2 + 0.21e2 / 0.160e3 * t237 * t241 * sigma[0] * t52 - 0.81e2 / 0.3200e4 * t1497 * t1081 + 0.2187e4 / 0.2048000e7 * t4050 * t4055 + 0.4e1 * t443 * t1104 + 0.2e1 * t261 * t1513 + 0.2e1 * t75 * t4081;
5767   t4085 = t4084 * t94;
5768   t4087 = t1516 * t285;
5769   t4092 = t1107 * t460;
5770   t4095 = t446 * t1146;
5771   t4100 = params->c1 * t229;
5772   t4101 = t4100 * t721;
5773   t4103 = t725 * t252;
5774   t4104 = t1522 * t4103;
5775   t4108 = t3103 * t45 * t252 * t24;
5776   t4111 = t84 * t725 * t229;
5777   t4113 = 0.25e2 / 0.486e3 * t4101 - 0.125e3 / 0.1296e4 * t4104 - 0.625e3 / 0.11664e5 * t4108 + 0.125e3 / 0.729e3 * t4111;
5778   t4122 = t45 * t236;
5779   t4123 = t4122 * t1134;
5780   t4124 = t2172 * t4123;
5781   t4127 = t229 * t36 * t739;
5782   t4128 = t737 * t4127;
5783   t4130 = t2183 * t4123;
5784   t4132 = t751 * t4127;
5785   t4134 = t2198 * t4123;
5786   t4137 = my_piecewise3(t83, t1528 * t276 * t89 + t1530 * t276 * t89 + 0.2e1 * t456 * t1128 + t4113 * t89, -0.125e3 / 0.1296e4 * t4124 + 0.25e2 / 0.486e3 * t4128 - 0.125e3 / 0.1296e4 * t4130 + 0.25e2 / 0.972e3 * t4132 - 0.125e3 / 0.7776e4 * t4134);
5787   t4140 = 0.6e1 * t2054 * t1486 * t264 - 0.4e1 * t644 * t447 * t1107 + 0.2e1 * t644 * t4034 - 0.2e1 * t644 * t4037 + t220 * t4085 - t220 * t4087 + 0.4e1 * t644 * t1519 * t264 - 0.2e1 * t220 * t4092 - 0.2e1 * t220 * t4095 - t220 * t264 * t1540 - t82 * t4137 + 0.1174e1 * t4137;
5788   t4141 = t4140 * t111;
5789   t4143 = t8 * t18 * t4141;
5790   t4144 = 0.3e1 / 0.8e1 * t4143;
5791   t4145 = 0.1e1 / t41;
5792   t4146 = t97 * t4145;
5793   t4147 = 0.1e1 / rho[0];
5794   t4149 = t4147 * t302 * t110;
5795   t4150 = t4146 * t4149;
5796   t4151 = t1166 * t4150;
5797   t4152 = 0.45424903023464625000e2 * t4151;
5798   t4154 = t771 * t1551 * t616;
5799   t4155 = t615 * t4154;
5800   t4156 = 0.55663875000000000000e1 * t4155;
5801   t4158 = t304 * t1556 * t616;
5802   t4159 = t615 * t4158;
5803   t4160 = 0.61848750000000000000e0 * t4159;
5804   t4161 = t2984 * t1159;
5805   t4162 = 0.24739500000000000000e1 * t4161;
5806   t4163 = t17 * t1543;
5807   t4165 = t200 * t4163 * t207;
5808   t4166 = t4165 / 0.2e1;
5809   t4167 = t3999 - t4004 - t4010 + t4015 + t4019 + t4024 - t4027 - t4144 - t4152 - t4156 - t4160 + t4162 - t4166;
5810   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5811     v3rhosigma2[0] = -t1547 + t1549 - t1555 - t1560 + t1567 + t10 * (t3994 + t4167);
5812 
5813   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5814     v3rhosigma2[1] = 0.0e0;
5815 
5816   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5817     v3rhosigma2[2] = 0.0e0;
5818 
5819   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5820     v3rhosigma2[3] = 0.0e0;
5821 
5822   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5823     v3rhosigma2[4] = 0.0e0;
5824 
5825   t4170 = t17 * t1627;
5826   t4172 = t313 * t4170 * t316;
5827   t4173 = t4172 / 0.2e1;
5828   t4175 = t8 * t320 * t1628;
5829   t4176 = t4175 / 0.8e1;
5830   t4177 = t3264 * t1195;
5831   t4178 = 0.24739500000000000000e1 * t4177;
5832   t4179 = t3268 * t524;
5833   t4180 = 0.61848750000000000000e0 * t4179;
5834   t4182 = t1032 * t1635 * t864;
5835   t4183 = t863 * t4182;
5836   t4184 = 0.55663875000000000000e1 * t4183;
5837   t4185 = t870 * t1637;
5838   t4186 = 0.13915968750000000000e1 * t4185;
5839   t4188 = t412 * t1640 * t864;
5840   t4189 = t863 * t4188;
5841   t4190 = 0.61848750000000000000e0 * t4189;
5842   t4191 = t870 * t1642;
5843   t4192 = 0.15462187500000000000e0 * t4191;
5844   t4194 = t1646 * t183 * t19;
5845   t4195 = t4194 * t2424;
5846   t4196 = t2420 * t4195;
5847   t4197 = 0.15101552267946798163e2 * t4196;
5848   t4198 = t2430 * t1649;
5849   t4199 = 0.37753880669866995407e1 * t4198;
5850   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5851     v3rhosigma2[5] = -t1631 + t1633 - t1639 - t1644 + t1651 + t10 * (-t4173 - t4176 + t4178 + t4180 - t4184 - t4186 - t4190 - t4192 + t4197 + t4199);
5852 
5853   t4203 = t200 * t4163 * t328;
5854   t4204 = t4203 / 0.2e1;
5855   t4205 = t2984 * t1206;
5856   t4206 = 0.24739500000000000000e1 * t4205;
5857   t4208 = t771 * t1551 * t826;
5858   t4209 = t615 * t4208;
5859   t4210 = 0.55663875000000000000e1 * t4209;
5860   t4212 = t304 * t1556 * t826;
5861   t4213 = t615 * t4212;
5862   t4214 = 0.61848750000000000000e0 * t4213;
5863   t4215 = t3962 * t2244;
5864   t4216 = t1883 * t4215;
5865   t4217 = 0.15101552267946798163e2 * t4216;
5866   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5867     v3rhosigma2[6] = -t1547 + t1549 - t1555 - t1560 + t1567 + t10 * (-t4204 - t4027 + t4206 + t3987 - t4210 - t3973 - t4214 - t3980 + t4217 + t3993);
5868 
5869   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5870     v3rhosigma2[7] = 0.0e0;
5871 
5872   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5873     v3rhosigma2[8] = 0.0e0;
5874 
5875   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5876     v3rhosigma2[9] = 0.0e0;
5877 
5878   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5879     v3rhosigma2[10] = 0.0e0;
5880 
5881   t4220 = t1634 * t342;
5882   t4222 = t1032 * t4220 * t191;
5883   t4223 = t408 * t4222;
5884   t4224 = 0.55663875000000000000e1 * t4223;
5885   t4225 = t1329 * t414;
5886   t4227 = t412 * t4225 * t191;
5887   t4228 = t408 * t4227;
5888   t4229 = 0.61848750000000000000e0 * t4228;
5889   t4230 = t1307 * t1325;
5890   t4231 = 0.24739500000000000000e1 * t4230;
5891   t4232 = t4194 * t2586;
5892   t4233 = t2420 * t4232;
5893   t4234 = 0.15101552267946798163e2 * t4233;
5894   t4236 = t298 * t119 * t1627;
5895   t4237 = t4236 * t417;
5896   t4238 = 0.24739500000000000000e1 * t4237;
5897   t4239 = t3342 * t524;
5898   t4240 = 0.18554625000000000000e1 * t4239;
5899   t4241 = t1025 * t1637;
5900   t4242 = 0.41747906250000000000e1 * t4241;
5901   t4243 = t1025 * t1642;
5902   t4244 = 0.46386562500000000000e0 * t4243;
5903   t4245 = t516 * t1329;
5904   t4247 = t4245 * t121 * t1049;
5905   t4248 = t1045 * t4247;
5906   t4249 = 0.60406209071787192651e2 * t4248;
5907   t4250 = t4224 + t4229 - t4231 + t4234 - t4238 + t4240 - t4242 - t4244 - t4186 - t4192 + t4180 - t4249;
5908   t4251 = 0.1e1 / t130;
5909   t4253 = t521 * t4251 * t191;
5910   t4254 = t2623 * t4253;
5911   t4255 = t1316 * t4254;
5912   t4256 = 0.83495812500000000000e2 * t4255;
5913   t4257 = t1646 * t121;
5914   t4258 = t4257 * t191;
5915   t4259 = t2631 * t4258;
5916   t4260 = t1045 * t4259;
5917   t4261 = 0.23254840140139470986e0 * t4260;
5918   t4263 = t1647 * t121 * t1049;
5919   t4264 = t1045 * t4263;
5920   t4265 = 0.30203104535893596326e2 * t4264;
5921   t4266 = t402 * t1646;
5922   t4268 = t4266 * t183 * t1049;
5923   t4269 = t1045 * t4268;
5924   t4270 = 0.11326164200960098622e2 * t4269;
5925   t4272 = t516 * t1030 * t19;
5926   t4273 = t4272 * t1319;
5927   t4274 = t1316 * t4273;
5928   t4275 = 0.22265550000000000000e2 * t4274;
5929   t4282 = t1569 * t399;
5930   t4285 = t1601 * t379;
5931   t4298 = t2086 * t353;
5932   t4299 = t354 * t346;
5933   t4303 = 0.1e1 / t121 / t4299 * t36 * t2721;
5934   t4310 = t56 * t348;
5935   t4312 = t4310 * t36 * t959;
5936   t4315 = t236 * t367 * t156;
5937   t4316 = t1590 * t4315;
5938   t4318 = t1590 * t236;
5939   t4320 = t154 * t367 * t156;
5940   t4321 = t4318 * t4320;
5941   t4324 = t966 * t348 * t968;
5942   t4326 = t2755 * t132;
5943   t4327 = t4326 * t4315;
5944   t4329 = t4312 / 0.1296e4 + 0.5e1 / 0.10368e5 * t4316 - 0.5e1 / 0.5184e4 * t4321 - t4324 / 0.3888e4 + 0.5e1 / 0.31104e5 * t4327;
5945   t4332 = -t37 * t39 * t348 * t138 / 0.54e2 + 0.21e2 / 0.160e3 * t237 * t356 * sigma[2] * t138 - 0.81e2 / 0.3200e4 * t1581 * t1233 + 0.2187e4 / 0.2048000e7 * t4298 * t4303 + 0.4e1 * t496 * t1256 + 0.2e1 * t376 * t1597 + 0.2e1 * t159 * t4329;
5946   t4333 = t4332 * t178;
5947   t4335 = t1600 * t399;
5948   t4340 = t1259 * t513;
5949   t4343 = t499 * t1298;
5950   t4348 = params->c1 * t348;
5951   t4349 = t4348 * t984;
5952   t4351 = t988 * t367;
5953   t4352 = t1606 * t4351;
5954   t4356 = t3511 * t132 * t367 * t24;
5955   t4359 = t168 * t988 * t348;
5956   t4361 = 0.25e2 / 0.486e3 * t4349 - 0.125e3 / 0.1296e4 * t4352 - 0.625e3 / 0.11664e5 * t4356 + 0.125e3 / 0.729e3 * t4359;
5957   t4370 = t132 * t236;
5958   t4371 = t4370 * t1286;
5959   t4372 = t2800 * t4371;
5960   t4375 = t348 * t36 * t1002;
5961   t4376 = t1000 * t4375;
5962   t4378 = t2811 * t4371;
5963   t4380 = t1012 * t4375;
5964   t4382 = t2824 * t4371;
5965   t4385 = my_piecewise3(t167, t1612 * t391 * t173 + t1614 * t391 * t173 + 0.2e1 * t509 * t1280 + t4361 * t173, -0.125e3 / 0.1296e4 * t4372 + 0.25e2 / 0.486e3 * t4376 - 0.125e3 / 0.1296e4 * t4378 + 0.25e2 / 0.972e3 * t4380 - 0.125e3 / 0.7776e4 * t4382);
5966   t4388 = 0.6e1 * t2684 * t1570 * t379 - 0.4e1 * t910 * t500 * t1259 + 0.2e1 * t910 * t4282 - 0.2e1 * t910 * t4285 + t339 * t4333 - t339 * t4335 + 0.4e1 * t910 * t1603 * t379 - 0.2e1 * t339 * t4340 - 0.2e1 * t339 * t4343 - t339 * t379 * t1624 - t166 * t4385 + 0.1174e1 * t4385;
5967   t4389 = t4388 * t192;
5968   t4391 = t8 * t119 * t4389;
5969   t4392 = 0.3e1 / 0.8e1 * t4391;
5970   t4393 = 0.1e1 / t128;
5971   t4394 = t181 * t4393;
5972   t4395 = 0.1e1 / rho[1];
5973   t4397 = t4395 * t410 * t191;
5974   t4398 = t4394 * t4397;
5975   t4399 = t1316 * t4398;
5976   t4400 = 0.45424903023464625000e2 * t4399;
5977   t4401 = t3264 * t1311;
5978   t4402 = 0.24739500000000000000e1 * t4401;
5979   t4404 = t1032 * t1635 * t896;
5980   t4405 = t863 * t4404;
5981   t4406 = 0.55663875000000000000e1 * t4405;
5982   t4408 = t412 * t1640 * t896;
5983   t4409 = t863 * t4408;
5984   t4410 = 0.61848750000000000000e0 * t4409;
5985   t4412 = t313 * t4170 * t333;
5986   t4413 = t4412 / 0.2e1;
5987   t4414 = -t4256 + t4261 + t4265 + t4270 + t4275 + t4199 - t4392 - t4176 - t4400 + t4402 - t4406 - t4410 - t4413;
5988   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5989     v3rhosigma2[11] = -t1631 + t1633 - t1639 - t1644 + t1651 + t10 * (t4250 + t4414);
5990 
5991   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5992     v3rhosigmalapl[0] = 0.0e0;
5993 
5994   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5995     v3rhosigmalapl[1] = 0.0e0;
5996 
5997   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5998     v3rhosigmalapl[2] = 0.0e0;
5999 
6000   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6001     v3rhosigmalapl[3] = 0.0e0;
6002 
6003   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6004     v3rhosigmalapl[4] = 0.0e0;
6005 
6006   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6007     v3rhosigmalapl[5] = 0.0e0;
6008 
6009   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6010     v3rhosigmalapl[6] = 0.0e0;
6011 
6012   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6013     v3rhosigmalapl[7] = 0.0e0;
6014 
6015   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6016     v3rhosigmalapl[8] = 0.0e0;
6017 
6018   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6019     v3rhosigmalapl[9] = 0.0e0;
6020 
6021   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6022     v3rhosigmalapl[10] = 0.0e0;
6023 
6024   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6025     v3rhosigmalapl[11] = 0.0e0;
6026 
6027   t4418 = t3796 * t1702 / 0.2e1;
6028   t4419 = t15 * t1700;
6029   t4420 = t4419 * t207;
6030   t4423 = t446 * t264;
6031   t4424 = t1347 * t4423;
6032   t4429 = t3632 * t446;
6033   t4432 = t3636 * t446;
6034   t4435 = t1347 * t1107;
6035   t4438 = t644 * t443;
6036   t4441 = t1104 * t537;
6037   t4445 = t443 * t1363;
6038   t4452 = t1669 * t94;
6039   t4453 = t4452 * t264;
6040   t4456 = t261 * t1669;
6041   t4460 = -0.2e1 * t220 * t1656 * t285 + 0.2e1 * t220 * t4441 * t94 + 0.2e1 * t220 * t4445 * t94 + 0.2e1 * t220 * t4456 * t94 - 0.4e1 * t1346 * t4429 + 0.4e1 * t1346 * t4432 - 0.4e1 * t1346 * t4435 - 0.4e1 * t1346 * t4453 - 0.4e1 * t4438 * t1348 - 0.4e1 * t3629 * t1653 + 0.12e2 * t3625 * t4424;
6042   t4462 = t1662 * t4067;
6043   t4464 = t1662 * t236;
6044   t4465 = t4464 * t4072;
6045   t4468 = t2127 * t1661;
6046   t4469 = t4468 * t4067;
6047   t4471 = -0.13e2 / 0.2592e4 * t1508 - 0.5e1 / 0.1296e4 * t4462 + 0.5e1 / 0.648e3 * t4465 + 0.13e2 / 0.7776e4 * t1511 - 0.5e1 / 0.3888e4 * t4469;
6048   t4472 = t75 * t4471;
6049   t4479 = t537 * t460;
6050   t4480 = t4479 * t264;
6051   t4495 = t1107 * t554;
6052   t4497 = t446 * t1396;
6053   t4502 = t1679 * t4103;
6054   t4506 = t3103 * t1661 * t252 * t24;
6055   t4509 = -0.325e3 / 0.972e3 * t1523 + 0.125e3 / 0.162e3 * t4502 + 0.625e3 / 0.1458e4 * t4506 - 0.1625e4 / 0.1458e4 * t1526;
6056   t4513 = t1382 * t455;
6057   t4515 = t548 * t1128;
6058   t4519 = t1661 * t236;
6059   t4520 = t4519 * t1134;
6060   t4521 = t2172 * t4520;
6061   t4524 = t2183 * t4520;
6062   t4527 = t2198 * t4520;
6063   t4530 = my_piecewise3(t83, t1685 * t276 * t89 + t1687 * t277 + t4509 * t89 + t4513 * t89 + t4515 * t89, 0.125e3 / 0.162e3 * t4521 - 0.325e3 / 0.972e3 * t1535 + 0.125e3 / 0.162e3 * t4524 - 0.325e3 / 0.1944e4 * t1537 + 0.125e3 / 0.972e3 * t4527);
6064   t4533 = 0.2e1 * t220 * t4472 * t94 - 0.2e1 * t220 * t1670 * t285 + 0.4e1 * t1346 * t4480 - 0.2e1 * t220 * t1351 * t460 - 0.2e1 * t220 * t1364 * t460 - 0.2e1 * t220 * t538 * t1146 + 0.2e1 * t644 * t1677 * t264 - t220 * t4495 - t220 * t4497 - t220 * t264 * t1697 - t82 * t4530 + 0.1174e1 * t4530;
6065   t4534 = t4460 + t4533;
6066   t4536 = t531 * t4534 * t111;
6067   t4539 = t531 * t1700;
6068   t4540 = t1405 * t4539;
6069   t4544 = 0.12369750000000000000e1 * t3608 * t471;
6070   t4549 = t1404 * t3746;
6071   t4551 = t557 * t769 * t19;
6072   t4552 = t4551 * t1169;
6073   t4557 = t557 * t1179;
6074   t4559 = t4557 * t26 * t788;
6075   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6076     v3rhosigmatau[0] = -t4418 - t1341 * t4420 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t4536 - 0.24739500000000000000e1 * t4540 * t309 + t4544 + 0.12369750000000000000e1 * t3619 * t1159 + 0.92773125000000000000e0 * t3739 * t471 + 0.11132775000000000000e2 * t4549 * t4552 - 0.12369750000000000000e1 * t1407 * t1175 - 0.30203104535893596325e2 * t3747 * t4559;
6077 
6078   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6079     v3rhosigmatau[1] = 0.0e0;
6080 
6081   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6082     v3rhosigmatau[2] = 0.0e0;
6083 
6084   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6085     v3rhosigmatau[3] = 0.0e0;
6086 
6087   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6088     v3rhosigmatau[4] = 0.0e0;
6089 
6090   t4563 = t3796 * t1756 / 0.2e1;
6091   t4564 = t117 * t1754;
6092   t4565 = t4564 * t316;
6093   t4569 = 0.12369750000000000000e1 * t3805 * t524;
6094   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6095     v3rhosigmatau[5] = -t4563 - t1341 * t4565 / 0.2e1 + t4569 + 0.12369750000000000000e1 * t3809 * t1195;
6096 
6097   t4572 = t4419 * t328;
6098   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6099     v3rhosigmatau[6] = -t4418 - t1341 * t4572 / 0.2e1 + t4544 + 0.12369750000000000000e1 * t3619 * t1206;
6100 
6101   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6102     v3rhosigmatau[7] = 0.0e0;
6103 
6104   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6105     v3rhosigmatau[8] = 0.0e0;
6106 
6107   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6108     v3rhosigmatau[9] = 0.0e0;
6109 
6110   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6111     v3rhosigmatau[10] = 0.0e0;
6112 
6113   t4577 = t4564 * t333;
6114   t4580 = t499 * t379;
6115   t4581 = t1424 * t4580;
6116   t4586 = t3838 * t499;
6117   t4589 = t3842 * t499;
6118   t4592 = t1424 * t1259;
6119   t4595 = t910 * t496;
6120   t4598 = t1256 * t568;
6121   t4602 = t496 * t1440;
6122   t4609 = t1723 * t178;
6123   t4610 = t4609 * t379;
6124   t4613 = t376 * t1723;
6125   t4617 = -0.2e1 * t339 * t1710 * t399 + 0.2e1 * t339 * t4598 * t178 + 0.2e1 * t339 * t4602 * t178 + 0.2e1 * t339 * t4613 * t178 - 0.4e1 * t1423 * t4586 + 0.4e1 * t1423 * t4589 - 0.4e1 * t1423 * t4592 - 0.4e1 * t1423 * t4610 - 0.4e1 * t4595 * t1425 - 0.4e1 * t3835 * t1707 + 0.12e2 * t3831 * t4581;
6126   t4619 = t1716 * t4315;
6127   t4621 = t1716 * t236;
6128   t4622 = t4621 * t4320;
6129   t4625 = t2755 * t1715;
6130   t4626 = t4625 * t4315;
6131   t4628 = -0.13e2 / 0.2592e4 * t1592 - 0.5e1 / 0.1296e4 * t4619 + 0.5e1 / 0.648e3 * t4622 + 0.13e2 / 0.7776e4 * t1595 - 0.5e1 / 0.3888e4 * t4626;
6132   t4629 = t159 * t4628;
6133   t4636 = t568 * t513;
6134   t4637 = t4636 * t379;
6135   t4652 = t1259 * t585;
6136   t4654 = t499 * t1473;
6137   t4659 = t1733 * t4351;
6138   t4663 = t3511 * t1715 * t367 * t24;
6139   t4666 = -0.325e3 / 0.972e3 * t1607 + 0.125e3 / 0.162e3 * t4659 + 0.625e3 / 0.1458e4 * t4663 - 0.1625e4 / 0.1458e4 * t1610;
6140   t4670 = t1459 * t508;
6141   t4672 = t579 * t1280;
6142   t4676 = t1715 * t236;
6143   t4677 = t4676 * t1286;
6144   t4678 = t2800 * t4677;
6145   t4681 = t2811 * t4677;
6146   t4684 = t2824 * t4677;
6147   t4687 = my_piecewise3(t167, t1739 * t391 * t173 + t4666 * t173 + t4670 * t173 + t4672 * t173 + t1741 * t392, 0.125e3 / 0.162e3 * t4678 - 0.325e3 / 0.972e3 * t1619 + 0.125e3 / 0.162e3 * t4681 - 0.325e3 / 0.1944e4 * t1621 + 0.125e3 / 0.972e3 * t4684);
6148   t4690 = 0.2e1 * t339 * t4629 * t178 - 0.2e1 * t339 * t1724 * t399 + 0.4e1 * t1423 * t4637 - 0.2e1 * t339 * t1428 * t513 - 0.2e1 * t339 * t1441 * t513 - 0.2e1 * t339 * t569 * t1298 + 0.2e1 * t910 * t1731 * t379 - t339 * t4652 - t339 * t4654 - t339 * t379 * t1751 - t166 * t4687 + 0.1174e1 * t4687;
6149   t4691 = t4617 + t4690;
6150   t4693 = t562 * t4691 * t192;
6151   t4696 = t562 * t1754;
6152   t4697 = t1405 * t4696;
6153   t4704 = t1404 * t3952;
6154   t4706 = t588 * t1030 * t19;
6155   t4707 = t4706 * t1319;
6156   t4712 = t588 * t1329;
6157   t4714 = t4712 * t121 * t1049;
6158   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6159     v3rhosigmatau[11] = -t4563 - t1341 * t4577 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t4693 - 0.24739500000000000000e1 * t4697 * t417 + t4569 + 0.12369750000000000000e1 * t3809 * t1311 + 0.92773125000000000000e0 * t3945 * t524 + 0.11132775000000000000e2 * t4704 * t4707 - 0.12369750000000000000e1 * t1482 * t1325 - 0.30203104535893596325e2 * t3953 * t4714;
6160 
6161   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6162     v3rholapl2[0] = 0.0e0;
6163 
6164   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6165     v3rholapl2[1] = 0.0e0;
6166 
6167   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6168     v3rholapl2[2] = 0.0e0;
6169 
6170   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6171     v3rholapl2[3] = 0.0e0;
6172 
6173   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6174     v3rholapl2[4] = 0.0e0;
6175 
6176   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6177     v3rholapl2[5] = 0.0e0;
6178 
6179   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6180     v3rholapltau[0] = 0.0e0;
6181 
6182   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6183     v3rholapltau[1] = 0.0e0;
6184 
6185   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6186     v3rholapltau[2] = 0.0e0;
6187 
6188   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6189     v3rholapltau[3] = 0.0e0;
6190 
6191   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6192     v3rholapltau[4] = 0.0e0;
6193 
6194   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6195     v3rholapltau[5] = 0.0e0;
6196 
6197   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6198     v3rholapltau[6] = 0.0e0;
6199 
6200   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6201     v3rholapltau[7] = 0.0e0;
6202 
6203   t4717 = t3796 * t1807;
6204   t4719 = t15 * t1805;
6205   t4720 = t4719 * t207;
6206   t4723 = t2054 * t76;
6207   t4724 = t1766 * t264;
6208   t4730 = t644 * t76;
6209   t4731 = t1347 * t1363;
6210   t4741 = t1761 * t285;
6211   t4744 = t1776 * t94;
6212   t4745 = t4744 * t264;
6213   t4748 = t261 * t1776;
6214   t4755 = t1769 * t236;
6215   t4759 = t2127 * t777;
6216   t4762 = 0.5e1 / 0.162e3 * t1664 + 0.5e1 / 0.162e3 * t1769 * t4067 - 0.5e1 / 0.81e2 * t4755 * t4072 - 0.5e1 / 0.486e3 * t1667 + 0.5e1 / 0.486e3 * t4759 * t4067;
6217   t4763 = t75 * t4762;
6218   t4770 = t537 * t554;
6219   t4771 = t4770 * t264;
6220   t4793 = 0.500e3 / 0.243e3 * t1680 - 0.500e3 / 0.81e2 * t1784 * t4103 - 0.2500e4 / 0.729e3 * t3103 * t777 * t252 * t24 + 0.5000e4 / 0.729e3 * t1683;
6221   t4802 = t777 * t236;
6222   t4803 = t4802 * t1134;
6223   t4813 = my_piecewise3(t83, t1790 * t276 * t89 + t1792 * t276 * t89 + 0.2e1 * t549 * t1382 + t4793 * t89, -0.500e3 / 0.81e2 * t2172 * t4803 + 0.500e3 / 0.243e3 * t1692 - 0.500e3 / 0.81e2 * t2183 * t4803 + 0.250e3 / 0.243e3 * t1694 - 0.250e3 / 0.243e3 * t2198 * t4803);
6224   t4816 = 0.24e2 * t4723 * t4724 - 0.16e2 * t1346 * t1766 * t261 - 0.16e2 * t4730 * t4731 + 0.8e1 * t644 * t1762 * t285 - 0.4e1 * t644 * t4724 + 0.4e1 * t220 * t4731 - 0.2e1 * t220 * t4741 - 0.4e1 * t1346 * t4745 + 0.2e1 * t220 * t4748 * t94 + 0.2e1 * t220 * t4763 * t94 - 0.2e1 * t220 * t1777 * t285 + 0.8e1 * t1346 * t4771 - 0.4e1 * t220 * t1351 * t554 - 0.4e1 * t220 * t1364 * t554 - 0.4e1 * t220 * t538 * t1396 - t220 * t264 * t1802 - t82 * t4813 + 0.1174e1 * t4813;
6225   t4818 = t531 * t4816 * t111;
6226   t4821 = t531 * t1805;
6227   t4822 = t1405 * t4821;
6228   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6229     v3rhotau2[0] = -t4717 / 0.2e1 - t1341 * t4720 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t4818 - 0.24739500000000000000e1 * t4822 * t309;
6230 
6231   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6232     v3rhotau2[1] = 0.0e0;
6233 
6234   t4825 = t3796 * t1856;
6235   t4826 = t117 * t1854;
6236   t4827 = t4826 * t316;
6237   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6238     v3rhotau2[2] = -t1341 * t4827 / 0.2e1 - t4825 / 0.2e1;
6239 
6240   t4830 = t4719 * t328;
6241   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6242     v3rhotau2[3] = -t1341 * t4830 / 0.2e1 - t4717 / 0.2e1;
6243 
6244   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6245     v3rhotau2[4] = 0.0e0;
6246 
6247   t4834 = t4826 * t333;
6248   t4837 = t2684 * t160;
6249   t4838 = t1815 * t379;
6250   t4844 = t910 * t160;
6251   t4845 = t1424 * t1440;
6252   t4855 = t1810 * t399;
6253   t4858 = t1825 * t178;
6254   t4859 = t4858 * t379;
6255   t4862 = t376 * t1825;
6256   t4869 = t1818 * t236;
6257   t4873 = t2755 * t1038;
6258   t4876 = 0.5e1 / 0.162e3 * t1718 + 0.5e1 / 0.162e3 * t1818 * t4315 - 0.5e1 / 0.81e2 * t4869 * t4320 - 0.5e1 / 0.486e3 * t1721 + 0.5e1 / 0.486e3 * t4873 * t4315;
6259   t4877 = t159 * t4876;
6260   t4884 = t568 * t585;
6261   t4885 = t4884 * t379;
6262   t4907 = 0.500e3 / 0.243e3 * t1734 - 0.500e3 / 0.81e2 * t1833 * t4351 - 0.2500e4 / 0.729e3 * t3511 * t1038 * t367 * t24 + 0.5000e4 / 0.729e3 * t1737;
6263   t4916 = t1038 * t236;
6264   t4917 = t4916 * t1286;
6265   t4927 = my_piecewise3(t167, t1839 * t391 * t173 + t1841 * t391 * t173 + 0.2e1 * t580 * t1459 + t4907 * t173, -0.500e3 / 0.81e2 * t2800 * t4917 + 0.500e3 / 0.243e3 * t1746 - 0.500e3 / 0.81e2 * t2811 * t4917 + 0.250e3 / 0.243e3 * t1748 - 0.250e3 / 0.243e3 * t2824 * t4917);
6266   t4930 = 0.24e2 * t4837 * t4838 - 0.16e2 * t1423 * t1815 * t376 - 0.16e2 * t4844 * t4845 + 0.8e1 * t910 * t1811 * t399 - 0.4e1 * t910 * t4838 + 0.4e1 * t339 * t4845 - 0.2e1 * t339 * t4855 - 0.4e1 * t1423 * t4859 + 0.2e1 * t339 * t4862 * t178 + 0.2e1 * t339 * t4877 * t178 - 0.2e1 * t339 * t1826 * t399 + 0.8e1 * t1423 * t4885 - 0.4e1 * t339 * t1428 * t585 - 0.4e1 * t339 * t1441 * t585 - 0.4e1 * t339 * t569 * t1473 - t339 * t379 * t1851 - t166 * t4927 + 0.1174e1 * t4927;
6267   t4932 = t562 * t4930 * t192;
6268   t4935 = t562 * t1854;
6269   t4936 = t1405 * t4935;
6270   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6271     v3rhotau2[5] = -t4825 / 0.2e1 - t1341 * t4834 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t4932 - 0.24739500000000000000e1 * t4936 * t417;
6272 
6273   t4939 = t1485 * t446;
6274   t4940 = t4939 * t94;
6275   t4946 = t1485 * t460;
6276   t4955 = t2086 * t41;
6277   t4959 = 0.1e1 / t26 / t2078 * t36 * t2093;
6278   t4964 = t56 * t429;
6279   t4965 = t4964 * t2114;
6280   t4967 = t4964 * t2118;
6281   t4969 = t429 * t236;
6282   t4971 = t2127 * t4969 * t72;
6283   t4973 = -0.5e1 / 0.82944e5 * t4965 + 0.5e1 / 0.41472e5 * t4967 - 0.5e1 / 0.248832e6 * t4971;
6284   t4976 = -0.27e2 / 0.1280e4 * t237 * t429 * t52 + 0.729e3 / 0.102400e6 * t668 * sigma[0] * t1501 - 0.6561e4 / 0.16384000e8 * t4955 * t4959 + 0.6e1 * t443 * t1513 + 0.2e1 * t75 * t4973;
6285   t4977 = t4976 * t94;
6286   t4979 = t1516 * t460;
6287   t4982 = t446 * t1540;
6288   t4985 = params->c1 * t429;
6289   t4986 = t4985 * t725;
6290   t4990 = t1120 * t750 * t429 * t24;
6291   t4992 = 0.125e3 / 0.10368e5 * t4986 + 0.625e3 / 0.93312e5 * t4990;
6292   t4994 = t1528 * t455;
6293   t4997 = t1530 * t455;
6294   t5000 = t4969 * t91;
6295   t5001 = t2172 * t5000;
6296   t5003 = t2183 * t5000;
6297   t5005 = t2198 * t5000;
6298   t5008 = my_piecewise3(t83, t4992 * t89 + 0.3e1 * t4994 * t89 + t4997 * t89, 0.125e3 / 0.10368e5 * t5001 + 0.125e3 / 0.10368e5 * t5003 + 0.125e3 / 0.62208e5 * t5005);
6299   t5011 = 0.6e1 * t2054 * t4940 - 0.6e1 * t644 * t447 * t1516 + 0.6e1 * t644 * t4946 + t220 * t4977 - 0.3e1 * t220 * t4979 - 0.3e1 * t220 * t4982 - t82 * t5008 + 0.1174e1 * t5008;
6300   t5012 = t5011 * t111;
6301   t5015 = 0.3e1 / 0.8e1 * t8 * t18 * t5012;
6302   t5017 = 0.27831937500000000000e1 * t3967 * t471;
6303   t5019 = 0.12524371875000000000e2 * t1155 * t1553;
6304   t5021 = 0.13915968750000000000e1 * t1155 * t1558;
6305   t5022 = t463 * t1562;
6306   t5024 = t5022 * t102 * t788;
6307   t5026 = 0.33978492602880295866e2 * t784 * t5024;
6308   t5028 = t1179 * t1911 * t110;
6309   t5029 = t1917 * t5028;
6310   t5031 = 0.31310929687500000000e2 * t1166 * t5029;
6311   t5032 = t4145 * t29;
6312   t5034 = t771 * t5032 * t110;
6313   t5036 = 0.62621859375000000000e1 * t300 * t5034;
6314   t5038 = 0.1e1 / t101 / t238;
6315   t5039 = t5038 * t102;
6316   t5040 = t5039 * t110;
6317   t5041 = t1925 * t5040;
6318   t5043 = 0.87205650525523016199e-1 * t784 * t5041;
6319   t5044 = t1562 * t103;
6320   t5046 = t304 * t5044 * t110;
6321   t5048 = 0.69579843750000000000e0 * t300 * t5046;
6322   t5049 = t97 * t5038;
6323   t5051 = t5049 * t102 * t788;
6324   t5053 = 0.33978492602880295866e2 * t784 * t5051;
6325   t5054 = 0.1e1 / t238;
6326   t5056 = t5054 * t302 * t110;
6327   t5059 = 0.17034338633799234375e2 * t2033 * t201 * t5056;
6328   t5060 = -t5015 + t5017 - t5019 - t5021 + t5026 + t5031 + t5036 - t5043 + t5048 - t5053 + t5059;
6329   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6330     v3sigma3[0] = t10 * t5060;
6331 
6332   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6333     v3sigma3[1] = 0.0e0;
6334 
6335   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6336     v3sigma3[2] = 0.0e0;
6337 
6338   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6339     v3sigma3[3] = 0.0e0;
6340 
6341   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6342     v3sigma3[4] = 0.0e0;
6343 
6344   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6345     v3sigma3[5] = 0.0e0;
6346 
6347   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6348     v3sigma3[6] = 0.0e0;
6349 
6350   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6351     v3sigma3[7] = 0.0e0;
6352 
6353   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6354     v3sigma3[8] = 0.0e0;
6355 
6356   t5061 = t1569 * t499;
6357   t5062 = t5061 * t178;
6358   t5068 = t1569 * t513;
6359   t5077 = t2086 * t128;
6360   t5081 = 0.1e1 / t121 / t2708 * t36 * t2721;
6361   t5086 = t56 * t482;
6362   t5087 = t5086 * t2742;
6363   t5089 = t5086 * t2746;
6364   t5091 = t482 * t236;
6365   t5093 = t2755 * t5091 * t156;
6366   t5095 = -0.5e1 / 0.82944e5 * t5087 + 0.5e1 / 0.41472e5 * t5089 - 0.5e1 / 0.248832e6 * t5093;
6367   t5098 = -0.27e2 / 0.1280e4 * t237 * t482 * t138 + 0.729e3 / 0.102400e6 * t668 * sigma[2] * t1585 - 0.6561e4 / 0.16384000e8 * t5077 * t5081 + 0.6e1 * t496 * t1597 + 0.2e1 * t159 * t5095;
6368   t5099 = t5098 * t178;
6369   t5101 = t1600 * t513;
6370   t5104 = t499 * t1624;
6371   t5107 = params->c1 * t482;
6372   t5108 = t5107 * t988;
6373   t5112 = t1272 * t1011 * t482 * t24;
6374   t5114 = 0.125e3 / 0.10368e5 * t5108 + 0.625e3 / 0.93312e5 * t5112;
6375   t5116 = t1612 * t508;
6376   t5119 = t1614 * t508;
6377   t5122 = t5091 * t175;
6378   t5123 = t2800 * t5122;
6379   t5125 = t2811 * t5122;
6380   t5127 = t2824 * t5122;
6381   t5130 = my_piecewise3(t167, t5114 * t173 + 0.3e1 * t5116 * t173 + t5119 * t173, 0.125e3 / 0.10368e5 * t5123 + 0.125e3 / 0.10368e5 * t5125 + 0.125e3 / 0.62208e5 * t5127);
6382   t5133 = 0.6e1 * t2684 * t5062 - 0.6e1 * t910 * t500 * t1600 + 0.6e1 * t910 * t5068 + t339 * t5099 - 0.3e1 * t339 * t5101 - 0.3e1 * t339 * t5104 - t166 * t5130 + 0.1174e1 * t5130;
6383   t5134 = t5133 * t192;
6384   t5137 = 0.3e1 / 0.8e1 * t8 * t119 * t5134;
6385   t5139 = 0.27831937500000000000e1 * t4236 * t524;
6386   t5141 = 0.12524371875000000000e2 * t1307 * t1637;
6387   t5143 = 0.13915968750000000000e1 * t1307 * t1642;
6388   t5144 = t516 * t1646;
6389   t5146 = t5144 * t183 * t1049;
6390   t5148 = 0.33978492602880295866e2 * t1045 * t5146;
6391   t5150 = t1329 * t2617 * t191;
6392   t5151 = t2623 * t5150;
6393   t5153 = 0.31310929687500000000e2 * t1316 * t5151;
6394   t5154 = t4393 * t124;
6395   t5156 = t1032 * t5154 * t191;
6396   t5158 = 0.62621859375000000000e1 * t408 * t5156;
6397   t5160 = 0.1e1 / t182 / t353;
6398   t5161 = t5160 * t183;
6399   t5162 = t5161 * t191;
6400   t5163 = t2631 * t5162;
6401   t5165 = 0.87205650525523016199e-1 * t1045 * t5163;
6402   t5166 = t1646 * t184;
6403   t5168 = t412 * t5166 * t191;
6404   t5170 = 0.69579843750000000000e0 * t408 * t5168;
6405   t5171 = t181 * t5160;
6406   t5173 = t5171 * t183 * t1049;
6407   t5175 = 0.33978492602880295866e2 * t1045 * t5173;
6408   t5176 = 0.1e1 / t353;
6409   t5178 = t5176 * t410 * t191;
6410   t5181 = 0.17034338633799234375e2 * t2838 * t314 * t5178;
6411   t5182 = -t5137 + t5139 - t5141 - t5143 + t5148 + t5153 + t5158 - t5165 + t5170 - t5175 + t5181;
6412   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6413     v3sigma3[9] = t10 * t5182;
6414 
6415   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6416     v3sigma2lapl[0] = 0.0e0;
6417 
6418   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6419     v3sigma2lapl[1] = 0.0e0;
6420 
6421   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6422     v3sigma2lapl[2] = 0.0e0;
6423 
6424   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6425     v3sigma2lapl[3] = 0.0e0;
6426 
6427   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6428     v3sigma2lapl[4] = 0.0e0;
6429 
6430   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6431     v3sigma2lapl[5] = 0.0e0;
6432 
6433   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6434     v3sigma2lapl[6] = 0.0e0;
6435 
6436   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6437     v3sigma2lapl[7] = 0.0e0;
6438 
6439   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6440     v3sigma2lapl[8] = 0.0e0;
6441 
6442   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6443     v3sigma2lapl[9] = 0.0e0;
6444 
6445   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6446     v3sigma2lapl[10] = 0.0e0;
6447 
6448   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6449     v3sigma2lapl[11] = 0.0e0;
6450 
6451   t5183 = t1347 * t1485;
6452   t5188 = t4452 * t446;
6453   t5191 = t4479 * t446;
6454   t5194 = t1347 * t1516;
6455   t5197 = t1513 * t537;
6456   t5201 = t443 * t1669;
6457   t5208 = t56 * t1918;
6458   t5209 = t5208 * t2114;
6459   t5211 = t5208 * t2118;
6460   t5213 = t1918 * t236;
6461   t5215 = t2127 * t5213 * t72;
6462   t5217 = 0.5e1 / 0.10368e5 * t5209 - 0.5e1 / 0.5184e4 * t5211 + 0.5e1 / 0.31104e5 * t5215;
6463   t5218 = t75 * t5217;
6464   t5228 = t1485 * t554;
6465   t5231 = t1516 * t554;
6466   t5233 = t446 * t1697;
6467   t5236 = params->c1 * t1918;
6468   t5237 = t5236 * t725;
6469   t5241 = t1120 * t750 * t1918 * t24;
6470   t5243 = -0.125e3 / 0.1296e4 * t5237 - 0.625e3 / 0.11664e5 * t5241;
6471   t5245 = t1685 * t455;
6472   t5248 = t548 * t1528;
6473   t5250 = t548 * t1530;
6474   t5253 = t5213 * t91;
6475   t5254 = t2172 * t5253;
6476   t5256 = t2183 * t5253;
6477   t5258 = t2198 * t5253;
6478   t5261 = my_piecewise3(t83, t5243 * t89 + 0.2e1 * t5245 * t89 + t5248 * t89 + t5250 * t89, -0.125e3 / 0.1296e4 * t5254 - 0.125e3 / 0.1296e4 * t5256 - 0.125e3 / 0.7776e4 * t5258);
6479   t5264 = 0.12e2 * t3625 * t5183 - 0.8e1 * t4438 * t1653 - 0.8e1 * t1346 * t5188 + 0.8e1 * t1346 * t5191 - 0.4e1 * t1346 * t5194 + 0.2e1 * t220 * t5197 * t94 + 0.4e1 * t220 * t5201 * t94 - 0.4e1 * t220 * t1656 * t460 + 0.2e1 * t220 * t5218 * t94 - 0.4e1 * t220 * t1670 * t460 - 0.2e1 * t220 * t538 * t1540 + 0.2e1 * t644 * t5228 - t220 * t5231 - 0.2e1 * t220 * t5233 - t82 * t5261 + 0.1174e1 * t5261;
6480   t5266 = t531 * t5264 * t111;
6481   t5275 = t557 * t1562;
6482   t5277 = t5275 * t102 * t788;
6483   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6484     v3sigma2tau[0] = -0.3e1 / 0.8e1 * t530 * t5266 + 0.18554625000000000000e1 * t4540 * t471 - 0.41747906250000000000e1 * t1407 * t1553 - 0.46386562500000000000e0 * t1407 * t1558 + 0.11326164200960098622e2 * t3747 * t5277;
6485 
6486   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6487     v3sigma2tau[1] = 0.0e0;
6488 
6489   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6490     v3sigma2tau[2] = 0.0e0;
6491 
6492   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6493     v3sigma2tau[3] = 0.0e0;
6494 
6495   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6496     v3sigma2tau[4] = 0.0e0;
6497 
6498   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6499     v3sigma2tau[5] = 0.0e0;
6500 
6501   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6502     v3sigma2tau[6] = 0.0e0;
6503 
6504   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6505     v3sigma2tau[7] = 0.0e0;
6506 
6507   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6508     v3sigma2tau[8] = 0.0e0;
6509 
6510   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6511     v3sigma2tau[9] = 0.0e0;
6512 
6513   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6514     v3sigma2tau[10] = 0.0e0;
6515 
6516   t5280 = t1424 * t1569;
6517   t5285 = t4609 * t499;
6518   t5288 = t4636 * t499;
6519   t5291 = t1424 * t1600;
6520   t5294 = t1597 * t568;
6521   t5298 = t496 * t1723;
6522   t5305 = t56 * t2624;
6523   t5306 = t5305 * t2742;
6524   t5308 = t5305 * t2746;
6525   t5310 = t2624 * t236;
6526   t5312 = t2755 * t5310 * t156;
6527   t5314 = 0.5e1 / 0.10368e5 * t5306 - 0.5e1 / 0.5184e4 * t5308 + 0.5e1 / 0.31104e5 * t5312;
6528   t5315 = t159 * t5314;
6529   t5325 = t1569 * t585;
6530   t5328 = t1600 * t585;
6531   t5330 = t499 * t1751;
6532   t5333 = params->c1 * t2624;
6533   t5334 = t5333 * t988;
6534   t5338 = t1272 * t1011 * t2624 * t24;
6535   t5340 = -0.125e3 / 0.1296e4 * t5334 - 0.625e3 / 0.11664e5 * t5338;
6536   t5342 = t1739 * t508;
6537   t5345 = t579 * t1612;
6538   t5347 = t579 * t1614;
6539   t5350 = t5310 * t175;
6540   t5351 = t2800 * t5350;
6541   t5353 = t2811 * t5350;
6542   t5355 = t2824 * t5350;
6543   t5358 = my_piecewise3(t167, t5340 * t173 + 0.2e1 * t5342 * t173 + t5345 * t173 + t5347 * t173, -0.125e3 / 0.1296e4 * t5351 - 0.125e3 / 0.1296e4 * t5353 - 0.125e3 / 0.7776e4 * t5355);
6544   t5361 = 0.12e2 * t3831 * t5280 - 0.8e1 * t4595 * t1707 - 0.8e1 * t1423 * t5285 + 0.8e1 * t1423 * t5288 - 0.4e1 * t1423 * t5291 + 0.2e1 * t339 * t5294 * t178 + 0.4e1 * t339 * t5298 * t178 - 0.4e1 * t339 * t1710 * t513 + 0.2e1 * t339 * t5315 * t178 - 0.4e1 * t339 * t1724 * t513 - 0.2e1 * t339 * t569 * t1624 + 0.2e1 * t910 * t5325 - t339 * t5328 - 0.2e1 * t339 * t5330 - t166 * t5358 + 0.1174e1 * t5358;
6545   t5363 = t562 * t5361 * t192;
6546   t5372 = t588 * t1646;
6547   t5374 = t5372 * t183 * t1049;
6548   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6549     v3sigma2tau[11] = -0.3e1 / 0.8e1 * t530 * t5363 + 0.18554625000000000000e1 * t4697 * t524 - 0.41747906250000000000e1 * t1482 * t1637 - 0.46386562500000000000e0 * t1482 * t1642 + 0.11326164200960098622e2 * t3953 * t5374;
6550 
6551   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6552     v3sigmalapl2[0] = 0.0e0;
6553 
6554   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6555     v3sigmalapl2[1] = 0.0e0;
6556 
6557   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6558     v3sigmalapl2[2] = 0.0e0;
6559 
6560   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6561     v3sigmalapl2[3] = 0.0e0;
6562 
6563   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6564     v3sigmalapl2[4] = 0.0e0;
6565 
6566   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6567     v3sigmalapl2[5] = 0.0e0;
6568 
6569   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6570     v3sigmalapl2[6] = 0.0e0;
6571 
6572   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6573     v3sigmalapl2[7] = 0.0e0;
6574 
6575   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6576     v3sigmalapl2[8] = 0.0e0;
6577 
6578   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6579     v3sigmalapltau[0] = 0.0e0;
6580 
6581   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6582     v3sigmalapltau[1] = 0.0e0;
6583 
6584   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6585     v3sigmalapltau[2] = 0.0e0;
6586 
6587   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6588     v3sigmalapltau[3] = 0.0e0;
6589 
6590   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6591     v3sigmalapltau[4] = 0.0e0;
6592 
6593   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6594     v3sigmalapltau[5] = 0.0e0;
6595 
6596   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6597     v3sigmalapltau[6] = 0.0e0;
6598 
6599   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6600     v3sigmalapltau[7] = 0.0e0;
6601 
6602   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6603     v3sigmalapltau[8] = 0.0e0;
6604 
6605   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6606     v3sigmalapltau[9] = 0.0e0;
6607 
6608   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6609     v3sigmalapltau[10] = 0.0e0;
6610 
6611   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6612     v3sigmalapltau[11] = 0.0e0;
6613 
6614   t5377 = t1766 * t446;
6615   t5380 = t1766 * t443;
6616   t5383 = t1347 * t1669;
6617   t5393 = t1761 * t460;
6618   t5396 = t4744 * t446;
6619   t5399 = t443 * t1776;
6620   t5403 = t56 * t2931;
6621   t5404 = t5403 * t2114;
6622   t5406 = t5403 * t2118;
6623   t5408 = t2931 * t236;
6624   t5410 = t2127 * t5408 * t72;
6625   t5412 = -0.5e1 / 0.1296e4 * t5404 + 0.5e1 / 0.648e3 * t5406 - 0.5e1 / 0.3888e4 * t5410;
6626   t5413 = t75 * t5412;
6627   t5420 = t4770 * t446;
6628   t5432 = t446 * t1802;
6629   t5434 = params->c1 * t2931;
6630   t5435 = t5434 * t725;
6631   t5439 = t1120 * t750 * t2931 * t24;
6632   t5441 = 0.125e3 / 0.162e3 * t5435 + 0.625e3 / 0.1458e4 * t5439;
6633   t5443 = t1790 * t455;
6634   t5447 = t1792 * t455;
6635   t5450 = t5408 * t91;
6636   t5451 = t2172 * t5450;
6637   t5453 = t2183 * t5450;
6638   t5455 = t2198 * t5450;
6639   t5458 = my_piecewise3(t83, 0.2e1 * t549 * t1685 + t5441 * t89 + t5443 * t89 + t5447 * t89, 0.125e3 / 0.162e3 * t5451 + 0.125e3 / 0.162e3 * t5453 + 0.125e3 / 0.972e3 * t5455);
6640   t5461 = 0.24e2 * t4723 * t5377 - 0.16e2 * t1346 * t5380 - 0.16e2 * t4730 * t5383 + 0.8e1 * t644 * t1762 * t460 - 0.4e1 * t644 * t5377 + 0.4e1 * t220 * t5383 - 0.2e1 * t220 * t5393 - 0.4e1 * t1346 * t5396 + 0.2e1 * t220 * t5399 * t94 + 0.2e1 * t220 * t5413 * t94 - 0.2e1 * t220 * t1777 * t460 + 0.8e1 * t1346 * t5420 - 0.4e1 * t220 * t1656 * t554 - 0.4e1 * t220 * t1670 * t554 - 0.4e1 * t220 * t538 * t1697 - t220 * t5432 - t82 * t5458 + 0.1174e1 * t5458;
6641   t5463 = t531 * t5461 * t111;
6642   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6643     v3sigmatau2[0] = -0.3e1 / 0.8e1 * t530 * t5463 + 0.92773125000000000000e0 * t4822 * t471;
6644 
6645   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6646     v3sigmatau2[1] = 0.0e0;
6647 
6648   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6649     v3sigmatau2[2] = 0.0e0;
6650 
6651   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6652     v3sigmatau2[3] = 0.0e0;
6653 
6654   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6655     v3sigmatau2[4] = 0.0e0;
6656 
6657   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6658     v3sigmatau2[5] = 0.0e0;
6659 
6660   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6661     v3sigmatau2[6] = 0.0e0;
6662 
6663   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6664     v3sigmatau2[7] = 0.0e0;
6665 
6666   t5468 = t1815 * t499;
6667   t5471 = t1815 * t496;
6668   t5474 = t1424 * t1723;
6669   t5484 = t1810 * t513;
6670   t5487 = t4858 * t499;
6671   t5490 = t496 * t1825;
6672   t5494 = t56 * t3389;
6673   t5495 = t5494 * t2742;
6674   t5497 = t5494 * t2746;
6675   t5499 = t3389 * t236;
6676   t5501 = t2755 * t5499 * t156;
6677   t5503 = -0.5e1 / 0.1296e4 * t5495 + 0.5e1 / 0.648e3 * t5497 - 0.5e1 / 0.3888e4 * t5501;
6678   t5504 = t159 * t5503;
6679   t5511 = t4884 * t499;
6680   t5523 = t499 * t1851;
6681   t5525 = params->c1 * t3389;
6682   t5526 = t5525 * t988;
6683   t5530 = t1272 * t1011 * t3389 * t24;
6684   t5532 = 0.125e3 / 0.162e3 * t5526 + 0.625e3 / 0.1458e4 * t5530;
6685   t5534 = t1839 * t508;
6686   t5538 = t1841 * t508;
6687   t5541 = t5499 * t175;
6688   t5542 = t2800 * t5541;
6689   t5544 = t2811 * t5541;
6690   t5546 = t2824 * t5541;
6691   t5549 = my_piecewise3(t167, t5532 * t173 + t5534 * t173 + t5538 * t173 + 0.2e1 * t580 * t1739, 0.125e3 / 0.162e3 * t5542 + 0.125e3 / 0.162e3 * t5544 + 0.125e3 / 0.972e3 * t5546);
6692   t5552 = 0.24e2 * t4837 * t5468 - 0.16e2 * t1423 * t5471 - 0.16e2 * t4844 * t5474 + 0.8e1 * t910 * t1811 * t513 - 0.4e1 * t910 * t5468 + 0.4e1 * t339 * t5474 - 0.2e1 * t339 * t5484 - 0.4e1 * t1423 * t5487 + 0.2e1 * t339 * t5490 * t178 + 0.2e1 * t339 * t5504 * t178 - 0.2e1 * t339 * t1826 * t513 + 0.8e1 * t1423 * t5511 - 0.4e1 * t339 * t1710 * t585 - 0.4e1 * t339 * t1724 * t585 - 0.4e1 * t339 * t569 * t1751 - t339 * t5523 - t166 * t5549 + 0.1174e1 * t5549;
6693   t5554 = t562 * t5552 * t192;
6694   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6695     v3sigmatau2[8] = -0.3e1 / 0.8e1 * t530 * t5554 + 0.92773125000000000000e0 * t4936 * t524;
6696 
6697   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6698     v3lapl3[0] = 0.0e0;
6699 
6700   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6701     v3lapl3[1] = 0.0e0;
6702 
6703   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6704     v3lapl3[2] = 0.0e0;
6705 
6706   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6707     v3lapl3[3] = 0.0e0;
6708 
6709   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6710     v3lapl2tau[0] = 0.0e0;
6711 
6712   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6713     v3lapl2tau[1] = 0.0e0;
6714 
6715   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6716     v3lapl2tau[2] = 0.0e0;
6717 
6718   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6719     v3lapl2tau[3] = 0.0e0;
6720 
6721   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6722     v3lapl2tau[4] = 0.0e0;
6723 
6724   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6725     v3lapl2tau[5] = 0.0e0;
6726 
6727   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6728     v3lapltau2[0] = 0.0e0;
6729 
6730   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6731     v3lapltau2[1] = 0.0e0;
6732 
6733   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6734     v3lapltau2[2] = 0.0e0;
6735 
6736   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6737     v3lapltau2[3] = 0.0e0;
6738 
6739   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6740     v3lapltau2[4] = 0.0e0;
6741 
6742   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6743     v3lapltau2[5] = 0.0e0;
6744 
6745   t5559 = t76 * t75;
6746   t5560 = t1761 * t537;
6747   t5561 = t5559 * t5560;
6748   t5565 = t75 * t5560;
6749   t5569 = t1347 * t1776;
6750   t5577 = t1761 * t554;
6751   t5580 = t56 * t4005;
6752   t5585 = t4005 * t236;
6753   t5589 = 0.5e1 / 0.162e3 * t5580 * t2114 - 0.5e1 / 0.81e2 * t5580 * t2118 + 0.5e1 / 0.486e3 * t2127 * t5585 * t72;
6754   t5590 = t75 * t5589;
6755   t5600 = params->c1 * t4005;
6756   t5607 = -0.500e3 / 0.81e2 * t5600 * t725 - 0.2500e4 / 0.729e3 * t1120 * t750 * t4005 * t24;
6757   t5609 = t1790 * t548;
6758   t5612 = t1792 * t548;
6759   t5615 = t5585 * t91;
6760   t5623 = my_piecewise3(t83, t5607 * t89 + 0.3e1 * t5609 * t89 + t5612 * t89, -0.500e3 / 0.81e2 * t2172 * t5615 - 0.500e3 / 0.81e2 * t2183 * t5615 - 0.250e3 / 0.243e3 * t2198 * t5615);
6761   t5626 = 0.48e2 * t2054 * t5561 * t94 - 0.24e2 * t644 * t5565 * t94 - 0.24e2 * t4730 * t5569 + 0.24e2 * t644 * t1762 * t554 + 0.6e1 * t220 * t5569 - 0.6e1 * t220 * t5577 + 0.2e1 * t220 * t5590 * t94 - 0.6e1 * t220 * t1777 * t554 - 0.6e1 * t220 * t538 * t1802 - t82 * t5623 + 0.1174e1 * t5623;
6762   t5628 = t531 * t5626 * t111;
6763   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6764     v3tau3[0] = -0.3e1 / 0.8e1 * t530 * t5628;
6765 
6766   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6767     v3tau3[1] = 0.0e0;
6768 
6769   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6770     v3tau3[2] = 0.0e0;
6771 
6772   t5631 = t160 * t159;
6773   t5632 = t1810 * t568;
6774   t5633 = t5631 * t5632;
6775   t5637 = t159 * t5632;
6776   t5641 = t1424 * t1825;
6777   t5649 = t1810 * t585;
6778   t5652 = t56 * t4251;
6779   t5657 = t4251 * t236;
6780   t5661 = 0.5e1 / 0.162e3 * t5652 * t2742 - 0.5e1 / 0.81e2 * t5652 * t2746 + 0.5e1 / 0.486e3 * t2755 * t5657 * t156;
6781   t5662 = t159 * t5661;
6782   t5672 = params->c1 * t4251;
6783   t5679 = -0.500e3 / 0.81e2 * t5672 * t988 - 0.2500e4 / 0.729e3 * t1272 * t1011 * t4251 * t24;
6784   t5681 = t1839 * t579;
6785   t5684 = t1841 * t579;
6786   t5687 = t5657 * t175;
6787   t5695 = my_piecewise3(t167, t5679 * t173 + 0.3e1 * t5681 * t173 + t5684 * t173, -0.500e3 / 0.81e2 * t2800 * t5687 - 0.500e3 / 0.81e2 * t2811 * t5687 - 0.250e3 / 0.243e3 * t2824 * t5687);
6788   t5698 = 0.48e2 * t2684 * t5633 * t178 - 0.24e2 * t910 * t5637 * t178 - 0.24e2 * t4844 * t5641 + 0.24e2 * t910 * t1811 * t585 + 0.6e1 * t339 * t5641 - 0.6e1 * t339 * t5649 + 0.2e1 * t339 * t5662 * t178 - 0.6e1 * t339 * t1826 * t585 - 0.6e1 * t339 * t569 * t1851 - t166 * t5695 + 0.1174e1 * t5695;
6789   t5700 = t562 * t5698 * t192;
6790   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6791     v3tau3[3] = -0.3e1 / 0.8e1 * t530 * t5700;
6792 
6793 #ifndef XC_DONT_COMPILE_LXC
6794 
6795   if(order < 4) return;
6796 
6797 
6798   t5714 = 0.83124720000000000000e3 * t1864 - 0.76967333333333333333e2 * t1869 + 0.69270600000000000000e2 * t1871 + 0.23090200000000000000e2 * t1873 - 0.11874960000000000000e3 * t1875 - 0.29687400000000000000e2 * t1879 - 0.35624880000000000000e3 * t1881 + 0.12886657935314601099e4 * t1889 + 0.65972000000000000000e1 * t1893 - 0.19791600000000000000e2 * t1897 + 0.32216644838286502748e3 * t1902;
6799   t5725 = t288 * t1915 * t1909;
6800   t5737 = t2952 * t1921;
6801   t5744 = t1901 * t1928;
6802   t5746 = t531 * t630;
6803   t5747 = t5 * t5746;
6804   t5748 = t5747 * t789;
6805   t5750 = t1901 * t1932;
6806   t5754 = t100 * t110;
6807   t5764 = t288 * t19 * t38;
6808   t5768 = 0.48324967257429754121e3 * t784 * t758 * t468 * t786 * t788 - 0.23749920000000000000e4 * t1166 * t5725 * t1920 + 0.10291428212230410600e4 * t784 * t785 * t29 * t788 - 0.96649934514859508241e3 * t784 * t1904 * t61 * t788 - 0.79166400000000000000e3 * t5737 + 0.83124720000000000000e4 * t1166 * t1917 * t1178 * t429 * t110 + 0.22049033614354461380e1 * t5744 - 0.10738881612762167582e3 * t5748 - 0.32216644838286502747e3 * t5750 + 0.17527082181762906534e4 * t784 * t97 * t103 * t1550 * t5754 - 0.88196134457417845518e1 * t784 * t1925 * t468 * t29 * t110 + 0.66147100843063384139e1 * t784 * t5764 * t1927;
6809   t5769 = t1901 * t1906;
6810   t5773 = t217 / t2052 / t77;
6811   t5774 = t645 * t645;
6812   t5784 = t711 * t711;
6813   t5798 = 0.1e1 / t27 / t227;
6814   t5799 = sigma[0] * t5798;
6815   t5803 = 0.1e1 / t26 / t240;
6816   t5819 = t2089 * rho[0];
6817   t5827 = t235 * t235;
6818   t5829 = t2085 * t35 / t5827;
6819   t5837 = t708 * t708;
6820   t5847 = 0.6160e4 / 0.81e2 * tau[0] * t1860 - 0.2618e4 / 0.81e2 * t5799;
6821   t5856 = t687 * t687;
6822   t5864 = t691 * t691;
6823   t5866 = t56 * t5864 * t236;
6824   t5868 = t23 * t72;
6825   t5869 = t68 * t19 * t5868;
6826   t5873 = t701 * t19 * t5868;
6827   t5888 = t56 * t2181;
6828   t5890 = t236 * t19;
6829   t5891 = t5890 * t5868;
6830   t5894 = 0.9163e4 / 0.65610e5 * t57 * t48 * t5798 - t56 * t5847 * t254 / 0.180e3 - t2106 * t36 * t1094 / 0.27e2 + 0.5e1 / 0.27e2 * t688 * t3049 - t56 * t5856 * t36 * t695 / 0.36e2 - 0.10e2 / 0.27e2 * t688 * t236 * t3058 + 0.125e3 / 0.1458e4 * t5866 * t5869 - 0.125e3 / 0.2187e4 * t5866 * t5873 + t257 * t5847 * t254 / 0.180e3 + t702 * t2105 * t1101 / 0.81e2 + t702 * t5856 * t705 / 0.108e3 + 0.5e1 / 0.81e2 * t2127 * t687 * t3049 + 0.25e2 / 0.4374e4 * t5888 * t5864 * t5891;
6831   t5923 = t750 * t19 * t23;
6832   t5926 = t2182 * t5864;
6833   t5930 = t691 * t19;
6834   t5949 = t732 * t732;
6835   t5955 = t734 * t734;
6836   t5959 = t236 * t91;
6837   t5960 = t5959 * t24;
6838   t5963 = t3048 * t2177;
6839   t5971 = t5856 * t36 * t739;
6840   t5977 = t704 * t91 * t2105;
6841   t5981 = 0.1e1 / t749 / t701;
6842   t5998 = t747 * t747;
6843   t5999 = params->d * t5998;
6844   t6000 = t749 * t749;
6845   t6001 = 0.1e1 / t6000;
6846   t6006 = -0.10000e5 / 0.729e3 * t278 * t5926 * t5960 - 0.1000e4 / 0.27e2 * t2172 * t5963 - 0.5000e4 / 0.243e3 * t748 * t2197 * t5864 * t5960 - 0.50e2 / 0.27e2 * t737 * t5971 - 0.1000e4 / 0.27e2 * t2183 * t5963 - 0.200e3 / 0.81e2 * t2176 * t5977 - 0.5000e4 / 0.729e3 * t2195 * t5981 * t5864 * t5960 - 0.5e1 / 0.9e1 * t279 * t5847 * t19 * t281 - 0.100e3 / 0.81e2 * t748 * t750 * t2105 * t1135 - 0.25e2 / 0.27e2 * t751 * t5971 - 0.500e3 / 0.81e2 * t2198 * t5963 - 0.1250e4 / 0.2187e4 * t5999 * t6001 * t5864 * t5960;
6847   t6007 = my_piecewise3(t83, (-0.5e1 / 0.9e1 * params->c1 * t5847 * t86 - 0.200e3 / 0.81e2 * t2144 * t36 * t273 - 0.1000e4 / 0.27e2 * t717 * t726 - 0.50e2 / 0.27e2 * params->c1 * t5856 * t721 - 0.10000e5 / 0.729e3 * params->c1 * t5864 * t236 * t5923 - 0.50000e5 / 0.6561e4 * t1120 * t5926 * t704 - 0.5000e4 / 0.243e3 * t3103 * t5930 * t23 * t687 - 0.500e3 / 0.81e2 * t84 * t725 * t5856 - 0.2000e4 / 0.243e3 * t1120 * t2157 * t2105 - 0.25e2 / 0.81e2 * t270 * t272 * t5847) * t89 + 0.4e1 * t2164 * t276 * t89 + 0.3e1 * t5949 * t89 + 0.6e1 * t732 * t734 * t89 + t5955 * t89, t6006);
6848   t6010 = -0.24e2 * t5773 * t5774 * t94 + 0.36e2 * t2054 * t646 * t711 - 0.24e2 * t2054 * t2055 * t285 - 0.6e1 * t644 * t5784 * t94 + 0.24e2 * t644 * t714 * t711 - 0.8e1 * t644 * t265 * t2135 + 0.12e2 * t644 * t645 * t755 + t220 * (0.26180e5 / 0.19683e5 * t24 * t5799 + 0.5225e4 / 0.1458e4 * t40 * t41 * t5803 * t52 - 0.5929e4 / 0.288e3 * t237 * t238 / t671 * t52 + 0.2949e4 / 0.640e3 * t670 / t27 / t4051 * t19 * t675 - 0.1053e4 / 0.3200e4 * t2088 / t26 / t5819 * t36 * t2093 + 0.6561e4 / 0.160000e6 * t5829 * t669 * t41 / t2089 / t42 * t52 + 0.6e1 * t5837 + 0.8e1 * t261 * t2132 + 0.2e1 * t75 * t5894) * t94 - 0.4e1 * t220 * t2135 * t285 - 0.6e1 * t220 * t711 * t755 - 0.4e1 * t220 * t264 * t2202 - t82 * t6007 + 0.1174e1 * t6007;
6849   t6015 = t1892 * t773;
6850   t6017 = t1892 * t780;
6851   t6019 = t639 * t1868;
6852   t6026 = t1896 * t780;
6853   t6028 = t639 * t1863;
6854   t6035 = t298 * t18 * t2205;
6855   t6039 = t298 * t213 * t758;
6856   t6040 = t6039 * t309;
6857   t6043 = t298 * t631 * t288;
6858   t6044 = t6043 * t309;
6859   t6048 = 0.32216644838286502748e3 * t5769 - 0.3e1 / 0.8e1 * t8 * t18 * t6010 * t111 + 0.39583200000000000000e2 * t6015 - 0.76967333333333333334e1 * t6017 - 0.25655777777777777777e2 * t6019 + 0.83381277777777777776e2 * t300 * t304 * t101 * t45 * t110 + 0.23090200000000000000e2 * t6026 + 0.27708240000000000000e3 * t6028 - 0.14085022000000000000e4 * t300 * t771 * t5799 * t110 - 0.98958000000000000000e1 * t6035 * t309 - 0.98958000000000000000e1 * t6040 + 0.65972000000000000000e1 * t6044 - 0.76967333333333333333e2 * t764 * t1868;
6860   t6052 = t1886 * t624;
6861   t6056 = t1926 * t19;
6862   t6062 = t1915 * t1909;
6863   t6063 = t6062 * t1178;
6864   t6064 = t1918 * t110;
6865   t6069 = t19 * t38;
6866   t6070 = t6069 * t468;
6867   t6071 = t61 * t110;
6868   t6076 = t8 * t2025;
6869   t6077 = t6076 * t1888;
6870   t6079 = t8 * t2029;
6871   t6083 = t298 * t2048 * t97;
6872   t6084 = t6083 * t309;
6873   t6093 = t8 * t2017;
6874   t6094 = t1886 * t601;
6875   t6098 = 0.34635300000000000000e2 * t1878 * t780 + 0.64433289676573005494e3 * t1883 * t1885 * t6052 - 0.12886657935314601099e4 * t1883 * t6056 * t1887 + 0.83124720000000000000e3 * t764 * t1863 - 0.31666560000000000000e4 * t615 * t6063 * t6064 * t206 + 0.88196134457417845519e1 * t1883 * t6070 * t6071 * t206 + 0.42955526451048670329e3 * t6077 + 0.12886657935314601099e4 * t6079 * t1888 - 0.36651111111111111111e1 * t6084 - 0.64604306522260800000e3 * t300 * t45 * t769 * t110 * t2340 - 0.17812440000000000000e3 * t1878 * t773 + 0.21477763225524335164e3 * t6093 * t1885 * t6094;
6876   t6099 = t1896 * t773;
6877   t6102 = t8 * t213 * t2206;
6878   t6105 = t8 * t631 * t759;
6879   t6108 = t8 * t2048 * t289;
6880   t6113 = 0.10e2 / 0.27e2 * t8 * t118 * t2271 * t193;
6881   t6117 = 0.10e2 / 0.27e2 * t8 * t16 * t2271 * t112;
6882   t6118 = t624 * t206;
6883   t6124 = t297 * t199 * t17;
6884   t6125 = t97 * t2034;
6885   t6126 = t302 * t110;
6886   t6127 = t6126 * t206;
6887   t6132 = t298 * t2024 * t288;
6888   t6133 = t6132 * t618;
6889   t6135 = t2026 * t2008;
6890   t6145 = t2026 * t2012;
6891   t6147 = -0.11874960000000000000e3 * t6099 - t6102 / 0.2e1 + t6105 / 0.2e1 - 0.5e1 / 0.9e1 * t6108 + t6113 + t6117 - 0.13194400000000000000e2 * t2339 * t2340 * t2341 * t6118 - 0.17227815072602880000e4 * t6124 * t6125 * t6127 - 0.26388800000000000000e2 * t6133 - 0.13194400000000000000e2 * t6135 + 0.46180400000000000000e2 * t615 * t304 * t778 * t2006 - 0.79166400000000000000e2 * t2018 * t771 * t651 * t2019 - 0.15833280000000000000e3 * t6145;
6892   t6152 = t2026 * t2003;
6893   t6164 = 0.1e1 / t106 / t704 / t46 * t1909 / 0.36e2;
6894   t6176 = t298 * t613 * t758;
6895   t6181 = t110 * t1954;
6896   t6187 = t298 * t2016 * t288;
6897   t6198 = -0.47499840000000000000e3 * t2030 * t2012 + 0.30786933333333333333e2 * t6152 - 0.10262311111111111111e3 * t615 * t304 * t1866 * t616 + 0.92360800000000000000e2 * t2030 * t2003 - 0.27708240000000000000e4 * t300 * t6164 * t41 * t5803 * t110 * t100 + 0.11083296000000000000e4 * t615 * t771 * t1861 * t616 - 0.39583200000000000000e2 * t6176 * t618 - 0.39583200000000000000e2 * t2030 * t2008 - 0.13194400000000000000e2 * t615 * t304 * t307 * t6181 - 0.13194400000000000000e2 * t6187 * t2021 - 0.23749920000000000000e3 * t615 * t771 * t651 * t2006 + 0.15393466666666666667e2 * t2018 * t304 * t778 * t2019;
6898   t6201 = t298 * t15 * t630 * t97;
6899   t6202 = t6201 * t618;
6900   t6204 = t1987 * t17;
6901   t6206 = t298 * t6204 * t97;
6902   t6207 = t110 * t1990;
6903   t6212 = t598 * t212;
6904   t6214 = t298 * t6212 * t97;
6905   t6215 = t6214 * t2021;
6906   t6218 = t795 * t801 * t2040;
6907   t6245 = t600 * t606 * t2044;
6908   t6248 = t2033 * t606 * t2036;
6909   t6253 = 0.87962666666666666668e1 * t6202 + 0.29320888888888888889e1 * t6206 * t304 * t307 * t6207 - 0.43981333333333333333e1 * t6215 - 0.2e1 / 0.3e1 * t6218 - 0.2e1 / 0.3e1 * t795 * t314 * t1943 * t315 - 0.2e1 * t600 * t610 * t2044 + 0.2e1 / 0.3e1 * t1989 * t201 * t602 * t624 + 0.12920861304452160000e4 * t2033 * t201 * t1911 * t302 * t110 + 0.2e1 / 0.3e1 * t1977 * t314 * t797 * t805 - 0.2e1 / 0.3e1 * t600 * t201 * t1955 * t206 - 0.2e1 / 0.3e1 * t6245 - 0.43069537681507200000e3 * t6248 - 0.12920861304452160000e4 * t2033 * t610 * t2036;
6910   t6255 = t805 * t805;
6911   t6260 = t14 * t14;
6912   t6264 = t5 * t7 / t597 / t6260;
6913   t6265 = t601 * t601;
6914   t6271 = t1989 * t606 * t1991;
6915   t6274 = t600 * t1998 * t602;
6916   t6276 = t624 * t624;
6917   t6282 = t795 * t1970 * t797;
6918   t6284 = t116 * t116;
6919   t6288 = t5 * t7 / t792 / t6284;
6920   t6289 = t796 * t796;
6921   t6295 = t1977 * t801 * t1979;
6922   t6298 = t200 * t606 * t1955;
6923   t6304 = t600 * t1964 * t602;
6924   t6307 = t200 * t1998 * t625;
6925   t6309 = -t795 * t314 * t192 * t6255 / 0.2e1 - 0.5e1 / 0.27e2 * t6264 * t201 * t111 * t6265 + 0.4e1 / 0.27e2 * t6271 + 0.2e1 / 0.9e1 * t6274 - t600 * t201 * t111 * t6276 / 0.2e1 + 0.2e1 / 0.9e1 * t6282 - 0.5e1 / 0.27e2 * t6288 * t314 * t192 * t6289 + 0.4e1 / 0.27e2 * t6295 - 0.2e1 / 0.3e1 * t6298 + 0.4e1 / 0.9e1 * t1989 * t610 * t1991 - 0.2e1 / 0.3e1 * t6304 + 0.2e1 / 0.3e1 * t6307;
6926   t6310 = t1938 * t10;
6927   t6312 = t9 / t6310;
6928   t6314 = -0.12e2 * t1939 + 0.12e2 * t6312;
6929   t6319 = t833 * t207;
6930   t6320 = t200 * t6319;
6931   t6328 = t630 * t288;
6932   t6330 = t200 * t6328 * t207;
6933   t6332 = t848 * t316;
6934   t6333 = t313 * t6332;
6935   t6336 = t313 * t801 * t1943;
6936   t6343 = t212 * t758;
6937   t6345 = t200 * t6343 * t207;
6938   t6347 = t17 * t2205;
6939   t6352 = t313 * t1970 * t806;
6940   t6357 = t200 * t1964 * t625;
6941   t6359 = -t200 * t201 * t111 * t6314 / 0.2e1 - 0.20e2 / 0.27e2 * t6320 - 0.3e1 * t200 * t1947 * t625 - 0.2e1 * t200 * t610 * t1955 + 0.4e1 / 0.3e1 * t6330 - 0.20e2 / 0.27e2 * t6333 - 0.2e1 / 0.3e1 * t6336 + t313 * t314 * t192 * t6314 / 0.2e1 - 0.2e1 * t6345 - 0.2e1 * t200 * t6347 * t207 + 0.2e1 / 0.3e1 * t6352 - t600 * t1947 * t602 - 0.2e1 * t6357;
6942   t6370 = 0.96649934514859508243e3 * t1907 - 0.23749920000000000000e4 * t1922 + 0.66147100843063384139e1 * t1929 - 0.96649934514859508241e3 * t1933 + t10 * (t5768 + t6048 + t6098 + t6147 + t6198 + t6253 + t6309 + t6359) - 0.2e1 * t1936 - 0.2e1 * t1945 - 0.6e1 * t1949 - 0.6e1 * t1952 - 0.2e1 * t1957 - 0.2e1 * t1960;
6943   t6383 = -0.4e1 * t1966 - 0.2e1 * t1968 + 0.4e1 / 0.3e1 * t1972 + 0.4e1 / 0.9e1 * t1981 - 0.2e1 / 0.3e1 * t1984 + 0.4e1 / 0.9e1 * t1993 - 0.2e1 / 0.3e1 * t1996 + 0.4e1 / 0.3e1 * t2000 + 0.92360800000000000000e2 * t2004 - 0.39583200000000000000e2 * t2009 - 0.47499840000000000000e3 * t2013;
6944   t6390 = 0.5e1 / 0.9e1 * t2050;
6945   t6393 = 0.5e1 / 0.9e1 * t2218;
6946   t6394 = -0.13194400000000000000e2 * t2022 - 0.26388800000000000000e2 * t2027 - 0.79166400000000000000e2 * t2031 - 0.12920861304452160000e4 * t2038 - 0.2e1 * t2042 - 0.2e1 * t2046 - t6390 - 0.3e1 / 0.2e1 * t2208 - 0.3e1 / 0.2e1 * t2211 + t2214 - t6393;
6947   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6948     v4rho4[0] = t5714 + t6370 + t6383 + t6394;
6949 
6950   t6403 = t2576 + 0.32216644838286502747e3 * t2246 + t1865 - t1870 + t1872 + 0.11545100000000000000e2 * t1873 - 0.59374800000000000000e2 * t1875 - t1880 - t1882 + t1890 + 0.49479000000000000000e1 * t1893 - 0.98958000000000000000e1 * t1897 + 0.16108322419143251374e3 * t1902 + t1908 - t1923 + t1930 - t1934 + t2648 - t2257 / 0.2e1;
6951   t6411 = -t2261 - 0.3e1 * t2265 + t2649 + 0.7e1 / 0.2e1 * t2274 - 0.3e1 / 0.2e1 * t2277 - 0.7e1 / 0.2e1 * t2281 - t2284 - 0.3e1 / 0.2e1 * t2287 - t1936 - t1946 - t1950 - t1953 - t1958 - t1961 - 0.2e1 * t1966 - t1968 + t1972 + t1982 - t1984 / 0.3e1;
6952   t6415 = 0.65972000000000000000e1 * t2309;
6953   t6419 = 0.65972000000000000000e1 * t2328;
6954   t6442 = t8 * t2316;
6955   t6443 = t1886 * t9;
6956   t6448 = t298 * t2216 * t181;
6957   t6449 = t6448 * t417;
6958   t6451 = t6076 * t2245;
6959   t6457 = -0.19791600000000000000e3 * t5737 + 0.55122584035886153449e0 * t5744 - 0.53694408063810837911e2 * t5748 - 0.80541612095716256867e2 * t5750 + 0.80541612095716256868e2 * t5769 - 0.79166400000000000000e3 * t615 * t6063 * t6064 * t327 + 0.22049033614354461380e1 * t1883 * t6070 * t6071 * t327 - 0.98958000000000000000e1 * t2317 * t309 - 0.32216644838286502746e3 * t1883 * t6056 * t2244 + 0.32216644838286502747e3 * t6442 * t1885 * t6443 - 0.91627777777777777779e0 * t6449 + 0.10738881612762167582e3 * t6451 + 0.32216644838286502747e3 * t6079 * t2245 + 0.19791600000000000000e2 * t6015 - 0.38483666666666666666e1 * t6017;
6960   t6475 = t298 * t2016 * t1167;
6961   t6477 = t650 * t110;
6962   t6482 = -0.64139444444444444443e1 * t6019 + 0.57725500000000000000e1 * t6026 + 0.69270600000000000000e2 * t6028 - 0.24739500000000000000e1 * t6040 + 0.32985999999999999999e1 * t6044 + 0.10738881612762167582e3 * t6077 - 0.27488333333333333333e1 * t6084 - 0.29687400000000000000e2 * t6099 - t6102 / 0.8e1 + t6105 / 0.4e1 - 0.5e1 / 0.12e2 * t6108 + t6113 + t6117 + 0.76967333333333333332e1 * t2339 * t2340 * t777 * t110 * t2342 - 0.39583199999999999999e2 * t6475 * t24 * sigma[0] * t6477 * t2342;
6963   t6484 = t805 * t315;
6964   t6491 = t298 * t2016 * t288 * t302;
6965   t6494 = t327 * t624;
6966   t6500 = t298 * t6204 * t2337;
6967   t6501 = t327 * t601;
6968   t6507 = t298 * t6212 * t2337;
6969   t6508 = t6507 * t2344;
6970   t6512 = t298 * t598 * t832 * t2337;
6971   t6513 = t9 * t206;
6972   t6518 = t6126 * t327;
6973   t6523 = t5 * t1988 * t17;
6974   t6529 = t5 * t1976 * t17;
6975   t6530 = t332 * t805;
6976   t6535 = t1975 * t17;
6977   t6537 = t298 * t6535 * t181;
6978   t6538 = t191 * t1978;
6979   t6543 = t793 * t212;
6980   t6545 = t298 * t6543 * t181;
6981   t6546 = t6545 * t2301;
6982   t6556 = t2026 * t2312;
6983   t6560 = -0.32985999999999999999e1 * t2455 * t2456 * t2457 * t6484 - 0.65972000000000000000e1 * t6491 * t2344 - 0.32985999999999999999e1 * t2339 * t2340 * t2341 * t6494 + 0.21990666666666666666e1 * t6500 * t2340 * t2341 * t6501 - 0.21990666666666666666e1 * t6508 - 0.65972000000000000000e1 * t6512 * t2340 * t2341 * t6513 - 0.43069537681507199998e3 * t6124 * t6125 * t6518 + t6523 * t112 * t6494 * t206 / 0.3e1 + t6529 * t193 * t6530 * t315 / 0.3e1 + 0.73302222222222222220e0 * t6537 * t412 * t415 * t6538 - 0.10995333333333333333e1 * t6546 + 0.27708240000000000000e3 * t615 * t771 * t1861 * t826 - 0.11874960000000000000e3 * t2317 * t771 * t651 * t2318 + 0.76967333333333333332e1 * t6556 + 0.23090200000000000000e2 * t2030 * t2312;
6984   t6561 = t2308 * t2325;
6985   t6565 = t298 * t117 * t630 * t181;
6986   t6566 = t6565 * t866;
6987   t6568 = t2026 * t2333;
6988   t6571 = t298 * t2315 * t288;
6989   t6574 = t6201 * t828;
6990   t6576 = t15 * t2271;
6991   t6578 = t298 * t6576 * t97;
6992   t6579 = t6578 * t2320;
6993   t6581 = t6132 * t828;
6994   t6585 = t191 * t1942;
6995   t6598 = t1886 * t2342;
6996   t6607 = -0.32985999999999999999e1 * t6561 + 0.21990666666666666666e1 * t6566 - 0.39583199999999999999e2 * t6568 - 0.19791600000000000000e2 * t6571 * t2320 + 0.21990666666666666666e1 * t6574 + 0.23090200000000000000e2 * t6579 - 0.65972000000000000000e1 * t6581 - 0.98958000000000000000e1 * t6176 * t828 - 0.32986000000000000000e1 * t863 * t412 * t415 * t6585 - 0.25655777777777777778e2 * t615 * t304 * t1866 * t826 + 0.23090200000000000000e2 * t2317 * t304 * t778 * t2318 + 0.10738881612762167582e3 * t6093 * t1885 * t6598 - 0.11874960000000000000e3 * t2030 * t2333 - 0.65972000000000000000e1 * t6133 - 0.32985999999999999999e1 * t6135 - 0.39583199999999999999e2 * t6145;
6997   t6614 = t8 * t2216 * t403;
6998   t6616 = t117 * t2271;
6999   t6618 = t8 * t6616 * t193;
7000   t6624 = t8 * t6576 * t112;
7001   t6631 = t1989 * t606 * t2365;
7002   t6638 = t600 * t606 * t2361;
7003   t6645 = t795 * t801 * t2383;
7004   t6652 = t795 * t2279 * t2387;
7005   t6654 = 0.76967333333333333331e1 * t6152 + 0.43981333333333333332e1 * t6202 - 0.10995333333333333333e1 * t6215 - 0.5e1 / 0.36e2 * t6614 - 0.5e1 / 0.2e1 * t6618 - 0.3e1 / 0.2e1 * t8 * t2315 * t289 + 0.5e1 / 0.2e1 * t6624 - 0.5e1 / 0.27e2 * t6264 * t201 * t328 * t1990 + t6631 / 0.9e1 + t1989 * t833 * t834 * t601 / 0.3e1 - t6638 / 0.6e1 - t600 * t833 * t834 * t624 / 0.2e1 - t6645 / 0.6e1 - t1977 * t848 * t849 * t796 / 0.3e1 - 0.7e1 / 0.6e1 * t6652;
7006   t6659 = t600 * t1964 * t816;
7007   t6662 = t795 * t1970 * t841;
7008   t6663 = t6662 / 0.9e1;
7009   t6672 = t1977 * t801 * t2376;
7010   t6675 = t600 * t2272 * t2372;
7011   t6690 = t600 * t1998 * t816;
7012   t6691 = t6690 / 0.9e1;
7013   t6702 = t1989 * t610 * t2365 / 0.3e1 - t6659 / 0.3e1 + t6663 - t795 * t854 * t2040 / 0.2e1 - 0.5e1 / 0.27e2 * t6288 * t314 * t333 * t1978 + t6672 / 0.9e1 + 0.7e1 / 0.6e1 * t6675 - t600 * t2263 * t2372 - t600 * t1947 * t816 / 0.2e1 - t600 * t610 * t2361 / 0.2e1 - t600 * t201 * t328 * t1954 / 0.6e1 + t6691 - t795 * t314 * t333 * t1942 / 0.6e1 + t795 * t848 * t849 * t805 / 0.2e1 - t6218 / 0.6e1 - t6245 / 0.6e1;
7014   t6706 = t200 * t6328 * t328;
7015   t6707 = t6706 / 0.3e1;
7016   t6709 = 0.1e1 / t211 / t1938;
7017   t6712 = t313 * t6709 * t181 * t849;
7018   t6715 = t313 * t2259 * t806;
7019   t6721 = t630 * t402;
7020   t6723 = t313 * t6721 * t316;
7021   t6724 = t6723 / 0.3e1;
7022   t6727 = t200 * t2271 * t288 * t834;
7023   t6729 = t833 * t328;
7024   t6730 = t200 * t6729;
7025   t6734 = t200 * t6709 * t97 * t834;
7026   t6738 = t848 * t333;
7027   t6739 = t313 * t6738;
7028   t6745 = t795 * t2259 * t797;
7029   t6748 = t200 * t6343 * t328;
7030   t6753 = -0.10767384420376800000e3 * t6248 + t6707 + 0.25e2 / 0.6e1 * t6712 - t6715 / 0.2e1 - 0.3e1 / 0.2e1 * t200 * t832 * t758 * t834 + t6724 + 0.7e1 / 0.2e1 * t6727 - 0.5e1 / 0.27e2 * t6730 - 0.25e2 / 0.6e1 * t6734 + t795 * t6332 / 0.2e1 - 0.5e1 / 0.27e2 * t6739 + t1977 * t854 * t1979 / 0.9e1 - t6745 / 0.6e1 - t6748 / 0.2e1 - t200 * t6347 * t328 / 0.2e1;
7031   t6773 = -t313 * t854 * t1943 / 0.2e1 - t600 * t6319 / 0.2e1 + t6271 / 0.27e2 + t6274 / 0.9e1 + t6282 / 0.9e1 + t6295 / 0.27e2 - t6298 / 0.6e1 - t6304 / 0.6e1 + t6307 / 0.3e1 - 0.5e1 / 0.9e1 * t6320 + 0.2e1 / 0.3e1 * t6330 - 0.5e1 / 0.9e1 * t6333 - t6336 / 0.6e1 - t6345 / 0.2e1 + t6352 / 0.3e1 - t6357 / 0.2e1;
7032   t6778 = t1994 - t1996 / 0.3e1 + t2000 - 0.32986000000000000000e1 * t2302 - t6415 + 0.23090200000000000000e2 * t2313 - 0.19791600000000000000e2 * t2321 + t2005 - 0.98958000000000000000e1 * t2326 - t6419 - 0.19791600000000000000e2 * t2330 - 0.11874960000000000000e3 * t2334 - t2010 - t2014 - t2023 - 0.13194400000000000000e2 * t2027 - t2032 - 0.65972000000000000000e1 * t2345 + t10 * (t6457 + t6482 + t6560 + t6607 + t6654 + t6702 + t6753 + t6773);
7033   t6783 = t2370 / 0.3e1;
7034   t6785 = t2381 / 0.3e1;
7035   t6789 = t2837 + 0.3e1 / 0.2e1 * t2352 - 0.3e1 / 0.2e1 * t2355 - t2359 - t2363 / 0.2e1 + t2367 / 0.3e1 - t6783 - t2374 + t2378 / 0.3e1 - t6785 - t2039 - t2043 - t2047 - t2385 / 0.2e1 + t2389 - t6390 - t2209 - 0.3e1 / 0.4e1 * t2211 + 0.3e1 / 0.4e1 * t2214 - t6393;
7036   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7037     v4rho4[1] = t6403 + t6411 + t6778 + t6789;
7038 
7039   t6811 = 0.32986000000000000000e1 * t2242 + 0.21477763225524335165e3 * t2246 - 0.19791600000000000000e2 * t2412 + 0.38483666666666666666e1 * t2414 - 0.32986000000000000000e1 * t2418 + 0.21477763225524335164e3 * t2426 + 0.38483666666666666667e1 * t1873 - 0.19791600000000000000e2 * t1875 + 0.32986000000000000000e1 * t1893 - 0.32986000000000000000e1 * t1897 + 0.53694408063810837912e2 * t1902 + 0.53694408063810837912e2 * t2431 - 0.2e1 / 0.3e1 * t2434 - t2437 / 0.3e1 - t2440 / 0.3e1 - t2443 / 0.9e1 - t2446 / 0.9e1 + 0.2e1 / 0.3e1 * t2254 - t2257 / 0.3e1 - 0.4e1 / 0.3e1 * t2261;
7040   t6828 = -t1968 / 0.3e1 + 0.2e1 / 0.3e1 * t1972 - t1984 / 0.9e1 - t1996 / 0.9e1 + 0.2e1 / 0.3e1 * t2000 + 0.2e1 * t2467 - t2472 - t2476 - t2479 / 0.3e1 - t2484 - t2489;
7041   t6851 = -0.13194400000000000000e2 * t2321 - 0.65972000000000000000e1 * t2326 - 0.87962666666666666667e1 * t2328 - 0.13194400000000000000e2 * t2330 - 0.79166400000000000000e2 * t2334 - 0.43981333333333333334e1 * t2027 - 0.43981333333333333334e1 * t2345 - t2525 / 0.4e1 + t2348 / 0.2e1 + t2352 - t2355;
7042   t6870 = t562 * t630;
7043   t6871 = t5 * t6870;
7044   t6872 = t6871 * t1050;
7045   t6875 = t1886 * t877;
7046   t6879 = t1886 * t883;
7047   t6883 = t8 * t2297;
7048   t6884 = t2423 * t796;
7049   t6888 = t8 * t2307;
7050   t6889 = t6888 * t2425;
7051   t6894 = t298 * t810 * t402;
7052   t6895 = t6894 * t417;
7053   t6897 = t2241 * t1041;
7054   t6899 = t2241 * t1034;
7055   t6901 = t2423 * t805;
7056   t6910 = -0.17898136021270279304e2 * t6872 - 0.17898136021270279304e2 * t5748 + 0.35796272042540558607e2 * t6093 * t1885 * t6875 + 0.10738881612762167582e3 * t1883 * t1885 * t6879 + 0.35796272042540558607e2 * t6883 * t2422 * t6884 + 0.71592544085081117215e2 * t6889 + 0.65972000000000000000e1 * t2516 * t417 + 0.10995333333333333333e1 * t6895 - 0.12827888888888888889e1 * t6897 + 0.65972000000000000000e1 * t6899 + 0.10738881612762167582e3 * t2420 * t2422 * t6901 - 0.18325555555555555555e1 * t6449 + 0.71592544085081117217e2 * t6451 + 0.65972000000000000000e1 * t6015 - 0.12827888888888888889e1 * t6017 + 0.10995333333333333333e1 * t6044;
7057   t6917 = t298 * t6616 * t181;
7058   t6918 = t6917 * t2519;
7059   t6929 = t298 * t2296 * t402;
7060   t6933 = t298 * t2306 * t402;
7061   t6934 = t6933 * t866;
7062   t6940 = t2308 * t2494;
7063   t6952 = t2026 * t2512;
7064   t6954 = t6214 * t2507;
7065   t6960 = t110 * t2486;
7066   t6965 = -0.18325555555555555556e1 * t6084 + 0.76967333333333333333e1 * t615 * t304 * t778 * t2510 - 0.15393466666666666666e2 * t6918 - 0.13194400000000000000e2 * t2298 * t1032 * t917 * t2299 + 0.25655777777777777777e1 * t2018 * t304 * t778 * t2505 - 0.21990666666666666667e1 * t6929 * t2301 - 0.43981333333333333334e1 * t6934 + 0.25655777777777777778e1 * t2298 * t412 * t1039 * t2299 + 0.51311555555555555555e1 * t6940 - 0.65972000000000000000e1 * t2498 * t2325 - 0.39583200000000000000e2 * t863 * t1032 * t917 * t2323 + 0.76967333333333333333e1 * t863 * t412 * t1039 * t2323 - 0.21990666666666666666e1 * t6952 - 0.73302222222222222221e0 * t6954 - 0.21990666666666666666e1 * t6187 * t2507 - 0.65972000000000000000e1 * t2030 * t2512 - 0.65972000000000000000e1 * t615 * t304 * t307 * t6960;
7067   t6967 = t2308 * t2502;
7068   t6969 = t6565 * t898;
7069   t6979 = t327 * t9;
7070   t6984 = t883 * t206;
7071   t6989 = t877 * t206;
7072   t6995 = t298 * t6535 * t2453;
7073   t6996 = t332 * t796;
7074   t7002 = t298 * t6543 * t2453;
7075   t7003 = t7002 * t2460;
7076   t7007 = t298 * t793 * t832 * t2453;
7077   t7008 = t9 * t315;
7078   t7026 = -0.26388800000000000000e2 * t6967 + 0.14660444444444444445e1 * t6969 - 0.13194400000000000000e2 * t2018 * t771 * t651 * t2505 - 0.39583200000000000000e2 * t615 * t771 * t651 * t2510 - 0.43981333333333333333e1 * t6512 * t2340 * t2341 * t6979 - 0.21990666666666666666e1 * t2339 * t2340 * t2341 * t6984 + 0.14660444444444444444e1 * t6500 * t2340 * t2341 * t6989 + 0.14660444444444444445e1 * t6995 * t2456 * t2457 * t6996 - 0.14660444444444444445e1 * t7003 + 0.43981333333333333334e1 * t7007 * t2456 * t2457 * t7008 + t6105 / 0.12e2 - 0.5e1 / 0.18e2 * t6108 + t6113 + t6117 - 0.21990666666666666667e1 * t2455 * t2456 * t2457 * t6530 - 0.14660444444444444444e1 * t6508 + 0.4e1 / 0.9e1 * t5 * t1988 * t832 * t112 * t2342 * t9;
7079   t7036 = t8 * t810 * t1020;
7080   t7057 = -0.4e1 / 0.9e1 * t5 * t1976 * t832 * t193 * t2458 * t9 + t8 * t2350 * t403 + t7036 / 0.12e2 - 0.73302222222222222223e0 * t6546 + 0.51311555555555555556e1 * t6556 - 0.21990666666666666667e1 * t6561 + 0.29320888888888888889e1 * t6566 - 0.26388800000000000000e2 * t6568 + 0.29320888888888888889e1 * t6574 - 0.43981333333333333334e1 * t6579 - 0.43981333333333333334e1 * t6581 + 0.14660444444444444444e1 * t6202 - 0.5e1 / 0.18e2 * t6614 + t6618 / 0.3e1 - t6624 / 0.3e1 - t600 * t610 * t2533 / 0.3e1 - t600 * t201 * t2487 * t206 / 0.3e1;
7081   t7065 = t795 * t801 * t2552;
7082   t7072 = t600 * t606 * t2533;
7083   t7087 = t795 * t2279 * t2541;
7084   t7107 = t600 * t2272 * t2529;
7085   t7116 = t1977 * t314 * t902 * t796 / 0.9e1 - t7065 / 0.9e1 + t1989 * t201 * t884 * t601 / 0.9e1 - t7072 / 0.9e1 + t1989 * t201 * t878 * t624 / 0.9e1 - t600 * t201 * t884 * t624 / 0.6e1 + t1977 * t314 * t889 * t805 / 0.9e1 - 0.7e1 / 0.9e1 * t7087 + 0.2e1 / 0.9e1 * t1989 * t610 * t2545 - t795 * t854 * t2383 / 0.3e1 + 0.2e1 / 0.3e1 * t795 * t2465 * t2387 - t795 * t314 * t2470 * t315 / 0.3e1 - t795 * t314 * t902 * t805 / 0.6e1 + 0.7e1 / 0.9e1 * t7107 - 0.2e1 / 0.3e1 * t600 * t2263 * t2529 - 0.5e1 / 0.27e2 * t6288 * t314 * t889 * t796;
7086   t7118 = t1977 * t801 * t2537;
7087   t7125 = t1989 * t606 * t2545;
7088   t7131 = t795 * t2259 * t841;
7089   t7149 = t600 * t1964 * t878;
7090   t7151 = 0.2e1 / 0.27e2 * t7118 - 0.5e1 / 0.27e2 * t6264 * t201 * t878 * t601 + 0.2e1 / 0.27e2 * t7125 + 0.2e1 / 0.9e1 * t1977 * t854 * t2376 - 0.2e1 / 0.9e1 * t7131 + 0.2e1 / 0.27e2 * t6631 - t6638 / 0.9e1 - t6645 / 0.9e1 + 0.2e1 / 0.9e1 * t6652 - 0.2e1 / 0.9e1 * t6659 + 0.4e1 / 0.27e2 * t6662 + 0.2e1 / 0.27e2 * t6672 - 0.2e1 / 0.9e1 * t6675 + 0.4e1 / 0.27e2 * t6690 - t313 * t2474 * t806 / 0.2e1 - t600 * t1947 * t878 / 0.6e1 - t7149 / 0.9e1;
7091   t7155 = t313 * t2271 * t402 * t849;
7092   t7158 = t313 * t801 * t2470;
7093   t7161 = t200 * t1964 * t884;
7094   t7164 = t200 * t606 * t2487;
7095   t7167 = 0.1e1 / t211 / t6310;
7096   t7169 = t9 * t9;
7097   t7184 = t212 * t1019;
7098   t7186 = t313 * t7184 * t316;
7099   t7189 = t600 * t1998 * t878;
7100   t7192 = t200 * t1998 * t884;
7101   t7195 = t795 * t1970 * t889;
7102   t7200 = t313 * t6721 * t333;
7103   t7203 = t313 * t1970 * t902;
7104   t7210 = -0.7e1 / 0.3e1 * t7155 - t7158 / 0.3e1 - t7161 / 0.3e1 - t7164 / 0.3e1 - t795 * t7167 * t181 * t192 * t7169 / 0.3e1 - t600 * t7167 * t97 * t111 * t7169 / 0.3e1 - t600 * t6729 / 0.3e1 - t795 * t2474 * t797 / 0.6e1 - t7186 / 0.3e1 + t7189 / 0.27e2 + t7192 / 0.9e1 + t7195 / 0.27e2 + t795 * t6738 / 0.3e1 + 0.2e1 / 0.9e1 * t7200 + t7203 / 0.9e1 - t200 * t1947 * t884 / 0.2e1 - t200 * t610 * t2487;
7105   t7228 = 0.4e1 / 0.9e1 * t6706 + 0.41e2 / 0.9e1 * t6712 - t6715 / 0.3e1 + 0.4e1 / 0.9e1 * t6723 - 0.2e1 / 0.3e1 * t6727 - 0.10e2 / 0.27e2 * t6730 - 0.41e2 / 0.9e1 * t6734 - 0.10e2 / 0.27e2 * t6739 - t6745 / 0.9e1 - t6748 / 0.3e1 + t6274 / 0.27e2 + t6282 / 0.27e2 + t6307 / 0.9e1 - 0.10e2 / 0.27e2 * t6320 + 0.2e1 / 0.9e1 * t6330 - 0.10e2 / 0.27e2 * t6333 + t6352 / 0.9e1;
7106   t7235 = -0.4e1 / 0.9e1 * t2370 - 0.2e1 / 0.3e1 * t2374 + 0.2e1 / 0.9e1 * t2378 - 0.4e1 / 0.9e1 * t2381 - t2385 / 0.3e1 + 0.2e1 / 0.3e1 * t2389 + t10 * (t6910 + t6965 + t7026 + t7057 + t7116 + t7151 + t7210 + t7228) - t6390 - t2211 / 0.4e1 + t2214 / 0.2e1 - t6393;
7107   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7108     v4rho4[2] = t7235 + t6851 + t6828 + t6811 + 0.2e1 / 0.9e1 * t2367 - t2554 / 0.3e1 - t2287 + 0.2e1 / 0.9e1 * t2547 - 0.2e1 / 0.3e1 * t2550 + 0.2e1 / 0.3e1 * t2543 + 0.2e1 / 0.9e1 * t2539 - 0.5e1 / 0.3e1 * t2281 - 0.4e1 / 0.3e1 * t2284 - t2535 / 0.3e1 - t2277 - 0.2e1 / 0.3e1 * t2531 + 0.5e1 / 0.3e1 * t2274 - 0.2e1 * t2265 + 0.2e1 / 0.3e1 * t2267 + 0.13194400000000000000e2 * t2520 - t2363 / 0.3e1 - 0.2e1 / 0.3e1 * t2359 - 0.65972000000000000000e1 * t2513 - 0.21990666666666666666e1 * t2508 - 0.79166400000000000000e2 * t2503 - 0.13194400000000000000e2 * t2499 - 0.43981333333333333334e1 * t2461 + 0.15393466666666666667e2 * t2495 - 0.43981333333333333334e1 * t2491 + 0.15393466666666666667e2 * t2313 - 0.21990666666666666667e1 * t2302 - 0.87962666666666666667e1 * t2309 - 0.2e1 / 0.3e1 * t1966 - t1936 / 0.3e1;
7109 
7110   t7243 = -t2566 + t2568 + t2575 + 0.49479000000000000000e1 * t2242 - 0.59374800000000000000e2 * t2412 + 0.11545100000000000000e2 * t2414 - 0.98958000000000000000e1 * t2418 + 0.32216644838286502748e3 * t2426 + t1894 - t2581 - t2585 + t2589 - t2593 - t2596 - t2602 - t2607 - t2610 + t2615 - t2629;
7111   t7245 = t2430 * t2638;
7112   t7247 = t2430 * t2613;
7113   t7249 = t3294 * t2627;
7114   t7251 = t2430 * t2634;
7115   t7254 = t2621 * t1909;
7116   t7255 = t7254 * t1328;
7117   t7256 = t2624 * t191;
7118   t7261 = t6069 * t521;
7119   t7262 = t145 * t191;
7120   t7267 = t8 * t2497;
7121   t7271 = t298 * t320 * t1019;
7122   t7272 = t7271 * t417;
7123   t7274 = t6888 * t2587;
7124   t7276 = t2417 * t1034;
7125   t7278 = t870 * t2573;
7126   t7280 = t870 * t2564;
7127   t7282 = t2417 * t1041;
7128   t7284 = t8 * t2515;
7129   t7285 = t2423 * t9;
7130   t7289 = -0.80541612095716256867e2 * t7245 + 0.80541612095716256870e2 * t7247 - 0.19791600000000000000e3 * t7249 + 0.55122584035886153450e0 * t7251 - 0.53694408063810837912e2 * t6872 - 0.79166400000000000000e3 * t863 * t7255 * t7256 * t315 + 0.22049033614354461380e1 * t2420 * t7261 * t7262 * t315 + 0.32216644838286502748e3 * t7267 * t2425 - 0.24739500000000000000e1 * t7272 + 0.10738881612762167582e3 * t7274 - 0.29687400000000000000e2 * t7276 + 0.69270600000000000000e2 * t7278 - 0.64139444444444444443e1 * t7280 + 0.57725500000000000000e1 * t7282 - 0.32216644838286502747e3 * t7284 * t2422 * t7285;
7131   t7290 = t2632 * t19;
7132   t7300 = t2308 * t2678;
7133   t7302 = t2308 * t2674;
7134   t7304 = t6933 * t898;
7135   t7306 = t2308 * t2669;
7136   t7308 = t6545 * t2662;
7137   t7310 = t2423 * t2458;
7138   t7316 = t191 * t2469;
7139   t7325 = -0.32216644838286502747e3 * t2420 * t7290 * t2424 + 0.10738881612762167582e3 * t6889 + 0.32986000000000000000e1 * t6895 - 0.38483666666666666667e1 * t6897 + 0.19791600000000000000e2 * t6899 - 0.27488333333333333333e1 * t6449 - 0.91627777777777777778e0 * t6084 + 0.76967333333333333333e1 * t7300 - 0.39583200000000000000e2 * t7302 - 0.65972000000000000000e1 * t7304 - 0.32986000000000000000e1 * t7306 - 0.10995333333333333333e1 * t7308 + 0.10738881612762167582e3 * t6883 * t2422 * t7310 - 0.11874960000000000000e3 * t2498 * t2502 - 0.98958000000000000000e1 * t863 * t412 * t415 * t7316 + 0.11874960000000000000e3 * t2516 * t1032 * t917 * t2517;
7140   t7332 = t298 * t2350 * t402;
7141   t7337 = t110 * t2603;
7142   t7346 = t110 * t2655;
7143   t7356 = t298 * t861 * t1019;
7144   t7366 = 0.27708240000000000000e3 * t863 * t1032 * t2571 * t864 + 0.19791600000000000000e2 * t7332 * t2519 + 0.23090200000000000000e2 * t2498 * t2494 - 0.32986000000000000000e1 * t615 * t304 * t307 * t7337 - 0.25655777777777777777e2 * t863 * t412 * t2562 * t864 + 0.73302222222222222222e0 * t6206 * t304 * t307 * t7346 - 0.23090200000000000000e2 * t2516 * t412 * t1039 * t2517 - 0.98958000000000000000e1 * t7356 * t866 + 0.65972000000000000001e1 * t6918 - 0.65972000000000000000e1 * t6934 + 0.76967333333333333333e1 * t6940 - 0.32986000000000000000e1 * t6952 - 0.10995333333333333333e1 * t6954 - 0.39583200000000000000e2 * t6967 + 0.43981333333333333334e1 * t6969;
7145   t7367 = t332 * t9;
7146   t7374 = t298 * t2296 * t402 * t410;
7147   t7377 = t901 * t315;
7148   t7382 = t888 * t315;
7149   t7387 = t327 * t883;
7150   t7398 = t298 * t2296 * t1317;
7151   t7400 = t916 * t191;
7152   t7412 = t297 * t312 * t17;
7153   t7413 = t181 * t2839;
7154   t7414 = t410 * t191;
7155   t7415 = t7414 * t315;
7156   t7419 = t332 * t901;
7157   t7426 = 0.65972000000000000000e1 * t7007 * t2456 * t2457 * t7367 - 0.65972000000000000000e1 * t7374 * t2460 - 0.32986000000000000000e1 * t2455 * t2456 * t2457 * t7377 + 0.21990666666666666667e1 * t6995 * t2456 * t2457 * t7382 - 0.32986000000000000000e1 * t2339 * t2340 * t2341 * t7387 + 0.76967333333333333333e1 * t2455 * t2456 * t1038 * t191 * t2458 - 0.39583200000000000000e2 * t7398 * t24 * sigma[2] * t7400 * t2458 - 0.21990666666666666667e1 * t7003 - 0.5e1 / 0.36e2 * t6108 + t6113 + t6117 + t6523 * t112 * t7387 * t206 / 0.3e1 - 0.43069537681507200000e3 * t7412 * t7413 * t7415 + t6529 * t193 * t7419 * t315 / 0.3e1 + t7036 / 0.4e1 + 0.21990666666666666667e1 * t6566;
7158   t7431 = t8 * t320 * t2832;
7159   t7454 = t600 * t606 * t2849;
7160   t7461 = t2838 * t801 * t2841;
7161   t7464 = t795 * t801 * t2845;
7162   t7480 = 0.21990666666666666667e1 * t6574 - t7431 / 0.8e1 - t1977 * t848 * t889 * t9 / 0.3e1 - t795 * t314 * t333 * t2469 / 0.2e1 + t795 * t848 * t849 * t901 / 0.2e1 - 0.5e1 / 0.27e2 * t6264 * t201 * t2656 * t206 + t1989 * t833 * t878 * t9 / 0.3e1 - t7454 / 0.6e1 - t600 * t833 * t834 * t883 / 0.2e1 - 0.10767384420376800000e3 * t7461 - t7464 / 0.6e1 - t795 * t854 * t2552 / 0.2e1 - t795 * t314 * t2599 * t315 / 0.6e1 - t600 * t201 * t2604 * t206 / 0.6e1 + t1977 * t854 * t2537 / 0.3e1;
7163   t7508 = t795 * t2465 * t2541 - t795 * t2474 * t841 / 0.2e1 - t600 * t610 * t2849 / 0.2e1 - t600 * t201 * t328 * t2486 / 0.2e1 - 0.5e1 / 0.27e2 * t6288 * t314 * t2651 * t315 - 0.5e1 / 0.12e2 * t6614 - t7065 / 0.6e1 - t7072 / 0.6e1 + t7087 / 0.3e1 - t7107 / 0.3e1 + t7118 / 0.9e1 + t7125 / 0.9e1 - t7131 / 0.3e1 + t6663 + t6691 + t1989 * t610 * t2656 / 0.9e1;
7164   t7515 = 0.6e1 * t1939 + 0.12e2 * t6312;
7165   t7521 = t313 * t7184 * t333;
7166   t7524 = t313 * t2259 * t902;
7167   t7527 = t313 * t801 * t2599;
7168   t7530 = t200 * t606 * t2604;
7169   t7533 = t795 * t2259 * t889;
7170   t7536 = t1977 * t801 * t2651;
7171   t7539 = t1989 * t606 * t2656;
7172   t7541 = t17 * t2831;
7173   t7559 = -t200 * t610 * t2604 / 0.2e1 - t200 * t201 * t111 * t7515 / 0.2e1 - t7521 / 0.2e1 - t7524 / 0.2e1 - t7527 / 0.6e1 - t7530 / 0.6e1 - t7533 / 0.6e1 + t7536 / 0.27e2 + t7539 / 0.27e2 - t313 * t7541 * t316 / 0.2e1 + 0.3e1 / 0.2e1 * t313 * t832 * t1019 * t849 - 0.3e1 / 0.2e1 * t313 * t854 * t2470 + t313 * t314 * t192 * t7515 / 0.2e1 - t7149 / 0.6e1 + t7155 - t7158 / 0.2e1;
7174   t7574 = -t7161 / 0.2e1 - t7164 / 0.2e1 - t7186 / 0.2e1 + t7189 / 0.9e1 + t7192 / 0.3e1 + t7195 / 0.9e1 + 0.2e1 / 0.3e1 * t7200 + t7203 / 0.3e1 + t6707 - t6712 / 0.3e1 + t6724 - 0.5e1 / 0.9e1 * t6730 + t6734 / 0.3e1 - 0.5e1 / 0.9e1 * t6739 - 0.5e1 / 0.27e2 * t6320 - 0.5e1 / 0.27e2 * t6333;
7175   t7583 = t2636 - t2640 + 0.16108322419143251374e3 * t2431 + t10 * (t7289 + t7325 + t7366 + t7426 + t7480 + t7508 + t7559 + t7574) - 0.2e1 * t2434 - t2437 - t2440 - t2443 / 0.3e1 - t2446 / 0.3e1 + t2254 - t2261 + t2267 - t2274 + t2281 - t2284 - 0.65972000000000000000e1 * t2461 + t1973 + t2001 + t2654;
7176   t7598 = t2659 + 0.3e1 * t2467 - 0.3e1 / 0.2e1 * t2472 - 0.3e1 / 0.2e1 * t2476 - t2479 / 0.2e1 - 0.3e1 / 0.2e1 * t2484 - 0.3e1 / 0.2e1 * t2489 - t2664 - t2666 - t2671 - t2676 + t2680 - 0.13194400000000000000e2 * t2491 + 0.23090200000000000000e2 * t2495 - 0.19791600000000000000e2 * t2499 - 0.11874960000000000000e3 * t2503 - 0.32986000000000000000e1 * t2508 - 0.98958000000000000000e1 * t2513 + 0.19791600000000000000e2 * t2520;
7177   t7605 = -t6415 - t6419 - t2835 - 0.3e1 / 0.4e1 * t2525 + 0.3e1 / 0.4e1 * t2348 - t2844 - t2848 - t2852 - t2531 - t2535 / 0.2e1 + t2539 / 0.3e1 + t2543 + t2547 / 0.3e1 - t2550 - t2554 / 0.2e1 - t6783 - t6785 - t6390 + t2215 - t6393;
7178   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7179     v4rho4[3] = t7243 + t7583 + t7598 + t7605;
7180 
7181   t7618 = -0.76967333333333333333e2 * t2565 + 0.69270600000000000000e2 * t2567 + 0.83124720000000000000e3 * t2574 + 0.65972000000000000000e1 * t2242 - 0.11874960000000000000e3 * t2412 + 0.23090200000000000000e2 * t2414 - 0.19791600000000000000e2 * t2418 - 0.35624880000000000000e3 * t2580 - 0.29687400000000000000e2 * t2584 + 0.12886657935314601099e4 * t2588 - 0.6e1 * t2592;
7182   t7630 = -0.6e1 * t2595 - 0.2e1 * t2601 - 0.2e1 * t2606 - 0.2e1 * t2609 + 0.96649934514859508243e3 * t2614 - 0.23749920000000000000e4 * t2628 + 0.66147100843063384139e1 * t2635 - 0.96649934514859508241e3 * t2639 + 0.32216644838286502748e3 * t2431 - 0.4e1 * t2434 - 0.2e1 * t2437;
7183   t7643 = -0.2e1 * t2440 - 0.2e1 / 0.3e1 * t2443 - 0.2e1 / 0.3e1 * t2446 + 0.4e1 / 0.3e1 * t2254 + 0.4e1 / 0.3e1 * t2267 + 0.4e1 / 0.9e1 * t2653 + 0.4e1 / 0.9e1 * t2658 - 0.13194400000000000000e2 * t2663 - 0.79166400000000000000e2 * t2665 - 0.39583200000000000000e2 * t2670 - 0.47499840000000000000e3 * t2675;
7184   t7648 = t402 * t19 * t38;
7185   t7654 = t100 * t191;
7186   t7681 = t402 * t2621 * t1909;
7187   t7690 = 0.66147100843063384139e1 * t1045 * t7648 * t2633 + 0.17527082181762906534e4 * t1045 * t181 * t184 * t1634 * t7654 + 0.10291428212230410600e4 * t1045 * t1046 * t124 * t1049 - 0.96649934514859508241e3 * t1045 * t2611 * t145 * t1049 + 0.83124720000000000000e4 * t1316 * t2623 * t1328 * t482 * t191 - 0.32216644838286502747e3 * t7245 + 0.32216644838286502748e3 * t7247 - 0.79166400000000000000e3 * t7249 + 0.22049033614354461380e1 * t7251 + 0.48324967257429754121e3 * t1045 * t1019 * t521 * t1047 * t1049 - 0.23749920000000000000e4 * t1316 * t7681 * t2626 - 0.88196134457417845518e1 * t1045 * t2631 * t521 * t124 * t191;
7188   t7710 = t2423 * t888;
7189   t7714 = t2423 * t901;
7190   t7721 = 0.1e1 / t122 / t346;
7191   t7722 = sigma[2] * t7721;
7192   t7729 = -0.10738881612762167582e3 * t6872 + 0.34635300000000000000e2 * t2583 * t1041 + 0.83124720000000000000e3 * t1025 * t2573 + 0.83381277777777777776e2 * t408 * t412 * t182 * t132 * t191 + 0.88196134457417845519e1 * t2420 * t7261 * t7262 * t332 - 0.12886657935314601099e4 * t2420 * t7290 * t2586 - 0.17812440000000000000e3 * t2583 * t1034 + 0.21477763225524335164e3 * t6883 * t2422 * t7710 + 0.64433289676573005494e3 * t2420 * t2422 * t7714 - 0.76967333333333333333e2 * t1025 * t2564 - 0.14085022000000000000e4 * t408 * t1032 * t7722 * t191 - 0.98958000000000000000e1 * t7272 + 0.42955526451048670329e3 * t7274;
7193   t7739 = t191 * t2598;
7194   t7756 = -0.11874960000000000000e3 * t7276 + 0.27708240000000000000e3 * t7278 - 0.25655777777777777777e2 * t7280 + 0.23090200000000000000e2 * t7282 + 0.65972000000000000000e1 * t6895 - 0.76967333333333333334e1 * t6897 + 0.39583200000000000000e2 * t6899 - 0.36651111111111111111e1 * t6449 - 0.13194400000000000000e2 * t863 * t412 * t415 * t7739 + 0.46180400000000000000e2 * t863 * t412 * t1039 * t2667 + 0.15393466666666666667e2 * t2298 * t412 * t1039 * t2660 + 0.11083296000000000000e4 * t863 * t1032 * t2571 * t896;
7195   t7773 = 0.1e1 / t187 / t704 / t133 * t1909 / 0.36e2;
7196   t7776 = 0.1e1 / t121 / t355;
7197   t7782 = t191 * t2650;
7198   t7800 = -0.79166400000000000000e2 * t2298 * t1032 * t917 * t2660 - 0.10262311111111111111e3 * t863 * t412 * t2562 * t896 + 0.92360800000000000000e2 * t2498 * t2678 - 0.13194400000000000000e2 * t6929 * t2662 - 0.27708240000000000000e4 * t408 * t7773 * t128 * t7776 * t191 * t100 + 0.29320888888888888889e1 * t6537 * t412 * t415 * t7782 - 0.39583200000000000000e2 * t7356 * t898 - 0.39583200000000000000e2 * t2498 * t2669 - 0.47499840000000000000e3 * t2498 * t2674 - 0.23749920000000000000e3 * t863 * t1032 * t917 * t2667 + 0.30786933333333333334e2 * t7300 - 0.15833280000000000000e3 * t7302 - 0.26388800000000000000e2 * t7304;
7199   t7806 = t7414 * t332;
7200   t7827 = -0.13194400000000000000e2 * t7306 - 0.43981333333333333333e1 * t7308 + 0.87962666666666666668e1 * t6969 + t6113 + t6117 - 0.17227815072602880000e4 * t7412 * t7413 * t7806 + t7036 / 0.2e1 - t7431 / 0.2e1 + 0.2e1 / 0.3e1 * t1977 * t314 * t889 * t901 - 0.2e1 * t795 * t854 * t2845 - 0.2e1 / 0.3e1 * t795 * t314 * t333 * t2598 + 0.2e1 / 0.3e1 * t1989 * t201 * t878 * t883;
7201   t7848 = t888 * t888;
7202   t7853 = t901 * t901;
7203   t7858 = t877 * t877;
7204   t7865 = t883 * t883;
7205   t7870 = 0.12920861304452160000e4 * t2838 * t314 * t2617 * t410 * t191 - 0.2e1 / 0.3e1 * t600 * t201 * t328 * t2603 - 0.12920861304452160000e4 * t2838 * t854 * t2841 - 0.2e1 / 0.3e1 * t7454 - 0.43069537681507200000e3 * t7461 - 0.2e1 / 0.3e1 * t7464 - 0.13194400000000000000e2 * t2455 * t2456 * t2457 * t7419 - 0.5e1 / 0.9e1 * t6614 - 0.5e1 / 0.27e2 * t6288 * t314 * t192 * t7848 - t795 * t314 * t192 * t7853 / 0.2e1 - 0.5e1 / 0.27e2 * t6264 * t201 * t111 * t7858 - t795 * t2474 * t889 - t600 * t201 * t111 * t7865 / 0.2e1;
7206   t7879 = -0.12e2 * t1939 - 0.12e2 * t6312;
7207   t7901 = -0.2e1 * t313 * t7541 * t333 - 0.2e1 * t313 * t854 * t2599 - t313 * t314 * t192 * t7879 / 0.2e1 + t200 * t201 * t111 * t7879 / 0.2e1 - 0.3e1 * t313 * t2474 * t902 + 0.4e1 / 0.9e1 * t1977 * t854 * t2651 - 0.2e1 * t7521 - 0.2e1 * t7524 - 0.2e1 / 0.3e1 * t7527 - 0.2e1 / 0.3e1 * t7530 - 0.2e1 / 0.3e1 * t7533 + 0.4e1 / 0.27e2 * t7536;
7208   t7910 = t298 * t119 * t2831;
7209   t7920 = t217 / t2682 / t161;
7210   t7921 = t911 * t911;
7211   t7931 = t974 * t974;
7212   t7961 = t2717 * rho[1];
7213   t7975 = t971 * t971;
7214   t7985 = 0.6160e4 / 0.81e2 * tau[1] * t2570 - 0.2618e4 / 0.81e2 * t7722;
7215   t7994 = t951 * t951;
7216   t8002 = t955 * t955;
7217   t8004 = t56 * t8002 * t236;
7218   t8006 = t23 * t156;
7219   t8007 = t152 * t19 * t8006;
7220   t8011 = t965 * t19 * t8006;
7221   t8026 = t56 * t2809;
7222   t8028 = t5890 * t8006;
7223   t8031 = 0.9163e4 / 0.65610e5 * t57 * t134 * t7721 - t56 * t7985 * t369 / 0.180e3 - t2734 * t36 * t1246 / 0.27e2 + 0.5e1 / 0.27e2 * t952 * t3457 - t56 * t7994 * t36 * t959 / 0.36e2 - 0.10e2 / 0.27e2 * t952 * t236 * t3466 + 0.125e3 / 0.1458e4 * t8004 * t8007 - 0.125e3 / 0.2187e4 * t8004 * t8011 + t372 * t7985 * t369 / 0.180e3 + t966 * t2733 * t1253 / 0.81e2 + t966 * t7994 * t968 / 0.108e3 + 0.5e1 / 0.81e2 * t2755 * t951 * t3457 + 0.25e2 / 0.4374e4 * t8026 * t8002 * t8028;
7224   t8060 = t1011 * t19 * t23;
7225   t8063 = t2810 * t8002;
7226   t8067 = t955 * t19;
7227   t8086 = t995 * t995;
7228   t8092 = t997 * t997;
7229   t8096 = t236 * t175;
7230   t8097 = t8096 * t24;
7231   t8100 = t3456 * t2805;
7232   t8108 = t7994 * t36 * t1002;
7233   t8114 = t704 * t175 * t2733;
7234   t8118 = 0.1e1 / t1010 / t965;
7235   t8135 = t1010 * t1010;
7236   t8136 = 0.1e1 / t8135;
7237   t8141 = -0.10000e5 / 0.729e3 * t278 * t8063 * t8097 - 0.1000e4 / 0.27e2 * t2800 * t8100 - 0.5000e4 / 0.243e3 * t748 * t2823 * t8002 * t8097 - 0.50e2 / 0.27e2 * t1000 * t8108 - 0.1000e4 / 0.27e2 * t2811 * t8100 - 0.200e3 / 0.81e2 * t2804 * t8114 - 0.5000e4 / 0.729e3 * t2195 * t8118 * t8002 * t8097 - 0.5e1 / 0.9e1 * t393 * t7985 * t19 * t395 - 0.100e3 / 0.81e2 * t748 * t1011 * t2733 * t1287 - 0.25e2 / 0.27e2 * t1012 * t8108 - 0.500e3 / 0.81e2 * t2824 * t8100 - 0.1250e4 / 0.2187e4 * t5999 * t8136 * t8002 * t8097;
7238   t8142 = my_piecewise3(t167, (-0.5e1 / 0.9e1 * params->c1 * t7985 * t170 - 0.200e3 / 0.81e2 * t2772 * t36 * t388 - 0.1000e4 / 0.27e2 * t980 * t989 - 0.50e2 / 0.27e2 * params->c1 * t7994 * t984 - 0.10000e5 / 0.729e3 * params->c1 * t8002 * t236 * t8060 - 0.50000e5 / 0.6561e4 * t1272 * t8063 * t704 - 0.5000e4 / 0.243e3 * t3511 * t8067 * t23 * t951 - 0.500e3 / 0.81e2 * t168 * t988 * t7994 - 0.2000e4 / 0.243e3 * t1272 * t2785 * t2733 - 0.25e2 / 0.81e2 * t385 * t387 * t7985) * t173 + 0.4e1 * t2792 * t391 * t173 + 0.3e1 * t8086 * t173 + 0.6e1 * t995 * t997 * t173 + t8092 * t173, t8141);
7239   t8145 = -0.24e2 * t7920 * t7921 * t178 + 0.36e2 * t2684 * t912 * t974 - 0.24e2 * t2684 * t2685 * t399 - 0.6e1 * t910 * t7931 * t178 + 0.24e2 * t910 * t977 * t974 - 0.8e1 * t910 * t380 * t2763 + 0.12e2 * t910 * t911 * t1016 + t339 * (0.26180e5 / 0.19683e5 * t24 * t7722 + 0.5225e4 / 0.1458e4 * t40 * t128 * t7776 * t138 - 0.5929e4 / 0.288e3 * t237 * t353 / t935 * t138 + 0.2949e4 / 0.640e3 * t934 / t122 / t4299 * t19 * t939 - 0.1053e4 / 0.3200e4 * t2716 / t121 / t7961 * t36 * t2721 + 0.6561e4 / 0.160000e6 * t5829 * t933 * t128 / t2717 / t129 * t138 + 0.6e1 * t7975 + 0.8e1 * t376 * t2760 + 0.2e1 * t159 * t8031) * t178 - 0.4e1 * t339 * t2763 * t399 - 0.6e1 * t339 * t974 * t1016 - 0.4e1 * t339 * t379 * t2828 - t166 * t8142 + 0.1174e1 * t8142;
7240   t8157 = 0.4e1 / 0.27e2 * t7539 + 0.12886657935314601099e4 * t7267 * t2587 - 0.31666560000000000000e4 * t863 * t7255 * t7256 * t332 - 0.98958000000000000000e1 * t7910 * t417 - 0.64604306522260800000e3 * t408 * t132 * t1030 * t191 * t2456 - 0.3e1 / 0.8e1 * t8 * t119 * t8145 * t192 + 0.2e1 / 0.9e1 * t7189 + 0.2e1 / 0.3e1 * t7192 + 0.2e1 / 0.9e1 * t7195 + 0.4e1 / 0.3e1 * t7200 + 0.2e1 / 0.3e1 * t7203 - 0.20e2 / 0.27e2 * t6730 - 0.20e2 / 0.27e2 * t6739;
7241   t8166 = 0.92360800000000000000e2 * t2679 - 0.26388800000000000000e2 * t2491 - 0.3e1 / 0.2e1 * t2834 + t10 * (t7690 + t7729 + t7756 + t7800 + t7827 + t7870 + t7901 + t8157) - 0.3e1 / 0.2e1 * t2525 + t2348 - 0.12920861304452160000e4 * t2843 - 0.2e1 * t2847 - 0.2e1 * t2851 - t6390 - t6393;
7242   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7243     v4rho4[4] = t7618 + t7630 + t7643 + t8166;
7244 
7245   t8177 = t297 * t5746 * t1170;
7246   t8179 = t1901 * t2944;
7247   t8185 = t1901 * t2949;
7248   t8187 = t2952 * t2934;
7249   t8189 = t1901 * t2939;
7250   t8195 = t2952 * t2918;
7251   t8197 = t23 * t1860;
7252   t8203 = t463 * t1915 * t1909;
7253   t8207 = -0.90609313607680788975e2 * t784 * t758 * t1179 * t26 * t788 - 0.16699162500000000000e3 * t1166 * t2922 * t2917 - 0.74218500000000000000e1 * t8177 + 0.30203104535893596326e2 * t8179 - 0.11410061713559803056e3 * t784 * t1180 * t61 * t788 + 0.80541612095716256868e2 * t8185 + 0.22265550000000000000e3 * t8187 - 0.62012907040371922630e0 * t8189 + 0.90609313607680788977e2 * t784 * t2926 * t786 * t788 - 0.55663875000000000000e2 * t8195 + 0.29440005000000000000e3 * t1166 * t1168 * t8197 * t110 - 0.59374800000000000000e3 * t1166 * t8203 * t1920;
7254   t8209 = t463 * t19 * t38;
7255   t8213 = t2970 * t2971;
7256   t8242 = t2952 * t2923;
7257   t8244 = t1901 * t2928;
7258   t8251 = t5747 * t1182;
7259   t8253 = 0.16536775210765846035e1 * t784 * t8209 * t1927 + 0.48453229891695600000e3 * t6124 * t8213 * t6127 - 0.65726558181610899501e3 * t784 * t4146 / t26 * t5754 + 0.24162483628714877061e3 * t784 * t1149 * t468 * t786 * t788 + 0.66796650000000000000e3 * t1166 * t5725 * t2933 - 0.18603872112111576789e1 * t784 * t5764 * t2938 - 0.24492105000000000000e4 * t1166 * t1917 * t6064 * t101 + 0.14469678309420115281e1 * t784 * t1925 * t1179 * t61 * t110 + 0.22265550000000000000e2 * t8242 - 0.60406209071787192650e2 * t8244 + 0.33398325000000000000e2 * t1166 * t758 * t769 * t19 * t1169 + 0.20135403023929064216e2 * t8251;
7260   t8259 = t6132 * t1159;
7261   t8263 = t6201 * t1159;
7262   t8278 = t298 * t613 * t1149;
7263   t8284 = t298 * t2016 * t463;
7264   t8288 = t298 * t2024 * t463;
7265   t8289 = t8288 * t618;
7266   t8293 = -0.24162483628714877060e3 * t784 * t2947 * t61 * t788 + 0.24739500000000000000e1 * t8259 + 0.23090200000000000000e2 * t2984 * t2003 - 0.82465000000000000000e0 * t8263 - 0.98958000000000000000e1 * t2030 * t2994 + 0.11545100000000000000e2 * t615 * t304 * t2899 * t616 + 0.10390590000000000000e4 * t300 * t6164 * t2068 * t110 * sigma[0] * t100 - 0.19791600000000000000e2 * t8278 * t618 - 0.98958000000000000000e1 * t2984 * t2008 - 0.32986000000000000000e1 * t8284 * t2021 - 0.65972000000000000001e1 * t8289 + 0.37109250000000000000e1 * t6176 * t1159;
7267   t8298 = t6214 * t2988;
7268   t8310 = t2026 * t2980;
7269   t8320 = t2026 * t2994;
7270   t8332 = -0.27488333333333333333e0 * t6206 * t304 * t469 * t6207 + 0.41232500000000000000e0 * t8298 - 0.16493000000000000000e1 * t2018 * t304 * t1173 * t2019 - 0.49479000000000000000e1 * t615 * t304 * t1173 * t2006 + 0.12369750000000000000e1 * t6187 * t2988 + 0.12369750000000000000e1 * t8310 + 0.37109250000000000000e1 * t2030 * t2980 + 0.12369750000000000000e1 * t615 * t304 * t469 * t6181 - 0.11874960000000000000e3 * t2984 * t2012 - 0.32985999999999999999e1 * t8320 - 0.32302153261130400000e3 * t2033 * t1055 * t2036 - t600 * t1055 * t2044 / 0.2e1 + 0.36339922418771700000e3 * t1166 * t288 * t1550 * t2973;
7271   t8338 = t2952 * t2974;
7272   t8341 = t8 * t213 * t3156;
7273   t8343 = t17 * t3155;
7274   t8351 = t600 * t2966 * t602;
7275   t8356 = t212 * t1149;
7276   t8358 = t200 * t8356 * t207;
7277   t8360 = t200 * t2966 * t625;
7278   t8366 = t298 * t631 * t463;
7279   t8367 = t8366 * t309;
7280   t8370 = t298 * t18 * t3155;
7281   t8373 = -0.12113307472923900000e3 * t1166 * t2970 * t2036 + 0.12113307472923900000e3 * t8338 - 0.3e1 / 0.8e1 * t8341 - 0.3e1 / 0.2e1 * t200 * t8343 * t207 + t1989 * t1055 * t1991 / 0.9e1 - t8351 / 0.6e1 - t600 * t2957 * t602 / 0.2e1 - t8358 - t8360 / 0.2e1 - 0.3e1 / 0.2e1 * t200 * t2957 * t625 + 0.16493000000000000000e1 * t8367 - 0.74218500000000000000e1 * t8370 * t309;
7282   t8378 = t6039 * t471;
7283   t8382 = t2026 * t2881;
7284   t8384 = t6076 * t2886;
7285   t8386 = t2937 * t19;
7286   t8390 = t8 * t2983;
7287   t8393 = t6062 * t2931;
7288   t8399 = t6069 * t1179;
7289   t8400 = t786 * t110;
7290   t8408 = t298 * t213 * t1149;
7291   t8409 = t8408 * t309;
7292   t8413 = -0.22265550000000000000e3 * t615 * t771 * t6477 * t206 + 0.92773125000000000000e0 * t8378 + 0.92773125000000000000e0 * t6035 * t471 + 0.29687400000000000000e2 * t8382 - 0.80541612095716256867e2 * t8384 + 0.12081241814357438530e3 * t1883 * t8386 * t1887 + 0.32216644838286502747e3 * t8390 * t1888 + 0.89062200000000000000e3 * t615 * t8393 * t110 * t101 * t206 - 0.24805162816148769052e1 * t1883 * t8399 * t8400 * t206 - 0.24162483628714877060e3 * t6079 * t2886 - 0.49479000000000000000e1 * t8409 + 0.89062200000000000000e2 * t2030 * t2881;
7293   t8415 = t468 * t1661;
7294   t8427 = t2890 * t773;
7295   t8431 = t2890 * t780;
7296   t8438 = 0.34360416666666666667e0 * t6083 * t471;
7297   t8439 = t1892 * t1175;
7298   t8443 = t639 * t2901;
7299   t8447 = 0.24226614945847800000e3 * t300 * t8415 * t769 * t5754 + 0.14843700000000000000e2 * t2018 * t771 * t2879 * t601 - 0.40270806047858128434e2 * t6093 * t2885 * t6094 - 0.29687400000000000000e2 * t8427 - 0.19241833333333333333e2 * t1155 * t1868 + 0.57725500000000000000e1 * t8431 - 0.96209166666666666667e1 * t300 * t304 * t8415 * t110 + t8438 + 0.82465000000000000000e0 * t8439 + 0.86588250000000000000e1 * t764 * t2901 + 0.28862750000000000000e1 * t8443 - 0.37109250000000000000e1 * t1878 * t1175;
7300   t8448 = t6043 * t471;
7301   t8450 = t1896 * t1175;
7302   t8452 = t449 * t236;
7303   t8455 = t724 * t650;
7304   t8483 = t84 * t236 * t2182;
7305   t8493 = t24 * t687;
7306   t8497 = 0.1250e4 / 0.729e3 * t8452 * t2154 + 0.5500e4 / 0.729e3 * t1120 * t8455 * t252 - 0.3850e4 / 0.2187e4 * t270 * t272 * t1860 + 0.550e3 / 0.243e3 * t3092 * t36 * t273 - 0.50e2 / 0.81e2 * t3095 * t729 + 0.125e3 / 0.54e2 * t8452 * t2158 + 0.25e2 / 0.324e3 * t1117 * t2161 - 0.500e3 / 0.243e3 * t1120 * t3108 * t687 + 0.125e3 / 0.486e3 * t1120 * t1121 * t2105 - 0.770e3 / 0.243e3 * params->c1 * t1860 * t86 - 0.500e3 / 0.81e2 * t1114 * t726 + 0.6250e4 / 0.6561e4 * t8483 * t29 * t2112 * t704 - 0.2500e4 / 0.729e3 * t3103 * t223 * t691 * t24 + 0.625e3 / 0.486e3 * t3103 * t29 * t252 * t8493;
7307   t8516 = t223 * t236 * t3129;
7308   t8529 = t2197 * t29;
7309   t8531 = t236 * t687;
7310   t8532 = t8531 * t1134;
7311   t8542 = t2182 * t29;
7312   t8548 = t1860 * t19;
7313   t8555 = t2128 * t24 * t91;
7314   t8571 = -0.250e3 / 0.243e3 * t2198 * t8516 - 0.500e3 / 0.81e2 * t2183 * t8516 + 0.275e3 / 0.243e3 * t748 * t750 * t650 * t1135 - 0.25e2 / 0.81e2 * t3144 * t2178 + 0.25e2 / 0.648e3 * t1142 * t5977 + 0.125e3 / 0.324e3 * t2195 * t8529 * t8532 - 0.500e3 / 0.81e2 * t2172 * t8516 + 0.125e3 / 0.54e2 * t278 * t1141 * t8532 - 0.50e2 / 0.81e2 * t3133 * t2178 + 0.125e3 / 0.54e2 * t748 * t8542 * t8532 + 0.25e2 / 0.324e3 * t1133 * t5977 - 0.770e3 / 0.243e3 * t279 * t8548 * t281 + 0.625e3 / 0.8748e4 * t5999 * t6001 * t29 * t8555 + 0.550e3 / 0.243e3 * t278 * t8455 * t1135 + 0.625e3 / 0.729e3 * t2195 * t5981 * t29 * t8555 + 0.1250e4 / 0.729e3 * t278 * t8542 * t8555 + 0.625e3 / 0.243e3 * t748 * t8529 * t8555;
7315   t8572 = my_piecewise3(t83, 0.3e1 * t1128 * t732 * t89 + 0.3e1 * t1128 * t734 * t89 + t455 * t2164 * t89 + t455 * t2169 * t89 + 0.3e1 * t3118 * t276 * t89 + 0.3e1 * t3123 * t277 + t8497 * t89, t8571);
7316   t8580 = t2054 * t446;
7317   t8627 = t236 * t701;
7318   t8630 = t2112 * t19 * t5868;
7319   t8639 = t70 * t687;
7320   t8640 = t8639 * t1093;
7321   t8651 = t2105 * t72;
7322   t8652 = t704 * t8651;
7323   t8655 = t8531 * t1093;
7324   t8663 = t694 * t8651;
7325   t8675 = t1093 * t687;
7326   t8680 = 0.5e1 / 0.162e3 * t1089 * t3049 + 0.125e3 / 0.17496e5 * t437 * t8627 * t8630 - 0.25e2 / 0.34992e5 * t5888 * t3128 * t8630 - 0.125e3 / 0.11664e5 * t437 * t2128 * t5869 + 0.5e1 / 0.216e3 * t3056 * t8640 + 0.77e2 / 0.2430e4 * t257 * t1860 * t254 - 0.11e2 / 0.972e3 * t702 * t650 * t1101 + t3064 * t3067 / 0.324e3 - t1100 * t8652 / 0.2592e4 - 0.5e1 / 0.1296e4 * t3070 * t8655 + 0.11e2 / 0.324e3 * t3042 * t36 * t1094 - t3045 * t3053 / 0.108e3 + t1092 * t8663 / 0.864e3 + 0.5e1 / 0.486e3 * t2127 * t223 * t3049 - 0.77e2 / 0.2430e4 * t56 * t1860 * t254 - 0.5e1 / 0.81e2 * t1089 * t236 * t3058 - 0.5e1 / 0.432e3 * t3056 * t8675 - 0.539e3 / 0.21870e5 * t57 * t8197;
7327   t8686 = 0.1174e1 * t8572 - 0.6e1 * t2054 * t2055 * t460 + 0.6e1 * t644 * t1112 * t711 + 0.18e2 * t8580 * t2059 - 0.24e2 * t5773 * t447 * t2055 - t220 * t446 * t2202 + 0.6e1 * t644 * t645 * t1146 - t220 * t2135 * t460 - 0.3e1 * t220 * t711 * t1146 - 0.3e1 * t220 * t264 * t3152 + t220 * (-0.1540e4 / 0.6561e4 * t8548 * t23 - 0.209e3 / 0.243e3 * t40 * sigma[0] * t2068 * t52 + 0.2809e4 / 0.480e3 * t237 * t41 * t2073 * t52 - 0.18837e5 / 0.12800e5 * t1076 * t2082 + 0.29403e5 / 0.256000e6 * t3028 * t2094 - 0.19683e5 / 0.1280000e7 * t5829 * t2087 / t2089 / t221 * t52 + 0.2e1 * t2132 * t443 + 0.6e1 * t708 * t1104 + 0.6e1 * t261 * t3073 + 0.2e1 * t75 * t8680) * t94;
7328   t8718 = -0.3e1 * t220 * t1107 * t755 + 0.18e2 * t2054 * t1108 * t645 - 0.6e1 * t644 * t1108 * t711 - 0.18e2 * t2054 * t1110 * t645 + 0.6e1 * t644 * t1110 * t711 - 0.2e1 * t644 * t447 * t2135 - 0.3e1 * t220 * t3076 * t285 - 0.6e1 * t644 * t3077 * t264 + 0.12e2 * t644 * t3079 * t264 + 0.6e1 * t644 * t3082 * t264 - t82 * t8572;
7329   t8727 = t630 * t463;
7330   t8729 = t200 * t8727 * t207;
7331   t8745 = t8 * t631 * t1150;
7332   t8749 = 0.5e1 / 0.36e2 * t8 * t2048 * t464;
7333   t8754 = -0.61848750000000000000e0 * t8448 - 0.24739500000000000000e1 * t8450 - 0.3e1 / 0.8e1 * t8 * t18 * (t8686 + t8718) * t111 - t200 * t1055 * t1955 / 0.2e1 + t8729 / 0.3e1 - 0.89062200000000000000e2 * t2911 * t773 + 0.44531100000000000000e2 * t615 * t771 * t2879 * t624 - 0.12081241814357438530e3 * t1883 * t2885 * t6052 + 0.17317650000000000000e2 * t2911 * t780 + 0.20781180000000000000e3 * t1155 * t1863 + t8745 / 0.4e1 - t8749 + 0.12369750000000000000e1 * t2339 * t3211 * t3212 * t6118;
7334   t8766 = 0.61848750000000000000e0 * t2904;
7335   t8776 = t10 * (t8207 + t8253 + t8293 + t8332 + t8373 + t8413 + t8447 + t8754) + 0.89062200000000000000e2 * t2882 - 0.24162483628714877060e3 * t2887 - 0.49479000000000000000e1 * t2891 + 0.18554625000000000000e1 * t2893 + 0.27831937500000000000e1 * t2895 - 0.74218500000000000000e1 * t2897 + 0.86588250000000000000e1 * t2902 - t8766 - 0.24739500000000000000e1 * t2906 + 0.17317650000000000000e2 * t2908 - 0.14843700000000000000e2 * t2912 - 0.89062200000000000000e2 * t2914 - 0.16699162500000000000e3 * t2919 + 0.66796650000000000000e2 * t2924 - 0.18121862721536157795e3 * t2929 + 0.66796650000000000000e3 * t2935 - 0.18603872112111576789e1 * t2940;
7336   t8792 = t3001 / 0.4e1;
7337   t8794 = 0.90609313607680788977e2 * t2945 + 0.24162483628714877061e3 * t2950 + 0.22265550000000000000e2 * t2953 - 0.60406209071787192650e2 * t2955 - 0.3e1 * t2959 - 0.3e1 / 0.2e1 * t2961 - t2964 / 0.2e1 - t2968 + 0.36339922418771700000e3 * t2975 + 0.74218500000000000000e1 * t2977 + 0.37109250000000000000e1 * t2981 - 0.19791600000000000000e2 * t2985 + 0.12369750000000000000e1 * t2989 + 0.24739500000000000000e1 * t2991 - 0.98958000000000000000e1 * t2995 - 0.3e1 / 0.4e1 * t2998 + t8792 - 0.9e1 / 0.8e1 * t3158;
7338   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7339     v4rho3sigma[0] = t8776 + t8794;
7340 
7341   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7342     v4rho3sigma[1] = 0.0e0;
7343 
7344   t8797 = t3177 / 0.4e1;
7345   t8801 = 0.61848750000000000000e0 * t3189;
7346   t8806 = t795 * t3169 * t797;
7347   t8811 = t630 * t516;
7348   t8813 = t313 * t8811 * t316;
7349   t8816 = t313 * t3169 * t806;
7350   t8823 = 0.5e1 / 0.36e2 * t8 * t2216 * t517;
7351   t8828 = t6545 * t3180;
7352   t8834 = t6565 * t1195;
7353   t8836 = t2308 * t3186;
7354   t8843 = 0.34360416666666666667e0 * t6448 * t524;
7355   t8844 = t1977 * t1187 * t1979 / 0.9e1 - t8806 / 0.6e1 - t795 * t1187 * t2040 / 0.2e1 + t8813 / 0.3e1 - t8816 / 0.2e1 - t313 * t1187 * t1943 / 0.2e1 - t8823 - 0.27488333333333333333e0 * t6537 * t412 * t522 * t6538 + 0.41232500000000000000e0 * t8828 + 0.12369750000000000000e1 * t2455 * t3271 * t3272 * t6484 - 0.82465000000000000000e0 * t8834 + 0.12369750000000000000e1 * t8836 + 0.12369750000000000000e1 * t863 * t412 * t522 * t6585 + t8843;
7356   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7357     v4rho3sigma[2] = -t3167 / 0.2e1 - t3171 - 0.3e1 / 0.2e1 * t3174 + t8797 + 0.12369750000000000000e1 * t3181 + 0.24739500000000000000e1 * t3183 + 0.37109250000000000000e1 * t3187 - t8801 + t10 * t8844;
7358 
7359   t8847 = 0.29687400000000000000e2 * t3224;
7360   t8848 = 0.80541612095716256868e2 * t3231;
7361   t8851 = t2883 - t2888 - 0.32986000000000000000e1 * t2891 + t8847 - t8848 + 0.12369750000000000000e1 * t2893 + t2896 - t2898 + t2903 - t8766 - 0.16493000000000000000e1 * t2906 + t2909;
7362   t8855 = t8288 * t828;
7363   t8869 = 0.82465000000000000000e0 * t6132 * t1206;
7364   t8883 = 0.10995333333333333333e1 * t2026 * t3227;
7365   t8884 = t6578 * t3234;
7366   t8888 = t6201 * t1206;
7367   t8893 = t298 * t2315 * t463;
7368   t8899 = 0.16151076630565200000e3 * t6124 * t8213 * t6518 - 0.21990666666666666666e1 * t8855 - 0.65972000000000000000e1 * t8278 * t828 - 0.39583200000000000000e2 * t2984 * t2333 + 0.98958000000000000000e1 * t2018 * t771 * t2879 * t2342 - 0.26847204031905418956e2 * t6093 * t2885 * t6598 + t8869 + 0.12369750000000000000e1 * t6176 * t1206 + 0.24739500000000000000e1 * t6571 * t3234 + 0.38483666666666666667e1 * t615 * t304 * t2899 * t826 - 0.32986000000000000000e1 * t2317 * t304 * t1173 * t2318 - t8883 - 0.28862750000000000000e1 * t8884 - 0.32986000000000000000e1 * t2030 * t3227 - 0.27488333333333333333e0 * t8888 + 0.76967333333333333333e1 * t2984 * t2312 - 0.65972000000000000000e1 * t8893 * t2320 - 0.49479000000000000000e1 * t8177 + 0.10067701511964532109e2 * t8179 + 0.26847204031905418956e2 * t8185;
7369   t8924 = t600 * t2966 * t816 / 0.9e1;
7370   t8936 = t200 * t8727 * t328;
7371   t8938 = 0.41232500000000000000e0 * t8310 - 0.10995333333333333333e1 * t8320 - t600 * t2957 * t816 / 0.3e1 - t600 * t1055 * t2361 / 0.6e1 + t1989 * t1055 * t2365 / 0.9e1 - t8924 - t600 * t3204 * t2372 / 0.3e1 + 0.40377691576412999998e2 * t8338 - t8 * t2315 * t464 / 0.2e1 - t200 * t832 * t1149 * t834 + t8936 / 0.9e1;
7372   t8943 = t200 * t2271 * t463 * t834;
7373   t8947 = t200 * t8356 * t328 / 0.3e1;
7374   t8980 = 0.98958000000000000000e1 * t2026 * t3223;
7375   t8982 = 0.26847204031905418956e2 * t6076 * t3230;
7376   t8990 = 0.7e1 / 0.6e1 * t8943 - t8947 - t200 * t8343 * t328 / 0.2e1 - t8341 / 0.8e1 - t8351 / 0.18e2 - t8358 / 0.3e1 - t8360 / 0.6e1 - 0.80541612095716256868e2 * t6442 * t2885 * t6443 + 0.12369750000000000000e1 * t2317 * t471 - 0.74218500000000000000e2 * t615 * t771 * t6477 * t327 + 0.29687400000000000000e2 * t2317 * t771 * t2879 * t9 + 0.29687400000000000000e3 * t615 * t8393 * t826 * t101 - 0.82683876053829230173e0 * t1883 * t8399 * t8400 * t327 + 0.40270806047858128434e2 * t1883 * t8386 * t2244 + t8980 - t8982 + 0.29687400000000000000e2 * t2030 * t3223 + 0.10738881612762167582e3 * t8390 * t2245 - 0.80541612095716256868e2 * t6079 * t3230 + 0.10995333333333333333e1 * t8367;
7377   t9004 = t6507 * t3214;
7378   t9015 = t298 * t2016 * t463 * t302;
7379   t9028 = -0.82465000000000000000e0 * t8450 + 0.2e1 / 0.9e1 * t8729 + t8745 / 0.6e1 - t8749 + 0.27488333333333333334e0 * t9004 - 0.10995333333333333333e1 * t2339 * t3211 * t2343 + 0.82465000000000000000e0 * t6512 * t3211 * t3212 * t6513 - 0.21990666666666666666e1 * t9015 * t2344 - 0.27488333333333333333e0 * t6500 * t3211 * t3212 * t6501 + 0.41232500000000000000e0 * t2339 * t3211 * t3212 * t6494 + 0.82465000000000000000e0 * t6491 * t3214;
7380   t9035 = -t2913 - t2915 + t10 * (t8899 + 0.74218500000000000000e2 * t8187 - 0.20670969013457307543e0 * t8189 - 0.18554625000000000000e2 * t8195 + 0.74218500000000000000e1 * t8242 - 0.20135403023929064216e2 * t8244 + 0.13423602015952709478e2 * t8251 + 0.82465000000000000000e0 * t8259 - 0.54976666666666666666e0 * t8263 - 0.21990666666666666666e1 * t8289 + 0.13744166666666666667e0 * t8298 + t8938 + t8990 + 0.30924375000000000000e0 * t8378 + 0.98958000000000000000e1 * t8382 - 0.26847204031905418955e2 * t8384 - 0.16493000000000000000e1 * t8409 - 0.98958000000000000000e1 * t8427 + 0.19241833333333333333e1 * t8431 + t8438 + 0.54976666666666666666e0 * t8439 + 0.96209166666666666667e0 * t8443 - 0.41232500000000000000e0 * t8448 + t9028) - t2920 + t2925 - t2930 + t2936 - t2941 + t2946 + t2951 + 0.14843700000000000000e2 * t2953 - 0.40270806047858128433e2 * t2955;
7381   t9037 = 0.82465000000000000000e0 * t3215;
7382   t9039 = 0.24739500000000000000e1 * t3220;
7383   t9040 = 0.32986000000000000000e1 * t3228;
7384   t9041 = 0.24739500000000000000e1 * t3235;
7385   t9042 = 0.65972000000000000000e1 * t3202;
7386   t9043 = t9037 - t2959 - t2962 - t2965 - 0.2e1 / 0.3e1 * t2968 - t3317 + t2976 + t3325 + t9039 - t9040 + t9041 - t9042;
7387   t9046 = t3194 / 0.3e1;
7388   t9047 = t2978 + t2982 - t2986 + t2990 + 0.16493000000000000000e1 * t2991 - t2996 - t2998 / 0.2e1 + t8792 - t3159 - t9046 - t3200 - t3206;
7389   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7390     v4rho3sigma[3] = t8851 + t9035 + t9043 + t9047;
7391 
7392   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7393     v4rho3sigma[4] = 0.0e0;
7394 
7395   t9049 = 0.29687400000000000000e2 * t3292;
7396   t9050 = 0.80541612095716256866e2 * t3306;
7397   t9051 = 0.82465000000000000000e0 * t3275;
7398   t9053 = -t3363 + t3364 + t9049 - t3365 - t9050 - t8801 + t3366 - t3367 + t9051 - t3168 - 0.2e1 / 0.3e1 * t3171 - t3175 - t3568;
7399   t9054 = 0.65972000000000000000e1 * t3265;
7400   t9055 = 0.24739500000000000000e1 * t3282;
7401   t9056 = 0.24739500000000000000e1 * t3285;
7402   t9057 = 0.32986000000000000000e1 * t3299;
7403   t9059 = t3246 / 0.3e1;
7404   t9060 = t6871 * t1332;
7405   t9063 = t297 * t6870 * t1320;
7406   t9069 = t6917 * t3281;
7407   t9076 = 0.10995333333333333333e1 * t2308 * t3298;
7408   t9080 = 0.82465000000000000000e0 * t6933 * t1195;
7409   t9081 = t6565 * t1311;
7410   t9084 = t298 * t2296 * t516;
7411   t9087 = 0.67118010079763547387e1 * t9060 - 0.24739500000000000000e1 * t9063 + 0.12369750000000000000e1 * t2498 * t3186 - 0.32986000000000000000e1 * t3264 * t2325 + 0.28862750000000000000e1 * t9069 - 0.54976666666666666667e0 * t2298 * t412 * t1323 * t2299 - t9076 + 0.41232500000000000000e0 * t6929 * t3180 + t9080 - 0.27488333333333333333e0 * t9081 - 0.10995333333333333333e1 * t9084 * t2301;
7412   t9089 = t298 * t2306 * t516;
7413   t9090 = t9089 * t866;
7414   t9110 = t795 * t3169 * t841 / 0.9e1;
7415   t9112 = t8 * t810 * t1302;
7416   t9117 = -0.21990666666666666666e1 * t9090 - 0.16493000000000000000e1 * t863 * t412 * t1323 * t2323 + 0.13744166666666666667e0 * t8828 - 0.54976666666666666666e0 * t8834 + 0.41232500000000000000e0 * t8836 - t795 * t1187 * t2383 / 0.6e1 + t795 * t3251 * t2387 / 0.3e1 + t1977 * t1187 * t2376 / 0.9e1 - t9110 + t9112 / 0.12e2 + t8 * t2350 * t517 / 0.2e1 - t8823;
7417   t9122 = t212 * t1301;
7418   t9125 = t313 * t9122 * t316 / 0.3e1;
7419   t9127 = t313 * t8811 * t333;
7420   t9131 = t313 * t2271 * t516 * t849;
7421   t9149 = -t795 * t3256 * t797 / 0.6e1 - t9125 + t9127 / 0.9e1 - 0.7e1 / 0.6e1 * t9131 - t313 * t3256 * t806 / 0.2e1 - t8806 / 0.18e2 + 0.2e1 / 0.9e1 * t8813 - t8816 / 0.6e1 - 0.40270806047858128433e2 * t2420 * t3304 * t6901 + 0.14843700000000000000e2 * t863 * t1032 * t3289 * t805 - 0.13423602015952709478e2 * t6883 * t3304 * t6884;
7422   t9151 = 0.26847204031905418955e2 * t6888 * t3305;
7423   t9152 = t2241 * t1325;
7424   t9154 = t6894 * t524;
7425   t9161 = 0.98958000000000000000e1 * t2308 * t3291;
7426   t9165 = t298 * t810 * t516;
7427   t9166 = t9165 * t417;
7428   t9180 = t7002 * t3274;
7429   t9182 = -t9151 + 0.27488333333333333333e0 * t9152 - 0.20616250000000000000e0 * t9154 + 0.49479000000000000000e1 * t2298 * t1032 * t3289 * t796 + t9161 - 0.12369750000000000000e1 * t2516 * t524 + 0.54976666666666666667e0 * t9166 + t8843 + 0.41232500000000000000e0 * t2455 * t3271 * t3272 * t6530 - 0.82465000000000000000e0 * t7007 * t3271 * t3272 * t7008 - 0.27488333333333333333e0 * t6995 * t3271 * t3272 * t6996 + 0.27488333333333333334e0 * t9180;
7430   t9186 = -t9054 + t3585 - t9055 + t9056 - t9057 + t3182 + 0.16493000000000000000e1 * t3183 + t3188 + t8797 - t9059 + t10 * (t9087 + t9117 + t9149 + t9182) - t3586 + t3253 - t3258;
7431   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7432     v4rho3sigma[5] = t9053 + t9186;
7433 
7434   t9193 = t2026 * t3327;
7435   t9195 = t6214 * t3322;
7436   t9214 = -0.16493000000000000000e1 * t615 * t304 * t1173 * t2510 + 0.41232500000000000000e0 * t9193 + 0.13744166666666666667e0 * t9195 - 0.54976666666666666667e0 * t2018 * t304 * t1173 * t2505 + 0.12369750000000000000e1 * t2030 * t3327 + 0.12369750000000000000e1 * t615 * t304 * t469 * t6960 - 0.10995333333333333333e1 * t8284 * t2507 - 0.32986000000000000000e1 * t2984 * t2512 + 0.41232500000000000000e0 * t6187 * t3322 - 0.21990666666666666667e1 * t8855 + t8869;
7437   t9230 = t600 * t2966 * t878;
7438   t9235 = -t8883 + 0.82465000000000000000e0 * t8884 - 0.54976666666666666667e0 * t8888 - 0.24739500000000000000e1 * t8177 + 0.67118010079763547390e1 * t8251 - 0.27488333333333333333e0 * t8263 - t600 * t1055 * t2533 / 0.6e1 + t1989 * t1055 * t2545 / 0.9e1 - t600 * t3204 * t2529 / 0.3e1 - t8924 - t9230 / 0.18e2 - t600 * t2957 * t878 / 0.6e1;
7439   t9244 = t200 * t2966 * t884;
7440   t9262 = -t200 * t2957 * t884 / 0.2e1 - t200 * t1055 * t2487 / 0.2e1 - t9244 / 0.6e1 + 0.2e1 / 0.9e1 * t8936 - t8943 / 0.3e1 - t8947 + 0.49479000000000000000e1 * t2018 * t771 * t2879 * t877 - 0.13423602015952709478e2 * t6093 * t2885 * t6875 + 0.14843700000000000000e2 * t615 * t771 * t2879 * t883 - 0.40270806047858128434e2 * t1883 * t2885 * t6879 + t8980;
7441   t9281 = -t8982 + 0.54976666666666666667e0 * t8367 + t8438 + 0.27488333333333333333e0 * t8439 - 0.20616250000000000000e0 * t8448 + t8729 / 0.9e1 + t8745 / 0.12e2 - t8749 + 0.82465000000000000000e0 * t6512 * t3211 * t3212 * t6979 + 0.41232500000000000000e0 * t2339 * t3211 * t3212 * t6984 - 0.27488333333333333333e0 * t6500 * t3211 * t3212 * t6989 + 0.27488333333333333333e0 * t9004;
7442   t9285 = -t2892 + t8847 - t8848 + t2894 - t8766 - t2907 + t2954 - 0.20135403023929064217e2 * t2955 + t9037 - t2969 - 0.2e1 / 0.3e1 * t3197 + t10 * (t9214 + t9235 + t9262 + t9281) + t3324;
7443   t9287 = t3329 + 0.16493000000000000000e1 * t3217 + t9039 - t9040 + t9041 - t9042 + t2992 - t2999 + t8792 - t9046 - t3200 - t3206 - t3316 - t3320;
7444   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7445     v4rho3sigma[6] = t9285 + t9287;
7446 
7447   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7448     v4rho3sigma[7] = 0.0e0;
7449 
7450   t9291 = t3340 - t3344 + t3349 - t3351 + t3353 - t3355 + t3359 - t3362 - 0.32986000000000000000e1 * t3269 + 0.12369750000000000000e1 * t3287 + t9049 - 0.16493000000000000000e1 * t3301;
7451   t9292 = t2430 * t3397;
7452   t9294 = t2430 * t3401;
7453   t9296 = t2430 * t3386;
7454   t9298 = t3294 * t3392;
7455   t9300 = t2430 * t3375;
7456   t9302 = t3294 * t3380;
7457   t9304 = t3294 * t3370;
7458   t9308 = t3404 * t3405;
7459   t9328 = -0.20670969013457307543e0 * t9292 + 0.10067701511964532109e2 * t9294 - 0.20135403023929064217e2 * t9296 + 0.74218500000000000000e2 * t9298 + 0.26847204031905418956e2 * t9300 + 0.74218500000000000000e1 * t9302 - 0.18554625000000000000e2 * t9304 + 0.13423602015952709477e2 * t9060 - 0.49479000000000000000e1 * t9063 + 0.16151076630565200000e3 * t7412 * t9308 * t7415 - 0.82465000000000000000e0 * t9069 - t9076 + t9080 - 0.54976666666666666667e0 * t9081 - 0.21990666666666666667e1 * t9090 - 0.27488333333333333333e0 * t8834 - t795 * t1187 * t2552 / 0.6e1 + t1977 * t1187 * t2537 / 0.9e1 + t795 * t3251 * t2541 / 0.3e1 - t795 * t3256 * t841 / 0.3e1;
7460   t9330 = t3294 * t3408;
7461   t9332 = t2417 * t1325;
7462   t9334 = t870 * t3347;
7463   t9336 = t6069 * t1329;
7464   t9337 = t1047 * t191;
7465   t9342 = t3395 * t19;
7466   t9348 = t7254 * t3389;
7467   t9354 = t8 * t3263;
7468   t9372 = t298 * t320 * t1301;
7469   t9373 = t9372 * t417;
7470   t9375 = t6888 * t3360;
7471   t9377 = t7271 * t524;
7472   t9379 = t3268 * t1034;
7473   t9381 = t2308 * t3357;
7474   t9383 = t3268 * t1041;
7475   t9385 = 0.29687400000000000000e2 * t2498 * t3291 - 0.29687400000000000000e2 * t2516 * t1032 * t3289 * t9 + 0.80541612095716256867e2 * t7284 * t3304 * t7285 - 0.74218500000000000000e2 * t863 * t1032 * t7400 * t315 - 0.16493000000000000000e1 * t9373 - 0.26847204031905418956e2 * t9375 + 0.30924375000000000000e0 * t9377 - 0.98958000000000000000e1 * t9379 + 0.98958000000000000000e1 * t9381 + 0.19241833333333333333e1 * t9383 - t8823;
7476   t9394 = t17 * t3563;
7477   t9399 = t313 * t9122 * t333;
7478   t9402 = t313 * t3169 * t902;
7479   t9405 = t795 * t3169 * t889;
7480   t9426 = t298 * t2296 * t516 * t410;
7481   t9430 = t8 * t320 * t3564;
7482   t9437 = t313 * t832 * t1301 * t849 - t313 * t1187 * t2470 / 0.2e1 - t313 * t9394 * t316 / 0.2e1 - t9399 / 0.3e1 - t9402 / 0.6e1 - t9405 / 0.18e2 + 0.41232500000000000000e0 * t2455 * t3271 * t3272 * t7377 + 0.82465000000000000000e0 * t7374 * t3274 - 0.82465000000000000000e0 * t7007 * t3271 * t3272 * t7367 - 0.27488333333333333333e0 * t6995 * t3271 * t3272 * t7382 - 0.10995333333333333333e1 * t2455 * t3271 * t2459 - 0.21990666666666666667e1 * t9426 * t2460 - t9430 / 0.8e1 - t9125 + 0.2e1 / 0.9e1 * t9127 + t9131 / 0.3e1 + t8813 / 0.9e1 - t9151 + 0.54976666666666666667e0 * t9152 - 0.41232500000000000000e0 * t9154;
7483   t9440 = t6545 * t3582;
7484   t9442 = t2308 * t3578;
7485   t9444 = t9089 * t898;
7486   t9446 = t2308 * t3572;
7487   t9448 = t6933 * t1311;
7488   t9451 = t298 * t861 * t1301;
7489   t9475 = t298 * t2350 * t516;
7490   t9488 = -0.26847204031905418956e2 * t6883 * t3304 * t7310 + 0.12369750000000000000e1 * t7356 * t1195 - 0.39583200000000000000e2 * t3264 * t2502 + 0.98958000000000000000e1 * t2298 * t1032 * t3289 * t2458 + 0.32986000000000000000e1 * t2516 * t412 * t1323 * t2517 + 0.12369750000000000000e1 * t863 * t412 * t522 * t7316 + 0.65972000000000000000e1 * t9475 * t2519 + 0.76967333333333333333e1 * t3264 * t2494 - 0.32986000000000000000e1 * t2498 * t3298 - 0.24739500000000000000e1 * t7332 * t3281 + 0.38483666666666666667e1 * t863 * t412 * t3345 * t864;
7491   t9495 = -t9050 - t8801 + t10 * (t9328 - t9110 + t9112 / 0.6e1 + 0.40377691576413000000e2 * t9330 - 0.82465000000000000000e0 * t9332 + 0.96209166666666666667e0 * t9334 - 0.82683876053829230173e0 * t2420 * t9336 * t9337 * t315 + 0.40270806047858128435e2 * t2420 * t9342 * t2424 - 0.80541612095716256866e2 * t7267 * t3305 + 0.29687400000000000000e3 * t863 * t9348 * t191 * t182 * t315 + 0.10738881612762167582e3 * t9354 * t2425 + t9385 + t9437 + t9161 + 0.10995333333333333333e1 * t9166 + t8843 + 0.27488333333333333333e0 * t9180 + 0.13744166666666666667e0 * t9440 - 0.10995333333333333333e1 * t9442 - 0.21990666666666666667e1 * t9444 + 0.41232500000000000000e0 * t9446 + 0.82465000000000000000e0 * t9448 - 0.65972000000000000000e1 * t9451 * t866 + t9488) + 0.14843700000000000000e2 * t3295 - 0.40270806047858128433e2 * t3308 - t3372 + t3377 + t3382 - t3388 + t3394 - t3399 + t3403;
7492   t9499 = t9051 - t3172 + t3410 - t3567 - t3261 / 0.2e1 + t3570 + t3574 - t3576 - t3580 + t3584 - t9054 + 0.16493000000000000000e1 * t3277;
7493   t9501 = -t9055 + t9056 - t9057 + t3184 + t8797 - t9059 - 0.2e1 / 0.3e1 * t3249 + t3253 - t3258 - t3588 - t3591 - t3594;
7494   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7495     v4rho3sigma[8] = t9291 + t9495 + t9499 + t9501;
7496 
7497   t9535 = t1989 * t1055 * t2656 / 0.9e1 - t9230 / 0.6e1 - t600 * t1055 * t2849 / 0.2e1 + t8936 / 0.3e1 - t9244 / 0.2e1 - t200 * t1055 * t2604 / 0.2e1 - t8749 - 0.27488333333333333333e0 * t6206 * t304 * t469 * t7346 + 0.41232500000000000000e0 * t9195 + 0.12369750000000000000e1 * t2339 * t3211 * t3212 * t7387 - 0.82465000000000000000e0 * t8888 + 0.12369750000000000000e1 * t9193 + 0.12369750000000000000e1 * t615 * t304 * t469 * t7337 + t8438;
7498   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7499     v4rho3sigma[9] = -t3315 / 0.2e1 - t3197 - 0.3e1 / 0.2e1 * t3319 + t8792 + 0.12369750000000000000e1 * t3323 + 0.24739500000000000000e1 * t3217 + 0.37109250000000000000e1 * t3328 - t8766 + t10 * t9535;
7500 
7501   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7502     v4rho3sigma[10] = 0.0e0;
7503 
7504   t9554 = 0.27831937500000000000e1 * t3339 - 0.14843700000000000000e2 * t3343 + 0.86588250000000000000e1 * t3348 - 0.74218500000000000000e1 * t3350 + 0.17317650000000000000e2 * t3352 - 0.89062200000000000000e2 * t3354 + 0.89062200000000000000e2 * t3358 - 0.24162483628714877060e3 * t3361 - 0.49479000000000000000e1 * t3269 + 0.18554625000000000000e1 * t3287 - 0.24739500000000000000e1 * t3301 - t8801 + 0.22265550000000000000e2 * t3295 - 0.60406209071787192650e2 * t3308 - 0.16699162500000000000e3 * t3371 + 0.24162483628714877061e3 * t3376 + 0.66796650000000000000e2 * t3381 - 0.18121862721536157795e3 * t3387;
7505   t9595 = -0.65726558181610899501e3 * t1045 * t4394 / t121 * t7654 + 0.66796650000000000000e3 * t1316 * t7681 * t3391 - 0.18603872112111576789e1 * t1045 * t7648 * t3396 + 0.33398325000000000000e2 * t1316 * t1019 * t1030 * t19 * t1319 - 0.90609313607680788975e2 * t1045 * t1019 * t1329 * t121 * t1049 - 0.62012907040371922630e0 * t9292 + 0.30203104535893596326e2 * t9294 - 0.60406209071787192650e2 * t9296 + 0.22265550000000000000e3 * t9298 + 0.80541612095716256868e2 * t9300 + 0.22265550000000000000e2 * t9302 - 0.55663875000000000000e2 * t9304;
7506   t9615 = t502 * t236;
7507   t9618 = t987 * t916;
7508   t9630 = t168 * t236 * t2810;
7509   t9640 = t24 * t951;
7510   t9644 = 0.25e2 / 0.324e3 * t1269 * t2789 - 0.500e3 / 0.243e3 * t1272 * t3516 * t951 + 0.125e3 / 0.486e3 * t1272 * t1273 * t2733 - 0.770e3 / 0.243e3 * params->c1 * t2570 * t170 + 0.550e3 / 0.243e3 * t3500 * t36 * t388 - 0.50e2 / 0.81e2 * t3503 * t992 + 0.125e3 / 0.54e2 * t9615 * t2786 + 0.5500e4 / 0.729e3 * t1272 * t9618 * t367 - 0.3850e4 / 0.2187e4 * t385 * t387 * t2570 + 0.1250e4 / 0.729e3 * t9615 * t2782 - 0.500e3 / 0.81e2 * t1266 * t989 + 0.6250e4 / 0.6561e4 * t9630 * t124 * t2740 * t704 - 0.2500e4 / 0.729e3 * t3511 * t342 * t955 * t24 + 0.625e3 / 0.486e3 * t3511 * t124 * t367 * t9640;
7511   t9663 = t342 * t236 * t3537;
7512   t9668 = t2570 * t19;
7513   t9680 = t2823 * t124;
7514   t9682 = t236 * t951;
7515   t9683 = t9682 * t1286;
7516   t9693 = t2810 * t124;
7517   t9702 = t2756 * t24 * t175;
7518   t9718 = -0.500e3 / 0.81e2 * t2811 * t9663 - 0.250e3 / 0.243e3 * t2824 * t9663 - 0.770e3 / 0.243e3 * t393 * t9668 * t395 + 0.275e3 / 0.243e3 * t748 * t1011 * t916 * t1287 - 0.25e2 / 0.81e2 * t3552 * t2806 + 0.25e2 / 0.648e3 * t1294 * t8114 + 0.125e3 / 0.324e3 * t2195 * t9680 * t9683 - 0.500e3 / 0.81e2 * t2800 * t9663 + 0.125e3 / 0.54e2 * t278 * t1293 * t9683 - 0.50e2 / 0.81e2 * t3541 * t2806 + 0.125e3 / 0.54e2 * t748 * t9693 * t9683 + 0.25e2 / 0.324e3 * t1285 * t8114 + 0.625e3 / 0.8748e4 * t5999 * t8136 * t124 * t9702 + 0.1250e4 / 0.729e3 * t278 * t9693 * t9702 + 0.625e3 / 0.243e3 * t748 * t9680 * t9702 + 0.550e3 / 0.243e3 * t278 * t9618 * t1287 + 0.625e3 / 0.729e3 * t2195 * t8118 * t124 * t9702;
7519   t9719 = my_piecewise3(t167, 0.3e1 * t1280 * t995 * t173 + 0.3e1 * t1280 * t997 * t173 + t508 * t2792 * t173 + t508 * t2797 * t173 + 0.3e1 * t3526 * t391 * t173 + t9644 * t173 + 0.3e1 * t3531 * t392, t9718);
7520   t9721 = t2684 * t499;
7521   t9775 = t1245 * t951;
7522   t9781 = t23 * t2570;
7523   t9784 = t2733 * t156;
7524   t9785 = t704 * t9784;
7525   t9788 = t9682 * t1245;
7526   t9796 = t958 * t9784;
7527   t9799 = t154 * t951;
7528   t9800 = t9799 * t1245;
7529   t9813 = t236 * t965;
7530   t9816 = t2740 * t19 * t8006;
7531   t9825 = -0.77e2 / 0.2430e4 * t56 * t2570 * t369 - 0.5e1 / 0.81e2 * t1241 * t236 * t3466 - 0.5e1 / 0.432e3 * t3464 * t9775 + 0.5e1 / 0.486e3 * t2755 * t342 * t3457 - 0.539e3 / 0.21870e5 * t57 * t9781 - t1252 * t9785 / 0.2592e4 - 0.5e1 / 0.1296e4 * t3478 * t9788 + 0.11e2 / 0.324e3 * t3450 * t36 * t1246 - t3453 * t3461 / 0.108e3 + t1244 * t9796 / 0.864e3 + 0.5e1 / 0.216e3 * t3464 * t9800 + 0.77e2 / 0.2430e4 * t372 * t2570 * t369 - 0.11e2 / 0.972e3 * t966 * t916 * t1253 + t3472 * t3475 / 0.324e3 + 0.5e1 / 0.162e3 * t1241 * t3457 + 0.125e3 / 0.17496e5 * t490 * t9813 * t9816 - 0.25e2 / 0.34992e5 * t8026 * t3536 * t9816 - 0.125e3 / 0.11664e5 * t490 * t2756 * t8007;
7532   t9834 = -t166 * t9719 + 0.18e2 * t9721 * t2689 - 0.3e1 * t339 * t974 * t1298 - 0.3e1 * t339 * t379 * t3560 - 0.3e1 * t339 * t3484 * t399 - 0.3e1 * t339 * t1259 * t1016 - t339 * t499 * t2828 + 0.6e1 * t910 * t911 * t1298 - t339 * t2763 * t513 + t339 * (-0.1540e4 / 0.6561e4 * t9668 * t23 - 0.209e3 / 0.243e3 * t40 * sigma[2] * t2698 * t138 + 0.2809e4 / 0.480e3 * t237 * t128 * t2703 * t138 - 0.18837e5 / 0.12800e5 * t1228 * t2712 + 0.29403e5 / 0.256000e6 * t3436 * t2722 - 0.19683e5 / 0.1280000e7 * t5829 * t2715 / t2717 / t340 * t138 + 0.2e1 * t2760 * t496 + 0.6e1 * t971 * t1256 + 0.6e1 * t376 * t3481 + 0.2e1 * t159 * t9825) * t178 - 0.24e2 * t7920 * t500 * t2685;
7533   t9866 = 0.1174e1 * t9719 - 0.6e1 * t2684 * t2685 * t513 + 0.6e1 * t910 * t1264 * t974 - 0.2e1 * t910 * t500 * t2763 + 0.6e1 * t910 * t3490 * t379 + 0.6e1 * t910 * t1262 * t974 - 0.6e1 * t910 * t1260 * t974 + 0.12e2 * t910 * t3487 * t379 - 0.18e2 * t2684 * t1262 * t911 - 0.6e1 * t910 * t3485 * t379 + 0.18e2 * t2684 * t1260 * t911;
7534   t9890 = t298 * t119 * t3563;
7535   t9893 = 0.20135403023929064216e2 * t9060 - 0.74218500000000000000e1 * t9063 - 0.82465000000000000000e0 * t9081 - 0.3e1 / 0.8e1 * t8 * t119 * (t9834 + t9866) * t192 - t795 * t1187 * t2845 / 0.2e1 - 0.32302153261130400000e3 * t2838 * t1187 * t2841 + t9112 / 0.4e1 + 0.36339922418771700000e3 * t1316 * t402 * t1634 * t3407 - 0.12113307472923900000e3 * t1316 * t3404 * t2841 + 0.12113307472923900000e3 * t9330 + 0.20781180000000000000e3 * t1307 * t2573 - 0.74218500000000000000e1 * t9890 * t417;
7536   t9899 = t521 * t1715;
7537   t9933 = 0.86588250000000000000e1 * t1025 * t3347 - 0.37109250000000000000e1 * t2583 * t1325 + 0.24226614945847800000e3 * t408 * t9899 * t1030 * t7654 - 0.19241833333333333333e2 * t1307 * t2564 - 0.96209166666666666667e1 * t408 * t412 * t9899 * t191 - 0.24805162816148769052e1 * t2420 * t9336 * t9337 * t332 + 0.92773125000000000000e0 * t7910 * t524 - 0.89062200000000000000e2 * t3342 * t1034 + 0.89062200000000000000e3 * t863 * t9348 * t896 * t182 - 0.22265550000000000000e3 * t863 * t1032 * t7400 * t332 + 0.12081241814357438530e3 * t2420 * t9342 * t2586 + 0.14843700000000000000e2 * t2298 * t1032 * t3289 * t888;
7538   t9958 = -0.40270806047858128434e2 * t6883 * t3304 * t7710 + 0.89062200000000000000e2 * t2498 * t3357 - 0.24162483628714877061e3 * t7267 * t3360 + 0.44531100000000000000e2 * t863 * t1032 * t3289 * t901 - 0.12081241814357438530e3 * t2420 * t3304 * t7714 + 0.32216644838286502747e3 * t9354 * t2587 + 0.17317650000000000000e2 * t3342 * t1041 - 0.24739500000000000000e1 * t9332 + 0.28862750000000000000e1 * t9334 - 0.49479000000000000000e1 * t9373 - 0.80541612095716256867e2 * t9375 + 0.92773125000000000000e0 * t9377 - 0.29687400000000000000e2 * t9379;
7539   t9984 = 0.29687400000000000000e2 * t9381 + 0.57725500000000000000e1 * t9383 - t8823 - 0.3e1 / 0.2e1 * t313 * t3256 * t902 - 0.3e1 / 0.2e1 * t313 * t9394 * t333 + t1977 * t1187 * t2651 / 0.9e1 - t795 * t3256 * t889 / 0.2e1 - t313 * t1187 * t2599 / 0.2e1 - t9399 - t9402 / 0.2e1 - t9405 / 0.6e1 + 0.12369750000000000000e1 * t2455 * t3271 * t3272 * t7419;
7540   t10005 = t516 * t2621 * t1909;
7541   t10010 = t516 * t19 * t38;
7542   t10017 = -0.3e1 / 0.8e1 * t9430 + t9127 / 0.3e1 + 0.82465000000000000000e0 * t9152 - 0.61848750000000000000e0 * t9154 + 0.16493000000000000000e1 * t9166 + t8843 + 0.24162483628714877061e3 * t1045 * t1301 * t521 * t1047 * t1049 - 0.24492105000000000000e4 * t1316 * t2623 * t7256 * t182 + 0.14469678309420115281e1 * t1045 * t2631 * t1329 * t145 * t191 - 0.59374800000000000000e3 * t1316 * t10005 * t2626 + 0.16536775210765846035e1 * t1045 * t10010 * t2633 + 0.48453229891695600000e3 * t7412 * t9308 * t7806;
7543   t10049 = -0.11410061713559803056e3 * t1045 * t1330 * t145 * t1049 - 0.16699162500000000000e3 * t1316 * t3379 * t3369 + 0.90609313607680788977e2 * t1045 * t3384 * t1047 * t1049 - 0.24162483628714877060e3 * t1045 * t3373 * t145 * t1049 + 0.29440005000000000000e3 * t1316 * t1318 * t9781 * t191 + 0.41232500000000000000e0 * t9440 - 0.32985999999999999999e1 * t9442 - 0.65972000000000000001e1 * t9444 + 0.12369750000000000000e1 * t9446 + 0.24739500000000000000e1 * t9448 + 0.23090200000000000000e2 * t3264 * t2678 - 0.49479000000000000000e1 * t863 * t412 * t1323 * t2667;
7544   t10088 = -0.32986000000000000000e1 * t9084 * t2662 + 0.12369750000000000000e1 * t6929 * t3582 - 0.27488333333333333333e0 * t6537 * t412 * t522 * t7782 - 0.16493000000000000000e1 * t2298 * t412 * t1323 * t2660 + 0.10390590000000000000e4 * t408 * t7773 * t2698 * t191 * sigma[2] * t100 + 0.37109250000000000000e1 * t7356 * t1311 + 0.37109250000000000000e1 * t2498 * t3572 + 0.12369750000000000000e1 * t863 * t412 * t522 * t7739 - 0.11874960000000000000e3 * t3264 * t2674 - 0.98958000000000000000e1 * t2498 * t3578 + 0.11545100000000000000e2 * t863 * t412 * t3345 * t896 - 0.19791600000000000000e2 * t9451 * t898 - 0.98958000000000000000e1 * t3264 * t2669;
7545   t10096 = 0.66796650000000000000e3 * t3393 - 0.18603872112111576789e1 * t3398 + 0.90609313607680788977e2 * t3402 + 0.36339922418771700000e3 * t3409 - 0.9e1 / 0.8e1 * t3566 - 0.3e1 / 0.4e1 * t3261 + 0.74218500000000000000e1 * t3569 + 0.37109250000000000000e1 * t3573 - 0.19791600000000000000e2 * t3575 - 0.98958000000000000000e1 * t3579 + 0.12369750000000000000e1 * t3583 + 0.24739500000000000000e1 * t3277 + t8797 + t10 * (t9595 + t9893 + t9933 + t9958 + t9984 + t10017 + t10049 + t10088) - t3249 - 0.3e1 * t3588 - 0.3e1 / 0.2e1 * t3590 - t3593 / 0.2e1;
7546   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7547     v4rho3sigma[11] = t9554 + t10096;
7548 
7549   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7550     v4rho3lapl[0] = 0.0e0;
7551 
7552   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7553     v4rho3lapl[1] = 0.0e0;
7554 
7555   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7556     v4rho3lapl[2] = 0.0e0;
7557 
7558   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7559     v4rho3lapl[3] = 0.0e0;
7560 
7561   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7562     v4rho3lapl[4] = 0.0e0;
7563 
7564   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7565     v4rho3lapl[5] = 0.0e0;
7566 
7567   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7568     v4rho3lapl[6] = 0.0e0;
7569 
7570   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7571     v4rho3lapl[7] = 0.0e0;
7572 
7573   t10101 = t542 * t236;
7574   t10123 = -0.50000e5 / 0.6561e4 * t8483 * t61 * t2112 * t704 - 0.10000e5 / 0.729e3 * t10101 * t2154 - 0.500e3 / 0.243e3 * t1120 * t1377 * t2105 - 0.500e3 / 0.27e2 * t10101 * t2158 - 0.50e2 / 0.81e2 * t1374 * t2161 + 0.2200e4 / 0.243e3 * t3093 - 0.2000e4 / 0.243e3 * t3096 + 0.250e3 / 0.81e2 * t3100 + 0.2500e4 / 0.243e3 * t3113 - 0.20000e5 / 0.729e3 * t3110 + 0.11000e5 / 0.2187e4 * t3116 + 0.2500e4 / 0.81e2 * t3098 + 0.12500e5 / 0.729e3 * t3106 - 0.2500e4 / 0.243e3 * t3103 * t61 * t252 * t8493;
7575   t10143 = t2197 * t61;
7576   t10150 = t2182 * t61;
7577   t10178 = -0.25e2 / 0.81e2 * t1392 * t5977 - 0.250e3 / 0.81e2 * t2195 * t10143 * t8532 - 0.500e3 / 0.27e2 * t278 * t1391 * t8532 - 0.500e3 / 0.27e2 * t748 * t10150 * t8532 - 0.50e2 / 0.81e2 * t1387 * t5977 + 0.2500e4 / 0.81e2 * t3131 + 0.2500e4 / 0.81e2 * t3136 + 0.1250e4 / 0.243e3 * t3149 + 0.2200e4 / 0.243e3 * t3141 - 0.1000e4 / 0.243e3 * t3145 + 0.125e3 / 0.81e2 * t3147 + 0.250e3 / 0.81e2 * t3138 - 0.2000e4 / 0.243e3 * t3134 - 0.1250e4 / 0.2187e4 * t5999 * t6001 * t61 * t8555 - 0.10000e5 / 0.729e3 * t278 * t10150 * t8555 - 0.5000e4 / 0.243e3 * t748 * t10143 * t8555 - 0.5000e4 / 0.729e3 * t2195 * t5981 * t61 * t8555;
7578   t10179 = my_piecewise3(t83, 0.3e1 * t1382 * t732 * t89 + 0.3e1 * t1382 * t734 * t89 + t548 * t2164 * t89 + t548 * t2169 * t89 + 0.3e1 * t3704 * t276 * t89 + t10123 * t89 + 0.3e1 * t3709 * t277, t10178);
7579   t10215 = 0.25e2 / 0.4374e4 * t5888 * t3714 * t8630 + 0.125e3 / 0.1458e4 * t532 * t2128 * t5869 - 0.125e3 / 0.2187e4 * t532 * t8627 * t8630 + t1360 * t8652 / 0.324e3 + 0.5e1 / 0.162e3 * t3667 * t8655 - t1356 * t8663 / 0.108e3 - 0.5e1 / 0.27e2 * t3660 * t8640 + 0.5e1 / 0.54e2 * t3660 * t8675 - 0.10e2 / 0.81e2 * t3046 + 0.5e1 / 0.108e3 * t3054 - 0.22e2 / 0.243e3 * t3062 + 0.10e2 / 0.243e3 * t3065 - 0.5e1 / 0.324e3 * t3068 - 0.25e2 / 0.162e3 * t3050 + 0.22e2 / 0.243e3 * t3043 + 0.25e2 / 0.81e2 * t3059 - 0.25e2 / 0.486e3 * t3071;
7580   t10252 = t5773 * t75;
7581   t10258 = 0.1174e1 * t10179 - 0.6e1 * t220 * t1364 * t755 - 0.2e1 * t220 * t538 * t2202 + 0.2e1 * t220 * t75 * t10215 * t94 - 0.6e1 * t220 * t3671 * t285 + 0.6e1 * t220 * t261 * t3670 * t94 - 0.12e2 * t220 * t3647 * t285 + 0.6e1 * t644 * t1371 * t711 + 0.36e2 * t3625 * t1347 * t264 * t711 - 0.6e1 * t220 * t1351 * t755 + 0.2e1 * t220 * t2132 * t537 * t94 + 0.6e1 * t220 * t708 * t1363 * t94 - 0.6e1 * t220 * t3643 * t285 - t82 * t10179 - 0.48e2 * t10252 * t1347 * t2055 - 0.24e2 * t3629 * t3633;
7582   t10259 = t2054 * t261;
7583   t10268 = t644 * t708;
7584   t10275 = t3670 * t94;
7585   t10296 = t1363 * t285;
7586   t10300 = t537 * t755;
7587   t10310 = -0.12e2 * t1346 * t10275 * t264 + 0.24e2 * t1346 * t10296 * t264 + 0.12e2 * t1346 * t10300 * t264 - 0.4e1 * t1346 * t1347 * t2135 - 0.12e2 * t1346 * t3632 * t711 + 0.12e2 * t1346 * t3636 * t711 - 0.3e1 * t220 * t711 * t1396 + 0.6e1 * t644 * t645 * t1396 - 0.6e1 * t2054 * t2055 * t554 - t220 * t2135 * t554 - 0.3e1 * t220 * t264 * t3730 + 0.36e2 * t3625 * t3632 * t645 - 0.36e2 * t3625 * t3636 * t645 + 0.36e2 * t10259 * t3626 - 0.12e2 * t10268 * t1348 + 0.24e2 * t3629 * t3637 - 0.12e2 * t3629 * t3640;
7588   t10316 = t1404 * t1340;
7589   t10317 = t16 * t557;
7590   t10325 = t1405 * t531 * t3733;
7591   t10328 = t530 * t3618;
7592   t10337 = t3608 * t780;
7593   t10339 = t3608 * t773;
7594   t10342 = t298 * t213 * t557;
7595   t10343 = t10342 * t309;
7596   t10346 = t298 * t18 * t1399;
7597   t10347 = t10346 * t309;
7598   t10353 = t8 * t631 * t558 / 0.9e1;
7599   t10354 = t1987 * t557;
7600   t10359 = t600 * t3598 * t602;
7601   t10363 = t200 * t212 * t557 * t207;
7602   t10368 = -0.3e1 / 0.8e1 * t530 * t531 * (t10258 + t10310) * t111 - 0.32302153261130400000e3 * t10316 * t10317 * t2036 - t1341 * t3611 * t2044 / 0.2e1 - 0.74218500000000000000e1 * t10325 * t309 + 0.32216644838286502747e3 * t10328 * t1888 - 0.19241833333333333333e2 * t1407 * t1868 + 0.20781180000000000000e3 * t1407 * t1863 + 0.17317650000000000000e2 * t3739 * t780 + 0.23090200000000000000e2 * t10337 - 0.11874960000000000000e3 * t10339 - 0.32986000000000000000e1 * t10343 - 0.19791600000000000000e2 * t10347 - 0.89062200000000000000e2 * t3739 * t773 + t10353 + t1341 * t10354 * t1991 / 0.9e1 - 0.2e1 / 0.3e1 * t10359 - 0.2e1 / 0.3e1 * t10363 - 0.3e1 / 0.2e1 * t1341 * t3615 * t625;
7603   t10369 = t598 * t1399;
7604   t10373 = t15 * t3733;
7605   t10378 = t200 * t3598 * t625;
7606   t10382 = t200 * t17 * t1399 * t207;
7607   t10393 = t557 * t1915 * t1909;
7608   t10398 = t557 * t19 * t38;
7609   t10406 = t784 * t3750;
7610   t10409 = t8 * t18 * t3734;
7611   t10412 = t8 * t213 * t1400;
7612   t10417 = t1405 * t199 * t1399;
7613   t10425 = t298 * t613 * t557;
7614   t10426 = t10425 * t618;
7615   t10429 = t1405 * t599 * t557;
7616   t10432 = -t1341 * t10369 * t602 / 0.2e1 - 0.3e1 / 0.2e1 * t1341 * t10373 * t207 - 0.2e1 * t10378 - 0.4e1 * t10382 - t1341 * t1342 * t1955 / 0.2e1 + 0.24162483628714877061e3 * t3747 * t1399 * t468 * t786 * t788 - 0.59374800000000000000e3 * t4549 * t10393 * t1920 + 0.16536775210765846035e1 * t3747 * t10398 * t1927 - 0.24162483628714877060e3 * t3747 * t3748 * t61 * t788 + 0.32216644838286502747e3 * t10406 - 0.3e1 / 0.2e1 * t10409 - t10412 / 0.2e1 + 0.23090200000000000000e2 * t3619 * t2003 - 0.19791600000000000000e2 * t10417 * t618 - 0.98958000000000000000e1 * t3619 * t2008 - 0.11874960000000000000e3 * t3619 * t2012 - 0.26388800000000000000e2 * t10426 - 0.32986000000000000000e1 * t10429 * t2021;
7617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7618     v4rho3tau[0] = t10368 + t10432;
7619 
7620   t10434 = t795 * t3753 * t797;
7621   t10438 = t313 * t212 * t588 * t316;
7622   t10441 = t313 * t3753 * t806;
7623   t10445 = t8 * t810 * t589 / 0.9e1;
7624   t10446 = t1975 * t588;
7625   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7626     v4rho3tau[1] = -0.2e1 / 0.3e1 * t10434 - 0.2e1 / 0.3e1 * t10438 - 0.2e1 * t10441 + t10445 + t1341 * t10446 * t1979 / 0.9e1 - t1341 * t3760 * t2040 / 0.2e1 - t1341 * t1412 * t1943 / 0.2e1;
7627 
7628   t10469 = 0.4e1 / 0.9e1 * t3771 * t3774;
7629   t10477 = t832 * t2 * t1340;
7630   t10478 = t10477 * t3784;
7631   t10482 = t212 * t2;
7632   t10483 = t10482 * t1340;
7633   t10484 = t10483 * t1416;
7634   t10489 = t1341 * t10354 * t2365 / 0.9e1 - t3783 * t3611 * t2372 / 0.3e1 - t1341 * t10369 * t816 / 0.3e1 - t1341 * t3611 * t2361 / 0.6e1 - t10469 + 0.76967333333333333333e1 * t10337 - 0.39583200000000000000e2 * t10339 - 0.21990666666666666666e1 * t10343 - 0.65972000000000000000e1 * t10347 + 0.10738881612762167582e3 * t10328 * t2245 + t10353 + t10478 / 0.6e1 - t3783 * t3615 * t834 - 0.2e1 / 0.9e1 * t10484 - t1341 * t10373 * t328 / 0.2e1;
7635   t10491 = 0.4e1 / 0.3e1 * t3771 * t3777;
7636   t10492 = t3782 * t4;
7637   t10502 = t1405 * t599 * t557 * t302;
7638   t10511 = 0.87962666666666666666e1 * t10425 * t828;
7639   t10517 = t630 * t296 * t4;
7640   t10518 = t10517 * t3618;
7641   t10522 = -t10491 - t10492 * t199 * t558 / 0.2e1 - 0.2e1 / 0.9e1 * t10359 - 0.4e1 / 0.9e1 * t10363 - 0.2e1 / 0.3e1 * t10378 - 0.4e1 / 0.3e1 * t10382 - 0.21990666666666666666e1 * t10502 * t2344 + 0.10738881612762167582e3 * t10406 - t10409 / 0.2e1 - t10412 / 0.3e1 - 0.39583200000000000000e2 * t3619 * t2333 - t10511 - 0.65972000000000000000e1 * t10417 * t828 + 0.76967333333333333333e1 * t3619 * t2312 - 0.65972000000000000000e1 * t10518 * t2320 - 0.87962666666666666666e1 * t10426;
7642   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7643     v4rho3tau[2] = t10489 + t10522;
7644 
7645   t10526 = t10477 * t3793;
7646   t10531 = t10482 * t4;
7647   t10532 = t10531 * t1478;
7648   t10535 = 0.4e1 / 0.3e1 * t3771 * t3800;
7649   t10541 = t3804 * t3808;
7650   t10543 = 0.87962666666666666666e1 * t10541 * t866;
7651   t10547 = t212 * t296 * t4 * t1481;
7652   t10548 = t10547 * t417;
7653   t10550 = t793 * t1476;
7654   t10554 = t10483 * t1420;
7655   t10557 = 0.4e1 / 0.9e1 * t3771 * t3790;
7656   t10567 = t1405 * t794 * t588;
7657   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7658     v4rho3tau[3] = t1341 * t10446 * t2376 / 0.9e1 - t10526 / 0.6e1 + t10492 * t312 * t589 / 0.2e1 - t10532 / 0.6e1 - t10535 - t1341 * t3799 * t806 / 0.2e1 - 0.32986000000000000000e1 * t3809 * t2325 - t10543 - 0.2e1 / 0.3e1 * t10441 + t10445 - 0.10995333333333333333e1 * t10548 - t1341 * t10550 * t797 / 0.6e1 - 0.2e1 / 0.9e1 * t10554 - t10557 - t1341 * t3760 * t2383 / 0.6e1 + t3783 * t3760 * t2387 / 0.3e1 - 0.2e1 / 0.9e1 * t10434 - 0.4e1 / 0.9e1 * t10438 - 0.10995333333333333333e1 * t10567 * t2301;
7659 
7660   t10575 = t3771 * t3813;
7661   t10588 = t3771 * t3816;
7662   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7663     v4rho3tau[4] = -0.4e1 / 0.9e1 * t10484 - t10469 - t10491 - t10511 - 0.4e1 / 0.3e1 * t10478 - 0.2e1 / 0.9e1 * t10363 + t10353 - t10412 / 0.6e1 - 0.10995333333333333333e1 * t10343 - 0.2e1 / 0.9e1 * t10575 + t1341 * t10354 * t2545 / 0.9e1 - t1341 * t10369 * t878 / 0.6e1 - 0.10995333333333333333e1 * t10429 * t2507 - t3783 * t3611 * t2529 / 0.3e1 - 0.2e1 / 0.3e1 * t10588 - t1341 * t3611 * t2533 / 0.6e1 - t1341 * t3615 * t884 / 0.2e1 - 0.32986000000000000000e1 * t3619 * t2512 - t1341 * t1342 * t2487 / 0.2e1;
7664 
7665   t10613 = t3796 * t3941;
7666   t10616 = t530 * t3808;
7667   t10619 = t3805 * t1041;
7668   t10621 = t3804 * t3944;
7669   t10622 = t10621 * t417;
7670   t10624 = t3805 * t1034;
7671   t10630 = t3771 * t3824;
7672   t10632 = t3771 * t3828;
7673   t10634 = t1341 * t10446 * t2537 / 0.9e1 + t3783 * t3760 * t2541 / 0.3e1 - t1341 * t10550 * t841 / 0.3e1 - t1341 * t3760 * t2552 / 0.6e1 - t10557 - t10613 / 0.2e1 - t10532 / 0.3e1 + 0.10738881612762167582e3 * t10616 * t2425 + 0.76967333333333333333e1 * t10619 - 0.65972000000000000000e1 * t10622 - 0.39583200000000000000e2 * t10624 - 0.21990666666666666667e1 * t10548 - t1341 * t1412 * t2470 / 0.2e1 - 0.4e1 / 0.3e1 * t10630 - 0.2e1 / 0.3e1 * t10632;
7674   t10635 = t3771 * t3821;
7675   t10637 = t117 * t3939;
7676   t10650 = t10517 * t3808;
7677   t10654 = t1405 * t312 * t1476;
7678   t10657 = t10541 * t898;
7679   t10661 = t1405 * t794 * t588 * t410;
7680   t10664 = t1045 * t3956;
7681   t10666 = -0.2e1 / 0.9e1 * t10635 - t1341 * t10637 * t316 / 0.2e1 + t3783 * t3799 * t849 - 0.4e1 / 0.9e1 * t10554 + 0.4e1 / 0.3e1 * t10526 - t10535 - 0.2e1 / 0.9e1 * t10438 - 0.39583200000000000000e2 * t3809 * t2502 + 0.76967333333333333333e1 * t3809 * t2494 + 0.65972000000000000000e1 * t10650 * t2519 - 0.65972000000000000000e1 * t10654 * t866 - 0.87962666666666666666e1 * t10657 - 0.21990666666666666667e1 * t10661 * t2460 + 0.10738881612762167582e3 * t10664 + t10445 - t10543;
7682   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7683     v4rho3tau[5] = t10634 + t10666;
7684 
7685   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7686     v4rho3tau[6] = -0.2e1 / 0.3e1 * t10484 - 0.2e1 / 0.3e1 * t10575 - 0.2e1 * t10588 + t10353 + t1341 * t10354 * t2656 / 0.9e1 - t1341 * t3611 * t2849 / 0.2e1 - t1341 * t1342 * t2604 / 0.2e1;
7687 
7688   t10679 = t118 * t588;
7689   t10701 = t1405 * t562 * t3939;
7690   t10718 = -0.32302153261130400000e3 * t10316 * t10679 * t2841 - t1341 * t3760 * t2845 / 0.2e1 - 0.3e1 / 0.2e1 * t10613 - t10532 / 0.2e1 + t1341 * t10446 * t2651 / 0.9e1 + 0.23090200000000000000e2 * t10619 - 0.19791600000000000000e2 * t10622 - 0.11874960000000000000e3 * t10624 - 0.19241833333333333333e2 * t1482 * t2564 + 0.17317650000000000000e2 * t3945 * t1041 + 0.20781180000000000000e3 * t1482 * t2573 - 0.74218500000000000000e1 * t10701 * t417 - 0.89062200000000000000e2 * t3945 * t1034 + 0.32216644838286502747e3 * t10616 * t2587 - 0.32986000000000000000e1 * t10548 - t1341 * t1412 * t2599 / 0.2e1 - 0.3e1 / 0.2e1 * t1341 * t3799 * t902 - t1341 * t10550 * t889 / 0.2e1;
7691   t10737 = t3876 * t178;
7692   t10741 = t910 * t971;
7693   t10747 = t1440 * t399;
7694   t10753 = t568 * t1016;
7695   t10767 = t573 * t236;
7696   t10789 = -0.50000e5 / 0.6561e4 * t9630 * t145 * t2740 * t704 - 0.10000e5 / 0.729e3 * t10767 * t2782 - 0.2500e4 / 0.243e3 * t3511 * t145 * t367 * t9640 + 0.2200e4 / 0.243e3 * t3501 - 0.2000e4 / 0.243e3 * t3504 + 0.250e3 / 0.81e2 * t3508 + 0.2500e4 / 0.243e3 * t3521 + 0.12500e5 / 0.729e3 * t3514 - 0.20000e5 / 0.729e3 * t3518 + 0.11000e5 / 0.2187e4 * t3524 + 0.2500e4 / 0.81e2 * t3506 - 0.500e3 / 0.27e2 * t10767 * t2786 - 0.50e2 / 0.81e2 * t1451 * t2789 - 0.500e3 / 0.243e3 * t1272 * t1454 * t2733;
7697   t10809 = t2823 * t145;
7698   t10813 = t2810 * t145;
7699   t10844 = -0.25e2 / 0.81e2 * t1469 * t8114 - 0.250e3 / 0.81e2 * t2195 * t10809 * t9683 - 0.500e3 / 0.27e2 * t748 * t10813 * t9683 - 0.50e2 / 0.81e2 * t1464 * t8114 - 0.500e3 / 0.27e2 * t278 * t1468 * t9683 - 0.1250e4 / 0.2187e4 * t5999 * t8136 * t145 * t9702 - 0.10000e5 / 0.729e3 * t278 * t10813 * t9702 - 0.5000e4 / 0.243e3 * t748 * t10809 * t9702 - 0.5000e4 / 0.729e3 * t2195 * t8118 * t145 * t9702 + 0.250e3 / 0.81e2 * t3546 + 0.2200e4 / 0.243e3 * t3549 - 0.1000e4 / 0.243e3 * t3553 + 0.125e3 / 0.81e2 * t3555 + 0.2500e4 / 0.81e2 * t3539 + 0.2500e4 / 0.81e2 * t3544 + 0.1250e4 / 0.243e3 * t3557 - 0.2000e4 / 0.243e3 * t3542;
7700   t10845 = my_piecewise3(t167, 0.3e1 * t1459 * t995 * t173 + 0.3e1 * t1459 * t997 * t173 + t579 * t2792 * t173 + t579 * t2797 * t173 + 0.3e1 * t3910 * t391 * t173 + t10789 * t173 + 0.3e1 * t3915 * t392, t10844);
7701   t10895 = 0.25e2 / 0.4374e4 * t8026 * t3920 * t9816 + 0.125e3 / 0.1458e4 * t563 * t2756 * t8007 - 0.125e3 / 0.2187e4 * t563 * t9813 * t9816 + t1437 * t9785 / 0.324e3 + 0.5e1 / 0.162e3 * t3873 * t9788 - t1433 * t9796 / 0.108e3 - 0.5e1 / 0.27e2 * t3866 * t9800 + 0.5e1 / 0.54e2 * t3866 * t9775 + 0.22e2 / 0.243e3 * t3451 + 0.25e2 / 0.81e2 * t3467 - 0.25e2 / 0.486e3 * t3479 - 0.10e2 / 0.81e2 * t3454 + 0.5e1 / 0.108e3 * t3462 - 0.22e2 / 0.243e3 * t3470 + 0.10e2 / 0.243e3 * t3473 - 0.5e1 / 0.324e3 * t3476 - 0.25e2 / 0.162e3 * t3458;
7702   t10900 = -0.12e2 * t1423 * t10737 * t379 - 0.12e2 * t10741 * t1425 - 0.12e2 * t1423 * t3838 * t974 + 0.24e2 * t1423 * t10747 * t379 + 0.24e2 * t3835 * t3843 + 0.12e2 * t1423 * t10753 * t379 + 0.12e2 * t1423 * t3842 * t974 - 0.4e1 * t1423 * t1424 * t2763 + 0.1174e1 * t10845 - 0.6e1 * t339 * t1428 * t1016 + 0.2e1 * t339 * t2760 * t568 * t178 + 0.6e1 * t339 * t971 * t1440 * t178 - 0.6e1 * t339 * t3849 * t399 - 0.6e1 * t339 * t1441 * t1016 - 0.2e1 * t339 * t569 * t2828 + 0.2e1 * t339 * t159 * t10895 * t178;
7703   t10915 = t7920 * t159;
7704   t10919 = t2684 * t376;
7705   t10950 = 0.36e2 * t3831 * t1424 * t379 * t974 + 0.6e1 * t339 * t376 * t3876 * t178 - 0.48e2 * t10915 * t1424 * t2685 + 0.6e1 * t910 * t1448 * t974 - 0.3e1 * t339 * t974 * t1473 + 0.6e1 * t910 * t911 * t1473 - 0.6e1 * t2684 * t2685 * t585 - t339 * t2763 * t585 - 0.3e1 * t339 * t379 * t3936 - 0.12e2 * t339 * t3853 * t399 - 0.6e1 * t339 * t3877 * t399 + 0.36e2 * t3831 * t3838 * t911 - 0.36e2 * t3831 * t3842 * t911 - t166 * t10845 + 0.36e2 * t10919 * t3832 - 0.24e2 * t3835 * t3839 - 0.12e2 * t3835 * t3846;
7706   t10963 = t588 * t2621 * t1909;
7707   t10968 = t588 * t19 * t38;
7708   t10976 = -0.3e1 / 0.2e1 * t1341 * t10637 * t333 - 0.4e1 * t10630 - 0.2e1 * t10632 - 0.2e1 / 0.3e1 * t10635 - 0.2e1 / 0.3e1 * t10554 - 0.32986000000000000000e1 * t10567 * t2662 - 0.19791600000000000000e2 * t10654 * t898 - 0.98958000000000000000e1 * t3809 * t2669 - 0.11874960000000000000e3 * t3809 * t2674 + 0.23090200000000000000e2 * t3809 * t2678 - 0.26388800000000000000e2 * t10657 - 0.3e1 / 0.8e1 * t530 * t562 * (t10900 + t10950) * t192 + 0.32216644838286502747e3 * t10664 + 0.24162483628714877061e3 * t3953 * t1476 * t521 * t1047 * t1049 - 0.59374800000000000000e3 * t4704 * t10963 * t2626 + 0.16536775210765846035e1 * t3953 * t10968 * t2633 - 0.24162483628714877060e3 * t3953 * t3954 * t145 * t1049 + t10445;
7709   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7710     v4rho3tau[7] = t10718 + t10976;
7711 
7712   t10981 = 0.27831937500000000000e1 * t3972;
7713   t10983 = 0.30924375000000000000e0 * t3979;
7714   t10985 = 0.12369750000000000000e1 * t3986;
7715   t10988 = 0.75507761339733990814e1 * t3992;
7716   t10990 = -0.92773125000000000000e0 * t3959 + 0.30203104535893596326e2 * t3964 - 0.49479000000000000000e1 * t3968 + 0.37109250000000000000e1 * t3970 - t10981 + 0.11132775000000000000e2 * t3977 - t10983 + 0.12369750000000000000e1 * t3984 + t10985 - 0.49479000000000000000e1 * t3988 - 0.83495812500000000000e1 * t3990 + t10988 + 0.44531100000000000000e2 * t3998;
7717   t11004 = t2952 * t4150;
7718   t11012 = t212 * t1543;
7719   t11014 = t200 * t11012 * t207;
7720   t11019 = t17 * t4140;
7721   t11024 = t8 * t631 * t1544 / 0.12e2;
7722   t11026 = t298 * t18 * t4140;
7723   t11029 = t1179 * t777;
7724   t11039 = 0.10308125000000000000e0 * t1892 * t1558;
7725   t11040 = t639 * t3983;
7726   t11048 = 0.92773125000000000000e0 * t1892 * t1553;
7727   t11049 = t639 * t3976;
7728   t11058 = 0.24226614945847800000e3 * t1166 * t463 * t1550 * t2973 - 0.90849806046929250000e2 * t1166 * t288 * t4145 * t4149 - 0.30283268682309750000e2 * t11004 - 0.16655797775270362500e3 * t1166 * t4146 * t2973 - t600 * t4163 * t602 / 0.6e1 - t11014 / 0.3e1 - t200 * t4163 * t625 / 0.2e1 - t200 * t11019 * t207 + t11024 - 0.49479000000000000000e1 * t11026 * t309 - 0.90849806046929250000e2 * t300 * t11029 * t769 * t5754 - 0.14431375000000000000e1 * t300 * t304 * t11029 * t110 + t11039 + 0.41232500000000000000e0 * t11040 - 0.12988237500000000000e2 * t300 * t771 * t1550 * t650 * t110 + t11048 + 0.37109250000000000000e1 * t11049 - 0.46386562500000000000e0 * t1878 * t1558 + 0.30203104535893596326e2 * t6079 * t3963 + 0.15101552267946798163e2 * t1883 * t3962 * t6052;
7729   t11059 = t8408 * t471;
7730   t11065 = t4011 * t19;
7731   t11069 = t1896 * t1558;
7732   t11078 = t298 * t213 * t1543;
7733   t11079 = t11078 * t309;
7734   t11081 = t6062 * t468;
7735   t11082 = t4005 * t110;
7736   t11088 = t6069 * t1562;
7737   t11089 = t26 * t110;
7738   t11094 = t1896 * t1553;
7739   t11111 = t6076 * t3963;
7740   t11116 = 0.41232500000000000000e0 * t8366 * t471;
7741   t11117 = 0.62012907040371922630e0 * t1883 * t11088 * t11089 * t206 - 0.27831937500000000000e1 * t11094 + 0.11132775000000000000e2 * t764 * t3976 - 0.38964712500000000000e3 * t300 * t6164 * t656 * t5754 - 0.29687400000000000000e2 * t3967 * t773 + 0.18554625000000000000e1 * t8370 * t471 + 0.57725500000000000000e1 * t3967 * t780 + 0.50338507559822660543e1 * t6093 * t3962 * t6094 + 0.10067701511964532109e2 * t11111 + 0.57725500000000000000e1 * t1155 * t2901 - t11116;
7742   t11120 = t2890 * t1175;
7743   t11129 = t750 * t691 * t24;
7744   t11132 = t725 * t687;
7745   t11159 = t1128 * t1128;
7746   t11174 = t5959 * t5930 * t23;
7747   t11178 = t229 * t236 * t1134;
7748   t11185 = t4122 * t2177;
7749   t11189 = t656 * t36 * t739;
7750   t11210 = -0.625e3 / 0.2916e4 * t278 * t2182 * t45 * t11174 + 0.250e3 / 0.243e3 * t2172 * t11178 - 0.625e3 / 0.1944e4 * t748 * t2197 * t45 * t11174 - 0.125e3 / 0.1296e4 * t2172 * t11185 - 0.475e3 / 0.1458e4 * t737 * t11189 + 0.250e3 / 0.243e3 * t2183 * t11178 - 0.125e3 / 0.1296e4 * t2183 * t11185 - 0.625e3 / 0.5832e4 * t2195 * t5981 * t45 * t11174 - 0.475e3 / 0.2916e4 * t751 * t11189 + 0.125e3 / 0.729e3 * t2198 * t11178 - 0.125e3 / 0.7776e4 * t2198 * t11185 - 0.625e3 / 0.69984e5 * t5999 * t6001 * t45 * t11174;
7751   t11211 = my_piecewise3(t83, (-0.475e3 / 0.1458e4 * params->c1 * t656 * t721 + 0.250e3 / 0.243e3 * t4100 * t4103 - 0.625e3 / 0.2916e4 * t1522 * t236 * t11129 - 0.125e3 / 0.1296e4 * t1522 * t11132 - 0.3125e4 / 0.26244e5 * t8483 * t45 * t691 * t704 + 0.1250e4 / 0.2187e4 * t3103 * t229 * t252 * t24 - 0.625e3 / 0.11664e5 * t3103 * t45 * t687 * t24 - 0.2375e4 / 0.2187e4 * t84 * t725 * t656) * t89 + 0.2e1 * t4113 * t276 * t89 + t1528 * t732 * t89 + t1528 * t734 * t89 + 0.2e1 * t11159 * t89 + 0.4e1 * t1130 * t1129 + 0.2e1 * t456 * t3118 + t1530 * t732 * t89 + t1530 * t734 * t89, t11210);
7752   t11224 = t1107 * t1107;
7753   t11245 = 0.1174e1 * t11211 - 0.2e1 * t220 * t3076 * t460 + 0.2e1 * t644 * t1485 * t755 + 0.2e1 * t644 * t645 * t1540 + 0.24e2 * t8580 * t3006 - 0.4e1 * t644 * t11224 * t94 - t82 * t11211 - 0.12e2 * t2054 * t1519 * t645 + 0.6e1 * t2054 * t1517 * t645 - 0.24e2 * t5773 * t1486 * t645 - 0.2e1 * t220 * t4084 * t285 - t220 * t1516 * t755 - t220 * t711 * t1540;
7754   t11270 = t1104 * t1104;
7755   t11287 = t8531 * t72;
7756   t11293 = t8639 * t72;
7757   t11297 = t5930 * t5868;
7758   t11311 = -0.19e2 / 0.3888e4 * t56 * t656 * t36 * t695 - 0.5e1 / 0.972e3 * t4062 * t4067 + 0.5e1 / 0.486e3 * t4062 * t236 * t4072 + 0.5e1 / 0.10368e5 * t1506 * t11287 + 0.125e3 / 0.93312e5 * t1506 * t3048 * t5869 - 0.5e1 / 0.5184e4 * t4070 * t11293 - 0.125e3 / 0.139968e6 * t1506 * t8627 * t11297 + 0.19e2 / 0.11664e5 * t702 * t656 * t705 - 0.5e1 / 0.2916e4 * t2127 * t229 * t4067 + 0.5e1 / 0.31104e5 * t4078 * t11287 + 0.25e2 / 0.279936e6 * t5888 * t4122 * t11297;
7759   t11353 = -0.2e1 * t220 * t264 * t4137 + t220 * (0.19e2 / 0.162e3 * t37 * t39 * t656 * t52 - 0.41e2 / 0.32e2 * t237 * t662 * sigma[0] * t52 + 0.1323e4 / 0.3200e4 * t668 * t673 * t41 * t19 * t675 - 0.78003e5 / 0.2048000e7 * t4050 * t3033 + 0.59049e5 / 0.10240000e8 * t5829 * t669 / t2089 / t25 * t52 + 0.4e1 * t11270 + 0.4e1 * t443 * t3073 + 0.2e1 * t708 * t1513 + 0.4e1 * t261 * t4081 + 0.2e1 * t75 * t11311) * t94 + 0.6e1 * t2054 * t1486 * t711 - 0.4e1 * t644 * t447 * t3076 - 0.2e1 * t644 * t1517 * t711 + 0.8e1 * t644 * t1110 * t1107 - 0.12e2 * t2054 * t4034 * t264 + 0.8e1 * t644 * t4092 * t264 + 0.4e1 * t644 * t4087 * t264 - 0.4e1 * t644 * t4085 * t264 + 0.8e1 * t644 * t4095 * t264 + 0.4e1 * t644 * t1519 * t711 - 0.4e1 * t220 * t1107 * t1146 - 0.2e1 * t220 * t446 * t3152;
7760   t11370 = t298 * t613 * t1543;
7761   t11375 = t8288 * t1159;
7762   t11388 = t2026 * t4158;
7763   t11394 = t2026 * t4154;
7764   t11407 = t8 * t213 * t4141;
7765   t11419 = -0.20616250000000000000e0 * t2018 * t304 * t1556 * t2019 - 0.41232500000000000000e0 * t11388 - 0.18554625000000000000e1 * t2018 * t771 * t1551 * t2019 - 0.37109250000000000000e1 * t11394 + 0.14843700000000000000e2 * t615 * t771 * t3974 * t616 + 0.49479000000000000000e1 * t8278 * t1159 + 0.24739500000000000000e1 * t2984 * t2980 - 0.12369750000000000000e1 * t2030 * t4158 - t11407 / 0.4e1 + 0.52880681250000000000e3 * t1166 * t1917 * t468 * t2931 * t110 + 0.54261293660325432299e0 * t784 * t1925 * t1562 * t786 * t110;
7766   t11421 = t1901 * t4017;
7767   t11427 = t97 * t5054;
7768   t11432 = t4146 * t4147;
7769   t11463 = t2952 * t3997;
7770   t11465 = t1901 * t4002;
7771   t11484 = t1901 * t4022;
7772   t11486 = t2952 * t4008;
7773   t11488 = t1901 * t4013;
7774   t11491 = 0.25169253779911330271e1 * t5747 * t1565;
7775   t11492 = 0.14843700000000000000e2 * t11463 - 0.40270806047858128434e2 * t11465 - 0.11132775000000000000e3 * t1166 * t3996 * t2917 + 0.60406209071787192651e2 * t784 * t4000 * t786 * t788 - 0.16699162500000000000e3 * t1166 * t5725 * t4007 + 0.46509680280278941972e0 * t784 * t5764 * t4012 + 0.60406209071787192652e2 * t784 * t4020 * t26 * t788 + 0.75507761339733990814e1 * t11484 - 0.55663875000000000000e2 * t11486 + 0.15503226760092980657e0 * t11488 - t11491;
7776   t11497 = t4026 / 0.4e1;
7777   t11503 = -0.12081241814357438530e3 * t4003 - 0.16699162500000000000e3 * t4009 + 0.46509680280278941972e0 * t4014 + 0.60406209071787192652e2 * t4018 + 0.22652328401920197244e2 * t4023 + t10 * (t11492 + 0.20135403023929064217e2 * t11421 + t11419 + 0.16493000000000000000e1 * t11375 - 0.16493000000000000000e1 * t11120 + t11117 - 0.16493000000000000000e1 * t11079 - 0.30924375000000000000e0 * t11069 + 0.12369750000000000000e1 * t11059 + t11058 + 0.11326164200960098622e2 * t784 * t758 * t1562 * t102 * t788 + 0.44531100000000000000e2 * t1166 * t1149 * t769 * t19 * t1169 - 0.12081241814357438530e3 * t784 * t1149 * t1179 * t26 * t788 + 0.80541612095716256868e2 * t784 * t1543 * t468 * t786 * t788 - 0.3e1 / 0.8e1 * t8 * t18 * (t11245 + t11353) * t111 - 0.61848750000000000000e0 * t615 * t304 * t1556 * t2006 - 0.55663875000000000000e1 * t615 * t771 * t1551 * t2006 + 0.16493000000000000000e1 * t615 * t304 * t3981 * t616 - 0.10067701511964532108e2 * t784 * t1563 * t786 * t788 + 0.24647459318104087313e3 * t784 * t11427 * t27 * t5754 - 0.22265550000000000000e3 * t615 * t11081 * t11082 * t206 - 0.12113307472923900000e3 * t6124 * t11432 * t6127 + 0.44531100000000000000e3 * t1166 * t8203 * t2933 - 0.12402581408074384526e1 * t784 * t8209 * t2938 + 0.80541612095716256869e2 * t1883 * t11065 * t1887 - 0.11132775000000000000e2 * t2030 * t4154 - 0.65972000000000000000e1 * t11370 * t618 + 0.82465000000000000000e0 * t8284 * t2988 - 0.65972000000000000000e1 * t2984 * t2994 - 0.49479000000000000000e1 * t2911 * t1175 - 0.41747906250000000000e1 * t1878 * t1553 + 0.12369750000000000000e1 * t764 * t3983 + 0.59374800000000000000e2 * t2984 * t2881 - 0.16108322419143251374e3 * t8390 * t2886) - t11497 - 0.3e1 / 0.4e1 * t4143 - 0.90849806046929250000e2 * t4151 - 0.11132775000000000000e2 * t4155 - 0.12369750000000000000e1 * t4159 + 0.49479000000000000000e1 * t4161 - t4165;
7778   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7779     v4rho2sigma2[0] = t10990 + t11503;
7780 
7781   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7782     v4rho2sigma2[1] = 0.0e0;
7783 
7784   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7785     v4rho2sigma2[2] = 0.0e0;
7786 
7787   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7788     v4rho2sigma2[3] = 0.0e0;
7789 
7790   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7791     v4rho2sigma2[4] = 0.0e0;
7792 
7793   t11504 = t4175 / 0.4e1;
7794   t11506 = 0.12369750000000000000e1 * t4179;
7795   t11508 = 0.27831937500000000000e1 * t4185;
7796   t11510 = 0.30924375000000000000e0 * t4191;
7797   t11512 = 0.75507761339733990814e1 * t4198;
7798   t11518 = t8 * t810 * t1628 / 0.12e2;
7799   t11523 = 0.25169253779911330271e1 * t6871 * t1649;
7800   t11524 = t212 * t1627;
7801   t11526 = t313 * t11524 * t316;
7802   t11534 = t6888 * t4195;
7803   t11540 = t2308 * t4188;
7804   t11546 = t2308 * t4182;
7805   t11550 = t9089 * t1195;
7806   t11555 = 0.41232500000000000000e0 * t9165 * t524;
7807   t11561 = 0.92773125000000000000e0 * t2241 * t1637;
7808   t11567 = 0.10308125000000000000e0 * t2241 * t1642;
7809   t11568 = -t313 * t4170 * t806 / 0.2e1 + t11518 + 0.15101552267946798163e2 * t2420 * t4194 * t6901 - t11523 - t11526 / 0.3e1 - t795 * t4170 * t797 / 0.6e1 + 0.50338507559822660543e1 * t6883 * t4194 * t6884 + 0.10067701511964532109e2 * t11534 - 0.20616250000000000000e0 * t2298 * t412 * t1640 * t2299 - 0.41232500000000000000e0 * t11540 - 0.18554625000000000000e1 * t2298 * t1032 * t1635 * t2299 - 0.37109250000000000000e1 * t11546 + 0.82465000000000000000e0 * t9084 * t3180 + 0.16493000000000000000e1 * t11550 + 0.24739500000000000000e1 * t3264 * t3186 - t11555 - 0.55663875000000000000e1 * t863 * t1032 * t1635 * t2323 + t11561 - 0.61848750000000000000e0 * t863 * t412 * t1640 * t2323 + t11567;
7810   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7811     v4rho2sigma2[5] = -t4172 - t11504 + 0.49479000000000000000e1 * t4177 + t11506 - 0.11132775000000000000e2 * t4183 - t11508 - 0.12369750000000000000e1 * t4189 - t11510 + 0.30203104535893596326e2 * t4196 + t11512 + t10 * t11568;
7812 
7813   t11570 = t4217 - t3960 + t3965 - t3969 + t3971 - t10981 + t3978 - t10983 + t3985 + t10985 - t3989 - t3991 + t10988 + t3999 - t4004;
7814   t11582 = t200 * t11012 * t328;
7815   t11599 = -t600 * t4163 * t816 / 0.6e1 - t200 * t11019 * t328 / 0.2e1 - t200 * t832 * t1543 * t834 / 0.2e1 - t11582 / 0.6e1 - 0.18554625000000000000e1 * t6475 * t24 * t1550 * t29 * t110 * t2342 + 0.82465000000000000000e0 * t9015 * t3214 - 0.20616250000000000000e0 * t2339 * t100 * t1179 * t3213 - 0.15141634341154875000e2 * t11004 - t11014 / 0.6e1 + t11024 + t11039 + 0.20616250000000000000e0 * t11040 + t11048;
7816   t11615 = t8288 * t1206;
7817   t11624 = 0.18554625000000000000e1 * t11049 + 0.61848750000000000000e0 * t11059 - 0.15462187500000000000e0 * t11069 - 0.82465000000000000000e0 * t11079 - 0.13915968750000000000e1 * t11094 + 0.50338507559822660543e1 * t11111 - t11116 - 0.82465000000000000000e0 * t11120 + 0.74218500000000000000e1 * t615 * t771 * t3974 * t826 - 0.55663875000000000000e1 * t2317 * t771 * t1551 * t2318 + 0.82465000000000000000e0 * t11615 - 0.32986000000000000000e1 * t2984 * t3227 + 0.24739500000000000000e1 * t8893 * t3234 + 0.50338507559822660543e1 * t6093 * t3962 * t6598;
7818   t11634 = t2026 * t4212;
7819   t11644 = t2026 * t4208;
7820   t11654 = -0.61848750000000000000e0 * t2030 * t4212 - 0.55663875000000000000e1 * t2030 * t4208 - 0.32986000000000000000e1 * t11370 * t828 + 0.24739500000000000000e1 * t8278 * t1206 - 0.20616250000000000000e0 * t11634 + 0.82465000000000000000e0 * t615 * t304 * t3981 * t826 - 0.61848750000000000000e0 * t2317 * t304 * t1556 * t2318 - 0.18554625000000000000e1 * t11644 + 0.82465000000000000000e0 * t11375 - 0.20616250000000000000e0 * t11388 - 0.18554625000000000000e1 * t11394 - t11407 / 0.8e1 - 0.60566537364619500001e2 * t6124 * t11432 * t6518 + 0.10067701511964532108e2 * t11421;
7821   t11673 = t6076 * t4215;
7822   t11682 = 0.74218500000000000000e1 * t11463 - 0.20135403023929064217e2 * t11465 + 0.37753880669866995407e1 * t11484 - 0.27831937500000000000e2 * t11486 + 0.77516133800464903287e-1 * t11488 - t11491 - 0.11132775000000000000e3 * t615 * t11081 * t11082 * t327 + 0.31006453520185961315e0 * t1883 * t11088 * t11089 * t327 + 0.40270806047858128434e2 * t1883 * t11065 * t2244 + 0.29687400000000000000e2 * t2984 * t3223 + 0.50338507559822660543e1 * t11673 + 0.15101552267946798163e2 * t6442 * t3962 * t6443 + 0.15101552267946798163e2 * t6079 * t4215 - 0.80541612095716256868e2 * t8390 * t3230;
7823   t11686 = -t4010 + t4015 + t4019 + t4024 - t11497 - t4144 - t4152 + t4206 - t4210 - t4214 - t4156 - t4160 + t4162 + t10 * (t11599 + t11624 + t11654 + t11682) - t4166 - t4204;
7824   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7825     v4rho2sigma2[6] = t11570 + t11686;
7826 
7827   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7828     v4rho2sigma2[7] = 0.0e0;
7829 
7830   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7831     v4rho2sigma2[8] = 0.0e0;
7832 
7833   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7834     v4rho2sigma2[9] = 0.0e0;
7835 
7836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7837     v4rho2sigma2[10] = 0.0e0;
7838 
7839   t11687 = t4224 + t4229 - t4231 + t4234 - t4238 + t4240 - t4242 - t4244 - t11508 - t11510 + t4197 + t11506 - t4249 - t4256 + t4261;
7840   t11689 = t8 * t320 * t4389;
7841   t11695 = t313 * t11524 * t333;
7842   t11701 = t17 * t4388;
7843   t11718 = t3294 * t4398;
7844   t11725 = -t11689 / 0.8e1 - t795 * t4170 * t841 / 0.6e1 - t11695 / 0.6e1 + t313 * t832 * t1627 * t849 / 0.2e1 - t313 * t11701 * t316 / 0.2e1 - 0.18554625000000000000e1 * t7398 * t24 * t1634 * t124 * t191 * t2458 - 0.20616250000000000000e0 * t2455 * t100 * t1329 * t3273 + 0.82465000000000000000e0 * t9426 * t3274 - t11526 / 0.6e1 - 0.15141634341154875000e2 * t11718 + t11518 + 0.24739500000000000000e1 * t9451 * t1195 + 0.50338507559822660543e1 * t6883 * t4194 * t7310;
7845   t11746 = t2308 * t4404;
7846   t11748 = t2308 * t4408;
7847   t11750 = t9089 * t1311;
7848   t11757 = t298 * t861 * t1627;
7849   t11762 = 0.55663875000000000000e1 * t2516 * t1032 * t1635 * t2517 + 0.82465000000000000000e0 * t863 * t412 * t4225 * t864 - 0.24739500000000000000e1 * t9475 * t3281 - 0.32986000000000000000e1 * t3264 * t3298 + 0.74218500000000000000e1 * t863 * t1032 * t4220 * t864 + 0.61848750000000000000e0 * t2516 * t412 * t1640 * t2517 - 0.18554625000000000000e1 * t11746 - 0.20616250000000000000e0 * t11748 + 0.82465000000000000000e0 * t11750 - 0.55663875000000000000e1 * t2498 * t4182 - 0.61848750000000000000e0 * t2498 * t4188 - 0.32986000000000000000e1 * t11757 * t866 + 0.82465000000000000000e0 * t11550 - 0.20616250000000000000e0 * t11540;
7850   t11765 = t3294 * t4273;
7851   t11767 = t2430 * t4263;
7852   t11769 = t2430 * t4268;
7853   t11771 = t3294 * t4254;
7854   t11773 = t2430 * t4259;
7855   t11775 = t2430 * t4247;
7856   t11777 = t4394 * t4395;
7857   t11781 = t2417 * t1637;
7858   t11783 = t2417 * t1642;
7859   t11786 = t298 * t320 * t1627;
7860   t11787 = t11786 * t417;
7861   t11789 = t9372 * t524;
7862   t11791 = t6888 * t4232;
7863   t11793 = -0.18554625000000000000e1 * t11546 + 0.74218500000000000000e1 * t11765 + 0.10067701511964532109e2 * t11767 + 0.37753880669866995407e1 * t11769 - 0.27831937500000000000e2 * t11771 + 0.77516133800464903287e-1 * t11773 - 0.20135403023929064217e2 * t11775 - 0.60566537364619500000e2 * t7412 * t11777 * t7415 - t11523 - 0.13915968750000000000e1 * t11781 - 0.15462187500000000000e0 * t11783 - 0.82465000000000000000e0 * t11787 + 0.61848750000000000000e0 * t11789 + 0.50338507559822660543e1 * t11791;
7864   t11794 = t3268 * t1325;
7865   t11796 = t870 * t4227;
7866   t11798 = t870 * t4222;
7867   t11802 = t4257 * t19;
7868   t11808 = t7254 * t521;
7869   t11809 = t4251 * t191;
7870   t11814 = t6069 * t1646;
7871   t11815 = t121 * t191;
7872   t11826 = -0.82465000000000000000e0 * t11794 + 0.20616250000000000000e0 * t11796 + 0.18554625000000000000e1 * t11798 + 0.29687400000000000000e2 * t3264 * t3291 + 0.40270806047858128435e2 * t2420 * t11802 * t2424 + 0.15101552267946798163e2 * t7267 * t4195 - 0.11132775000000000000e3 * t863 * t11808 * t11809 * t315 + 0.31006453520185961315e0 * t2420 * t11814 * t11815 * t315 - 0.80541612095716256868e2 * t9354 * t3305 - 0.15101552267946798163e2 * t7284 * t4194 * t7285 + 0.50338507559822660543e1 * t11534 - t11555 + t11561 + t11567;
7873   t11830 = t4265 + t4270 + t4275 + t11512 - t4392 - t11504 - t4400 + t4402 - t4406 - t4410 + t4178 - t4184 - t4190 + t10 * (t11725 + t11762 + t11793 + t11826) - t4173 - t4413;
7874   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7875     v4rho2sigma2[11] = t11687 + t11830;
7876 
7877   t11872 = -t200 * t4163 * t884 / 0.2e1 - t11491 + 0.15101552267946798163e2 * t1883 * t3962 * t6879 - t11116 + t11039 + t11048 - t600 * t4163 * t878 / 0.6e1 - t11582 / 0.3e1 - 0.18554625000000000000e1 * t2018 * t771 * t1551 * t2505 - 0.20616250000000000000e0 * t2018 * t304 * t1556 * t2505 + 0.82465000000000000000e0 * t8284 * t3322 - 0.41232500000000000000e0 * t11634 - 0.37109250000000000000e1 * t11644 + 0.16493000000000000000e1 * t11615 - 0.61848750000000000000e0 * t615 * t304 * t1556 * t2510 + 0.50338507559822660543e1 * t6093 * t3962 * t6875 + t11024 - 0.55663875000000000000e1 * t615 * t771 * t1551 * t2510 + 0.24739500000000000000e1 * t2984 * t3327 + 0.10067701511964532109e2 * t11673;
7878   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7879     v4rho2sigma2[12] = -t4203 - t11497 + 0.49479000000000000000e1 * t4205 + t10985 - 0.11132775000000000000e2 * t4209 - t10981 - 0.12369750000000000000e1 * t4213 - t10983 + 0.30203104535893596326e2 * t4216 + t10988 + t10 * t11872;
7880 
7881   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7882     v4rho2sigma2[13] = 0.0e0;
7883 
7884   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7885     v4rho2sigma2[14] = 0.0e0;
7886 
7887   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7888     v4rho2sigma2[15] = 0.0e0;
7889 
7890   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7891     v4rho2sigma2[16] = 0.0e0;
7892 
7893   t11884 = 0.11132775000000000000e2 * t4223 + 0.12369750000000000000e1 * t4228 - 0.49479000000000000000e1 * t4230 + 0.30203104535893596326e2 * t4233 - 0.49479000000000000000e1 * t4237 + 0.37109250000000000000e1 * t4239 - 0.83495812500000000000e1 * t4241 - 0.92773125000000000000e0 * t4243 - t11508 - t11510 + t11506 - 0.12081241814357438530e3 * t4248 - 0.16699162500000000000e3 * t4255;
7894   t11939 = t1011 * t955 * t24;
7895   t11942 = t988 * t951;
7896   t11969 = t1280 * t1280;
7897   t11984 = t8096 * t8067 * t23;
7898   t11988 = t348 * t236 * t1286;
7899   t11995 = t4370 * t2805;
7900   t11999 = t922 * t36 * t1002;
7901   t12020 = -0.625e3 / 0.2916e4 * t278 * t2810 * t132 * t11984 + 0.250e3 / 0.243e3 * t2800 * t11988 - 0.625e3 / 0.1944e4 * t748 * t2823 * t132 * t11984 - 0.125e3 / 0.1296e4 * t2800 * t11995 - 0.475e3 / 0.1458e4 * t1000 * t11999 + 0.250e3 / 0.243e3 * t2811 * t11988 - 0.125e3 / 0.1296e4 * t2811 * t11995 - 0.625e3 / 0.5832e4 * t2195 * t8118 * t132 * t11984 - 0.475e3 / 0.2916e4 * t1012 * t11999 + 0.125e3 / 0.729e3 * t2824 * t11988 - 0.125e3 / 0.7776e4 * t2824 * t11995 - 0.625e3 / 0.69984e5 * t5999 * t8136 * t132 * t11984;
7902   t12021 = my_piecewise3(t167, (-0.475e3 / 0.1458e4 * params->c1 * t922 * t984 + 0.250e3 / 0.243e3 * t4348 * t4351 - 0.625e3 / 0.2916e4 * t1606 * t236 * t11939 - 0.125e3 / 0.1296e4 * t1606 * t11942 - 0.3125e4 / 0.26244e5 * t9630 * t132 * t955 * t704 + 0.1250e4 / 0.2187e4 * t3511 * t348 * t367 * t24 - 0.625e3 / 0.11664e5 * t3511 * t132 * t951 * t24 - 0.2375e4 / 0.2187e4 * t168 * t988 * t922) * t173 + 0.2e1 * t4361 * t391 * t173 + t1612 * t995 * t173 + t1612 * t997 * t173 + 0.2e1 * t11969 * t173 + 0.4e1 * t1282 * t1281 + 0.2e1 * t509 * t3526 + t1614 * t995 * t173 + t1614 * t997 * t173, t12020);
7903   t12023 = 0.8e1 * t910 * t1262 * t1259 - 0.24e2 * t7920 * t1570 * t911 + 0.6e1 * t2684 * t1601 * t911 - 0.2e1 * t910 * t1601 * t974 + 0.4e1 * t910 * t1603 * t974 - 0.12e2 * t2684 * t4282 * t379 - 0.4e1 * t910 * t500 * t3484 - 0.4e1 * t910 * t4333 * t379 + 0.4e1 * t910 * t4335 * t379 + 0.8e1 * t910 * t4340 * t379 + 0.8e1 * t910 * t4343 * t379 - t166 * t12021 + 0.24e2 * t9721 * t3414;
7904   t12057 = t1256 * t1256;
7905   t12074 = t9682 * t156;
7906   t12080 = t9799 * t156;
7907   t12084 = t8067 * t8006;
7908   t12098 = -0.19e2 / 0.3888e4 * t56 * t922 * t36 * t959 - 0.5e1 / 0.972e3 * t4310 * t4315 + 0.5e1 / 0.486e3 * t4310 * t236 * t4320 + 0.5e1 / 0.10368e5 * t1590 * t12074 + 0.125e3 / 0.93312e5 * t1590 * t3456 * t8007 - 0.5e1 / 0.5184e4 * t4318 * t12080 - 0.125e3 / 0.139968e6 * t1590 * t9813 * t12084 + 0.19e2 / 0.11664e5 * t966 * t922 * t968 - 0.5e1 / 0.2916e4 * t2755 * t348 * t4315 + 0.5e1 / 0.31104e5 * t4326 * t12074 + 0.25e2 / 0.279936e6 * t8026 * t4370 * t12084;
7909   t12118 = t1259 * t1259;
7910   t12128 = 0.1174e1 * t12021 - 0.2e1 * t339 * t499 * t3560 - t339 * t974 * t1624 - 0.2e1 * t339 * t379 * t4385 + 0.2e1 * t910 * t1569 * t1016 + t339 * (0.19e2 / 0.162e3 * t37 * t39 * t922 * t138 - 0.41e2 / 0.32e2 * t237 * t928 * sigma[2] * t138 + 0.1323e4 / 0.3200e4 * t668 * t937 * t128 * t19 * t939 - 0.78003e5 / 0.2048000e7 * t4298 * t3441 + 0.59049e5 / 0.10240000e8 * t5829 * t933 / t2717 / t120 * t138 + 0.4e1 * t12057 + 0.4e1 * t496 * t3481 + 0.2e1 * t971 * t1597 + 0.4e1 * t376 * t4329 + 0.2e1 * t159 * t12098) * t178 - 0.2e1 * t339 * t3484 * t513 - 0.4e1 * t339 * t1259 * t1298 + 0.2e1 * t910 * t911 * t1624 - 0.2e1 * t339 * t4332 * t399 - t339 * t1600 * t1016 - 0.4e1 * t910 * t12118 * t178 + 0.6e1 * t2684 * t1570 * t974 - 0.12e2 * t2684 * t1603 * t911;
7911   t12181 = -t11689 / 0.4e1 - t313 * t11701 * t333 - 0.3e1 / 0.8e1 * t8 * t119 * (t12023 + t12128) * t192 - t313 * t4170 * t902 / 0.2e1 - t795 * t4170 * t889 / 0.6e1 - t11695 / 0.3e1 - 0.30283268682309750000e2 * t11718 + 0.24226614945847800000e3 * t1316 * t516 * t1634 * t3407 - 0.90849806046929250000e2 * t1316 * t402 * t4393 * t4397 - 0.16655797775270362500e3 * t1316 * t4394 * t3407 - 0.12369750000000000000e1 * t2498 * t4408 - 0.61848750000000000000e0 * t863 * t412 * t1640 * t2667 - 0.65972000000000000000e1 * t11757 * t898 - 0.65972000000000000000e1 * t3264 * t3578 - 0.20616250000000000000e0 * t2298 * t412 * t1640 * t2660 + 0.16493000000000000000e1 * t863 * t412 * t4225 * t896 - 0.11132775000000000000e2 * t2498 * t4404 - 0.55663875000000000000e1 * t863 * t1032 * t1635 * t2667 + 0.49479000000000000000e1 * t9451 * t1311 + 0.24739500000000000000e1 * t3264 * t3572;
7912   t12235 = t181 * t5176;
7913   t12251 = 0.80541612095716256868e2 * t1045 * t1627 * t521 * t1047 * t1049 + 0.52880681250000000000e3 * t1316 * t2623 * t521 * t3389 * t191 + 0.54261293660325432299e0 * t1045 * t2631 * t1646 * t1047 * t191 - 0.10067701511964532108e2 * t1045 * t1647 * t1047 * t1049 - 0.11132775000000000000e3 * t1316 * t4272 * t3369 + 0.60406209071787192651e2 * t1045 * t4245 * t1047 * t1049 - 0.12113307472923900000e3 * t7412 * t11777 * t7806 + 0.24647459318104087313e3 * t1045 * t12235 * t122 * t7654 + 0.44531100000000000000e3 * t1316 * t10005 * t3391 - 0.12402581408074384526e1 * t1045 * t10010 * t3396 + 0.11326164200960098622e2 * t1045 * t1019 * t1646 * t183 * t1049;
7914   t12278 = t1329 * t1038;
7915   t12289 = t298 * t119 * t4388;
7916   t12307 = 0.50338507559822660543e1 * t6883 * t4194 * t7710 + 0.57725500000000000000e1 * t1307 * t3347 - 0.14431375000000000000e1 * t408 * t412 * t12278 * t191 - 0.12988237500000000000e2 * t408 * t1032 * t1634 * t916 * t191 - 0.49479000000000000000e1 * t12289 * t417 - 0.90849806046929250000e2 * t408 * t12278 * t1030 * t7654 - 0.46386562500000000000e0 * t2583 * t1642 - 0.29687400000000000000e2 * t4236 * t1034 + 0.18554625000000000000e1 * t9890 * t524 + 0.30203104535893596326e2 * t7267 * t4232 + 0.15101552267946798163e2 * t2420 * t4194 * t7714;
7917   t12345 = -0.27831937500000000000e1 * t11781 - 0.30924375000000000000e0 * t11783 - 0.16493000000000000000e1 * t11787 + 0.12369750000000000000e1 * t11789 + 0.10067701511964532109e2 * t11791 - 0.16493000000000000000e1 * t11794 + 0.41232500000000000000e0 * t11796 + 0.37109250000000000000e1 * t11798 - t11555 + t11561 + t11567;
7918   t12350 = 0.46509680280278941972e0 * t4260 + 0.60406209071787192652e2 * t4264 + 0.22652328401920197244e2 * t4269 + 0.44531100000000000000e2 * t4274 + t11512 - 0.3e1 / 0.4e1 * t4391 - t11504 - 0.90849806046929250000e2 * t4399 + 0.49479000000000000000e1 * t4401 - 0.11132775000000000000e2 * t4405 - 0.12369750000000000000e1 * t4409 + t10 * (t12345 + t12307 + t12251 + t12181 + 0.15503226760092980657e0 * t11773 - 0.40270806047858128434e2 * t11775 + 0.75507761339733990814e1 * t11769 - 0.55663875000000000000e2 * t11771 + 0.14843700000000000000e2 * t11765 + 0.20135403023929064217e2 * t11767 + 0.16493000000000000000e1 * t11750 - 0.37109250000000000000e1 * t11746 - 0.41232500000000000000e0 * t11748 - t11523 + t11518 + 0.12369750000000000000e1 * t1025 * t4227 - 0.41747906250000000000e1 * t2583 * t1637 + 0.59374800000000000000e2 * t3264 * t3357 - 0.16108322419143251374e3 * t9354 * t3360 - 0.49479000000000000000e1 * t3342 * t1325 + 0.11132775000000000000e2 * t1025 * t4222 + 0.57725500000000000000e1 * t4236 * t1041 + 0.82465000000000000000e0 * t9084 * t3582 + 0.44531100000000000000e2 * t1316 * t1301 * t1030 * t19 * t1319 - 0.12081241814357438530e3 * t1045 * t1301 * t1329 * t121 * t1049 + 0.14843700000000000000e2 * t863 * t1032 * t4220 * t896 - 0.18554625000000000000e1 * t2298 * t1032 * t1635 * t2660 + 0.60406209071787192652e2 * t1045 * t4266 * t121 * t1049 - 0.22265550000000000000e3 * t863 * t11808 * t11809 * t332 + 0.62012907040371922630e0 * t2420 * t11814 * t11815 * t332 - 0.38964712500000000000e3 * t408 * t7773 * t922 * t7654 - 0.16699162500000000000e3 * t1316 * t7681 * t4253 + 0.46509680280278941972e0 * t1045 * t7648 * t4258 + 0.80541612095716256869e2 * t2420 * t11802 * t2586) - t4412;
7919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7920     v4rho2sigma2[17] = t11884 + t12350;
7921 
7922   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7923     v4rho2sigmalapl[0] = 0.0e0;
7924 
7925   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7926     v4rho2sigmalapl[1] = 0.0e0;
7927 
7928   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7929     v4rho2sigmalapl[2] = 0.0e0;
7930 
7931   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7932     v4rho2sigmalapl[3] = 0.0e0;
7933 
7934   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7935     v4rho2sigmalapl[4] = 0.0e0;
7936 
7937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7938     v4rho2sigmalapl[5] = 0.0e0;
7939 
7940   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7941     v4rho2sigmalapl[6] = 0.0e0;
7942 
7943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7944     v4rho2sigmalapl[7] = 0.0e0;
7945 
7946   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7947     v4rho2sigmalapl[8] = 0.0e0;
7948 
7949   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7950     v4rho2sigmalapl[9] = 0.0e0;
7951 
7952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7953     v4rho2sigmalapl[10] = 0.0e0;
7954 
7955   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7956     v4rho2sigmalapl[11] = 0.0e0;
7957 
7958   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7959     v4rho2sigmalapl[12] = 0.0e0;
7960 
7961   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7962     v4rho2sigmalapl[13] = 0.0e0;
7963 
7964   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7965     v4rho2sigmalapl[14] = 0.0e0;
7966 
7967   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7968     v4rho2sigmalapl[15] = 0.0e0;
7969 
7970   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7971     v4rho2sigmalapl[16] = 0.0e0;
7972 
7973   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7974     v4rho2sigmalapl[17] = 0.0e0;
7975 
7976   t12351 = t3796 * t4536;
7977   t12407 = (0.1300e4 / 0.729e3 * t4101 - 0.1625e4 / 0.243e3 * t4104 + 0.1250e4 / 0.729e3 * t1679 * t236 * t11129 + 0.125e3 / 0.162e3 * t1679 * t11132 + 0.6250e4 / 0.6561e4 * t8483 * t1661 * t691 * t704 - 0.8125e4 / 0.2187e4 * t4108 + 0.625e3 / 0.1458e4 * t3103 * t1661 * t687 * t24 + 0.13000e5 / 0.2187e4 * t4111) * t89 + 0.2e1 * t4509 * t276 * t89 + t1685 * t732 * t89 + t1685 * t734 * t89 + t3704 * t455 * t89 + 0.2e1 * t1382 * t1128 * t89 + 0.2e1 * t4513 * t277 + t548 * t3118 * t89 + 0.2e1 * t4515 * t277 + t1687 * t733 + t1687 * t735;
7978   t12417 = t4519 * t2177;
7979   t12436 = 0.1250e4 / 0.729e3 * t278 * t2182 * t1661 * t11174 - 0.1625e4 / 0.243e3 * t4124 + 0.625e3 / 0.243e3 * t748 * t2197 * t1661 * t11174 + 0.125e3 / 0.162e3 * t2172 * t12417 + 0.1300e4 / 0.729e3 * t4128 - 0.1625e4 / 0.243e3 * t4130 + 0.125e3 / 0.162e3 * t2183 * t12417 + 0.625e3 / 0.729e3 * t2195 * t5981 * t1661 * t11174 + 0.650e3 / 0.729e3 * t4132 - 0.1625e4 / 0.1458e4 * t4134 + 0.125e3 / 0.972e3 * t2198 * t12417 + 0.625e3 / 0.8748e4 * t5999 * t6001 * t1661 * t11174;
7980   t12437 = my_piecewise3(t83, t12407, t12436);
7981   t12463 = -0.24e2 * t3625 * t3636 * t4423 + 0.24e2 * t10259 * t4424 + 0.24e2 * t3625 * t3632 * t4423 + 0.24e2 * t3625 * t1347 * t1107 * t264 + 0.12e2 * t3625 * t1347 * t446 * t711 + 0.1174e1 * t12437 - 0.8e1 * t1346 * t3632 * t1107 - 0.8e1 * t3629 * t4429 + 0.8e1 * t3629 * t4432 - 0.4e1 * t1346 * t10275 * t446 + 0.4e1 * t1346 * t10300 * t446 + 0.8e1 * t1346 * t3636 * t1107 + 0.8e1 * t1346 * t10296 * t446 - 0.4e1 * t4438 * t3640 - 0.4e1 * t1346 * t1347 * t3076;
7982   t12464 = t644 * t1104;
7983   t12476 = t1669 * t285;
7984   t12480 = t4471 * t94;
7985   t12490 = t1363 * t460;
7986   t12499 = t537 * t1146;
7987   t12506 = t2054 * t443;
7988   t12509 = 0.8e1 * t1346 * t12476 * t264 - 0.8e1 * t1346 * t12480 * t264 + 0.8e1 * t1346 * t12490 * t264 + 0.8e1 * t1346 * t12499 * t264 - 0.4e1 * t1346 * t4452 * t711 + 0.4e1 * t1346 * t4479 * t711 - 0.2e1 * t220 * t264 * t4530 + 0.12e2 * t3625 * t4452 * t645 - 0.12e2 * t3625 * t4479 * t645 - 0.8e1 * t12464 * t1348 + 0.12e2 * t12506 * t3626 - 0.8e1 * t3629 * t4453 + 0.8e1 * t3629 * t4480 - 0.8e1 * t4438 * t3633 + 0.8e1 * t4438 * t3637;
7989   t12557 = -0.48e2 * t10252 * t1347 * t446 * t645 + 0.4e1 * t220 * t261 * t4471 * t94 + 0.2e1 * t220 * t3073 * t537 * t94 - 0.4e1 * t220 * t1351 * t1146 - 0.4e1 * t220 * t1364 * t1146 - 0.6e1 * t2054 * t1677 * t645 + 0.2e1 * t644 * t1677 * t711 + 0.2e1 * t644 * t645 * t1697 - 0.2e1 * t220 * t538 * t3152 - 0.4e1 * t220 * t3647 * t460 - 0.2e1 * t220 * t3671 * t460 + 0.4e1 * t644 * t4495 * t264 + 0.4e1 * t644 * t4497 * t264 - 0.4e1 * t10268 * t1653 - 0.8e1 * t3629 * t4435;
7990   t12601 = 0.13e2 / 0.486e3 * t4064 + 0.65e2 / 0.1944e4 * t4068 - 0.65e2 / 0.972e3 * t4073 - 0.5e1 / 0.1296e4 * t1662 * t11287 - 0.125e3 / 0.11664e5 * t1662 * t3048 * t5869 + 0.5e1 / 0.648e3 * t4464 * t11293 + 0.125e3 / 0.17496e5 * t1662 * t8627 * t11297 - 0.13e2 / 0.1458e4 * t4076 + 0.65e2 / 0.5832e4 * t4079 - 0.5e1 / 0.3888e4 * t4468 * t11287 - 0.25e2 / 0.34992e5 * t5888 * t4519 * t11297;
7991   t12626 = 0.4e1 * t220 * t1104 * t1363 * t94 + 0.2e1 * t220 * t75 * t12601 * t94 + 0.2e1 * t220 * t708 * t1669 * t94 + 0.2e1 * t220 * t443 * t3670 * t94 - 0.2e1 * t220 * t1107 * t1396 - 0.2e1 * t220 * t1656 * t755 - 0.2e1 * t220 * t1670 * t755 - t220 * t711 * t1697 - 0.4e1 * t220 * t4441 * t285 - 0.4e1 * t220 * t4445 * t285 - 0.4e1 * t220 * t4456 * t285 - 0.4e1 * t220 * t4472 * t285 - t220 * t3076 * t554 - 0.2e1 * t220 * t3643 * t460 - t220 * t446 * t3730 - t82 * t12437;
7992   t12633 = t15 * t4534;
7993   t12636 = t3771 * t4420;
7994   t12641 = t598 * t1700;
7995   t12657 = t10425 * t1159;
7996   t12660 = t1405 * t199 * t1700;
7997   t12679 = -t12351 - 0.3e1 / 0.8e1 * t530 * t531 * (t12463 + t12509 + t12557 + t12626) * t111 - t1341 * t12633 * t207 - 0.4e1 / 0.3e1 * t12636 - t1341 * t4419 * t625 / 0.2e1 - t1341 * t12641 * t602 / 0.6e1 + 0.12113307472923900000e3 * t4549 * t557 * t1550 * t2973 + 0.41232500000000000000e0 * t10429 * t2988 - 0.32986000000000000000e1 * t3619 * t2994 + 0.24739500000000000000e1 * t10417 * t1159 + 0.12369750000000000000e1 * t3619 * t2980 + 0.32986000000000000000e1 * t12657 - 0.65972000000000000000e1 * t12660 * t618 - 0.55663875000000000000e2 * t4549 * t4551 * t2917 + 0.22265550000000000000e2 * t4549 * t1399 * t769 * t19 * t1169 - 0.60406209071787192650e2 * t3747 * t1399 * t1179 * t26 * t788 + 0.22265550000000000000e3 * t4549 * t10393 * t2933;
7998   t12692 = t1166 * t4552;
7999   t12694 = t784 * t4559;
8000   t12698 = t3608 * t1175;
8001   t12705 = 0.41232500000000000000e0 * t10342 * t471;
8002   t12712 = t10346 * t471;
8003   t12717 = t1405 * t531 * t4534;
8004   t12720 = t3804 * t4539;
8005   t12721 = t12720 * t309;
8006   t12724 = t10531 * t1702 / 0.6e1;
8007   t12725 = -0.62012907040371922630e0 * t3747 * t10398 * t2938 + 0.30203104535893596326e2 * t3747 * t4557 * t786 * t788 + 0.80541612095716256868e2 * t3747 * t1700 * t468 * t786 * t788 + 0.29687400000000000000e2 * t12692 - 0.80541612095716256867e2 * t12694 + 0.28862750000000000000e1 * t1407 * t2901 - 0.32986000000000000000e1 * t12698 - 0.24739500000000000000e1 * t3739 * t1175 + 0.57725500000000000000e1 * t4540 * t780 + t12705 - 0.80541612095716256867e2 * t10328 * t2886 + 0.92773125000000000000e0 * t10325 * t471 - 0.29687400000000000000e2 * t4540 * t773 + 0.24739500000000000000e1 * t12712 + 0.29687400000000000000e2 * t3619 * t2881 - 0.49479000000000000000e1 * t12717 * t309 - 0.65972000000000000000e1 * t12721 - t12724;
8008   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8009     v4rho2sigmatau[0] = t12679 + t12725;
8010 
8011   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8012     v4rho2sigmatau[1] = 0.0e0;
8013 
8014   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8015     v4rho2sigmatau[2] = 0.0e0;
8016 
8017   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8018     v4rho2sigmatau[3] = 0.0e0;
8019 
8020   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8021     v4rho2sigmatau[4] = 0.0e0;
8022 
8023   t12727 = t10531 * t1756 / 0.6e1;
8024   t12728 = t3771 * t4565;
8025   t12730 = t793 * t1754;
8026   t12738 = 0.41232500000000000000e0 * t10547 * t524;
8027   t12739 = t10541 * t1195;
8028   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8029     v4rho2sigmatau[5] = -t12727 - 0.4e1 / 0.3e1 * t12728 - t1341 * t12730 * t797 / 0.6e1 - t1341 * t4564 * t806 / 0.2e1 + t12738 + 0.32986000000000000000e1 * t12739 + 0.41232500000000000000e0 * t10567 * t3180 + 0.12369750000000000000e1 * t3809 * t3186;
8030 
8031   t12748 = t3771 * t4572;
8032   t12762 = -t12724 - 0.2e1 / 0.3e1 * t12636 - t12351 / 0.2e1 - 0.32986000000000000000e1 * t12721 - 0.2e1 / 0.3e1 * t12748 - t1341 * t12641 * t816 / 0.6e1 - t1341 * t12633 * t328 / 0.2e1 - 0.32986000000000000000e1 * t12660 * t828 - t3783 * t4419 * t834 / 0.2e1 + t12705 + 0.16493000000000000000e1 * t12657;
8033   t12767 = t10425 * t1206;
8034   t12781 = 0.12369750000000000000e1 * t12712 + 0.14843700000000000000e2 * t12692 - 0.16493000000000000000e1 * t12698 - 0.40270806047858128434e2 * t12694 + 0.16493000000000000000e1 * t12767 + 0.41232500000000000000e0 * t10502 * t3214 + 0.12369750000000000000e1 * t10417 * t1206 + 0.14843700000000000000e2 * t3619 * t3223 - 0.16493000000000000000e1 * t3619 * t3227 - 0.40270806047858128434e2 * t10328 * t3230 + 0.12369750000000000000e1 * t10518 * t3234;
8035   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8036     v4rho2sigmatau[6] = t12762 + t12781;
8037 
8038   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8039     v4rho2sigmatau[7] = 0.0e0;
8040 
8041   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8042     v4rho2sigmatau[8] = 0.0e0;
8043 
8044   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8045     v4rho2sigmatau[9] = 0.0e0;
8046 
8047   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8048     v4rho2sigmatau[10] = 0.0e0;
8049 
8050   t12783 = t3771 * t4577;
8051   t12791 = t3796 * t4693;
8052   t12793 = t117 * t4691;
8053   t12797 = t3804 * t4696;
8054   t12798 = t12797 * t417;
8055   t12801 = t1405 * t312 * t1754;
8056   t12805 = -t12727 - 0.2e1 / 0.3e1 * t12728 - 0.2e1 / 0.3e1 * t12783 - t1341 * t12730 * t841 / 0.6e1 + t3783 * t4564 * t849 / 0.2e1 - t12791 / 0.2e1 - t1341 * t12793 * t316 / 0.2e1 - 0.32986000000000000000e1 * t12798 - 0.32986000000000000000e1 * t12801 * t866 + t12738 + 0.16493000000000000000e1 * t12739;
8057   t12806 = t10541 * t1311;
8058   t12812 = t10621 * t524;
8059   t12816 = t1316 * t4707;
8060   t12820 = t3805 * t1325;
8061   t12824 = t1045 * t4714;
8062   t12828 = 0.16493000000000000000e1 * t12806 + 0.41232500000000000000e0 * t10661 * t3274 - 0.12369750000000000000e1 * t10650 * t3281 + 0.12369750000000000000e1 * t12812 + 0.12369750000000000000e1 * t10654 * t1195 + 0.14843700000000000000e2 * t12816 + 0.14843700000000000000e2 * t3809 * t3291 - 0.16493000000000000000e1 * t12820 - 0.16493000000000000000e1 * t3809 * t3298 - 0.40270806047858128433e2 * t12824 - 0.40270806047858128433e2 * t10616 * t3305;
8063   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8064     v4rho2sigmatau[11] = t12805 + t12828;
8065 
8066   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8067     v4rho2sigmatau[12] = -t12724 - 0.4e1 / 0.3e1 * t12748 - t1341 * t12641 * t878 / 0.6e1 - t1341 * t4419 * t884 / 0.2e1 + t12705 + 0.32986000000000000000e1 * t12767 + 0.41232500000000000000e0 * t10429 * t3322 + 0.12369750000000000000e1 * t3619 * t3327;
8068 
8069   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8070     v4rho2sigmatau[13] = 0.0e0;
8071 
8072   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8073     v4rho2sigmatau[14] = 0.0e0;
8074 
8075   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8076     v4rho2sigmatau[15] = 0.0e0;
8077 
8078   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8079     v4rho2sigmatau[16] = 0.0e0;
8080 
8081   t12879 = t2684 * t496;
8082   t12906 = 0.4e1 * t339 * t1256 * t1440 * t178 - 0.4e1 * t1423 * t10737 * t499 + 0.8e1 * t1423 * t10747 * t499 + 0.4e1 * t1423 * t10753 * t499 - 0.8e1 * t1423 * t3838 * t1259 + 0.8e1 * t1423 * t3842 * t1259 + 0.24e2 * t3831 * t3838 * t4580 + 0.12e2 * t3831 * t4609 * t911 - 0.12e2 * t3831 * t4636 * t911 - 0.4e1 * t10741 * t1707 + 0.24e2 * t10919 * t4581 + 0.12e2 * t12879 * t3832 - 0.8e1 * t3835 * t4586 + 0.8e1 * t3835 * t4589 - 0.8e1 * t3835 * t4592;
8083   t12930 = 0.13e2 / 0.486e3 * t4312 + 0.65e2 / 0.1944e4 * t4316 - 0.65e2 / 0.972e3 * t4321 - 0.5e1 / 0.1296e4 * t1716 * t12074 - 0.125e3 / 0.11664e5 * t1716 * t3456 * t8007 + 0.5e1 / 0.648e3 * t4621 * t12080 + 0.125e3 / 0.17496e5 * t1716 * t9813 * t12084 - 0.13e2 / 0.1458e4 * t4324 + 0.65e2 / 0.5832e4 * t4327 - 0.5e1 / 0.3888e4 * t4625 * t12074 - 0.25e2 / 0.34992e5 * t8026 * t4676 * t12084;
8084   t12967 = t910 * t1256;
8085   t12972 = t4628 * t178;
8086   t12976 = 0.2e1 * t339 * t159 * t12930 * t178 + 0.2e1 * t339 * t971 * t1723 * t178 + 0.2e1 * t339 * t3481 * t568 * t178 + 0.4e1 * t339 * t376 * t4628 * t178 + 0.2e1 * t339 * t496 * t3876 * t178 - 0.2e1 * t339 * t1710 * t1016 - 0.8e1 * t1423 * t12972 * t379 - 0.4e1 * t1423 * t1424 * t3484 - 0.4e1 * t339 * t4598 * t399 - 0.4e1 * t339 * t4602 * t399 - 0.4e1 * t339 * t4613 * t399 - 0.8e1 * t12967 * t1425 - 0.8e1 * t4595 * t3839 + 0.8e1 * t4595 * t3843 - 0.4e1 * t4595 * t3846;
8087   t12981 = t1440 * t513;
8088   t12985 = t1723 * t399;
8089   t12996 = t568 * t1298;
8090   t13027 = -0.48e2 * t10915 * t1424 * t499 * t911 + 0.24e2 * t3831 * t1424 * t1259 * t379 + 0.12e2 * t3831 * t1424 * t499 * t974 - 0.4e1 * t339 * t1428 * t1298 + 0.8e1 * t1423 * t12981 * t379 + 0.8e1 * t1423 * t12985 * t379 + 0.8e1 * t1423 * t12996 * t379 - 0.4e1 * t1423 * t4609 * t974 + 0.4e1 * t1423 * t4636 * t974 - 0.6e1 * t2684 * t1731 * t911 + 0.2e1 * t910 * t1731 * t974 - 0.2e1 * t339 * t3877 * t513 - 0.24e2 * t3831 * t3842 * t4580 - 0.8e1 * t3835 * t4610 + 0.8e1 * t3835 * t4637;
8091   t13091 = (0.1300e4 / 0.729e3 * t4349 - 0.1625e4 / 0.243e3 * t4352 + 0.1250e4 / 0.729e3 * t1733 * t236 * t11939 + 0.125e3 / 0.162e3 * t1733 * t11942 + 0.6250e4 / 0.6561e4 * t9630 * t1715 * t955 * t704 - 0.8125e4 / 0.2187e4 * t4356 + 0.625e3 / 0.1458e4 * t3511 * t1715 * t951 * t24 + 0.13000e5 / 0.2187e4 * t4359) * t173 + 0.2e1 * t4666 * t391 * t173 + t1739 * t995 * t173 + t1739 * t997 * t173 + t3910 * t508 * t173 + 0.2e1 * t1459 * t1280 * t173 + 0.2e1 * t4670 * t392 + t579 * t3526 * t173 + 0.2e1 * t4672 * t392 + t1741 * t996 + t1741 * t998;
8092   t13101 = t4676 * t2805;
8093   t13120 = 0.1250e4 / 0.729e3 * t278 * t2810 * t1715 * t11984 - 0.1625e4 / 0.243e3 * t4372 + 0.625e3 / 0.243e3 * t748 * t2823 * t1715 * t11984 + 0.125e3 / 0.162e3 * t2800 * t13101 + 0.1300e4 / 0.729e3 * t4376 - 0.1625e4 / 0.243e3 * t4378 + 0.125e3 / 0.162e3 * t2811 * t13101 + 0.625e3 / 0.729e3 * t2195 * t8118 * t1715 * t11984 + 0.650e3 / 0.729e3 * t4380 - 0.1625e4 / 0.1458e4 * t4382 + 0.125e3 / 0.972e3 * t2824 * t13101 + 0.625e3 / 0.8748e4 * t5999 * t8136 * t1715 * t11984;
8094   t13121 = my_piecewise3(t167, t13091, t13120);
8095   t13139 = -0.4e1 * t339 * t1441 * t1298 - 0.2e1 * t339 * t3849 * t513 - 0.4e1 * t339 * t3853 * t513 - 0.4e1 * t339 * t4629 * t399 - 0.2e1 * t339 * t1724 * t1016 - 0.2e1 * t339 * t569 * t3560 + 0.4e1 * t910 * t4652 * t379 + 0.4e1 * t910 * t4654 * t379 + 0.1174e1 * t13121 - t166 * t13121 - t339 * t974 * t1751 - 0.2e1 * t339 * t379 * t4687 - t339 * t3484 * t585 - 0.2e1 * t339 * t1259 * t1473 - t339 * t499 * t3936 + 0.2e1 * t910 * t911 * t1751;
8096   t13153 = t1405 * t562 * t4691;
8097   t13158 = -t1341 * t12793 * t333 - t1341 * t12730 * t889 / 0.6e1 - t1341 * t4564 * t902 / 0.2e1 - 0.4e1 / 0.3e1 * t12783 + 0.12113307472923900000e3 * t4704 * t588 * t1634 * t3407 + 0.24739500000000000000e1 * t10654 * t1311 + 0.12369750000000000000e1 * t3809 * t3572 - 0.65972000000000000000e1 * t12801 * t898 + 0.41232500000000000000e0 * t10567 * t3582 - 0.32986000000000000000e1 * t3809 * t3578 + 0.32986000000000000000e1 * t12806 - 0.3e1 / 0.8e1 * t530 * t562 * (t12906 + t12976 + t13027 + t13139) * t192 + 0.29687400000000000000e2 * t3809 * t3357 - 0.80541612095716256867e2 * t10616 * t3360 + 0.92773125000000000000e0 * t10701 * t524 - 0.49479000000000000000e1 * t13153 * t417 + 0.28862750000000000000e1 * t1482 * t3347;
8098   t13198 = -0.24739500000000000000e1 * t3945 * t1325 + 0.57725500000000000000e1 * t4697 * t1041 - 0.29687400000000000000e2 * t4697 * t1034 + 0.22265550000000000000e3 * t4704 * t10963 * t3391 - 0.62012907040371922630e0 * t3953 * t10968 * t3396 + 0.30203104535893596326e2 * t3953 * t4712 * t1047 * t1049 + 0.80541612095716256868e2 * t3953 * t1754 * t521 * t1047 * t1049 + 0.22265550000000000000e2 * t4704 * t1476 * t1030 * t19 * t1319 - 0.60406209071787192650e2 * t3953 * t1476 * t1329 * t121 * t1049 - 0.55663875000000000000e2 * t4704 * t4706 * t3369 + 0.29687400000000000000e2 * t12816 - 0.80541612095716256867e2 * t12824 - 0.65972000000000000000e1 * t12798 + 0.24739500000000000000e1 * t12812 - 0.32986000000000000000e1 * t12820 + t12738 - t12791 - t12727;
8099   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8100     v4rho2sigmatau[17] = t13158 + t13198;
8101 
8102   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8103     v4rho2lapl2[0] = 0.0e0;
8104 
8105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8106     v4rho2lapl2[1] = 0.0e0;
8107 
8108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8109     v4rho2lapl2[2] = 0.0e0;
8110 
8111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8112     v4rho2lapl2[3] = 0.0e0;
8113 
8114   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8115     v4rho2lapl2[4] = 0.0e0;
8116 
8117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8118     v4rho2lapl2[5] = 0.0e0;
8119 
8120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8121     v4rho2lapl2[6] = 0.0e0;
8122 
8123   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8124     v4rho2lapl2[7] = 0.0e0;
8125 
8126   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8127     v4rho2lapl2[8] = 0.0e0;
8128 
8129   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8130     v4rho2lapltau[0] = 0.0e0;
8131 
8132   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8133     v4rho2lapltau[1] = 0.0e0;
8134 
8135   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8136     v4rho2lapltau[2] = 0.0e0;
8137 
8138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8139     v4rho2lapltau[3] = 0.0e0;
8140 
8141   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8142     v4rho2lapltau[4] = 0.0e0;
8143 
8144   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8145     v4rho2lapltau[5] = 0.0e0;
8146 
8147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8148     v4rho2lapltau[6] = 0.0e0;
8149 
8150   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8151     v4rho2lapltau[7] = 0.0e0;
8152 
8153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8154     v4rho2lapltau[8] = 0.0e0;
8155 
8156   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8157     v4rho2lapltau[9] = 0.0e0;
8158 
8159   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8160     v4rho2lapltau[10] = 0.0e0;
8161 
8162   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8163     v4rho2lapltau[11] = 0.0e0;
8164 
8165   t13200 = t10531 * t1807 / 0.6e1;
8166   t13201 = t3771 * t4720;
8167   t13203 = t3796 * t4818;
8168   t13204 = t3804 * t4821;
8169   t13205 = t13204 * t309;
8170   t13207 = t598 * t1805;
8171   t13211 = t15 * t4816;
8172   t13215 = t1405 * t199 * t1805;
8173   t13247 = t1382 * t1382;
8174   t13268 = t4802 * t2177;
8175   t13287 = -0.10000e5 / 0.729e3 * t278 * t2182 * t777 * t11174 + 0.10000e5 / 0.243e3 * t4521 - 0.5000e4 / 0.243e3 * t748 * t2197 * t777 * t11174 - 0.500e3 / 0.81e2 * t2172 * t13268 - 0.6500e4 / 0.729e3 * t1535 + 0.10000e5 / 0.243e3 * t4524 - 0.500e3 / 0.81e2 * t2183 * t13268 - 0.5000e4 / 0.729e3 * t2195 * t5981 * t777 * t11174 - 0.3250e4 / 0.729e3 * t1537 + 0.5000e4 / 0.729e3 * t4527 - 0.250e3 / 0.243e3 * t2198 * t13268 - 0.1250e4 / 0.2187e4 * t5999 * t6001 * t777 * t11174;
8176   t13288 = my_piecewise3(t83, (-0.6500e4 / 0.729e3 * t1523 + 0.10000e5 / 0.243e3 * t4502 - 0.10000e5 / 0.729e3 * t1784 * t236 * t11129 - 0.500e3 / 0.81e2 * t1784 * t11132 - 0.50000e5 / 0.6561e4 * t8483 * t777 * t691 * t704 + 0.50000e5 / 0.2187e4 * t4506 - 0.2500e4 / 0.729e3 * t3103 * t777 * t687 * t24 - 0.65000e5 / 0.2187e4 * t1526) * t89 + 0.2e1 * t4793 * t276 * t89 + t1790 * t732 * t89 + t1790 * t734 * t89 + 0.2e1 * t13247 * t89 + 0.4e1 * t1384 * t1383 + 0.2e1 * t549 * t3704 + t1792 * t732 * t89 + t1792 * t734 * t89, t13287);
8177   t13290 = t1766 * t711;
8178   t13293 = t5773 * t76;
8179   t13294 = t1766 * t645;
8180   t13306 = t1347 * t3670;
8181   t13309 = t4741 * t264;
8182   t13312 = t3636 * t1363;
8183   t13321 = t644 * t537;
8184   t13324 = 0.1174e1 * t13288 + 0.24e2 * t4723 * t13290 - 0.96e2 * t13293 * t13294 - 0.16e2 * t1346 * t1766 * t708 - 0.24e2 * t3625 * t4770 * t645 + 0.12e2 * t3625 * t4744 * t645 - 0.16e2 * t4730 * t13306 - 0.48e2 * t4723 * t13309 + 0.32e2 * t4730 * t13312 + 0.32e2 * t1346 * t4741 * t261 - 0.4e1 * t1346 * t4744 * t711 - 0.16e2 * t13321 * t3633;
8185   t13325 = t1776 * t285;
8186   t13331 = t4762 * t94;
8187   t13335 = t1363 * t554;
8188   t13339 = t537 * t1396;
8189   t13363 = 0.4e1 * t220 * t261 * t4762 * t94 + 0.8e1 * t1346 * t13325 * t264 - 0.8e1 * t1346 * t13331 * t264 + 0.16e2 * t1346 * t13335 * t264 + 0.16e2 * t1346 * t13339 * t264 + 0.8e1 * t1346 * t4770 * t711 + 0.8e1 * t644 * t1762 * t755 + 0.2e1 * t644 * t645 * t1802 - 0.4e1 * t220 * t4748 * t285 + 0.4e1 * t220 * t13306 - 0.8e1 * t3629 * t4745 + 0.16e2 * t3629 * t4771;
8190   t13394 = -0.65e2 / 0.486e3 * t1508 - 0.50e2 / 0.243e3 * t4462 + 0.100e3 / 0.243e3 * t4465 + 0.5e1 / 0.162e3 * t1769 * t11287 + 0.125e3 / 0.1458e4 * t1769 * t3048 * t5869 - 0.5e1 / 0.81e2 * t4755 * t11293 - 0.125e3 / 0.2187e4 * t1769 * t8627 * t11297 + 0.65e2 / 0.1458e4 * t1511 - 0.50e2 / 0.729e3 * t4469 + 0.5e1 / 0.486e3 * t4759 * t11287 + 0.25e2 / 0.4374e4 * t5888 * t4802 * t11297;
8191   t13411 = t1363 * t1363;
8192   t13423 = 0.2e1 * t220 * t75 * t13394 * t94 - 0.16e2 * t644 * t76 * t13411 * t94 - 0.16e2 * t644 * t679 * t1761 * t94 + 0.2e1 * t220 * t708 * t1776 * t94 - 0.64e2 * t1346 * t1347 * t3647 - 0.2e1 * t220 * t1777 * t755 - 0.4e1 * t220 * t4763 * t285 - 0.4e1 * t220 * t3643 * t554 - 0.4e1 * t644 * t13290 + 0.12e2 * t2054 * t13294 + 0.8e1 * t644 * t13309 - 0.8e1 * t220 * t13312;
8193   t13459 = 0.96e2 * t4723 * t1347 * t264 * t1363 + 0.96e2 * t3625 * t1766 * t264 * t261 + 0.4e1 * t220 * t13411 * t94 - 0.8e1 * t220 * t1351 * t1396 - 0.8e1 * t220 * t1364 * t1396 - 0.2e1 * t220 * t1761 * t755 - t220 * t711 * t1802 - 0.2e1 * t220 * t264 * t4813 - 0.8e1 * t220 * t3647 * t554 - 0.4e1 * t220 * t3671 * t554 - 0.4e1 * t220 * t538 * t3730 - t82 * t13288;
8194   t13467 = t1405 * t531 * t4816;
8195   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8196     v4rho2tau2[0] = -t13200 - 0.4e1 / 0.3e1 * t13201 - t13203 - 0.65972000000000000000e1 * t13205 - t1341 * t13207 * t602 / 0.6e1 - t1341 * t13211 * t207 - 0.65972000000000000000e1 * t13215 * t618 - t1341 * t4719 * t625 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t531 * (t13324 + t13363 + t13423 + t13459) * t111 - 0.49479000000000000000e1 * t13467 * t309 - 0.29687400000000000000e2 * t4822 * t773 + 0.57725500000000000000e1 * t4822 * t780 + 0.80541612095716256868e2 * t3747 * t1805 * t468 * t786 * t788;
8197 
8198   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8199     v4rho2tau2[1] = 0.0e0;
8200 
8201   t13480 = t10531 * t1856 / 0.6e1;
8202   t13481 = t3771 * t4827;
8203   t13483 = t793 * t1854;
8204   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8205     v4rho2tau2[2] = -t13480 - 0.4e1 / 0.3e1 * t13481 - t1341 * t13483 * t797 / 0.6e1 - t1341 * t4826 * t806 / 0.2e1;
8206 
8207   t13493 = t3771 * t4830;
8208   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8209     v4rho2tau2[3] = -t13200 - 0.2e1 / 0.3e1 * t13201 - t13203 / 0.2e1 - 0.32986000000000000000e1 * t13205 - 0.2e1 / 0.3e1 * t13493 - t1341 * t13207 * t816 / 0.6e1 - t1341 * t13211 * t328 / 0.2e1 - 0.32986000000000000000e1 * t13215 * t828 - t3783 * t4719 * t834 / 0.2e1;
8210 
8211   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8212     v4rho2tau2[4] = 0.0e0;
8213 
8214   t13507 = t3771 * t4834;
8215   t13515 = t3796 * t4932;
8216   t13517 = t117 * t4930;
8217   t13521 = t3804 * t4935;
8218   t13522 = t13521 * t417;
8219   t13525 = t1405 * t312 * t1854;
8220   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8221     v4rho2tau2[5] = -t13480 - 0.2e1 / 0.3e1 * t13481 - 0.2e1 / 0.3e1 * t13507 - t1341 * t13483 * t841 / 0.6e1 + t3783 * t4826 * t849 / 0.2e1 - t13515 / 0.2e1 - t1341 * t13517 * t316 / 0.2e1 - 0.32986000000000000000e1 * t13522 - 0.32986000000000000000e1 * t13525 * t866;
8222 
8223   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8224     v4rho2tau2[6] = -t13200 - 0.4e1 / 0.3e1 * t13493 - t1341 * t13207 * t878 / 0.6e1 - t1341 * t4719 * t884 / 0.2e1;
8225 
8226   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8227     v4rho2tau2[7] = 0.0e0;
8228 
8229   t13578 = t3842 * t1440;
8230   t13581 = t1815 * t974;
8231   t13584 = 0.4e1 * t339 * t376 * t4876 * t178 + 0.8e1 * t910 * t1811 * t1016 - 0.64e2 * t1423 * t1424 * t3853 - 0.8e1 * t339 * t1428 * t1473 - 0.8e1 * t339 * t1441 * t1473 - 0.4e1 * t339 * t3849 * t585 - 0.8e1 * t339 * t3853 * t585 - 0.4e1 * t339 * t3877 * t585 - 0.4e1 * t339 * t569 * t3936 - 0.4e1 * t339 * t4862 * t399 - 0.8e1 * t339 * t13578 - 0.4e1 * t910 * t13581;
8232   t13585 = t4855 * t379;
8233   t13588 = t1424 * t3876;
8234   t13595 = t7920 * t160;
8235   t13596 = t1815 * t911;
8236   t13631 = t1459 * t1459;
8237   t13652 = t4916 * t2805;
8238   t13671 = -0.10000e5 / 0.729e3 * t278 * t2810 * t1038 * t11984 + 0.10000e5 / 0.243e3 * t4678 - 0.5000e4 / 0.243e3 * t748 * t2823 * t1038 * t11984 - 0.500e3 / 0.81e2 * t2800 * t13652 - 0.6500e4 / 0.729e3 * t1619 + 0.10000e5 / 0.243e3 * t4681 - 0.500e3 / 0.81e2 * t2811 * t13652 - 0.5000e4 / 0.729e3 * t2195 * t8118 * t1038 * t11984 - 0.3250e4 / 0.729e3 * t1621 + 0.5000e4 / 0.729e3 * t4684 - 0.250e3 / 0.243e3 * t2824 * t13652 - 0.1250e4 / 0.2187e4 * t5999 * t8136 * t1038 * t11984;
8239   t13672 = my_piecewise3(t167, (-0.6500e4 / 0.729e3 * t1607 + 0.10000e5 / 0.243e3 * t4659 - 0.10000e5 / 0.729e3 * t1833 * t236 * t11939 - 0.500e3 / 0.81e2 * t1833 * t11942 - 0.50000e5 / 0.6561e4 * t9630 * t1038 * t955 * t704 + 0.50000e5 / 0.2187e4 * t4663 - 0.2500e4 / 0.729e3 * t3511 * t1038 * t951 * t24 - 0.65000e5 / 0.2187e4 * t1610) * t173 + 0.2e1 * t4907 * t391 * t173 + t1839 * t995 * t173 + t1839 * t997 * t173 + 0.2e1 * t13631 * t173 + 0.4e1 * t1461 * t1460 + 0.2e1 * t580 * t3910 + t1841 * t995 * t173 + t1841 * t997 * t173, t13671);
8240   t13684 = t1440 * t1440;
8241   t13688 = 0.2e1 * t339 * t971 * t1825 * t178 + 0.4e1 * t339 * t13684 * t178 - 0.16e2 * t1423 * t1815 * t971 + 0.32e2 * t1423 * t4855 * t376 + 0.12e2 * t3831 * t4858 * t911 - 0.24e2 * t3831 * t4884 * t911 + 0.24e2 * t4837 * t13581 - 0.48e2 * t4837 * t13585 + 0.8e1 * t910 * t13585 + 0.4e1 * t339 * t13588 - 0.96e2 * t13595 * t13596 - t166 * t13672;
8242   t13690 = t910 * t568;
8243   t13697 = t4876 * t178;
8244   t13725 = -0.16e2 * t910 * t160 * t13684 * t178 - 0.16e2 * t910 * t943 * t1810 * t178 - 0.2e1 * t339 * t1810 * t1016 - 0.8e1 * t1423 * t13697 * t379 - 0.4e1 * t1423 * t4858 * t974 - t339 * t974 * t1851 + 0.2e1 * t910 * t911 * t1851 - 0.2e1 * t339 * t379 * t4927 + 0.32e2 * t4844 * t13578 - 0.16e2 * t4844 * t13588 + 0.12e2 * t2684 * t13596 - 0.16e2 * t13690 * t3839;
8245   t13749 = -0.65e2 / 0.486e3 * t1592 - 0.50e2 / 0.243e3 * t4619 + 0.100e3 / 0.243e3 * t4622 + 0.5e1 / 0.162e3 * t1818 * t12074 + 0.125e3 / 0.1458e4 * t1818 * t3456 * t8007 - 0.5e1 / 0.81e2 * t4869 * t12080 - 0.125e3 / 0.2187e4 * t1818 * t9813 * t12084 + 0.65e2 / 0.1458e4 * t1595 - 0.50e2 / 0.729e3 * t4626 + 0.5e1 / 0.486e3 * t4873 * t12074 + 0.25e2 / 0.4374e4 * t8026 * t4916 * t12084;
8246   t13765 = t1825 * t399;
8247   t13776 = t1440 * t585;
8248   t13780 = t568 * t1473;
8249   t13785 = -0.2e1 * t339 * t1826 * t1016 + 0.2e1 * t339 * t159 * t13749 * t178 - 0.4e1 * t339 * t4877 * t399 + 0.96e2 * t3831 * t1815 * t379 * t376 + 0.96e2 * t4837 * t1424 * t379 * t1440 + 0.8e1 * t1423 * t13765 * t379 - 0.8e1 * t3835 * t4859 + 0.8e1 * t1423 * t4884 * t974 + 0.16e2 * t3835 * t4885 + 0.16e2 * t1423 * t13776 * t379 + 0.16e2 * t1423 * t13780 * t379 + 0.1174e1 * t13672;
8250   t13793 = t1405 * t562 * t4930;
8251   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8252     v4rho2tau2[8] = -t13480 - 0.4e1 / 0.3e1 * t13507 - t13515 - 0.65972000000000000000e1 * t13522 - t1341 * t13483 * t889 / 0.6e1 - t1341 * t13517 * t333 - 0.65972000000000000000e1 * t13525 * t898 - t1341 * t4826 * t902 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t562 * (t13584 + t13688 + t13725 + t13785) * t192 - 0.49479000000000000000e1 * t13793 * t417 - 0.29687400000000000000e2 * t4936 * t1034 + 0.57725500000000000000e1 * t4936 * t1041 + 0.80541612095716256868e2 * t3953 * t1854 * t521 * t1047 * t1049;
8253 
8254   t13805 = t17 * t5011;
8255   t13811 = 0.56781128779330781250e1 * t2033 * t606 * t5056;
8256   t13847 = 0.18e2 * t2054 * t1486 * t1107 + 0.12e2 * t644 * t1519 * t1107 - 0.6e1 * t644 * t1108 * t1516 + 0.6e1 * t644 * t1110 * t1516 + 0.6e1 * t644 * t1485 * t1146 - 0.18e2 * t2054 * t4946 * t264 - 0.6e1 * t2054 * t4939 * t285 - 0.24e2 * t5773 * t4940 * t264 - 0.2e1 * t644 * t4977 * t264 - 0.6e1 * t644 * t447 * t4084 + 0.18e2 * t8580 * t4037;
8257   t13869 = t56 * t241;
8258   t13872 = t236 * t68;
8259   t13874 = t280 * t5868;
8260   t13882 = t241 * t236;
8261   t13922 = t750 * t252 * t24;
8262   t13926 = t39 * t252;
8263   t13954 = t5959 * t280 * t23;
8264   t13957 = t13882 * t91;
8265   t13977 = my_piecewise3(t83, (-0.125e3 / 0.1296e4 * params->c1 * t241 * t725 + 0.625e3 / 0.23328e5 * t4985 * t236 * t13922 + 0.3125e4 / 0.209952e6 * t8483 * t429 * t36 * t13926 - 0.625e3 / 0.11664e5 * t1120 * t750 * t241 * t24) * t89 + t4992 * t276 * t89 + 0.3e1 * t4113 * t455 * t89 + 0.3e1 * t1528 * t1128 * t89 + 0.3e1 * t4994 * t277 + 0.3e1 * t1531 * t1128 + t4997 * t276 * t89, 0.625e3 / 0.23328e5 * t278 * t2182 * t429 * t13954 - 0.125e3 / 0.1296e4 * t2172 * t13957 + 0.625e3 / 0.15552e5 * t748 * t2197 * t429 * t13954 - 0.125e3 / 0.1296e4 * t2183 * t13957 + 0.625e3 / 0.46656e5 * t2195 * t5981 * t429 * t13954 - 0.125e3 / 0.7776e4 * t2198 * t13957 + 0.625e3 / 0.559872e6 * t5999 * t6001 * t429 * t13954);
8266   t13980 = t220 * (0.27e2 / 0.160e3 * t237 * t241 * t52 - 0.243e3 / 0.2560e4 * t668 * t1079 * t24 * sigma[0] * t52 + 0.24057e5 / 0.2048000e7 * t4955 * t4055 - 0.177147e6 / 0.81920000e8 * t5829 * t238 / t5819 * t52 + 0.6e1 * t1104 * t1513 + 0.6e1 * t443 * t4081 + 0.2e1 * t261 * t4973 + 0.2e1 * t75 * (0.5e1 / 0.10368e5 * t13869 * t2114 - 0.125e3 / 0.746496e6 * t4964 * t13872 * t13874 - 0.5e1 / 0.5184e4 * t13869 * t2118 + 0.125e3 / 0.1119744e7 * t4964 * t8627 * t13874 + 0.5e1 / 0.31104e5 * t2127 * t13882 * t72 - 0.25e2 / 0.2239488e7 * t5888 * t4969 * t13874)) * t94 - t220 * t4976 * t285 + 0.6e1 * t644 * t4979 * t264 - 0.3e1 * t220 * t4084 * t460 - 0.3e1 * t220 * t1516 * t1146 + 0.6e1 * t644 * t4982 * t264 - 0.3e1 * t220 * t1107 * t1540 - 0.3e1 * t220 * t446 * t4137 - t220 * t264 * t5008 - t82 * t13977 + 0.1174e1 * t13977;
8267   t13988 = t8 * t213 * t5012 / 0.8e1;
8268   t14012 = -t200 * t13805 * t207 / 0.2e1 + t13811 + 0.17034338633799234375e2 * t2033 * t610 * t5056 - 0.3e1 / 0.8e1 * t8 * t18 * (t13847 + t13980) * t111 - t13988 - 0.18554625000000000000e1 * t2984 * t4158 + 0.14611767187500000000e3 * t300 * t6164 * t1550 * t229 * t110 * t100 - 0.16699162500000000000e2 * t2984 * t4154 + 0.37109250000000000000e1 * t11370 * t1159 + 0.83495812500000000000e1 * t615 * t771 * t5032 * t616 + 0.92773125000000000000e0 * t615 * t304 * t5044 * t616 + 0.22712451511732312500e2 * t6124 * t11427 * t6127;
8269   t14021 = t298 * t18 * t5011;
8270   t14032 = 0.20873953125000000000e1 * t639 * t5034;
8271   t14039 = 0.23193281250000000000e0 * t639 * t5046;
8272   t14041 = 0.46386562500000000000e0 * t2890 * t1558;
8273   t14047 = 0.41747906250000000000e1 * t2890 * t1553;
8274   t14050 = -0.13627470907039387500e3 * t1166 * t463 * t4145 * t4149 + 0.17034338633799234375e3 * t1166 * t11427 * t4149 - 0.24739500000000000000e1 * t14021 * t309 + 0.27831937500000000000e1 * t11026 * t471 - 0.92773125000000000000e0 * t300 * t304 * t1562 * t306 * t110 + t14032 - 0.83495812500000000000e1 * t300 * t771 * t4145 * t223 * t110 + t14039 - t14041 + 0.18554625000000000000e1 * t1155 * t3983 - 0.37109250000000000000e1 * t3967 * t1175 - t14047 + 0.16699162500000000000e2 * t1155 * t3976;
8275   t14053 = 0.92773125000000000000e0 * t11078 * t471;
8276   t14056 = t6062 * t1179;
8277   t14057 = t1911 * t110;
8278   t14066 = t5039 * t19;
8279   t14078 = t6069 * t5038;
8280   t14079 = t102 * t110;
8281   t14087 = 0.11326164200960098622e2 * t1901 * t5024;
8282   t14089 = 0.10436976562500000000e2 * t2952 * t5029;
8283   t14095 = t14053 + 0.45304656803840394488e2 * t8390 * t3963 + 0.41747906250000000000e2 * t615 * t14056 * t14057 * t206 - 0.12524371875000000000e2 * t2911 * t1553 - 0.13915968750000000000e1 * t2911 * t1558 - 0.45304656803840394488e2 * t1883 * t14066 * t1887 + 0.34068677267598468750e2 * t300 * t1562 * t769 * t110 * t100 * t306 + 0.62621859375000000000e1 * t764 * t5034 - 0.11627420070069735493e0 * t1883 * t14078 * t14079 * t206 + 0.69579843750000000000e0 * t764 * t5046 + t14087 + t14089 - 0.75578230455453280704e0 * t784 * t1925 * t5038 * t26 * t110;
8284   t14108 = 0.1e1 / t669;
8285   t14143 = 0.11326164200960098622e2 * t1901 * t5051;
8286   t14145 = 0.29068550175174338733e-1 * t1901 * t5041;
8287   t14146 = -0.87205650525523016199e-1 * t784 * t5764 * t5040 - 0.67956985205760591732e2 * t784 * t5049 * t26 * t788 - 0.33978492602880295866e2 * t784 * t288 * t5038 * t102 * t788 - 0.92427972442890327423e2 * t784 * t97 * t14108 * t60 * t5754 + 0.33398325000000000000e2 * t1166 * t1543 * t769 * t19 * t1169 - 0.90609313607680788976e2 * t784 * t1543 * t1179 * t26 * t788 - 0.25048743750000000000e3 * t1166 * t8203 * t4007 + 0.69764520420418412959e0 * t784 * t8209 * t4012 + 0.90609313607680788976e2 * t784 * t5022 * t26 * t788 + 0.33978492602880295866e2 * t784 * t1149 * t1562 * t102 * t788 + 0.31310929687500000000e2 * t1166 * t5725 * t5028 - t14143 - t14145;
8288   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8289     v4rhosigma3[0] = -t5015 + t5017 - t5019 - t5021 + t5026 + t5031 + t5036 - t5043 + t5048 - t5053 + t5059 + t10 * (t14012 + t14050 + t14095 + t14146);
8290 
8291   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8292     v4rhosigma3[1] = 0.0e0;
8293 
8294   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8295     v4rhosigma3[2] = 0.0e0;
8296 
8297   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8298     v4rhosigma3[3] = 0.0e0;
8299 
8300   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8301     v4rhosigma3[4] = 0.0e0;
8302 
8303   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8304     v4rhosigma3[5] = 0.0e0;
8305 
8306   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8307     v4rhosigma3[6] = 0.0e0;
8308 
8309   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8310     v4rhosigma3[7] = 0.0e0;
8311 
8312   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8313     v4rhosigma3[8] = 0.0e0;
8314 
8315   t14150 = t17 * t5133;
8316   t14156 = t8 * t320 * t5134 / 0.8e1;
8317   t14160 = 0.92773125000000000000e0 * t11786 * t524;
8318   t14164 = 0.41747906250000000000e1 * t3268 * t1637;
8319   t14168 = 0.46386562500000000000e0 * t3268 * t1642;
8320   t14172 = 0.11326164200960098622e2 * t2430 * t5146;
8321   t14173 = t7254 * t1329;
8322   t14174 = t2617 * t191;
8323   t14179 = -t313 * t14150 * t316 / 0.2e1 - t14156 + 0.37109250000000000000e1 * t11757 * t1195 + t14160 - 0.16699162500000000000e2 * t3264 * t4182 - t14164 - 0.18554625000000000000e1 * t3264 * t4188 - t14168 + 0.45304656803840394488e2 * t9354 * t4195 + t14172 + 0.41747906250000000000e2 * t863 * t14173 * t14174 * t315;
8324   t14181 = 0.10436976562500000000e2 * t3294 * t5151;
8325   t14187 = 0.20873953125000000000e1 * t870 * t5156;
8326   t14188 = t6069 * t5160;
8327   t14189 = t183 * t191;
8328   t14195 = 0.29068550175174338733e-1 * t2430 * t5163;
8329   t14201 = 0.23193281250000000000e0 * t870 * t5168;
8330   t14202 = t5161 * t19;
8331   t14207 = 0.11326164200960098622e2 * t2430 * t5173;
8332   t14213 = 0.56781128779330781250e1 * t2838 * t801 * t5178;
8333   t14214 = t14181 + 0.83495812500000000000e1 * t863 * t1032 * t5154 * t864 + t14187 - 0.11627420070069735493e0 * t2420 * t14188 * t14189 * t315 - t14195 + 0.92773125000000000000e0 * t863 * t412 * t5166 * t864 + t14201 - 0.45304656803840394488e2 * t2420 * t14202 * t2424 - t14207 + 0.22712451511732312500e2 * t7412 * t12235 * t7415 + t14213;
8334   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8335     v4rhosigma3[9] = -t5137 + t5139 - t5141 - t5143 + t5148 + t5153 + t5158 - t5165 + t5170 - t5175 + t5181 + t10 * (t14179 + t14214);
8336 
8337   t14232 = -t200 * t13805 * t328 / 0.2e1 - t13988 + 0.37109250000000000000e1 * t11370 * t1206 + t14053 - 0.16699162500000000000e2 * t2984 * t4208 - t14047 - 0.18554625000000000000e1 * t2984 * t4212 - t14041 + 0.45304656803840394488e2 * t8390 * t4215 + t14087 + 0.41747906250000000000e2 * t615 * t14056 * t14057 * t327;
8338   t14251 = t14089 + 0.83495812500000000000e1 * t615 * t771 * t5032 * t826 + t14032 - 0.11627420070069735493e0 * t1883 * t14078 * t14079 * t327 - t14145 + 0.92773125000000000000e0 * t615 * t304 * t5044 * t826 + t14039 - 0.45304656803840394488e2 * t1883 * t14066 * t2244 - t14143 + 0.22712451511732312500e2 * t6124 * t11427 * t6518 + t13811;
8339   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8340     v4rhosigma3[10] = -t5015 + t5017 - t5019 - t5021 + t5026 + t5031 + t5036 - t5043 + t5048 - t5053 + t5059 + t10 * (t14232 + t14251);
8341 
8342   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8343     v4rhosigma3[11] = 0.0e0;
8344 
8345   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8346     v4rhosigma3[12] = 0.0e0;
8347 
8348   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8349     v4rhosigma3[13] = 0.0e0;
8350 
8351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8352     v4rhosigma3[14] = 0.0e0;
8353 
8354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8355     v4rhosigma3[15] = 0.0e0;
8356 
8357   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8358     v4rhosigma3[16] = 0.0e0;
8359 
8360   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8361     v4rhosigma3[17] = 0.0e0;
8362 
8363   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8364     v4rhosigma3[18] = 0.0e0;
8365 
8366   t14289 = 0.18e2 * t2684 * t1570 * t1259 + 0.12e2 * t910 * t1603 * t1259 - 0.6e1 * t910 * t1260 * t1600 + 0.6e1 * t910 * t1262 * t1600 + 0.6e1 * t910 * t1569 * t1298 - 0.18e2 * t2684 * t5068 * t379 - 0.6e1 * t2684 * t5061 * t399 - 0.24e2 * t7920 * t5062 * t379 - 0.2e1 * t910 * t5099 * t379 - 0.6e1 * t910 * t500 * t4332 + 0.18e2 * t9721 * t4285;
8367   t14311 = t56 * t356;
8368   t14314 = t236 * t152;
8369   t14316 = t394 * t8006;
8370   t14324 = t356 * t236;
8371   t14364 = t1011 * t367 * t24;
8372   t14368 = t39 * t367;
8373   t14396 = t8096 * t394 * t23;
8374   t14399 = t14324 * t175;
8375   t14419 = my_piecewise3(t167, (-0.125e3 / 0.1296e4 * params->c1 * t356 * t988 + 0.625e3 / 0.23328e5 * t5107 * t236 * t14364 + 0.3125e4 / 0.209952e6 * t9630 * t482 * t36 * t14368 - 0.625e3 / 0.11664e5 * t1272 * t1011 * t356 * t24) * t173 + t5114 * t391 * t173 + 0.3e1 * t4361 * t508 * t173 + 0.3e1 * t1612 * t1280 * t173 + 0.3e1 * t5116 * t392 + 0.3e1 * t1615 * t1280 + t5119 * t391 * t173, 0.625e3 / 0.23328e5 * t278 * t2810 * t482 * t14396 - 0.125e3 / 0.1296e4 * t2800 * t14399 + 0.625e3 / 0.15552e5 * t748 * t2823 * t482 * t14396 - 0.125e3 / 0.1296e4 * t2811 * t14399 + 0.625e3 / 0.46656e5 * t2195 * t8118 * t482 * t14396 - 0.125e3 / 0.7776e4 * t2824 * t14399 + 0.625e3 / 0.559872e6 * t5999 * t8136 * t482 * t14396);
8376   t14422 = t339 * (0.27e2 / 0.160e3 * t237 * t356 * t138 - 0.243e3 / 0.2560e4 * t668 * t1231 * t24 * sigma[2] * t138 + 0.24057e5 / 0.2048000e7 * t5077 * t4303 - 0.177147e6 / 0.81920000e8 * t5829 * t353 / t7961 * t138 + 0.6e1 * t1256 * t1597 + 0.6e1 * t496 * t4329 + 0.2e1 * t376 * t5095 + 0.2e1 * t159 * (0.5e1 / 0.10368e5 * t14311 * t2742 - 0.125e3 / 0.746496e6 * t5086 * t14314 * t14316 - 0.5e1 / 0.5184e4 * t14311 * t2746 + 0.125e3 / 0.1119744e7 * t5086 * t9813 * t14316 + 0.5e1 / 0.31104e5 * t2755 * t14324 * t156 - 0.25e2 / 0.2239488e7 * t8026 * t5091 * t14316)) * t178 - t339 * t5098 * t399 + 0.6e1 * t910 * t5101 * t379 - 0.3e1 * t339 * t4332 * t513 - 0.3e1 * t339 * t1600 * t1298 + 0.6e1 * t910 * t5104 * t379 - 0.3e1 * t339 * t1259 * t1624 - 0.3e1 * t339 * t499 * t4385 - t339 * t379 * t5130 - t166 * t14419 + 0.1174e1 * t14419;
8377   t14456 = 0.17034338633799234375e2 * t2838 * t854 * t5178 + t14213 - 0.3e1 / 0.8e1 * t8 * t119 * (t14289 + t14422) * t192 - t14156 + 0.92773125000000000000e0 * t863 * t412 * t5166 * t896 + 0.14611767187500000000e3 * t408 * t7773 * t1634 * t348 * t191 * t100 + 0.83495812500000000000e1 * t863 * t1032 * t5154 * t896 - 0.13627470907039387500e3 * t1316 * t516 * t4393 * t4397 + 0.17034338633799234375e3 * t1316 * t12235 * t4397 + 0.22712451511732312500e2 * t7412 * t12235 * t7806 - 0.18554625000000000000e1 * t3264 * t4408 - 0.16699162500000000000e2 * t3264 * t4404;
8378   t14484 = t298 * t119 * t5133;
8379   t14499 = 0.37109250000000000000e1 * t11757 * t1311 + 0.34068677267598468750e2 * t408 * t1646 * t1030 * t191 * t100 * t414 + 0.62621859375000000000e1 * t1025 * t5156 - 0.11627420070069735493e0 * t2420 * t14188 * t14189 * t332 + 0.69579843750000000000e0 * t1025 * t5168 + 0.45304656803840394488e2 * t9354 * t4232 + 0.41747906250000000000e2 * t863 * t14173 * t14174 * t332 - 0.12524371875000000000e2 * t3342 * t1637 - 0.13915968750000000000e1 * t3342 * t1642 - 0.24739500000000000000e1 * t14484 * t417 + 0.27831937500000000000e1 * t12289 * t524 - 0.92773125000000000000e0 * t408 * t412 * t1646 * t414 * t191 - 0.83495812500000000000e1 * t408 * t1032 * t4393 * t342 * t191;
8380   t14525 = 0.18554625000000000000e1 * t1307 * t4227 - 0.37109250000000000000e1 * t4236 * t1325 + 0.16699162500000000000e2 * t1307 * t4222 - 0.45304656803840394488e2 * t2420 * t14202 * t2586 + t14187 + t14201 + t14160 - t14164 - t14168 - 0.25048743750000000000e3 * t1316 * t10005 * t4253 + 0.69764520420418412959e0 * t1045 * t10010 * t4258 + 0.90609313607680788976e2 * t1045 * t5144 * t121 * t1049 + 0.33978492602880295866e2 * t1045 * t1301 * t1646 * t183 * t1049;
8381   t14546 = 0.1e1 / t933;
8382   t14565 = 0.31310929687500000000e2 * t1316 * t7681 * t5150 - 0.75578230455453280704e0 * t1045 * t2631 * t5160 * t121 * t191 - 0.87205650525523016199e-1 * t1045 * t7648 * t5162 - 0.67956985205760591732e2 * t1045 * t5171 * t121 * t1049 - 0.33978492602880295866e2 * t1045 * t402 * t5160 * t183 * t1049 - 0.92427972442890327423e2 * t1045 * t181 * t14546 * t144 * t7654 + 0.33398325000000000000e2 * t1316 * t1627 * t1030 * t19 * t1319 - 0.90609313607680788976e2 * t1045 * t1627 * t1329 * t121 * t1049 + t14172 + t14181 - t14195 - t14207 - t313 * t14150 * t333 / 0.2e1;
8383   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8384     v4rhosigma3[19] = -t5137 + t5139 - t5141 - t5143 + t5148 + t5153 + t5158 - t5165 + t5170 - t5175 + t5181 + t10 * (t14456 + t14499 + t14525 + t14565);
8385 
8386   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8387     v4rhosigma2lapl[0] = 0.0e0;
8388 
8389   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8390     v4rhosigma2lapl[1] = 0.0e0;
8391 
8392   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8393     v4rhosigma2lapl[2] = 0.0e0;
8394 
8395   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8396     v4rhosigma2lapl[3] = 0.0e0;
8397 
8398   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8399     v4rhosigma2lapl[4] = 0.0e0;
8400 
8401   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8402     v4rhosigma2lapl[5] = 0.0e0;
8403 
8404   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8405     v4rhosigma2lapl[6] = 0.0e0;
8406 
8407   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8408     v4rhosigma2lapl[7] = 0.0e0;
8409 
8410   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8411     v4rhosigma2lapl[8] = 0.0e0;
8412 
8413   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8414     v4rhosigma2lapl[9] = 0.0e0;
8415 
8416   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8417     v4rhosigma2lapl[10] = 0.0e0;
8418 
8419   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8420     v4rhosigma2lapl[11] = 0.0e0;
8421 
8422   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8423     v4rhosigma2lapl[12] = 0.0e0;
8424 
8425   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8426     v4rhosigma2lapl[13] = 0.0e0;
8427 
8428   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8429     v4rhosigma2lapl[14] = 0.0e0;
8430 
8431   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8432     v4rhosigma2lapl[15] = 0.0e0;
8433 
8434   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8435     v4rhosigma2lapl[16] = 0.0e0;
8436 
8437   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8438     v4rhosigma2lapl[17] = 0.0e0;
8439 
8440   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8441     v4rhosigma2lapl[18] = 0.0e0;
8442 
8443   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8444     v4rhosigma2lapl[19] = 0.0e0;
8445 
8446   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8447     v4rhosigma2lapl[20] = 0.0e0;
8448 
8449   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8450     v4rhosigma2lapl[21] = 0.0e0;
8451 
8452   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8453     v4rhosigma2lapl[22] = 0.0e0;
8454 
8455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8456     v4rhosigma2lapl[23] = 0.0e0;
8457 
8458   t14569 = t15 * t5264;
8459   t14584 = 0.24739500000000000000e1 * t12720 * t471;
8460   t14588 = 0.55663875000000000000e1 * t3608 * t1553;
8461   t14596 = t1405 * t531 * t5264;
8462   t14599 = -t1341 * t14569 * t207 / 0.2e1 - 0.45424903023464625000e2 * t4549 * t557 * t4145 * t4149 - 0.55663875000000000000e1 * t3619 * t4154 - 0.61848750000000000000e0 * t3619 * t4158 + 0.24739500000000000000e1 * t12660 * t1159 + t14584 - 0.24739500000000000000e1 * t4540 * t1175 - t14588 + 0.18554625000000000000e1 * t12717 * t471 - 0.41747906250000000000e1 * t3739 * t1553 - 0.46386562500000000000e0 * t3739 * t1558 - 0.24739500000000000000e1 * t14596 * t309;
8463   t14607 = 0.61848750000000000000e0 * t3608 * t1558;
8464   t14609 = 0.15101552267946798163e2 * t784 * t5277;
8465   t14636 = t3796 * t5266 / 0.2e1;
8466   t14701 = -0.4e1 * t220 * t4445 * t460 - 0.4e1 * t220 * t1656 * t1146 + 0.2e1 * t220 * t261 * t5217 * t94 + 0.2e1 * t220 * t75 * (-0.35e2 / 0.10368e5 * t4965 + 0.125e3 / 0.93312e5 * t5208 * t13872 * t13874 + 0.35e2 / 0.5184e4 * t4967 - 0.125e3 / 0.139968e6 * t5208 * t8627 * t13874 - 0.35e2 / 0.31104e5 * t4971 + 0.25e2 / 0.279936e6 * t5888 * t5213 * t13874) * t94 + 0.2e1 * t220 * t4081 * t537 * t94 + 0.2e1 * t220 * t1513 * t1363 * t94 - 0.2e1 * t220 * t5197 * t285 + 0.4e1 * t220 * t1104 * t1669 * t94 + 0.4e1 * t220 * t443 * t4471 * t94 - 0.4e1 * t220 * t5201 * t285 - 0.4e1 * t220 * t4441 * t460 + 0.2e1 * t644 * t5231 * t264 - 0.2e1 * t220 * t5218 * t285 - 0.4e1 * t220 * t4456 * t460 - 0.4e1 * t220 * t4472 * t460;
8467   t14748 = -0.48e2 * t10252 * t1347 * t1485 * t264 + 0.24e2 * t3625 * t1347 * t446 * t1107 + 0.12e2 * t3625 * t1347 * t1516 * t264 + 0.4e1 * t644 * t1677 * t1107 - 0.4e1 * t220 * t1670 * t1146 - 0.2e1 * t220 * t1351 * t1540 - 0.2e1 * t220 * t1364 * t1540 - 0.12e2 * t3625 * t3636 * t1485 - 0.6e1 * t2054 * t5228 * t264 - 0.2e1 * t220 * t538 * t4137 + 0.4e1 * t644 * t5233 * t264 + 0.24e2 * t3625 * t4452 * t4423 - 0.24e2 * t3625 * t4479 * t4423 + 0.12e2 * t10259 * t5183 + 0.24e2 * t12506 * t4424;
8468   t14788 = (0.875e3 / 0.1296e4 * t4986 - 0.625e3 / 0.2916e4 * t5236 * t236 * t13922 - 0.3125e4 / 0.26244e5 * t8483 * t1918 * t36 * t13926 + 0.4375e4 / 0.11664e5 * t4990) * t89 + t5243 * t276 * t89 + 0.2e1 * t4509 * t455 * t89 + 0.2e1 * t1685 * t1128 * t89 + 0.2e1 * t5245 * t277 + t1382 * t1528 * t89 + t548 * t4113 * t89 + t5248 * t277 + t1382 * t1530 * t89 + 0.2e1 * t1687 * t1129 + t5250 * t277;
8469   t14809 = my_piecewise3(t83, t14788, -0.625e3 / 0.2916e4 * t278 * t2182 * t1918 * t13954 + 0.875e3 / 0.1296e4 * t5001 - 0.625e3 / 0.1944e4 * t748 * t2197 * t1918 * t13954 + 0.875e3 / 0.1296e4 * t5003 - 0.625e3 / 0.5832e4 * t2195 * t5981 * t1918 * t13954 + 0.875e3 / 0.7776e4 * t5005 - 0.625e3 / 0.69984e5 * t5999 * t6001 * t1918 * t13954);
8470   t14840 = 0.12e2 * t3625 * t3632 * t1485 - 0.8e1 * t4438 * t4429 - 0.8e1 * t4438 * t4435 + 0.1174e1 * t14809 - 0.8e1 * t1346 * t12480 * t446 - 0.8e1 * t1346 * t4452 * t1107 - 0.8e1 * t12464 * t1653 + 0.8e1 * t4438 * t4432 - 0.8e1 * t3629 * t5188 + 0.8e1 * t3629 * t5191 + 0.8e1 * t1346 * t12490 * t446 + 0.8e1 * t1346 * t12476 * t446 + 0.8e1 * t1346 * t4479 * t1107 + 0.8e1 * t1346 * t12499 * t446 - 0.4e1 * t1346 * t1347 * t4084;
8471   t14849 = t644 * t1513;
8472   t14852 = t5217 * t94;
8473   t14860 = t1669 * t460;
8474   t14864 = t537 * t1540;
8475   t14884 = -0.2e1 * t220 * t1107 * t1697 - 0.4e1 * t1346 * t14852 * t264 + 0.8e1 * t1346 * t14860 * t264 + 0.4e1 * t1346 * t14864 * t264 - 0.4e1 * t1346 * t3632 * t1516 + 0.4e1 * t1346 * t3636 * t1516 + 0.2e1 * t644 * t1485 * t1396 - t220 * t1516 * t1396 - t220 * t264 * t5261 - t220 * t4084 * t554 - 0.2e1 * t220 * t446 * t4530 - 0.4e1 * t14849 * t1348 - t82 * t14809 - 0.4e1 * t3629 * t5194 - 0.8e1 * t4438 * t4453 + 0.8e1 * t4438 * t4480;
8476   t14891 = 0.15101552267946798163e2 * t10328 * t3963 + 0.61848750000000000000e0 * t1407 * t3983 + 0.55663875000000000000e1 * t1407 * t3976 - t14607 + t14609 + 0.22265550000000000000e2 * t4549 * t1700 * t769 * t19 * t1169 - 0.60406209071787192651e2 * t3747 * t1700 * t1179 * t26 * t788 - 0.83495812500000000000e2 * t4549 * t10393 * t4007 + 0.23254840140139470986e0 * t3747 * t10398 * t4012 + 0.30203104535893596326e2 * t3747 * t5275 * t26 * t788 + 0.11326164200960098622e2 * t3747 * t1399 * t1562 * t102 * t788 - t14636 - 0.3e1 / 0.8e1 * t530 * t531 * (t14701 + t14748 + t14840 + t14884) * t111;
8477   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8478     v4rhosigma2tau[0] = t14599 + t14891;
8479 
8480   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8481     v4rhosigma2tau[1] = 0.0e0;
8482 
8483   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8484     v4rhosigma2tau[2] = 0.0e0;
8485 
8486   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8487     v4rhosigma2tau[3] = 0.0e0;
8488 
8489   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8490     v4rhosigma2tau[4] = 0.0e0;
8491 
8492   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8493     v4rhosigma2tau[5] = 0.0e0;
8494 
8495   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8496     v4rhosigma2tau[6] = 0.0e0;
8497 
8498   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8499     v4rhosigma2tau[7] = 0.0e0;
8500 
8501   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8502     v4rhosigma2tau[8] = 0.0e0;
8503 
8504   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8505     v4rhosigma2tau[9] = 0.0e0;
8506 
8507   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8508     v4rhosigma2tau[10] = 0.0e0;
8509 
8510   t14893 = t3796 * t5363 / 0.2e1;
8511   t14894 = t117 * t5361;
8512   t14899 = 0.24739500000000000000e1 * t12797 * t524;
8513   t14903 = 0.55663875000000000000e1 * t3805 * t1637;
8514   t14907 = 0.61848750000000000000e0 * t3805 * t1642;
8515   t14911 = 0.15101552267946798163e2 * t1045 * t5374;
8516   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8517     v4rhosigma2tau[11] = -t14893 - t1341 * t14894 * t316 / 0.2e1 + t14899 + 0.24739500000000000000e1 * t12801 * t1195 - t14903 - 0.55663875000000000000e1 * t3809 * t4182 - t14907 - 0.61848750000000000000e0 * t3809 * t4188 + t14911 + 0.15101552267946798163e2 * t10616 * t4195;
8518 
8519   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8520     v4rhosigma2tau[12] = -t14636 - t1341 * t14569 * t328 / 0.2e1 + t14584 + 0.24739500000000000000e1 * t12660 * t1206 - t14588 - 0.55663875000000000000e1 * t3619 * t4208 - t14607 - 0.61848750000000000000e0 * t3619 * t4212 + t14609 + 0.15101552267946798163e2 * t10328 * t4215;
8521 
8522   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8523     v4rhosigma2tau[13] = 0.0e0;
8524 
8525   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8526     v4rhosigma2tau[14] = 0.0e0;
8527 
8528   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8529     v4rhosigma2tau[15] = 0.0e0;
8530 
8531   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8532     v4rhosigma2tau[16] = 0.0e0;
8533 
8534   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8535     v4rhosigma2tau[17] = 0.0e0;
8536 
8537   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8538     v4rhosigma2tau[18] = 0.0e0;
8539 
8540   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8541     v4rhosigma2tau[19] = 0.0e0;
8542 
8543   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8544     v4rhosigma2tau[20] = 0.0e0;
8545 
8546   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8547     v4rhosigma2tau[21] = 0.0e0;
8548 
8549   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8550     v4rhosigma2tau[22] = 0.0e0;
8551 
8552   t14975 = -0.2e1 * t339 * t1259 * t1751 - 0.8e1 * t1423 * t12972 * t499 + 0.8e1 * t1423 * t12985 * t499 + 0.2e1 * t910 * t1569 * t1473 - t339 * t1600 * t1473 + 0.12e2 * t3831 * t3838 * t1569 - 0.12e2 * t3831 * t3842 * t1569 - t339 * t379 * t5358 - t339 * t4332 * t585 - 0.2e1 * t339 * t499 * t4687 + 0.12e2 * t10919 * t5280 - 0.8e1 * t12967 * t1707 - 0.8e1 * t3835 * t5285 - 0.8e1 * t4595 * t4586 - 0.8e1 * t4595 * t4592;
8553   t15003 = t910 * t1597;
8554   t15006 = t1723 * t513;
8555   t15014 = t568 * t1624;
8556   t15018 = -0.8e1 * t1423 * t4609 * t1259 + 0.8e1 * t1423 * t4636 * t1259 + 0.8e1 * t1423 * t12981 * t499 + 0.8e1 * t1423 * t12996 * t499 - 0.4e1 * t1423 * t1424 * t4332 + 0.8e1 * t1423 * t15006 * t379 + 0.4e1 * t1423 * t15014 * t379 - 0.4e1 * t1423 * t3838 * t1600 + 0.4e1 * t1423 * t3842 * t1600 - 0.4e1 * t15003 * t1425 + 0.8e1 * t3835 * t5288 - 0.4e1 * t3835 * t5291 + 0.8e1 * t4595 * t4589 - 0.8e1 * t4595 * t4610 + 0.8e1 * t4595 * t4637;
8557   t15020 = t5314 * t178;
8558   t15083 = (0.875e3 / 0.1296e4 * t5108 - 0.625e3 / 0.2916e4 * t5333 * t236 * t14364 - 0.3125e4 / 0.26244e5 * t9630 * t2624 * t36 * t14368 + 0.4375e4 / 0.11664e5 * t5112) * t173 + t5340 * t391 * t173 + 0.2e1 * t4666 * t508 * t173 + 0.2e1 * t1739 * t1280 * t173 + 0.2e1 * t5342 * t392 + t1459 * t1612 * t173 + t579 * t4361 * t173 + t5345 * t392 + t1459 * t1614 * t173 + 0.2e1 * t1741 * t1281 + t5347 * t392;
8559   t15104 = my_piecewise3(t167, t15083, -0.625e3 / 0.2916e4 * t278 * t2810 * t2624 * t14396 + 0.875e3 / 0.1296e4 * t5123 - 0.625e3 / 0.1944e4 * t748 * t2823 * t2624 * t14396 + 0.875e3 / 0.1296e4 * t5125 - 0.625e3 / 0.5832e4 * t2195 * t8118 * t2624 * t14396 + 0.875e3 / 0.7776e4 * t5127 - 0.625e3 / 0.69984e5 * t5999 * t8136 * t2624 * t14396);
8560   t15123 = -0.4e1 * t1423 * t15020 * t379 + 0.24e2 * t12879 * t4581 + 0.24e2 * t3831 * t1424 * t499 * t1259 - 0.48e2 * t10915 * t1424 * t1569 * t379 + 0.12e2 * t3831 * t1424 * t1600 * t379 - 0.24e2 * t3831 * t4636 * t4580 + 0.24e2 * t3831 * t4609 * t4580 + 0.2e1 * t339 * t4329 * t568 * t178 + 0.2e1 * t339 * t1597 * t1440 * t178 + 0.1174e1 * t15104 + 0.4e1 * t339 * t1256 * t1723 * t178 + 0.4e1 * t339 * t496 * t4628 * t178 - 0.4e1 * t339 * t5298 * t399 - 0.4e1 * t339 * t4598 * t513 - 0.2e1 * t339 * t1441 * t1624;
8561   t15185 = -0.4e1 * t339 * t4602 * t513 - 0.4e1 * t339 * t1710 * t1298 + 0.2e1 * t339 * t376 * t5314 * t178 + 0.2e1 * t339 * t159 * (-0.35e2 / 0.10368e5 * t5087 + 0.125e3 / 0.93312e5 * t5305 * t14314 * t14316 + 0.35e2 / 0.5184e4 * t5089 - 0.125e3 / 0.139968e6 * t5305 * t9813 * t14316 - 0.35e2 / 0.31104e5 * t5093 + 0.25e2 / 0.279936e6 * t8026 * t5310 * t14316) * t178 - 0.2e1 * t339 * t5294 * t399 + 0.2e1 * t910 * t5328 * t379 - 0.2e1 * t339 * t5315 * t399 - 0.4e1 * t339 * t4613 * t513 - 0.4e1 * t339 * t4629 * t513 - 0.4e1 * t339 * t1724 * t1298 - 0.2e1 * t339 * t1428 * t1624 + 0.4e1 * t910 * t5330 * t379 - 0.2e1 * t339 * t569 * t4385 - 0.6e1 * t2684 * t5325 * t379 + 0.4e1 * t910 * t1731 * t1259 - t166 * t15104;
8562   t15197 = t1405 * t562 * t5361;
8563   t15206 = -t1341 * t14894 * t333 / 0.2e1 - 0.45424903023464625000e2 * t4704 * t588 * t4393 * t4397 - 0.61848750000000000000e0 * t3809 * t4408 + 0.24739500000000000000e1 * t12801 * t1311 - 0.55663875000000000000e1 * t3809 * t4404 - 0.3e1 / 0.8e1 * t530 * t562 * (t14975 + t15018 + t15123 + t15185) * t192 - 0.46386562500000000000e0 * t3945 * t1642 + 0.15101552267946798163e2 * t10616 * t4232 - 0.24739500000000000000e1 * t15197 * t417 + 0.18554625000000000000e1 * t13153 * t524 - 0.41747906250000000000e1 * t3945 * t1637 + 0.55663875000000000000e1 * t1482 * t4222;
8564   t15236 = 0.61848750000000000000e0 * t1482 * t4227 - 0.24739500000000000000e1 * t4697 * t1325 + t14899 - t14903 - t14907 + t14911 + 0.22265550000000000000e2 * t4704 * t1754 * t1030 * t19 * t1319 - 0.60406209071787192651e2 * t3953 * t1754 * t1329 * t121 * t1049 - 0.83495812500000000000e2 * t4704 * t10963 * t4253 + 0.23254840140139470986e0 * t3953 * t10968 * t4258 + 0.30203104535893596326e2 * t3953 * t5372 * t121 * t1049 + 0.11326164200960098622e2 * t3953 * t1476 * t1646 * t183 * t1049 - t14893;
8565   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8566     v4rhosigma2tau[23] = t15206 + t15236;
8567 
8568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8569     v4rhosigmalapl2[0] = 0.0e0;
8570 
8571   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8572     v4rhosigmalapl2[1] = 0.0e0;
8573 
8574   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8575     v4rhosigmalapl2[2] = 0.0e0;
8576 
8577   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8578     v4rhosigmalapl2[3] = 0.0e0;
8579 
8580   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8581     v4rhosigmalapl2[4] = 0.0e0;
8582 
8583   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8584     v4rhosigmalapl2[5] = 0.0e0;
8585 
8586   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8587     v4rhosigmalapl2[6] = 0.0e0;
8588 
8589   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8590     v4rhosigmalapl2[7] = 0.0e0;
8591 
8592   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8593     v4rhosigmalapl2[8] = 0.0e0;
8594 
8595   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8596     v4rhosigmalapl2[9] = 0.0e0;
8597 
8598   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8599     v4rhosigmalapl2[10] = 0.0e0;
8600 
8601   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8602     v4rhosigmalapl2[11] = 0.0e0;
8603 
8604   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8605     v4rhosigmalapl2[12] = 0.0e0;
8606 
8607   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8608     v4rhosigmalapl2[13] = 0.0e0;
8609 
8610   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8611     v4rhosigmalapl2[14] = 0.0e0;
8612 
8613   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8614     v4rhosigmalapl2[15] = 0.0e0;
8615 
8616   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8617     v4rhosigmalapl2[16] = 0.0e0;
8618 
8619   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8620     v4rhosigmalapl2[17] = 0.0e0;
8621 
8622   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8623     v4rhosigmalapltau[0] = 0.0e0;
8624 
8625   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8626     v4rhosigmalapltau[1] = 0.0e0;
8627 
8628   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8629     v4rhosigmalapltau[2] = 0.0e0;
8630 
8631   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8632     v4rhosigmalapltau[3] = 0.0e0;
8633 
8634   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8635     v4rhosigmalapltau[4] = 0.0e0;
8636 
8637   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8638     v4rhosigmalapltau[5] = 0.0e0;
8639 
8640   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8641     v4rhosigmalapltau[6] = 0.0e0;
8642 
8643   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8644     v4rhosigmalapltau[7] = 0.0e0;
8645 
8646   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8647     v4rhosigmalapltau[8] = 0.0e0;
8648 
8649   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8650     v4rhosigmalapltau[9] = 0.0e0;
8651 
8652   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8653     v4rhosigmalapltau[10] = 0.0e0;
8654 
8655   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8656     v4rhosigmalapltau[11] = 0.0e0;
8657 
8658   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8659     v4rhosigmalapltau[12] = 0.0e0;
8660 
8661   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8662     v4rhosigmalapltau[13] = 0.0e0;
8663 
8664   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8665     v4rhosigmalapltau[14] = 0.0e0;
8666 
8667   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8668     v4rhosigmalapltau[15] = 0.0e0;
8669 
8670   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8671     v4rhosigmalapltau[16] = 0.0e0;
8672 
8673   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8674     v4rhosigmalapltau[17] = 0.0e0;
8675 
8676   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8677     v4rhosigmalapltau[18] = 0.0e0;
8678 
8679   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8680     v4rhosigmalapltau[19] = 0.0e0;
8681 
8682   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8683     v4rhosigmalapltau[20] = 0.0e0;
8684 
8685   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8686     v4rhosigmalapltau[21] = 0.0e0;
8687 
8688   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8689     v4rhosigmalapltau[22] = 0.0e0;
8690 
8691   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8692     v4rhosigmalapltau[23] = 0.0e0;
8693 
8694   t15238 = t3796 * t5463 / 0.2e1;
8695   t15239 = t15 * t5461;
8696   t15250 = t1766 * t1107;
8697   t15253 = t4741 * t446;
8698   t15256 = t3636 * t1669;
8699   t15264 = t3632 * t1669;
8700   t15267 = t1347 * t4471;
8701   t15273 = t4479 * t1363;
8702   t15284 = t5393 * t264;
8703   t15289 = 0.12e2 * t2054 * t1761 * t1062 - 0.16e2 * t1346 * t1766 * t1104 - 0.4e1 * t1346 * t4744 * t1107 + 0.16e2 * t1346 * t5393 * t261 + 0.16e2 * t1346 * t4741 * t443 - t220 * t264 * t5458 - 0.8e1 * t13321 * t4429 - 0.8e1 * t13321 * t4453 + 0.24e2 * t4723 * t15250 - 0.24e2 * t4723 * t15253 + 0.16e2 * t4730 * t15256 - 0.16e2 * t4730 * t15264 - 0.16e2 * t4730 * t15267 + 0.16e2 * t4730 * t15273 - 0.24e2 * t4723 * t15284 - 0.16e2 * t3629 * t5380 - 0.4e1 * t3629 * t5396;
8704   t15298 = t5412 * t94;
8705   t15331 = (-0.125e3 / 0.27e2 * t5237 + 0.1250e4 / 0.729e3 * t5434 * t236 * t13922 + 0.6250e4 / 0.6561e4 * t8483 * t2931 * t36 * t13926 - 0.625e3 / 0.243e3 * t5241) * t89 + t5441 * t276 * t89 + t4793 * t455 * t89 + t1790 * t1128 * t89 + t5443 * t277 + 0.2e1 * t1383 * t1685 + 0.2e1 * t1384 * t1686 + 0.2e1 * t549 * t4509 + 0.2e1 * t1687 * t1383 + t1792 * t1128 * t89 + t5447 * t277;
8706   t15352 = my_piecewise3(t83, t15331, 0.1250e4 / 0.729e3 * t278 * t2182 * t2931 * t13954 - 0.125e3 / 0.27e2 * t5254 + 0.625e3 / 0.243e3 * t748 * t2197 * t2931 * t13954 - 0.125e3 / 0.27e2 * t5256 + 0.625e3 / 0.729e3 * t2195 * t5981 * t2931 * t13954 - 0.125e3 / 0.162e3 * t5258 + 0.625e3 / 0.8748e4 * t5999 * t6001 * t2931 * t13954);
8707   t15412 = -0.4e1 * t1346 * t13331 * t446 + 0.4e1 * t1346 * t13325 * t446 - 0.4e1 * t4438 * t4745 - 0.4e1 * t1346 * t15298 * t264 - t82 * t15352 + 0.48e2 * t3625 * t1766 * t446 * t261 + 0.48e2 * t4723 * t1347 * t446 * t1363 - 0.96e2 * t13293 * t1766 * t4423 - 0.32e2 * t1346 * t1347 * t4456 + 0.48e2 * t3625 * t1766 * t443 * t264 - 0.32e2 * t1346 * t1347 * t4445 + 0.48e2 * t4723 * t1347 * t1669 * t264 - 0.24e2 * t3625 * t4770 * t4423 + 0.12e2 * t3625 * t4744 * t4423 + 0.2e1 * t220 * t75 * (0.5e1 / 0.216e3 * t5209 - 0.125e3 / 0.11664e5 * t5403 * t13872 * t13874 - 0.5e1 / 0.108e3 * t5211 + 0.125e3 / 0.17496e5 * t5403 * t8627 * t13874 + 0.5e1 / 0.648e3 * t5215 - 0.25e2 / 0.34992e5 * t5888 * t5408 * t13874) * t94 - 0.2e1 * t220 * t5413 * t285 + 0.2e1 * t220 * t1104 * t1776 * t94 - 0.2e1 * t220 * t4748 * t460;
8708   t15466 = 0.2e1 * t220 * t261 * t5412 * t94 + 0.2e1 * t220 * t443 * t4762 * t94 - 0.2e1 * t220 * t1761 * t1146 - 0.2e1 * t220 * t1777 * t1146 - 0.4e1 * t220 * t1351 * t1697 - 0.4e1 * t220 * t1364 * t1697 - 0.4e1 * t220 * t1656 * t1396 - 0.4e1 * t220 * t1670 * t1396 - 0.2e1 * t220 * t5399 * t285 - 0.4e1 * t220 * t4441 * t554 - 0.4e1 * t220 * t4445 * t554 - 0.4e1 * t220 * t4456 * t554 - 0.4e1 * t220 * t4472 * t554 - 0.4e1 * t220 * t538 * t4530 - 0.2e1 * t220 * t4763 * t460 + 0.2e1 * t644 * t5432 * t264 - 0.4e1 * t644 * t15250;
8709   t15489 = t1776 * t460;
8710   t15498 = t1669 * t554;
8711   t15502 = t537 * t1697;
8712   t15512 = 0.4e1 * t644 * t15253 + 0.4e1 * t220 * t15264 + 0.4e1 * t220 * t15267 - 0.4e1 * t220 * t15256 + 0.4e1 * t644 * t15284 - 0.4e1 * t220 * t15273 + 0.8e1 * t644 * t1762 * t1146 + 0.1174e1 * t15352 + 0.8e1 * t1346 * t13339 * t446 + 0.8e1 * t1346 * t4770 * t1107 + 0.4e1 * t1346 * t15489 * t264 + 0.8e1 * t3629 * t5420 + 0.8e1 * t1346 * t13335 * t446 + 0.8e1 * t1346 * t15498 * t264 + 0.8e1 * t1346 * t15502 * t264 + 0.8e1 * t4438 * t4771 - t220 * t1107 * t1802 - t220 * t446 * t4813;
8713   t15520 = t1405 * t531 * t5461;
8714   t15524 = 0.12369750000000000000e1 * t13204 * t471;
8715   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8716     v4rhosigmatau2[0] = -t15238 - t1341 * t15239 * t207 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t531 * (t15289 + t15412 + t15466 + t15512) * t111 - 0.24739500000000000000e1 * t15520 * t309 + t15524 + 0.12369750000000000000e1 * t13215 * t1159 + 0.92773125000000000000e0 * t13467 * t471 + 0.11132775000000000000e2 * t4549 * t1805 * t769 * t19 * t1169 - 0.12369750000000000000e1 * t4822 * t1175 - 0.30203104535893596325e2 * t3747 * t1805 * t1179 * t26 * t788;
8717 
8718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8719     v4rhosigmatau2[1] = 0.0e0;
8720 
8721   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8722     v4rhosigmatau2[2] = 0.0e0;
8723 
8724   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8725     v4rhosigmatau2[3] = 0.0e0;
8726 
8727   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8728     v4rhosigmatau2[4] = 0.0e0;
8729 
8730   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8731     v4rhosigmatau2[5] = 0.0e0;
8732 
8733   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8734     v4rhosigmatau2[6] = 0.0e0;
8735 
8736   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8737     v4rhosigmatau2[7] = 0.0e0;
8738 
8739   t15542 = t3796 * t5554 / 0.2e1;
8740   t15543 = t117 * t5552;
8741   t15548 = 0.12369750000000000000e1 * t13521 * t524;
8742   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8743     v4rhosigmatau2[8] = -t15542 - t1341 * t15543 * t316 / 0.2e1 + t15548 + 0.12369750000000000000e1 * t13525 * t1195;
8744 
8745   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8746     v4rhosigmatau2[9] = -t15238 - t1341 * t15239 * t328 / 0.2e1 + t15524 + 0.12369750000000000000e1 * t13215 * t1206;
8747 
8748   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8749     v4rhosigmatau2[10] = 0.0e0;
8750 
8751   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8752     v4rhosigmatau2[11] = 0.0e0;
8753 
8754   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8755     v4rhosigmatau2[12] = 0.0e0;
8756 
8757   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8758     v4rhosigmatau2[13] = 0.0e0;
8759 
8760   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8761     v4rhosigmatau2[14] = 0.0e0;
8762 
8763   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8764     v4rhosigmatau2[15] = 0.0e0;
8765 
8766   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8767     v4rhosigmatau2[16] = 0.0e0;
8768 
8769   t15576 = t1815 * t1259;
8770   t15593 = t3838 * t1723;
8771   t15596 = t1424 * t4628;
8772   t15599 = t3842 * t1723;
8773   t15602 = t5484 * t379;
8774   t15605 = t4636 * t1440;
8775   t15608 = t4855 * t499;
8776   t15613 = 0.48e2 * t4837 * t1424 * t499 * t1440 + 0.48e2 * t4837 * t1424 * t1723 * t379 + 0.48e2 * t3831 * t1815 * t499 * t376 + 0.48e2 * t3831 * t1815 * t496 * t379 + 0.8e1 * t910 * t1811 * t1298 - 0.96e2 * t13595 * t1815 * t4580 - 0.32e2 * t1423 * t1424 * t4602 - 0.32e2 * t1423 * t1424 * t4613 - 0.24e2 * t3831 * t4884 * t4580 - 0.4e1 * t910 * t15576 + 0.4e1 * t339 * t15593 + 0.4e1 * t339 * t15596 - 0.4e1 * t339 * t15599 + 0.4e1 * t910 * t15602 - 0.4e1 * t339 * t15605 + 0.4e1 * t910 * t15608 + 0.8e1 * t4595 * t4885;
8777   t15614 = t1723 * t585;
8778   t15618 = t568 * t1751;
8779   t15685 = 0.8e1 * t1423 * t15614 * t379 + 0.8e1 * t1423 * t15618 * t379 - 0.16e2 * t3835 * t5471 - 0.16e2 * t1423 * t1815 * t1256 + 0.24e2 * t4837 * t15576 + 0.2e1 * t339 * t1256 * t1825 * t178 + 0.2e1 * t339 * t496 * t4876 * t178 - 0.2e1 * t339 * t5490 * t399 + 0.2e1 * t339 * t376 * t5503 * t178 + 0.2e1 * t339 * t159 * (0.5e1 / 0.216e3 * t5306 - 0.125e3 / 0.11664e5 * t5494 * t14314 * t14316 - 0.5e1 / 0.108e3 * t5308 + 0.125e3 / 0.17496e5 * t5494 * t9813 * t14316 + 0.5e1 / 0.648e3 * t5312 - 0.25e2 / 0.34992e5 * t8026 * t5499 * t14316) * t178 - 0.4e1 * t339 * t4598 * t585 - 0.4e1 * t339 * t4602 * t585 - 0.4e1 * t339 * t1710 * t1473 - 0.2e1 * t339 * t5504 * t399 - 0.2e1 * t339 * t4862 * t513 - 0.2e1 * t339 * t4877 * t513 - 0.2e1 * t339 * t1826 * t1298 - 0.4e1 * t339 * t569 * t4687;
8780   t15731 = 0.2e1 * t910 * t5523 * t379 - 0.4e1 * t339 * t4613 * t585 - 0.4e1 * t339 * t4629 * t585 - 0.4e1 * t339 * t1724 * t1473 - 0.4e1 * t339 * t1428 * t1751 - 0.4e1 * t339 * t1441 * t1751 - 0.4e1 * t4595 * t4859 + 0.16e2 * t1423 * t4855 * t496 - 0.16e2 * t4844 * t15593 - 0.16e2 * t4844 * t15596 - 0.24e2 * t4837 * t15608 + 0.16e2 * t4844 * t15605 + 0.12e2 * t2684 * t1810 * t1214 - 0.8e1 * t13690 * t4586 - 0.4e1 * t1423 * t4858 * t1259 + 0.4e1 * t1423 * t13765 * t499 - 0.4e1 * t3835 * t5487;
8781   t15741 = t5503 * t178;
8782   t15748 = t1825 * t513;
8783   t15786 = (-0.125e3 / 0.27e2 * t5334 + 0.1250e4 / 0.729e3 * t5525 * t236 * t14364 + 0.6250e4 / 0.6561e4 * t9630 * t3389 * t36 * t14368 - 0.625e3 / 0.243e3 * t5338) * t173 + t5532 * t391 * t173 + t4907 * t508 * t173 + t1839 * t1280 * t173 + t5534 * t392 + 0.2e1 * t1460 * t1739 + 0.2e1 * t1461 * t1740 + 0.2e1 * t580 * t4666 + 0.2e1 * t1741 * t1460 + t1841 * t1280 * t173 + t5538 * t392;
8784   t15807 = my_piecewise3(t167, t15786, 0.1250e4 / 0.729e3 * t278 * t2810 * t3389 * t14396 - 0.125e3 / 0.27e2 * t5351 + 0.625e3 / 0.243e3 * t748 * t2823 * t3389 * t14396 - 0.125e3 / 0.27e2 * t5353 + 0.625e3 / 0.729e3 * t2195 * t8118 * t3389 * t14396 - 0.125e3 / 0.162e3 * t5355 + 0.625e3 / 0.8748e4 * t5999 * t8136 * t3389 * t14396);
8785   t15828 = -0.4e1 * t1423 * t13697 * t499 + 0.12e2 * t3831 * t4858 * t4580 + 0.8e1 * t1423 * t13776 * t499 - 0.4e1 * t1423 * t15741 * t379 + 0.8e1 * t1423 * t4884 * t1259 + 0.4e1 * t1423 * t15748 * t379 + 0.8e1 * t3835 * t5511 + 0.8e1 * t1423 * t13780 * t499 + 0.1174e1 * t15807 + 0.16e2 * t4844 * t15599 - 0.24e2 * t4837 * t15602 + 0.16e2 * t1423 * t5484 * t376 - 0.8e1 * t13690 * t4610 - t339 * t1259 * t1851 - t339 * t499 * t4927 - 0.2e1 * t339 * t1810 * t1298 - t339 * t379 * t5549 - t166 * t15807;
8786   t15836 = t1405 * t562 * t5552;
8787   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8788     v4rhosigmatau2[17] = -t15542 - t1341 * t15543 * t333 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t562 * (t15613 + t15685 + t15731 + t15828) * t192 - 0.24739500000000000000e1 * t15836 * t417 + t15548 + 0.12369750000000000000e1 * t13525 * t1311 + 0.92773125000000000000e0 * t13793 * t524 + 0.11132775000000000000e2 * t4704 * t1854 * t1030 * t19 * t1319 - 0.12369750000000000000e1 * t4936 * t1325 - 0.30203104535893596325e2 * t3953 * t1854 * t1329 * t121 * t1049;
8789 
8790   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8791     v4rholapl3[0] = 0.0e0;
8792 
8793   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8794     v4rholapl3[1] = 0.0e0;
8795 
8796   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8797     v4rholapl3[2] = 0.0e0;
8798 
8799   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8800     v4rholapl3[3] = 0.0e0;
8801 
8802   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8803     v4rholapl3[4] = 0.0e0;
8804 
8805   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8806     v4rholapl3[5] = 0.0e0;
8807 
8808   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8809     v4rholapl3[6] = 0.0e0;
8810 
8811   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8812     v4rholapl3[7] = 0.0e0;
8813 
8814   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8815     v4rholapl2tau[0] = 0.0e0;
8816 
8817   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8818     v4rholapl2tau[1] = 0.0e0;
8819 
8820   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8821     v4rholapl2tau[2] = 0.0e0;
8822 
8823   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8824     v4rholapl2tau[3] = 0.0e0;
8825 
8826   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8827     v4rholapl2tau[4] = 0.0e0;
8828 
8829   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8830     v4rholapl2tau[5] = 0.0e0;
8831 
8832   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8833     v4rholapl2tau[6] = 0.0e0;
8834 
8835   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8836     v4rholapl2tau[7] = 0.0e0;
8837 
8838   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8839     v4rholapl2tau[8] = 0.0e0;
8840 
8841   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8842     v4rholapl2tau[9] = 0.0e0;
8843 
8844   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8845     v4rholapl2tau[10] = 0.0e0;
8846 
8847   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8848     v4rholapl2tau[11] = 0.0e0;
8849 
8850   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8851     v4rholapltau2[0] = 0.0e0;
8852 
8853   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8854     v4rholapltau2[1] = 0.0e0;
8855 
8856   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8857     v4rholapltau2[2] = 0.0e0;
8858 
8859   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8860     v4rholapltau2[3] = 0.0e0;
8861 
8862   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8863     v4rholapltau2[4] = 0.0e0;
8864 
8865   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8866     v4rholapltau2[5] = 0.0e0;
8867 
8868   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8869     v4rholapltau2[6] = 0.0e0;
8870 
8871   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8872     v4rholapltau2[7] = 0.0e0;
8873 
8874   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8875     v4rholapltau2[8] = 0.0e0;
8876 
8877   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8878     v4rholapltau2[9] = 0.0e0;
8879 
8880   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8881     v4rholapltau2[10] = 0.0e0;
8882 
8883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8884     v4rholapltau2[11] = 0.0e0;
8885 
8886   t15855 = t3796 * t5628;
8887   t15857 = t15 * t5626;
8888   t15861 = t537 * t1802;
8889   t15865 = t1776 * t554;
8890   t15869 = t5589 * t94;
8891   t15876 = t4770 * t1363;
8892   t15879 = t1347 * t4762;
8893   t15882 = t3636 * t1776;
8894   t15885 = t5577 * t264;
8895   t15969 = my_piecewise3(t83, (0.2500e4 / 0.81e2 * t5435 - 0.10000e5 / 0.729e3 * t5600 * t236 * t13922 - 0.50000e5 / 0.6561e4 * t8483 * t4005 * t36 * t13926 + 0.12500e5 / 0.729e3 * t5439) * t89 + t5607 * t276 * t89 + 0.3e1 * t4793 * t548 * t89 + 0.3e1 * t1790 * t1382 * t89 + 0.3e1 * t5609 * t277 + 0.3e1 * t1793 * t1382 + t5612 * t276 * t89, -0.10000e5 / 0.729e3 * t278 * t2182 * t4005 * t13954 + 0.2500e4 / 0.81e2 * t5451 - 0.5000e4 / 0.243e3 * t748 * t2197 * t4005 * t13954 + 0.2500e4 / 0.81e2 * t5453 - 0.5000e4 / 0.729e3 * t2195 * t5981 * t4005 * t13954 + 0.1250e4 / 0.243e3 * t5455 - 0.1250e4 / 0.2187e4 * t5999 * t6001 * t4005 * t13954);
8896   t15971 = t5560 * t94;
8897   t15972 = t15971 * t264;
8898   t15975 = t1766 * t1363;
8899   t15978 = t5773 * t5559;
8900   t15981 = 0.12e2 * t1346 * t15861 * t264 + 0.12e2 * t1346 * t15865 * t264 - 0.4e1 * t1346 * t15869 * t264 + 0.48e2 * t1346 * t5577 * t261 + 0.48e2 * t4730 * t15876 + 0.6e1 * t220 * t15879 - 0.6e1 * t220 * t15882 + 0.12e2 * t644 * t15885 - 0.12e2 * t220 * t15876 + 0.2e1 * t220 * t261 * t5589 * t94 + 0.2e1 * t220 * t75 * (-0.25e2 / 0.162e3 * t5404 + 0.125e3 / 0.1458e4 * t5580 * t13872 * t13874 + 0.25e2 / 0.81e2 * t5406 - 0.125e3 / 0.2187e4 * t5580 * t8627 * t13874 - 0.25e2 / 0.486e3 * t5410 + 0.25e2 / 0.4374e4 * t5888 * t5585 * t13874) * t94 - 0.2e1 * t220 * t5590 * t285 - 0.6e1 * t220 * t4748 * t554 - 0.6e1 * t220 * t4763 * t554 - 0.6e1 * t220 * t1777 * t1396 + 0.1174e1 * t15969 + 0.72e2 * t3625 * t15972 - 0.72e2 * t1346 * t15975 - 0.192e3 * t15978 * t15972;
8901   t15982 = t15971 * t261;
8902   t15987 = t2054 * t5559;
8903   t15992 = t3632 * t1776;
8904   t16034 = 0.144e3 * t4723 * t15982 - 0.72e2 * t4723 * t15885 + 0.144e3 * t15987 * t15975 - 0.12e2 * t13321 * t4745 - 0.24e2 * t4730 * t15992 - 0.24e2 * t4730 * t15879 + 0.24e2 * t4730 * t15882 - 0.6e1 * t220 * t1761 * t1396 - t220 * t264 * t5623 - t82 * t15969 - 0.6e1 * t220 * t1351 * t1802 - 0.6e1 * t220 * t1364 * t1802 - 0.6e1 * t220 * t538 * t4813 + 0.24e2 * t644 * t1762 * t1396 + 0.6e1 * t220 * t15992 - 0.48e2 * t2054 * t5561 * t285 - 0.24e2 * t644 * t15982 + 0.24e2 * t644 * t5565 * t285 + 0.72e2 * t4723 * t1347 * t1776 * t264 - 0.48e2 * t1346 * t1347 * t4748;
8905   t16041 = t1405 * t531 * t5626;
8906   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8907     v4rhotau3[0] = -t15855 / 0.2e1 - t1341 * t15857 * t207 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t531 * (t15981 + t16034) * t111 - 0.24739500000000000000e1 * t16041 * t309;
8908 
8909   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8910     v4rhotau3[1] = 0.0e0;
8911 
8912   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8913     v4rhotau3[2] = 0.0e0;
8914 
8915   t16044 = t3796 * t5700;
8916   t16045 = t117 * t5698;
8917   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8918     v4rhotau3[3] = -t1341 * t16045 * t316 / 0.2e1 - t16044 / 0.2e1;
8919 
8920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8921     v4rhotau3[4] = -t1341 * t15857 * t328 / 0.2e1 - t15855 / 0.2e1;
8922 
8923   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8924     v4rhotau3[5] = 0.0e0;
8925 
8926   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8927     v4rhotau3[6] = 0.0e0;
8928 
8929   t16063 = t4884 * t1440;
8930   t16077 = t376 * t5632 * t178;
8931   t16095 = t3838 * t1825;
8932   t16098 = t1424 * t4876;
8933   t16101 = t3842 * t1825;
8934   t16104 = t5649 * t379;
8935   t16116 = 0.72e2 * t4837 * t1424 * t1825 * t379 - 0.48e2 * t1423 * t1424 * t4862 - 0.12e2 * t339 * t16063 + 0.2e1 * t339 * t376 * t5661 * t178 + 0.24e2 * t910 * t1811 * t1473 - 0.48e2 * t2684 * t5633 * t399 - 0.24e2 * t910 * t16077 + 0.24e2 * t910 * t5637 * t399 - 0.2e1 * t339 * t5662 * t399 - 0.6e1 * t339 * t4862 * t585 - 0.6e1 * t339 * t4877 * t585 - 0.6e1 * t339 * t1826 * t1473 + 0.6e1 * t339 * t16095 + 0.6e1 * t339 * t16098 - 0.6e1 * t339 * t16101 + 0.12e2 * t910 * t16104 - 0.6e1 * t339 * t1428 * t1851 - 0.6e1 * t339 * t1441 * t1851 - 0.6e1 * t339 * t569 * t4927;
8936   t16180 = my_piecewise3(t167, (0.2500e4 / 0.81e2 * t5526 - 0.10000e5 / 0.729e3 * t5672 * t236 * t14364 - 0.50000e5 / 0.6561e4 * t9630 * t4251 * t36 * t14368 + 0.12500e5 / 0.729e3 * t5530) * t173 + t5679 * t391 * t173 + 0.3e1 * t4907 * t579 * t173 + 0.3e1 * t1839 * t1459 * t173 + 0.3e1 * t5681 * t392 + 0.3e1 * t1842 * t1459 + t5684 * t391 * t173, -0.10000e5 / 0.729e3 * t278 * t2810 * t4251 * t14396 + 0.2500e4 / 0.81e2 * t5542 - 0.5000e4 / 0.243e3 * t748 * t2823 * t4251 * t14396 + 0.2500e4 / 0.81e2 * t5544 - 0.5000e4 / 0.729e3 * t2195 * t8118 * t4251 * t14396 + 0.1250e4 / 0.243e3 * t5546 - 0.1250e4 / 0.2187e4 * t5999 * t8136 * t4251 * t14396);
8937   t16188 = t1815 * t1440;
8938   t16191 = t7920 * t5631;
8939   t16192 = t5632 * t178;
8940   t16193 = t16192 * t379;
8941   t16198 = t2684 * t5631;
8942   t16216 = t5661 * t178;
8943   t16220 = t1825 * t585;
8944   t16226 = t568 * t1851;
8945   t16230 = 0.2e1 * t339 * t159 * (-0.25e2 / 0.162e3 * t5495 + 0.125e3 / 0.1458e4 * t5652 * t14314 * t14316 + 0.25e2 / 0.81e2 * t5497 - 0.125e3 / 0.2187e4 * t5652 * t9813 * t14316 - 0.25e2 / 0.486e3 * t5501 + 0.25e2 / 0.4374e4 * t8026 * t5657 * t14316) * t178 + 0.1174e1 * t16180 - t339 * t379 * t5695 - 0.6e1 * t339 * t1810 * t1473 - t166 * t16180 - 0.72e2 * t1423 * t16188 - 0.192e3 * t16191 * t16193 + 0.144e3 * t4837 * t16077 + 0.144e3 * t16198 * t16188 + 0.72e2 * t3831 * t16193 - 0.12e2 * t13690 * t4859 - 0.24e2 * t4844 * t16095 - 0.24e2 * t4844 * t16098 - 0.72e2 * t4837 * t16104 + 0.48e2 * t1423 * t5649 * t376 + 0.48e2 * t4844 * t16063 - 0.4e1 * t1423 * t16216 * t379 + 0.12e2 * t1423 * t16220 * t379 + 0.24e2 * t4844 * t16101 + 0.12e2 * t1423 * t16226 * t379;
8946   t16237 = t1405 * t562 * t5698;
8947   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8948     v4rhotau3[7] = -t16044 / 0.2e1 - t1341 * t16045 * t333 / 0.2e1 - 0.3e1 / 0.8e1 * t530 * t562 * (t16116 + t16230) * t192 - 0.24739500000000000000e1 * t16237 * t417;
8949 
8950   t16257 = t1485 * t1485;
8951   t16267 = t1516 * t1516;
8952   t16292 = t1513 * t1513;
8953   t16297 = t56 * t1499 * t236;
8954   t16324 = t2182 * t1499;
8955   t16333 = t1528 * t1528;
8956   t16339 = t1530 * t1530;
8957   t16358 = my_piecewise3(t83, (-0.625e3 / 0.186624e6 * params->c1 * t1499 * t236 * t5923 - 0.3125e4 / 0.1679616e7 * t1120 * t16324 * t704) * t89 + 0.4e1 * t4992 * t455 * t89 + 0.3e1 * t16333 * t89 + 0.6e1 * t1528 * t1530 * t89 + t16339 * t89, -0.625e3 / 0.186624e6 * t278 * t16324 * t5960 - 0.625e3 / 0.124416e6 * t748 * t2197 * t1499 * t5960 - 0.625e3 / 0.373248e6 * t2195 * t5981 * t1499 * t5960 - 0.625e3 / 0.4478976e7 * t5999 * t6001 * t1499 * t5960);
8958   t16361 = -0.24e2 * t5773 * t16257 * t94 + 0.36e2 * t2054 * t1486 * t1516 - 0.24e2 * t2054 * t4939 * t460 - 0.6e1 * t644 * t16267 * t94 + 0.24e2 * t644 * t1519 * t1516 - 0.8e1 * t644 * t447 * t4976 + 0.12e2 * t644 * t1485 * t1540 + t220 * (0.729e3 / 0.51200e5 * t668 * t1499 * t24 * t52 - 0.6561e4 / 0.2048000e7 * t2086 * sigma[0] * t4959 + 0.531441e6 / 0.655360000e9 * t5829 * t41 / t2089 * t52 + 0.6e1 * t16292 + 0.8e1 * t443 * t4973 + 0.2e1 * t75 * (0.125e3 / 0.5971968e7 * t16297 * t5869 - 0.125e3 / 0.8957952e7 * t16297 * t5873 + 0.25e2 / 0.17915904e8 * t5888 * t1499 * t5891)) * t94 - 0.4e1 * t220 * t4976 * t460 - 0.6e1 * t220 * t1516 * t1540 - 0.4e1 * t220 * t446 * t5008 - t82 * t16358 + 0.1174e1 * t16358;
8959   t16390 = 0.1e1 / t101 / t669;
8960   t16428 = -0.54794126953125000000e2 * t300 * t6164 * t4145 * t45 * t110 * t100 - 0.15655464843750000000e2 * t300 * t771 * t5054 * t29 * t110 + 0.27831937500000000000e1 * t1155 * t5046 - 0.27831937500000000000e1 * t3967 * t1558 + 0.25048743750000000000e2 * t1155 * t5034 - 0.3e1 / 0.8e1 * t8 * t18 * t16361 * t111 - 0.12775753975349425781e2 * t300 * t5038 * t769 * t110 * t100 * t103 - 0.93932789062500000000e2 * t1166 * t1917 * t1562 * t1911 * t110 - 0.25048743750000000000e2 * t3967 * t1553 + 0.37109250000000000000e1 * t14021 * t471 + 0.68137354535196937499e2 * t2033 * t1055 * t5056 - 0.11498178577814483203e3 * t2033 * t201 * t14108 * t302 * t110 + 0.12741934726080110950e3 * t784 * t97 * t16390 * t102 * t788 + 0.34660489666083872784e2 * t784 * t97 / t2087 * t28 * t5754 + 0.54503531578451885124e0 * t784 * t1925 * t16390 * t102 * t110 + 0.67956985205760591732e2 * t784 * t1543 * t1562 * t102 * t788 + 0.12524371875000000000e3 * t1166 * t8203 * t5028 - 0.34882260210209206480e0 * t784 * t8209 * t5040 - 0.13591397041152118347e3 * t784 * t463 * t5038 * t102 * t788 - 0.17394960937500000000e1 * t300 * t304 * t5038 * t103 * t110;
8961   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8962     v4sigma4[0] = t10 * t16428;
8963 
8964   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8965     v4sigma4[1] = 0.0e0;
8966 
8967   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8968     v4sigma4[2] = 0.0e0;
8969 
8970   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8971     v4sigma4[3] = 0.0e0;
8972 
8973   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8974     v4sigma4[4] = 0.0e0;
8975 
8976   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8977     v4sigma4[5] = 0.0e0;
8978 
8979   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8980     v4sigma4[6] = 0.0e0;
8981 
8982   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8983     v4sigma4[7] = 0.0e0;
8984 
8985   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8986     v4sigma4[8] = 0.0e0;
8987 
8988   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8989     v4sigma4[9] = 0.0e0;
8990 
8991   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8992     v4sigma4[10] = 0.0e0;
8993 
8994   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8995     v4sigma4[11] = 0.0e0;
8996 
8997   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8998     v4sigma4[12] = 0.0e0;
8999 
9000   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9001     v4sigma4[13] = 0.0e0;
9002 
9003   t16429 = t1569 * t1569;
9004   t16439 = t1600 * t1600;
9005   t16464 = t1597 * t1597;
9006   t16469 = t56 * t1583 * t236;
9007   t16496 = t2810 * t1583;
9008   t16505 = t1612 * t1612;
9009   t16511 = t1614 * t1614;
9010   t16530 = my_piecewise3(t167, (-0.625e3 / 0.186624e6 * params->c1 * t1583 * t236 * t8060 - 0.3125e4 / 0.1679616e7 * t1272 * t16496 * t704) * t173 + 0.4e1 * t5114 * t508 * t173 + 0.3e1 * t16505 * t173 + 0.6e1 * t1612 * t1614 * t173 + t16511 * t173, -0.625e3 / 0.186624e6 * t278 * t16496 * t8097 - 0.625e3 / 0.124416e6 * t748 * t2823 * t1583 * t8097 - 0.625e3 / 0.373248e6 * t2195 * t8118 * t1583 * t8097 - 0.625e3 / 0.4478976e7 * t5999 * t8136 * t1583 * t8097);
9011   t16533 = -0.24e2 * t7920 * t16429 * t178 + 0.36e2 * t2684 * t1570 * t1600 - 0.24e2 * t2684 * t5061 * t513 - 0.6e1 * t910 * t16439 * t178 + 0.24e2 * t910 * t1603 * t1600 - 0.8e1 * t910 * t500 * t5098 + 0.12e2 * t910 * t1569 * t1624 + t339 * (0.729e3 / 0.51200e5 * t668 * t1583 * t24 * t138 - 0.6561e4 / 0.2048000e7 * t2086 * sigma[2] * t5081 + 0.531441e6 / 0.655360000e9 * t5829 * t128 / t2717 * t138 + 0.6e1 * t16464 + 0.8e1 * t496 * t5095 + 0.2e1 * t159 * (0.125e3 / 0.5971968e7 * t16469 * t8007 - 0.125e3 / 0.8957952e7 * t16469 * t8011 + 0.25e2 / 0.17915904e8 * t8026 * t1583 * t8028)) * t178 - 0.4e1 * t339 * t5098 * t513 - 0.6e1 * t339 * t1600 * t1624 - 0.4e1 * t339 * t499 * t5130 - t166 * t16530 + 0.1174e1 * t16530;
9012   t16562 = 0.1e1 / t182 / t933;
9013   t16617 = -0.3e1 / 0.8e1 * t8 * t119 * t16533 * t192 - 0.12775753975349425781e2 * t408 * t5160 * t1030 * t191 * t100 * t184 - 0.93932789062500000000e2 * t1316 * t2623 * t1646 * t2617 * t191 - 0.25048743750000000000e2 * t4236 * t1637 + 0.37109250000000000000e1 * t14484 * t524 + 0.68137354535196937499e2 * t2838 * t1187 * t5178 - 0.11498178577814483203e3 * t2838 * t314 * t14546 * t410 * t191 + 0.12741934726080110950e3 * t1045 * t181 * t16562 * t183 * t1049 + 0.34660489666083872784e2 * t1045 * t181 / t2715 * t123 * t7654 - 0.13591397041152118347e3 * t1045 * t516 * t5160 * t183 * t1049 + 0.54503531578451885124e0 * t1045 * t2631 * t16562 * t183 * t191 + 0.67956985205760591732e2 * t1045 * t1627 * t1646 * t183 * t1049 + 0.12524371875000000000e3 * t1316 * t10005 * t5150 - 0.34882260210209206480e0 * t1045 * t10010 * t5162 - 0.17394960937500000000e1 * t408 * t412 * t5160 * t184 * t191 - 0.15655464843750000000e2 * t408 * t1032 * t5176 * t124 * t191 - 0.54794126953125000000e2 * t408 * t7773 * t4393 * t132 * t191 * t100 + 0.27831937500000000000e1 * t1307 * t5168 - 0.27831937500000000000e1 * t4236 * t1642 + 0.25048743750000000000e2 * t1307 * t5156;
9014   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9015     v4sigma4[14] = t10 * t16617;
9016 
9017   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9018     v4sigma3lapl[0] = 0.0e0;
9019 
9020   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9021     v4sigma3lapl[1] = 0.0e0;
9022 
9023   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9024     v4sigma3lapl[2] = 0.0e0;
9025 
9026   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9027     v4sigma3lapl[3] = 0.0e0;
9028 
9029   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9030     v4sigma3lapl[4] = 0.0e0;
9031 
9032   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9033     v4sigma3lapl[5] = 0.0e0;
9034 
9035   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9036     v4sigma3lapl[6] = 0.0e0;
9037 
9038   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9039     v4sigma3lapl[7] = 0.0e0;
9040 
9041   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9042     v4sigma3lapl[8] = 0.0e0;
9043 
9044   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9045     v4sigma3lapl[9] = 0.0e0;
9046 
9047   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9048     v4sigma3lapl[10] = 0.0e0;
9049 
9050   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9051     v4sigma3lapl[11] = 0.0e0;
9052 
9053   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9054     v4sigma3lapl[12] = 0.0e0;
9055 
9056   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9057     v4sigma3lapl[13] = 0.0e0;
9058 
9059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9060     v4sigma3lapl[14] = 0.0e0;
9061 
9062   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9063     v4sigma3lapl[15] = 0.0e0;
9064 
9065   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9066     v4sigma3lapl[16] = 0.0e0;
9067 
9068   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9069     v4sigma3lapl[17] = 0.0e0;
9070 
9071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9072     v4sigma3lapl[18] = 0.0e0;
9073 
9074   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9075     v4sigma3lapl[19] = 0.0e0;
9076 
9077   t16629 = 0.1e1 / t27 / t240;
9078   t16634 = t2182 * t16629;
9079   t16672 = my_piecewise3(t83, (0.625e3 / 0.23328e5 * params->c1 * t16629 * t236 * t5923 + 0.3125e4 / 0.209952e6 * t1120 * t16634 * t704) * t89 + 0.3e1 * t5243 * t455 * t89 + 0.3e1 * t1685 * t1528 * t89 + 0.3e1 * t1685 * t1530 * t89 + t548 * t4992 * t89 + 0.3e1 * t5248 * t456 + t548 * t4997 * t89, 0.625e3 / 0.23328e5 * t278 * t16634 * t5960 + 0.625e3 / 0.15552e5 * t748 * t2197 * t16629 * t5960 + 0.625e3 / 0.46656e5 * t2195 * t5981 * t16629 * t5960 + 0.625e3 / 0.559872e6 * t5999 * t6001 * t16629 * t5960);
9080   t16698 = t56 * t16629 * t236;
9081   t16723 = 0.36e2 * t3625 * t1347 * t446 * t1516 + 0.6e1 * t644 * t1677 * t1516 - 0.2e1 * t220 * t538 * t5008 + 0.1174e1 * t16672 + 0.6e1 * t220 * t1513 * t1669 * t94 - 0.6e1 * t220 * t5197 * t460 + 0.6e1 * t220 * t443 * t5217 * t94 - 0.6e1 * t220 * t5218 * t460 - 0.6e1 * t220 * t1670 * t1540 - 0.12e2 * t220 * t5201 * t460 - 0.6e1 * t220 * t1656 * t1540 + 0.2e1 * t220 * t75 * (-0.125e3 / 0.746496e6 * t16698 * t5869 + 0.125e3 / 0.1119744e7 * t16698 * t5873 - 0.25e2 / 0.2239488e7 * t5888 * t16629 * t5891) * t94 + 0.2e1 * t220 * t4973 * t537 * t94 + 0.36e2 * t12506 * t5183 + 0.36e2 * t3625 * t4452 * t1485 - 0.48e2 * t10252 * t1347 * t4939;
9082   t16768 = -0.4e1 * t1346 * t1347 * t4976 - 0.12e2 * t1346 * t14852 * t446 + 0.24e2 * t1346 * t14860 * t446 + 0.12e2 * t1346 * t14864 * t446 - 0.12e2 * t1346 * t4452 * t1516 + 0.12e2 * t1346 * t4479 * t1516 + 0.6e1 * t644 * t1485 * t1697 - 0.36e2 * t3625 * t4479 * t1485 - 0.3e1 * t220 * t1516 * t1697 - 0.6e1 * t2054 * t4939 * t554 - 0.3e1 * t220 * t446 * t5261 - t220 * t4976 * t554 - 0.12e2 * t14849 * t1653 - t82 * t16672 - 0.24e2 * t4438 * t5188 + 0.24e2 * t4438 * t5191 - 0.12e2 * t4438 * t5194;
9083   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9084     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t530 * t531 * (t16723 + t16768) * t111 + 0.27831937500000000000e1 * t14596 * t471 - 0.12524371875000000000e2 * t4540 * t1553 - 0.13915968750000000000e1 * t4540 * t1558 + 0.33978492602880295866e2 * t3747 * t1700 * t1562 * t102 * t788 + 0.31310929687500000000e2 * t4549 * t10393 * t5028 + 0.62621859375000000000e1 * t1407 * t5034 - 0.87205650525523016199e-1 * t3747 * t10398 * t5040 + 0.69579843750000000000e0 * t1407 * t5046 - 0.33978492602880295866e2 * t3747 * t557 * t5038 * t102 * t788 + 0.17034338633799234375e2 * t10316 * t10317 * t5056;
9085 
9086   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9087     v4sigma3tau[1] = 0.0e0;
9088 
9089   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9090     v4sigma3tau[2] = 0.0e0;
9091 
9092   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9093     v4sigma3tau[3] = 0.0e0;
9094 
9095   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9096     v4sigma3tau[4] = 0.0e0;
9097 
9098   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9099     v4sigma3tau[5] = 0.0e0;
9100 
9101   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9102     v4sigma3tau[6] = 0.0e0;
9103 
9104   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9105     v4sigma3tau[7] = 0.0e0;
9106 
9107   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9108     v4sigma3tau[8] = 0.0e0;
9109 
9110   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9111     v4sigma3tau[9] = 0.0e0;
9112 
9113   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9114     v4sigma3tau[10] = 0.0e0;
9115 
9116   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9117     v4sigma3tau[11] = 0.0e0;
9118 
9119   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9120     v4sigma3tau[12] = 0.0e0;
9121 
9122   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9123     v4sigma3tau[13] = 0.0e0;
9124 
9125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9126     v4sigma3tau[14] = 0.0e0;
9127 
9128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9129     v4sigma3tau[15] = 0.0e0;
9130 
9131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9132     v4sigma3tau[16] = 0.0e0;
9133 
9134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9135     v4sigma3tau[17] = 0.0e0;
9136 
9137   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9138     v4sigma3tau[18] = 0.0e0;
9139 
9140   t16804 = 0.1e1 / t122 / t355;
9141   t16809 = t2810 * t16804;
9142   t16847 = my_piecewise3(t167, (0.625e3 / 0.23328e5 * params->c1 * t16804 * t236 * t8060 + 0.3125e4 / 0.209952e6 * t1272 * t16809 * t704) * t173 + 0.3e1 * t5340 * t508 * t173 + 0.3e1 * t1739 * t1612 * t173 + 0.3e1 * t1739 * t1614 * t173 + t579 * t5114 * t173 + 0.3e1 * t5345 * t509 + t579 * t5119 * t173, 0.625e3 / 0.23328e5 * t278 * t16809 * t8097 + 0.625e3 / 0.15552e5 * t748 * t2823 * t16804 * t8097 + 0.625e3 / 0.46656e5 * t2195 * t8118 * t16804 * t8097 + 0.625e3 / 0.559872e6 * t5999 * t8136 * t16804 * t8097);
9143   t16869 = t56 * t16804 * t236;
9144   t16907 = 0.1174e1 * t16847 + 0.36e2 * t3831 * t1424 * t499 * t1600 - 0.2e1 * t339 * t569 * t5130 + 0.6e1 * t910 * t1731 * t1600 - 0.6e1 * t339 * t1724 * t1624 - 0.12e2 * t339 * t5298 * t513 - 0.6e1 * t339 * t1710 * t1624 + 0.2e1 * t339 * t159 * (-0.125e3 / 0.746496e6 * t16869 * t8007 + 0.125e3 / 0.1119744e7 * t16869 * t8011 - 0.25e2 / 0.2239488e7 * t8026 * t16804 * t8028) * t178 + 0.2e1 * t339 * t5095 * t568 * t178 + 0.6e1 * t339 * t1597 * t1723 * t178 - 0.6e1 * t339 * t5294 * t513 + 0.6e1 * t339 * t496 * t5314 * t178 - 0.6e1 * t339 * t5315 * t513 - 0.36e2 * t3831 * t4636 * t1569 - 0.12e2 * t15003 * t1707 + 0.36e2 * t12879 * t5280;
9145   t16953 = -0.48e2 * t10915 * t1424 * t5061 - 0.4e1 * t1423 * t1424 * t5098 + 0.24e2 * t1423 * t15006 * t499 + 0.12e2 * t1423 * t15014 * t499 - 0.12e2 * t1423 * t15020 * t499 - 0.12e2 * t1423 * t4609 * t1600 + 0.12e2 * t1423 * t4636 * t1600 + 0.6e1 * t910 * t1569 * t1751 + 0.36e2 * t3831 * t4609 * t1569 - 0.3e1 * t339 * t1600 * t1751 - 0.6e1 * t2684 * t5061 * t585 - 0.3e1 * t339 * t499 * t5358 - t339 * t5098 * t585 - t166 * t16847 - 0.24e2 * t4595 * t5285 + 0.24e2 * t4595 * t5288 - 0.12e2 * t4595 * t5291;
9146   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9147     v4sigma3tau[19] = -0.3e1 / 0.8e1 * t530 * t562 * (t16907 + t16953) * t192 + 0.27831937500000000000e1 * t15197 * t524 - 0.12524371875000000000e2 * t4697 * t1637 - 0.13915968750000000000e1 * t4697 * t1642 + 0.33978492602880295866e2 * t3953 * t1754 * t1646 * t183 * t1049 + 0.31310929687500000000e2 * t4704 * t10963 * t5150 + 0.62621859375000000000e1 * t1482 * t5156 - 0.87205650525523016199e-1 * t3953 * t10968 * t5162 + 0.69579843750000000000e0 * t1482 * t5168 - 0.33978492602880295866e2 * t3953 * t588 * t5160 * t183 * t1049 + 0.17034338633799234375e2 * t10316 * t10679 * t5178;
9148 
9149   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9150     v4sigma2lapl2[0] = 0.0e0;
9151 
9152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9153     v4sigma2lapl2[1] = 0.0e0;
9154 
9155   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9156     v4sigma2lapl2[2] = 0.0e0;
9157 
9158   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9159     v4sigma2lapl2[3] = 0.0e0;
9160 
9161   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9162     v4sigma2lapl2[4] = 0.0e0;
9163 
9164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9165     v4sigma2lapl2[5] = 0.0e0;
9166 
9167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9168     v4sigma2lapl2[6] = 0.0e0;
9169 
9170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9171     v4sigma2lapl2[7] = 0.0e0;
9172 
9173   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9174     v4sigma2lapl2[8] = 0.0e0;
9175 
9176   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9177     v4sigma2lapl2[9] = 0.0e0;
9178 
9179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9180     v4sigma2lapl2[10] = 0.0e0;
9181 
9182   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9183     v4sigma2lapl2[11] = 0.0e0;
9184 
9185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9186     v4sigma2lapl2[12] = 0.0e0;
9187 
9188   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9189     v4sigma2lapl2[13] = 0.0e0;
9190 
9191   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9192     v4sigma2lapl2[14] = 0.0e0;
9193 
9194   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9195     v4sigma2lapl2[15] = 0.0e0;
9196 
9197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9198     v4sigma2lapl2[16] = 0.0e0;
9199 
9200   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9201     v4sigma2lapl2[17] = 0.0e0;
9202 
9203   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9204     v4sigma2lapltau[0] = 0.0e0;
9205 
9206   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9207     v4sigma2lapltau[1] = 0.0e0;
9208 
9209   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9210     v4sigma2lapltau[2] = 0.0e0;
9211 
9212   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9213     v4sigma2lapltau[3] = 0.0e0;
9214 
9215   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9216     v4sigma2lapltau[4] = 0.0e0;
9217 
9218   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9219     v4sigma2lapltau[5] = 0.0e0;
9220 
9221   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9222     v4sigma2lapltau[6] = 0.0e0;
9223 
9224   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9225     v4sigma2lapltau[7] = 0.0e0;
9226 
9227   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9228     v4sigma2lapltau[8] = 0.0e0;
9229 
9230   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9231     v4sigma2lapltau[9] = 0.0e0;
9232 
9233   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9234     v4sigma2lapltau[10] = 0.0e0;
9235 
9236   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9237     v4sigma2lapltau[11] = 0.0e0;
9238 
9239   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9240     v4sigma2lapltau[12] = 0.0e0;
9241 
9242   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9243     v4sigma2lapltau[13] = 0.0e0;
9244 
9245   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9246     v4sigma2lapltau[14] = 0.0e0;
9247 
9248   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9249     v4sigma2lapltau[15] = 0.0e0;
9250 
9251   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9252     v4sigma2lapltau[16] = 0.0e0;
9253 
9254   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9255     v4sigma2lapltau[17] = 0.0e0;
9256 
9257   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9258     v4sigma2lapltau[18] = 0.0e0;
9259 
9260   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9261     v4sigma2lapltau[19] = 0.0e0;
9262 
9263   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9264     v4sigma2lapltau[20] = 0.0e0;
9265 
9266   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9267     v4sigma2lapltau[21] = 0.0e0;
9268 
9269   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9270     v4sigma2lapltau[22] = 0.0e0;
9271 
9272   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9273     v4sigma2lapltau[23] = 0.0e0;
9274 
9275   t16998 = 0.1e1 / t27 / t239;
9276   t17003 = t2182 * t16998;
9277   t17016 = t1685 * t1685;
9278   t17044 = my_piecewise3(t83, (-0.625e3 / 0.2916e4 * params->c1 * t16998 * t236 * t5923 - 0.3125e4 / 0.26244e5 * t1120 * t17003 * t704) * t89 + 0.2e1 * t5441 * t455 * t89 + t1790 * t1528 * t89 + t1790 * t1530 * t89 + 0.2e1 * t17016 * t89 + 0.4e1 * t1687 * t1686 + 0.2e1 * t549 * t5243 + t1792 * t1528 * t89 + t1792 * t1530 * t89, -0.625e3 / 0.2916e4 * t278 * t17003 * t5960 - 0.625e3 / 0.1944e4 * t748 * t2197 * t16998 * t5960 - 0.625e3 / 0.5832e4 * t2195 * t5981 * t16998 * t5960 - 0.625e3 / 0.69984e5 * t5999 * t6001 * t16998 * t5960);
9279   t17052 = t5393 * t446;
9280   t17061 = t1766 * t1516;
9281   t17066 = t1347 * t5217;
9282   t17069 = -0.16e2 * t1346 * t1766 * t1513 + 0.32e2 * t1346 * t5393 * t443 + 0.2e1 * t644 * t1485 * t1802 + 0.12e2 * t3625 * t4744 * t1485 - 0.24e2 * t3625 * t4770 * t1485 - 0.2e1 * t220 * t1761 * t1540 - 0.2e1 * t220 * t446 * t5458 - 0.16e2 * t13321 * t5188 - t82 * t17044 - 0.48e2 * t4723 * t17052 + 0.24e2 * t4723 * t17061 - 0.16e2 * t4730 * t17066;
9283   t17070 = t4479 * t1669;
9284   t17095 = t1766 * t1485;
9285   t17106 = 0.96e2 * t4723 * t1347 * t446 * t1669 + 0.96e2 * t3625 * t1766 * t446 * t443 - 0.4e1 * t1346 * t4744 * t1516 + 0.8e1 * t1346 * t4770 * t1516 - 0.8e1 * t1346 * t15298 * t446 + 0.8e1 * t1346 * t15489 * t446 + 0.16e2 * t1346 * t15498 * t446 + 0.16e2 * t1346 * t15502 * t446 - 0.96e2 * t13293 * t17095 + 0.32e2 * t4730 * t17070 - 0.8e1 * t4438 * t5396 + 0.16e2 * t4438 * t5420;
9286   t17112 = t56 * t16998 * t236;
9287   t17153 = -0.64e2 * t1346 * t1347 * t5201 + 0.2e1 * t220 * t75 * (0.125e3 / 0.93312e5 * t17112 * t5869 - 0.125e3 / 0.139968e6 * t17112 * t5873 + 0.25e2 / 0.279936e6 * t5888 * t16998 * t5891) * t94 + 0.8e1 * t644 * t17052 + 0.4e1 * t220 * t17066 - 0.8e1 * t220 * t17070 + 0.8e1 * t644 * t1762 * t1540 - 0.4e1 * t644 * t17061 + 0.2e1 * t220 * t1513 * t1776 * t94 + 0.4e1 * t220 * t443 * t5412 * t94 - 0.4e1 * t220 * t5399 * t460 - 0.8e1 * t220 * t1656 * t1697 - 0.4e1 * t220 * t5218 * t554;
9288   t17179 = t1669 * t1669;
9289   t17189 = -0.8e1 * t220 * t1670 * t1697 - 0.4e1 * t220 * t5197 * t554 - 0.8e1 * t220 * t5201 * t554 - 0.4e1 * t220 * t5413 * t460 - 0.2e1 * t220 * t1777 * t1540 + 0.1174e1 * t17044 - 0.16e2 * t644 * t1504 * t1761 * t94 - 0.4e1 * t220 * t538 * t5261 + 0.12e2 * t2054 * t17095 - 0.16e2 * t644 * t76 * t17179 * t94 - t220 * t1516 * t1802 + 0.4e1 * t220 * t17179 * t94;
9290   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9291     v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t530 * t531 * (t17069 + t17106 + t17153 + t17189) * t111 + 0.18554625000000000000e1 * t15520 * t471 - 0.41747906250000000000e1 * t4822 * t1553 - 0.46386562500000000000e0 * t4822 * t1558 + 0.11326164200960098622e2 * t3747 * t1805 * t1562 * t102 * t788;
9292 
9293   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9294     v4sigma2tau2[1] = 0.0e0;
9295 
9296   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9297     v4sigma2tau2[2] = 0.0e0;
9298 
9299   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9300     v4sigma2tau2[3] = 0.0e0;
9301 
9302   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9303     v4sigma2tau2[4] = 0.0e0;
9304 
9305   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9306     v4sigma2tau2[5] = 0.0e0;
9307 
9308   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9309     v4sigma2tau2[6] = 0.0e0;
9310 
9311   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9312     v4sigma2tau2[7] = 0.0e0;
9313 
9314   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9315     v4sigma2tau2[8] = 0.0e0;
9316 
9317   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9318     v4sigma2tau2[9] = 0.0e0;
9319 
9320   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9321     v4sigma2tau2[10] = 0.0e0;
9322 
9323   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9324     v4sigma2tau2[11] = 0.0e0;
9325 
9326   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9327     v4sigma2tau2[12] = 0.0e0;
9328 
9329   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9330     v4sigma2tau2[13] = 0.0e0;
9331 
9332   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9333     v4sigma2tau2[14] = 0.0e0;
9334 
9335   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9336     v4sigma2tau2[15] = 0.0e0;
9337 
9338   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9339     v4sigma2tau2[16] = 0.0e0;
9340 
9341   t17229 = t1723 * t1723;
9342   t17236 = t1815 * t1569;
9343   t17239 = t1815 * t1600;
9344   t17242 = 0.16e2 * t1423 * t15614 * t499 + 0.16e2 * t1423 * t15618 * t499 - 0.8e1 * t1423 * t15741 * t499 + 0.8e1 * t1423 * t15748 * t499 - 0.4e1 * t1423 * t4858 * t1600 + 0.8e1 * t1423 * t4884 * t1600 + 0.2e1 * t910 * t1569 * t1851 + 0.4e1 * t339 * t17229 * t178 - 0.96e2 * t13595 * t17236 + 0.24e2 * t4837 * t17239 - 0.8e1 * t4595 * t5487 + 0.16e2 * t4595 * t5511;
9345   t17252 = t5484 * t499;
9346   t17276 = 0.1e1 / t122 / t354;
9347   t17281 = t2810 * t17276;
9348   t17294 = t1739 * t1739;
9349   t17322 = my_piecewise3(t167, (-0.625e3 / 0.2916e4 * params->c1 * t17276 * t236 * t8060 - 0.3125e4 / 0.26244e5 * t1272 * t17281 * t704) * t173 + 0.2e1 * t5532 * t508 * t173 + t1839 * t1612 * t173 + t1839 * t1614 * t173 + 0.2e1 * t17294 * t173 + 0.4e1 * t1741 * t1740 + 0.2e1 * t580 * t5340 + t1841 * t1612 * t173 + t1841 * t1614 * t173, -0.625e3 / 0.2916e4 * t278 * t17281 * t8097 - 0.625e3 / 0.1944e4 * t748 * t2823 * t17276 * t8097 - 0.625e3 / 0.5832e4 * t2195 * t8118 * t17276 * t8097 - 0.625e3 / 0.69984e5 * t5999 * t8136 * t17276 * t8097);
9350   t17327 = -0.16e2 * t910 * t1588 * t1810 * t178 - 0.16e2 * t910 * t160 * t17229 * t178 - 0.16e2 * t1423 * t1815 * t1597 + 0.32e2 * t1423 * t5484 * t496 + 0.12e2 * t3831 * t4858 * t1569 - 0.24e2 * t3831 * t4884 * t1569 - 0.8e1 * t339 * t1710 * t1751 - 0.8e1 * t339 * t1724 * t1751 - 0.4e1 * t339 * t5315 * t585 - 0.4e1 * t339 * t569 * t5358 - t166 * t17322 - 0.48e2 * t4837 * t17252;
9351   t17333 = t1424 * t5314;
9352   t17336 = t4636 * t1723;
9353   t17358 = -t339 * t1600 * t1851 - 0.2e1 * t339 * t1810 * t1624 + 0.8e1 * t910 * t1811 * t1624 - 0.2e1 * t339 * t499 * t5549 - 0.16e2 * t13690 * t5285 + 0.12e2 * t2684 * t17236 - 0.4e1 * t910 * t17239 + 0.8e1 * t910 * t17252 + 0.4e1 * t339 * t17333 - 0.16e2 * t4844 * t17333 - 0.8e1 * t339 * t17336 + 0.32e2 * t4844 * t17336;
9354   t17395 = t56 * t17276 * t236;
9355   t17408 = 0.1174e1 * t17322 - 0.64e2 * t1423 * t1424 * t5298 + 0.96e2 * t3831 * t1815 * t499 * t496 + 0.96e2 * t4837 * t1424 * t499 * t1723 - 0.4e1 * t339 * t5294 * t585 - 0.8e1 * t339 * t5298 * t585 - 0.4e1 * t339 * t5504 * t513 - 0.2e1 * t339 * t1826 * t1624 + 0.2e1 * t339 * t1597 * t1825 * t178 + 0.4e1 * t339 * t496 * t5503 * t178 - 0.4e1 * t339 * t5490 * t513 + 0.2e1 * t339 * t159 * (0.125e3 / 0.93312e5 * t17395 * t8007 - 0.125e3 / 0.139968e6 * t17395 * t8011 + 0.25e2 / 0.279936e6 * t8026 * t17276 * t8028) * t178;
9356   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9357     v4sigma2tau2[17] = -0.3e1 / 0.8e1 * t530 * t562 * (t17242 + t17327 + t17358 + t17408) * t192 + 0.18554625000000000000e1 * t15836 * t524 - 0.41747906250000000000e1 * t4936 * t1637 - 0.46386562500000000000e0 * t4936 * t1642 + 0.11326164200960098622e2 * t3953 * t1854 * t1646 * t183 * t1049;
9358 
9359   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9360     v4sigmalapl3[0] = 0.0e0;
9361 
9362   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9363     v4sigmalapl3[1] = 0.0e0;
9364 
9365   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9366     v4sigmalapl3[2] = 0.0e0;
9367 
9368   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9369     v4sigmalapl3[3] = 0.0e0;
9370 
9371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9372     v4sigmalapl3[4] = 0.0e0;
9373 
9374   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9375     v4sigmalapl3[5] = 0.0e0;
9376 
9377   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9378     v4sigmalapl3[6] = 0.0e0;
9379 
9380   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9381     v4sigmalapl3[7] = 0.0e0;
9382 
9383   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9384     v4sigmalapl3[8] = 0.0e0;
9385 
9386   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9387     v4sigmalapl3[9] = 0.0e0;
9388 
9389   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9390     v4sigmalapl3[10] = 0.0e0;
9391 
9392   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9393     v4sigmalapl3[11] = 0.0e0;
9394 
9395   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9396     v4sigmalapl2tau[0] = 0.0e0;
9397 
9398   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9399     v4sigmalapl2tau[1] = 0.0e0;
9400 
9401   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9402     v4sigmalapl2tau[2] = 0.0e0;
9403 
9404   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9405     v4sigmalapl2tau[3] = 0.0e0;
9406 
9407   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9408     v4sigmalapl2tau[4] = 0.0e0;
9409 
9410   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9411     v4sigmalapl2tau[5] = 0.0e0;
9412 
9413   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9414     v4sigmalapl2tau[6] = 0.0e0;
9415 
9416   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9417     v4sigmalapl2tau[7] = 0.0e0;
9418 
9419   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9420     v4sigmalapl2tau[8] = 0.0e0;
9421 
9422   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9423     v4sigmalapl2tau[9] = 0.0e0;
9424 
9425   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9426     v4sigmalapl2tau[10] = 0.0e0;
9427 
9428   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9429     v4sigmalapl2tau[11] = 0.0e0;
9430 
9431   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9432     v4sigmalapl2tau[12] = 0.0e0;
9433 
9434   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9435     v4sigmalapl2tau[13] = 0.0e0;
9436 
9437   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9438     v4sigmalapl2tau[14] = 0.0e0;
9439 
9440   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9441     v4sigmalapl2tau[15] = 0.0e0;
9442 
9443   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9444     v4sigmalapl2tau[16] = 0.0e0;
9445 
9446   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9447     v4sigmalapl2tau[17] = 0.0e0;
9448 
9449   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9450     v4sigmalapltau2[0] = 0.0e0;
9451 
9452   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9453     v4sigmalapltau2[1] = 0.0e0;
9454 
9455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9456     v4sigmalapltau2[2] = 0.0e0;
9457 
9458   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9459     v4sigmalapltau2[3] = 0.0e0;
9460 
9461   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9462     v4sigmalapltau2[4] = 0.0e0;
9463 
9464   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9465     v4sigmalapltau2[5] = 0.0e0;
9466 
9467   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9468     v4sigmalapltau2[6] = 0.0e0;
9469 
9470   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9471     v4sigmalapltau2[7] = 0.0e0;
9472 
9473   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9474     v4sigmalapltau2[8] = 0.0e0;
9475 
9476   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9477     v4sigmalapltau2[9] = 0.0e0;
9478 
9479   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9480     v4sigmalapltau2[10] = 0.0e0;
9481 
9482   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9483     v4sigmalapltau2[11] = 0.0e0;
9484 
9485   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9486     v4sigmalapltau2[12] = 0.0e0;
9487 
9488   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9489     v4sigmalapltau2[13] = 0.0e0;
9490 
9491   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9492     v4sigmalapltau2[14] = 0.0e0;
9493 
9494   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9495     v4sigmalapltau2[15] = 0.0e0;
9496 
9497   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9498     v4sigmalapltau2[16] = 0.0e0;
9499 
9500   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9501     v4sigmalapltau2[17] = 0.0e0;
9502 
9503   t17426 = t1766 * t1669;
9504   t17429 = t4479 * t1776;
9505   t17432 = t5577 * t446;
9506   t17437 = t15971 * t446;
9507   t17442 = t4452 * t1776;
9508   t17445 = t1347 * t5412;
9509   t17457 = t4770 * t1669;
9510   t17462 = t15971 * t443;
9511   t17480 = 0.72e2 * t4723 * t1347 * t1776 * t446 - 0.48e2 * t1346 * t1347 * t5399 + 0.12e2 * t1346 * t15861 * t446 + 0.12e2 * t1346 * t15865 * t446 - 0.4e1 * t1346 * t15869 * t446 + 0.48e2 * t1346 * t5577 * t443 - 0.6e1 * t220 * t1761 * t1697 - t220 * t446 * t5623 - 0.12e2 * t13321 * t5396 - 0.72e2 * t1346 * t17426 - 0.192e3 * t15978 * t17437 + 0.144e3 * t15987 * t17426 + 0.24e2 * t4730 * t17429 - 0.72e2 * t4723 * t17432 + 0.72e2 * t3625 * t17437 - 0.24e2 * t4730 * t17442 - 0.24e2 * t4730 * t17445 + 0.48e2 * t4730 * t17457 + 0.144e3 * t4723 * t17462;
9512   t17516 = 0.1e1 / t27 / t654;
9513   t17518 = t56 * t17516 * t236;
9514   t17547 = t2182 * t17516;
9515   t17584 = my_piecewise3(t83, (0.1250e4 / 0.729e3 * params->c1 * t17516 * t236 * t5923 + 0.6250e4 / 0.6561e4 * t1120 * t17547 * t704) * t89 + t5607 * t455 * t89 + 0.3e1 * t5441 * t548 * t89 + 0.3e1 * t1790 * t1685 * t89 + 0.3e1 * t5609 * t456 + 0.3e1 * t1793 * t1685 + t5612 * t455 * t89, 0.1250e4 / 0.729e3 * t278 * t17547 * t5960 + 0.625e3 / 0.243e3 * t748 * t2197 * t17516 * t5960 + 0.625e3 / 0.729e3 * t2195 * t5981 * t17516 * t5960 + 0.625e3 / 0.8748e4 * t5999 * t6001 * t17516 * t5960);
9516   t17587 = -0.6e1 * t220 * t5399 * t554 - 0.6e1 * t220 * t5413 * t554 - 0.6e1 * t220 * t1777 * t1697 - 0.6e1 * t220 * t1656 * t1802 - 0.6e1 * t220 * t1670 * t1802 + 0.12e2 * t644 * t17432 - 0.12e2 * t220 * t17457 + 0.24e2 * t644 * t5565 * t460 - 0.48e2 * t2054 * t5561 * t460 - 0.24e2 * t644 * t17462 - 0.6e1 * t220 * t538 * t5458 + 0.2e1 * t220 * t443 * t5589 * t94 + 0.2e1 * t220 * t75 * (-0.125e3 / 0.11664e5 * t17518 * t5869 + 0.125e3 / 0.17496e5 * t17518 * t5873 - 0.25e2 / 0.34992e5 * t5888 * t17516 * t5891) * t94 - 0.2e1 * t220 * t5590 * t460 + 0.24e2 * t644 * t1762 * t1697 + 0.6e1 * t220 * t17442 + 0.6e1 * t220 * t17445 - 0.6e1 * t220 * t17429 - t82 * t17584 + 0.1174e1 * t17584;
9517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9518     v4sigmatau3[0] = -0.3e1 / 0.8e1 * t530 * t531 * (t17480 + t17587) * t111 + 0.92773125000000000000e0 * t16041 * t471;
9519 
9520   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9521     v4sigmatau3[1] = 0.0e0;
9522 
9523   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9524     v4sigmatau3[2] = 0.0e0;
9525 
9526   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9527     v4sigmatau3[3] = 0.0e0;
9528 
9529   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9530     v4sigmatau3[4] = 0.0e0;
9531 
9532   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9533     v4sigmatau3[5] = 0.0e0;
9534 
9535   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9536     v4sigmatau3[6] = 0.0e0;
9537 
9538   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9539     v4sigmatau3[7] = 0.0e0;
9540 
9541   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9542     v4sigmatau3[8] = 0.0e0;
9543 
9544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9545     v4sigmatau3[9] = 0.0e0;
9546 
9547   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9548     v4sigmatau3[10] = 0.0e0;
9549 
9550   t17595 = t4636 * t1825;
9551   t17598 = t5649 * t499;
9552   t17601 = t4884 * t1723;
9553   t17609 = 0.1e1 / t122 / t920;
9554   t17611 = t56 * t17609 * t236;
9555   t17627 = t4609 * t1825;
9556   t17651 = t16192 * t496;
9557   t17654 = t1815 * t1723;
9558   t17657 = t16192 * t499;
9559   t17664 = -0.6e1 * t339 * t17595 + 0.12e2 * t910 * t17598 - 0.12e2 * t339 * t17601 + 0.2e1 * t339 * t496 * t5661 * t178 + 0.2e1 * t339 * t159 * (-0.125e3 / 0.11664e5 * t17611 * t8007 + 0.125e3 / 0.17496e5 * t17611 * t8011 - 0.25e2 / 0.34992e5 * t8026 * t17609 * t8028) * t178 + 0.24e2 * t910 * t1811 * t1751 + 0.6e1 * t339 * t17627 - 0.6e1 * t339 * t1724 * t1851 - 0.6e1 * t339 * t569 * t5549 - 0.2e1 * t339 * t5662 * t513 - 0.6e1 * t339 * t5490 * t585 - 0.6e1 * t339 * t5504 * t585 - 0.6e1 * t339 * t1826 * t1751 - 0.6e1 * t339 * t1710 * t1851 + 0.144e3 * t4837 * t17651 + 0.144e3 * t16198 * t17654 + 0.72e2 * t3831 * t17657 - 0.72e2 * t1423 * t17654 - 0.192e3 * t16191 * t17657;
9560   t17665 = t1424 * t5503;
9561   t17706 = t2810 * t17609;
9562   t17743 = my_piecewise3(t167, (0.1250e4 / 0.729e3 * params->c1 * t17609 * t236 * t8060 + 0.6250e4 / 0.6561e4 * t1272 * t17706 * t704) * t173 + t5679 * t508 * t173 + 0.3e1 * t5532 * t579 * t173 + 0.3e1 * t1839 * t1739 * t173 + 0.3e1 * t5681 * t509 + 0.3e1 * t1842 * t1739 + t5684 * t508 * t173, 0.1250e4 / 0.729e3 * t278 * t17706 * t8097 + 0.625e3 / 0.243e3 * t748 * t2823 * t17609 * t8097 + 0.625e3 / 0.729e3 * t2195 * t8118 * t17609 * t8097 + 0.625e3 / 0.8748e4 * t5999 * t8136 * t17609 * t8097);
9563   t17756 = -0.24e2 * t4844 * t17665 + 0.24e2 * t4844 * t17595 + 0.48e2 * t1423 * t5649 * t496 + 0.48e2 * t4844 * t17601 - 0.12e2 * t13690 * t5487 - 0.24e2 * t4844 * t17627 + 0.12e2 * t1423 * t16220 * t499 - 0.4e1 * t1423 * t16216 * t499 - 0.72e2 * t4837 * t17598 + 0.12e2 * t1423 * t16226 * t499 - t339 * t499 * t5695 - 0.6e1 * t339 * t1810 * t1751 - 0.48e2 * t1423 * t1424 * t5490 + 0.72e2 * t4837 * t1424 * t1825 * t499 + 0.1174e1 * t17743 - t166 * t17743 + 0.6e1 * t339 * t17665 - 0.48e2 * t2684 * t5633 * t513 - 0.24e2 * t910 * t17651 + 0.24e2 * t910 * t5637 * t513;
9564   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9565     v4sigmatau3[11] = -0.3e1 / 0.8e1 * t530 * t562 * (t17664 + t17756) * t192 + 0.92773125000000000000e0 * t16237 * t524;
9566 
9567   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9568     v4lapl4[0] = 0.0e0;
9569 
9570   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9571     v4lapl4[1] = 0.0e0;
9572 
9573   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9574     v4lapl4[2] = 0.0e0;
9575 
9576   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9577     v4lapl4[3] = 0.0e0;
9578 
9579   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9580     v4lapl4[4] = 0.0e0;
9581 
9582   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9583     v4lapl3tau[0] = 0.0e0;
9584 
9585   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9586     v4lapl3tau[1] = 0.0e0;
9587 
9588   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9589     v4lapl3tau[2] = 0.0e0;
9590 
9591   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9592     v4lapl3tau[3] = 0.0e0;
9593 
9594   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9595     v4lapl3tau[4] = 0.0e0;
9596 
9597   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9598     v4lapl3tau[5] = 0.0e0;
9599 
9600   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9601     v4lapl3tau[6] = 0.0e0;
9602 
9603   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9604     v4lapl3tau[7] = 0.0e0;
9605 
9606   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9607     v4lapl2tau2[0] = 0.0e0;
9608 
9609   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9610     v4lapl2tau2[1] = 0.0e0;
9611 
9612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9613     v4lapl2tau2[2] = 0.0e0;
9614 
9615   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9616     v4lapl2tau2[3] = 0.0e0;
9617 
9618   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9619     v4lapl2tau2[4] = 0.0e0;
9620 
9621   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9622     v4lapl2tau2[5] = 0.0e0;
9623 
9624   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9625     v4lapl2tau2[6] = 0.0e0;
9626 
9627   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9628     v4lapl2tau2[7] = 0.0e0;
9629 
9630   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9631     v4lapl2tau2[8] = 0.0e0;
9632 
9633   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9634     v4lapltau3[0] = 0.0e0;
9635 
9636   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9637     v4lapltau3[1] = 0.0e0;
9638 
9639   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9640     v4lapltau3[2] = 0.0e0;
9641 
9642   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9643     v4lapltau3[3] = 0.0e0;
9644 
9645   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9646     v4lapltau3[4] = 0.0e0;
9647 
9648   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9649     v4lapltau3[5] = 0.0e0;
9650 
9651   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9652     v4lapltau3[6] = 0.0e0;
9653 
9654   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9655     v4lapltau3[7] = 0.0e0;
9656 
9657   t17768 = t2182 * t5798;
9658   t17777 = t1790 * t1790;
9659   t17783 = t1792 * t1792;
9660   t17802 = my_piecewise3(t83, (-0.10000e5 / 0.729e3 * params->c1 * t5798 * t236 * t5923 - 0.50000e5 / 0.6561e4 * t1120 * t17768 * t704) * t89 + 0.4e1 * t5607 * t548 * t89 + 0.3e1 * t17777 * t89 + 0.6e1 * t1790 * t1792 * t89 + t17783 * t89, -0.10000e5 / 0.729e3 * t278 * t17768 * t5960 - 0.5000e4 / 0.243e3 * t748 * t2197 * t5798 * t5960 - 0.5000e4 / 0.729e3 * t2195 * t5981 * t5798 * t5960 - 0.1250e4 / 0.2187e4 * t5999 * t6001 * t5798 * t5960);
9661   t17813 = t1776 * t1776;
9662   t17817 = t1347 * t5589;
9663   t17820 = t4770 * t1776;
9664   t17824 = t56 * t5798 * t236;
9665   t17848 = t76 * t76;
9666   t17849 = t1761 * t1761;
9667   t17872 = t1766 * t1776;
9668   t17877 = -0.24e2 * t644 * t76 * t17813 * t94 - 0.384e3 * t5773 * t17848 * t17849 * t94 + 0.288e3 * t2054 * t76 * t17849 * t94 - 0.12e2 * t220 * t1761 * t1802 - 0.24e2 * t644 * t17849 * t94 - 0.192e3 * t2054 * t5561 * t554 - 0.144e3 * t1346 * t17872 + 0.288e3 * t15987 * t17872 - t82 * t17802 - 0.32e2 * t4730 * t17817 + 0.96e2 * t4730 * t17820;
9669   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9670     v4tau4[0] = -0.3e1 / 0.8e1 * t530 * t531 * (0.1174e1 * t17802 - 0.8e1 * t220 * t538 * t5623 - 0.8e1 * t220 * t5590 * t554 - 0.12e2 * t220 * t1777 * t1802 + 0.6e1 * t220 * t17813 * t94 + 0.8e1 * t220 * t17817 - 0.24e2 * t220 * t17820 + 0.2e1 * t220 * t75 * (0.125e3 / 0.1458e4 * t17824 * t5869 - 0.125e3 / 0.2187e4 * t17824 * t5873 + 0.25e2 / 0.4374e4 * t5888 * t5798 * t5891) * t94 + 0.96e2 * t644 * t5565 * t554 + 0.48e2 * t644 * t1762 * t1802 + t17877) * t111;
9671 
9672   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9673     v4tau4[1] = 0.0e0;
9674 
9675   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9676     v4tau4[2] = 0.0e0;
9677 
9678   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9679     v4tau4[3] = 0.0e0;
9680 
9681   t17883 = t1424 * t5661;
9682   t17886 = t4884 * t1825;
9683   t17889 = t1815 * t1825;
9684   t17892 = t1825 * t1825;
9685   t17897 = t1810 * t1810;
9686   t17908 = t56 * t7721 * t236;
9687   t17944 = t160 * t160;
9688   t17956 = t2810 * t7721;
9689   t17965 = t1839 * t1839;
9690   t17971 = t1841 * t1841;
9691   t17990 = my_piecewise3(t167, (-0.10000e5 / 0.729e3 * params->c1 * t7721 * t236 * t8060 - 0.50000e5 / 0.6561e4 * t1272 * t17956 * t704) * t173 + 0.4e1 * t5679 * t579 * t173 + 0.3e1 * t17965 * t173 + 0.6e1 * t1839 * t1841 * t173 + t17971 * t173, -0.10000e5 / 0.729e3 * t278 * t17956 * t8097 - 0.5000e4 / 0.243e3 * t748 * t2823 * t7721 * t8097 - 0.5000e4 / 0.729e3 * t2195 * t8118 * t7721 * t8097 - 0.1250e4 / 0.2187e4 * t5999 * t8136 * t7721 * t8097);
9692   t17996 = 0.48e2 * t910 * t1811 * t1851 + 0.6e1 * t339 * t17892 * t178 + 0.8e1 * t339 * t17883 - 0.24e2 * t339 * t17886 - 0.24e2 * t910 * t17897 * t178 + 0.96e2 * t910 * t5637 * t585 - 0.384e3 * t7920 * t17944 * t17897 * t178 - 0.192e3 * t2684 * t5633 * t585 + 0.1174e1 * t17990 - t166 * t17990 - 0.12e2 * t339 * t1810 * t1851;
9693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9694     v4tau4[4] = -0.3e1 / 0.8e1 * t530 * t562 * (-0.32e2 * t4844 * t17883 + 0.96e2 * t4844 * t17886 - 0.144e3 * t1423 * t17889 - 0.24e2 * t910 * t160 * t17892 * t178 + 0.288e3 * t2684 * t160 * t17897 * t178 + 0.288e3 * t16198 * t17889 - 0.8e1 * t339 * t569 * t5695 + 0.2e1 * t339 * t159 * (0.125e3 / 0.1458e4 * t17908 * t8007 - 0.125e3 / 0.2187e4 * t17908 * t8011 + 0.25e2 / 0.4374e4 * t8026 * t7721 * t8028) * t178 - 0.8e1 * t339 * t5662 * t585 - 0.12e2 * t339 * t1826 * t1851 + t17996) * t192;
9695 
9696 #ifndef XC_DONT_COMPILE_MXC
9697 
9698   if(order < 5) return;
9699 
9700 
9701 #endif
9702 
9703 #endif
9704 
9705 #endif
9706 
9707 #endif
9708 
9709 #endif
9710 
9711 
9712 }
9713 
9714