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_tpss.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, t13, t15, t17, t18, t22, t23, t24;
25   double t25, t26, t27, t28, t29, t30, t31, t33;
26   double t34, t35, t38, t39, t40, t41, t42, t43;
27   double t44, t45, t46, t48, t49, t52, t54, t57;
28   double t61, t62, t63, t64, t67, t68, t69, t74;
29   double t75, t78, t80, t81, t82, t83, t84, t86;
30   double t87, t90, t91, t95, t96, t99, t100, t101;
31   double t104, t105, t106, t107, t108, t109, t110, t114;
32   double t115, t116, t119, t120, t121, t123, t128, t130;
33 
34 #ifndef XC_DONT_COMPILE_VXC
35   double t133, t134, t135, t136, t137, t138, t139, t140;
36   double t141, t142, t147, t148, t151, t152, t153, t154;
37   double t155, t156, t160, t161, t165, t166, t172, t173;
38   double t174, t178, t179, t183, t186, t191, t196, t197;
39   double t199, t201, t202, t205, t210, t213, t214, t218;
40   double t220, t221, t222, t223, t224, t225, t226, t229;
41   double t230, t234, t235, t238, t240, t241, t242, t243;
42   double t244, t248, t249, t252, t253, t256, t257, t258;
43   double t260, t261, t262, t264, t265, t267, t269, t272;
44   double t274, t280, t281, t284, t289, t292, t296, t298;
45   double t301, t303, t306, t311, t312, t313, t314, t315;
46   double t316, t320, t321, t324, t327, t333, t336, t343;
47   double t346, t347, t349;
48 
49 #ifndef XC_DONT_COMPILE_FXC
50   double t352, t358, t359, t364, t365, t366, t370, t371;
51   double t373, t380, t383, t384, t385, t388, t389, t390;
52   double t391, t392, t393, t394, t395, t399, t400, t401;
53   double t405, t406, t412, t413, t416, t421, t422, t425;
54   double t426, t429, t431, t432, t433, t436, t439, t443;
55   double t446, t451, t456, t460, t461, t462, t466, t468;
56   double t469, t472, t477, t480, t481, t485, t487, t488;
57   double t491, t492, t493, t494, t495, t496, t497, t498;
58   double t501, t502, t505, t506, t510, t511, t514, t516;
59   double t519, t522, t527, t528, t530, t533, t534, t537;
60   double t538, t542, t543, t547, t548, t555, t560, t562;
61   double t563, t565, t568, t571, t572, t574, t577, t579;
62   double t582, t584, t589, t594, t598, t601, t611, t613;
63   double t614, t617, t620, t622, t627, t629, t634, t635;
64   double t636, t637, t639, t642, t650, t651, t653, t656;
65   double t659, t661, t665, t669, t670, t678, t681, t684;
66   double t691, t694, t699, t704, t705, t710, t713, t714;
67   double t716, t722, t723, t724, t725, t726, t727, t728;
68   double t731, t733, t736, t737, t742, t744, t749, t752;
69   double t753, t757, t758, t763, t765, t767, t770, t771;
70   double t772, t773, t775, t782, t787, t793, t796, t800;
71   double t802, t805, t808, t810, t814, t817, t818, t820;
72   double t825, t826, t832, t836, t840, t841, t850, t852;
73   double t856, t857, t858, t859, t861, t870, t877, t878;
74   double t880, t885, t886, t887, t890, t891, t893, t896;
75   double t897, t899, t906, t911, t913, t914, t917, t921;
76   double t922, t925, t929, t933, t934, t935, t938, t949;
77   double t952, t953, t955;
78 
79 #ifndef XC_DONT_COMPILE_KXC
80   double t961, t971, t972, t973, t974, t978, t979, t983;
81   double t989, t992, t1000, t1003, t1006, t1007, t1008, t1011;
82   double t1015, t1016, t1017, t1018, t1022, t1023, t1027, t1028;
83   double t1032, t1033, t1041, t1042, t1050, t1051, t1056, t1057;
84   double t1060, t1065, t1066, t1067, t1070, t1073, t1078, t1081;
85   double t1086, t1091, t1094, t1099, t1101, t1102, t1103, t1106;
86   double t1111, t1112, t1115, t1120, t1123, t1124, t1125, t1128;
87   double t1130, t1131, t1134, t1135, t1141, t1142, t1143, t1144;
88   double t1148, t1151, t1152, t1155, t1156, t1160, t1161, t1169;
89   double t1172, t1174, t1178, t1183, t1188, t1191, t1194, t1199;
90   double t1202, t1205, t1206, t1208, t1212, t1215, t1220, t1223;
91   double t1234, t1235, t1236, t1239, t1242, t1243, t1247, t1251;
92   double t1252, t1255, t1256, t1257, t1264, t1265, t1267, t1268;
93   double t1270, t1272, t1276, t1277, t1278, t1281, t1284, t1287;
94   double t1290, t1293, t1294, t1296, t1298, t1301, t1303, t1306;
95   double t1308, t1315, t1318, t1321, t1333, t1340, t1341, t1343;
96   double t1344, t1347, t1348, t1353, t1363, t1368, t1370, t1375;
97   double t1380, t1381, t1384, t1386, t1389, t1391, t1394, t1395;
98   double t1396, t1398, t1402, t1405, t1408, t1409, t1411, t1415;
99   double t1423, t1426, t1437, t1438, t1441, t1444, t1446, t1453;
100   double t1456, t1457, t1458, t1477, t1478, t1481, t1484, t1487;
101   double t1490, t1498, t1501, t1506, t1509, t1516, t1521, t1522;
102   double t1525, t1528, t1533, t1536, t1537, t1539, t1542, t1543;
103   double t1547, t1548, t1549, t1550, t1551, t1552, t1553, t1554;
104   double t1559, t1561, t1565, t1570, t1572, t1575, t1578, t1581;
105   double t1584, t1587, t1589, t1590, t1593, t1604, t1605, t1606;
106   double t1617, t1618, t1621, t1622, t1623, t1636, t1638, t1639;
107   double t1641, t1643, t1646, t1649, t1652, t1653, t1654, t1655;
108   double t1656, t1658, t1659, t1660, t1662, t1665, t1666, t1668;
109   double t1673, t1685, t1688, t1693, t1698, t1704, t1707, t1710;
110   double t1711, t1713, t1714, t1717, t1724, t1731, t1733, t1738;
111   double t1739, t1740, t1741, t1745, t1748, t1749, t1753, t1758;
112   double t1760, t1764, t1765, t1767, t1768, t1770, t1773, t1780;
113   double t1783, t1802, t1803, t1806, t1813, t1816, t1819, t1820;
114   double t1821, t1841, t1843, t1844, t1846, t1848, t1854, t1857;
115   double t1860, t1861, t1863, t1865, t1868, t1873, t1880, t1885;
116   double t1892, t1895, t1898, t1903, t1910, t1911, t1912, t1914;
117   double t1917, t1918, t1923, t1924, t1926, t1927, t1930, t1933;
118   double t1934, t1935, t1936, t1937, t1942, t1944, t1948, t1951;
119   double t1952, t1957, t1959, t1962, t1965, t1968, t1971, t1979;
120   double t1982, t1993, t1994, t1997, t1998, t1999, t2003, t2006;
121   double t2009, t2012, t2013, t2014, t2028, t2031, t2034, t2037;
122   double t2040, t2045, t2050, t2055, t2062, t2063, t2070, t2075;
123   double t2078, t2079, t2081, t2084, t2085, t2088, t2090, t2094;
124   double t2097, t2100, t2108, t2111, t2127, t2128, t2135, t2137;
125   double t2138, t2139, t2141, t2144, t2145, t2146, t2148, t2159;
126   double t2162, t2167, t2169, t2172, t2175, t2176, t2179, t2181;
127   double t2185, t2189, t2193, t2194, t2198, t2201, t2202, t2204;
128   double t2205, t2207, t2208, t2213, t2214, t2237, t2240, t2241;
129   double t2242, t2253, t2254, t2256, t2257, t2259, t2262, t2264;
130   double t2266, t2267, t2268, t2270, t2287, t2292, t2299, t2300;
131   double t2302, t2305, t2308, t2309, t2310, t2312, t2313, t2317;
132   double t2321, t2324, t2328, t2331, t2332, t2334, t2339, t2340;
133   double t2342, t2347, t2362, t2366, t2371, t2374, t2375, t2376;
134   double t2387, t2388, t2390, t2392, t2395, t2400, t2415, t2422;
135   double t2429, t2430, t2432, t2435, t2438, t2439, t2441, t2443;
136   double t2447, t2450, t2453, t2458, t2466, t2475, t2477, t2478;
137   double t2481, t2484, t2488, t2489, t2496, t2499, t2504, t2521;
138   double t2524, t2525, t2527;
139 
140 #ifndef XC_DONT_COMPILE_LXC
141   double t2551, t2552, t2562, t2571, t2578, t2579, t2581, t2591;
142   double t2592, t2599, t2602, t2605, t2606, t2612, t2623, t2635;
143   double t2649, t2650, t2655, t2657, t2660, t2664, t2668, t2669;
144   double t2672, t2677, t2682, t2683, t2684, t2685, t2693, t2696;
145   double t2703, t2715, t2725, t2728, t2731, t2736, t2739, t2750;
146   double t2753, t2756, t2764, t2765, t2771, t2780, t2783, t2787;
147   double t2788, t2793, t2794, t2802, t2804, t2809, t2819, t2823;
148   double t2834, t2837, t2841, t2842, t2857, t2865, t2872, t2879;
149   double t2899, t2921, t2922, t2939, t2940, t2942, t2970, t2980;
150   double t2986, t2989, t3000, t3003, t3006, t3013, t3019, t3025;
151   double t3038, t3040, t3043, t3044, t3049, t3064, t3067, t3093;
152   double t3107, t3115, t3123, t3124, t3148, t3160, t3184, t3193;
153   double t3194, t3199, t3207, t3211, t3215, t3216, t3226, t3227;
154   double t3235, t3248, t3251, t3256, t3263, t3264, t3266, t3270;
155   double t3290, t3295, t3305, t3314, t3342, t3345, t3348, t3358;
156   double t3368, t3371, t3393, t3396, t3403, t3409, t3425, t3430;
157   double t3446, t3470, t3479, t3504, t3505, t3516, t3523, t3532;
158   double t3552, t3580, t3606, t3611, t3618, t3624, t3635, t3637;
159   double t3667, t3705, t3708, t3709, t3715, t3718, t3725, t3739;
160   double t3740, t3757, t3762, t3765, t3768, t3778, t3790, t3796;
161   double t3799, t3803, t3806, t3807, t3815, t3816, t3841, t3860;
162   double t3863, t3867, t3868, t3902, t3907, t3933, t3941, t3942;
163   double t3967, t3976, t3979, t3985, t3991, t3996, t4005, t4032;
164   double t4077, t4082, t4085, t4088, t4091, t4119, t4120, t4142;
165   double t4165, t4172, t4197, t4202, t4207, t4223, t4228, t4231;
166   double t4240, t4252, t4267, t4272, t4277, t4280, t4310, t4317;
167   double t4334, t4341, t4344, t4359, t4370, t4373, t4383, t4385;
168   double t4404, t4418, t4419, t4422, t4435, t4462, t4469, t4484;
169   double t4485, t4488, t4504, t4521, t4522, t4527, t4539, t4542;
170   double t4546, t4557, t4564, t4590, t4593, t4598, t4611, t4617;
171   double t4622, t4629, t4648, t4651, t4668, t4675, t4676, t4680;
172   double t4681, t4689, t4706, t4711, t4720, t4783, t4786, t4795;
173   double t4798, t4804, t4807, t4820, t4821, t4830, t4839, t4860;
174   double t4884, t4891, t4900, t4914, t4918, t4927, t4943, t4946;
175   double t4976, t5004, t5010, t5041, t5046, t5075, t5088, t5091;
176   double t5111, t5116, t5123, t5127, t5132, t5133, t5154, t5159;
177   double t5184, t5199, t5212, t5219, t5227, t5232, t5235, t5248;
178   double t5266, t5295, t5322, t5330, t5337, t5351, t5362, t5379;
179   double t5410, t5451, t5453, t5480, t5493, t5504, t5509, t5512;
180   double t5534, t5540, t5562, t5565, t5566, t5571, t5608, t5619;
181   double t5622, t5635, t5655, t5663, t5665, t5690, t5708, t5711;
182   double t5747, t5748, t5753, t5770, t5778, t5784, t5789, t5794;
183   double t5803, t5816, t5819, t5830, t5853, t5864, t5867, t5870;
184   double t5877, t5900, t5909, t5914, t5915, t5918, t5919, t5922;
185   double t5925, t5944, t5952, t5978, t5982, t5985, t5988, t6015;
186   double t6033, t6040, t6043, t6046, t6053, t6057, t6066, t6116;
187   double t6119, t6126, t6133, t6139, t6142, t6149, t6150, t6152;
188   double t6156, t6160, t6175, t6181, t6184, t6235, t6238, t6244;
189   double t6248, t6257, t6276, t6319, t6356, t6384, t6438, t6490;
190   double t6506, t6509, t6520, t6531, t6541, t6567, t6597, t6644;
191   double t6672, t6734, t6737, t6740, t6768, t6805, t6836, t6874;
192   double t6887, t6897, t6899, t6909, t6928, t6934, t6943, t6946;
193   double t6952, t6955, t6978, t7002, t7007, t7015, t7023, t7028;
194 #endif
195 
196 #endif
197 
198 #endif
199 
200 #endif
201 
202 #endif
203 
204 
205   mgga_x_tpss_params *params;
206 
207   assert(p->params != NULL);
208   params = (mgga_x_tpss_params * ) (p->params);
209 
210   t2 = M_CBRT3;
211   t4 = POW_1_3(0.1e1 / M_PI);
212   t5 = t2 * t4;
213   t6 = M_CBRT4;
214   t7 = t6 * t6;
215   t8 = t5 * t7;
216   t9 = M_CBRT2;
217   t10 = t9 * t9;
218   t11 = POW_1_3(rho[0]);
219   t13 = 0.1e1 / rho[0];
220   t15 = 0.1e1 / tau[0];
221   t17 = sigma[0] * t13 * t15 / 0.8e1;
222   t18 = params->BLOC_b * sigma[0];
223   t22 = params->BLOC_a + t18 * t13 * t15 / 0.8e1;
224   t23 = pow(t17, t22);
225   t24 = params->c * t23;
226   t25 = sigma[0] * sigma[0];
227   t26 = rho[0] * rho[0];
228   t27 = 0.1e1 / t26;
229   t28 = t25 * t27;
230   t29 = tau[0] * tau[0];
231   t30 = 0.1e1 / t29;
232   t31 = t28 * t30;
233   t33 = 0.1e1 + t31 / 0.64e2;
234   t34 = t33 * t33;
235   t35 = 0.1e1 / t34;
236   t38 = M_CBRT6;
237   t39 = (0.10e2 / 0.81e2 + t24 * t35) * t38;
238   t40 = M_PI * M_PI;
239   t41 = POW_1_3(t40);
240   t42 = t41 * t41;
241   t43 = 0.1e1 / t42;
242   t44 = t39 * t43;
243   t45 = sigma[0] * t10;
244   t46 = t11 * t11;
245   t48 = 0.1e1 / t46 / t26;
246   t49 = t45 * t48;
247   t52 = tau[0] * t10;
248   t54 = 0.1e1 / t46 / rho[0];
249   t57 = t52 * t54 - t49 / 0.8e1;
250   t61 = 0.5e1 / 0.9e1 * t57 * t38 * t43 - 0.1e1;
251   t62 = params->b * t57;
252   t63 = t38 * t43;
253   t64 = t63 * t61;
254   t67 = 0.5e1 * t62 * t64 + 0.9e1;
255   t68 = sqrt(t67);
256   t69 = 0.1e1 / t68;
257   t74 = 0.27e2 / 0.20e2 * t61 * t69 + t63 * t49 / 0.36e2;
258   t75 = t74 * t74;
259   t78 = t38 * t38;
260   t80 = 0.1e1 / t41 / t40;
261   t81 = t78 * t80;
262   t82 = t25 * t9;
263   t83 = t26 * t26;
264   t84 = t83 * rho[0];
265   t86 = 0.1e1 / t11 / t84;
266   t87 = t82 * t86;
267   t90 = 0.100e3 * t81 * t87 + 0.162e3 * t31;
268   t91 = sqrt(t90);
269   t95 = 0.1e1 / params->kappa * t78;
270   t96 = t95 * t80;
271   t99 = sqrt(params->e);
272   t100 = t99 * t25;
273   t101 = t27 * t30;
274   t104 = params->e * params->mu;
275   t105 = t40 * t40;
276   t106 = 0.1e1 / t105;
277   t107 = t25 * sigma[0];
278   t108 = t106 * t107;
279   t109 = t83 * t83;
280   t110 = 0.1e1 / t109;
281   t114 = t44 * t49 / 0.24e2 + 0.146e3 / 0.2025e4 * t75 - 0.73e2 / 0.97200e5 * t74 * t91 + 0.25e2 / 0.472392e6 * t96 * t87 + t100 * t101 / 0.720e3 + t104 * t108 * t110 / 0.576e3;
282   t115 = t99 * t38;
283   t116 = t115 * t43;
284   t119 = 0.1e1 + t116 * t49 / 0.24e2;
285   t120 = t119 * t119;
286   t121 = 0.1e1 / t120;
287   t123 = t114 * t121 + params->kappa;
288   t128 = 0.1e1 + params->kappa * (0.1e1 - params->kappa / t123);
289   t130 = t8 * t10 * t11 * t128;
290   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
291     zk[0] = -0.3e1 / 0.16e2 * t130;
292 
293 #ifndef XC_DONT_COMPILE_VXC
294 
295   if(order < 1) return;
296 
297 
298   t133 = t11 * rho[0];
299   t134 = t133 * t2;
300   t135 = t4 * t7;
301   t136 = t134 * t135;
302   t137 = params->kappa * params->kappa;
303   t138 = t10 * t137;
304   t139 = t123 * t123;
305   t140 = 0.1e1 / t139;
306   t141 = t27 * t15;
307   t142 = log(t17);
308   t147 = -t18 * t141 * t142 / 0.8e1 - t22 * t13;
309   t148 = t147 * t35;
310   t151 = 0.1e1 / t34 / t33;
311   t152 = t24 * t151;
312   t153 = t26 * rho[0];
313   t154 = 0.1e1 / t153;
314   t155 = t25 * t154;
315   t156 = t155 * t30;
316   t160 = (t24 * t148 + t152 * t156 / 0.16e2) * t38;
317   t161 = t160 * t43;
318   t165 = 0.1e1 / t46 / t153;
319   t166 = t45 * t165;
320   t172 = -0.5e1 / 0.3e1 * t52 * t48 + t166 / 0.3e1;
321   t173 = t172 * t38;
322   t174 = t43 * t69;
323   t178 = 0.1e1 / t68 / t67;
324   t179 = t61 * t178;
325   t183 = t81 * t172;
326   t186 = 0.5e1 * params->b * t172 * t64 + 0.25e2 / 0.9e1 * t62 * t183;
327   t191 = 0.3e1 / 0.4e1 * t173 * t174 - 0.27e2 / 0.40e2 * t179 * t186 - 0.2e1 / 0.27e2 * t63 * t166;
328   t196 = 0.1e1 / t91;
329   t197 = t74 * t196;
330   t199 = t83 * t26;
331   t201 = 0.1e1 / t11 / t199;
332   t202 = t82 * t201;
333   t205 = -0.324e3 * t156 - 0.1600e4 / 0.3e1 * t81 * t202;
334   t210 = t154 * t30;
335   t213 = t109 * rho[0];
336   t214 = 0.1e1 / t213;
337   t218 = t161 * t49 / 0.24e2 - t44 * t166 / 0.9e1 + 0.292e3 / 0.2025e4 * t74 * t191 - 0.73e2 / 0.97200e5 * t191 * t91 - 0.73e2 / 0.194400e6 * t197 * t205 - 0.50e2 / 0.177147e6 * t96 * t202 - t100 * t210 / 0.360e3 - t104 * t108 * t214 / 0.72e2;
338   t220 = t120 * t119;
339   t221 = 0.1e1 / t220;
340   t222 = t114 * t221;
341   t223 = t222 * t115;
342   t224 = t43 * sigma[0];
343   t225 = t10 * t165;
344   t226 = t224 * t225;
345   t229 = t218 * t121 + 0.2e1 / 0.9e1 * t223 * t226;
346   t230 = t140 * t229;
347   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
348     vrho[0] = -t130 / 0.4e1 - 0.3e1 / 0.16e2 * t136 * t138 * t230;
349 
350   t234 = params->BLOC_b * t13;
351   t235 = t15 * t142;
352   t238 = 0.1e1 / sigma[0];
353   t240 = t234 * t235 / 0.8e1 + t22 * t238;
354   t241 = t240 * t35;
355   t242 = t24 * t241;
356   t243 = sigma[0] * t27;
357   t244 = t243 * t30;
358   t248 = (t242 - t152 * t244 / 0.16e2) * t38;
359   t249 = t248 * t43;
360   t252 = t43 * t10;
361   t253 = t252 * t48;
362   t256 = t10 * t48;
363   t257 = t63 * t69;
364   t258 = t256 * t257;
365   t260 = params->b * t10;
366   t261 = t260 * t48;
367   t262 = t261 * t64;
368   t264 = t62 * t78;
369   t265 = t80 * t10;
370   t267 = t264 * t265 * t48;
371   t269 = -0.5e1 / 0.8e1 * t262 - 0.25e2 / 0.72e2 * t267;
372   t272 = t256 * t63;
373   t274 = -0.3e1 / 0.32e2 * t258 - 0.27e2 / 0.40e2 * t179 * t269 + t272 / 0.36e2;
374   t280 = sigma[0] * t9;
375   t281 = t280 * t86;
376   t284 = 0.200e3 * t81 * t281 + 0.324e3 * t244;
377   t289 = t99 * sigma[0];
378   t292 = t106 * t25;
379   t296 = t249 * t49 / 0.24e2 + t39 * t253 / 0.24e2 + 0.292e3 / 0.2025e4 * t74 * t274 - 0.73e2 / 0.97200e5 * t274 * t91 - 0.73e2 / 0.194400e6 * t197 * t284 + 0.25e2 / 0.236196e6 * t96 * t281 + t289 * t101 / 0.360e3 + t104 * t292 * t110 / 0.192e3;
380   t298 = t222 * t99;
381   t301 = t296 * t121 - t298 * t272 / 0.12e2;
382   t303 = t138 * t140 * t301;
383   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
384     vsigma[0] = -0.3e1 / 0.16e2 * t136 * t303;
385 
386   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
387     vlapl[0] = 0.0e0;
388 
389   t306 = t13 * t30;
390   t311 = -t18 * t306 * t142 / 0.8e1 - t22 * t15;
391   t312 = t311 * t35;
392   t313 = t24 * t312;
393   t314 = t29 * tau[0];
394   t315 = 0.1e1 / t314;
395   t316 = t28 * t315;
396   t320 = (t313 + t152 * t316 / 0.16e2) * t38;
397   t321 = t320 * t43;
398   t324 = t10 * t54;
399   t327 = t260 * t54;
400   t333 = 0.5e1 * t327 * t64 + 0.25e2 / 0.9e1 * t264 * t265 * t54;
401   t336 = 0.3e1 / 0.4e1 * t324 * t257 - 0.27e2 / 0.40e2 * t179 * t333;
402   t343 = t27 * t315;
403   t346 = t321 * t49 / 0.24e2 + 0.292e3 / 0.2025e4 * t74 * t336 - 0.73e2 / 0.97200e5 * t336 * t91 + 0.73e2 / 0.600e3 * t197 * t316 - t100 * t343 / 0.360e3;
404   t347 = t140 * t346;
405   t349 = t138 * t347 * t121;
406   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
407     vtau[0] = -0.3e1 / 0.16e2 * t136 * t349;
408 
409 #ifndef XC_DONT_COMPILE_FXC
410 
411   if(order < 2) return;
412 
413 
414   t352 = 0.1e1 / t46;
415   t358 = t5 * t7 * t10;
416   t359 = t11 * t137;
417   t364 = 0.1e1 / t139 / t123;
418   t365 = t229 * t229;
419   t366 = t364 * t365;
420   t370 = t147 * t147;
421   t371 = t370 * t35;
422   t373 = t154 * t15;
423   t380 = t18 * t373 * t142 / 0.4e1 + t18 * t373 / 0.4e1 + t22 * t27;
424   t383 = t24 * t147;
425   t384 = t151 * t25;
426   t385 = t384 * t210;
427   t388 = t34 * t34;
428   t389 = 0.1e1 / t388;
429   t390 = t24 * t389;
430   t391 = t25 * t25;
431   t392 = 0.1e1 / t199;
432   t393 = t391 * t392;
433   t394 = t29 * t29;
434   t395 = 0.1e1 / t394;
435   t399 = 0.1e1 / t83;
436   t400 = t25 * t399;
437   t401 = t400 * t30;
438   t405 = (t24 * t371 + t24 * t380 * t35 + t383 * t385 / 0.8e1 + 0.3e1 / 0.512e3 * t390 * t393 * t395 - 0.3e1 / 0.16e2 * t152 * t401) * t38;
439   t406 = t405 * t43;
440   t412 = 0.1e1 / t46 / t83;
441   t413 = t45 * t412;
442   t416 = t191 * t191;
443   t421 = 0.40e2 / 0.9e1 * t52 * t165 - 0.11e2 / 0.9e1 * t413;
444   t422 = t421 * t38;
445   t425 = t43 * t178;
446   t426 = t425 * t186;
447   t429 = t67 * t67;
448   t431 = 0.1e1 / t68 / t429;
449   t432 = t61 * t431;
450   t433 = t186 * t186;
451   t436 = params->b * t421;
452   t439 = t172 * t172;
453   t443 = t81 * t421;
454   t446 = 0.5e1 * t436 * t64 + 0.50e2 / 0.9e1 * params->b * t439 * t81 + 0.25e2 / 0.9e1 * t62 * t443;
455   t451 = 0.3e1 / 0.4e1 * t422 * t174 - 0.3e1 / 0.4e1 * t173 * t426 + 0.81e2 / 0.80e2 * t432 * t433 - 0.27e2 / 0.40e2 * t179 * t446 + 0.22e2 / 0.81e2 * t63 * t413;
456   t456 = t191 * t196;
457   t460 = 0.1e1 / t91 / t90;
458   t461 = t74 * t460;
459   t462 = t205 * t205;
460   t466 = t83 * t153;
461   t468 = 0.1e1 / t11 / t466;
462   t469 = t82 * t468;
463   t472 = 0.972e3 * t401 + 0.30400e5 / 0.9e1 * t81 * t469;
464   t477 = t399 * t30;
465   t480 = t109 * t26;
466   t481 = 0.1e1 / t480;
467   t485 = t406 * t49 / 0.24e2 - 0.2e1 / 0.9e1 * t161 * t166 + 0.11e2 / 0.27e2 * t44 * t413 + 0.292e3 / 0.2025e4 * t416 + 0.292e3 / 0.2025e4 * t74 * t451 - 0.73e2 / 0.97200e5 * t451 * t91 - 0.73e2 / 0.97200e5 * t456 * t205 + 0.73e2 / 0.388800e6 * t461 * t462 - 0.73e2 / 0.194400e6 * t197 * t472 + 0.950e3 / 0.531441e6 * t96 * t469 + t100 * t477 / 0.120e3 + t104 * t108 * t481 / 0.8e1;
468   t487 = t218 * t221;
469   t488 = t487 * t115;
470   t491 = t120 * t120;
471   t492 = 0.1e1 / t491;
472   t493 = t114 * t492;
473   t494 = params->e * t78;
474   t495 = t493 * t494;
475   t496 = t80 * t25;
476   t497 = t9 * t468;
477   t498 = t496 * t497;
478   t501 = t10 * t412;
479   t502 = t224 * t501;
480   t505 = t485 * t121 + 0.4e1 / 0.9e1 * t488 * t226 + 0.4e1 / 0.27e2 * t495 * t498 - 0.22e2 / 0.27e2 * t223 * t502;
481   t506 = t140 * t505;
482   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
483     v2rho2[0] = -t8 * t10 * t352 * t128 / 0.12e2 - t358 * t359 * t230 / 0.2e1 + 0.3e1 / 0.8e1 * t136 * t138 * t366 - 0.3e1 / 0.16e2 * t136 * t138 * t506;
484 
485   t510 = t11 * t2;
486   t511 = t510 * t135;
487   t514 = t364 * t301;
488   t516 = t138 * t514 * t229;
489   t519 = t147 * t240;
490   t522 = params->BLOC_b * t27;
491   t527 = -t522 * t235 / 0.8e1 - t522 * t15 / 0.4e1;
492   t528 = t527 * t35;
493   t530 = t24 * t240;
494   t533 = t151 * sigma[0];
495   t534 = t533 * t101;
496   t537 = 0.1e1 / t84;
497   t538 = t107 * t537;
498   t542 = sigma[0] * t154;
499   t543 = t542 * t30;
500   t547 = (t24 * t519 * t35 + t24 * t528 + t530 * t385 / 0.16e2 - t383 * t534 / 0.16e2 - 0.3e1 / 0.512e3 * t390 * t538 * t395 + t152 * t543 / 0.8e1) * t38;
501   t548 = t547 * t43;
502   t555 = t252 * t165;
503   t560 = t225 * t257;
504   t562 = t256 * t38;
505   t563 = t562 * t426;
506   t565 = t425 * t269;
507   t568 = t269 * t186;
508   t571 = t260 * t165;
509   t572 = t571 * t64;
510   t574 = t261 * t183;
511   t577 = t264 * t265 * t165;
512   t579 = 0.5e1 / 0.3e1 * t572 - 0.25e2 / 0.36e2 * t574 + 0.25e2 / 0.27e2 * t577;
513   t582 = t225 * t63;
514   t584 = t560 / 0.4e1 + 0.3e1 / 0.64e2 * t563 - 0.3e1 / 0.8e1 * t173 * t565 + 0.81e2 / 0.80e2 * t432 * t568 - 0.27e2 / 0.40e2 * t179 * t579 - 0.2e1 / 0.27e2 * t582;
515   t589 = t274 * t196;
516   t594 = t284 * t205;
517   t598 = t280 * t201;
518   t601 = -0.648e3 * t543 - 0.3200e4 / 0.3e1 * t81 * t598;
519   t611 = t548 * t49 / 0.24e2 - t249 * t166 / 0.9e1 + t160 * t253 / 0.24e2 - t39 * t555 / 0.9e1 + 0.292e3 / 0.2025e4 * t191 * t274 + 0.292e3 / 0.2025e4 * t74 * t584 - 0.73e2 / 0.97200e5 * t584 * t91 - 0.73e2 / 0.194400e6 * t589 * t205 - 0.73e2 / 0.194400e6 * t456 * t284 + 0.73e2 / 0.388800e6 * t461 * t594 - 0.73e2 / 0.194400e6 * t197 * t601 - 0.100e3 / 0.177147e6 * t96 * t598 - t289 * t210 / 0.180e3 - t104 * t292 * t214 / 0.24e2;
520   t613 = t296 * t221;
521   t614 = t613 * t115;
522   t617 = t487 * t99;
523   t620 = t80 * t9;
524   t622 = t620 * t201 * sigma[0];
525   t627 = t611 * t121 + 0.2e1 / 0.9e1 * t614 * t226 - t617 * t272 / 0.12e2 - t495 * t622 / 0.18e2 + 0.2e1 / 0.9e1 * t298 * t582;
526   t629 = t138 * t140 * t627;
527   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
528     v2rhosigma[0] = -t511 * t303 / 0.4e1 + 0.3e1 / 0.8e1 * t136 * t516 - 0.3e1 / 0.16e2 * t136 * t629;
529 
530   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
531     v2rholapl[0] = 0.0e0;
532 
533   t634 = t135 * t10;
534   t635 = t134 * t634;
535   t636 = t137 * t364;
536   t637 = t346 * t121;
537   t639 = t636 * t637 * t229;
538   t642 = t147 * t311;
539   t650 = t18 * t101 * t142 / 0.8e1 + t18 * t101 / 0.4e1;
540   t651 = t650 * t35;
541   t653 = t24 * t311;
542   t656 = t384 * t343;
543   t659 = t391 * t537;
544   t661 = 0.1e1 / t394 / tau[0];
545   t665 = t155 * t315;
546   t669 = (t24 * t642 * t35 + t24 * t651 + t653 * t385 / 0.16e2 + t383 * t656 / 0.16e2 + 0.3e1 / 0.512e3 * t390 * t659 * t661 - t152 * t665 / 0.8e1) * t38;
547   t670 = t669 * t43;
548   t678 = t324 * t38;
549   t681 = t425 * t333;
550   t684 = t333 * t186;
551   t691 = -0.25e2 / 0.3e1 * t262 + 0.50e2 / 0.9e1 * t327 * t183 - 0.125e3 / 0.27e2 * t267;
552   t694 = -0.5e1 / 0.4e1 * t258 - 0.3e1 / 0.8e1 * t678 * t426 - 0.3e1 / 0.8e1 * t173 * t681 + 0.81e2 / 0.80e2 * t432 * t684 - 0.27e2 / 0.40e2 * t179 * t691;
553   t699 = t336 * t196;
554   t704 = t461 * t25;
555   t705 = t343 * t205;
556   t710 = t154 * t315;
557   t713 = t670 * t49 / 0.24e2 - t321 * t166 / 0.9e1 + 0.292e3 / 0.2025e4 * t191 * t336 + 0.292e3 / 0.2025e4 * t74 * t694 - 0.73e2 / 0.97200e5 * t694 * t91 - 0.73e2 / 0.194400e6 * t699 * t205 + 0.73e2 / 0.600e3 * t456 * t316 - 0.73e2 / 0.1200e4 * t704 * t705 - 0.73e2 / 0.300e3 * t197 * t665 + t100 * t710 / 0.180e3;
558   t714 = t140 * t713;
559   t716 = t138 * t714 * t121;
560   t722 = 0.1e1 / t11 / t26 * t2 * t4;
561   t723 = t7 * t9;
562   t724 = t723 * t137;
563   t725 = t722 * t724;
564   t726 = t347 * t221;
565   t727 = t115 * t224;
566   t728 = t726 * t727;
567   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
568     v2rhotau[0] = -t511 * t349 / 0.4e1 + 0.3e1 / 0.8e1 * t635 * t639 - 0.3e1 / 0.16e2 * t136 * t716 - t725 * t728 / 0.12e2;
569 
570   t731 = t301 * t301;
571   t733 = t138 * t364 * t731;
572   t736 = t240 * t240;
573   t737 = t736 * t35;
574   t742 = 0.1e1 / t25;
575   t744 = t234 * t15 * t238 / 0.4e1 - t22 * t742;
576   t749 = t400 * t395;
577   t752 = t151 * t27;
578   t753 = t752 * t30;
579   t757 = (t24 * t737 + t24 * t744 * t35 - t530 * t534 / 0.8e1 + 0.3e1 / 0.512e3 * t390 * t749 - t24 * t753 / 0.16e2) * t38;
580   t758 = t757 * t43;
581   t763 = t274 * t274;
582   t765 = t562 * t565;
583   t767 = t269 * t269;
584   t770 = t179 * params->b;
585   t771 = t9 * t86;
586   t772 = t81 * t771;
587   t773 = t770 * t772;
588   t775 = 0.3e1 / 0.32e2 * t765 + 0.81e2 / 0.80e2 * t432 * t767 - 0.15e2 / 0.128e3 * t773;
589   t782 = t284 * t284;
590   t787 = 0.324e3 * t101 + 0.200e3 * t772;
591   t793 = t99 * t27;
592   t796 = t106 * sigma[0];
593   t800 = t758 * t49 / 0.24e2 + t248 * t253 / 0.12e2 + 0.292e3 / 0.2025e4 * t763 + 0.292e3 / 0.2025e4 * t74 * t775 - 0.73e2 / 0.97200e5 * t775 * t91 - 0.73e2 / 0.97200e5 * t589 * t284 + 0.73e2 / 0.388800e6 * t461 * t782 - 0.73e2 / 0.194400e6 * t197 * t787 + 0.25e2 / 0.236196e6 * t95 * t620 * t86 + t793 * t30 / 0.360e3 + t104 * t796 * t110 / 0.96e2;
594   t802 = t613 * t99;
595   t805 = t493 * params->e;
596   t808 = t800 * t121 - t802 * t272 / 0.6e1 + t805 * t772 / 0.48e2;
597   t810 = t138 * t140 * t808;
598   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
599     v2sigma2[0] = 0.3e1 / 0.8e1 * t136 * t733 - 0.3e1 / 0.16e2 * t136 * t810;
600 
601   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
602     v2sigmalapl[0] = 0.0e0;
603 
604   t814 = t636 * t637 * t301;
605   t817 = t240 * t311;
606   t818 = t817 * t35;
607   t820 = t30 * t142;
608   t825 = -t234 * t820 / 0.8e1 - t234 * t30 / 0.4e1;
609   t826 = t825 * t35;
610   t832 = t107 * t399;
611   t836 = t243 * t315;
612   t840 = (t24 * t818 + t24 * t826 - t653 * t534 / 0.16e2 + t530 * t656 / 0.16e2 - 0.3e1 / 0.512e3 * t390 * t832 * t661 + t152 * t836 / 0.8e1) * t38;
613   t841 = t840 * t43;
614   t850 = t562 * t681;
615   t852 = t333 * t269;
616   t856 = 0.1e1 / t11 / t83;
617   t857 = t9 * t856;
618   t858 = t857 * t81;
619   t859 = t770 * t858;
620   t861 = -0.3e1 / 0.8e1 * t678 * t565 + 0.3e1 / 0.64e2 * t850 + 0.81e2 / 0.80e2 * t432 * t852 + 0.15e2 / 0.16e2 * t859;
621   t870 = t343 * t284;
622   t877 = t841 * t49 / 0.24e2 + t320 * t253 / 0.24e2 + 0.292e3 / 0.2025e4 * t274 * t336 + 0.292e3 / 0.2025e4 * t74 * t861 - 0.73e2 / 0.97200e5 * t861 * t91 - 0.73e2 / 0.194400e6 * t699 * t284 + 0.73e2 / 0.600e3 * t589 * t316 - 0.73e2 / 0.1200e4 * t704 * t870 + 0.73e2 / 0.300e3 * t197 * t836 - t289 * t343 / 0.180e3;
623   t878 = t140 * t877;
624   t880 = t138 * t878 * t121;
625   t885 = 0.1e1 / t133 * t2 * t4;
626   t886 = t885 * t724;
627   t887 = t726 * t116;
628   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
629     v2sigmatau[0] = 0.3e1 / 0.8e1 * t635 * t814 - 0.3e1 / 0.16e2 * t136 * t880 + t886 * t887 / 0.32e2;
630 
631   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
632     v2lapl2[0] = 0.0e0;
633 
634   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
635     v2lapltau[0] = 0.0e0;
636 
637   t890 = t346 * t346;
638   t891 = t364 * t890;
639   t893 = t138 * t891 * t492;
640   t896 = t311 * t311;
641   t897 = t896 * t35;
642   t899 = t13 * t315;
643   t906 = t18 * t899 * t142 / 0.4e1 + t18 * t899 / 0.4e1 + t22 * t30;
644   t911 = t391 * t399;
645   t913 = 0.1e1 / t394 / t29;
646   t914 = t911 * t913;
647   t917 = t28 * t395;
648   t921 = (t24 * t897 + t24 * t906 * t35 + t653 * t656 / 0.8e1 + 0.3e1 / 0.512e3 * t390 * t914 - 0.3e1 / 0.16e2 * t152 * t917) * t38;
649   t922 = t921 * t43;
650   t925 = t336 * t336;
651   t929 = t333 * t333;
652   t933 = 0.1e1 / t11 / t153;
653   t934 = t9 * t933;
654   t935 = t934 * t81;
655   t938 = -0.3e1 / 0.4e1 * t678 * t681 + 0.81e2 / 0.80e2 * t432 * t929 - 0.15e2 / 0.2e1 * t770 * t935;
656   t949 = t27 * t395;
657   t952 = t922 * t49 / 0.24e2 + 0.292e3 / 0.2025e4 * t925 + 0.292e3 / 0.2025e4 * t74 * t938 - 0.73e2 / 0.97200e5 * t938 * t91 + 0.73e2 / 0.300e3 * t699 * t316 + 0.1971e4 / 0.100e3 * t461 * t914 - 0.73e2 / 0.200e3 * t197 * t917 + t100 * t949 / 0.120e3;
658   t953 = t140 * t952;
659   t955 = t138 * t953 * t121;
660   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
661     v2tau2[0] = 0.3e1 / 0.8e1 * t136 * t893 - 0.3e1 / 0.16e2 * t136 * t955;
662 
663 #ifndef XC_DONT_COMPILE_KXC
664 
665   if(order < 3) return;
666 
667 
668   t961 = t352 * t137;
669   t971 = t139 * t139;
670   t972 = 0.1e1 / t971;
671   t973 = t365 * t229;
672   t974 = t972 * t973;
673   t978 = t364 * t229;
674   t979 = t978 * t505;
675   t983 = t370 * t147;
676   t989 = t24 * t370;
677   t992 = t399 * t15;
678   t1000 = -0.3e1 / 0.4e1 * t18 * t992 * t142 - 0.9e1 / 0.8e1 * t18 * t992 - 0.2e1 * t22 * t154;
679   t1003 = t24 * t380;
680   t1006 = t389 * t391;
681   t1007 = t392 * t395;
682   t1008 = t1006 * t1007;
683   t1011 = t384 * t477;
684   t1015 = 0.1e1 / t388 / t33;
685   t1016 = t24 * t1015;
686   t1017 = t391 * t25;
687   t1018 = t1017 * t214;
688   t1022 = 0.1e1 / t466;
689   t1023 = t391 * t1022;
690   t1027 = t25 * t537;
691   t1028 = t1027 * t30;
692   t1032 = (t24 * t983 * t35 + 0.3e1 * t24 * t148 * t380 + 0.3e1 / 0.16e2 * t989 * t385 + t24 * t1000 * t35 + 0.3e1 / 0.16e2 * t1003 * t385 + 0.9e1 / 0.512e3 * t383 * t1008 - 0.9e1 / 0.16e2 * t383 * t1011 + 0.3e1 / 0.4096e4 * t1016 * t1018 * t913 - 0.27e2 / 0.512e3 * t390 * t1023 * t395 + 0.3e1 / 0.4e1 * t152 * t1028) * t38;
693   t1033 = t1032 * t43;
694   t1041 = 0.1e1 / t46 / t84;
695   t1042 = t45 * t1041;
696   t1050 = -0.440e3 / 0.27e2 * t52 * t412 + 0.154e3 / 0.27e2 * t1042;
697   t1051 = t1050 * t38;
698   t1056 = t43 * t431;
699   t1057 = t1056 * t433;
700   t1060 = t425 * t446;
701   t1065 = 0.1e1 / t68 / t429 / t67;
702   t1066 = t61 * t1065;
703   t1067 = t433 * t186;
704   t1070 = t186 * t446;
705   t1073 = params->b * t1050;
706   t1078 = t81 * t1050;
707   t1081 = 0.5e1 * t1073 * t64 + 0.50e2 / 0.3e1 * t436 * t183 + 0.25e2 / 0.9e1 * t62 * t1078;
708   t1086 = 0.3e1 / 0.4e1 * t1051 * t174 - 0.9e1 / 0.8e1 * t422 * t426 + 0.27e2 / 0.16e2 * t173 * t1057 - 0.9e1 / 0.8e1 * t173 * t1060 - 0.81e2 / 0.32e2 * t1066 * t1067 + 0.243e3 / 0.80e2 * t432 * t1070 - 0.27e2 / 0.40e2 * t179 * t1081 - 0.308e3 / 0.243e3 * t63 * t1042;
709   t1091 = t451 * t196;
710   t1094 = t191 * t460;
711   t1099 = t90 * t90;
712   t1101 = 0.1e1 / t91 / t1099;
713   t1102 = t74 * t1101;
714   t1103 = t462 * t205;
715   t1106 = t205 * t472;
716   t1111 = 0.1e1 / t11 / t109;
717   t1112 = t82 * t1111;
718   t1115 = -0.3888e4 * t1028 - 0.668800e6 / 0.27e2 * t81 * t1112;
719   t1120 = t537 * t30;
720   t1123 = t109 * t153;
721   t1124 = 0.1e1 / t1123;
722   t1125 = t108 * t1124;
723   t1128 = t1033 * t49 / 0.24e2 - t406 * t166 / 0.3e1 + 0.11e2 / 0.9e1 * t161 * t413 - 0.154e3 / 0.81e2 * t44 * t1042 + 0.292e3 / 0.675e3 * t191 * t451 + 0.292e3 / 0.2025e4 * t74 * t1086 - 0.73e2 / 0.97200e5 * t1086 * t91 - 0.73e2 / 0.64800e5 * t1091 * t205 + 0.73e2 / 0.129600e6 * t1094 * t462 - 0.73e2 / 0.64800e5 * t456 * t472 - 0.73e2 / 0.259200e6 * t1102 * t1103 + 0.73e2 / 0.129600e6 * t461 * t1106 - 0.73e2 / 0.194400e6 * t197 * t1115 - 0.20900e5 / 0.1594323e7 * t96 * t1112 - t100 * t1120 / 0.30e2 - 0.5e1 / 0.4e1 * t104 * t1125;
724   t1130 = t485 * t221;
725   t1131 = t1130 * t115;
726   t1134 = t218 * t492;
727   t1135 = t1134 * t494;
728   t1141 = 0.1e1 / t491 / t119;
729   t1142 = t114 * t1141;
730   t1143 = t99 * params->e;
731   t1144 = t1142 * t1143;
732   t1148 = t496 * t9 * t1111;
733   t1151 = t10 * t1041;
734   t1152 = t224 * t1151;
735   t1155 = t1128 * t121 + 0.2e1 / 0.3e1 * t1131 * t226 + 0.4e1 / 0.9e1 * t1135 * t498 - 0.22e2 / 0.9e1 * t488 * t502 + 0.64e2 / 0.81e2 * t1144 * t1125 - 0.44e2 / 0.27e2 * t495 * t1148 + 0.308e3 / 0.81e2 * t223 * t1152;
736   t1156 = t140 * t1155;
737   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
738     v3rho3[0] = t8 * t324 * t128 / 0.18e2 - t358 * t961 * t230 / 0.4e1 + 0.3e1 / 0.2e1 * t358 * t359 * t366 - 0.3e1 / 0.4e1 * t358 * t359 * t506 - 0.9e1 / 0.8e1 * t136 * t138 * t974 + 0.9e1 / 0.8e1 * t136 * t138 * t979 - 0.3e1 / 0.16e2 * t136 * t138 * t1156;
739 
740   t1160 = t352 * t2;
741   t1161 = t1160 * t135;
742   t1169 = t138 * t972 * t301 * t365;
743   t1172 = t364 * t627;
744   t1174 = t138 * t1172 * t229;
745   t1178 = t138 * t514 * t505;
746   t1183 = t274 * t460;
747   t1188 = t601 * t205;
748   t1191 = t284 * t472;
749   t1194 = t280 * t468;
750   t1199 = t252 * t412;
751   t1202 = t370 * t240;
752   t1205 = t380 * t240;
753   t1206 = t1205 * t35;
754   t1208 = t147 * t527;
755   t1212 = t24 * t519;
756   t1215 = params->BLOC_b * t154;
757   t1220 = t1215 * t235 / 0.4e1 + 0.5e1 / 0.8e1 * t1215 * t15;
758   t1223 = t24 * t527;
759   t1234 = t389 * t107;
760   t1235 = t537 * t395;
761   t1236 = t1234 * t1235;
762   t1239 = t533 * t210;
763   t1242 = t391 * sigma[0];
764   t1243 = t1242 * t110;
765   t1247 = t107 * t392;
766   t1251 = sigma[0] * t399;
767   t1252 = t1251 * t30;
768   t1255 = t24 * t1202 * t35 + t24 * t1206 + 0.2e1 * t24 * t1208 * t35 + t1212 * t385 / 0.8e1 + t24 * t1220 * t35 + t1223 * t385 / 0.8e1 + 0.3e1 / 0.512e3 * t530 * t1008 - 0.3e1 / 0.16e2 * t530 * t1011 - t989 * t534 / 0.16e2 - t1003 * t534 / 0.16e2 - 0.3e1 / 0.256e3 * t383 * t1236 + t383 * t1239 / 0.4e1 - 0.3e1 / 0.4096e4 * t1016 * t1243 * t913 + 0.21e2 / 0.512e3 * t390 * t1247 * t395 - 0.3e1 / 0.8e1 * t152 * t1252;
769   t1256 = t1255 * t38;
770   t1257 = t1256 * t43;
771   t1264 = t289 * t477 / 0.60e2 + 0.73e2 / 0.388800e6 * t1183 * t462 + 0.73e2 / 0.194400e6 * t1094 * t594 + 0.73e2 / 0.194400e6 * t461 * t1188 + 0.73e2 / 0.388800e6 * t461 * t1191 + 0.1900e4 / 0.531441e6 * t96 * t1194 - 0.2e1 / 0.9e1 * t160 * t555 + 0.11e2 / 0.27e2 * t39 * t1199 + t1257 * t49 / 0.24e2 + 0.292e3 / 0.2025e4 * t451 * t274 + 0.584e3 / 0.2025e4 * t191 * t584;
772   t1265 = t501 * t257;
773   t1267 = t225 * t38;
774   t1268 = t1267 * t426;
775   t1270 = t562 * t1057;
776   t1272 = t562 * t1060;
777   t1276 = t173 * t43;
778   t1277 = t431 * t269;
779   t1278 = t1277 * t186;
780   t1281 = t425 * t579;
781   t1284 = t269 * t433;
782   t1287 = t579 * t186;
783   t1290 = t269 * t446;
784   t1293 = t260 * t412;
785   t1294 = t1293 * t64;
786   t1296 = t571 * t183;
787   t1298 = t261 * t443;
788   t1301 = t264 * t265 * t412;
789   t1303 = -0.55e2 / 0.9e1 * t1294 + 0.100e3 / 0.27e2 * t1296 - 0.25e2 / 0.36e2 * t1298 - 0.275e3 / 0.81e2 * t1301;
790   t1306 = t501 * t63;
791   t1308 = -0.11e2 / 0.12e2 * t1265 - t1268 / 0.4e1 - 0.9e1 / 0.128e3 * t1270 + 0.3e1 / 0.64e2 * t1272 - 0.3e1 / 0.8e1 * t422 * t565 + 0.9e1 / 0.8e1 * t1276 * t1278 - 0.3e1 / 0.4e1 * t173 * t1281 - 0.81e2 / 0.32e2 * t1066 * t1284 + 0.81e2 / 0.40e2 * t432 * t1287 + 0.81e2 / 0.80e2 * t432 * t1290 - 0.27e2 / 0.40e2 * t179 * t1303 + 0.22e2 / 0.81e2 * t1306;
792   t1315 = t284 * t462;
793   t1318 = t292 * t481;
794   t1321 = t584 * t196;
795   t1333 = 0.1944e4 * t1252 + 0.60800e5 / 0.9e1 * t81 * t1194;
796   t1340 = 0.292e3 / 0.2025e4 * t74 * t1308 - 0.73e2 / 0.97200e5 * t1308 * t91 + t405 * t253 / 0.24e2 - 0.73e2 / 0.259200e6 * t1102 * t1315 + 0.3e1 / 0.8e1 * t104 * t1318 - 0.73e2 / 0.97200e5 * t1321 * t205 - 0.73e2 / 0.194400e6 * t589 * t472 - 0.73e2 / 0.194400e6 * t1091 * t284 - 0.73e2 / 0.97200e5 * t456 * t601 - 0.73e2 / 0.194400e6 * t197 * t1333 - 0.2e1 / 0.9e1 * t548 * t166 + 0.11e2 / 0.27e2 * t249 * t413;
797   t1341 = t1264 + t1340;
798   t1343 = t611 * t221;
799   t1344 = t1343 * t115;
800   t1347 = t296 * t492;
801   t1348 = t1347 * t494;
802   t1353 = t1130 * t99;
803   t1363 = t620 * t468 * sigma[0];
804   t1368 = t1341 * t121 + 0.4e1 / 0.9e1 * t1344 * t226 + 0.4e1 / 0.27e2 * t1348 * t498 - 0.22e2 / 0.27e2 * t614 * t502 - t1353 * t272 / 0.12e2 - t1135 * t622 / 0.9e1 + 0.4e1 / 0.9e1 * t617 * t582 - 0.8e1 / 0.27e2 * t1144 * t1318 + t495 * t1363 / 0.2e1 - 0.22e2 / 0.27e2 * t298 * t1306;
805   t1370 = t138 * t140 * t1368;
806   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
807     v3rho2sigma[0] = -t1161 * t303 / 0.12e2 + t511 * t516 - t511 * t629 / 0.2e1 - 0.9e1 / 0.8e1 * t136 * t1169 + 0.3e1 / 0.4e1 * t136 * t1174 + 0.3e1 / 0.8e1 * t136 * t1178 - 0.3e1 / 0.16e2 * t136 * t1370;
808 
809   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
810     v3rho2lapl[0] = 0.0e0;
811 
812   t1375 = t510 * t634;
813   t1380 = t933 * t2 * t4;
814   t1381 = t1380 * t724;
815   t1384 = t137 * t972;
816   t1386 = t1384 * t637 * t365;
817   t1389 = t713 * t121;
818   t1391 = t636 * t1389 * t229;
819   t1394 = t723 * t636;
820   t1395 = t722 * t1394;
821   t1396 = t346 * t221;
822   t1398 = t1396 * t229 * t727;
823   t1402 = t636 * t637 * t505;
824   t1405 = t370 * t311;
825   t1408 = t380 * t311;
826   t1409 = t1408 * t35;
827   t1411 = t147 * t650;
828   t1415 = t24 * t642;
829   t1423 = -t18 * t210 * t142 / 0.4e1 - 0.5e1 / 0.8e1 * t18 * t210;
830   t1426 = t24 * t650;
831   t1437 = t537 * t661;
832   t1438 = t1006 * t1437;
833   t1441 = t384 * t710;
834   t1444 = t1017 * t110;
835   t1446 = 0.1e1 / t394 / t314;
836   t1453 = t400 * t315;
837   t1456 = t24 * t1405 * t35 + t24 * t1409 + 0.2e1 * t24 * t1411 * t35 + t1415 * t385 / 0.8e1 + t24 * t1423 * t35 + t1426 * t385 / 0.8e1 + 0.3e1 / 0.512e3 * t653 * t1008 - 0.3e1 / 0.16e2 * t653 * t1011 + t989 * t656 / 0.16e2 + t1003 * t656 / 0.16e2 + 0.3e1 / 0.256e3 * t383 * t1438 - t383 * t1441 / 0.4e1 + 0.3e1 / 0.4096e4 * t1016 * t1444 * t1446 - 0.21e2 / 0.512e3 * t390 * t393 * t661 + 0.3e1 / 0.8e1 * t152 * t1453;
838   t1457 = t1456 * t38;
839   t1458 = t1457 * t43;
840   t1477 = t431 * t333;
841   t1478 = t1477 * t186;
842   t1481 = t425 * t691;
843   t1484 = t333 * t433;
844   t1487 = t691 * t186;
845   t1490 = t333 * t446;
846   t1498 = 0.200e3 / 0.9e1 * t572 - 0.500e3 / 0.27e2 * t574 + 0.50e2 / 0.9e1 * t327 * t443 + 0.1000e4 / 0.81e2 * t577;
847   t1501 = 0.10e2 / 0.3e1 * t560 + 0.5e1 / 0.4e1 * t563 + 0.9e1 / 0.16e2 * t678 * t1057 - 0.3e1 / 0.8e1 * t678 * t1060 - 0.3e1 / 0.8e1 * t422 * t681 + 0.9e1 / 0.8e1 * t1276 * t1478 - 0.3e1 / 0.4e1 * t173 * t1481 - 0.81e2 / 0.32e2 * t1066 * t1484 + 0.81e2 / 0.40e2 * t432 * t1487 + 0.81e2 / 0.80e2 * t432 * t1490 - 0.27e2 / 0.40e2 * t179 * t1498;
848   t1506 = t694 * t196;
849   t1509 = t336 * t460;
850   t1516 = t1094 * t25;
851   t1521 = t1102 * t25;
852   t1522 = t343 * t462;
853   t1525 = t710 * t205;
854   t1528 = t343 * t472;
855   t1533 = t399 * t315;
856   t1536 = t1458 * t49 / 0.24e2 - 0.2e1 / 0.9e1 * t670 * t166 + 0.11e2 / 0.27e2 * t321 * t413 + 0.292e3 / 0.2025e4 * t451 * t336 + 0.584e3 / 0.2025e4 * t191 * t694 + 0.292e3 / 0.2025e4 * t74 * t1501 - 0.73e2 / 0.97200e5 * t1501 * t91 - 0.73e2 / 0.97200e5 * t1506 * t205 + 0.73e2 / 0.388800e6 * t1509 * t462 - 0.73e2 / 0.194400e6 * t699 * t472 + 0.73e2 / 0.600e3 * t1091 * t316 - 0.73e2 / 0.600e3 * t1516 * t705 - 0.73e2 / 0.150e3 * t456 * t665 + 0.73e2 / 0.800e3 * t1521 * t1522 + 0.73e2 / 0.300e3 * t704 * t1525 - 0.73e2 / 0.1200e4 * t704 * t1528 + 0.73e2 / 0.100e3 * t197 * t1453 - t100 * t1533 / 0.60e2;
857   t1537 = t140 * t1536;
858   t1539 = t138 * t1537 * t121;
859   t1542 = t714 * t221;
860   t1543 = t1542 * t727;
861   t1547 = t392 * t2 * t4;
862   t1548 = t7 * t137;
863   t1549 = t1548 * t140;
864   t1550 = t1547 * t1549;
865   t1551 = t346 * t492;
866   t1552 = t1551 * params->e;
867   t1553 = t81 * t25;
868   t1554 = t1552 * t1553;
869   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
870     v3rho2tau[0] = -t1161 * t349 / 0.12e2 + t1375 * t639 - t511 * t716 / 0.2e1 + t1381 * t728 / 0.12e2 - 0.9e1 / 0.8e1 * t635 * t1386 + 0.3e1 / 0.4e1 * t635 * t1391 + t1395 * t1398 / 0.3e1 + 0.3e1 / 0.8e1 * t635 * t1402 - 0.3e1 / 0.16e2 * t136 * t1539 - t725 * t1543 / 0.6e1 - t1550 * t1554 / 0.18e2;
871 
872   t1559 = t972 * t731;
873   t1561 = t138 * t1559 * t229;
874   t1565 = t138 * t514 * t627;
875   t1570 = t364 * t808;
876   t1572 = t138 * t1570 * t229;
877   t1575 = t147 * t736;
878   t1578 = t241 * t527;
879   t1581 = t24 * t736;
880   t1584 = t147 * t744;
881   t1587 = t24 * params->BLOC_b;
882   t1589 = t15 * t35;
883   t1590 = t238 * t27 * t1589;
884   t1593 = t24 * t744;
885   t1604 = t389 * t25;
886   t1605 = t399 * t395;
887   t1606 = t1604 * t1605;
888   t1617 = t151 * t154;
889   t1618 = t1617 * t30;
890   t1621 = t24 * t1575 * t35 + 0.2e1 * t24 * t1578 + t1581 * t385 / 0.16e2 + t24 * t1584 * t35 - t1587 * t1590 / 0.8e1 + t1593 * t385 / 0.16e2 - t1212 * t534 / 0.8e1 - t1223 * t534 / 0.8e1 - 0.3e1 / 0.256e3 * t530 * t1236 + t530 * t1239 / 0.4e1 + 0.3e1 / 0.512e3 * t383 * t1606 + 0.3e1 / 0.4096e4 * t1016 * t1023 * t913 - 0.15e2 / 0.512e3 * t390 * t1027 * t395 - t383 * t753 / 0.16e2 + t24 * t1618 / 0.8e1;
891   t1622 = t1621 * t38;
892   t1623 = t1622 * t43;
893   t1636 = t1267 * t565;
894   t1638 = t1056 * t568;
895   t1639 = t562 * t1638;
896   t1641 = t562 * t1281;
897   t1643 = t1056 * t767;
898   t1646 = t767 * t186;
899   t1649 = t269 * t579;
900   t1652 = t172 * t106;
901   t1653 = t1652 * t178;
902   t1654 = params->b * t9;
903   t1655 = t1654 * t86;
904   t1656 = t1653 * t1655;
905   t1658 = t432 * t1654;
906   t1659 = t86 * t78;
907   t1660 = t80 * t186;
908   t1662 = t1658 * t1659 * t1660;
909   t1665 = t81 * t9 * t201;
910   t1666 = t770 * t1665;
911   t1668 = -t1636 / 0.4e1 - 0.9e1 / 0.64e2 * t1639 + 0.3e1 / 0.32e2 * t1641 + 0.9e1 / 0.16e2 * t173 * t1643 - 0.81e2 / 0.32e2 * t1066 * t1646 + 0.81e2 / 0.40e2 * t432 * t1649 - 0.25e2 / 0.64e2 * t1656 + 0.45e2 / 0.256e3 * t1662 + 0.5e1 / 0.8e1 * t1666;
912   t1673 = t775 * t196;
913   t1685 = t782 * t205;
914   t1688 = t284 * t601;
915   t1693 = t787 * t205;
916   t1698 = -0.648e3 * t210 - 0.3200e4 / 0.3e1 * t1665;
917   t1704 = t99 * t154;
918   t1707 = t796 * t214;
919   t1710 = 0.73e2 / 0.194400e6 * t1183 * t594 - 0.73e2 / 0.97200e5 * t589 * t601 + 0.73e2 / 0.388800e6 * t1094 * t782 - 0.73e2 / 0.259200e6 * t1102 * t1685 + 0.73e2 / 0.194400e6 * t461 * t1688 - 0.73e2 / 0.194400e6 * t456 * t787 + 0.73e2 / 0.388800e6 * t461 * t1693 - 0.73e2 / 0.194400e6 * t197 * t1698 - 0.100e3 / 0.177147e6 * t95 * t620 * t201 - t1704 * t30 / 0.180e3 - t104 * t1707 / 0.12e2;
920   t1711 = t1623 * t49 / 0.24e2 - t758 * t166 / 0.9e1 + t547 * t253 / 0.12e2 - 0.2e1 / 0.9e1 * t248 * t555 + 0.584e3 / 0.2025e4 * t274 * t584 + 0.292e3 / 0.2025e4 * t191 * t775 + 0.292e3 / 0.2025e4 * t74 * t1668 - 0.73e2 / 0.97200e5 * t1668 * t91 - 0.73e2 / 0.194400e6 * t1673 * t205 - 0.73e2 / 0.97200e5 * t1321 * t284 + t1710;
921   t1713 = t800 * t221;
922   t1714 = t1713 * t115;
923   t1717 = t1343 * t99;
924   t1724 = t1134 * params->e;
925   t1731 = t1711 * t121 + 0.2e1 / 0.9e1 * t1714 * t226 - t1717 * t272 / 0.6e1 - t1348 * t622 / 0.9e1 + 0.4e1 / 0.9e1 * t802 * t582 + t1724 * t772 / 0.48e2 + t1144 * t1707 / 0.9e1 - t805 * t1665 / 0.9e1;
926   t1733 = t138 * t140 * t1731;
927   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
928     v3rhosigma2[0] = t511 * t733 / 0.2e1 - 0.9e1 / 0.8e1 * t136 * t1561 + 0.3e1 / 0.4e1 * t136 * t1565 - t511 * t810 / 0.4e1 + 0.3e1 / 0.8e1 * t136 * t1572 - 0.3e1 / 0.16e2 * t136 * t1733;
929 
930   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
931     v3rhosigmalapl[0] = 0.0e0;
932 
933   t1738 = t1384 * t346;
934   t1739 = t121 * t301;
935   t1740 = t1739 * t229;
936   t1741 = t1738 * t1740;
937   t1745 = t636 * t1389 * t301;
938   t1748 = t1396 * t301;
939   t1749 = t1748 * t727;
940   t1753 = t636 * t637 * t627;
941   t1758 = t877 * t121;
942   t1760 = t636 * t1758 * t229;
943   t1764 = t527 * t311;
944   t1765 = t1764 * t35;
945   t1767 = t240 * t650;
946   t1768 = t1767 * t35;
947   t1770 = t24 * t817;
948   t1773 = t147 * t825;
949   t1780 = t522 * t820 / 0.8e1 + 0.3e1 / 0.8e1 * t522 * t30;
950   t1783 = t24 * t825;
951   t1802 = t399 * t661;
952   t1803 = t1234 * t1802;
953   t1806 = t1242 * t1022;
954   t1813 = t533 * t343;
955   t1816 = t542 * t315;
956   t1819 = t383 * t818 + t24 * t1765 + t24 * t1768 + t1770 * t385 / 0.16e2 + t24 * t1773 * t35 + t24 * t1780 * t35 + t1783 * t385 / 0.16e2 - t1415 * t534 / 0.16e2 - t1426 * t534 / 0.16e2 - 0.3e1 / 0.512e3 * t653 * t1236 + t653 * t1239 / 0.8e1 + t1212 * t656 / 0.16e2 + t1223 * t656 / 0.16e2 + 0.3e1 / 0.512e3 * t530 * t1438 - t530 * t1441 / 0.8e1 - 0.3e1 / 0.512e3 * t383 * t1803 - 0.3e1 / 0.4096e4 * t1016 * t1806 * t1446 + 0.9e1 / 0.256e3 * t390 * t538 * t661 + t383 * t1813 / 0.8e1 - t152 * t1816 / 0.4e1;
957   t1820 = t1819 * t38;
958   t1821 = t1820 * t43;
959   t1841 = t1267 * t681;
960   t1843 = t1056 * t684;
961   t1844 = t562 * t1843;
962   t1846 = t562 * t1481;
963   t1848 = t1477 * t269;
964   t1854 = t691 * t269;
965   t1857 = t333 * t579;
966   t1860 = t1654 * t856;
967   t1861 = t1653 * t1860;
968   t1863 = t856 * t78;
969   t1865 = t1658 * t1863 * t1660;
970   t1868 = 0.5e1 / 0.8e1 * t765 + 0.9e1 / 0.16e2 * t678 * t1638 - 0.3e1 / 0.8e1 * t678 * t1281 - t1841 / 0.8e1 - 0.9e1 / 0.128e3 * t1844 + 0.3e1 / 0.64e2 * t1846 + 0.9e1 / 0.16e2 * t1276 * t1848 - 0.81e2 / 0.32e2 * t1066 * t852 * t186 + 0.81e2 / 0.80e2 * t432 * t1854 + 0.81e2 / 0.80e2 * t432 * t1857 + 0.25e2 / 0.8e1 * t1861 - 0.45e2 / 0.32e2 * t1865 - 0.65e2 / 0.16e2 * t773;
971   t1873 = t861 * t196;
972   t1880 = t1821 * t49 / 0.24e2 - t841 * t166 / 0.9e1 + t669 * t253 / 0.24e2 - t320 * t555 / 0.9e1 + 0.292e3 / 0.2025e4 * t584 * t336 + 0.292e3 / 0.2025e4 * t274 * t694 + 0.292e3 / 0.2025e4 * t191 * t861 + 0.292e3 / 0.2025e4 * t74 * t1868 - 0.73e2 / 0.97200e5 * t1868 * t91 - 0.73e2 / 0.194400e6 * t1873 * t205 - 0.73e2 / 0.194400e6 * t1506 * t284 + 0.73e2 / 0.388800e6 * t1509 * t594;
973   t1885 = t1183 * t25;
974   t1892 = t343 * t594;
975   t1895 = t710 * t284;
976   t1898 = t343 * t601;
977   t1903 = t461 * sigma[0];
978   t1910 = -0.73e2 / 0.194400e6 * t699 * t601 + 0.73e2 / 0.600e3 * t1321 * t316 - 0.73e2 / 0.1200e4 * t1885 * t705 - 0.73e2 / 0.300e3 * t589 * t665 - 0.73e2 / 0.1200e4 * t1516 * t870 + 0.73e2 / 0.800e3 * t1521 * t1892 + 0.73e2 / 0.600e3 * t704 * t1895 - 0.73e2 / 0.1200e4 * t704 * t1898 + 0.73e2 / 0.300e3 * t456 * t836 - 0.73e2 / 0.600e3 * t1903 * t705 - 0.73e2 / 0.150e3 * t197 * t1816 + t289 * t710 / 0.90e2;
979   t1911 = t1880 + t1910;
980   t1912 = t140 * t1911;
981   t1914 = t138 * t1912 * t121;
982   t1917 = t878 * t221;
983   t1918 = t1917 * t727;
984   t1923 = t364 * t346;
985   t1924 = t1923 * t221;
986   t1926 = t115 * t43 * t229;
987   t1927 = t1924 * t1926;
988   t1930 = t1542 * t116;
989   t1933 = t537 * t2;
990   t1934 = t1933 * t4;
991   t1935 = t1934 * t1549;
992   t1936 = t81 * sigma[0];
993   t1937 = t1552 * t1936;
994   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
995     v3rhosigmatau[0] = t1375 * t814 / 0.2e1 - 0.9e1 / 0.8e1 * t635 * t1741 + 0.3e1 / 0.8e1 * t635 * t1745 + t1395 * t1749 / 0.6e1 + 0.3e1 / 0.8e1 * t635 * t1753 - t511 * t880 / 0.4e1 + 0.3e1 / 0.8e1 * t635 * t1760 - 0.3e1 / 0.16e2 * t136 * t1914 - t725 * t1918 / 0.12e2 - t725 * t887 / 0.24e2 - t886 * t1927 / 0.16e2 + t886 * t1930 / 0.32e2 + t1935 * t1937 / 0.48e2;
996 
997   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
998     v3rholapl2[0] = 0.0e0;
999 
1000   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1001     v3rholapltau[0] = 0.0e0;
1002 
1003   t1942 = t890 * t492;
1004   t1944 = t1384 * t1942 * t229;
1005   t1948 = t636 * t1551 * t713;
1006   t1951 = t891 * t1141;
1007   t1952 = t1951 * t727;
1008   t1957 = t952 * t121;
1009   t1959 = t636 * t1957 * t229;
1010   t1962 = t147 * t896;
1011   t1965 = t312 * t650;
1012   t1968 = t24 * t896;
1013   t1971 = t147 * t906;
1014   t1979 = -t18 * t343 * t142 / 0.4e1 - 0.5e1 / 0.8e1 * t18 * t343;
1015   t1982 = t24 * t906;
1016   t1993 = t399 * t913;
1017   t1994 = t1006 * t1993;
1018   t1997 = t1017 * t1022;
1019   t1998 = t394 * t394;
1020   t1999 = 0.1e1 / t1998;
1021   t2003 = t659 * t913;
1022   t2006 = t384 * t949;
1023   t2009 = t155 * t395;
1024   t2012 = t24 * t1962 * t35 + 0.2e1 * t24 * t1965 + t1968 * t385 / 0.16e2 + t24 * t1971 * t35 + t24 * t1979 * t35 + t1982 * t385 / 0.16e2 + t1415 * t656 / 0.8e1 + t1426 * t656 / 0.8e1 + 0.3e1 / 0.256e3 * t653 * t1438 - t653 * t1441 / 0.4e1 + 0.3e1 / 0.512e3 * t383 * t1994 + 0.3e1 / 0.4096e4 * t1016 * t1997 * t1999 - 0.21e2 / 0.512e3 * t390 * t2003 - 0.3e1 / 0.16e2 * t383 * t2006 + 0.3e1 / 0.8e1 * t152 * t2009;
1025   t2013 = t2012 * t38;
1026   t2014 = t2013 * t43;
1027   t2028 = t1056 * t929;
1028   t2031 = t929 * t186;
1029   t2034 = t333 * t691;
1030   t2037 = t1654 * t933;
1031   t2040 = t933 * t78;
1032   t2045 = 0.5e1 / 0.4e1 * t850 + 0.9e1 / 0.8e1 * t678 * t1843 - 0.3e1 / 0.4e1 * t678 * t1481 + 0.9e1 / 0.16e2 * t173 * t2028 - 0.81e2 / 0.32e2 * t1066 * t2031 + 0.81e2 / 0.40e2 * t432 * t2034 - 0.25e2 * t1653 * t2037 + 0.45e2 / 0.4e1 * t1658 * t2040 * t1660 + 0.25e2 * t859;
1033   t2050 = t938 * t196;
1034   t2055 = t1509 * t25;
1035   t2062 = t1102 * t391;
1036   t2063 = t1993 * t205;
1037   t2070 = t949 * t205;
1038   t2075 = t154 * t395;
1039   t2078 = t2014 * t49 / 0.24e2 - t922 * t166 / 0.9e1 + 0.584e3 / 0.2025e4 * t336 * t694 + 0.292e3 / 0.2025e4 * t191 * t938 + 0.292e3 / 0.2025e4 * t74 * t2045 - 0.73e2 / 0.97200e5 * t2045 * t91 - 0.73e2 / 0.194400e6 * t2050 * t205 + 0.73e2 / 0.300e3 * t1506 * t316 - 0.73e2 / 0.600e3 * t2055 * t705 - 0.73e2 / 0.150e3 * t699 * t665 + 0.1971e4 / 0.100e3 * t1094 * t914 - 0.5913e4 / 0.200e3 * t2062 * t2063 - 0.1971e4 / 0.25e2 * t461 * t2003 - 0.73e2 / 0.200e3 * t456 * t917 + 0.73e2 / 0.400e3 * t704 * t2070 + 0.73e2 / 0.100e3 * t197 * t2009 - t100 * t2075 / 0.60e2;
1040   t2079 = t140 * t2078;
1041   t2081 = t138 * t2079 * t121;
1042   t2084 = t953 * t221;
1043   t2085 = t2084 * t727;
1044   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1045     v3rhotau2[0] = t511 * t893 / 0.2e1 - 0.9e1 / 0.8e1 * t635 * t1944 + 0.3e1 / 0.4e1 * t635 * t1948 + t725 * t1952 / 0.3e1 - t511 * t955 / 0.4e1 + 0.3e1 / 0.8e1 * t635 * t1959 - 0.3e1 / 0.16e2 * t136 * t2081 - t725 * t2085 / 0.12e2;
1046 
1047   t2088 = t731 * t301;
1048   t2090 = t138 * t972 * t2088;
1049   t2094 = t138 * t514 * t808;
1050   t2097 = t736 * t240;
1051   t2100 = t241 * t744;
1052   t2108 = 0.1e1 / t107;
1053   t2111 = -0.3e1 / 0.8e1 * t234 * t15 * t742 + 0.2e1 * t22 * t2108;
1054   t2127 = (t24 * t2097 * t35 + 0.3e1 * t24 * t2100 - 0.3e1 / 0.16e2 * t1581 * t534 + t24 * t2111 * t35 - 0.3e1 / 0.16e2 * t1593 * t534 + 0.9e1 / 0.512e3 * t530 * t1606 - 0.3e1 / 0.16e2 * t530 * t753 - 0.3e1 / 0.4096e4 * t1016 * t1247 * t913 + 0.9e1 / 0.512e3 * t390 * t1251 * t395) * t38;
1055   t2128 = t2127 * t43;
1056   t2135 = t562 * t1643;
1057   t2137 = t110 * t106;
1058   t2138 = t178 * params->b;
1059   t2139 = t2137 * t2138;
1060   t2141 = t767 * t269;
1061   t2144 = t269 * params->b;
1062   t2145 = t432 * t2144;
1063   t2146 = t2145 * t772;
1064   t2148 = -0.27e2 / 0.128e3 * t2135 + 0.75e2 / 0.256e3 * t2139 - 0.81e2 / 0.32e2 * t1066 * t2141 + 0.135e3 / 0.256e3 * t2146;
1065   t2159 = t782 * t284;
1066   t2162 = t284 * t787;
1067   t2167 = t2128 * t49 / 0.24e2 + t757 * t253 / 0.8e1 + 0.292e3 / 0.675e3 * t274 * t775 + 0.292e3 / 0.2025e4 * t74 * t2148 - 0.73e2 / 0.97200e5 * t2148 * t91 - 0.73e2 / 0.64800e5 * t1673 * t284 + 0.73e2 / 0.129600e6 * t1183 * t782 - 0.73e2 / 0.64800e5 * t589 * t787 - 0.73e2 / 0.259200e6 * t1102 * t2159 + 0.73e2 / 0.129600e6 * t461 * t2162 + t104 * t2137 / 0.96e2;
1068   t2169 = t1713 * t99;
1069   t2172 = t1347 * params->e;
1070   t2175 = t1143 * t106;
1071   t2176 = t2175 * t110;
1072   t2179 = t2167 * t121 - t2169 * t272 / 0.4e1 + t2172 * t772 / 0.16e2 - t1142 * t2176 / 0.24e2;
1073   t2181 = t138 * t140 * t2179;
1074   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1075     v3sigma3[0] = -0.9e1 / 0.8e1 * t136 * t2090 + 0.9e1 / 0.8e1 * t136 * t2094 - 0.3e1 / 0.16e2 * t136 * t2181;
1076 
1077   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1078     v3sigma2lapl[0] = 0.0e0;
1079 
1080   t2185 = t1384 * t637 * t731;
1081   t2189 = t636 * t1758 * t301;
1082   t2193 = t301 * t99 * t63;
1083   t2194 = t1924 * t2193;
1084   t2198 = t636 * t637 * t808;
1085   t2201 = t736 * t311;
1086   t2202 = t2201 * t35;
1087   t2204 = t744 * t311;
1088   t2205 = t2204 * t35;
1089   t2207 = t240 * t825;
1090   t2208 = t2207 * t35;
1091   t2213 = t238 * t35;
1092   t2214 = t306 * t2213;
1093   t2237 = t752 * t315;
1094   t2240 = t24 * t2202 + t24 * t2205 + 0.2e1 * t24 * t2208 - t1770 * t534 / 0.8e1 - t1587 * t2214 / 0.8e1 - t1783 * t534 / 0.8e1 + 0.3e1 / 0.512e3 * t653 * t1606 - t653 * t753 / 0.16e2 + t1581 * t656 / 0.16e2 + t1593 * t656 / 0.16e2 - 0.3e1 / 0.256e3 * t530 * t1803 + t530 * t1813 / 0.4e1 + 0.3e1 / 0.4096e4 * t1016 * t393 * t1446 - 0.15e2 / 0.512e3 * t390 * t400 * t661 + t24 * t2237 / 0.8e1;
1095   t2241 = t2240 * t38;
1096   t2242 = t2241 * t43;
1097   t2253 = t1022 * t106;
1098   t2254 = t2253 * t2138;
1099   t2256 = t1056 * t852;
1100   t2257 = t562 * t2256;
1101   t2259 = t333 * t767;
1102   t2262 = t80 * t269;
1103   t2264 = t1658 * t1863 * t2262;
1104   t2266 = t333 * params->b;
1105   t2267 = t432 * t2266;
1106   t2268 = t2267 * t772;
1107   t2270 = 0.9e1 / 0.16e2 * t678 * t1643 - 0.75e2 / 0.32e2 * t2254 - 0.9e1 / 0.64e2 * t2257 - 0.81e2 / 0.32e2 * t1066 * t2259 - 0.45e2 / 0.16e2 * t2264 + 0.45e2 / 0.256e3 * t2268;
1108   t2287 = t343 * t782;
1109   t2292 = t343 * t787;
1110   t2299 = t2242 * t49 / 0.24e2 + t840 * t253 / 0.12e2 + 0.292e3 / 0.2025e4 * t775 * t336 + 0.584e3 / 0.2025e4 * t274 * t861 + 0.292e3 / 0.2025e4 * t74 * t2270 - 0.73e2 / 0.97200e5 * t2270 * t91 - 0.73e2 / 0.97200e5 * t1873 * t284 + 0.73e2 / 0.388800e6 * t1509 * t782 - 0.73e2 / 0.194400e6 * t699 * t787 + 0.73e2 / 0.600e3 * t1673 * t316 - 0.73e2 / 0.600e3 * t1885 * t870 + 0.73e2 / 0.150e3 * t589 * t836 + 0.73e2 / 0.800e3 * t1521 * t2287 - 0.73e2 / 0.300e3 * t1903 * t870 - 0.73e2 / 0.1200e4 * t704 * t2292 + 0.73e2 / 0.300e3 * t197 * t343 - t793 * t315 / 0.180e3;
1111   t2300 = t140 * t2299;
1112   t2302 = t138 * t2300 * t121;
1113   t2305 = t1917 * t116;
1114   t2308 = t399 * t2;
1115   t2309 = t135 * t137;
1116   t2310 = t2308 * t2309;
1117   t2312 = t494 * t80;
1118   t2313 = t347 * t492 * t2312;
1119   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1120     v3sigma2tau[0] = -0.9e1 / 0.8e1 * t635 * t2185 + 0.3e1 / 0.4e1 * t635 * t2189 - t886 * t2194 / 0.8e1 + 0.3e1 / 0.8e1 * t635 * t2198 - 0.3e1 / 0.16e2 * t136 * t2302 + t886 * t2305 / 0.16e2 - t2310 * t2313 / 0.128e3;
1121 
1122   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1123     v3sigmalapl2[0] = 0.0e0;
1124 
1125   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1126     v3sigmalapltau[0] = 0.0e0;
1127 
1128   t2317 = t1384 * t1942 * t301;
1129   t2321 = t636 * t1551 * t877;
1130   t2324 = t1951 * t116;
1131   t2328 = t636 * t1957 * t301;
1132   t2331 = t240 * t896;
1133   t2332 = t2331 * t35;
1134   t2334 = t312 * t825;
1135   t2339 = t240 * t906;
1136   t2340 = t2339 * t35;
1137   t2342 = t315 * t142;
1138   t2347 = t234 * t2342 / 0.4e1 + 0.5e1 / 0.8e1 * t234 * t315;
1139   t2362 = t1242 * t392;
1140   t2366 = t832 * t913;
1141   t2371 = t243 * t395;
1142   t2374 = t24 * t2332 + 0.2e1 * t24 * t2334 - t1968 * t534 / 0.16e2 + t24 * t2340 + t24 * t2347 * t35 - t1982 * t534 / 0.16e2 + t1770 * t656 / 0.8e1 + t1783 * t656 / 0.8e1 - 0.3e1 / 0.256e3 * t653 * t1803 + t653 * t1813 / 0.4e1 + 0.3e1 / 0.512e3 * t530 * t1994 - 0.3e1 / 0.4096e4 * t1016 * t2362 * t1999 + 0.21e2 / 0.512e3 * t390 * t2366 - 0.3e1 / 0.16e2 * t530 * t2006 - 0.3e1 / 0.8e1 * t152 * t2371;
1143   t2375 = t2374 * t38;
1144   t2376 = t2375 * t43;
1145   t2387 = t392 * t106;
1146   t2388 = t2387 * t2138;
1147   t2390 = t562 * t2028;
1148   t2392 = t929 * t269;
1149   t2395 = t2267 * t858;
1150   t2400 = 0.9e1 / 0.8e1 * t678 * t2256 + 0.75e2 / 0.4e1 * t2388 - 0.9e1 / 0.128e3 * t2390 - 0.81e2 / 0.32e2 * t1066 * t2392 - 0.45e2 / 0.16e2 * t2395 + 0.45e2 / 0.4e1 * t1658 * t2040 * t2262;
1151   t2415 = t1993 * t284;
1152   t2422 = t949 * t284;
1153   t2429 = t2376 * t49 / 0.24e2 + t921 * t253 / 0.24e2 + 0.584e3 / 0.2025e4 * t336 * t861 + 0.292e3 / 0.2025e4 * t274 * t938 + 0.292e3 / 0.2025e4 * t74 * t2400 - 0.73e2 / 0.97200e5 * t2400 * t91 - 0.73e2 / 0.194400e6 * t2050 * t284 + 0.73e2 / 0.300e3 * t1873 * t316 - 0.73e2 / 0.600e3 * t2055 * t870 + 0.73e2 / 0.150e3 * t699 * t836 + 0.1971e4 / 0.100e3 * t1183 * t914 - 0.5913e4 / 0.200e3 * t2062 * t2415 + 0.1971e4 / 0.25e2 * t461 * t2366 - 0.73e2 / 0.200e3 * t589 * t917 + 0.73e2 / 0.400e3 * t704 * t2422 - 0.73e2 / 0.100e3 * t197 * t2371 + t289 * t949 / 0.60e2;
1154   t2430 = t140 * t2429;
1155   t2432 = t138 * t2430 * t121;
1156   t2435 = t2084 * t116;
1157   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1158     v3sigmatau2[0] = -0.9e1 / 0.8e1 * t635 * t2317 + 0.3e1 / 0.4e1 * t635 * t2321 - t886 * t2324 / 0.8e1 + 0.3e1 / 0.8e1 * t635 * t2328 - 0.3e1 / 0.16e2 * t136 * t2432 + t886 * t2435 / 0.32e2;
1159 
1160   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1161     v3lapl3[0] = 0.0e0;
1162 
1163   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1164     v3lapl2tau[0] = 0.0e0;
1165 
1166   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1167     v3lapltau2[0] = 0.0e0;
1168 
1169   t2438 = t890 * t346;
1170   t2439 = t972 * t2438;
1171   t2441 = 0.1e1 / t491 / t120;
1172   t2443 = t138 * t2439 * t2441;
1173   t2447 = t636 * t1551 * t952;
1174   t2450 = t896 * t311;
1175   t2453 = t312 * t906;
1176   t2458 = t13 * t395;
1177   t2466 = -0.3e1 / 0.4e1 * t18 * t2458 * t142 - 0.9e1 / 0.8e1 * t18 * t2458 - 0.2e1 * t22 * t315;
1178   t2475 = t1017 * t392;
1179   t2477 = 0.1e1 / t1998 / tau[0];
1180   t2478 = t2475 * t2477;
1181   t2481 = t911 * t1446;
1182   t2484 = t28 * t661;
1183   t2488 = (t24 * t2450 * t35 + 0.3e1 * t24 * t2453 + 0.3e1 / 0.16e2 * t1968 * t656 + t24 * t2466 * t35 + 0.3e1 / 0.16e2 * t1982 * t656 + 0.9e1 / 0.512e3 * t653 * t1994 - 0.9e1 / 0.16e2 * t653 * t2006 + 0.3e1 / 0.4096e4 * t1016 * t2478 - 0.27e2 / 0.512e3 * t390 * t2481 + 0.3e1 / 0.4e1 * t152 * t2484) * t38;
1184   t2489 = t2488 * t43;
1185   t2496 = t537 * t106;
1186   t2499 = t929 * t333;
1187   t2504 = 0.27e2 / 0.16e2 * t678 * t2028 - 0.150e3 * t2496 * t2138 - 0.81e2 / 0.32e2 * t1066 * t2499 + 0.135e3 / 0.4e1 * t2267 * t935;
1188   t2521 = t27 * t661;
1189   t2524 = t2489 * t49 / 0.24e2 + 0.292e3 / 0.675e3 * t336 * t938 + 0.292e3 / 0.2025e4 * t74 * t2504 - 0.73e2 / 0.97200e5 * t2504 * t91 + 0.73e2 / 0.200e3 * t2050 * t316 + 0.5913e4 / 0.100e3 * t1509 * t914 - 0.219e3 / 0.200e3 * t699 * t917 + 0.478953e6 / 0.50e2 * t1102 * t2478 - 0.17739e5 / 0.100e3 * t461 * t2481 + 0.73e2 / 0.50e2 * t197 * t2484 - t100 * t2521 / 0.30e2;
1190   t2525 = t140 * t2524;
1191   t2527 = t138 * t2525 * t121;
1192   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1193     v3tau3[0] = -0.9e1 / 0.8e1 * t136 * t2443 + 0.9e1 / 0.8e1 * t635 * t2447 - 0.3e1 / 0.16e2 * t136 * t2527;
1194 
1195 #ifndef XC_DONT_COMPILE_LXC
1196 
1197   if(order < 4) return;
1198 
1199 
1200   t2551 = 0.1e1 / t971 / t123;
1201   t2552 = t365 * t365;
1202   t2562 = t505 * t505;
1203   t2571 = t451 * t451;
1204   t2578 = 0.1e1 / t46 / t199;
1205   t2579 = t45 * t2578;
1206   t2581 = 0.6160e4 / 0.81e2 * t52 * t1041 - 0.2618e4 / 0.81e2 * t2579;
1207   t2591 = t43 * t1065;
1208   t2592 = t2591 * t1067;
1209   t2599 = t425 * t1081;
1210   t2602 = t429 * t429;
1211   t2605 = t61 / t68 / t2602;
1212   t2606 = t433 * t433;
1213   t2612 = t446 * t446;
1214   t2623 = t421 * t421;
1215   t2635 = 0.3e1 / 0.4e1 * t2581 * t38 * t174 - 0.3e1 / 0.2e1 * t1051 * t426 + 0.27e2 / 0.8e1 * t422 * t1057 - 0.9e1 / 0.4e1 * t422 * t1060 - 0.45e2 / 0.8e1 * t173 * t2592 + 0.27e2 / 0.4e1 * t1276 * t431 * t186 * t446 - 0.3e1 / 0.2e1 * t173 * t2599 + 0.567e3 / 0.64e2 * t2605 * t2606 - 0.243e3 / 0.16e2 * t1066 * t433 * t446 + 0.243e3 / 0.80e2 * t432 * t2612 + 0.81e2 / 0.20e2 * t432 * t186 * t1081 - 0.27e2 / 0.40e2 * t179 * (0.5e1 * params->b * t2581 * t64 + 0.200e3 / 0.9e1 * t1073 * t183 + 0.50e2 / 0.3e1 * params->b * t2623 * t81 + 0.25e2 / 0.9e1 * t62 * t81 * t2581) + 0.5236e4 / 0.729e3 * t63 * t2579;
1216   t2649 = 0.1e1 / t11 / t213;
1217   t2650 = t82 * t2649;
1218   t2655 = t1015 * t1017;
1219   t2657 = t2655 * t214 * t913;
1220   t2660 = t1017 * t481;
1221   t2664 = t391 * t110;
1222   t2668 = t25 * t392;
1223   t2669 = t2668 * t30;
1224   t2672 = t24 * t983;
1225   t2677 = t24 * t1000;
1226   t2682 = t24 / t388 / t34;
1227   t2683 = t391 * t391;
1228   t2684 = t109 * t83;
1229   t2685 = 0.1e1 / t2684;
1230   t2693 = t370 * t370;
1231   t2696 = t380 * t380;
1232   t2703 = t537 * t15;
1233   t2715 = t24 * t147 * t151;
1234   t2725 = t1006 * t1022 * t395;
1235   t2728 = t384 * t1120;
1236   t2731 = 0.9e1 / 0.256e3 * t1003 * t1008 + 0.3e1 / 0.1024e4 * t383 * t2657 - 0.27e2 / 0.2048e4 * t1016 * t2660 * t913 + 0.225e3 / 0.512e3 * t390 * t2664 * t395 - 0.15e2 / 0.4e1 * t152 * t2669 + t2672 * t385 / 0.4e1 + 0.9e1 / 0.256e3 * t989 * t1008 + t2677 * t385 / 0.4e1 + 0.15e2 / 0.131072e6 * t2682 * t2683 * t2685 * t1999 + 0.6e1 * t24 * t371 * t380 + t24 * t2693 * t35 + 0.3e1 * t24 * t2696 * t35 + 0.4e1 * t24 * t148 * t1000 + t24 * (0.3e1 * t18 * t2703 * t142 + 0.11e2 / 0.2e1 * t18 * t2703 + 0.6e1 * t22 * t399) * t35 + 0.3e1 / 0.4e1 * t2715 * t380 * t25 * t210 - 0.9e1 / 0.8e1 * t989 * t1011 - 0.9e1 / 0.8e1 * t1003 * t1011 - 0.27e2 / 0.128e3 * t383 * t2725 + 0.3e1 * t383 * t2728;
1237   t2736 = t1086 * t196;
1238   t2739 = 0.292e3 / 0.675e3 * t2571 + 0.1168e4 / 0.2025e4 * t191 * t1086 + 0.292e3 / 0.2025e4 * t74 * t2635 - 0.73e2 / 0.97200e5 * t2635 * t91 + 0.22e2 / 0.9e1 * t406 * t413 - 0.616e3 / 0.81e2 * t161 * t1042 + 0.2618e4 / 0.243e3 * t44 * t2579 - 0.4e1 / 0.9e1 * t1033 * t166 + 0.522500e6 / 0.4782969e7 * t96 * t2650 + t2731 * t38 * t43 * t49 / 0.24e2 - 0.73e2 / 0.48600e5 * t2736 * t205;
1239   t2750 = t108 * t2685;
1240   t2753 = t451 * t460;
1241   t2756 = t191 * t1101;
1242   t2764 = t74 / t91 / t1099 / t90;
1243   t2765 = t462 * t462;
1244   t2771 = t472 * t472;
1245   t2780 = -0.73e2 / 0.32400e5 * t1091 * t472 - 0.73e2 / 0.48600e5 * t456 * t1115 - 0.73e2 / 0.194400e6 * t197 * (0.19440e5 * t2669 + 0.16720000e8 / 0.81e2 * t81 * t2650) + 0.55e2 / 0.4e1 * t104 * t2750 + 0.73e2 / 0.64800e5 * t2753 * t462 - 0.73e2 / 0.64800e5 * t2756 * t1103 + 0.73e2 / 0.32400e5 * t1094 * t1106 + 0.73e2 / 0.103680e6 * t2764 * t2765 - 0.73e2 / 0.43200e5 * t1102 * t462 * t472 + 0.73e2 / 0.129600e6 * t461 * t2771 + 0.73e2 / 0.97200e5 * t461 * t205 * t1115 + t100 * t392 * t30 / 0.6e1;
1246   t2783 = t1128 * t221;
1247   t2787 = t485 * t492;
1248   t2788 = t2787 * t494;
1249   t2793 = t218 * t1141;
1250   t2794 = t2793 * t1143;
1251   t2802 = params->e * params->e;
1252   t2804 = t114 * t2441 * t2802 * t106;
1253   t2809 = t63 * t10;
1254   t2819 = t10 * t2578;
1255   t2823 = (t2739 + t2780) * t121 + 0.8e1 / 0.9e1 * t2783 * t115 * t226 + 0.8e1 / 0.9e1 * t2788 * t498 - 0.44e2 / 0.9e1 * t1131 * t502 + 0.256e3 / 0.81e2 * t2794 * t1125 - 0.176e3 / 0.27e2 * t1135 * t1148 + 0.1232e4 / 0.81e2 * t488 * t1152 + 0.320e3 / 0.729e3 * t2804 * t391 / t46 / t109 / t199 * t2809 - 0.1408e4 / 0.81e2 * t1144 * t2750 + 0.3916e4 / 0.243e3 * t495 * t496 * t9 * t2649 - 0.5236e4 / 0.243e3 * t223 * t224 * t2819;
1256   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1257     v4rho4[0] = -0.5e1 / 0.54e2 * t8 * t256 * t128 + 0.2e1 / 0.9e1 * t358 * t54 * t137 * t230 + t358 * t961 * t366 - t358 * t961 * t506 / 0.2e1 - 0.6e1 * t358 * t359 * t974 + 0.6e1 * t358 * t359 * t979 - t358 * t359 * t1156 + 0.9e1 / 0.2e1 * t136 * t138 * t2551 * t2552 - 0.27e2 / 0.4e1 * t136 * t138 * t972 * t365 * t505 + 0.9e1 / 0.8e1 * t136 * t138 * t364 * t2562 + 0.3e1 / 0.2e1 * t136 * t138 * t978 * t1155 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * t2823;
1258 
1259   t2834 = t1151 * t63;
1260   t2837 = t1341 * t221;
1261   t2841 = t611 * t492;
1262   t2842 = t2841 * t494;
1263   t2857 = t1056 * t1070;
1264   t2865 = t501 * t38;
1265   t2872 = t422 * t43;
1266   t2879 = -0.135e3 / 0.32e2 * t1276 * t1065 * t269 * t433 + 0.9e1 / 0.16e2 * t1267 * t1057 + 0.45e2 / 0.256e3 * t562 * t2592 - 0.27e2 / 0.128e3 * t562 * t2857 + 0.27e2 / 0.16e2 * t1276 * t1277 * t446 + 0.77e2 / 0.18e2 * t1151 * t257 + 0.11e2 / 0.8e1 * t2865 * t426 - 0.3e1 / 0.8e1 * t1267 * t1060 + 0.3e1 / 0.64e2 * t562 * t2599 + 0.27e2 / 0.16e2 * t2872 * t1278 + 0.27e2 / 0.8e1 * t1276 * t431 * t579 * t186;
1267   t2899 = t425 * t1303;
1268   t2921 = -0.27e2 / 0.40e2 * t179 * (0.770e3 / 0.27e2 * t260 * t1041 * t64 - 0.550e3 / 0.27e2 * t1293 * t183 + 0.50e2 / 0.9e1 * t571 * t443 - 0.25e2 / 0.36e2 * t261 * t1078 + 0.3850e4 / 0.243e3 * t264 * t265 * t1041) - 0.3e1 / 0.8e1 * t1051 * t565 - 0.9e1 / 0.8e1 * t422 * t1281 - 0.9e1 / 0.8e1 * t173 * t2899 + 0.567e3 / 0.64e2 * t2605 * t269 * t1067 - 0.243e3 / 0.32e2 * t1066 * t568 * t446 + 0.243e3 / 0.80e2 * t432 * t1303 * t186 + 0.243e3 / 0.80e2 * t432 * t579 * t446 + 0.81e2 / 0.80e2 * t432 * t269 * t1081 - 0.308e3 / 0.243e3 * t2834 - 0.243e3 / 0.32e2 * t1066 * t579 * t433;
1269   t2922 = t2879 + t2921;
1270   t2939 = sigma[0] * t537;
1271   t2940 = t2939 * t30;
1272   t2942 = t280 * t1111;
1273   t2970 = 0.292e3 / 0.2025e4 * t74 * t2922 + 0.292e3 / 0.2025e4 * t1086 * t274 + 0.292e3 / 0.675e3 * t451 * t584 + 0.11e2 / 0.9e1 * t548 * t413 - 0.154e3 / 0.81e2 * t249 * t1042 - t1257 * t166 / 0.3e1 - 0.73e2 / 0.97200e5 * t2922 * t91 - 0.73e2 / 0.64800e5 * t456 * t1333 - 0.73e2 / 0.194400e6 * t197 * (-0.7776e4 * t2940 - 0.1337600e7 / 0.27e2 * t81 * t2942) + 0.73e2 / 0.129600e6 * t461 * t1333 * t205 + 0.73e2 / 0.129600e6 * t461 * t601 * t472 + 0.73e2 / 0.388800e6 * t461 * t284 * t1115 + 0.73e2 / 0.129600e6 * t2753 * t594 + 0.73e2 / 0.64800e5 * t1094 * t1188 + 0.73e2 / 0.129600e6 * t1094 * t1191 - t289 * t1120 / 0.15e2 + 0.73e2 / 0.129600e6 * t1183 * t1106 + 0.73e2 / 0.103680e6 * t2764 * t284 * t1103;
1274   t2980 = t292 * t1124;
1275   t2986 = t584 * t460;
1276   t2989 = t1308 * t196;
1277   t3000 = t24 * t1202;
1278   t3003 = t24 * t1205;
1279   t3006 = t24 * t1208;
1280   t3013 = t107 * t1022;
1281   t3019 = t1242 * t214;
1282   t3025 = t391 * t107;
1283   t3038 = t1015 * t1242;
1284   t3040 = t3038 * t110 * t913;
1285   t3043 = -0.3e1 / 0.16e2 * t2715 * t243 * t30 * t380 + 0.3e1 / 0.16e2 * t3000 * t385 + 0.3e1 / 0.16e2 * t3003 * t385 + 0.3e1 / 0.8e1 * t3006 * t385 + 0.9e1 / 0.512e3 * t1212 * t1008 - 0.9e1 / 0.16e2 * t1212 * t1011 - 0.9e1 / 0.32e2 * t390 * t3013 * t395 + 0.3e1 / 0.2e1 * t152 * t2940 + 0.45e2 / 0.4096e4 * t1016 * t3019 * t913 + 0.3e1 * t383 * t1206 - 0.15e2 / 0.131072e6 * t2682 * t3025 * t1124 * t1999 + 0.3e1 / 0.4096e4 * t530 * t2657 - 0.9e1 / 0.512e3 * t989 * t1236 - t2677 * t534 / 0.16e2 - 0.9e1 / 0.512e3 * t1003 * t1236 - 0.9e1 / 0.4096e4 * t383 * t3040;
1286   t3044 = t24 * t1220;
1287   t3049 = t533 * t477;
1288   t3064 = t1234 * t1007;
1289   t3067 = params->BLOC_b * t399;
1290   t3093 = 0.3e1 / 0.16e2 * t3044 * t385 + 0.9e1 / 0.512e3 * t1223 * t1008 - 0.9e1 / 0.8e1 * t383 * t3049 - 0.9e1 / 0.16e2 * t1223 * t1011 - 0.27e2 / 0.512e3 * t530 * t2725 + 0.3e1 / 0.4e1 * t530 * t2728 + 0.3e1 / 0.8e1 * t989 * t1239 - t2672 * t534 / 0.16e2 + 0.3e1 / 0.8e1 * t1003 * t1239 + 0.63e2 / 0.512e3 * t383 * t3064 + t24 * (-0.3e1 / 0.4e1 * t3067 * t235 - 0.17e2 / 0.8e1 * t3067 * t15) * t35 + t24 * t983 * t240 * t35 + 0.3e1 * t24 * t370 * t527 * t35 + t24 * t1000 * t240 * t35 + 0.3e1 * t24 * t380 * t527 * t35 + 0.3e1 * t24 * t147 * t1220 * t35;
1291   t3107 = t274 * t1101;
1292   t3115 = -0.73e2 / 0.86400e5 * t2756 * t1315 - 0.73e2 / 0.86400e5 * t1102 * t601 * t462 - t405 * t555 / 0.3e1 + t1032 * t253 / 0.24e2 - 0.15e2 / 0.4e1 * t104 * t2980 - 0.73e2 / 0.86400e5 * t1102 * t1191 * t205 + 0.73e2 / 0.129600e6 * t2986 * t462 - 0.73e2 / 0.64800e5 * t2989 * t205 - 0.73e2 / 0.64800e5 * t1321 * t472 - 0.73e2 / 0.194400e6 * t589 * t1115 + (t3043 + t3093) * t38 * t43 * t49 / 0.24e2 - 0.41800e5 / 0.1594323e7 * t96 * t2942 + 0.292e3 / 0.675e3 * t191 * t1308 - 0.73e2 / 0.194400e6 * t2736 * t284 - 0.73e2 / 0.64800e5 * t1091 * t601 - 0.73e2 / 0.259200e6 * t3107 * t1103 + 0.11e2 / 0.9e1 * t160 * t1199 - 0.154e3 / 0.81e2 * t39 * t252 * t1041;
1293   t3123 = t296 * t1141;
1294   t3124 = t3123 * t1143;
1295   t3148 = -0.22e2 / 0.9e1 * t617 * t1306 + 0.308e3 / 0.81e2 * t298 * t2834 + 0.2e1 / 0.3e1 * t2837 * t115 * t226 + 0.4e1 / 0.9e1 * t2842 * t498 + 0.2e1 / 0.3e1 * t1353 * t582 - t2788 * t622 / 0.6e1 + (t2970 + t3115) * t121 - t2783 * t99 * t272 / 0.12e2 + 0.152e3 / 0.27e2 * t1144 * t2980 + 0.64e2 / 0.81e2 * t3124 * t1125 - 0.8e1 / 0.9e1 * t2794 * t1318 + 0.3e1 / 0.2e1 * t1135 * t1363 - 0.40e2 / 0.243e3 * t2804 / t46 / t109 / t84 * t107 * t2809 - 0.341e3 / 0.81e2 * t495 * t620 * t1111 * sigma[0] - 0.22e2 / 0.9e1 * t1344 * t502 - 0.44e2 / 0.27e2 * t1348 * t1148 + 0.308e3 / 0.81e2 * t614 * t1152;
1296   t3160 = t301 * t229;
1297   t3184 = t54 * t2 * t135;
1298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1299     v4rho3sigma[0] = -t1161 * t629 / 0.4e1 - 0.3e1 / 0.4e1 * t511 * t1370 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * t3148 - 0.9e1 / 0.2e1 * t511 * t1169 + 0.9e1 / 0.2e1 * t136 * t138 * t2551 * t301 * t973 - 0.27e2 / 0.8e1 * t635 * t1384 * t3160 * t505 - 0.27e2 / 0.8e1 * t136 * t138 * t972 * t627 * t365 + 0.9e1 / 0.8e1 * t136 * t138 * t364 * t1368 * t229 + 0.9e1 / 0.8e1 * t136 * t138 * t1172 * t505 + 0.3e1 / 0.8e1 * t136 * t138 * t514 * t1155 + t3184 * t303 / 0.18e2 + t1161 * t516 / 0.2e1 + 0.3e1 * t511 * t1174 + 0.3e1 / 0.2e1 * t511 * t1178;
1300 
1301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1302     v4rho3lapl[0] = 0.0e0;
1303 
1304   t3193 = t723 * t1384;
1305   t3194 = t722 * t3193;
1306   t3199 = t713 * t221;
1307   t3207 = t1380 * t1394;
1308   t3211 = 0.1e1 / t46 / t213;
1309   t3215 = t346 * t1141;
1310   t3216 = t3215 * t1143;
1311   t3226 = t713 * t492;
1312   t3227 = t3226 * params->e;
1313   t3235 = t1536 * t121;
1314   t3248 = t1160 * t634;
1315   t3251 = -0.3e1 / 0.2e1 * t3194 * t1396 * t365 * t727 + t1395 * t3199 * t229 * t727 + t1395 * t1396 * t505 * t727 / 0.2e1 - t3207 * t1398 / 0.2e1 - 0.4e1 / 0.27e2 * t3211 * t2 * t4 * t1549 * t3216 * t108 * t10 + 0.7e1 / 0.18e2 * t1022 * t2 * t4 * t1549 * t1554 - t1550 * t3227 * t1553 / 0.6e1 - 0.27e2 / 0.8e1 * t635 * t1384 * t1389 * t365 + 0.9e1 / 0.8e1 * t635 * t636 * t3235 * t229 + 0.9e1 / 0.8e1 * t635 * t636 * t1389 * t505 + 0.3e1 / 0.8e1 * t635 * t636 * t637 * t1155 + t3248 * t639 / 0.2e1;
1316   t3256 = t137 * t2551;
1317   t3263 = t1548 * t364;
1318   t3264 = t1547 * t3263;
1319   t3266 = t494 * t496;
1320   t3270 = t1537 * t221;
1321   t3290 = t2756 * t25;
1322   t3295 = t2764 * t25;
1323   t3305 = t1501 * t196;
1324   t3314 = t1027 * t315;
1325   t3342 = t24 * t1405;
1326   t3345 = t24 * t1408;
1327   t3348 = t24 * t1411;
1328   t3358 = -0.45e2 / 0.4096e4 * t1016 * t1018 * t1446 + 0.9e1 / 0.32e2 * t390 * t1023 * t661 - 0.3e1 / 0.2e1 * t152 * t3314 + 0.3e1 * t24 * t370 * t650 * t35 + t24 * t1000 * t311 * t35 + 0.3e1 * t24 * t380 * t650 * t35 + 0.3e1 * t24 * t147 * t1423 * t35 + 0.3e1 * t383 * t1409 + 0.15e2 / 0.131072e6 * t2682 * t2683 * t1124 * t2477 + 0.3e1 / 0.16e2 * t2715 * t28 * t315 * t380 + 0.3e1 / 0.16e2 * t3342 * t385 + 0.3e1 / 0.16e2 * t3345 * t385 + 0.3e1 / 0.8e1 * t3348 * t385 + 0.9e1 / 0.512e3 * t1415 * t1008 - 0.9e1 / 0.16e2 * t1415 * t1011 + t24 * t983 * t311 * t35;
1329   t3368 = t2655 * t110 * t1446;
1330   t3371 = t24 * t1423;
1331   t3393 = t1006 * t392 * t661;
1332   t3396 = t384 * t1533;
1333   t3403 = t24 * (0.3e1 / 0.4e1 * t18 * t477 * t142 + 0.17e2 / 0.8e1 * t18 * t477) * t35 + 0.9e1 / 0.4096e4 * t383 * t3368 + 0.3e1 / 0.16e2 * t3371 * t385 + 0.9e1 / 0.512e3 * t1426 * t1008 + 0.3e1 / 0.4096e4 * t653 * t2657 + 0.9e1 / 0.512e3 * t989 * t1438 + t2677 * t656 / 0.16e2 + 0.9e1 / 0.512e3 * t1003 * t1438 + 0.3e1 / 0.4e1 * t653 * t2728 - 0.3e1 / 0.8e1 * t989 * t1441 + t2672 * t656 / 0.16e2 - 0.3e1 / 0.8e1 * t1003 * t1441 - 0.63e2 / 0.512e3 * t383 * t3393 + 0.9e1 / 0.8e1 * t383 * t3396 - 0.9e1 / 0.16e2 * t1426 * t1011 - 0.27e2 / 0.512e3 * t653 * t2725;
1334   t3409 = t694 * t460;
1335   t3425 = t2753 * t25;
1336   t3430 = 0.219e3 / 0.800e3 * t3290 * t1522 + 0.73e2 / 0.100e3 * t1516 * t1525 - 0.73e2 / 0.320e3 * t3295 * t343 * t1103 - 0.219e3 / 0.400e3 * t1521 * t710 * t462 - 0.219e3 / 0.200e3 * t704 * t1533 * t205 - 0.73e2 / 0.64800e5 * t3305 * t205 + (t3358 + t3403) * t38 * t43 * t49 / 0.24e2 + 0.73e2 / 0.129600e6 * t3409 * t462 + 0.73e2 / 0.129600e6 * t1509 * t1106 + t100 * t537 * t315 / 0.15e2 - 0.73e2 / 0.400e3 * t1516 * t1528 + 0.73e2 / 0.200e3 * t704 * t710 * t472 - 0.73e2 / 0.1200e4 * t704 * t343 * t1115 - 0.73e2 / 0.400e3 * t3425 * t705 - 0.73e2 / 0.100e3 * t1091 * t665;
1337   t3446 = t431 * t691;
1338   t3470 = t1065 * t333;
1339   t3479 = t425 * t1498;
1340   t3504 = -0.9e1 / 0.8e1 * t173 * t3479 + 0.567e3 / 0.64e2 * t2605 * t333 * t1067 - 0.243e3 / 0.32e2 * t1066 * t684 * t446 - 0.243e3 / 0.32e2 * t1066 * t691 * t433 + 0.243e3 / 0.80e2 * t432 * t1498 * t186 + 0.243e3 / 0.80e2 * t432 * t691 * t446 + 0.81e2 / 0.80e2 * t432 * t333 * t1081 - 0.110e3 / 0.9e1 * t1265 - 0.5e1 * t1268 + 0.15e2 / 0.8e1 * t1272 - 0.45e2 / 0.16e2 * t1270;
1341   t3505 = 0.27e2 / 0.8e1 * t1276 * t3446 * t186 + 0.27e2 / 0.16e2 * t1276 * t1477 * t446 - 0.3e1 / 0.8e1 * t678 * t2599 + 0.27e2 / 0.16e2 * t2872 * t1478 - 0.27e2 / 0.40e2 * t179 * (-0.2200e4 / 0.27e2 * t1294 + 0.2000e4 / 0.27e2 * t1296 - 0.250e3 / 0.9e1 * t1298 + 0.50e2 / 0.9e1 * t327 * t1078 - 0.11000e5 / 0.243e3 * t1301) - 0.45e2 / 0.32e2 * t678 * t2592 + 0.27e2 / 0.16e2 * t678 * t2857 - 0.135e3 / 0.32e2 * t1276 * t3470 * t433 - 0.3e1 / 0.8e1 * t1051 * t681 - 0.9e1 / 0.8e1 * t422 * t1481 + t3504;
1342   t3516 = t336 * t1101;
1343   t3523 = 0.219e3 / 0.100e3 * t456 * t1453 - 0.73e2 / 0.25e2 * t197 * t3314 + 0.219e3 / 0.800e3 * t1521 * t343 * t1106 + 0.73e2 / 0.600e3 * t2736 * t316 + 0.292e3 / 0.675e3 * t191 * t1501 + 0.292e3 / 0.675e3 * t451 * t694 + 0.292e3 / 0.2025e4 * t1086 * t336 + 0.292e3 / 0.2025e4 * t74 * t3505 - 0.73e2 / 0.97200e5 * t3505 * t91 - 0.154e3 / 0.81e2 * t321 * t1042 - t1458 * t166 / 0.3e1 + 0.11e2 / 0.9e1 * t670 * t413 - 0.73e2 / 0.259200e6 * t3516 * t1103 - 0.73e2 / 0.194400e6 * t699 * t1115 - 0.73e2 / 0.64800e5 * t1506 * t472;
1344   t3532 = 0.3e1 * t1375 * t1391 + 0.3e1 / 0.2e1 * t1375 * t1402 + 0.9e1 / 0.2e1 * t635 * t3256 * t637 * t973 - 0.9e1 / 0.2e1 * t1375 * t1386 + t3264 * t1551 * t229 * t3266 / 0.3e1 - t725 * t3270 * t727 / 0.4e1 - 0.17e2 / 0.54e2 * t856 * t2 * t4 * t724 * t728 + t1381 * t1543 / 0.4e1 - 0.27e2 / 0.8e1 * t635 * t1738 * t121 * t229 * t505 - t1161 * t716 / 0.4e1 - 0.3e1 / 0.4e1 * t511 * t1539 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t3430 + t3523) * t121 + t3184 * t349 / 0.18e2;
1345   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1346     v4rho3tau[0] = t3251 + t3532;
1347 
1348   t3552 = t627 * t627;
1349   t3580 = t584 * t584;
1350   t3606 = t601 * t601;
1351   t3611 = t775 * t460;
1352   t3618 = t527 * t527;
1353   t3624 = t1604 * t1235;
1354   t3635 = t1015 * t391;
1355   t3637 = t3635 * t1022 * t913;
1356   t3667 = 0.2e1 * t24 * t3618 * t35 - 0.3e1 / 0.4e1 * t530 * t3049 - 0.15e2 / 0.256e3 * t383 * t3624 - 0.3e1 / 0.16e2 * t1581 * t1011 + t1587 * t238 * t154 * t1589 / 0.4e1 + 0.3e1 / 0.512e3 * t1003 * t1606 + 0.3e1 / 0.2048e4 * t383 * t3637 + 0.3e1 / 0.512e3 * t1581 * t1008 - t1587 * t2939 * t315 * t151 / 0.64e2 + 0.3e1 / 0.512e3 * t1593 * t1008 - t3044 * t534 / 0.8e1 - 0.3e1 / 0.128e3 * t1223 * t1236 - 0.3e1 / 0.2048e4 * t530 * t3040 + 0.3e1 / 0.512e3 * t989 * t1606 - 0.3e1 / 0.16e2 * t1593 * t1011 + t1223 * t1239 / 0.2e1 + 0.21e2 / 0.256e3 * t530 * t3064 + 0.4e1 * t383 * t1578 + 0.15e2 / 0.131072e6 * t2682 * t2660 * t1999;
1357   t3705 = t24 * t1575;
1358   t3708 = t240 * t151;
1359   t3709 = t24 * t3708;
1360   t3715 = t24 * t147 * params->BLOC_b;
1361   t3718 = t24 * t1584;
1362   t3725 = -t1003 * t753 / 0.16e2 - 0.9e1 / 0.1024e4 * t1016 * t2664 * t913 + 0.81e2 / 0.512e3 * t390 * t2668 * t395 + t383 * t1618 / 0.4e1 - t989 * t753 / 0.16e2 - 0.3e1 / 0.8e1 * t24 * t151 * t399 * t30 + 0.2e1 * t24 * t241 * t1220 + t24 * t380 * t744 * t35 + t24 * t370 * t736 * t35 + t24 * t370 * t744 * t35 + t24 * t380 * t736 * t35 - t3003 * t534 / 0.8e1 - t3006 * t534 / 0.4e1 - 0.3e1 / 0.128e3 * t1212 * t1236 + t3705 * t385 / 0.8e1 + t3709 * t527 * t25 * t210 / 0.4e1 - t3715 * t1590 / 0.4e1 + t3718 * t385 / 0.8e1 + t1212 * t1239 / 0.2e1 - t3000 * t534 / 0.8e1;
1363   t3739 = 0.584e3 / 0.2025e4 * t3580 + 0.73e2 / 0.97200e5 * t2986 * t594 + 0.73e2 / 0.97200e5 * t1183 * t1188 + 0.73e2 / 0.194400e6 * t1183 * t1191 - 0.73e2 / 0.129600e6 * t2756 * t1685 + 0.73e2 / 0.97200e5 * t1094 * t1688 - 0.73e2 / 0.259200e6 * t1102 * t782 * t472 + 0.73e2 / 0.194400e6 * t461 * t284 * t1333 + 0.73e2 / 0.194400e6 * t1094 * t1693 + 0.73e2 / 0.194400e6 * t461 * t1698 * t205 + 0.73e2 / 0.388800e6 * t461 * t787 * t472 + 0.73e2 / 0.194400e6 * t461 * t3606 - 0.73e2 / 0.97200e5 * t589 * t1333 + 0.73e2 / 0.388800e6 * t3611 * t462 - 0.73e2 / 0.48600e5 * t1321 * t601 - 0.73e2 / 0.97200e5 * t2989 * t284 + (t3667 + t3725) * t38 * t43 * t49 / 0.24e2 + 0.73e2 / 0.103680e6 * t2764 * t782 * t462 - 0.73e2 / 0.259200e6 * t1102 * t787 * t462 - 0.73e2 / 0.129600e6 * t3107 * t1315;
1364   t3740 = t1668 * t196;
1365   t3757 = t421 * t106 * t178;
1366   t3762 = t1056 * t1287;
1367   t3765 = t1056 * t1290;
1368   t3768 = t1652 * t431;
1369   t3778 = -t1267 * t1281 / 0.2e1 + 0.3e1 / 0.32e2 * t562 * t2899 - 0.45e2 / 0.16e2 * t1276 * t1065 * t767 * t186 + 0.9e1 / 0.4e1 * t1276 * t1277 * t579 - 0.25e2 / 0.64e2 * t3757 * t1655 + 0.3e1 / 0.4e1 * t1267 * t1638 - 0.9e1 / 0.32e2 * t562 * t3762 - 0.9e1 / 0.64e2 * t562 * t3765 + 0.75e2 / 0.64e2 * t3768 * t1654 * t86 * t186 + 0.25e2 / 0.6e1 * t1653 * t1654 * t201 + 0.11e2 / 0.12e2 * t2865 * t565;
1370   t3790 = t579 * t579;
1371   t3796 = t2591 * t1284;
1372   t3799 = t80 * t446;
1373   t3803 = t81 * t497;
1374   t3806 = t1066 * t1654;
1375   t3807 = t80 * t433;
1376   t3815 = 0.9e1 / 0.16e2 * t422 * t1643 + 0.567e3 / 0.64e2 * t2605 * t767 * t433 - 0.81e2 / 0.8e1 * t1066 * t568 * t579 - 0.81e2 / 0.32e2 * t1066 * t767 * t446 + 0.81e2 / 0.40e2 * t432 * t3790 + 0.81e2 / 0.40e2 * t432 * t269 * t1303 + 0.45e2 / 0.128e3 * t562 * t3796 + 0.45e2 / 0.256e3 * t1658 * t1659 * t3799 - 0.95e2 / 0.24e2 * t770 * t3803 - 0.225e3 / 0.512e3 * t3806 * t1659 * t3807 - 0.15e2 / 0.8e1 * t1658 * t201 * t78 * t1660;
1377   t3816 = t3778 + t3815;
1378   t3841 = t796 * t481;
1379   t3860 = -0.73e2 / 0.97200e5 * t3740 * t205 - 0.73e2 / 0.194400e6 * t1673 * t472 - 0.73e2 / 0.97200e5 * t3816 * t91 + 0.292e3 / 0.2025e4 * t74 * t3816 - 0.73e2 / 0.194400e6 * t197 * (0.1944e4 * t477 + 0.60800e5 / 0.9e1 * t3803) + t99 * t399 * t30 / 0.60e2 - 0.73e2 / 0.194400e6 * t1091 * t787 - 0.73e2 / 0.97200e5 * t456 * t1698 + 0.584e3 / 0.2025e4 * t191 * t1668 - 0.73e2 / 0.64800e5 * t1102 * t594 * t601 + 0.1900e4 / 0.531441e6 * t95 * t620 * t468 + 0.3e1 / 0.4e1 * t104 * t3841 + t1256 * t253 / 0.12e2 + 0.73e2 / 0.388800e6 * t2753 * t782 + 0.292e3 / 0.2025e4 * t451 * t775 + 0.584e3 / 0.2025e4 * t274 * t1308 - 0.2e1 / 0.9e1 * t1623 * t166 + 0.11e2 / 0.27e2 * t758 * t413 - 0.4e1 / 0.9e1 * t547 * t555 + 0.22e2 / 0.27e2 * t248 * t1199;
1380   t3863 = t1711 * t221;
1381   t3867 = t800 * t492;
1382   t3868 = t3867 * t494;
1383   t3902 = (t3739 + t3860) * t121 + 0.4e1 / 0.9e1 * t3863 * t115 * t226 + 0.4e1 / 0.27e2 * t3868 * t498 - 0.22e2 / 0.27e2 * t1714 * t502 - t2837 * t99 * t272 / 0.6e1 - 0.2e1 / 0.9e1 * t2842 * t622 + 0.8e1 / 0.9e1 * t1717 * t582 - 0.16e2 / 0.27e2 * t3124 * t1318 + t1348 * t1363 - 0.44e2 / 0.27e2 * t802 * t1306 + t2787 * params->e * t772 / 0.48e2 + 0.2e1 / 0.9e1 * t2794 * t1707 - 0.2e1 / 0.9e1 * t1724 * t1665 + 0.5e1 / 0.81e2 * t2804 / t46 / t2684 * t25 * t2809 - 0.43e2 / 0.27e2 * t1144 * t3841 + 0.19e2 / 0.27e2 * t805 * t3803;
1384   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1385     v4rho2sigma2[0] = t1161 * t733 / 0.6e1 - 0.3e1 * t511 * t1561 + 0.2e1 * t511 * t1565 + 0.9e1 / 0.2e1 * t136 * t138 * t2551 * t731 * t365 - 0.9e1 / 0.2e1 * t635 * t1384 * t3160 * t627 - 0.9e1 / 0.8e1 * t136 * t138 * t1559 * t505 + 0.3e1 / 0.4e1 * t136 * t138 * t364 * t3552 + 0.3e1 / 0.4e1 * t136 * t138 * t514 * t1368 - t1161 * t810 / 0.12e2 + t511 * t1572 - t511 * t1733 / 0.2e1 - 0.9e1 / 0.8e1 * t136 * t138 * t972 * t808 * t365 + 0.3e1 / 0.4e1 * t136 * t138 * t364 * t1731 * t229 + 0.3e1 / 0.8e1 * t136 * t138 * t1570 * t505 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * t3902;
1386 
1387   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1388     v4rho2sigmalapl[0] = 0.0e0;
1389 
1390   t3907 = t877 * t221;
1391   t3933 = 0.1e1 / t46 / t109;
1392   t3941 = t877 * t492;
1393   t3942 = t3941 * params->e;
1394   t3967 = t1911 * t121;
1395   t3976 = t1395 * t3907 * t229 * t727 / 0.3e1 - t3207 * t1749 / 0.6e1 + t1395 * t3199 * t301 * t727 / 0.3e1 + t1395 * t1396 * t627 * t727 / 0.3e1 - t725 * t1930 / 0.12e2 - 0.19e2 / 0.144e3 * t1550 * t1937 + t886 * t3270 * t116 / 0.32e2 + t1935 * t3227 * t1936 / 0.24e2 + t3933 * t2 * t4 * t1549 * t3216 * t292 * t10 / 0.18e2 - t1550 * t3942 * t1553 / 0.18e2 + 0.7e1 / 0.72e2 * t1381 * t887 + 0.3e1 / 0.8e1 * t635 * t636 * t3235 * t301 + 0.3e1 / 0.4e1 * t635 * t636 * t1389 * t627 + 0.3e1 / 0.8e1 * t635 * t636 * t637 * t1368 - 0.9e1 / 0.8e1 * t635 * t1384 * t1758 * t365 + t3248 * t814 / 0.6e1 + t1375 * t1760 + 0.3e1 / 0.4e1 * t635 * t636 * t3967 * t229 + 0.3e1 / 0.8e1 * t635 * t636 * t1758 * t505;
1396   t3979 = t1934 * t3263;
1397   t3985 = t1551 * t301;
1398   t3991 = t1912 * t221;
1399   t3996 = t972 * t346 * t221;
1400   t4005 = t364 * t713 * t221;
1401   t4032 = t3256 * t346;
1402   t4077 = 0.11e2 / 0.24e2 * t2865 * t681 - 0.81e2 / 0.16e2 * t1066 * t1854 * t186 - 0.81e2 / 0.16e2 * t1066 * t1857 * t186 - 0.81e2 / 0.32e2 * t1066 * t852 * t446 - 0.3e1 / 0.8e1 * t678 * t2899 - t1267 * t1481 / 0.4e1 + 0.3e1 / 0.64e2 * t562 * t3479 + 0.9e1 / 0.16e2 * t2872 * t1848 + 0.9e1 / 0.8e1 * t1276 * t3446 * t269 + 0.9e1 / 0.8e1 * t1276 * t1477 * t579 + 0.25e2 / 0.8e1 * t3757 * t1860 + 0.567e3 / 0.64e2 * t2605 * t852 * t433 + 0.195e3 / 0.16e2 * t1662 - 0.325e3 / 0.12e2 * t1656 - 0.5e1 / 0.3e1 * t1636 + 0.5e1 / 0.4e1 * t1641;
1403   t4082 = t2591 * t1484;
1404   t4085 = t1056 * t1487;
1405   t4088 = t1056 * t1490;
1406   t4091 = t3470 * t568;
1407   t4119 = 0.65e2 / 0.3e1 * t1666 - 0.15e2 / 0.8e1 * t1639 - 0.45e2 / 0.32e2 * t678 * t3796 + 0.45e2 / 0.256e3 * t562 * t4082 - 0.9e1 / 0.64e2 * t562 * t4085 - 0.9e1 / 0.128e3 * t562 * t4088 - 0.45e2 / 0.16e2 * t1276 * t4091 - 0.75e2 / 0.8e1 * t3768 * t1654 * t856 * t186 + 0.9e1 / 0.8e1 * t678 * t3762 + 0.9e1 / 0.16e2 * t678 * t3765 + 0.3e1 / 0.8e1 * t1267 * t1843 - 0.45e2 / 0.32e2 * t1658 * t1863 * t3799 + 0.225e3 / 0.64e2 * t3806 * t1863 * t3807 + 0.81e2 / 0.80e2 * t432 * t1498 * t269 + 0.81e2 / 0.40e2 * t432 * t691 * t579 + 0.81e2 / 0.80e2 * t432 * t333 * t1303;
1408   t4120 = t4077 + t4119;
1409   t4142 = 0.292e3 / 0.2025e4 * t274 * t1501 + 0.584e3 / 0.2025e4 * t584 * t694 - 0.73e2 / 0.97200e5 * t4120 * t91 + 0.292e3 / 0.2025e4 * t74 * t4120 + 0.292e3 / 0.2025e4 * t451 * t861 + 0.73e2 / 0.194400e6 * t3409 * t594 + 0.73e2 / 0.194400e6 * t1509 * t1188 + 0.73e2 / 0.388800e6 * t1509 * t1191 - t289 * t1533 / 0.30e2 + 0.73e2 / 0.100e3 * t589 * t1453 - 0.73e2 / 0.150e3 * t1321 * t665 - 0.73e2 / 0.320e3 * t3295 * t343 * t1315;
1410   t4165 = t3107 * t25;
1411   t4172 = -0.73e2 / 0.200e3 * t1521 * t710 * t594 - 0.73e2 / 0.259200e6 * t3516 * t1315 + 0.73e2 / 0.400e3 * t3290 * t1892 + 0.73e2 / 0.400e3 * t1521 * t343 * t1188 + 0.73e2 / 0.800e3 * t1521 * t343 * t1191 + 0.584e3 / 0.2025e4 * t191 * t1868 + 0.11e2 / 0.27e2 * t841 * t413 - 0.73e2 / 0.200e3 * t704 * t1533 * t284 - 0.2e1 / 0.9e1 * t1821 * t166 + 0.73e2 / 0.800e3 * t4165 * t1522 + 0.73e2 / 0.300e3 * t1885 * t1525 + 0.73e2 / 0.300e3 * t1516 * t1895;
1412   t4197 = t1234 * t1437;
1413   t4202 = t533 * t710;
1414   t4207 = t24 * (-t1215 * t820 / 0.4e1 - 0.7e1 / 0.8e1 * t1215 * t30) * t35 + 0.3e1 / 0.512e3 * t1783 * t1008 - t3371 * t534 / 0.16e2 - 0.3e1 / 0.256e3 * t1426 * t1236 - 0.3e1 / 0.4096e4 * t653 * t3040 + t989 * t1813 / 0.8e1 - t1223 * t1441 / 0.4e1 - 0.21e2 / 0.512e3 * t530 * t3393 + 0.3e1 / 0.8e1 * t530 * t3396 + 0.9e1 / 0.128e3 * t383 * t4197 - 0.3e1 / 0.512e3 * t989 * t1803 - t383 * t4202 / 0.2e1 - 0.3e1 / 0.16e2 * t1783 * t1011;
1415   t4223 = t3038 * t1022 * t1446;
1416   t4228 = t24 * t1780;
1417   t4231 = t1251 * t315;
1418   t4240 = t1426 * t1239 / 0.4e1 + 0.21e2 / 0.512e3 * t653 * t3064 - 0.3e1 / 0.8e1 * t653 * t3049 + t3044 * t656 / 0.16e2 + 0.3e1 / 0.256e3 * t1223 * t1438 + 0.3e1 / 0.4096e4 * t530 * t3368 - 0.3e1 / 0.512e3 * t1003 * t1803 - 0.3e1 / 0.2048e4 * t383 * t4223 + t1003 * t1813 / 0.8e1 + t4228 * t385 / 0.8e1 + 0.3e1 / 0.4e1 * t152 * t4231 + 0.39e2 / 0.4096e4 * t1016 * t1243 * t1446 - 0.51e2 / 0.256e3 * t390 * t1247 * t661;
1419   t4252 = t311 * t151;
1420   t4267 = t24 * t1773;
1421   t4272 = t989 * t818 - 0.15e2 / 0.131072e6 * t2682 * t3025 * t481 * t2477 + t1003 * t818 + 0.2e1 * t383 * t1765 + 0.2e1 * t383 * t1768 + t1212 * t4252 * t156 / 0.8e1 + t24 * t370 * t825 * t35 + t3003 * t656 / 0.16e2 + t3006 * t656 / 0.8e1 + 0.3e1 / 0.256e3 * t1212 * t1438 + 0.3e1 / 0.512e3 * t1770 * t1008 + t4267 * t385 / 0.8e1 - t3345 * t534 / 0.16e2;
1422   t4277 = t24 * t1764;
1423   t4280 = t24 * t1767;
1424   t4310 = -t3348 * t534 / 0.8e1 - 0.3e1 / 0.256e3 * t1415 * t1236 + t4277 * t385 / 0.8e1 + t4280 * t385 / 0.8e1 + t1415 * t1239 / 0.4e1 - t3342 * t534 / 0.16e2 - t1212 * t1441 / 0.4e1 + t3000 * t656 / 0.16e2 - 0.3e1 / 0.16e2 * t1770 * t1011 + t24 * t1220 * t311 * t35 + 0.2e1 * t24 * t527 * t650 * t35 + t24 * t240 * t1423 * t35 + t24 * t380 * t825 * t35 + 0.2e1 * t24 * t147 * t1780 * t35;
1425   t4317 = t1102 * sigma[0];
1426   t4334 = t1094 * sigma[0];
1427   t4341 = t2986 * t25;
1428   t4344 = (t4207 + t4240 + t4272 + t4310) * t38 * t43 * t49 / 0.24e2 + 0.73e2 / 0.400e3 * t4317 * t1522 + 0.73e2 / 0.150e3 * t1903 * t1525 - 0.73e2 / 0.600e3 * t1903 * t1528 + 0.292e3 / 0.2025e4 * t1308 * t336 - 0.73e2 / 0.600e3 * t1516 * t1898 + 0.73e2 / 0.300e3 * t704 * t710 * t601 - 0.73e2 / 0.1200e4 * t704 * t343 * t1333 - 0.73e2 / 0.300e3 * t4334 * t705 - 0.73e2 / 0.1200e4 * t1885 * t1528 - 0.73e2 / 0.1200e4 * t3425 * t870 - 0.73e2 / 0.600e3 * t4341 * t705;
1429   t4359 = t1868 * t196;
1430   t4370 = t861 * t460;
1431   t4373 = 0.11e2 / 0.27e2 * t320 * t1199 - 0.73e2 / 0.75e2 * t456 * t1816 + 0.73e2 / 0.50e2 * t197 * t4231 - 0.2e1 / 0.9e1 * t669 * t555 + 0.73e2 / 0.600e3 * t2989 * t316 + 0.73e2 / 0.300e3 * t1091 * t836 + t1457 * t253 / 0.24e2 - 0.73e2 / 0.97200e5 * t4359 * t205 - 0.73e2 / 0.194400e6 * t1873 * t472 - 0.73e2 / 0.194400e6 * t3305 * t284 - 0.73e2 / 0.97200e5 * t1506 * t601 - 0.73e2 / 0.194400e6 * t699 * t1333 + 0.73e2 / 0.388800e6 * t4370 * t462;
1432   t4383 = t1375 * t1745 + t1375 * t1753 - t3979 * t1552 * t81 * t229 * sigma[0] / 0.12e2 + t3264 * t3985 * t3266 / 0.9e1 + t1381 * t1918 / 0.12e2 - t725 * t3991 * t727 / 0.6e1 + 0.3e1 / 0.16e2 * t886 * t3996 * t115 * t43 * t365 + t725 * t1927 / 0.6e1 - t886 * t4005 * t1926 / 0.8e1 - t886 * t1924 * t115 * t43 * t505 / 0.16e2 - t3194 * t1396 * t3160 * t727 - 0.3e1 * t1375 * t1741 - 0.9e1 / 0.4e1 * t635 * t1384 * t713 * t1740 - 0.9e1 / 0.4e1 * t635 * t1738 * t121 * t627 * t229 - 0.9e1 / 0.8e1 * t635 * t1738 * t1739 * t505 + 0.9e1 / 0.2e1 * t635 * t4032 * t1739 * t365 - t1161 * t880 / 0.12e2 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t4142 + t4172 + t4344 + t4373) * t121 - t511 * t1914 / 0.2e1;
1433   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1434     v4rho2sigmatau[0] = t3976 + t4383;
1435 
1436   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1437     v4rho2lapl2[0] = 0.0e0;
1438 
1439   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1440     v4rho2lapltau[0] = 0.0e0;
1441 
1442   t4385 = t2078 * t121;
1443   t4404 = t713 * t713;
1444   t4418 = t1375 * t1959 + 0.3e1 / 0.4e1 * t635 * t636 * t4385 * t229 + 0.3e1 / 0.8e1 * t635 * t636 * t1957 * t505 + t1161 * t893 / 0.6e1 - 0.3e1 * t1375 * t1944 + 0.2e1 * t1375 * t1948 - 0.9e1 / 0.8e1 * t635 * t1384 * t1942 * t505 + 0.3e1 / 0.4e1 * t136 * t138 * t364 * t4404 * t492 + 0.3e1 / 0.4e1 * t635 * t636 * t1551 * t1536 - t1161 * t955 / 0.12e2 - t511 * t2081 / 0.2e1;
1445   t4419 = t938 * t460;
1446   t4422 = t2045 * t196;
1447   t4435 = t1065 * t929;
1448   t4462 = -0.3e1 / 0.4e1 * t678 * t3479 - 0.45e2 / 0.16e2 * t1276 * t4435 * t186 + 0.9e1 / 0.4e1 * t1276 * t1477 * t691 - 0.25e2 * t3757 * t2037 + 0.75e2 * t3768 * t1654 * t933 * t186 + 0.9e1 / 0.4e1 * t678 * t4085 + 0.9e1 / 0.8e1 * t678 * t4088 - 0.45e2 / 0.16e2 * t678 * t4082 + 0.45e2 / 0.4e1 * t1658 * t2040 * t3799 + 0.9e1 / 0.16e2 * t422 * t2028 + 0.567e3 / 0.64e2 * t2605 * t929 * t433;
1449   t4469 = t691 * t691;
1450   t4484 = -0.81e2 / 0.8e1 * t1066 * t684 * t691 - 0.81e2 / 0.32e2 * t1066 * t929 * t446 + 0.81e2 / 0.40e2 * t432 * t4469 + 0.81e2 / 0.40e2 * t432 * t333 * t1498 - 0.225e3 / 0.8e1 * t3806 * t2040 * t3807 + 0.5e1 / 0.2e1 * t1846 + 0.500e3 / 0.3e1 * t1861 - 0.10e2 / 0.3e1 * t1841 - 0.15e2 / 0.4e1 * t1844 - 0.75e2 * t1865 - 0.325e3 / 0.3e1 * t773;
1451   t4485 = t4462 + t4484;
1452   t4488 = t694 * t694;
1453   t4504 = t24 * t1979;
1454   t4521 = t537 * t913;
1455   t4522 = t1006 * t4521;
1456   t4527 = t384 * t2075;
1457   t4539 = t2655 * t1022 * t1999;
1458   t4542 = t650 * t650;
1459   t4546 = -0.3e1 / 0.16e2 * t1003 * t2006 + 0.3e1 / 0.512e3 * t1968 * t1008 + t4504 * t385 / 0.8e1 + 0.3e1 / 0.512e3 * t1982 * t1008 + t3371 * t656 / 0.8e1 + 0.3e1 / 0.128e3 * t1426 * t1438 + 0.3e1 / 0.2048e4 * t653 * t3368 - t1426 * t1441 / 0.2e1 - 0.21e2 / 0.256e3 * t653 * t3393 + 0.3e1 / 0.4e1 * t653 * t3396 - 0.21e2 / 0.256e3 * t383 * t4522 + 0.3e1 / 0.512e3 * t989 * t1994 + 0.3e1 / 0.4e1 * t383 * t4527 - 0.3e1 / 0.16e2 * t989 * t2006 - 0.3e1 / 0.16e2 * t1968 * t1011 - 0.3e1 / 0.16e2 * t1982 * t1011 + 0.3e1 / 0.512e3 * t1003 * t1994 + 0.3e1 / 0.2048e4 * t383 * t4539 + 0.2e1 * t24 * t4542 * t35;
1460   t4557 = 0.1e1 / t1998 / t29;
1461   t4564 = t393 * t913;
1462   t4590 = t24 * t1962;
1463   t4593 = t24 * t4252;
1464   t4598 = t24 * t1971;
1465   t4611 = t24 * (t18 * t710 * t142 / 0.2e1 + 0.3e1 / 0.2e1 * t18 * t710) * t35 + 0.15e2 / 0.131072e6 * t2682 * t2683 * t481 * t4557 - 0.21e2 / 0.2048e4 * t1016 * t1444 * t1999 + 0.123e3 / 0.512e3 * t390 * t4564 - 0.9e1 / 0.8e1 * t152 * t749 + 0.4e1 * t383 * t1965 + 0.2e1 * t24 * t147 * t1979 * t35 + t24 * t380 * t896 * t35 + 0.2e1 * t24 * t312 * t1423 + t24 * t380 * t906 * t35 + t24 * t370 * t896 * t35 + t24 * t370 * t906 * t35 + t4590 * t385 / 0.8e1 + t4593 * t650 * t25 * t210 / 0.4e1 + t4598 * t385 / 0.8e1 + t3345 * t656 / 0.8e1 + t3348 * t656 / 0.4e1 - t1415 * t1441 / 0.2e1 + t3342 * t656 / 0.8e1 + 0.3e1 / 0.128e3 * t1415 * t1438;
1466   t4617 = t3516 * t25;
1467   t4622 = t2764 * t391;
1468   t4629 = 0.73e2 / 0.388800e6 * t4419 * t462 - 0.73e2 / 0.97200e5 * t4422 * t205 - 0.73e2 / 0.194400e6 * t2050 * t472 + 0.1971e4 / 0.100e3 * t2753 * t914 - 0.73e2 / 0.200e3 * t1091 * t917 + 0.73e2 / 0.300e3 * t3305 * t316 - 0.73e2 / 0.97200e5 * t4485 * t91 + 0.584e3 / 0.2025e4 * t4488 - 0.2e1 / 0.9e1 * t2014 * t166 + 0.11e2 / 0.27e2 * t922 * t413 - 0.219e3 / 0.800e3 * t1521 * t949 * t462 - 0.73e2 / 0.100e3 * t704 * t2075 * t205 + (t4546 + t4611) * t38 * t43 * t49 / 0.24e2 + 0.73e2 / 0.400e3 * t4617 * t1522 + 0.73e2 / 0.150e3 * t2055 * t1525 + 0.5913e4 / 0.80e2 * t4622 * t1993 * t462 + 0.5913e4 / 0.25e2 * t2062 * t4521 * t205;
1469   t4648 = t2756 * t391;
1470   t4651 = t3409 * t25;
1471   t4668 = 0.584e3 / 0.2025e4 * t336 * t1501 + 0.292e3 / 0.2025e4 * t74 * t4485 + 0.584e3 / 0.2025e4 * t191 * t2045 + 0.292e3 / 0.2025e4 * t451 * t938 - 0.5913e4 / 0.200e3 * t2062 * t1993 * t472 + 0.73e2 / 0.200e3 * t1516 * t2070 + 0.73e2 / 0.400e3 * t704 * t949 * t472 - 0.73e2 / 0.600e3 * t2055 * t1528 - 0.5913e4 / 0.100e3 * t4648 * t2063 - 0.73e2 / 0.300e3 * t4651 * t705 + 0.73e2 / 0.50e2 * t456 * t2009 - 0.219e3 / 0.100e3 * t197 * t749 + 0.73e2 / 0.50e2 * t699 * t1453 - 0.3942e4 / 0.25e2 * t1094 * t2003 + 0.1971e4 / 0.5e1 * t461 * t4564 - 0.73e2 / 0.75e2 * t1506 * t665 + t100 * t1605 / 0.20e2;
1472   t4675 = t952 * t492;
1473   t4676 = t4675 * params->e;
1474   t4680 = t890 * t2441;
1475   t4681 = t4680 * params->e;
1476   t4689 = t2079 * t221;
1477   t4706 = t952 * t221;
1478   t4711 = t890 * t1141;
1479   t4720 = -0.3e1 / 0.16e2 * t136 * t138 * t140 * (t4629 + t4668) * t121 - t1550 * t4676 * t1553 / 0.18e2 + 0.10e2 / 0.27e2 * t3264 * t4681 * t1553 - t1381 * t1952 / 0.3e1 + t1381 * t2085 / 0.12e2 - t725 * t4689 * t727 / 0.6e1 - 0.9e1 / 0.8e1 * t635 * t1384 * t1957 * t365 + 0.9e1 / 0.2e1 * t635 * t3256 * t1942 * t365 - 0.9e1 / 0.2e1 * t635 * t1738 * t492 * t229 * t713 + t1395 * t4706 * t229 * t727 / 0.3e1 - 0.2e1 * t3194 * t4711 * t229 * t727 + 0.4e1 / 0.3e1 * t1395 * t3215 * t713 * t727;
1480   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1481     v4rho2tau2[0] = t4418 + t4720;
1482 
1483   t4783 = t106 * t214;
1484   t4786 = t1622 * t253 / 0.8e1 - 0.73e2 / 0.86400e5 * t1102 * t2162 * t205 - 0.73e2 / 0.64800e5 * t1321 * t787 - 0.73e2 / 0.64800e5 * t589 * t1698 - 0.73e2 / 0.259200e6 * t2756 * t2159 + 0.73e2 / 0.64800e5 * t1183 * t1688 + 0.73e2 / 0.129600e6 * t1183 * t1693 + 0.73e2 / 0.103680e6 * t2764 * t2159 * t205 - 0.73e2 / 0.86400e5 * t1102 * t782 * t601 + 0.73e2 / 0.129600e6 * t1094 * t2162 + 0.73e2 / 0.129600e6 * t461 * t601 * t787 + 0.73e2 / 0.129600e6 * t461 * t284 * t1698 - t104 * t4783 / 0.12e2;
1485   t4795 = t2591 * t1646;
1486   t4798 = t1056 * t1649;
1487   t4804 = t431 * params->b * t186;
1488   t4807 = t2591 * t2141;
1489   t4820 = t81 * t186;
1490   t4821 = t771 * t4820;
1491   t4830 = 0.9e1 / 0.16e2 * t1267 * t1643 + 0.135e3 / 0.256e3 * t562 * t4795 - 0.27e2 / 0.64e2 * t562 * t4798 - 0.75e2 / 0.32e2 * t4783 * t2138 - 0.225e3 / 0.512e3 * t2137 * t4804 - 0.45e2 / 0.32e2 * t173 * t4807 + 0.567e3 / 0.64e2 * t2605 * t2141 * t186 - 0.243e3 / 0.32e2 * t1066 * t767 * t579 + 0.225e3 / 0.128e3 * t3768 * t2144 * t771 - 0.675e3 / 0.512e3 * t1066 * t2144 * t4821 + 0.135e3 / 0.256e3 * t432 * t579 * params->b * t772 - 0.45e2 / 0.16e2 * t2145 * t1665;
1492   t4839 = t2148 * t196;
1493   t4860 = params->BLOC_b * t238;
1494   t4884 = 0.3e1 * t24 * t737 * t527 + t24 * t147 * t2097 * t35 + 0.3e1 * t24 * t528 * t744 + t24 * t147 * t2111 * t35 + 0.9e1 / 0.512e3 * t1212 * t1606 + 0.3e1 / 0.16e2 * t3709 * t744 * t25 * t210 - 0.3e1 / 0.8e1 * t242 * t4860 * t141 - 0.3e1 / 0.8e1 * t3709 * t243 * t30 * t527 - 0.3e1 / 0.16e2 * t3705 * t534 - 0.3e1 / 0.16e2 * t3718 * t534 + 0.3e1 * t383 * t2100 + 0.3e1 / 0.128e3 * t1587 * t1533 * t151 - 0.3e1 / 0.16e2 * t1223 * t753 - 0.15e2 / 0.131072e6 * t2682 * t3019 * t1999 + 0.3e1 / 0.8e1 * t530 * t1618;
1495   t4891 = t24 * t2097;
1496   t4900 = t24 * t2111;
1497   t4914 = t1015 * t107 * t392 * t913;
1498   t4918 = t389 * sigma[0] * t1605;
1499   t4927 = 0.27e2 / 0.4096e4 * t1016 * t3013 * t913 - 0.9e1 / 0.128e3 * t390 * t2939 * t395 + t4891 * t385 / 0.16e2 - 0.9e1 / 0.512e3 * t1581 * t1236 + t1587 * t742 * t27 * t1589 / 0.8e1 + t4900 * t385 / 0.16e2 - 0.9e1 / 0.512e3 * t1593 * t1236 + 0.9e1 / 0.512e3 * t1223 * t1606 + 0.9e1 / 0.4096e4 * t530 * t3637 - 0.3e1 / 0.16e2 * t383 * t3708 * t101 - 0.3e1 / 0.4096e4 * t383 * t4914 + 0.9e1 / 0.512e3 * t383 * t4918 + 0.3e1 / 0.8e1 * t1593 * t1239 - 0.45e2 / 0.512e3 * t530 * t3624 + 0.3e1 / 0.8e1 * t1581 * t1239;
1500   t4943 = -0.73e2 / 0.64800e5 * t3740 * t284 - 0.73e2 / 0.64800e5 * t1673 * t601 - t757 * t555 / 0.3e1 - 0.73e2 / 0.97200e5 * t4830 * t91 + 0.292e3 / 0.2025e4 * t191 * t2148 + 0.292e3 / 0.675e3 * t274 * t1668 + 0.292e3 / 0.675e3 * t584 * t775 - 0.73e2 / 0.194400e6 * t4839 * t205 + (t4884 + t4927) * t38 * t43 * t49 / 0.24e2 - t2128 * t166 / 0.9e1 + 0.292e3 / 0.2025e4 * t74 * t4830 + 0.73e2 / 0.129600e6 * t3611 * t594 - 0.73e2 / 0.86400e5 * t3107 * t1685 + 0.73e2 / 0.129600e6 * t2986 * t782;
1501   t4946 = t2167 * t221;
1502   t4976 = (t4786 + t4943) * t121 + 0.2e1 / 0.9e1 * t4946 * t115 * t226 - t3863 * t99 * t272 / 0.4e1 - t3868 * t622 / 0.6e1 + 0.2e1 / 0.3e1 * t2169 * t582 + t2841 * params->e * t772 / 0.16e2 + t3124 * t1707 / 0.3e1 - t2172 * t1665 / 0.3e1 - t2793 * t2176 / 0.24e2 - 0.5e1 / 0.216e3 * t2804 / t46 / t1123 * t38 * t224 * t10 + t1142 * t2175 * t214 / 0.3e1;
1503   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1504     v4rhosigma3[0] = -0.3e1 / 0.2e1 * t511 * t2090 + 0.9e1 / 0.2e1 * t136 * t138 * t2551 * t2088 * t229 - 0.27e2 / 0.8e1 * t136 * t138 * t1559 * t627 + 0.3e1 / 0.2e1 * t511 * t2094 - 0.27e2 / 0.8e1 * t635 * t1384 * t301 * t808 * t229 + 0.9e1 / 0.8e1 * t136 * t138 * t1172 * t808 + 0.9e1 / 0.8e1 * t136 * t138 * t514 * t1731 - t511 * t2181 / 0.4e1 + 0.3e1 / 0.8e1 * t136 * t138 * t364 * t2179 * t229 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * t4976;
1505 
1506   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1507     v4rhosigma2lapl[0] = 0.0e0;
1508 
1509   t5004 = t2308 * t4 * t3263;
1510   t5010 = 0.1e1 / t46 / t466;
1511   t5041 = 0.3e1 / 0.8e1 * t885 * t3193 * t1748 * t1926 + t1395 * t1396 * t808 * t727 / 0.6e1 - t3194 * t1396 * t731 * t727 / 0.2e1 + t1395 * t3907 * t301 * t727 / 0.3e1 + t886 * t3991 * t116 / 0.16e2 + t1935 * t3942 * t1936 / 0.24e2 + t5004 * t1552 * t81 * t229 / 0.64e2 - t5010 * t2 * t4 * t1549 * t3216 * t796 * t10 / 0.48e2 - t725 * t2305 / 0.12e2 + t1375 * t2198 / 0.2e1 - 0.3e1 / 0.2e1 * t1375 * t2185 + t1375 * t2189 - 0.9e1 / 0.8e1 * t635 * t1384 * t1389 * t731 + 0.3e1 / 0.4e1 * t635 * t636 * t3967 * t301 + 0.3e1 / 0.4e1 * t635 * t636 * t1758 * t627 + 0.3e1 / 0.8e1 * t635 * t636 * t1389 * t808;
1512   t5046 = t2299 * t121;
1513   t5075 = t1820 * t253 / 0.12e2 - 0.73e2 / 0.400e3 * t1521 * t710 * t782 + 0.73e2 / 0.150e3 * t1903 * t1895 + 0.73e2 / 0.600e3 * t704 * t710 * t787 - t2242 * t166 / 0.9e1 + 0.73e2 / 0.300e3 * t1885 * t1895 - 0.73e2 / 0.97200e5 * t1873 * t601 + 0.73e2 / 0.388800e6 * t3409 * t782 - 0.73e2 / 0.194400e6 * t1506 * t787 - 0.73e2 / 0.194400e6 * t699 * t1698 + t1704 * t315 / 0.90e2;
1514   t5088 = t1056 * t1854;
1515   t5091 = t1056 * t1857;
1516   t5111 = t2262 * t186;
1517   t5116 = t80 * t579;
1518   t5123 = t1066 * t2266;
1519   t5127 = t432 * t691 * params->b;
1520   t5132 = 0.567e3 / 0.64e2 * t2605 * t2259 * t186 - 0.81e2 / 0.32e2 * t1066 * t691 * t767 - 0.81e2 / 0.16e2 * t1066 * t852 * t579 - 0.75e2 / 0.8e1 * t3768 * t1654 * t856 * t269 + 0.225e3 / 0.32e2 * t3806 * t1863 * t5111 + 0.195e3 / 0.16e2 * t2146 - 0.45e2 / 0.16e2 * t1658 * t1863 * t5116 + 0.75e2 / 0.128e3 * t3768 * t2266 * t771 - 0.225e3 / 0.512e3 * t5123 * t4821 + 0.45e2 / 0.256e3 * t5127 * t772 - 0.15e2 / 0.16e2 * t2267 * t1665;
1521   t5133 = -0.15e2 / 0.16e2 * t2135 - 0.45e2 / 0.32e2 * t678 * t4795 + 0.9e1 / 0.8e1 * t678 * t4798 + 0.525e3 / 0.32e2 * t2139 + 0.225e3 / 0.64e2 * t2253 * t4804 + 0.3e1 / 0.8e1 * t1267 * t2256 + 0.45e2 / 0.128e3 * t272 * t4091 - 0.9e1 / 0.64e2 * t562 * t5088 - 0.9e1 / 0.64e2 * t562 * t5091 - 0.45e2 / 0.32e2 * t1276 * t3470 * t767 + t5132;
1522   t5154 = t2270 * t196;
1523   t5159 = -0.73e2 / 0.97200e5 * t5133 * t91 - 0.73e2 / 0.75e2 * t589 * t1816 - 0.73e2 / 0.300e3 * t1673 * t665 - 0.2e1 / 0.9e1 * t840 * t555 + 0.584e3 / 0.2025e4 * t584 * t861 + 0.292e3 / 0.2025e4 * t775 * t694 + 0.292e3 / 0.2025e4 * t1668 * t336 + 0.292e3 / 0.2025e4 * t74 * t5133 + 0.584e3 / 0.2025e4 * t274 * t1868 + 0.292e3 / 0.2025e4 * t191 * t2270 - 0.73e2 / 0.194400e6 * t5154 * t205 - 0.73e2 / 0.150e3 * t197 * t710;
1524   t5184 = t24 * t2207;
1525   t5199 = 0.2e1 * t24 * t240 * t1780 * t35 + t24 * t736 * t650 * t35 + t24 * t744 * t650 * t35 + 0.2e1 * t24 * t527 * t825 * t35 - t24 * t1617 * t315 / 0.4e1 + t1770 * t1239 / 0.4e1 + t5184 * t385 / 0.8e1 - t4277 * t534 / 0.8e1 - t4280 * t534 / 0.8e1 - 0.3e1 / 0.256e3 * t1770 * t1236 + t1212 * t1813 / 0.4e1 - t3715 * t2214 / 0.8e1 - t4267 * t534 / 0.8e1;
1526   t5212 = t24 * t2201;
1527   t5219 = t24 * t2204;
1528   t5227 = t1604 * t1802;
1529   t5232 = t4252 * t101;
1530   t5235 = 0.3e1 / 0.512e3 * t1415 * t1606 + t3709 * t28 * t315 * t527 / 0.8e1 + t3705 * t656 / 0.16e2 + t3718 * t656 / 0.16e2 - 0.3e1 / 0.256e3 * t1212 * t1803 + t5212 * t385 / 0.16e2 - t24 * t4860 * t141 * t312 / 0.8e1 + t5219 * t385 / 0.16e2 - t530 * t4202 / 0.2e1 + t1587 * t101 * t2213 / 0.8e1 - 0.15e2 / 0.512e3 * t383 * t5227 + 0.3e1 / 0.4096e4 * t653 * t3637 - t383 * t5232 / 0.16e2;
1531   t5248 = t3635 * t392 * t1446;
1532   t5266 = 0.3e1 / 0.512e3 * t1581 * t1438 + 0.3e1 / 0.512e3 * t1593 * t1438 - 0.3e1 / 0.256e3 * t1223 * t1803 - 0.3e1 / 0.2048e4 * t530 * t4223 + t1223 * t1813 / 0.4e1 + 0.3e1 / 0.4096e4 * t383 * t5248 - t1587 * t1605 * t533 / 0.64e2 - t4228 * t534 / 0.8e1 - 0.3e1 / 0.256e3 * t1783 * t1236 + 0.3e1 / 0.512e3 * t1426 * t1606 + t1783 * t1239 / 0.4e1 - 0.15e2 / 0.512e3 * t653 * t3624 - t1581 * t1441 / 0.8e1;
1533   t5295 = -t1593 * t1441 / 0.8e1 + 0.9e1 / 0.128e3 * t530 * t4197 + 0.33e2 / 0.256e3 * t390 * t1027 * t661 + t653 * t1618 / 0.8e1 - 0.33e2 / 0.4096e4 * t1016 * t1023 * t1446 + t383 * t2237 / 0.8e1 + 0.2e1 * t530 * t1765 + t383 * t2202 + t383 * t2205 + 0.2e1 * t383 * t2208 - t1426 * t753 / 0.16e2 + 0.15e2 / 0.131072e6 * t2682 * t1018 * t2477 - t1212 * t4252 * t244 / 0.8e1;
1534   t5322 = -0.73e2 / 0.600e3 * t461 * t705 + 0.73e2 / 0.150e3 * t1321 * t836 + (t5199 + t5235 + t5266 + t5295) * t38 * t43 * t49 / 0.24e2 + 0.73e2 / 0.600e3 * t3740 * t316 - 0.73e2 / 0.259200e6 * t3516 * t1685 + 0.73e2 / 0.194400e6 * t1509 * t1688 + 0.73e2 / 0.388800e6 * t1509 * t1693 + 0.73e2 / 0.300e3 * t456 * t343 + 0.73e2 / 0.400e3 * t4165 * t1892 - 0.73e2 / 0.320e3 * t3295 * t343 * t1685 + 0.73e2 / 0.400e3 * t1521 * t343 * t1688 + 0.73e2 / 0.200e3 * t4317 * t1892;
1535   t5330 = t3611 * t25;
1536   t5337 = t1183 * sigma[0];
1537   t5351 = 0.73e2 / 0.194400e6 * t4370 * t594 - 0.73e2 / 0.97200e5 * t4359 * t284 + 0.73e2 / 0.800e3 * t1521 * t343 * t1693 - 0.73e2 / 0.1200e4 * t5330 * t705 - 0.73e2 / 0.600e3 * t4341 * t870 - 0.73e2 / 0.600e3 * t1885 * t1898 - 0.73e2 / 0.300e3 * t5337 * t705 + 0.73e2 / 0.800e3 * t3290 * t2287 - 0.73e2 / 0.300e3 * t4334 * t870 - 0.73e2 / 0.300e3 * t1903 * t1898 - 0.73e2 / 0.1200e4 * t1516 * t2292 - 0.73e2 / 0.1200e4 * t704 * t343 * t1698;
1538   t5362 = t364 * t877 * t221;
1539   t5379 = t2300 * t221;
1540   t5410 = 0.3e1 / 0.8e1 * t635 * t636 * t637 * t1731 + 0.3e1 / 0.8e1 * t635 * t636 * t5046 * t229 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t5075 + t5159 + t5322 + t5351) * t121 - t511 * t2302 / 0.4e1 - t886 * t5362 * t1926 / 0.8e1 - t886 * t4005 * t2193 / 0.8e1 - t886 * t1924 * t627 * t99 * t63 / 0.8e1 - t3979 * t3985 * t494 * t80 * sigma[0] / 0.12e2 - t725 * t5379 * t727 / 0.12e2 + t725 * t2194 / 0.6e1 + t1933 * t2309 * t2313 / 0.32e2 - t2310 * t714 * t492 * t2312 / 0.128e3 - 0.9e1 / 0.4e1 * t635 * t1384 * t877 * t1740 - 0.9e1 / 0.8e1 * t635 * t1738 * t121 * t808 * t229 + 0.9e1 / 0.2e1 * t635 * t4032 * t121 * t731 * t229 - 0.9e1 / 0.4e1 * t635 * t1738 * t1739 * t627;
1541   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1542     v4rhosigma2tau[0] = t5041 + t5410;
1543 
1544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1545     v4rhosigmalapl2[0] = 0.0e0;
1546 
1547   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1548     v4rhosigmalapltau[0] = 0.0e0;
1549 
1550   t5451 = t1395 * t4706 * t301 * t727 / 0.6e1 - t3194 * t4711 * t301 * t727 + 0.2e1 / 0.3e1 * t1395 * t3215 * t877 * t727 + t886 * t4689 * t116 / 0.32e2 + t1935 * t4676 * t1936 / 0.48e2 - 0.5e1 / 0.36e2 * t3979 * t4681 * t1936 - t725 * t2435 / 0.24e2 + t725 * t2324 / 0.6e1 + 0.3e1 / 0.4e1 * t635 * t636 * t1551 * t1911 + 0.3e1 / 0.8e1 * t635 * t636 * t4385 * t301 + 0.3e1 / 0.8e1 * t635 * t636 * t1957 * t627 + t1375 * t2328 / 0.2e1 - 0.3e1 / 0.2e1 * t1375 * t2317;
1551   t5453 = t2429 * t121;
1552   t5480 = t24 * t2331;
1553   t5493 = t24 * t2339;
1554   t5504 = -0.3e1 / 0.256e3 * t1415 * t1803 + t1415 * t1813 / 0.4e1 + 0.3e1 / 0.512e3 * t1212 * t1994 - 0.3e1 / 0.16e2 * t1212 * t2006 + t5480 * t385 / 0.16e2 + t4593 * t825 * t25 * t210 / 0.8e1 - t4593 * t243 * t30 * t650 / 0.8e1 - t4590 * t534 / 0.16e2 + t5493 * t385 / 0.16e2 - t4598 * t534 / 0.16e2 + t4277 * t656 / 0.8e1 + t4280 * t656 / 0.8e1 + 0.3e1 / 0.256e3 * t1770 * t1438;
1555   t5509 = t538 * t913;
1556   t5512 = t542 * t395;
1557   t5534 = t4267 * t656 / 0.8e1 - t1770 * t1441 / 0.4e1 - 0.51e2 / 0.256e3 * t390 * t5509 + 0.3e1 / 0.4e1 * t152 * t5512 + 0.2e1 * t530 * t1965 + t383 * t2332 + 0.2e1 * t383 * t2334 + t383 * t2340 - 0.15e2 / 0.131072e6 * t2682 * t3025 * t214 * t4557 + 0.39e2 / 0.4096e4 * t1016 * t1806 * t1999 + t1968 * t1239 / 0.8e1 + t1982 * t1239 / 0.8e1 - t1783 * t1441 / 0.4e1;
1558   t5540 = t24 * t2347;
1559   t5562 = t3038 * t392 * t1999;
1560   t5565 = 0.9e1 / 0.128e3 * t653 * t4197 - 0.3e1 / 0.512e3 * t1968 * t1236 + t5540 * t385 / 0.16e2 - t4504 * t534 / 0.16e2 - 0.3e1 / 0.512e3 * t1982 * t1236 + t4228 * t656 / 0.8e1 + 0.3e1 / 0.256e3 * t1783 * t1438 - 0.3e1 / 0.256e3 * t1426 * t1803 - 0.3e1 / 0.2048e4 * t653 * t4223 + t1426 * t1813 / 0.4e1 + 0.3e1 / 0.512e3 * t1223 * t1994 + 0.3e1 / 0.4096e4 * t530 * t4539 - 0.3e1 / 0.4096e4 * t383 * t5562;
1561   t5566 = t1234 * t1993;
1562   t5571 = t533 * t949;
1563   t5608 = 0.21e2 / 0.512e3 * t383 * t5566 - 0.3e1 / 0.16e2 * t1223 * t2006 - 0.3e1 / 0.8e1 * t383 * t5571 - t653 * t4202 / 0.2e1 - 0.21e2 / 0.512e3 * t530 * t4522 + 0.3e1 / 0.8e1 * t530 * t4527 + t1212 * t4252 * t316 / 0.8e1 + t24 * (-t522 * t2342 / 0.4e1 - 0.7e1 / 0.8e1 * t522 * t315) * t35 + t24 * t527 * t896 * t35 + 0.2e1 * t24 * t651 * t825 + 0.2e1 * t24 * t312 * t1780 + t24 * t527 * t906 * t35 + t24 * t240 * t1979 * t35 + t24 * t147 * t2347 * t35;
1564   t5619 = t1509 * sigma[0];
1565   t5622 = t4370 * t25;
1566   t5635 = -t921 * t555 / 0.9e1 - 0.73e2 / 0.150e3 * t1873 * t665 + (t5504 + t5534 + t5565 + t5608) * t38 * t43 * t49 / 0.24e2 - 0.73e2 / 0.600e3 * t4651 * t870 - 0.73e2 / 0.600e3 * t2055 * t1898 - 0.73e2 / 0.300e3 * t5619 * t705 - 0.73e2 / 0.600e3 * t5622 * t705 + 0.73e2 / 0.300e3 * t2055 * t1895 + 0.5913e4 / 0.50e2 * t2062 * t4521 * t284 - 0.73e2 / 0.200e3 * t704 * t2075 * t284 - t2376 * t166 / 0.9e1;
1567   t5655 = t3107 * t391;
1568   t5663 = 0.73e2 / 0.100e3 * t589 * t2009 + 0.73e2 / 0.50e2 * t197 * t5512 - 0.73e2 / 0.75e2 * t699 * t1816 - 0.1971e4 / 0.25e2 * t1183 * t2003 - 0.7884e4 / 0.25e2 * t461 * t5509 + 0.73e2 / 0.400e3 * t1885 * t2070 + 0.73e2 / 0.400e3 * t1516 * t2422 + 0.73e2 / 0.400e3 * t704 * t949 * t601 + 0.73e2 / 0.200e3 * t1903 * t2070 - 0.5913e4 / 0.200e3 * t5655 * t2063 - 0.5913e4 / 0.200e3 * t4648 * t2415 - 0.5913e4 / 0.200e3 * t2062 * t1993 * t601;
1569   t5665 = t1102 * t107;
1570   t5690 = -0.5913e4 / 0.50e2 * t5665 * t2063 + 0.73e2 / 0.400e3 * t4617 * t1892 + 0.5913e4 / 0.80e2 * t4622 * t1993 * t594 - 0.219e3 / 0.800e3 * t1521 * t949 * t594 + 0.1971e4 / 0.100e3 * t2986 * t914 + 0.1971e4 / 0.25e2 * t1094 * t2366 - 0.73e2 / 0.200e3 * t1321 * t917 - 0.73e2 / 0.100e3 * t456 * t2371 + 0.73e2 / 0.300e3 * t4359 * t316 + 0.73e2 / 0.150e3 * t1506 * t836 + 0.73e2 / 0.388800e6 * t4419 * t594;
1571   t5708 = t2591 * t2031;
1572   t5711 = t1056 * t2034;
1573   t5747 = 0.567e3 / 0.64e2 * t2605 * t2392 * t186 - 0.81e2 / 0.16e2 * t1066 * t852 * t691 - 0.81e2 / 0.32e2 * t1066 * t929 * t579 - 0.75e2 / 0.8e1 * t3768 * t2266 * t857 + 0.225e3 / 0.32e2 * t5123 * t857 * t4820 - 0.45e2 / 0.16e2 * t5127 * t858 + 0.195e3 / 0.16e2 * t2268 + 0.75e2 / 0.2e1 * t3768 * t1654 * t933 * t269 - 0.225e3 / 0.8e1 * t3806 * t2040 * t5111 - 0.75e2 / 0.2e1 * t2264 + 0.45e2 / 0.4e1 * t1658 * t2040 * t5116;
1574   t5748 = -0.15e2 / 0.8e1 * t2257 - 0.45e2 / 0.16e2 * t324 * t63 * t4091 + 0.9e1 / 0.8e1 * t678 * t5088 + 0.9e1 / 0.8e1 * t678 * t5091 - 0.225e3 / 0.2e1 * t2254 - 0.225e3 / 0.8e1 * t2387 * t4804 + 0.3e1 / 0.16e2 * t1267 * t2028 + 0.45e2 / 0.256e3 * t562 * t5708 - 0.9e1 / 0.64e2 * t562 * t5711 - 0.45e2 / 0.32e2 * t1276 * t4435 * t269 + t5747;
1575   t5753 = t2400 * t196;
1576   t5770 = -t289 * t2075 / 0.30e2 + t2013 * t253 / 0.24e2 - 0.73e2 / 0.97200e5 * t5748 * t91 + 0.292e3 / 0.2025e4 * t74 * t5748 - 0.73e2 / 0.194400e6 * t5753 * t205 - 0.73e2 / 0.194400e6 * t4422 * t284 - 0.73e2 / 0.194400e6 * t2050 * t601 + 0.292e3 / 0.2025e4 * t191 * t2400 + 0.292e3 / 0.2025e4 * t274 * t2045 + 0.292e3 / 0.2025e4 * t584 * t938 + 0.584e3 / 0.2025e4 * t336 * t1868 + 0.584e3 / 0.2025e4 * t694 * t861;
1577   t5778 = t1923 * t1141;
1578   t5784 = t2430 * t221;
1579   t5789 = t364 * t952 * t221;
1580   t5794 = t972 * t890 * t1141;
1581   t5803 = t492 * t301;
1582   t5816 = t1375 * t2321 + 0.3e1 / 0.8e1 * t635 * t636 * t5453 * t229 - 0.9e1 / 0.8e1 * t635 * t1384 * t1942 * t627 + 0.3e1 / 0.4e1 * t635 * t636 * t3226 * t877 - t511 * t2432 / 0.4e1 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t5635 + t5663 + t5690 + t5770) * t121 - t886 * t5778 * t115 * t43 * t713 / 0.4e1 - t725 * t5784 * t727 / 0.12e2 - t886 * t5789 * t1926 / 0.16e2 + 0.3e1 / 0.8e1 * t886 * t5794 * t1926 - 0.9e1 / 0.8e1 * t635 * t1384 * t952 * t1740 + 0.9e1 / 0.2e1 * t635 * t3256 * t890 * t5803 * t229 - 0.9e1 / 0.4e1 * t635 * t1738 * t5803 * t713 - 0.9e1 / 0.4e1 * t635 * t1738 * t3941 * t229;
1583   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1584     v4rhosigmatau2[0] = t5451 + t5816;
1585 
1586   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1587     v4rholapl3[0] = 0.0e0;
1588 
1589   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1590     v4rholapl2tau[0] = 0.0e0;
1591 
1592   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1593     v4rholapltau2[0] = 0.0e0;
1594 
1595   t5819 = t2438 * t2441;
1596   t5830 = t2439 / t491 / t220;
1597   t5853 = t2524 * t121;
1598   t5864 = t1997 * t2477;
1599   t5867 = t659 * t1446;
1600   t5870 = t155 * t661;
1601   t5877 = 0.1e1 / t1998 / t314;
1602   t5900 = t24 * t2466;
1603   t5909 = 0.3e1 * t24 * t312 * t1979 + t24 * t147 * t2466 * t35 - 0.45e2 / 0.4096e4 * t1016 * t5864 + 0.9e1 / 0.32e2 * t390 * t5867 - 0.3e1 / 0.2e1 * t152 * t5870 + 0.3e1 * t383 * t2453 + 0.15e2 / 0.131072e6 * t2682 * t2683 * t214 * t5877 + 0.3e1 * t24 * t897 * t650 + t24 * t147 * t2450 * t35 + 0.3e1 * t24 * t651 * t906 + t24 * (0.3e1 / 0.4e1 * t18 * t949 * t142 + 0.17e2 / 0.8e1 * t18 * t949) * t35 + 0.9e1 / 0.512e3 * t1968 * t1438 + t5900 * t385 / 0.16e2 + 0.3e1 / 0.16e2 * t4504 * t656 + 0.9e1 / 0.512e3 * t1982 * t1438 + 0.9e1 / 0.512e3 * t1426 * t1994;
1604   t5914 = t392 * t2477;
1605   t5915 = t2655 * t5914;
1606   t5918 = t399 * t1446;
1607   t5919 = t1006 * t5918;
1608   t5922 = t384 * t2521;
1609   t5925 = t24 * t2450;
1610   t5944 = t906 * t25;
1611   t5952 = 0.9e1 / 0.4096e4 * t653 * t4539 - 0.9e1 / 0.16e2 * t1426 * t2006 + 0.3e1 / 0.4096e4 * t383 * t5915 - 0.27e2 / 0.512e3 * t383 * t5919 + 0.3e1 / 0.4e1 * t383 * t5922 + t5925 * t385 / 0.16e2 - 0.3e1 / 0.8e1 * t1968 * t1441 - 0.3e1 / 0.8e1 * t1982 * t1441 - 0.63e2 / 0.512e3 * t653 * t4522 + 0.9e1 / 0.8e1 * t653 * t4527 + 0.3e1 / 0.16e2 * t4590 * t656 + 0.3e1 / 0.16e2 * t4598 * t656 + 0.9e1 / 0.512e3 * t1415 * t1994 - 0.9e1 / 0.16e2 * t1415 * t2006 + 0.3e1 / 0.16e2 * t4593 * t5944 * t210 + 0.3e1 / 0.8e1 * t4593 * t28 * t315 * t650;
1612   t5978 = t2764 * t1017;
1613   t5982 = t4419 * t25;
1614   t5985 = t3516 * t391;
1615   t5988 = (t5909 + t5952) * t38 * t43 * t49 / 0.24e2 + 0.53217e5 / 0.200e3 * t2062 * t5918 * t205 - 0.73e2 / 0.100e3 * t704 * t2521 * t205 - 0.73e2 / 0.25e2 * t197 * t5870 - 0.5913e4 / 0.25e2 * t1509 * t2003 + 0.219e3 / 0.100e3 * t699 * t2009 - 0.1436859e7 / 0.25e2 * t1102 * t5864 + 0.17739e5 / 0.25e2 * t461 * t5867 - 0.73e2 / 0.100e3 * t2050 * t665 + 0.219e3 / 0.400e3 * t2055 * t2070 - 0.478953e6 / 0.20e2 * t5978 * t5914 * t205 - 0.73e2 / 0.400e3 * t5982 * t705 - 0.17739e5 / 0.200e3 * t5985 * t2063;
1616   t6015 = t2591 * t2499;
1617   t6033 = -0.45e2 / 0.16e2 * t2390 - 0.135e3 / 0.32e2 * t678 * t5708 + 0.27e2 / 0.8e1 * t678 * t5711 + 0.750e3 * t2388 + 0.225e3 * t2496 * t4804 - 0.45e2 / 0.32e2 * t173 * t6015 + 0.567e3 / 0.64e2 * t2605 * t2499 * t186 - 0.243e3 / 0.32e2 * t1066 * t929 * t691 + 0.225e3 / 0.2e1 * t3768 * t2266 * t934 - 0.675e3 / 0.8e1 * t5123 * t934 * t4820 + 0.135e3 / 0.4e1 * t5127 * t935 - 0.225e3 / 0.2e1 * t2395;
1618   t6040 = t154 * t661;
1619   t6043 = t2504 * t196;
1620   t6046 = -t2489 * t166 / 0.9e1 + 0.73e2 / 0.50e2 * t456 * t2484 - 0.219e3 / 0.200e3 * t1506 * t917 + 0.478953e6 / 0.50e2 * t2756 * t2478 - 0.17739e5 / 0.100e3 * t1094 * t2481 + 0.5913e4 / 0.100e3 * t3409 * t914 + 0.292e3 / 0.2025e4 * t191 * t2504 + 0.292e3 / 0.675e3 * t336 * t2045 + 0.292e3 / 0.675e3 * t694 * t938 - 0.73e2 / 0.97200e5 * t6033 * t91 + 0.292e3 / 0.2025e4 * t74 * t6033 + 0.73e2 / 0.200e3 * t4422 * t316 + t100 * t6040 / 0.15e2 - 0.73e2 / 0.194400e6 * t6043 * t205;
1621   t6053 = t2525 * t221;
1622   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1623     v4rhotau3[0] = -0.3e1 / 0.2e1 * t511 * t2443 + 0.9e1 / 0.2e1 * t635 * t3256 * t5819 * t229 - 0.27e2 / 0.8e1 * t635 * t1384 * t4680 * t713 - 0.3e1 / 0.2e1 * t725 * t5830 * t727 + 0.3e1 / 0.2e1 * t1375 * t2447 - 0.27e2 / 0.8e1 * t635 * t1738 * t4675 * t229 + 0.9e1 / 0.8e1 * t635 * t636 * t3226 * t952 + t1395 * t3215 * t952 * t727 + 0.9e1 / 0.8e1 * t635 * t636 * t1551 * t2078 - t511 * t2527 / 0.4e1 + 0.3e1 / 0.8e1 * t635 * t636 * t5853 * t229 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t5988 + t6046) * t121 - t725 * t6053 * t727 / 0.12e2;
1624 
1625   t6057 = t731 * t731;
1626   t6066 = t808 * t808;
1627   t6116 = t736 * t736;
1628   t6119 = t744 * t744;
1629   t6126 = 0.15e2 / 0.131072e6 * t2682 * t2664 * t1999 + 0.9e1 / 0.512e3 * t24 * t389 * t399 * t395 - 0.3e1 / 0.4e1 * t3709 * t744 * sigma[0] * t101 + 0.9e1 / 0.128e3 * t530 * t4918 - 0.3e1 / 0.8e1 * t1581 * t753 + 0.9e1 / 0.256e3 * t1581 * t1606 - t4900 * t534 / 0.4e1 - 0.3e1 / 0.8e1 * t1593 * t753 + 0.9e1 / 0.256e3 * t1593 * t1606 - 0.3e1 / 0.1024e4 * t530 * t4914 - 0.9e1 / 0.2048e4 * t1016 * t2668 * t913 - t4891 * t534 / 0.4e1 + t24 * (t234 * t15 * t2108 - 0.6e1 * t22 / t391) * t35 + 0.6e1 * t24 * t737 * t744 + t24 * t6116 * t35 + 0.3e1 * t24 * t6119 * t35 + 0.4e1 * t24 * t241 * t2111;
1630   t6133 = t775 * t775;
1631   t6139 = t1277 * params->b;
1632   t6142 = t767 * t767;
1633   t6149 = params->b * params->b;
1634   t6150 = t432 * t6149;
1635   t6152 = 0.1e1 / t46 / t480;
1636   t6156 = t38 / t42 / t105;
1637   t6160 = 0.45e2 / 0.64e2 * t562 * t4807 - 0.225e3 / 0.128e3 * t2137 * t6139 + 0.567e3 / 0.64e2 * t2605 * t6142 - 0.675e3 / 0.256e3 * t1066 * t767 * params->b * t772 + 0.1125e4 / 0.2048e4 * t6150 * t10 * t6152 * t6156;
1638   t6175 = t782 * t782;
1639   t6181 = t787 * t787;
1640   t6184 = t6126 * t38 * t43 * t49 / 0.24e2 + t2127 * t253 / 0.6e1 + 0.292e3 / 0.675e3 * t6133 + 0.1168e4 / 0.2025e4 * t274 * t2148 + 0.292e3 / 0.2025e4 * t74 * t6160 - 0.73e2 / 0.97200e5 * t6160 * t91 - 0.73e2 / 0.48600e5 * t4839 * t284 + 0.73e2 / 0.64800e5 * t3611 * t782 - 0.73e2 / 0.32400e5 * t1673 * t787 - 0.73e2 / 0.64800e5 * t3107 * t2159 + 0.73e2 / 0.32400e5 * t1183 * t2162 + 0.73e2 / 0.103680e6 * t2764 * t6175 - 0.73e2 / 0.43200e5 * t1102 * t782 * t787 + 0.73e2 / 0.129600e6 * t461 * t6181;
1641   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1642     v4sigma4[0] = 0.9e1 / 0.2e1 * t136 * t138 * t2551 * t6057 - 0.27e2 / 0.4e1 * t136 * t138 * t1559 * t808 + 0.9e1 / 0.8e1 * t136 * t138 * t364 * t6066 + 0.3e1 / 0.2e1 * t136 * t138 * t514 * t2179 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t6184 * t121 - t4946 * t99 * t272 / 0.3e1 + t3867 * params->e * t772 / 0.8e1 - t3123 * t2176 / 0.6e1 + 0.5e1 / 0.576e3 * t2804 * t6152 * t38 * t252);
1643 
1644   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1645     v4sigma3lapl[0] = 0.0e0;
1646 
1647   t6235 = t2591 * t2259;
1648   t6238 = t1477 * params->b;
1649   t6244 = t80 * t767;
1650   t6248 = t1066 * t852;
1651   t6257 = -0.45e2 / 0.32e2 * t678 * t4807 + 0.675e3 / 0.64e2 * t2253 * t6139 + 0.135e3 / 0.256e3 * t562 * t6235 - 0.225e3 / 0.512e3 * t2137 * t6238 + 0.567e3 / 0.64e2 * t2605 * t333 * t2141 + 0.675e3 / 0.64e2 * t3806 * t1863 * t6244 - 0.675e3 / 0.512e3 * t6248 * t1654 * t1659 * t80 - 0.1125e4 / 0.256e3 * t6150 * t10 * t3211 * t6156;
1652   t6276 = 0.292e3 / 0.2025e4 * t2148 * t336 + 0.292e3 / 0.675e3 * t775 * t861 + 0.292e3 / 0.675e3 * t274 * t2270 + 0.292e3 / 0.2025e4 * t74 * t6257 - 0.73e2 / 0.97200e5 * t6257 * t91 - 0.73e2 / 0.64800e5 * t5154 * t284 - 0.73e2 / 0.64800e5 * t1873 * t787 - 0.73e2 / 0.200e3 * t461 * t870 - 0.73e2 / 0.200e3 * t1903 * t2292 + t2241 * t253 / 0.8e1 - 0.73e2 / 0.400e3 * t5330 * t870 + 0.73e2 / 0.100e3 * t1673 * t836;
1653   t6319 = 0.3e1 / 0.128e3 * t1587 * t2075 * t151 - 0.15e2 / 0.131072e6 * t2682 * t1243 * t2477 + 0.3e1 * t530 * t2205 + 0.3e1 / 0.8e1 * t530 * t2237 + 0.27e2 / 0.4096e4 * t1016 * t1247 * t1446 - 0.9e1 / 0.128e3 * t390 * t1251 * t661 - 0.3e1 / 0.16e2 * t1783 * t753 + 0.3e1 * t24 * t736 * t825 * t35 + t24 * t2111 * t311 * t35 + 0.3e1 * t24 * t744 * t825 * t35 + t24 * t2097 * t311 * t35 - 0.9e1 / 0.512e3 * t1581 * t1803 + t4900 * t656 / 0.16e2 - 0.9e1 / 0.512e3 * t1593 * t1803 + 0.9e1 / 0.4096e4 * t530 * t5248;
1654   t6356 = 0.9e1 / 0.512e3 * t1783 * t1606 - 0.3e1 / 0.4096e4 * t653 * t4914 + t1587 * t306 * t742 * t35 / 0.8e1 + 0.9e1 / 0.512e3 * t653 * t4918 + 0.3e1 / 0.8e1 * t1581 * t1813 + t4891 * t656 / 0.16e2 + 0.3e1 / 0.8e1 * t1593 * t1813 - 0.45e2 / 0.512e3 * t530 * t5227 - 0.3e1 / 0.16e2 * t530 * t5232 + 0.9e1 / 0.512e3 * t1770 * t1606 + 0.3e1 / 0.16e2 * t3709 * t28 * t315 * t744 - 0.3e1 / 0.16e2 * t5212 * t534 - 0.3e1 / 0.16e2 * t5219 * t534 - 0.3e1 / 0.8e1 * t24 * t240 * params->BLOC_b * t2214 - 0.3e1 / 0.8e1 * t5184 * t534;
1655   t6384 = -0.73e2 / 0.400e3 * t1885 * t2292 + (t6319 + t6356) * t38 * t43 * t49 / 0.24e2 + 0.73e2 / 0.600e3 * t4839 * t316 + 0.73e2 / 0.100e3 * t589 * t343 + 0.73e2 / 0.129600e6 * t4370 * t782 - 0.73e2 / 0.259200e6 * t3516 * t2159 + 0.73e2 / 0.129600e6 * t1509 * t2162 + 0.219e3 / 0.800e3 * t4165 * t2287 - 0.73e2 / 0.100e3 * t5337 * t870 - 0.73e2 / 0.320e3 * t3295 * t343 * t2159 + 0.219e3 / 0.400e3 * t4317 * t2287 + 0.219e3 / 0.800e3 * t1521 * t343 * t2162;
1656   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1657     v4sigma3tau[0] = -0.27e2 / 0.8e1 * t635 * t1384 * t1758 * t731 + 0.9e1 / 0.8e1 * t635 * t636 * t5046 * t301 + 0.9e1 / 0.8e1 * t635 * t636 * t1758 * t808 + 0.3e1 / 0.8e1 * t635 * t636 * t637 * t2179 + 0.3e1 / 0.64e2 * t5004 * t3985 * t2312 + 0.3e1 / 0.32e2 * t886 * t5379 * t116 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t6276 + t6384) * t121 + 0.9e1 / 0.16e2 * t886 * t3996 * t731 * t99 * t63 - 0.3e1 / 0.8e1 * t886 * t5362 * t2193 - 0.3e1 / 0.16e2 * t886 * t1924 * t808 * t99 * t63 - 0.3e1 / 0.128e3 * t2310 * t878 * t492 * t2312 + t2578 * t2 * t2309 * t347 * t1141 * t2175 * t10 / 0.128e3 + 0.9e1 / 0.2e1 * t635 * t3256 * t637 * t2088 - 0.27e2 / 0.8e1 * t635 * t1738 * t1739 * t808;
1658 
1659   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1660     v4sigma2lapl2[0] = 0.0e0;
1661 
1662   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1663     v4sigma2lapltau[0] = 0.0e0;
1664 
1665   t6438 = t877 * t877;
1666   t6490 = t861 * t861;
1667   t6506 = -0.73e2 / 0.50e2 * t589 * t2371 + 0.584e3 / 0.2025e4 * t336 * t2270 + 0.73e2 / 0.400e3 * t4617 * t2287 - 0.73e2 / 0.150e3 * t5619 * t870 + 0.5913e4 / 0.80e2 * t4622 * t1993 * t782 - 0.5913e4 / 0.25e2 * t5665 * t2415 - 0.219e3 / 0.800e3 * t1521 * t949 * t782 + 0.73e2 / 0.100e3 * t1903 * t2422 + 0.584e3 / 0.2025e4 * t6490 + 0.292e3 / 0.2025e4 * t775 * t938 + 0.584e3 / 0.2025e4 * t274 * t2400 - 0.73e2 / 0.200e3 * t1673 * t917 + 0.73e2 / 0.300e3 * t5154 * t316 + 0.1971e4 / 0.100e3 * t3611 * t914 - 0.73e2 / 0.100e3 * t197 * t949 + 0.73e2 / 0.75e2 * t1873 * t836;
1668   t6509 = t400 * t913;
1669   t6520 = t2591 * t2392;
1670   t6531 = t1066 * t929 * params->b;
1671   t6541 = -0.45e2 / 0.16e2 * t678 * t6235 - 0.225e3 / 0.4e1 * t2387 * t6139 + 0.225e3 / 0.32e2 * t2253 * t6238 + 0.45e2 / 0.128e3 * t562 * t6520 + 0.567e3 / 0.64e2 * t2605 * t929 * t767 + 0.225e3 / 0.16e2 * t6248 * t1654 * t1863 * t80 - 0.225e3 / 0.512e3 * t6531 * t772 + 0.1125e4 / 0.32e2 * t6150 * t10 * t3933 * t6156 - 0.225e3 / 0.8e1 * t3806 * t2040 * t6244;
1672   t6567 = t825 * t825;
1673   t6597 = t24 * t744 * t896 * t35 + t24 * t744 * t906 * t35 + 0.2e1 * t24 * t240 * t2347 * t35 + t24 * t736 * t906 * t35 - 0.3e1 / 0.8e1 * t24 * t752 * t395 + t24 * t736 * t896 * t35 + 0.2e1 * t24 * t6567 * t35 + 0.3e1 / 0.512e3 * t1968 * t1606 + t1587 * t899 * t2213 / 0.4e1 - t5540 * t534 / 0.8e1 + 0.3e1 / 0.512e3 * t1982 * t1606 - t1587 * t6040 * t533 / 0.64e2 - 0.3e1 / 0.128e3 * t1783 * t1803 - 0.3e1 / 0.16e2 * t1581 * t2006 + t1783 * t1813 / 0.2e1 - 0.15e2 / 0.256e3 * t653 * t5227 + 0.21e2 / 0.256e3 * t530 * t5566 + 0.3e1 / 0.512e3 * t1581 * t1994 - 0.3e1 / 0.4e1 * t530 * t5571;
1674   t6644 = 0.3e1 / 0.2048e4 * t653 * t5248 + 0.3e1 / 0.512e3 * t1593 * t1994 - 0.3e1 / 0.2048e4 * t530 * t5562 - 0.3e1 / 0.16e2 * t1593 * t2006 + 0.4e1 * t530 * t2334 + 0.15e2 / 0.131072e6 * t2682 * t1444 * t4557 + t653 * t2237 / 0.4e1 - 0.9e1 / 0.1024e4 * t1016 * t393 * t1999 + 0.81e2 / 0.512e3 * t390 * t6509 - t1968 * t753 / 0.16e2 - t1982 * t753 / 0.16e2 - t5480 * t534 / 0.8e1 - t4593 * t825 * sigma[0] * t101 / 0.4e1 - t313 * t234 * t30 * t238 / 0.4e1 - t5493 * t534 / 0.8e1 + t1770 * t1813 / 0.2e1 + t5212 * t656 / 0.8e1 + t5219 * t656 / 0.8e1 + t5184 * t656 / 0.4e1 - 0.3e1 / 0.128e3 * t1770 * t1803;
1675   t6672 = 0.3942e4 / 0.25e2 * t1183 * t2366 + 0.5913e4 / 0.25e2 * t461 * t6509 + t2375 * t253 / 0.12e2 + 0.292e3 / 0.2025e4 * t74 * t6541 - 0.73e2 / 0.97200e5 * t6541 * t91 + 0.73e2 / 0.150e3 * t699 * t343 + (t6597 + t6644) * t38 * t43 * t49 / 0.24e2 + 0.73e2 / 0.200e3 * t1885 * t2422 + 0.73e2 / 0.400e3 * t704 * t949 * t787 - 0.73e2 / 0.600e3 * t2055 * t2292 - 0.5913e4 / 0.100e3 * t5655 * t2415 - 0.5913e4 / 0.200e3 * t2062 * t1993 * t787 - 0.73e2 / 0.300e3 * t5622 * t870 - 0.73e2 / 0.97200e5 * t5753 * t284 - 0.73e2 / 0.194400e6 * t2050 * t787 + 0.73e2 / 0.388800e6 * t4419 * t782 + t793 * t395 / 0.60e2;
1676   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1677     v4sigma2tau2[0] = 0.9e1 / 0.2e1 * t635 * t3256 * t1942 * t731 - 0.9e1 / 0.2e1 * t635 * t1738 * t5803 * t877 + 0.3e1 / 0.4e1 * t886 * t5794 * t2193 - 0.9e1 / 0.8e1 * t635 * t1384 * t1942 * t808 + 0.3e1 / 0.4e1 * t136 * t138 * t364 * t6438 * t492 - t886 * t5778 * t877 * t99 * t63 / 0.2e1 + 0.3e1 / 0.4e1 * t635 * t636 * t1551 * t2299 + 0.5e1 / 0.96e2 * t2310 * t891 * t2441 * t2312 - 0.9e1 / 0.8e1 * t635 * t1384 * t1957 * t731 + 0.3e1 / 0.4e1 * t635 * t636 * t5453 * t301 - t886 * t5789 * t2193 / 0.8e1 + 0.3e1 / 0.8e1 * t635 * t636 * t1957 * t808 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t6506 + t6672) * t121 + t886 * t5784 * t116 / 0.16e2 - t2310 * t953 * t492 * t2312 / 0.128e3;
1678 
1679   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1680     v4sigmalapl3[0] = 0.0e0;
1681 
1682   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1683     v4sigmalapl2tau[0] = 0.0e0;
1684 
1685   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1686     v4sigmalapltau2[0] = 0.0e0;
1687 
1688   t6734 = t2362 * t2477;
1689   t6737 = t832 * t1446;
1690   t6740 = t243 * t661;
1691   t6768 = t24 * (-0.3e1 / 0.4e1 * t234 * t395 * t142 - 0.17e2 / 0.8e1 * t234 * t395) * t35 + 0.3e1 * t530 * t2453 - 0.15e2 / 0.131072e6 * t2682 * t3025 * t110 * t5877 + 0.45e2 / 0.4096e4 * t1016 * t6734 - 0.9e1 / 0.32e2 * t390 * t6737 + 0.3e1 / 0.2e1 * t152 * t6740 + 0.3e1 * t24 * t312 * t2347 + t24 * t240 * t2466 * t35 + 0.3e1 * t24 * t897 * t825 + t24 * t240 * t2450 * t35 + 0.3e1 * t24 * t826 * t906 - 0.9e1 / 0.4096e4 * t653 * t5562 - 0.9e1 / 0.16e2 * t1783 * t2006 + 0.3e1 / 0.4096e4 * t530 * t5915 - 0.27e2 / 0.512e3 * t530 * t5919 - t5925 * t534 / 0.16e2;
1692   t6805 = 0.3e1 / 0.8e1 * t1968 * t1813 + 0.3e1 / 0.8e1 * t1982 * t1813 + 0.63e2 / 0.512e3 * t653 * t5566 - 0.9e1 / 0.8e1 * t653 * t5571 + 0.3e1 / 0.4e1 * t530 * t5922 - 0.9e1 / 0.512e3 * t1968 * t1803 - t5900 * t534 / 0.16e2 + 0.3e1 / 0.16e2 * t5540 * t656 - 0.9e1 / 0.512e3 * t1982 * t1803 + 0.9e1 / 0.512e3 * t1783 * t1994 - 0.9e1 / 0.16e2 * t1770 * t2006 - 0.3e1 / 0.16e2 * t4593 * t906 * sigma[0] * t101 + 0.3e1 / 0.8e1 * t4593 * t28 * t315 * t825 + 0.3e1 / 0.16e2 * t5480 * t656 + 0.3e1 / 0.16e2 * t5493 * t656 + 0.9e1 / 0.512e3 * t1770 * t1994;
1693   t6836 = -0.73e2 / 0.194400e6 * t6043 * t284 + (t6768 + t6805) * t38 * t43 * t49 / 0.24e2 - 0.17739e5 / 0.200e3 * t5985 * t2415 + 0.219e3 / 0.400e3 * t2055 * t2422 - 0.73e2 / 0.400e3 * t5982 * t870 - 0.478953e6 / 0.20e2 * t5978 * t5914 * t284 + 0.53217e5 / 0.200e3 * t2062 * t5918 * t284 - 0.73e2 / 0.100e3 * t704 * t2521 * t284 + 0.5913e4 / 0.100e3 * t4370 * t914 - 0.219e3 / 0.200e3 * t1873 * t917 + 0.478953e6 / 0.50e2 * t3107 * t2478 - 0.17739e5 / 0.100e3 * t1183 * t2481 + 0.73e2 / 0.50e2 * t589 * t2484;
1694   t6874 = -0.135e3 / 0.32e2 * t678 * t6520 - 0.675e3 / 0.8e1 * t2387 * t6238 + 0.225e3 * t2496 * t6139 + 0.45e2 / 0.256e3 * t562 * t6015 + 0.567e3 / 0.64e2 * t2605 * t2499 * t269 + 0.675e3 / 0.64e2 * t6531 * t858 - 0.675e3 / 0.8e1 * t5123 * t934 * t81 * t269 - 0.1125e4 / 0.4e1 * t6150 * t10 * t5010 * t6156;
1695   t6887 = 0.73e2 / 0.200e3 * t5753 * t316 + t2488 * t253 / 0.24e2 + 0.73e2 / 0.100e3 * t2050 * t836 + 0.5913e4 / 0.25e2 * t1509 * t2366 + 0.1436859e7 / 0.25e2 * t1102 * t6734 - 0.17739e5 / 0.25e2 * t461 * t6737 + 0.73e2 / 0.25e2 * t197 * t6740 - 0.219e3 / 0.100e3 * t699 * t2371 - 0.73e2 / 0.97200e5 * t6874 * t91 + 0.292e3 / 0.2025e4 * t74 * t6874 + 0.292e3 / 0.2025e4 * t274 * t2504 + 0.292e3 / 0.675e3 * t336 * t2400 + 0.292e3 / 0.675e3 * t861 * t938 - t289 * t2521 / 0.15e2;
1696   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1697     v4sigmatau3[0] = 0.9e1 / 0.2e1 * t635 * t3256 * t5819 * t301 - 0.27e2 / 0.8e1 * t635 * t1384 * t4680 * t877 + 0.9e1 / 0.16e2 * t886 * t5830 * t116 - 0.27e2 / 0.8e1 * t635 * t1738 * t4675 * t301 + 0.9e1 / 0.8e1 * t635 * t636 * t3941 * t952 - 0.3e1 / 0.8e1 * t886 * t5778 * t952 * t99 * t63 + 0.9e1 / 0.8e1 * t635 * t636 * t1551 * t2429 + 0.3e1 / 0.8e1 * t635 * t636 * t5853 * t301 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * (t6836 + t6887) * t121 + t886 * t6053 * t116 / 0.32e2;
1698 
1699   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1700     v4lapl4[0] = 0.0e0;
1701 
1702   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1703     v4lapl3tau[0] = 0.0e0;
1704 
1705   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1706     v4lapl2tau2[0] = 0.0e0;
1707 
1708   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1709     v4lapltau3[0] = 0.0e0;
1710 
1711   t6897 = t890 * t890;
1712   t6899 = t491 * t491;
1713   t6909 = t952 * t952;
1714   t6928 = t2683 * t110 / t1998 / t394;
1715   t6934 = t28 * t913;
1716   t6943 = t2475 * t4557;
1717   t6946 = t911 * t1999;
1718   t6952 = t896 * t896;
1719   t6955 = t906 * t906;
1720   t6978 = t13 * t661;
1721   t7002 = 0.6e1 * t24 * t897 * t906 + t24 * t6952 * t35 + 0.3e1 * t24 * t6955 * t35 + 0.4e1 * t24 * t312 * t2466 + 0.225e3 / 0.512e3 * t390 * t6946 - 0.15e2 / 0.4e1 * t152 * t6934 + t5925 * t656 / 0.4e1 + 0.9e1 / 0.256e3 * t1968 * t1994 + t5900 * t656 / 0.4e1 + 0.9e1 / 0.256e3 * t1982 * t1994 + 0.3e1 / 0.1024e4 * t653 * t5915 - 0.27e2 / 0.2048e4 * t1016 * t6943 + t24 * (0.3e1 * t18 * t6978 * t142 + 0.11e2 / 0.2e1 * t18 * t6978 + 0.6e1 * t22 * t395) * t35 + 0.15e2 / 0.131072e6 * t2682 * t6928 + 0.3e1 / 0.4e1 * t4593 * t5944 * t343 - 0.9e1 / 0.8e1 * t1968 * t2006 - 0.9e1 / 0.8e1 * t1982 * t2006 - 0.27e2 / 0.128e3 * t653 * t5919 + 0.3e1 * t653 * t5922;
1722   t7007 = t938 * t938;
1723   t7015 = t929 * t929;
1724   t7023 = -0.45e2 / 0.8e1 * t678 * t6015 + 0.900e3 * t2496 * t6238 + 0.567e3 / 0.64e2 * t2605 * t7015 - 0.675e3 / 0.4e1 * t6531 * t935 + 0.2250e4 * t6150 * t2819 * t6156;
1725   t7028 = 0.73e2 / 0.150e3 * t6043 * t316 + 0.5913e4 / 0.50e2 * t4419 * t914 + 0.957906e6 / 0.25e2 * t3516 * t2478 + 0.38795193e8 / 0.5e1 * t2764 * t6928 + t100 * t27 * t913 / 0.6e1 - 0.73e2 / 0.10e2 * t197 * t6934 - 0.219e3 / 0.100e3 * t2050 * t917 - 0.17739e5 / 0.25e2 * t1509 * t2481 + 0.146e3 / 0.25e2 * t699 * t2484 - 0.4310577e7 / 0.25e2 * t1102 * t6943 + 0.5913e4 / 0.4e1 * t461 * t6946 + t7002 * t38 * t43 * t49 / 0.24e2 + 0.292e3 / 0.675e3 * t7007 + 0.1168e4 / 0.2025e4 * t336 * t2504 + 0.292e3 / 0.2025e4 * t74 * t7023 - 0.73e2 / 0.97200e5 * t7023 * t91;
1726   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1727     v4tau4[0] = 0.9e1 / 0.2e1 * t136 * t138 * t2551 * t6897 / t6899 - 0.27e2 / 0.4e1 * t635 * t1384 * t4680 * t952 + 0.9e1 / 0.8e1 * t136 * t138 * t364 * t6909 * t492 + 0.3e1 / 0.2e1 * t635 * t636 * t1551 * t2524 - 0.3e1 / 0.16e2 * t136 * t138 * t140 * t7028 * t121;
1728 
1729 #ifndef XC_DONT_COMPILE_MXC
1730 
1731   if(order < 5) return;
1732 
1733 
1734 #endif
1735 
1736 #endif
1737 
1738 #endif
1739 
1740 #endif
1741 
1742 #endif
1743 
1744 
1745 }
1746 
1747 
1748 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 *))1749 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 *))
1750 {
1751 
1752 #ifndef XC_DONT_COMPILE_EXC
1753   double t2, t4, t5, t6, t7, t8, t10, t12;
1754   double t14, t15, t19, t20, t21, t22, t23, t24;
1755   double t25, t26, t27, t28, t30, t31, t32, t35;
1756   double t36, t37, t38, t39, t40, t41, t42, t44;
1757   double t45, t49, t51, t53, t57, t58, t59, t60;
1758   double t63, t64, t65, t70, t71, t74, t76, t77;
1759   double t78, t79, t81, t85, t86, t90, t91, t95;
1760   double t96, t97, t100, t101, t102, t103, t104, t105;
1761   double t106, t110, t111, t114, t115, t116, t118, t123;
1762   double t125;
1763 
1764 #ifndef XC_DONT_COMPILE_VXC
1765   double t128, t129, t130, t131, t132, t133, t134, t135;
1766   double t136, t141, t142, t145, t146, t147, t148, t149;
1767   double t150, t154, t158, t159, t164, t166, t167, t168;
1768   double t172, t173, t177, t180, t183, t185, t190, t191;
1769   double t193, t195, t199, t205, t208, t209, t213, t215;
1770   double t216, t218, t221, t222, t226, t227, t230, t232;
1771   double t233, t234, t235, t236, t240, t243, t246, t247;
1772   double t249, t250, t253, t255, t258, t260, t269, t272;
1773   double t276, t279, t283, t287, t289, t292, t293, t294;
1774   double t295, t300, t301, t302, t303, t304, t305, t309;
1775   double t312, t315, t321, t324, t331, t334, t335, t336;
1776 
1777 #ifndef XC_DONT_COMPILE_FXC
1778   double t339, t344, t345, t349, t350, t351, t355, t356;
1779   double t358, t365, t368, t369, t370, t373, t374, t375;
1780   double t376, t377, t378, t379, t380, t384, t385, t386;
1781   double t390, t396, t397, t400, t404, t406, t407, t410;
1782   double t411, t414, t416, t417, t418, t421, t424, t428;
1783   double t431, t434, t436, t441, t445, t446, t447, t451;
1784   double t453, t455, t457, t463, t466, t467, t471, t474;
1785   double t477, t478, t480, t485, t486, t490, t491, t494;
1786   double t495, t496, t499, t502, t507, t508, t510, t513;
1787   double t514, t517, t518, t522, t523, t527, t534, t539;
1788   double t540, t542, t544, t547, t550, t551, t553, t556;
1789   double t558, t561, t563, t568, t573, t578, t580, t591;
1790   double t594, t603, t605, t608, t612, t615, t623, t624;
1791   double t626, t629, t632, t634, t638, t642, t652, t655;
1792   double t662, t665, t670, t675, t676, t681, t684, t685;
1793   double t686, t691, t692, t693, t694, t695, t696, t697;
1794   double t698, t701, t703, t706, t707, t712, t714, t719;
1795   double t722, t723, t727, t732, t734, t736, t739, t740;
1796   double t741, t743, t750, t755, t761, t764, t768, t774;
1797   double t776, t780, t783, t784, t786, t791, t792, t798;
1798   double t802, t806, t815, t817, t821, t822, t824, t826;
1799   double t835, t842, t843, t844, t848, t849, t850, t851;
1800   double t853, t854, t857, t858, t859, t862, t863, t865;
1801   double t872, t877, t879, t880, t883, t887, t890, t894;
1802   double t898, t899, t903, t914, t917, t918, t919;
1803 
1804 #ifndef XC_DONT_COMPILE_KXC
1805   double t926, t936, t937, t938, t939, t944, t947, t953;
1806   double t956, t964, t967, t970, t971, t972, t975, t979;
1807   double t980, t981, t982, t986, t987, t991, t992, t996;
1808   double t1004, t1005, t1012, t1014, t1015, t1020, t1021, t1024;
1809   double t1029, t1030, t1031, t1037, t1042, t1045, t1048, t1050;
1810   double t1055, t1058, t1063, t1065, t1066, t1067, t1070, t1075;
1811   double t1077, t1079, t1085, t1088, t1089, t1090, t1093, t1096;
1812   double t1100, t1106, t1107, t1108, t1109, t1116, t1117, t1121;
1813   double t1122, t1128, t1130, t1134, t1138, t1149, t1150, t1152;
1814   double t1154, t1156, t1160, t1161, t1162, t1165, t1177, t1178;
1815   double t1180, t1182, t1185, t1187, t1190, t1192, t1199, t1204;
1816   double t1207, t1210, t1213, t1219, t1222, t1225, t1226, t1228;
1817   double t1232, t1235, t1240, t1243, t1254, t1255, t1256, t1259;
1818   double t1262, t1263, t1267, t1271, t1272, t1275, t1276, t1281;
1819   double t1284, t1295, t1297, t1300, t1301, t1304, t1308, t1325;
1820   double t1327, t1330, t1336, t1337, t1338, t1342, t1346, t1349;
1821   double t1350, t1352, t1353, t1357, t1360, t1363, t1364, t1366;
1822   double t1370, t1378, t1381, t1392, t1393, t1396, t1399, t1401;
1823   double t1408, t1411, t1412, t1431, t1432, t1435, t1452, t1455;
1824   double t1460, t1463, t1470, t1475, t1476, t1479, t1482, t1487;
1825   double t1490, t1491, t1492, t1495, t1496, t1497, t1501, t1502;
1826   double t1503, t1504, t1505, t1506, t1511, t1515, t1521, t1524;
1827   double t1527, t1530, t1533, t1536, t1538, t1539, t1542, t1553;
1828   double t1554, t1555, t1566, t1567, t1570, t1571, t1584, t1586;
1829   double t1588, t1590, t1599, t1600, t1601, t1602, t1604, t1605;
1830   double t1606, t1607, t1608, t1610, t1611, t1613, t1618, t1630;
1831   double t1633, t1638, t1643, t1649, t1652, t1655, t1656, t1659;
1832   double t1674, t1676, t1680, t1681, t1682, t1683, t1684, t1688;
1833   double t1691, t1692, t1696, t1702, t1706, t1707, t1709, t1710;
1834   double t1712, t1715, t1722, t1725, t1744, t1745, t1748, t1755;
1835   double t1758, t1761, t1762, t1778, t1783, t1785, t1787, t1789;
1836   double t1795, t1798, t1801, t1802, t1804, t1805, t1808, t1813;
1837   double t1820, t1825, t1832, t1835, t1838, t1843, t1850, t1851;
1838   double t1852, t1853, t1856, t1857, t1858, t1861, t1864, t1865;
1839   double t1866, t1867, t1870, t1872, t1875, t1876, t1877, t1878;
1840   double t1879, t1884, t1888, t1891, t1892, t1893, t1899, t1902;
1841   double t1905, t1908, t1911, t1919, t1922, t1933, t1934, t1937;
1842   double t1938, t1939, t1943, t1946, t1949, t1952, t1953, t1967;
1843   double t1976, t1979, t1983, t1988, t1993, t2000, t2001, t2008;
1844   double t2013, t2016, t2017, t2018, t2021, t2022, t2023, t2026;
1845   double t2028, t2031, t2032, t2035, t2038, t2046, t2049, t2065;
1846   double t2072, t2074, t2075, t2077, t2080, t2081, t2082, t2083;
1847   double t2085, t2096, t2099, t2104, t2110, t2111, t2114, t2116;
1848   double t2120, t2124, t2127, t2131, t2134, t2135, t2137, t2138;
1849   double t2140, t2141, t2146, t2147, t2170, t2173, t2174, t2185;
1850   double t2186, t2188, t2190, t2193, t2195, t2197, t2198, t2200;
1851   double t2217, t2222, t2229, t2230, t2231, t2234, t2236, t2239;
1852   double t2240, t2242, t2243, t2244, t2248, t2252, t2255, t2257;
1853   double t2261, t2264, t2265, t2267, t2272, t2273, t2275, t2280;
1854   double t2295, t2299, t2304, t2307, t2308, t2319, t2320, t2322;
1855   double t2324, t2327, t2328, t2329, t2331, t2334, t2349, t2356;
1856   double t2363, t2364, t2365, t2368, t2370, t2373, t2375, t2376;
1857   double t2377, t2381, t2384, t2387, t2392, t2400, t2409, t2411;
1858   double t2412, t2415, t2418, t2422, t2429, t2432, t2435, t2436;
1859   double t2439, t2456, t2459, t2460, t2461;
1860 
1861 #ifndef XC_DONT_COMPILE_LXC
1862   double t2486, t2487, t2496, t2505, t2512, t2513, t2515, t2525;
1863   double t2526, t2530, t2533, t2536, t2539, t2540, t2546, t2557;
1864   double t2567, t2569, t2574, t2581, t2582, t2585, t2587, t2592;
1865   double t2595, t2600, t2604, t2605, t2611, t2623, t2624, t2625;
1866   double t2628, t2645, t2648, t2654, t2655, t2662, t2667, t2672;
1867   double t2674, t2677, t2681, t2685, t2689, t2697, t2702, t2715;
1868   double t2719, t2723, t2728, t2729, t2736, t2737, t2739, t2753;
1869   double t2758, t2788, t2821, t2822, t2846, t2849, t2862, t2866;
1870   double t2869, t2875, t2878, t2879, t2922, t2929, t2931, t2934;
1871   double t2951, t2954, t2965, t2973, t2996, t2999, t3002, t3009;
1872   double t3016, t3017, t3020, t3024, t3028, t3039, t3046, t3049;
1873   double t3067, t3070, t3073, t3074, t3086, t3090, t3099, t3106;
1874   double t3116, t3119, t3136, t3137, t3150, t3152, t3156, t3159;
1875   double t3160, t3173, t3201, t3202, t3223, t3248, t3249, t3252;
1876   double t3259, t3260, t3270, t3273, t3287, t3292, t3301, t3304;
1877   double t3318, t3327, t3359, t3369, t3372, t3375, t3382, t3387;
1878   double t3390, t3393, t3428, t3433, t3446, t3465, t3502, t3505;
1879   double t3508, t3523, t3527, t3530, t3534, t3552, t3555, t3556;
1880   double t3564, t3565, t3568, t3603, t3632, t3634, t3653, t3656;
1881   double t3688, t3691, t3692, t3698, t3701, t3710, t3715, t3719;
1882   double t3722, t3727, t3760, t3765, t3769, t3773, t3806, t3828;
1883   double t3871, t3872, t3888, t3895, t3909, t3910, t3941, t3954;
1884   double t3961, t3964, t3969, t3984, t4014, t4017, t4020, t4025;
1885   double t4044, t4048, t4056, t4063, t4084, t4086, t4091, t4094;
1886   double t4097, t4102, t4117, t4147, t4177, t4178, t4182, t4187;
1887   double t4193, t4197, t4207, t4211, t4216, t4232, t4283, t4285;
1888   double t4298, t4308, t4309, t4312, t4323, t4342, t4343, t4375;
1889   double t4383, t4384, t4389, t4404, t4412, t4417, t4427, t4432;
1890   double t4446, t4449, t4454, t4459, t4478, t4489, t4490, t4496;
1891   double t4501, t4511, t4530, t4532, t4546, t4567, t4572, t4573;
1892   double t4584, t4585, t4597, t4615, t4652, t4656, t4659, t4668;
1893   double t4679, t4682, t4713, t4724, t4773, t4783, t4788, t4808;
1894   double t4812, t4815, t4824, t4832, t4836, t4862, t4918, t4929;
1895   double t4936, t4939, t4955, t4966, t4969, t4983, t4986, t5015;
1896   double t5037, t5054, t5058, t5062, t5066, t5069, t5074, t5075;
1897   double t5080, t5083, t5108, t5134, t5142, t5145, t5165, t5181;
1898   double t5206, t5210, t5214, t5227, t5247, t5288, t5297, t5316;
1899   double t5347, t5348, t5365, t5368, t5371, t5380, t5383, t5386;
1900   double t5396, t5413, t5424, t5435, t5458, t5459, t5466, t5471;
1901   double t5476, t5491, t5514, t5523, t5563, t5587, t5616, t5619;
1902   double t5623, t5628, t5637, t5684, t5696, t5712, t5727, t5730;
1903   double t5733, t5762, t5791, t5792, t5795, t5796, t5797, t5800;
1904   double t5803, t5808, t5827, t5837, t5850, t5867, t5872, t5875;
1905   double t5876, t5894, t5899, t5908, t5911, t5922, t5931, t5968;
1906   double t5971, t5991, t5997, t6003, t6006, t6012, t6013, t6015;
1907   double t6018, t6022, t6037, t6043, t6046, t6080, t6086, t6090;
1908   double t6097, t6112, t6162, t6200, t6219, t6292, t6323, t6344;
1909   double t6354, t6365, t6409, t6413, t6462, t6481, t6518, t6584;
1910   double t6605, t6608, t6611, t6614, t6651, t6701, t6731, t6742;
1911   double t6743, t6753, t6762, t6770, t6779, t6796, t6799, t6802;
1912   double t6815, t6818, t6832, t6835, t6855, t6871;
1913 #endif
1914 
1915 #endif
1916 
1917 #endif
1918 
1919 #endif
1920 
1921 #endif
1922 
1923 
1924   mgga_x_tpss_params *params;
1925 
1926   assert(p->params != NULL);
1927   params = (mgga_x_tpss_params * ) (p->params);
1928 
1929   t2 = M_CBRT3;
1930   t4 = POW_1_3(0.1e1 / M_PI);
1931   t5 = t2 * t4;
1932   t6 = M_CBRT4;
1933   t7 = t6 * t6;
1934   t8 = POW_1_3(rho[0]);
1935   t10 = 0.1e1 / rho[0];
1936   t12 = 0.1e1 / tau[0];
1937   t14 = sigma[0] * t10 * t12 / 0.8e1;
1938   t15 = params->BLOC_b * sigma[0];
1939   t19 = params->BLOC_a + t15 * t10 * t12 / 0.8e1;
1940   t20 = pow(t14, t19);
1941   t21 = params->c * t20;
1942   t22 = sigma[0] * sigma[0];
1943   t23 = rho[0] * rho[0];
1944   t24 = 0.1e1 / t23;
1945   t25 = t22 * t24;
1946   t26 = tau[0] * tau[0];
1947   t27 = 0.1e1 / t26;
1948   t28 = t25 * t27;
1949   t30 = 0.1e1 + t28 / 0.64e2;
1950   t31 = t30 * t30;
1951   t32 = 0.1e1 / t31;
1952   t35 = M_CBRT6;
1953   t36 = (0.10e2 / 0.81e2 + t21 * t32) * t35;
1954   t37 = M_PI * M_PI;
1955   t38 = POW_1_3(t37);
1956   t39 = t38 * t38;
1957   t40 = 0.1e1 / t39;
1958   t41 = t40 * sigma[0];
1959   t42 = t8 * t8;
1960   t44 = 0.1e1 / t42 / t23;
1961   t45 = t41 * t44;
1962   t49 = 0.1e1 / t42 / rho[0];
1963   t51 = sigma[0] * t44;
1964   t53 = tau[0] * t49 - t51 / 0.8e1;
1965   t57 = 0.5e1 / 0.9e1 * t53 * t35 * t40 - 0.1e1;
1966   t58 = params->b * t53;
1967   t59 = t35 * t40;
1968   t60 = t59 * t57;
1969   t63 = 0.5e1 * t58 * t60 + 0.9e1;
1970   t64 = sqrt(t63);
1971   t65 = 0.1e1 / t64;
1972   t70 = 0.27e2 / 0.20e2 * t57 * t65 + t59 * t51 / 0.36e2;
1973   t71 = t70 * t70;
1974   t74 = t35 * t35;
1975   t76 = 0.1e1 / t38 / t37;
1976   t77 = t74 * t76;
1977   t78 = t23 * t23;
1978   t79 = t78 * rho[0];
1979   t81 = 0.1e1 / t8 / t79;
1980   t85 = 0.50e2 * t77 * t22 * t81 + 0.162e3 * t28;
1981   t86 = sqrt(t85);
1982   t90 = 0.1e1 / params->kappa * t74;
1983   t91 = t76 * t22;
1984   t95 = sqrt(params->e);
1985   t96 = t95 * t22;
1986   t97 = t24 * t27;
1987   t100 = params->e * params->mu;
1988   t101 = t37 * t37;
1989   t102 = 0.1e1 / t101;
1990   t103 = t22 * sigma[0];
1991   t104 = t102 * t103;
1992   t105 = t78 * t78;
1993   t106 = 0.1e1 / t105;
1994   t110 = t36 * t45 / 0.24e2 + 0.146e3 / 0.2025e4 * t71 - 0.73e2 / 0.97200e5 * t70 * t86 + 0.25e2 / 0.944784e6 * t90 * t91 * t81 + t96 * t97 / 0.720e3 + t100 * t104 * t106 / 0.2304e4;
1995   t111 = t95 * t35;
1996   t114 = 0.1e1 + t111 * t45 / 0.24e2;
1997   t115 = t114 * t114;
1998   t116 = 0.1e1 / t115;
1999   t118 = t110 * t116 + params->kappa;
2000   t123 = 0.1e1 + params->kappa * (0.1e1 - params->kappa / t118);
2001   t125 = t5 * t7 * t8 * t123;
2002   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
2003     zk[0] = -0.3e1 / 0.8e1 * t125;
2004 
2005 #ifndef XC_DONT_COMPILE_VXC
2006 
2007   if(order < 1) return;
2008 
2009 
2010   t128 = t8 * rho[0];
2011   t129 = t128 * t2;
2012   t130 = t129 * t4;
2013   t131 = params->kappa * params->kappa;
2014   t132 = t7 * t131;
2015   t133 = t118 * t118;
2016   t134 = 0.1e1 / t133;
2017   t135 = t24 * t12;
2018   t136 = log(t14);
2019   t141 = -t15 * t135 * t136 / 0.8e1 - t19 * t10;
2020   t142 = t141 * t32;
2021   t145 = 0.1e1 / t31 / t30;
2022   t146 = t21 * t145;
2023   t147 = t23 * rho[0];
2024   t148 = 0.1e1 / t147;
2025   t149 = t22 * t148;
2026   t150 = t149 * t27;
2027   t154 = (t21 * t142 + t146 * t150 / 0.16e2) * t35;
2028   t158 = 0.1e1 / t42 / t147;
2029   t159 = t41 * t158;
2030   t164 = sigma[0] * t158;
2031   t166 = -0.5e1 / 0.3e1 * tau[0] * t44 + t164 / 0.3e1;
2032   t167 = t166 * t35;
2033   t168 = t40 * t65;
2034   t172 = 0.1e1 / t64 / t63;
2035   t173 = t57 * t172;
2036   t177 = t77 * t166;
2037   t180 = 0.5e1 * params->b * t166 * t60 + 0.25e2 / 0.9e1 * t58 * t177;
2038   t183 = t59 * t164;
2039   t185 = 0.3e1 / 0.4e1 * t167 * t168 - 0.27e2 / 0.40e2 * t173 * t180 - 0.2e1 / 0.27e2 * t183;
2040   t190 = 0.1e1 / t86;
2041   t191 = t70 * t190;
2042   t193 = t78 * t23;
2043   t195 = 0.1e1 / t8 / t193;
2044   t199 = -0.324e3 * t150 - 0.800e3 / 0.3e1 * t77 * t22 * t195;
2045   t205 = t148 * t27;
2046   t208 = t105 * rho[0];
2047   t209 = 0.1e1 / t208;
2048   t213 = t154 * t45 / 0.24e2 - t36 * t159 / 0.9e1 + 0.292e3 / 0.2025e4 * t70 * t185 - 0.73e2 / 0.97200e5 * t185 * t86 - 0.73e2 / 0.194400e6 * t191 * t199 - 0.25e2 / 0.177147e6 * t90 * t91 * t195 - t96 * t205 / 0.360e3 - t100 * t104 * t209 / 0.288e3;
2049   t215 = t115 * t114;
2050   t216 = 0.1e1 / t215;
2051   t218 = t110 * t216 * t95;
2052   t221 = t213 * t116 + 0.2e1 / 0.9e1 * t218 * t183;
2053   t222 = t134 * t221;
2054   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2055     vrho[0] = -t125 / 0.2e1 - 0.3e1 / 0.8e1 * t130 * t132 * t222;
2056 
2057   t226 = params->BLOC_b * t10;
2058   t227 = t12 * t136;
2059   t230 = 0.1e1 / sigma[0];
2060   t232 = t226 * t227 / 0.8e1 + t19 * t230;
2061   t233 = t232 * t32;
2062   t234 = t21 * t233;
2063   t235 = sigma[0] * t24;
2064   t236 = t235 * t27;
2065   t240 = (t234 - t146 * t236 / 0.16e2) * t35;
2066   t243 = t40 * t44;
2067   t246 = t44 * t35;
2068   t247 = t246 * t168;
2069   t249 = params->b * t44;
2070   t250 = t249 * t60;
2071   t253 = t58 * t77 * t44;
2072   t255 = -0.5e1 / 0.8e1 * t250 - 0.25e2 / 0.72e2 * t253;
2073   t258 = t246 * t40;
2074   t260 = -0.3e1 / 0.32e2 * t247 - 0.27e2 / 0.40e2 * t173 * t255 + t258 / 0.36e2;
2075   t269 = 0.100e3 * t77 * sigma[0] * t81 + 0.324e3 * t236;
2076   t272 = t76 * sigma[0];
2077   t276 = t95 * sigma[0];
2078   t279 = t102 * t22;
2079   t283 = t240 * t45 / 0.24e2 + t36 * t243 / 0.24e2 + 0.292e3 / 0.2025e4 * t70 * t260 - 0.73e2 / 0.97200e5 * t260 * t86 - 0.73e2 / 0.194400e6 * t191 * t269 + 0.25e2 / 0.472392e6 * t90 * t272 * t81 + t276 * t97 / 0.360e3 + t100 * t279 * t106 / 0.768e3;
2080   t287 = t283 * t116 - t218 * t258 / 0.12e2;
2081   t289 = t132 * t134 * t287;
2082   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2083     vsigma[0] = -0.3e1 / 0.8e1 * t130 * t289;
2084 
2085   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
2086     vlapl[0] = 0.0e0;
2087 
2088   t292 = t4 * t7;
2089   t293 = t129 * t292;
2090   t294 = t131 * t134;
2091   t295 = t10 * t27;
2092   t300 = -t15 * t295 * t136 / 0.8e1 - t19 * t12;
2093   t301 = t300 * t32;
2094   t302 = t21 * t301;
2095   t303 = t26 * tau[0];
2096   t304 = 0.1e1 / t303;
2097   t305 = t25 * t304;
2098   t309 = (t302 + t146 * t305 / 0.16e2) * t35;
2099   t312 = t49 * t35;
2100   t315 = params->b * t49;
2101   t321 = 0.5e1 * t315 * t60 + 0.25e2 / 0.9e1 * t58 * t77 * t49;
2102   t324 = 0.3e1 / 0.4e1 * t312 * t168 - 0.27e2 / 0.40e2 * t173 * t321;
2103   t331 = t24 * t304;
2104   t334 = t309 * t45 / 0.24e2 + 0.292e3 / 0.2025e4 * t70 * t324 - 0.73e2 / 0.97200e5 * t324 * t86 + 0.73e2 / 0.600e3 * t191 * t305 - t96 * t331 / 0.360e3;
2105   t335 = t334 * t116;
2106   t336 = t294 * t335;
2107   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2108     vtau[0] = -0.3e1 / 0.8e1 * t293 * t336;
2109 
2110 #ifndef XC_DONT_COMPILE_FXC
2111 
2112   if(order < 2) return;
2113 
2114 
2115   t339 = 0.1e1 / t42;
2116   t344 = t5 * t7;
2117   t345 = t8 * t131;
2118   t349 = 0.1e1 / t133 / t118;
2119   t350 = t221 * t221;
2120   t351 = t349 * t350;
2121   t355 = t141 * t141;
2122   t356 = t355 * t32;
2123   t358 = t148 * t12;
2124   t365 = t15 * t358 * t136 / 0.4e1 + t15 * t358 / 0.4e1 + t19 * t24;
2125   t368 = t21 * t141;
2126   t369 = t145 * t22;
2127   t370 = t369 * t205;
2128   t373 = t31 * t31;
2129   t374 = 0.1e1 / t373;
2130   t375 = t21 * t374;
2131   t376 = t22 * t22;
2132   t377 = 0.1e1 / t193;
2133   t378 = t376 * t377;
2134   t379 = t26 * t26;
2135   t380 = 0.1e1 / t379;
2136   t384 = 0.1e1 / t78;
2137   t385 = t22 * t384;
2138   t386 = t385 * t27;
2139   t390 = (t21 * t356 + t21 * t365 * t32 + t368 * t370 / 0.8e1 + 0.3e1 / 0.512e3 * t375 * t378 * t380 - 0.3e1 / 0.16e2 * t146 * t386) * t35;
2140   t396 = 0.1e1 / t42 / t78;
2141   t397 = t41 * t396;
2142   t400 = t185 * t185;
2143   t404 = sigma[0] * t396;
2144   t406 = 0.40e2 / 0.9e1 * tau[0] * t158 - 0.11e2 / 0.9e1 * t404;
2145   t407 = t406 * t35;
2146   t410 = t40 * t172;
2147   t411 = t410 * t180;
2148   t414 = t63 * t63;
2149   t416 = 0.1e1 / t64 / t414;
2150   t417 = t57 * t416;
2151   t418 = t180 * t180;
2152   t421 = params->b * t406;
2153   t424 = t166 * t166;
2154   t428 = t77 * t406;
2155   t431 = 0.5e1 * t421 * t60 + 0.50e2 / 0.9e1 * params->b * t424 * t77 + 0.25e2 / 0.9e1 * t58 * t428;
2156   t434 = t59 * t404;
2157   t436 = 0.3e1 / 0.4e1 * t407 * t168 - 0.3e1 / 0.4e1 * t167 * t411 + 0.81e2 / 0.80e2 * t417 * t418 - 0.27e2 / 0.40e2 * t173 * t431 + 0.22e2 / 0.81e2 * t434;
2158   t441 = t185 * t190;
2159   t445 = 0.1e1 / t86 / t85;
2160   t446 = t70 * t445;
2161   t447 = t199 * t199;
2162   t451 = t78 * t147;
2163   t453 = 0.1e1 / t8 / t451;
2164   t455 = t77 * t22 * t453;
2165   t457 = 0.972e3 * t386 + 0.15200e5 / 0.9e1 * t455;
2166   t463 = t384 * t27;
2167   t466 = t105 * t23;
2168   t467 = 0.1e1 / t466;
2169   t471 = t390 * t45 / 0.24e2 - 0.2e1 / 0.9e1 * t154 * t159 + 0.11e2 / 0.27e2 * t36 * t397 + 0.292e3 / 0.2025e4 * t400 + 0.292e3 / 0.2025e4 * t70 * t436 - 0.73e2 / 0.97200e5 * t436 * t86 - 0.73e2 / 0.97200e5 * t441 * t199 + 0.73e2 / 0.388800e6 * t446 * t447 - 0.73e2 / 0.194400e6 * t191 * t457 + 0.475e3 / 0.531441e6 * t90 * t91 * t453 + t96 * t463 / 0.120e3 + t100 * t104 * t467 / 0.32e2;
2170   t474 = t213 * t216 * t95;
2171   t477 = t115 * t115;
2172   t478 = 0.1e1 / t477;
2173   t480 = t110 * t478 * params->e;
2174   t485 = t471 * t116 + 0.4e1 / 0.9e1 * t474 * t183 + 0.2e1 / 0.27e2 * t480 * t455 - 0.22e2 / 0.27e2 * t218 * t434;
2175   t486 = t134 * t485;
2176   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2177     v2rho2[0] = -t5 * t7 * t339 * t123 / 0.6e1 - t344 * t345 * t222 + 0.3e1 / 0.4e1 * t130 * t132 * t351 - 0.3e1 / 0.8e1 * t130 * t132 * t486;
2178 
2179   t490 = t8 * t2;
2180   t491 = t490 * t4;
2181   t494 = t131 * t349;
2182   t495 = t287 * t221;
2183   t496 = t494 * t495;
2184   t499 = t141 * t232;
2185   t502 = params->BLOC_b * t24;
2186   t507 = -t502 * t227 / 0.8e1 - t502 * t12 / 0.4e1;
2187   t508 = t507 * t32;
2188   t510 = t21 * t232;
2189   t513 = t145 * sigma[0];
2190   t514 = t513 * t97;
2191   t517 = 0.1e1 / t79;
2192   t518 = t103 * t517;
2193   t522 = sigma[0] * t148;
2194   t523 = t522 * t27;
2195   t527 = (t21 * t499 * t32 + t21 * t508 + t510 * t370 / 0.16e2 - t368 * t514 / 0.16e2 - 0.3e1 / 0.512e3 * t375 * t518 * t380 + t146 * t523 / 0.8e1) * t35;
2196   t534 = t40 * t158;
2197   t539 = t158 * t35;
2198   t540 = t539 * t168;
2199   t542 = t246 * t411;
2200   t544 = t410 * t255;
2201   t547 = t255 * t180;
2202   t550 = params->b * t158;
2203   t551 = t550 * t60;
2204   t553 = t249 * t177;
2205   t556 = t58 * t77 * t158;
2206   t558 = 0.5e1 / 0.3e1 * t551 - 0.25e2 / 0.36e2 * t553 + 0.25e2 / 0.27e2 * t556;
2207   t561 = t539 * t40;
2208   t563 = t540 / 0.4e1 + 0.3e1 / 0.64e2 * t542 - 0.3e1 / 0.8e1 * t167 * t544 + 0.81e2 / 0.80e2 * t417 * t547 - 0.27e2 / 0.40e2 * t173 * t558 - 0.2e1 / 0.27e2 * t561;
2209   t568 = t260 * t190;
2210   t573 = t269 * t199;
2211   t578 = t77 * sigma[0] * t195;
2212   t580 = -0.648e3 * t523 - 0.1600e4 / 0.3e1 * t578;
2213   t591 = t527 * t45 / 0.24e2 - t240 * t159 / 0.9e1 + t154 * t243 / 0.24e2 - t36 * t534 / 0.9e1 + 0.292e3 / 0.2025e4 * t185 * t260 + 0.292e3 / 0.2025e4 * t70 * t563 - 0.73e2 / 0.97200e5 * t563 * t86 - 0.73e2 / 0.194400e6 * t568 * t199 - 0.73e2 / 0.194400e6 * t441 * t269 + 0.73e2 / 0.388800e6 * t446 * t573 - 0.73e2 / 0.194400e6 * t191 * t580 - 0.50e2 / 0.177147e6 * t90 * t272 * t195 - t276 * t205 / 0.180e3 - t100 * t279 * t209 / 0.96e2;
2214   t594 = t283 * t216 * t95;
2215   t603 = t591 * t116 + 0.2e1 / 0.9e1 * t594 * t183 - t474 * t258 / 0.12e2 - t480 * t578 / 0.36e2 + 0.2e1 / 0.9e1 * t218 * t561;
2216   t605 = t132 * t134 * t603;
2217   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2218     v2rhosigma[0] = -t491 * t289 / 0.2e1 + 0.3e1 / 0.4e1 * t293 * t496 - 0.3e1 / 0.8e1 * t130 * t605;
2219 
2220   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2221     v2rholapl[0] = 0.0e0;
2222 
2223   t608 = t490 * t292;
2224   t612 = t494 * t335 * t221;
2225   t615 = t141 * t300;
2226   t623 = t15 * t97 * t136 / 0.8e1 + t15 * t97 / 0.4e1;
2227   t624 = t623 * t32;
2228   t626 = t21 * t300;
2229   t629 = t369 * t331;
2230   t632 = t376 * t517;
2231   t634 = 0.1e1 / t379 / tau[0];
2232   t638 = t149 * t304;
2233   t642 = (t21 * t615 * t32 + t21 * t624 + t626 * t370 / 0.16e2 + t368 * t629 / 0.16e2 + 0.3e1 / 0.512e3 * t375 * t632 * t634 - t146 * t638 / 0.8e1) * t35;
2234   t652 = t410 * t321;
2235   t655 = t321 * t180;
2236   t662 = -0.25e2 / 0.3e1 * t250 + 0.50e2 / 0.9e1 * t315 * t177 - 0.125e3 / 0.27e2 * t253;
2237   t665 = -0.5e1 / 0.4e1 * t247 - 0.3e1 / 0.8e1 * t312 * t411 - 0.3e1 / 0.8e1 * t167 * t652 + 0.81e2 / 0.80e2 * t417 * t655 - 0.27e2 / 0.40e2 * t173 * t662;
2238   t670 = t324 * t190;
2239   t675 = t446 * t22;
2240   t676 = t331 * t199;
2241   t681 = t148 * t304;
2242   t684 = t642 * t45 / 0.24e2 - t309 * t159 / 0.9e1 + 0.292e3 / 0.2025e4 * t185 * t324 + 0.292e3 / 0.2025e4 * t70 * t665 - 0.73e2 / 0.97200e5 * t665 * t86 - 0.73e2 / 0.194400e6 * t670 * t199 + 0.73e2 / 0.600e3 * t441 * t305 - 0.73e2 / 0.1200e4 * t675 * t676 - 0.73e2 / 0.300e3 * t191 * t638 + t96 * t681 / 0.180e3;
2243   t685 = t684 * t116;
2244   t686 = t294 * t685;
2245   t691 = 0.1e1 / t8 / t23 * t2;
2246   t692 = t691 * t4;
2247   t693 = t132 * t134;
2248   t694 = t692 * t693;
2249   t695 = t334 * t216;
2250   t696 = t695 * t95;
2251   t697 = t59 * sigma[0];
2252   t698 = t696 * t697;
2253   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2254     v2rhotau[0] = -t608 * t336 / 0.2e1 + 0.3e1 / 0.4e1 * t293 * t612 - 0.3e1 / 0.8e1 * t293 * t686 - t694 * t698 / 0.12e2;
2255 
2256   t701 = t287 * t287;
2257   t703 = t132 * t349 * t701;
2258   t706 = t232 * t232;
2259   t707 = t706 * t32;
2260   t712 = 0.1e1 / t22;
2261   t714 = t226 * t12 * t230 / 0.4e1 - t19 * t712;
2262   t719 = t385 * t380;
2263   t722 = t145 * t24;
2264   t723 = t722 * t27;
2265   t727 = (t21 * t707 + t21 * t714 * t32 - t510 * t514 / 0.8e1 + 0.3e1 / 0.512e3 * t375 * t719 - t21 * t723 / 0.16e2) * t35;
2266   t732 = t260 * t260;
2267   t734 = t246 * t544;
2268   t736 = t255 * t255;
2269   t739 = t173 * params->b;
2270   t740 = t77 * t81;
2271   t741 = t739 * t740;
2272   t743 = 0.3e1 / 0.32e2 * t734 + 0.81e2 / 0.80e2 * t417 * t736 - 0.15e2 / 0.256e3 * t741;
2273   t750 = t269 * t269;
2274   t755 = 0.324e3 * t97 + 0.100e3 * t740;
2275   t761 = t95 * t24;
2276   t764 = t102 * sigma[0];
2277   t768 = t727 * t45 / 0.24e2 + t240 * t243 / 0.12e2 + 0.292e3 / 0.2025e4 * t732 + 0.292e3 / 0.2025e4 * t70 * t743 - 0.73e2 / 0.97200e5 * t743 * t86 - 0.73e2 / 0.97200e5 * t568 * t269 + 0.73e2 / 0.388800e6 * t446 * t750 - 0.73e2 / 0.194400e6 * t191 * t755 + 0.25e2 / 0.472392e6 * t90 * t76 * t81 + t761 * t27 / 0.360e3 + t100 * t764 * t106 / 0.384e3;
2278   t774 = t768 * t116 - t594 * t258 / 0.6e1 + t480 * t740 / 0.96e2;
2279   t776 = t132 * t134 * t774;
2280   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2281     v2sigma2[0] = 0.3e1 / 0.4e1 * t130 * t703 - 0.3e1 / 0.8e1 * t130 * t776;
2282 
2283   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2284     v2sigmalapl[0] = 0.0e0;
2285 
2286   t780 = t494 * t335 * t287;
2287   t783 = t232 * t300;
2288   t784 = t783 * t32;
2289   t786 = t27 * t136;
2290   t791 = -t226 * t786 / 0.8e1 - t226 * t27 / 0.4e1;
2291   t792 = t791 * t32;
2292   t798 = t103 * t384;
2293   t802 = t235 * t304;
2294   t806 = (t21 * t784 + t21 * t792 - t626 * t514 / 0.16e2 + t510 * t629 / 0.16e2 - 0.3e1 / 0.512e3 * t375 * t798 * t634 + t146 * t802 / 0.8e1) * t35;
2295   t815 = t246 * t652;
2296   t817 = t321 * t255;
2297   t821 = 0.1e1 / t8 / t78;
2298   t822 = t821 * t74;
2299   t824 = t739 * t822 * t76;
2300   t826 = -0.3e1 / 0.8e1 * t312 * t544 + 0.3e1 / 0.64e2 * t815 + 0.81e2 / 0.80e2 * t417 * t817 + 0.15e2 / 0.32e2 * t824;
2301   t835 = t331 * t269;
2302   t842 = t806 * t45 / 0.24e2 + t309 * t243 / 0.24e2 + 0.292e3 / 0.2025e4 * t260 * t324 + 0.292e3 / 0.2025e4 * t70 * t826 - 0.73e2 / 0.97200e5 * t826 * t86 - 0.73e2 / 0.194400e6 * t670 * t269 + 0.73e2 / 0.600e3 * t568 * t305 - 0.73e2 / 0.1200e4 * t675 * t835 + 0.73e2 / 0.300e3 * t191 * t802 - t276 * t331 / 0.180e3;
2303   t843 = t842 * t116;
2304   t844 = t294 * t843;
2305   t848 = 0.1e1 / t128 * t2;
2306   t849 = t292 * t131;
2307   t850 = t848 * t849;
2308   t851 = t134 * t334;
2309   t853 = t111 * t40;
2310   t854 = t851 * t216 * t853;
2311   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2312     v2sigmatau[0] = 0.3e1 / 0.4e1 * t293 * t780 - 0.3e1 / 0.8e1 * t293 * t844 + t850 * t854 / 0.32e2;
2313 
2314   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2315     v2lapl2[0] = 0.0e0;
2316 
2317   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2318     v2lapltau[0] = 0.0e0;
2319 
2320   t857 = t334 * t334;
2321   t858 = t857 * t478;
2322   t859 = t494 * t858;
2323   t862 = t300 * t300;
2324   t863 = t862 * t32;
2325   t865 = t10 * t304;
2326   t872 = t15 * t865 * t136 / 0.4e1 + t15 * t865 / 0.4e1 + t19 * t27;
2327   t877 = t376 * t384;
2328   t879 = 0.1e1 / t379 / t26;
2329   t880 = t877 * t879;
2330   t883 = t25 * t380;
2331   t887 = (t21 * t863 + t21 * t872 * t32 + t626 * t629 / 0.8e1 + 0.3e1 / 0.512e3 * t375 * t880 - 0.3e1 / 0.16e2 * t146 * t883) * t35;
2332   t890 = t324 * t324;
2333   t894 = t321 * t321;
2334   t898 = 0.1e1 / t8 / t147;
2335   t899 = t898 * t74;
2336   t903 = -0.3e1 / 0.4e1 * t312 * t652 + 0.81e2 / 0.80e2 * t417 * t894 - 0.15e2 / 0.4e1 * t739 * t899 * t76;
2337   t914 = t24 * t380;
2338   t917 = t887 * t45 / 0.24e2 + 0.292e3 / 0.2025e4 * t890 + 0.292e3 / 0.2025e4 * t70 * t903 - 0.73e2 / 0.97200e5 * t903 * t86 + 0.73e2 / 0.300e3 * t670 * t305 + 0.1971e4 / 0.100e3 * t446 * t880 - 0.73e2 / 0.200e3 * t191 * t883 + t96 * t914 / 0.120e3;
2339   t918 = t917 * t116;
2340   t919 = t294 * t918;
2341   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2342     v2tau2[0] = 0.3e1 / 0.4e1 * t293 * t859 - 0.3e1 / 0.8e1 * t293 * t919;
2343 
2344 #ifndef XC_DONT_COMPILE_KXC
2345 
2346   if(order < 3) return;
2347 
2348 
2349   t926 = t339 * t131;
2350   t936 = t133 * t133;
2351   t937 = 0.1e1 / t936;
2352   t938 = t350 * t221;
2353   t939 = t937 * t938;
2354   t944 = t494 * t221 * t485;
2355   t947 = t355 * t141;
2356   t953 = t21 * t355;
2357   t956 = t384 * t12;
2358   t964 = -0.3e1 / 0.4e1 * t15 * t956 * t136 - 0.9e1 / 0.8e1 * t15 * t956 - 0.2e1 * t19 * t148;
2359   t967 = t21 * t365;
2360   t970 = t374 * t376;
2361   t971 = t377 * t380;
2362   t972 = t970 * t971;
2363   t975 = t369 * t463;
2364   t979 = 0.1e1 / t373 / t30;
2365   t980 = t21 * t979;
2366   t981 = t376 * t22;
2367   t982 = t981 * t209;
2368   t986 = 0.1e1 / t451;
2369   t987 = t376 * t986;
2370   t991 = t22 * t517;
2371   t992 = t991 * t27;
2372   t996 = (t21 * t947 * t32 + 0.3e1 * t21 * t142 * t365 + 0.3e1 / 0.16e2 * t953 * t370 + t21 * t964 * t32 + 0.3e1 / 0.16e2 * t967 * t370 + 0.9e1 / 0.512e3 * t368 * t972 - 0.9e1 / 0.16e2 * t368 * t975 + 0.3e1 / 0.4096e4 * t980 * t982 * t879 - 0.27e2 / 0.512e3 * t375 * t987 * t380 + 0.3e1 / 0.4e1 * t146 * t992) * t35;
2373   t1004 = 0.1e1 / t42 / t79;
2374   t1005 = t41 * t1004;
2375   t1012 = sigma[0] * t1004;
2376   t1014 = -0.440e3 / 0.27e2 * tau[0] * t396 + 0.154e3 / 0.27e2 * t1012;
2377   t1015 = t1014 * t35;
2378   t1020 = t40 * t416;
2379   t1021 = t1020 * t418;
2380   t1024 = t410 * t431;
2381   t1029 = 0.1e1 / t64 / t414 / t63;
2382   t1030 = t57 * t1029;
2383   t1031 = t418 * t180;
2384   t1037 = params->b * t1014;
2385   t1042 = t77 * t1014;
2386   t1045 = 0.5e1 * t1037 * t60 + 0.50e2 / 0.3e1 * t421 * t177 + 0.25e2 / 0.9e1 * t58 * t1042;
2387   t1048 = t59 * t1012;
2388   t1050 = 0.3e1 / 0.4e1 * t1015 * t168 - 0.9e1 / 0.8e1 * t407 * t411 + 0.27e2 / 0.16e2 * t167 * t1021 - 0.9e1 / 0.8e1 * t167 * t1024 - 0.81e2 / 0.32e2 * t1030 * t1031 + 0.243e3 / 0.80e2 * t417 * t180 * t431 - 0.27e2 / 0.40e2 * t173 * t1045 - 0.308e3 / 0.243e3 * t1048;
2389   t1055 = t436 * t190;
2390   t1058 = t185 * t445;
2391   t1063 = t85 * t85;
2392   t1065 = 0.1e1 / t86 / t1063;
2393   t1066 = t70 * t1065;
2394   t1067 = t447 * t199;
2395   t1070 = t199 * t457;
2396   t1075 = 0.1e1 / t8 / t105;
2397   t1077 = t77 * t22 * t1075;
2398   t1079 = -0.3888e4 * t992 - 0.334400e6 / 0.27e2 * t1077;
2399   t1085 = t517 * t27;
2400   t1088 = t105 * t147;
2401   t1089 = 0.1e1 / t1088;
2402   t1090 = t104 * t1089;
2403   t1093 = t996 * t45 / 0.24e2 - t390 * t159 / 0.3e1 + 0.11e2 / 0.9e1 * t154 * t397 - 0.154e3 / 0.81e2 * t36 * t1005 + 0.292e3 / 0.675e3 * t185 * t436 + 0.292e3 / 0.2025e4 * t70 * t1050 - 0.73e2 / 0.97200e5 * t1050 * t86 - 0.73e2 / 0.64800e5 * t1055 * t199 + 0.73e2 / 0.129600e6 * t1058 * t447 - 0.73e2 / 0.64800e5 * t441 * t457 - 0.73e2 / 0.259200e6 * t1066 * t1067 + 0.73e2 / 0.129600e6 * t446 * t1070 - 0.73e2 / 0.194400e6 * t191 * t1079 - 0.10450e5 / 0.1594323e7 * t90 * t91 * t1075 - t96 * t1085 / 0.30e2 - 0.5e1 / 0.16e2 * t100 * t1090;
2404   t1096 = t471 * t216 * t95;
2405   t1100 = t213 * t478 * params->e;
2406   t1106 = 0.1e1 / t477 / t114;
2407   t1107 = t110 * t1106;
2408   t1108 = t95 * params->e;
2409   t1109 = t1107 * t1108;
2410   t1116 = t1093 * t116 + 0.2e1 / 0.3e1 * t1096 * t183 + 0.2e1 / 0.9e1 * t1100 * t455 - 0.22e2 / 0.9e1 * t474 * t434 + 0.16e2 / 0.81e2 * t1109 * t1090 - 0.22e2 / 0.27e2 * t480 * t1077 + 0.308e3 / 0.81e2 * t218 * t1048;
2411   t1117 = t134 * t1116;
2412   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2413     v3rho3[0] = t5 * t7 * t49 * t123 / 0.9e1 - t344 * t926 * t222 / 0.2e1 + 0.3e1 * t344 * t345 * t351 - 0.3e1 / 0.2e1 * t344 * t345 * t486 - 0.9e1 / 0.4e1 * t130 * t132 * t939 + 0.9e1 / 0.4e1 * t293 * t944 - 0.3e1 / 0.8e1 * t130 * t132 * t1117;
2414 
2415   t1121 = t339 * t2;
2416   t1122 = t1121 * t4;
2417   t1128 = t131 * t937;
2418   t1130 = t1128 * t287 * t350;
2419   t1134 = t494 * t603 * t221;
2420   t1138 = t494 * t287 * t485;
2421   t1149 = t396 * t35;
2422   t1150 = t1149 * t168;
2423   t1152 = t539 * t411;
2424   t1154 = t246 * t1021;
2425   t1156 = t246 * t1024;
2426   t1160 = t167 * t40;
2427   t1161 = t416 * t255;
2428   t1162 = t1161 * t180;
2429   t1165 = t410 * t558;
2430   t1177 = params->b * t396;
2431   t1178 = t1177 * t60;
2432   t1180 = t550 * t177;
2433   t1182 = t249 * t428;
2434   t1185 = t58 * t77 * t396;
2435   t1187 = -0.55e2 / 0.9e1 * t1178 + 0.100e3 / 0.27e2 * t1180 - 0.25e2 / 0.36e2 * t1182 - 0.275e3 / 0.81e2 * t1185;
2436   t1190 = t1149 * t40;
2437   t1192 = -0.11e2 / 0.12e2 * t1150 - t1152 / 0.4e1 - 0.9e1 / 0.128e3 * t1154 + 0.3e1 / 0.64e2 * t1156 - 0.3e1 / 0.8e1 * t407 * t544 + 0.9e1 / 0.8e1 * t1160 * t1162 - 0.3e1 / 0.4e1 * t167 * t1165 - 0.81e2 / 0.32e2 * t1030 * t255 * t418 + 0.81e2 / 0.40e2 * t417 * t558 * t180 + 0.81e2 / 0.80e2 * t417 * t255 * t431 - 0.27e2 / 0.40e2 * t173 * t1187 + 0.22e2 / 0.81e2 * t1190;
2438   t1199 = t260 * t445;
2439   t1204 = t580 * t199;
2440   t1207 = t269 * t457;
2441   t1210 = -0.2e1 / 0.9e1 * t527 * t159 + 0.11e2 / 0.27e2 * t240 * t397 + 0.292e3 / 0.2025e4 * t436 * t260 + 0.584e3 / 0.2025e4 * t185 * t563 + 0.292e3 / 0.2025e4 * t70 * t1192 - 0.73e2 / 0.97200e5 * t1192 * t86 + t390 * t243 / 0.24e2 + 0.73e2 / 0.388800e6 * t1199 * t447 + 0.73e2 / 0.194400e6 * t1058 * t573 + 0.73e2 / 0.194400e6 * t446 * t1204 + 0.73e2 / 0.388800e6 * t446 * t1207;
2442   t1213 = t269 * t447;
2443   t1219 = t279 * t467;
2444   t1222 = t355 * t232;
2445   t1225 = t365 * t232;
2446   t1226 = t1225 * t32;
2447   t1228 = t141 * t507;
2448   t1232 = t21 * t499;
2449   t1235 = params->BLOC_b * t148;
2450   t1240 = t1235 * t227 / 0.4e1 + 0.5e1 / 0.8e1 * t1235 * t12;
2451   t1243 = t21 * t507;
2452   t1254 = t374 * t103;
2453   t1255 = t517 * t380;
2454   t1256 = t1254 * t1255;
2455   t1259 = t513 * t205;
2456   t1262 = t376 * sigma[0];
2457   t1263 = t1262 * t106;
2458   t1267 = t103 * t377;
2459   t1271 = sigma[0] * t384;
2460   t1272 = t1271 * t27;
2461   t1275 = t21 * t1222 * t32 + t21 * t1226 + 0.2e1 * t21 * t1228 * t32 + t1232 * t370 / 0.8e1 + t21 * t1240 * t32 + t1243 * t370 / 0.8e1 + 0.3e1 / 0.512e3 * t510 * t972 - 0.3e1 / 0.16e2 * t510 * t975 - t953 * t514 / 0.16e2 - t967 * t514 / 0.16e2 - 0.3e1 / 0.256e3 * t368 * t1256 + t368 * t1259 / 0.4e1 - 0.3e1 / 0.4096e4 * t980 * t1263 * t879 + 0.21e2 / 0.512e3 * t375 * t1267 * t380 - 0.3e1 / 0.8e1 * t146 * t1272;
2462   t1276 = t1275 * t35;
2463   t1281 = t40 * t396;
2464   t1284 = t563 * t190;
2465   t1295 = t77 * sigma[0] * t453;
2466   t1297 = 0.1944e4 * t1272 + 0.30400e5 / 0.9e1 * t1295;
2467   t1300 = t276 * t463 / 0.60e2 - 0.73e2 / 0.259200e6 * t1066 * t1213 + 0.950e3 / 0.531441e6 * t90 * t272 * t453 + 0.3e1 / 0.32e2 * t100 * t1219 + t1276 * t45 / 0.24e2 - 0.2e1 / 0.9e1 * t154 * t534 + 0.11e2 / 0.27e2 * t36 * t1281 - 0.73e2 / 0.97200e5 * t1284 * t199 - 0.73e2 / 0.194400e6 * t568 * t457 - 0.73e2 / 0.194400e6 * t1055 * t269 - 0.73e2 / 0.97200e5 * t441 * t580 - 0.73e2 / 0.194400e6 * t191 * t1297;
2468   t1301 = t1210 + t1300;
2469   t1304 = t591 * t216 * t95;
2470   t1308 = t283 * t478 * params->e;
2471   t1325 = t1301 * t116 + 0.4e1 / 0.9e1 * t1304 * t183 + 0.2e1 / 0.27e2 * t1308 * t455 - 0.22e2 / 0.27e2 * t594 * t434 - t1096 * t258 / 0.12e2 - t1100 * t578 / 0.18e2 + 0.4e1 / 0.9e1 * t474 * t561 - 0.2e1 / 0.27e2 * t1109 * t1219 + t480 * t1295 / 0.4e1 - 0.22e2 / 0.27e2 * t218 * t1190;
2472   t1327 = t132 * t134 * t1325;
2473   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2474     v3rho2sigma[0] = -t1122 * t289 / 0.6e1 + 0.2e1 * t608 * t496 - t491 * t605 - 0.9e1 / 0.4e1 * t293 * t1130 + 0.3e1 / 0.2e1 * t293 * t1134 + 0.3e1 / 0.4e1 * t293 * t1138 - 0.3e1 / 0.8e1 * t130 * t1327;
2475 
2476   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2477     v3rho2lapl[0] = 0.0e0;
2478 
2479   t1330 = t1121 * t292;
2480   t1336 = t898 * t2;
2481   t1337 = t1336 * t4;
2482   t1338 = t1337 * t693;
2483   t1342 = t1128 * t335 * t350;
2484   t1346 = t494 * t685 * t221;
2485   t1349 = t132 * t349;
2486   t1350 = t692 * t1349;
2487   t1352 = t111 * t41;
2488   t1353 = t695 * t221 * t1352;
2489   t1357 = t494 * t335 * t485;
2490   t1360 = t355 * t300;
2491   t1363 = t365 * t300;
2492   t1364 = t1363 * t32;
2493   t1366 = t141 * t623;
2494   t1370 = t21 * t615;
2495   t1378 = -t15 * t205 * t136 / 0.4e1 - 0.5e1 / 0.8e1 * t15 * t205;
2496   t1381 = t21 * t623;
2497   t1392 = t517 * t634;
2498   t1393 = t970 * t1392;
2499   t1396 = t369 * t681;
2500   t1399 = t981 * t106;
2501   t1401 = 0.1e1 / t379 / t303;
2502   t1408 = t385 * t304;
2503   t1411 = t21 * t1360 * t32 + t21 * t1364 + 0.2e1 * t21 * t1366 * t32 + t1370 * t370 / 0.8e1 + t21 * t1378 * t32 + t1381 * t370 / 0.8e1 + 0.3e1 / 0.512e3 * t626 * t972 - 0.3e1 / 0.16e2 * t626 * t975 + t953 * t629 / 0.16e2 + t967 * t629 / 0.16e2 + 0.3e1 / 0.256e3 * t368 * t1393 - t368 * t1396 / 0.4e1 + 0.3e1 / 0.4096e4 * t980 * t1399 * t1401 - 0.21e2 / 0.512e3 * t375 * t378 * t634 + 0.3e1 / 0.8e1 * t146 * t1408;
2504   t1412 = t1411 * t35;
2505   t1431 = t416 * t321;
2506   t1432 = t1431 * t180;
2507   t1435 = t410 * t662;
2508   t1452 = 0.200e3 / 0.9e1 * t551 - 0.500e3 / 0.27e2 * t553 + 0.50e2 / 0.9e1 * t315 * t428 + 0.1000e4 / 0.81e2 * t556;
2509   t1455 = 0.10e2 / 0.3e1 * t540 + 0.5e1 / 0.4e1 * t542 + 0.9e1 / 0.16e2 * t312 * t1021 - 0.3e1 / 0.8e1 * t312 * t1024 - 0.3e1 / 0.8e1 * t407 * t652 + 0.9e1 / 0.8e1 * t1160 * t1432 - 0.3e1 / 0.4e1 * t167 * t1435 - 0.81e2 / 0.32e2 * t1030 * t321 * t418 + 0.81e2 / 0.40e2 * t417 * t662 * t180 + 0.81e2 / 0.80e2 * t417 * t321 * t431 - 0.27e2 / 0.40e2 * t173 * t1452;
2510   t1460 = t665 * t190;
2511   t1463 = t324 * t445;
2512   t1470 = t1058 * t22;
2513   t1475 = t1066 * t22;
2514   t1476 = t331 * t447;
2515   t1479 = t681 * t199;
2516   t1482 = t331 * t457;
2517   t1487 = t384 * t304;
2518   t1490 = t1412 * t45 / 0.24e2 - 0.2e1 / 0.9e1 * t642 * t159 + 0.11e2 / 0.27e2 * t309 * t397 + 0.292e3 / 0.2025e4 * t436 * t324 + 0.584e3 / 0.2025e4 * t185 * t665 + 0.292e3 / 0.2025e4 * t70 * t1455 - 0.73e2 / 0.97200e5 * t1455 * t86 - 0.73e2 / 0.97200e5 * t1460 * t199 + 0.73e2 / 0.388800e6 * t1463 * t447 - 0.73e2 / 0.194400e6 * t670 * t457 + 0.73e2 / 0.600e3 * t1055 * t305 - 0.73e2 / 0.600e3 * t1470 * t676 - 0.73e2 / 0.150e3 * t441 * t638 + 0.73e2 / 0.800e3 * t1475 * t1476 + 0.73e2 / 0.300e3 * t675 * t1479 - 0.73e2 / 0.1200e4 * t675 * t1482 + 0.73e2 / 0.100e3 * t191 * t1408 - t96 * t1487 / 0.60e2;
2519   t1491 = t1490 * t116;
2520   t1492 = t294 * t1491;
2521   t1495 = t684 * t216;
2522   t1496 = t1495 * t95;
2523   t1497 = t1496 * t697;
2524   t1501 = t377 * t2 * t4;
2525   t1502 = t1501 * t693;
2526   t1503 = t334 * t478;
2527   t1504 = t1503 * params->e;
2528   t1505 = t77 * t22;
2529   t1506 = t1504 * t1505;
2530   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2531     v3rho2tau[0] = -t1330 * t336 / 0.6e1 + 0.2e1 * t608 * t612 - t608 * t686 + t1338 * t698 / 0.12e2 - 0.9e1 / 0.4e1 * t293 * t1342 + 0.3e1 / 0.2e1 * t293 * t1346 + t1350 * t1353 / 0.3e1 + 0.3e1 / 0.4e1 * t293 * t1357 - 0.3e1 / 0.8e1 * t293 * t1492 - t694 * t1497 / 0.6e1 - t1502 * t1506 / 0.36e2;
2532 
2533   t1511 = t1128 * t701 * t221;
2534   t1515 = t494 * t287 * t603;
2535   t1521 = t494 * t774 * t221;
2536   t1524 = t141 * t706;
2537   t1527 = t233 * t507;
2538   t1530 = t21 * t706;
2539   t1533 = t141 * t714;
2540   t1536 = t21 * params->BLOC_b;
2541   t1538 = t12 * t32;
2542   t1539 = t230 * t24 * t1538;
2543   t1542 = t21 * t714;
2544   t1553 = t374 * t22;
2545   t1554 = t384 * t380;
2546   t1555 = t1553 * t1554;
2547   t1566 = t145 * t148;
2548   t1567 = t1566 * t27;
2549   t1570 = t21 * t1524 * t32 + 0.2e1 * t21 * t1527 + t1530 * t370 / 0.16e2 + t21 * t1533 * t32 - t1536 * t1539 / 0.8e1 + t1542 * t370 / 0.16e2 - t1232 * t514 / 0.8e1 - t1243 * t514 / 0.8e1 - 0.3e1 / 0.256e3 * t510 * t1256 + t510 * t1259 / 0.4e1 + 0.3e1 / 0.512e3 * t368 * t1555 + 0.3e1 / 0.4096e4 * t980 * t987 * t879 - 0.15e2 / 0.512e3 * t375 * t991 * t380 - t368 * t723 / 0.16e2 + t21 * t1567 / 0.8e1;
2550   t1571 = t1570 * t35;
2551   t1584 = t539 * t544;
2552   t1586 = t258 * t1162;
2553   t1588 = t246 * t1165;
2554   t1590 = t1020 * t736;
2555   t1599 = t166 * t102;
2556   t1600 = t172 * params->b;
2557   t1601 = t1600 * t81;
2558   t1602 = t1599 * t1601;
2559   t1604 = t417 * params->b;
2560   t1605 = t81 * t74;
2561   t1606 = t76 * t180;
2562   t1607 = t1605 * t1606;
2563   t1608 = t1604 * t1607;
2564   t1610 = t77 * t195;
2565   t1611 = t739 * t1610;
2566   t1613 = -t1584 / 0.4e1 - 0.9e1 / 0.64e2 * t1586 + 0.3e1 / 0.32e2 * t1588 + 0.9e1 / 0.16e2 * t167 * t1590 - 0.81e2 / 0.32e2 * t1030 * t736 * t180 + 0.81e2 / 0.40e2 * t417 * t255 * t558 - 0.25e2 / 0.128e3 * t1602 + 0.45e2 / 0.512e3 * t1608 + 0.5e1 / 0.16e2 * t1611;
2567   t1618 = t743 * t190;
2568   t1630 = t750 * t199;
2569   t1633 = t269 * t580;
2570   t1638 = t755 * t199;
2571   t1643 = -0.648e3 * t205 - 0.1600e4 / 0.3e1 * t1610;
2572   t1649 = t95 * t148;
2573   t1652 = t764 * t209;
2574   t1655 = 0.73e2 / 0.194400e6 * t1199 * t573 - 0.73e2 / 0.97200e5 * t568 * t580 + 0.73e2 / 0.388800e6 * t1058 * t750 - 0.73e2 / 0.259200e6 * t1066 * t1630 + 0.73e2 / 0.194400e6 * t446 * t1633 - 0.73e2 / 0.194400e6 * t441 * t755 + 0.73e2 / 0.388800e6 * t446 * t1638 - 0.73e2 / 0.194400e6 * t191 * t1643 - 0.50e2 / 0.177147e6 * t90 * t76 * t195 - t1649 * t27 / 0.180e3 - t100 * t1652 / 0.48e2;
2575   t1656 = t1571 * t45 / 0.24e2 - t727 * t159 / 0.9e1 + t527 * t243 / 0.12e2 - 0.2e1 / 0.9e1 * t240 * t534 + 0.584e3 / 0.2025e4 * t260 * t563 + 0.292e3 / 0.2025e4 * t185 * t743 + 0.292e3 / 0.2025e4 * t70 * t1613 - 0.73e2 / 0.97200e5 * t1613 * t86 - 0.73e2 / 0.194400e6 * t1618 * t199 - 0.73e2 / 0.97200e5 * t1284 * t269 + t1655;
2576   t1659 = t768 * t216 * t95;
2577   t1674 = t1656 * t116 + 0.2e1 / 0.9e1 * t1659 * t183 - t1304 * t258 / 0.6e1 - t1308 * t578 / 0.18e2 + 0.4e1 / 0.9e1 * t594 * t561 + t1100 * t740 / 0.96e2 + t1109 * t1652 / 0.36e2 - t480 * t1610 / 0.18e2;
2578   t1676 = t132 * t134 * t1674;
2579   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2580     v3rhosigma2[0] = t491 * t703 - 0.9e1 / 0.4e1 * t293 * t1511 + 0.3e1 / 0.2e1 * t293 * t1515 - t491 * t776 / 0.2e1 + 0.3e1 / 0.4e1 * t293 * t1521 - 0.3e1 / 0.8e1 * t130 * t1676;
2581 
2582   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2583     v3rhosigmalapl[0] = 0.0e0;
2584 
2585   t1680 = t129 * t849;
2586   t1681 = t937 * t334;
2587   t1682 = t116 * t287;
2588   t1683 = t1682 * t221;
2589   t1684 = t1681 * t1683;
2590   t1688 = t494 * t685 * t287;
2591   t1691 = t695 * t287;
2592   t1692 = t1691 * t1352;
2593   t1696 = t494 * t335 * t603;
2594   t1702 = t494 * t843 * t221;
2595   t1706 = t507 * t300;
2596   t1707 = t1706 * t32;
2597   t1709 = t232 * t623;
2598   t1710 = t1709 * t32;
2599   t1712 = t21 * t783;
2600   t1715 = t141 * t791;
2601   t1722 = t502 * t786 / 0.8e1 + 0.3e1 / 0.8e1 * t502 * t27;
2602   t1725 = t21 * t791;
2603   t1744 = t384 * t634;
2604   t1745 = t1254 * t1744;
2605   t1748 = t1262 * t986;
2606   t1755 = t513 * t331;
2607   t1758 = t522 * t304;
2608   t1761 = t368 * t784 + t21 * t1707 + t21 * t1710 + t1712 * t370 / 0.16e2 + t21 * t1715 * t32 + t21 * t1722 * t32 + t1725 * t370 / 0.16e2 - t1370 * t514 / 0.16e2 - t1381 * t514 / 0.16e2 - 0.3e1 / 0.512e3 * t626 * t1256 + t626 * t1259 / 0.8e1 + t1232 * t629 / 0.16e2 + t1243 * t629 / 0.16e2 + 0.3e1 / 0.512e3 * t510 * t1393 - t510 * t1396 / 0.8e1 - 0.3e1 / 0.512e3 * t368 * t1745 - 0.3e1 / 0.4096e4 * t980 * t1748 * t1401 + 0.9e1 / 0.256e3 * t375 * t518 * t634 + t368 * t1755 / 0.8e1 - t146 * t1758 / 0.4e1;
2609   t1762 = t1761 * t35;
2610   t1778 = t312 * t40;
2611   t1783 = t539 * t652;
2612   t1785 = t258 * t1432;
2613   t1787 = t246 * t1435;
2614   t1789 = t1431 * t255;
2615   t1795 = t662 * t255;
2616   t1798 = t321 * t558;
2617   t1801 = t1600 * t821;
2618   t1802 = t1599 * t1801;
2619   t1804 = t822 * t1606;
2620   t1805 = t1604 * t1804;
2621   t1808 = 0.5e1 / 0.8e1 * t734 + 0.9e1 / 0.16e2 * t1778 * t1162 - 0.3e1 / 0.8e1 * t312 * t1165 - t1783 / 0.8e1 - 0.9e1 / 0.128e3 * t1785 + 0.3e1 / 0.64e2 * t1787 + 0.9e1 / 0.16e2 * t1160 * t1789 - 0.81e2 / 0.32e2 * t1030 * t817 * t180 + 0.81e2 / 0.80e2 * t417 * t1795 + 0.81e2 / 0.80e2 * t417 * t1798 + 0.25e2 / 0.16e2 * t1802 - 0.45e2 / 0.64e2 * t1805 - 0.65e2 / 0.32e2 * t741;
2622   t1813 = t826 * t190;
2623   t1820 = t1762 * t45 / 0.24e2 - t806 * t159 / 0.9e1 + t642 * t243 / 0.24e2 - t309 * t534 / 0.9e1 + 0.292e3 / 0.2025e4 * t563 * t324 + 0.292e3 / 0.2025e4 * t260 * t665 + 0.292e3 / 0.2025e4 * t185 * t826 + 0.292e3 / 0.2025e4 * t70 * t1808 - 0.73e2 / 0.97200e5 * t1808 * t86 - 0.73e2 / 0.194400e6 * t1813 * t199 - 0.73e2 / 0.194400e6 * t1460 * t269 + 0.73e2 / 0.388800e6 * t1463 * t573;
2624   t1825 = t1199 * t22;
2625   t1832 = t331 * t573;
2626   t1835 = t681 * t269;
2627   t1838 = t331 * t580;
2628   t1843 = t446 * sigma[0];
2629   t1850 = -0.73e2 / 0.194400e6 * t670 * t580 + 0.73e2 / 0.600e3 * t1284 * t305 - 0.73e2 / 0.1200e4 * t1825 * t676 - 0.73e2 / 0.300e3 * t568 * t638 - 0.73e2 / 0.1200e4 * t1470 * t835 + 0.73e2 / 0.800e3 * t1475 * t1832 + 0.73e2 / 0.600e3 * t675 * t1835 - 0.73e2 / 0.1200e4 * t675 * t1838 + 0.73e2 / 0.300e3 * t441 * t802 - 0.73e2 / 0.600e3 * t1843 * t676 - 0.73e2 / 0.150e3 * t191 * t1758 + t276 * t681 / 0.90e2;
2630   t1851 = t1820 + t1850;
2631   t1852 = t1851 * t116;
2632   t1853 = t294 * t1852;
2633   t1856 = t842 * t216;
2634   t1857 = t1856 * t95;
2635   t1858 = t1857 * t697;
2636   t1861 = t691 * t849;
2637   t1864 = t848 * t4;
2638   t1865 = t1864 * t1349;
2639   t1866 = t59 * t221;
2640   t1867 = t696 * t1866;
2641   t1870 = t134 * t684;
2642   t1872 = t1870 * t216 * t853;
2643   t1875 = t517 * t2;
2644   t1876 = t1875 * t4;
2645   t1877 = t1876 * t693;
2646   t1878 = t77 * sigma[0];
2647   t1879 = t1504 * t1878;
2648   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2649     v3rhosigmatau[0] = t608 * t780 - 0.9e1 / 0.4e1 * t1680 * t1684 + 0.3e1 / 0.4e1 * t293 * t1688 + t1350 * t1692 / 0.6e1 + 0.3e1 / 0.4e1 * t293 * t1696 - t608 * t844 / 0.2e1 + 0.3e1 / 0.4e1 * t293 * t1702 - 0.3e1 / 0.8e1 * t293 * t1853 - t694 * t1858 / 0.12e2 - t1861 * t854 / 0.24e2 - t1865 * t1867 / 0.16e2 + t850 * t1872 / 0.32e2 + t1877 * t1879 / 0.96e2;
2650 
2651   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2652     v3rholapl2[0] = 0.0e0;
2653 
2654   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2655     v3rholapltau[0] = 0.0e0;
2656 
2657   t1884 = t1128 * t858 * t221;
2658   t1888 = t494 * t1503 * t684;
2659   t1891 = t857 * t1106;
2660   t1892 = t1891 * t95;
2661   t1893 = t1892 * t697;
2662   t1899 = t494 * t918 * t221;
2663   t1902 = t141 * t862;
2664   t1905 = t301 * t623;
2665   t1908 = t21 * t862;
2666   t1911 = t141 * t872;
2667   t1919 = -t15 * t331 * t136 / 0.4e1 - 0.5e1 / 0.8e1 * t15 * t331;
2668   t1922 = t21 * t872;
2669   t1933 = t384 * t879;
2670   t1934 = t970 * t1933;
2671   t1937 = t981 * t986;
2672   t1938 = t379 * t379;
2673   t1939 = 0.1e1 / t1938;
2674   t1943 = t632 * t879;
2675   t1946 = t369 * t914;
2676   t1949 = t149 * t380;
2677   t1952 = t21 * t1902 * t32 + 0.2e1 * t21 * t1905 + t1908 * t370 / 0.16e2 + t21 * t1911 * t32 + t21 * t1919 * t32 + t1922 * t370 / 0.16e2 + t1370 * t629 / 0.8e1 + t1381 * t629 / 0.8e1 + 0.3e1 / 0.256e3 * t626 * t1393 - t626 * t1396 / 0.4e1 + 0.3e1 / 0.512e3 * t368 * t1934 + 0.3e1 / 0.4096e4 * t980 * t1937 * t1939 - 0.21e2 / 0.512e3 * t375 * t1943 - 0.3e1 / 0.16e2 * t368 * t1946 + 0.3e1 / 0.8e1 * t146 * t1949;
2678   t1953 = t1952 * t35;
2679   t1967 = t1020 * t894;
2680   t1976 = t1600 * t898;
2681   t1979 = t899 * t1606;
2682   t1983 = 0.5e1 / 0.4e1 * t815 + 0.9e1 / 0.8e1 * t1778 * t1432 - 0.3e1 / 0.4e1 * t312 * t1435 + 0.9e1 / 0.16e2 * t167 * t1967 - 0.81e2 / 0.32e2 * t1030 * t894 * t180 + 0.81e2 / 0.40e2 * t417 * t321 * t662 - 0.25e2 / 0.2e1 * t1599 * t1976 + 0.45e2 / 0.8e1 * t1604 * t1979 + 0.25e2 / 0.2e1 * t824;
2683   t1988 = t903 * t190;
2684   t1993 = t1463 * t22;
2685   t2000 = t1066 * t376;
2686   t2001 = t1933 * t199;
2687   t2008 = t914 * t199;
2688   t2013 = t148 * t380;
2689   t2016 = t1953 * t45 / 0.24e2 - t887 * t159 / 0.9e1 + 0.584e3 / 0.2025e4 * t324 * t665 + 0.292e3 / 0.2025e4 * t185 * t903 + 0.292e3 / 0.2025e4 * t70 * t1983 - 0.73e2 / 0.97200e5 * t1983 * t86 - 0.73e2 / 0.194400e6 * t1988 * t199 + 0.73e2 / 0.300e3 * t1460 * t305 - 0.73e2 / 0.600e3 * t1993 * t676 - 0.73e2 / 0.150e3 * t670 * t638 + 0.1971e4 / 0.100e3 * t1058 * t880 - 0.5913e4 / 0.200e3 * t2000 * t2001 - 0.1971e4 / 0.25e2 * t446 * t1943 - 0.73e2 / 0.200e3 * t441 * t883 + 0.73e2 / 0.400e3 * t675 * t2008 + 0.73e2 / 0.100e3 * t191 * t1949 - t96 * t2013 / 0.60e2;
2690   t2017 = t2016 * t116;
2691   t2018 = t294 * t2017;
2692   t2021 = t917 * t216;
2693   t2022 = t2021 * t95;
2694   t2023 = t2022 * t697;
2695   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2696     v3rhotau2[0] = t608 * t859 - 0.9e1 / 0.4e1 * t293 * t1884 + 0.3e1 / 0.2e1 * t293 * t1888 + t1350 * t1893 / 0.3e1 - t608 * t919 / 0.2e1 + 0.3e1 / 0.4e1 * t293 * t1899 - 0.3e1 / 0.8e1 * t293 * t2018 - t694 * t2023 / 0.12e2;
2697 
2698   t2026 = t701 * t287;
2699   t2028 = t132 * t937 * t2026;
2700   t2031 = t287 * t774;
2701   t2032 = t494 * t2031;
2702   t2035 = t706 * t232;
2703   t2038 = t233 * t714;
2704   t2046 = 0.1e1 / t103;
2705   t2049 = -0.3e1 / 0.8e1 * t226 * t12 * t712 + 0.2e1 * t19 * t2046;
2706   t2065 = (t21 * t2035 * t32 + 0.3e1 * t21 * t2038 - 0.3e1 / 0.16e2 * t1530 * t514 + t21 * t2049 * t32 - 0.3e1 / 0.16e2 * t1542 * t514 + 0.9e1 / 0.512e3 * t510 * t1555 - 0.3e1 / 0.16e2 * t510 * t723 - 0.3e1 / 0.4096e4 * t980 * t1267 * t879 + 0.9e1 / 0.512e3 * t375 * t1271 * t380) * t35;
2707   t2072 = t246 * t1590;
2708   t2074 = t106 * t102;
2709   t2075 = t2074 * t1600;
2710   t2077 = t736 * t255;
2711   t2080 = t417 * t255;
2712   t2081 = params->b * t81;
2713   t2082 = t2081 * t77;
2714   t2083 = t2080 * t2082;
2715   t2085 = -0.27e2 / 0.128e3 * t2072 + 0.75e2 / 0.1024e4 * t2075 - 0.81e2 / 0.32e2 * t1030 * t2077 + 0.135e3 / 0.512e3 * t2083;
2716   t2096 = t750 * t269;
2717   t2099 = t269 * t755;
2718   t2104 = t2065 * t45 / 0.24e2 + t727 * t243 / 0.8e1 + 0.292e3 / 0.675e3 * t260 * t743 + 0.292e3 / 0.2025e4 * t70 * t2085 - 0.73e2 / 0.97200e5 * t2085 * t86 - 0.73e2 / 0.64800e5 * t1618 * t269 + 0.73e2 / 0.129600e6 * t1199 * t750 - 0.73e2 / 0.64800e5 * t568 * t755 - 0.73e2 / 0.259200e6 * t1066 * t2096 + 0.73e2 / 0.129600e6 * t446 * t2099 + t100 * t2074 / 0.384e3;
2719   t2110 = t1108 * t102;
2720   t2111 = t2110 * t106;
2721   t2114 = t2104 * t116 - t1659 * t258 / 0.4e1 + t1308 * t740 / 0.32e2 - t1107 * t2111 / 0.96e2;
2722   t2116 = t132 * t134 * t2114;
2723   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2724     v3sigma3[0] = -0.9e1 / 0.4e1 * t130 * t2028 + 0.9e1 / 0.4e1 * t293 * t2032 - 0.3e1 / 0.8e1 * t130 * t2116;
2725 
2726   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2727     v3sigma2lapl[0] = 0.0e0;
2728 
2729   t2120 = t1128 * t335 * t701;
2730   t2124 = t494 * t843 * t287;
2731   t2127 = t1691 * t853;
2732   t2131 = t494 * t335 * t774;
2733   t2134 = t706 * t300;
2734   t2135 = t2134 * t32;
2735   t2137 = t714 * t300;
2736   t2138 = t2137 * t32;
2737   t2140 = t232 * t791;
2738   t2141 = t2140 * t32;
2739   t2146 = t230 * t32;
2740   t2147 = t295 * t2146;
2741   t2170 = t722 * t304;
2742   t2173 = t21 * t2135 + t21 * t2138 + 0.2e1 * t21 * t2141 - t1712 * t514 / 0.8e1 - t1536 * t2147 / 0.8e1 - t1725 * t514 / 0.8e1 + 0.3e1 / 0.512e3 * t626 * t1555 - t626 * t723 / 0.16e2 + t1530 * t629 / 0.16e2 + t1542 * t629 / 0.16e2 - 0.3e1 / 0.256e3 * t510 * t1745 + t510 * t1755 / 0.4e1 + 0.3e1 / 0.4096e4 * t980 * t378 * t1401 - 0.15e2 / 0.512e3 * t375 * t385 * t634 + t21 * t2170 / 0.8e1;
2743   t2174 = t2173 * t35;
2744   t2185 = t986 * t102;
2745   t2186 = t2185 * t1600;
2746   t2188 = t258 * t1789;
2747   t2190 = t321 * t736;
2748   t2193 = t76 * t255;
2749   t2195 = t1604 * t822 * t2193;
2750   t2197 = t417 * t321;
2751   t2198 = t2197 * t2082;
2752   t2200 = 0.9e1 / 0.16e2 * t312 * t1590 - 0.75e2 / 0.128e3 * t2186 - 0.9e1 / 0.64e2 * t2188 - 0.81e2 / 0.32e2 * t1030 * t2190 - 0.45e2 / 0.32e2 * t2195 + 0.45e2 / 0.512e3 * t2198;
2753   t2217 = t331 * t750;
2754   t2222 = t331 * t755;
2755   t2229 = t2174 * t45 / 0.24e2 + t806 * t243 / 0.12e2 + 0.292e3 / 0.2025e4 * t743 * t324 + 0.584e3 / 0.2025e4 * t260 * t826 + 0.292e3 / 0.2025e4 * t70 * t2200 - 0.73e2 / 0.97200e5 * t2200 * t86 - 0.73e2 / 0.97200e5 * t1813 * t269 + 0.73e2 / 0.388800e6 * t1463 * t750 - 0.73e2 / 0.194400e6 * t670 * t755 + 0.73e2 / 0.600e3 * t1618 * t305 - 0.73e2 / 0.600e3 * t1825 * t835 + 0.73e2 / 0.150e3 * t568 * t802 + 0.73e2 / 0.800e3 * t1475 * t2217 - 0.73e2 / 0.300e3 * t1843 * t835 - 0.73e2 / 0.1200e4 * t675 * t2222 + 0.73e2 / 0.300e3 * t191 * t331 - t761 * t304 / 0.180e3;
2756   t2230 = t2229 * t116;
2757   t2231 = t294 * t2230;
2758   t2234 = t134 * t842;
2759   t2236 = t2234 * t216 * t853;
2760   t2239 = t384 * t2;
2761   t2240 = t2239 * t849;
2762   t2242 = params->e * t74;
2763   t2243 = t2242 * t76;
2764   t2244 = t851 * t478 * t2243;
2765   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2766     v3sigma2tau[0] = -0.9e1 / 0.4e1 * t293 * t2120 + 0.3e1 / 0.2e1 * t293 * t2124 - t1865 * t2127 / 0.8e1 + 0.3e1 / 0.4e1 * t293 * t2131 - 0.3e1 / 0.8e1 * t293 * t2231 + t850 * t2236 / 0.16e2 - t2240 * t2244 / 0.256e3;
2767 
2768   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2769     v3sigmalapl2[0] = 0.0e0;
2770 
2771   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2772     v3sigmalapltau[0] = 0.0e0;
2773 
2774   t2248 = t1128 * t858 * t287;
2775   t2252 = t494 * t1503 * t842;
2776   t2255 = t349 * t857;
2777   t2257 = t2255 * t1106 * t853;
2778   t2261 = t494 * t918 * t287;
2779   t2264 = t232 * t862;
2780   t2265 = t2264 * t32;
2781   t2267 = t301 * t791;
2782   t2272 = t232 * t872;
2783   t2273 = t2272 * t32;
2784   t2275 = t304 * t136;
2785   t2280 = t226 * t2275 / 0.4e1 + 0.5e1 / 0.8e1 * t226 * t304;
2786   t2295 = t1262 * t377;
2787   t2299 = t798 * t879;
2788   t2304 = t235 * t380;
2789   t2307 = t21 * t2265 + 0.2e1 * t21 * t2267 - t1908 * t514 / 0.16e2 + t21 * t2273 + t21 * t2280 * t32 - t1922 * t514 / 0.16e2 + t1712 * t629 / 0.8e1 + t1725 * t629 / 0.8e1 - 0.3e1 / 0.256e3 * t626 * t1745 + t626 * t1755 / 0.4e1 + 0.3e1 / 0.512e3 * t510 * t1934 - 0.3e1 / 0.4096e4 * t980 * t2295 * t1939 + 0.21e2 / 0.512e3 * t375 * t2299 - 0.3e1 / 0.16e2 * t510 * t1946 - 0.3e1 / 0.8e1 * t146 * t2304;
2790   t2308 = t2307 * t35;
2791   t2319 = t377 * t102;
2792   t2320 = t2319 * t1600;
2793   t2322 = t246 * t1967;
2794   t2324 = t894 * t255;
2795   t2327 = params->b * t821;
2796   t2328 = t2327 * t77;
2797   t2329 = t2197 * t2328;
2798   t2331 = t899 * t2193;
2799   t2334 = 0.9e1 / 0.8e1 * t1778 * t1789 + 0.75e2 / 0.16e2 * t2320 - 0.9e1 / 0.128e3 * t2322 - 0.81e2 / 0.32e2 * t1030 * t2324 - 0.45e2 / 0.32e2 * t2329 + 0.45e2 / 0.8e1 * t1604 * t2331;
2800   t2349 = t1933 * t269;
2801   t2356 = t914 * t269;
2802   t2363 = t2308 * t45 / 0.24e2 + t887 * t243 / 0.24e2 + 0.584e3 / 0.2025e4 * t324 * t826 + 0.292e3 / 0.2025e4 * t260 * t903 + 0.292e3 / 0.2025e4 * t70 * t2334 - 0.73e2 / 0.97200e5 * t2334 * t86 - 0.73e2 / 0.194400e6 * t1988 * t269 + 0.73e2 / 0.300e3 * t1813 * t305 - 0.73e2 / 0.600e3 * t1993 * t835 + 0.73e2 / 0.150e3 * t670 * t802 + 0.1971e4 / 0.100e3 * t1199 * t880 - 0.5913e4 / 0.200e3 * t2000 * t2349 + 0.1971e4 / 0.25e2 * t446 * t2299 - 0.73e2 / 0.200e3 * t568 * t883 + 0.73e2 / 0.400e3 * t675 * t2356 - 0.73e2 / 0.100e3 * t191 * t2304 + t276 * t914 / 0.60e2;
2803   t2364 = t2363 * t116;
2804   t2365 = t294 * t2364;
2805   t2368 = t134 * t917;
2806   t2370 = t2368 * t216 * t853;
2807   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2808     v3sigmatau2[0] = -0.9e1 / 0.4e1 * t293 * t2248 + 0.3e1 / 0.2e1 * t293 * t2252 - t850 * t2257 / 0.8e1 + 0.3e1 / 0.4e1 * t293 * t2261 - 0.3e1 / 0.8e1 * t293 * t2365 + t850 * t2370 / 0.32e2;
2809 
2810   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2811     v3lapl3[0] = 0.0e0;
2812 
2813   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2814     v3lapl2tau[0] = 0.0e0;
2815 
2816   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2817     v3lapltau2[0] = 0.0e0;
2818 
2819   t2373 = t857 * t334;
2820   t2375 = 0.1e1 / t477 / t115;
2821   t2376 = t2373 * t2375;
2822   t2377 = t1128 * t2376;
2823   t2381 = t494 * t1503 * t917;
2824   t2384 = t862 * t300;
2825   t2387 = t301 * t872;
2826   t2392 = t10 * t380;
2827   t2400 = -0.3e1 / 0.4e1 * t15 * t2392 * t136 - 0.9e1 / 0.8e1 * t15 * t2392 - 0.2e1 * t19 * t304;
2828   t2409 = t981 * t377;
2829   t2411 = 0.1e1 / t1938 / tau[0];
2830   t2412 = t2409 * t2411;
2831   t2415 = t877 * t1401;
2832   t2418 = t25 * t634;
2833   t2422 = (t21 * t2384 * t32 + 0.3e1 * t21 * t2387 + 0.3e1 / 0.16e2 * t1908 * t629 + t21 * t2400 * t32 + 0.3e1 / 0.16e2 * t1922 * t629 + 0.9e1 / 0.512e3 * t626 * t1934 - 0.9e1 / 0.16e2 * t626 * t1946 + 0.3e1 / 0.4096e4 * t980 * t2412 - 0.27e2 / 0.512e3 * t375 * t2415 + 0.3e1 / 0.4e1 * t146 * t2418) * t35;
2834   t2429 = t517 * t102;
2835   t2432 = t894 * t321;
2836   t2435 = params->b * t898;
2837   t2436 = t2435 * t77;
2838   t2439 = 0.27e2 / 0.16e2 * t312 * t1967 - 0.75e2 / 0.2e1 * t2429 * t1600 - 0.81e2 / 0.32e2 * t1030 * t2432 + 0.135e3 / 0.8e1 * t2197 * t2436;
2839   t2456 = t24 * t634;
2840   t2459 = t2422 * t45 / 0.24e2 + 0.292e3 / 0.675e3 * t324 * t903 + 0.292e3 / 0.2025e4 * t70 * t2439 - 0.73e2 / 0.97200e5 * t2439 * t86 + 0.73e2 / 0.200e3 * t1988 * t305 + 0.5913e4 / 0.100e3 * t1463 * t880 - 0.219e3 / 0.200e3 * t670 * t883 + 0.478953e6 / 0.50e2 * t1066 * t2412 - 0.17739e5 / 0.100e3 * t446 * t2415 + 0.73e2 / 0.50e2 * t191 * t2418 - t96 * t2456 / 0.30e2;
2841   t2460 = t2459 * t116;
2842   t2461 = t294 * t2460;
2843   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2844     v3tau3[0] = -0.9e1 / 0.4e1 * t293 * t2377 + 0.9e1 / 0.4e1 * t293 * t2381 - 0.3e1 / 0.8e1 * t293 * t2461;
2845 
2846 #ifndef XC_DONT_COMPILE_LXC
2847 
2848   if(order < 4) return;
2849 
2850 
2851   t2486 = 0.1e1 / t936 / t118;
2852   t2487 = t350 * t350;
2853   t2496 = t485 * t485;
2854   t2505 = t436 * t436;
2855   t2512 = 0.1e1 / t42 / t193;
2856   t2513 = sigma[0] * t2512;
2857   t2515 = 0.6160e4 / 0.81e2 * tau[0] * t1004 - 0.2618e4 / 0.81e2 * t2513;
2858   t2525 = t40 * t1029;
2859   t2526 = t2525 * t1031;
2860   t2530 = t416 * t180 * t431;
2861   t2533 = t410 * t1045;
2862   t2536 = t414 * t414;
2863   t2539 = t57 / t64 / t2536;
2864   t2540 = t418 * t418;
2865   t2546 = t431 * t431;
2866   t2557 = t406 * t406;
2867   t2567 = t59 * t2513;
2868   t2569 = 0.3e1 / 0.4e1 * t2515 * t35 * t168 - 0.3e1 / 0.2e1 * t1015 * t411 + 0.27e2 / 0.8e1 * t407 * t1021 - 0.9e1 / 0.4e1 * t407 * t1024 - 0.45e2 / 0.8e1 * t167 * t2526 + 0.27e2 / 0.4e1 * t1160 * t2530 - 0.3e1 / 0.2e1 * t167 * t2533 + 0.567e3 / 0.64e2 * t2539 * t2540 - 0.243e3 / 0.16e2 * t1030 * t418 * t431 + 0.243e3 / 0.80e2 * t417 * t2546 + 0.81e2 / 0.20e2 * t417 * t180 * t1045 - 0.27e2 / 0.40e2 * t173 * (0.5e1 * params->b * t2515 * t60 + 0.200e3 / 0.9e1 * t1037 * t177 + 0.50e2 / 0.3e1 * params->b * t2557 * t77 + 0.25e2 / 0.9e1 * t58 * t77 * t2515) + 0.5236e4 / 0.729e3 * t2567;
2869   t2574 = t1050 * t190;
2870   t2581 = t22 * t377;
2871   t2582 = t2581 * t27;
2872   t2585 = 0.1e1 / t8 / t208;
2873   t2587 = t77 * t22 * t2585;
2874   t2592 = t436 * t445;
2875   t2595 = t185 * t1065;
2876   t2600 = 0.292e3 / 0.675e3 * t2505 + 0.1168e4 / 0.2025e4 * t185 * t1050 + 0.292e3 / 0.2025e4 * t70 * t2569 - 0.73e2 / 0.97200e5 * t2569 * t86 - 0.73e2 / 0.48600e5 * t2574 * t199 - 0.73e2 / 0.32400e5 * t1055 * t457 - 0.73e2 / 0.48600e5 * t441 * t1079 - 0.73e2 / 0.194400e6 * t191 * (0.19440e5 * t2582 + 0.8360000e7 / 0.81e2 * t2587) + 0.73e2 / 0.64800e5 * t2592 * t447 - 0.73e2 / 0.64800e5 * t2595 * t1067 + 0.73e2 / 0.32400e5 * t1058 * t1070;
2877   t2604 = t70 / t86 / t1063 / t85;
2878   t2605 = t447 * t447;
2879   t2611 = t457 * t457;
2880   t2623 = t105 * t78;
2881   t2624 = 0.1e1 / t2623;
2882   t2625 = t104 * t2624;
2883   t2628 = t517 * t12;
2884   t2645 = t355 * t355;
2885   t2648 = t365 * t365;
2886   t2654 = t21 / t373 / t31;
2887   t2655 = t376 * t376;
2888   t2662 = t21 * t947;
2889   t2667 = t21 * t964;
2890   t2672 = t979 * t981;
2891   t2674 = t2672 * t209 * t879;
2892   t2677 = t981 * t467;
2893   t2681 = t376 * t106;
2894   t2685 = t369 * t1085;
2895   t2689 = t970 * t986 * t380;
2896   t2697 = t21 * t141 * t145;
2897   t2702 = t21 * (0.3e1 * t15 * t2628 * t136 + 0.11e2 / 0.2e1 * t15 * t2628 + 0.6e1 * t19 * t384) * t32 + 0.4e1 * t21 * t142 * t964 + 0.6e1 * t21 * t356 * t365 + t21 * t2645 * t32 + 0.3e1 * t21 * t2648 * t32 + 0.15e2 / 0.131072e6 * t2654 * t2655 * t2624 * t1939 - 0.15e2 / 0.4e1 * t146 * t2582 + t2662 * t370 / 0.4e1 + 0.9e1 / 0.256e3 * t953 * t972 + t2667 * t370 / 0.4e1 + 0.9e1 / 0.256e3 * t967 * t972 + 0.3e1 / 0.1024e4 * t368 * t2674 - 0.27e2 / 0.2048e4 * t980 * t2677 * t879 + 0.225e3 / 0.512e3 * t375 * t2681 * t380 + 0.3e1 * t368 * t2685 - 0.27e2 / 0.128e3 * t368 * t2689 - 0.9e1 / 0.8e1 * t967 * t975 - 0.9e1 / 0.8e1 * t953 * t975 + 0.3e1 / 0.4e1 * t2697 * t365 * t22 * t205;
2898   t2715 = 0.73e2 / 0.103680e6 * t2604 * t2605 - 0.73e2 / 0.43200e5 * t1066 * t447 * t457 + 0.73e2 / 0.129600e6 * t446 * t2611 + 0.73e2 / 0.97200e5 * t446 * t199 * t1079 + t96 * t377 * t27 / 0.6e1 + 0.261250e6 / 0.4782969e7 * t90 * t91 * t2585 + 0.55e2 / 0.16e2 * t100 * t2625 + t2702 * t35 * t45 / 0.24e2 - 0.616e3 / 0.81e2 * t154 * t1005 + 0.2618e4 / 0.243e3 * t36 * t41 * t2512 - 0.4e1 / 0.9e1 * t996 * t159 + 0.22e2 / 0.9e1 * t390 * t397;
2899   t2719 = t1093 * t216 * t95;
2900   t2723 = t471 * t478 * params->e;
2901   t2728 = t213 * t1106;
2902   t2729 = t2728 * t1108;
2903   t2736 = t110 * t2375;
2904   t2737 = params->e * params->e;
2905   t2739 = t2736 * t2737 * t102;
2906   t2753 = (t2600 + t2715) * t116 + 0.8e1 / 0.9e1 * t2719 * t183 + 0.4e1 / 0.9e1 * t2723 * t455 - 0.44e2 / 0.9e1 * t1096 * t434 + 0.64e2 / 0.81e2 * t2729 * t1090 - 0.88e2 / 0.27e2 * t1100 * t1077 + 0.1232e4 / 0.81e2 * t474 * t1048 + 0.80e2 / 0.729e3 * t2739 * t376 / t42 / t105 / t193 * t59 - 0.352e3 / 0.81e2 * t1109 * t2625 + 0.1958e4 / 0.243e3 * t480 * t2587 - 0.5236e4 / 0.243e3 * t218 * t2567;
2907   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2908     v4rho4[0] = -0.5e1 / 0.27e2 * t5 * t7 * t44 * t123 + 0.4e1 / 0.9e1 * t344 * t49 * t131 * t222 + 0.2e1 * t344 * t926 * t351 - t344 * t926 * t486 - 0.12e2 * t344 * t345 * t939 + 0.12e2 * t608 * t944 - 0.2e1 * t344 * t345 * t1117 + 0.9e1 * t130 * t132 * t2486 * t2487 - 0.27e2 / 0.2e1 * t293 * t1128 * t350 * t485 + 0.9e1 / 0.4e1 * t130 * t132 * t349 * t2496 + 0.3e1 * t293 * t494 * t221 * t1116 - 0.3e1 / 0.8e1 * t130 * t132 * t134 * t2753;
2909 
2910   t2758 = t49 * t2;
2911   t2788 = t77 * sigma[0] * t1075;
2912   t2821 = t1004 * t35;
2913   t2822 = t2821 * t40;
2914   t2846 = -0.27e2 / 0.40e2 * t173 * (0.770e3 / 0.27e2 * params->b * t1004 * t60 - 0.550e3 / 0.27e2 * t1177 * t177 + 0.50e2 / 0.9e1 * t550 * t428 - 0.25e2 / 0.36e2 * t249 * t1042 + 0.3850e4 / 0.243e3 * t58 * t77 * t1004) - 0.308e3 / 0.243e3 * t2822 - 0.243e3 / 0.32e2 * t1030 * t558 * t418 + 0.243e3 / 0.80e2 * t417 * t1187 * t180 + 0.243e3 / 0.80e2 * t417 * t558 * t431 + 0.81e2 / 0.80e2 * t417 * t255 * t1045 + 0.77e2 / 0.18e2 * t2821 * t168 + 0.11e2 / 0.8e1 * t1149 * t411 - 0.3e1 / 0.8e1 * t539 * t1024 + 0.3e1 / 0.64e2 * t246 * t2533 - 0.3e1 / 0.8e1 * t1015 * t544;
2915   t2849 = t410 * t1187;
2916   t2862 = t407 * t40;
2917   t2866 = t416 * t558 * t180;
2918   t2869 = t1161 * t431;
2919   t2875 = t1029 * t255 * t418;
2920   t2878 = -0.9e1 / 0.8e1 * t407 * t1165 - 0.9e1 / 0.8e1 * t167 * t2849 + 0.567e3 / 0.64e2 * t2539 * t255 * t1031 - 0.243e3 / 0.32e2 * t1030 * t547 * t431 + 0.45e2 / 0.256e3 * t246 * t2526 - 0.27e2 / 0.128e3 * t258 * t2530 + 0.27e2 / 0.16e2 * t2862 * t1162 + 0.27e2 / 0.8e1 * t1160 * t2866 + 0.27e2 / 0.16e2 * t1160 * t2869 + 0.9e1 / 0.16e2 * t539 * t1021 - 0.135e3 / 0.32e2 * t1160 * t2875;
2921   t2879 = t2846 + t2878;
2922   t2922 = -0.73e2 / 0.97200e5 * t2879 * t86 + 0.292e3 / 0.2025e4 * t70 * t2879 + 0.11e2 / 0.9e1 * t154 * t1281 - 0.154e3 / 0.81e2 * t36 * t40 * t1004 + 0.73e2 / 0.103680e6 * t2604 * t269 * t1067 - t390 * t534 / 0.3e1 - 0.73e2 / 0.86400e5 * t2595 * t1213 - 0.73e2 / 0.86400e5 * t1066 * t580 * t447 + 0.73e2 / 0.129600e6 * t446 * t1297 * t199 + 0.73e2 / 0.129600e6 * t446 * t580 * t457 + 0.73e2 / 0.388800e6 * t446 * t269 * t1079 - t276 * t1085 / 0.15e2 + 0.11e2 / 0.9e1 * t527 * t397 - 0.154e3 / 0.81e2 * t240 * t1005 + 0.292e3 / 0.675e3 * t185 * t1192 + 0.73e2 / 0.129600e6 * t2592 * t573 + 0.73e2 / 0.64800e5 * t1058 * t1204 + 0.73e2 / 0.129600e6 * t1058 * t1207;
2923   t2929 = t979 * t1262;
2924   t2931 = t2929 * t106 * t879;
2925   t2934 = t21 * t1240;
2926   t2951 = t1254 * t971;
2927   t2954 = t513 * t463;
2928   t2965 = params->BLOC_b * t384;
2929   t2973 = -0.9e1 / 0.4096e4 * t368 * t2931 + 0.3e1 / 0.16e2 * t2934 * t370 + 0.9e1 / 0.512e3 * t1243 * t972 + 0.3e1 / 0.4096e4 * t510 * t2674 - 0.27e2 / 0.512e3 * t510 * t2689 + 0.3e1 / 0.4e1 * t510 * t2685 + 0.3e1 / 0.8e1 * t953 * t1259 - t2662 * t514 / 0.16e2 + 0.3e1 / 0.8e1 * t967 * t1259 + 0.63e2 / 0.512e3 * t368 * t2951 - 0.9e1 / 0.8e1 * t368 * t2954 - 0.9e1 / 0.16e2 * t1243 * t975 - 0.9e1 / 0.512e3 * t953 * t1256 - t2667 * t514 / 0.16e2 - 0.9e1 / 0.512e3 * t967 * t1256 + t21 * (-0.3e1 / 0.4e1 * t2965 * t227 - 0.17e2 / 0.8e1 * t2965 * t12) * t32;
2930   t2996 = t21 * t1222;
2931   t2999 = t21 * t1225;
2932   t3002 = t21 * t1228;
2933   t3009 = t376 * t103;
2934   t3016 = sigma[0] * t517;
2935   t3017 = t3016 * t27;
2936   t3020 = t1262 * t209;
2937   t3024 = t103 * t986;
2938   t3028 = 0.3e1 * t21 * t141 * t1240 * t32 + t21 * t947 * t232 * t32 + 0.3e1 * t21 * t355 * t507 * t32 + t21 * t964 * t232 * t32 + 0.3e1 * t21 * t365 * t507 * t32 - 0.3e1 / 0.16e2 * t2697 * t235 * t27 * t365 + 0.3e1 / 0.16e2 * t2996 * t370 + 0.3e1 / 0.16e2 * t2999 * t370 + 0.3e1 / 0.8e1 * t3002 * t370 + 0.9e1 / 0.512e3 * t1232 * t972 - 0.9e1 / 0.16e2 * t1232 * t975 - 0.15e2 / 0.131072e6 * t2654 * t3009 * t1089 * t1939 + 0.3e1 * t368 * t1226 + 0.3e1 / 0.2e1 * t146 * t3017 + 0.45e2 / 0.4096e4 * t980 * t3020 * t879 - 0.9e1 / 0.32e2 * t375 * t3024 * t380;
2939   t3039 = t279 * t1089;
2940   t3046 = t1192 * t190;
2941   t3049 = t563 * t445;
2942   t3067 = t260 * t1065;
2943   t3070 = t996 * t243 / 0.24e2 + 0.73e2 / 0.129600e6 * t1199 * t1070 - t1276 * t159 / 0.3e1 + (t2973 + t3028) * t35 * t45 / 0.24e2 - 0.73e2 / 0.86400e5 * t1066 * t1207 * t199 - 0.20900e5 / 0.1594323e7 * t90 * t272 * t1075 - 0.15e2 / 0.16e2 * t100 * t3039 + 0.292e3 / 0.675e3 * t436 * t563 + 0.292e3 / 0.2025e4 * t1050 * t260 - 0.73e2 / 0.64800e5 * t3046 * t199 + 0.73e2 / 0.129600e6 * t3049 * t447 - 0.73e2 / 0.64800e5 * t1284 * t457 - 0.73e2 / 0.194400e6 * t568 * t1079 - 0.73e2 / 0.194400e6 * t2574 * t269 - 0.73e2 / 0.64800e5 * t1055 * t580 - 0.73e2 / 0.64800e5 * t441 * t1297 - 0.73e2 / 0.194400e6 * t191 * (-0.7776e4 * t3017 - 0.668800e6 / 0.27e2 * t2788) - 0.73e2 / 0.259200e6 * t3067 * t1067;
2944   t3073 = t283 * t1106;
2945   t3074 = t3073 * t1108;
2946   t3086 = t1301 * t216 * t95;
2947   t3090 = t591 * t478 * params->e;
2948   t3099 = -0.341e3 / 0.162e3 * t480 * t2788 - 0.22e2 / 0.9e1 * t1304 * t434 - 0.22e2 / 0.27e2 * t1308 * t1077 + 0.308e3 / 0.81e2 * t594 * t1048 + 0.3e1 / 0.4e1 * t1100 * t1295 - 0.10e2 / 0.243e3 * t2739 / t42 / t105 / t79 * t103 * t59 + (t2922 + t3070) * t116 + 0.16e2 / 0.81e2 * t3074 * t1090 - t2719 * t258 / 0.12e2 - 0.2e1 / 0.9e1 * t2729 * t1219 + 0.38e2 / 0.27e2 * t1109 * t3039 + 0.308e3 / 0.81e2 * t218 * t2822 + 0.2e1 / 0.3e1 * t3086 * t183 + 0.2e1 / 0.9e1 * t3090 * t455 + 0.2e1 / 0.3e1 * t1096 * t561 - t2723 * t578 / 0.12e2 - 0.22e2 / 0.9e1 * t474 * t1190;
2949   t3106 = t131 * t2486;
2950   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2951     v4rho3sigma[0] = t2758 * t4 * t289 / 0.9e1 + t1330 * t496 + 0.6e1 * t608 * t1134 + 0.3e1 * t608 * t1138 - 0.27e2 / 0.4e1 * t293 * t1128 * t603 * t350 + 0.9e1 / 0.4e1 * t293 * t494 * t1325 * t221 + 0.9e1 / 0.4e1 * t293 * t494 * t603 * t485 + 0.3e1 / 0.4e1 * t293 * t494 * t287 * t1116 - t1122 * t605 / 0.2e1 - 0.3e1 / 0.2e1 * t491 * t1327 - 0.3e1 / 0.8e1 * t130 * t132 * t134 * t3099 - 0.9e1 * t608 * t1130 + 0.9e1 * t293 * t3106 * t287 * t938 - 0.27e2 / 0.4e1 * t293 * t1128 * t495 * t485;
2952 
2953   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2954     v4rho3lapl[0] = 0.0e0;
2955 
2956   t3116 = 0.1e1 / t42 / t208;
2957   t3119 = t851 * t1106;
2958   t3136 = t684 * t478;
2959   t3137 = t3136 * params->e;
2960   t3150 = t1501 * t1349;
2961   t3152 = t2242 * t91;
2962   t3156 = t1337 * t1349;
2963   t3159 = t132 * t937;
2964   t3160 = t692 * t3159;
2965   t3173 = -0.2e1 / 0.27e2 * t3116 * t2 * t849 * t3119 * t2110 * t103 + t1338 * t1497 / 0.4e1 + 0.7e1 / 0.36e2 * t986 * t2 * t4 * t693 * t1506 - t694 * t1490 * t216 * t95 * t697 / 0.4e1 - t1502 * t3137 * t1505 / 0.12e2 - 0.17e2 / 0.54e2 * t821 * t2 * t4 * t693 * t698 + t1350 * t695 * t485 * t1352 / 0.2e1 + t3150 * t1503 * t221 * t3152 / 0.6e1 - t3156 * t1353 / 0.2e1 - 0.3e1 / 0.2e1 * t3160 * t695 * t350 * t1352 + t1350 * t1495 * t221 * t1352 - 0.27e2 / 0.4e1 * t1680 * t1681 * t116 * t221 * t485;
2966   t3201 = t1029 * t321;
2967   t3202 = t3201 * t418;
2968   t3223 = t410 * t1452;
2969   t3248 = t416 * t662;
2970   t3249 = t3248 * t180;
2971   t3252 = t1431 * t431;
2972   t3259 = -0.243e3 / 0.32e2 * t1030 * t655 * t431 - 0.27e2 / 0.40e2 * t173 * (-0.2200e4 / 0.27e2 * t1178 + 0.2000e4 / 0.27e2 * t1180 - 0.250e3 / 0.9e1 * t1182 + 0.50e2 / 0.9e1 * t315 * t1042 - 0.11000e5 / 0.243e3 * t1185) - 0.45e2 / 0.32e2 * t312 * t2526 + 0.27e2 / 0.16e2 * t1778 * t2530 + 0.27e2 / 0.16e2 * t2862 * t1432 + 0.27e2 / 0.8e1 * t1160 * t3249 + 0.27e2 / 0.16e2 * t1160 * t3252 - 0.45e2 / 0.16e2 * t1154 - 0.110e3 / 0.9e1 * t1150 - 0.5e1 * t1152 + 0.15e2 / 0.8e1 * t1156;
2973   t3260 = -0.135e3 / 0.32e2 * t1160 * t3202 - 0.243e3 / 0.32e2 * t1030 * t662 * t418 + 0.243e3 / 0.80e2 * t417 * t1452 * t180 + 0.243e3 / 0.80e2 * t417 * t662 * t431 + 0.81e2 / 0.80e2 * t417 * t321 * t1045 - 0.3e1 / 0.8e1 * t312 * t2533 - 0.3e1 / 0.8e1 * t1015 * t652 - 0.9e1 / 0.8e1 * t407 * t1435 - 0.9e1 / 0.8e1 * t167 * t3223 + 0.567e3 / 0.64e2 * t2539 * t321 * t1031 + t3259;
2974   t3270 = t665 * t445;
2975   t3273 = t324 * t1065;
2976   t3287 = t2595 * t22;
2977   t3292 = t2604 * t22;
2978   t3301 = -0.73e2 / 0.97200e5 * t3260 * t86 + 0.73e2 / 0.129600e6 * t1463 * t1070 + t96 * t517 * t304 / 0.15e2 + 0.292e3 / 0.2025e4 * t70 * t3260 + 0.73e2 / 0.129600e6 * t3270 * t447 - 0.73e2 / 0.259200e6 * t3273 * t1067 - 0.73e2 / 0.400e3 * t1470 * t1482 + 0.73e2 / 0.200e3 * t675 * t681 * t457 - 0.73e2 / 0.1200e4 * t675 * t331 * t1079 - 0.219e3 / 0.200e3 * t675 * t1487 * t199 + 0.219e3 / 0.800e3 * t3287 * t1476 + 0.73e2 / 0.100e3 * t1470 * t1479 - 0.73e2 / 0.320e3 * t3292 * t331 * t1067 - 0.219e3 / 0.400e3 * t1475 * t681 * t447 + 0.292e3 / 0.675e3 * t185 * t1455;
2979   t3304 = t2592 * t22;
2980   t3318 = t1455 * t190;
2981   t3327 = t991 * t304;
2982   t3359 = t2672 * t106 * t1401;
2983   t3369 = t970 * t377 * t634;
2984   t3372 = t369 * t1487;
2985   t3375 = 0.9e1 / 0.32e2 * t375 * t987 * t634 - 0.3e1 / 0.2e1 * t146 * t3327 - 0.45e2 / 0.4096e4 * t980 * t982 * t1401 + 0.3e1 * t368 * t1364 + 0.15e2 / 0.131072e6 * t2654 * t2655 * t1089 * t2411 + 0.9e1 / 0.512e3 * t1381 * t972 + 0.3e1 / 0.4096e4 * t626 * t2674 + 0.9e1 / 0.512e3 * t953 * t1393 + t2667 * t629 / 0.16e2 + 0.9e1 / 0.512e3 * t967 * t1393 + 0.9e1 / 0.4096e4 * t368 * t3359 - 0.3e1 / 0.8e1 * t953 * t1396 + t2662 * t629 / 0.16e2 - 0.3e1 / 0.8e1 * t967 * t1396 - 0.63e2 / 0.512e3 * t368 * t3369 + 0.9e1 / 0.8e1 * t368 * t3372;
2986   t3382 = t21 * t1378;
2987   t3387 = t21 * t1360;
2988   t3390 = t21 * t1363;
2989   t3393 = t21 * t1366;
2990   t3428 = -0.9e1 / 0.16e2 * t1381 * t975 - 0.27e2 / 0.512e3 * t626 * t2689 + 0.3e1 / 0.4e1 * t626 * t2685 + 0.3e1 / 0.16e2 * t3382 * t370 - 0.9e1 / 0.16e2 * t1370 * t975 + 0.3e1 / 0.16e2 * t3387 * t370 + 0.3e1 / 0.16e2 * t3390 * t370 + 0.3e1 / 0.8e1 * t3393 * t370 + 0.9e1 / 0.512e3 * t1370 * t972 + 0.3e1 / 0.16e2 * t2697 * t25 * t304 * t365 + t21 * (0.3e1 / 0.4e1 * t15 * t463 * t136 + 0.17e2 / 0.8e1 * t15 * t463) * t32 + 0.3e1 * t21 * t141 * t1378 * t32 + 0.3e1 * t21 * t355 * t623 * t32 + t21 * t964 * t300 * t32 + 0.3e1 * t21 * t365 * t623 * t32 + t21 * t947 * t300 * t32;
2991   t3433 = 0.292e3 / 0.675e3 * t436 * t665 - 0.73e2 / 0.400e3 * t3304 * t676 + 0.292e3 / 0.2025e4 * t1050 * t324 + 0.219e3 / 0.800e3 * t1475 * t331 * t1070 + 0.11e2 / 0.9e1 * t642 * t397 - 0.154e3 / 0.81e2 * t309 * t1005 - t1412 * t159 / 0.3e1 - 0.73e2 / 0.64800e5 * t3318 * t199 - 0.73e2 / 0.64800e5 * t1460 * t457 - 0.73e2 / 0.194400e6 * t670 * t1079 + 0.219e3 / 0.100e3 * t441 * t1408 - 0.73e2 / 0.25e2 * t191 * t3327 - 0.73e2 / 0.100e3 * t1055 * t638 + 0.73e2 / 0.600e3 * t2574 * t305 + (t3375 + t3428) * t35 * t45 / 0.24e2;
2992   t3446 = 0.9e1 / 0.4e1 * t293 * t494 * t1491 * t221 + 0.9e1 / 0.4e1 * t293 * t494 * t685 * t485 + 0.3e1 / 0.4e1 * t293 * t494 * t335 * t1116 - 0.9e1 * t608 * t1342 + 0.9e1 * t293 * t3106 * t335 * t938 + t1330 * t612 + 0.6e1 * t608 * t1346 + 0.3e1 * t608 * t1357 - 0.27e2 / 0.4e1 * t293 * t1128 * t685 * t350 - 0.3e1 / 0.8e1 * t293 * t294 * (t3301 + t3433) * t116 - t1330 * t686 / 0.2e1 - 0.3e1 / 0.2e1 * t608 * t1492 + t2758 * t292 * t336 / 0.9e1;
2993   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2994     v4rho3tau[0] = t3173 + t3446;
2995 
2996   t3465 = t603 * t603;
2997   t3502 = t1029 * t736 * t180;
2998   t3505 = t1161 * t558;
2999   t3508 = t1599 * t416;
3000   t3523 = t76 * t431;
3001   t3527 = t77 * t453;
3002   t3530 = -0.9e1 / 0.64e2 * t258 * t2869 - 0.45e2 / 0.16e2 * t1160 * t3502 + 0.9e1 / 0.4e1 * t1160 * t3505 + 0.75e2 / 0.128e3 * t3508 * t2081 * t180 + 0.25e2 / 0.12e2 * t1599 * t1600 * t195 + 0.11e2 / 0.12e2 * t1149 * t544 + 0.3e1 / 0.4e1 * t561 * t1162 - 0.9e1 / 0.32e2 * t258 * t2866 + 0.45e2 / 0.128e3 * t258 * t2875 + 0.45e2 / 0.512e3 * t1604 * t1605 * t3523 - 0.95e2 / 0.48e2 * t739 * t3527;
3003   t3534 = t558 * t558;
3004   t3552 = t406 * t102;
3005   t3555 = t1030 * params->b;
3006   t3556 = t76 * t418;
3007   t3564 = -0.81e2 / 0.32e2 * t1030 * t736 * t431 + 0.81e2 / 0.40e2 * t417 * t3534 + 0.81e2 / 0.40e2 * t417 * t255 * t1187 - t539 * t1165 / 0.2e1 + 0.3e1 / 0.32e2 * t246 * t2849 + 0.9e1 / 0.16e2 * t407 * t1590 + 0.567e3 / 0.64e2 * t2539 * t736 * t418 - 0.81e2 / 0.8e1 * t1030 * t547 * t558 - 0.25e2 / 0.128e3 * t3552 * t1601 - 0.225e3 / 0.1024e4 * t3555 * t1605 * t3556 - 0.15e2 / 0.16e2 * t1604 * t195 * t74 * t1606;
3008   t3565 = t3530 + t3564;
3009   t3568 = t563 * t563;
3010   t3603 = t507 * t507;
3011   t3632 = t979 * t376;
3012   t3634 = t3632 * t986 * t879;
3013   t3653 = t1553 * t1255;
3014   t3656 = 0.2e1 * t21 * t3603 * t32 + t21 * t365 * t706 * t32 + 0.2e1 * t21 * t233 * t1240 + t21 * t365 * t714 * t32 + t21 * t355 * t706 * t32 + t21 * t355 * t714 * t32 - 0.3e1 / 0.8e1 * t21 * t145 * t384 * t27 - 0.3e1 / 0.128e3 * t1243 * t1256 - 0.3e1 / 0.2048e4 * t510 * t2931 + 0.3e1 / 0.512e3 * t967 * t1555 + 0.3e1 / 0.2048e4 * t368 * t3634 + 0.3e1 / 0.512e3 * t1530 * t972 - t1536 * t3016 * t304 * t145 / 0.64e2 + 0.3e1 / 0.512e3 * t1542 * t972 - t2934 * t514 / 0.8e1 + t1243 * t1259 / 0.2e1 + 0.21e2 / 0.256e3 * t510 * t2951 - 0.3e1 / 0.4e1 * t510 * t2954 - 0.15e2 / 0.256e3 * t368 * t3653;
3015   t3688 = t21 * t1524;
3016   t3691 = t232 * t145;
3017   t3692 = t21 * t3691;
3018   t3698 = t21 * t141 * params->BLOC_b;
3019   t3701 = t21 * t1533;
3020   t3710 = 0.3e1 / 0.512e3 * t953 * t1555 - 0.3e1 / 0.16e2 * t1530 * t975 + t1536 * t230 * t148 * t1538 / 0.4e1 - 0.3e1 / 0.16e2 * t1542 * t975 - t953 * t723 / 0.16e2 + 0.4e1 * t368 * t1527 + 0.15e2 / 0.131072e6 * t2654 * t2677 * t1939 - t967 * t723 / 0.16e2 - 0.9e1 / 0.1024e4 * t980 * t2681 * t879 + 0.81e2 / 0.512e3 * t375 * t2581 * t380 + t368 * t1567 / 0.4e1 + t1232 * t1259 / 0.2e1 - t2996 * t514 / 0.8e1 + t3688 * t370 / 0.8e1 + t3692 * t507 * t22 * t205 / 0.4e1 - t3698 * t1539 / 0.4e1 + t3701 * t370 / 0.8e1 - t2999 * t514 / 0.8e1 - t3002 * t514 / 0.4e1 - 0.3e1 / 0.128e3 * t1232 * t1256;
3021   t3715 = 0.73e2 / 0.97200e5 * t3049 * t573 + 0.73e2 / 0.97200e5 * t1199 * t1204 + 0.73e2 / 0.194400e6 * t1199 * t1207 + t1276 * t243 / 0.12e2 + 0.292e3 / 0.2025e4 * t70 * t3565 + 0.584e3 / 0.2025e4 * t3568 + 0.584e3 / 0.2025e4 * t260 * t1192 - 0.73e2 / 0.129600e6 * t2595 * t1630 + 0.73e2 / 0.97200e5 * t1058 * t1633 - 0.73e2 / 0.259200e6 * t1066 * t750 * t457 + 0.73e2 / 0.194400e6 * t446 * t269 * t1297 + 0.73e2 / 0.194400e6 * t1058 * t1638 + 0.73e2 / 0.194400e6 * t446 * t1643 * t199 + 0.73e2 / 0.388800e6 * t446 * t755 * t457 + 0.950e3 / 0.531441e6 * t90 * t76 * t453 + 0.22e2 / 0.27e2 * t240 * t1281 - 0.73e2 / 0.129600e6 * t3067 * t1213 + 0.73e2 / 0.103680e6 * t2604 * t750 * t447 - 0.73e2 / 0.259200e6 * t1066 * t755 * t447 + (t3656 + t3710) * t35 * t45 / 0.24e2;
3022   t3719 = t764 * t467;
3023   t3722 = t580 * t580;
3024   t3727 = t743 * t445;
3025   t3760 = t1613 * t190;
3026   t3765 = -0.73e2 / 0.64800e5 * t1066 * t573 * t580 + 0.3e1 / 0.16e2 * t100 * t3719 + 0.73e2 / 0.194400e6 * t446 * t3722 + 0.584e3 / 0.2025e4 * t185 * t1613 + 0.73e2 / 0.388800e6 * t3727 * t447 - 0.4e1 / 0.9e1 * t527 * t534 - 0.2e1 / 0.9e1 * t1571 * t159 + 0.11e2 / 0.27e2 * t727 * t397 + 0.292e3 / 0.2025e4 * t436 * t743 - 0.73e2 / 0.97200e5 * t441 * t1643 - 0.73e2 / 0.194400e6 * t191 * (0.1944e4 * t463 + 0.30400e5 / 0.9e1 * t3527) + t95 * t384 * t27 / 0.60e2 + 0.73e2 / 0.388800e6 * t2592 * t750 - 0.73e2 / 0.194400e6 * t1055 * t755 - 0.73e2 / 0.48600e5 * t1284 * t580 - 0.73e2 / 0.97200e5 * t568 * t1297 - 0.73e2 / 0.97200e5 * t3046 * t269 - 0.73e2 / 0.97200e5 * t3565 * t86 - 0.73e2 / 0.97200e5 * t3760 * t199 - 0.73e2 / 0.194400e6 * t1618 * t457;
3027   t3769 = t1656 * t216 * t95;
3028   t3773 = t768 * t478 * params->e;
3029   t3806 = (t3715 + t3765) * t116 + 0.4e1 / 0.9e1 * t3769 * t183 + 0.2e1 / 0.27e2 * t3773 * t455 - 0.22e2 / 0.27e2 * t1659 * t434 - t3086 * t258 / 0.6e1 - t3090 * t578 / 0.9e1 + 0.8e1 / 0.9e1 * t1304 * t561 - 0.4e1 / 0.27e2 * t3074 * t1219 + t1308 * t1295 / 0.2e1 - 0.44e2 / 0.27e2 * t594 * t1190 + t2723 * t740 / 0.96e2 + t2729 * t1652 / 0.18e2 - t1100 * t1610 / 0.9e1 + 0.5e1 / 0.324e3 * t2739 / t42 / t2623 * t22 * t59 - 0.43e2 / 0.108e3 * t1109 * t3719 + 0.19e2 / 0.54e2 * t480 * t3527;
3030   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3031     v4rho2sigma2[0] = t1122 * t703 / 0.3e1 - 0.6e1 * t608 * t1511 + 0.4e1 * t608 * t1515 + 0.9e1 * t293 * t3106 * t701 * t350 - 0.9e1 * t293 * t1128 * t495 * t603 - 0.9e1 / 0.4e1 * t293 * t1128 * t701 * t485 + 0.3e1 / 0.2e1 * t130 * t132 * t349 * t3465 + 0.3e1 / 0.2e1 * t293 * t494 * t287 * t1325 - t1122 * t776 / 0.6e1 + 0.2e1 * t608 * t1521 - t491 * t1676 - 0.9e1 / 0.4e1 * t293 * t1128 * t774 * t350 + 0.3e1 / 0.2e1 * t293 * t494 * t1674 * t221 + 0.3e1 / 0.4e1 * t293 * t494 * t774 * t485 - 0.3e1 / 0.8e1 * t130 * t132 * t134 * t3806;
3032 
3033   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3034     v4rho2sigmalapl[0] = 0.0e0;
3035 
3036   t3828 = t1271 * t304;
3037   t3871 = 0.11e2 / 0.24e2 * t1149 * t652 - 0.81e2 / 0.16e2 * t1030 * t1798 * t180 - 0.81e2 / 0.32e2 * t1030 * t817 * t431 + 0.25e2 / 0.16e2 * t3552 * t1801 - 0.3e1 / 0.8e1 * t312 * t2849 - t539 * t1435 / 0.4e1 + 0.3e1 / 0.64e2 * t246 * t3223 - 0.81e2 / 0.16e2 * t1030 * t1795 * t180 + 0.81e2 / 0.80e2 * t417 * t1452 * t255 + 0.81e2 / 0.40e2 * t417 * t662 * t558 + 0.81e2 / 0.80e2 * t417 * t321 * t1187 + 0.5e1 / 0.4e1 * t1588 - 0.325e3 / 0.24e2 * t1602 - 0.5e1 / 0.3e1 * t1584 + 0.195e3 / 0.32e2 * t1608 - 0.45e2 / 0.32e2 * t1778 * t2875;
3038   t3872 = t1431 * t558;
3039   t3888 = t3248 * t255;
3040   t3895 = t3201 * t547;
3041   t3909 = 0.9e1 / 0.8e1 * t1160 * t3872 - 0.75e2 / 0.16e2 * t3508 * t2327 * t180 + 0.45e2 / 0.256e3 * t258 * t3202 + 0.3e1 / 0.8e1 * t561 * t1432 - 0.9e1 / 0.64e2 * t258 * t3249 - 0.9e1 / 0.128e3 * t258 * t3252 + 0.9e1 / 0.16e2 * t2862 * t1789 + 0.9e1 / 0.8e1 * t1160 * t3888 + 0.9e1 / 0.8e1 * t1778 * t2866 + 0.9e1 / 0.16e2 * t1778 * t2869 - 0.45e2 / 0.16e2 * t1160 * t3895 - 0.45e2 / 0.64e2 * t1604 * t822 * t3523 + 0.225e3 / 0.128e3 * t3555 * t822 * t3556 + 0.567e3 / 0.64e2 * t2539 * t817 * t418 + 0.65e2 / 0.6e1 * t1611 - 0.15e2 / 0.8e1 * t1586;
3042   t3910 = t3871 + t3909;
3043   t3941 = t2929 * t986 * t1401;
3044   t3954 = t21 * (-t1235 * t786 / 0.4e1 - 0.7e1 / 0.8e1 * t1235 * t27) * t32 + t21 * t355 * t791 * t32 + 0.2e1 * t21 * t141 * t1722 * t32 + 0.2e1 * t21 * t507 * t623 * t32 + t21 * t232 * t1378 * t32 + t21 * t365 * t791 * t32 + t21 * t1240 * t300 * t32 - 0.3e1 / 0.2048e4 * t368 * t3941 + t967 * t1755 / 0.8e1 + 0.3e1 / 0.512e3 * t1725 * t972 - t3382 * t514 / 0.16e2 - 0.3e1 / 0.256e3 * t1381 * t1256 - 0.3e1 / 0.4096e4 * t626 * t2931;
3045   t3961 = t21 * t1722;
3046   t3964 = t1254 * t1392;
3047   t3969 = t513 * t681;
3048   t3984 = t2934 * t629 / 0.16e2 + 0.3e1 / 0.256e3 * t1243 * t1393 + 0.3e1 / 0.4096e4 * t510 * t3359 + t3961 * t370 / 0.8e1 + 0.9e1 / 0.128e3 * t368 * t3964 - 0.3e1 / 0.512e3 * t953 * t1745 - t368 * t3969 / 0.2e1 + t953 * t1755 / 0.8e1 + 0.21e2 / 0.512e3 * t626 * t2951 - 0.3e1 / 0.8e1 * t626 * t2954 - t1243 * t1396 / 0.4e1 - 0.21e2 / 0.512e3 * t510 * t3369 + 0.3e1 / 0.8e1 * t510 * t3372;
3049   t4014 = -0.3e1 / 0.16e2 * t1725 * t975 + t1381 * t1259 / 0.4e1 - 0.3e1 / 0.512e3 * t967 * t1745 + 0.2e1 * t368 * t1710 - 0.15e2 / 0.131072e6 * t2654 * t3009 * t467 * t2411 + 0.39e2 / 0.4096e4 * t980 * t1263 * t1401 - 0.51e2 / 0.256e3 * t375 * t1267 * t634 + 0.3e1 / 0.4e1 * t146 * t3828 + t953 * t784 + t967 * t784 + 0.2e1 * t368 * t1707 + t2999 * t629 / 0.16e2 + t3002 * t629 / 0.8e1;
3050   t4017 = t21 * t1706;
3051   t4020 = t21 * t1709;
3052   t4025 = t21 * t1715;
3053   t4044 = t300 * t145;
3054   t4048 = 0.3e1 / 0.256e3 * t1232 * t1393 + t4017 * t370 / 0.8e1 + t4020 * t370 / 0.8e1 + 0.3e1 / 0.512e3 * t1712 * t972 + t4025 * t370 / 0.8e1 - t3390 * t514 / 0.16e2 - t3393 * t514 / 0.8e1 - 0.3e1 / 0.256e3 * t1370 * t1256 + t2996 * t629 / 0.16e2 - 0.3e1 / 0.16e2 * t1712 * t975 + t1370 * t1259 / 0.4e1 - t3387 * t514 / 0.16e2 - t1232 * t1396 / 0.4e1 + t1232 * t4044 * t150 / 0.8e1;
3055   t4056 = 0.292e3 / 0.2025e4 * t436 * t826 + 0.292e3 / 0.2025e4 * t260 * t1455 - 0.2e1 / 0.9e1 * t642 * t534 + 0.11e2 / 0.27e2 * t309 * t1281 - 0.73e2 / 0.75e2 * t441 * t1758 + 0.73e2 / 0.50e2 * t191 * t3828 - 0.73e2 / 0.150e3 * t1284 * t638 + 0.73e2 / 0.100e3 * t568 * t1408 + 0.584e3 / 0.2025e4 * t185 * t1808 + 0.292e3 / 0.2025e4 * t70 * t3910 + (t3954 + t3984 + t4014 + t4048) * t35 * t45 / 0.24e2 + 0.73e2 / 0.300e3 * t1055 * t802;
3056   t4063 = t826 * t445;
3057   t4084 = -0.73e2 / 0.194400e6 * t670 * t1297 - 0.73e2 / 0.97200e5 * t1460 * t580 - 0.73e2 / 0.194400e6 * t3318 * t269 + 0.73e2 / 0.388800e6 * t4063 * t447 - 0.73e2 / 0.259200e6 * t3273 * t1213 + 0.73e2 / 0.600e3 * t3046 * t305 - 0.73e2 / 0.194400e6 * t1813 * t457 - 0.73e2 / 0.1200e4 * t1825 * t1482 - 0.73e2 / 0.1200e4 * t3304 * t835 - 0.73e2 / 0.600e3 * t1470 * t1838 + 0.73e2 / 0.300e3 * t675 * t681 * t580 - 0.73e2 / 0.1200e4 * t675 * t331 * t1297;
3058   t4086 = t1058 * sigma[0];
3059   t4091 = t1808 * t190;
3060   t4094 = t3049 * t22;
3061   t4097 = t1066 * sigma[0];
3062   t4102 = t3067 * t22;
3063   t4117 = -0.73e2 / 0.300e3 * t4086 * t676 - 0.73e2 / 0.600e3 * t1843 * t1482 - 0.73e2 / 0.97200e5 * t4091 * t199 - 0.73e2 / 0.600e3 * t4094 * t676 + 0.73e2 / 0.400e3 * t4097 * t1476 + 0.73e2 / 0.150e3 * t1843 * t1479 + 0.73e2 / 0.800e3 * t4102 * t1476 + 0.73e2 / 0.300e3 * t1825 * t1479 + 0.73e2 / 0.300e3 * t1470 * t1835 - 0.73e2 / 0.200e3 * t675 * t1487 * t269 + 0.73e2 / 0.400e3 * t3287 * t1832 + 0.73e2 / 0.400e3 * t1475 * t331 * t1204;
3064   t4147 = 0.73e2 / 0.800e3 * t1475 * t331 * t1207 - 0.73e2 / 0.320e3 * t3292 * t331 * t1213 - 0.73e2 / 0.200e3 * t1475 * t681 * t573 + 0.584e3 / 0.2025e4 * t563 * t665 + 0.292e3 / 0.2025e4 * t1192 * t324 + t1412 * t243 / 0.24e2 + 0.73e2 / 0.194400e6 * t3270 * t573 + 0.73e2 / 0.194400e6 * t1463 * t1204 + 0.73e2 / 0.388800e6 * t1463 * t1207 - t276 * t1487 / 0.30e2 - 0.73e2 / 0.97200e5 * t3910 * t86 - 0.2e1 / 0.9e1 * t1762 * t159 + 0.11e2 / 0.27e2 * t806 * t397;
3065   t4177 = t842 * t478;
3066   t4178 = t4177 * params->e;
3067   t4182 = t1864 * t3159;
3068   t4187 = t1876 * t1349;
3069   t4193 = t695 * t603;
3070   t4197 = t1503 * t287;
3071   t4207 = t1495 * t287;
3072   t4211 = -t692 * t132 * t1681 * t216 * t287 * t221 * t1352 - t608 * t1853 - 0.3e1 / 0.8e1 * t293 * t294 * (t4056 + t4084 + t4117 + t4147) * t116 - t1330 * t844 / 0.6e1 + t1877 * t3137 * t1878 / 0.48e2 + t1350 * t1867 / 0.6e1 - 0.19e2 / 0.288e3 * t1502 * t1879 - t1865 * t1496 * t1866 / 0.8e1 - t1865 * t696 * t59 * t485 / 0.16e2 + t1338 * t1858 / 0.12e2 - t694 * t1851 * t216 * t95 * t697 / 0.6e1 - t1502 * t4178 * t1505 / 0.36e2 + 0.3e1 / 0.16e2 * t4182 * t696 * t59 * t350 - t4187 * t1504 * t77 * t221 * sigma[0] / 0.24e2 + t1350 * t4193 * t1352 / 0.3e1 + t3150 * t4197 * t3152 / 0.18e2 + t1350 * t1856 * t221 * t1352 / 0.3e1 - t3156 * t1692 / 0.6e1 + t1350 * t4207 * t1352 / 0.3e1;
3073   t4216 = t2486 * t334;
3074   t4232 = 0.1e1 / t42 / t105;
3075   t4283 = -0.9e1 / 0.4e1 * t1680 * t1681 * t1682 * t485 + 0.9e1 * t1680 * t4216 * t1682 * t350 + 0.7e1 / 0.72e2 * t1336 * t849 * t854 - t1861 * t1872 / 0.12e2 + t850 * t134 * t1490 * t216 * t853 / 0.32e2 + t4232 * t2 * t849 * t3119 * t2110 * t22 / 0.36e2 - 0.9e1 / 0.4e1 * t293 * t1128 * t843 * t350 + t1330 * t780 / 0.3e1 + 0.2e1 * t608 * t1688 + 0.2e1 * t608 * t1696 + 0.3e1 / 0.4e1 * t293 * t494 * t1491 * t287 + 0.3e1 / 0.2e1 * t293 * t494 * t685 * t603 + 0.3e1 / 0.4e1 * t293 * t494 * t335 * t1325 + 0.2e1 * t608 * t1702 + 0.3e1 / 0.2e1 * t293 * t494 * t1852 * t221 + 0.3e1 / 0.4e1 * t293 * t494 * t843 * t485 - 0.6e1 * t490 * t849 * t1684 - 0.9e1 / 0.2e1 * t1680 * t937 * t684 * t1683 - 0.9e1 / 0.2e1 * t1680 * t1681 * t116 * t603 * t221;
3076   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3077     v4rho2sigmatau[0] = t4211 + t4283;
3078 
3079   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3080     v4rho2lapl2[0] = 0.0e0;
3081 
3082   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3083     v4rho2lapltau[0] = 0.0e0;
3084 
3085   t4285 = t903 * t445;
3086   t4298 = t662 * t662;
3087   t4308 = t1029 * t894;
3088   t4309 = t4308 * t180;
3089   t4312 = t1431 * t662;
3090   t4323 = -0.225e3 / 0.16e2 * t3555 * t899 * t3556 - 0.81e2 / 0.32e2 * t1030 * t894 * t431 + 0.81e2 / 0.40e2 * t417 * t4298 + 0.81e2 / 0.40e2 * t417 * t321 * t1452 + 0.9e1 / 0.4e1 * t1778 * t3249 + 0.9e1 / 0.8e1 * t1778 * t3252 - 0.45e2 / 0.16e2 * t1160 * t4309 + 0.9e1 / 0.4e1 * t1160 * t4312 + 0.75e2 / 0.2e1 * t3508 * t2435 * t180 - 0.45e2 / 0.16e2 * t1778 * t3202 + 0.45e2 / 0.8e1 * t1604 * t899 * t3523;
3091   t4342 = -0.3e1 / 0.4e1 * t312 * t3223 + 0.9e1 / 0.16e2 * t407 * t1967 + 0.567e3 / 0.64e2 * t2539 * t894 * t418 - 0.81e2 / 0.8e1 * t1030 * t655 * t662 - 0.25e2 / 0.2e1 * t3552 * t1976 + 0.5e1 / 0.2e1 * t1787 + 0.250e3 / 0.3e1 * t1802 - 0.75e2 / 0.2e1 * t1805 - 0.10e2 / 0.3e1 * t1783 - 0.15e2 / 0.4e1 * t1785 - 0.325e3 / 0.6e1 * t741;
3092   t4343 = t4323 + t4342;
3093   t4375 = t623 * t623;
3094   t4383 = t517 * t879;
3095   t4384 = t970 * t4383;
3096   t4389 = t369 * t2013;
3097   t4404 = t21 * (t15 * t681 * t136 / 0.2e1 + 0.3e1 / 0.2e1 * t15 * t681) * t32 + 0.2e1 * t21 * t141 * t1919 * t32 + t21 * t365 * t862 * t32 + 0.2e1 * t21 * t301 * t1378 + t21 * t365 * t872 * t32 + t21 * t355 * t862 * t32 + t21 * t355 * t872 * t32 + 0.2e1 * t21 * t4375 * t32 - 0.21e2 / 0.256e3 * t626 * t3369 + 0.3e1 / 0.4e1 * t626 * t3372 - 0.21e2 / 0.256e3 * t368 * t4384 + 0.3e1 / 0.512e3 * t953 * t1934 + 0.3e1 / 0.4e1 * t368 * t4389 - 0.3e1 / 0.16e2 * t953 * t1946 - 0.3e1 / 0.16e2 * t1908 * t975 - 0.3e1 / 0.16e2 * t1922 * t975 - 0.3e1 / 0.16e2 * t967 * t1946 + 0.3e1 / 0.512e3 * t1922 * t972 + t3382 * t629 / 0.8e1;
3098   t4412 = t2672 * t986 * t1939;
3099   t4417 = t21 * t1919;
3100   t4427 = t378 * t879;
3101   t4432 = 0.1e1 / t1938 / t26;
3102   t4446 = t21 * t1902;
3103   t4449 = t21 * t4044;
3104   t4454 = t21 * t1911;
3105   t4459 = 0.3e1 / 0.128e3 * t1381 * t1393 + 0.3e1 / 0.2048e4 * t626 * t3359 + 0.3e1 / 0.512e3 * t967 * t1934 + 0.3e1 / 0.2048e4 * t368 * t4412 + 0.3e1 / 0.512e3 * t1908 * t972 + t4417 * t370 / 0.8e1 - t1381 * t1396 / 0.2e1 - 0.9e1 / 0.8e1 * t146 * t719 - 0.21e2 / 0.2048e4 * t980 * t1399 * t1939 + 0.123e3 / 0.512e3 * t375 * t4427 + 0.15e2 / 0.131072e6 * t2654 * t2655 * t467 * t4432 + 0.4e1 * t368 * t1905 - t1370 * t1396 / 0.2e1 + t3387 * t629 / 0.8e1 + t3393 * t629 / 0.4e1 + 0.3e1 / 0.128e3 * t1370 * t1393 + t4446 * t370 / 0.8e1 + t4449 * t623 * t22 * t205 / 0.4e1 + t4454 * t370 / 0.8e1 + t3390 * t629 / 0.8e1;
3106   t4478 = t2595 * t376;
3107   t4489 = 0.73e2 / 0.388800e6 * t4285 * t447 + t96 * t1554 / 0.20e2 - 0.73e2 / 0.75e2 * t1460 * t638 + 0.292e3 / 0.2025e4 * t70 * t4343 - 0.73e2 / 0.97200e5 * t4343 * t86 + (t4404 + t4459) * t35 * t45 / 0.24e2 + 0.73e2 / 0.300e3 * t3318 * t305 + 0.1971e4 / 0.100e3 * t2592 * t880 + 0.292e3 / 0.2025e4 * t436 * t903 + 0.584e3 / 0.2025e4 * t324 * t1455 - 0.73e2 / 0.200e3 * t1055 * t883 + 0.73e2 / 0.50e2 * t670 * t1408 - 0.73e2 / 0.600e3 * t1993 * t1482 - 0.5913e4 / 0.100e3 * t4478 * t2001 - 0.5913e4 / 0.200e3 * t2000 * t1933 * t457 + 0.73e2 / 0.200e3 * t1470 * t2008 + 0.73e2 / 0.400e3 * t675 * t914 * t457;
3108   t4490 = t3270 * t22;
3109   t4496 = t3273 * t22;
3110   t4501 = t2604 * t376;
3111   t4511 = t1983 * t190;
3112   t4530 = t665 * t665;
3113   t4532 = -0.73e2 / 0.300e3 * t4490 * t676 - 0.73e2 / 0.100e3 * t675 * t2013 * t199 + 0.73e2 / 0.400e3 * t4496 * t1476 + 0.73e2 / 0.150e3 * t1993 * t1479 + 0.5913e4 / 0.80e2 * t4501 * t1933 * t447 + 0.5913e4 / 0.25e2 * t2000 * t4383 * t199 - 0.219e3 / 0.800e3 * t1475 * t914 * t447 - 0.73e2 / 0.97200e5 * t4511 * t199 - 0.73e2 / 0.194400e6 * t1988 * t457 + 0.584e3 / 0.2025e4 * t185 * t1983 - 0.2e1 / 0.9e1 * t1953 * t159 + 0.11e2 / 0.27e2 * t887 * t397 - 0.3942e4 / 0.25e2 * t1058 * t1943 + 0.1971e4 / 0.5e1 * t446 * t4427 + 0.73e2 / 0.50e2 * t441 * t1949 - 0.219e3 / 0.100e3 * t191 * t719 + 0.584e3 / 0.2025e4 * t4530;
3114   t4546 = t684 * t684;
3115   t4567 = -t608 * t2018 - 0.3e1 / 0.8e1 * t293 * t294 * (t4489 + t4532) * t116 - 0.6e1 * t608 * t1884 + 0.4e1 * t608 * t1888 - 0.9e1 / 0.4e1 * t293 * t1128 * t858 * t485 + 0.3e1 / 0.2e1 * t293 * t494 * t4546 * t478 + 0.3e1 / 0.2e1 * t293 * t494 * t1503 * t1490 - t1330 * t919 / 0.6e1 + 0.2e1 * t608 * t1899 + 0.3e1 / 0.2e1 * t293 * t494 * t2017 * t221 + 0.3e1 / 0.4e1 * t293 * t494 * t918 * t485;
3116   t4572 = t857 * t2375;
3117   t4573 = t4572 * params->e;
3118   t4584 = t917 * t478;
3119   t4585 = t4584 * params->e;
3120   t4597 = t334 * t1106;
3121   t4615 = t1330 * t859 / 0.3e1 - t3156 * t1893 / 0.3e1 + 0.5e1 / 0.27e2 * t3150 * t4573 * t1505 + t1338 * t2023 / 0.12e2 - t694 * t2016 * t216 * t95 * t697 / 0.6e1 - t1502 * t4585 * t1505 / 0.36e2 + t1350 * t2021 * t221 * t1352 / 0.3e1 - 0.2e1 * t3160 * t1891 * t221 * t1352 + 0.4e1 / 0.3e1 * t1350 * t4597 * t684 * t1352 + 0.9e1 * t293 * t3106 * t858 * t350 - 0.9e1 * t1680 * t1681 * t478 * t221 * t684 - 0.9e1 / 0.4e1 * t293 * t1128 * t918 * t350;
3122   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3123     v4rho2tau2[0] = t4567 + t4615;
3124 
3125   t4652 = t209 * t102;
3126   t4656 = t416 * params->b * t180;
3127   t4659 = t2525 * t2077;
3128   t4668 = t255 * params->b;
3129   t4679 = params->b * t195 * t77;
3130   t4682 = 0.9e1 / 0.16e2 * t539 * t1590 + 0.135e3 / 0.256e3 * t258 * t3502 - 0.27e2 / 0.64e2 * t258 * t3505 - 0.75e2 / 0.128e3 * t4652 * t1600 - 0.225e3 / 0.2048e4 * t2074 * t4656 - 0.45e2 / 0.32e2 * t167 * t4659 + 0.567e3 / 0.64e2 * t2539 * t2077 * t180 - 0.243e3 / 0.32e2 * t1030 * t736 * t558 + 0.225e3 / 0.256e3 * t3508 * t4668 * t81 - 0.675e3 / 0.1024e4 * t1030 * t4668 * t1607 + 0.135e3 / 0.512e3 * t417 * t558 * t2082 - 0.45e2 / 0.32e2 * t2080 * t4679;
3131   t4713 = 0.292e3 / 0.2025e4 * t70 * t4682 + 0.292e3 / 0.2025e4 * t185 * t2085 + 0.292e3 / 0.675e3 * t260 * t1613 + 0.292e3 / 0.675e3 * t563 * t743 + 0.73e2 / 0.129600e6 * t446 * t580 * t755 + 0.73e2 / 0.129600e6 * t446 * t269 * t1643 - t100 * t4652 / 0.48e2 + 0.73e2 / 0.129600e6 * t1199 * t1638 + 0.73e2 / 0.103680e6 * t2604 * t2096 * t199 - 0.73e2 / 0.86400e5 * t1066 * t750 * t580 + 0.73e2 / 0.129600e6 * t1058 * t2099 - 0.73e2 / 0.97200e5 * t4682 * t86 + 0.73e2 / 0.129600e6 * t3727 * t573;
3132   t4724 = t2085 * t190;
3133   t4773 = params->BLOC_b * t230;
3134   t4783 = 0.3e1 * t21 * t707 * t507 + t21 * t141 * t2035 * t32 + 0.3e1 * t21 * t508 * t714 + t21 * t141 * t2049 * t32 + 0.3e1 * t368 * t2038 + 0.3e1 / 0.128e3 * t1536 * t1487 * t145 - 0.3e1 / 0.16e2 * t1243 * t723 - 0.15e2 / 0.131072e6 * t2654 * t3020 * t1939 + 0.27e2 / 0.4096e4 * t980 * t3024 * t879 - 0.9e1 / 0.128e3 * t375 * t3016 * t380 + 0.3e1 / 0.8e1 * t510 * t1567 + 0.3e1 / 0.16e2 * t3692 * t714 * t22 * t205 - 0.3e1 / 0.8e1 * t234 * t4773 * t135 - 0.3e1 / 0.8e1 * t3692 * t235 * t27 * t507 - 0.3e1 / 0.16e2 * t3688 * t514;
3135   t4788 = t21 * t2049;
3136   t4808 = t979 * t103 * t377 * t879;
3137   t4812 = t374 * sigma[0] * t1554;
3138   t4815 = t21 * t2035;
3139   t4824 = -0.3e1 / 0.16e2 * t3701 * t514 + 0.9e1 / 0.512e3 * t1232 * t1555 + t4788 * t370 / 0.16e2 - 0.9e1 / 0.512e3 * t1542 * t1256 + 0.9e1 / 0.512e3 * t1243 * t1555 + 0.9e1 / 0.4096e4 * t510 * t3634 - 0.3e1 / 0.16e2 * t368 * t3691 * t97 + 0.3e1 / 0.8e1 * t1530 * t1259 + 0.3e1 / 0.8e1 * t1542 * t1259 - 0.45e2 / 0.512e3 * t510 * t3653 - 0.3e1 / 0.4096e4 * t368 * t4808 + 0.9e1 / 0.512e3 * t368 * t4812 + t4815 * t370 / 0.16e2 - 0.9e1 / 0.512e3 * t1530 * t1256 + t1536 * t712 * t24 * t1538 / 0.8e1;
3140   t4832 = -0.73e2 / 0.86400e5 * t3067 * t1630 + 0.73e2 / 0.64800e5 * t1199 * t1633 + t1571 * t243 / 0.8e1 - t727 * t534 / 0.3e1 - t2065 * t159 / 0.9e1 - 0.73e2 / 0.194400e6 * t4724 * t199 - 0.73e2 / 0.64800e5 * t3760 * t269 - 0.73e2 / 0.64800e5 * t1618 * t580 + 0.73e2 / 0.129600e6 * t3049 * t750 - 0.73e2 / 0.64800e5 * t1284 * t755 - 0.73e2 / 0.64800e5 * t568 * t1643 - 0.73e2 / 0.259200e6 * t2595 * t2096 + (t4783 + t4824) * t35 * t45 / 0.24e2 - 0.73e2 / 0.86400e5 * t1066 * t2099 * t199;
3141   t4836 = t2104 * t216 * t95;
3142   t4862 = (t4713 + t4832) * t116 + 0.2e1 / 0.9e1 * t4836 * t183 - t3769 * t258 / 0.4e1 - t3773 * t578 / 0.12e2 + 0.2e1 / 0.3e1 * t1659 * t561 + t3090 * t740 / 0.32e2 + t3074 * t1652 / 0.12e2 - t1308 * t1610 / 0.6e1 - t2728 * t2111 / 0.96e2 - 0.5e1 / 0.864e3 * t2739 / t42 / t1088 * t35 * t41 + t1107 * t2110 * t209 / 0.12e2;
3143   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3144     v4rhosigma3[0] = -0.3e1 * t491 * t2028 + 0.9e1 * t293 * t3106 * t2026 * t221 - 0.27e2 / 0.4e1 * t293 * t1128 * t701 * t603 + 0.3e1 * t608 * t2032 - 0.27e2 / 0.4e1 * t293 * t1128 * t2031 * t221 + 0.9e1 / 0.4e1 * t293 * t494 * t603 * t774 + 0.9e1 / 0.4e1 * t293 * t494 * t287 * t1674 - t491 * t2116 / 0.2e1 + 0.3e1 / 0.4e1 * t293 * t494 * t2114 * t221 - 0.3e1 / 0.8e1 * t130 * t132 * t134 * t4862;
3145 
3146   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3147     v4rhosigma2lapl[0] = 0.0e0;
3148 
3149   t4918 = 0.2e1 * t21 * t232 * t1722 * t32 - t21 * t1566 * t304 / 0.4e1 + t21 * t706 * t623 * t32 + t21 * t714 * t623 * t32 + 0.2e1 * t21 * t507 * t791 * t32 + t1712 * t1259 / 0.4e1 - 0.3e1 / 0.256e3 * t1232 * t1745 + t1232 * t1755 / 0.4e1 - t4017 * t514 / 0.8e1 - t4020 * t514 / 0.8e1 - 0.3e1 / 0.256e3 * t1712 * t1256 - t3698 * t2147 / 0.8e1 - t4025 * t514 / 0.8e1;
3150   t4929 = t21 * t2134;
3151   t4936 = t21 * t2137;
3152   t4939 = t21 * t2140;
3153   t4955 = 0.3e1 / 0.512e3 * t1370 * t1555 + t3692 * t25 * t304 * t507 / 0.8e1 + t3688 * t629 / 0.16e2 + t3701 * t629 / 0.16e2 + t4929 * t370 / 0.16e2 - t21 * t4773 * t135 * t301 / 0.8e1 + t4936 * t370 / 0.16e2 + t4939 * t370 / 0.8e1 - 0.33e2 / 0.4096e4 * t980 * t987 * t1401 + 0.33e2 / 0.256e3 * t375 * t991 * t634 + t626 * t1567 / 0.8e1 - t1381 * t723 / 0.16e2 + 0.15e2 / 0.131072e6 * t2654 * t982 * t2411;
3154   t4966 = t3632 * t377 * t1401;
3155   t4969 = t1553 * t1744;
3156   t4983 = t4044 * t97;
3157   t4986 = t368 * t2170 / 0.8e1 + 0.2e1 * t510 * t1707 + t368 * t2135 + t368 * t2138 + 0.2e1 * t368 * t2141 + 0.3e1 / 0.4096e4 * t368 * t4966 - 0.15e2 / 0.512e3 * t368 * t4969 - t1536 * t1554 * t513 / 0.64e2 - t3961 * t514 / 0.8e1 - 0.3e1 / 0.256e3 * t1725 * t1256 + 0.3e1 / 0.512e3 * t1381 * t1555 + 0.3e1 / 0.4096e4 * t626 * t3634 - t368 * t4983 / 0.16e2;
3158   t5015 = 0.3e1 / 0.512e3 * t1530 * t1393 + 0.3e1 / 0.512e3 * t1542 * t1393 + 0.9e1 / 0.128e3 * t510 * t3964 - t510 * t3969 / 0.2e1 + t1536 * t97 * t2146 / 0.8e1 + t1725 * t1259 / 0.4e1 - 0.15e2 / 0.512e3 * t626 * t3653 - t1530 * t1396 / 0.8e1 - t1542 * t1396 / 0.8e1 - 0.3e1 / 0.256e3 * t1243 * t1745 - 0.3e1 / 0.2048e4 * t510 * t3941 + t1243 * t1755 / 0.4e1 - t1232 * t4044 * t236 / 0.8e1;
3159   t5037 = t3201 * t736;
3160   t5054 = t77 * t547;
3161   t5058 = t76 * t558;
3162   t5062 = t321 * params->b;
3163   t5066 = t1030 * t5062;
3164   t5069 = t417 * t662;
3165   t5074 = 0.567e3 / 0.64e2 * t2539 * t2190 * t180 - 0.81e2 / 0.32e2 * t1030 * t662 * t736 - 0.81e2 / 0.16e2 * t1030 * t817 * t558 - 0.75e2 / 0.16e2 * t3508 * t2327 * t255 + 0.225e3 / 0.64e2 * t1030 * t2327 * t5054 + 0.195e3 / 0.32e2 * t2083 - 0.45e2 / 0.32e2 * t1604 * t822 * t5058 + 0.75e2 / 0.256e3 * t3508 * t5062 * t81 - 0.225e3 / 0.1024e4 * t5066 * t1607 + 0.45e2 / 0.512e3 * t5069 * t2082 - 0.15e2 / 0.32e2 * t2197 * t4679;
3166   t5075 = -0.15e2 / 0.16e2 * t2072 - 0.45e2 / 0.32e2 * t1778 * t3502 + 0.9e1 / 0.8e1 * t1778 * t3505 + 0.525e3 / 0.128e3 * t2075 + 0.225e3 / 0.256e3 * t2185 * t4656 + 0.3e1 / 0.8e1 * t561 * t1789 + 0.45e2 / 0.128e3 * t258 * t3895 - 0.9e1 / 0.64e2 * t258 * t3888 - 0.9e1 / 0.64e2 * t258 * t3872 - 0.45e2 / 0.32e2 * t1160 * t5037 + t5074;
3167   t5080 = -0.73e2 / 0.194400e6 * t1460 * t755 - 0.73e2 / 0.194400e6 * t670 * t1643 + t1649 * t304 / 0.90e2 - 0.73e2 / 0.97200e5 * t1813 * t580 + 0.73e2 / 0.388800e6 * t3270 * t750 + 0.73e2 / 0.150e3 * t1284 * t802 - 0.73e2 / 0.600e3 * t446 * t676 + 0.73e2 / 0.600e3 * t3760 * t305 + (t4918 + t4955 + t4986 + t5015) * t35 * t45 / 0.24e2 - 0.73e2 / 0.97200e5 * t5075 * t86 + 0.292e3 / 0.2025e4 * t70 * t5075;
3168   t5083 = t2200 * t190;
3169   t5108 = -0.73e2 / 0.97200e5 * t4091 * t269 - 0.73e2 / 0.194400e6 * t5083 * t199 - 0.73e2 / 0.150e3 * t191 * t681 - 0.2e1 / 0.9e1 * t806 * t534 - 0.73e2 / 0.75e2 * t568 * t1758 - 0.73e2 / 0.300e3 * t1618 * t638 - t2174 * t159 / 0.9e1 + 0.73e2 / 0.300e3 * t1825 * t1835 - 0.73e2 / 0.400e3 * t1475 * t681 * t750 + 0.73e2 / 0.150e3 * t1843 * t1835 + 0.73e2 / 0.600e3 * t675 * t681 * t755 + 0.584e3 / 0.2025e4 * t563 * t826;
3170   t5134 = 0.584e3 / 0.2025e4 * t260 * t1808 + 0.292e3 / 0.2025e4 * t185 * t2200 + t1762 * t243 / 0.12e2 + 0.73e2 / 0.194400e6 * t4063 * t573 - 0.73e2 / 0.259200e6 * t3273 * t1630 + 0.73e2 / 0.194400e6 * t1463 * t1633 + 0.73e2 / 0.388800e6 * t1463 * t1638 + 0.73e2 / 0.300e3 * t441 * t331 + 0.73e2 / 0.800e3 * t3287 * t2217 - 0.73e2 / 0.300e3 * t4086 * t835 - 0.73e2 / 0.300e3 * t1843 * t1838 - 0.73e2 / 0.1200e4 * t1470 * t2222;
3171   t5142 = t1199 * sigma[0];
3172   t5145 = t3727 * t22;
3173   t5165 = -0.73e2 / 0.1200e4 * t675 * t331 * t1643 - 0.73e2 / 0.600e3 * t4094 * t835 - 0.73e2 / 0.600e3 * t1825 * t1838 - 0.73e2 / 0.300e3 * t5142 * t676 - 0.73e2 / 0.1200e4 * t5145 * t676 + 0.292e3 / 0.2025e4 * t1613 * t324 + 0.73e2 / 0.400e3 * t4102 * t1832 - 0.73e2 / 0.320e3 * t3292 * t331 * t1630 + 0.73e2 / 0.400e3 * t1475 * t331 * t1633 + 0.73e2 / 0.200e3 * t4097 * t1832 + 0.73e2 / 0.800e3 * t1475 * t331 * t1638 + 0.292e3 / 0.2025e4 * t743 * t665;
3174   t5181 = t2239 * t4 * t1349;
3175   t5206 = t695 * t774;
3176   t5210 = t695 * t701;
3177   t5214 = t1856 * t287;
3178   t5227 = -t608 * t2231 / 0.2e1 - 0.3e1 / 0.8e1 * t293 * t294 * (t5080 + t5108 + t5134 + t5165) * t116 - t1865 * t1857 * t1866 / 0.8e1 + t1877 * t4178 * t1878 / 0.48e2 + t1350 * t2127 / 0.6e1 + t5181 * t1504 * t77 * t221 / 0.128e3 - t1865 * t4207 * t853 / 0.8e1 - t1865 * t4193 * t853 / 0.8e1 - t694 * t2229 * t216 * t95 * t697 / 0.12e2 + 0.3e1 / 0.8e1 * t4182 * t1691 * t111 * t40 * t221 - t4187 * t4197 * t2242 * t272 / 0.24e2 + t1350 * t5206 * t1352 / 0.6e1 - t3160 * t5210 * t1352 / 0.2e1 + t1350 * t5214 * t1352 / 0.3e1 - 0.9e1 / 0.2e1 * t1680 * t937 * t842 * t1683 - 0.9e1 / 0.4e1 * t1680 * t1681 * t116 * t774 * t221;
3179   t5247 = 0.1e1 / t42 / t451;
3180   t5288 = 0.9e1 * t1680 * t4216 * t116 * t701 * t221 - 0.9e1 / 0.2e1 * t1680 * t1681 * t1682 * t603 + t850 * t134 * t1851 * t216 * t853 / 0.16e2 - t2240 * t1870 * t478 * t2243 / 0.256e3 - t5247 * t2 * t849 * t3119 * t2110 * sigma[0] / 0.96e2 - t1861 * t2236 / 0.12e2 + t1875 * t849 * t2244 / 0.64e2 - 0.9e1 / 0.4e1 * t293 * t1128 * t685 * t701 + 0.3e1 / 0.2e1 * t293 * t494 * t1852 * t287 + 0.3e1 / 0.2e1 * t293 * t494 * t843 * t603 + 0.3e1 / 0.4e1 * t293 * t494 * t685 * t774 + 0.3e1 / 0.4e1 * t293 * t494 * t335 * t1674 + 0.3e1 / 0.4e1 * t293 * t494 * t2230 * t221 + 0.2e1 * t608 * t2124 + t608 * t2131 - 0.3e1 * t608 * t2120;
3181   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3182     v4rhosigma2tau[0] = t5227 + t5288;
3183 
3184   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3185     v4rhosigmalapl2[0] = 0.0e0;
3186 
3187   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3188     v4rhosigmalapltau[0] = 0.0e0;
3189 
3190   t5297 = t2334 * t190;
3191   t5316 = t4308 * t255;
3192   t5347 = 0.567e3 / 0.64e2 * t2539 * t2324 * t180 - 0.81e2 / 0.16e2 * t1030 * t817 * t662 - 0.81e2 / 0.32e2 * t1030 * t894 * t558 - 0.75e2 / 0.16e2 * t3508 * t5062 * t821 + 0.225e3 / 0.64e2 * t5066 * t1804 - 0.45e2 / 0.32e2 * t5069 * t2328 + 0.195e3 / 0.32e2 * t2198 + 0.75e2 / 0.4e1 * t3508 * t2435 * t255 - 0.225e3 / 0.16e2 * t1030 * t2435 * t5054 - 0.75e2 / 0.4e1 * t2195 + 0.45e2 / 0.8e1 * t1604 * t899 * t5058;
3193   t5348 = -0.15e2 / 0.8e1 * t2188 - 0.45e2 / 0.16e2 * t1778 * t3895 + 0.9e1 / 0.8e1 * t1778 * t3888 + 0.9e1 / 0.8e1 * t1778 * t3872 - 0.225e3 / 0.8e1 * t2186 - 0.225e3 / 0.32e2 * t2319 * t4656 + 0.3e1 / 0.16e2 * t539 * t1967 + 0.45e2 / 0.256e3 * t258 * t4309 - 0.9e1 / 0.64e2 * t258 * t4312 - 0.45e2 / 0.32e2 * t1160 * t5316 + t5347;
3194   t5365 = -0.73e2 / 0.194400e6 * t4511 * t269 - 0.73e2 / 0.194400e6 * t1988 * t580 - t887 * t534 / 0.9e1 - 0.73e2 / 0.194400e6 * t5297 * t199 - 0.73e2 / 0.97200e5 * t5348 * t86 + 0.73e2 / 0.400e3 * t4496 * t1832 + 0.5913e4 / 0.80e2 * t4501 * t1933 * t573 - 0.219e3 / 0.800e3 * t1475 * t914 * t573 + 0.292e3 / 0.2025e4 * t70 * t5348 - 0.73e2 / 0.75e2 * t670 * t1758 - 0.73e2 / 0.150e3 * t1813 * t638;
3195   t5368 = t522 * t380;
3196   t5371 = t518 * t879;
3197   t5380 = t1463 * sigma[0];
3198   t5383 = t3067 * t376;
3199   t5386 = t4063 * t22;
3200   t5396 = -t2308 * t159 / 0.9e1 + 0.73e2 / 0.50e2 * t191 * t5368 - 0.7884e4 / 0.25e2 * t446 * t5371 + 0.73e2 / 0.100e3 * t568 * t1949 - 0.73e2 / 0.600e3 * t4490 * t835 - 0.73e2 / 0.600e3 * t1993 * t1838 - 0.73e2 / 0.300e3 * t5380 * t676 - 0.5913e4 / 0.200e3 * t5383 * t2001 - 0.73e2 / 0.600e3 * t5386 * t676 + 0.73e2 / 0.400e3 * t1825 * t2008 + 0.73e2 / 0.400e3 * t1470 * t2356 + 0.73e2 / 0.400e3 * t675 * t914 * t580;
3201   t5413 = t1066 * t103;
3202   t5424 = 0.73e2 / 0.200e3 * t1843 * t2008 + 0.73e2 / 0.300e3 * t1993 * t1835 + 0.5913e4 / 0.50e2 * t2000 * t4383 * t269 - 0.73e2 / 0.200e3 * t675 * t2013 * t269 - 0.5913e4 / 0.200e3 * t4478 * t2349 - 0.5913e4 / 0.200e3 * t2000 * t1933 * t580 - 0.5913e4 / 0.50e2 * t5413 * t2001 - 0.1971e4 / 0.25e2 * t1199 * t1943 + 0.292e3 / 0.2025e4 * t185 * t2334 + 0.292e3 / 0.2025e4 * t260 * t1983 + 0.292e3 / 0.2025e4 * t563 * t903;
3203   t5435 = t21 * t2272;
3204   t5458 = -t4449 * t235 * t27 * t623 / 0.8e1 - t4446 * t514 / 0.16e2 + t5435 * t370 / 0.16e2 - t4454 * t514 / 0.16e2 + t4017 * t629 / 0.8e1 + t4020 * t629 / 0.8e1 + 0.3e1 / 0.256e3 * t1712 * t1393 + t4025 * t629 / 0.8e1 - t1712 * t1396 / 0.4e1 - 0.3e1 / 0.256e3 * t1370 * t1745 + t1370 * t1755 / 0.4e1 + 0.3e1 / 0.512e3 * t1232 * t1934 - 0.3e1 / 0.16e2 * t1232 * t1946;
3205   t5459 = t21 * t2264;
3206   t5466 = t1254 * t1933;
3207   t5471 = t513 * t914;
3208   t5476 = t21 * t2280;
3209   t5491 = t5459 * t370 / 0.16e2 + t4449 * t791 * t22 * t205 / 0.8e1 + 0.21e2 / 0.512e3 * t368 * t5466 - 0.3e1 / 0.16e2 * t1243 * t1946 - 0.3e1 / 0.8e1 * t368 * t5471 - 0.3e1 / 0.512e3 * t1908 * t1256 + t5476 * t370 / 0.16e2 - t4417 * t514 / 0.16e2 - 0.3e1 / 0.512e3 * t1922 * t1256 + t3961 * t629 / 0.8e1 + 0.3e1 / 0.256e3 * t1725 * t1393 - 0.3e1 / 0.256e3 * t1381 * t1745 - t626 * t3969 / 0.2e1;
3210   t5514 = t2929 * t377 * t1939;
3211   t5523 = -0.21e2 / 0.512e3 * t510 * t4384 + 0.3e1 / 0.8e1 * t510 * t4389 + t1908 * t1259 / 0.8e1 + t1922 * t1259 / 0.8e1 - t1725 * t1396 / 0.4e1 + 0.9e1 / 0.128e3 * t626 * t3964 - 0.3e1 / 0.2048e4 * t626 * t3941 + t1381 * t1755 / 0.4e1 + 0.3e1 / 0.512e3 * t1243 * t1934 + 0.3e1 / 0.4096e4 * t510 * t4412 - 0.3e1 / 0.4096e4 * t368 * t5514 + t1232 * t4044 * t305 / 0.8e1 + t21 * t507 * t862 * t32;
3212   t5563 = 0.2e1 * t21 * t624 * t791 + 0.2e1 * t21 * t301 * t1722 + t21 * (-t502 * t2275 / 0.4e1 - 0.7e1 / 0.8e1 * t502 * t304) * t32 + 0.39e2 / 0.4096e4 * t980 * t1748 * t1939 - 0.51e2 / 0.256e3 * t375 * t5371 + 0.3e1 / 0.4e1 * t146 * t5368 - 0.15e2 / 0.131072e6 * t2654 * t3009 * t209 * t4432 + 0.2e1 * t510 * t1905 + t368 * t2265 + 0.2e1 * t368 * t2267 + t368 * t2273 + t21 * t507 * t872 * t32 + t21 * t232 * t1919 * t32 + t21 * t141 * t2280 * t32;
3213   t5587 = 0.584e3 / 0.2025e4 * t324 * t1808 + t1953 * t243 / 0.24e2 + (t5458 + t5491 + t5523 + t5563) * t35 * t45 / 0.24e2 + 0.584e3 / 0.2025e4 * t665 * t826 + 0.73e2 / 0.388800e6 * t4285 * t573 - t276 * t2013 / 0.30e2 + 0.73e2 / 0.300e3 * t4091 * t305 + 0.73e2 / 0.150e3 * t1460 * t802 + 0.1971e4 / 0.100e3 * t3049 * t880 + 0.1971e4 / 0.25e2 * t1058 * t2299 - 0.73e2 / 0.200e3 * t1284 * t883 - 0.73e2 / 0.100e3 * t441 * t2304;
3214   t5616 = t1891 * t287;
3215   t5619 = t4597 * t842;
3216   t5623 = t2021 * t287;
3217   t5628 = t478 * t287;
3218   t5637 = -t608 * t2365 / 0.2e1 - 0.3e1 / 0.8e1 * t293 * t294 * (t5365 + t5396 + t5424 + t5587) * t116 - t694 * t2363 * t216 * t95 * t697 / 0.12e2 - t1865 * t2022 * t1866 / 0.16e2 + t1877 * t4585 * t1878 / 0.96e2 + 0.3e1 / 0.8e1 * t4182 * t1892 * t1866 - t1865 * t4597 * t95 * t59 * t684 / 0.4e1 - 0.5e1 / 0.72e2 * t4187 * t4573 * t1878 - t3160 * t5616 * t1352 + 0.2e1 / 0.3e1 * t1350 * t5619 * t1352 + t1350 * t5623 * t1352 / 0.6e1 + 0.9e1 * t1680 * t2486 * t857 * t5628 * t221 - 0.9e1 / 0.2e1 * t1680 * t1681 * t5628 * t684;
3219   t5684 = -0.9e1 / 0.2e1 * t1680 * t1681 * t4177 * t221 - 0.9e1 / 0.4e1 * t1680 * t937 * t917 * t1683 + t850 * t134 * t2016 * t216 * t853 / 0.32e2 - t1861 * t2370 / 0.24e2 + t1861 * t2257 / 0.6e1 - 0.9e1 / 0.4e1 * t293 * t1128 * t858 * t603 + 0.3e1 / 0.2e1 * t293 * t494 * t3136 * t842 + 0.3e1 / 0.2e1 * t293 * t494 * t1503 * t1851 + 0.3e1 / 0.4e1 * t293 * t494 * t2017 * t287 + 0.3e1 / 0.4e1 * t293 * t494 * t918 * t603 + 0.3e1 / 0.4e1 * t293 * t494 * t2364 * t221 + 0.2e1 * t608 * t2252 + t608 * t2261 - 0.3e1 * t608 * t2248;
3220   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3221     v4rhosigmatau2[0] = t5637 + t5684;
3222 
3223   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3224     v4rholapl3[0] = 0.0e0;
3225 
3226   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3227     v4rholapl2tau[0] = 0.0e0;
3228 
3229   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3230     v4rholapltau2[0] = 0.0e0;
3231 
3232   t5696 = 0.1e1 / t477 / t215;
3233   t5712 = t4597 * t917;
3234   t5727 = t1937 * t2411;
3235   t5730 = t632 * t1401;
3236   t5733 = t149 * t634;
3237   t5762 = t872 * t22;
3238   t5791 = t377 * t2411;
3239   t5792 = t2672 * t5791;
3240   t5795 = t21 * (0.3e1 / 0.4e1 * t15 * t914 * t136 + 0.17e2 / 0.8e1 * t15 * t914) * t32 + 0.3e1 / 0.16e2 * t4446 * t629 + 0.3e1 / 0.16e2 * t4454 * t629 + 0.9e1 / 0.512e3 * t1370 * t1934 - 0.9e1 / 0.16e2 * t1370 * t1946 + 0.3e1 / 0.16e2 * t4449 * t5762 * t205 + 0.3e1 / 0.8e1 * t4449 * t25 * t304 * t623 + 0.3e1 * t21 * t624 * t872 + 0.3e1 * t21 * t301 * t1919 + t21 * t141 * t2400 * t32 + 0.3e1 * t21 * t863 * t623 + t21 * t141 * t2384 * t32 + 0.9e1 / 0.512e3 * t1381 * t1934 + 0.9e1 / 0.4096e4 * t626 * t4412 - 0.9e1 / 0.16e2 * t1381 * t1946 + 0.3e1 / 0.4096e4 * t368 * t5792;
3241   t5796 = t384 * t1401;
3242   t5797 = t970 * t5796;
3243   t5800 = t369 * t2456;
3244   t5803 = t21 * t2384;
3245   t5808 = t21 * t2400;
3246   t5827 = 0.1e1 / t1938 / t303;
3247   t5837 = -0.27e2 / 0.512e3 * t368 * t5797 + 0.3e1 / 0.4e1 * t368 * t5800 + t5803 * t370 / 0.16e2 + 0.9e1 / 0.512e3 * t1908 * t1393 + t5808 * t370 / 0.16e2 + 0.3e1 / 0.16e2 * t4417 * t629 + 0.9e1 / 0.512e3 * t1922 * t1393 - 0.3e1 / 0.8e1 * t1922 * t1396 - 0.63e2 / 0.512e3 * t626 * t4384 + 0.9e1 / 0.8e1 * t626 * t4389 - 0.3e1 / 0.8e1 * t1908 * t1396 + 0.3e1 * t368 * t2387 + 0.15e2 / 0.131072e6 * t2654 * t2655 * t209 * t5827 - 0.45e2 / 0.4096e4 * t980 * t5727 + 0.9e1 / 0.32e2 * t375 * t5730 - 0.3e1 / 0.2e1 * t146 * t5733;
3248   t5850 = t2525 * t2432;
3249   t5867 = -0.45e2 / 0.16e2 * t2322 - 0.135e3 / 0.32e2 * t1778 * t4309 + 0.27e2 / 0.8e1 * t1778 * t4312 + 0.375e3 / 0.2e1 * t2320 + 0.225e3 / 0.4e1 * t2429 * t4656 - 0.45e2 / 0.32e2 * t167 * t5850 + 0.567e3 / 0.64e2 * t2539 * t2432 * t180 - 0.243e3 / 0.32e2 * t1030 * t894 * t662 + 0.225e3 / 0.4e1 * t3508 * t5062 * t898 - 0.675e3 / 0.16e2 * t5066 * t1979 + 0.135e3 / 0.8e1 * t5069 * t2436 - 0.225e3 / 0.4e1 * t2329;
3250   t5872 = t2439 * t190;
3251   t5875 = 0.292e3 / 0.675e3 * t324 * t1983 - 0.1436859e7 / 0.25e2 * t1066 * t5727 + 0.17739e5 / 0.25e2 * t446 * t5730 - 0.73e2 / 0.25e2 * t191 * t5733 - 0.73e2 / 0.100e3 * t1988 * t638 - 0.5913e4 / 0.25e2 * t1463 * t1943 + 0.219e3 / 0.100e3 * t670 * t1949 - t2422 * t159 / 0.9e1 + 0.73e2 / 0.200e3 * t4511 * t305 + (t5795 + t5837) * t35 * t45 / 0.24e2 - 0.73e2 / 0.97200e5 * t5867 * t86 + 0.292e3 / 0.675e3 * t665 * t903 - 0.73e2 / 0.194400e6 * t5872 * t199;
3252   t5876 = t148 * t634;
3253   t5894 = t3273 * t376;
3254   t5899 = t2604 * t981;
3255   t5908 = t4285 * t22;
3256   t5911 = t96 * t5876 / 0.15e2 - 0.219e3 / 0.200e3 * t1460 * t883 + 0.478953e6 / 0.50e2 * t2595 * t2412 - 0.17739e5 / 0.100e3 * t1058 * t2415 + 0.73e2 / 0.50e2 * t441 * t2418 + 0.5913e4 / 0.100e3 * t3270 * t880 + 0.292e3 / 0.2025e4 * t70 * t5867 - 0.73e2 / 0.100e3 * t675 * t2456 * t199 - 0.17739e5 / 0.200e3 * t5894 * t2001 + 0.219e3 / 0.400e3 * t1993 * t2008 - 0.478953e6 / 0.20e2 * t5899 * t5791 * t199 + 0.53217e5 / 0.200e3 * t2000 * t5796 * t199 + 0.292e3 / 0.2025e4 * t185 * t2439 - 0.73e2 / 0.400e3 * t5908 * t676;
3257   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3258     v4rhotau3[0] = -0.3e1 * t608 * t2377 + 0.9e1 * t293 * t3106 * t2376 * t221 - 0.27e2 / 0.4e1 * t293 * t1128 * t4572 * t684 - 0.3e1 / 0.2e1 * t3160 * t2373 * t5696 * t95 * t697 + 0.3e1 * t608 * t2381 - 0.27e2 / 0.4e1 * t1680 * t1681 * t4584 * t221 + 0.9e1 / 0.4e1 * t293 * t494 * t3136 * t917 + t1350 * t5712 * t1352 + 0.9e1 / 0.4e1 * t293 * t494 * t1503 * t2016 - t608 * t2461 / 0.2e1 + 0.3e1 / 0.4e1 * t293 * t494 * t2460 * t221 - 0.3e1 / 0.8e1 * t293 * t294 * (t5875 + t5911) * t116 - t694 * t2459 * t216 * t95 * t697 / 0.12e2;
3259 
3260   t5922 = t701 * t701;
3261   t5931 = t774 * t774;
3262   t5968 = t706 * t706;
3263   t5971 = t714 * t714;
3264   t5991 = -0.3e1 / 0.8e1 * t1530 * t723 + 0.9e1 / 0.256e3 * t1530 * t1555 - t4788 * t514 / 0.4e1 - 0.3e1 / 0.8e1 * t1542 * t723 + 0.9e1 / 0.256e3 * t1542 * t1555 - 0.3e1 / 0.1024e4 * t510 * t4808 - 0.9e1 / 0.2048e4 * t980 * t2581 * t879 - t4815 * t514 / 0.4e1 + t21 * (t226 * t12 * t2046 - 0.6e1 * t19 / t376) * t32 + 0.6e1 * t21 * t707 * t714 + t21 * t5968 * t32 + 0.3e1 * t21 * t5971 * t32 + 0.4e1 * t21 * t233 * t2049 + 0.15e2 / 0.131072e6 * t2654 * t2681 * t1939 + 0.9e1 / 0.512e3 * t21 * t374 * t384 * t380 + 0.9e1 / 0.128e3 * t510 * t4812 - 0.3e1 / 0.4e1 * t3692 * t714 * sigma[0] * t97;
3265   t5997 = t743 * t743;
3266   t6003 = t1161 * params->b;
3267   t6006 = t736 * t736;
3268   t6012 = params->b * params->b;
3269   t6013 = t417 * t6012;
3270   t6015 = 0.1e1 / t42 / t466;
3271   t6018 = 0.1e1 / t39 / t101;
3272   t6022 = 0.45e2 / 0.64e2 * t246 * t4659 - 0.225e3 / 0.512e3 * t2074 * t6003 + 0.567e3 / 0.64e2 * t2539 * t6006 - 0.675e3 / 0.512e3 * t1030 * t736 * t2082 + 0.1125e4 / 0.8192e4 * t6013 * t6015 * t35 * t6018;
3273   t6037 = t750 * t750;
3274   t6043 = t755 * t755;
3275   t6046 = t5991 * t35 * t45 / 0.24e2 + t2065 * t243 / 0.6e1 + 0.292e3 / 0.675e3 * t5997 + 0.1168e4 / 0.2025e4 * t260 * t2085 + 0.292e3 / 0.2025e4 * t70 * t6022 - 0.73e2 / 0.97200e5 * t6022 * t86 - 0.73e2 / 0.48600e5 * t4724 * t269 + 0.73e2 / 0.64800e5 * t3727 * t750 - 0.73e2 / 0.32400e5 * t1618 * t755 - 0.73e2 / 0.64800e5 * t3067 * t2096 + 0.73e2 / 0.32400e5 * t1199 * t2099 + 0.73e2 / 0.103680e6 * t2604 * t6037 - 0.73e2 / 0.43200e5 * t1066 * t750 * t755 + 0.73e2 / 0.129600e6 * t446 * t6043;
3276   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3277     v4sigma4[0] = 0.9e1 * t130 * t132 * t2486 * t5922 - 0.27e2 / 0.2e1 * t293 * t1128 * t701 * t774 + 0.9e1 / 0.4e1 * t130 * t132 * t349 * t5931 + 0.3e1 * t293 * t494 * t287 * t2114 - 0.3e1 / 0.8e1 * t130 * t132 * t134 * (t6046 * t116 - t4836 * t258 / 0.3e1 + t3773 * t740 / 0.16e2 - t3073 * t2111 / 0.24e2 + 0.5e1 / 0.2304e4 * t2736 * t2737 * t102 * t6015 * t59);
3278 
3279   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3280     v4sigma3lapl[0] = 0.0e0;
3281 
3282   t6080 = t1431 * params->b;
3283   t6086 = t76 * t736;
3284   t6090 = t1030 * t817;
3285   t6097 = -0.45e2 / 0.32e2 * t312 * t4659 + 0.675e3 / 0.256e3 * t2185 * t6003 + 0.135e3 / 0.256e3 * t258 * t5037 - 0.225e3 / 0.2048e4 * t2074 * t6080 + 0.567e3 / 0.64e2 * t2539 * t321 * t2077 + 0.675e3 / 0.128e3 * t3555 * t822 * t6086 - 0.675e3 / 0.1024e4 * t6090 * t2082 - 0.1125e4 / 0.1024e4 * t6013 * t3116 * t35 * t6018;
3286   t6112 = -0.73e2 / 0.64800e5 * t5083 * t269 - 0.73e2 / 0.64800e5 * t1813 * t755 + 0.292e3 / 0.2025e4 * t2085 * t324 + 0.292e3 / 0.675e3 * t743 * t826 + 0.292e3 / 0.675e3 * t260 * t2200 + 0.292e3 / 0.2025e4 * t70 * t6097 - 0.73e2 / 0.97200e5 * t6097 * t86 - 0.73e2 / 0.200e3 * t446 * t835 - 0.73e2 / 0.200e3 * t1843 * t2222 - 0.73e2 / 0.400e3 * t5145 * t835 + 0.73e2 / 0.100e3 * t1618 * t802 - 0.73e2 / 0.400e3 * t1825 * t2222;
3287   t6162 = t21 * t2035 * t300 * t32 - 0.3e1 / 0.16e2 * t4936 * t514 - 0.3e1 / 0.8e1 * t21 * t232 * params->BLOC_b * t2147 - 0.3e1 / 0.8e1 * t4939 * t514 + 0.9e1 / 0.512e3 * t1712 * t1555 + 0.3e1 / 0.16e2 * t3692 * t25 * t304 * t714 - 0.3e1 / 0.16e2 * t4929 * t514 - 0.15e2 / 0.131072e6 * t2654 * t1263 * t2411 + 0.3e1 * t510 * t2138 + 0.3e1 / 0.128e3 * t1536 * t2013 * t145 - 0.9e1 / 0.128e3 * t375 * t1271 * t634 + 0.3e1 / 0.8e1 * t510 * t2170 + 0.27e2 / 0.4096e4 * t980 * t1267 * t1401 - 0.3e1 / 0.16e2 * t1725 * t723 + t4815 * t629 / 0.16e2;
3288   t6200 = 0.3e1 / 0.8e1 * t1542 * t1755 - 0.45e2 / 0.512e3 * t510 * t4969 - 0.3e1 / 0.16e2 * t510 * t4983 + t1536 * t295 * t712 * t32 / 0.8e1 + 0.9e1 / 0.512e3 * t626 * t4812 + 0.3e1 / 0.8e1 * t1530 * t1755 - 0.3e1 / 0.4096e4 * t626 * t4808 - 0.9e1 / 0.512e3 * t1530 * t1745 + t4788 * t629 / 0.16e2 - 0.9e1 / 0.512e3 * t1542 * t1745 + 0.9e1 / 0.4096e4 * t510 * t4966 + 0.9e1 / 0.512e3 * t1725 * t1555 + 0.3e1 * t21 * t706 * t791 * t32 + t21 * t2049 * t300 * t32 + 0.3e1 * t21 * t714 * t791 * t32;
3289   t6219 = 0.73e2 / 0.129600e6 * t4063 * t750 - 0.73e2 / 0.259200e6 * t3273 * t2096 + 0.73e2 / 0.129600e6 * t1463 * t2099 + 0.73e2 / 0.600e3 * t4724 * t305 + 0.73e2 / 0.100e3 * t568 * t331 + (t6162 + t6200) * t35 * t45 / 0.24e2 + t2174 * t243 / 0.8e1 + 0.219e3 / 0.800e3 * t1475 * t331 * t2099 + 0.219e3 / 0.800e3 * t4102 * t2217 - 0.73e2 / 0.100e3 * t5142 * t835 - 0.73e2 / 0.320e3 * t3292 * t331 * t2096 + 0.219e3 / 0.400e3 * t4097 * t2217;
3290   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3291     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t293 * t294 * (t6112 + t6219) * t116 - 0.27e2 / 0.4e1 * t293 * t1128 * t843 * t701 + 0.9e1 / 0.4e1 * t293 * t494 * t2230 * t287 + 0.9e1 / 0.4e1 * t293 * t494 * t843 * t774 + 0.3e1 / 0.4e1 * t293 * t494 * t335 * t2114 + 0.3e1 / 0.32e2 * t850 * t134 * t2229 * t216 * t853 - 0.3e1 / 0.256e3 * t2240 * t2234 * t478 * t2243 - 0.3e1 / 0.16e2 * t1865 * t5206 * t853 + 0.3e1 / 0.128e3 * t5181 * t4197 * t2243 + 0.9e1 / 0.16e2 * t4182 * t5210 * t853 - 0.3e1 / 0.8e1 * t1865 * t5214 * t853 + t2512 * t2 * t849 * t851 * t1106 * t1108 * t102 / 0.256e3 + 0.9e1 * t293 * t3106 * t335 * t2026 - 0.27e2 / 0.4e1 * t1680 * t1681 * t1682 * t774;
3292 
3293   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3294     v4sigma2lapl2[0] = 0.0e0;
3295 
3296   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3297     v4sigma2lapltau[0] = 0.0e0;
3298 
3299   t6292 = t842 * t842;
3300   t6323 = t826 * t826;
3301   t6344 = t1030 * t894;
3302   t6354 = -0.45e2 / 0.16e2 * t1778 * t5037 - 0.225e3 / 0.16e2 * t2319 * t6003 + 0.225e3 / 0.128e3 * t2185 * t6080 + 0.45e2 / 0.128e3 * t258 * t5316 + 0.567e3 / 0.64e2 * t2539 * t894 * t736 + 0.225e3 / 0.32e2 * t6090 * t2328 - 0.225e3 / 0.1024e4 * t6344 * t2082 + 0.1125e4 / 0.128e3 * t6013 * t4232 * t35 * t6018 - 0.225e3 / 0.16e2 * t3555 * t899 * t6086;
3303   t6365 = t791 * t791;
3304   t6409 = 0.2e1 * t21 * t6365 * t32 + t21 * t706 * t862 * t32 + t21 * t706 * t872 * t32 - 0.3e1 / 0.8e1 * t21 * t722 * t380 - t5476 * t514 / 0.8e1 + 0.3e1 / 0.512e3 * t1922 * t1555 + t1725 * t1755 / 0.2e1 - 0.15e2 / 0.256e3 * t626 * t4969 + 0.21e2 / 0.256e3 * t510 * t5466 + 0.3e1 / 0.512e3 * t1530 * t1934 - 0.3e1 / 0.4e1 * t510 * t5471 - 0.3e1 / 0.16e2 * t1530 * t1946 - 0.3e1 / 0.16e2 * t1542 * t1946 - t1536 * t5876 * t513 / 0.64e2 - 0.3e1 / 0.128e3 * t1725 * t1745 + 0.3e1 / 0.2048e4 * t626 * t4966 + 0.3e1 / 0.512e3 * t1542 * t1934 - 0.3e1 / 0.2048e4 * t510 * t5514 + 0.3e1 / 0.512e3 * t1908 * t1555;
3305   t6413 = t385 * t879;
3306   t6462 = t1536 * t865 * t2146 / 0.4e1 + 0.81e2 / 0.512e3 * t375 * t6413 - t1908 * t723 / 0.16e2 - t1922 * t723 / 0.16e2 + 0.4e1 * t510 * t2267 + 0.15e2 / 0.131072e6 * t2654 * t1399 * t4432 + t626 * t2170 / 0.4e1 - 0.9e1 / 0.1024e4 * t980 * t378 * t1939 + t21 * t714 * t862 * t32 + t21 * t714 * t872 * t32 + 0.2e1 * t21 * t232 * t2280 * t32 - t5459 * t514 / 0.8e1 - t4449 * t791 * sigma[0] * t97 / 0.4e1 - t302 * t226 * t27 * t230 / 0.4e1 - t5435 * t514 / 0.8e1 + t4936 * t629 / 0.8e1 + t4939 * t629 / 0.4e1 - 0.3e1 / 0.128e3 * t1712 * t1745 + t1712 * t1755 / 0.2e1 + t4929 * t629 / 0.8e1;
3307   t6481 = 0.584e3 / 0.2025e4 * t6323 + 0.73e2 / 0.388800e6 * t4285 * t750 + t761 * t380 / 0.60e2 - 0.73e2 / 0.97200e5 * t5297 * t269 - 0.73e2 / 0.97200e5 * t6354 * t86 - 0.73e2 / 0.194400e6 * t1988 * t755 + 0.73e2 / 0.150e3 * t670 * t331 - 0.73e2 / 0.100e3 * t191 * t914 + t2308 * t243 / 0.12e2 + (t6409 + t6462) * t35 * t45 / 0.24e2 + 0.73e2 / 0.100e3 * t1843 * t2356 + 0.73e2 / 0.400e3 * t4496 * t2217 - 0.73e2 / 0.150e3 * t5380 * t835 + 0.5913e4 / 0.80e2 * t4501 * t1933 * t750 - 0.5913e4 / 0.25e2 * t5413 * t2349 - 0.219e3 / 0.800e3 * t1475 * t914 * t750;
3308   t6518 = 0.73e2 / 0.200e3 * t1825 * t2356 - 0.73e2 / 0.600e3 * t1993 * t2222 - 0.5913e4 / 0.100e3 * t5383 * t2349 - 0.5913e4 / 0.200e3 * t2000 * t1933 * t755 + 0.73e2 / 0.400e3 * t675 * t914 * t755 - 0.73e2 / 0.300e3 * t5386 * t835 + 0.584e3 / 0.2025e4 * t260 * t2334 + 0.73e2 / 0.75e2 * t1813 * t802 + 0.3942e4 / 0.25e2 * t1199 * t2299 + 0.5913e4 / 0.25e2 * t446 * t6413 - 0.73e2 / 0.50e2 * t568 * t2304 + 0.584e3 / 0.2025e4 * t324 * t2200 + 0.292e3 / 0.2025e4 * t743 * t903 + 0.292e3 / 0.2025e4 * t70 * t6354 + 0.1971e4 / 0.100e3 * t3727 * t880 - 0.73e2 / 0.200e3 * t1618 * t883 + 0.73e2 / 0.300e3 * t5083 * t305;
3309   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3310     v4sigma2tau2[0] = 0.9e1 * t293 * t3106 * t858 * t701 - 0.9e1 * t1680 * t1681 * t5628 * t842 + 0.3e1 / 0.4e1 * t4182 * t5616 * t853 - 0.9e1 / 0.4e1 * t293 * t1128 * t858 * t774 + 0.3e1 / 0.2e1 * t293 * t494 * t6292 * t478 - t1865 * t5619 * t853 / 0.2e1 + 0.3e1 / 0.2e1 * t293 * t494 * t1503 * t2229 + 0.5e1 / 0.192e3 * t2240 * t2255 * t2375 * t2243 - 0.9e1 / 0.4e1 * t293 * t1128 * t918 * t701 + 0.3e1 / 0.2e1 * t293 * t494 * t2364 * t287 - t1865 * t5623 * t853 / 0.8e1 + 0.3e1 / 0.4e1 * t293 * t494 * t918 * t774 - 0.3e1 / 0.8e1 * t293 * t294 * (t6481 + t6518) * t116 + t850 * t134 * t2363 * t216 * t853 / 0.16e2 - t2240 * t2368 * t478 * t2243 / 0.256e3;
3311 
3312   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3313     v4sigmalapl3[0] = 0.0e0;
3314 
3315   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3316     v4sigmalapl2tau[0] = 0.0e0;
3317 
3318   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3319     v4sigmalapltau2[0] = 0.0e0;
3320 
3321   t6584 = -0.135e3 / 0.32e2 * t1778 * t5316 - 0.675e3 / 0.32e2 * t2319 * t6080 + 0.225e3 / 0.4e1 * t2429 * t6003 + 0.45e2 / 0.256e3 * t246 * t5850 + 0.567e3 / 0.64e2 * t2539 * t2432 * t255 + 0.675e3 / 0.128e3 * t6344 * t2328 - 0.675e3 / 0.16e2 * t5066 * t2331 - 0.1125e4 / 0.16e2 * t6013 * t5247 * t35 * t6018;
3322   t6605 = t2295 * t2411;
3323   t6608 = t798 * t1401;
3324   t6611 = t235 * t634;
3325   t6614 = -0.73e2 / 0.97200e5 * t6584 * t86 + 0.292e3 / 0.2025e4 * t70 * t6584 + 0.292e3 / 0.2025e4 * t260 * t2439 + 0.292e3 / 0.675e3 * t324 * t2334 + 0.292e3 / 0.675e3 * t826 * t903 + t2422 * t243 / 0.24e2 - t276 * t2456 / 0.15e2 + 0.73e2 / 0.100e3 * t1988 * t802 + 0.5913e4 / 0.25e2 * t1463 * t2299 - 0.219e3 / 0.100e3 * t670 * t2304 + 0.1436859e7 / 0.25e2 * t1066 * t6605 - 0.17739e5 / 0.25e2 * t446 * t6608 + 0.73e2 / 0.25e2 * t191 * t6611;
3326   t6651 = -0.9e1 / 0.512e3 * t1908 * t1745 - t5808 * t514 / 0.16e2 + 0.3e1 / 0.16e2 * t5476 * t629 - 0.9e1 / 0.512e3 * t1922 * t1745 + 0.9e1 / 0.512e3 * t1725 * t1934 - 0.9e1 / 0.4096e4 * t626 * t5514 - 0.9e1 / 0.16e2 * t1725 * t1946 + 0.3e1 / 0.4096e4 * t510 * t5792 - 0.27e2 / 0.512e3 * t510 * t5797 + 0.3e1 / 0.4e1 * t510 * t5800 - t5803 * t514 / 0.16e2 + 0.3e1 / 0.8e1 * t1922 * t1755 + 0.63e2 / 0.512e3 * t626 * t5466 - 0.9e1 / 0.8e1 * t626 * t5471 + 0.3e1 / 0.8e1 * t1908 * t1755 + 0.3e1 * t510 * t2387;
3327   t6701 = -0.15e2 / 0.131072e6 * t2654 * t3009 * t106 * t5827 + 0.45e2 / 0.4096e4 * t980 * t6605 - 0.9e1 / 0.32e2 * t375 * t6608 + 0.3e1 / 0.2e1 * t146 * t6611 + t21 * (-0.3e1 / 0.4e1 * t226 * t380 * t136 - 0.17e2 / 0.8e1 * t226 * t380) * t32 + 0.3e1 / 0.16e2 * t5459 * t629 + 0.3e1 / 0.16e2 * t5435 * t629 + 0.9e1 / 0.512e3 * t1712 * t1934 - 0.9e1 / 0.16e2 * t1712 * t1946 - 0.3e1 / 0.16e2 * t4449 * t872 * sigma[0] * t97 + 0.3e1 / 0.8e1 * t4449 * t25 * t304 * t791 + 0.3e1 * t21 * t863 * t791 + t21 * t232 * t2384 * t32 + 0.3e1 * t21 * t792 * t872 + 0.3e1 * t21 * t301 * t2280 + t21 * t232 * t2400 * t32;
3328   t6731 = 0.5913e4 / 0.100e3 * t4063 * t880 + 0.73e2 / 0.200e3 * t5297 * t305 + (t6651 + t6701) * t35 * t45 / 0.24e2 + 0.219e3 / 0.400e3 * t1993 * t2356 - 0.73e2 / 0.400e3 * t5908 * t835 - 0.17739e5 / 0.200e3 * t5894 * t2349 - 0.478953e6 / 0.20e2 * t5899 * t5791 * t269 + 0.53217e5 / 0.200e3 * t2000 * t5796 * t269 - 0.73e2 / 0.100e3 * t675 * t2456 * t269 - 0.73e2 / 0.194400e6 * t5872 * t269 - 0.219e3 / 0.200e3 * t1813 * t883 + 0.478953e6 / 0.50e2 * t3067 * t2412 - 0.17739e5 / 0.100e3 * t1199 * t2415 + 0.73e2 / 0.50e2 * t568 * t2418;
3329   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3330     v4sigmatau3[0] = 0.9e1 * t293 * t3106 * t2376 * t287 - 0.27e2 / 0.4e1 * t293 * t1128 * t4572 * t842 + 0.9e1 / 0.16e2 * t850 * t937 * t2373 * t5696 * t853 - 0.27e2 / 0.4e1 * t1680 * t1681 * t4584 * t287 + 0.9e1 / 0.4e1 * t293 * t494 * t4177 * t917 - 0.3e1 / 0.8e1 * t1865 * t5712 * t853 + 0.9e1 / 0.4e1 * t293 * t494 * t1503 * t2363 + 0.3e1 / 0.4e1 * t293 * t494 * t2460 * t287 - 0.3e1 / 0.8e1 * t293 * t294 * (t6614 + t6731) * t116 + t850 * t134 * t2459 * t216 * t853 / 0.32e2;
3331 
3332   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3333     v4lapl4[0] = 0.0e0;
3334 
3335   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3336     v4lapl3tau[0] = 0.0e0;
3337 
3338   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3339     v4lapl2tau2[0] = 0.0e0;
3340 
3341   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3342     v4lapltau3[0] = 0.0e0;
3343 
3344   t6742 = t857 * t857;
3345   t6743 = t477 * t477;
3346   t6753 = t917 * t917;
3347   t6762 = t903 * t903;
3348   t6770 = t894 * t894;
3349   t6779 = -0.45e2 / 0.8e1 * t312 * t5850 + 0.225e3 * t2429 * t6080 + 0.567e3 / 0.64e2 * t2539 * t6770 - 0.675e3 / 0.8e1 * t6344 * t2436 + 0.1125e4 / 0.2e1 * t6013 * t2512 * t35 * t6018;
3350   t6796 = t2655 * t106 / t1938 / t379;
3351   t6799 = t877 * t1939;
3352   t6802 = t25 * t879;
3353   t6815 = t2409 * t4432;
3354   t6818 = t10 * t634;
3355   t6832 = t862 * t862;
3356   t6835 = t872 * t872;
3357   t6855 = 0.225e3 / 0.512e3 * t375 * t6799 - 0.15e2 / 0.4e1 * t146 * t6802 + t5803 * t629 / 0.4e1 + 0.9e1 / 0.256e3 * t1908 * t1934 + t5808 * t629 / 0.4e1 + 0.9e1 / 0.256e3 * t1922 * t1934 + 0.3e1 / 0.1024e4 * t626 * t5792 - 0.27e2 / 0.2048e4 * t980 * t6815 + t21 * (0.3e1 * t15 * t6818 * t136 + 0.11e2 / 0.2e1 * t15 * t6818 + 0.6e1 * t19 * t380) * t32 + 0.6e1 * t21 * t863 * t872 + t21 * t6832 * t32 + 0.3e1 * t21 * t6835 * t32 + 0.4e1 * t21 * t301 * t2400 + 0.15e2 / 0.131072e6 * t2654 * t6796 - 0.27e2 / 0.128e3 * t626 * t5797 + 0.3e1 * t626 * t5800 + 0.3e1 / 0.4e1 * t4449 * t5762 * t331 - 0.9e1 / 0.8e1 * t1908 * t1946 - 0.9e1 / 0.8e1 * t1922 * t1946;
3358   t6871 = 0.292e3 / 0.675e3 * t6762 + 0.1168e4 / 0.2025e4 * t324 * t2439 + 0.292e3 / 0.2025e4 * t70 * t6779 - 0.73e2 / 0.97200e5 * t6779 * t86 + t96 * t24 * t879 / 0.6e1 + 0.73e2 / 0.150e3 * t5872 * t305 + 0.5913e4 / 0.50e2 * t4285 * t880 + 0.957906e6 / 0.25e2 * t3273 * t2412 + 0.38795193e8 / 0.5e1 * t2604 * t6796 + t6855 * t35 * t45 / 0.24e2 - 0.4310577e7 / 0.25e2 * t1066 * t6815 + 0.5913e4 / 0.4e1 * t446 * t6799 - 0.73e2 / 0.10e2 * t191 * t6802 - 0.219e3 / 0.100e3 * t1988 * t883 - 0.17739e5 / 0.25e2 * t1463 * t2415 + 0.146e3 / 0.25e2 * t670 * t2418;
3359   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3360     v4tau4[0] = 0.9e1 * t293 * t3106 * t6742 / t6743 - 0.27e2 / 0.2e1 * t293 * t1128 * t4572 * t917 + 0.9e1 / 0.4e1 * t293 * t494 * t6753 * t478 + 0.3e1 * t293 * t494 * t1503 * t2459 - 0.3e1 / 0.8e1 * t293 * t294 * t6871 * t116;
3361 
3362 #ifndef XC_DONT_COMPILE_MXC
3363 
3364   if(order < 5) return;
3365 
3366 
3367 #endif
3368 
3369 #endif
3370 
3371 #endif
3372 
3373 #endif
3374 
3375 #endif
3376 
3377 
3378 }
3379 
3380 
3381 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 *))3382 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 *))
3383 {
3384 
3385 #ifndef XC_DONT_COMPILE_EXC
3386   double t2, t4, t5, t6, t7, t8, t9, t10;
3387   double t11, t12, t14, t15, t16, t17, t18, t19;
3388   double t21, t23, t24, t28, t29, t30, t31, t32;
3389   double t33, t34, t35, t36, t37, t39, t40, t41;
3390   double t44, t45, t46, t47, t48, t49, t50, t51;
3391   double t52, t54, t55, t59, t61, t63, t67, t68;
3392   double t69, t70, t73, t74, t75, t80, t81, t84;
3393   double t86, t87, t88, t89, t91, t95, t96, t100;
3394   double t101, t105, t106, t107, t110, t111, t112, t113;
3395   double t114, t115, t116, t120, t121, t124, t125, t126;
3396   double t128, t133, t135, t137, t138, t139, t141, t143;
3397   double t145, t146, t150, t151, t152, t153, t154, t155;
3398   double t156, t157, t158, t159, t161, t162, t163, t166;
3399   double t167, t168, t169, t171, t172, t176, t178, t180;
3400   double t184, t185, t186, t189, t190, t191, t196, t197;
3401   double t200, t201, t203, t207, t208, t211, t215, t216;
3402   double t219, t220, t221, t222, t226, t229, t230, t231;
3403   double t233, t238, t240;
3404 
3405 #ifndef XC_DONT_COMPILE_VXC
3406   double t242, t243, t244, t245, t246, t247, t249, t250;
3407   double t252, t253, t254, t255, t256, t258, t259, t260;
3408   double t261, t262, t263, t264, t265, t266, t267, t272;
3409   double t273, t276, t277, t278, t279, t280, t281, t285;
3410   double t289, t290, t295, t297, t298, t299, t303, t304;
3411   double t308, t311, t314, t316, t321, t322, t324, t326;
3412   double t330, t336, t339, t340, t344, t346, t347, t349;
3413   double t352, t353, t355, t356, t357, t358, t359, t361;
3414   double t362, t365, t366, t370, t371, t373, t374, t375;
3415   double t376, t378, t379, t380, t381, t382, t383, t384;
3416   double t385, t390, t391, t394, t395, t396, t397, t398;
3417   double t399, t403, t407, t408, t413, t415, t416, t417;
3418   double t421, t422, t426, t429, t432, t434, t439, t440;
3419   double t442, t444, t448, t454, t457, t458, t462, t464;
3420   double t465, t467, t470, t471, t473, t474, t478, t479;
3421   double t480, t481, t482, t483, t486, t488, t489, t490;
3422   double t491, t492, t496, t499, t502, t503, t505, t506;
3423   double t509, t511, t514, t516, t525, t528, t532, t535;
3424   double t539, t543, t544, t548, t549, t550, t553, t555;
3425   double t556, t557, t558, t559, t563, t566, t569, t570;
3426   double t572, t573, t576, t578, t581, t583, t592, t595;
3427   double t599, t602, t606, t610, t611, t615, t620, t621;
3428   double t622, t623, t624, t625, t629, t632, t635, t641;
3429   double t644, t651, t654, t655, t656, t660, t665, t666;
3430   double t667, t668, t669, t670, t674, t677, t680, t686;
3431   double t689, t696, t699, t700, t701;
3432 
3433 #ifndef XC_DONT_COMPILE_FXC
3434   double t705, t707, t708, t709, t710, t711, t712, t714;
3435   double t715, t716, t718, t719, t720, t721, t722, t724;
3436   double t725, t726, t727, t728, t729, t731, t732, t734;
3437   double t737, t738, t739, t741, t742, t744, t745, t746;
3438   double t748, t749, t750, t751, t753, t760, t763, t764;
3439   double t765, t768, t769, t770, t771, t772, t773, t774;
3440   double t775, t779, t780, t781, t785, t791, t792, t795;
3441   double t799, t801, t802, t805, t806, t809, t811, t812;
3442   double t813, t816, t819, t823, t826, t829, t831, t836;
3443   double t840, t841, t842, t846, t848, t850, t852, t858;
3444   double t861, t862, t866, t869, t872, t873, t875, t880;
3445   double t881, t883, t884, t885, t886, t887, t888, t889;
3446   double t891, t892, t893, t895, t896, t897, t898, t900;
3447   double t901, t904, t905, t906, t908, t909, t910, t911;
3448   double t913, t916, t918, t920, t923, t924, t925, t927;
3449   double t931, t932, t933, t934, t936, t939, t941, t942;
3450   double t944, t947, t948, t949, t951, t954, t956, t959;
3451   double t960, t962, t963, t964, t965, t966, t968, t969;
3452   double t970, t971, t973, t974, t975, t976, t978, t979;
3453   double t980, t982, t983, t984, t986, t987, t988, t990;
3454   double t991, t992, t993, t995, t1002, t1005, t1006, t1007;
3455   double t1010, t1011, t1012, t1013, t1014, t1015, t1016, t1017;
3456   double t1021, t1022, t1023, t1027, t1033, t1034, t1037, t1041;
3457   double t1043, t1044, t1047, t1048, t1051, t1053, t1054, t1055;
3458   double t1058, t1061, t1065, t1068, t1071, t1073, t1078, t1082;
3459   double t1083, t1084, t1088, t1090, t1092, t1094, t1100, t1103;
3460   double t1104, t1108, t1111, t1114, t1115, t1117, t1122, t1123;
3461   double t1125, t1126, t1127, t1130, t1132, t1133, t1137, t1138;
3462   double t1142, t1145, t1150, t1151, t1153, t1156, t1157, t1160;
3463   double t1161, t1165, t1166, t1170, t1177, t1182, t1183, t1185;
3464   double t1187, t1190, t1193, t1194, t1196, t1199, t1201, t1204;
3465   double t1206, t1211, t1216, t1221, t1223, t1234, t1237, t1246;
3466   double t1247, t1252, t1253, t1254, t1259, t1264, t1267, t1269;
3467   double t1272, t1275, t1280, t1281, t1283, t1286, t1287, t1290;
3468   double t1291, t1295, t1296, t1300, t1307, t1312, t1313, t1315;
3469   double t1317, t1320, t1323, t1324, t1326, t1329, t1331, t1334;
3470   double t1336, t1341, t1346, t1351, t1353, t1364, t1367, t1376;
3471   double t1377, t1378, t1382, t1384, t1385, t1386, t1387, t1389;
3472   double t1393, t1394, t1396, t1399, t1407, t1408, t1410, t1413;
3473   double t1416, t1418, t1422, t1426, t1436, t1439, t1446, t1449;
3474   double t1454, t1459, t1460, t1465, t1468, t1469, t1470, t1474;
3475   double t1476, t1477, t1478, t1479, t1483, t1484, t1485, t1486;
3476   double t1487, t1489, t1493, t1498, t1501, t1502, t1503, t1505;
3477   double t1508, t1516, t1517, t1519, t1522, t1525, t1527, t1531;
3478   double t1535, t1545, t1548, t1555, t1558, t1563, t1568, t1569;
3479   double t1574, t1577, t1578, t1580, t1583, t1584, t1585, t1586;
3480   double t1587, t1590, t1591, t1592, t1595, t1596, t1601, t1603;
3481   double t1608, t1611, t1612, t1616, t1621, t1623, t1625, t1628;
3482   double t1629, t1630, t1632, t1639, t1644, t1647, t1650, t1653;
3483   double t1657, t1663, t1664, t1665, t1668, t1669, t1670, t1673;
3484   double t1674, t1679, t1681, t1686, t1689, t1690, t1694, t1699;
3485   double t1701, t1703, t1706, t1707, t1708, t1710, t1717, t1722;
3486   double t1725, t1728, t1731, t1735, t1741, t1742, t1743, t1747;
3487   double t1750, t1751, t1753, t1758, t1759, t1765, t1769, t1773;
3488   double t1782, t1784, t1788, t1789, t1791, t1793, t1802, t1809;
3489   double t1810, t1812, t1815, t1816, t1817, t1818, t1819, t1823;
3490   double t1826, t1827, t1829, t1834, t1835, t1841, t1845, t1849;
3491   double t1858, t1860, t1864, t1865, t1867, t1869, t1878, t1885;
3492   double t1886, t1888, t1891, t1892, t1893, t1894, t1895, t1898;
3493   double t1899, t1901, t1904, t1905, t1907, t1914, t1919, t1921;
3494   double t1922, t1925, t1929, t1932, t1936, t1940, t1941, t1945;
3495   double t1956, t1959, t1960, t1962, t1965, t1966, t1968, t1971;
3496   double t1972, t1974, t1981, t1986, t1988, t1989, t1992, t1996;
3497   double t1999, t2003, t2007, t2008, t2012, t2023, t2026, t2027;
3498   double t2029;
3499 
3500 #ifndef XC_DONT_COMPILE_KXC
3501   double t2032, t2034, t2035, t2036, t2037, t2039, t2040, t2041;
3502   double t2043, t2044, t2046, t2047, t2049, t2050, t2053, t2054;
3503   double t2057, t2058, t2059, t2065, t2068, t2076, t2079, t2082;
3504   double t2083, t2084, t2087, t2091, t2092, t2093, t2094, t2098;
3505   double t2099, t2103, t2104, t2108, t2116, t2117, t2124, t2126;
3506   double t2127, t2132, t2133, t2136, t2141, t2142, t2143, t2149;
3507   double t2154, t2157, t2160, t2162, t2167, t2170, t2175, t2177;
3508   double t2178, t2179, t2182, t2187, t2189, t2191, t2197, t2200;
3509   double t2201, t2202, t2205, t2208, t2212, t2218, t2219, t2220;
3510   double t2221, t2228, t2229, t2231, t2232, t2233, t2235, t2236;
3511   double t2237, t2239, t2240, t2241, t2243, t2244, t2246, t2248;
3512   double t2250, t2252, t2253, t2254, t2255, t2257, t2258, t2260;
3513   double t2261, t2262, t2263, t2265, t2266, t2267, t2269, t2271;
3514   double t2273, t2274, t2276, t2277, t2278, t2279, t2281, t2282;
3515   double t2283, t2285, t2287, t2289, t2290, t2292, t2294, t2295;
3516   double t2296, t2298, t2299, t2301, t2302, t2303, t2304, t2306;
3517   double t2307, t2309, t2311, t2313, t2314, t2315, t2321, t2323;
3518   double t2329, t2331, t2333, t2335, t2337, t2338, t2340, t2343;
3519   double t2345, t2346, t2347, t2349, t2351, t2353, t2354, t2355;
3520   double t2356, t2358, t2360, t2361, t2362, t2364, t2366, t2368;
3521   double t2369, t2374, t2377, t2378, t2380, t2382, t2384, t2386;
3522   double t2388, t2393, t2396, t2399, t2400, t2401, t2403, t2409;
3523   double t2411, t2414, t2415, t2416, t2418, t2419, t2420, t2422;
3524   double t2423, t2425, t2428, t2429, t2430, t2431, t2432, t2434;
3525   double t2437, t2438, t2439, t2443, t2444, t2446, t2448, t2450;
3526   double t2452, t2454, t2456, t2458, t2460, t2462, t2465, t2468;
3527   double t2470, t2472, t2477, t2480, t2483, t2485, t2487, t2490;
3528   double t2491, t2493, t2495, t2496, t2498, t2505, t2507, t2508;
3529   double t2510, t2512, t2514, t2517, t2519, t2521, t2523, t2525;
3530   double t2528, t2529, t2530, t2531, t2532, t2534, t2538, t2541;
3531   double t2542, t2548, t2551, t2559, t2562, t2565, t2566, t2567;
3532   double t2570, t2574, t2575, t2576, t2577, t2581, t2582, t2586;
3533   double t2587, t2591, t2599, t2600, t2607, t2609, t2610, t2615;
3534   double t2616, t2619, t2624, t2625, t2626, t2632, t2637, t2640;
3535   double t2643, t2645, t2650, t2653, t2658, t2660, t2661, t2662;
3536   double t2665, t2670, t2672, t2674, t2680, t2683, t2684, t2685;
3537   double t2688, t2691, t2695, t2701, t2702, t2703, t2710, t2711;
3538   double t2713, t2714, t2715, t2717, t2718, t2719, t2721, t2722;
3539   double t2723, t2724, t2725, t2726, t2728, t2729, t2732, t2733;
3540   double t2734, t2736, t2737, t2738, t2739, t2741, t2742, t2744;
3541   double t2745, t2747, t2748, t2749, t2750, t2751, t2753, t2754;
3542   double t2759, t2760, t2761, t2763, t2764, t2765, t2766, t2768;
3543   double t2769, t2770, t2772, t2773, t2774, t2776, t2777, t2778;
3544   double t2780, t2781, t2782, t2794, t2798, t2800, t2803, t2804;
3545   double t2805, t2809, t2810, t2811, t2814, t2817, t2822, t2826;
3546   double t2827, t2831, t2835, t2836, t2838, t2840, t2842, t2846;
3547   double t2847, t2848, t2851, t2863, t2864, t2866, t2868, t2871;
3548   double t2873, t2876, t2878, t2891, t2900, t2901, t2904, t2906;
3549   double t2909, t2912, t2915, t2921, t2924, t2927, t2928, t2930;
3550   double t2934, t2937, t2942, t2945, t2956, t2957, t2958, t2961;
3551   double t2964, t2965, t2969, t2975, t2976, t2981, t2986, t2989;
3552   double t2994, t2995, t2998, t3002, t3019, t3020, t3025, t3029;
3553   double t3030, t3031, t3035, t3041, t3042, t3043, t3045, t3046;
3554   double t3047, t3048, t3049, t3052, t3053, t3056, t3059, t3060;
3555   double t3062, t3066, t3068, t3069, t3070, t3071, t3072, t3076;
3556   double t3079, t3080, t3081, t3082, t3084, t3087, t3092, t3096;
3557   double t3102, t3105, t3106, t3110, t3113, t3118, t3121, t3123;
3558   double t3127, t3130, t3139, t3140, t3143, t3145, t3148, t3154;
3559   double t3157, t3160, t3161, t3163, t3167, t3170, t3175, t3178;
3560   double t3189, t3190, t3191, t3194, t3197, t3198, t3202, t3208;
3561   double t3209, t3214, t3217, t3220, t3225, t3228, t3237, t3238;
3562   double t3240, t3242, t3244, t3248, t3249, t3250, t3253, t3265;
3563   double t3266, t3268, t3270, t3273, t3275, t3278, t3280, t3289;
3564   double t3290, t3293, t3297, t3314, t3315, t3316, t3319, t3323;
3565   double t3326, t3327, t3328, t3329, t3332, t3334, t3338, t3341;
3566   double t3343, t3347, t3351, t3352, t3356, t3358, t3359, t3362;
3567   double t3365, t3366, t3369, t3370, t3372, t3376, t3384, t3387;
3568   double t3398, t3399, t3402, t3405, t3407, t3414, t3417, t3418;
3569   double t3437, t3438, t3441, t3458, t3461, t3466, t3469, t3476;
3570   double t3481, t3482, t3485, t3488, t3493, t3496, t3497, t3498;
3571   double t3502, t3503, t3504, t3506, t3510, t3511, t3513, t3517;
3572   double t3518, t3520, t3521, t3522, t3525, t3526, t3527, t3531;
3573   double t3532, t3536, t3538, t3542, t3548, t3550, t3551, t3552;
3574   double t3553, t3556, t3557, t3560, t3563, t3564, t3565, t3568;
3575   double t3570, t3574, t3576, t3577, t3578, t3579, t3582, t3584;
3576   double t3587, t3588, t3589, t3590, t3591, t3592, t3594, t3596;
3577   double t3598, t3601, t3602, t3603, t3605, t3606, t3607, t3608;
3578   double t3609, t3610, t3615, t3619, t3622, t3625, t3626, t3628;
3579   double t3632, t3640, t3643, t3654, t3655, t3658, t3661, t3663;
3580   double t3670, t3673, t3674, t3693, t3694, t3697, t3714, t3717;
3581   double t3722, t3725, t3732, t3737, t3738, t3741, t3744, t3749;
3582   double t3752, t3753, t3755, t3758, t3761, t3763, t3766, t3767;
3583   double t3768, t3770, t3774, t3776, t3780, t3783, t3784, t3790;
3584   double t3793, t3797, t3801, t3804, t3805, t3806, t3809, t3810;
3585   double t3811, t3814, t3816, t3818, t3820, t3824, t3828, t3830;
3586   double t3833, t3835, t3838, t3841, t3844, t3847, t3850, t3852;
3587   double t3853, t3856, t3867, t3868, t3869, t3880, t3881, t3884;
3588   double t3885, t3898, t3900, t3902, t3904, t3913, t3914, t3915;
3589   double t3916, t3918, t3919, t3920, t3921, t3922, t3924, t3925;
3590   double t3927, t3932, t3944, t3947, t3952, t3957, t3960, t3963;
3591   double t3966, t3969, t3970, t3973, t3988, t3989, t3990, t3993;
3592   double t3995, t3998, t4000, t4004, t4007, t4011, t4013, t4015;
3593   double t4019, t4023, t4026, t4028, t4031, t4034, t4037, t4040;
3594   double t4043, t4045, t4046, t4049, t4060, t4061, t4062, t4073;
3595   double t4074, t4077, t4078, t4091, t4093, t4095, t4097, t4106;
3596   double t4107, t4108, t4109, t4111, t4112, t4113, t4114, t4115;
3597   double t4117, t4118, t4120, t4125, t4137, t4140, t4145, t4150;
3598   double t4153, t4156, t4159, t4162, t4163, t4166, t4181, t4182;
3599   double t4183, t4186, t4187, t4188, t4189, t4191, t4192, t4193;
3600   double t4197, t4200, t4201, t4202, t4206, t4210, t4211, t4213;
3601   double t4217, t4221, t4222, t4224, t4225, t4227, t4230, t4237;
3602   double t4240, t4259, t4260, t4263, t4270, t4273, t4276, t4277;
3603   double t4293, t4298, t4300, t4302, t4304, t4310, t4313, t4316;
3604   double t4317, t4319, t4320, t4323, t4328, t4335, t4340, t4347;
3605   double t4350, t4353, t4358, t4365, t4366, t4367, t4369, t4372;
3606   double t4373, t4374, t4377, t4379, t4381, t4382, t4386, t4387;
3607   double t4390, t4391, t4394, t4397, t4398, t4401, t4402, t4403;
3608   double t4404, t4407, t4408, t4410, t4413, t4415, t4417, t4418;
3609   double t4421, t4422, t4425, t4429, t4430, t4433, t4434, t4436;
3610   double t4437, t4438, t4442, t4445, t4446, t4447, t4451, t4455;
3611   double t4459, t4463, t4464, t4466, t4467, t4469, t4472, t4479;
3612   double t4482, t4501, t4502, t4505, t4512, t4515, t4518, t4519;
3613   double t4535, t4540, t4542, t4544, t4546, t4552, t4555, t4558;
3614   double t4559, t4561, t4562, t4565, t4570, t4577, t4582, t4589;
3615   double t4592, t4595, t4600, t4607, t4608, t4609, t4611, t4614;
3616   double t4615, t4616, t4620, t4621, t4625, t4626, t4629, t4630;
3617   double t4633, t4636, t4637, t4640, t4641, t4643, t4646, t4650;
3618   double t4653, t4654, t4655, t4659, t4660, t4662, t4666, t4669;
3619   double t4672, t4675, t4678, t4686, t4689, t4700, t4701, t4704;
3620   double t4705, t4706, t4710, t4713, t4716, t4719, t4720, t4734;
3621   double t4743, t4746, t4750, t4755, t4760, t4767, t4768, t4775;
3622   double t4780, t4783, t4784, t4786, t4789, t4790, t4791, t4794;
3623   double t4795, t4797, t4800, t4801, t4803, t4807, t4810, t4814;
3624   double t4817, t4821, t4824, t4825, t4826, t4830, t4834, t4837;
3625   double t4840, t4843, t4846, t4854, t4857, t4868, t4869, t4872;
3626   double t4873, t4874, t4878, t4881, t4884, t4887, t4888, t4902;
3627   double t4911, t4914, t4918, t4923, t4928, t4935, t4936, t4943;
3628   double t4948, t4951, t4952, t4954, t4957, t4958, t4959, t4962;
3629   double t4963, t4964, t4968, t4971, t4974, t4982, t4985, t5001;
3630   double t5008, t5010, t5011, t5013, t5016, t5017, t5018, t5019;
3631   double t5021, t5032, t5035, t5040, t5046, t5047, t5050, t5051;
3632   double t5052, t5055, t5056, t5057, t5061, t5064, t5067, t5075;
3633   double t5078, t5094, t5101, t5103, t5104, t5106, t5109, t5110;
3634   double t5111, t5112, t5114, t5125, t5128, t5133, t5139, t5142;
3635   double t5143, t5144, t5148, t5152, t5155, t5156, t5160, t5163;
3636   double t5164, t5166, t5167, t5169, t5170, t5175, t5176, t5199;
3637   double t5202, t5203, t5214, t5215, t5217, t5219, t5222, t5224;
3638   double t5226, t5227, t5229, t5246, t5251, t5258, t5259, t5261;
3639   double t5264, t5265, t5268, t5269, t5270, t5271, t5275, t5279;
3640   double t5282, t5283, t5287, t5290, t5291, t5293, t5294, t5296;
3641   double t5297, t5302, t5303, t5326, t5329, t5330, t5341, t5342;
3642   double t5344, t5346, t5349, t5351, t5353, t5354, t5356, t5373;
3643   double t5378, t5385, t5386, t5388, t5391, t5392, t5395, t5396;
3644   double t5397, t5401, t5405, t5408, t5409, t5413, t5416, t5417;
3645   double t5419, t5424, t5425, t5427, t5432, t5447, t5451, t5456;
3646   double t5459, t5460, t5471, t5472, t5474, t5476, t5479, t5480;
3647   double t5481, t5483, t5486, t5501, t5508, t5515, t5516, t5518;
3648   double t5521, t5522, t5526, t5530, t5533, t5534, t5538, t5541;
3649   double t5542, t5544, t5549, t5550, t5552, t5557, t5572, t5576;
3650   double t5581, t5584, t5585, t5596, t5597, t5599, t5601, t5604;
3651   double t5605, t5606, t5608, t5611, t5626, t5633, t5640, t5641;
3652   double t5643, t5646, t5647, t5650, t5651, t5653, t5655, t5659;
3653   double t5662, t5665, t5670, t5678, t5687, t5689, t5690, t5693;
3654   double t5696, t5700, t5707, t5710, t5713, t5714, t5717, t5734;
3655   double t5737, t5738, t5740, t5743, t5744, t5746, t5748, t5752;
3656   double t5755, t5758, t5763, t5771, t5780, t5782, t5783, t5786;
3657   double t5789, t5793, t5800, t5803, t5806, t5807, t5810, t5827;
3658   double t5830, t5831, t5833;
3659 
3660 #ifndef XC_DONT_COMPILE_LXC
3661   double t5841, t5842, t5848, t5861, t5863, t5865, t5871, t5873;
3662   double t5874, t5877, t5884, t5893, t5894, t5896, t5906, t5907;
3663   double t5911, t5914, t5917, t5920, t5921, t5927, t5938, t5948;
3664   double t5950, t5955, t5960, t5964, t5965, t5966, t5972, t5975;
3665   double t5982, t5986, t5996, t5999, t6004, t6006, t6009, t6013;
3666   double t6017, t6018, t6021, t6026, t6039, t6040, t6045, t6053;
3667   double t6058, t6063, t6064, t6067, t6075, t6076, t6082, t6100;
3668   double t6104, t6108, t6113, t6114, t6121, t6122, t6123, t6124;
3669   double t6138, t6148, t6155, t6157, t6159, t6160, t6166, t6168;
3670   double t6170, t6176, t6179, t6181, t6183, t6184, t6185, t6190;
3671   double t6192, t6194, t6196, t6198, t6204, t6207, t6214, t6217;
3672   double t6219, t6221, t6222, t6223, t6228, t6230, t6232, t6234;
3673   double t6236, t6241, t6251, t6266, t6268, t6274, t6286, t6289;
3674   double t6296, t6312, t6316, t6317, t6321, t6339, t6341, t6350;
3675   double t6353, t6356, t6362, t6366, t6367, t6368, t6369, t6372;
3676   double t6378, t6386, t6387, t6388, t6390, t6392, t6393, t6397;
3677   double t6402, t6405, t6408, t6411, t6415, t6430, t6436, t6451;
3678   double t6458, t6465, t6475, t6476, t6478, t6487, t6489, t6495;
3679   double t6497, t6500, t6501, t6503, t6514, t6534, t6537, t6539;
3680   double t6545, t6547, t6549, t6553, t6561, t6567, t6579, t6598;
3681   double t6606, t6608, t6614, t6621, t6624, t6627, t6634, t6639;
3682   double t6648, t6650, t6656, t6659, t6662, t6665, t6667, t6672;
3683   double t6675, t6691, t6711, t6721, t6723, t6730, t6746, t6749;
3684   double t6762, t6765, t6779, t6782, t6789, t6800, t6810, t6825;
3685   double t6840, t6851, t6864, t6903, t6906, t6909, t6916, t6923;
3686   double t6928, t6931, t6934, t6938, t6949, t6959, t6980, t6983;
3687   double t6986, t6989, t6992, t7015, t7054, t7062, t7067, t7072;
3688   double t7079, t7091, t7105, t7115, t7120, t7125, t7130, t7140;
3689   double t7161, t7198, t7210, t7211, t7216, t7229, t7236, t7237;
3690   double t7239, t7249, t7250, t7254, t7257, t7260, t7263, t7264;
3691   double t7270, t7281, t7291, t7293, t7298, t7301, t7309, t7310;
3692   double t7316, t7322, t7336, t7340, t7341, t7342, t7345, t7358;
3693   double t7359, t7367, t7370, t7378, t7388, t7391, t7394, t7398;
3694   double t7402, t7403, t7406, t7411, t7416, t7418, t7421, t7425;
3695   double t7434, t7439, t7443, t7447, t7452, t7453, t7460, t7461;
3696   double t7475, t7488, t7492, t7507, t7509, t7512, t7536, t7539;
3697   double t7547, t7549, t7550, t7556, t7559, t7561, t7588, t7595;
3698   double t7597, t7598, t7615, t7648, t7652, t7655, t7662, t7677;
3699   double t7687, t7690, t7691, t7708, t7713, t7717, t7721, t7722;
3700   double t7725, t7733, t7748, t7751, t7756, t7765, t7767, t7794;
3701   double t7797, t7800, t7805, t7820, t7835, t7858, t7876, t7879;
3702   double t7882, t7885, t7886, t7894, t7906, t7909, t7916, t7918;
3703   double t7920, t7922, t7925, t7928, t7932, t7933, t7951, t7957;
3704   double t7962, t7968, t7970, t7971, t7987, t7988, t7989, t7994;
3705   double t7995, t7996, t7999, t8000, t8022, t8023, t8026, t8037;
3706   double t8040, t8045, t8048, t8051, t8056, t8057, t8069, t8079;
3707   double t8081, t8098, t8100, t8116, t8132, t8145, t8150, t8155;
3708   double t8157, t8159, t8160, t8161, t8163, t8165, t8182, t8189;
3709   double t8217, t8230, t8233, t8241, t8259, t8262, t8265, t8274;
3710   double t8277, t8278, t8295, t8302, t8306, t8310, t8311, t8314;
3711   double t8317, t8328, t8333, t8336, t8343, t8348, t8350, t8353;
3712   double t8386, t8394, t8402, t8409, t8427, t8462, t8465, t8468;
3713   double t8471, t8481, t8485, t8509, t8510, t8517, t8577, t8603;
3714   double t8605, t8606, t8609, t8610, t8616, t8638, t8645, t8667;
3715   double t8668, t8672, t8674, t8681, t8683, t8684, t8698, t8711;
3716   double t8713, t8715, t8718, t8719, t8721, t8726, t8728, t8730;
3717   double t8736, t8739, t8740, t8757, t8758, t8760, t8767, t8770;
3718   double t8774, t8802, t8805, t8813, t8816, t8823, t8838, t8841;
3719   double t8844, t8869, t8872, t8883, t8884, t8887, t8896, t8927;
3720   double t8928, t8935, t8936, t8961, t8964, t8967, t8981, t8984;
3721   double t8997, t9004, t9013, t9014, t9020, t9039, t9052, t9054;
3722   double t9057, t9058, t9060, t9064, t9081, t9082, t9083, t9094;
3723   double t9107, t9108, t9113, t9118, t9121, t9129, t9137, t9156;
3724   double t9184, t9186, t9188, t9194, t9195, t9198, t9202, t9205;
3725   double t9210, t9218, t9219, t9225, t9230, t9242, t9253, t9255;
3726   double t9257, t9259, t9260, t9267, t9268, t9270, t9292, t9294;
3727   double t9315, t9316, t9317, t9319, t9325, t9331, t9342, t9344;
3728   double t9347, t9350, t9351, t9352, t9356, t9358, t9360, t9362;
3729   double t9371, t9376, t9377, t9379, t9388, t9393, t9399, t9403;
3730   double t9405, t9421, t9426, t9431, t9440, t9463, t9508, t9509;
3731   double t9513, t9552, t9570, t9582, t9583, t9591, t9594, t9609;
3732   double t9610, t9613, t9629, t9647, t9648, t9655, t9656, t9661;
3733   double t9667, t9672, t9686, t9689, t9722, t9725, t9739, t9748;
3734   double t9756, t9763, t9766, t9769, t9802, t9807, t9821, t9829;
3735   double t9862, t9875, t9882, t9898, t9901, t9912, t9921, t9936;
3736   double t9939, t9942, t9949, t9962, t9967, t9971, t9974, t9975;
3737   double t9983, t9984, t9999, t10047, t10049, t10060, t10075, t10086;
3738   double t10089, t10090, t10096, t10099, t10123, t10133, t10138, t10142;
3739   double t10146, t10179, t10184, t10186, t10188, t10189, t10220, t10222;
3740   double t10223, t10241, t10243, t10245, t10268, t10270, t10271, t10281;
3741   double t10282, t10295, t10297, t10315, t10317, t10334, t10336, t10344;
3742   double t10351, t10359, t10361, t10370, t10375, t10412, t10415, t10416;
3743   double t10426, t10429, t10442, t10469, t10476, t10478, t10485, t10519;
3744   double t10542, t10553, t10554, t10573, t10593, t10596, t10599, t10605;
3745   double t10619, t10628, t10632, t10644, t10647, t10650, t10657, t10658;
3746   double t10666, t10667, t10672, t10676, t10680, t10713, t10718, t10753;
3747   double t10790, t10792, t10793, t10794, t10821, t10823, t10825, t10832;
3748   double t10833, t10840, t10853, t10862, t10869, t10889, t10891, t10893;
3749   double t10920, t10935, t10938, t10943, t10952, t10957, t10994, t10996;
3750   double t11001, t11024, t11026, t11029, t11058, t11064, t11067, t11116;
3751   double t11119, t11135, t11138, t11154, t11155, t11166, t11175, t11180;
3752   double t11191, t11197, t11201, t11226, t11231, t11240, t11241, t11242;
3753   double t11244, t11255, t11256, t11270, t11272, t11274, t11290, t11300;
3754   double t11301, t11307, t11319, t11330, t11350, t11358, t11366, t11368;
3755   double t11371, t11372, t11382, t11383, t11395, t11396, t11414, t11447;
3756   double t11451, t11457, t11488, t11490, t11491, t11492, t11499, t11501;
3757   double t11503, t11505, t11520, t11528, t11536, t11538, t11541, t11542;
3758   double t11548, t11553, t11555, t11556, t11557, t11559, t11564, t11572;
3759   double t11585, t11587, t11589, t11634, t11635, t11677, t11684, t11723;
3760   double t11728, t11733, t11745, t11751, t11776, t11795, t11798, t11807;
3761   double t11808, t11813, t11828, t11842, t11871, t11882, t11883, t11904;
3762   double t11907, t11914, t11929, t11963, t11978, t11981, t11998, t11999;
3763   double t12006, t12017, t12034, t12045, t12053, t12103, t12110, t12162;
3764   double t12170, t12171, t12175, t12182, t12183, t12187, t12189, t12193;
3765   double t12194, t12216, t12248, t12249, t12256, t12270, t12277, t12280;
3766   double t12299, t12303, t12306, t12311, t12326, t12339, t12350, t12355;
3767   double t12377, t12378, t12381, t12382, t12402, t12403, t12408, t12413;
3768   double t12416, t12423, t12436, t12439, t12450, t12455, t12462, t12469;
3769   double t12471, t12472, t12477, t12482, t12487, t12489, t12491, t12520;
3770   double t12522, t12535, t12549, t12551, t12552, t12562, t12563, t12577;
3771   double t12580, t12600, t12604, t12624, t12626, t12629, t12637, t12639;
3772   double t12640, t12645, t12651, t12657, t12659, t12669, t12670, t12673;
3773   double t12675, t12680, t12686, t12717, t12718, t12722, t12723, t12745;
3774   double t12767, t12768, t12771, t12772, t12792, t12793, t12808, t12811;
3775   double t12816, t12856, t12865, t12868, t12871, t12886, t12893, t12902;
3776   double t12903, t12908, t12919, t12930, t12942, t12947, t12960, t12963;
3777   double t12970, t12973, t12981, t12989, t12996, t13010, t13066, t13072;
3778   double t13074, t13089, t13090, t13108, t13124, t13128, t13131, t13140;
3779   double t13151, t13154, t13184, t13198, t13225, t13228, t13237, t13240;
3780   double t13252, t13279, t13289, t13304, t13308, t13334, t13340, t13346;
3781   double t13347, t13353, t13414, t13418, t13421, t13430, t13441, t13444;
3782   double t13476, t13501, t13515, t13530, t13537, t13545, t13549, t13582;
3783   double t13591, t13594, t13598, t13624, t13665, t13667, t13675, t13730;
3784   double t13733, t13740, t13743, t13758, t13761, t13767, t13777, t13797;
3785   double t13825, t13851, t13880, t13897, t13901, t13905, t13909, t13912;
3786   double t13917, t13918, t13923, t13932, t13962, t13968, t13986, t13991;
3787   double t14000, t14002, t14004, t14005, t14007, t14028, t14065, t14071;
3788   double t14085, t14088, t14089, t14095, t14100, t14104, t14105, t14110;
3789   double t14111, t14117, t14122, t14250, t14253, t14258, t14261, t14286;
3790   double t14309, t14312, t14319, t14322, t14349, t14371, t14388, t14392;
3791   double t14396, t14400, t14403, t14408, t14409, t14426, t14452, t14455;
3792   double t14457, t14475, t14484, t14511, t14527, t14593, t14624, t14676;
3793   double t14707, t14708, t14723, t14724, t14736, t14749, t14766, t14777;
3794   double t14782, t14785, t14796, t14809, t14827, t14828, t14864, t14890;
3795   double t14893, t14902, t14910, t14917, t14922, t14927, t14948, t14957;
3796   double t14958, t14960, t14961, t14963, t14964, t15009, t15011, t15019;
3797   double t15021, t15022, t15028, t15034, t15038, t15042, t15043, t15049;
3798   double t15130, t15151, t15156, t15161, t15180, t15198, t15213, t15237;
3799   double t15240, t15252, t15261, t15274, t15287, t15309, t15340, t15341;
3800   double t15360, t15385, t15399, t15404, t15412, t15420, t15425, t15432;
3801   double t15443, t15484, t15486, t15487, t15501, t15508, t15530, t15531;
3802   double t15567, t15570, t15573, t15580, t15584, t15585, t15588, t15589;
3803   double t15592, t15595, t15600, t15601, t15622, t15638, t15643, t15654;
3804   double t15671, t15690, t15698, t15705, t15708, t15711, t15726, t15739;
3805   double t15740, t15746, t15752, t15753, t15783, t15823, t15826, t15829;
3806   double t15846, t15863, t15872, t15881, t15917, t15929, t15932, t15943;
3807   double t15944, t15947, t15948, t15951, t15954, t15959, t15975, t15980;
3808   double t15985, t15995, t15998, t16003, t16015, t16024, t16036, t16039;
3809   double t16084, t16090, t16096, t16099, t16105, t16106, t16108, t16111;
3810   double t16115, t16130, t16136, t16139, t16157, t16166, t16189, t16192;
3811   double t16226, t16232, t16238, t16241, t16247, t16249, t16254, t16269;
3812   double t16275, t16278, t16353, t16394, t16415, t16421, t16425, t16434;
3813   double t16445, t16472, t16584, t16621, t16634, t16641, t16647, t16651;
3814   double t16660, t16687, t16742, t16830, t16864, t16873, t16877, t16882;
3815   double t16897, t16909, t16936, t16973, t17004, t17051, t17063, t17070;
3816   double t17120, t17143, t17168, t17173, t17196, t17235, t17303, t17331;
3817   double t17334, t17335, t17338, t17381, t17429, t17450, t17493, t17498;
3818   double t17501, t17529, t17564, t17614, t17629, t17661, t17672, t17674;
3819   double t17684, t17706, t17720, t17734, t17737, t17746, t17749, t17752;
3820   double t17765, t17769, t17777, t17786, t17803, t17809, t17811, t17821;
3821   double t17843, t17857, t17871, t17874, t17883, t17892, t17895, t17902;
3822   double t17906, t17914, t17923, t17940;
3823 #endif
3824 
3825 #endif
3826 
3827 #endif
3828 
3829 #endif
3830 
3831 #endif
3832 
3833 
3834   mgga_x_tpss_params *params;
3835 
3836   assert(p->params != NULL);
3837   params = (mgga_x_tpss_params * ) (p->params);
3838 
3839   t2 = M_CBRT3;
3840   t4 = POW_1_3(0.1e1 / M_PI);
3841   t5 = t2 * t4;
3842   t6 = M_CBRT4;
3843   t7 = t6 * t6;
3844   t8 = t5 * t7;
3845   t9 = rho[0] - rho[1];
3846   t10 = rho[0] + rho[1];
3847   t11 = 0.1e1 / t10;
3848   t12 = t9 * t11;
3849   t14 = 0.1e1 / 0.2e1 + t12 / 0.2e1;
3850   t15 = POW_1_3(t14);
3851   t16 = t15 * t14;
3852   t17 = POW_1_3(t10);
3853   t18 = t16 * t17;
3854   t19 = 0.1e1 / rho[0];
3855   t21 = 0.1e1 / tau[0];
3856   t23 = sigma[0] * t19 * t21 / 0.8e1;
3857   t24 = params->BLOC_b * sigma[0];
3858   t28 = params->BLOC_a + t24 * t19 * t21 / 0.8e1;
3859   t29 = pow(t23, t28);
3860   t30 = params->c * t29;
3861   t31 = sigma[0] * sigma[0];
3862   t32 = rho[0] * rho[0];
3863   t33 = 0.1e1 / t32;
3864   t34 = t31 * t33;
3865   t35 = tau[0] * tau[0];
3866   t36 = 0.1e1 / t35;
3867   t37 = t34 * t36;
3868   t39 = 0.1e1 + t37 / 0.64e2;
3869   t40 = t39 * t39;
3870   t41 = 0.1e1 / t40;
3871   t44 = M_CBRT6;
3872   t45 = (0.10e2 / 0.81e2 + t30 * t41) * t44;
3873   t46 = M_PI * M_PI;
3874   t47 = POW_1_3(t46);
3875   t48 = t47 * t47;
3876   t49 = 0.1e1 / t48;
3877   t50 = t49 * sigma[0];
3878   t51 = POW_1_3(rho[0]);
3879   t52 = t51 * t51;
3880   t54 = 0.1e1 / t52 / t32;
3881   t55 = t50 * t54;
3882   t59 = 0.1e1 / t52 / rho[0];
3883   t61 = sigma[0] * t54;
3884   t63 = tau[0] * t59 - t61 / 0.8e1;
3885   t67 = 0.5e1 / 0.9e1 * t63 * t44 * t49 - 0.1e1;
3886   t68 = params->b * t63;
3887   t69 = t44 * t49;
3888   t70 = t69 * t67;
3889   t73 = 0.5e1 * t68 * t70 + 0.9e1;
3890   t74 = sqrt(t73);
3891   t75 = 0.1e1 / t74;
3892   t80 = 0.27e2 / 0.20e2 * t67 * t75 + t69 * t61 / 0.36e2;
3893   t81 = t80 * t80;
3894   t84 = t44 * t44;
3895   t86 = 0.1e1 / t47 / t46;
3896   t87 = t84 * t86;
3897   t88 = t32 * t32;
3898   t89 = t88 * rho[0];
3899   t91 = 0.1e1 / t51 / t89;
3900   t95 = 0.50e2 * t87 * t31 * t91 + 0.162e3 * t37;
3901   t96 = sqrt(t95);
3902   t100 = 0.1e1 / params->kappa * t84;
3903   t101 = t86 * t31;
3904   t105 = sqrt(params->e);
3905   t106 = t105 * t31;
3906   t107 = t33 * t36;
3907   t110 = params->e * params->mu;
3908   t111 = t46 * t46;
3909   t112 = 0.1e1 / t111;
3910   t113 = t31 * sigma[0];
3911   t114 = t112 * t113;
3912   t115 = t88 * t88;
3913   t116 = 0.1e1 / t115;
3914   t120 = t45 * t55 / 0.24e2 + 0.146e3 / 0.2025e4 * t81 - 0.73e2 / 0.97200e5 * t80 * t96 + 0.25e2 / 0.944784e6 * t100 * t101 * t91 + t106 * t107 / 0.720e3 + t110 * t114 * t116 / 0.2304e4;
3915   t121 = t105 * t44;
3916   t124 = 0.1e1 + t121 * t55 / 0.24e2;
3917   t125 = t124 * t124;
3918   t126 = 0.1e1 / t125;
3919   t128 = t120 * t126 + params->kappa;
3920   t133 = 0.1e1 + params->kappa * (0.1e1 - params->kappa / t128);
3921   t135 = t8 * t18 * t133;
3922   t137 = 0.1e1 / 0.2e1 - t12 / 0.2e1;
3923   t138 = POW_1_3(t137);
3924   t139 = t138 * t137;
3925   t141 = 0.1e1 / rho[1];
3926   t143 = 0.1e1 / tau[1];
3927   t145 = sigma[2] * t141 * t143 / 0.8e1;
3928   t146 = params->BLOC_b * sigma[2];
3929   t150 = params->BLOC_a + t146 * t141 * t143 / 0.8e1;
3930   t151 = pow(t145, t150);
3931   t152 = params->c * t151;
3932   t153 = sigma[2] * sigma[2];
3933   t154 = rho[1] * rho[1];
3934   t155 = 0.1e1 / t154;
3935   t156 = t153 * t155;
3936   t157 = tau[1] * tau[1];
3937   t158 = 0.1e1 / t157;
3938   t159 = t156 * t158;
3939   t161 = 0.1e1 + t159 / 0.64e2;
3940   t162 = t161 * t161;
3941   t163 = 0.1e1 / t162;
3942   t166 = (0.10e2 / 0.81e2 + t152 * t163) * t44;
3943   t167 = t49 * sigma[2];
3944   t168 = POW_1_3(rho[1]);
3945   t169 = t168 * t168;
3946   t171 = 0.1e1 / t169 / t154;
3947   t172 = t167 * t171;
3948   t176 = 0.1e1 / t169 / rho[1];
3949   t178 = sigma[2] * t171;
3950   t180 = tau[1] * t176 - t178 / 0.8e1;
3951   t184 = 0.5e1 / 0.9e1 * t180 * t44 * t49 - 0.1e1;
3952   t185 = params->b * t180;
3953   t186 = t69 * t184;
3954   t189 = 0.5e1 * t185 * t186 + 0.9e1;
3955   t190 = sqrt(t189);
3956   t191 = 0.1e1 / t190;
3957   t196 = 0.27e2 / 0.20e2 * t184 * t191 + t69 * t178 / 0.36e2;
3958   t197 = t196 * t196;
3959   t200 = t154 * t154;
3960   t201 = t200 * rho[1];
3961   t203 = 0.1e1 / t168 / t201;
3962   t207 = 0.50e2 * t87 * t153 * t203 + 0.162e3 * t159;
3963   t208 = sqrt(t207);
3964   t211 = t86 * t153;
3965   t215 = t105 * t153;
3966   t216 = t155 * t158;
3967   t219 = t153 * sigma[2];
3968   t220 = t112 * t219;
3969   t221 = t200 * t200;
3970   t222 = 0.1e1 / t221;
3971   t226 = t166 * t172 / 0.24e2 + 0.146e3 / 0.2025e4 * t197 - 0.73e2 / 0.97200e5 * t196 * t208 + 0.25e2 / 0.944784e6 * t100 * t211 * t203 + t215 * t216 / 0.720e3 + t110 * t220 * t222 / 0.2304e4;
3972   t229 = 0.1e1 + t121 * t172 / 0.24e2;
3973   t230 = t229 * t229;
3974   t231 = 0.1e1 / t230;
3975   t233 = t226 * t231 + params->kappa;
3976   t238 = 0.1e1 + params->kappa * (0.1e1 - params->kappa / t233);
3977   t240 = t8 * t139 * t17 * t238;
3978   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
3979     zk[0] = -0.3e1 / 0.8e1 * t135 - 0.3e1 / 0.8e1 * t240;
3980 
3981 #ifndef XC_DONT_COMPILE_VXC
3982 
3983   if(order < 1) return;
3984 
3985 
3986   t242 = 0.3e1 / 0.8e1 * t135;
3987   t243 = 0.3e1 / 0.8e1 * t240;
3988   t244 = t15 * t17;
3989   t245 = t10 * t10;
3990   t246 = 0.1e1 / t245;
3991   t247 = t9 * t246;
3992   t249 = t11 / 0.2e1 - t247 / 0.2e1;
3993   t250 = t133 * t249;
3994   t252 = t8 * t244 * t250;
3995   t253 = t252 / 0.2e1;
3996   t254 = t17 * t17;
3997   t255 = 0.1e1 / t254;
3998   t256 = t16 * t255;
3999   t258 = t8 * t256 * t133;
4000   t259 = t258 / 0.8e1;
4001   t260 = t7 * t16;
4002   t261 = t5 * t260;
4003   t262 = params->kappa * params->kappa;
4004   t263 = t17 * t262;
4005   t264 = t128 * t128;
4006   t265 = 0.1e1 / t264;
4007   t266 = t33 * t21;
4008   t267 = log(t23);
4009   t272 = -t24 * t266 * t267 / 0.8e1 - t28 * t19;
4010   t273 = t272 * t41;
4011   t276 = 0.1e1 / t40 / t39;
4012   t277 = t30 * t276;
4013   t278 = t32 * rho[0];
4014   t279 = 0.1e1 / t278;
4015   t280 = t31 * t279;
4016   t281 = t280 * t36;
4017   t285 = (t30 * t273 + t277 * t281 / 0.16e2) * t44;
4018   t289 = 0.1e1 / t52 / t278;
4019   t290 = t50 * t289;
4020   t295 = sigma[0] * t289;
4021   t297 = -0.5e1 / 0.3e1 * tau[0] * t54 + t295 / 0.3e1;
4022   t298 = t297 * t44;
4023   t299 = t49 * t75;
4024   t303 = 0.1e1 / t74 / t73;
4025   t304 = t67 * t303;
4026   t308 = t87 * t297;
4027   t311 = 0.5e1 * params->b * t297 * t70 + 0.25e2 / 0.9e1 * t68 * t308;
4028   t314 = t69 * t295;
4029   t316 = 0.3e1 / 0.4e1 * t298 * t299 - 0.27e2 / 0.40e2 * t304 * t311 - 0.2e1 / 0.27e2 * t314;
4030   t321 = 0.1e1 / t96;
4031   t322 = t80 * t321;
4032   t324 = t88 * t32;
4033   t326 = 0.1e1 / t51 / t324;
4034   t330 = -0.324e3 * t281 - 0.800e3 / 0.3e1 * t87 * t31 * t326;
4035   t336 = t279 * t36;
4036   t339 = t115 * rho[0];
4037   t340 = 0.1e1 / t339;
4038   t344 = t285 * t55 / 0.24e2 - t45 * t290 / 0.9e1 + 0.292e3 / 0.2025e4 * t80 * t316 - 0.73e2 / 0.97200e5 * t316 * t96 - 0.73e2 / 0.194400e6 * t322 * t330 - 0.25e2 / 0.177147e6 * t100 * t101 * t326 - t106 * t336 / 0.360e3 - t110 * t114 * t340 / 0.288e3;
4039   t346 = t125 * t124;
4040   t347 = 0.1e1 / t346;
4041   t349 = t120 * t347 * t105;
4042   t352 = t344 * t126 + 0.2e1 / 0.9e1 * t349 * t314;
4043   t353 = t265 * t352;
4044   t355 = t261 * t263 * t353;
4045   t356 = 0.3e1 / 0.8e1 * t355;
4046   t357 = t138 * t17;
4047   t358 = -t249;
4048   t359 = t238 * t358;
4049   t361 = t8 * t357 * t359;
4050   t362 = t361 / 0.2e1;
4051   t365 = t8 * t139 * t255 * t238;
4052   t366 = t365 / 0.8e1;
4053   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4054     vrho[0] = -t242 - t243 + t10 * (-t253 - t259 - t356 - t362 - t366);
4055 
4056   t370 = -t11 / 0.2e1 - t247 / 0.2e1;
4057   t371 = t133 * t370;
4058   t373 = t8 * t244 * t371;
4059   t374 = t373 / 0.2e1;
4060   t375 = -t370;
4061   t376 = t238 * t375;
4062   t378 = t8 * t357 * t376;
4063   t379 = t378 / 0.2e1;
4064   t380 = t7 * t139;
4065   t381 = t5 * t380;
4066   t382 = t233 * t233;
4067   t383 = 0.1e1 / t382;
4068   t384 = t155 * t143;
4069   t385 = log(t145);
4070   t390 = -t146 * t384 * t385 / 0.8e1 - t150 * t141;
4071   t391 = t390 * t163;
4072   t394 = 0.1e1 / t162 / t161;
4073   t395 = t152 * t394;
4074   t396 = t154 * rho[1];
4075   t397 = 0.1e1 / t396;
4076   t398 = t153 * t397;
4077   t399 = t398 * t158;
4078   t403 = (t152 * t391 + t395 * t399 / 0.16e2) * t44;
4079   t407 = 0.1e1 / t169 / t396;
4080   t408 = t167 * t407;
4081   t413 = sigma[2] * t407;
4082   t415 = -0.5e1 / 0.3e1 * tau[1] * t171 + t413 / 0.3e1;
4083   t416 = t415 * t44;
4084   t417 = t49 * t191;
4085   t421 = 0.1e1 / t190 / t189;
4086   t422 = t184 * t421;
4087   t426 = t87 * t415;
4088   t429 = 0.5e1 * params->b * t415 * t186 + 0.25e2 / 0.9e1 * t185 * t426;
4089   t432 = t69 * t413;
4090   t434 = 0.3e1 / 0.4e1 * t416 * t417 - 0.27e2 / 0.40e2 * t422 * t429 - 0.2e1 / 0.27e2 * t432;
4091   t439 = 0.1e1 / t208;
4092   t440 = t196 * t439;
4093   t442 = t200 * t154;
4094   t444 = 0.1e1 / t168 / t442;
4095   t448 = -0.324e3 * t399 - 0.800e3 / 0.3e1 * t87 * t153 * t444;
4096   t454 = t397 * t158;
4097   t457 = t221 * rho[1];
4098   t458 = 0.1e1 / t457;
4099   t462 = t403 * t172 / 0.24e2 - t166 * t408 / 0.9e1 + 0.292e3 / 0.2025e4 * t196 * t434 - 0.73e2 / 0.97200e5 * t434 * t208 - 0.73e2 / 0.194400e6 * t440 * t448 - 0.25e2 / 0.177147e6 * t100 * t211 * t444 - t215 * t454 / 0.360e3 - t110 * t220 * t458 / 0.288e3;
4100   t464 = t230 * t229;
4101   t465 = 0.1e1 / t464;
4102   t467 = t226 * t465 * t105;
4103   t470 = t462 * t231 + 0.2e1 / 0.9e1 * t467 * t432;
4104   t471 = t383 * t470;
4105   t473 = t381 * t263 * t471;
4106   t474 = 0.3e1 / 0.8e1 * t473;
4107   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4108     vrho[1] = -t242 - t243 + t10 * (-t374 - t259 - t379 - t366 - t474);
4109 
4110   t478 = t17 * t10 * t2;
4111   t479 = t4 * t7;
4112   t480 = t478 * t479;
4113   t481 = t16 * t262;
4114   t482 = params->BLOC_b * t19;
4115   t483 = t21 * t267;
4116   t486 = 0.1e1 / sigma[0];
4117   t488 = t482 * t483 / 0.8e1 + t28 * t486;
4118   t489 = t488 * t41;
4119   t490 = t30 * t489;
4120   t491 = sigma[0] * t33;
4121   t492 = t491 * t36;
4122   t496 = (t490 - t277 * t492 / 0.16e2) * t44;
4123   t499 = t49 * t54;
4124   t502 = t54 * t44;
4125   t503 = t502 * t299;
4126   t505 = params->b * t54;
4127   t506 = t505 * t70;
4128   t509 = t68 * t87 * t54;
4129   t511 = -0.5e1 / 0.8e1 * t506 - 0.25e2 / 0.72e2 * t509;
4130   t514 = t502 * t49;
4131   t516 = -0.3e1 / 0.32e2 * t503 - 0.27e2 / 0.40e2 * t304 * t511 + t514 / 0.36e2;
4132   t525 = 0.100e3 * t87 * sigma[0] * t91 + 0.324e3 * t492;
4133   t528 = t86 * sigma[0];
4134   t532 = t105 * sigma[0];
4135   t535 = t112 * t31;
4136   t539 = t496 * t55 / 0.24e2 + t45 * t499 / 0.24e2 + 0.292e3 / 0.2025e4 * t80 * t516 - 0.73e2 / 0.97200e5 * t516 * t96 - 0.73e2 / 0.194400e6 * t322 * t525 + 0.25e2 / 0.472392e6 * t100 * t528 * t91 + t532 * t107 / 0.360e3 + t110 * t535 * t116 / 0.768e3;
4137   t543 = t539 * t126 - t349 * t514 / 0.12e2;
4138   t544 = t265 * t543;
4139   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4140     vsigma[0] = -0.3e1 / 0.8e1 * t480 * t481 * t544;
4141 
4142   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4143     vsigma[1] = 0.0e0;
4144 
4145   t548 = t139 * t262;
4146   t549 = params->BLOC_b * t141;
4147   t550 = t143 * t385;
4148   t553 = 0.1e1 / sigma[2];
4149   t555 = t549 * t550 / 0.8e1 + t150 * t553;
4150   t556 = t555 * t163;
4151   t557 = t152 * t556;
4152   t558 = sigma[2] * t155;
4153   t559 = t558 * t158;
4154   t563 = (t557 - t395 * t559 / 0.16e2) * t44;
4155   t566 = t49 * t171;
4156   t569 = t171 * t44;
4157   t570 = t569 * t417;
4158   t572 = params->b * t171;
4159   t573 = t572 * t186;
4160   t576 = t185 * t87 * t171;
4161   t578 = -0.5e1 / 0.8e1 * t573 - 0.25e2 / 0.72e2 * t576;
4162   t581 = t569 * t49;
4163   t583 = -0.3e1 / 0.32e2 * t570 - 0.27e2 / 0.40e2 * t422 * t578 + t581 / 0.36e2;
4164   t592 = 0.100e3 * t87 * sigma[2] * t203 + 0.324e3 * t559;
4165   t595 = t86 * sigma[2];
4166   t599 = t105 * sigma[2];
4167   t602 = t112 * t153;
4168   t606 = t563 * t172 / 0.24e2 + t166 * t566 / 0.24e2 + 0.292e3 / 0.2025e4 * t196 * t583 - 0.73e2 / 0.97200e5 * t583 * t208 - 0.73e2 / 0.194400e6 * t440 * t592 + 0.25e2 / 0.472392e6 * t100 * t595 * t203 + t599 * t216 / 0.360e3 + t110 * t602 * t222 / 0.768e3;
4169   t610 = t606 * t231 - t467 * t581 / 0.12e2;
4170   t611 = t383 * t610;
4171   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4172     vsigma[2] = -0.3e1 / 0.8e1 * t480 * t548 * t611;
4173 
4174   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
4175     vlapl[0] = 0.0e0;
4176 
4177   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
4178     vlapl[1] = 0.0e0;
4179 
4180   t615 = t19 * t36;
4181   t620 = -t24 * t615 * t267 / 0.8e1 - t28 * t21;
4182   t621 = t620 * t41;
4183   t622 = t30 * t621;
4184   t623 = t35 * tau[0];
4185   t624 = 0.1e1 / t623;
4186   t625 = t34 * t624;
4187   t629 = (t622 + t277 * t625 / 0.16e2) * t44;
4188   t632 = t59 * t44;
4189   t635 = params->b * t59;
4190   t641 = 0.5e1 * t635 * t70 + 0.25e2 / 0.9e1 * t68 * t87 * t59;
4191   t644 = 0.3e1 / 0.4e1 * t632 * t299 - 0.27e2 / 0.40e2 * t304 * t641;
4192   t651 = t33 * t624;
4193   t654 = t629 * t55 / 0.24e2 + 0.292e3 / 0.2025e4 * t80 * t644 - 0.73e2 / 0.97200e5 * t644 * t96 + 0.73e2 / 0.600e3 * t322 * t625 - t106 * t651 / 0.360e3;
4194   t655 = t265 * t654;
4195   t656 = t655 * t126;
4196   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4197     vtau[0] = -0.3e1 / 0.8e1 * t480 * t481 * t656;
4198 
4199   t660 = t141 * t158;
4200   t665 = -t146 * t660 * t385 / 0.8e1 - t150 * t143;
4201   t666 = t665 * t163;
4202   t667 = t152 * t666;
4203   t668 = t157 * tau[1];
4204   t669 = 0.1e1 / t668;
4205   t670 = t156 * t669;
4206   t674 = (t667 + t395 * t670 / 0.16e2) * t44;
4207   t677 = t176 * t44;
4208   t680 = params->b * t176;
4209   t686 = 0.5e1 * t680 * t186 + 0.25e2 / 0.9e1 * t185 * t87 * t176;
4210   t689 = 0.3e1 / 0.4e1 * t677 * t417 - 0.27e2 / 0.40e2 * t422 * t686;
4211   t696 = t155 * t669;
4212   t699 = t674 * t172 / 0.24e2 + 0.292e3 / 0.2025e4 * t196 * t689 - 0.73e2 / 0.97200e5 * t689 * t208 + 0.73e2 / 0.600e3 * t440 * t670 - t215 * t696 / 0.360e3;
4213   t700 = t383 * t699;
4214   t701 = t700 * t231;
4215   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4216     vtau[1] = -0.3e1 / 0.8e1 * t480 * t548 * t701;
4217 
4218 #ifndef XC_DONT_COMPILE_FXC
4219 
4220   if(order < 2) return;
4221 
4222 
4223   t705 = t258 / 0.4e1;
4224   t707 = t365 / 0.4e1;
4225   t708 = t15 * t15;
4226   t709 = 0.1e1 / t708;
4227   t710 = t709 * t17;
4228   t711 = t249 * t249;
4229   t712 = t133 * t711;
4230   t714 = t8 * t710 * t712;
4231   t715 = t714 / 0.6e1;
4232   t716 = t15 * t255;
4233   t718 = t8 * t716 * t250;
4234   t719 = t718 / 0.3e1;
4235   t720 = t7 * t15;
4236   t721 = t5 * t720;
4237   t722 = t353 * t249;
4238   t724 = t721 * t263 * t722;
4239   t725 = t245 * t10;
4240   t726 = 0.1e1 / t725;
4241   t727 = t9 * t726;
4242   t728 = -t246 + t727;
4243   t729 = t133 * t728;
4244   t731 = t8 * t244 * t729;
4245   t732 = t731 / 0.2e1;
4246   t734 = 0.1e1 / t254 / t10;
4247   t737 = t8 * t16 * t734 * t133;
4248   t738 = t737 / 0.12e2;
4249   t739 = t255 * t262;
4250   t741 = t261 * t739 * t353;
4251   t742 = t741 / 0.4e1;
4252   t744 = 0.1e1 / t264 / t128;
4253   t745 = t352 * t352;
4254   t746 = t744 * t745;
4255   t748 = t261 * t263 * t746;
4256   t749 = 0.3e1 / 0.4e1 * t748;
4257   t750 = t272 * t272;
4258   t751 = t750 * t41;
4259   t753 = t279 * t21;
4260   t760 = t24 * t753 * t267 / 0.4e1 + t24 * t753 / 0.4e1 + t28 * t33;
4261   t763 = t30 * t272;
4262   t764 = t276 * t31;
4263   t765 = t764 * t336;
4264   t768 = t40 * t40;
4265   t769 = 0.1e1 / t768;
4266   t770 = t30 * t769;
4267   t771 = t31 * t31;
4268   t772 = 0.1e1 / t324;
4269   t773 = t771 * t772;
4270   t774 = t35 * t35;
4271   t775 = 0.1e1 / t774;
4272   t779 = 0.1e1 / t88;
4273   t780 = t31 * t779;
4274   t781 = t780 * t36;
4275   t785 = (t30 * t751 + t30 * t760 * t41 + t763 * t765 / 0.8e1 + 0.3e1 / 0.512e3 * t770 * t773 * t775 - 0.3e1 / 0.16e2 * t277 * t781) * t44;
4276   t791 = 0.1e1 / t52 / t88;
4277   t792 = t50 * t791;
4278   t795 = t316 * t316;
4279   t799 = sigma[0] * t791;
4280   t801 = 0.40e2 / 0.9e1 * tau[0] * t289 - 0.11e2 / 0.9e1 * t799;
4281   t802 = t801 * t44;
4282   t805 = t49 * t303;
4283   t806 = t805 * t311;
4284   t809 = t73 * t73;
4285   t811 = 0.1e1 / t74 / t809;
4286   t812 = t67 * t811;
4287   t813 = t311 * t311;
4288   t816 = params->b * t801;
4289   t819 = t297 * t297;
4290   t823 = t87 * t801;
4291   t826 = 0.5e1 * t816 * t70 + 0.50e2 / 0.9e1 * params->b * t819 * t87 + 0.25e2 / 0.9e1 * t68 * t823;
4292   t829 = t69 * t799;
4293   t831 = 0.3e1 / 0.4e1 * t802 * t299 - 0.3e1 / 0.4e1 * t298 * t806 + 0.81e2 / 0.80e2 * t812 * t813 - 0.27e2 / 0.40e2 * t304 * t826 + 0.22e2 / 0.81e2 * t829;
4294   t836 = t316 * t321;
4295   t840 = 0.1e1 / t96 / t95;
4296   t841 = t80 * t840;
4297   t842 = t330 * t330;
4298   t846 = t88 * t278;
4299   t848 = 0.1e1 / t51 / t846;
4300   t850 = t87 * t31 * t848;
4301   t852 = 0.972e3 * t781 + 0.15200e5 / 0.9e1 * t850;
4302   t858 = t779 * t36;
4303   t861 = t115 * t32;
4304   t862 = 0.1e1 / t861;
4305   t866 = t785 * t55 / 0.24e2 - 0.2e1 / 0.9e1 * t285 * t290 + 0.11e2 / 0.27e2 * t45 * t792 + 0.292e3 / 0.2025e4 * t795 + 0.292e3 / 0.2025e4 * t80 * t831 - 0.73e2 / 0.97200e5 * t831 * t96 - 0.73e2 / 0.97200e5 * t836 * t330 + 0.73e2 / 0.388800e6 * t841 * t842 - 0.73e2 / 0.194400e6 * t322 * t852 + 0.475e3 / 0.531441e6 * t100 * t101 * t848 + t106 * t858 / 0.120e3 + t110 * t114 * t862 / 0.32e2;
4306   t869 = t344 * t347 * t105;
4307   t872 = t125 * t125;
4308   t873 = 0.1e1 / t872;
4309   t875 = t120 * t873 * params->e;
4310   t880 = t866 * t126 + 0.4e1 / 0.9e1 * t869 * t314 + 0.2e1 / 0.27e2 * t875 * t850 - 0.22e2 / 0.27e2 * t349 * t829;
4311   t881 = t265 * t880;
4312   t883 = t261 * t263 * t881;
4313   t884 = 0.3e1 / 0.8e1 * t883;
4314   t885 = t138 * t138;
4315   t886 = 0.1e1 / t885;
4316   t887 = t886 * t17;
4317   t888 = t358 * t358;
4318   t889 = t238 * t888;
4319   t891 = t8 * t887 * t889;
4320   t892 = t891 / 0.6e1;
4321   t893 = t138 * t255;
4322   t895 = t8 * t893 * t359;
4323   t896 = t895 / 0.3e1;
4324   t897 = -t728;
4325   t898 = t238 * t897;
4326   t900 = t8 * t357 * t898;
4327   t901 = t900 / 0.2e1;
4328   t904 = t8 * t139 * t734 * t238;
4329   t905 = t904 / 0.12e2;
4330   t906 = -t715 - t719 - t724 - t732 + t738 - t742 + t749 - t884 - t892 - t896 - t901 + t905;
4331   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4332     v2rho2[0] = -t252 - t705 - 0.3e1 / 0.4e1 * t355 - t361 - t707 + t10 * t906;
4333 
4334   t908 = t7 * t709;
4335   t909 = t5 * t908;
4336   t910 = t17 * t133;
4337   t911 = t370 * t249;
4338   t913 = t909 * t910 * t911;
4339   t916 = t8 * t716 * t371;
4340   t918 = t353 * t370;
4341   t920 = t721 * t263 * t918;
4342   t923 = 0.1e1 / t254 / t245;
4343   t924 = t15 * t923;
4344   t925 = t133 * t9;
4345   t927 = t8 * t924 * t925;
4346   t931 = t7 * t886;
4347   t932 = t5 * t931;
4348   t933 = t17 * t238;
4349   t934 = t375 * t358;
4350   t936 = t932 * t933 * t934;
4351   t939 = t8 * t893 * t376;
4352   t941 = t138 * t923;
4353   t942 = t238 * t9;
4354   t944 = t8 * t941 * t942;
4355   t947 = t7 * t138;
4356   t948 = t5 * t947;
4357   t949 = t471 * t358;
4358   t951 = t948 * t263 * t949;
4359   t954 = t381 * t739 * t471;
4360   t956 = -t913 / 0.6e1 - t916 / 0.6e1 - t920 / 0.2e1 - t927 / 0.2e1 - t718 / 0.6e1 + t738 - t741 / 0.8e1 - t936 / 0.6e1 - t939 / 0.6e1 + t944 / 0.2e1 - t895 / 0.6e1 + t905 - t951 / 0.2e1 - t954 / 0.8e1;
4361   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4362     v2rho2[1] = t10 * t956 - t253 - t356 - t362 - t374 - t379 - t474 - t705 - t707;
4363 
4364   t959 = t370 * t370;
4365   t960 = t133 * t959;
4366   t962 = t8 * t710 * t960;
4367   t963 = t962 / 0.6e1;
4368   t964 = t916 / 0.3e1;
4369   t965 = t246 + t727;
4370   t966 = t133 * t965;
4371   t968 = t8 * t244 * t966;
4372   t969 = t968 / 0.2e1;
4373   t970 = t375 * t375;
4374   t971 = t238 * t970;
4375   t973 = t8 * t887 * t971;
4376   t974 = t973 / 0.6e1;
4377   t975 = t939 / 0.3e1;
4378   t976 = t471 * t375;
4379   t978 = t948 * t263 * t976;
4380   t979 = -t965;
4381   t980 = t238 * t979;
4382   t982 = t8 * t357 * t980;
4383   t983 = t982 / 0.2e1;
4384   t984 = t954 / 0.4e1;
4385   t986 = 0.1e1 / t382 / t233;
4386   t987 = t470 * t470;
4387   t988 = t986 * t987;
4388   t990 = t381 * t263 * t988;
4389   t991 = 0.3e1 / 0.4e1 * t990;
4390   t992 = t390 * t390;
4391   t993 = t992 * t163;
4392   t995 = t397 * t143;
4393   t1002 = t146 * t995 * t385 / 0.4e1 + t146 * t995 / 0.4e1 + t150 * t155;
4394   t1005 = t152 * t390;
4395   t1006 = t394 * t153;
4396   t1007 = t1006 * t454;
4397   t1010 = t162 * t162;
4398   t1011 = 0.1e1 / t1010;
4399   t1012 = t152 * t1011;
4400   t1013 = t153 * t153;
4401   t1014 = 0.1e1 / t442;
4402   t1015 = t1013 * t1014;
4403   t1016 = t157 * t157;
4404   t1017 = 0.1e1 / t1016;
4405   t1021 = 0.1e1 / t200;
4406   t1022 = t153 * t1021;
4407   t1023 = t1022 * t158;
4408   t1027 = (t152 * t993 + t152 * t1002 * t163 + t1005 * t1007 / 0.8e1 + 0.3e1 / 0.512e3 * t1012 * t1015 * t1017 - 0.3e1 / 0.16e2 * t395 * t1023) * t44;
4409   t1033 = 0.1e1 / t169 / t200;
4410   t1034 = t167 * t1033;
4411   t1037 = t434 * t434;
4412   t1041 = sigma[2] * t1033;
4413   t1043 = 0.40e2 / 0.9e1 * tau[1] * t407 - 0.11e2 / 0.9e1 * t1041;
4414   t1044 = t1043 * t44;
4415   t1047 = t49 * t421;
4416   t1048 = t1047 * t429;
4417   t1051 = t189 * t189;
4418   t1053 = 0.1e1 / t190 / t1051;
4419   t1054 = t184 * t1053;
4420   t1055 = t429 * t429;
4421   t1058 = params->b * t1043;
4422   t1061 = t415 * t415;
4423   t1065 = t87 * t1043;
4424   t1068 = 0.5e1 * t1058 * t186 + 0.50e2 / 0.9e1 * params->b * t1061 * t87 + 0.25e2 / 0.9e1 * t185 * t1065;
4425   t1071 = t69 * t1041;
4426   t1073 = 0.3e1 / 0.4e1 * t1044 * t417 - 0.3e1 / 0.4e1 * t416 * t1048 + 0.81e2 / 0.80e2 * t1054 * t1055 - 0.27e2 / 0.40e2 * t422 * t1068 + 0.22e2 / 0.81e2 * t1071;
4427   t1078 = t434 * t439;
4428   t1082 = 0.1e1 / t208 / t207;
4429   t1083 = t196 * t1082;
4430   t1084 = t448 * t448;
4431   t1088 = t200 * t396;
4432   t1090 = 0.1e1 / t168 / t1088;
4433   t1092 = t87 * t153 * t1090;
4434   t1094 = 0.972e3 * t1023 + 0.15200e5 / 0.9e1 * t1092;
4435   t1100 = t1021 * t158;
4436   t1103 = t221 * t154;
4437   t1104 = 0.1e1 / t1103;
4438   t1108 = t1027 * t172 / 0.24e2 - 0.2e1 / 0.9e1 * t403 * t408 + 0.11e2 / 0.27e2 * t166 * t1034 + 0.292e3 / 0.2025e4 * t1037 + 0.292e3 / 0.2025e4 * t196 * t1073 - 0.73e2 / 0.97200e5 * t1073 * t208 - 0.73e2 / 0.97200e5 * t1078 * t448 + 0.73e2 / 0.388800e6 * t1083 * t1084 - 0.73e2 / 0.194400e6 * t440 * t1094 + 0.475e3 / 0.531441e6 * t100 * t211 * t1090 + t215 * t1100 / 0.120e3 + t110 * t220 * t1104 / 0.32e2;
4439   t1111 = t462 * t465 * t105;
4440   t1114 = t230 * t230;
4441   t1115 = 0.1e1 / t1114;
4442   t1117 = t226 * t1115 * params->e;
4443   t1122 = t1108 * t231 + 0.4e1 / 0.9e1 * t1111 * t432 + 0.2e1 / 0.27e2 * t1117 * t1092 - 0.22e2 / 0.27e2 * t467 * t1071;
4444   t1123 = t383 * t1122;
4445   t1125 = t381 * t263 * t1123;
4446   t1126 = 0.3e1 / 0.8e1 * t1125;
4447   t1127 = -t963 - t964 - t969 + t738 - t974 - t975 - t978 - t983 + t905 - t984 + t991 - t1126;
4448   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4449     v2rho2[2] = -t373 - t705 - t378 - t707 - 0.3e1 / 0.4e1 * t473 + t10 * t1127;
4450 
4451   t1130 = t261 * t263 * t544;
4452   t1132 = t15 * t262;
4453   t1133 = t544 * t249;
4454   t1137 = t744 * t543;
4455   t1138 = t1137 * t352;
4456   t1142 = t272 * t488;
4457   t1145 = params->BLOC_b * t33;
4458   t1150 = -t1145 * t483 / 0.8e1 - t1145 * t21 / 0.4e1;
4459   t1151 = t1150 * t41;
4460   t1153 = t30 * t488;
4461   t1156 = t276 * sigma[0];
4462   t1157 = t1156 * t107;
4463   t1160 = 0.1e1 / t89;
4464   t1161 = t113 * t1160;
4465   t1165 = sigma[0] * t279;
4466   t1166 = t1165 * t36;
4467   t1170 = (t30 * t1142 * t41 + t30 * t1151 + t1153 * t765 / 0.16e2 - t763 * t1157 / 0.16e2 - 0.3e1 / 0.512e3 * t770 * t1161 * t775 + t277 * t1166 / 0.8e1) * t44;
4468   t1177 = t49 * t289;
4469   t1182 = t289 * t44;
4470   t1183 = t1182 * t299;
4471   t1185 = t502 * t806;
4472   t1187 = t805 * t511;
4473   t1190 = t511 * t311;
4474   t1193 = params->b * t289;
4475   t1194 = t1193 * t70;
4476   t1196 = t505 * t308;
4477   t1199 = t68 * t87 * t289;
4478   t1201 = 0.5e1 / 0.3e1 * t1194 - 0.25e2 / 0.36e2 * t1196 + 0.25e2 / 0.27e2 * t1199;
4479   t1204 = t1182 * t49;
4480   t1206 = t1183 / 0.4e1 + 0.3e1 / 0.64e2 * t1185 - 0.3e1 / 0.8e1 * t298 * t1187 + 0.81e2 / 0.80e2 * t812 * t1190 - 0.27e2 / 0.40e2 * t304 * t1201 - 0.2e1 / 0.27e2 * t1204;
4481   t1211 = t516 * t321;
4482   t1216 = t525 * t330;
4483   t1221 = t87 * sigma[0] * t326;
4484   t1223 = -0.648e3 * t1166 - 0.1600e4 / 0.3e1 * t1221;
4485   t1234 = t1170 * t55 / 0.24e2 - t496 * t290 / 0.9e1 + t285 * t499 / 0.24e2 - t45 * t1177 / 0.9e1 + 0.292e3 / 0.2025e4 * t316 * t516 + 0.292e3 / 0.2025e4 * t80 * t1206 - 0.73e2 / 0.97200e5 * t1206 * t96 - 0.73e2 / 0.194400e6 * t1211 * t330 - 0.73e2 / 0.194400e6 * t836 * t525 + 0.73e2 / 0.388800e6 * t841 * t1216 - 0.73e2 / 0.194400e6 * t322 * t1223 - 0.50e2 / 0.177147e6 * t100 * t528 * t326 - t532 * t336 / 0.180e3 - t110 * t535 * t340 / 0.96e2;
4486   t1237 = t539 * t347 * t105;
4487   t1246 = t1234 * t126 + 0.2e1 / 0.9e1 * t1237 * t314 - t869 * t514 / 0.12e2 - t875 * t1221 / 0.36e2 + 0.2e1 / 0.9e1 * t349 * t1204;
4488   t1247 = t265 * t1246;
4489   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4490     v2rhosigma[0] = -t1130 / 0.2e1 - t480 * t1132 * t1133 / 0.2e1 + 0.3e1 / 0.4e1 * t480 * t481 * t1138 - 0.3e1 / 0.8e1 * t480 * t481 * t1247;
4491 
4492   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4493     v2rhosigma[1] = 0.0e0;
4494 
4495   t1252 = t381 * t263 * t611;
4496   t1253 = t138 * t262;
4497   t1254 = t611 * t358;
4498   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4499     v2rhosigma[2] = -t480 * t1253 * t1254 / 0.2e1 - t1252 / 0.2e1;
4500 
4501   t1259 = t1132 * t544 * t370;
4502   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4503     v2rhosigma[3] = -t480 * t1259 / 0.2e1 - t1130 / 0.2e1;
4504 
4505   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4506     v2rhosigma[4] = 0.0e0;
4507 
4508   t1264 = t1253 * t611 * t375;
4509   t1267 = t986 * t610;
4510   t1269 = t548 * t1267 * t470;
4511   t1272 = t390 * t555;
4512   t1275 = params->BLOC_b * t155;
4513   t1280 = -t1275 * t550 / 0.8e1 - t1275 * t143 / 0.4e1;
4514   t1281 = t1280 * t163;
4515   t1283 = t152 * t555;
4516   t1286 = t394 * sigma[2];
4517   t1287 = t1286 * t216;
4518   t1290 = 0.1e1 / t201;
4519   t1291 = t219 * t1290;
4520   t1295 = sigma[2] * t397;
4521   t1296 = t1295 * t158;
4522   t1300 = (t152 * t1272 * t163 + t152 * t1281 + t1283 * t1007 / 0.16e2 - t1005 * t1287 / 0.16e2 - 0.3e1 / 0.512e3 * t1012 * t1291 * t1017 + t395 * t1296 / 0.8e1) * t44;
4523   t1307 = t49 * t407;
4524   t1312 = t407 * t44;
4525   t1313 = t1312 * t417;
4526   t1315 = t569 * t1048;
4527   t1317 = t1047 * t578;
4528   t1320 = t578 * t429;
4529   t1323 = params->b * t407;
4530   t1324 = t1323 * t186;
4531   t1326 = t572 * t426;
4532   t1329 = t185 * t87 * t407;
4533   t1331 = 0.5e1 / 0.3e1 * t1324 - 0.25e2 / 0.36e2 * t1326 + 0.25e2 / 0.27e2 * t1329;
4534   t1334 = t1312 * t49;
4535   t1336 = t1313 / 0.4e1 + 0.3e1 / 0.64e2 * t1315 - 0.3e1 / 0.8e1 * t416 * t1317 + 0.81e2 / 0.80e2 * t1054 * t1320 - 0.27e2 / 0.40e2 * t422 * t1331 - 0.2e1 / 0.27e2 * t1334;
4536   t1341 = t583 * t439;
4537   t1346 = t592 * t448;
4538   t1351 = t87 * sigma[2] * t444;
4539   t1353 = -0.648e3 * t1296 - 0.1600e4 / 0.3e1 * t1351;
4540   t1364 = t1300 * t172 / 0.24e2 - t563 * t408 / 0.9e1 + t403 * t566 / 0.24e2 - t166 * t1307 / 0.9e1 + 0.292e3 / 0.2025e4 * t434 * t583 + 0.292e3 / 0.2025e4 * t196 * t1336 - 0.73e2 / 0.97200e5 * t1336 * t208 - 0.73e2 / 0.194400e6 * t1341 * t448 - 0.73e2 / 0.194400e6 * t1078 * t592 + 0.73e2 / 0.388800e6 * t1083 * t1346 - 0.73e2 / 0.194400e6 * t440 * t1353 - 0.50e2 / 0.177147e6 * t100 * t595 * t444 - t599 * t454 / 0.180e3 - t110 * t602 * t458 / 0.96e2;
4541   t1367 = t606 * t465 * t105;
4542   t1376 = t1364 * t231 + 0.2e1 / 0.9e1 * t1367 * t432 - t1111 * t581 / 0.12e2 - t1117 * t1351 / 0.36e2 + 0.2e1 / 0.9e1 * t467 * t1334;
4543   t1377 = t383 * t1376;
4544   t1378 = t548 * t1377;
4545   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4546     v2rhosigma[5] = -t1252 / 0.2e1 - t480 * t1264 / 0.2e1 + 0.3e1 / 0.4e1 * t480 * t1269 - 0.3e1 / 0.8e1 * t480 * t1378;
4547 
4548   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4549     v2rholapl[0] = 0.0e0;
4550 
4551   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4552     v2rholapl[1] = 0.0e0;
4553 
4554   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4555     v2rholapl[2] = 0.0e0;
4556 
4557   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4558     v2rholapl[3] = 0.0e0;
4559 
4560   t1382 = t261 * t263 * t656;
4561   t1384 = t479 * t15;
4562   t1385 = t478 * t1384;
4563   t1386 = t262 * t265;
4564   t1387 = t654 * t126;
4565   t1389 = t1386 * t1387 * t249;
4566   t1393 = t478 * t479 * t16;
4567   t1394 = t262 * t744;
4568   t1396 = t1394 * t1387 * t352;
4569   t1399 = t272 * t620;
4570   t1407 = t24 * t107 * t267 / 0.8e1 + t24 * t107 / 0.4e1;
4571   t1408 = t1407 * t41;
4572   t1410 = t30 * t620;
4573   t1413 = t764 * t651;
4574   t1416 = t771 * t1160;
4575   t1418 = 0.1e1 / t774 / tau[0];
4576   t1422 = t280 * t624;
4577   t1426 = (t30 * t1399 * t41 + t30 * t1408 + t1410 * t765 / 0.16e2 + t763 * t1413 / 0.16e2 + 0.3e1 / 0.512e3 * t770 * t1416 * t1418 - t277 * t1422 / 0.8e1) * t44;
4578   t1436 = t805 * t641;
4579   t1439 = t641 * t311;
4580   t1446 = -0.25e2 / 0.3e1 * t506 + 0.50e2 / 0.9e1 * t635 * t308 - 0.125e3 / 0.27e2 * t509;
4581   t1449 = -0.5e1 / 0.4e1 * t503 - 0.3e1 / 0.8e1 * t632 * t806 - 0.3e1 / 0.8e1 * t298 * t1436 + 0.81e2 / 0.80e2 * t812 * t1439 - 0.27e2 / 0.40e2 * t304 * t1446;
4582   t1454 = t644 * t321;
4583   t1459 = t841 * t31;
4584   t1460 = t651 * t330;
4585   t1465 = t279 * t624;
4586   t1468 = t1426 * t55 / 0.24e2 - t629 * t290 / 0.9e1 + 0.292e3 / 0.2025e4 * t316 * t644 + 0.292e3 / 0.2025e4 * t80 * t1449 - 0.73e2 / 0.97200e5 * t1449 * t96 - 0.73e2 / 0.194400e6 * t1454 * t330 + 0.73e2 / 0.600e3 * t836 * t625 - 0.73e2 / 0.1200e4 * t1459 * t1460 - 0.73e2 / 0.300e3 * t322 * t1422 + t106 * t1465 / 0.180e3;
4587   t1469 = t265 * t1468;
4588   t1470 = t1469 * t126;
4589   t1474 = t478 * t4;
4590   t1476 = t1474 * t260 * t1386;
4591   t1477 = t654 * t347;
4592   t1478 = t1477 * t105;
4593   t1479 = t1478 * t314;
4594   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4595     v2rhotau[0] = -t1382 / 0.2e1 - t1385 * t1389 / 0.2e1 + 0.3e1 / 0.4e1 * t1393 * t1396 - 0.3e1 / 0.8e1 * t480 * t481 * t1470 - t1476 * t1479 / 0.12e2;
4596 
4597   t1483 = t381 * t263 * t701;
4598   t1484 = t479 * t138;
4599   t1485 = t478 * t1484;
4600   t1486 = t262 * t383;
4601   t1487 = t699 * t231;
4602   t1489 = t1486 * t1487 * t358;
4603   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4604     v2rhotau[1] = -t1485 * t1489 / 0.2e1 - t1483 / 0.2e1;
4605 
4606   t1493 = t1386 * t1387 * t370;
4607   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4608     v2rhotau[2] = -t1385 * t1493 / 0.2e1 - t1382 / 0.2e1;
4609 
4610   t1498 = t1486 * t1487 * t375;
4611   t1501 = t479 * t139;
4612   t1502 = t478 * t1501;
4613   t1503 = t262 * t986;
4614   t1505 = t1503 * t1487 * t470;
4615   t1508 = t390 * t665;
4616   t1516 = t146 * t216 * t385 / 0.8e1 + t146 * t216 / 0.4e1;
4617   t1517 = t1516 * t163;
4618   t1519 = t152 * t665;
4619   t1522 = t1006 * t696;
4620   t1525 = t1013 * t1290;
4621   t1527 = 0.1e1 / t1016 / tau[1];
4622   t1531 = t398 * t669;
4623   t1535 = (t152 * t1508 * t163 + t152 * t1517 + t1519 * t1007 / 0.16e2 + t1005 * t1522 / 0.16e2 + 0.3e1 / 0.512e3 * t1012 * t1525 * t1527 - t395 * t1531 / 0.8e1) * t44;
4624   t1545 = t1047 * t686;
4625   t1548 = t686 * t429;
4626   t1555 = -0.25e2 / 0.3e1 * t573 + 0.50e2 / 0.9e1 * t680 * t426 - 0.125e3 / 0.27e2 * t576;
4627   t1558 = -0.5e1 / 0.4e1 * t570 - 0.3e1 / 0.8e1 * t677 * t1048 - 0.3e1 / 0.8e1 * t416 * t1545 + 0.81e2 / 0.80e2 * t1054 * t1548 - 0.27e2 / 0.40e2 * t422 * t1555;
4628   t1563 = t689 * t439;
4629   t1568 = t1083 * t153;
4630   t1569 = t696 * t448;
4631   t1574 = t397 * t669;
4632   t1577 = t1535 * t172 / 0.24e2 - t674 * t408 / 0.9e1 + 0.292e3 / 0.2025e4 * t434 * t689 + 0.292e3 / 0.2025e4 * t196 * t1558 - 0.73e2 / 0.97200e5 * t1558 * t208 - 0.73e2 / 0.194400e6 * t1563 * t448 + 0.73e2 / 0.600e3 * t1078 * t670 - 0.73e2 / 0.1200e4 * t1568 * t1569 - 0.73e2 / 0.300e3 * t440 * t1531 + t215 * t1574 / 0.180e3;
4633   t1578 = t383 * t1577;
4634   t1580 = t548 * t1578 * t231;
4635   t1583 = t380 * t1486;
4636   t1584 = t1474 * t1583;
4637   t1585 = t699 * t465;
4638   t1586 = t1585 * t105;
4639   t1587 = t1586 * t432;
4640   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4641     v2rhotau[3] = -t1483 / 0.2e1 - t1485 * t1498 / 0.2e1 + 0.3e1 / 0.4e1 * t1502 * t1505 - 0.3e1 / 0.8e1 * t480 * t1580 - t1584 * t1587 / 0.12e2;
4642 
4643   t1590 = t543 * t543;
4644   t1591 = t744 * t1590;
4645   t1592 = t481 * t1591;
4646   t1595 = t488 * t488;
4647   t1596 = t1595 * t41;
4648   t1601 = 0.1e1 / t31;
4649   t1603 = t482 * t21 * t486 / 0.4e1 - t28 * t1601;
4650   t1608 = t780 * t775;
4651   t1611 = t276 * t33;
4652   t1612 = t1611 * t36;
4653   t1616 = (t30 * t1596 + t30 * t1603 * t41 - t1153 * t1157 / 0.8e1 + 0.3e1 / 0.512e3 * t770 * t1608 - t30 * t1612 / 0.16e2) * t44;
4654   t1621 = t516 * t516;
4655   t1623 = t502 * t1187;
4656   t1625 = t511 * t511;
4657   t1628 = t304 * params->b;
4658   t1629 = t87 * t91;
4659   t1630 = t1628 * t1629;
4660   t1632 = 0.3e1 / 0.32e2 * t1623 + 0.81e2 / 0.80e2 * t812 * t1625 - 0.15e2 / 0.256e3 * t1630;
4661   t1639 = t525 * t525;
4662   t1644 = 0.324e3 * t107 + 0.100e3 * t1629;
4663   t1647 = t86 * t91;
4664   t1650 = t105 * t33;
4665   t1653 = t112 * sigma[0];
4666   t1657 = t1616 * t55 / 0.24e2 + t496 * t499 / 0.12e2 + 0.292e3 / 0.2025e4 * t1621 + 0.292e3 / 0.2025e4 * t80 * t1632 - 0.73e2 / 0.97200e5 * t1632 * t96 - 0.73e2 / 0.97200e5 * t1211 * t525 + 0.73e2 / 0.388800e6 * t841 * t1639 - 0.73e2 / 0.194400e6 * t322 * t1644 + 0.25e2 / 0.472392e6 * t100 * t1647 + t1650 * t36 / 0.360e3 + t110 * t1653 * t116 / 0.384e3;
4667   t1663 = t1657 * t126 - t1237 * t514 / 0.6e1 + t875 * t1629 / 0.96e2;
4668   t1664 = t265 * t1663;
4669   t1665 = t481 * t1664;
4670   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4671     v2sigma2[0] = 0.3e1 / 0.4e1 * t480 * t1592 - 0.3e1 / 0.8e1 * t480 * t1665;
4672 
4673   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4674     v2sigma2[1] = 0.0e0;
4675 
4676   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4677     v2sigma2[2] = 0.0e0;
4678 
4679   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4680     v2sigma2[3] = 0.0e0;
4681 
4682   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4683     v2sigma2[4] = 0.0e0;
4684 
4685   t1668 = t610 * t610;
4686   t1669 = t986 * t1668;
4687   t1670 = t548 * t1669;
4688   t1673 = t555 * t555;
4689   t1674 = t1673 * t163;
4690   t1679 = 0.1e1 / t153;
4691   t1681 = t549 * t143 * t553 / 0.4e1 - t150 * t1679;
4692   t1686 = t1022 * t1017;
4693   t1689 = t394 * t155;
4694   t1690 = t1689 * t158;
4695   t1694 = (t152 * t1674 + t152 * t1681 * t163 - t1283 * t1287 / 0.8e1 + 0.3e1 / 0.512e3 * t1012 * t1686 - t152 * t1690 / 0.16e2) * t44;
4696   t1699 = t583 * t583;
4697   t1701 = t569 * t1317;
4698   t1703 = t578 * t578;
4699   t1706 = t422 * params->b;
4700   t1707 = t87 * t203;
4701   t1708 = t1706 * t1707;
4702   t1710 = 0.3e1 / 0.32e2 * t1701 + 0.81e2 / 0.80e2 * t1054 * t1703 - 0.15e2 / 0.256e3 * t1708;
4703   t1717 = t592 * t592;
4704   t1722 = 0.324e3 * t216 + 0.100e3 * t1707;
4705   t1725 = t86 * t203;
4706   t1728 = t105 * t155;
4707   t1731 = t112 * sigma[2];
4708   t1735 = t1694 * t172 / 0.24e2 + t563 * t566 / 0.12e2 + 0.292e3 / 0.2025e4 * t1699 + 0.292e3 / 0.2025e4 * t196 * t1710 - 0.73e2 / 0.97200e5 * t1710 * t208 - 0.73e2 / 0.97200e5 * t1341 * t592 + 0.73e2 / 0.388800e6 * t1083 * t1717 - 0.73e2 / 0.194400e6 * t440 * t1722 + 0.25e2 / 0.472392e6 * t100 * t1725 + t1728 * t158 / 0.360e3 + t110 * t1731 * t222 / 0.384e3;
4709   t1741 = t1735 * t231 - t1367 * t581 / 0.6e1 + t1117 * t1707 / 0.96e2;
4710   t1742 = t383 * t1741;
4711   t1743 = t548 * t1742;
4712   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4713     v2sigma2[5] = 0.3e1 / 0.4e1 * t480 * t1670 - 0.3e1 / 0.8e1 * t480 * t1743;
4714 
4715   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4716     v2sigmalapl[0] = 0.0e0;
4717 
4718   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4719     v2sigmalapl[1] = 0.0e0;
4720 
4721   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4722     v2sigmalapl[2] = 0.0e0;
4723 
4724   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4725     v2sigmalapl[3] = 0.0e0;
4726 
4727   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4728     v2sigmalapl[4] = 0.0e0;
4729 
4730   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4731     v2sigmalapl[5] = 0.0e0;
4732 
4733   t1747 = t1394 * t1387 * t543;
4734   t1750 = t488 * t620;
4735   t1751 = t1750 * t41;
4736   t1753 = t36 * t267;
4737   t1758 = -t482 * t1753 / 0.8e1 - t482 * t36 / 0.4e1;
4738   t1759 = t1758 * t41;
4739   t1765 = t113 * t779;
4740   t1769 = t491 * t624;
4741   t1773 = (t30 * t1751 + t30 * t1759 - t1410 * t1157 / 0.16e2 + t1153 * t1413 / 0.16e2 - 0.3e1 / 0.512e3 * t770 * t1765 * t1418 + t277 * t1769 / 0.8e1) * t44;
4742   t1782 = t502 * t1436;
4743   t1784 = t641 * t511;
4744   t1788 = 0.1e1 / t51 / t88;
4745   t1789 = t1788 * t84;
4746   t1791 = t1628 * t1789 * t86;
4747   t1793 = -0.3e1 / 0.8e1 * t632 * t1187 + 0.3e1 / 0.64e2 * t1782 + 0.81e2 / 0.80e2 * t812 * t1784 + 0.15e2 / 0.32e2 * t1791;
4748   t1802 = t651 * t525;
4749   t1809 = t1773 * t55 / 0.24e2 + t629 * t499 / 0.24e2 + 0.292e3 / 0.2025e4 * t516 * t644 + 0.292e3 / 0.2025e4 * t80 * t1793 - 0.73e2 / 0.97200e5 * t1793 * t96 - 0.73e2 / 0.194400e6 * t1454 * t525 + 0.73e2 / 0.600e3 * t1211 * t625 - 0.73e2 / 0.1200e4 * t1459 * t1802 + 0.73e2 / 0.300e3 * t322 * t1769 - t532 * t651 / 0.180e3;
4750   t1810 = t265 * t1809;
4751   t1812 = t481 * t1810 * t126;
4752   t1815 = t260 * t262;
4753   t1816 = t1474 * t1815;
4754   t1817 = t655 * t347;
4755   t1818 = t121 * t499;
4756   t1819 = t1817 * t1818;
4757   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4758     v2sigmatau[0] = 0.3e1 / 0.4e1 * t1393 * t1747 - 0.3e1 / 0.8e1 * t480 * t1812 + t1816 * t1819 / 0.32e2;
4759 
4760   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4761     v2sigmatau[1] = 0.0e0;
4762 
4763   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4764     v2sigmatau[2] = 0.0e0;
4765 
4766   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4767     v2sigmatau[3] = 0.0e0;
4768 
4769   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4770     v2sigmatau[4] = 0.0e0;
4771 
4772   t1823 = t1503 * t1487 * t610;
4773   t1826 = t555 * t665;
4774   t1827 = t1826 * t163;
4775   t1829 = t158 * t385;
4776   t1834 = -t549 * t1829 / 0.8e1 - t549 * t158 / 0.4e1;
4777   t1835 = t1834 * t163;
4778   t1841 = t219 * t1021;
4779   t1845 = t558 * t669;
4780   t1849 = (t152 * t1827 + t152 * t1835 - t1519 * t1287 / 0.16e2 + t1283 * t1522 / 0.16e2 - 0.3e1 / 0.512e3 * t1012 * t1841 * t1527 + t395 * t1845 / 0.8e1) * t44;
4781   t1858 = t569 * t1545;
4782   t1860 = t686 * t578;
4783   t1864 = 0.1e1 / t168 / t200;
4784   t1865 = t1864 * t84;
4785   t1867 = t1706 * t1865 * t86;
4786   t1869 = -0.3e1 / 0.8e1 * t677 * t1317 + 0.3e1 / 0.64e2 * t1858 + 0.81e2 / 0.80e2 * t1054 * t1860 + 0.15e2 / 0.32e2 * t1867;
4787   t1878 = t696 * t592;
4788   t1885 = t1849 * t172 / 0.24e2 + t674 * t566 / 0.24e2 + 0.292e3 / 0.2025e4 * t583 * t689 + 0.292e3 / 0.2025e4 * t196 * t1869 - 0.73e2 / 0.97200e5 * t1869 * t208 - 0.73e2 / 0.194400e6 * t1563 * t592 + 0.73e2 / 0.600e3 * t1341 * t670 - 0.73e2 / 0.1200e4 * t1568 * t1878 + 0.73e2 / 0.300e3 * t440 * t1845 - t599 * t696 / 0.180e3;
4789   t1886 = t383 * t1885;
4790   t1888 = t548 * t1886 * t231;
4791   t1891 = t380 * t262;
4792   t1892 = t1474 * t1891;
4793   t1893 = t700 * t465;
4794   t1894 = t121 * t566;
4795   t1895 = t1893 * t1894;
4796   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4797     v2sigmatau[5] = 0.3e1 / 0.4e1 * t1502 * t1823 - 0.3e1 / 0.8e1 * t480 * t1888 + t1892 * t1895 / 0.32e2;
4798 
4799   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4800     v2lapl2[0] = 0.0e0;
4801 
4802   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4803     v2lapl2[1] = 0.0e0;
4804 
4805   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4806     v2lapl2[2] = 0.0e0;
4807 
4808   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4809     v2lapltau[0] = 0.0e0;
4810 
4811   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4812     v2lapltau[1] = 0.0e0;
4813 
4814   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4815     v2lapltau[2] = 0.0e0;
4816 
4817   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
4818     v2lapltau[3] = 0.0e0;
4819 
4820   t1898 = t654 * t654;
4821   t1899 = t744 * t1898;
4822   t1901 = t481 * t1899 * t873;
4823   t1904 = t620 * t620;
4824   t1905 = t1904 * t41;
4825   t1907 = t19 * t624;
4826   t1914 = t24 * t1907 * t267 / 0.4e1 + t24 * t1907 / 0.4e1 + t28 * t36;
4827   t1919 = t771 * t779;
4828   t1921 = 0.1e1 / t774 / t35;
4829   t1922 = t1919 * t1921;
4830   t1925 = t34 * t775;
4831   t1929 = (t30 * t1905 + t30 * t1914 * t41 + t1410 * t1413 / 0.8e1 + 0.3e1 / 0.512e3 * t770 * t1922 - 0.3e1 / 0.16e2 * t277 * t1925) * t44;
4832   t1932 = t644 * t644;
4833   t1936 = t641 * t641;
4834   t1940 = 0.1e1 / t51 / t278;
4835   t1941 = t1940 * t84;
4836   t1945 = -0.3e1 / 0.4e1 * t632 * t1436 + 0.81e2 / 0.80e2 * t812 * t1936 - 0.15e2 / 0.4e1 * t1628 * t1941 * t86;
4837   t1956 = t33 * t775;
4838   t1959 = t1929 * t55 / 0.24e2 + 0.292e3 / 0.2025e4 * t1932 + 0.292e3 / 0.2025e4 * t80 * t1945 - 0.73e2 / 0.97200e5 * t1945 * t96 + 0.73e2 / 0.300e3 * t1454 * t625 + 0.1971e4 / 0.100e3 * t841 * t1922 - 0.73e2 / 0.200e3 * t322 * t1925 + t106 * t1956 / 0.120e3;
4839   t1960 = t265 * t1959;
4840   t1962 = t481 * t1960 * t126;
4841   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4842     v2tau2[0] = 0.3e1 / 0.4e1 * t480 * t1901 - 0.3e1 / 0.8e1 * t480 * t1962;
4843 
4844   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4845     v2tau2[1] = 0.0e0;
4846 
4847   t1965 = t699 * t699;
4848   t1966 = t986 * t1965;
4849   t1968 = t548 * t1966 * t1115;
4850   t1971 = t665 * t665;
4851   t1972 = t1971 * t163;
4852   t1974 = t141 * t669;
4853   t1981 = t146 * t1974 * t385 / 0.4e1 + t146 * t1974 / 0.4e1 + t150 * t158;
4854   t1986 = t1013 * t1021;
4855   t1988 = 0.1e1 / t1016 / t157;
4856   t1989 = t1986 * t1988;
4857   t1992 = t156 * t1017;
4858   t1996 = (t152 * t1972 + t152 * t1981 * t163 + t1519 * t1522 / 0.8e1 + 0.3e1 / 0.512e3 * t1012 * t1989 - 0.3e1 / 0.16e2 * t395 * t1992) * t44;
4859   t1999 = t689 * t689;
4860   t2003 = t686 * t686;
4861   t2007 = 0.1e1 / t168 / t396;
4862   t2008 = t2007 * t84;
4863   t2012 = -0.3e1 / 0.4e1 * t677 * t1545 + 0.81e2 / 0.80e2 * t1054 * t2003 - 0.15e2 / 0.4e1 * t1706 * t2008 * t86;
4864   t2023 = t155 * t1017;
4865   t2026 = t1996 * t172 / 0.24e2 + 0.292e3 / 0.2025e4 * t1999 + 0.292e3 / 0.2025e4 * t196 * t2012 - 0.73e2 / 0.97200e5 * t2012 * t208 + 0.73e2 / 0.300e3 * t1563 * t670 + 0.1971e4 / 0.100e3 * t1083 * t1989 - 0.73e2 / 0.200e3 * t440 * t1992 + t215 * t2023 / 0.120e3;
4866   t2027 = t383 * t2026;
4867   t2029 = t548 * t2027 * t231;
4868   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
4869     v2tau2[2] = 0.3e1 / 0.4e1 * t480 * t1968 - 0.3e1 / 0.8e1 * t480 * t2029;
4870 
4871 #ifndef XC_DONT_COMPILE_KXC
4872 
4873   if(order < 3) return;
4874 
4875 
4876   t2032 = t746 * t249;
4877   t2034 = t721 * t263 * t2032;
4878   t2035 = 0.3e1 * t2034;
4879   t2036 = t744 * t352;
4880   t2037 = t2036 * t880;
4881   t2039 = t261 * t263 * t2037;
4882   t2040 = 0.9e1 / 0.4e1 * t2039;
4883   t2041 = t353 * t711;
4884   t2043 = t909 * t263 * t2041;
4885   t2044 = t2043 / 0.2e1;
4886   t2046 = t721 * t739 * t722;
4887   t2047 = t881 * t249;
4888   t2049 = t721 * t263 * t2047;
4889   t2050 = 0.3e1 / 0.2e1 * t2049;
4890   t2053 = t8 * t139 * t923 * t238;
4891   t2054 = 0.5e1 / 0.36e2 * t2053;
4892   t2057 = t8 * t16 * t923 * t133;
4893   t2058 = 0.5e1 / 0.36e2 * t2057;
4894   t2059 = t750 * t272;
4895   t2065 = t30 * t750;
4896   t2068 = t779 * t21;
4897   t2076 = -0.3e1 / 0.4e1 * t24 * t2068 * t267 - 0.9e1 / 0.8e1 * t24 * t2068 - 0.2e1 * t28 * t279;
4898   t2079 = t30 * t760;
4899   t2082 = t769 * t771;
4900   t2083 = t772 * t775;
4901   t2084 = t2082 * t2083;
4902   t2087 = t764 * t858;
4903   t2091 = 0.1e1 / t768 / t39;
4904   t2092 = t30 * t2091;
4905   t2093 = t771 * t31;
4906   t2094 = t2093 * t340;
4907   t2098 = 0.1e1 / t846;
4908   t2099 = t771 * t2098;
4909   t2103 = t31 * t1160;
4910   t2104 = t2103 * t36;
4911   t2108 = (t30 * t2059 * t41 + 0.3e1 * t30 * t273 * t760 + 0.3e1 / 0.16e2 * t2065 * t765 + t30 * t2076 * t41 + 0.3e1 / 0.16e2 * t2079 * t765 + 0.9e1 / 0.512e3 * t763 * t2084 - 0.9e1 / 0.16e2 * t763 * t2087 + 0.3e1 / 0.4096e4 * t2092 * t2094 * t1921 - 0.27e2 / 0.512e3 * t770 * t2099 * t775 + 0.3e1 / 0.4e1 * t277 * t2104) * t44;
4912   t2116 = 0.1e1 / t52 / t89;
4913   t2117 = t50 * t2116;
4914   t2124 = sigma[0] * t2116;
4915   t2126 = -0.440e3 / 0.27e2 * tau[0] * t791 + 0.154e3 / 0.27e2 * t2124;
4916   t2127 = t2126 * t44;
4917   t2132 = t49 * t811;
4918   t2133 = t2132 * t813;
4919   t2136 = t805 * t826;
4920   t2141 = 0.1e1 / t74 / t809 / t73;
4921   t2142 = t67 * t2141;
4922   t2143 = t813 * t311;
4923   t2149 = params->b * t2126;
4924   t2154 = t87 * t2126;
4925   t2157 = 0.5e1 * t2149 * t70 + 0.50e2 / 0.3e1 * t816 * t308 + 0.25e2 / 0.9e1 * t68 * t2154;
4926   t2160 = t69 * t2124;
4927   t2162 = 0.3e1 / 0.4e1 * t2127 * t299 - 0.9e1 / 0.8e1 * t802 * t806 + 0.27e2 / 0.16e2 * t298 * t2133 - 0.9e1 / 0.8e1 * t298 * t2136 - 0.81e2 / 0.32e2 * t2142 * t2143 + 0.243e3 / 0.80e2 * t812 * t311 * t826 - 0.27e2 / 0.40e2 * t304 * t2157 - 0.308e3 / 0.243e3 * t2160;
4928   t2167 = t831 * t321;
4929   t2170 = t316 * t840;
4930   t2175 = t95 * t95;
4931   t2177 = 0.1e1 / t96 / t2175;
4932   t2178 = t80 * t2177;
4933   t2179 = t842 * t330;
4934   t2182 = t330 * t852;
4935   t2187 = 0.1e1 / t51 / t115;
4936   t2189 = t87 * t31 * t2187;
4937   t2191 = -0.3888e4 * t2104 - 0.334400e6 / 0.27e2 * t2189;
4938   t2197 = t1160 * t36;
4939   t2200 = t115 * t278;
4940   t2201 = 0.1e1 / t2200;
4941   t2202 = t114 * t2201;
4942   t2205 = t2108 * t55 / 0.24e2 - t785 * t290 / 0.3e1 + 0.11e2 / 0.9e1 * t285 * t792 - 0.154e3 / 0.81e2 * t45 * t2117 + 0.292e3 / 0.675e3 * t316 * t831 + 0.292e3 / 0.2025e4 * t80 * t2162 - 0.73e2 / 0.97200e5 * t2162 * t96 - 0.73e2 / 0.64800e5 * t2167 * t330 + 0.73e2 / 0.129600e6 * t2170 * t842 - 0.73e2 / 0.64800e5 * t836 * t852 - 0.73e2 / 0.259200e6 * t2178 * t2179 + 0.73e2 / 0.129600e6 * t841 * t2182 - 0.73e2 / 0.194400e6 * t322 * t2191 - 0.10450e5 / 0.1594323e7 * t100 * t101 * t2187 - t106 * t2197 / 0.30e2 - 0.5e1 / 0.16e2 * t110 * t2202;
4943   t2208 = t866 * t347 * t105;
4944   t2212 = t344 * t873 * params->e;
4945   t2218 = 0.1e1 / t872 / t124;
4946   t2219 = t120 * t2218;
4947   t2220 = t105 * params->e;
4948   t2221 = t2219 * t2220;
4949   t2228 = t2205 * t126 + 0.2e1 / 0.3e1 * t2208 * t314 + 0.2e1 / 0.9e1 * t2212 * t850 - 0.22e2 / 0.9e1 * t869 * t829 + 0.16e2 / 0.81e2 * t2221 * t2202 - 0.22e2 / 0.27e2 * t875 * t2189 + 0.308e3 / 0.81e2 * t349 * t2160;
4950   t2229 = t265 * t2228;
4951   t2231 = t261 * t263 * t2229;
4952   t2232 = 0.3e1 / 0.8e1 * t2231;
4953   t2233 = t358 * t897;
4954   t2235 = t932 * t933 * t2233;
4955   t2236 = t2235 / 0.2e1;
4956   t2237 = t249 * t728;
4957   t2239 = t909 * t910 * t2237;
4958   t2240 = t2239 / 0.2e1;
4959   t2241 = t734 * t262;
4960   t2243 = t261 * t2241 * t353;
4961   t2244 = t2243 / 0.4e1;
4962   t2246 = t261 * t739 * t881;
4963   t2248 = t2035 + t2040 - t2044 - t2046 - t2050 - t2054 - t2058 - t2232 - t2236 - t2240 + t2244 - 0.3e1 / 0.8e1 * t2246;
4964   t2250 = t261 * t739 * t746;
4965   t2252 = t264 * t264;
4966   t2253 = 0.1e1 / t2252;
4967   t2254 = t745 * t352;
4968   t2255 = t2253 * t2254;
4969   t2257 = t261 * t263 * t2255;
4970   t2258 = 0.9e1 / 0.4e1 * t2257;
4971   t2260 = 0.1e1 / t885 / t137;
4972   t2261 = t2260 * t17;
4973   t2262 = t888 * t358;
4974   t2263 = t238 * t2262;
4975   t2265 = t8 * t2261 * t2263;
4976   t2266 = t2265 / 0.9e1;
4977   t2267 = t886 * t255;
4978   t2269 = t8 * t2267 * t889;
4979   t2271 = t138 * t734;
4980   t2273 = t8 * t2271 * t359;
4981   t2274 = t2273 / 0.3e1;
4982   t2276 = 0.1e1 / t708 / t14;
4983   t2277 = t2276 * t17;
4984   t2278 = t711 * t249;
4985   t2279 = t133 * t2278;
4986   t2281 = t8 * t2277 * t2279;
4987   t2282 = t2281 / 0.9e1;
4988   t2283 = t709 * t255;
4989   t2285 = t8 * t2283 * t712;
4990   t2287 = t15 * t734;
4991   t2289 = t8 * t2287 * t250;
4992   t2290 = t2289 / 0.3e1;
4993   t2292 = t8 * t893 * t898;
4994   t2294 = t245 * t245;
4995   t2295 = 0.1e1 / t2294;
4996   t2296 = t9 * t2295;
4997   t2298 = -0.3e1 * t726 + 0.3e1 * t2296;
4998   t2299 = t238 * t2298;
4999   t2301 = t8 * t357 * t2299;
5000   t2302 = t2301 / 0.2e1;
5001   t2303 = -t2298;
5002   t2304 = t133 * t2303;
5003   t2306 = t8 * t244 * t2304;
5004   t2307 = t2306 / 0.2e1;
5005   t2309 = t8 * t716 * t729;
5006   t2311 = t353 * t728;
5007   t2313 = t721 * t263 * t2311;
5008   t2314 = 0.3e1 / 0.2e1 * t2313;
5009   t2315 = 0.3e1 / 0.4e1 * t2250 - t2258 + t2266 - t2269 / 0.6e1 + t2274 + t2282 - t2285 / 0.6e1 + t2290 - t2292 / 0.2e1 - t2302 - t2307 - t2309 / 0.2e1 - t2314;
5010   t2321 = t904 / 0.4e1;
5011   t2323 = t737 / 0.4e1;
5012   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5013     v3rho3[0] = t10 * (t2248 + t2315) - 0.3e1 * t724 + 0.9e1 / 0.4e1 * t748 - 0.3e1 / 0.2e1 * t900 + t2321 - 0.3e1 / 0.2e1 * t731 + t2323 - t718 - 0.3e1 / 0.4e1 * t741 - 0.9e1 / 0.8e1 * t883 - t891 / 0.2e1 - t895 - t714 / 0.2e1;
5014 
5015   t2329 = t370 * t728;
5016   t2331 = t909 * t910 * t2329;
5017   t2333 = t375 * t897;
5018   t2335 = t932 * t933 * t2333;
5019   t2337 = t923 * t238;
5020   t2338 = t9 * t358;
5021   t2340 = t932 * t2337 * t2338;
5022   t2343 = t381 * t2241 * t471;
5023   t2345 = t7 * t2276;
5024   t2346 = t5 * t2345;
5025   t2347 = t370 * t711;
5026   t2349 = t2346 * t910 * t2347;
5027   t2351 = t255 * t133;
5028   t2353 = t909 * t2351 * t911;
5029   t2354 = t2353 / 0.9e1;
5030   t2355 = t923 * t133;
5031   t2356 = t9 * t249;
5032   t2358 = t909 * t2355 * t2356;
5033   t2360 = t7 * t2260;
5034   t2361 = t5 * t2360;
5035   t2362 = t375 * t888;
5036   t2364 = t2361 * t933 * t2362;
5037   t2366 = t255 * t238;
5038   t2368 = t932 * t2366 * t934;
5039   t2369 = t2368 / 0.9e1;
5040   t2374 = t8 * t2287 * t371;
5041   t2377 = 0.1e1 / t254 / t725;
5042   t2378 = t15 * t2377;
5043   t2380 = t8 * t2378 * t925;
5044   t2382 = -t2046 / 0.3e1 - t2054 - t2058 - t2331 / 0.6e1 - t2335 / 0.6e1 + t2340 / 0.3e1 + t2343 / 0.12e2 + t2349 / 0.9e1 - t2354 - t2358 / 0.3e1 + t2364 / 0.9e1 - t2369 + t2243 / 0.6e1 - t2246 / 0.8e1 + t2250 / 0.4e1 + t2374 / 0.9e1 + 0.7e1 / 0.6e1 * t2380;
5045   t2384 = t8 * t2271 * t376;
5046   t2386 = t138 * t2377;
5047   t2388 = t8 * t2386 * t942;
5048   t2393 = t8 * t924 * t133;
5049   t2396 = t8 * t941 * t238;
5050   t2399 = t721 * t739 * t918;
5051   t2400 = t2399 / 0.3e1;
5052   t2401 = t881 * t370;
5053   t2403 = t721 * t263 * t2401;
5054   t2409 = t471 * t888;
5055   t2411 = t932 * t263 * t2409;
5056   t2414 = t948 * t739 * t949;
5057   t2415 = t2414 / 0.3e1;
5058   t2416 = t746 * t370;
5059   t2418 = t721 * t263 * t2416;
5060   t2419 = t923 * t262;
5061   t2420 = t353 * t9;
5062   t2422 = t721 * t2419 * t2420;
5063   t2423 = t471 * t897;
5064   t2425 = t948 * t263 * t2423;
5065   t2428 = t5 * t908 * t17;
5066   t2429 = t352 * t370;
5067   t2430 = t2429 * t249;
5068   t2431 = t1386 * t2430;
5069   t2432 = t2428 * t2431;
5070   t2434 = t2384 / 0.9e1 - 0.7e1 / 0.6e1 * t2388 - t2269 / 0.18e2 + 0.2e1 / 0.9e1 * t2273 - t2393 / 0.2e1 + t2396 / 0.2e1 - t2400 - t2403 / 0.2e1 - t2285 / 0.18e2 + 0.2e1 / 0.9e1 * t2289 - t2292 / 0.6e1 - t2309 / 0.6e1 - t2411 / 0.6e1 - t2415 + t2418 - t2422 - t2425 / 0.2e1 - t2432 / 0.3e1;
5071   t2437 = t10 * (t2382 + t2434) - t951 - t984 - t724 + t749 - t920 - t901 + t2321 + t944 - t732 + t2323;
5072   t2438 = t913 / 0.3e1;
5073   t2439 = t936 / 0.3e1;
5074   t2443 = -t2438 - t964 - t927 - t2439 - t975 - 0.2e1 / 0.3e1 * t718 - t741 / 0.2e1 - t884 - t892 - 0.2e1 / 0.3e1 * t895 - t715;
5075   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5076     v3rho3[1] = t2437 + t2443;
5077 
5078   t2444 = t959 * t249;
5079   t2446 = t2346 * t910 * t2444;
5080   t2448 = t965 * t249;
5081   t2450 = t909 * t910 * t2448;
5082   t2452 = t970 * t358;
5083   t2454 = t2361 * t933 * t2452;
5084   t2456 = t375 * t9;
5085   t2458 = t932 * t2337 * t2456;
5086   t2460 = t979 * t358;
5087   t2462 = t932 * t933 * t2460;
5088   t2465 = t381 * t739 * t988;
5089   t2468 = t381 * t739 * t1123;
5090   t2470 = t370 * t9;
5091   t2472 = t909 * t2355 * t2470;
5092   t2477 = t8 * t2283 * t960;
5093   t2480 = t8 * t716 * t966;
5094   t2483 = t8 * t2267 * t971;
5095   t2485 = -t2054 - t2058 + t2446 / 0.9e1 - t2450 / 0.6e1 + t2454 / 0.9e1 + t2458 / 0.3e1 - t2462 / 0.6e1 + t2465 / 0.4e1 - t2468 / 0.8e1 - t2472 / 0.3e1 + t2343 / 0.6e1 - t2354 - t2369 + t2243 / 0.12e2 - t2477 / 0.18e2 - t2480 / 0.6e1 - t2483 / 0.18e2;
5096   t2487 = t8 * t893 * t980;
5097   t2490 = t726 + 0.3e1 * t2296;
5098   t2491 = t238 * t2490;
5099   t2493 = t8 * t357 * t2491;
5100   t2495 = -t2490;
5101   t2496 = t133 * t2495;
5102   t2498 = t8 * t244 * t2496;
5103   t2505 = t988 * t358;
5104   t2507 = t948 * t263 * t2505;
5105   t2508 = t1123 * t358;
5106   t2510 = t948 * t263 * t2508;
5107   t2512 = t353 * t959;
5108   t2514 = t909 * t263 * t2512;
5109   t2517 = t948 * t739 * t976;
5110   t2519 = t353 * t965;
5111   t2521 = t721 * t263 * t2519;
5112   t2523 = t471 * t9;
5113   t2525 = t948 * t2419 * t2523;
5114   t2528 = t5 * t931 * t17;
5115   t2529 = t470 * t375;
5116   t2530 = t2529 * t358;
5117   t2531 = t1486 * t2530;
5118   t2532 = t2528 * t2531;
5119   t2534 = -t2487 / 0.6e1 - t2493 / 0.2e1 - t2498 / 0.2e1 + 0.2e1 / 0.9e1 * t2374 - t2380 / 0.3e1 + 0.2e1 / 0.9e1 * t2384 + t2388 / 0.3e1 + t2273 / 0.9e1 + t2507 - t2510 / 0.2e1 - t2514 / 0.6e1 - t2400 - t2517 / 0.3e1 - t2521 / 0.2e1 + t2525 + t2289 / 0.9e1 - t2415 - t2532 / 0.3e1;
5120   t2538 = t10 * (t2485 + t2534) - t951 - t954 / 0.2e1 - t978 + t991 - t920 - t983 + t2321 + t944 - t969 + t2323;
5121   t2541 = -t974 - t1126 - t2438 - 0.2e1 / 0.3e1 * t916 - t927 - t2439 - 0.2e1 / 0.3e1 * t939 - t963 - t719 - t742 - t896;
5122   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5123     v3rho3[2] = t2538 + t2541;
5124 
5125   t2542 = t992 * t390;
5126   t2548 = t152 * t992;
5127   t2551 = t1021 * t143;
5128   t2559 = -0.3e1 / 0.4e1 * t146 * t2551 * t385 - 0.9e1 / 0.8e1 * t146 * t2551 - 0.2e1 * t150 * t397;
5129   t2562 = t152 * t1002;
5130   t2565 = t1011 * t1013;
5131   t2566 = t1014 * t1017;
5132   t2567 = t2565 * t2566;
5133   t2570 = t1006 * t1100;
5134   t2574 = 0.1e1 / t1010 / t161;
5135   t2575 = t152 * t2574;
5136   t2576 = t1013 * t153;
5137   t2577 = t2576 * t458;
5138   t2581 = 0.1e1 / t1088;
5139   t2582 = t1013 * t2581;
5140   t2586 = t153 * t1290;
5141   t2587 = t2586 * t158;
5142   t2591 = (t152 * t2542 * t163 + 0.3e1 * t152 * t391 * t1002 + 0.3e1 / 0.16e2 * t2548 * t1007 + t152 * t2559 * t163 + 0.3e1 / 0.16e2 * t2562 * t1007 + 0.9e1 / 0.512e3 * t1005 * t2567 - 0.9e1 / 0.16e2 * t1005 * t2570 + 0.3e1 / 0.4096e4 * t2575 * t2577 * t1988 - 0.27e2 / 0.512e3 * t1012 * t2582 * t1017 + 0.3e1 / 0.4e1 * t395 * t2587) * t44;
5143   t2599 = 0.1e1 / t169 / t201;
5144   t2600 = t167 * t2599;
5145   t2607 = sigma[2] * t2599;
5146   t2609 = -0.440e3 / 0.27e2 * tau[1] * t1033 + 0.154e3 / 0.27e2 * t2607;
5147   t2610 = t2609 * t44;
5148   t2615 = t49 * t1053;
5149   t2616 = t2615 * t1055;
5150   t2619 = t1047 * t1068;
5151   t2624 = 0.1e1 / t190 / t1051 / t189;
5152   t2625 = t184 * t2624;
5153   t2626 = t1055 * t429;
5154   t2632 = params->b * t2609;
5155   t2637 = t87 * t2609;
5156   t2640 = 0.5e1 * t2632 * t186 + 0.50e2 / 0.3e1 * t1058 * t426 + 0.25e2 / 0.9e1 * t185 * t2637;
5157   t2643 = t69 * t2607;
5158   t2645 = 0.3e1 / 0.4e1 * t2610 * t417 - 0.9e1 / 0.8e1 * t1044 * t1048 + 0.27e2 / 0.16e2 * t416 * t2616 - 0.9e1 / 0.8e1 * t416 * t2619 - 0.81e2 / 0.32e2 * t2625 * t2626 + 0.243e3 / 0.80e2 * t1054 * t429 * t1068 - 0.27e2 / 0.40e2 * t422 * t2640 - 0.308e3 / 0.243e3 * t2643;
5159   t2650 = t1073 * t439;
5160   t2653 = t434 * t1082;
5161   t2658 = t207 * t207;
5162   t2660 = 0.1e1 / t208 / t2658;
5163   t2661 = t196 * t2660;
5164   t2662 = t1084 * t448;
5165   t2665 = t448 * t1094;
5166   t2670 = 0.1e1 / t168 / t221;
5167   t2672 = t87 * t153 * t2670;
5168   t2674 = -0.3888e4 * t2587 - 0.334400e6 / 0.27e2 * t2672;
5169   t2680 = t1290 * t158;
5170   t2683 = t221 * t396;
5171   t2684 = 0.1e1 / t2683;
5172   t2685 = t220 * t2684;
5173   t2688 = t2591 * t172 / 0.24e2 - t1027 * t408 / 0.3e1 + 0.11e2 / 0.9e1 * t403 * t1034 - 0.154e3 / 0.81e2 * t166 * t2600 + 0.292e3 / 0.675e3 * t434 * t1073 + 0.292e3 / 0.2025e4 * t196 * t2645 - 0.73e2 / 0.97200e5 * t2645 * t208 - 0.73e2 / 0.64800e5 * t2650 * t448 + 0.73e2 / 0.129600e6 * t2653 * t1084 - 0.73e2 / 0.64800e5 * t1078 * t1094 - 0.73e2 / 0.259200e6 * t2661 * t2662 + 0.73e2 / 0.129600e6 * t1083 * t2665 - 0.73e2 / 0.194400e6 * t440 * t2674 - 0.10450e5 / 0.1594323e7 * t100 * t211 * t2670 - t215 * t2680 / 0.30e2 - 0.5e1 / 0.16e2 * t110 * t2685;
5174   t2691 = t1108 * t465 * t105;
5175   t2695 = t462 * t1115 * params->e;
5176   t2701 = 0.1e1 / t1114 / t229;
5177   t2702 = t226 * t2701;
5178   t2703 = t2702 * t2220;
5179   t2710 = t2688 * t231 + 0.2e1 / 0.3e1 * t2691 * t432 + 0.2e1 / 0.9e1 * t2695 * t1092 - 0.22e2 / 0.9e1 * t1111 * t1071 + 0.16e2 / 0.81e2 * t2703 * t2685 - 0.22e2 / 0.27e2 * t1117 * t2672 + 0.308e3 / 0.81e2 * t467 * t2643;
5180   t2711 = t383 * t2710;
5181   t2713 = t381 * t263 * t2711;
5182   t2714 = 0.3e1 / 0.8e1 * t2713;
5183   t2715 = t370 * t965;
5184   t2717 = t909 * t910 * t2715;
5185   t2718 = t2717 / 0.2e1;
5186   t2719 = t375 * t979;
5187   t2721 = t932 * t933 * t2719;
5188   t2722 = t2721 / 0.2e1;
5189   t2723 = t382 * t382;
5190   t2724 = 0.1e1 / t2723;
5191   t2725 = t987 * t470;
5192   t2726 = t2724 * t2725;
5193   t2728 = t381 * t263 * t2726;
5194   t2729 = 0.9e1 / 0.4e1 * t2728;
5195   t2732 = t2343 / 0.4e1;
5196   t2733 = t959 * t370;
5197   t2734 = t133 * t2733;
5198   t2736 = t8 * t2277 * t2734;
5199   t2737 = t2736 / 0.9e1;
5200   t2738 = t970 * t375;
5201   t2739 = t238 * t2738;
5202   t2741 = t8 * t2261 * t2739;
5203   t2742 = t2741 / 0.9e1;
5204   t2744 = -0.3e1 * t726 - 0.3e1 * t2296;
5205   t2745 = t133 * t2744;
5206   t2747 = t8 * t244 * t2745;
5207   t2748 = t2747 / 0.2e1;
5208   t2749 = -t2054 - t2058 - t2714 - t2718 - t2722 - t2729 + 0.3e1 / 0.4e1 * t2465 - 0.3e1 / 0.8e1 * t2468 + t2732 + t2737 + t2742 - t2748;
5209   t2750 = -t2744;
5210   t2751 = t238 * t2750;
5211   t2753 = t8 * t357 * t2751;
5212   t2754 = t2753 / 0.2e1;
5213   t2759 = t2374 / 0.3e1;
5214   t2760 = t2384 / 0.3e1;
5215   t2761 = t988 * t375;
5216   t2763 = t948 * t263 * t2761;
5217   t2764 = 0.3e1 * t2763;
5218   t2765 = t986 * t470;
5219   t2766 = t2765 * t1122;
5220   t2768 = t381 * t263 * t2766;
5221   t2769 = 0.9e1 / 0.4e1 * t2768;
5222   t2770 = t471 * t970;
5223   t2772 = t932 * t263 * t2770;
5224   t2773 = t2772 / 0.2e1;
5225   t2774 = t1123 * t375;
5226   t2776 = t948 * t263 * t2774;
5227   t2777 = 0.3e1 / 0.2e1 * t2776;
5228   t2778 = t471 * t979;
5229   t2780 = t948 * t263 * t2778;
5230   t2781 = 0.3e1 / 0.2e1 * t2780;
5231   t2782 = -t2754 - t2477 / 0.6e1 - t2480 / 0.2e1 - t2483 / 0.6e1 - t2487 / 0.2e1 + t2759 + t2760 + t2764 + t2769 - t2773 - t2777 - t2781 - t2517;
5232   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5233     v3rho3[3] = t10 * (t2749 + t2782) - 0.3e1 / 0.4e1 * t954 - 0.3e1 * t978 + 0.9e1 / 0.4e1 * t990 - 0.3e1 / 0.2e1 * t982 + t2321 - 0.3e1 / 0.2e1 * t968 + t2323 - t973 / 0.2e1 - 0.9e1 / 0.8e1 * t1125 - t916 - t939 - t962 / 0.2e1;
5234 
5235   t2794 = t721 * t263 * t1133;
5236   t2798 = t261 * t739 * t544 / 0.6e1;
5237   t2800 = t261 * t263 * t1138;
5238   t2803 = t261 * t263 * t1247;
5239   t2804 = t709 * t262;
5240   t2805 = t544 * t711;
5241   t2809 = t543 * t249;
5242   t2810 = t2809 * t352;
5243   t2811 = t1394 * t2810;
5244   t2814 = t1247 * t249;
5245   t2817 = t544 * t728;
5246   t2822 = t2253 * t543 * t745;
5247   t2826 = t744 * t1246;
5248   t2827 = t2826 * t352;
5249   t2831 = t1137 * t880;
5250   t2835 = t791 * t44;
5251   t2836 = t2835 * t299;
5252   t2838 = t1182 * t806;
5253   t2840 = t502 * t2133;
5254   t2842 = t502 * t2136;
5255   t2846 = t298 * t49;
5256   t2847 = t811 * t511;
5257   t2848 = t2847 * t311;
5258   t2851 = t805 * t1201;
5259   t2863 = params->b * t791;
5260   t2864 = t2863 * t70;
5261   t2866 = t1193 * t308;
5262   t2868 = t505 * t823;
5263   t2871 = t68 * t87 * t791;
5264   t2873 = -0.55e2 / 0.9e1 * t2864 + 0.100e3 / 0.27e2 * t2866 - 0.25e2 / 0.36e2 * t2868 - 0.275e3 / 0.81e2 * t2871;
5265   t2876 = t2835 * t49;
5266   t2878 = -0.11e2 / 0.12e2 * t2836 - t2838 / 0.4e1 - 0.9e1 / 0.128e3 * t2840 + 0.3e1 / 0.64e2 * t2842 - 0.3e1 / 0.8e1 * t802 * t1187 + 0.9e1 / 0.8e1 * t2846 * t2848 - 0.3e1 / 0.4e1 * t298 * t2851 - 0.81e2 / 0.32e2 * t2142 * t511 * t813 + 0.81e2 / 0.40e2 * t812 * t1201 * t311 + 0.81e2 / 0.80e2 * t812 * t511 * t826 - 0.27e2 / 0.40e2 * t304 * t2873 + 0.22e2 / 0.81e2 * t2876;
5267   t2891 = t1206 * t321;
5268   t2900 = sigma[0] * t779;
5269   t2901 = t2900 * t36;
5270   t2904 = t87 * sigma[0] * t848;
5271   t2906 = 0.1944e4 * t2901 + 0.30400e5 / 0.9e1 * t2904;
5272   t2909 = -0.73e2 / 0.97200e5 * t2878 * t96 + 0.292e3 / 0.2025e4 * t831 * t516 + 0.584e3 / 0.2025e4 * t316 * t1206 + 0.292e3 / 0.2025e4 * t80 * t2878 - 0.2e1 / 0.9e1 * t1170 * t290 + 0.11e2 / 0.27e2 * t496 * t792 - 0.73e2 / 0.97200e5 * t2891 * t330 - 0.73e2 / 0.194400e6 * t1211 * t852 - 0.73e2 / 0.194400e6 * t2167 * t525 - 0.73e2 / 0.97200e5 * t836 * t1223 - 0.73e2 / 0.194400e6 * t322 * t2906;
5273   t2912 = t49 * t791;
5274   t2915 = t525 * t842;
5275   t2921 = t535 * t862;
5276   t2924 = t750 * t488;
5277   t2927 = t760 * t488;
5278   t2928 = t2927 * t41;
5279   t2930 = t272 * t1150;
5280   t2934 = t30 * t1142;
5281   t2937 = params->BLOC_b * t279;
5282   t2942 = t2937 * t483 / 0.4e1 + 0.5e1 / 0.8e1 * t2937 * t21;
5283   t2945 = t30 * t1150;
5284   t2956 = t769 * t113;
5285   t2957 = t1160 * t775;
5286   t2958 = t2956 * t2957;
5287   t2961 = t1156 * t336;
5288   t2964 = t771 * sigma[0];
5289   t2965 = t2964 * t116;
5290   t2969 = t113 * t772;
5291   t2975 = t30 * t2924 * t41 + t30 * t2928 + 0.2e1 * t30 * t2930 * t41 + t2934 * t765 / 0.8e1 + t30 * t2942 * t41 + t2945 * t765 / 0.8e1 + 0.3e1 / 0.512e3 * t1153 * t2084 - 0.3e1 / 0.16e2 * t1153 * t2087 - t2065 * t1157 / 0.16e2 - t2079 * t1157 / 0.16e2 - 0.3e1 / 0.256e3 * t763 * t2958 + t763 * t2961 / 0.4e1 - 0.3e1 / 0.4096e4 * t2092 * t2965 * t1921 + 0.21e2 / 0.512e3 * t770 * t2969 * t775 - 0.3e1 / 0.8e1 * t277 * t2901;
5292   t2976 = t2975 * t44;
5293   t2981 = t516 * t840;
5294   t2986 = t1223 * t330;
5295   t2989 = t525 * t852;
5296   t2994 = -0.2e1 / 0.9e1 * t285 * t1177 + 0.11e2 / 0.27e2 * t45 * t2912 - 0.73e2 / 0.259200e6 * t2178 * t2915 + 0.950e3 / 0.531441e6 * t100 * t528 * t848 + 0.3e1 / 0.32e2 * t110 * t2921 + t2976 * t55 / 0.24e2 + t785 * t499 / 0.24e2 + 0.73e2 / 0.388800e6 * t2981 * t842 + 0.73e2 / 0.194400e6 * t2170 * t1216 + 0.73e2 / 0.194400e6 * t841 * t2986 + 0.73e2 / 0.388800e6 * t841 * t2989 + t532 * t858 / 0.60e2;
5297   t2995 = t2909 + t2994;
5298   t2998 = t1234 * t347 * t105;
5299   t3002 = t539 * t873 * params->e;
5300   t3019 = t2995 * t126 + 0.4e1 / 0.9e1 * t2998 * t314 + 0.2e1 / 0.27e2 * t3002 * t850 - 0.22e2 / 0.27e2 * t1237 * t829 - t2208 * t514 / 0.12e2 - t2212 * t1221 / 0.18e2 + 0.4e1 / 0.9e1 * t869 * t1204 - 0.2e1 / 0.27e2 * t2221 * t2921 + t875 * t2904 / 0.4e1 - 0.22e2 / 0.27e2 * t349 * t2876;
5301   t3020 = t265 * t3019;
5302   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5303     v3rho2sigma[0] = -0.4e1 / 0.3e1 * t2794 - t2798 + 0.2e1 * t2800 - t2803 - t480 * t2804 * t2805 / 0.6e1 + 0.2e1 * t1385 * t2811 - t480 * t1132 * t2814 - t480 * t1132 * t2817 / 0.2e1 - 0.9e1 / 0.4e1 * t480 * t481 * t2822 + 0.3e1 / 0.2e1 * t480 * t481 * t2827 + 0.3e1 / 0.4e1 * t480 * t481 * t2831 - 0.3e1 / 0.8e1 * t480 * t481 * t3020;
5304 
5305   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5306     v3rho2sigma[1] = 0.0e0;
5307 
5308   t3025 = t948 * t263 * t1254;
5309   t3029 = t381 * t739 * t611 / 0.6e1;
5310   t3030 = t886 * t262;
5311   t3031 = t611 * t888;
5312   t3035 = t611 * t897;
5313   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5314     v3rho2sigma[2] = -0.4e1 / 0.3e1 * t3025 - t3029 - t480 * t3030 * t3031 / 0.6e1 - t480 * t1253 * t3035 / 0.2e1;
5315 
5316   t3041 = t17 * t2;
5317   t3042 = t3041 * t479;
5318   t3043 = t3042 * t1259;
5319   t3045 = t479 * t709;
5320   t3046 = t478 * t3045;
5321   t3047 = t543 * t370;
5322   t3048 = t3047 * t249;
5323   t3049 = t1386 * t3048;
5324   t3052 = t3047 * t352;
5325   t3053 = t1394 * t3052;
5326   t3056 = t1132 * t1247 * t370;
5327   t3059 = t734 * t2;
5328   t3060 = t3059 * t479;
5329   t3062 = t1132 * t544 * t9;
5330   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5331     v3rho2sigma[3] = -0.2e1 / 0.3e1 * t2794 - t2798 + t2800 - t2803 / 0.2e1 - 0.2e1 / 0.3e1 * t3043 - t3046 * t3049 / 0.6e1 + t1385 * t3053 - t480 * t3056 / 0.2e1 - t3060 * t3062 / 0.2e1;
5332 
5333   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5334     v3rho2sigma[4] = 0.0e0;
5335 
5336   t3066 = t3042 * t1264;
5337   t3068 = t479 * t886;
5338   t3069 = t478 * t3068;
5339   t3070 = t610 * t375;
5340   t3071 = t3070 * t358;
5341   t3072 = t1486 * t3071;
5342   t3076 = t1253 * t611 * t9;
5343   t3079 = t3042 * t1269;
5344   t3080 = t610 * t470;
5345   t3081 = t3080 * t358;
5346   t3082 = t1503 * t3081;
5347   t3084 = t3042 * t1378;
5348   t3087 = t1253 * t1377 * t358;
5349   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5350     v3rho2sigma[5] = -0.2e1 / 0.3e1 * t3025 - t3029 - 0.2e1 / 0.3e1 * t3066 - t3069 * t3072 / 0.6e1 + t3060 * t3076 / 0.2e1 + t3079 + t1485 * t3082 - t3084 / 0.2e1 - t480 * t3087 / 0.2e1;
5351 
5352   t3092 = t2804 * t544 * t959;
5353   t3096 = t1132 * t544 * t965;
5354   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5355     v3rho2sigma[6] = -0.4e1 / 0.3e1 * t3043 - t2798 - t480 * t3092 / 0.6e1 - t480 * t3096 / 0.2e1;
5356 
5357   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5358     v3rho2sigma[7] = 0.0e0;
5359 
5360   t3102 = t3030 * t611 * t970;
5361   t3105 = t3070 * t470;
5362   t3106 = t1503 * t3105;
5363   t3110 = t1253 * t1377 * t375;
5364   t3113 = t1253 * t611 * t979;
5365   t3118 = t548 * t2724 * t610 * t987;
5366   t3121 = t986 * t1376;
5367   t3123 = t548 * t3121 * t470;
5368   t3127 = t548 * t1267 * t1122;
5369   t3130 = t1336 * t439;
5370   t3139 = sigma[2] * t1021;
5371   t3140 = t3139 * t158;
5372   t3143 = t87 * sigma[2] * t1090;
5373   t3145 = 0.1944e4 * t3140 + 0.30400e5 / 0.9e1 * t3143;
5374   t3148 = t592 * t1084;
5375   t3154 = t602 * t1104;
5376   t3157 = t992 * t555;
5377   t3160 = t1002 * t555;
5378   t3161 = t3160 * t163;
5379   t3163 = t390 * t1280;
5380   t3167 = t152 * t1272;
5381   t3170 = params->BLOC_b * t397;
5382   t3175 = t3170 * t550 / 0.4e1 + 0.5e1 / 0.8e1 * t3170 * t143;
5383   t3178 = t152 * t1280;
5384   t3189 = t1011 * t219;
5385   t3190 = t1290 * t1017;
5386   t3191 = t3189 * t3190;
5387   t3194 = t1286 * t454;
5388   t3197 = t1013 * sigma[2];
5389   t3198 = t3197 * t222;
5390   t3202 = t219 * t1014;
5391   t3208 = t152 * t3157 * t163 + t152 * t3161 + 0.2e1 * t152 * t3163 * t163 + t3167 * t1007 / 0.8e1 + t152 * t3175 * t163 + t3178 * t1007 / 0.8e1 + 0.3e1 / 0.512e3 * t1283 * t2567 - 0.3e1 / 0.16e2 * t1283 * t2570 - t2548 * t1287 / 0.16e2 - t2562 * t1287 / 0.16e2 - 0.3e1 / 0.256e3 * t1005 * t3191 + t1005 * t3194 / 0.4e1 - 0.3e1 / 0.4096e4 * t2575 * t3198 * t1988 + 0.21e2 / 0.512e3 * t1012 * t3202 * t1017 - 0.3e1 / 0.8e1 * t395 * t3140;
5392   t3209 = t3208 * t44;
5393   t3214 = t49 * t1033;
5394   t3217 = -0.73e2 / 0.97200e5 * t3130 * t448 - 0.73e2 / 0.194400e6 * t1341 * t1094 - 0.73e2 / 0.194400e6 * t2650 * t592 - 0.73e2 / 0.97200e5 * t1078 * t1353 - 0.73e2 / 0.194400e6 * t440 * t3145 - 0.73e2 / 0.259200e6 * t2661 * t3148 + 0.950e3 / 0.531441e6 * t100 * t595 * t1090 + 0.3e1 / 0.32e2 * t110 * t3154 + t3209 * t172 / 0.24e2 - 0.2e1 / 0.9e1 * t403 * t1307 + 0.11e2 / 0.27e2 * t166 * t3214;
5395   t3220 = t583 * t1082;
5396   t3225 = t1353 * t448;
5397   t3228 = t592 * t1094;
5398   t3237 = t1033 * t44;
5399   t3238 = t3237 * t417;
5400   t3240 = t1312 * t1048;
5401   t3242 = t569 * t2616;
5402   t3244 = t569 * t2619;
5403   t3248 = t416 * t49;
5404   t3249 = t1053 * t578;
5405   t3250 = t3249 * t429;
5406   t3253 = t1047 * t1331;
5407   t3265 = params->b * t1033;
5408   t3266 = t3265 * t186;
5409   t3268 = t1323 * t426;
5410   t3270 = t572 * t1065;
5411   t3273 = t185 * t87 * t1033;
5412   t3275 = -0.55e2 / 0.9e1 * t3266 + 0.100e3 / 0.27e2 * t3268 - 0.25e2 / 0.36e2 * t3270 - 0.275e3 / 0.81e2 * t3273;
5413   t3278 = t3237 * t49;
5414   t3280 = -0.11e2 / 0.12e2 * t3238 - t3240 / 0.4e1 - 0.9e1 / 0.128e3 * t3242 + 0.3e1 / 0.64e2 * t3244 - 0.3e1 / 0.8e1 * t1044 * t1317 + 0.9e1 / 0.8e1 * t3248 * t3250 - 0.3e1 / 0.4e1 * t416 * t3253 - 0.81e2 / 0.32e2 * t2625 * t578 * t1055 + 0.81e2 / 0.40e2 * t1054 * t1331 * t429 + 0.81e2 / 0.80e2 * t1054 * t578 * t1068 - 0.27e2 / 0.40e2 * t422 * t3275 + 0.22e2 / 0.81e2 * t3278;
5415   t3289 = t1027 * t566 / 0.24e2 + 0.73e2 / 0.388800e6 * t3220 * t1084 + 0.73e2 / 0.194400e6 * t2653 * t1346 + 0.73e2 / 0.194400e6 * t1083 * t3225 + 0.73e2 / 0.388800e6 * t1083 * t3228 + t599 * t1100 / 0.60e2 + 0.292e3 / 0.2025e4 * t1073 * t583 + 0.584e3 / 0.2025e4 * t434 * t1336 + 0.292e3 / 0.2025e4 * t196 * t3280 - 0.73e2 / 0.97200e5 * t3280 * t208 - 0.2e1 / 0.9e1 * t1300 * t408 + 0.11e2 / 0.27e2 * t563 * t1034;
5416   t3290 = t3217 + t3289;
5417   t3293 = t1364 * t465 * t105;
5418   t3297 = t606 * t1115 * params->e;
5419   t3314 = t3290 * t231 + 0.4e1 / 0.9e1 * t3293 * t432 + 0.2e1 / 0.27e2 * t3297 * t1092 - 0.22e2 / 0.27e2 * t1367 * t1071 - t2691 * t581 / 0.12e2 - t2695 * t1351 / 0.18e2 + 0.4e1 / 0.9e1 * t1111 * t1334 - 0.2e1 / 0.27e2 * t2703 * t3154 + t1117 * t3143 / 0.4e1 - 0.22e2 / 0.27e2 * t467 * t3278;
5420   t3315 = t383 * t3314;
5421   t3316 = t548 * t3315;
5422   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5423     v3rho2sigma[8] = -0.4e1 / 0.3e1 * t3066 - t3029 + 0.2e1 * t3079 - t3084 - t480 * t3102 / 0.6e1 + 0.2e1 * t1485 * t3106 - t480 * t3110 - t480 * t3113 / 0.2e1 - 0.9e1 / 0.4e1 * t480 * t3118 + 0.3e1 / 0.2e1 * t480 * t3123 + 0.3e1 / 0.4e1 * t480 * t3127 - 0.3e1 / 0.8e1 * t480 * t3316;
5424 
5425   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5426     v3rho2lapl[0] = 0.0e0;
5427 
5428   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5429     v3rho2lapl[1] = 0.0e0;
5430 
5431   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5432     v3rho2lapl[2] = 0.0e0;
5433 
5434   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5435     v3rho2lapl[3] = 0.0e0;
5436 
5437   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5438     v3rho2lapl[4] = 0.0e0;
5439 
5440   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5441     v3rho2lapl[5] = 0.0e0;
5442 
5443   t3319 = t1478 * t829;
5444   t3323 = t1386 * t1387 * t711;
5445   t3326 = t1394 * t654;
5446   t3327 = t126 * t249;
5447   t3328 = t3327 * t352;
5448   t3329 = t3326 * t3328;
5449   t3332 = t262 * t2253;
5450   t3334 = t3332 * t1387 * t745;
5451   t3338 = t1386 * t1387 * t728;
5452   t3341 = t1468 * t126;
5453   t3343 = t1394 * t3341 * t352;
5454   t3347 = t1394 * t1387 * t880;
5455   t3351 = t5 * t720 * t17;
5456   t3352 = t3351 * t1389;
5457   t3356 = t261 * t739 * t656 / 0.6e1;
5458   t3358 = t5 * t260 * t17;
5459   t3359 = t3358 * t1396;
5460   t3362 = t1386 * t3341 * t249;
5461   t3365 = t261 * t263 * t1470;
5462   t3366 = t750 * t620;
5463   t3369 = t760 * t620;
5464   t3370 = t3369 * t41;
5465   t3372 = t272 * t1407;
5466   t3376 = t30 * t1399;
5467   t3384 = -t24 * t336 * t267 / 0.4e1 - 0.5e1 / 0.8e1 * t24 * t336;
5468   t3387 = t30 * t1407;
5469   t3398 = t1160 * t1418;
5470   t3399 = t2082 * t3398;
5471   t3402 = t764 * t1465;
5472   t3405 = t2093 * t116;
5473   t3407 = 0.1e1 / t774 / t623;
5474   t3414 = t780 * t624;
5475   t3417 = t30 * t3366 * t41 + t30 * t3370 + 0.2e1 * t30 * t3372 * t41 + t3376 * t765 / 0.8e1 + t30 * t3384 * t41 + t3387 * t765 / 0.8e1 + 0.3e1 / 0.512e3 * t1410 * t2084 - 0.3e1 / 0.16e2 * t1410 * t2087 + t2065 * t1413 / 0.16e2 + t2079 * t1413 / 0.16e2 + 0.3e1 / 0.256e3 * t763 * t3399 - t763 * t3402 / 0.4e1 + 0.3e1 / 0.4096e4 * t2092 * t3405 * t3407 - 0.21e2 / 0.512e3 * t770 * t773 * t1418 + 0.3e1 / 0.8e1 * t277 * t3414;
5476   t3418 = t3417 * t44;
5477   t3437 = t811 * t641;
5478   t3438 = t3437 * t311;
5479   t3441 = t805 * t1446;
5480   t3458 = 0.200e3 / 0.9e1 * t1194 - 0.500e3 / 0.27e2 * t1196 + 0.50e2 / 0.9e1 * t635 * t823 + 0.1000e4 / 0.81e2 * t1199;
5481   t3461 = 0.10e2 / 0.3e1 * t1183 + 0.5e1 / 0.4e1 * t1185 + 0.9e1 / 0.16e2 * t632 * t2133 - 0.3e1 / 0.8e1 * t632 * t2136 - 0.3e1 / 0.8e1 * t802 * t1436 + 0.9e1 / 0.8e1 * t2846 * t3438 - 0.3e1 / 0.4e1 * t298 * t3441 - 0.81e2 / 0.32e2 * t2142 * t641 * t813 + 0.81e2 / 0.40e2 * t812 * t1446 * t311 + 0.81e2 / 0.80e2 * t812 * t641 * t826 - 0.27e2 / 0.40e2 * t304 * t3458;
5482   t3466 = t1449 * t321;
5483   t3469 = t644 * t840;
5484   t3476 = t2170 * t31;
5485   t3481 = t2178 * t31;
5486   t3482 = t651 * t842;
5487   t3485 = t1465 * t330;
5488   t3488 = t651 * t852;
5489   t3493 = t779 * t624;
5490   t3496 = t3418 * t55 / 0.24e2 - 0.2e1 / 0.9e1 * t1426 * t290 + 0.11e2 / 0.27e2 * t629 * t792 + 0.292e3 / 0.2025e4 * t831 * t644 + 0.584e3 / 0.2025e4 * t316 * t1449 + 0.292e3 / 0.2025e4 * t80 * t3461 - 0.73e2 / 0.97200e5 * t3461 * t96 - 0.73e2 / 0.97200e5 * t3466 * t330 + 0.73e2 / 0.388800e6 * t3469 * t842 - 0.73e2 / 0.194400e6 * t1454 * t852 + 0.73e2 / 0.600e3 * t2167 * t625 - 0.73e2 / 0.600e3 * t3476 * t1460 - 0.73e2 / 0.150e3 * t836 * t1422 + 0.73e2 / 0.800e3 * t3481 * t3482 + 0.73e2 / 0.300e3 * t1459 * t3485 - 0.73e2 / 0.1200e4 * t1459 * t3488 + 0.73e2 / 0.100e3 * t322 * t3414 - t106 * t3493 / 0.60e2;
5491   t3497 = t265 * t3496;
5492   t3498 = t3497 * t126;
5493   t3502 = t720 * t1386;
5494   t3503 = t1474 * t3502;
5495   t3504 = t249 * t105;
5496   t3506 = t1477 * t3504 * t314;
5497   t3510 = t1474 * t260 * t1394;
5498   t3511 = t352 * t105;
5499   t3513 = t1477 * t3511 * t314;
5500   t3517 = t8 * t18 * t1386;
5501   t3518 = t3517 * t1479;
5502   t3520 = t1468 * t347;
5503   t3521 = t3520 * t105;
5504   t3522 = t3521 * t314;
5505   t3525 = t654 * t873;
5506   t3526 = t3525 * params->e;
5507   t3527 = t3526 * t850;
5508   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5509     v3rho2tau[0] = 0.11e2 / 0.36e2 * t1476 * t3319 - t3046 * t3323 / 0.6e1 + 0.2e1 * t1385 * t3329 - 0.9e1 / 0.4e1 * t1393 * t3334 - t1385 * t3338 / 0.2e1 + 0.3e1 / 0.2e1 * t1393 * t3343 + 0.3e1 / 0.4e1 * t1393 * t3347 - 0.4e1 / 0.3e1 * t3352 - t3356 + 0.2e1 * t3359 - t1385 * t3362 - t3365 - 0.3e1 / 0.8e1 * t480 * t481 * t3498 - 0.2e1 / 0.9e1 * t3503 * t3506 + t3510 * t3513 / 0.3e1 - 0.2e1 / 0.9e1 * t3518 - t1476 * t3522 / 0.6e1 - t1476 * t3527 / 0.36e2;
5510 
5511   t3531 = t5 * t947 * t17;
5512   t3532 = t3531 * t1489;
5513   t3536 = t381 * t739 * t701 / 0.6e1;
5514   t3538 = t1486 * t1487 * t888;
5515   t3542 = t1486 * t1487 * t897;
5516   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5517     v3rho2tau[1] = -0.4e1 / 0.3e1 * t3532 - t3536 - t3069 * t3538 / 0.6e1 - t1485 * t3542 / 0.2e1;
5518 
5519   t3548 = t3351 * t1493;
5520   t3550 = t1386 * t654;
5521   t3551 = t126 * t370;
5522   t3552 = t3551 * t249;
5523   t3553 = t3550 * t3552;
5524   t3556 = t3551 * t352;
5525   t3557 = t3326 * t3556;
5526   t3560 = t1386 * t3341 * t370;
5527   t3563 = t370 * t105;
5528   t3564 = t1477 * t3563;
5529   t3565 = t3564 * t314;
5530   t3568 = t3059 * t1384;
5531   t3570 = t1386 * t1387 * t9;
5532   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5533     v3rho2tau[2] = -0.2e1 / 0.3e1 * t3352 - t3356 + t3359 - t3365 / 0.2e1 - t3518 / 0.9e1 - 0.2e1 / 0.3e1 * t3548 - t3046 * t3553 / 0.6e1 + t1385 * t3557 - t1385 * t3560 / 0.2e1 - t3503 * t3565 / 0.9e1 - t3568 * t3570 / 0.2e1;
5534 
5535   t3574 = t3531 * t1498;
5536   t3576 = t1486 * t699;
5537   t3577 = t231 * t375;
5538   t3578 = t3577 * t358;
5539   t3579 = t3576 * t3578;
5540   t3582 = t3059 * t1484;
5541   t3584 = t1486 * t1487 * t9;
5542   t3587 = t3041 * t1501;
5543   t3588 = t3587 * t1505;
5544   t3589 = t1503 * t699;
5545   t3590 = t231 * t470;
5546   t3591 = t3590 * t358;
5547   t3592 = t3589 * t3591;
5548   t3594 = t3042 * t1580;
5549   t3596 = t1577 * t231;
5550   t3598 = t1486 * t3596 * t358;
5551   t3601 = t3041 * t4;
5552   t3602 = t3601 * t1583;
5553   t3603 = t3602 * t1587;
5554   t3605 = t947 * t1486;
5555   t3606 = t1474 * t3605;
5556   t3607 = t1585 * t121;
5557   t3608 = t407 * t358;
5558   t3609 = t167 * t3608;
5559   t3610 = t3607 * t3609;
5560   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5561     v3rho2tau[3] = -0.2e1 / 0.3e1 * t3532 - t3536 - 0.2e1 / 0.3e1 * t3574 - t3069 * t3579 / 0.6e1 + t3582 * t3584 / 0.2e1 + t3588 + t1485 * t3592 - t3594 / 0.2e1 - t1485 * t3598 / 0.2e1 - t3603 / 0.9e1 - t3606 * t3610 / 0.9e1;
5562 
5563   t3615 = t1386 * t1387 * t959;
5564   t3619 = t1386 * t1387 * t965;
5565   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5566     v3rho2tau[4] = -0.4e1 / 0.3e1 * t3548 - t3356 - t3046 * t3615 / 0.6e1 - t1385 * t3619 / 0.2e1;
5567 
5568   t3622 = t992 * t665;
5569   t3625 = t1002 * t665;
5570   t3626 = t3625 * t163;
5571   t3628 = t390 * t1516;
5572   t3632 = t152 * t1508;
5573   t3640 = -t146 * t454 * t385 / 0.4e1 - 0.5e1 / 0.8e1 * t146 * t454;
5574   t3643 = t152 * t1516;
5575   t3654 = t1290 * t1527;
5576   t3655 = t2565 * t3654;
5577   t3658 = t1006 * t1574;
5578   t3661 = t2576 * t222;
5579   t3663 = 0.1e1 / t1016 / t668;
5580   t3670 = t1022 * t669;
5581   t3673 = t152 * t3622 * t163 + t152 * t3626 + 0.2e1 * t152 * t3628 * t163 + t3632 * t1007 / 0.8e1 + t152 * t3640 * t163 + t3643 * t1007 / 0.8e1 + 0.3e1 / 0.512e3 * t1519 * t2567 - 0.3e1 / 0.16e2 * t1519 * t2570 + t2548 * t1522 / 0.16e2 + t2562 * t1522 / 0.16e2 + 0.3e1 / 0.256e3 * t1005 * t3655 - t1005 * t3658 / 0.4e1 + 0.3e1 / 0.4096e4 * t2575 * t3661 * t3663 - 0.21e2 / 0.512e3 * t1012 * t1015 * t1527 + 0.3e1 / 0.8e1 * t395 * t3670;
5582   t3674 = t3673 * t44;
5583   t3693 = t1053 * t686;
5584   t3694 = t3693 * t429;
5585   t3697 = t1047 * t1555;
5586   t3714 = 0.200e3 / 0.9e1 * t1324 - 0.500e3 / 0.27e2 * t1326 + 0.50e2 / 0.9e1 * t680 * t1065 + 0.1000e4 / 0.81e2 * t1329;
5587   t3717 = 0.10e2 / 0.3e1 * t1313 + 0.5e1 / 0.4e1 * t1315 + 0.9e1 / 0.16e2 * t677 * t2616 - 0.3e1 / 0.8e1 * t677 * t2619 - 0.3e1 / 0.8e1 * t1044 * t1545 + 0.9e1 / 0.8e1 * t3248 * t3694 - 0.3e1 / 0.4e1 * t416 * t3697 - 0.81e2 / 0.32e2 * t2625 * t686 * t1055 + 0.81e2 / 0.40e2 * t1054 * t1555 * t429 + 0.81e2 / 0.80e2 * t1054 * t686 * t1068 - 0.27e2 / 0.40e2 * t422 * t3714;
5588   t3722 = t1558 * t439;
5589   t3725 = t689 * t1082;
5590   t3732 = t2653 * t153;
5591   t3737 = t2661 * t153;
5592   t3738 = t696 * t1084;
5593   t3741 = t1574 * t448;
5594   t3744 = t696 * t1094;
5595   t3749 = t1021 * t669;
5596   t3752 = t3674 * t172 / 0.24e2 - 0.2e1 / 0.9e1 * t1535 * t408 + 0.11e2 / 0.27e2 * t674 * t1034 + 0.292e3 / 0.2025e4 * t1073 * t689 + 0.584e3 / 0.2025e4 * t434 * t1558 + 0.292e3 / 0.2025e4 * t196 * t3717 - 0.73e2 / 0.97200e5 * t3717 * t208 - 0.73e2 / 0.97200e5 * t3722 * t448 + 0.73e2 / 0.388800e6 * t3725 * t1084 - 0.73e2 / 0.194400e6 * t1563 * t1094 + 0.73e2 / 0.600e3 * t2650 * t670 - 0.73e2 / 0.600e3 * t3732 * t1569 - 0.73e2 / 0.150e3 * t1078 * t1531 + 0.73e2 / 0.800e3 * t3737 * t3738 + 0.73e2 / 0.300e3 * t1568 * t3741 - 0.73e2 / 0.1200e4 * t1568 * t3744 + 0.73e2 / 0.100e3 * t440 * t3670 - t215 * t3749 / 0.60e2;
5597   t3753 = t383 * t3752;
5598   t3755 = t548 * t3753 * t231;
5599   t3758 = t1586 * t1071;
5600   t3761 = t375 * t105;
5601   t3763 = t1585 * t3761 * t432;
5602   t3766 = t380 * t1503;
5603   t3767 = t1474 * t3766;
5604   t3768 = t470 * t105;
5605   t3770 = t1585 * t3768 * t432;
5606   t3774 = t262 * t2724;
5607   t3776 = t3774 * t1487 * t987;
5608   t3780 = t1486 * t1487 * t970;
5609   t3783 = t3577 * t470;
5610   t3784 = t3589 * t3783;
5611   t3790 = t1486 * t3596 * t375;
5612   t3793 = t1486 * t1487 * t979;
5613   t3797 = t1503 * t3596 * t470;
5614   t3801 = t1503 * t1487 * t1122;
5615   t3804 = t1577 * t465;
5616   t3805 = t3804 * t105;
5617   t3806 = t3805 * t432;
5618   t3809 = t699 * t1115;
5619   t3810 = t3809 * params->e;
5620   t3811 = t3810 * t1092;
5621   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5622     v3rho2tau[5] = -0.3e1 / 0.8e1 * t480 * t3755 + 0.11e2 / 0.36e2 * t1584 * t3758 - 0.2e1 / 0.9e1 * t3606 * t3763 + t3767 * t3770 / 0.3e1 - 0.2e1 / 0.9e1 * t3603 - 0.9e1 / 0.4e1 * t1502 * t3776 - t3069 * t3780 / 0.6e1 + 0.2e1 * t1485 * t3784 - 0.4e1 / 0.3e1 * t3574 + 0.2e1 * t3588 - t1485 * t3790 - t1485 * t3793 / 0.2e1 + 0.3e1 / 0.2e1 * t1502 * t3797 + 0.3e1 / 0.4e1 * t1502 * t3801 - t3594 - t3536 - t1584 * t3806 / 0.6e1 - t1584 * t3811 / 0.36e2;
5623 
5624   t3814 = t3042 * t1592;
5625   t3816 = t1132 * t1591 * t249;
5626   t3818 = t2253 * t1590;
5627   t3820 = t481 * t3818 * t352;
5628   t3824 = t481 * t1137 * t1246;
5629   t3828 = t3042 * t1665 / 0.2e1;
5630   t3830 = t1132 * t1664 * t249;
5631   t3833 = t744 * t1663;
5632   t3835 = t481 * t3833 * t352;
5633   t3838 = t272 * t1595;
5634   t3841 = t489 * t1150;
5635   t3844 = t30 * t1595;
5636   t3847 = t272 * t1603;
5637   t3850 = t30 * params->BLOC_b;
5638   t3852 = t21 * t41;
5639   t3853 = t486 * t33 * t3852;
5640   t3856 = t30 * t1603;
5641   t3867 = t769 * t31;
5642   t3868 = t779 * t775;
5643   t3869 = t3867 * t3868;
5644   t3880 = t276 * t279;
5645   t3881 = t3880 * t36;
5646   t3884 = t30 * t3838 * t41 + 0.2e1 * t30 * t3841 + t3844 * t765 / 0.16e2 + t30 * t3847 * t41 - t3850 * t3853 / 0.8e1 + t3856 * t765 / 0.16e2 - t2934 * t1157 / 0.8e1 - t2945 * t1157 / 0.8e1 - 0.3e1 / 0.256e3 * t1153 * t2958 + t1153 * t2961 / 0.4e1 + 0.3e1 / 0.512e3 * t763 * t3869 + 0.3e1 / 0.4096e4 * t2092 * t2099 * t1921 - 0.15e2 / 0.512e3 * t770 * t2103 * t775 - t763 * t1612 / 0.16e2 + t30 * t3881 / 0.8e1;
5647   t3885 = t3884 * t44;
5648   t3898 = t1182 * t1187;
5649   t3900 = t514 * t2848;
5650   t3902 = t502 * t2851;
5651   t3904 = t2132 * t1625;
5652   t3913 = t297 * t112;
5653   t3914 = t303 * params->b;
5654   t3915 = t3914 * t91;
5655   t3916 = t3913 * t3915;
5656   t3918 = t812 * params->b;
5657   t3919 = t91 * t84;
5658   t3920 = t86 * t311;
5659   t3921 = t3919 * t3920;
5660   t3922 = t3918 * t3921;
5661   t3924 = t87 * t326;
5662   t3925 = t1628 * t3924;
5663   t3927 = -t3898 / 0.4e1 - 0.9e1 / 0.64e2 * t3900 + 0.3e1 / 0.32e2 * t3902 + 0.9e1 / 0.16e2 * t298 * t3904 - 0.81e2 / 0.32e2 * t2142 * t1625 * t311 + 0.81e2 / 0.40e2 * t812 * t511 * t1201 - 0.25e2 / 0.128e3 * t3916 + 0.45e2 / 0.512e3 * t3922 + 0.5e1 / 0.16e2 * t3925;
5664   t3932 = t1632 * t321;
5665   t3944 = t1639 * t330;
5666   t3947 = t525 * t1223;
5667   t3952 = t1644 * t330;
5668   t3957 = -0.648e3 * t336 - 0.1600e4 / 0.3e1 * t3924;
5669   t3960 = t86 * t326;
5670   t3963 = t105 * t279;
5671   t3966 = t1653 * t340;
5672   t3969 = 0.73e2 / 0.194400e6 * t2981 * t1216 - 0.73e2 / 0.97200e5 * t1211 * t1223 + 0.73e2 / 0.388800e6 * t2170 * t1639 - 0.73e2 / 0.259200e6 * t2178 * t3944 + 0.73e2 / 0.194400e6 * t841 * t3947 - 0.73e2 / 0.194400e6 * t836 * t1644 + 0.73e2 / 0.388800e6 * t841 * t3952 - 0.73e2 / 0.194400e6 * t322 * t3957 - 0.50e2 / 0.177147e6 * t100 * t3960 - t3963 * t36 / 0.180e3 - t110 * t3966 / 0.48e2;
5673   t3970 = t3885 * t55 / 0.24e2 - t1616 * t290 / 0.9e1 + t1170 * t499 / 0.12e2 - 0.2e1 / 0.9e1 * t496 * t1177 + 0.584e3 / 0.2025e4 * t516 * t1206 + 0.292e3 / 0.2025e4 * t316 * t1632 + 0.292e3 / 0.2025e4 * t80 * t3927 - 0.73e2 / 0.97200e5 * t3927 * t96 - 0.73e2 / 0.194400e6 * t3932 * t330 - 0.73e2 / 0.97200e5 * t2891 * t525 + t3969;
5674   t3973 = t1657 * t347 * t105;
5675   t3988 = t3970 * t126 + 0.2e1 / 0.9e1 * t3973 * t314 - t2998 * t514 / 0.6e1 - t3002 * t1221 / 0.18e2 + 0.4e1 / 0.9e1 * t1237 * t1204 + t2212 * t1629 / 0.96e2 + t2221 * t3966 / 0.36e2 - t875 * t3924 / 0.18e2;
5676   t3989 = t265 * t3988;
5677   t3990 = t481 * t3989;
5678   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5679     v3rhosigma2[0] = t3814 + t480 * t3816 - 0.9e1 / 0.4e1 * t480 * t3820 + 0.3e1 / 0.2e1 * t480 * t3824 - t3828 - t480 * t3830 / 0.2e1 + 0.3e1 / 0.4e1 * t480 * t3835 - 0.3e1 / 0.8e1 * t480 * t3990;
5680 
5681   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5682     v3rhosigma2[1] = 0.0e0;
5683 
5684   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5685     v3rhosigma2[2] = 0.0e0;
5686 
5687   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5688     v3rhosigma2[3] = 0.0e0;
5689 
5690   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5691     v3rhosigma2[4] = 0.0e0;
5692 
5693   t3993 = t3042 * t1670;
5694   t3995 = t1253 * t1669 * t358;
5695   t3998 = t3042 * t1743 / 0.2e1;
5696   t4000 = t1253 * t1742 * t358;
5697   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5698     v3rhosigma2[5] = t3993 + t480 * t3995 - t3998 - t480 * t4000 / 0.2e1;
5699 
5700   t4004 = t1132 * t1591 * t370;
5701   t4007 = t1132 * t1664 * t370;
5702   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5703     v3rhosigma2[6] = t3814 + t480 * t4004 - t3828 - t480 * t4007 / 0.2e1;
5704 
5705   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5706     v3rhosigma2[7] = 0.0e0;
5707 
5708   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5709     v3rhosigma2[8] = 0.0e0;
5710 
5711   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5712     v3rhosigma2[9] = 0.0e0;
5713 
5714   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5715     v3rhosigma2[10] = 0.0e0;
5716 
5717   t4011 = t1253 * t1669 * t375;
5718   t4013 = t2724 * t1668;
5719   t4015 = t548 * t4013 * t470;
5720   t4019 = t548 * t1267 * t1376;
5721   t4023 = t1253 * t1742 * t375;
5722   t4026 = t986 * t1741;
5723   t4028 = t548 * t4026 * t470;
5724   t4031 = t390 * t1673;
5725   t4034 = t556 * t1280;
5726   t4037 = t152 * t1673;
5727   t4040 = t390 * t1681;
5728   t4043 = t152 * params->BLOC_b;
5729   t4045 = t143 * t163;
5730   t4046 = t553 * t155 * t4045;
5731   t4049 = t152 * t1681;
5732   t4060 = t1011 * t153;
5733   t4061 = t1021 * t1017;
5734   t4062 = t4060 * t4061;
5735   t4073 = t394 * t397;
5736   t4074 = t4073 * t158;
5737   t4077 = t152 * t4031 * t163 + 0.2e1 * t152 * t4034 + t4037 * t1007 / 0.16e2 + t152 * t4040 * t163 - t4043 * t4046 / 0.8e1 + t4049 * t1007 / 0.16e2 - t3167 * t1287 / 0.8e1 - t3178 * t1287 / 0.8e1 - 0.3e1 / 0.256e3 * t1283 * t3191 + t1283 * t3194 / 0.4e1 + 0.3e1 / 0.512e3 * t1005 * t4062 + 0.3e1 / 0.4096e4 * t2575 * t2582 * t1988 - 0.15e2 / 0.512e3 * t1012 * t2586 * t1017 - t1005 * t1690 / 0.16e2 + t152 * t4074 / 0.8e1;
5738   t4078 = t4077 * t44;
5739   t4091 = t1312 * t1317;
5740   t4093 = t581 * t3250;
5741   t4095 = t569 * t3253;
5742   t4097 = t2615 * t1703;
5743   t4106 = t415 * t112;
5744   t4107 = t421 * params->b;
5745   t4108 = t4107 * t203;
5746   t4109 = t4106 * t4108;
5747   t4111 = t1054 * params->b;
5748   t4112 = t203 * t84;
5749   t4113 = t86 * t429;
5750   t4114 = t4112 * t4113;
5751   t4115 = t4111 * t4114;
5752   t4117 = t87 * t444;
5753   t4118 = t1706 * t4117;
5754   t4120 = -t4091 / 0.4e1 - 0.9e1 / 0.64e2 * t4093 + 0.3e1 / 0.32e2 * t4095 + 0.9e1 / 0.16e2 * t416 * t4097 - 0.81e2 / 0.32e2 * t2625 * t1703 * t429 + 0.81e2 / 0.40e2 * t1054 * t578 * t1331 - 0.25e2 / 0.128e3 * t4109 + 0.45e2 / 0.512e3 * t4115 + 0.5e1 / 0.16e2 * t4118;
5755   t4125 = t1710 * t439;
5756   t4137 = t1717 * t448;
5757   t4140 = t592 * t1353;
5758   t4145 = t1722 * t448;
5759   t4150 = -0.648e3 * t454 - 0.1600e4 / 0.3e1 * t4117;
5760   t4153 = t86 * t444;
5761   t4156 = t105 * t397;
5762   t4159 = t1731 * t458;
5763   t4162 = 0.73e2 / 0.194400e6 * t3220 * t1346 - 0.73e2 / 0.97200e5 * t1341 * t1353 + 0.73e2 / 0.388800e6 * t2653 * t1717 - 0.73e2 / 0.259200e6 * t2661 * t4137 + 0.73e2 / 0.194400e6 * t1083 * t4140 - 0.73e2 / 0.194400e6 * t1078 * t1722 + 0.73e2 / 0.388800e6 * t1083 * t4145 - 0.73e2 / 0.194400e6 * t440 * t4150 - 0.50e2 / 0.177147e6 * t100 * t4153 - t4156 * t158 / 0.180e3 - t110 * t4159 / 0.48e2;
5764   t4163 = t4078 * t172 / 0.24e2 - t1694 * t408 / 0.9e1 + t1300 * t566 / 0.12e2 - 0.2e1 / 0.9e1 * t563 * t1307 + 0.584e3 / 0.2025e4 * t583 * t1336 + 0.292e3 / 0.2025e4 * t434 * t1710 + 0.292e3 / 0.2025e4 * t196 * t4120 - 0.73e2 / 0.97200e5 * t4120 * t208 - 0.73e2 / 0.194400e6 * t4125 * t448 - 0.73e2 / 0.97200e5 * t3130 * t592 + t4162;
5765   t4166 = t1735 * t465 * t105;
5766   t4181 = t4163 * t231 + 0.2e1 / 0.9e1 * t4166 * t432 - t3293 * t581 / 0.6e1 - t3297 * t1351 / 0.18e2 + 0.4e1 / 0.9e1 * t1367 * t1334 + t2695 * t1707 / 0.96e2 + t2703 * t4159 / 0.36e2 - t1117 * t4117 / 0.18e2;
5767   t4182 = t383 * t4181;
5768   t4183 = t548 * t4182;
5769   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5770     v3rhosigma2[11] = t3993 + t480 * t4011 - 0.9e1 / 0.4e1 * t480 * t4015 + 0.3e1 / 0.2e1 * t480 * t4019 - t3998 - t480 * t4023 / 0.2e1 + 0.3e1 / 0.4e1 * t480 * t4028 - 0.3e1 / 0.8e1 * t480 * t4183;
5771 
5772   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5773     v3rhosigmalapl[0] = 0.0e0;
5774 
5775   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5776     v3rhosigmalapl[1] = 0.0e0;
5777 
5778   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5779     v3rhosigmalapl[2] = 0.0e0;
5780 
5781   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5782     v3rhosigmalapl[3] = 0.0e0;
5783 
5784   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5785     v3rhosigmalapl[4] = 0.0e0;
5786 
5787   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5788     v3rhosigmalapl[5] = 0.0e0;
5789 
5790   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5791     v3rhosigmalapl[6] = 0.0e0;
5792 
5793   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5794     v3rhosigmalapl[7] = 0.0e0;
5795 
5796   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5797     v3rhosigmalapl[8] = 0.0e0;
5798 
5799   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5800     v3rhosigmalapl[9] = 0.0e0;
5801 
5802   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5803     v3rhosigmalapl[10] = 0.0e0;
5804 
5805   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5806     v3rhosigmalapl[11] = 0.0e0;
5807 
5808   t4186 = t3358 * t1747;
5809   t4187 = t126 * t543;
5810   t4188 = t4187 * t249;
5811   t4189 = t3326 * t4188;
5812   t4191 = t3332 * t654;
5813   t4192 = t4187 * t352;
5814   t4193 = t4191 * t4192;
5815   t4197 = t1394 * t3341 * t543;
5816   t4200 = t543 * t105;
5817   t4201 = t1477 * t4200;
5818   t4202 = t4201 * t314;
5819   t4206 = t1394 * t1387 * t1246;
5820   t4210 = t3042 * t1812 / 0.2e1;
5821   t4211 = t1809 * t126;
5822   t4213 = t1386 * t4211 * t249;
5823   t4217 = t1394 * t4211 * t352;
5824   t4221 = t1150 * t620;
5825   t4222 = t4221 * t41;
5826   t4224 = t488 * t1407;
5827   t4225 = t4224 * t41;
5828   t4227 = t30 * t1750;
5829   t4230 = t272 * t1758;
5830   t4237 = t1145 * t1753 / 0.8e1 + 0.3e1 / 0.8e1 * t1145 * t36;
5831   t4240 = t30 * t1758;
5832   t4259 = t779 * t1418;
5833   t4260 = t2956 * t4259;
5834   t4263 = t2964 * t2098;
5835   t4270 = t1156 * t651;
5836   t4273 = t1165 * t624;
5837   t4276 = t763 * t1751 + t30 * t4222 + t30 * t4225 + t4227 * t765 / 0.16e2 + t30 * t4230 * t41 + t30 * t4237 * t41 + t4240 * t765 / 0.16e2 - t3376 * t1157 / 0.16e2 - t3387 * t1157 / 0.16e2 - 0.3e1 / 0.512e3 * t1410 * t2958 + t1410 * t2961 / 0.8e1 + t2934 * t1413 / 0.16e2 + t2945 * t1413 / 0.16e2 + 0.3e1 / 0.512e3 * t1153 * t3399 - t1153 * t3402 / 0.8e1 - 0.3e1 / 0.512e3 * t763 * t4260 - 0.3e1 / 0.4096e4 * t2092 * t4263 * t3407 + 0.9e1 / 0.256e3 * t770 * t1161 * t1418 + t763 * t4270 / 0.8e1 - t277 * t4273 / 0.4e1;
5838   t4277 = t4276 * t44;
5839   t4293 = t632 * t49;
5840   t4298 = t1182 * t1436;
5841   t4300 = t514 * t3438;
5842   t4302 = t502 * t3441;
5843   t4304 = t3437 * t511;
5844   t4310 = t1446 * t511;
5845   t4313 = t641 * t1201;
5846   t4316 = t3914 * t1788;
5847   t4317 = t3913 * t4316;
5848   t4319 = t1789 * t3920;
5849   t4320 = t3918 * t4319;
5850   t4323 = 0.5e1 / 0.8e1 * t1623 + 0.9e1 / 0.16e2 * t4293 * t2848 - 0.3e1 / 0.8e1 * t632 * t2851 - t4298 / 0.8e1 - 0.9e1 / 0.128e3 * t4300 + 0.3e1 / 0.64e2 * t4302 + 0.9e1 / 0.16e2 * t2846 * t4304 - 0.81e2 / 0.32e2 * t2142 * t1784 * t311 + 0.81e2 / 0.80e2 * t812 * t4310 + 0.81e2 / 0.80e2 * t812 * t4313 + 0.25e2 / 0.16e2 * t4317 - 0.45e2 / 0.64e2 * t4320 - 0.65e2 / 0.32e2 * t1630;
5851   t4328 = t1793 * t321;
5852   t4335 = t4277 * t55 / 0.24e2 - t1773 * t290 / 0.9e1 + t1426 * t499 / 0.24e2 - t629 * t1177 / 0.9e1 + 0.292e3 / 0.2025e4 * t1206 * t644 + 0.292e3 / 0.2025e4 * t516 * t1449 + 0.292e3 / 0.2025e4 * t316 * t1793 + 0.292e3 / 0.2025e4 * t80 * t4323 - 0.73e2 / 0.97200e5 * t4323 * t96 - 0.73e2 / 0.194400e6 * t4328 * t330 - 0.73e2 / 0.194400e6 * t3466 * t525 + 0.73e2 / 0.388800e6 * t3469 * t1216;
5853   t4340 = t2981 * t31;
5854   t4347 = t651 * t1216;
5855   t4350 = t1465 * t525;
5856   t4353 = t651 * t1223;
5857   t4358 = t841 * sigma[0];
5858   t4365 = -0.73e2 / 0.194400e6 * t1454 * t1223 + 0.73e2 / 0.600e3 * t2891 * t625 - 0.73e2 / 0.1200e4 * t4340 * t1460 - 0.73e2 / 0.300e3 * t1211 * t1422 - 0.73e2 / 0.1200e4 * t3476 * t1802 + 0.73e2 / 0.800e3 * t3481 * t4347 + 0.73e2 / 0.600e3 * t1459 * t4350 - 0.73e2 / 0.1200e4 * t1459 * t4353 + 0.73e2 / 0.300e3 * t836 * t1769 - 0.73e2 / 0.600e3 * t4358 * t1460 - 0.73e2 / 0.150e3 * t322 * t4273 + t532 * t1465 / 0.90e2;
5859   t4366 = t4335 + t4365;
5860   t4367 = t265 * t4366;
5861   t4369 = t481 * t4367 * t126;
5862   t4372 = t1809 * t347;
5863   t4373 = t4372 * t105;
5864   t4374 = t4373 * t314;
5865   t4377 = t3601 * t1815;
5866   t4379 = t4377 * t1819 / 0.24e2;
5867   t4381 = t69 * t54 * t249;
5868   t4382 = t1478 * t4381;
5869   t4386 = t69 * t54 * t352;
5870   t4387 = t1478 * t4386;
5871   t4390 = t1469 * t347;
5872   t4391 = t4390 * t1818;
5873   t4394 = t3526 * t1221;
5874   t4397 = t121 * t1177;
5875   t4398 = t1817 * t4397;
5876   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5877     v3rhosigmatau[0] = t4186 + t1385 * t4189 - 0.9e1 / 0.4e1 * t1393 * t4193 + 0.3e1 / 0.4e1 * t1393 * t4197 + t3510 * t4202 / 0.6e1 + 0.3e1 / 0.4e1 * t1393 * t4206 - t4210 - t1385 * t4213 / 0.2e1 + 0.3e1 / 0.4e1 * t1393 * t4217 - 0.3e1 / 0.8e1 * t480 * t4369 - t1476 * t4374 / 0.12e2 + t4379 + t3503 * t4382 / 0.24e2 - t3510 * t4387 / 0.16e2 + t1816 * t4391 / 0.32e2 + t1476 * t4394 / 0.96e2 - t1816 * t4398 / 0.12e2;
5878 
5879   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5880     v3rhosigmatau[1] = 0.0e0;
5881 
5882   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5883     v3rhosigmatau[2] = 0.0e0;
5884 
5885   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5886     v3rhosigmatau[3] = 0.0e0;
5887 
5888   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5889     v3rhosigmatau[4] = 0.0e0;
5890 
5891   t4401 = t3587 * t1823;
5892   t4402 = t231 * t610;
5893   t4403 = t4402 * t358;
5894   t4404 = t3589 * t4403;
5895   t4407 = t3042 * t1888 / 0.2e1;
5896   t4408 = t1885 * t231;
5897   t4410 = t1486 * t4408 * t358;
5898   t4413 = t3601 * t1891;
5899   t4415 = t4413 * t1895 / 0.24e2;
5900   t4417 = t69 * t171 * t358;
5901   t4418 = t1586 * t4417;
5902   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5903     v3rhosigmatau[5] = t4401 + t1485 * t4404 - t4407 - t1485 * t4410 / 0.2e1 + t4415 + t3606 * t4418 / 0.24e2;
5904 
5905   t4421 = t4187 * t370;
5906   t4422 = t3326 * t4421;
5907   t4425 = t1386 * t4211 * t370;
5908   t4429 = t69 * t54 * t370;
5909   t4430 = t1478 * t4429;
5910   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5911     v3rhosigmatau[6] = t4186 + t1385 * t4422 - t4210 - t1385 * t4425 / 0.2e1 + t4379 + t3503 * t4430 / 0.24e2;
5912 
5913   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5914     v3rhosigmatau[7] = 0.0e0;
5915 
5916   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5917     v3rhosigmatau[8] = 0.0e0;
5918 
5919   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5920     v3rhosigmatau[9] = 0.0e0;
5921 
5922   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5923     v3rhosigmatau[10] = 0.0e0;
5924 
5925   t4433 = t4402 * t375;
5926   t4434 = t3589 * t4433;
5927   t4436 = t3774 * t699;
5928   t4437 = t4402 * t470;
5929   t4438 = t4436 * t4437;
5930   t4442 = t1503 * t3596 * t610;
5931   t4445 = t610 * t105;
5932   t4446 = t1585 * t4445;
5933   t4447 = t4446 * t432;
5934   t4451 = t1503 * t1487 * t1376;
5935   t4455 = t1486 * t4408 * t375;
5936   t4459 = t1503 * t4408 * t470;
5937   t4463 = t1280 * t665;
5938   t4464 = t4463 * t163;
5939   t4466 = t555 * t1516;
5940   t4467 = t4466 * t163;
5941   t4469 = t152 * t1826;
5942   t4472 = t390 * t1834;
5943   t4479 = t1275 * t1829 / 0.8e1 + 0.3e1 / 0.8e1 * t1275 * t158;
5944   t4482 = t152 * t1834;
5945   t4501 = t1021 * t1527;
5946   t4502 = t3189 * t4501;
5947   t4505 = t3197 * t2581;
5948   t4512 = t1286 * t696;
5949   t4515 = t1295 * t669;
5950   t4518 = t1005 * t1827 + t152 * t4464 + t152 * t4467 + t4469 * t1007 / 0.16e2 + t152 * t4472 * t163 + t152 * t4479 * t163 + t4482 * t1007 / 0.16e2 - t3632 * t1287 / 0.16e2 - t3643 * t1287 / 0.16e2 - 0.3e1 / 0.512e3 * t1519 * t3191 + t1519 * t3194 / 0.8e1 + t3167 * t1522 / 0.16e2 + t3178 * t1522 / 0.16e2 + 0.3e1 / 0.512e3 * t1283 * t3655 - t1283 * t3658 / 0.8e1 - 0.3e1 / 0.512e3 * t1005 * t4502 - 0.3e1 / 0.4096e4 * t2575 * t4505 * t3663 + 0.9e1 / 0.256e3 * t1012 * t1291 * t1527 + t1005 * t4512 / 0.8e1 - t395 * t4515 / 0.4e1;
5951   t4519 = t4518 * t44;
5952   t4535 = t677 * t49;
5953   t4540 = t1312 * t1545;
5954   t4542 = t581 * t3694;
5955   t4544 = t569 * t3697;
5956   t4546 = t3693 * t578;
5957   t4552 = t1555 * t578;
5958   t4555 = t686 * t1331;
5959   t4558 = t4107 * t1864;
5960   t4559 = t4106 * t4558;
5961   t4561 = t1865 * t4113;
5962   t4562 = t4111 * t4561;
5963   t4565 = 0.5e1 / 0.8e1 * t1701 + 0.9e1 / 0.16e2 * t4535 * t3250 - 0.3e1 / 0.8e1 * t677 * t3253 - t4540 / 0.8e1 - 0.9e1 / 0.128e3 * t4542 + 0.3e1 / 0.64e2 * t4544 + 0.9e1 / 0.16e2 * t3248 * t4546 - 0.81e2 / 0.32e2 * t2625 * t1860 * t429 + 0.81e2 / 0.80e2 * t1054 * t4552 + 0.81e2 / 0.80e2 * t1054 * t4555 + 0.25e2 / 0.16e2 * t4559 - 0.45e2 / 0.64e2 * t4562 - 0.65e2 / 0.32e2 * t1708;
5964   t4570 = t1869 * t439;
5965   t4577 = t4519 * t172 / 0.24e2 - t1849 * t408 / 0.9e1 + t1535 * t566 / 0.24e2 - t674 * t1307 / 0.9e1 + 0.292e3 / 0.2025e4 * t1336 * t689 + 0.292e3 / 0.2025e4 * t583 * t1558 + 0.292e3 / 0.2025e4 * t434 * t1869 + 0.292e3 / 0.2025e4 * t196 * t4565 - 0.73e2 / 0.97200e5 * t4565 * t208 - 0.73e2 / 0.194400e6 * t4570 * t448 - 0.73e2 / 0.194400e6 * t3722 * t592 + 0.73e2 / 0.388800e6 * t3725 * t1346;
5966   t4582 = t3220 * t153;
5967   t4589 = t696 * t1346;
5968   t4592 = t1574 * t592;
5969   t4595 = t696 * t1353;
5970   t4600 = t1083 * sigma[2];
5971   t4607 = -0.73e2 / 0.194400e6 * t1563 * t1353 + 0.73e2 / 0.600e3 * t3130 * t670 - 0.73e2 / 0.1200e4 * t4582 * t1569 - 0.73e2 / 0.300e3 * t1341 * t1531 - 0.73e2 / 0.1200e4 * t3732 * t1878 + 0.73e2 / 0.800e3 * t3737 * t4589 + 0.73e2 / 0.600e3 * t1568 * t4592 - 0.73e2 / 0.1200e4 * t1568 * t4595 + 0.73e2 / 0.300e3 * t1078 * t1845 - 0.73e2 / 0.600e3 * t4600 * t1569 - 0.73e2 / 0.150e3 * t440 * t4515 + t599 * t1574 / 0.90e2;
5972   t4608 = t4577 + t4607;
5973   t4609 = t383 * t4608;
5974   t4611 = t548 * t4609 * t231;
5975   t4614 = t1885 * t465;
5976   t4615 = t4614 * t105;
5977   t4616 = t4615 * t432;
5978   t4620 = t69 * t171 * t375;
5979   t4621 = t1586 * t4620;
5980   t4625 = t69 * t171 * t470;
5981   t4626 = t1586 * t4625;
5982   t4629 = t1578 * t465;
5983   t4630 = t4629 * t1894;
5984   t4633 = t3810 * t1351;
5985   t4636 = t121 * t1307;
5986   t4637 = t1893 * t4636;
5987   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5988     v3rhosigmatau[11] = t4401 + t1485 * t4434 - 0.9e1 / 0.4e1 * t1502 * t4438 + 0.3e1 / 0.4e1 * t1502 * t4442 + t3767 * t4447 / 0.6e1 + 0.3e1 / 0.4e1 * t1502 * t4451 - t4407 - t1485 * t4455 / 0.2e1 + 0.3e1 / 0.4e1 * t1502 * t4459 - 0.3e1 / 0.8e1 * t480 * t4611 - t1584 * t4616 / 0.12e2 + t4415 + t3606 * t4621 / 0.24e2 - t3767 * t4626 / 0.16e2 + t1892 * t4630 / 0.32e2 + t1584 * t4633 / 0.96e2 - t1892 * t4637 / 0.12e2;
5989 
5990   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5991     v3rholapl2[0] = 0.0e0;
5992 
5993   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5994     v3rholapl2[1] = 0.0e0;
5995 
5996   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5997     v3rholapl2[2] = 0.0e0;
5998 
5999   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6000     v3rholapl2[3] = 0.0e0;
6001 
6002   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6003     v3rholapl2[4] = 0.0e0;
6004 
6005   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6006     v3rholapl2[5] = 0.0e0;
6007 
6008   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6009     v3rholapltau[0] = 0.0e0;
6010 
6011   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6012     v3rholapltau[1] = 0.0e0;
6013 
6014   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6015     v3rholapltau[2] = 0.0e0;
6016 
6017   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6018     v3rholapltau[3] = 0.0e0;
6019 
6020   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6021     v3rholapltau[4] = 0.0e0;
6022 
6023   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6024     v3rholapltau[5] = 0.0e0;
6025 
6026   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6027     v3rholapltau[6] = 0.0e0;
6028 
6029   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6030     v3rholapltau[7] = 0.0e0;
6031 
6032   t4640 = t3042 * t1901;
6033   t4641 = t1898 * t873;
6034   t4643 = t1394 * t4641 * t249;
6035   t4646 = t3332 * t4641 * t352;
6036   t4650 = t1394 * t3525 * t1468;
6037   t4653 = t1898 * t2218;
6038   t4654 = t4653 * t105;
6039   t4655 = t4654 * t314;
6040   t4659 = t3042 * t1962 / 0.2e1;
6041   t4660 = t1959 * t126;
6042   t4662 = t1386 * t4660 * t249;
6043   t4666 = t1394 * t4660 * t352;
6044   t4669 = t272 * t1904;
6045   t4672 = t621 * t1407;
6046   t4675 = t30 * t1904;
6047   t4678 = t272 * t1914;
6048   t4686 = -t24 * t651 * t267 / 0.4e1 - 0.5e1 / 0.8e1 * t24 * t651;
6049   t4689 = t30 * t1914;
6050   t4700 = t779 * t1921;
6051   t4701 = t2082 * t4700;
6052   t4704 = t2093 * t2098;
6053   t4705 = t774 * t774;
6054   t4706 = 0.1e1 / t4705;
6055   t4710 = t1416 * t1921;
6056   t4713 = t764 * t1956;
6057   t4716 = t280 * t775;
6058   t4719 = t30 * t4669 * t41 + 0.2e1 * t30 * t4672 + t4675 * t765 / 0.16e2 + t30 * t4678 * t41 + t30 * t4686 * t41 + t4689 * t765 / 0.16e2 + t3376 * t1413 / 0.8e1 + t3387 * t1413 / 0.8e1 + 0.3e1 / 0.256e3 * t1410 * t3399 - t1410 * t3402 / 0.4e1 + 0.3e1 / 0.512e3 * t763 * t4701 + 0.3e1 / 0.4096e4 * t2092 * t4704 * t4706 - 0.21e2 / 0.512e3 * t770 * t4710 - 0.3e1 / 0.16e2 * t763 * t4713 + 0.3e1 / 0.8e1 * t277 * t4716;
6059   t4720 = t4719 * t44;
6060   t4734 = t2132 * t1936;
6061   t4743 = t3914 * t1940;
6062   t4746 = t1941 * t3920;
6063   t4750 = 0.5e1 / 0.4e1 * t1782 + 0.9e1 / 0.8e1 * t4293 * t3438 - 0.3e1 / 0.4e1 * t632 * t3441 + 0.9e1 / 0.16e2 * t298 * t4734 - 0.81e2 / 0.32e2 * t2142 * t1936 * t311 + 0.81e2 / 0.40e2 * t812 * t641 * t1446 - 0.25e2 / 0.2e1 * t3913 * t4743 + 0.45e2 / 0.8e1 * t3918 * t4746 + 0.25e2 / 0.2e1 * t1791;
6064   t4755 = t1945 * t321;
6065   t4760 = t3469 * t31;
6066   t4767 = t2178 * t771;
6067   t4768 = t4700 * t330;
6068   t4775 = t1956 * t330;
6069   t4780 = t279 * t775;
6070   t4783 = t4720 * t55 / 0.24e2 - t1929 * t290 / 0.9e1 + 0.584e3 / 0.2025e4 * t644 * t1449 + 0.292e3 / 0.2025e4 * t316 * t1945 + 0.292e3 / 0.2025e4 * t80 * t4750 - 0.73e2 / 0.97200e5 * t4750 * t96 - 0.73e2 / 0.194400e6 * t4755 * t330 + 0.73e2 / 0.300e3 * t3466 * t625 - 0.73e2 / 0.600e3 * t4760 * t1460 - 0.73e2 / 0.150e3 * t1454 * t1422 + 0.1971e4 / 0.100e3 * t2170 * t1922 - 0.5913e4 / 0.200e3 * t4767 * t4768 - 0.1971e4 / 0.25e2 * t841 * t4710 - 0.73e2 / 0.200e3 * t836 * t1925 + 0.73e2 / 0.400e3 * t1459 * t4775 + 0.73e2 / 0.100e3 * t322 * t4716 - t106 * t4780 / 0.60e2;
6071   t4784 = t265 * t4783;
6072   t4786 = t481 * t4784 * t126;
6073   t4789 = t1959 * t347;
6074   t4790 = t4789 * t105;
6075   t4791 = t4790 * t314;
6076   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6077     v3rhotau2[0] = t4640 + t1385 * t4643 - 0.9e1 / 0.4e1 * t1393 * t4646 + 0.3e1 / 0.2e1 * t1393 * t4650 + t3510 * t4655 / 0.3e1 - t4659 - t1385 * t4662 / 0.2e1 + 0.3e1 / 0.4e1 * t1393 * t4666 - 0.3e1 / 0.8e1 * t480 * t4786 - t1476 * t4791 / 0.12e2;
6078 
6079   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6080     v3rhotau2[1] = 0.0e0;
6081 
6082   t4794 = t3042 * t1968;
6083   t4795 = t1965 * t1115;
6084   t4797 = t1503 * t4795 * t358;
6085   t4800 = t3042 * t2029 / 0.2e1;
6086   t4801 = t2026 * t231;
6087   t4803 = t1486 * t4801 * t358;
6088   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6089     v3rhotau2[2] = t4794 + t1485 * t4797 - t4800 - t1485 * t4803 / 0.2e1;
6090 
6091   t4807 = t1394 * t4641 * t370;
6092   t4810 = t1386 * t4660 * t370;
6093   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6094     v3rhotau2[3] = t4640 + t1385 * t4807 - t4659 - t1385 * t4810 / 0.2e1;
6095 
6096   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6097     v3rhotau2[4] = 0.0e0;
6098 
6099   t4814 = t1503 * t4795 * t375;
6100   t4817 = t3774 * t4795 * t470;
6101   t4821 = t1503 * t3809 * t1577;
6102   t4824 = t1965 * t2701;
6103   t4825 = t4824 * t105;
6104   t4826 = t4825 * t432;
6105   t4830 = t1486 * t4801 * t375;
6106   t4834 = t1503 * t4801 * t470;
6107   t4837 = t390 * t1971;
6108   t4840 = t666 * t1516;
6109   t4843 = t152 * t1971;
6110   t4846 = t390 * t1981;
6111   t4854 = -t146 * t696 * t385 / 0.4e1 - 0.5e1 / 0.8e1 * t146 * t696;
6112   t4857 = t152 * t1981;
6113   t4868 = t1021 * t1988;
6114   t4869 = t2565 * t4868;
6115   t4872 = t2576 * t2581;
6116   t4873 = t1016 * t1016;
6117   t4874 = 0.1e1 / t4873;
6118   t4878 = t1525 * t1988;
6119   t4881 = t1006 * t2023;
6120   t4884 = t398 * t1017;
6121   t4887 = t152 * t4837 * t163 + 0.2e1 * t152 * t4840 + t4843 * t1007 / 0.16e2 + t152 * t4846 * t163 + t152 * t4854 * t163 + t4857 * t1007 / 0.16e2 + t3632 * t1522 / 0.8e1 + t3643 * t1522 / 0.8e1 + 0.3e1 / 0.256e3 * t1519 * t3655 - t1519 * t3658 / 0.4e1 + 0.3e1 / 0.512e3 * t1005 * t4869 + 0.3e1 / 0.4096e4 * t2575 * t4872 * t4874 - 0.21e2 / 0.512e3 * t1012 * t4878 - 0.3e1 / 0.16e2 * t1005 * t4881 + 0.3e1 / 0.8e1 * t395 * t4884;
6122   t4888 = t4887 * t44;
6123   t4902 = t2615 * t2003;
6124   t4911 = t4107 * t2007;
6125   t4914 = t2008 * t4113;
6126   t4918 = 0.5e1 / 0.4e1 * t1858 + 0.9e1 / 0.8e1 * t4535 * t3694 - 0.3e1 / 0.4e1 * t677 * t3697 + 0.9e1 / 0.16e2 * t416 * t4902 - 0.81e2 / 0.32e2 * t2625 * t2003 * t429 + 0.81e2 / 0.40e2 * t1054 * t686 * t1555 - 0.25e2 / 0.2e1 * t4106 * t4911 + 0.45e2 / 0.8e1 * t4111 * t4914 + 0.25e2 / 0.2e1 * t1867;
6127   t4923 = t2012 * t439;
6128   t4928 = t3725 * t153;
6129   t4935 = t2661 * t1013;
6130   t4936 = t4868 * t448;
6131   t4943 = t2023 * t448;
6132   t4948 = t397 * t1017;
6133   t4951 = t4888 * t172 / 0.24e2 - t1996 * t408 / 0.9e1 + 0.584e3 / 0.2025e4 * t689 * t1558 + 0.292e3 / 0.2025e4 * t434 * t2012 + 0.292e3 / 0.2025e4 * t196 * t4918 - 0.73e2 / 0.97200e5 * t4918 * t208 - 0.73e2 / 0.194400e6 * t4923 * t448 + 0.73e2 / 0.300e3 * t3722 * t670 - 0.73e2 / 0.600e3 * t4928 * t1569 - 0.73e2 / 0.150e3 * t1563 * t1531 + 0.1971e4 / 0.100e3 * t2653 * t1989 - 0.5913e4 / 0.200e3 * t4935 * t4936 - 0.1971e4 / 0.25e2 * t1083 * t4878 - 0.73e2 / 0.200e3 * t1078 * t1992 + 0.73e2 / 0.400e3 * t1568 * t4943 + 0.73e2 / 0.100e3 * t440 * t4884 - t215 * t4948 / 0.60e2;
6134   t4952 = t383 * t4951;
6135   t4954 = t548 * t4952 * t231;
6136   t4957 = t2026 * t465;
6137   t4958 = t4957 * t105;
6138   t4959 = t4958 * t432;
6139   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6140     v3rhotau2[5] = t4794 + t1485 * t4814 - 0.9e1 / 0.4e1 * t1502 * t4817 + 0.3e1 / 0.2e1 * t1502 * t4821 + t3767 * t4826 / 0.3e1 - t4800 - t1485 * t4830 / 0.2e1 + 0.3e1 / 0.4e1 * t1502 * t4834 - 0.3e1 / 0.8e1 * t480 * t4954 - t1584 * t4959 / 0.12e2;
6141 
6142   t4962 = t1590 * t543;
6143   t4963 = t2253 * t4962;
6144   t4964 = t481 * t4963;
6145   t4968 = t481 * t1137 * t1663;
6146   t4971 = t1595 * t488;
6147   t4974 = t489 * t1603;
6148   t4982 = 0.1e1 / t113;
6149   t4985 = -0.3e1 / 0.8e1 * t482 * t21 * t1601 + 0.2e1 * t28 * t4982;
6150   t5001 = (t30 * t4971 * t41 + 0.3e1 * t30 * t4974 - 0.3e1 / 0.16e2 * t3844 * t1157 + t30 * t4985 * t41 - 0.3e1 / 0.16e2 * t3856 * t1157 + 0.9e1 / 0.512e3 * t1153 * t3869 - 0.3e1 / 0.16e2 * t1153 * t1612 - 0.3e1 / 0.4096e4 * t2092 * t2969 * t1921 + 0.9e1 / 0.512e3 * t770 * t2900 * t775) * t44;
6151   t5008 = t502 * t3904;
6152   t5010 = t116 * t112;
6153   t5011 = t5010 * t3914;
6154   t5013 = t1625 * t511;
6155   t5016 = t812 * t511;
6156   t5017 = params->b * t91;
6157   t5018 = t5017 * t87;
6158   t5019 = t5016 * t5018;
6159   t5021 = -0.27e2 / 0.128e3 * t5008 + 0.75e2 / 0.1024e4 * t5011 - 0.81e2 / 0.32e2 * t2142 * t5013 + 0.135e3 / 0.512e3 * t5019;
6160   t5032 = t1639 * t525;
6161   t5035 = t525 * t1644;
6162   t5040 = t5001 * t55 / 0.24e2 + t1616 * t499 / 0.8e1 + 0.292e3 / 0.675e3 * t516 * t1632 + 0.292e3 / 0.2025e4 * t80 * t5021 - 0.73e2 / 0.97200e5 * t5021 * t96 - 0.73e2 / 0.64800e5 * t3932 * t525 + 0.73e2 / 0.129600e6 * t2981 * t1639 - 0.73e2 / 0.64800e5 * t1211 * t1644 - 0.73e2 / 0.259200e6 * t2178 * t5032 + 0.73e2 / 0.129600e6 * t841 * t5035 + t110 * t5010 / 0.384e3;
6163   t5046 = t2220 * t112;
6164   t5047 = t5046 * t116;
6165   t5050 = t5040 * t126 - t3973 * t514 / 0.4e1 + t3002 * t1629 / 0.32e2 - t2219 * t5047 / 0.96e2;
6166   t5051 = t265 * t5050;
6167   t5052 = t481 * t5051;
6168   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6169     v3sigma3[0] = -0.9e1 / 0.4e1 * t480 * t4964 + 0.9e1 / 0.4e1 * t480 * t4968 - 0.3e1 / 0.8e1 * t480 * t5052;
6170 
6171   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6172     v3sigma3[1] = 0.0e0;
6173 
6174   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6175     v3sigma3[2] = 0.0e0;
6176 
6177   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6178     v3sigma3[3] = 0.0e0;
6179 
6180   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6181     v3sigma3[4] = 0.0e0;
6182 
6183   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6184     v3sigma3[5] = 0.0e0;
6185 
6186   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6187     v3sigma3[6] = 0.0e0;
6188 
6189   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6190     v3sigma3[7] = 0.0e0;
6191 
6192   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6193     v3sigma3[8] = 0.0e0;
6194 
6195   t5055 = t1668 * t610;
6196   t5056 = t2724 * t5055;
6197   t5057 = t548 * t5056;
6198   t5061 = t548 * t1267 * t1741;
6199   t5064 = t1673 * t555;
6200   t5067 = t556 * t1681;
6201   t5075 = 0.1e1 / t219;
6202   t5078 = -0.3e1 / 0.8e1 * t549 * t143 * t1679 + 0.2e1 * t150 * t5075;
6203   t5094 = (t152 * t5064 * t163 + 0.3e1 * t152 * t5067 - 0.3e1 / 0.16e2 * t4037 * t1287 + t152 * t5078 * t163 - 0.3e1 / 0.16e2 * t4049 * t1287 + 0.9e1 / 0.512e3 * t1283 * t4062 - 0.3e1 / 0.16e2 * t1283 * t1690 - 0.3e1 / 0.4096e4 * t2575 * t3202 * t1988 + 0.9e1 / 0.512e3 * t1012 * t3139 * t1017) * t44;
6204   t5101 = t569 * t4097;
6205   t5103 = t222 * t112;
6206   t5104 = t5103 * t4107;
6207   t5106 = t1703 * t578;
6208   t5109 = t1054 * t578;
6209   t5110 = params->b * t203;
6210   t5111 = t5110 * t87;
6211   t5112 = t5109 * t5111;
6212   t5114 = -0.27e2 / 0.128e3 * t5101 + 0.75e2 / 0.1024e4 * t5104 - 0.81e2 / 0.32e2 * t2625 * t5106 + 0.135e3 / 0.512e3 * t5112;
6213   t5125 = t1717 * t592;
6214   t5128 = t592 * t1722;
6215   t5133 = t5094 * t172 / 0.24e2 + t1694 * t566 / 0.8e1 + 0.292e3 / 0.675e3 * t583 * t1710 + 0.292e3 / 0.2025e4 * t196 * t5114 - 0.73e2 / 0.97200e5 * t5114 * t208 - 0.73e2 / 0.64800e5 * t4125 * t592 + 0.73e2 / 0.129600e6 * t3220 * t1717 - 0.73e2 / 0.64800e5 * t1341 * t1722 - 0.73e2 / 0.259200e6 * t2661 * t5125 + 0.73e2 / 0.129600e6 * t1083 * t5128 + t110 * t5103 / 0.384e3;
6216   t5139 = t5046 * t222;
6217   t5142 = t5133 * t231 - t4166 * t581 / 0.4e1 + t3297 * t1707 / 0.32e2 - t2702 * t5139 / 0.96e2;
6218   t5143 = t383 * t5142;
6219   t5144 = t548 * t5143;
6220   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6221     v3sigma3[9] = -0.9e1 / 0.4e1 * t480 * t5057 + 0.9e1 / 0.4e1 * t480 * t5061 - 0.3e1 / 0.8e1 * t480 * t5144;
6222 
6223   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6224     v3sigma2lapl[0] = 0.0e0;
6225 
6226   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6227     v3sigma2lapl[1] = 0.0e0;
6228 
6229   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6230     v3sigma2lapl[2] = 0.0e0;
6231 
6232   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6233     v3sigma2lapl[3] = 0.0e0;
6234 
6235   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6236     v3sigma2lapl[4] = 0.0e0;
6237 
6238   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6239     v3sigma2lapl[5] = 0.0e0;
6240 
6241   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6242     v3sigma2lapl[6] = 0.0e0;
6243 
6244   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6245     v3sigma2lapl[7] = 0.0e0;
6246 
6247   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6248     v3sigma2lapl[8] = 0.0e0;
6249 
6250   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6251     v3sigma2lapl[9] = 0.0e0;
6252 
6253   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6254     v3sigma2lapl[10] = 0.0e0;
6255 
6256   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6257     v3sigma2lapl[11] = 0.0e0;
6258 
6259   t5148 = t3332 * t1387 * t1590;
6260   t5152 = t1394 * t4211 * t543;
6261   t5155 = t1477 * t543;
6262   t5156 = t5155 * t1818;
6263   t5160 = t1394 * t1387 * t1663;
6264   t5163 = t1595 * t620;
6265   t5164 = t5163 * t41;
6266   t5166 = t1603 * t620;
6267   t5167 = t5166 * t41;
6268   t5169 = t488 * t1758;
6269   t5170 = t5169 * t41;
6270   t5175 = t486 * t41;
6271   t5176 = t615 * t5175;
6272   t5199 = t1611 * t624;
6273   t5202 = t30 * t5164 + t30 * t5167 + 0.2e1 * t30 * t5170 - t4227 * t1157 / 0.8e1 - t3850 * t5176 / 0.8e1 - t4240 * t1157 / 0.8e1 + 0.3e1 / 0.512e3 * t1410 * t3869 - t1410 * t1612 / 0.16e2 + t3844 * t1413 / 0.16e2 + t3856 * t1413 / 0.16e2 - 0.3e1 / 0.256e3 * t1153 * t4260 + t1153 * t4270 / 0.4e1 + 0.3e1 / 0.4096e4 * t2092 * t773 * t3407 - 0.15e2 / 0.512e3 * t770 * t780 * t1418 + t30 * t5199 / 0.8e1;
6274   t5203 = t5202 * t44;
6275   t5214 = t2098 * t112;
6276   t5215 = t5214 * t3914;
6277   t5217 = t514 * t4304;
6278   t5219 = t641 * t1625;
6279   t5222 = t86 * t511;
6280   t5224 = t3918 * t1789 * t5222;
6281   t5226 = t812 * t641;
6282   t5227 = t5226 * t5018;
6283   t5229 = 0.9e1 / 0.16e2 * t632 * t3904 - 0.75e2 / 0.128e3 * t5215 - 0.9e1 / 0.64e2 * t5217 - 0.81e2 / 0.32e2 * t2142 * t5219 - 0.45e2 / 0.32e2 * t5224 + 0.45e2 / 0.512e3 * t5227;
6284   t5246 = t651 * t1639;
6285   t5251 = t651 * t1644;
6286   t5258 = t5203 * t55 / 0.24e2 + t1773 * t499 / 0.12e2 + 0.292e3 / 0.2025e4 * t1632 * t644 + 0.584e3 / 0.2025e4 * t516 * t1793 + 0.292e3 / 0.2025e4 * t80 * t5229 - 0.73e2 / 0.97200e5 * t5229 * t96 - 0.73e2 / 0.97200e5 * t4328 * t525 + 0.73e2 / 0.388800e6 * t3469 * t1639 - 0.73e2 / 0.194400e6 * t1454 * t1644 + 0.73e2 / 0.600e3 * t3932 * t625 - 0.73e2 / 0.600e3 * t4340 * t1802 + 0.73e2 / 0.150e3 * t1211 * t1769 + 0.73e2 / 0.800e3 * t3481 * t5246 - 0.73e2 / 0.300e3 * t4358 * t1802 - 0.73e2 / 0.1200e4 * t1459 * t5251 + 0.73e2 / 0.300e3 * t322 * t651 - t1650 * t624 / 0.180e3;
6287   t5259 = t265 * t5258;
6288   t5261 = t481 * t5259 * t126;
6289   t5264 = t1810 * t347;
6290   t5265 = t5264 * t1818;
6291   t5268 = t655 * t873;
6292   t5269 = params->e * t84;
6293   t5270 = t5269 * t1647;
6294   t5271 = t5268 * t5270;
6295   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6296     v3sigma2tau[0] = -0.9e1 / 0.4e1 * t1393 * t5148 + 0.3e1 / 0.2e1 * t1393 * t5152 - t3510 * t5156 / 0.8e1 + 0.3e1 / 0.4e1 * t1393 * t5160 - 0.3e1 / 0.8e1 * t480 * t5261 + t1816 * t5265 / 0.16e2 - t1816 * t5271 / 0.256e3;
6297 
6298   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6299     v3sigma2tau[1] = 0.0e0;
6300 
6301   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6302     v3sigma2tau[2] = 0.0e0;
6303 
6304   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6305     v3sigma2tau[3] = 0.0e0;
6306 
6307   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6308     v3sigma2tau[4] = 0.0e0;
6309 
6310   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6311     v3sigma2tau[5] = 0.0e0;
6312 
6313   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6314     v3sigma2tau[6] = 0.0e0;
6315 
6316   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6317     v3sigma2tau[7] = 0.0e0;
6318 
6319   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6320     v3sigma2tau[8] = 0.0e0;
6321 
6322   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6323     v3sigma2tau[9] = 0.0e0;
6324 
6325   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6326     v3sigma2tau[10] = 0.0e0;
6327 
6328   t5275 = t3774 * t1487 * t1668;
6329   t5279 = t1503 * t4408 * t610;
6330   t5282 = t1585 * t610;
6331   t5283 = t5282 * t1894;
6332   t5287 = t1503 * t1487 * t1741;
6333   t5290 = t1673 * t665;
6334   t5291 = t5290 * t163;
6335   t5293 = t1681 * t665;
6336   t5294 = t5293 * t163;
6337   t5296 = t555 * t1834;
6338   t5297 = t5296 * t163;
6339   t5302 = t553 * t163;
6340   t5303 = t660 * t5302;
6341   t5326 = t1689 * t669;
6342   t5329 = t152 * t5291 + t152 * t5294 + 0.2e1 * t152 * t5297 - t4469 * t1287 / 0.8e1 - t4043 * t5303 / 0.8e1 - t4482 * t1287 / 0.8e1 + 0.3e1 / 0.512e3 * t1519 * t4062 - t1519 * t1690 / 0.16e2 + t4037 * t1522 / 0.16e2 + t4049 * t1522 / 0.16e2 - 0.3e1 / 0.256e3 * t1283 * t4502 + t1283 * t4512 / 0.4e1 + 0.3e1 / 0.4096e4 * t2575 * t1015 * t3663 - 0.15e2 / 0.512e3 * t1012 * t1022 * t1527 + t152 * t5326 / 0.8e1;
6343   t5330 = t5329 * t44;
6344   t5341 = t2581 * t112;
6345   t5342 = t5341 * t4107;
6346   t5344 = t581 * t4546;
6347   t5346 = t686 * t1703;
6348   t5349 = t86 * t578;
6349   t5351 = t4111 * t1865 * t5349;
6350   t5353 = t1054 * t686;
6351   t5354 = t5353 * t5111;
6352   t5356 = 0.9e1 / 0.16e2 * t677 * t4097 - 0.75e2 / 0.128e3 * t5342 - 0.9e1 / 0.64e2 * t5344 - 0.81e2 / 0.32e2 * t2625 * t5346 - 0.45e2 / 0.32e2 * t5351 + 0.45e2 / 0.512e3 * t5354;
6353   t5373 = t696 * t1717;
6354   t5378 = t696 * t1722;
6355   t5385 = t5330 * t172 / 0.24e2 + t1849 * t566 / 0.12e2 + 0.292e3 / 0.2025e4 * t1710 * t689 + 0.584e3 / 0.2025e4 * t583 * t1869 + 0.292e3 / 0.2025e4 * t196 * t5356 - 0.73e2 / 0.97200e5 * t5356 * t208 - 0.73e2 / 0.97200e5 * t4570 * t592 + 0.73e2 / 0.388800e6 * t3725 * t1717 - 0.73e2 / 0.194400e6 * t1563 * t1722 + 0.73e2 / 0.600e3 * t4125 * t670 - 0.73e2 / 0.600e3 * t4582 * t1878 + 0.73e2 / 0.150e3 * t1341 * t1845 + 0.73e2 / 0.800e3 * t3737 * t5373 - 0.73e2 / 0.300e3 * t4600 * t1878 - 0.73e2 / 0.1200e4 * t1568 * t5378 + 0.73e2 / 0.300e3 * t440 * t696 - t1728 * t669 / 0.180e3;
6356   t5386 = t383 * t5385;
6357   t5388 = t548 * t5386 * t231;
6358   t5391 = t1886 * t465;
6359   t5392 = t5391 * t1894;
6360   t5395 = t700 * t1115;
6361   t5396 = t5269 * t1725;
6362   t5397 = t5395 * t5396;
6363   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6364     v3sigma2tau[11] = -0.9e1 / 0.4e1 * t1502 * t5275 + 0.3e1 / 0.2e1 * t1502 * t5279 - t3767 * t5283 / 0.8e1 + 0.3e1 / 0.4e1 * t1502 * t5287 - 0.3e1 / 0.8e1 * t480 * t5388 + t1892 * t5392 / 0.16e2 - t1892 * t5397 / 0.256e3;
6365 
6366   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6367     v3sigmalapl2[0] = 0.0e0;
6368 
6369   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6370     v3sigmalapl2[1] = 0.0e0;
6371 
6372   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6373     v3sigmalapl2[2] = 0.0e0;
6374 
6375   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6376     v3sigmalapl2[3] = 0.0e0;
6377 
6378   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6379     v3sigmalapl2[4] = 0.0e0;
6380 
6381   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6382     v3sigmalapl2[5] = 0.0e0;
6383 
6384   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6385     v3sigmalapl2[6] = 0.0e0;
6386 
6387   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6388     v3sigmalapl2[7] = 0.0e0;
6389 
6390   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6391     v3sigmalapl2[8] = 0.0e0;
6392 
6393   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6394     v3sigmalapltau[0] = 0.0e0;
6395 
6396   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6397     v3sigmalapltau[1] = 0.0e0;
6398 
6399   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6400     v3sigmalapltau[2] = 0.0e0;
6401 
6402   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6403     v3sigmalapltau[3] = 0.0e0;
6404 
6405   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6406     v3sigmalapltau[4] = 0.0e0;
6407 
6408   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6409     v3sigmalapltau[5] = 0.0e0;
6410 
6411   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6412     v3sigmalapltau[6] = 0.0e0;
6413 
6414   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6415     v3sigmalapltau[7] = 0.0e0;
6416 
6417   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6418     v3sigmalapltau[8] = 0.0e0;
6419 
6420   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6421     v3sigmalapltau[9] = 0.0e0;
6422 
6423   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6424     v3sigmalapltau[10] = 0.0e0;
6425 
6426   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6427     v3sigmalapltau[11] = 0.0e0;
6428 
6429   t5401 = t3332 * t4641 * t543;
6430   t5405 = t1394 * t3525 * t1809;
6431   t5408 = t1899 * t2218;
6432   t5409 = t5408 * t1818;
6433   t5413 = t1394 * t4660 * t543;
6434   t5416 = t488 * t1904;
6435   t5417 = t5416 * t41;
6436   t5419 = t621 * t1758;
6437   t5424 = t488 * t1914;
6438   t5425 = t5424 * t41;
6439   t5427 = t624 * t267;
6440   t5432 = t482 * t5427 / 0.4e1 + 0.5e1 / 0.8e1 * t482 * t624;
6441   t5447 = t2964 * t772;
6442   t5451 = t1765 * t1921;
6443   t5456 = t491 * t775;
6444   t5459 = t30 * t5417 + 0.2e1 * t30 * t5419 - t4675 * t1157 / 0.16e2 + t30 * t5425 + t30 * t5432 * t41 - t4689 * t1157 / 0.16e2 + t4227 * t1413 / 0.8e1 + t4240 * t1413 / 0.8e1 - 0.3e1 / 0.256e3 * t1410 * t4260 + t1410 * t4270 / 0.4e1 + 0.3e1 / 0.512e3 * t1153 * t4701 - 0.3e1 / 0.4096e4 * t2092 * t5447 * t4706 + 0.21e2 / 0.512e3 * t770 * t5451 - 0.3e1 / 0.16e2 * t1153 * t4713 - 0.3e1 / 0.8e1 * t277 * t5456;
6445   t5460 = t5459 * t44;
6446   t5471 = t772 * t112;
6447   t5472 = t5471 * t3914;
6448   t5474 = t502 * t4734;
6449   t5476 = t1936 * t511;
6450   t5479 = params->b * t1788;
6451   t5480 = t5479 * t87;
6452   t5481 = t5226 * t5480;
6453   t5483 = t1941 * t5222;
6454   t5486 = 0.9e1 / 0.8e1 * t4293 * t4304 + 0.75e2 / 0.16e2 * t5472 - 0.9e1 / 0.128e3 * t5474 - 0.81e2 / 0.32e2 * t2142 * t5476 - 0.45e2 / 0.32e2 * t5481 + 0.45e2 / 0.8e1 * t3918 * t5483;
6455   t5501 = t4700 * t525;
6456   t5508 = t1956 * t525;
6457   t5515 = t5460 * t55 / 0.24e2 + t1929 * t499 / 0.24e2 + 0.584e3 / 0.2025e4 * t644 * t1793 + 0.292e3 / 0.2025e4 * t516 * t1945 + 0.292e3 / 0.2025e4 * t80 * t5486 - 0.73e2 / 0.97200e5 * t5486 * t96 - 0.73e2 / 0.194400e6 * t4755 * t525 + 0.73e2 / 0.300e3 * t4328 * t625 - 0.73e2 / 0.600e3 * t4760 * t1802 + 0.73e2 / 0.150e3 * t1454 * t1769 + 0.1971e4 / 0.100e3 * t2981 * t1922 - 0.5913e4 / 0.200e3 * t4767 * t5501 + 0.1971e4 / 0.25e2 * t841 * t5451 - 0.73e2 / 0.200e3 * t1211 * t1925 + 0.73e2 / 0.400e3 * t1459 * t5508 - 0.73e2 / 0.100e3 * t322 * t5456 + t532 * t1956 / 0.60e2;
6458   t5516 = t265 * t5515;
6459   t5518 = t481 * t5516 * t126;
6460   t5521 = t1960 * t347;
6461   t5522 = t5521 * t1818;
6462   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6463     v3sigmatau2[0] = -0.9e1 / 0.4e1 * t1393 * t5401 + 0.3e1 / 0.2e1 * t1393 * t5405 - t1816 * t5409 / 0.8e1 + 0.3e1 / 0.4e1 * t1393 * t5413 - 0.3e1 / 0.8e1 * t480 * t5518 + t1816 * t5522 / 0.32e2;
6464 
6465   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6466     v3sigmatau2[1] = 0.0e0;
6467 
6468   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6469     v3sigmatau2[2] = 0.0e0;
6470 
6471   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6472     v3sigmatau2[3] = 0.0e0;
6473 
6474   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6475     v3sigmatau2[4] = 0.0e0;
6476 
6477   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6478     v3sigmatau2[5] = 0.0e0;
6479 
6480   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6481     v3sigmatau2[6] = 0.0e0;
6482 
6483   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6484     v3sigmatau2[7] = 0.0e0;
6485 
6486   t5526 = t3774 * t4795 * t610;
6487   t5530 = t1503 * t3809 * t1885;
6488   t5533 = t1966 * t2701;
6489   t5534 = t5533 * t1894;
6490   t5538 = t1503 * t4801 * t610;
6491   t5541 = t555 * t1971;
6492   t5542 = t5541 * t163;
6493   t5544 = t666 * t1834;
6494   t5549 = t555 * t1981;
6495   t5550 = t5549 * t163;
6496   t5552 = t669 * t385;
6497   t5557 = t549 * t5552 / 0.4e1 + 0.5e1 / 0.8e1 * t549 * t669;
6498   t5572 = t3197 * t1014;
6499   t5576 = t1841 * t1988;
6500   t5581 = t558 * t1017;
6501   t5584 = t152 * t5542 + 0.2e1 * t152 * t5544 - t4843 * t1287 / 0.16e2 + t152 * t5550 + t152 * t5557 * t163 - t4857 * t1287 / 0.16e2 + t4469 * t1522 / 0.8e1 + t4482 * t1522 / 0.8e1 - 0.3e1 / 0.256e3 * t1519 * t4502 + t1519 * t4512 / 0.4e1 + 0.3e1 / 0.512e3 * t1283 * t4869 - 0.3e1 / 0.4096e4 * t2575 * t5572 * t4874 + 0.21e2 / 0.512e3 * t1012 * t5576 - 0.3e1 / 0.16e2 * t1283 * t4881 - 0.3e1 / 0.8e1 * t395 * t5581;
6502   t5585 = t5584 * t44;
6503   t5596 = t1014 * t112;
6504   t5597 = t5596 * t4107;
6505   t5599 = t569 * t4902;
6506   t5601 = t2003 * t578;
6507   t5604 = params->b * t1864;
6508   t5605 = t5604 * t87;
6509   t5606 = t5353 * t5605;
6510   t5608 = t2008 * t5349;
6511   t5611 = 0.9e1 / 0.8e1 * t4535 * t4546 + 0.75e2 / 0.16e2 * t5597 - 0.9e1 / 0.128e3 * t5599 - 0.81e2 / 0.32e2 * t2625 * t5601 - 0.45e2 / 0.32e2 * t5606 + 0.45e2 / 0.8e1 * t4111 * t5608;
6512   t5626 = t4868 * t592;
6513   t5633 = t2023 * t592;
6514   t5640 = t5585 * t172 / 0.24e2 + t1996 * t566 / 0.24e2 + 0.584e3 / 0.2025e4 * t689 * t1869 + 0.292e3 / 0.2025e4 * t583 * t2012 + 0.292e3 / 0.2025e4 * t196 * t5611 - 0.73e2 / 0.97200e5 * t5611 * t208 - 0.73e2 / 0.194400e6 * t4923 * t592 + 0.73e2 / 0.300e3 * t4570 * t670 - 0.73e2 / 0.600e3 * t4928 * t1878 + 0.73e2 / 0.150e3 * t1563 * t1845 + 0.1971e4 / 0.100e3 * t3220 * t1989 - 0.5913e4 / 0.200e3 * t4935 * t5626 + 0.1971e4 / 0.25e2 * t1083 * t5576 - 0.73e2 / 0.200e3 * t1341 * t1992 + 0.73e2 / 0.400e3 * t1568 * t5633 - 0.73e2 / 0.100e3 * t440 * t5581 + t599 * t2023 / 0.60e2;
6515   t5641 = t383 * t5640;
6516   t5643 = t548 * t5641 * t231;
6517   t5646 = t2027 * t465;
6518   t5647 = t5646 * t1894;
6519   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6520     v3sigmatau2[8] = -0.9e1 / 0.4e1 * t1502 * t5526 + 0.3e1 / 0.2e1 * t1502 * t5530 - t1892 * t5534 / 0.8e1 + 0.3e1 / 0.4e1 * t1502 * t5538 - 0.3e1 / 0.8e1 * t480 * t5643 + t1892 * t5647 / 0.32e2;
6521 
6522   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6523     v3lapl3[0] = 0.0e0;
6524 
6525   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6526     v3lapl3[1] = 0.0e0;
6527 
6528   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6529     v3lapl3[2] = 0.0e0;
6530 
6531   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6532     v3lapl3[3] = 0.0e0;
6533 
6534   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6535     v3lapl2tau[0] = 0.0e0;
6536 
6537   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6538     v3lapl2tau[1] = 0.0e0;
6539 
6540   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6541     v3lapl2tau[2] = 0.0e0;
6542 
6543   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6544     v3lapl2tau[3] = 0.0e0;
6545 
6546   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6547     v3lapl2tau[4] = 0.0e0;
6548 
6549   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6550     v3lapl2tau[5] = 0.0e0;
6551 
6552   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6553     v3lapltau2[0] = 0.0e0;
6554 
6555   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6556     v3lapltau2[1] = 0.0e0;
6557 
6558   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6559     v3lapltau2[2] = 0.0e0;
6560 
6561   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6562     v3lapltau2[3] = 0.0e0;
6563 
6564   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6565     v3lapltau2[4] = 0.0e0;
6566 
6567   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6568     v3lapltau2[5] = 0.0e0;
6569 
6570   t5650 = t1898 * t654;
6571   t5651 = t2253 * t5650;
6572   t5653 = 0.1e1 / t872 / t125;
6573   t5655 = t481 * t5651 * t5653;
6574   t5659 = t1394 * t3525 * t1959;
6575   t5662 = t1904 * t620;
6576   t5665 = t621 * t1914;
6577   t5670 = t19 * t775;
6578   t5678 = -0.3e1 / 0.4e1 * t24 * t5670 * t267 - 0.9e1 / 0.8e1 * t24 * t5670 - 0.2e1 * t28 * t624;
6579   t5687 = t2093 * t772;
6580   t5689 = 0.1e1 / t4705 / tau[0];
6581   t5690 = t5687 * t5689;
6582   t5693 = t1919 * t3407;
6583   t5696 = t34 * t1418;
6584   t5700 = (t30 * t5662 * t41 + 0.3e1 * t30 * t5665 + 0.3e1 / 0.16e2 * t4675 * t1413 + t30 * t5678 * t41 + 0.3e1 / 0.16e2 * t4689 * t1413 + 0.9e1 / 0.512e3 * t1410 * t4701 - 0.9e1 / 0.16e2 * t1410 * t4713 + 0.3e1 / 0.4096e4 * t2092 * t5690 - 0.27e2 / 0.512e3 * t770 * t5693 + 0.3e1 / 0.4e1 * t277 * t5696) * t44;
6585   t5707 = t1160 * t112;
6586   t5710 = t1936 * t641;
6587   t5713 = params->b * t1940;
6588   t5714 = t5713 * t87;
6589   t5717 = 0.27e2 / 0.16e2 * t632 * t4734 - 0.75e2 / 0.2e1 * t5707 * t3914 - 0.81e2 / 0.32e2 * t2142 * t5710 + 0.135e3 / 0.8e1 * t5226 * t5714;
6590   t5734 = t33 * t1418;
6591   t5737 = t5700 * t55 / 0.24e2 + 0.292e3 / 0.675e3 * t644 * t1945 + 0.292e3 / 0.2025e4 * t80 * t5717 - 0.73e2 / 0.97200e5 * t5717 * t96 + 0.73e2 / 0.200e3 * t4755 * t625 + 0.5913e4 / 0.100e3 * t3469 * t1922 - 0.219e3 / 0.200e3 * t1454 * t1925 + 0.478953e6 / 0.50e2 * t2178 * t5690 - 0.17739e5 / 0.100e3 * t841 * t5693 + 0.73e2 / 0.50e2 * t322 * t5696 - t106 * t5734 / 0.30e2;
6592   t5738 = t265 * t5737;
6593   t5740 = t481 * t5738 * t126;
6594   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6595     v3tau3[0] = -0.9e1 / 0.4e1 * t480 * t5655 + 0.9e1 / 0.4e1 * t1393 * t5659 - 0.3e1 / 0.8e1 * t480 * t5740;
6596 
6597   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6598     v3tau3[1] = 0.0e0;
6599 
6600   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6601     v3tau3[2] = 0.0e0;
6602 
6603   t5743 = t1965 * t699;
6604   t5744 = t2724 * t5743;
6605   t5746 = 0.1e1 / t1114 / t230;
6606   t5748 = t548 * t5744 * t5746;
6607   t5752 = t1503 * t3809 * t2026;
6608   t5755 = t1971 * t665;
6609   t5758 = t666 * t1981;
6610   t5763 = t141 * t1017;
6611   t5771 = -0.3e1 / 0.4e1 * t146 * t5763 * t385 - 0.9e1 / 0.8e1 * t146 * t5763 - 0.2e1 * t150 * t669;
6612   t5780 = t2576 * t1014;
6613   t5782 = 0.1e1 / t4873 / tau[1];
6614   t5783 = t5780 * t5782;
6615   t5786 = t1986 * t3663;
6616   t5789 = t156 * t1527;
6617   t5793 = (t152 * t5755 * t163 + 0.3e1 * t152 * t5758 + 0.3e1 / 0.16e2 * t4843 * t1522 + t152 * t5771 * t163 + 0.3e1 / 0.16e2 * t4857 * t1522 + 0.9e1 / 0.512e3 * t1519 * t4869 - 0.9e1 / 0.16e2 * t1519 * t4881 + 0.3e1 / 0.4096e4 * t2575 * t5783 - 0.27e2 / 0.512e3 * t1012 * t5786 + 0.3e1 / 0.4e1 * t395 * t5789) * t44;
6618   t5800 = t1290 * t112;
6619   t5803 = t2003 * t686;
6620   t5806 = params->b * t2007;
6621   t5807 = t5806 * t87;
6622   t5810 = 0.27e2 / 0.16e2 * t677 * t4902 - 0.75e2 / 0.2e1 * t5800 * t4107 - 0.81e2 / 0.32e2 * t2625 * t5803 + 0.135e3 / 0.8e1 * t5353 * t5807;
6623   t5827 = t155 * t1527;
6624   t5830 = t5793 * t172 / 0.24e2 + 0.292e3 / 0.675e3 * t689 * t2012 + 0.292e3 / 0.2025e4 * t196 * t5810 - 0.73e2 / 0.97200e5 * t5810 * t208 + 0.73e2 / 0.200e3 * t4923 * t670 + 0.5913e4 / 0.100e3 * t3725 * t1989 - 0.219e3 / 0.200e3 * t1563 * t1992 + 0.478953e6 / 0.50e2 * t2661 * t5783 - 0.17739e5 / 0.100e3 * t1083 * t5786 + 0.73e2 / 0.50e2 * t440 * t5789 - t215 * t5827 / 0.30e2;
6625   t5831 = t383 * t5830;
6626   t5833 = t548 * t5831 * t231;
6627   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6628     v3tau3[3] = -0.9e1 / 0.4e1 * t480 * t5748 + 0.9e1 / 0.4e1 * t1502 * t5752 - 0.3e1 / 0.8e1 * t480 * t5833;
6629 
6630 #ifndef XC_DONT_COMPILE_LXC
6631 
6632   if(order < 4) return;
6633 
6634 
6635   t5841 = 0.5e1 / 0.9e1 * t2053;
6636   t5842 = 0.5e1 / 0.9e1 * t2057;
6637   t5848 = 0.12e2 * t2034 + 0.9e1 * t2039 - 0.2e1 * t2043 - 0.4e1 * t2046 - 0.6e1 * t2049 - t5841 - t5842 - 0.3e1 / 0.2e1 * t2231 - 0.2e1 * t2235 - 0.2e1 * t2239 + t2243 - 0.3e1 / 0.2e1 * t2246 + 0.3e1 * t2250;
6638   t5861 = t2294 * t10;
6639   t5863 = t9 / t5861;
6640   t5865 = -0.12e2 * t2295 + 0.12e2 * t5863;
6641   t5871 = t8 * t924 * t250;
6642   t5873 = t2419 * t353;
6643   t5874 = t261 * t5873;
6644   t5877 = t909 * t2351 * t2237;
6645   t5884 = t932 * t2366 * t2233;
6646   t5893 = 0.1e1 / t52 / t324;
6647   t5894 = sigma[0] * t5893;
6648   t5896 = 0.6160e4 / 0.81e2 * tau[0] * t2116 - 0.2618e4 / 0.81e2 * t5894;
6649   t5906 = t49 * t2141;
6650   t5907 = t5906 * t2143;
6651   t5911 = t811 * t311 * t826;
6652   t5914 = t805 * t2157;
6653   t5917 = t809 * t809;
6654   t5920 = t67 / t74 / t5917;
6655   t5921 = t813 * t813;
6656   t5927 = t826 * t826;
6657   t5938 = t801 * t801;
6658   t5948 = t69 * t5894;
6659   t5950 = 0.3e1 / 0.4e1 * t5896 * t44 * t299 - 0.3e1 / 0.2e1 * t2127 * t806 + 0.27e2 / 0.8e1 * t802 * t2133 - 0.9e1 / 0.4e1 * t802 * t2136 - 0.45e2 / 0.8e1 * t298 * t5907 + 0.27e2 / 0.4e1 * t2846 * t5911 - 0.3e1 / 0.2e1 * t298 * t5914 + 0.567e3 / 0.64e2 * t5920 * t5921 - 0.243e3 / 0.16e2 * t2142 * t813 * t826 + 0.243e3 / 0.80e2 * t812 * t5927 + 0.81e2 / 0.20e2 * t812 * t311 * t2157 - 0.27e2 / 0.40e2 * t304 * (0.5e1 * params->b * t5896 * t70 + 0.200e3 / 0.9e1 * t2149 * t308 + 0.50e2 / 0.3e1 * params->b * t5938 * t87 + 0.25e2 / 0.9e1 * t68 * t87 * t5896) + 0.5236e4 / 0.729e3 * t5948;
6660   t5955 = t831 * t831;
6661   t5960 = 0.1e1 / t51 / t339;
6662   t5964 = t115 * t88;
6663   t5965 = 0.1e1 / t5964;
6664   t5966 = t114 * t5965;
6665   t5972 = t750 * t750;
6666   t5975 = t760 * t760;
6667   t5982 = t764 * t2197;
6668   t5986 = t30 * t272 * t276;
6669   t5996 = t2082 * t2098 * t775;
6670   t5999 = t30 * t2076;
6671   t6004 = t2091 * t2093;
6672   t6006 = t6004 * t340 * t1921;
6673   t6009 = t2093 * t862;
6674   t6013 = t771 * t116;
6675   t6017 = t31 * t772;
6676   t6018 = t6017 * t36;
6677   t6021 = t30 * t2059;
6678   t6026 = t1160 * t21;
6679   t6039 = t30 / t768 / t40;
6680   t6040 = t771 * t771;
6681   t6045 = 0.6e1 * t30 * t751 * t760 + t30 * t5972 * t41 + 0.3e1 * t30 * t5975 * t41 + 0.4e1 * t30 * t273 * t2076 + 0.3e1 * t763 * t5982 + 0.3e1 / 0.4e1 * t5986 * t760 * t31 * t336 - 0.9e1 / 0.8e1 * t2065 * t2087 - 0.9e1 / 0.8e1 * t2079 * t2087 - 0.27e2 / 0.128e3 * t763 * t5996 + t5999 * t765 / 0.4e1 + 0.9e1 / 0.256e3 * t2079 * t2084 + 0.3e1 / 0.1024e4 * t763 * t6006 - 0.27e2 / 0.2048e4 * t2092 * t6009 * t1921 + 0.225e3 / 0.512e3 * t770 * t6013 * t775 - 0.15e2 / 0.4e1 * t277 * t6018 + t6021 * t765 / 0.4e1 + 0.9e1 / 0.256e3 * t2065 * t2084 + t30 * (0.3e1 * t24 * t6026 * t267 + 0.11e2 / 0.2e1 * t24 * t6026 + 0.6e1 * t28 * t779) * t41 + 0.15e2 / 0.131072e6 * t6039 * t6040 * t5965 * t4706;
6682   t6053 = t87 * t31 * t5960;
6683   t6058 = t2162 * t321;
6684   t6063 = 0.292e3 / 0.2025e4 * t80 * t5950 - 0.73e2 / 0.97200e5 * t5950 * t96 + 0.292e3 / 0.675e3 * t5955 + 0.1168e4 / 0.2025e4 * t316 * t2162 + 0.261250e6 / 0.4782969e7 * t100 * t101 * t5960 + 0.55e2 / 0.16e2 * t110 * t5966 + t6045 * t44 * t55 / 0.24e2 - 0.73e2 / 0.48600e5 * t836 * t2191 - 0.73e2 / 0.194400e6 * t322 * (0.19440e5 * t6018 + 0.8360000e7 / 0.81e2 * t6053) - 0.73e2 / 0.48600e5 * t6058 * t330 - 0.73e2 / 0.32400e5 * t2167 * t852;
6685   t6064 = t831 * t840;
6686   t6067 = t316 * t2177;
6687   t6075 = t80 / t96 / t2175 / t95;
6688   t6076 = t842 * t842;
6689   t6082 = t852 * t852;
6690   t6100 = 0.73e2 / 0.64800e5 * t6064 * t842 - 0.73e2 / 0.64800e5 * t6067 * t2179 + 0.73e2 / 0.32400e5 * t2170 * t2182 + 0.73e2 / 0.103680e6 * t6075 * t6076 - 0.73e2 / 0.43200e5 * t2178 * t842 * t852 + 0.73e2 / 0.129600e6 * t841 * t6082 + 0.73e2 / 0.97200e5 * t841 * t330 * t2191 + t106 * t772 * t36 / 0.6e1 - 0.4e1 / 0.9e1 * t2108 * t290 + 0.22e2 / 0.9e1 * t785 * t792 - 0.616e3 / 0.81e2 * t285 * t2117 + 0.2618e4 / 0.243e3 * t45 * t50 * t5893;
6691   t6104 = t2205 * t347 * t105;
6692   t6108 = t866 * t873 * params->e;
6693   t6113 = t344 * t2218;
6694   t6114 = t6113 * t2220;
6695   t6121 = t120 * t5653;
6696   t6122 = params->e * params->e;
6697   t6123 = t6122 * t112;
6698   t6124 = t6121 * t6123;
6699   t6138 = (t6063 + t6100) * t126 + 0.8e1 / 0.9e1 * t6104 * t314 + 0.4e1 / 0.9e1 * t6108 * t850 - 0.44e2 / 0.9e1 * t2208 * t829 + 0.64e2 / 0.81e2 * t6114 * t2202 - 0.88e2 / 0.27e2 * t2212 * t2189 + 0.1232e4 / 0.81e2 * t869 * t2160 + 0.80e2 / 0.729e3 * t6124 * t771 / t52 / t115 / t324 * t69 - 0.352e3 / 0.81e2 * t2221 * t5966 + 0.1958e4 / 0.243e3 * t875 * t6053 - 0.5236e4 / 0.243e3 * t349 * t5948;
6700   t6148 = t261 * t739 * t2229;
6701   t6155 = t261 * t2241 * t881;
6702   t6157 = -t8 * t244 * t133 * t5865 / 0.2e1 - 0.20e2 / 0.27e2 * t5871 - 0.5e1 / 0.9e1 * t5874 - 0.2e1 / 0.3e1 * t5877 + 0.2e1 / 0.3e1 * t2346 * t910 * t711 * t728 - 0.2e1 / 0.3e1 * t5884 - 0.2e1 / 0.3e1 * t932 * t933 * t2298 * t358 - 0.3e1 / 0.8e1 * t261 * t263 * t265 * t6138 - 0.2e1 / 0.3e1 * t909 * t910 * t2303 * t249 - t6148 / 0.2e1 + 0.2e1 / 0.3e1 * t2361 * t933 * t888 * t897 + t6155 / 0.2e1;
6703   t6159 = 0.1e1 / t2252 / t128;
6704   t6160 = t745 * t745;
6705   t6166 = t261 * t2241 * t746;
6706   t6168 = t261 * t739 * t2255;
6707   t6170 = t880 * t880;
6708   t6176 = t8 * t716 * t2304;
6709   t6179 = t8 * t2287 * t729;
6710   t6181 = t14 * t14;
6711   t6183 = 0.1e1 / t708 / t6181;
6712   t6184 = t6183 * t17;
6713   t6185 = t711 * t711;
6714   t6190 = t2276 * t255;
6715   t6192 = t8 * t6190 * t2279;
6716   t6194 = t709 * t734;
6717   t6196 = t8 * t6194 * t712;
6718   t6198 = t728 * t728;
6719   t6204 = t8 * t2271 * t898;
6720   t6207 = t8 * t893 * t2299;
6721   t6214 = 0.9e1 * t261 * t263 * t6159 * t6160 - t6166 - 0.3e1 * t6168 + 0.9e1 / 0.4e1 * t261 * t263 * t744 * t6170 - 0.2e1 / 0.3e1 * t6176 + 0.2e1 / 0.3e1 * t6179 - 0.5e1 / 0.27e2 * t8 * t6184 * t133 * t6185 + 0.4e1 / 0.27e2 * t6192 + 0.2e1 / 0.9e1 * t6196 - t8 * t710 * t133 * t6198 / 0.2e1 + 0.2e1 / 0.3e1 * t6204 - 0.2e1 / 0.3e1 * t6207 + t8 * t357 * t238 * t5865 / 0.2e1;
6722   t6217 = t8 * t941 * t359;
6723   t6219 = t137 * t137;
6724   t6221 = 0.1e1 / t885 / t6219;
6725   t6222 = t6221 * t17;
6726   t6223 = t888 * t888;
6727   t6228 = t2260 * t255;
6728   t6230 = t8 * t6228 * t2263;
6729   t6232 = t886 * t734;
6730   t6234 = t8 * t6232 * t889;
6731   t6236 = t897 * t897;
6732   t6241 = t352 * t249;
6733   t6251 = t721 * t739 * t2047;
6734   t6266 = t721 * t739 * t2311;
6735   t6268 = -0.20e2 / 0.27e2 * t6217 - 0.5e1 / 0.27e2 * t8 * t6222 * t238 * t6223 + 0.4e1 / 0.27e2 * t6230 + 0.2e1 / 0.9e1 * t6234 - t8 * t887 * t238 * t6236 / 0.2e1 - 0.2e1 * t2428 * t1386 * t6241 * t728 + 0.12e2 * t3351 * t1394 * t6241 * t880 - 0.2e1 * t6251 - 0.2e1 * t721 * t263 * t2229 * t249 - 0.3e1 * t721 * t263 * t881 * t728 - 0.2e1 * t721 * t263 * t353 * t2303 - 0.2e1 * t6266;
6736   t6274 = t261 * t739 * t2037;
6737   t6286 = t909 * t739 * t2041;
6738   t6289 = t721 * t2241 * t722;
6739   t6296 = t721 * t739 * t2032;
6740   t6312 = 0.10e2 / 0.27e2 * t8 * t16 * t2377 * t133;
6741   t6316 = 0.10e2 / 0.27e2 * t8 * t139 * t2377 * t238;
6742   t6317 = 0.6e1 * t721 * t263 * t746 * t728 + 0.3e1 * t6274 - 0.27e2 / 0.2e1 * t261 * t263 * t2253 * t745 * t880 + 0.4e1 / 0.9e1 * t2346 * t263 * t353 * t2278 - 0.2e1 / 0.3e1 * t6286 + 0.4e1 / 0.3e1 * t6289 + 0.2e1 * t909 * t263 * t746 * t711 + 0.4e1 * t6296 - 0.12e2 * t721 * t263 * t2255 * t249 + 0.3e1 * t261 * t263 * t2036 * t2228 - t909 * t263 * t881 * t711 + t6312 + t6316;
6743   t6321 = -0.9e1 * t2257 + 0.4e1 / 0.9e1 * t2265 - 0.2e1 / 0.3e1 * t2269 + 0.4e1 / 0.3e1 * t2273 + 0.4e1 / 0.9e1 * t2281 - 0.2e1 / 0.3e1 * t2285 + 0.4e1 / 0.3e1 * t2289 - 0.2e1 * t2292 - 0.2e1 * t2301 - 0.2e1 * t2306 - 0.2e1 * t2309 - 0.6e1 * t2313 + t10 * (t6157 + t6214 + t6268 + t6317);
6744   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6745     v4rho4[0] = t5848 + t6321;
6746 
6747   t6339 = t2377 * t238;
6748   t6341 = t932 * t6339 * t2338;
6749   t6350 = t932 * t2366 * t2333;
6750   t6353 = t909 * t2351 * t2329;
6751   t6356 = t5 * t7 * t6221;
6752   t6362 = t2361 * t2366 * t2362;
6753   t6366 = t932 * t734 * t238 * t934;
6754   t6367 = t6366 / 0.9e1;
6755   t6368 = t2419 * t471;
6756   t6369 = t381 * t6368;
6757   t6372 = t5 * t7 * t6183;
6758   t6378 = t2346 * t2351 * t2347;
6759   t6386 = t909 * t734 * t133 * t911;
6760   t6387 = t6386 / 0.9e1;
6761   t6388 = t2377 * t133;
6762   t6390 = t909 * t6388 * t2356;
6763   t6392 = -t909 * t2355 * t9 * t728 / 0.2e1 - t909 * t910 * t370 * t2303 / 0.6e1 - t932 * t933 * t375 * t2298 / 0.6e1 + t932 * t2337 * t9 * t897 / 0.2e1 - 0.7e1 / 0.6e1 * t6341 - 0.3e1 / 0.2e1 * t721 * t5873 - t2361 * t2337 * t9 * t888 / 0.3e1 - t6350 / 0.6e1 - t6353 / 0.6e1 - 0.5e1 / 0.27e2 * t6356 * t933 * t375 * t2262 + t6362 / 0.9e1 + t6367 - 0.5e1 / 0.36e2 * t6369 - 0.5e1 / 0.27e2 * t6372 * t910 * t370 * t2278 + t6378 / 0.9e1 + t2346 * t2355 * t9 * t711 / 0.3e1 + t6387 + 0.7e1 / 0.6e1 * t6390;
6764   t6393 = t886 * t923;
6765   t6397 = t709 * t923;
6766   t6402 = t8 * t941 * t376;
6767   t6405 = t8 * t924 * t371;
6768   t6408 = 0.1e1 / t254 / t2294;
6769   t6411 = t8 * t15 * t6408 * t925;
6770   t6415 = t8 * t138 * t6408 * t942;
6771   t6430 = t8 * t6393 * t359 / 0.2e1 - t8 * t6397 * t250 / 0.2e1 - 0.5e1 / 0.27e2 * t6402 - 0.5e1 / 0.27e2 * t6405 - 0.25e2 / 0.6e1 * t6411 + 0.25e2 / 0.6e1 * t6415 - 0.5e1 / 0.9e1 * t5871 - 0.5e1 / 0.12e2 * t5874 - t5877 / 0.6e1 - t5884 / 0.6e1 - t6148 / 0.8e1 + t6155 / 0.4e1 - t6166 / 0.2e1 - 0.3e1 / 0.4e1 * t6168 - t6176 / 0.6e1 + t6179 / 0.3e1 + t6192 / 0.27e2 + t6196 / 0.9e1 + t6204 / 0.3e1;
6772   t6436 = t470 * t358;
6773   t6451 = t5 * t2345 * t17;
6774   t6458 = t5 * t908 * t255 * t2431;
6775   t6465 = t5 * t908 * t923;
6776   t6475 = t721 * t2241 * t918;
6777   t6476 = t6475 / 0.3e1;
6778   t6478 = t721 * t739 * t2416;
6779   t6487 = t2377 * t262;
6780   t6489 = t721 * t6487 * t2420;
6781   t6495 = -t6207 / 0.6e1 - 0.5e1 / 0.9e1 * t6217 + t6230 / 0.27e2 + t6234 / 0.9e1 - t2528 * t1486 * t6436 * t897 / 0.2e1 - t2428 * t1386 * t880 * t370 * t249 / 0.2e1 - t2428 * t1386 * t2429 * t728 / 0.2e1 + t6451 * t1386 * t2429 * t711 / 0.3e1 - t6458 / 0.3e1 + t2428 * t1394 * t745 * t370 * t249 - t6465 * t1386 * t352 * t9 * t249 + 0.3e1 * t3351 * t1394 * t2429 * t880 + t6476 + t6478 - 0.3e1 * t721 * t263 * t2255 * t370 + 0.3e1 * t721 * t2419 * t746 * t9 + 0.7e1 / 0.2e1 * t6489 + t2361 * t263 * t471 * t2262 / 0.9e1;
6782   t6497 = t932 * t739 * t2409;
6783   t6500 = t948 * t2241 * t949;
6784   t6501 = t6500 / 0.3e1;
6785   t6503 = t721 * t739 * t2401;
6786   t6514 = t948 * t739 * t2423;
6787   t6534 = t8 * t2378 * t133;
6788   t6537 = t8 * t2386 * t238;
6789   t6539 = -t6497 / 0.6e1 + t6501 - t6503 / 0.2e1 - t721 * t263 * t2229 * t370 / 0.2e1 + t2346 * t910 * t911 * t728 / 0.3e1 - t6514 / 0.2e1 - 0.3e1 / 0.2e1 * t721 * t2419 * t881 * t9 + t2361 * t933 * t934 * t897 / 0.3e1 - t948 * t263 * t471 * t2298 / 0.2e1 - t6251 / 0.2e1 - t6266 / 0.2e1 + 0.3e1 / 0.4e1 * t6274 - t6286 / 0.6e1 + 0.2e1 / 0.3e1 * t6289 + t6296 + 0.5e1 / 0.2e1 * t6534 - 0.5e1 / 0.2e1 * t6537 + t6312 + t6316;
6790   t6545 = t2035 + t2040 - t2044 - 0.2e1 * t2046 - t2050 + t10 * (t6392 + t6430 + t6495 + t6539) - t5841 - t5842 - t2331 / 0.2e1 - t2335 / 0.2e1 + t2340 + t2732;
6791   t6547 = t2353 / 0.3e1;
6792   t6549 = t2368 / 0.3e1;
6793   t6553 = t2349 / 0.3e1 - t6547 - t2358 + t2364 / 0.3e1 - t6549 - t2232 - t2236 - t2240 + 0.3e1 / 0.4e1 * t2243 - 0.3e1 / 0.4e1 * t2246 + 0.3e1 / 0.2e1 * t2250 - t2258;
6794   t6561 = t2759 + 0.7e1 / 0.2e1 * t2380 + t2760 - 0.7e1 / 0.2e1 * t2388 + t2266 - t2269 / 0.3e1 + t2273 - 0.3e1 / 0.2e1 * t2393 + 0.3e1 / 0.2e1 * t2396 - t2399 - 0.3e1 / 0.2e1 * t2403 + t2282;
6795   t6567 = -t2285 / 0.3e1 + t2289 - t2292 - t2302 - t2307 - t2309 - t2314 - t2411 / 0.2e1 - t2414 + 0.3e1 * t2418 - 0.3e1 * t2422 - 0.3e1 / 0.2e1 * t2425 - t2432;
6796   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6797     v4rho4[1] = t6545 + t6553 + t6561 + t6567;
6798 
6799   t6579 = t932 * t6339 * t2456;
6800   t6598 = t909 * t6388 * t2470;
6801   t6606 = t2346 * t2351 * t2444;
6802   t6608 = -t909 * t910 * t965 * t728 / 0.6e1 + t2361 * t933 * t970 * t897 / 0.9e1 - 0.7e1 / 0.9e1 * t6579 - t932 * t933 * t979 * t897 / 0.6e1 - t909 * t910 * t2495 * t249 / 0.3e1 - t932 * t933 * t2490 * t358 / 0.3e1 + t2346 * t910 * t959 * t728 / 0.9e1 + 0.7e1 / 0.9e1 * t6598 + t948 * t6368 - 0.5e1 / 0.27e2 * t6372 * t910 * t959 * t711 + 0.2e1 / 0.27e2 * t6606;
6803   t6614 = t909 * t2351 * t2448;
6804   t6621 = t2361 * t2366 * t2452;
6805   t6624 = t381 * t2241 * t988;
6806   t6627 = t381 * t2241 * t1123;
6807   t6634 = t932 * t2366 * t2460;
6808   t6639 = t2346 * t910 * t965 * t711 / 0.9e1 - t6614 / 0.9e1 - 0.5e1 / 0.27e2 * t6356 * t933 * t970 * t888 + 0.2e1 / 0.27e2 * t6621 - t6624 / 0.6e1 + t6627 / 0.12e2 + t2361 * t933 * t979 * t888 / 0.9e1 - t6634 / 0.9e1 + 0.2e1 / 0.9e1 * t6341 - t6350 / 0.9e1 - t6353 / 0.9e1;
6809   t6648 = 0.1e1 / t254 / t5861;
6810   t6650 = t9 * t9;
6811   t6656 = t8 * t2271 * t980;
6812   t6659 = t8 * t6194 * t960;
6813   t6662 = t8 * t2287 * t966;
6814   t6665 = t8 * t6232 * t971;
6815   t6667 = 0.2e1 / 0.27e2 * t6362 + 0.4e1 / 0.27e2 * t6366 - 0.5e1 / 0.18e2 * t6369 + 0.2e1 / 0.27e2 * t6378 + 0.4e1 / 0.27e2 * t6386 - 0.2e1 / 0.9e1 * t6390 - t8 * t886 * t6648 * t238 * t6650 / 0.3e1 + t6656 / 0.9e1 + t6659 / 0.27e2 + t6662 / 0.9e1 + t6665 / 0.27e2;
6816   t6672 = t8 * t716 * t2496;
6817   t6675 = t8 * t893 * t2491;
6818   t6691 = t8 * t6393 * t376 / 0.3e1 - t6672 / 0.3e1 - t6675 / 0.3e1 - t8 * t6397 * t371 / 0.3e1 - t8 * t709 * t6648 * t133 * t6650 / 0.3e1 - 0.10e2 / 0.27e2 * t6402 - 0.10e2 / 0.27e2 * t6405 - 0.41e2 / 0.9e1 * t6411 + 0.41e2 / 0.9e1 * t6415 - 0.10e2 / 0.27e2 * t5871 - 0.5e1 / 0.18e2 * t5874;
6819   t6711 = t5 * t931 * t923;
6820   t6721 = t6155 / 0.12e2 - t6166 / 0.6e1 + t6179 / 0.9e1 + t6196 / 0.27e2 + t6204 / 0.9e1 - 0.10e2 / 0.27e2 * t6217 + t6234 / 0.27e2 - t2428 * t1386 * t352 * t965 * t249 / 0.3e1 - t2528 * t1486 * t2529 * t897 / 0.3e1 + 0.2e1 / 0.3e1 * t6711 * t1486 * t470 * t9 * t358 - 0.2e1 / 0.3e1 * t6465 * t1386 * t2429 * t9;
6821   t6723 = t5 * t2360 * t17;
6822   t6730 = t5 * t931 * t255 * t2531;
6823   t6746 = t948 * t739 * t2505;
6824   t6749 = t948 * t2241 * t976;
6825   t6762 = 0.2e1 / 0.9e1 * t6723 * t1486 * t2529 * t888 - 0.2e1 / 0.9e1 * t6730 + 0.2e1 / 0.9e1 * t6451 * t1386 * t352 * t959 * t249 - 0.2e1 / 0.9e1 * t6458 + t721 * t263 * t746 * t965 + t932 * t263 * t988 * t888 / 0.3e1 + 0.2e1 / 0.3e1 * t6746 + 0.2e1 / 0.9e1 * t6749 - t909 * t263 * t881 * t959 / 0.6e1 + 0.4e1 / 0.9e1 * t2346 * t2355 * t2470 * t249 - t721 * t263 * t353 * t2495;
6826   t6765 = t948 * t6487 * t2523;
6827   t6779 = t948 * t739 * t2508;
6828   t6782 = t909 * t739 * t2512;
6829   t6789 = t721 * t739 * t2519;
6830   t6800 = -0.7e1 / 0.3e1 * t6765 - t721 * t263 * t881 * t965 / 0.2e1 + t948 * t263 * t988 * t897 - t932 * t263 * t1123 * t888 / 0.6e1 - t6779 / 0.3e1 - t6782 / 0.9e1 + t909 * t263 * t746 * t959 / 0.3e1 - t6789 / 0.3e1 - 0.4e1 / 0.9e1 * t2361 * t2337 * t934 * t9 - t948 * t263 * t1123 * t897 / 0.2e1 + 0.4e1 / 0.9e1 * t6475;
6831   t6810 = 0.2e1 / 0.3e1 * t6478 - 0.2e1 / 0.3e1 * t6489 - t6497 / 0.9e1 + 0.4e1 / 0.9e1 * t6500 - t6503 / 0.3e1 - t6514 / 0.3e1 + 0.2e1 / 0.9e1 * t6289 - t6534 / 0.3e1 + t6537 / 0.3e1 + t6312 + t6316;
6832   t6825 = -0.2e1 / 0.3e1 * t2046 - t5841 - t5842 + t10 * (t6608 + t6639 + t6667 + t6691 + t6721 + t6762 + t6800 + t6810) + 0.2e1 / 0.9e1 * t2446 - t2450 / 0.3e1 + 0.2e1 / 0.9e1 * t2454 + 0.2e1 / 0.3e1 * t2458 - t2462 / 0.3e1 + t2465 / 0.2e1 - t2468 / 0.4e1 - 0.2e1 / 0.3e1 * t2472 - t2331 / 0.3e1 - t2335 / 0.3e1;
6833   t6840 = 0.2e1 / 0.3e1 * t2340 + t2343 / 0.2e1 + 0.2e1 / 0.9e1 * t2349 - 0.4e1 / 0.9e1 * t2353 - 0.2e1 / 0.3e1 * t2358 + 0.2e1 / 0.9e1 * t2364 - 0.4e1 / 0.9e1 * t2368 + t2243 / 0.2e1 - t2246 / 0.4e1 + t2250 / 0.2e1 - t2477 / 0.9e1 - t2480 / 0.3e1 - t2483 / 0.9e1 - t2487 / 0.3e1;
6834   t6851 = -t2493 - t2498 + 0.2e1 / 0.3e1 * t2374 + 0.5e1 / 0.3e1 * t2380 + 0.2e1 / 0.3e1 * t2384 - 0.5e1 / 0.3e1 * t2388 - t2269 / 0.9e1 + 0.2e1 / 0.3e1 * t2273 - t2393 + t2396 + 0.2e1 * t2507 - t2510 - t2514 / 0.3e1 - 0.4e1 / 0.3e1 * t2399;
6835   t6864 = -t2403 - 0.2e1 / 0.3e1 * t2517 - t2521 + 0.2e1 * t2525 - t2285 / 0.9e1 + 0.2e1 / 0.3e1 * t2289 - t2292 / 0.3e1 - t2309 / 0.3e1 - t2411 / 0.3e1 - 0.4e1 / 0.3e1 * t2414 + 0.2e1 * t2418 - 0.2e1 * t2422 - t2425 - 0.2e1 / 0.3e1 * t2432 - 0.2e1 / 0.3e1 * t2532;
6836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6837     v4rho4[2] = t6825 + t6840 + t6851 + t6864;
6838 
6839   t6903 = t381 * t739 * t2711;
6840   t6906 = t381 * t739 * t2726;
6841   t6909 = t909 * t2351 * t2715;
6842   t6916 = t932 * t2366 * t2719;
6843   t6923 = -t932 * t933 * t2750 * t358 / 0.6e1 - 0.5e1 / 0.27e2 * t6372 * t910 * t2733 * t249 - t909 * t910 * t370 * t2495 / 0.2e1 - 0.5e1 / 0.27e2 * t6356 * t933 * t2738 * t358 - t2361 * t2337 * t970 * t9 / 0.3e1 - t932 * t933 * t375 * t2490 / 0.2e1 + t932 * t2337 * t9 * t979 / 0.2e1 - t909 * t910 * t2744 * t249 / 0.6e1 + t2346 * t2355 * t959 * t9 / 0.3e1 - t6903 / 0.8e1 - 0.3e1 / 0.4e1 * t6906 - t6909 / 0.6e1 - t909 * t2355 * t9 * t965 / 0.2e1 - t6916 / 0.6e1 + t6579 / 0.3e1 - t6598 / 0.3e1 + t6606 / 0.9e1 - t6614 / 0.6e1 + t6621 / 0.9e1;
6844   t6928 = t8 * t716 * t2745;
6845   t6931 = t8 * t893 * t2751;
6846   t6934 = t8 * t6190 * t2734;
6847   t6938 = -0.6e1 * t2295 - 0.12e2 * t5863;
6848   t6949 = t8 * t6228 * t2739;
6849   t6959 = -t6624 / 0.2e1 + t6627 / 0.4e1 - t6634 / 0.6e1 - t6928 / 0.6e1 - t6931 / 0.6e1 + t6934 / 0.27e2 - t8 * t357 * t238 * t6938 / 0.2e1 + t8 * t244 * t133 * t6938 / 0.2e1 + t6949 / 0.27e2 + t6367 - 0.5e1 / 0.12e2 * t6369 + t6387 + t6656 / 0.3e1 + t6659 / 0.9e1 + t6662 / 0.3e1 + t6665 / 0.9e1 - t6672 / 0.2e1 - t6675 / 0.2e1 - 0.5e1 / 0.9e1 * t6402;
6850   t6980 = t948 * t739 * t2774;
6851   t6983 = t948 * t739 * t2778;
6852   t6986 = t381 * t739 * t2766;
6853   t6989 = t932 * t739 * t2770;
6854   t6992 = t948 * t739 * t2761;
6855   t7015 = -0.5e1 / 0.9e1 * t6405 + t6411 / 0.3e1 - t6415 / 0.3e1 - 0.5e1 / 0.27e2 * t5871 - 0.5e1 / 0.36e2 * t5874 - 0.5e1 / 0.27e2 * t6217 + t2346 * t263 * t353 * t2733 / 0.9e1 - t721 * t263 * t353 * t2744 / 0.2e1 - 0.3e1 * t948 * t2419 * t988 * t9 - t6980 / 0.2e1 - t6983 / 0.2e1 + 0.3e1 / 0.4e1 * t6986 - t6989 / 0.6e1 + t6992 - t2528 * t1486 * t470 * t979 * t358 / 0.2e1 - t2428 * t1386 * t2429 * t965 / 0.2e1 + 0.3e1 * t3531 * t1503 * t470 * t1122 * t358 + t6723 * t1486 * t470 * t970 * t358 / 0.3e1 + t6711 * t1486 * t2529 * t9;
6856   t7054 = -t2528 * t1486 * t1122 * t375 * t358 / 0.2e1 + t2528 * t1503 * t987 * t375 * t358 - t6730 / 0.3e1 + t2346 * t910 * t2715 * t249 / 0.3e1 + t2361 * t933 * t2719 * t358 / 0.3e1 - t948 * t263 * t2711 * t358 / 0.2e1 - 0.3e1 * t948 * t263 * t2726 * t358 + 0.3e1 / 0.2e1 * t948 * t2419 * t1123 * t9 - 0.3e1 / 0.2e1 * t948 * t263 * t471 * t2490 + t6746 + 0.2e1 / 0.3e1 * t6749 + t6765 - t6779 / 0.2e1 - t6782 / 0.6e1 - t6789 / 0.2e1 + t6476 + t6501 + t6312 + t6316;
6857   t7062 = -t5841 - t5842 + t10 * (t6923 + t6959 + t7015 + t7054) - t2714 - t2718 - t2722 - t2729 + t2446 / 0.3e1 - t2450 / 0.2e1 + t2454 / 0.3e1 + t2458 - t2462 / 0.2e1;
6858   t7067 = 0.3e1 / 0.2e1 * t2465 - 0.3e1 / 0.4e1 * t2468 - t2472 + 0.3e1 / 0.4e1 * t2343 - t6547 - t6549 + t2244 + t2737 + t2742 - t2748 - t2754 - t2477 / 0.3e1;
6859   t7072 = -t2480 - t2483 / 0.3e1 - t2487 - 0.3e1 / 0.2e1 * t2493 - 0.3e1 / 0.2e1 * t2498 + t2374 - t2380 + t2384 + t2388 + t2274 + t2764 + t2769;
6860   t7079 = -t2773 - t2777 - t2781 + 0.3e1 * t2507 - 0.3e1 / 0.2e1 * t2510 - t2514 / 0.2e1 - t2399 - 0.2e1 * t2517 - 0.3e1 / 0.2e1 * t2521 + 0.3e1 * t2525 + t2290 - t2414 - t2532;
6861   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6862     v4rho4[3] = t7062 + t7067 + t7072 + t7079;
6863 
6864   t7091 = -t5841 - t5842 - 0.3e1 / 0.2e1 * t2713 - 0.2e1 * t2717 - 0.2e1 * t2721 - 0.9e1 * t2728 + 0.3e1 * t2465 - 0.3e1 / 0.2e1 * t2468 + t2343 + 0.4e1 / 0.9e1 * t2736 + 0.4e1 / 0.9e1 * t2741 - 0.2e1 * t2747 - 0.2e1 * t2753;
6865   t7105 = 0.12e2 * t2295 + 0.12e2 * t5863;
6866   t7115 = t959 * t959;
6867   t7120 = t965 * t965;
6868   t7125 = t970 * t970;
6869   t7130 = t979 * t979;
6870   t7140 = -t8 * t244 * t133 * t7105 / 0.2e1 + t8 * t357 * t238 * t7105 / 0.2e1 - 0.5e1 / 0.27e2 * t8 * t6184 * t133 * t7115 - t8 * t710 * t133 * t7120 / 0.2e1 - 0.5e1 / 0.27e2 * t8 * t6222 * t238 * t7125 - t8 * t887 * t238 * t7130 / 0.2e1 - t6903 / 0.2e1 - 0.3e1 * t6906 - 0.2e1 / 0.3e1 * t6909 - 0.2e1 / 0.3e1 * t6916 - t6624 + t6627 / 0.2e1;
6871   t7161 = -0.2e1 / 0.3e1 * t6928 - 0.2e1 / 0.3e1 * t6931 + 0.4e1 / 0.27e2 * t6934 + 0.4e1 / 0.27e2 * t6949 - 0.5e1 / 0.9e1 * t6369 + 0.2e1 / 0.3e1 * t6656 + 0.2e1 / 0.9e1 * t6659 + 0.2e1 / 0.3e1 * t6662 + 0.2e1 / 0.9e1 * t6665 - 0.20e2 / 0.27e2 * t6402 - 0.20e2 / 0.27e2 * t6405 + 0.6e1 * t948 * t263 * t988 * t979 - 0.27e2 / 0.2e1 * t381 * t263 * t2724 * t987 * t1122;
6872   t7198 = 0.3e1 * t381 * t263 * t2765 * t2710 - t932 * t263 * t1123 * t970 - 0.2e1 * t948 * t263 * t2711 * t375 - 0.3e1 * t948 * t263 * t1123 * t979 - 0.2e1 * t948 * t263 * t471 * t2750 + 0.4e1 / 0.9e1 * t2361 * t263 * t471 * t2738 + 0.2e1 * t932 * t263 * t988 * t970 - 0.12e2 * t948 * t263 * t2726 * t375 - 0.2e1 * t6980 - 0.2e1 * t6983 + 0.3e1 * t6986 - 0.2e1 / 0.3e1 * t6989;
6873   t7210 = 0.1e1 / t2723 / t233;
6874   t7211 = t987 * t987;
6875   t7216 = t1122 * t1122;
6876   t7229 = t1073 * t1073;
6877   t7236 = 0.1e1 / t169 / t442;
6878   t7237 = sigma[2] * t7236;
6879   t7239 = 0.6160e4 / 0.81e2 * tau[1] * t2599 - 0.2618e4 / 0.81e2 * t7237;
6880   t7249 = t49 * t2624;
6881   t7250 = t7249 * t2626;
6882   t7254 = t1053 * t429 * t1068;
6883   t7257 = t1047 * t2640;
6884   t7260 = t1051 * t1051;
6885   t7263 = t184 / t190 / t7260;
6886   t7264 = t1055 * t1055;
6887   t7270 = t1068 * t1068;
6888   t7281 = t1043 * t1043;
6889   t7291 = t69 * t7237;
6890   t7293 = 0.3e1 / 0.4e1 * t7239 * t44 * t417 - 0.3e1 / 0.2e1 * t2610 * t1048 + 0.27e2 / 0.8e1 * t1044 * t2616 - 0.9e1 / 0.4e1 * t1044 * t2619 - 0.45e2 / 0.8e1 * t416 * t7250 + 0.27e2 / 0.4e1 * t3248 * t7254 - 0.3e1 / 0.2e1 * t416 * t7257 + 0.567e3 / 0.64e2 * t7263 * t7264 - 0.243e3 / 0.16e2 * t2625 * t1055 * t1068 + 0.243e3 / 0.80e2 * t1054 * t7270 + 0.81e2 / 0.20e2 * t1054 * t429 * t2640 - 0.27e2 / 0.40e2 * t422 * (0.5e1 * params->b * t7239 * t186 + 0.200e3 / 0.9e1 * t2632 * t426 + 0.50e2 / 0.3e1 * params->b * t7281 * t87 + 0.25e2 / 0.9e1 * t185 * t87 * t7239) + 0.5236e4 / 0.729e3 * t7291;
6891   t7298 = t1073 * t1082;
6892   t7301 = t434 * t2660;
6893   t7309 = t196 / t208 / t2658 / t207;
6894   t7310 = t1084 * t1084;
6895   t7316 = t1094 * t1094;
6896   t7322 = 0.292e3 / 0.675e3 * t7229 + 0.1168e4 / 0.2025e4 * t434 * t2645 + 0.292e3 / 0.2025e4 * t196 * t7293 - 0.73e2 / 0.97200e5 * t7293 * t208 + 0.73e2 / 0.64800e5 * t7298 * t1084 - 0.73e2 / 0.64800e5 * t7301 * t2662 + 0.73e2 / 0.32400e5 * t2653 * t2665 + 0.73e2 / 0.103680e6 * t7309 * t7310 - 0.73e2 / 0.43200e5 * t2661 * t1084 * t1094 + 0.73e2 / 0.129600e6 * t1083 * t7316 + 0.73e2 / 0.97200e5 * t1083 * t448 * t2674;
6897   t7336 = 0.1e1 / t168 / t457;
6898   t7340 = t221 * t200;
6899   t7341 = 0.1e1 / t7340;
6900   t7342 = t220 * t7341;
6901   t7345 = t1290 * t143;
6902   t7358 = t152 / t1010 / t162;
6903   t7359 = t1013 * t1013;
6904   t7367 = t992 * t992;
6905   t7370 = t1002 * t1002;
6906   t7378 = t152 * t390 * t394;
6907   t7388 = t2565 * t2581 * t1017;
6908   t7391 = t1006 * t2680;
6909   t7394 = t2576 * t1104;
6910   t7398 = t1013 * t222;
6911   t7402 = t153 * t1014;
6912   t7403 = t7402 * t158;
6913   t7406 = t152 * t2542;
6914   t7411 = t152 * t2559;
6915   t7416 = t2574 * t2576;
6916   t7418 = t7416 * t458 * t1988;
6917   t7421 = t152 * (0.3e1 * t146 * t7345 * t385 + 0.11e2 / 0.2e1 * t146 * t7345 + 0.6e1 * t150 * t1021) * t163 + 0.15e2 / 0.131072e6 * t7358 * t7359 * t7341 * t4874 + 0.6e1 * t152 * t993 * t1002 + t152 * t7367 * t163 + 0.3e1 * t152 * t7370 * t163 + 0.4e1 * t152 * t391 * t2559 + 0.3e1 / 0.4e1 * t7378 * t1002 * t153 * t454 - 0.9e1 / 0.8e1 * t2548 * t2570 - 0.9e1 / 0.8e1 * t2562 * t2570 - 0.27e2 / 0.128e3 * t1005 * t7388 + 0.3e1 * t1005 * t7391 - 0.27e2 / 0.2048e4 * t2575 * t7394 * t1988 + 0.225e3 / 0.512e3 * t1012 * t7398 * t1017 - 0.15e2 / 0.4e1 * t395 * t7403 + t7406 * t1007 / 0.4e1 + 0.9e1 / 0.256e3 * t2548 * t2567 + t7411 * t1007 / 0.4e1 + 0.9e1 / 0.256e3 * t2562 * t2567 + 0.3e1 / 0.1024e4 * t1005 * t7418;
6918   t7425 = t2645 * t439;
6919   t7434 = t87 * t153 * t7336;
6920   t7439 = t215 * t1014 * t158 / 0.6e1 - 0.4e1 / 0.9e1 * t2591 * t408 + 0.22e2 / 0.9e1 * t1027 * t1034 - 0.616e3 / 0.81e2 * t403 * t2600 + 0.2618e4 / 0.243e3 * t166 * t167 * t7236 + 0.261250e6 / 0.4782969e7 * t100 * t211 * t7336 + 0.55e2 / 0.16e2 * t110 * t7342 + t7421 * t44 * t172 / 0.24e2 - 0.73e2 / 0.48600e5 * t7425 * t448 - 0.73e2 / 0.32400e5 * t2650 * t1094 - 0.73e2 / 0.48600e5 * t1078 * t2674 - 0.73e2 / 0.194400e6 * t440 * (0.19440e5 * t7403 + 0.8360000e7 / 0.81e2 * t7434);
6921   t7443 = t2688 * t465 * t105;
6922   t7447 = t1108 * t1115 * params->e;
6923   t7452 = t462 * t2701;
6924   t7453 = t7452 * t2220;
6925   t7460 = t226 * t5746;
6926   t7461 = t7460 * t6123;
6927   t7475 = (t7322 + t7439) * t231 + 0.8e1 / 0.9e1 * t7443 * t432 + 0.4e1 / 0.9e1 * t7447 * t1092 - 0.44e2 / 0.9e1 * t2691 * t1071 + 0.64e2 / 0.81e2 * t7453 * t2685 - 0.88e2 / 0.27e2 * t2695 * t2672 + 0.1232e4 / 0.81e2 * t1111 * t2643 + 0.80e2 / 0.729e3 * t7461 * t1013 / t169 / t221 / t442 * t69 - 0.352e3 / 0.81e2 * t2703 * t7342 + 0.1958e4 / 0.243e3 * t1117 * t7434 - 0.5236e4 / 0.243e3 * t467 * t7291;
6928   t7488 = 0.4e1 * t6992 - 0.2e1 * t2528 * t1486 * t2529 * t979 + 0.12e2 * t3531 * t1503 * t2529 * t1122 + 0.4e1 / 0.3e1 * t6749 + 0.9e1 * t381 * t263 * t7210 * t7211 + 0.9e1 / 0.4e1 * t381 * t263 * t986 * t7216 + 0.2e1 / 0.3e1 * t2346 * t910 * t959 * t965 + 0.2e1 / 0.3e1 * t2361 * t933 * t970 * t979 - 0.3e1 / 0.8e1 * t381 * t263 * t383 * t7475 - 0.2e1 / 0.3e1 * t909 * t910 * t2744 * t370 - 0.2e1 / 0.3e1 * t932 * t933 * t2750 * t375 + t6312 + t6316;
6929   t7492 = -0.2e1 / 0.3e1 * t2477 - 0.2e1 * t2480 - 0.2e1 / 0.3e1 * t2483 - 0.2e1 * t2487 + 0.4e1 / 0.3e1 * t2374 + 0.4e1 / 0.3e1 * t2384 + 0.12e2 * t2763 + 0.9e1 * t2768 - 0.2e1 * t2772 - 0.6e1 * t2776 - 0.6e1 * t2780 - 0.4e1 * t2517 + t10 * (t7140 + t7161 + t7198 + t7488);
6930   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6931     v4rho4[4] = t7091 + t7492;
6932 
6933   t7507 = t261 * t739 * t1138;
6934   t7509 = t261 * t263 * t2827;
6935   t7512 = t261 * t263 * t2831;
6936   t7536 = t721 * t263 * t2814;
6937   t7539 = t721 * t263 * t2817;
6938   t7547 = t261 * t263 * t2822;
6939   t7549 = 0.9e1 / 0.4e1 * t480 * t481 * t744 * t3019 * t352 + 0.9e1 / 0.4e1 * t480 * t481 * t2826 * t880 + 0.3e1 / 0.4e1 * t480 * t481 * t1137 * t2228 + t7507 + 0.6e1 * t7509 + 0.3e1 * t7512 - t480 * t2804 * t1247 * t711 / 0.2e1 - 0.3e1 / 0.2e1 * t480 * t1132 * t3020 * t249 - 0.3e1 / 0.2e1 * t480 * t1132 * t1247 * t728 - t480 * t1132 * t544 * t2303 / 0.2e1 - 0.27e2 / 0.4e1 * t480 * t481 * t2253 * t1246 * t745 - 0.4e1 * t7536 - 0.2e1 * t7539 + 0.9e1 * t480 * t481 * t6159 * t543 * t2254 - 0.9e1 * t7547;
6940   t7550 = t2276 * t262;
6941   t7556 = t909 * t263 * t2805;
6942   t7559 = t721 * t739 * t1133;
6943   t7561 = t543 * t352;
6944   t7588 = t3351 * t2811;
6945   t7595 = t261 * t739 * t1247;
6946   t7597 = t2116 * t44;
6947   t7598 = t7597 * t49;
6948   t7615 = t87 * sigma[0] * t2187;
6949   t7648 = t802 * t49;
6950   t7652 = t811 * t1201 * t311;
6951   t7655 = t2847 * t826;
6952   t7662 = -0.27e2 / 0.40e2 * t304 * (0.770e3 / 0.27e2 * params->b * t2116 * t70 - 0.550e3 / 0.27e2 * t2863 * t308 + 0.50e2 / 0.9e1 * t1193 * t823 - 0.25e2 / 0.36e2 * t505 * t2154 + 0.3850e4 / 0.243e3 * t68 * t87 * t2116) - 0.308e3 / 0.243e3 * t7598 - 0.243e3 / 0.32e2 * t2142 * t1201 * t813 + 0.243e3 / 0.80e2 * t812 * t2873 * t311 + 0.243e3 / 0.80e2 * t812 * t1201 * t826 + 0.81e2 / 0.80e2 * t812 * t511 * t2157 + 0.27e2 / 0.16e2 * t7648 * t2848 + 0.27e2 / 0.8e1 * t2846 * t7652 + 0.27e2 / 0.16e2 * t2846 * t7655 + 0.9e1 / 0.16e2 * t1182 * t2133 + 0.45e2 / 0.256e3 * t502 * t5907;
6953   t7677 = t805 * t2873;
6954   t7687 = t2141 * t511 * t813;
6955   t7690 = -0.27e2 / 0.128e3 * t514 * t5911 + 0.77e2 / 0.18e2 * t7597 * t299 + 0.11e2 / 0.8e1 * t2835 * t806 - 0.3e1 / 0.8e1 * t1182 * t2136 + 0.3e1 / 0.64e2 * t502 * t5914 - 0.3e1 / 0.8e1 * t2127 * t1187 - 0.9e1 / 0.8e1 * t802 * t2851 - 0.9e1 / 0.8e1 * t298 * t7677 + 0.567e3 / 0.64e2 * t5920 * t511 * t2143 - 0.243e3 / 0.32e2 * t2142 * t1190 * t826 - 0.135e3 / 0.32e2 * t2846 * t7687;
6956   t7691 = t7662 + t7690;
6957   t7708 = t771 * t113;
6958   t7713 = t2964 * t340;
6959   t7717 = t113 * t2098;
6960   t7721 = sigma[0] * t1160;
6961   t7722 = t7721 * t36;
6962   t7725 = params->BLOC_b * t779;
6963   t7733 = t30 * t2942;
6964   t7748 = t2956 * t2083;
6965   t7751 = t1156 * t858;
6966   t7756 = 0.3e1 * t763 * t2928 - 0.15e2 / 0.131072e6 * t6039 * t7708 * t2201 * t4706 + 0.45e2 / 0.4096e4 * t2092 * t7713 * t1921 - 0.9e1 / 0.32e2 * t770 * t7717 * t775 + 0.3e1 / 0.2e1 * t277 * t7722 + t30 * (-0.3e1 / 0.4e1 * t7725 * t483 - 0.17e2 / 0.8e1 * t7725 * t21) * t41 + 0.3e1 / 0.16e2 * t7733 * t765 + 0.9e1 / 0.512e3 * t2945 * t2084 + 0.3e1 / 0.4096e4 * t1153 * t6006 - 0.9e1 / 0.512e3 * t2065 * t2958 + 0.3e1 / 0.8e1 * t2065 * t2961 - t6021 * t1157 / 0.16e2 + 0.3e1 / 0.8e1 * t2079 * t2961 + 0.63e2 / 0.512e3 * t763 * t7748 - 0.9e1 / 0.8e1 * t763 * t7751 - 0.9e1 / 0.16e2 * t2945 * t2087;
6967   t7765 = t2091 * t2964;
6968   t7767 = t7765 * t116 * t1921;
6969   t7794 = t30 * t2924;
6970   t7797 = t30 * t2927;
6971   t7800 = t30 * t2930;
6972   t7805 = -0.27e2 / 0.512e3 * t1153 * t5996 + 0.3e1 / 0.4e1 * t1153 * t5982 - t5999 * t1157 / 0.16e2 - 0.9e1 / 0.512e3 * t2079 * t2958 - 0.9e1 / 0.4096e4 * t763 * t7767 + 0.3e1 * t30 * t750 * t1150 * t41 + t30 * t2076 * t488 * t41 + 0.3e1 * t30 * t760 * t1150 * t41 + 0.3e1 * t30 * t272 * t2942 * t41 + t30 * t2059 * t488 * t41 - 0.3e1 / 0.16e2 * t5986 * t491 * t36 * t760 - 0.9e1 / 0.16e2 * t2934 * t2087 + 0.3e1 / 0.16e2 * t7794 * t765 + 0.3e1 / 0.16e2 * t7797 * t765 + 0.3e1 / 0.8e1 * t7800 * t765 + 0.9e1 / 0.512e3 * t2934 * t2084;
6973   t7820 = t535 * t2201;
6974   t7835 = 0.292e3 / 0.2025e4 * t80 * t7691 + 0.292e3 / 0.675e3 * t316 * t2878 + 0.292e3 / 0.675e3 * t831 * t1206 + 0.292e3 / 0.2025e4 * t2162 * t516 - 0.73e2 / 0.97200e5 * t7691 * t96 + 0.11e2 / 0.9e1 * t285 * t2912 - t2976 * t290 / 0.3e1 + (t7756 + t7805) * t44 * t55 / 0.24e2 + 0.11e2 / 0.9e1 * t1170 * t792 - 0.154e3 / 0.81e2 * t496 * t2117 - 0.73e2 / 0.86400e5 * t2178 * t1216 * t852 - 0.20900e5 / 0.1594323e7 * t100 * t528 * t2187 - 0.15e2 / 0.16e2 * t110 * t7820 - 0.73e2 / 0.86400e5 * t6067 * t2915 - 0.73e2 / 0.86400e5 * t2178 * t1223 * t842 + t2108 * t499 / 0.24e2 + 0.73e2 / 0.129600e6 * t2170 * t2989 + 0.73e2 / 0.129600e6 * t841 * t1223 * t852;
6975   t7858 = t2878 * t321;
6976   t7876 = t516 * t2177;
6977   t7879 = t1206 * t840;
6978   t7882 = 0.73e2 / 0.388800e6 * t841 * t525 * t2191 - t532 * t2197 / 0.15e2 + 0.73e2 / 0.129600e6 * t2981 * t2182 + 0.73e2 / 0.129600e6 * t6064 * t1216 + 0.73e2 / 0.64800e5 * t2170 * t2986 + 0.73e2 / 0.129600e6 * t841 * t2906 * t330 - t785 * t1177 / 0.3e1 - 0.154e3 / 0.81e2 * t45 * t49 * t2116 + 0.73e2 / 0.103680e6 * t6075 * t525 * t2179 - 0.73e2 / 0.64800e5 * t7858 * t330 - 0.73e2 / 0.64800e5 * t2891 * t852 - 0.73e2 / 0.194400e6 * t1211 * t2191 - 0.73e2 / 0.194400e6 * t6058 * t525 - 0.73e2 / 0.64800e5 * t2167 * t1223 - 0.73e2 / 0.64800e5 * t836 * t2906 - 0.73e2 / 0.194400e6 * t322 * (-0.7776e4 * t7722 - 0.668800e6 / 0.27e2 * t7615) - 0.73e2 / 0.259200e6 * t7876 * t2179 + 0.73e2 / 0.129600e6 * t7879 * t842;
6979   t7885 = t539 * t2218;
6980   t7886 = t7885 * t2220;
6981   t7894 = t1234 * t873 * params->e;
6982   t7906 = t2995 * t347 * t105;
6983   t7909 = 0.308e3 / 0.81e2 * t349 * t7598 - 0.22e2 / 0.27e2 * t3002 * t2189 + 0.308e3 / 0.81e2 * t1237 * t2160 + 0.3e1 / 0.4e1 * t2212 * t2904 - 0.10e2 / 0.243e3 * t6124 / t52 / t115 / t89 * t113 * t69 - 0.341e3 / 0.162e3 * t875 * t7615 - 0.22e2 / 0.9e1 * t2998 * t829 + (t7835 + t7882) * t126 + 0.16e2 / 0.81e2 * t7886 * t2202 - t6104 * t514 / 0.12e2 - 0.2e1 / 0.9e1 * t6114 * t2921 + 0.2e1 / 0.9e1 * t7894 * t850 + 0.2e1 / 0.3e1 * t2208 * t1204 - t6108 * t1221 / 0.12e2 - 0.22e2 / 0.9e1 * t869 * t2876 + 0.38e2 / 0.27e2 * t2221 * t7820 + 0.2e1 / 0.3e1 * t7906 * t314;
6984   t7916 = t261 * t2241 * t544 / 0.9e1;
6985   t7918 = t261 * t263 * t3020;
6986   t7920 = t480 * t7550 * t544 * t2278 / 0.9e1 - 0.2e1 / 0.3e1 * t7556 - 0.2e1 / 0.3e1 * t7559 - 0.27e2 / 0.4e1 * t1393 * t3332 * t7561 * t880 + t3046 * t1394 * t543 * t711 * t352 - t3046 * t1386 * t2809 * t728 / 0.2e1 + 0.6e1 * t1385 * t1394 * t1246 * t249 * t352 + 0.3e1 * t1385 * t1394 * t543 * t728 * t352 + 0.3e1 * t1385 * t1394 * t2809 * t880 + 0.8e1 * t7588 - 0.9e1 * t1385 * t3332 * t2809 * t745 - t7595 / 0.2e1 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * t7909 + t7916 - 0.3e1 / 0.2e1 * t7918;
6987   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6988     v4rho3sigma[0] = t7549 + t7920;
6989 
6990   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6991     v4rho3sigma[1] = 0.0e0;
6992 
6993   t7922 = t932 * t263 * t3031;
6994   t7925 = t948 * t739 * t1254;
6995   t7928 = t948 * t263 * t3035;
6996   t7932 = t381 * t2241 * t611 / 0.9e1;
6997   t7933 = t2260 * t262;
6998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6999     v4rho3sigma[2] = -0.2e1 / 0.3e1 * t7922 - 0.2e1 / 0.3e1 * t7925 - 0.2e1 * t7928 + t7932 + t480 * t7933 * t611 * t2262 / 0.9e1 - t3069 * t1486 * t610 * t358 * t897 / 0.2e1 - t480 * t1253 * t611 * t2298 / 0.2e1;
7000 
7001   t7951 = t543 * t9;
7002   t7957 = t478 * t479 * t2276;
7003   t7962 = t3059 * t3045;
7004   t7968 = 0.4e1 / 0.9e1 * t2428 * t3049;
7005   t7970 = 0.8e1 / 0.3e1 * t3351 * t3053;
7006   t7971 = t1246 * t370;
7007   t7987 = t923 * t2;
7008   t7988 = t7987 * t479;
7009   t7989 = t7988 * t3062;
7010   t7994 = t255 * t2;
7011   t7995 = t7994 * t479;
7012   t7996 = t7995 * t1259;
7013   t7999 = 0.4e1 / 0.3e1 * t3042 * t3056;
7014   t8000 = -0.3e1 * t1385 * t3332 * t3047 * t745 + 0.2e1 * t3568 * t1394 * t7951 * t352 + t7957 * t1386 * t3047 * t711 / 0.9e1 - t7962 * t1386 * t7951 * t249 / 0.3e1 - t7968 + t7970 - t3046 * t1386 * t7971 * t249 / 0.3e1 - t3046 * t1386 * t3047 * t728 / 0.6e1 + 0.2e1 * t1385 * t1394 * t7971 * t352 + t1385 * t1394 * t3047 * t880 + t7989 / 0.6e1 - t3060 * t1132 * t1247 * t9 - 0.2e1 / 0.9e1 * t7996 - t7999;
7015   t8022 = -t480 * t1132 * t3020 * t370 / 0.2e1 + 0.2e1 / 0.3e1 * t7507 + 0.2e1 * t7509 + t7512 - 0.4e1 / 0.3e1 * t7536 - 0.2e1 / 0.3e1 * t7539 - 0.3e1 * t7547 - 0.2e1 / 0.9e1 * t7556 - 0.4e1 / 0.9e1 * t7559 + 0.2e1 / 0.3e1 * t3046 * t1394 * t543 * t2430 + 0.8e1 / 0.3e1 * t7588 - t3060 * t1132 * t544 / 0.2e1 - t7595 / 0.3e1 + t7916 - t7918 / 0.2e1;
7016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7017     v4rho3sigma[3] = t8000 + t8022;
7018 
7019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7020     v4rho3sigma[4] = 0.0e0;
7021 
7022   t8023 = t7995 * t1269;
7023   t8026 = 0.8e1 / 0.3e1 * t3531 * t3082;
7024   t8037 = t7995 * t1378;
7025   t8040 = 0.4e1 / 0.3e1 * t3042 * t3087;
7026   t8045 = t7988 * t3076;
7027   t8048 = t7995 * t1264;
7028   t8051 = 0.4e1 / 0.9e1 * t2528 * t3072;
7029   t8056 = t3059 * t3068;
7030   t8057 = t610 * t9;
7031   t8069 = t478 * t479 * t2260;
7032   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7033     v4rho3sigma[5] = t8023 / 0.3e1 + t8026 + t1485 * t1503 * t3080 * t897 - t480 * t3030 * t1377 * t888 / 0.6e1 + t3060 * t1253 * t611 / 0.2e1 - t8037 / 0.6e1 - t8040 - t480 * t1253 * t1377 * t897 / 0.2e1 - t8045 / 0.6e1 - 0.2e1 / 0.3e1 * t7928 + t7932 - 0.2e1 / 0.9e1 * t8048 - t8051 - t3069 * t1486 * t3070 * t897 / 0.6e1 + t8056 * t1486 * t8057 * t358 / 0.3e1 - 0.4e1 / 0.9e1 * t7925 - 0.2e1 / 0.9e1 * t7922 + t3069 * t1503 * t3080 * t888 / 0.3e1 + t8069 * t1486 * t3070 * t888 / 0.9e1;
7034 
7035   t8079 = t3042 * t3092;
7036   t8081 = t543 * t959;
7037   t8098 = t3042 * t3096;
7038   t8100 = t543 * t965;
7039   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7040     v4rho3sigma[6] = -0.4e1 / 0.9e1 * t7996 - t7968 + t7970 - t7999 - 0.4e1 / 0.3e1 * t7989 - 0.2e1 / 0.9e1 * t7559 + t7916 + t7507 / 0.3e1 - t7595 / 0.6e1 - 0.2e1 / 0.9e1 * t8079 + t7957 * t1386 * t8081 * t249 / 0.9e1 + t3046 * t1394 * t8081 * t352 / 0.3e1 - t480 * t2804 * t1247 * t959 / 0.6e1 - t7962 * t1386 * t3047 * t9 / 0.3e1 - 0.2e1 / 0.3e1 * t8098 - t3046 * t1386 * t8100 * t249 / 0.6e1 + t1385 * t1394 * t8100 * t352 - t480 * t1132 * t1247 * t965 / 0.2e1 - t480 * t1132 * t544 * t2495 / 0.2e1;
7041 
7042   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7043     v4rho3sigma[7] = 0.0e0;
7044 
7045   t8116 = t3531 * t3106;
7046   t8132 = t610 * t970;
7047   t8145 = t1376 * t375;
7048   t8150 = t610 * t979;
7049   t8155 = t3042 * t3118;
7050   t8157 = t3042 * t3123;
7051   t8159 = t3042 * t3127;
7052   t8160 = 0.8e1 / 0.3e1 * t8116 - 0.3e1 * t1485 * t3774 * t610 * t987 * t358 + 0.2e1 * t1485 * t1503 * t1376 * t470 * t358 + t1485 * t1503 * t610 * t1122 * t358 + t8069 * t1486 * t8132 * t358 / 0.9e1 + t8056 * t1486 * t3070 * t9 / 0.3e1 - 0.2e1 * t3582 * t1503 * t8057 * t470 - t3069 * t1486 * t8145 * t358 / 0.3e1 - t3069 * t1486 * t8150 * t358 / 0.6e1 + t8026 - t8051 - 0.3e1 * t8155 + 0.2e1 * t8157 + t8159;
7053   t8161 = t3042 * t3110;
7054   t8163 = t3042 * t3113;
7055   t8165 = t3042 * t3102;
7056   t8182 = t3042 * t3316;
7057   t8189 = -0.4e1 / 0.3e1 * t8161 - 0.2e1 / 0.3e1 * t8163 - 0.2e1 / 0.9e1 * t8165 + t3060 * t1253 * t1377 * t9 - t480 * t1253 * t611 * t2490 / 0.2e1 - t480 * t1253 * t3315 * t358 / 0.2e1 + 0.2e1 / 0.3e1 * t8023 - t8040 + 0.4e1 / 0.3e1 * t8045 - 0.4e1 / 0.9e1 * t8048 - 0.2e1 / 0.9e1 * t7925 - t8182 / 0.2e1 - t8037 / 0.3e1 + 0.2e1 / 0.3e1 * t3069 * t1503 * t610 * t2530 + t7932;
7058   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7059     v4rho3sigma[8] = t8160 + t8189;
7060 
7061   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7062     v4rho3sigma[9] = -0.2e1 / 0.3e1 * t7996 - 0.2e1 / 0.3e1 * t8079 - 0.2e1 * t8098 + t7916 + t480 * t7550 * t544 * t2733 / 0.9e1 - t3046 * t1386 * t3047 * t965 / 0.2e1 - t480 * t1132 * t544 * t2744 / 0.2e1;
7063 
7064   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7065     v4rho3sigma[10] = 0.0e0;
7066 
7067   t8217 = t2599 * t44;
7068   t8230 = t1047 * t3275;
7069   t8233 = 0.81e2 / 0.80e2 * t1054 * t578 * t2640 - 0.243e3 / 0.32e2 * t2625 * t1331 * t1055 + 0.243e3 / 0.80e2 * t1054 * t3275 * t429 + 0.243e3 / 0.80e2 * t1054 * t1331 * t1068 + 0.77e2 / 0.18e2 * t8217 * t417 + 0.11e2 / 0.8e1 * t3237 * t1048 - 0.3e1 / 0.8e1 * t1312 * t2619 + 0.3e1 / 0.64e2 * t569 * t7257 - 0.3e1 / 0.8e1 * t2610 * t1317 - 0.9e1 / 0.8e1 * t1044 * t3253 - 0.9e1 / 0.8e1 * t416 * t8230;
7070   t8241 = t2624 * t578 * t1055;
7071   t8259 = t8217 * t49;
7072   t8262 = t1053 * t1331 * t429;
7073   t8265 = t3249 * t1068;
7074   t8274 = t1044 * t49;
7075   t8277 = 0.567e3 / 0.64e2 * t7263 * t578 * t2626 - 0.243e3 / 0.32e2 * t2625 * t1320 * t1068 - 0.135e3 / 0.32e2 * t3248 * t8241 - 0.27e2 / 0.40e2 * t422 * (0.770e3 / 0.27e2 * params->b * t2599 * t186 - 0.550e3 / 0.27e2 * t3265 * t426 + 0.50e2 / 0.9e1 * t1323 * t1065 - 0.25e2 / 0.36e2 * t572 * t2637 + 0.3850e4 / 0.243e3 * t185 * t87 * t2599) - 0.308e3 / 0.243e3 * t8259 + 0.27e2 / 0.8e1 * t3248 * t8262 + 0.27e2 / 0.16e2 * t3248 * t8265 + 0.9e1 / 0.16e2 * t1312 * t2616 + 0.45e2 / 0.256e3 * t569 * t7250 - 0.27e2 / 0.128e3 * t581 * t7254 + 0.27e2 / 0.16e2 * t8274 * t3250;
7076   t8278 = t8233 + t8277;
7077   t8295 = t1013 * t219;
7078   t8302 = t3197 * t458;
7079   t8306 = t219 * t2581;
7080   t8310 = sigma[2] * t1290;
7081   t8311 = t8310 * t158;
7082   t8314 = t152 * t3160;
7083   t8317 = t152 * t3163;
7084   t8328 = t152 * t3157;
7085   t8333 = t3189 * t2566;
7086   t8336 = t1286 * t1100;
7087   t8343 = -0.15e2 / 0.131072e6 * t7358 * t8295 * t2684 * t4874 + 0.3e1 * t1005 * t3161 + 0.45e2 / 0.4096e4 * t2575 * t8302 * t1988 - 0.9e1 / 0.32e2 * t1012 * t8306 * t1017 + 0.3e1 / 0.2e1 * t395 * t8311 + 0.3e1 / 0.16e2 * t8314 * t1007 + 0.3e1 / 0.8e1 * t8317 * t1007 + 0.9e1 / 0.512e3 * t3167 * t2567 - 0.3e1 / 0.16e2 * t7378 * t558 * t158 * t1002 - 0.9e1 / 0.16e2 * t3167 * t2570 + 0.3e1 / 0.16e2 * t8328 * t1007 + 0.3e1 / 0.8e1 * t2562 * t3194 + 0.63e2 / 0.512e3 * t1005 * t8333 - 0.9e1 / 0.8e1 * t1005 * t8336 - 0.9e1 / 0.16e2 * t3178 * t2570 - 0.27e2 / 0.512e3 * t1283 * t7388;
7088   t8348 = t2574 * t3197;
7089   t8350 = t8348 * t222 * t1988;
7090   t8353 = t152 * t3175;
7091   t8386 = params->BLOC_b * t1021;
7092   t8394 = 0.3e1 / 0.4e1 * t1283 * t7391 + 0.3e1 / 0.8e1 * t2548 * t3194 - 0.9e1 / 0.4096e4 * t1005 * t8350 + 0.3e1 / 0.16e2 * t8353 * t1007 + 0.9e1 / 0.512e3 * t3178 * t2567 + 0.3e1 / 0.4096e4 * t1283 * t7418 - 0.9e1 / 0.512e3 * t2548 * t3191 - t7411 * t1287 / 0.16e2 - 0.9e1 / 0.512e3 * t2562 * t3191 - t7406 * t1287 / 0.16e2 + t152 * t2542 * t555 * t163 + 0.3e1 * t152 * t390 * t3175 * t163 + 0.3e1 * t152 * t992 * t1280 * t163 + t152 * t2559 * t555 * t163 + 0.3e1 * t152 * t1002 * t1280 * t163 + t152 * (-0.3e1 / 0.4e1 * t8386 * t550 - 0.17e2 / 0.8e1 * t8386 * t143) * t163;
7093   t8402 = t602 * t2684;
7094   t8409 = t87 * sigma[2] * t2670;
7095   t8427 = -0.73e2 / 0.97200e5 * t8278 * t208 + 0.292e3 / 0.2025e4 * t196 * t8278 + 0.292e3 / 0.675e3 * t434 * t3280 + 0.292e3 / 0.675e3 * t1073 * t1336 + 0.292e3 / 0.2025e4 * t2645 * t583 - t3209 * t408 / 0.3e1 - 0.154e3 / 0.81e2 * t563 * t2600 + 0.11e2 / 0.9e1 * t1300 * t1034 + (t8343 + t8394) * t44 * t172 / 0.24e2 - 0.20900e5 / 0.1594323e7 * t100 * t595 * t2670 - 0.15e2 / 0.16e2 * t110 * t8402 - 0.73e2 / 0.64800e5 * t1078 * t3145 - 0.73e2 / 0.194400e6 * t440 * (-0.7776e4 * t8311 - 0.668800e6 / 0.27e2 * t8409) - 0.73e2 / 0.86400e5 * t2661 * t1346 * t1094 + 0.73e2 / 0.388800e6 * t1083 * t592 * t2674 - t599 * t2680 / 0.15e2 + 0.11e2 / 0.9e1 * t403 * t3214 - 0.154e3 / 0.81e2 * t166 * t49 * t2599;
7096   t8462 = t3280 * t439;
7097   t8465 = t1336 * t1082;
7098   t8468 = t583 * t2660;
7099   t8471 = 0.73e2 / 0.103680e6 * t7309 * t592 * t2662 + t2591 * t566 / 0.24e2 + 0.73e2 / 0.129600e6 * t2653 * t3228 + 0.73e2 / 0.129600e6 * t1083 * t1353 * t1094 - t1027 * t1307 / 0.3e1 + 0.73e2 / 0.129600e6 * t1083 * t3145 * t448 - 0.73e2 / 0.86400e5 * t7301 * t3148 - 0.73e2 / 0.86400e5 * t2661 * t1353 * t1084 + 0.73e2 / 0.129600e6 * t3220 * t2665 + 0.73e2 / 0.129600e6 * t7298 * t1346 + 0.73e2 / 0.64800e5 * t2653 * t3225 - 0.73e2 / 0.64800e5 * t2650 * t1353 - 0.73e2 / 0.194400e6 * t7425 * t592 - 0.73e2 / 0.64800e5 * t3130 * t1094 - 0.73e2 / 0.194400e6 * t1341 * t2674 - 0.73e2 / 0.64800e5 * t8462 * t448 + 0.73e2 / 0.129600e6 * t8465 * t1084 - 0.73e2 / 0.259200e6 * t8468 * t2662;
7100   t8481 = t3290 * t465 * t105;
7101   t8485 = t1364 * t1115 * params->e;
7102   t8509 = t606 * t2701;
7103   t8510 = t8509 * t2220;
7104   t8517 = (t8427 + t8471) * t231 - 0.22e2 / 0.9e1 * t1111 * t3278 + 0.38e2 / 0.27e2 * t2703 * t8402 + 0.308e3 / 0.81e2 * t467 * t8259 + 0.2e1 / 0.3e1 * t8481 * t432 + 0.2e1 / 0.9e1 * t8485 * t1092 + 0.2e1 / 0.3e1 * t2691 * t1334 - t7447 * t1351 / 0.12e2 - 0.22e2 / 0.27e2 * t3297 * t2672 + 0.308e3 / 0.81e2 * t1367 * t2643 + 0.3e1 / 0.4e1 * t2695 * t3143 - 0.10e2 / 0.243e3 * t7461 / t169 / t221 / t201 * t219 * t69 - 0.341e3 / 0.162e3 * t1117 * t8409 - 0.22e2 / 0.9e1 * t3293 * t1071 + 0.16e2 / 0.81e2 * t8510 * t2685 - t7443 * t581 / 0.12e2 - 0.2e1 / 0.9e1 * t7453 * t3154;
7105   t8577 = -0.3e1 / 0.8e1 * t480 * t548 * t383 * t8517 - 0.9e1 * t1485 * t3774 * t3070 * t987 + 0.8e1 * t8116 - 0.27e2 / 0.4e1 * t1502 * t3774 * t3080 * t1122 + t3069 * t1503 * t8132 * t470 - t3069 * t1486 * t3070 * t979 / 0.2e1 + 0.6e1 * t1485 * t1503 * t8145 * t470 + 0.3e1 * t1485 * t1503 * t8150 * t470 + 0.3e1 * t1485 * t1503 * t3070 * t1122 - 0.3e1 / 0.2e1 * t480 * t1253 * t3315 * t375 - 0.3e1 / 0.2e1 * t480 * t1253 * t1377 * t979 - t480 * t1253 * t611 * t2750 / 0.2e1 - 0.27e2 / 0.4e1 * t480 * t548 * t2724 * t1376 * t987 + 0.9e1 / 0.4e1 * t480 * t548 * t986 * t3314 * t470 + 0.9e1 * t480 * t548 * t7210 * t610 * t2725;
7106   t8603 = t480 * t7933 * t611 * t2738 / 0.9e1 + 0.9e1 / 0.4e1 * t480 * t548 * t3121 * t1122 + 0.3e1 / 0.4e1 * t480 * t548 * t1267 * t2710 - t480 * t3030 * t1377 * t970 / 0.2e1 - 0.9e1 * t8155 + 0.6e1 * t8157 + 0.3e1 * t8159 - 0.4e1 * t8161 - 0.2e1 * t8163 - 0.2e1 / 0.3e1 * t8165 + t8023 - 0.2e1 / 0.3e1 * t8048 - 0.3e1 / 0.2e1 * t8182 - t8037 / 0.2e1 + t7932;
7107   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7108     v4rho3sigma[11] = t8577 + t8603;
7109 
7110   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7111     v4rho3lapl[0] = 0.0e0;
7112 
7113   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7114     v4rho3lapl[1] = 0.0e0;
7115 
7116   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7117     v4rho3lapl[2] = 0.0e0;
7118 
7119   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7120     v4rho3lapl[3] = 0.0e0;
7121 
7122   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7123     v4rho3lapl[4] = 0.0e0;
7124 
7125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7126     v4rho3lapl[5] = 0.0e0;
7127 
7128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7129     v4rho3lapl[6] = 0.0e0;
7130 
7131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7132     v4rho3lapl[7] = 0.0e0;
7133 
7134   t8605 = t8 * t244 * t1386;
7135   t8606 = t8605 * t3506;
7136   t8609 = t8 * t18 * t1394;
7137   t8610 = t8609 * t3513;
7138   t8616 = t1477 * t121;
7139   t8638 = t1474 * t908 * t1386;
7140   t8645 = t1474 * t260 * t3332;
7141   t8667 = -0.8e1 / 0.9e1 * t8606 + 0.4e1 / 0.3e1 * t8610 - 0.2e1 / 0.3e1 * t3503 * t3520 * t3504 * t314 + 0.11e2 / 0.9e1 * t3503 * t8616 * t50 * t791 * t249 - 0.11e2 / 0.6e1 * t3510 * t8616 * t50 * t791 * t352 - t3503 * t3525 * t249 * params->e * t850 / 0.9e1 + t3510 * t3525 * t352 * params->e * t850 / 0.6e1 - t8638 * t1477 * t711 * t105 * t314 / 0.9e1 - 0.3e1 / 0.2e1 * t8645 * t1477 * t745 * t105 * t314 - t3503 * t1477 * t728 * t105 * t314 / 0.3e1 + t3510 * t3520 * t3511 * t314 + t3510 * t1477 * t880 * t105 * t314 / 0.2e1 - 0.77e2 / 0.54e2 * t1476 * t1478 * t2160;
7142   t8668 = t3517 * t3319;
7143   t8672 = t8 * t256 * t1386 * t1479;
7144   t8674 = t3517 * t3522;
7145   t8681 = t3517 * t3527;
7146   t8683 = t1468 * t873;
7147   t8684 = t8683 * params->e;
7148   t8698 = t3496 * t126;
7149   t8711 = t3351 * t3362;
7150   t8713 = 0.11e2 / 0.9e1 * t8668 - t8672 / 0.9e1 - 0.2e1 / 0.3e1 * t8674 - t1476 * t3496 * t347 * t105 * t314 / 0.4e1 - t8681 / 0.9e1 - t1476 * t8684 * t850 / 0.12e2 + 0.11e2 / 0.12e2 * t1476 * t3521 * t829 + 0.11e2 / 0.36e2 * t1476 * t3526 * t2189 - t1385 * t1386 * t1387 * t2303 / 0.2e1 + 0.9e1 / 0.4e1 * t1393 * t1394 * t8698 * t352 + 0.9e1 / 0.4e1 * t1393 * t1394 * t3341 * t880 + 0.3e1 / 0.4e1 * t1393 * t1394 * t1387 * t2228 - 0.4e1 * t8711;
7151   t8715 = t3358 * t3347;
7152   t8718 = t5 * t720 * t255;
7153   t8719 = t8718 * t1389;
7154   t8721 = t262 * t6159;
7155   t8726 = t3351 * t3338;
7156   t8728 = t3358 * t3343;
7157   t8730 = t2428 * t3323;
7158   t8736 = t3358 * t3334;
7159   t8739 = t5 * t260 * t255;
7160   t8740 = t8739 * t1396;
7161   t8757 = 0.3e1 * t8715 - 0.2e1 / 0.3e1 * t8719 + 0.9e1 * t1393 * t8721 * t1387 * t2254 - 0.2e1 * t8726 + 0.6e1 * t8728 - 0.2e1 / 0.3e1 * t8730 + t7957 * t1386 * t1387 * t2278 / 0.9e1 - 0.9e1 * t8736 + t8740 - 0.3e1 / 0.2e1 * t1385 * t1386 * t8698 * t249 - t3046 * t1386 * t3341 * t711 / 0.2e1 - 0.27e2 / 0.4e1 * t1393 * t3332 * t3341 * t745 - 0.3e1 / 0.2e1 * t1385 * t1386 * t3341 * t728;
7162   t8758 = t744 * t654;
7163   t8760 = t480 * t1132 * t8758;
7164   t8767 = t261 * t739 * t1470;
7165   t8770 = t261 * t263 * t3498;
7166   t8774 = t3461 * t321;
7167   t8802 = t2082 * t772 * t1418;
7168   t8805 = t764 * t3493;
7169   t8813 = t6004 * t116 * t3407;
7170   t8816 = t30 * t3384;
7171   t8823 = t30 * t2059 * t620 * t41 + 0.3e1 * t30 * t750 * t1407 * t41 + t30 * t2076 * t620 * t41 + 0.3e1 * t30 * t760 * t1407 * t41 + 0.3e1 * t30 * t272 * t3384 * t41 - 0.3e1 / 0.8e1 * t2065 * t3402 + t6021 * t1413 / 0.16e2 - 0.3e1 / 0.8e1 * t2079 * t3402 - 0.63e2 / 0.512e3 * t763 * t8802 + 0.9e1 / 0.8e1 * t763 * t8805 - 0.9e1 / 0.16e2 * t3387 * t2087 - 0.27e2 / 0.512e3 * t1410 * t5996 + 0.9e1 / 0.4096e4 * t763 * t8813 + 0.3e1 / 0.16e2 * t8816 * t765 + 0.9e1 / 0.512e3 * t3387 * t2084 + 0.3e1 / 0.4096e4 * t1410 * t6006;
7172   t8838 = t30 * t3366;
7173   t8841 = t30 * t3369;
7174   t8844 = t30 * t3372;
7175   t8869 = t2103 * t624;
7176   t8872 = 0.9e1 / 0.512e3 * t2065 * t3399 + t5999 * t1413 / 0.16e2 + 0.9e1 / 0.512e3 * t2079 * t3399 + 0.3e1 / 0.4e1 * t1410 * t5982 - 0.9e1 / 0.16e2 * t3376 * t2087 + 0.3e1 / 0.16e2 * t5986 * t34 * t624 * t760 + 0.3e1 / 0.16e2 * t8838 * t765 + 0.3e1 / 0.16e2 * t8841 * t765 + 0.3e1 / 0.8e1 * t8844 * t765 + 0.9e1 / 0.512e3 * t3376 * t2084 + t30 * (0.3e1 / 0.4e1 * t24 * t858 * t267 + 0.17e2 / 0.8e1 * t24 * t858) * t41 + 0.3e1 * t763 * t3370 + 0.15e2 / 0.131072e6 * t6039 * t6040 * t2201 * t5689 - 0.45e2 / 0.4096e4 * t2092 * t2094 * t3407 + 0.9e1 / 0.32e2 * t770 * t2099 * t1418 - 0.3e1 / 0.2e1 * t277 * t8869;
7177   t8883 = t811 * t1446;
7178   t8884 = t8883 * t311;
7179   t8887 = t3437 * t826;
7180   t8896 = t805 * t3458;
7181   t8927 = t2141 * t641;
7182   t8928 = t8927 * t813;
7183   t8935 = -0.243e3 / 0.32e2 * t2142 * t1439 * t826 - 0.27e2 / 0.40e2 * t304 * (-0.2200e4 / 0.27e2 * t2864 + 0.2000e4 / 0.27e2 * t2866 - 0.250e3 / 0.9e1 * t2868 + 0.50e2 / 0.9e1 * t635 * t2154 - 0.11000e5 / 0.243e3 * t2871) - 0.243e3 / 0.32e2 * t2142 * t1446 * t813 + 0.243e3 / 0.80e2 * t812 * t3458 * t311 + 0.243e3 / 0.80e2 * t812 * t1446 * t826 + 0.81e2 / 0.80e2 * t812 * t641 * t2157 - 0.135e3 / 0.32e2 * t2846 * t8928 - 0.45e2 / 0.16e2 * t2840 - 0.110e3 / 0.9e1 * t2836 - 0.5e1 * t2838 + 0.15e2 / 0.8e1 * t2842;
7184   t8936 = -0.45e2 / 0.32e2 * t632 * t5907 + 0.27e2 / 0.16e2 * t4293 * t5911 + 0.27e2 / 0.16e2 * t7648 * t3438 + 0.27e2 / 0.8e1 * t2846 * t8884 + 0.27e2 / 0.16e2 * t2846 * t8887 - 0.3e1 / 0.8e1 * t632 * t5914 - 0.3e1 / 0.8e1 * t2127 * t1436 - 0.9e1 / 0.8e1 * t802 * t3441 - 0.9e1 / 0.8e1 * t298 * t8896 + 0.567e3 / 0.64e2 * t5920 * t641 * t2143 + t8935;
7185   t8961 = t6067 * t31;
7186   t8964 = 0.292e3 / 0.675e3 * t831 * t1449 - 0.73e2 / 0.64800e5 * t8774 * t330 + (t8823 + t8872) * t44 * t55 / 0.24e2 + 0.292e3 / 0.2025e4 * t80 * t8936 + 0.73e2 / 0.600e3 * t6058 * t625 - 0.73e2 / 0.100e3 * t2167 * t1422 - 0.73e2 / 0.25e2 * t322 * t8869 + 0.11e2 / 0.9e1 * t1426 * t792 - 0.154e3 / 0.81e2 * t629 * t2117 + 0.219e3 / 0.100e3 * t836 * t3414 - t3418 * t290 / 0.3e1 + 0.73e2 / 0.129600e6 * t3469 * t2182 + t106 * t1160 * t624 / 0.15e2 - 0.219e3 / 0.200e3 * t1459 * t3493 * t330 + 0.219e3 / 0.800e3 * t8961 * t3482;
7187   t8967 = t6075 * t31;
7188   t8981 = t1449 * t840;
7189   t8984 = t644 * t2177;
7190   t8997 = t6064 * t31;
7191   t9004 = 0.73e2 / 0.100e3 * t3476 * t3485 - 0.73e2 / 0.320e3 * t8967 * t651 * t2179 - 0.219e3 / 0.400e3 * t3481 * t1465 * t842 - 0.73e2 / 0.97200e5 * t8936 * t96 + 0.219e3 / 0.800e3 * t3481 * t651 * t2182 + 0.292e3 / 0.2025e4 * t2162 * t644 + 0.73e2 / 0.129600e6 * t8981 * t842 - 0.73e2 / 0.259200e6 * t8984 * t2179 + 0.292e3 / 0.675e3 * t316 * t3461 - 0.73e2 / 0.400e3 * t3476 * t3488 + 0.73e2 / 0.200e3 * t1459 * t1465 * t852 - 0.73e2 / 0.1200e4 * t1459 * t651 * t2191 - 0.73e2 / 0.400e3 * t8997 * t1460 - 0.73e2 / 0.64800e5 * t3466 * t852 - 0.73e2 / 0.194400e6 * t1454 * t2191;
7192   t9013 = t261 * t2241 * t656 / 0.9e1;
7193   t9014 = t655 * t2218;
7194   t9020 = t3351 * t3329;
7195   t9039 = t1394 * t1468;
7196   t9052 = 0.4e1 / 0.3e1 * t8760 * t347 * t249 * t3511 * t314 - t8767 / 0.2e1 - 0.3e1 / 0.2e1 * t8770 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t8964 + t9004) * t126 + t9013 - 0.2e1 / 0.27e2 * t1816 * t9014 * t5046 * t113 * t2201 + 0.8e1 * t9020 - 0.9e1 * t1385 * t4191 * t3327 * t745 - 0.27e2 / 0.4e1 * t1393 * t4191 * t126 * t352 * t880 + t3046 * t3326 * t126 * t711 * t352 - t3046 * t3550 * t3327 * t728 / 0.2e1 + 0.6e1 * t1385 * t9039 * t3328 + 0.3e1 * t1385 * t3326 * t126 * t728 * t352 + 0.3e1 * t1385 * t3326 * t3327 * t880;
7197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7198     v4rho3tau[0] = t8667 + t8713 + t8757 + t9052;
7199 
7200   t9054 = t2528 * t3538;
7201   t9057 = t5 * t947 * t255;
7202   t9058 = t9057 * t1489;
7203   t9060 = t3531 * t3542;
7204   t9064 = t381 * t2241 * t701 / 0.9e1;
7205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7206     v4rho3tau[1] = -0.2e1 / 0.3e1 * t9054 - 0.2e1 / 0.3e1 * t9058 - 0.2e1 * t9060 + t9064 + t8069 * t1486 * t1487 * t2262 / 0.9e1 - t3069 * t3576 * t231 * t358 * t897 / 0.2e1 - t1485 * t1486 * t1487 * t2298 / 0.2e1;
7207 
7208   t9081 = t3059 * t4;
7209   t9082 = t9081 * t3502;
7210   t9083 = t9 * t105;
7211   t9094 = 0.8e1 / 0.27e2 * t8605 * t3565;
7212   t9107 = t1474 * t908 * t262;
7213   t9108 = t8758 * t126;
7214   t9113 = t7987 * t1384 * t3570;
7215   t9118 = t8718 * t1493;
7216   t9121 = 0.4e1 / 0.3e1 * t3351 * t3560;
7217   t9129 = -t8681 / 0.27e2 + 0.2e1 / 0.3e1 * t9107 * t9108 * t2430 + t9113 / 0.6e1 - t3568 * t1386 * t3341 * t9 - 0.2e1 / 0.9e1 * t9118 - t9121 - t1385 * t1386 * t8698 * t370 / 0.2e1 - 0.4e1 / 0.3e1 * t8711 + t8715 - 0.4e1 / 0.9e1 * t8719 - 0.2e1 / 0.3e1 * t8726;
7218   t9137 = t347 * t370;
7219   t9156 = t126 * t9;
7220   t9184 = 0.4e1 / 0.9e1 * t2428 * t3553;
7221   t9186 = 0.8e1 / 0.3e1 * t3351 * t3557;
7222   t9188 = t7957 * t3550 * t3551 * t711 / 0.9e1 - t7962 * t3550 * t9156 * t249 / 0.3e1 - 0.3e1 * t1385 * t4191 * t3551 * t745 + 0.2e1 * t3568 * t3326 * t9156 * t352 - t3046 * t1386 * t1468 * t3552 / 0.3e1 - t3046 * t3550 * t3551 * t728 / 0.6e1 + 0.2e1 * t1385 * t9039 * t3556 + t1385 * t3326 * t3551 * t880 - t9184 + t9186 + 0.8e1 / 0.3e1 * t9020;
7223   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7224     v4rho3tau[2] = 0.11e2 / 0.27e2 * t3503 * t3564 * t829 - 0.2e1 / 0.9e1 * t9082 * t1477 * t9083 * t314 - t3503 * t3525 * t370 * params->e * t850 / 0.27e2 - t9094 - 0.2e1 / 0.9e1 * t3503 * t3520 * t3563 * t314 - 0.8e1 / 0.27e2 * t8606 + 0.4e1 / 0.9e1 * t8610 + 0.11e2 / 0.27e2 * t8668 - 0.2e1 / 0.27e2 * t8672 - 0.2e1 / 0.9e1 * t8674 + t9129 + 0.2e1 * t8728 - 0.2e1 / 0.9e1 * t8730 - 0.3e1 * t8736 + 0.2e1 / 0.3e1 * t8740 - 0.2e1 / 0.27e2 * t480 * t2804 * t655 * t9137 * t3504 * t314 + 0.4e1 / 0.9e1 * t8760 * t9137 * t3511 * t314 - t8767 / 0.3e1 - t8770 / 0.2e1 - t3060 * t1132 * t656 / 0.2e1 + t9013 + t9188;
7225 
7226   t9194 = t7994 * t1501;
7227   t9195 = t9194 * t1505;
7228   t9198 = 0.8e1 / 0.3e1 * t3531 * t3592;
7229   t9202 = t9057 * t1498;
7230   t9205 = 0.4e1 / 0.9e1 * t2528 * t3579;
7231   t9210 = t231 * t9;
7232   t9218 = 0.4e1 / 0.3e1 * t3531 * t3598;
7233   t9219 = -t3069 * t1486 * t3596 * t888 / 0.6e1 + t9195 / 0.3e1 + t9198 + t1485 * t3589 * t3590 * t897 - 0.2e1 / 0.9e1 * t9202 - t9205 - t3069 * t3576 * t3577 * t897 / 0.6e1 + t8056 * t3576 * t9210 * t358 / 0.3e1 - 0.2e1 / 0.9e1 * t9054 - 0.4e1 / 0.9e1 * t9058 - t9218;
7234   t9225 = t7987 * t1484 * t3584;
7235   t9230 = t7995 * t1580;
7236   t9242 = t1474 * t931 * t1486;
7237   t9253 = t7994 * t4;
7238   t9255 = t9253 * t1583 * t1587;
7239   t9257 = t3601 * t3605;
7240   t9259 = 0.8e1 / 0.27e2 * t9257 * t3610;
7241   t9260 = -t1485 * t1486 * t3596 * t897 / 0.2e1 - t9225 / 0.6e1 + t3060 * t1253 * t701 / 0.2e1 - t9230 / 0.6e1 - 0.2e1 / 0.3e1 * t9060 + t9064 + t3069 * t3589 * t3590 * t888 / 0.3e1 + t8069 * t3576 * t3577 * t888 / 0.9e1 - t9242 * t3607 * t167 * t407 * t888 / 0.27e2 - t3606 * t3607 * t167 * t407 * t897 / 0.9e1 - t9255 / 0.27e2 - t9259;
7242   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7243     v4rho3tau[3] = t9219 + t9260;
7244 
7245   t9267 = -0.4e1 / 0.9e1 * t9118 - t9184 + t9186 - t9121 - t9094 - 0.4e1 / 0.3e1 * t9113 - 0.2e1 / 0.9e1 * t8719 + t9013 + t8740 / 0.3e1 - t8767 / 0.6e1 - t8672 / 0.27e2;
7246   t9268 = t2428 * t3615;
7247   t9270 = t126 * t959;
7248   t9292 = t3351 * t3619;
7249   t9294 = t126 * t965;
7250   t9315 = -0.2e1 / 0.9e1 * t9268 + t7957 * t3550 * t9270 * t249 / 0.9e1 + t3046 * t3326 * t9270 * t352 / 0.3e1 - t3046 * t1386 * t3341 * t959 / 0.6e1 - t8638 * t1477 * t959 * t105 * t314 / 0.27e2 - t7962 * t3550 * t3551 * t9 / 0.3e1 - 0.2e1 / 0.3e1 * t9292 - t3046 * t3550 * t9294 * t249 / 0.6e1 + t1385 * t3326 * t9294 * t352 - t1385 * t1386 * t3341 * t965 / 0.2e1 - t3503 * t1477 * t965 * t105 * t314 / 0.9e1 - t1385 * t1386 * t1387 * t2495 / 0.2e1;
7251   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7252     v4rho3tau[4] = t9267 + t9315;
7253 
7254   t9316 = t3601 * t3766;
7255   t9317 = t9316 * t3770;
7256   t9319 = t9257 * t3763;
7257   t9325 = t3809 * t5269;
7258   t9331 = t9081 * t3605;
7259   t9342 = t3602 * t3811;
7260   t9344 = t3602 * t3806;
7261   t9347 = t3602 * t3758;
7262   t9350 = t1474 * t931 * t262;
7263   t9351 = t986 * t699;
7264   t9352 = t9351 * t231;
7265   t9356 = t3531 * t3793;
7266   t9358 = t3587 * t3797;
7267   t9360 = t3587 * t3776;
7268   t9362 = t2528 * t3780;
7269   t9371 = t3752 * t231;
7270   t9376 = t3587 * t3801;
7271   t9377 = t3531 * t3790;
7272   t9379 = 0.11e2 / 0.27e2 * t9347 + 0.2e1 / 0.3e1 * t9350 * t9352 * t2530 - 0.2e1 / 0.3e1 * t9356 + 0.2e1 * t9358 - 0.3e1 * t9360 - 0.2e1 / 0.9e1 * t9362 + t3582 * t1486 * t3596 * t9 - t1485 * t1486 * t1487 * t2490 / 0.2e1 - t1485 * t1486 * t9371 * t358 / 0.2e1 + t9376 - 0.4e1 / 0.3e1 * t9377;
7273   t9388 = t465 * t375 * t121;
7274   t9393 = t480 * t1253 * t9351;
7275   t9399 = t3042 * t3755;
7276   t9403 = t3531 * t3784;
7277   t9405 = t1503 * t1577;
7278   t9421 = t231 * t979;
7279   t9426 = t231 * t987;
7280   t9431 = t231 * t970;
7281   t9440 = 0.8e1 / 0.3e1 * t9403 + 0.2e1 * t1485 * t9405 * t3591 + t1485 * t3589 * t231 * t1122 * t358 - 0.2e1 * t3582 * t3589 * t9210 * t470 - t3069 * t1486 * t1577 * t3578 / 0.3e1 - t3069 * t3576 * t9421 * t358 / 0.6e1 - 0.3e1 * t1485 * t4436 * t9426 * t358 + t8069 * t3576 * t9431 * t358 / 0.9e1 + t8056 * t3576 * t3577 * t9 / 0.3e1 + t9198 - t9205;
7282   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7283     v4rho3tau[5] = 0.4e1 / 0.9e1 * t9317 - 0.8e1 / 0.27e2 * t9319 - 0.2e1 / 0.9e1 * t3606 * t3804 * t121 * t3609 - t3606 * t9325 * t211 * t1090 * t358 / 0.27e2 + 0.2e1 / 0.9e1 * t9331 * t1585 * t9083 * t432 + 0.11e2 / 0.27e2 * t3606 * t3607 * t167 * t1033 * t358 - t9259 - 0.2e1 / 0.27e2 * t9255 - t9342 / 0.27e2 - 0.2e1 / 0.9e1 * t9344 + t9379 + 0.2e1 / 0.3e1 * t9195 - 0.4e1 / 0.9e1 * t9202 - t9218 + 0.4e1 / 0.3e1 * t9225 - 0.2e1 / 0.9e1 * t9058 - 0.2e1 / 0.27e2 * t480 * t3030 * t700 * t9388 * t3609 + 0.4e1 / 0.9e1 * t9393 * t465 * t470 * t121 * t3609 - t9399 / 0.2e1 + t9064 - t9230 / 0.3e1 + t9440;
7284 
7285   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7286     v4rho3tau[6] = -0.2e1 / 0.3e1 * t9118 - 0.2e1 / 0.3e1 * t9268 - 0.2e1 * t9292 + t9013 + t7957 * t1386 * t1387 * t2733 / 0.9e1 - t3046 * t3550 * t3551 * t965 / 0.2e1 - t1385 * t1386 * t1387 * t2744 / 0.2e1;
7287 
7288   t9463 = t1474 * t380 * t3774;
7289   t9508 = t1577 * t1115;
7290   t9509 = t9508 * params->e;
7291   t9513 = -0.11e2 / 0.6e1 * t3767 * t3607 * t167 * t1033 * t470 - 0.3e1 / 0.2e1 * t9463 * t1585 * t987 * t105 * t432 - t9242 * t1585 * t970 * t105 * t432 / 0.9e1 - 0.2e1 / 0.3e1 * t3606 * t3804 * t3761 * t432 - t3606 * t1585 * t979 * t105 * t432 / 0.3e1 - t3606 * t3809 * t375 * params->e * t1092 / 0.9e1 + t3767 * t3804 * t3768 * t432 + t3767 * t1585 * t1122 * t105 * t432 / 0.2e1 + t3767 * t3809 * t470 * params->e * t1092 / 0.6e1 + 0.11e2 / 0.9e1 * t3606 * t3607 * t167 * t1033 * t375 + 0.4e1 / 0.3e1 * t9317 - 0.8e1 / 0.9e1 * t9319 - t1584 * t9509 * t1092 / 0.12e2;
7292   t9552 = -t1584 * t3752 * t465 * t105 * t432 / 0.4e1 + 0.11e2 / 0.12e2 * t1584 * t3805 * t1071 + 0.11e2 / 0.36e2 * t1584 * t3810 * t2672 - t9255 / 0.9e1 - t9342 / 0.9e1 - 0.2e1 / 0.3e1 * t9344 + 0.11e2 / 0.9e1 * t9347 - 0.77e2 / 0.54e2 * t1584 * t1586 * t2643 + 0.3e1 / 0.4e1 * t1502 * t1503 * t1487 * t2710 - 0.27e2 / 0.4e1 * t1502 * t3774 * t3596 * t987 - t3069 * t1486 * t3596 * t970 / 0.2e1 - 0.3e1 / 0.2e1 * t1485 * t1486 * t3596 * t979 - t1485 * t1486 * t1487 * t2750 / 0.2e1;
7293   t9570 = t262 * t7210;
7294   t9582 = 0.9e1 / 0.4e1 * t1502 * t1503 * t3596 * t1122 - 0.3e1 / 0.2e1 * t1485 * t1486 * t9371 * t375 + 0.9e1 / 0.4e1 * t1502 * t1503 * t9371 * t470 + t8069 * t1486 * t1487 * t2738 / 0.9e1 + 0.9e1 * t1502 * t9570 * t1487 * t2725 - 0.2e1 * t9356 + 0.6e1 * t9358 - 0.9e1 * t9360 - 0.2e1 / 0.3e1 * t9362 + 0.3e1 * t9376 - 0.4e1 * t9377 + t9195 - 0.2e1 / 0.3e1 * t9202;
7295   t9583 = t407 * t470;
7296   t9591 = t1558 * t1082;
7297   t9594 = t689 * t2660;
7298   t9609 = t1053 * t1555;
7299   t9610 = t9609 * t429;
7300   t9613 = t3693 * t1068;
7301   t9629 = t1047 * t3714;
7302   t9647 = t2624 * t686;
7303   t9648 = t9647 * t1055;
7304   t9655 = -0.3e1 / 0.8e1 * t2610 * t1545 - 0.9e1 / 0.8e1 * t1044 * t3697 - 0.9e1 / 0.8e1 * t416 * t9629 + 0.567e3 / 0.64e2 * t7263 * t686 * t2626 - 0.243e3 / 0.32e2 * t2625 * t1548 * t1068 - 0.27e2 / 0.40e2 * t422 * (-0.2200e4 / 0.27e2 * t3266 + 0.2000e4 / 0.27e2 * t3268 - 0.250e3 / 0.9e1 * t3270 + 0.50e2 / 0.9e1 * t680 * t2637 - 0.11000e5 / 0.243e3 * t3273) - 0.135e3 / 0.32e2 * t3248 * t9648 - 0.110e3 / 0.9e1 * t3238 - 0.5e1 * t3240 + 0.15e2 / 0.8e1 * t3244 - 0.45e2 / 0.16e2 * t3242;
7305   t9656 = -0.243e3 / 0.32e2 * t2625 * t1555 * t1055 + 0.243e3 / 0.80e2 * t1054 * t3714 * t429 + 0.243e3 / 0.80e2 * t1054 * t1555 * t1068 + 0.81e2 / 0.80e2 * t1054 * t686 * t2640 + 0.27e2 / 0.8e1 * t3248 * t9610 + 0.27e2 / 0.16e2 * t3248 * t9613 - 0.45e2 / 0.32e2 * t677 * t7250 + 0.27e2 / 0.16e2 * t4535 * t7254 + 0.27e2 / 0.16e2 * t8274 * t3694 - 0.3e1 / 0.8e1 * t677 * t7257 + t9655;
7306   t9661 = t2586 * t669;
7307   t9667 = t7301 * t153;
7308   t9672 = t7309 * t153;
7309   t9686 = t7298 * t153;
7310   t9689 = -0.73e2 / 0.100e3 * t2650 * t1531 + 0.73e2 / 0.129600e6 * t9591 * t1084 - 0.73e2 / 0.259200e6 * t9594 * t2662 + 0.292e3 / 0.2025e4 * t196 * t9656 + 0.219e3 / 0.100e3 * t1078 * t3670 - 0.73e2 / 0.25e2 * t440 * t9661 - 0.219e3 / 0.200e3 * t1568 * t3749 * t448 + 0.219e3 / 0.800e3 * t9667 * t3738 + 0.73e2 / 0.100e3 * t3732 * t3741 - 0.73e2 / 0.320e3 * t9672 * t696 * t2662 - 0.219e3 / 0.400e3 * t3737 * t1574 * t1084 + 0.11e2 / 0.9e1 * t1535 * t1034 - 0.154e3 / 0.81e2 * t674 * t2600 - 0.73e2 / 0.1200e4 * t1568 * t696 * t2674 - 0.73e2 / 0.400e3 * t9686 * t1569;
7311   t9722 = t152 * t3640;
7312   t9725 = t1006 * t3749;
7313   t9739 = t2565 * t1014 * t1527;
7314   t9748 = -0.3e1 / 0.2e1 * t395 * t9661 + 0.15e2 / 0.131072e6 * t7358 * t7359 * t2684 * t5782 + 0.3e1 * t1005 * t3626 - 0.45e2 / 0.4096e4 * t2575 * t2577 * t3663 + 0.9e1 / 0.32e2 * t1012 * t2582 * t1527 + 0.3e1 / 0.16e2 * t9722 * t1007 + 0.9e1 / 0.8e1 * t1005 * t9725 - 0.27e2 / 0.512e3 * t1519 * t7388 + 0.3e1 / 0.4e1 * t1519 * t7391 - 0.3e1 / 0.8e1 * t2548 * t3658 + t7406 * t1522 / 0.16e2 - 0.3e1 / 0.8e1 * t2562 * t3658 - 0.63e2 / 0.512e3 * t1005 * t9739 - 0.9e1 / 0.16e2 * t3643 * t2570 + 0.9e1 / 0.512e3 * t3643 * t2567 + 0.3e1 / 0.4096e4 * t1519 * t7418;
7315   t9756 = t7416 * t222 * t3663;
7316   t9763 = t152 * t3622;
7317   t9766 = t152 * t3625;
7318   t9769 = t152 * t3628;
7319   t9802 = 0.9e1 / 0.512e3 * t2548 * t3655 + t7411 * t1522 / 0.16e2 + 0.9e1 / 0.512e3 * t2562 * t3655 + 0.9e1 / 0.4096e4 * t1005 * t9756 + 0.3e1 / 0.16e2 * t7378 * t156 * t669 * t1002 + 0.3e1 / 0.16e2 * t9763 * t1007 + 0.3e1 / 0.16e2 * t9766 * t1007 + 0.3e1 / 0.8e1 * t9769 * t1007 + 0.9e1 / 0.512e3 * t3632 * t2567 - 0.9e1 / 0.16e2 * t3632 * t2570 + t152 * (0.3e1 / 0.4e1 * t146 * t1100 * t385 + 0.17e2 / 0.8e1 * t146 * t1100) * t163 + t152 * t2542 * t665 * t163 + 0.3e1 * t152 * t992 * t1516 * t163 + t152 * t2559 * t665 * t163 + 0.3e1 * t152 * t1002 * t1516 * t163 + 0.3e1 * t152 * t390 * t3640 * t163;
7320   t9807 = t3717 * t439;
7321   t9821 = -0.73e2 / 0.400e3 * t3732 * t3744 + 0.73e2 / 0.200e3 * t1568 * t1574 * t1094 + 0.219e3 / 0.800e3 * t3737 * t696 * t2665 + 0.292e3 / 0.675e3 * t1073 * t1558 - t3674 * t408 / 0.3e1 + 0.292e3 / 0.675e3 * t434 * t3717 - 0.73e2 / 0.97200e5 * t9656 * t208 + 0.292e3 / 0.2025e4 * t2645 * t689 + (t9748 + t9802) * t44 * t172 / 0.24e2 - 0.73e2 / 0.64800e5 * t9807 * t448 - 0.73e2 / 0.64800e5 * t3722 * t1094 - 0.73e2 / 0.194400e6 * t1563 * t2674 + 0.73e2 / 0.129600e6 * t3725 * t2665 + t215 * t1290 * t669 / 0.15e2 + 0.73e2 / 0.600e3 * t7425 * t670;
7322   t9829 = t700 * t2701;
7323   t9862 = 0.4e1 / 0.3e1 * t9393 * t9388 * t167 * t9583 - 0.3e1 / 0.2e1 * t9399 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t9689 + t9821) * t231 + t9064 - t9230 / 0.2e1 - 0.2e1 / 0.27e2 * t1892 * t9829 * t5046 * t219 * t2684 + 0.6e1 * t1485 * t9405 * t3783 + 0.3e1 * t1485 * t3589 * t9421 * t470 + 0.3e1 * t1485 * t3589 * t3577 * t1122 - 0.9e1 * t1485 * t4436 * t9426 * t375 - 0.27e2 / 0.4e1 * t1502 * t4436 * t3590 * t1122 + 0.8e1 * t9403 + t3069 * t3589 * t9431 * t470 - t3069 * t3576 * t3577 * t979 / 0.2e1;
7324   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7325     v4rho3tau[7] = t9513 + t9552 + t9582 + t9862;
7326 
7327   t9875 = t1653 * t862;
7328   t9882 = t1206 * t1206;
7329   t9898 = t1632 * t840;
7330   t9901 = t1223 * t1223;
7331   t9912 = 0.584e3 / 0.2025e4 * t516 * t2878 + 0.73e2 / 0.97200e5 * t7879 * t1216 + 0.73e2 / 0.97200e5 * t2981 * t2986 + 0.73e2 / 0.194400e6 * t2981 * t2989 - 0.73e2 / 0.64800e5 * t2178 * t1216 * t1223 + 0.3e1 / 0.16e2 * t110 * t9875 + 0.292e3 / 0.2025e4 * t831 * t1632 + t2976 * t499 / 0.12e2 + 0.584e3 / 0.2025e4 * t9882 - 0.2e1 / 0.9e1 * t3885 * t290 - 0.73e2 / 0.129600e6 * t7876 * t2915 + 0.73e2 / 0.103680e6 * t6075 * t1639 * t842 - 0.73e2 / 0.259200e6 * t2178 * t1644 * t842 - 0.4e1 / 0.9e1 * t1170 * t1177 + 0.22e2 / 0.27e2 * t496 * t2912 + 0.73e2 / 0.388800e6 * t9898 * t842 + 0.73e2 / 0.194400e6 * t841 * t9901 + 0.73e2 / 0.194400e6 * t2170 * t3952 + 0.73e2 / 0.194400e6 * t841 * t3957 * t330 + 0.73e2 / 0.388800e6 * t841 * t1644 * t852;
7332   t9921 = t1201 * t1201;
7333   t9936 = t2141 * t1625 * t311;
7334   t9939 = t2847 * t1201;
7335   t9942 = t3913 * t811;
7336   t9949 = -0.81e2 / 0.32e2 * t2142 * t1625 * t826 + 0.81e2 / 0.40e2 * t812 * t9921 + 0.81e2 / 0.40e2 * t812 * t511 * t2873 + 0.11e2 / 0.12e2 * t2835 * t1187 + 0.3e1 / 0.4e1 * t1204 * t2848 - 0.9e1 / 0.32e2 * t514 * t7652 - 0.9e1 / 0.64e2 * t514 * t7655 - 0.45e2 / 0.16e2 * t2846 * t9936 + 0.9e1 / 0.4e1 * t2846 * t9939 + 0.75e2 / 0.128e3 * t9942 * t5017 * t311 + 0.25e2 / 0.12e2 * t3913 * t3914 * t326;
7337   t9962 = t801 * t112;
7338   t9967 = t86 * t826;
7339   t9971 = t87 * t848;
7340   t9974 = t2142 * params->b;
7341   t9975 = t86 * t813;
7342   t9983 = -t1182 * t2851 / 0.2e1 + 0.3e1 / 0.32e2 * t502 * t7677 + 0.9e1 / 0.16e2 * t802 * t3904 + 0.567e3 / 0.64e2 * t5920 * t1625 * t813 - 0.81e2 / 0.8e1 * t2142 * t1190 * t1201 - 0.25e2 / 0.128e3 * t9962 * t3915 + 0.45e2 / 0.128e3 * t514 * t7687 + 0.45e2 / 0.512e3 * t3918 * t3919 * t9967 - 0.95e2 / 0.48e2 * t1628 * t9971 - 0.225e3 / 0.1024e4 * t9974 * t3919 * t9975 - 0.15e2 / 0.16e2 * t3918 * t326 * t84 * t3920;
7343   t9984 = t9949 + t9983;
7344   t9999 = t3927 * t321;
7345   t10047 = t2091 * t771;
7346   t10049 = t10047 * t2098 * t1921;
7347   t10060 = t3867 * t2957;
7348   t10075 = t30 * t750 * t1595 * t41 + t30 * t750 * t1603 * t41 - 0.3e1 / 0.8e1 * t30 * t276 * t779 * t36 + t30 * t760 * t1595 * t41 - t7733 * t1157 / 0.8e1 - 0.3e1 / 0.128e3 * t2945 * t2958 - 0.3e1 / 0.2048e4 * t1153 * t7767 + 0.3e1 / 0.512e3 * t2079 * t3869 + 0.3e1 / 0.2048e4 * t763 * t10049 + 0.3e1 / 0.512e3 * t3844 * t2084 - t3850 * t7721 * t624 * t276 / 0.64e2 + 0.3e1 / 0.512e3 * t3856 * t2084 - 0.15e2 / 0.256e3 * t763 * t10060 + 0.3e1 / 0.512e3 * t2065 * t3869 - 0.3e1 / 0.16e2 * t3856 * t2087 + t2945 * t2961 / 0.2e1 + 0.21e2 / 0.256e3 * t1153 * t7748 - 0.3e1 / 0.4e1 * t1153 * t7751 - 0.3e1 / 0.16e2 * t3844 * t2087;
7349   t10086 = t30 * t3838;
7350   t10089 = t488 * t276;
7351   t10090 = t30 * t10089;
7352   t10096 = t30 * t272 * params->BLOC_b;
7353   t10099 = t30 * t3847;
7354   t10123 = t1150 * t1150;
7355   t10133 = t3850 * t486 * t279 * t3852 / 0.4e1 - t7797 * t1157 / 0.8e1 - t7800 * t1157 / 0.4e1 - 0.3e1 / 0.128e3 * t2934 * t2958 + t10086 * t765 / 0.8e1 + t10090 * t1150 * t31 * t336 / 0.4e1 - t10096 * t3853 / 0.4e1 + t10099 * t765 / 0.8e1 + t2934 * t2961 / 0.2e1 - t7794 * t1157 / 0.8e1 + 0.4e1 * t763 * t3841 + 0.15e2 / 0.131072e6 * t6039 * t6009 * t4706 - t2079 * t1612 / 0.16e2 - t2065 * t1612 / 0.16e2 - 0.9e1 / 0.1024e4 * t2092 * t6013 * t1921 + 0.81e2 / 0.512e3 * t770 * t6017 * t775 + t763 * t3881 / 0.4e1 + 0.2e1 * t30 * t10123 * t41 + 0.2e1 * t30 * t489 * t2942 + t30 * t760 * t1603 * t41;
7356   t10138 = 0.950e3 / 0.531441e6 * t100 * t86 * t848 + 0.11e2 / 0.27e2 * t1616 * t792 - 0.73e2 / 0.97200e5 * t9984 * t96 + 0.584e3 / 0.2025e4 * t316 * t3927 - 0.73e2 / 0.129600e6 * t6067 * t3944 + 0.73e2 / 0.97200e5 * t2170 * t3947 - 0.73e2 / 0.259200e6 * t2178 * t1639 * t852 + 0.73e2 / 0.194400e6 * t841 * t525 * t2906 - 0.73e2 / 0.97200e5 * t9999 * t330 - 0.73e2 / 0.194400e6 * t3932 * t852 - 0.73e2 / 0.97200e5 * t7858 * t525 - 0.73e2 / 0.48600e5 * t2891 * t1223 - 0.73e2 / 0.97200e5 * t1211 * t2906 + 0.73e2 / 0.388800e6 * t6064 * t1639 - 0.73e2 / 0.194400e6 * t2167 * t1644 - 0.73e2 / 0.97200e5 * t836 * t3957 - 0.73e2 / 0.194400e6 * t322 * (0.1944e4 * t858 + 0.30400e5 / 0.9e1 * t9971) + t105 * t779 * t36 / 0.60e2 + 0.292e3 / 0.2025e4 * t80 * t9984 + (t10075 + t10133) * t44 * t55 / 0.24e2;
7357   t10142 = t3970 * t347 * t105;
7358   t10146 = t1657 * t873 * params->e;
7359   t10179 = (t9912 + t10138) * t126 + 0.4e1 / 0.9e1 * t10142 * t314 + 0.2e1 / 0.27e2 * t10146 * t850 - 0.22e2 / 0.27e2 * t3973 * t829 - t7906 * t514 / 0.6e1 - t7894 * t1221 / 0.9e1 + 0.8e1 / 0.9e1 * t2998 * t1204 - 0.4e1 / 0.27e2 * t7886 * t2921 + t3002 * t2904 / 0.2e1 - 0.44e2 / 0.27e2 * t1237 * t2876 + t6108 * t1629 / 0.96e2 + t6114 * t3966 / 0.18e2 - t2212 * t3924 / 0.9e1 + 0.5e1 / 0.324e3 * t6124 / t52 / t5964 * t31 * t69 - 0.43e2 / 0.108e3 * t2221 * t9875 + 0.19e2 / 0.54e2 * t875 * t9971;
7360   t10184 = t3042 * t3990;
7361   t10186 = t7995 * t1592 / 0.3e1;
7362   t10188 = t7995 * t1665 / 0.6e1;
7363   t10189 = t1246 * t1246;
7364   t10220 = t3042 * t3830;
7365   t10222 = -0.3e1 / 0.8e1 * t480 * t481 * t265 * t10179 - t10184 + t10186 - t10188 + 0.3e1 / 0.2e1 * t480 * t481 * t744 * t10189 + 0.2e1 * t1385 * t1394 * t1663 * t249 * t352 - 0.6e1 * t1385 * t3332 * t1590 * t249 * t352 + 0.4e1 * t1385 * t1394 * t2809 * t1246 - 0.9e1 * t1393 * t3332 * t7561 * t1246 - 0.9e1 / 0.4e1 * t480 * t481 * t3818 * t880 + 0.3e1 / 0.2e1 * t480 * t481 * t1137 * t3019 - 0.4e1 / 0.3e1 * t10220;
7366   t10223 = t3042 * t3835;
7367   t10241 = t3042 * t3816;
7368   t10243 = t3042 * t3820;
7369   t10245 = t3042 * t3824;
7370   t10268 = 0.2e1 * t10223 - t480 * t1132 * t3989 * t249 - t480 * t1132 * t1664 * t728 / 0.2e1 + 0.3e1 / 0.2e1 * t480 * t481 * t744 * t3988 * t352 + 0.3e1 / 0.4e1 * t480 * t481 * t3833 * t880 + 0.8e1 / 0.3e1 * t10241 - 0.6e1 * t10243 + 0.4e1 * t10245 - t480 * t2804 * t1664 * t711 / 0.6e1 - 0.9e1 / 0.4e1 * t480 * t481 * t2253 * t1663 * t745 + t480 * t2804 * t1591 * t711 / 0.3e1 + 0.9e1 * t480 * t481 * t6159 * t1590 * t745 + t480 * t1132 * t1591 * t728;
7371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7372     v4rho2sigma2[0] = t10222 + t10268;
7373 
7374   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7375     v4rho2sigma2[1] = 0.0e0;
7376 
7377   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7378     v4rho2sigma2[2] = 0.0e0;
7379 
7380   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7381     v4rho2sigma2[3] = 0.0e0;
7382 
7383   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7384     v4rho2sigma2[4] = 0.0e0;
7385 
7386   t10270 = t7995 * t1670 / 0.3e1;
7387   t10271 = t3042 * t3995;
7388   t10281 = t7995 * t1743 / 0.6e1;
7389   t10282 = t3042 * t4000;
7390   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7391     v4rho2sigma2[5] = t10270 + 0.8e1 / 0.3e1 * t10271 + t480 * t3030 * t1669 * t888 / 0.3e1 + t480 * t1253 * t1669 * t897 - t10281 - 0.4e1 / 0.3e1 * t10282 - t480 * t3030 * t1742 * t888 / 0.6e1 - t480 * t1253 * t1742 * t897 / 0.2e1;
7392 
7393   t10295 = t3042 * t4004;
7394   t10297 = t1590 * t370;
7395   t10315 = t3042 * t4007;
7396   t10317 = t1663 * t370;
7397   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7398     v4rho2sigma2[6] = t10186 + 0.4e1 / 0.3e1 * t10241 - 0.3e1 * t10243 + 0.2e1 * t10245 + 0.4e1 / 0.3e1 * t10295 + t3046 * t1394 * t10297 * t249 / 0.3e1 - 0.3e1 * t1385 * t3332 * t10297 * t352 + 0.2e1 * t1385 * t1394 * t3047 * t1246 + t3060 * t1132 * t1591 * t9 - t10188 - 0.2e1 / 0.3e1 * t10220 + t10223 - t10184 / 0.2e1 - 0.2e1 / 0.3e1 * t10315 - t3046 * t1386 * t10317 * t249 / 0.6e1 + t1385 * t1394 * t10317 * t352 - t480 * t1132 * t3989 * t370 / 0.2e1 - t3060 * t1132 * t1664 * t9 / 0.2e1;
7399 
7400   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7401     v4rho2sigma2[7] = 0.0e0;
7402 
7403   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7404     v4rho2sigma2[8] = 0.0e0;
7405 
7406   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7407     v4rho2sigma2[9] = 0.0e0;
7408 
7409   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7410     v4rho2sigma2[10] = 0.0e0;
7411 
7412   t10334 = t3042 * t4011;
7413   t10336 = t1668 * t375;
7414   t10344 = t3042 * t4015;
7415   t10351 = t3042 * t4019;
7416   t10359 = t3042 * t4023;
7417   t10361 = t1741 * t375;
7418   t10370 = t3042 * t4028;
7419   t10375 = t3042 * t4183;
7420   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7421     v4rho2sigma2[11] = t10270 + 0.4e1 / 0.3e1 * t10271 + 0.4e1 / 0.3e1 * t10334 + t3069 * t1503 * t10336 * t358 / 0.3e1 - t3060 * t1253 * t1669 * t9 - 0.3e1 * t10344 - 0.3e1 * t1485 * t3774 * t1668 * t470 * t358 + 0.2e1 * t10351 + 0.2e1 * t1485 * t1503 * t610 * t1376 * t358 - t10281 - 0.2e1 / 0.3e1 * t10282 - 0.2e1 / 0.3e1 * t10359 - t3069 * t1486 * t10361 * t358 / 0.6e1 + t3060 * t1253 * t1742 * t9 / 0.2e1 + t10370 + t1485 * t1503 * t1741 * t470 * t358 - t10375 / 0.2e1 - t480 * t1253 * t4182 * t358 / 0.2e1;
7422 
7423   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7424     v4rho2sigma2[12] = t10186 + 0.8e1 / 0.3e1 * t10295 + t480 * t2804 * t1591 * t959 / 0.3e1 + t480 * t1132 * t1591 * t965 - t10188 - 0.4e1 / 0.3e1 * t10315 - t480 * t2804 * t1664 * t959 / 0.6e1 - t480 * t1132 * t1664 * t965 / 0.2e1;
7425 
7426   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7427     v4rho2sigma2[13] = 0.0e0;
7428 
7429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7430     v4rho2sigma2[14] = 0.0e0;
7431 
7432   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7433     v4rho2sigma2[15] = 0.0e0;
7434 
7435   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7436     v4rho2sigma2[16] = 0.0e0;
7437 
7438   t10412 = t152 * t4031;
7439   t10415 = t555 * t394;
7440   t10416 = t152 * t10415;
7441   t10426 = t152 * t390 * params->BLOC_b;
7442   t10429 = t152 * t4040;
7443   t10442 = t1280 * t1280;
7444   t10469 = t10412 * t1007 / 0.8e1 + t10416 * t1280 * t153 * t454 / 0.4e1 + t3167 * t3194 / 0.2e1 - t8328 * t1287 / 0.8e1 - t10426 * t4046 / 0.4e1 + t10429 * t1007 / 0.8e1 - t8314 * t1287 / 0.8e1 - t8317 * t1287 / 0.4e1 - 0.3e1 / 0.128e3 * t3167 * t3191 - 0.3e1 / 0.8e1 * t152 * t394 * t1021 * t158 + 0.2e1 * t152 * t10442 * t163 + t152 * t992 * t1673 * t163 + t152 * t992 * t1681 * t163 + t152 * t1002 * t1673 * t163 + 0.2e1 * t152 * t556 * t3175 + t152 * t1002 * t1681 * t163 - t4043 * t8310 * t669 * t394 / 0.64e2 + 0.3e1 / 0.512e3 * t4049 * t2567 - t8353 * t1287 / 0.8e1;
7445   t10476 = t2574 * t1013;
7446   t10478 = t10476 * t2581 * t1988;
7447   t10485 = t4060 * t3190;
7448   t10519 = -0.3e1 / 0.128e3 * t3178 * t3191 - 0.3e1 / 0.2048e4 * t1283 * t8350 + 0.3e1 / 0.512e3 * t2562 * t4062 + 0.3e1 / 0.2048e4 * t1005 * t10478 + 0.3e1 / 0.512e3 * t4037 * t2567 - 0.3e1 / 0.4e1 * t1283 * t8336 - 0.15e2 / 0.256e3 * t1005 * t10485 + 0.3e1 / 0.512e3 * t2548 * t4062 + t4043 * t553 * t397 * t4045 / 0.4e1 - 0.3e1 / 0.16e2 * t4049 * t2570 + t3178 * t3194 / 0.2e1 + 0.21e2 / 0.256e3 * t1283 * t8333 - 0.3e1 / 0.16e2 * t4037 * t2570 - t2562 * t1690 / 0.16e2 + 0.81e2 / 0.512e3 * t1012 * t7402 * t1017 + t1005 * t4074 / 0.4e1 - t2548 * t1690 / 0.16e2 - 0.9e1 / 0.1024e4 * t2575 * t7398 * t1988 + 0.4e1 * t1005 * t4034 + 0.15e2 / 0.131072e6 * t7358 * t7394 * t4874;
7449   t10542 = t1731 * t1104;
7450   t10553 = 0.584e3 / 0.2025e4 * t434 * t4120 + 0.292e3 / 0.2025e4 * t1073 * t1710 + 0.584e3 / 0.2025e4 * t583 * t3280 - 0.2e1 / 0.9e1 * t4078 * t408 - 0.4e1 / 0.9e1 * t1300 * t1307 + 0.22e2 / 0.27e2 * t563 * t3214 + 0.11e2 / 0.27e2 * t1694 * t1034 + (t10469 + t10519) * t44 * t172 / 0.24e2 - 0.73e2 / 0.129600e6 * t8468 * t3148 + 0.73e2 / 0.103680e6 * t7309 * t1717 * t1084 - 0.73e2 / 0.259200e6 * t2661 * t1722 * t1084 - 0.73e2 / 0.129600e6 * t7301 * t4137 + 0.73e2 / 0.97200e5 * t2653 * t4140 - 0.73e2 / 0.259200e6 * t2661 * t1717 * t1094 - 0.73e2 / 0.64800e5 * t2661 * t1346 * t1353 + 0.3e1 / 0.16e2 * t110 * t10542 + 0.73e2 / 0.97200e5 * t8465 * t1346 + 0.73e2 / 0.97200e5 * t3220 * t3225 + 0.73e2 / 0.194400e6 * t3220 * t3228 + t3209 * t566 / 0.12e2;
7451   t10554 = t1336 * t1336;
7452   t10573 = t87 * t1090;
7453   t10593 = t4120 * t439;
7454   t10596 = t1353 * t1353;
7455   t10599 = t1710 * t1082;
7456   t10605 = t1331 * t1331;
7457   t10619 = t1043 * t112;
7458   t10628 = t86 * t1068;
7459   t10632 = -0.81e2 / 0.32e2 * t2625 * t1703 * t1068 + 0.81e2 / 0.40e2 * t1054 * t10605 + 0.81e2 / 0.40e2 * t1054 * t578 * t3275 + 0.9e1 / 0.16e2 * t1044 * t4097 + 0.567e3 / 0.64e2 * t7263 * t1703 * t1055 - 0.81e2 / 0.8e1 * t2625 * t1320 * t1331 - 0.25e2 / 0.128e3 * t10619 * t4108 - t1312 * t3253 / 0.2e1 + 0.3e1 / 0.32e2 * t569 * t8230 + 0.45e2 / 0.128e3 * t581 * t8241 + 0.45e2 / 0.512e3 * t4111 * t4112 * t10628;
7460   t10644 = t2624 * t1703 * t429;
7461   t10647 = t3249 * t1331;
7462   t10650 = t4106 * t1053;
7463   t10657 = t2625 * params->b;
7464   t10658 = t86 * t1055;
7465   t10666 = -0.95e2 / 0.48e2 * t1706 * t10573 + 0.11e2 / 0.12e2 * t3237 * t1317 + 0.3e1 / 0.4e1 * t1334 * t3250 - 0.9e1 / 0.32e2 * t581 * t8262 - 0.9e1 / 0.64e2 * t581 * t8265 - 0.45e2 / 0.16e2 * t3248 * t10644 + 0.9e1 / 0.4e1 * t3248 * t10647 + 0.75e2 / 0.128e3 * t10650 * t5110 * t429 + 0.25e2 / 0.12e2 * t4106 * t4107 * t444 - 0.225e3 / 0.1024e4 * t10657 * t4112 * t10658 - 0.15e2 / 0.16e2 * t4111 * t444 * t84 * t4113;
7466   t10667 = t10632 + t10666;
7467   t10672 = 0.584e3 / 0.2025e4 * t10554 + 0.73e2 / 0.194400e6 * t1083 * t592 * t3145 + 0.73e2 / 0.194400e6 * t2653 * t4145 + 0.73e2 / 0.194400e6 * t1083 * t4150 * t448 + 0.73e2 / 0.388800e6 * t1083 * t1722 * t1094 + 0.950e3 / 0.531441e6 * t100 * t86 * t1090 - 0.73e2 / 0.97200e5 * t1078 * t4150 - 0.73e2 / 0.194400e6 * t440 * (0.1944e4 * t1100 + 0.30400e5 / 0.9e1 * t10573) + t105 * t1021 * t158 / 0.60e2 + 0.73e2 / 0.388800e6 * t7298 * t1717 - 0.73e2 / 0.194400e6 * t2650 * t1722 - 0.73e2 / 0.48600e5 * t3130 * t1353 - 0.73e2 / 0.97200e5 * t1341 * t3145 - 0.73e2 / 0.97200e5 * t8462 * t592 - 0.73e2 / 0.194400e6 * t4125 * t1094 - 0.73e2 / 0.97200e5 * t10593 * t448 + 0.73e2 / 0.194400e6 * t1083 * t10596 + 0.73e2 / 0.388800e6 * t10599 * t1084 - 0.73e2 / 0.97200e5 * t10667 * t208 + 0.292e3 / 0.2025e4 * t196 * t10667;
7468   t10676 = t4163 * t465 * t105;
7469   t10680 = t1735 * t1115 * params->e;
7470   t10713 = (t10553 + t10672) * t231 + 0.4e1 / 0.9e1 * t10676 * t432 + 0.2e1 / 0.27e2 * t10680 * t1092 - 0.22e2 / 0.27e2 * t4166 * t1071 - t8481 * t581 / 0.6e1 - t8485 * t1351 / 0.9e1 + 0.8e1 / 0.9e1 * t3293 * t1334 - 0.4e1 / 0.27e2 * t8510 * t3154 + t3297 * t3143 / 0.2e1 - 0.44e2 / 0.27e2 * t1367 * t3278 + t7447 * t1707 / 0.96e2 + t7453 * t4159 / 0.18e2 - t2695 * t4117 / 0.9e1 + 0.5e1 / 0.324e3 * t7461 / t169 / t7340 * t153 * t69 - 0.43e2 / 0.108e3 * t2703 * t10542 + 0.19e2 / 0.54e2 * t1117 * t10573;
7471   t10718 = t1376 * t1376;
7472   t10753 = -0.3e1 / 0.8e1 * t480 * t548 * t383 * t10713 + 0.3e1 / 0.2e1 * t480 * t548 * t986 * t10718 - t10375 - t10281 + t10270 - t480 * t1253 * t4182 * t375 - t480 * t1253 * t1742 * t979 / 0.2e1 + 0.3e1 / 0.2e1 * t480 * t548 * t986 * t4181 * t470 + 0.3e1 / 0.4e1 * t480 * t548 * t4026 * t1122 - 0.9e1 / 0.4e1 * t480 * t548 * t2724 * t1741 * t987 + 0.9e1 * t480 * t548 * t7210 * t1668 * t987 - t480 * t3030 * t1742 * t970 / 0.6e1;
7473   t10790 = t480 * t3030 * t1669 * t970 / 0.3e1 + t480 * t1253 * t1669 * t979 - 0.9e1 / 0.4e1 * t480 * t548 * t4013 * t1122 + 0.3e1 / 0.2e1 * t480 * t548 * t1267 * t3314 - 0.6e1 * t10344 + 0.4e1 * t10351 - 0.4e1 / 0.3e1 * t10359 + 0.2e1 * t10370 + 0.4e1 * t1485 * t1503 * t3070 * t1376 - 0.9e1 * t1502 * t3774 * t3080 * t1376 + 0.2e1 * t1485 * t1503 * t10361 * t470 - 0.6e1 * t1485 * t3774 * t10336 * t470 + 0.8e1 / 0.3e1 * t10334;
7474   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7475     v4rho2sigma2[17] = t10753 + t10790;
7476 
7477   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7478     v4rho2sigmalapl[0] = 0.0e0;
7479 
7480   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7481     v4rho2sigmalapl[1] = 0.0e0;
7482 
7483   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7484     v4rho2sigmalapl[2] = 0.0e0;
7485 
7486   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7487     v4rho2sigmalapl[3] = 0.0e0;
7488 
7489   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7490     v4rho2sigmalapl[4] = 0.0e0;
7491 
7492   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7493     v4rho2sigmalapl[5] = 0.0e0;
7494 
7495   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7496     v4rho2sigmalapl[6] = 0.0e0;
7497 
7498   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7499     v4rho2sigmalapl[7] = 0.0e0;
7500 
7501   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7502     v4rho2sigmalapl[8] = 0.0e0;
7503 
7504   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7505     v4rho2sigmalapl[9] = 0.0e0;
7506 
7507   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7508     v4rho2sigmalapl[10] = 0.0e0;
7509 
7510   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7511     v4rho2sigmalapl[11] = 0.0e0;
7512 
7513   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7514     v4rho2sigmalapl[12] = 0.0e0;
7515 
7516   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7517     v4rho2sigmalapl[13] = 0.0e0;
7518 
7519   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7520     v4rho2sigmalapl[14] = 0.0e0;
7521 
7522   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7523     v4rho2sigmalapl[15] = 0.0e0;
7524 
7525   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7526     v4rho2sigmalapl[16] = 0.0e0;
7527 
7528   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7529     v4rho2sigmalapl[17] = 0.0e0;
7530 
7531   t10792 = t1474 * t720 * t262;
7532   t10793 = t2253 * t654;
7533   t10794 = t10793 * t126;
7534   t10821 = t8605 * t4382;
7535   t10823 = t8609 * t4387;
7536   t10825 = t3517 * t4374;
7537   t10832 = t1809 * t873;
7538   t10833 = t10832 * params->e;
7539   t10840 = t3517 * t4394;
7540   t10853 = -0.6e1 * t10792 * t10794 * t2810 + t3510 * t1478 * t69 * t289 * t352 / 0.3e1 - 0.2e1 / 0.9e1 * t3503 * t1478 * t69 * t289 * t249 + 0.3e1 / 0.16e2 * t8645 * t1478 * t69 * t54 * t745 + 0.11e2 / 0.36e2 * t1476 * t4373 * t829 + t8638 * t1478 * t69 * t54 * t711 / 0.72e2 + t10821 / 0.9e1 - t10823 / 0.6e1 - 0.2e1 / 0.9e1 * t10825 - t1476 * t4366 * t347 * t105 * t314 / 0.6e1 - t1476 * t10833 * t850 / 0.36e2 + t1476 * t8684 * t1221 / 0.48e2 + t10840 / 0.36e2 + t3503 * t3521 * t4381 / 0.12e2 + t3503 * t1478 * t69 * t54 * t728 / 0.24e2 - t3510 * t3521 * t4386 / 0.8e1;
7541   t10862 = t1394 * t1809;
7542   t10869 = t126 * t1246;
7543   t10889 = t3351 * t4189;
7544   t10891 = t3358 * t4193;
7545   t10893 = t8721 * t654;
7546   t10920 = t2900 * t624;
7547   t10935 = t30 * t4221;
7548   t10938 = t30 * t4224;
7549   t10943 = t30 * t4230;
7550   t10952 = 0.3e1 / 0.256e3 * t2934 * t3399 - t8841 * t1157 / 0.16e2 - t8844 * t1157 / 0.8e1 - 0.3e1 / 0.256e3 * t3376 * t2958 + t7797 * t1413 / 0.16e2 + t7800 * t1413 / 0.8e1 + t10935 * t765 / 0.8e1 + t10938 * t765 / 0.8e1 + 0.3e1 / 0.512e3 * t4227 * t2084 + t10943 * t765 / 0.8e1 + t3376 * t2961 / 0.4e1 - t8838 * t1157 / 0.16e2 - t2934 * t3402 / 0.4e1;
7551   t10957 = t620 * t276;
7552   t10994 = t7794 * t1413 / 0.16e2 - 0.3e1 / 0.16e2 * t4227 * t2087 + t2934 * t10957 * t281 / 0.8e1 + t30 * t750 * t1758 * t41 + 0.2e1 * t30 * t272 * t4237 * t41 + t30 * t2942 * t620 * t41 + 0.2e1 * t30 * t1150 * t1407 * t41 + t30 * t488 * t3384 * t41 + t30 * t760 * t1758 * t41 + t30 * (-t2937 * t1753 / 0.4e1 - 0.7e1 / 0.8e1 * t2937 * t36) * t41 - t2945 * t3402 / 0.4e1 - 0.21e2 / 0.512e3 * t1153 * t8802 + 0.3e1 / 0.8e1 * t1153 * t8805;
7553   t10996 = t2956 * t3398;
7554   t11001 = t1156 * t1465;
7555   t11024 = 0.9e1 / 0.128e3 * t763 * t10996 - 0.3e1 / 0.512e3 * t2065 * t4260 - t763 * t11001 / 0.2e1 + t2065 * t4270 / 0.8e1 - 0.3e1 / 0.16e2 * t4240 * t2087 + t3387 * t2961 / 0.4e1 + 0.21e2 / 0.512e3 * t1410 * t7748 - 0.3e1 / 0.8e1 * t1410 * t7751 + t2079 * t4270 / 0.8e1 + t7733 * t1413 / 0.16e2 + 0.3e1 / 0.256e3 * t2945 * t3399 + 0.3e1 / 0.4096e4 * t1153 * t8813 - 0.3e1 / 0.512e3 * t2079 * t4260;
7556   t11026 = t7765 * t2098 * t3407;
7557   t11029 = t30 * t4237;
7558   t11058 = -0.3e1 / 0.2048e4 * t763 * t11026 + t11029 * t765 / 0.8e1 + 0.3e1 / 0.512e3 * t4240 * t2084 - t8816 * t1157 / 0.16e2 - 0.3e1 / 0.256e3 * t3387 * t2958 - 0.3e1 / 0.4096e4 * t1410 * t7767 + 0.3e1 / 0.4e1 * t277 * t10920 + 0.39e2 / 0.4096e4 * t2092 * t2965 * t3407 - 0.51e2 / 0.256e3 * t770 * t2969 * t1418 + t2065 * t1751 + t2079 * t1751 + 0.2e1 * t763 * t4222 + 0.2e1 * t763 * t4225 - 0.15e2 / 0.131072e6 * t6039 * t7708 * t862 * t5689;
7559   t11064 = t1793 * t840;
7560   t11067 = 0.292e3 / 0.2025e4 * t831 * t1793 + 0.292e3 / 0.2025e4 * t516 * t3461 + 0.584e3 / 0.2025e4 * t1206 * t1449 - 0.2e1 / 0.9e1 * t4277 * t290 + 0.11e2 / 0.27e2 * t1773 * t792 + 0.292e3 / 0.2025e4 * t2878 * t644 + 0.73e2 / 0.100e3 * t1211 * t3414 - 0.73e2 / 0.150e3 * t2891 * t1422 - 0.73e2 / 0.75e2 * t836 * t4273 + 0.73e2 / 0.50e2 * t322 * t10920 + (t10952 + t10994 + t11024 + t11058) * t44 * t55 / 0.24e2 + 0.73e2 / 0.388800e6 * t11064 * t842;
7561   t11116 = t8927 * t1190;
7562   t11119 = 0.195e3 / 0.32e2 * t3922 + 0.81e2 / 0.80e2 * t812 * t3458 * t511 + 0.81e2 / 0.40e2 * t812 * t1446 * t1201 + 0.81e2 / 0.80e2 * t812 * t641 * t2873 + 0.65e2 / 0.6e1 * t3925 - 0.15e2 / 0.8e1 * t3900 + 0.567e3 / 0.64e2 * t5920 * t1784 * t813 + 0.11e2 / 0.24e2 * t2835 * t1436 - 0.81e2 / 0.16e2 * t2142 * t4310 * t311 - 0.81e2 / 0.16e2 * t2142 * t4313 * t311 - 0.81e2 / 0.32e2 * t2142 * t1784 * t826 + 0.25e2 / 0.16e2 * t9962 * t4316 - 0.3e1 / 0.8e1 * t632 * t7677 - t1182 * t3441 / 0.4e1 + 0.3e1 / 0.64e2 * t502 * t8896 - 0.45e2 / 0.16e2 * t2846 * t11116;
7563   t11135 = t8883 * t511;
7564   t11138 = t3437 * t1201;
7565   t11154 = -0.45e2 / 0.64e2 * t3918 * t1789 * t9967 + 0.225e3 / 0.128e3 * t9974 * t1789 * t9975 - 0.325e3 / 0.24e2 * t3916 - 0.5e1 / 0.3e1 * t3898 + 0.5e1 / 0.4e1 * t3902 + 0.9e1 / 0.16e2 * t4293 * t7655 - 0.45e2 / 0.32e2 * t4293 * t7687 + 0.45e2 / 0.256e3 * t514 * t8928 + 0.9e1 / 0.8e1 * t2846 * t11135 + 0.9e1 / 0.8e1 * t2846 * t11138 - 0.75e2 / 0.16e2 * t9942 * t5479 * t311 + 0.9e1 / 0.8e1 * t4293 * t7652 + 0.3e1 / 0.8e1 * t1204 * t3438 - 0.9e1 / 0.64e2 * t514 * t8884 - 0.9e1 / 0.128e3 * t514 * t8887 + 0.9e1 / 0.16e2 * t7648 * t4304;
7566   t11155 = t11119 + t11154;
7567   t11166 = 0.73e2 / 0.194400e6 * t8981 * t1216 + 0.73e2 / 0.194400e6 * t3469 * t2986 + 0.73e2 / 0.388800e6 * t3469 * t2989 - t532 * t3493 / 0.30e2 + t3418 * t499 / 0.24e2 + 0.73e2 / 0.600e3 * t7858 * t625 + 0.73e2 / 0.300e3 * t2167 * t1769 + 0.292e3 / 0.2025e4 * t80 * t11155 - 0.2e1 / 0.9e1 * t1426 * t1177 + 0.11e2 / 0.27e2 * t629 * t2912 - 0.73e2 / 0.259200e6 * t8984 * t2915 + 0.584e3 / 0.2025e4 * t316 * t4323;
7568   t11175 = t2178 * sigma[0];
7569   t11180 = t7876 * t31;
7570   t11191 = t7879 * t31;
7571   t11197 = 0.73e2 / 0.300e3 * t4340 * t3485 + 0.73e2 / 0.300e3 * t3476 * t4350 - 0.73e2 / 0.200e3 * t1459 * t3493 * t525 + 0.73e2 / 0.400e3 * t11175 * t3482 + 0.73e2 / 0.150e3 * t4358 * t3485 + 0.73e2 / 0.800e3 * t11180 * t3482 - 0.73e2 / 0.600e3 * t3476 * t4353 - 0.73e2 / 0.1200e4 * t4340 * t3488 - 0.73e2 / 0.1200e4 * t8997 * t1802 - 0.73e2 / 0.600e3 * t4358 * t3488 - 0.73e2 / 0.600e3 * t11191 * t1460 + 0.73e2 / 0.300e3 * t1459 * t1465 * t1223;
7572   t11201 = t2170 * sigma[0];
7573   t11226 = t4323 * t321;
7574   t11231 = -0.73e2 / 0.1200e4 * t1459 * t651 * t2906 - 0.73e2 / 0.300e3 * t11201 * t1460 - 0.73e2 / 0.320e3 * t8967 * t651 * t2915 - 0.73e2 / 0.200e3 * t3481 * t1465 * t1216 + 0.73e2 / 0.400e3 * t8961 * t4347 + 0.73e2 / 0.400e3 * t3481 * t651 * t2986 + 0.73e2 / 0.800e3 * t3481 * t651 * t2989 - 0.73e2 / 0.97200e5 * t3466 * t1223 - 0.73e2 / 0.194400e6 * t1454 * t2906 - 0.73e2 / 0.194400e6 * t8774 * t525 - 0.73e2 / 0.194400e6 * t4328 * t852 - 0.73e2 / 0.97200e5 * t11226 * t330 - 0.73e2 / 0.97200e5 * t11155 * t96;
7575   t11240 = t7995 * t1812 / 0.6e1;
7576   t11241 = t3042 * t4369;
7577   t11242 = -t3510 * t1478 * t69 * t54 * t880 / 0.16e2 - 0.3e1 / 0.32e2 * t1476 * t3526 * t2904 + 0.2e1 * t1385 * t10862 * t3328 + 0.2e1 * t1385 * t9039 * t4188 + 0.2e1 * t1385 * t3326 * t10869 * t249 + t1385 * t3326 * t4187 * t728 - 0.9e1 / 0.2e1 * t1393 * t3332 * t1468 * t4192 - 0.9e1 / 0.2e1 * t1393 * t4191 * t10869 * t352 - 0.9e1 / 0.4e1 * t1393 * t4191 * t4187 * t880 + 0.8e1 / 0.3e1 * t10889 - 0.6e1 * t10891 + 0.9e1 * t1393 * t10893 * t4187 * t745 + t3046 * t3326 * t4187 * t711 / 0.3e1 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t11067 + t11166 + t11197 + t11231) * t126 - t11240 - t11241;
7578   t11244 = t3358 * t4197;
7579   t11255 = t8739 * t1747 / 0.3e1;
7580   t11256 = t3358 * t4206;
7581   t11270 = t3351 * t4213;
7582   t11272 = t3358 * t4217;
7583   t11274 = t4366 * t126;
7584   t11290 = t347 * t543;
7585   t11300 = 0.2e1 * t11244 - t3046 * t1386 * t4211 * t711 / 0.6e1 - 0.9e1 / 0.4e1 * t1393 * t3332 * t4211 * t745 + t11255 + 0.2e1 * t11256 + 0.3e1 / 0.4e1 * t1393 * t1394 * t8698 * t543 + 0.3e1 / 0.2e1 * t1393 * t1394 * t3341 * t1246 + 0.3e1 / 0.4e1 * t1393 * t1394 * t1387 * t3019 - 0.4e1 / 0.3e1 * t11270 + 0.2e1 * t11272 - t1385 * t1386 * t11274 * t249 - t1385 * t1386 * t4211 * t728 / 0.2e1 + 0.3e1 / 0.2e1 * t1393 * t1394 * t11274 * t352 + 0.3e1 / 0.4e1 * t1393 * t1394 * t4211 * t880 + 0.4e1 / 0.9e1 * t8760 * t11290 * t3504 * t314 - t480 * t481 * t10793 * t11290 * t3511 * t314;
7586   t11301 = t8609 * t4202;
7587   t11307 = t3525 * t5269;
7588   t11319 = t1474 * t720 * t1394;
7589   t11330 = t3525 * t543 * params->e;
7590   t11350 = t4377 * t4391;
7591   t11358 = t9253 * t1815 * t1819 / 0.72e2;
7592   t11366 = t4377 * t4398;
7593   t11368 = 0.4e1 / 0.9e1 * t11301 + t3510 * t3520 * t4200 * t314 / 0.3e1 - t3510 * t11307 * t3960 * t352 * sigma[0] / 0.24e2 + t3503 * t11307 * t3960 * t249 * sigma[0] / 0.36e2 - t11319 * t8616 * t499 * t6241 / 0.6e1 + t3510 * t1477 * t1246 * t105 * t314 / 0.3e1 + t3510 * t11330 * t850 / 0.18e2 - 0.2e1 / 0.9e1 * t3503 * t4372 * t3504 * t314 + t3510 * t4372 * t3511 * t314 / 0.3e1 - 0.11e2 / 0.18e2 * t3510 * t4201 * t829 + t1816 * t9014 * t5046 * t862 * t31 / 0.36e2 + t11350 / 0.12e2 + t1816 * t3497 * t347 * t1818 / 0.32e2 + t11358 + 0.11e2 / 0.36e2 * t1816 * t1817 * t121 * t2912 - t1816 * t4390 * t4397 / 0.6e1 - 0.2e1 / 0.9e1 * t11366;
7594   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7595     v4rho2sigmatau[0] = t10853 + t11242 + t11300 + t11368;
7596 
7597   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7598     v4rho2sigmatau[1] = 0.0e0;
7599 
7600   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7601     v4rho2sigmatau[2] = 0.0e0;
7602 
7603   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7604     v4rho2sigmatau[3] = 0.0e0;
7605 
7606   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7607     v4rho2sigmatau[4] = 0.0e0;
7608 
7609   t11371 = t9194 * t1823 / 0.3e1;
7610   t11372 = t3531 * t4404;
7611   t11382 = t7995 * t1888 / 0.6e1;
7612   t11383 = t3531 * t4410;
7613   t11395 = t9253 * t1891 * t1895 / 0.72e2;
7614   t11396 = t9257 * t4418;
7615   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7616     v4rho2sigmatau[5] = t11371 + 0.8e1 / 0.3e1 * t11372 + t3069 * t3589 * t4402 * t888 / 0.3e1 + t1485 * t3589 * t4402 * t897 - t11382 - 0.4e1 / 0.3e1 * t11383 - t3069 * t1486 * t4408 * t888 / 0.6e1 - t1485 * t1486 * t4408 * t897 / 0.2e1 + t11395 + t11396 / 0.9e1 + t9242 * t1586 * t69 * t171 * t888 / 0.72e2 + t3606 * t1586 * t69 * t171 * t897 / 0.24e2;
7617 
7618   t11414 = t8605 * t4430;
7619   t11447 = t3351 * t4422;
7620   t11451 = t9107 * t9108 * t3048 / 0.3e1 - 0.3e1 * t10792 * t10794 * t3052 + t11414 / 0.18e2 + t3503 * t3521 * t4429 / 0.24e2 - t3503 * t1478 * t69 * t289 * t370 / 0.9e1 + t9082 * t1478 * t69 * t54 * t9 / 0.24e2 + t10821 / 0.18e2 - t10823 / 0.12e2 - t10825 / 0.9e1 + t10840 / 0.72e2 + t3568 * t3326 * t4187 * t9 + t1385 * t9039 * t4421 + t1385 * t3326 * t10869 * t370 - t3046 * t1386 * t1809 * t3552 / 0.6e1 + t1385 * t10862 * t3556 + 0.4e1 / 0.3e1 * t11447 + 0.4e1 / 0.3e1 * t10889 - 0.3e1 * t10891;
7621   t11457 = t3351 * t4425;
7622   t11488 = -t11240 - t11241 / 0.2e1 - t3568 * t1386 * t4211 * t9 / 0.2e1 - 0.2e1 / 0.3e1 * t11457 - t1385 * t1386 * t11274 * t370 / 0.2e1 + t11244 + t11255 + t11256 - 0.2e1 / 0.3e1 * t11270 + t11272 + 0.2e1 / 0.9e1 * t8760 * t11290 * t3563 * t314 + t3503 * t11307 * t3960 * t370 * sigma[0] / 0.72e2 - t3503 * t4372 * t3563 * t314 / 0.9e1 + t8638 * t8616 * t499 * t911 / 0.72e2 - t11319 * t8616 * t499 * t2429 / 0.12e2 + 0.2e1 / 0.9e1 * t11301 + t11350 / 0.24e2 + t11358 - t11366 / 0.9e1;
7623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7624     v4rho2sigmatau[6] = t11451 + t11488;
7625 
7626   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7627     v4rho2sigmatau[7] = 0.0e0;
7628 
7629   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7630     v4rho2sigmatau[8] = 0.0e0;
7631 
7632   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7633     v4rho2sigmatau[9] = 0.0e0;
7634 
7635   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7636     v4rho2sigmatau[10] = 0.0e0;
7637 
7638   t11490 = t1474 * t947 * t262;
7639   t11491 = t2724 * t699;
7640   t11492 = t11491 * t231;
7641   t11499 = t3602 * t4633;
7642   t11501 = t9316 * t4626;
7643   t11503 = t9257 * t4621;
7644   t11505 = t3602 * t4616;
7645   t11520 = t231 * t1376;
7646   t11528 = t1503 * t1885;
7647   t11536 = t3587 * t4438;
7648   t11538 = t3531 * t4434;
7649   t11541 = -0.3e1 * t11490 * t11492 * t3081 + t9350 * t9352 * t3071 / 0.3e1 + t11499 / 0.72e2 - t11501 / 0.12e2 + t11503 / 0.18e2 - t11505 / 0.9e1 - t3606 * t1586 * t69 * t3608 / 0.9e1 + t3606 * t3805 * t4417 / 0.24e2 - t9331 * t1586 * t69 * t171 * t9 / 0.24e2 + t11396 / 0.18e2 + t1485 * t3589 * t11520 * t358 - t3069 * t1486 * t1885 * t3578 / 0.6e1 + t1485 * t11528 * t3591 - t3582 * t3589 * t4402 * t9 + t1485 * t9405 * t4403 - 0.3e1 * t11536 + 0.4e1 / 0.3e1 * t11538 + 0.4e1 / 0.3e1 * t11372;
7650   t11542 = t3042 * t4611;
7651   t11548 = t4608 * t231;
7652   t11553 = t3531 * t4455;
7653   t11555 = t3587 * t4459;
7654   t11556 = t3587 * t4442;
7655   t11557 = t3587 * t4451;
7656   t11559 = t465 * t610;
7657   t11564 = t9316 * t4447;
7658   t11572 = t1474 * t947 * t1503;
7659   t11585 = t4413 * t4630;
7660   t11587 = t4413 * t4637;
7661   t11589 = -t11542 / 0.2e1 - t11382 + t3582 * t1486 * t4408 * t9 / 0.2e1 - t1485 * t1486 * t11548 * t358 / 0.2e1 - 0.2e1 / 0.3e1 * t11553 + t11555 + t11556 + t11557 - 0.2e1 / 0.3e1 * t11383 + t11371 + 0.2e1 / 0.9e1 * t9393 * t11559 * t121 * t3609 + 0.2e1 / 0.9e1 * t11564 + t3606 * t9325 * t4153 * sigma[2] * t358 / 0.72e2 - t11572 * t3607 * t566 * t6436 / 0.12e2 + t9242 * t3607 * t566 * t934 / 0.72e2 - t3606 * t4614 * t121 * t3609 / 0.9e1 + t11585 / 0.24e2 - t11587 / 0.9e1 + t11395;
7662   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7663     v4rho2sigmatau[11] = t11541 + t11589;
7664 
7665   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7666     v4rho2sigmatau[12] = t11255 + 0.8e1 / 0.3e1 * t11447 + t3046 * t3326 * t4187 * t959 / 0.3e1 + t1385 * t3326 * t4187 * t965 - t11240 - 0.4e1 / 0.3e1 * t11457 - t3046 * t1386 * t4211 * t959 / 0.6e1 - t1385 * t1386 * t4211 * t965 / 0.2e1 + t11358 + t11414 / 0.9e1 + t8638 * t1478 * t69 * t54 * t959 / 0.72e2 + t3503 * t1478 * t69 * t54 * t965 / 0.24e2;
7667 
7668   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7669     v4rho2sigmatau[13] = 0.0e0;
7670 
7671   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7672     v4rho2sigmatau[14] = 0.0e0;
7673 
7674   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7675     v4rho2sigmatau[15] = 0.0e0;
7676 
7677   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7678     v4rho2sigmatau[16] = 0.0e0;
7679 
7680   t11634 = t1885 * t1115;
7681   t11635 = t11634 * params->e;
7682   t11677 = -0.6e1 * t11490 * t11492 * t3105 + t3606 * t1586 * t69 * t171 * t979 / 0.24e2 - t3767 * t3805 * t4625 / 0.8e1 - t1584 * t4608 * t465 * t105 * t432 / 0.6e1 - t1584 * t11635 * t1092 / 0.36e2 + 0.11e2 / 0.36e2 * t1584 * t4615 * t1071 + t9242 * t1586 * t69 * t171 * t970 / 0.72e2 - 0.3e1 / 0.32e2 * t1584 * t3810 * t3143 + t3767 * t1586 * t69 * t9583 / 0.3e1 - 0.2e1 / 0.9e1 * t3606 * t1586 * t69 * t407 * t375 + 0.3e1 / 0.16e2 * t9463 * t1586 * t69 * t171 * t987 - t3767 * t1586 * t69 * t171 * t1122 / 0.16e2 + t1584 * t9509 * t1351 / 0.48e2 + t3606 * t3805 * t4620 / 0.12e2 + t11499 / 0.36e2 - t11501 / 0.6e1;
7683   t11684 = t9570 * t699;
7684   t11723 = t2661 * sigma[2];
7685   t11728 = t8468 * t153;
7686   t11733 = t2653 * sigma[2];
7687   t11745 = 0.73e2 / 0.300e3 * t4582 * t3741 + 0.73e2 / 0.300e3 * t3732 * t4592 - 0.73e2 / 0.200e3 * t1568 * t3749 * t592 + 0.73e2 / 0.400e3 * t11723 * t3738 + 0.73e2 / 0.150e3 * t4600 * t3741 + 0.73e2 / 0.800e3 * t11728 * t3738 + 0.584e3 / 0.2025e4 * t434 * t4565 - 0.73e2 / 0.300e3 * t11733 * t1569 - 0.73e2 / 0.600e3 * t4600 * t3744 - 0.73e2 / 0.1200e4 * t9686 * t1878 - 0.73e2 / 0.600e3 * t3732 * t4595 + 0.73e2 / 0.300e3 * t1568 * t1574 * t1353;
7688   t11751 = t8465 * t153;
7689   t11776 = -0.73e2 / 0.1200e4 * t1568 * t696 * t3145 - 0.73e2 / 0.1200e4 * t4582 * t3744 - 0.73e2 / 0.600e3 * t11751 * t1569 + 0.292e3 / 0.2025e4 * t1073 * t1869 + 0.292e3 / 0.2025e4 * t583 * t3717 - 0.73e2 / 0.320e3 * t9672 * t696 * t3148 - 0.73e2 / 0.200e3 * t3737 * t1574 * t1346 + 0.584e3 / 0.2025e4 * t1336 * t1558 + 0.292e3 / 0.2025e4 * t3280 * t689 + 0.73e2 / 0.400e3 * t9667 * t4589 + 0.73e2 / 0.400e3 * t3737 * t696 * t3225 + 0.73e2 / 0.800e3 * t3737 * t696 * t3228;
7690   t11795 = t8348 * t2581 * t3663;
7691   t11798 = t152 * t4479;
7692   t11807 = t2562 * t4512 / 0.8e1 - t9722 * t1287 / 0.16e2 - 0.3e1 / 0.256e3 * t3643 * t3191 - 0.3e1 / 0.4096e4 * t1519 * t8350 + t8353 * t1522 / 0.16e2 + 0.3e1 / 0.256e3 * t3178 * t3655 + 0.3e1 / 0.4096e4 * t1283 * t9756 - 0.3e1 / 0.512e3 * t2562 * t4502 - 0.3e1 / 0.2048e4 * t1005 * t11795 + t11798 * t1007 / 0.8e1 + 0.3e1 / 0.512e3 * t4482 * t2567 - 0.21e2 / 0.512e3 * t1283 * t9739 + 0.3e1 / 0.8e1 * t1283 * t9725;
7693   t11808 = t3189 * t3654;
7694   t11813 = t1286 * t1574;
7695   t11828 = t665 * t394;
7696   t11842 = 0.9e1 / 0.128e3 * t1005 * t11808 - 0.3e1 / 0.512e3 * t2548 * t4502 - t1005 * t11813 / 0.2e1 + t2548 * t4512 / 0.8e1 + t3643 * t3194 / 0.4e1 + 0.21e2 / 0.512e3 * t1519 * t8333 - 0.3e1 / 0.8e1 * t1519 * t8336 - t3178 * t3658 / 0.4e1 - 0.3e1 / 0.16e2 * t4482 * t2570 + t3167 * t11828 * t399 / 0.8e1 + t152 * t992 * t1834 * t163 + t152 * t1002 * t1834 * t163 + 0.2e1 * t152 * t390 * t4479 * t163;
7697   t11871 = t3139 * t669;
7698   t11882 = t152 * t3175 * t665 * t163 + 0.2e1 * t152 * t1280 * t1516 * t163 + t152 * t555 * t3640 * t163 + t152 * (-t3170 * t1829 / 0.4e1 - 0.7e1 / 0.8e1 * t3170 * t158) * t163 - 0.15e2 / 0.131072e6 * t7358 * t8295 * t1104 * t5782 + 0.39e2 / 0.4096e4 * t2575 * t3198 * t3663 - 0.51e2 / 0.256e3 * t1012 * t3202 * t1527 + 0.3e1 / 0.4e1 * t395 * t11871 + t2548 * t1827 + t2562 * t1827 + 0.2e1 * t1005 * t4464 + 0.2e1 * t1005 * t4467 + 0.3e1 / 0.512e3 * t4469 * t2567;
7699   t11883 = t152 * t4472;
7700   t11904 = t152 * t4463;
7701   t11907 = t152 * t4466;
7702   t11914 = t11883 * t1007 / 0.8e1 - 0.3e1 / 0.16e2 * t4469 * t2570 + t3632 * t3194 / 0.4e1 - t9763 * t1287 / 0.16e2 - t9766 * t1287 / 0.16e2 - t9769 * t1287 / 0.8e1 - 0.3e1 / 0.256e3 * t3632 * t3191 + t8314 * t1522 / 0.16e2 + t8317 * t1522 / 0.8e1 + 0.3e1 / 0.256e3 * t3167 * t3655 + t11904 * t1007 / 0.8e1 + t11907 * t1007 / 0.8e1 - t3167 * t3658 / 0.4e1 + t8328 * t1522 / 0.16e2;
7703   t11929 = t9647 * t1320;
7704   t11963 = 0.5e1 / 0.4e1 * t4095 - 0.325e3 / 0.24e2 * t4109 - 0.5e1 / 0.3e1 * t4091 - 0.45e2 / 0.16e2 * t3248 * t11929 - 0.45e2 / 0.64e2 * t4111 * t1865 * t10628 + 0.225e3 / 0.128e3 * t10657 * t1865 * t10658 + 0.195e3 / 0.32e2 * t4115 + 0.81e2 / 0.80e2 * t1054 * t3714 * t578 + 0.81e2 / 0.40e2 * t1054 * t1555 * t1331 + 0.81e2 / 0.80e2 * t1054 * t686 * t3275 + 0.3e1 / 0.64e2 * t569 * t9629 - 0.81e2 / 0.16e2 * t2625 * t4552 * t429 - 0.81e2 / 0.16e2 * t2625 * t4555 * t429 - 0.81e2 / 0.32e2 * t2625 * t1860 * t1068 + 0.25e2 / 0.16e2 * t10619 * t4558 - 0.3e1 / 0.8e1 * t677 * t8230;
7705   t11978 = t9609 * t578;
7706   t11981 = t3693 * t1331;
7707   t11998 = -t1312 * t3697 / 0.4e1 + 0.11e2 / 0.24e2 * t3237 * t1545 + 0.567e3 / 0.64e2 * t7263 * t1860 * t1055 - 0.45e2 / 0.32e2 * t4535 * t8241 + 0.45e2 / 0.256e3 * t581 * t9648 + 0.65e2 / 0.6e1 * t4118 + 0.9e1 / 0.16e2 * t8274 * t4546 + 0.9e1 / 0.8e1 * t3248 * t11978 + 0.9e1 / 0.8e1 * t3248 * t11981 - 0.15e2 / 0.8e1 * t4093 + 0.9e1 / 0.16e2 * t4535 * t8265 + 0.3e1 / 0.8e1 * t1334 * t3694 - 0.9e1 / 0.64e2 * t581 * t9610 - 0.9e1 / 0.128e3 * t581 * t9613 - 0.75e2 / 0.16e2 * t10650 * t5604 * t429 + 0.9e1 / 0.8e1 * t4535 * t8262;
7708   t11999 = t11963 + t11998;
7709   t12006 = t1869 * t1082;
7710   t12017 = (t11807 + t11842 + t11882 + t11914) * t44 * t172 / 0.24e2 + 0.73e2 / 0.194400e6 * t9591 * t1346 + 0.73e2 / 0.194400e6 * t3725 * t3225 + t3674 * t566 / 0.24e2 - 0.73e2 / 0.97200e5 * t11999 * t208 + 0.73e2 / 0.300e3 * t2650 * t1845 + 0.73e2 / 0.600e3 * t8462 * t670 + 0.73e2 / 0.388800e6 * t12006 * t1084 + 0.11e2 / 0.27e2 * t674 * t3214 - 0.73e2 / 0.259200e6 * t9594 * t3148 - 0.2e1 / 0.9e1 * t1535 * t1307 + 0.292e3 / 0.2025e4 * t196 * t11999;
7711   t12034 = t4565 * t439;
7712   t12045 = 0.11e2 / 0.27e2 * t1849 * t1034 - 0.2e1 / 0.9e1 * t4519 * t408 - 0.73e2 / 0.75e2 * t1078 * t4515 + 0.73e2 / 0.50e2 * t440 * t11871 + 0.73e2 / 0.388800e6 * t3725 * t3228 - t599 * t3749 / 0.30e2 - 0.73e2 / 0.150e3 * t3130 * t1531 + 0.73e2 / 0.100e3 * t1341 * t3670 - 0.73e2 / 0.97200e5 * t12034 * t448 - 0.73e2 / 0.194400e6 * t4570 * t1094 - 0.73e2 / 0.194400e6 * t9807 * t592 - 0.73e2 / 0.97200e5 * t3722 * t1353 - 0.73e2 / 0.194400e6 * t1563 * t3145;
7713   t12053 = t11503 / 0.9e1 - 0.2e1 / 0.9e1 * t11505 + t3069 * t3589 * t4402 * t970 / 0.3e1 + 0.9e1 * t1502 * t11684 * t4402 * t987 + 0.2e1 * t1485 * t11528 * t3783 + 0.2e1 * t1485 * t9405 * t4433 + 0.2e1 * t1485 * t3589 * t11520 * t375 + t1485 * t3589 * t4402 * t979 - 0.9e1 / 0.2e1 * t1502 * t3774 * t1577 * t4437 - 0.9e1 / 0.2e1 * t1502 * t4436 * t11520 * t470 - 0.9e1 / 0.4e1 * t1502 * t4436 * t4402 * t1122 - 0.6e1 * t11536 + 0.8e1 / 0.3e1 * t11538 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t11745 + t11776 + t12017 + t12045) * t231 - t11542 - t11382;
7714   t12103 = 0.3e1 / 0.2e1 * t1502 * t1503 * t11548 * t470 + 0.3e1 / 0.4e1 * t1502 * t1503 * t4408 * t1122 + 0.3e1 / 0.4e1 * t1502 * t1503 * t9371 * t610 + 0.3e1 / 0.2e1 * t1502 * t1503 * t3596 * t1376 + 0.3e1 / 0.4e1 * t1502 * t1503 * t1487 * t3314 - t1485 * t1486 * t11548 * t375 - t1485 * t1486 * t4408 * t979 / 0.2e1 - 0.9e1 / 0.4e1 * t1502 * t3774 * t4408 * t987 - t3069 * t1486 * t4408 * t970 / 0.6e1 - 0.4e1 / 0.3e1 * t11553 + 0.2e1 * t11555 + 0.2e1 * t11556 + 0.2e1 * t11557 + t11371 + 0.4e1 / 0.9e1 * t9393 * t11559 * t3761 * t432 - t480 * t548 * t11491 * t11559 * t3768 * t432;
7715   t12110 = t3809 * t610 * params->e;
7716   t12162 = t3767 * t1585 * t1376 * t105 * t432 / 0.3e1 + t3767 * t12110 * t1092 / 0.18e2 - 0.2e1 / 0.9e1 * t3606 * t4614 * t3761 * t432 + t3767 * t4614 * t3768 * t432 / 0.3e1 + t3767 * t3804 * t4445 * t432 / 0.3e1 - 0.11e2 / 0.18e2 * t3767 * t4446 * t1071 - t3767 * t9325 * t4153 * t470 * sigma[2] / 0.24e2 - t11572 * t3607 * t566 * t2529 / 0.6e1 + t3606 * t9325 * t4153 * t375 * sigma[2] / 0.36e2 + 0.4e1 / 0.9e1 * t11564 - t1892 * t4629 * t4636 / 0.6e1 + t1892 * t3753 * t465 * t1894 / 0.32e2 + t1892 * t9829 * t5046 * t1104 * t153 / 0.36e2 + t11585 / 0.12e2 - 0.2e1 / 0.9e1 * t11587 + 0.11e2 / 0.36e2 * t1892 * t1893 * t121 * t3214 + t11395;
7717   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7718     v4rho2sigmatau[17] = t11677 + t12053 + t12103 + t12162;
7719 
7720   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7721     v4rho2lapl2[0] = 0.0e0;
7722 
7723   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7724     v4rho2lapl2[1] = 0.0e0;
7725 
7726   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7727     v4rho2lapl2[2] = 0.0e0;
7728 
7729   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7730     v4rho2lapl2[3] = 0.0e0;
7731 
7732   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7733     v4rho2lapl2[4] = 0.0e0;
7734 
7735   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7736     v4rho2lapl2[5] = 0.0e0;
7737 
7738   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7739     v4rho2lapl2[6] = 0.0e0;
7740 
7741   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7742     v4rho2lapl2[7] = 0.0e0;
7743 
7744   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7745     v4rho2lapl2[8] = 0.0e0;
7746 
7747   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7748     v4rho2lapltau[0] = 0.0e0;
7749 
7750   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7751     v4rho2lapltau[1] = 0.0e0;
7752 
7753   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7754     v4rho2lapltau[2] = 0.0e0;
7755 
7756   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7757     v4rho2lapltau[3] = 0.0e0;
7758 
7759   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7760     v4rho2lapltau[4] = 0.0e0;
7761 
7762   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7763     v4rho2lapltau[5] = 0.0e0;
7764 
7765   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7766     v4rho2lapltau[6] = 0.0e0;
7767 
7768   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7769     v4rho2lapltau[7] = 0.0e0;
7770 
7771   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7772     v4rho2lapltau[8] = 0.0e0;
7773 
7774   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7775     v4rho2lapltau[9] = 0.0e0;
7776 
7777   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7778     v4rho2lapltau[10] = 0.0e0;
7779 
7780   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7781     v4rho2lapltau[11] = 0.0e0;
7782 
7783   t12170 = t1898 * t5653;
7784   t12171 = t12170 * params->e;
7785   t12175 = t3517 * t4791;
7786   t12182 = t1959 * t873;
7787   t12183 = t12182 * params->e;
7788   t12187 = t8609 * t4655;
7789   t12189 = t1394 * t1959;
7790   t12193 = t3332 * t1898;
7791   t12194 = t873 * t249;
7792   t12216 = t773 * t1921;
7793   t12248 = t1160 * t1921;
7794   t12249 = t2082 * t12248;
7795   t12256 = t30 * t4686;
7796   t12270 = t6004 * t2098 * t4706;
7797   t12277 = t764 * t4780;
7798   t12280 = 0.2e1 * t30 * t621 * t3384 + t30 * t750 * t1914 * t41 + t30 * t750 * t1904 * t41 + t30 * t760 * t1914 * t41 + 0.2e1 * t30 * t272 * t4686 * t41 + t30 * t760 * t1904 * t41 - 0.21e2 / 0.256e3 * t763 * t12249 - 0.3e1 / 0.16e2 * t4675 * t2087 - 0.3e1 / 0.16e2 * t2079 * t4713 + t12256 * t765 / 0.8e1 + 0.3e1 / 0.512e3 * t4689 * t2084 + t8816 * t1413 / 0.8e1 + 0.3e1 / 0.128e3 * t3387 * t3399 + 0.3e1 / 0.2048e4 * t1410 * t8813 + 0.3e1 / 0.512e3 * t2079 * t4701 + 0.3e1 / 0.2048e4 * t763 * t12270 + 0.3e1 / 0.512e3 * t4675 * t2084 + 0.3e1 / 0.512e3 * t2065 * t4701 + 0.3e1 / 0.4e1 * t763 * t12277;
7799   t12299 = t1407 * t1407;
7800   t12303 = t30 * t4669;
7801   t12306 = t30 * t10957;
7802   t12311 = t30 * t4678;
7803   t12326 = 0.1e1 / t4705 / t35;
7804   t12339 = -0.3e1 / 0.16e2 * t2065 * t4713 - 0.3e1 / 0.16e2 * t4689 * t2087 - t3387 * t3402 / 0.2e1 - 0.21e2 / 0.256e3 * t1410 * t8802 + 0.3e1 / 0.4e1 * t1410 * t8805 + t30 * (t24 * t1465 * t267 / 0.2e1 + 0.3e1 / 0.2e1 * t24 * t1465) * t41 + 0.2e1 * t30 * t12299 * t41 + t12303 * t765 / 0.8e1 + t12306 * t1407 * t31 * t336 / 0.4e1 + t12311 * t765 / 0.8e1 - t3376 * t3402 / 0.2e1 + t8838 * t1413 / 0.8e1 + t8841 * t1413 / 0.8e1 + t8844 * t1413 / 0.4e1 + 0.3e1 / 0.128e3 * t3376 * t3399 + 0.15e2 / 0.131072e6 * t6039 * t6040 * t862 * t12326 + 0.4e1 * t763 * t4672 + 0.123e3 / 0.512e3 * t770 * t12216 - 0.9e1 / 0.8e1 * t277 * t1608 - 0.21e2 / 0.2048e4 * t2092 * t3405 * t4706;
7805   t12350 = t1449 * t1449;
7806   t12355 = t1446 * t1446;
7807   t12377 = t2141 * t1936;
7808   t12378 = t12377 * t311;
7809   t12381 = -0.81e2 / 0.32e2 * t2142 * t1936 * t826 + 0.81e2 / 0.40e2 * t812 * t12355 + 0.81e2 / 0.40e2 * t812 * t641 * t3458 - 0.3e1 / 0.4e1 * t632 * t8896 + 0.9e1 / 0.16e2 * t802 * t4734 + 0.567e3 / 0.64e2 * t5920 * t1936 * t813 - 0.81e2 / 0.8e1 * t2142 * t1439 * t1446 - 0.25e2 / 0.2e1 * t9962 * t4743 + 0.9e1 / 0.4e1 * t4293 * t8884 + 0.9e1 / 0.8e1 * t4293 * t8887 - 0.45e2 / 0.16e2 * t2846 * t12378;
7810   t12382 = t3437 * t1446;
7811   t12402 = 0.9e1 / 0.4e1 * t2846 * t12382 + 0.75e2 / 0.2e1 * t9942 * t5713 * t311 - 0.45e2 / 0.16e2 * t4293 * t8928 + 0.45e2 / 0.8e1 * t3918 * t1941 * t9967 - 0.225e3 / 0.16e2 * t9974 * t1941 * t9975 + 0.5e1 / 0.2e1 * t4302 + 0.250e3 / 0.3e1 * t4317 - 0.75e2 / 0.2e1 * t4320 - 0.15e2 / 0.4e1 * t4300 - 0.10e2 / 0.3e1 * t4298 - 0.325e3 / 0.6e1 * t1630;
7812   t12403 = t12381 + t12402;
7813   t12408 = 0.292e3 / 0.2025e4 * t831 * t1945 + 0.584e3 / 0.2025e4 * t644 * t3461 + 0.11e2 / 0.27e2 * t1929 * t792 - 0.2e1 / 0.9e1 * t4720 * t290 + 0.1971e4 / 0.5e1 * t841 * t12216 + 0.73e2 / 0.50e2 * t836 * t4716 - 0.219e3 / 0.100e3 * t322 * t1608 - 0.73e2 / 0.75e2 * t3466 * t1422 + 0.73e2 / 0.50e2 * t1454 * t3414 - 0.3942e4 / 0.25e2 * t2170 * t4710 + (t12280 + t12339) * t44 * t55 / 0.24e2 - 0.73e2 / 0.200e3 * t2167 * t1925 + 0.73e2 / 0.300e3 * t8774 * t625 + 0.1971e4 / 0.100e3 * t6064 * t1922 + 0.584e3 / 0.2025e4 * t12350 - 0.73e2 / 0.97200e5 * t12403 * t96 + 0.292e3 / 0.2025e4 * t80 * t12403;
7814   t12413 = t4750 * t321;
7815   t12416 = t1945 * t840;
7816   t12423 = t6075 * t771;
7817   t12436 = t8984 * t31;
7818   t12439 = t6067 * t771;
7819   t12450 = t8981 * t31;
7820   t12455 = t106 * t3868 / 0.20e2 - 0.73e2 / 0.194400e6 * t4755 * t852 - 0.73e2 / 0.97200e5 * t12413 * t330 + 0.73e2 / 0.388800e6 * t12416 * t842 + 0.584e3 / 0.2025e4 * t316 * t4750 + 0.73e2 / 0.150e3 * t4760 * t3485 + 0.5913e4 / 0.80e2 * t12423 * t4700 * t842 + 0.5913e4 / 0.25e2 * t4767 * t12248 * t330 - 0.219e3 / 0.800e3 * t3481 * t1956 * t842 - 0.73e2 / 0.100e3 * t1459 * t4780 * t330 + 0.73e2 / 0.400e3 * t12436 * t3482 - 0.5913e4 / 0.100e3 * t12439 * t4768 - 0.5913e4 / 0.200e3 * t4767 * t4700 * t852 + 0.73e2 / 0.200e3 * t3476 * t4775 + 0.73e2 / 0.400e3 * t1459 * t1956 * t852 - 0.73e2 / 0.300e3 * t12450 * t1460 - 0.73e2 / 0.600e3 * t4760 * t3488;
7821   t12462 = t1468 * t1468;
7822   t12469 = t7995 * t1962 / 0.6e1;
7823   t12471 = t7995 * t1901 / 0.3e1;
7824   t12472 = t3042 * t4786;
7825   t12477 = t4783 * t126;
7826   t12482 = 0.11e2 / 0.36e2 * t1476 * t4790 * t829 - 0.11e2 / 0.9e1 * t3510 * t4654 * t829 + 0.5e1 / 0.27e2 * t3510 * t12171 * t850 - 0.2e1 / 0.9e1 * t12175 - t1476 * t4783 * t347 * t105 * t314 / 0.6e1 - t1476 * t12183 * t850 / 0.36e2 + 0.8e1 / 0.9e1 * t12187 + 0.2e1 * t1385 * t12189 * t3328 - 0.6e1 * t1385 * t12193 * t12194 * t352 + 0.4e1 * t1385 * t3326 * t12194 * t1468 - 0.9e1 * t1393 * t4191 * t873 * t352 * t1468 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t12408 + t12455) * t126 + 0.3e1 / 0.2e1 * t480 * t481 * t744 * t12462 * t873 - t12469 + t12471 - t12472 - t1385 * t1386 * t4660 * t728 / 0.2e1 + 0.3e1 / 0.2e1 * t1393 * t1394 * t12477 * t352;
7827   t12487 = t3351 * t4643;
7828   t12489 = t3358 * t4646;
7829   t12491 = t3358 * t4650;
7830   t12520 = t3351 * t4662;
7831   t12522 = t3358 * t4666;
7832   t12535 = t654 * t2218;
7833   t12549 = 0.3e1 / 0.4e1 * t1393 * t1394 * t4660 * t880 + 0.8e1 / 0.3e1 * t12487 - 0.6e1 * t12489 + 0.4e1 * t12491 - 0.9e1 / 0.4e1 * t1393 * t3332 * t4660 * t745 - t3046 * t1386 * t4660 * t711 / 0.6e1 + t3046 * t1394 * t4641 * t711 / 0.3e1 + 0.9e1 * t1393 * t8721 * t4641 * t745 + t1385 * t1394 * t4641 * t728 - 0.9e1 / 0.4e1 * t1393 * t3332 * t4641 * t880 + 0.3e1 / 0.2e1 * t1393 * t1394 * t3525 * t3496 - 0.4e1 / 0.3e1 * t12520 + 0.2e1 * t12522 - t1385 * t1386 * t12477 * t249 + 0.8e1 / 0.9e1 * t11319 * t4653 * t3504 * t314 - 0.2e1 * t8645 * t4653 * t3511 * t314 + 0.4e1 / 0.3e1 * t3510 * t12535 * t1468 * t105 * t314 - 0.2e1 / 0.9e1 * t3503 * t4789 * t3504 * t314 + t3510 * t4789 * t3511 * t314 / 0.3e1;
7834   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7835     v4rho2tau2[0] = t12482 + t12549;
7836 
7837   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7838     v4rho2tau2[1] = 0.0e0;
7839 
7840   t12551 = t7995 * t1968 / 0.3e1;
7841   t12552 = t3531 * t4797;
7842   t12562 = t7995 * t2029 / 0.6e1;
7843   t12563 = t3531 * t4803;
7844   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7845     v4rho2tau2[2] = t12551 + 0.8e1 / 0.3e1 * t12552 + t3069 * t1503 * t4795 * t888 / 0.3e1 + t1485 * t1503 * t4795 * t897 - t12562 - 0.4e1 / 0.3e1 * t12563 - t3069 * t1486 * t4801 * t888 / 0.6e1 - t1485 * t1486 * t4801 * t897 / 0.2e1;
7846 
7847   t12577 = t3351 * t4807;
7848   t12580 = t873 * t370;
7849   t12600 = t12471 + 0.4e1 / 0.3e1 * t12487 - 0.3e1 * t12489 + 0.2e1 * t12491 + 0.4e1 / 0.9e1 * t12187 + 0.4e1 / 0.3e1 * t12577 + t3046 * t1394 * t1898 * t12580 * t249 / 0.3e1 - 0.3e1 * t1385 * t12193 * t12580 * t352 + 0.2e1 * t1385 * t3326 * t12580 * t1468 + 0.4e1 / 0.9e1 * t11319 * t4653 * t3563 * t314 + t3568 * t1394 * t4641 * t9;
7850   t12604 = t3351 * t4810;
7851   t12624 = -t12469 - 0.2e1 / 0.3e1 * t12520 + t12522 - t12472 / 0.2e1 - t12175 / 0.9e1 - 0.2e1 / 0.3e1 * t12604 - t3046 * t1386 * t1959 * t3552 / 0.6e1 + t1385 * t12189 * t3556 - t1385 * t1386 * t12477 * t370 / 0.2e1 - t3503 * t4789 * t3563 * t314 / 0.9e1 - t3568 * t1386 * t4660 * t9 / 0.2e1;
7852   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7853     v4rho2tau2[3] = t12600 + t12624;
7854 
7855   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7856     v4rho2tau2[4] = 0.0e0;
7857 
7858   t12626 = t3531 * t4814;
7859   t12629 = t1115 * t375;
7860   t12637 = t3587 * t4817;
7861   t12639 = t3774 * t1965;
7862   t12640 = t1115 * t470;
7863   t12645 = t3587 * t4821;
7864   t12651 = t9316 * t4826;
7865   t12657 = t12551 + 0.4e1 / 0.3e1 * t12552 + 0.4e1 / 0.3e1 * t12626 + t3069 * t1503 * t1965 * t12629 * t358 / 0.3e1 - t3582 * t1503 * t4795 * t9 - 0.3e1 * t12637 - 0.3e1 * t1485 * t12639 * t12640 * t358 + 0.2e1 * t12645 + 0.2e1 * t1485 * t3589 * t9508 * t358 + 0.4e1 / 0.9e1 * t12651 + 0.4e1 / 0.9e1 * t11572 * t4824 * t121 * t3609;
7866   t12659 = t3531 * t4830;
7867   t12669 = t3587 * t4834;
7868   t12670 = t1503 * t2026;
7869   t12673 = t3042 * t4954;
7870   t12675 = t4951 * t231;
7871   t12680 = t3602 * t4959;
7872   t12686 = -t12562 - 0.2e1 / 0.3e1 * t12563 - 0.2e1 / 0.3e1 * t12659 - t3069 * t1486 * t2026 * t3578 / 0.6e1 + t3582 * t1486 * t4801 * t9 / 0.2e1 + t12669 + t1485 * t12670 * t3591 - t12673 / 0.2e1 - t1485 * t1486 * t12675 * t358 / 0.2e1 - t12680 / 0.9e1 - t3606 * t4957 * t121 * t3609 / 0.9e1;
7873   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7874     v4rho2tau2[5] = t12657 + t12686;
7875 
7876   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7877     v4rho2tau2[6] = t12471 + 0.8e1 / 0.3e1 * t12577 + t3046 * t1394 * t4641 * t959 / 0.3e1 + t1385 * t1394 * t4641 * t965 - t12469 - 0.4e1 / 0.3e1 * t12604 - t3046 * t1386 * t4660 * t959 / 0.6e1 - t1385 * t1386 * t4660 * t965 / 0.2e1;
7878 
7879   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7880     v4rho2tau2[7] = 0.0e0;
7881 
7882   t12717 = t2026 * t1115;
7883   t12718 = t12717 * params->e;
7884   t12722 = t1965 * t5746;
7885   t12723 = t12722 * params->e;
7886   t12745 = t1555 * t1555;
7887   t12767 = t2624 * t2003;
7888   t12768 = t12767 * t429;
7889   t12771 = -0.81e2 / 0.32e2 * t2625 * t2003 * t1068 + 0.81e2 / 0.40e2 * t1054 * t12745 + 0.81e2 / 0.40e2 * t1054 * t686 * t3714 - 0.25e2 / 0.2e1 * t10619 * t4911 - 0.3e1 / 0.4e1 * t677 * t9629 + 0.9e1 / 0.16e2 * t1044 * t4902 + 0.567e3 / 0.64e2 * t7263 * t2003 * t1055 - 0.81e2 / 0.8e1 * t2625 * t1548 * t1555 + 0.9e1 / 0.4e1 * t4535 * t9610 + 0.9e1 / 0.8e1 * t4535 * t9613 - 0.45e2 / 0.16e2 * t3248 * t12768;
7890   t12772 = t3693 * t1555;
7891   t12792 = 0.9e1 / 0.4e1 * t3248 * t12772 + 0.75e2 / 0.2e1 * t10650 * t5806 * t429 - 0.45e2 / 0.16e2 * t4535 * t9648 + 0.45e2 / 0.8e1 * t4111 * t2008 * t10628 - 0.225e3 / 0.16e2 * t10657 * t2008 * t10658 + 0.5e1 / 0.2e1 * t4544 + 0.250e3 / 0.3e1 * t4559 - 0.75e2 / 0.2e1 * t4562 - 0.15e2 / 0.4e1 * t4542 - 0.10e2 / 0.3e1 * t4540 - 0.325e3 / 0.6e1 * t1708;
7892   t12793 = t12771 + t12792;
7893   t12808 = t152 * t4837;
7894   t12811 = t152 * t11828;
7895   t12816 = t152 * t4846;
7896   t12856 = t1516 * t1516;
7897   t12865 = t1015 * t1988;
7898   t12868 = t12808 * t1007 / 0.8e1 + t12811 * t1516 * t153 * t454 / 0.4e1 + t12816 * t1007 / 0.8e1 + t9766 * t1522 / 0.8e1 + t9769 * t1522 / 0.4e1 + 0.3e1 / 0.128e3 * t3632 * t3655 - t3632 * t3658 / 0.2e1 + t9763 * t1522 / 0.8e1 + 0.2e1 * t152 * t390 * t4854 * t163 + t152 * t992 * t1971 * t163 + t152 * t992 * t1981 * t163 + t152 * t1002 * t1971 * t163 + 0.2e1 * t152 * t666 * t3640 + t152 * t1002 * t1981 * t163 + t152 * (t146 * t1574 * t385 / 0.2e1 + 0.3e1 / 0.2e1 * t146 * t1574) * t163 + 0.2e1 * t152 * t12856 * t163 - 0.9e1 / 0.8e1 * t395 * t1686 - 0.21e2 / 0.2048e4 * t2575 * t3661 * t4874 + 0.123e3 / 0.512e3 * t1012 * t12865;
7899   t12871 = 0.1e1 / t4873 / t157;
7900   t12886 = t7416 * t2581 * t4874;
7901   t12893 = t152 * t4854;
7902   t12902 = t1290 * t1988;
7903   t12903 = t2565 * t12902;
7904   t12908 = t1006 * t4948;
7905   t12919 = 0.15e2 / 0.131072e6 * t7358 * t7359 * t1104 * t12871 + 0.4e1 * t1005 * t4840 + t9722 * t1522 / 0.8e1 + 0.3e1 / 0.128e3 * t3643 * t3655 + 0.3e1 / 0.2048e4 * t1519 * t9756 + 0.3e1 / 0.512e3 * t2562 * t4869 + 0.3e1 / 0.2048e4 * t1005 * t12886 - 0.3e1 / 0.16e2 * t2562 * t4881 + 0.3e1 / 0.512e3 * t4843 * t2567 + t12893 * t1007 / 0.8e1 + 0.3e1 / 0.512e3 * t4857 * t2567 - 0.21e2 / 0.256e3 * t1519 * t9739 + 0.3e1 / 0.4e1 * t1519 * t9725 - 0.21e2 / 0.256e3 * t1005 * t12903 + 0.3e1 / 0.512e3 * t2548 * t4869 + 0.3e1 / 0.4e1 * t1005 * t12908 - 0.3e1 / 0.16e2 * t2548 * t4881 - 0.3e1 / 0.16e2 * t4843 * t2570 - 0.3e1 / 0.16e2 * t4857 * t2570 - t3643 * t3658 / 0.2e1;
7906   t12930 = t1558 * t1558;
7907   t12942 = -0.73e2 / 0.97200e5 * t12793 * t208 + 0.292e3 / 0.2025e4 * t196 * t12793 + 0.584e3 / 0.2025e4 * t434 * t4918 + 0.292e3 / 0.2025e4 * t1073 * t2012 + 0.584e3 / 0.2025e4 * t689 * t3717 + 0.11e2 / 0.27e2 * t1996 * t1034 - 0.2e1 / 0.9e1 * t4888 * t408 + (t12868 + t12919) * t44 * t172 / 0.24e2 - 0.73e2 / 0.200e3 * t2650 * t1992 + 0.1971e4 / 0.100e3 * t7298 * t1989 + 0.73e2 / 0.300e3 * t9807 * t670 + 0.584e3 / 0.2025e4 * t12930 + 0.73e2 / 0.50e2 * t1078 * t4884 - 0.219e3 / 0.100e3 * t440 * t1686 + 0.73e2 / 0.50e2 * t1563 * t3670 - 0.3942e4 / 0.25e2 * t2653 * t4878 + 0.1971e4 / 0.5e1 * t1083 * t12865;
7908   t12947 = t7309 * t1013;
7909   t12960 = t9591 * t153;
7910   t12963 = t9594 * t153;
7911   t12970 = t4918 * t439;
7912   t12973 = t2012 * t1082;
7913   t12981 = t7301 * t1013;
7914   t12989 = -0.73e2 / 0.75e2 * t3722 * t1531 + t215 * t4061 / 0.20e2 + 0.5913e4 / 0.80e2 * t12947 * t4868 * t1084 + 0.5913e4 / 0.25e2 * t4935 * t12902 * t448 - 0.219e3 / 0.800e3 * t3737 * t2023 * t1084 - 0.73e2 / 0.100e3 * t1568 * t4948 * t448 - 0.73e2 / 0.300e3 * t12960 * t1569 + 0.73e2 / 0.400e3 * t12963 * t3738 + 0.73e2 / 0.150e3 * t4928 * t3741 - 0.73e2 / 0.194400e6 * t4923 * t1094 - 0.73e2 / 0.97200e5 * t12970 * t448 + 0.73e2 / 0.388800e6 * t12973 * t1084 + 0.73e2 / 0.400e3 * t1568 * t2023 * t1094 - 0.73e2 / 0.600e3 * t4928 * t3744 - 0.5913e4 / 0.100e3 * t12981 * t4936 - 0.5913e4 / 0.200e3 * t4935 * t4868 * t1094 + 0.73e2 / 0.200e3 * t3732 * t4943;
7915   t12996 = t1577 * t1577;
7916   t13010 = 0.8e1 / 0.9e1 * t12651 - 0.2e1 / 0.9e1 * t12680 + 0.11e2 / 0.36e2 * t1584 * t4958 * t1071 - 0.11e2 / 0.9e1 * t3767 * t4825 * t1071 - t1584 * t4951 * t465 * t105 * t432 / 0.6e1 - t1584 * t12718 * t1092 / 0.36e2 + 0.5e1 / 0.27e2 * t3767 * t12723 * t1092 + 0.2e1 * t1485 * t12670 * t3783 - 0.9e1 * t1502 * t4436 * t12640 * t1577 - 0.6e1 * t1485 * t12639 * t12629 * t470 + 0.4e1 * t1485 * t3589 * t12629 * t1577 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t12942 + t12989) * t231 + 0.3e1 / 0.2e1 * t480 * t548 * t986 * t12996 * t1115 - t12673 + t12551 - t12562 - t3069 * t1486 * t4801 * t970 / 0.6e1 - 0.9e1 / 0.4e1 * t1502 * t3774 * t4801 * t987;
7917   t13066 = t699 * t2701;
7918   t13072 = 0.9e1 * t1502 * t9570 * t4795 * t987 + t3069 * t1503 * t4795 * t970 / 0.3e1 - 0.4e1 / 0.3e1 * t12659 + 0.2e1 * t12669 - t1485 * t1486 * t12675 * t375 - t1485 * t1486 * t4801 * t979 / 0.2e1 + 0.3e1 / 0.2e1 * t1502 * t1503 * t12675 * t470 + 0.3e1 / 0.4e1 * t1502 * t1503 * t4801 * t1122 + t1485 * t1503 * t4795 * t979 - 0.9e1 / 0.4e1 * t1502 * t3774 * t4795 * t1122 + 0.3e1 / 0.2e1 * t1502 * t1503 * t3809 * t3752 + 0.8e1 / 0.3e1 * t12626 - 0.6e1 * t12637 + 0.4e1 * t12645 - 0.2e1 / 0.9e1 * t3606 * t4957 * t3761 * t432 + t3767 * t4957 * t3768 * t432 / 0.3e1 + 0.8e1 / 0.9e1 * t11572 * t4824 * t3761 * t432 - 0.2e1 * t9463 * t4824 * t3768 * t432 + 0.4e1 / 0.3e1 * t3767 * t13066 * t1577 * t105 * t432;
7919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7920     v4rho2tau2[8] = t13010 + t13072;
7921 
7922   t13074 = 0.3e1 * t3042 * t4964;
7923   t13089 = 0.3e1 * t3042 * t4968;
7924   t13090 = t543 * t1663;
7925   t13108 = t3042 * t5052 / 0.2e1;
7926   t13124 = t340 * t112;
7927   t13128 = t811 * params->b * t311;
7928   t13131 = t5906 * t5013;
7929   t13140 = t511 * params->b;
7930   t13151 = params->b * t326 * t87;
7931   t13154 = 0.9e1 / 0.16e2 * t1182 * t3904 + 0.135e3 / 0.256e3 * t514 * t9936 - 0.27e2 / 0.64e2 * t514 * t9939 - 0.75e2 / 0.128e3 * t13124 * t3914 - 0.225e3 / 0.2048e4 * t5010 * t13128 - 0.45e2 / 0.32e2 * t298 * t13131 + 0.567e3 / 0.64e2 * t5920 * t5013 * t311 - 0.243e3 / 0.32e2 * t2142 * t1625 * t1201 + 0.225e3 / 0.256e3 * t9942 * t13140 * t91 - 0.675e3 / 0.1024e4 * t2142 * t13140 * t3921 + 0.135e3 / 0.512e3 * t812 * t1201 * t5018 - 0.45e2 / 0.32e2 * t5016 * t13151;
7932   t13184 = -0.73e2 / 0.97200e5 * t13154 * t96 + 0.292e3 / 0.2025e4 * t80 * t13154 + 0.292e3 / 0.2025e4 * t316 * t5021 + 0.292e3 / 0.675e3 * t516 * t3927 + 0.292e3 / 0.675e3 * t1206 * t1632 - t1616 * t1177 / 0.3e1 - 0.73e2 / 0.86400e5 * t2178 * t1639 * t1223 + 0.73e2 / 0.129600e6 * t2170 * t5035 + 0.73e2 / 0.129600e6 * t841 * t1223 * t1644 + 0.73e2 / 0.129600e6 * t841 * t525 * t3957 - t110 * t13124 / 0.48e2 + 0.73e2 / 0.64800e5 * t2981 * t3947 + 0.73e2 / 0.129600e6 * t2981 * t3952;
7933   t13198 = params->BLOC_b * t486;
7934   t13225 = t769 * sigma[0] * t3868;
7935   t13228 = t30 * t4971;
7936   t13237 = t30 * t4985;
7937   t13240 = 0.3e1 / 0.16e2 * t10090 * t1603 * t31 * t336 - 0.3e1 / 0.8e1 * t490 * t13198 * t266 - 0.3e1 / 0.8e1 * t10090 * t491 * t36 * t1150 - 0.3e1 / 0.16e2 * t10086 * t1157 - 0.3e1 / 0.16e2 * t10099 * t1157 + 0.9e1 / 0.512e3 * t2934 * t3869 + t30 * t272 * t4971 * t41 + 0.3e1 * t30 * t1151 * t1603 + t30 * t272 * t4985 * t41 + 0.3e1 * t30 * t1596 * t1150 + 0.9e1 / 0.512e3 * t763 * t13225 + t13228 * t765 / 0.16e2 - 0.9e1 / 0.512e3 * t3844 * t2958 + t3850 * t1601 * t33 * t3852 / 0.8e1 + t13237 * t765 / 0.16e2;
7938   t13252 = t2091 * t113 * t772 * t1921;
7939   t13279 = -0.9e1 / 0.512e3 * t3856 * t2958 + 0.9e1 / 0.512e3 * t2945 * t3869 + 0.9e1 / 0.4096e4 * t1153 * t10049 - 0.3e1 / 0.16e2 * t763 * t10089 * t107 - 0.3e1 / 0.4096e4 * t763 * t13252 + 0.3e1 / 0.8e1 * t3844 * t2961 + 0.3e1 / 0.8e1 * t3856 * t2961 - 0.45e2 / 0.512e3 * t1153 * t10060 + 0.3e1 * t763 * t4974 + 0.3e1 / 0.128e3 * t3850 * t3493 * t276 - 0.3e1 / 0.16e2 * t2945 * t1612 - 0.15e2 / 0.131072e6 * t6039 * t7713 * t4706 + 0.3e1 / 0.8e1 * t1153 * t3881 + 0.27e2 / 0.4096e4 * t2092 * t7717 * t1921 - 0.9e1 / 0.128e3 * t770 * t7721 * t775;
7940   t13289 = t5021 * t321;
7941   t13304 = 0.73e2 / 0.103680e6 * t6075 * t5032 * t330 + t3885 * t499 / 0.8e1 + 0.73e2 / 0.129600e6 * t9898 * t1216 - 0.73e2 / 0.86400e5 * t7876 * t3944 + (t13240 + t13279) * t44 * t55 / 0.24e2 - 0.73e2 / 0.86400e5 * t2178 * t5035 * t330 - t5001 * t290 / 0.9e1 - 0.73e2 / 0.194400e6 * t13289 * t330 - 0.73e2 / 0.64800e5 * t9999 * t525 - 0.73e2 / 0.64800e5 * t3932 * t1223 + 0.73e2 / 0.129600e6 * t7879 * t1639 - 0.73e2 / 0.64800e5 * t2891 * t1644 - 0.73e2 / 0.64800e5 * t1211 * t3957 - 0.73e2 / 0.259200e6 * t6067 * t5032;
7942   t13308 = t5040 * t347 * t105;
7943   t13334 = (t13184 + t13304) * t126 + 0.2e1 / 0.9e1 * t13308 * t314 - t10142 * t514 / 0.4e1 - t10146 * t1221 / 0.12e2 + 0.2e1 / 0.3e1 * t3973 * t1204 + t7894 * t1629 / 0.32e2 + t7886 * t3966 / 0.12e2 - t3002 * t3924 / 0.6e1 - t6113 * t5047 / 0.96e2 - 0.5e1 / 0.864e3 * t6124 / t52 / t2200 * t44 * t50 + t2219 * t5046 * t340 / 0.12e2;
7944   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7945     v4rhosigma3[0] = -t13074 - 0.3e1 * t480 * t1132 * t4963 * t249 + 0.9e1 * t480 * t481 * t6159 * t4962 * t352 - 0.27e2 / 0.4e1 * t480 * t481 * t3818 * t1246 + t13089 + 0.3e1 * t1385 * t1394 * t13090 * t249 - 0.27e2 / 0.4e1 * t1393 * t3332 * t13090 * t352 + 0.9e1 / 0.4e1 * t480 * t481 * t2826 * t1663 + 0.9e1 / 0.4e1 * t480 * t481 * t1137 * t3988 - t13108 - t480 * t1132 * t5051 * t249 / 0.2e1 + 0.3e1 / 0.4e1 * t480 * t481 * t744 * t5050 * t352 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * t13334;
7946 
7947   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7948     v4rhosigma3[1] = 0.0e0;
7949 
7950   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7951     v4rhosigma3[2] = 0.0e0;
7952 
7953   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7954     v4rhosigma3[3] = 0.0e0;
7955 
7956   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7957     v4rhosigma3[4] = 0.0e0;
7958 
7959   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7960     v4rhosigma3[5] = 0.0e0;
7961 
7962   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7963     v4rhosigma3[6] = 0.0e0;
7964 
7965   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7966     v4rhosigma3[7] = 0.0e0;
7967 
7968   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7969     v4rhosigma3[8] = 0.0e0;
7970 
7971   t13340 = 0.3e1 * t3042 * t5057;
7972   t13346 = 0.3e1 * t3042 * t5061;
7973   t13347 = t610 * t1741;
7974   t13353 = t3042 * t5144 / 0.2e1;
7975   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7976     v4rhosigma3[9] = -t13340 - 0.3e1 * t480 * t1253 * t5056 * t358 + t13346 + 0.3e1 * t1485 * t1503 * t13347 * t358 - t13353 - t480 * t1253 * t5143 * t358 / 0.2e1;
7977 
7978   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7979     v4rhosigma3[10] = -t13074 - 0.3e1 * t480 * t1132 * t4963 * t370 + t13089 + 0.3e1 * t1385 * t1394 * t13090 * t370 - t13108 - t480 * t1132 * t5051 * t370 / 0.2e1;
7980 
7981   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7982     v4rhosigma3[11] = 0.0e0;
7983 
7984   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7985     v4rhosigma3[12] = 0.0e0;
7986 
7987   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7988     v4rhosigma3[13] = 0.0e0;
7989 
7990   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7991     v4rhosigma3[14] = 0.0e0;
7992 
7993   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7994     v4rhosigma3[15] = 0.0e0;
7995 
7996   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7997     v4rhosigma3[16] = 0.0e0;
7998 
7999   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8000     v4rhosigma3[17] = 0.0e0;
8001 
8002   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8003     v4rhosigma3[18] = 0.0e0;
8004 
8005   t13414 = t458 * t112;
8006   t13418 = t1053 * params->b * t429;
8007   t13421 = t7249 * t5106;
8008   t13430 = t578 * params->b;
8009   t13441 = params->b * t444 * t87;
8010   t13444 = 0.9e1 / 0.16e2 * t1312 * t4097 + 0.135e3 / 0.256e3 * t581 * t10644 - 0.27e2 / 0.64e2 * t581 * t10647 - 0.75e2 / 0.128e3 * t13414 * t4107 - 0.225e3 / 0.2048e4 * t5103 * t13418 - 0.45e2 / 0.32e2 * t416 * t13421 + 0.567e3 / 0.64e2 * t7263 * t5106 * t429 - 0.243e3 / 0.32e2 * t2625 * t1703 * t1331 + 0.225e3 / 0.256e3 * t10650 * t13430 * t203 - 0.675e3 / 0.1024e4 * t2625 * t13430 * t4114 + 0.135e3 / 0.512e3 * t1054 * t1331 * t5111 - 0.45e2 / 0.32e2 * t5109 * t13441;
8011   t13476 = 0.292e3 / 0.2025e4 * t196 * t13444 + 0.73e2 / 0.129600e6 * t1083 * t592 * t4150 - t110 * t13414 / 0.48e2 + 0.73e2 / 0.103680e6 * t7309 * t5125 * t448 - 0.73e2 / 0.86400e5 * t2661 * t1717 * t1353 + 0.73e2 / 0.129600e6 * t2653 * t5128 + 0.73e2 / 0.129600e6 * t1083 * t1353 * t1722 - 0.73e2 / 0.86400e5 * t8468 * t4137 + 0.73e2 / 0.64800e5 * t3220 * t4140 + 0.73e2 / 0.129600e6 * t3220 * t4145 + t4078 * t566 / 0.8e1 + 0.73e2 / 0.129600e6 * t10599 * t1346 - 0.73e2 / 0.86400e5 * t2661 * t5128 * t448;
8012   t13501 = params->BLOC_b * t553;
8013   t13515 = t152 * t5064;
8014   t13530 = t152 * t5078;
8015   t13537 = 0.3e1 / 0.16e2 * t10416 * t1681 * t153 * t454 - 0.3e1 / 0.8e1 * t557 * t13501 * t384 - 0.3e1 / 0.8e1 * t10416 * t558 * t158 * t1280 - 0.3e1 / 0.16e2 * t10412 * t1287 - 0.3e1 / 0.16e2 * t10429 * t1287 + 0.9e1 / 0.512e3 * t3167 * t4062 + t13515 * t1007 / 0.16e2 + 0.3e1 / 0.8e1 * t4037 * t3194 + 0.3e1 / 0.8e1 * t4049 * t3194 - 0.45e2 / 0.512e3 * t1283 * t10485 - 0.9e1 / 0.512e3 * t4037 * t3191 + t4043 * t1679 * t155 * t4045 / 0.8e1 + t13530 * t1007 / 0.16e2 - 0.9e1 / 0.512e3 * t4049 * t3191 + 0.9e1 / 0.512e3 * t3178 * t4062;
8016   t13545 = t2574 * t219 * t1014 * t1988;
8017   t13549 = t1011 * sigma[2] * t4061;
8018   t13582 = 0.9e1 / 0.4096e4 * t1283 * t10478 - 0.3e1 / 0.16e2 * t1005 * t10415 * t216 - 0.3e1 / 0.4096e4 * t1005 * t13545 + 0.9e1 / 0.512e3 * t1005 * t13549 + 0.3e1 / 0.8e1 * t1283 * t4074 + 0.27e2 / 0.4096e4 * t2575 * t8306 * t1988 - 0.9e1 / 0.128e3 * t1012 * t8310 * t1017 + 0.3e1 * t1005 * t5067 + 0.3e1 / 0.128e3 * t4043 * t3749 * t394 - 0.3e1 / 0.16e2 * t3178 * t1690 - 0.15e2 / 0.131072e6 * t7358 * t8302 * t4874 + 0.3e1 * t152 * t1674 * t1280 + t152 * t390 * t5064 * t163 + 0.3e1 * t152 * t1281 * t1681 + t152 * t390 * t5078 * t163;
8019   t13591 = t5114 * t439;
8020   t13594 = -t5094 * t408 / 0.9e1 - 0.73e2 / 0.97200e5 * t13444 * t208 - 0.73e2 / 0.64800e5 * t3130 * t1722 - 0.73e2 / 0.64800e5 * t1341 * t4150 - 0.73e2 / 0.259200e6 * t7301 * t5125 + 0.73e2 / 0.129600e6 * t8465 * t1717 - 0.73e2 / 0.64800e5 * t10593 * t592 - 0.73e2 / 0.64800e5 * t4125 * t1353 + 0.292e3 / 0.2025e4 * t434 * t5114 + 0.292e3 / 0.675e3 * t583 * t4120 + (t13537 + t13582) * t44 * t172 / 0.24e2 + 0.292e3 / 0.675e3 * t1336 * t1710 - t1694 * t1307 / 0.3e1 - 0.73e2 / 0.194400e6 * t13591 * t448;
8021   t13598 = t5133 * t465 * t105;
8022   t13624 = (t13476 + t13594) * t231 + 0.2e1 / 0.9e1 * t13598 * t432 - t10676 * t581 / 0.4e1 - t10680 * t1351 / 0.12e2 + 0.2e1 / 0.3e1 * t4166 * t1334 + t8485 * t1707 / 0.32e2 + t8510 * t4159 / 0.12e2 - t3297 * t4117 / 0.6e1 - t7452 * t5139 / 0.96e2 - 0.5e1 / 0.864e3 * t7461 / t169 / t2683 * t44 * t167 + t2702 * t5046 * t458 / 0.12e2;
8023   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8024     v4rhosigma3[19] = -t13340 - 0.3e1 * t480 * t1253 * t5056 * t375 + 0.9e1 * t480 * t548 * t7210 * t5055 * t470 - 0.27e2 / 0.4e1 * t480 * t548 * t4013 * t1376 + t13346 + 0.3e1 * t1485 * t1503 * t13347 * t375 - 0.27e2 / 0.4e1 * t1502 * t3774 * t13347 * t470 + 0.9e1 / 0.4e1 * t480 * t548 * t3121 * t1741 + 0.9e1 / 0.4e1 * t480 * t548 * t1267 * t4181 - t13353 - t480 * t1253 * t5143 * t375 / 0.2e1 + 0.3e1 / 0.4e1 * t480 * t548 * t986 * t5142 * t470 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * t13624;
8025 
8026   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8027     v4rhosigma2lapl[0] = 0.0e0;
8028 
8029   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8030     v4rhosigma2lapl[1] = 0.0e0;
8031 
8032   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8033     v4rhosigma2lapl[2] = 0.0e0;
8034 
8035   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8036     v4rhosigma2lapl[3] = 0.0e0;
8037 
8038   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8039     v4rhosigma2lapl[4] = 0.0e0;
8040 
8041   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8042     v4rhosigma2lapl[5] = 0.0e0;
8043 
8044   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8045     v4rhosigma2lapl[6] = 0.0e0;
8046 
8047   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8048     v4rhosigma2lapl[7] = 0.0e0;
8049 
8050   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8051     v4rhosigma2lapl[8] = 0.0e0;
8052 
8053   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8054     v4rhosigma2lapl[9] = 0.0e0;
8055 
8056   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8057     v4rhosigma2lapl[10] = 0.0e0;
8058 
8059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8060     v4rhosigma2lapl[11] = 0.0e0;
8061 
8062   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8063     v4rhosigma2lapl[12] = 0.0e0;
8064 
8065   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8066     v4rhosigma2lapl[13] = 0.0e0;
8067 
8068   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8069     v4rhosigma2lapl[14] = 0.0e0;
8070 
8071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8072     v4rhosigma2lapl[15] = 0.0e0;
8073 
8074   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8075     v4rhosigma2lapl[16] = 0.0e0;
8076 
8077   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8078     v4rhosigma2lapl[17] = 0.0e0;
8079 
8080   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8081     v4rhosigma2lapl[18] = 0.0e0;
8082 
8083   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8084     v4rhosigma2lapl[19] = 0.0e0;
8085 
8086   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8087     v4rhosigma2lapl[20] = 0.0e0;
8088 
8089   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8090     v4rhosigma2lapl[21] = 0.0e0;
8091 
8092   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8093     v4rhosigma2lapl[22] = 0.0e0;
8094 
8095   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8096     v4rhosigma2lapl[23] = 0.0e0;
8097 
8098   t13665 = t8609 * t5156 / 0.6e1;
8099   t13667 = t126 * t1663;
8100   t13675 = t126 * t1590;
8101   t13730 = t30 * t1603 * t1407 * t41 - t30 * t3880 * t624 / 0.4e1 + 0.2e1 * t30 * t1150 * t1758 * t41 + 0.2e1 * t30 * t488 * t4237 * t41 + t30 * t1595 * t1407 * t41 + t4227 * t2961 / 0.4e1 - 0.3e1 / 0.256e3 * t2934 * t4260 + t2934 * t4270 / 0.4e1 - t10096 * t5176 / 0.8e1 - t10943 * t1157 / 0.8e1 + 0.3e1 / 0.512e3 * t3376 * t3869 + t10090 * t34 * t624 * t1150 / 0.8e1 + t10086 * t1413 / 0.16e2;
8102   t13733 = t30 * t5163;
8103   t13740 = t30 * t5166;
8104   t13743 = t30 * t5169;
8105   t13758 = t10047 * t772 * t3407;
8106   t13761 = t3867 * t4259;
8107   t13767 = t10099 * t1413 / 0.16e2 + t13733 * t765 / 0.16e2 - t30 * t13198 * t266 * t621 / 0.8e1 + t13740 * t765 / 0.16e2 + t13743 * t765 / 0.8e1 - t10935 * t1157 / 0.8e1 - t10938 * t1157 / 0.8e1 - 0.3e1 / 0.256e3 * t4227 * t2958 - t2934 * t10957 * t492 / 0.8e1 + t2945 * t4270 / 0.4e1 + 0.3e1 / 0.4096e4 * t763 * t13758 - 0.15e2 / 0.512e3 * t763 * t13761 - t3850 * t3868 * t1156 / 0.64e2;
8108   t13777 = t10957 * t107;
8109   t13797 = -t11029 * t1157 / 0.8e1 - 0.3e1 / 0.256e3 * t4240 * t2958 + 0.3e1 / 0.512e3 * t3387 * t3869 + 0.3e1 / 0.4096e4 * t1410 * t10049 - t763 * t13777 / 0.16e2 + 0.3e1 / 0.512e3 * t3844 * t3399 + 0.3e1 / 0.512e3 * t3856 * t3399 - t1153 * t11001 / 0.2e1 + t3850 * t107 * t5175 / 0.8e1 + t4240 * t2961 / 0.4e1 - 0.15e2 / 0.512e3 * t1410 * t10060 - t3844 * t3402 / 0.8e1 - t3856 * t3402 / 0.8e1;
8110   t13825 = 0.9e1 / 0.128e3 * t1153 * t10996 - 0.3e1 / 0.256e3 * t2945 * t4260 - 0.3e1 / 0.2048e4 * t1153 * t11026 - 0.33e2 / 0.4096e4 * t2092 * t2099 * t3407 + 0.33e2 / 0.256e3 * t770 * t2103 * t1418 + t1410 * t3881 / 0.8e1 + 0.2e1 * t1153 * t4222 + t763 * t5164 + t763 * t5167 + 0.2e1 * t763 * t5170 - t3387 * t1612 / 0.16e2 + 0.15e2 / 0.131072e6 * t6039 * t2094 * t5689 + t763 * t5199 / 0.8e1;
8111   t13851 = (t13730 + t13767 + t13797 + t13825) * t44 * t55 / 0.24e2 - 0.73e2 / 0.194400e6 * t3466 * t1644 - 0.73e2 / 0.194400e6 * t1454 * t3957 + t3963 * t624 / 0.90e2 + 0.73e2 / 0.150e3 * t2891 * t1769 - 0.73e2 / 0.600e3 * t841 * t1460 + 0.73e2 / 0.600e3 * t9999 * t625 - t5203 * t290 / 0.9e1 + 0.73e2 / 0.388800e6 * t8981 * t1639 - 0.73e2 / 0.75e2 * t1211 * t4273 - 0.73e2 / 0.300e3 * t3932 * t1422;
8112   t13880 = t8927 * t1625;
8113   t13897 = t87 * t1190;
8114   t13901 = t86 * t1201;
8115   t13905 = t641 * params->b;
8116   t13909 = t2142 * t13905;
8117   t13912 = t812 * t1446;
8118   t13917 = 0.567e3 / 0.64e2 * t5920 * t5219 * t311 - 0.81e2 / 0.32e2 * t2142 * t1446 * t1625 - 0.81e2 / 0.16e2 * t2142 * t1784 * t1201 - 0.75e2 / 0.16e2 * t9942 * t5479 * t511 + 0.225e3 / 0.64e2 * t2142 * t5479 * t13897 + 0.195e3 / 0.32e2 * t5019 - 0.45e2 / 0.32e2 * t3918 * t1789 * t13901 + 0.75e2 / 0.256e3 * t9942 * t13905 * t91 - 0.225e3 / 0.1024e4 * t13909 * t3921 + 0.45e2 / 0.512e3 * t13912 * t5018 - 0.15e2 / 0.32e2 * t5226 * t13151;
8119   t13918 = -0.15e2 / 0.16e2 * t5008 - 0.45e2 / 0.32e2 * t4293 * t9936 + 0.9e1 / 0.8e1 * t4293 * t9939 + 0.525e3 / 0.128e3 * t5011 + 0.225e3 / 0.256e3 * t5214 * t13128 + 0.3e1 / 0.8e1 * t1204 * t4304 + 0.45e2 / 0.128e3 * t514 * t11116 - 0.9e1 / 0.64e2 * t514 * t11135 - 0.9e1 / 0.64e2 * t514 * t11138 - 0.45e2 / 0.32e2 * t2846 * t13880 + t13917;
8120   t13923 = t5229 * t321;
8121   t13932 = -0.73e2 / 0.150e3 * t322 * t1465 - 0.2e1 / 0.9e1 * t1773 * t1177 - 0.73e2 / 0.97200e5 * t4328 * t1223 + 0.73e2 / 0.194400e6 * t3469 * t3947 + 0.73e2 / 0.388800e6 * t3469 * t3952 + 0.73e2 / 0.300e3 * t836 * t651 - 0.73e2 / 0.97200e5 * t13918 * t96 - 0.73e2 / 0.97200e5 * t11226 * t525 - 0.73e2 / 0.194400e6 * t13923 * t330 + t4277 * t499 / 0.12e2 + 0.73e2 / 0.194400e6 * t11064 * t1216 - 0.73e2 / 0.259200e6 * t8984 * t3944;
8122   t13962 = 0.73e2 / 0.400e3 * t11180 * t4347 - 0.73e2 / 0.320e3 * t8967 * t651 * t3944 + 0.73e2 / 0.400e3 * t3481 * t651 * t3947 + 0.73e2 / 0.200e3 * t11175 * t4347 + 0.73e2 / 0.800e3 * t3481 * t651 * t3952 + 0.292e3 / 0.2025e4 * t80 * t13918 + 0.292e3 / 0.2025e4 * t316 * t5229 + 0.584e3 / 0.2025e4 * t516 * t4323 + 0.584e3 / 0.2025e4 * t1206 * t1793 + 0.73e2 / 0.300e3 * t4340 * t4350 - 0.73e2 / 0.400e3 * t3481 * t1465 * t1639 + 0.73e2 / 0.150e3 * t4358 * t4350;
8123   t13968 = t2981 * sigma[0];
8124   t13986 = t9898 * t31;
8125   t13991 = 0.73e2 / 0.600e3 * t1459 * t1465 * t1644 + 0.292e3 / 0.2025e4 * t1632 * t1449 - 0.73e2 / 0.300e3 * t13968 * t1460 + 0.73e2 / 0.800e3 * t8961 * t5246 - 0.73e2 / 0.300e3 * t11201 * t1802 - 0.73e2 / 0.300e3 * t4358 * t4353 - 0.73e2 / 0.1200e4 * t3476 * t5251 - 0.73e2 / 0.1200e4 * t1459 * t651 * t3957 - 0.73e2 / 0.600e3 * t11191 * t1802 - 0.73e2 / 0.600e3 * t4340 * t4353 - 0.73e2 / 0.1200e4 * t13986 * t1460 + 0.292e3 / 0.2025e4 * t3927 * t644;
8126   t14000 = t3042 * t5261 / 0.2e1;
8127   t14002 = 0.3e1 * t3358 * t5148;
8128   t14004 = 0.2e1 * t3358 * t5152;
8129   t14005 = t1385 * t3326 * t13667 * t249 - 0.9e1 / 0.4e1 * t1393 * t4191 * t13667 * t352 - 0.3e1 * t1385 * t4191 * t13675 * t249 + 0.9e1 * t1393 * t10893 * t13675 * t352 - 0.9e1 / 0.2e1 * t1393 * t4191 * t4187 * t1246 + 0.2e1 * t1385 * t10862 * t4188 - 0.9e1 / 0.2e1 * t1393 * t3332 * t1809 * t4192 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t13851 + t13932 + t13962 + t13991) * t126 - t14000 - t14002 + t14004;
8130   t14007 = t3358 * t5160;
8131   t14028 = t5258 * t126;
8132   t14065 = t4377 * t5271 / 0.192e3;
8133   t14071 = t4377 * t5265 / 0.12e2;
8134   t14085 = -t8645 * t1477 * t1590 * t105 * t314 / 0.2e1 + t3510 * t4372 * t4200 * t314 / 0.3e1 - t11319 * t4201 * t4381 / 0.6e1 + 0.3e1 / 0.8e1 * t8645 * t4201 * t4386 - t1816 * t5264 * t4397 / 0.6e1 - t14065 + t1816 * t5268 * t5269 * t3960 / 0.48e2 + t14071 + t1816 * t4367 * t347 * t1818 / 0.16e2 - t1816 * t1469 * t873 * t5270 / 0.256e3 - t1816 * t9014 * t5046 * t340 * sigma[0] / 0.96e2;
8135   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8136     v4rhosigma2tau[0] = -t1476 * t5258 * t347 * t105 * t314 / 0.12e2 + t3503 * t4373 * t4381 / 0.12e2 - t3510 * t4373 * t4386 / 0.8e1 + t1476 * t10833 * t1221 / 0.48e2 - t3503 * t3526 * t87 * t91 * t249 / 0.192e3 + t3510 * t3526 * t87 * t91 * t352 / 0.128e3 - t3510 * t3520 * t543 * t1818 / 0.8e1 - t3510 * t1477 * t1246 * t1818 / 0.8e1 + t3510 * t5155 * t4397 / 0.3e1 - t13665 + t14005 + t14007 - 0.9e1 / 0.4e1 * t1393 * t3332 * t3341 * t1590 + 0.3e1 / 0.2e1 * t1393 * t1394 * t11274 * t543 + 0.3e1 / 0.2e1 * t1393 * t1394 * t4211 * t1246 + 0.3e1 / 0.4e1 * t1393 * t1394 * t3341 * t1663 + 0.3e1 / 0.4e1 * t1393 * t1394 * t1387 * t3988 - t1385 * t1386 * t14028 * t249 / 0.2e1 + 0.3e1 / 0.4e1 * t1393 * t1394 * t14028 * t352 - t3510 * t11330 * t1221 / 0.24e2 + t3510 * t1477 * t1663 * t105 * t314 / 0.6e1 + t14085;
8137 
8138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8139     v4rhosigma2tau[1] = 0.0e0;
8140 
8141   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8142     v4rhosigma2tau[2] = 0.0e0;
8143 
8144   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8145     v4rhosigma2tau[3] = 0.0e0;
8146 
8147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8148     v4rhosigma2tau[4] = 0.0e0;
8149 
8150   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8151     v4rhosigma2tau[5] = 0.0e0;
8152 
8153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8154     v4rhosigma2tau[6] = 0.0e0;
8155 
8156   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8157     v4rhosigma2tau[7] = 0.0e0;
8158 
8159   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8160     v4rhosigma2tau[8] = 0.0e0;
8161 
8162   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8163     v4rhosigma2tau[9] = 0.0e0;
8164 
8165   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8166     v4rhosigma2tau[10] = 0.0e0;
8167 
8168   t14088 = 0.3e1 * t3587 * t5275;
8169   t14089 = t231 * t1668;
8170   t14095 = 0.2e1 * t3587 * t5279;
8171   t14100 = t9316 * t5283 / 0.6e1;
8172   t14104 = t3587 * t5287;
8173   t14105 = t231 * t1741;
8174   t14110 = t3042 * t5388 / 0.2e1;
8175   t14111 = t5385 * t231;
8176   t14117 = t4413 * t5392 / 0.12e2;
8177   t14122 = t4413 * t5397 / 0.192e3;
8178   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8179     v4rhosigma2tau[11] = -t14088 - 0.3e1 * t1485 * t4436 * t14089 * t358 + t14095 + 0.2e1 * t1485 * t11528 * t4403 - t14100 - t11572 * t4446 * t4417 / 0.6e1 + t14104 + t1485 * t3589 * t14105 * t358 - t14110 - t1485 * t1486 * t14111 * t358 / 0.2e1 + t14117 + t3606 * t4615 * t4417 / 0.12e2 - t14122 - t3606 * t3810 * t87 * t203 * t358 / 0.192e3;
8180 
8181   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8182     v4rhosigma2tau[12] = -t14002 - 0.3e1 * t1385 * t4191 * t13675 * t370 + t14004 + 0.2e1 * t1385 * t10862 * t4421 - t13665 - t11319 * t4201 * t4429 / 0.6e1 + t14007 + t1385 * t3326 * t13667 * t370 - t14000 - t1385 * t1386 * t14028 * t370 / 0.2e1 + t14071 + t3503 * t4373 * t4429 / 0.12e2 - t14065 - t3503 * t3526 * t87 * t91 * t370 / 0.192e3;
8183 
8184   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8185     v4rhosigma2tau[13] = 0.0e0;
8186 
8187   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8188     v4rhosigma2tau[14] = 0.0e0;
8189 
8190   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8191     v4rhosigma2tau[15] = 0.0e0;
8192 
8193   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8194     v4rhosigma2tau[16] = 0.0e0;
8195 
8196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8197     v4rhosigma2tau[17] = 0.0e0;
8198 
8199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8200     v4rhosigma2tau[18] = 0.0e0;
8201 
8202   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8203     v4rhosigma2tau[19] = 0.0e0;
8204 
8205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8206     v4rhosigma2tau[20] = 0.0e0;
8207 
8208   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8209     v4rhosigma2tau[21] = 0.0e0;
8210 
8211   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8212     v4rhosigma2tau[22] = 0.0e0;
8213 
8214   t14250 = t152 * t5290;
8215   t14253 = -t10426 * t5303 / 0.8e1 - t11883 * t1287 / 0.8e1 + 0.3e1 / 0.512e3 * t3632 * t4062 + 0.2e1 * t152 * t1280 * t1834 * t163 + 0.2e1 * t152 * t555 * t4479 * t163 - t152 * t4073 * t669 / 0.4e1 + t4469 * t3194 / 0.4e1 + t10416 * t156 * t669 * t1280 / 0.8e1 + t10412 * t1522 / 0.16e2 + t10429 * t1522 / 0.16e2 - 0.3e1 / 0.256e3 * t3167 * t4502 + t3167 * t4512 / 0.4e1 + t14250 * t1007 / 0.16e2;
8216   t14258 = t152 * t5293;
8217   t14261 = t152 * t5296;
8218   t14286 = -t152 * t13501 * t384 * t666 / 0.8e1 + t14258 * t1007 / 0.16e2 + t14261 * t1007 / 0.8e1 - t11904 * t1287 / 0.8e1 - t11907 * t1287 / 0.8e1 - 0.3e1 / 0.256e3 * t4469 * t3191 + t152 * t1673 * t1516 * t163 + t152 * t1681 * t1516 * t163 + 0.3e1 / 0.512e3 * t4037 * t3655 + 0.3e1 / 0.512e3 * t4049 * t3655 - 0.3e1 / 0.256e3 * t3178 * t4502 - 0.3e1 / 0.2048e4 * t1283 * t11795 + t3178 * t4512 / 0.4e1;
8219   t14309 = t10476 * t1014 * t3663;
8220   t14312 = t4060 * t4501;
8221   t14319 = -t4037 * t3658 / 0.8e1 - t4049 * t3658 / 0.8e1 + 0.9e1 / 0.128e3 * t1283 * t11808 - t1283 * t11813 / 0.2e1 + t4043 * t216 * t5302 / 0.8e1 + t4482 * t3194 / 0.4e1 - 0.15e2 / 0.512e3 * t1519 * t10485 - t4043 * t4061 * t1286 / 0.64e2 - t11798 * t1287 / 0.8e1 + 0.3e1 / 0.4096e4 * t1005 * t14309 - 0.15e2 / 0.512e3 * t1005 * t14312 - 0.3e1 / 0.256e3 * t4482 * t3191 + 0.3e1 / 0.512e3 * t3643 * t4062;
8222   t14322 = t11828 * t216;
8223   t14349 = 0.3e1 / 0.4096e4 * t1519 * t10478 - t1005 * t14322 / 0.16e2 - t3167 * t11828 * t559 / 0.8e1 - t3643 * t1690 / 0.16e2 + 0.15e2 / 0.131072e6 * t7358 * t2577 * t5782 + t1005 * t5326 / 0.8e1 + 0.2e1 * t1283 * t4464 + t1005 * t5291 - 0.33e2 / 0.4096e4 * t2575 * t2582 * t3663 + 0.33e2 / 0.256e3 * t1012 * t2586 * t1527 + t1519 * t4074 / 0.8e1 + t1005 * t5294 + 0.2e1 * t1005 * t5297;
8224   t14371 = t9647 * t1703;
8225   t14388 = t87 * t1320;
8226   t14392 = t86 * t1331;
8227   t14396 = t686 * params->b;
8228   t14400 = t2625 * t14396;
8229   t14403 = t1054 * t1555;
8230   t14408 = 0.567e3 / 0.64e2 * t7263 * t5346 * t429 - 0.81e2 / 0.32e2 * t2625 * t1555 * t1703 - 0.81e2 / 0.16e2 * t2625 * t1860 * t1331 - 0.75e2 / 0.16e2 * t10650 * t5604 * t578 + 0.225e3 / 0.64e2 * t2625 * t5604 * t14388 + 0.195e3 / 0.32e2 * t5112 - 0.45e2 / 0.32e2 * t4111 * t1865 * t14392 + 0.75e2 / 0.256e3 * t10650 * t14396 * t203 - 0.225e3 / 0.1024e4 * t14400 * t4114 + 0.45e2 / 0.512e3 * t14403 * t5111 - 0.15e2 / 0.32e2 * t5353 * t13441;
8231   t14409 = -0.15e2 / 0.16e2 * t5101 - 0.45e2 / 0.32e2 * t4535 * t10644 + 0.9e1 / 0.8e1 * t4535 * t10647 + 0.525e3 / 0.128e3 * t5104 + 0.225e3 / 0.256e3 * t5341 * t13418 + 0.3e1 / 0.8e1 * t1334 * t4546 + 0.45e2 / 0.128e3 * t581 * t11929 - 0.9e1 / 0.64e2 * t581 * t11978 - 0.9e1 / 0.64e2 * t581 * t11981 - 0.45e2 / 0.32e2 * t3248 * t14371 + t14408;
8232   t14426 = 0.584e3 / 0.2025e4 * t583 * t4565 - 0.2e1 / 0.9e1 * t1849 * t1307 + (t14253 + t14286 + t14319 + t14349) * t44 * t172 / 0.24e2 - 0.73e2 / 0.97200e5 * t14409 * t208 + t4519 * t566 / 0.12e2 + 0.73e2 / 0.194400e6 * t12006 * t1346 + 0.292e3 / 0.2025e4 * t4120 * t689 - 0.73e2 / 0.75e2 * t1341 * t4515 + 0.73e2 / 0.600e3 * t10593 * t670 + 0.73e2 / 0.150e3 * t3130 * t1845 - 0.73e2 / 0.600e3 * t1083 * t1569;
8233   t14452 = t10599 * t153;
8234   t14455 = -0.73e2 / 0.194400e6 * t3722 * t1722 - 0.73e2 / 0.194400e6 * t1563 * t4150 + t4156 * t669 / 0.90e2 + 0.73e2 / 0.400e3 * t3737 * t696 * t4140 + 0.73e2 / 0.200e3 * t11723 * t4589 + 0.73e2 / 0.800e3 * t3737 * t696 * t4145 + 0.73e2 / 0.400e3 * t11728 * t4589 - 0.73e2 / 0.320e3 * t9672 * t696 * t4137 - 0.73e2 / 0.97200e5 * t4570 * t1353 + 0.73e2 / 0.388800e6 * t9591 * t1717 - 0.73e2 / 0.97200e5 * t12034 * t592 - 0.73e2 / 0.1200e4 * t14452 * t1569;
8235   t14457 = t3220 * sigma[2];
8236   t14475 = t5356 * t439;
8237   t14484 = -0.73e2 / 0.300e3 * t14457 * t1569 + 0.73e2 / 0.800e3 * t9667 * t5373 - 0.73e2 / 0.300e3 * t11733 * t1878 - 0.73e2 / 0.300e3 * t4600 * t4595 - 0.73e2 / 0.1200e4 * t3732 * t5378 - 0.73e2 / 0.1200e4 * t1568 * t696 * t4150 - 0.73e2 / 0.600e3 * t11751 * t1878 - 0.73e2 / 0.600e3 * t4582 * t4595 - 0.73e2 / 0.194400e6 * t14475 * t448 + 0.292e3 / 0.2025e4 * t196 * t14409 - 0.73e2 / 0.259200e6 * t9594 * t4137 + 0.73e2 / 0.194400e6 * t3725 * t4140;
8238   t14511 = 0.73e2 / 0.388800e6 * t3725 * t4145 + 0.73e2 / 0.300e3 * t1078 * t696 - 0.73e2 / 0.300e3 * t4125 * t1531 + 0.73e2 / 0.300e3 * t4582 * t4592 - 0.73e2 / 0.400e3 * t3737 * t1574 * t1717 + 0.73e2 / 0.150e3 * t4600 * t4592 + 0.73e2 / 0.600e3 * t1568 * t1574 * t1722 + 0.584e3 / 0.2025e4 * t1336 * t1869 - t5330 * t408 / 0.9e1 + 0.292e3 / 0.2025e4 * t434 * t5356 + 0.292e3 / 0.2025e4 * t1710 * t1558 - 0.73e2 / 0.150e3 * t440 * t1574;
8239   t14527 = 0.9e1 * t1502 * t11684 * t14089 * t470 - 0.9e1 / 0.2e1 * t1502 * t4436 * t4402 * t1376 + 0.2e1 * t1485 * t11528 * t4433 - 0.9e1 / 0.2e1 * t1502 * t3774 * t1885 * t4437 + t1485 * t3589 * t14105 * t375 - 0.9e1 / 0.4e1 * t1502 * t4436 * t14105 * t470 - 0.3e1 * t1485 * t4436 * t14089 * t375 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t14426 + t14455 + t14484 + t14511) * t231 - t14110 + 0.3e1 / 0.4e1 * t1502 * t1503 * t14111 * t470 - 0.9e1 / 0.4e1 * t1502 * t3774 * t3596 * t1668;
8240   t14593 = -t9463 * t1585 * t1668 * t105 * t432 / 0.2e1 + t3767 * t4614 * t4445 * t432 / 0.3e1 - t11572 * t4446 * t4620 / 0.6e1 + 0.3e1 / 0.8e1 * t9463 * t4446 * t4625 - t1892 * t5391 * t4636 / 0.6e1 + t1892 * t5395 * t5269 * t4153 / 0.48e2 + t1892 * t4609 * t465 * t1894 / 0.16e2 - t1892 * t1578 * t1115 * t5396 / 0.256e3 - t1892 * t9829 * t5046 * t458 * sigma[2] / 0.96e2 + t14117 - t14122;
8241   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8242     v4rhosigma2tau[23] = -t3606 * t3810 * t87 * t203 * t375 / 0.192e3 + t3767 * t3810 * t87 * t203 * t470 / 0.128e3 - t3767 * t3804 * t610 * t1894 / 0.8e1 - t3767 * t1585 * t1376 * t1894 / 0.8e1 - t1584 * t5385 * t465 * t105 * t432 / 0.12e2 + t3606 * t4615 * t4620 / 0.12e2 - t3767 * t4615 * t4625 / 0.8e1 + t3767 * t5282 * t4636 / 0.3e1 + t1584 * t11635 * t1351 / 0.48e2 - t14100 + t14527 + 0.3e1 / 0.2e1 * t1502 * t1503 * t11548 * t610 + 0.3e1 / 0.2e1 * t1502 * t1503 * t4408 * t1376 + 0.3e1 / 0.4e1 * t1502 * t1503 * t3596 * t1741 + 0.3e1 / 0.4e1 * t1502 * t1503 * t1487 * t4181 - t1485 * t1486 * t14111 * t375 / 0.2e1 - t14088 + t14095 + t14104 - t3767 * t12110 * t1351 / 0.24e2 + t3767 * t1585 * t1741 * t105 * t432 / 0.6e1 + t14593;
8243 
8244   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8245     v4rhosigmalapl2[0] = 0.0e0;
8246 
8247   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8248     v4rhosigmalapl2[1] = 0.0e0;
8249 
8250   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8251     v4rhosigmalapl2[2] = 0.0e0;
8252 
8253   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8254     v4rhosigmalapl2[3] = 0.0e0;
8255 
8256   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8257     v4rhosigmalapl2[4] = 0.0e0;
8258 
8259   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8260     v4rhosigmalapl2[5] = 0.0e0;
8261 
8262   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8263     v4rhosigmalapl2[6] = 0.0e0;
8264 
8265   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8266     v4rhosigmalapl2[7] = 0.0e0;
8267 
8268   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8269     v4rhosigmalapl2[8] = 0.0e0;
8270 
8271   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8272     v4rhosigmalapl2[9] = 0.0e0;
8273 
8274   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8275     v4rhosigmalapl2[10] = 0.0e0;
8276 
8277   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8278     v4rhosigmalapl2[11] = 0.0e0;
8279 
8280   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8281     v4rhosigmalapl2[12] = 0.0e0;
8282 
8283   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8284     v4rhosigmalapl2[13] = 0.0e0;
8285 
8286   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8287     v4rhosigmalapl2[14] = 0.0e0;
8288 
8289   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8290     v4rhosigmalapl2[15] = 0.0e0;
8291 
8292   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8293     v4rhosigmalapl2[16] = 0.0e0;
8294 
8295   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8296     v4rhosigmalapl2[17] = 0.0e0;
8297 
8298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8299     v4rhosigmalapltau[0] = 0.0e0;
8300 
8301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8302     v4rhosigmalapltau[1] = 0.0e0;
8303 
8304   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8305     v4rhosigmalapltau[2] = 0.0e0;
8306 
8307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8308     v4rhosigmalapltau[3] = 0.0e0;
8309 
8310   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8311     v4rhosigmalapltau[4] = 0.0e0;
8312 
8313   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8314     v4rhosigmalapltau[5] = 0.0e0;
8315 
8316   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8317     v4rhosigmalapltau[6] = 0.0e0;
8318 
8319   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8320     v4rhosigmalapltau[7] = 0.0e0;
8321 
8322   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8323     v4rhosigmalapltau[8] = 0.0e0;
8324 
8325   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8326     v4rhosigmalapltau[9] = 0.0e0;
8327 
8328   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8329     v4rhosigmalapltau[10] = 0.0e0;
8330 
8331   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8332     v4rhosigmalapltau[11] = 0.0e0;
8333 
8334   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8335     v4rhosigmalapltau[12] = 0.0e0;
8336 
8337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8338     v4rhosigmalapltau[13] = 0.0e0;
8339 
8340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8341     v4rhosigmalapltau[14] = 0.0e0;
8342 
8343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8344     v4rhosigmalapltau[15] = 0.0e0;
8345 
8346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8347     v4rhosigmalapltau[16] = 0.0e0;
8348 
8349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8350     v4rhosigmalapltau[17] = 0.0e0;
8351 
8352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8353     v4rhosigmalapltau[18] = 0.0e0;
8354 
8355   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8356     v4rhosigmalapltau[19] = 0.0e0;
8357 
8358   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8359     v4rhosigmalapltau[20] = 0.0e0;
8360 
8361   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8362     v4rhosigmalapltau[21] = 0.0e0;
8363 
8364   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8365     v4rhosigmalapltau[22] = 0.0e0;
8366 
8367   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8368     v4rhosigmalapltau[23] = 0.0e0;
8369 
8370   t14624 = t873 * t543;
8371   t14676 = t12377 * t511;
8372   t14707 = 0.567e3 / 0.64e2 * t5920 * t5476 * t311 - 0.81e2 / 0.16e2 * t2142 * t1784 * t1446 - 0.81e2 / 0.32e2 * t2142 * t1936 * t1201 - 0.75e2 / 0.16e2 * t9942 * t13905 * t1788 + 0.225e3 / 0.64e2 * t13909 * t4319 - 0.45e2 / 0.32e2 * t13912 * t5480 + 0.195e3 / 0.32e2 * t5227 + 0.75e2 / 0.4e1 * t9942 * t5713 * t511 - 0.225e3 / 0.16e2 * t2142 * t5713 * t13897 - 0.75e2 / 0.4e1 * t5224 + 0.45e2 / 0.8e1 * t3918 * t1941 * t13901;
8373   t14708 = -0.15e2 / 0.8e1 * t5217 - 0.45e2 / 0.16e2 * t4293 * t11116 + 0.9e1 / 0.8e1 * t4293 * t11135 + 0.9e1 / 0.8e1 * t4293 * t11138 - 0.225e3 / 0.8e1 * t5215 - 0.225e3 / 0.32e2 * t5471 * t13128 + 0.3e1 / 0.16e2 * t1182 * t4734 + 0.45e2 / 0.256e3 * t514 * t12378 - 0.9e1 / 0.64e2 * t514 * t12382 - 0.45e2 / 0.32e2 * t2846 * t14676 + t14707;
8374   t14723 = 0.73e2 / 0.150e3 * t3466 * t1769 + 0.1971e4 / 0.100e3 * t7879 * t1922 + 0.1971e4 / 0.25e2 * t2170 * t5451 + 0.73e2 / 0.300e3 * t11226 * t625 + 0.292e3 / 0.2025e4 * t80 * t14708 + t4720 * t499 / 0.24e2 + 0.73e2 / 0.388800e6 * t12416 * t1216 - t1929 * t1177 / 0.9e1 + 0.584e3 / 0.2025e4 * t1449 * t1793 - 0.73e2 / 0.75e2 * t1454 * t4273 - 0.1971e4 / 0.25e2 * t2981 * t4710;
8375   t14724 = t1161 * t1921;
8376   t14736 = t30 * t5416;
8377   t14749 = t30 * t5424;
8378   t14766 = t30 * (-t1145 * t5427 / 0.4e1 - 0.7e1 / 0.8e1 * t1145 * t624) * t41 + t14736 * t765 / 0.16e2 + t12306 * t1758 * t31 * t336 / 0.8e1 - t12306 * t491 * t36 * t1407 / 0.8e1 - t12303 * t1157 / 0.16e2 + t14749 * t765 / 0.16e2 - t12311 * t1157 / 0.16e2 + t10935 * t1413 / 0.8e1 + t10938 * t1413 / 0.8e1 + 0.3e1 / 0.256e3 * t4227 * t3399 + t10943 * t1413 / 0.8e1 - 0.3e1 / 0.256e3 * t3376 * t4260 - t4227 * t3402 / 0.4e1;
8379   t14777 = t2956 * t4700;
8380   t14782 = t1156 * t1956;
8381   t14785 = t30 * t5432;
8382   t14796 = t3376 * t4270 / 0.4e1 + 0.3e1 / 0.512e3 * t2934 * t4701 - 0.3e1 / 0.16e2 * t2934 * t4713 - t4240 * t3402 / 0.4e1 + 0.9e1 / 0.128e3 * t1410 * t10996 + 0.21e2 / 0.512e3 * t763 * t14777 - 0.3e1 / 0.16e2 * t2945 * t4713 - 0.3e1 / 0.8e1 * t763 * t14782 + t14785 * t765 / 0.16e2 - t12256 * t1157 / 0.16e2 - 0.3e1 / 0.512e3 * t4689 * t2958 + t11029 * t1413 / 0.8e1 + 0.3e1 / 0.256e3 * t4240 * t3399;
8383   t14809 = t7765 * t772 * t4706;
8384   t14827 = -0.3e1 / 0.256e3 * t3387 * t4260 - 0.3e1 / 0.2048e4 * t1410 * t11026 + t3387 * t4270 / 0.4e1 + 0.3e1 / 0.512e3 * t2945 * t4701 + 0.3e1 / 0.4096e4 * t1153 * t12270 - 0.3e1 / 0.4096e4 * t763 * t14809 - 0.3e1 / 0.512e3 * t4675 * t2958 - t1410 * t11001 / 0.2e1 - 0.21e2 / 0.512e3 * t1153 * t12249 + 0.3e1 / 0.8e1 * t1153 * t12277 + t4675 * t2961 / 0.8e1 + t4689 * t2961 / 0.8e1 + t2934 * t10957 * t625 / 0.8e1;
8385   t14828 = t1165 * t775;
8386   t14864 = 0.3e1 / 0.4e1 * t277 * t14828 + 0.39e2 / 0.4096e4 * t2092 * t4263 * t4706 + 0.2e1 * t763 * t5419 + t763 * t5425 - 0.15e2 / 0.131072e6 * t6039 * t7708 * t340 * t12326 + 0.2e1 * t1153 * t4672 + t763 * t5417 - 0.51e2 / 0.256e3 * t770 * t14724 + 0.2e1 * t30 * t1408 * t1758 + 0.2e1 * t30 * t621 * t4237 + t30 * t1150 * t1914 * t41 + t30 * t488 * t4686 * t41 + t30 * t272 * t5432 * t41 + t30 * t1150 * t1904 * t41;
8387   t14890 = t11064 * t31;
8388   t14893 = -0.7884e4 / 0.25e2 * t841 * t14724 + 0.292e3 / 0.2025e4 * t516 * t4750 + (t14766 + t14796 + t14827 + t14864) * t44 * t55 / 0.24e2 + 0.73e2 / 0.400e3 * t12436 * t4347 + 0.5913e4 / 0.80e2 * t12423 * t4700 * t1216 - 0.219e3 / 0.800e3 * t3481 * t1956 * t1216 + 0.292e3 / 0.2025e4 * t1206 * t1945 - 0.73e2 / 0.600e3 * t12450 * t1802 + 0.5913e4 / 0.50e2 * t4767 * t12248 * t525 - 0.73e2 / 0.200e3 * t1459 * t4780 * t525 + 0.73e2 / 0.300e3 * t4760 * t4350 - 0.73e2 / 0.600e3 * t14890 * t1460;
8389   t14902 = t7876 * t771;
8390   t14910 = t2178 * t113;
8391   t14917 = t3469 * sigma[0];
8392   t14922 = 0.73e2 / 0.400e3 * t3476 * t5508 + 0.73e2 / 0.400e3 * t1459 * t1956 * t1223 + 0.73e2 / 0.200e3 * t4358 * t4775 - 0.5913e4 / 0.200e3 * t14902 * t4768 - 0.5913e4 / 0.200e3 * t12439 * t5501 - 0.5913e4 / 0.200e3 * t4767 * t4700 * t1223 - 0.5913e4 / 0.50e2 * t14910 * t4768 + 0.73e2 / 0.400e3 * t4340 * t4775 - 0.73e2 / 0.600e3 * t4760 * t4353 - 0.73e2 / 0.300e3 * t14917 * t1460 - t532 * t4780 / 0.30e2;
8393   t14927 = t5486 * t321;
8394   t14948 = -0.73e2 / 0.194400e6 * t12413 * t525 - 0.73e2 / 0.194400e6 * t4755 * t1223 - 0.73e2 / 0.194400e6 * t14927 * t330 - 0.73e2 / 0.97200e5 * t14708 * t96 + 0.584e3 / 0.2025e4 * t644 * t4323 + 0.73e2 / 0.100e3 * t1211 * t4716 + 0.73e2 / 0.50e2 * t322 * t14828 + 0.292e3 / 0.2025e4 * t316 * t5486 - 0.73e2 / 0.200e3 * t2891 * t1925 - 0.73e2 / 0.100e3 * t836 * t5456 - t5460 * t290 / 0.9e1 - 0.73e2 / 0.150e3 * t4328 * t1422;
8395   t14957 = t3042 * t5518 / 0.2e1;
8396   t14958 = -t3510 * t4790 * t4386 / 0.16e2 + t1476 * t12183 * t1221 / 0.96e2 - t11319 * t4654 * t4381 / 0.6e1 + 0.3e1 / 0.8e1 * t8645 * t4654 * t4386 - t3510 * t12535 * t105 * t69 * t54 * t1468 / 0.4e1 - 0.5e1 / 0.72e2 * t3510 * t12171 * t1221 - t1476 * t5515 * t347 * t105 * t314 / 0.12e2 + t3503 * t4790 * t4381 / 0.24e2 - 0.9e1 / 0.2e1 * t1393 * t4191 * t14624 * t1468 + 0.2e1 * t1385 * t3326 * t10832 * t249 - 0.9e1 / 0.2e1 * t1393 * t4191 * t10832 * t352 + t1385 * t12189 * t4188 - 0.9e1 / 0.4e1 * t1393 * t3332 * t1959 * t4192 - 0.3e1 * t1385 * t12193 * t14624 * t249 + 0.9e1 * t1393 * t8721 * t1898 * t14624 * t352 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t14723 + t14893 + t14922 + t14948) * t126 - t14957;
8397   t14960 = 0.2e1 * t3358 * t5405;
8398   t14961 = t3358 * t5413;
8399   t14963 = 0.3e1 * t3358 * t5401;
8400   t14964 = t5515 * t126;
8401   t15009 = t4377 * t5522 / 0.24e2;
8402   t15011 = t4377 * t5409 / 0.6e1;
8403   t15019 = t14960 + t14961 - t14963 - t1385 * t1386 * t14964 * t249 / 0.2e1 + 0.3e1 / 0.4e1 * t1393 * t1394 * t14964 * t352 - 0.9e1 / 0.4e1 * t1393 * t3332 * t4641 * t1246 + 0.3e1 / 0.2e1 * t1393 * t1394 * t8683 * t1809 + 0.3e1 / 0.2e1 * t1393 * t1394 * t3525 * t4366 + 0.3e1 / 0.4e1 * t1393 * t1394 * t12477 * t543 + 0.3e1 / 0.4e1 * t1393 * t1394 * t4660 * t1246 - t8645 * t4653 * t4200 * t314 + 0.2e1 / 0.3e1 * t3510 * t12535 * t1809 * t105 * t314 + t3510 * t4789 * t4200 * t314 / 0.6e1 + t1816 * t5408 * t4397 / 0.3e1 + t15009 - t15011 + t1816 * t4784 * t347 * t1818 / 0.32e2 - t1816 * t5521 * t4397 / 0.12e2;
8404   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8405     v4rhosigmatau2[0] = t14958 + t15019;
8406 
8407   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8408     v4rhosigmatau2[1] = 0.0e0;
8409 
8410   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8411     v4rhosigmatau2[2] = 0.0e0;
8412 
8413   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8414     v4rhosigmatau2[3] = 0.0e0;
8415 
8416   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8417     v4rhosigmatau2[4] = 0.0e0;
8418 
8419   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8420     v4rhosigmatau2[5] = 0.0e0;
8421 
8422   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8423     v4rhosigmatau2[6] = 0.0e0;
8424 
8425   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8426     v4rhosigmatau2[7] = 0.0e0;
8427 
8428   t15021 = 0.3e1 * t3587 * t5526;
8429   t15022 = t1115 * t610;
8430   t15028 = 0.2e1 * t3587 * t5530;
8431   t15034 = t4413 * t5534 / 0.6e1;
8432   t15038 = t3587 * t5538;
8433   t15042 = t3042 * t5643 / 0.2e1;
8434   t15043 = t5640 * t231;
8435   t15049 = t4413 * t5647 / 0.24e2;
8436   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8437     v4rhosigmatau2[8] = -t15021 - 0.3e1 * t1485 * t12639 * t15022 * t358 + t15028 + 0.2e1 * t1485 * t3589 * t11634 * t358 - t15034 - t11572 * t4825 * t4417 / 0.6e1 + t15038 + t1485 * t12670 * t4403 - t15042 - t1485 * t1486 * t15043 * t358 / 0.2e1 + t15049 + t3606 * t4958 * t4417 / 0.24e2;
8438 
8439   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8440     v4rhosigmatau2[9] = -t14963 - 0.3e1 * t1385 * t12193 * t14624 * t370 + t14960 + 0.2e1 * t1385 * t3326 * t10832 * t370 - t15011 - t11319 * t4654 * t4429 / 0.6e1 + t14961 + t1385 * t12189 * t4421 - t14957 - t1385 * t1386 * t14964 * t370 / 0.2e1 + t15009 + t3503 * t4790 * t4429 / 0.24e2;
8441 
8442   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8443     v4rhosigmatau2[10] = 0.0e0;
8444 
8445   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8446     v4rhosigmatau2[11] = 0.0e0;
8447 
8448   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8449     v4rhosigmatau2[12] = 0.0e0;
8450 
8451   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8452     v4rhosigmatau2[13] = 0.0e0;
8453 
8454   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8455     v4rhosigmatau2[14] = 0.0e0;
8456 
8457   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8458     v4rhosigmatau2[15] = 0.0e0;
8459 
8460   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8461     v4rhosigmatau2[16] = 0.0e0;
8462 
8463   t15130 = t3606 * t4958 * t4620 / 0.24e2 - t3767 * t4958 * t4625 / 0.16e2 - t11572 * t4825 * t4620 / 0.6e1 + 0.3e1 / 0.8e1 * t9463 * t4825 * t4625 - t3767 * t13066 * t105 * t69 * t171 * t1577 / 0.4e1 + 0.9e1 * t1502 * t9570 * t1965 * t15022 * t470 - 0.9e1 / 0.2e1 * t1502 * t4436 * t15022 * t1577 + 0.2e1 * t1485 * t3589 * t11634 * t375 - 0.9e1 / 0.2e1 * t1502 * t4436 * t11634 * t470 + t1485 * t12670 * t4433 - 0.9e1 / 0.4e1 * t1502 * t3774 * t2026 * t4437 - 0.3e1 * t1485 * t12639 * t15022 * t375 - t1485 * t1486 * t15043 * t375 / 0.2e1 + 0.3e1 / 0.4e1 * t1502 * t1503 * t15043 * t470 + t15028 + t15038 - 0.9e1 / 0.4e1 * t1502 * t3774 * t4795 * t1376;
8464   t15151 = t3189 * t4868;
8465   t15156 = t1286 * t2023;
8466   t15161 = t152 * t5557;
8467   t15180 = 0.21e2 / 0.512e3 * t1005 * t15151 - 0.3e1 / 0.16e2 * t3178 * t4881 - 0.3e1 / 0.8e1 * t1005 * t15156 - 0.3e1 / 0.512e3 * t4843 * t3191 + t15161 * t1007 / 0.16e2 - t12893 * t1287 / 0.16e2 - 0.3e1 / 0.512e3 * t4857 * t3191 + t11798 * t1522 / 0.8e1 + 0.3e1 / 0.256e3 * t4482 * t3655 - 0.3e1 / 0.256e3 * t3643 * t4502 - 0.3e1 / 0.2048e4 * t1519 * t11795 - t1519 * t11813 / 0.2e1 - 0.21e2 / 0.512e3 * t1283 * t12903;
8468   t15198 = t8348 * t1014 * t4874;
8469   t15213 = 0.3e1 / 0.8e1 * t1283 * t12908 + t4843 * t3194 / 0.8e1 + t4857 * t3194 / 0.8e1 - t4482 * t3658 / 0.4e1 + 0.9e1 / 0.128e3 * t1519 * t11808 + t3643 * t4512 / 0.4e1 + 0.3e1 / 0.512e3 * t3178 * t4869 + 0.3e1 / 0.4096e4 * t1283 * t12886 - 0.3e1 / 0.4096e4 * t1005 * t15198 + 0.2e1 * t152 * t1517 * t1834 + 0.2e1 * t152 * t666 * t4479 + t152 * t1280 * t1981 * t163 + t152 * t555 * t4854 * t163;
8470   t15237 = t1291 * t1988;
8471   t15240 = t1295 * t1017;
8472   t15252 = t152 * t390 * t5557 * t163 + t152 * t1280 * t1971 * t163 + t3167 * t11828 * t670 / 0.8e1 + t152 * (-t1275 * t5552 / 0.4e1 - 0.7e1 / 0.8e1 * t1275 * t669) * t163 + 0.2e1 * t1005 * t5544 + t1005 * t5550 + 0.39e2 / 0.4096e4 * t2575 * t4505 * t4874 - 0.51e2 / 0.256e3 * t1012 * t15237 + 0.3e1 / 0.4e1 * t395 * t15240 - 0.15e2 / 0.131072e6 * t7358 * t8295 * t458 * t12871 + 0.2e1 * t1283 * t4840 + t1005 * t5542 - t4469 * t3658 / 0.4e1;
8473   t15261 = t152 * t5541;
8474   t15274 = t152 * t5549;
8475   t15287 = -0.3e1 / 0.256e3 * t3632 * t4502 + t3632 * t4512 / 0.4e1 + 0.3e1 / 0.512e3 * t3167 * t4869 - 0.3e1 / 0.16e2 * t3167 * t4881 + t15261 * t1007 / 0.16e2 + t12811 * t1834 * t153 * t454 / 0.8e1 - t12811 * t558 * t158 * t1516 / 0.8e1 - t12808 * t1287 / 0.16e2 + t15274 * t1007 / 0.16e2 - t12816 * t1287 / 0.16e2 + t11904 * t1522 / 0.8e1 + t11907 * t1522 / 0.8e1 + 0.3e1 / 0.256e3 * t4469 * t3655 + t11883 * t1522 / 0.8e1;
8476   t15309 = t12767 * t578;
8477   t15340 = 0.567e3 / 0.64e2 * t7263 * t5601 * t429 - 0.81e2 / 0.16e2 * t2625 * t1860 * t1555 - 0.81e2 / 0.32e2 * t2625 * t2003 * t1331 - 0.75e2 / 0.16e2 * t10650 * t14396 * t1864 + 0.225e3 / 0.64e2 * t14400 * t4561 - 0.45e2 / 0.32e2 * t14403 * t5605 + 0.195e3 / 0.32e2 * t5354 + 0.75e2 / 0.4e1 * t10650 * t5806 * t578 - 0.225e3 / 0.16e2 * t2625 * t5806 * t14388 - 0.75e2 / 0.4e1 * t5351 + 0.45e2 / 0.8e1 * t4111 * t2008 * t14392;
8478   t15341 = -0.15e2 / 0.8e1 * t5344 - 0.45e2 / 0.16e2 * t4535 * t11929 + 0.9e1 / 0.8e1 * t4535 * t11978 + 0.9e1 / 0.8e1 * t4535 * t11981 - 0.225e3 / 0.8e1 * t5342 - 0.225e3 / 0.32e2 * t5596 * t13418 + 0.3e1 / 0.16e2 * t1312 * t4902 + 0.45e2 / 0.256e3 * t581 * t12768 - 0.9e1 / 0.64e2 * t581 * t12772 - 0.45e2 / 0.32e2 * t3248 * t15309 + t15340;
8479   t15360 = 0.73e2 / 0.300e3 * t12034 * t670 + 0.73e2 / 0.150e3 * t3722 * t1845 + (t15180 + t15213 + t15252 + t15287) * t44 * t172 / 0.24e2 - 0.73e2 / 0.97200e5 * t15341 * t208 + 0.73e2 / 0.400e3 * t12963 * t4589 + 0.5913e4 / 0.80e2 * t12947 * t4868 * t1346 - 0.219e3 / 0.800e3 * t3737 * t2023 * t1346 - 0.73e2 / 0.75e2 * t1563 * t4515 - 0.73e2 / 0.150e3 * t4570 * t1531 - t5585 * t408 / 0.9e1 + 0.73e2 / 0.50e2 * t440 * t15240;
8480   t15385 = 0.292e3 / 0.2025e4 * t196 * t15341 + 0.73e2 / 0.100e3 * t1341 * t4884 - 0.7884e4 / 0.25e2 * t1083 * t15237 - 0.1971e4 / 0.25e2 * t3220 * t4878 + 0.292e3 / 0.2025e4 * t434 * t5611 + 0.292e3 / 0.2025e4 * t583 * t4918 + 0.292e3 / 0.2025e4 * t1336 * t2012 + 0.584e3 / 0.2025e4 * t689 * t4565 + 0.584e3 / 0.2025e4 * t1558 * t1869 - t1996 * t1307 / 0.9e1 - 0.73e2 / 0.100e3 * t1078 * t5581 + 0.1971e4 / 0.100e3 * t8465 * t1989;
8481   t15399 = t3725 * sigma[2];
8482   t15404 = t12006 * t153;
8483   t15412 = 0.1971e4 / 0.25e2 * t2653 * t5576 - 0.73e2 / 0.200e3 * t3130 * t1992 + 0.73e2 / 0.388800e6 * t12973 * t1346 - t599 * t4948 / 0.30e2 + t4888 * t566 / 0.24e2 - 0.73e2 / 0.600e3 * t4928 * t4595 - 0.73e2 / 0.300e3 * t15399 * t1569 - 0.73e2 / 0.600e3 * t12960 * t1878 - 0.73e2 / 0.600e3 * t15404 * t1569 + 0.73e2 / 0.400e3 * t3732 * t5633 + 0.73e2 / 0.400e3 * t1568 * t2023 * t1353;
8484   t15420 = t2661 * t219;
8485   t15425 = t8468 * t1013;
8486   t15432 = t5611 * t439;
8487   t15443 = 0.73e2 / 0.200e3 * t4600 * t4943 - 0.5913e4 / 0.200e3 * t12981 * t5626 - 0.5913e4 / 0.200e3 * t4935 * t4868 * t1353 - 0.5913e4 / 0.50e2 * t15420 * t4936 + 0.73e2 / 0.400e3 * t4582 * t4943 - 0.5913e4 / 0.200e3 * t15425 * t4936 - 0.73e2 / 0.194400e6 * t12970 * t592 - 0.73e2 / 0.194400e6 * t4923 * t1353 - 0.73e2 / 0.194400e6 * t15432 * t448 + 0.73e2 / 0.300e3 * t4928 * t4592 + 0.5913e4 / 0.50e2 * t4935 * t12902 * t592 - 0.73e2 / 0.200e3 * t1568 * t4948 * t592;
8488   t15484 = 0.3e1 / 0.2e1 * t1502 * t1503 * t9508 * t1885 + 0.3e1 / 0.2e1 * t1502 * t1503 * t3809 * t4608 + 0.3e1 / 0.4e1 * t1502 * t1503 * t12675 * t610 + 0.3e1 / 0.4e1 * t1502 * t1503 * t4801 * t1376 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t15360 + t15385 + t15412 + t15443) * t231 - t15042 - t15021 + 0.2e1 / 0.3e1 * t3767 * t13066 * t1885 * t105 * t432 + t3767 * t4957 * t4445 * t432 / 0.6e1 - t9463 * t4824 * t4445 * t432 - t15034 + t15049 + t1892 * t5533 * t4636 / 0.3e1 - t1892 * t5646 * t4636 / 0.12e2 + t1892 * t4952 * t465 * t1894 / 0.32e2 - t1584 * t5640 * t465 * t105 * t432 / 0.12e2 - 0.5e1 / 0.72e2 * t3767 * t12723 * t1351 + t1584 * t12718 * t1351 / 0.96e2;
8489   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8490     v4rhosigmatau2[17] = t15130 + t15484;
8491 
8492   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8493     v4rholapl3[0] = 0.0e0;
8494 
8495   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8496     v4rholapl3[1] = 0.0e0;
8497 
8498   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8499     v4rholapl3[2] = 0.0e0;
8500 
8501   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8502     v4rholapl3[3] = 0.0e0;
8503 
8504   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8505     v4rholapl3[4] = 0.0e0;
8506 
8507   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8508     v4rholapl3[5] = 0.0e0;
8509 
8510   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8511     v4rholapl3[6] = 0.0e0;
8512 
8513   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8514     v4rholapl3[7] = 0.0e0;
8515 
8516   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8517     v4rholapl2tau[0] = 0.0e0;
8518 
8519   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8520     v4rholapl2tau[1] = 0.0e0;
8521 
8522   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8523     v4rholapl2tau[2] = 0.0e0;
8524 
8525   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8526     v4rholapl2tau[3] = 0.0e0;
8527 
8528   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8529     v4rholapl2tau[4] = 0.0e0;
8530 
8531   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8532     v4rholapl2tau[5] = 0.0e0;
8533 
8534   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8535     v4rholapl2tau[6] = 0.0e0;
8536 
8537   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8538     v4rholapl2tau[7] = 0.0e0;
8539 
8540   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8541     v4rholapl2tau[8] = 0.0e0;
8542 
8543   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8544     v4rholapl2tau[9] = 0.0e0;
8545 
8546   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8547     v4rholapl2tau[10] = 0.0e0;
8548 
8549   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8550     v4rholapl2tau[11] = 0.0e0;
8551 
8552   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8553     v4rholapltau2[0] = 0.0e0;
8554 
8555   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8556     v4rholapltau2[1] = 0.0e0;
8557 
8558   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8559     v4rholapltau2[2] = 0.0e0;
8560 
8561   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8562     v4rholapltau2[3] = 0.0e0;
8563 
8564   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8565     v4rholapltau2[4] = 0.0e0;
8566 
8567   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8568     v4rholapltau2[5] = 0.0e0;
8569 
8570   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8571     v4rholapltau2[6] = 0.0e0;
8572 
8573   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8574     v4rholapltau2[7] = 0.0e0;
8575 
8576   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8577     v4rholapltau2[8] = 0.0e0;
8578 
8579   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8580     v4rholapltau2[9] = 0.0e0;
8581 
8582   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8583     v4rholapltau2[10] = 0.0e0;
8584 
8585   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8586     v4rholapltau2[11] = 0.0e0;
8587 
8588   t15486 = 0.3e1 * t3042 * t5655;
8589   t15487 = t5650 * t5653;
8590   t15501 = 0.1e1 / t872 / t346;
8591   t15508 = 0.3e1 * t3358 * t5659;
8592   t15530 = t3042 * t5740 / 0.2e1;
8593   t15531 = t5737 * t126;
8594   t15567 = t4704 * t5689;
8595   t15570 = t1416 * t3407;
8596   t15573 = t280 * t1418;
8597   t15580 = 0.1e1 / t4705 / t623;
8598   t15584 = t772 * t5689;
8599   t15585 = t6004 * t15584;
8600   t15588 = t779 * t3407;
8601   t15589 = t2082 * t15588;
8602   t15592 = t764 * t5734;
8603   t15595 = t30 * t5662;
8604   t15600 = t30 * (0.3e1 / 0.4e1 * t24 * t1956 * t267 + 0.17e2 / 0.8e1 * t24 * t1956) * t41 + t30 * t272 * t5678 * t41 + 0.3e1 * t30 * t1905 * t1407 + t30 * t272 * t5662 * t41 + 0.3e1 * t30 * t1408 * t1914 + 0.3e1 * t30 * t621 * t4686 - 0.45e2 / 0.4096e4 * t2092 * t15567 + 0.9e1 / 0.32e2 * t770 * t15570 - 0.3e1 / 0.2e1 * t277 * t15573 + 0.3e1 * t763 * t5665 + 0.15e2 / 0.131072e6 * t6039 * t6040 * t340 * t15580 + 0.3e1 / 0.4096e4 * t763 * t15585 - 0.27e2 / 0.512e3 * t763 * t15589 + 0.3e1 / 0.4e1 * t763 * t15592 + t15595 * t765 / 0.16e2 + 0.9e1 / 0.512e3 * t4675 * t3399;
8605   t15601 = t30 * t5678;
8606   t15622 = t1914 * t31;
8607   t15638 = t15601 * t765 / 0.16e2 + 0.3e1 / 0.16e2 * t12256 * t1413 + 0.9e1 / 0.512e3 * t4689 * t3399 + 0.9e1 / 0.512e3 * t3387 * t4701 + 0.9e1 / 0.4096e4 * t1410 * t12270 - 0.3e1 / 0.8e1 * t4675 * t3402 - 0.3e1 / 0.8e1 * t4689 * t3402 - 0.63e2 / 0.512e3 * t1410 * t12249 + 0.9e1 / 0.8e1 * t1410 * t12277 - 0.9e1 / 0.16e2 * t3387 * t4713 + 0.3e1 / 0.16e2 * t12306 * t15622 * t336 + 0.3e1 / 0.8e1 * t12306 * t34 * t624 * t1407 + 0.3e1 / 0.16e2 * t12303 * t1413 + 0.3e1 / 0.16e2 * t12311 * t1413 + 0.9e1 / 0.512e3 * t3376 * t4701 - 0.9e1 / 0.16e2 * t3376 * t4713;
8608   t15643 = t279 * t1418;
8609   t15654 = t5906 * t5710;
8610   t15671 = -0.45e2 / 0.16e2 * t5474 - 0.135e3 / 0.32e2 * t4293 * t12378 + 0.27e2 / 0.8e1 * t4293 * t12382 + 0.375e3 / 0.2e1 * t5472 + 0.225e3 / 0.4e1 * t5707 * t13128 - 0.45e2 / 0.32e2 * t298 * t15654 + 0.567e3 / 0.64e2 * t5920 * t5710 * t311 - 0.243e3 / 0.32e2 * t2142 * t1936 * t1446 + 0.225e3 / 0.4e1 * t9942 * t13905 * t1940 - 0.675e3 / 0.16e2 * t13909 * t4746 + 0.135e3 / 0.8e1 * t13912 * t5714 - 0.225e3 / 0.4e1 * t5481;
8611   t15690 = 0.292e3 / 0.675e3 * t1449 * t1945 + 0.292e3 / 0.675e3 * t644 * t4750 + (t15600 + t15638) * t44 * t55 / 0.24e2 + t106 * t15643 / 0.15e2 + 0.292e3 / 0.2025e4 * t80 * t15671 - 0.73e2 / 0.25e2 * t322 * t15573 - t5700 * t290 / 0.9e1 + 0.73e2 / 0.200e3 * t12413 * t625 + 0.5913e4 / 0.100e3 * t8981 * t1922 - 0.219e3 / 0.200e3 * t3466 * t1925 + 0.478953e6 / 0.50e2 * t6067 * t5690 - 0.17739e5 / 0.100e3 * t2170 * t5693 + 0.73e2 / 0.50e2 * t836 * t5696;
8612   t15698 = t6075 * t2093;
8613   t15705 = t12416 * t31;
8614   t15708 = t8984 * t771;
8615   t15711 = t5717 * t321;
8616   t15726 = 0.292e3 / 0.2025e4 * t316 * t5717 - 0.73e2 / 0.100e3 * t1459 * t5734 * t330 + 0.219e3 / 0.400e3 * t4760 * t4775 - 0.478953e6 / 0.20e2 * t15698 * t15584 * t330 + 0.53217e5 / 0.200e3 * t4767 * t15588 * t330 - 0.73e2 / 0.400e3 * t15705 * t1460 - 0.17739e5 / 0.200e3 * t15708 * t4768 - 0.73e2 / 0.194400e6 * t15711 * t330 - 0.73e2 / 0.97200e5 * t15671 * t96 - 0.5913e4 / 0.25e2 * t3469 * t4710 + 0.219e3 / 0.100e3 * t1454 * t4716 - 0.1436859e7 / 0.25e2 * t2178 * t15567 + 0.17739e5 / 0.25e2 * t841 * t15570 - 0.73e2 / 0.100e3 * t4755 * t1422;
8617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8618     v4rhotau3[0] = -t15486 - 0.3e1 * t1385 * t3332 * t15487 * t249 + 0.9e1 * t1393 * t8721 * t15487 * t352 - 0.27e2 / 0.4e1 * t1393 * t3332 * t12170 * t1468 - 0.3e1 / 0.2e1 * t8645 * t5650 * t15501 * t105 * t314 + t15508 + 0.3e1 * t1385 * t3326 * t12182 * t249 - 0.27e2 / 0.4e1 * t1393 * t4191 * t12182 * t352 + 0.9e1 / 0.4e1 * t1393 * t1394 * t8683 * t1959 + t3510 * t12535 * t1959 * t105 * t314 + 0.9e1 / 0.4e1 * t1393 * t1394 * t3525 * t4783 - t15530 - t1385 * t1386 * t15531 * t249 / 0.2e1 + 0.3e1 / 0.4e1 * t1393 * t1394 * t15531 * t352 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t15690 + t15726) * t126 - t1476 * t5737 * t347 * t105 * t314 / 0.12e2;
8619 
8620   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8621     v4rhotau3[1] = 0.0e0;
8622 
8623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8624     v4rhotau3[2] = 0.0e0;
8625 
8626   t15739 = 0.3e1 * t3042 * t5748;
8627   t15740 = t5743 * t5746;
8628   t15746 = 0.3e1 * t3587 * t5752;
8629   t15752 = t3042 * t5833 / 0.2e1;
8630   t15753 = t5830 * t231;
8631   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8632     v4rhotau3[3] = -t15739 - 0.3e1 * t1485 * t3774 * t15740 * t358 + t15746 + 0.3e1 * t1485 * t3589 * t12717 * t358 - t15752 - t1485 * t1486 * t15753 * t358 / 0.2e1;
8633 
8634   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8635     v4rhotau3[4] = -t15486 - 0.3e1 * t1385 * t3332 * t15487 * t370 + t15508 + 0.3e1 * t1385 * t3326 * t12182 * t370 - t15530 - t1385 * t1386 * t15531 * t370 / 0.2e1;
8636 
8637   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8638     v4rhotau3[5] = 0.0e0;
8639 
8640   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8641     v4rhotau3[6] = 0.0e0;
8642 
8643   t15783 = 0.1e1 / t1114 / t464;
8644   t15823 = t4872 * t5782;
8645   t15826 = t1525 * t3663;
8646   t15829 = t398 * t1527;
8647   t15846 = t7249 * t5803;
8648   t15863 = -0.45e2 / 0.16e2 * t5599 - 0.135e3 / 0.32e2 * t4535 * t12768 + 0.27e2 / 0.8e1 * t4535 * t12772 + 0.375e3 / 0.2e1 * t5597 + 0.225e3 / 0.4e1 * t5800 * t13418 - 0.45e2 / 0.32e2 * t416 * t15846 + 0.567e3 / 0.64e2 * t7263 * t5803 * t429 - 0.243e3 / 0.32e2 * t2625 * t2003 * t1555 + 0.225e3 / 0.4e1 * t10650 * t14396 * t2007 - 0.675e3 / 0.16e2 * t14400 * t4914 + 0.135e3 / 0.8e1 * t14403 * t5807 - 0.225e3 / 0.4e1 * t5606;
8649   t15872 = 0.292e3 / 0.675e3 * t689 * t4918 + 0.292e3 / 0.2025e4 * t434 * t5810 - t5793 * t408 / 0.9e1 - 0.1436859e7 / 0.25e2 * t2661 * t15823 + 0.17739e5 / 0.25e2 * t1083 * t15826 - 0.73e2 / 0.25e2 * t440 * t15829 - 0.73e2 / 0.100e3 * t4923 * t1531 - 0.5913e4 / 0.25e2 * t3725 * t4878 + 0.219e3 / 0.100e3 * t1563 * t4884 - 0.73e2 / 0.97200e5 * t15863 * t208 - 0.17739e5 / 0.100e3 * t2653 * t5786 + 0.73e2 / 0.50e2 * t1078 * t5789 - 0.219e3 / 0.200e3 * t3722 * t1992;
8650   t15881 = t397 * t1527;
8651   t15917 = 0.1e1 / t4873 / t668;
8652   t15929 = t152 * t5771;
8653   t15932 = t152 * (0.3e1 / 0.4e1 * t146 * t2023 * t385 + 0.17e2 / 0.8e1 * t146 * t2023) * t163 + 0.3e1 * t152 * t1517 * t1981 + 0.3e1 * t152 * t666 * t4854 + t152 * t390 * t5771 * t163 + 0.3e1 * t152 * t1972 * t1516 + t152 * t390 * t5755 * t163 - 0.45e2 / 0.4096e4 * t2575 * t15823 + 0.9e1 / 0.32e2 * t1012 * t15826 - 0.3e1 / 0.2e1 * t395 * t15829 + 0.3e1 * t1005 * t5758 + 0.15e2 / 0.131072e6 * t7358 * t7359 * t458 * t15917 - 0.63e2 / 0.512e3 * t1519 * t12903 + 0.9e1 / 0.8e1 * t1519 * t12908 - 0.3e1 / 0.8e1 * t4843 * t3658 + 0.9e1 / 0.512e3 * t4843 * t3655 + t15929 * t1007 / 0.16e2;
8654   t15943 = t1014 * t5782;
8655   t15944 = t7416 * t15943;
8656   t15947 = t1021 * t3663;
8657   t15948 = t2565 * t15947;
8658   t15951 = t1006 * t5827;
8659   t15954 = t152 * t5755;
8660   t15959 = t1981 * t153;
8661   t15975 = 0.3e1 / 0.16e2 * t12893 * t1522 + 0.9e1 / 0.512e3 * t4857 * t3655 + 0.9e1 / 0.512e3 * t3643 * t4869 + 0.9e1 / 0.4096e4 * t1519 * t12886 - 0.9e1 / 0.16e2 * t3643 * t4881 + 0.3e1 / 0.4096e4 * t1005 * t15944 - 0.27e2 / 0.512e3 * t1005 * t15948 + 0.3e1 / 0.4e1 * t1005 * t15951 + t15954 * t1007 / 0.16e2 - 0.3e1 / 0.8e1 * t4857 * t3658 + 0.3e1 / 0.16e2 * t12811 * t15959 * t454 + 0.3e1 / 0.8e1 * t12811 * t156 * t669 * t1516 + 0.3e1 / 0.16e2 * t12808 * t1522 + 0.3e1 / 0.16e2 * t12816 * t1522 + 0.9e1 / 0.512e3 * t3632 * t4869 - 0.9e1 / 0.16e2 * t3632 * t4881;
8662   t15980 = t5810 * t439;
8663   t15985 = t7309 * t2576;
8664   t15995 = t12973 * t153;
8665   t15998 = t9594 * t1013;
8666   t16003 = 0.478953e6 / 0.50e2 * t7301 * t5783 + 0.5913e4 / 0.100e3 * t9591 * t1989 + 0.292e3 / 0.2025e4 * t196 * t15863 + 0.73e2 / 0.200e3 * t12970 * t670 + t215 * t15881 / 0.15e2 + (t15932 + t15975) * t44 * t172 / 0.24e2 - 0.73e2 / 0.194400e6 * t15980 * t448 + 0.219e3 / 0.400e3 * t4928 * t4943 - 0.478953e6 / 0.20e2 * t15985 * t15943 * t448 + 0.53217e5 / 0.200e3 * t4935 * t15947 * t448 - 0.73e2 / 0.100e3 * t1568 * t5827 * t448 - 0.73e2 / 0.400e3 * t15995 * t1569 - 0.17739e5 / 0.200e3 * t15998 * t4936 + 0.292e3 / 0.675e3 * t1558 * t2012;
8667   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8668     v4rhotau3[7] = -t15739 - 0.3e1 * t1485 * t3774 * t15740 * t375 + 0.9e1 * t1502 * t9570 * t15740 * t470 - 0.27e2 / 0.4e1 * t1502 * t3774 * t12722 * t1577 - 0.3e1 / 0.2e1 * t9463 * t5743 * t15783 * t105 * t432 + t15746 + 0.3e1 * t1485 * t3589 * t12717 * t375 - 0.27e2 / 0.4e1 * t1502 * t4436 * t12717 * t470 + 0.9e1 / 0.4e1 * t1502 * t1503 * t9508 * t2026 + t3767 * t13066 * t2026 * t105 * t432 + 0.9e1 / 0.4e1 * t1502 * t1503 * t3809 * t4951 - t15752 - t1485 * t1486 * t15753 * t375 / 0.2e1 + 0.3e1 / 0.4e1 * t1502 * t1503 * t15753 * t470 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t15872 + t16003) * t231 - t1584 * t5830 * t465 * t105 * t432 / 0.12e2;
8669 
8670   t16015 = t1590 * t1590;
8671   t16024 = t1663 * t1663;
8672   t16036 = t1595 * t1595;
8673   t16039 = t1603 * t1603;
8674   t16084 = 0.6e1 * t30 * t1596 * t1603 + t30 * t16036 * t41 + 0.3e1 * t30 * t16039 * t41 + 0.4e1 * t30 * t489 * t4985 + t30 * (t482 * t21 * t4982 - 0.6e1 * t28 / t771) * t41 + 0.15e2 / 0.131072e6 * t6039 * t6013 * t4706 + 0.9e1 / 0.512e3 * t30 * t769 * t779 * t775 + 0.9e1 / 0.128e3 * t1153 * t13225 - 0.3e1 / 0.4e1 * t10090 * t1603 * sigma[0] * t107 - 0.9e1 / 0.2048e4 * t2092 * t6017 * t1921 - t13228 * t1157 / 0.4e1 - 0.3e1 / 0.8e1 * t3844 * t1612 + 0.9e1 / 0.256e3 * t3844 * t3869 - t13237 * t1157 / 0.4e1 - 0.3e1 / 0.8e1 * t3856 * t1612 + 0.9e1 / 0.256e3 * t3856 * t3869 - 0.3e1 / 0.1024e4 * t1153 * t13252;
8675   t16090 = t1632 * t1632;
8676   t16096 = t2847 * params->b;
8677   t16099 = t1625 * t1625;
8678   t16105 = params->b * params->b;
8679   t16106 = t812 * t16105;
8680   t16108 = 0.1e1 / t52 / t861;
8681   t16111 = 0.1e1 / t48 / t111;
8682   t16115 = 0.45e2 / 0.64e2 * t502 * t13131 - 0.225e3 / 0.512e3 * t5010 * t16096 + 0.567e3 / 0.64e2 * t5920 * t16099 - 0.675e3 / 0.512e3 * t2142 * t1625 * t5018 + 0.1125e4 / 0.8192e4 * t16106 * t16108 * t44 * t16111;
8683   t16130 = t1639 * t1639;
8684   t16136 = t1644 * t1644;
8685   t16139 = t16084 * t44 * t55 / 0.24e2 + t5001 * t499 / 0.6e1 + 0.292e3 / 0.675e3 * t16090 + 0.1168e4 / 0.2025e4 * t516 * t5021 + 0.292e3 / 0.2025e4 * t80 * t16115 - 0.73e2 / 0.97200e5 * t16115 * t96 - 0.73e2 / 0.48600e5 * t13289 * t525 + 0.73e2 / 0.64800e5 * t9898 * t1639 - 0.73e2 / 0.32400e5 * t3932 * t1644 - 0.73e2 / 0.64800e5 * t7876 * t5032 + 0.73e2 / 0.32400e5 * t2981 * t5035 + 0.73e2 / 0.103680e6 * t6075 * t16130 - 0.73e2 / 0.43200e5 * t2178 * t1639 * t1644 + 0.73e2 / 0.129600e6 * t841 * t16136;
8686   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8687     v4sigma4[0] = 0.9e1 * t480 * t481 * t6159 * t16015 - 0.27e2 / 0.2e1 * t480 * t481 * t3818 * t1663 + 0.9e1 / 0.4e1 * t480 * t481 * t744 * t16024 + 0.3e1 * t480 * t481 * t1137 * t5050 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t16139 * t126 - t13308 * t514 / 0.3e1 + t10146 * t1629 / 0.16e2 - t7885 * t5047 / 0.24e2 + 0.5e1 / 0.2304e4 * t6121 * t6122 * t112 * t16108 * t69);
8688 
8689   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8690     v4sigma4[1] = 0.0e0;
8691 
8692   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8693     v4sigma4[2] = 0.0e0;
8694 
8695   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8696     v4sigma4[3] = 0.0e0;
8697 
8698   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8699     v4sigma4[4] = 0.0e0;
8700 
8701   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8702     v4sigma4[5] = 0.0e0;
8703 
8704   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8705     v4sigma4[6] = 0.0e0;
8706 
8707   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8708     v4sigma4[7] = 0.0e0;
8709 
8710   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8711     v4sigma4[8] = 0.0e0;
8712 
8713   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8714     v4sigma4[9] = 0.0e0;
8715 
8716   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8717     v4sigma4[10] = 0.0e0;
8718 
8719   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8720     v4sigma4[11] = 0.0e0;
8721 
8722   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8723     v4sigma4[12] = 0.0e0;
8724 
8725   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8726     v4sigma4[13] = 0.0e0;
8727 
8728   t16157 = t1668 * t1668;
8729   t16166 = t1741 * t1741;
8730   t16189 = t1673 * t1673;
8731   t16192 = t1681 * t1681;
8732   t16226 = -0.9e1 / 0.2048e4 * t2575 * t7402 * t1988 + t152 * (t549 * t143 * t5075 - 0.6e1 * t150 / t1013) * t163 + 0.6e1 * t152 * t1674 * t1681 + t152 * t16189 * t163 + 0.3e1 * t152 * t16192 * t163 + 0.4e1 * t152 * t556 * t5078 + 0.15e2 / 0.131072e6 * t7358 * t7398 * t4874 + 0.9e1 / 0.512e3 * t152 * t1011 * t1021 * t1017 - 0.3e1 / 0.4e1 * t10416 * t1681 * sigma[2] * t216 + 0.9e1 / 0.128e3 * t1283 * t13549 - t13515 * t1287 / 0.4e1 - 0.3e1 / 0.8e1 * t4037 * t1690 + 0.9e1 / 0.256e3 * t4037 * t4062 - t13530 * t1287 / 0.4e1 - 0.3e1 / 0.8e1 * t4049 * t1690 + 0.9e1 / 0.256e3 * t4049 * t4062 - 0.3e1 / 0.1024e4 * t1283 * t13545;
8733   t16232 = t1710 * t1710;
8734   t16238 = t3249 * params->b;
8735   t16241 = t1703 * t1703;
8736   t16247 = t1054 * t16105;
8737   t16249 = 0.1e1 / t169 / t1103;
8738   t16254 = 0.45e2 / 0.64e2 * t569 * t13421 - 0.225e3 / 0.512e3 * t5103 * t16238 + 0.567e3 / 0.64e2 * t7263 * t16241 - 0.675e3 / 0.512e3 * t2625 * t1703 * t5111 + 0.1125e4 / 0.8192e4 * t16247 * t16249 * t44 * t16111;
8739   t16269 = t1717 * t1717;
8740   t16275 = t1722 * t1722;
8741   t16278 = t16226 * t44 * t172 / 0.24e2 + t5094 * t566 / 0.6e1 + 0.292e3 / 0.675e3 * t16232 + 0.1168e4 / 0.2025e4 * t583 * t5114 + 0.292e3 / 0.2025e4 * t196 * t16254 - 0.73e2 / 0.97200e5 * t16254 * t208 - 0.73e2 / 0.48600e5 * t13591 * t592 + 0.73e2 / 0.64800e5 * t10599 * t1717 - 0.73e2 / 0.32400e5 * t4125 * t1722 - 0.73e2 / 0.64800e5 * t8468 * t5125 + 0.73e2 / 0.32400e5 * t3220 * t5128 + 0.73e2 / 0.103680e6 * t7309 * t16269 - 0.73e2 / 0.43200e5 * t2661 * t1717 * t1722 + 0.73e2 / 0.129600e6 * t1083 * t16275;
8742   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8743     v4sigma4[14] = 0.9e1 * t480 * t548 * t7210 * t16157 - 0.27e2 / 0.2e1 * t480 * t548 * t4013 * t1741 + 0.9e1 / 0.4e1 * t480 * t548 * t986 * t16166 + 0.3e1 * t480 * t548 * t1267 * t5142 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t16278 * t231 - t13598 * t581 / 0.3e1 + t10680 * t1707 / 0.16e2 - t8509 * t5139 / 0.24e2 + 0.5e1 / 0.2304e4 * t7460 * t6122 * t112 * t16249 * t69);
8744 
8745   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8746     v4sigma3lapl[0] = 0.0e0;
8747 
8748   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8749     v4sigma3lapl[1] = 0.0e0;
8750 
8751   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8752     v4sigma3lapl[2] = 0.0e0;
8753 
8754   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8755     v4sigma3lapl[3] = 0.0e0;
8756 
8757   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8758     v4sigma3lapl[4] = 0.0e0;
8759 
8760   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8761     v4sigma3lapl[5] = 0.0e0;
8762 
8763   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8764     v4sigma3lapl[6] = 0.0e0;
8765 
8766   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8767     v4sigma3lapl[7] = 0.0e0;
8768 
8769   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8770     v4sigma3lapl[8] = 0.0e0;
8771 
8772   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8773     v4sigma3lapl[9] = 0.0e0;
8774 
8775   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8776     v4sigma3lapl[10] = 0.0e0;
8777 
8778   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8779     v4sigma3lapl[11] = 0.0e0;
8780 
8781   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8782     v4sigma3lapl[12] = 0.0e0;
8783 
8784   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8785     v4sigma3lapl[13] = 0.0e0;
8786 
8787   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8788     v4sigma3lapl[14] = 0.0e0;
8789 
8790   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8791     v4sigma3lapl[15] = 0.0e0;
8792 
8793   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8794     v4sigma3lapl[16] = 0.0e0;
8795 
8796   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8797     v4sigma3lapl[17] = 0.0e0;
8798 
8799   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8800     v4sigma3lapl[18] = 0.0e0;
8801 
8802   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8803     v4sigma3lapl[19] = 0.0e0;
8804 
8805   t16353 = 0.3e1 * t30 * t1595 * t1758 * t41 + t30 * t4985 * t620 * t41 + 0.3e1 * t30 * t1603 * t1758 * t41 + t30 * t4971 * t620 * t41 + 0.9e1 / 0.512e3 * t4240 * t3869 - 0.3e1 / 0.4096e4 * t1410 * t13252 - 0.9e1 / 0.512e3 * t3844 * t4260 + t13237 * t1413 / 0.16e2 - 0.9e1 / 0.512e3 * t3856 * t4260 + 0.9e1 / 0.4096e4 * t1153 * t13758 + 0.9e1 / 0.512e3 * t1410 * t13225 + 0.3e1 / 0.8e1 * t3844 * t4270 + t13228 * t1413 / 0.16e2 + 0.3e1 / 0.8e1 * t3856 * t4270 - 0.45e2 / 0.512e3 * t1153 * t13761;
8806   t16394 = -0.3e1 / 0.16e2 * t1153 * t13777 + t3850 * t615 * t1601 * t41 / 0.8e1 - 0.3e1 / 0.8e1 * t30 * t488 * params->BLOC_b * t5176 - 0.3e1 / 0.8e1 * t13743 * t1157 + 0.9e1 / 0.512e3 * t4227 * t3869 + 0.3e1 / 0.16e2 * t10090 * t34 * t624 * t1603 - 0.3e1 / 0.16e2 * t13733 * t1157 - 0.3e1 / 0.16e2 * t13740 * t1157 - 0.15e2 / 0.131072e6 * t6039 * t2965 * t5689 + 0.3e1 * t1153 * t5167 + 0.3e1 / 0.128e3 * t3850 * t4780 * t276 + 0.27e2 / 0.4096e4 * t2092 * t2969 * t3407 - 0.9e1 / 0.128e3 * t770 * t2900 * t1418 - 0.3e1 / 0.16e2 * t4240 * t1612 + 0.3e1 / 0.8e1 * t1153 * t5199;
8807   t16415 = t3437 * params->b;
8808   t16421 = t86 * t1625;
8809   t16425 = t2142 * t1784;
8810   t16434 = -0.45e2 / 0.32e2 * t632 * t13131 + 0.675e3 / 0.256e3 * t5214 * t16096 + 0.135e3 / 0.256e3 * t514 * t13880 - 0.225e3 / 0.2048e4 * t5010 * t16415 + 0.567e3 / 0.64e2 * t5920 * t641 * t5013 + 0.675e3 / 0.128e3 * t9974 * t1789 * t16421 - 0.675e3 / 0.1024e4 * t16425 * t5018 - 0.1125e4 / 0.1024e4 * t16106 / t52 / t339 * t44 * t16111;
8811   t16445 = 0.73e2 / 0.100e3 * t1211 * t651 + (t16353 + t16394) * t44 * t55 / 0.24e2 + t5203 * t499 / 0.8e1 + 0.73e2 / 0.600e3 * t13289 * t625 + 0.292e3 / 0.2025e4 * t5021 * t644 + 0.292e3 / 0.675e3 * t1632 * t1793 + 0.292e3 / 0.675e3 * t516 * t5229 + 0.292e3 / 0.2025e4 * t80 * t16434 - 0.73e2 / 0.97200e5 * t16434 * t96 + 0.73e2 / 0.129600e6 * t11064 * t1639 - 0.73e2 / 0.259200e6 * t8984 * t5032 + 0.73e2 / 0.129600e6 * t3469 * t5035;
8812   t16472 = -0.73e2 / 0.64800e5 * t13923 * t525 - 0.73e2 / 0.64800e5 * t4328 * t1644 - 0.73e2 / 0.200e3 * t841 * t1802 - 0.73e2 / 0.200e3 * t4358 * t5251 - 0.73e2 / 0.400e3 * t13986 * t1802 + 0.73e2 / 0.100e3 * t3932 * t1769 - 0.73e2 / 0.400e3 * t4340 * t5251 - 0.73e2 / 0.320e3 * t8967 * t651 * t5032 + 0.219e3 / 0.400e3 * t11175 * t5246 + 0.219e3 / 0.800e3 * t3481 * t651 * t5035 + 0.219e3 / 0.800e3 * t11180 * t5246 - 0.73e2 / 0.100e3 * t13968 * t1802;
8813   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8814     v4sigma3tau[0] = t1816 * t9014 * t5047 / 0.256e3 + 0.3e1 / 0.4e1 * t1393 * t1394 * t1387 * t5050 - 0.27e2 / 0.4e1 * t1393 * t3332 * t4211 * t1590 + 0.9e1 / 0.4e1 * t1393 * t1394 * t14028 * t543 + 0.9e1 / 0.4e1 * t1393 * t1394 * t4211 * t1663 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t16445 + t16472) * t126 + 0.9e1 * t1393 * t8721 * t1387 * t4962 - 0.27e2 / 0.4e1 * t1393 * t4191 * t4187 * t1663 + 0.9e1 / 0.16e2 * t8645 * t1477 * t1590 * t1818 - 0.3e1 / 0.8e1 * t3510 * t4372 * t543 * t1818 - 0.3e1 / 0.16e2 * t3510 * t1477 * t1663 * t1818 + 0.3e1 / 0.128e3 * t3510 * t3525 * t543 * t5270 + 0.3e1 / 0.32e2 * t1816 * t5259 * t347 * t1818 - 0.3e1 / 0.256e3 * t1816 * t1810 * t873 * t5270;
8815 
8816   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8817     v4sigma3tau[1] = 0.0e0;
8818 
8819   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8820     v4sigma3tau[2] = 0.0e0;
8821 
8822   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8823     v4sigma3tau[3] = 0.0e0;
8824 
8825   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8826     v4sigma3tau[4] = 0.0e0;
8827 
8828   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8829     v4sigma3tau[5] = 0.0e0;
8830 
8831   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8832     v4sigma3tau[6] = 0.0e0;
8833 
8834   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8835     v4sigma3tau[7] = 0.0e0;
8836 
8837   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8838     v4sigma3tau[8] = 0.0e0;
8839 
8840   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8841     v4sigma3tau[9] = 0.0e0;
8842 
8843   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8844     v4sigma3tau[10] = 0.0e0;
8845 
8846   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8847     v4sigma3tau[11] = 0.0e0;
8848 
8849   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8850     v4sigma3tau[12] = 0.0e0;
8851 
8852   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8853     v4sigma3tau[13] = 0.0e0;
8854 
8855   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8856     v4sigma3tau[14] = 0.0e0;
8857 
8858   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8859     v4sigma3tau[15] = 0.0e0;
8860 
8861   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8862     v4sigma3tau[16] = 0.0e0;
8863 
8864   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8865     v4sigma3tau[17] = 0.0e0;
8866 
8867   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8868     v4sigma3tau[18] = 0.0e0;
8869 
8870   t16584 = t152 * t5064 * t665 * t163 + 0.3e1 * t152 * t1673 * t1834 * t163 + t152 * t5078 * t665 * t163 + 0.3e1 * t152 * t1681 * t1834 * t163 + 0.27e2 / 0.4096e4 * t2575 * t3202 * t3663 - 0.9e1 / 0.128e3 * t1012 * t3139 * t1527 - 0.3e1 / 0.16e2 * t4482 * t1690 + 0.3e1 / 0.8e1 * t1283 * t5326 + 0.3e1 * t1283 * t5294 + 0.3e1 / 0.128e3 * t4043 * t4948 * t394 - 0.15e2 / 0.131072e6 * t7358 * t3198 * t5782 + 0.9e1 / 0.512e3 * t4482 * t4062 - 0.3e1 / 0.4096e4 * t1519 * t13545 - 0.9e1 / 0.512e3 * t4037 * t4502 + t13530 * t1522 / 0.16e2;
8871   t16621 = -0.9e1 / 0.512e3 * t4049 * t4502 + 0.9e1 / 0.4096e4 * t1283 * t14309 + t13515 * t1522 / 0.16e2 + 0.3e1 / 0.8e1 * t4049 * t4512 - 0.45e2 / 0.512e3 * t1283 * t14312 - 0.3e1 / 0.16e2 * t1283 * t14322 + t4043 * t660 * t1679 * t163 / 0.8e1 + 0.9e1 / 0.512e3 * t1519 * t13549 + 0.3e1 / 0.8e1 * t4037 * t4512 + 0.9e1 / 0.512e3 * t4469 * t4062 + 0.3e1 / 0.16e2 * t10416 * t156 * t669 * t1681 - 0.3e1 / 0.16e2 * t14250 * t1287 - 0.3e1 / 0.16e2 * t14258 * t1287 - 0.3e1 / 0.8e1 * t152 * t555 * params->BLOC_b * t5303 - 0.3e1 / 0.8e1 * t14261 * t1287;
8872   t16634 = -0.73e2 / 0.400e3 * t14452 * t1878 + 0.73e2 / 0.100e3 * t4125 * t1845 - 0.73e2 / 0.400e3 * t4582 * t5378 - 0.73e2 / 0.200e3 * t1083 * t1878 - 0.73e2 / 0.200e3 * t4600 * t5378 + 0.73e2 / 0.600e3 * t13591 * t670 + 0.73e2 / 0.100e3 * t1341 * t696 + (t16584 + t16621) * t44 * t172 / 0.24e2 + t5330 * t566 / 0.8e1 + 0.292e3 / 0.2025e4 * t5114 * t689 + 0.292e3 / 0.675e3 * t1710 * t1869 + 0.292e3 / 0.675e3 * t583 * t5356;
8873   t16641 = t3693 * params->b;
8874   t16647 = t86 * t1703;
8875   t16651 = t2625 * t1860;
8876   t16660 = -0.45e2 / 0.32e2 * t677 * t13421 + 0.675e3 / 0.256e3 * t5341 * t16238 + 0.135e3 / 0.256e3 * t581 * t14371 - 0.225e3 / 0.2048e4 * t5103 * t16641 + 0.567e3 / 0.64e2 * t7263 * t686 * t5106 + 0.675e3 / 0.128e3 * t10657 * t1865 * t16647 - 0.675e3 / 0.1024e4 * t16651 * t5111 - 0.1125e4 / 0.1024e4 * t16247 / t169 / t457 * t44 * t16111;
8877   t16687 = 0.292e3 / 0.2025e4 * t196 * t16660 - 0.73e2 / 0.97200e5 * t16660 * t208 - 0.73e2 / 0.64800e5 * t14475 * t592 - 0.73e2 / 0.64800e5 * t4570 * t1722 + 0.73e2 / 0.129600e6 * t12006 * t1717 - 0.73e2 / 0.259200e6 * t9594 * t5125 + 0.73e2 / 0.129600e6 * t3725 * t5128 - 0.73e2 / 0.320e3 * t9672 * t696 * t5125 + 0.219e3 / 0.400e3 * t11723 * t5373 + 0.219e3 / 0.800e3 * t3737 * t696 * t5128 + 0.219e3 / 0.800e3 * t11728 * t5373 - 0.73e2 / 0.100e3 * t14457 * t1878;
8878   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8879     v4sigma3tau[19] = t1892 * t9829 * t5139 / 0.256e3 - 0.27e2 / 0.4e1 * t1502 * t3774 * t4408 * t1668 + 0.9e1 / 0.4e1 * t1502 * t1503 * t14111 * t610 + 0.9e1 / 0.4e1 * t1502 * t1503 * t4408 * t1741 + 0.3e1 / 0.4e1 * t1502 * t1503 * t1487 * t5142 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t16634 + t16687) * t231 + 0.9e1 * t1502 * t9570 * t1487 * t5055 - 0.27e2 / 0.4e1 * t1502 * t4436 * t4402 * t1741 + 0.9e1 / 0.16e2 * t9463 * t1585 * t1668 * t1894 - 0.3e1 / 0.8e1 * t3767 * t4614 * t610 * t1894 - 0.3e1 / 0.16e2 * t3767 * t1585 * t1741 * t1894 + 0.3e1 / 0.128e3 * t3767 * t3809 * t610 * t5396 + 0.3e1 / 0.32e2 * t1892 * t5386 * t465 * t1894 - 0.3e1 / 0.256e3 * t1892 * t1886 * t1115 * t5396;
8880 
8881   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8882     v4sigma2lapl2[0] = 0.0e0;
8883 
8884   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8885     v4sigma2lapl2[1] = 0.0e0;
8886 
8887   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8888     v4sigma2lapl2[2] = 0.0e0;
8889 
8890   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8891     v4sigma2lapl2[3] = 0.0e0;
8892 
8893   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8894     v4sigma2lapl2[4] = 0.0e0;
8895 
8896   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8897     v4sigma2lapl2[5] = 0.0e0;
8898 
8899   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8900     v4sigma2lapl2[6] = 0.0e0;
8901 
8902   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8903     v4sigma2lapl2[7] = 0.0e0;
8904 
8905   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8906     v4sigma2lapl2[8] = 0.0e0;
8907 
8908   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8909     v4sigma2lapl2[9] = 0.0e0;
8910 
8911   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8912     v4sigma2lapl2[10] = 0.0e0;
8913 
8914   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8915     v4sigma2lapl2[11] = 0.0e0;
8916 
8917   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8918     v4sigma2lapl2[12] = 0.0e0;
8919 
8920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8921     v4sigma2lapl2[13] = 0.0e0;
8922 
8923   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8924     v4sigma2lapl2[14] = 0.0e0;
8925 
8926   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8927     v4sigma2lapl2[15] = 0.0e0;
8928 
8929   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8930     v4sigma2lapl2[16] = 0.0e0;
8931 
8932   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8933     v4sigma2lapl2[17] = 0.0e0;
8934 
8935   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8936     v4sigma2lapltau[0] = 0.0e0;
8937 
8938   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8939     v4sigma2lapltau[1] = 0.0e0;
8940 
8941   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8942     v4sigma2lapltau[2] = 0.0e0;
8943 
8944   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8945     v4sigma2lapltau[3] = 0.0e0;
8946 
8947   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8948     v4sigma2lapltau[4] = 0.0e0;
8949 
8950   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8951     v4sigma2lapltau[5] = 0.0e0;
8952 
8953   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8954     v4sigma2lapltau[6] = 0.0e0;
8955 
8956   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8957     v4sigma2lapltau[7] = 0.0e0;
8958 
8959   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8960     v4sigma2lapltau[8] = 0.0e0;
8961 
8962   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8963     v4sigma2lapltau[9] = 0.0e0;
8964 
8965   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8966     v4sigma2lapltau[10] = 0.0e0;
8967 
8968   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8969     v4sigma2lapltau[11] = 0.0e0;
8970 
8971   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8972     v4sigma2lapltau[12] = 0.0e0;
8973 
8974   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8975     v4sigma2lapltau[13] = 0.0e0;
8976 
8977   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8978     v4sigma2lapltau[14] = 0.0e0;
8979 
8980   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8981     v4sigma2lapltau[15] = 0.0e0;
8982 
8983   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8984     v4sigma2lapltau[16] = 0.0e0;
8985 
8986   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8987     v4sigma2lapltau[17] = 0.0e0;
8988 
8989   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8990     v4sigma2lapltau[18] = 0.0e0;
8991 
8992   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8993     v4sigma2lapltau[19] = 0.0e0;
8994 
8995   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8996     v4sigma2lapltau[20] = 0.0e0;
8997 
8998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8999     v4sigma2lapltau[21] = 0.0e0;
9000 
9001   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9002     v4sigma2lapltau[22] = 0.0e0;
9003 
9004   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9005     v4sigma2lapltau[23] = 0.0e0;
9006 
9007   t16742 = t1809 * t1809;
9008   t16830 = t30 * t1595 * t1904 * t41 + t30 * t1595 * t1914 * t41 - 0.3e1 / 0.8e1 * t30 * t1611 * t775 + t30 * t1603 * t1904 * t41 + t30 * t1603 * t1914 * t41 + 0.2e1 * t30 * t488 * t5432 * t41 + t13733 * t1413 / 0.8e1 - t14736 * t1157 / 0.8e1 - t12306 * t1758 * sigma[0] * t107 / 0.4e1 - t622 * t482 * t36 * t486 / 0.4e1 - t14749 * t1157 / 0.8e1 + t13740 * t1413 / 0.8e1 + t13743 * t1413 / 0.4e1 - 0.3e1 / 0.128e3 * t4227 * t4260 + t4227 * t4270 / 0.2e1 - t3850 * t15643 * t1156 / 0.64e2 - 0.3e1 / 0.128e3 * t4240 * t4260 + 0.3e1 / 0.2048e4 * t1410 * t13758 + 0.21e2 / 0.256e3 * t1153 * t14777;
9009   t16864 = t780 * t1921;
9010   t16873 = t1758 * t1758;
9011   t16877 = 0.3e1 / 0.512e3 * t3844 * t4701 - 0.3e1 / 0.4e1 * t1153 * t14782 - 0.3e1 / 0.16e2 * t3844 * t4713 + t4240 * t4270 / 0.2e1 - 0.15e2 / 0.256e3 * t1410 * t13761 + 0.3e1 / 0.512e3 * t3856 * t4701 - 0.3e1 / 0.2048e4 * t1153 * t14809 - 0.3e1 / 0.16e2 * t3856 * t4713 + 0.3e1 / 0.512e3 * t4675 * t3869 + t3850 * t1907 * t5175 / 0.4e1 - t14785 * t1157 / 0.8e1 + 0.3e1 / 0.512e3 * t4689 * t3869 + 0.4e1 * t1153 * t5419 + 0.15e2 / 0.131072e6 * t6039 * t3405 * t12326 - 0.9e1 / 0.1024e4 * t2092 * t773 * t4706 + 0.81e2 / 0.512e3 * t770 * t16864 - t4675 * t1612 / 0.16e2 - t4689 * t1612 / 0.16e2 + t1410 * t5199 / 0.4e1 + 0.2e1 * t30 * t16873 * t41;
9012   t16882 = t1793 * t1793;
9013   t16897 = t2142 * t1936;
9014   t16909 = -0.45e2 / 0.16e2 * t4293 * t13880 - 0.225e3 / 0.16e2 * t5471 * t16096 + 0.225e3 / 0.128e3 * t5214 * t16415 + 0.45e2 / 0.128e3 * t514 * t14676 + 0.567e3 / 0.64e2 * t5920 * t1936 * t1625 + 0.225e3 / 0.32e2 * t16425 * t5480 - 0.225e3 / 0.1024e4 * t16897 * t5018 + 0.1125e4 / 0.128e3 * t16106 / t52 / t115 * t44 * t16111 - 0.225e3 / 0.16e2 * t9974 * t1941 * t16421;
9015   t16936 = 0.292e3 / 0.2025e4 * t1632 * t1945 + 0.73e2 / 0.150e3 * t1454 * t651 + (t16830 + t16877) * t44 * t55 / 0.24e2 + 0.584e3 / 0.2025e4 * t16882 + 0.292e3 / 0.2025e4 * t80 * t16909 - 0.73e2 / 0.200e3 * t3932 * t1925 + 0.73e2 / 0.75e2 * t4328 * t1769 + 0.3942e4 / 0.25e2 * t2981 * t5451 + 0.5913e4 / 0.25e2 * t841 * t16864 - 0.73e2 / 0.50e2 * t1211 * t5456 + 0.73e2 / 0.300e3 * t13923 * t625 + 0.73e2 / 0.400e3 * t12436 * t5246 - 0.73e2 / 0.150e3 * t14917 * t1802 + 0.5913e4 / 0.80e2 * t12423 * t4700 * t1639 - 0.5913e4 / 0.25e2 * t14910 * t5501 - 0.219e3 / 0.800e3 * t3481 * t1956 * t1639;
9016   t16973 = 0.73e2 / 0.100e3 * t4358 * t5508 - 0.73e2 / 0.97200e5 * t14927 * t525 - 0.5913e4 / 0.200e3 * t4767 * t4700 * t1644 + 0.73e2 / 0.200e3 * t4340 * t5508 + 0.73e2 / 0.400e3 * t1459 * t1956 * t1644 - 0.73e2 / 0.600e3 * t4760 * t5251 - 0.5913e4 / 0.100e3 * t14902 * t5501 - 0.73e2 / 0.300e3 * t14890 * t1802 + t5460 * t499 / 0.12e2 + 0.73e2 / 0.388800e6 * t12416 * t1639 + t1650 * t775 / 0.60e2 - 0.73e2 / 0.194400e6 * t4755 * t1644 - 0.73e2 / 0.97200e5 * t16909 * t96 + 0.584e3 / 0.2025e4 * t644 * t5229 + 0.584e3 / 0.2025e4 * t516 * t5486 + 0.1971e4 / 0.100e3 * t9898 * t1922 - 0.73e2 / 0.100e3 * t322 * t1956;
9017   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9018     v4sigma2tau2[0] = 0.9e1 * t1393 * t8721 * t4641 * t1590 - 0.9e1 * t1393 * t4191 * t14624 * t1809 + 0.3e1 / 0.4e1 * t8645 * t4653 * t543 * t1818 - 0.9e1 / 0.4e1 * t1393 * t3332 * t4641 * t1663 + 0.3e1 / 0.2e1 * t480 * t481 * t744 * t16742 * t873 - t3510 * t12535 * t1809 * t1818 / 0.2e1 + 0.3e1 / 0.2e1 * t1393 * t1394 * t3525 * t5258 + 0.5e1 / 0.192e3 * t1816 * t1899 * t5653 * t5270 - 0.9e1 / 0.4e1 * t1393 * t3332 * t4660 * t1590 + 0.3e1 / 0.2e1 * t1393 * t1394 * t14964 * t543 - t3510 * t4789 * t543 * t1818 / 0.8e1 + 0.3e1 / 0.4e1 * t1393 * t1394 * t4660 * t1663 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t16936 + t16973) * t126 + t1816 * t5516 * t347 * t1818 / 0.16e2 - t1816 * t1960 * t873 * t5270 / 0.256e3;
9019 
9020   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9021     v4sigma2tau2[1] = 0.0e0;
9022 
9023   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9024     v4sigma2tau2[2] = 0.0e0;
9025 
9026   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9027     v4sigma2tau2[3] = 0.0e0;
9028 
9029   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9030     v4sigma2tau2[4] = 0.0e0;
9031 
9032   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9033     v4sigma2tau2[5] = 0.0e0;
9034 
9035   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9036     v4sigma2tau2[6] = 0.0e0;
9037 
9038   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9039     v4sigma2tau2[7] = 0.0e0;
9040 
9041   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9042     v4sigma2tau2[8] = 0.0e0;
9043 
9044   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9045     v4sigma2tau2[9] = 0.0e0;
9046 
9047   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9048     v4sigma2tau2[10] = 0.0e0;
9049 
9050   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9051     v4sigma2tau2[11] = 0.0e0;
9052 
9053   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9054     v4sigma2tau2[12] = 0.0e0;
9055 
9056   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9057     v4sigma2tau2[13] = 0.0e0;
9058 
9059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9060     v4sigma2tau2[14] = 0.0e0;
9061 
9062   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9063     v4sigma2tau2[15] = 0.0e0;
9064 
9065   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9066     v4sigma2tau2[16] = 0.0e0;
9067 
9068   t17004 = t1885 * t1885;
9069   t17051 = t2625 * t2003;
9070   t17063 = -0.45e2 / 0.16e2 * t4535 * t14371 - 0.225e3 / 0.16e2 * t5596 * t16238 + 0.225e3 / 0.128e3 * t5341 * t16641 + 0.45e2 / 0.128e3 * t581 * t15309 + 0.567e3 / 0.64e2 * t7263 * t2003 * t1703 + 0.225e3 / 0.32e2 * t16651 * t5605 - 0.225e3 / 0.1024e4 * t17051 * t5111 + 0.1125e4 / 0.128e3 * t16247 / t169 / t221 * t44 * t16111 - 0.225e3 / 0.16e2 * t10657 * t2008 * t16647;
9071   t17070 = t1869 * t1869;
9072   t17120 = 0.2e1 * t152 * t555 * t5557 * t163 + t152 * t1681 * t1971 * t163 + t152 * t1681 * t1981 * t163 + t4043 * t1974 * t5302 / 0.4e1 - t15161 * t1287 / 0.8e1 + 0.3e1 / 0.512e3 * t4857 * t4062 + t4482 * t4512 / 0.2e1 - 0.15e2 / 0.256e3 * t1519 * t14312 + 0.21e2 / 0.256e3 * t1283 * t15151 + 0.3e1 / 0.512e3 * t4037 * t4869 - 0.3e1 / 0.4e1 * t1283 * t15156 - 0.3e1 / 0.16e2 * t4037 * t4881 - 0.3e1 / 0.16e2 * t4049 * t4881 - t4043 * t15881 * t1286 / 0.64e2 - 0.3e1 / 0.128e3 * t4482 * t4502 + 0.3e1 / 0.2048e4 * t1519 * t14309 + 0.3e1 / 0.512e3 * t4049 * t4869 - 0.3e1 / 0.2048e4 * t1283 * t15198 + 0.3e1 / 0.512e3 * t4843 * t4062;
9073   t17143 = t1834 * t1834;
9074   t17168 = t1022 * t1988;
9075   t17173 = t4469 * t4512 / 0.2e1 + t14250 * t1522 / 0.8e1 - t15261 * t1287 / 0.8e1 - t12811 * t1834 * sigma[2] * t216 / 0.4e1 - t667 * t549 * t158 * t553 / 0.4e1 - t15274 * t1287 / 0.8e1 + t14258 * t1522 / 0.8e1 + t14261 * t1522 / 0.4e1 - 0.3e1 / 0.128e3 * t4469 * t4502 + 0.2e1 * t152 * t17143 * t163 + t152 * t1673 * t1971 * t163 + t152 * t1673 * t1981 * t163 - 0.3e1 / 0.8e1 * t152 * t1689 * t1017 - t4857 * t1690 / 0.16e2 + 0.4e1 * t1283 * t5544 + 0.15e2 / 0.131072e6 * t7358 * t3661 * t12871 + t1519 * t5326 / 0.4e1 - 0.9e1 / 0.1024e4 * t2575 * t1015 * t4874 + 0.81e2 / 0.512e3 * t1012 * t17168 - t4843 * t1690 / 0.16e2;
9076   t17196 = -0.73e2 / 0.97200e5 * t17063 * t208 + 0.292e3 / 0.2025e4 * t196 * t17063 + 0.584e3 / 0.2025e4 * t583 * t5611 + 0.584e3 / 0.2025e4 * t17070 + 0.292e3 / 0.2025e4 * t1710 * t2012 + 0.584e3 / 0.2025e4 * t689 * t5356 + (t17120 + t17173) * t44 * t172 / 0.24e2 - 0.73e2 / 0.100e3 * t440 * t2023 + 0.1971e4 / 0.100e3 * t10599 * t1989 - 0.73e2 / 0.200e3 * t4125 * t1992 + 0.73e2 / 0.300e3 * t14475 * t670 + t5585 * t566 / 0.12e2 + 0.73e2 / 0.150e3 * t1563 * t696 - 0.73e2 / 0.97200e5 * t15432 * t592 - 0.73e2 / 0.194400e6 * t4923 * t1722 - 0.73e2 / 0.50e2 * t1341 * t5581;
9077   t17235 = 0.3942e4 / 0.25e2 * t3220 * t5576 + 0.5913e4 / 0.25e2 * t1083 * t17168 + 0.73e2 / 0.388800e6 * t12973 * t1717 + t1728 * t1017 / 0.60e2 + 0.73e2 / 0.75e2 * t4570 * t1845 - 0.5913e4 / 0.25e2 * t15420 * t5626 + 0.73e2 / 0.400e3 * t1568 * t2023 * t1722 - 0.219e3 / 0.800e3 * t3737 * t2023 * t1717 + 0.73e2 / 0.100e3 * t4600 * t5633 + 0.73e2 / 0.400e3 * t12963 * t5373 - 0.73e2 / 0.150e3 * t15399 * t1878 + 0.5913e4 / 0.80e2 * t12947 * t4868 * t1717 - 0.73e2 / 0.600e3 * t4928 * t5378 - 0.5913e4 / 0.100e3 * t15425 * t5626 - 0.5913e4 / 0.200e3 * t4935 * t4868 * t1722 + 0.73e2 / 0.200e3 * t4582 * t5633 - 0.73e2 / 0.300e3 * t15404 * t1878;
9078   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9079     v4sigma2tau2[17] = 0.9e1 * t1502 * t9570 * t4795 * t1668 - 0.9e1 * t1502 * t4436 * t15022 * t1885 + 0.3e1 / 0.4e1 * t9463 * t4824 * t610 * t1894 - 0.9e1 / 0.4e1 * t1502 * t3774 * t4795 * t1741 + 0.3e1 / 0.2e1 * t480 * t548 * t986 * t17004 * t1115 - t3767 * t13066 * t1885 * t1894 / 0.2e1 + 0.3e1 / 0.2e1 * t1502 * t1503 * t3809 * t5385 + 0.5e1 / 0.192e3 * t1892 * t1966 * t5746 * t5396 - 0.9e1 / 0.4e1 * t1502 * t3774 * t4801 * t1668 + 0.3e1 / 0.2e1 * t1502 * t1503 * t15043 * t610 - t3767 * t4957 * t610 * t1894 / 0.8e1 + 0.3e1 / 0.4e1 * t1502 * t1503 * t4801 * t1741 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t17196 + t17235) * t231 + t1892 * t5641 * t465 * t1894 / 0.16e2 - t1892 * t2027 * t1115 * t5396 / 0.256e3;
9080 
9081   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9082     v4sigmalapl3[0] = 0.0e0;
9083 
9084   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9085     v4sigmalapl3[1] = 0.0e0;
9086 
9087   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9088     v4sigmalapl3[2] = 0.0e0;
9089 
9090   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9091     v4sigmalapl3[3] = 0.0e0;
9092 
9093   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9094     v4sigmalapl3[4] = 0.0e0;
9095 
9096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9097     v4sigmalapl3[5] = 0.0e0;
9098 
9099   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9100     v4sigmalapl3[6] = 0.0e0;
9101 
9102   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9103     v4sigmalapl3[7] = 0.0e0;
9104 
9105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9106     v4sigmalapl3[8] = 0.0e0;
9107 
9108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9109     v4sigmalapl3[9] = 0.0e0;
9110 
9111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9112     v4sigmalapl3[10] = 0.0e0;
9113 
9114   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9115     v4sigmalapl3[11] = 0.0e0;
9116 
9117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9118     v4sigmalapl2tau[0] = 0.0e0;
9119 
9120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9121     v4sigmalapl2tau[1] = 0.0e0;
9122 
9123   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9124     v4sigmalapl2tau[2] = 0.0e0;
9125 
9126   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9127     v4sigmalapl2tau[3] = 0.0e0;
9128 
9129   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9130     v4sigmalapl2tau[4] = 0.0e0;
9131 
9132   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9133     v4sigmalapl2tau[5] = 0.0e0;
9134 
9135   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9136     v4sigmalapl2tau[6] = 0.0e0;
9137 
9138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9139     v4sigmalapl2tau[7] = 0.0e0;
9140 
9141   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9142     v4sigmalapl2tau[8] = 0.0e0;
9143 
9144   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9145     v4sigmalapl2tau[9] = 0.0e0;
9146 
9147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9148     v4sigmalapl2tau[10] = 0.0e0;
9149 
9150   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9151     v4sigmalapl2tau[11] = 0.0e0;
9152 
9153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9154     v4sigmalapl2tau[12] = 0.0e0;
9155 
9156   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9157     v4sigmalapl2tau[13] = 0.0e0;
9158 
9159   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9160     v4sigmalapl2tau[14] = 0.0e0;
9161 
9162   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9163     v4sigmalapl2tau[15] = 0.0e0;
9164 
9165   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9166     v4sigmalapl2tau[16] = 0.0e0;
9167 
9168   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9169     v4sigmalapl2tau[17] = 0.0e0;
9170 
9171   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9172     v4sigmalapltau2[0] = 0.0e0;
9173 
9174   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9175     v4sigmalapltau2[1] = 0.0e0;
9176 
9177   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9178     v4sigmalapltau2[2] = 0.0e0;
9179 
9180   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9181     v4sigmalapltau2[3] = 0.0e0;
9182 
9183   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9184     v4sigmalapltau2[4] = 0.0e0;
9185 
9186   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9187     v4sigmalapltau2[5] = 0.0e0;
9188 
9189   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9190     v4sigmalapltau2[6] = 0.0e0;
9191 
9192   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9193     v4sigmalapltau2[7] = 0.0e0;
9194 
9195   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9196     v4sigmalapltau2[8] = 0.0e0;
9197 
9198   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9199     v4sigmalapltau2[9] = 0.0e0;
9200 
9201   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9202     v4sigmalapltau2[10] = 0.0e0;
9203 
9204   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9205     v4sigmalapltau2[11] = 0.0e0;
9206 
9207   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9208     v4sigmalapltau2[12] = 0.0e0;
9209 
9210   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9211     v4sigmalapltau2[13] = 0.0e0;
9212 
9213   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9214     v4sigmalapltau2[14] = 0.0e0;
9215 
9216   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9217     v4sigmalapltau2[15] = 0.0e0;
9218 
9219   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9220     v4sigmalapltau2[16] = 0.0e0;
9221 
9222   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9223     v4sigmalapltau2[17] = 0.0e0;
9224 
9225   t17303 = -0.135e3 / 0.32e2 * t4293 * t14676 - 0.675e3 / 0.32e2 * t5471 * t16415 + 0.225e3 / 0.4e1 * t5707 * t16096 + 0.45e2 / 0.256e3 * t502 * t15654 + 0.567e3 / 0.64e2 * t5920 * t5710 * t511 + 0.675e3 / 0.128e3 * t16897 * t5480 - 0.675e3 / 0.16e2 * t13909 * t5483 - 0.1125e4 / 0.16e2 * t16106 / t52 / t846 * t44 * t16111;
9226   t17331 = t5447 * t5689;
9227   t17334 = -0.73e2 / 0.97200e5 * t17303 * t96 - t532 * t5734 / 0.15e2 + 0.292e3 / 0.2025e4 * t80 * t17303 + 0.292e3 / 0.675e3 * t1793 * t1945 - 0.478953e6 / 0.20e2 * t15698 * t15584 * t525 + 0.53217e5 / 0.200e3 * t4767 * t15588 * t525 - 0.73e2 / 0.100e3 * t1459 * t5734 * t525 - 0.17739e5 / 0.200e3 * t15708 * t5501 + 0.219e3 / 0.400e3 * t4760 * t5508 - 0.73e2 / 0.400e3 * t15705 * t1802 + 0.292e3 / 0.2025e4 * t516 * t5717 + 0.292e3 / 0.675e3 * t644 * t5486 + 0.1436859e7 / 0.25e2 * t2178 * t17331;
9228   t17335 = t1765 * t3407;
9229   t17338 = t491 * t1418;
9230   t17381 = 0.3e1 * t1153 * t5665 - 0.15e2 / 0.131072e6 * t6039 * t7708 * t116 * t15580 + 0.45e2 / 0.4096e4 * t2092 * t17331 - 0.9e1 / 0.32e2 * t770 * t17335 + 0.3e1 / 0.2e1 * t277 * t17338 - t15595 * t1157 / 0.16e2 - 0.9e1 / 0.512e3 * t4675 * t4260 - t15601 * t1157 / 0.16e2 + 0.3e1 / 0.16e2 * t14785 * t1413 - 0.9e1 / 0.512e3 * t4689 * t4260 + 0.9e1 / 0.512e3 * t4240 * t4701 - 0.9e1 / 0.4096e4 * t1410 * t14809 - 0.9e1 / 0.16e2 * t4240 * t4713 + 0.3e1 / 0.4096e4 * t1153 * t15585 - 0.27e2 / 0.512e3 * t1153 * t15589 + 0.3e1 / 0.4e1 * t1153 * t15592;
9231   t17429 = 0.3e1 / 0.8e1 * t4689 * t4270 + 0.63e2 / 0.512e3 * t1410 * t14777 - 0.9e1 / 0.8e1 * t1410 * t14782 + 0.3e1 / 0.8e1 * t4675 * t4270 - 0.3e1 / 0.16e2 * t12306 * t1914 * sigma[0] * t107 + 0.3e1 / 0.8e1 * t12306 * t34 * t624 * t1758 + 0.3e1 / 0.16e2 * t14736 * t1413 + 0.3e1 / 0.16e2 * t14749 * t1413 + 0.9e1 / 0.512e3 * t4227 * t4701 - 0.9e1 / 0.16e2 * t4227 * t4713 + 0.3e1 * t30 * t1905 * t1758 + t30 * t488 * t5662 * t41 + 0.3e1 * t30 * t1759 * t1914 + 0.3e1 * t30 * t621 * t5432 + t30 * t488 * t5678 * t41 + t30 * (-0.3e1 / 0.4e1 * t482 * t775 * t267 - 0.17e2 / 0.8e1 * t482 * t775) * t41;
9232   t17450 = -0.17739e5 / 0.25e2 * t841 * t17335 + 0.73e2 / 0.25e2 * t322 * t17338 + 0.73e2 / 0.100e3 * t4755 * t1769 + 0.5913e4 / 0.25e2 * t3469 * t5451 - 0.219e3 / 0.100e3 * t1454 * t5456 + (t17381 + t17429) * t44 * t55 / 0.24e2 - 0.219e3 / 0.200e3 * t4328 * t1925 + 0.478953e6 / 0.50e2 * t7876 * t5690 - 0.17739e5 / 0.100e3 * t2981 * t5693 + 0.73e2 / 0.50e2 * t1211 * t5696 + 0.5913e4 / 0.100e3 * t11064 * t1922 - 0.73e2 / 0.194400e6 * t15711 * t525 + t5700 * t499 / 0.24e2 + 0.73e2 / 0.200e3 * t14927 * t625;
9233   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9234     v4sigmatau3[0] = 0.9e1 * t1393 * t8721 * t15487 * t543 - 0.27e2 / 0.4e1 * t1393 * t3332 * t12170 * t1809 + 0.9e1 / 0.16e2 * t1816 * t5651 * t15501 * t1818 - 0.27e2 / 0.4e1 * t1393 * t4191 * t12182 * t543 + 0.9e1 / 0.4e1 * t1393 * t1394 * t10832 * t1959 - 0.3e1 / 0.8e1 * t3510 * t12535 * t1959 * t1818 + 0.9e1 / 0.4e1 * t1393 * t1394 * t3525 * t5515 + 0.3e1 / 0.4e1 * t1393 * t1394 * t15531 * t543 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * (t17334 + t17450) * t126 + t1816 * t5738 * t347 * t1818 / 0.32e2;
9235 
9236   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9237     v4sigmatau3[1] = 0.0e0;
9238 
9239   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9240     v4sigmatau3[2] = 0.0e0;
9241 
9242   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9243     v4sigmatau3[3] = 0.0e0;
9244 
9245   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9246     v4sigmatau3[4] = 0.0e0;
9247 
9248   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9249     v4sigmatau3[5] = 0.0e0;
9250 
9251   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9252     v4sigmatau3[6] = 0.0e0;
9253 
9254   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9255     v4sigmatau3[7] = 0.0e0;
9256 
9257   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9258     v4sigmatau3[8] = 0.0e0;
9259 
9260   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9261     v4sigmatau3[9] = 0.0e0;
9262 
9263   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9264     v4sigmatau3[10] = 0.0e0;
9265 
9266   t17493 = t558 * t1527;
9267   t17498 = t5572 * t5782;
9268   t17501 = t1841 * t3663;
9269   t17529 = -0.135e3 / 0.32e2 * t4535 * t15309 - 0.675e3 / 0.32e2 * t5596 * t16641 + 0.225e3 / 0.4e1 * t5800 * t16238 + 0.45e2 / 0.256e3 * t569 * t15846 + 0.567e3 / 0.64e2 * t7263 * t5803 * t578 + 0.675e3 / 0.128e3 * t17051 * t5605 - 0.675e3 / 0.16e2 * t14400 * t5608 - 0.1125e4 / 0.16e2 * t16247 / t169 / t1088 * t44 * t16111;
9270   t17564 = -0.27e2 / 0.512e3 * t1283 * t15948 + 0.3e1 / 0.4e1 * t1283 * t15951 + 0.63e2 / 0.512e3 * t1519 * t15151 - 0.9e1 / 0.8e1 * t1519 * t15156 + 0.3e1 / 0.8e1 * t4843 * t4512 + 0.3e1 / 0.8e1 * t4857 * t4512 - t15954 * t1287 / 0.16e2 - 0.9e1 / 0.512e3 * t4843 * t4502 - t15929 * t1287 / 0.16e2 + 0.3e1 / 0.16e2 * t15161 * t1522 - 0.9e1 / 0.512e3 * t4857 * t4502 + 0.9e1 / 0.512e3 * t4482 * t4869 - 0.9e1 / 0.4096e4 * t1519 * t15198 - 0.9e1 / 0.16e2 * t4482 * t4881 + 0.3e1 / 0.4096e4 * t1283 * t15944 + 0.3e1 / 0.16e2 * t15261 * t1522;
9271   t17614 = 0.3e1 / 0.16e2 * t15274 * t1522 + 0.9e1 / 0.512e3 * t4469 * t4869 - 0.9e1 / 0.16e2 * t4469 * t4881 - 0.3e1 / 0.16e2 * t12811 * t1981 * sigma[2] * t216 + 0.3e1 / 0.8e1 * t12811 * t156 * t669 * t1834 + 0.3e1 * t152 * t1972 * t1834 + t152 * t555 * t5755 * t163 + 0.3e1 * t152 * t1835 * t1981 + 0.3e1 * t152 * t666 * t5557 + t152 * t555 * t5771 * t163 + t152 * (-0.3e1 / 0.4e1 * t549 * t1017 * t385 - 0.17e2 / 0.8e1 * t549 * t1017) * t163 + 0.45e2 / 0.4096e4 * t2575 * t17498 - 0.9e1 / 0.32e2 * t1012 * t17501 + 0.3e1 / 0.2e1 * t395 * t17493 + 0.3e1 * t1283 * t5758 - 0.15e2 / 0.131072e6 * t7358 * t8295 * t222 * t15917;
9272   t17629 = 0.73e2 / 0.25e2 * t440 * t17493 - 0.219e3 / 0.100e3 * t1563 * t5581 + 0.1436859e7 / 0.25e2 * t2661 * t17498 - 0.17739e5 / 0.25e2 * t1083 * t17501 + 0.5913e4 / 0.25e2 * t3725 * t5576 + 0.73e2 / 0.100e3 * t4923 * t1845 - 0.73e2 / 0.97200e5 * t17529 * t208 + (t17564 + t17614) * t44 * t172 / 0.24e2 + 0.292e3 / 0.2025e4 * t196 * t17529 + 0.292e3 / 0.2025e4 * t583 * t5810 + 0.292e3 / 0.675e3 * t689 * t5611 + 0.478953e6 / 0.50e2 * t8468 * t5783 - 0.17739e5 / 0.100e3 * t3220 * t5786;
9273   t17661 = 0.73e2 / 0.50e2 * t1341 * t5789 + 0.292e3 / 0.675e3 * t1869 * t2012 + t5793 * t566 / 0.24e2 + 0.5913e4 / 0.100e3 * t12006 * t1989 - 0.219e3 / 0.200e3 * t4570 * t1992 + 0.73e2 / 0.200e3 * t15432 * t670 - t599 * t5827 / 0.15e2 + 0.53217e5 / 0.200e3 * t4935 * t15947 * t592 - 0.73e2 / 0.100e3 * t1568 * t5827 * t592 + 0.219e3 / 0.400e3 * t4928 * t5633 - 0.478953e6 / 0.20e2 * t15985 * t15943 * t592 - 0.73e2 / 0.400e3 * t15995 * t1878 - 0.17739e5 / 0.200e3 * t15998 * t5626 - 0.73e2 / 0.194400e6 * t15980 * t592;
9274   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9275     v4sigmatau3[11] = 0.9e1 * t1502 * t9570 * t15740 * t610 - 0.27e2 / 0.4e1 * t1502 * t3774 * t12722 * t1885 + 0.9e1 / 0.16e2 * t1892 * t5744 * t15783 * t1894 - 0.27e2 / 0.4e1 * t1502 * t4436 * t12717 * t610 + 0.9e1 / 0.4e1 * t1502 * t1503 * t11634 * t2026 - 0.3e1 / 0.8e1 * t3767 * t13066 * t2026 * t1894 + 0.9e1 / 0.4e1 * t1502 * t1503 * t3809 * t5640 + 0.3e1 / 0.4e1 * t1502 * t1503 * t15753 * t610 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * (t17629 + t17661) * t231 + t1892 * t5831 * t465 * t1894 / 0.32e2;
9276 
9277   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9278     v4lapl4[0] = 0.0e0;
9279 
9280   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9281     v4lapl4[1] = 0.0e0;
9282 
9283   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9284     v4lapl4[2] = 0.0e0;
9285 
9286   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9287     v4lapl4[3] = 0.0e0;
9288 
9289   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9290     v4lapl4[4] = 0.0e0;
9291 
9292   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9293     v4lapl3tau[0] = 0.0e0;
9294 
9295   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9296     v4lapl3tau[1] = 0.0e0;
9297 
9298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9299     v4lapl3tau[2] = 0.0e0;
9300 
9301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9302     v4lapl3tau[3] = 0.0e0;
9303 
9304   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9305     v4lapl3tau[4] = 0.0e0;
9306 
9307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9308     v4lapl3tau[5] = 0.0e0;
9309 
9310   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9311     v4lapl3tau[6] = 0.0e0;
9312 
9313   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9314     v4lapl3tau[7] = 0.0e0;
9315 
9316   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9317     v4lapl2tau2[0] = 0.0e0;
9318 
9319   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9320     v4lapl2tau2[1] = 0.0e0;
9321 
9322   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9323     v4lapl2tau2[2] = 0.0e0;
9324 
9325   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9326     v4lapl2tau2[3] = 0.0e0;
9327 
9328   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9329     v4lapl2tau2[4] = 0.0e0;
9330 
9331   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9332     v4lapl2tau2[5] = 0.0e0;
9333 
9334   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9335     v4lapl2tau2[6] = 0.0e0;
9336 
9337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9338     v4lapl2tau2[7] = 0.0e0;
9339 
9340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9341     v4lapl2tau2[8] = 0.0e0;
9342 
9343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9344     v4lapltau3[0] = 0.0e0;
9345 
9346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9347     v4lapltau3[1] = 0.0e0;
9348 
9349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9350     v4lapltau3[2] = 0.0e0;
9351 
9352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9353     v4lapltau3[3] = 0.0e0;
9354 
9355   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9356     v4lapltau3[4] = 0.0e0;
9357 
9358   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9359     v4lapltau3[5] = 0.0e0;
9360 
9361   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9362     v4lapltau3[6] = 0.0e0;
9363 
9364   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9365     v4lapltau3[7] = 0.0e0;
9366 
9367   t17672 = t1898 * t1898;
9368   t17674 = t872 * t872;
9369   t17684 = t1959 * t1959;
9370   t17706 = t6040 * t116 / t4705 / t774;
9371   t17720 = t19 * t1418;
9372   t17734 = t1904 * t1904;
9373   t17737 = t1914 * t1914;
9374   t17746 = t5687 * t12326;
9375   t17749 = t1919 * t4706;
9376   t17752 = t34 * t1921;
9377   t17765 = -0.9e1 / 0.8e1 * t4675 * t4713 - 0.9e1 / 0.8e1 * t4689 * t4713 - 0.27e2 / 0.128e3 * t1410 * t15589 + 0.3e1 * t1410 * t15592 + 0.3e1 / 0.4e1 * t12306 * t15622 * t651 + t30 * (0.3e1 * t24 * t17720 * t267 + 0.11e2 / 0.2e1 * t24 * t17720 + 0.6e1 * t28 * t775) * t41 + 0.6e1 * t30 * t1905 * t1914 + t30 * t17734 * t41 + 0.3e1 * t30 * t17737 * t41 + 0.4e1 * t30 * t621 * t5678 + 0.15e2 / 0.131072e6 * t6039 * t17706 - 0.27e2 / 0.2048e4 * t2092 * t17746 + 0.225e3 / 0.512e3 * t770 * t17749 - 0.15e2 / 0.4e1 * t277 * t17752 + t15595 * t1413 / 0.4e1 + 0.9e1 / 0.256e3 * t4675 * t4701 + t15601 * t1413 / 0.4e1 + 0.9e1 / 0.256e3 * t4689 * t4701 + 0.3e1 / 0.1024e4 * t1410 * t15585;
9378   t17769 = t1945 * t1945;
9379   t17777 = t1936 * t1936;
9380   t17786 = -0.45e2 / 0.8e1 * t632 * t15654 + 0.225e3 * t5707 * t16415 + 0.567e3 / 0.64e2 * t5920 * t17777 - 0.675e3 / 0.8e1 * t16897 * t5714 + 0.1125e4 / 0.2e1 * t16106 * t5893 * t44 * t16111;
9381   t17803 = t106 * t33 * t1921 / 0.6e1 + 0.73e2 / 0.150e3 * t15711 * t625 + 0.5913e4 / 0.50e2 * t12416 * t1922 + 0.957906e6 / 0.25e2 * t8984 * t5690 + 0.38795193e8 / 0.5e1 * t6075 * t17706 + t17765 * t44 * t55 / 0.24e2 + 0.292e3 / 0.675e3 * t17769 + 0.1168e4 / 0.2025e4 * t644 * t5717 + 0.292e3 / 0.2025e4 * t80 * t17786 - 0.73e2 / 0.97200e5 * t17786 * t96 + 0.5913e4 / 0.4e1 * t841 * t17749 - 0.73e2 / 0.10e2 * t322 * t17752 - 0.219e3 / 0.100e3 * t4755 * t1925 - 0.17739e5 / 0.25e2 * t3469 * t5693 + 0.146e3 / 0.25e2 * t1454 * t5696 - 0.4310577e7 / 0.25e2 * t2178 * t17746;
9382   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9383     v4tau4[0] = 0.9e1 * t480 * t481 * t6159 * t17672 / t17674 - 0.27e2 / 0.2e1 * t1393 * t3332 * t12170 * t1959 + 0.9e1 / 0.4e1 * t480 * t481 * t744 * t17684 * t873 + 0.3e1 * t1393 * t1394 * t3525 * t5737 - 0.3e1 / 0.8e1 * t480 * t481 * t265 * t17803 * t126;
9384 
9385   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9386     v4tau4[1] = 0.0e0;
9387 
9388   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9389     v4tau4[2] = 0.0e0;
9390 
9391   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9392     v4tau4[3] = 0.0e0;
9393 
9394   t17809 = t1965 * t1965;
9395   t17811 = t1114 * t1114;
9396   t17821 = t2026 * t2026;
9397   t17843 = t7359 * t222 / t4873 / t1016;
9398   t17857 = t141 * t1527;
9399   t17871 = t1971 * t1971;
9400   t17874 = t1981 * t1981;
9401   t17883 = t156 * t1988;
9402   t17892 = t5780 * t12871;
9403   t17895 = t1986 * t4874;
9404   t17902 = 0.3e1 * t1519 * t15951 + 0.3e1 / 0.4e1 * t12811 * t15959 * t696 - 0.9e1 / 0.8e1 * t4843 * t4881 - 0.9e1 / 0.8e1 * t4857 * t4881 - 0.27e2 / 0.128e3 * t1519 * t15948 + t152 * (0.3e1 * t146 * t17857 * t385 + 0.11e2 / 0.2e1 * t146 * t17857 + 0.6e1 * t150 * t1017) * t163 + 0.6e1 * t152 * t1972 * t1981 + t152 * t17871 * t163 + 0.3e1 * t152 * t17874 * t163 + 0.4e1 * t152 * t666 * t5771 + 0.15e2 / 0.131072e6 * t7358 * t17843 - 0.15e2 / 0.4e1 * t395 * t17883 + t15929 * t1522 / 0.4e1 + 0.9e1 / 0.256e3 * t4857 * t4869 + 0.3e1 / 0.1024e4 * t1519 * t15944 - 0.27e2 / 0.2048e4 * t2575 * t17892 + 0.225e3 / 0.512e3 * t1012 * t17895 + t15954 * t1522 / 0.4e1 + 0.9e1 / 0.256e3 * t4843 * t4869;
9405   t17906 = t2012 * t2012;
9406   t17914 = t2003 * t2003;
9407   t17923 = -0.45e2 / 0.8e1 * t677 * t15846 + 0.225e3 * t5800 * t16641 + 0.567e3 / 0.64e2 * t7263 * t17914 - 0.675e3 / 0.8e1 * t17051 * t5807 + 0.1125e4 / 0.2e1 * t16247 * t7236 * t44 * t16111;
9408   t17940 = t215 * t155 * t1988 / 0.6e1 + 0.73e2 / 0.150e3 * t15980 * t670 + 0.5913e4 / 0.50e2 * t12973 * t1989 + 0.957906e6 / 0.25e2 * t9594 * t5783 + 0.38795193e8 / 0.5e1 * t7309 * t17843 + t17902 * t44 * t172 / 0.24e2 + 0.292e3 / 0.675e3 * t17906 + 0.1168e4 / 0.2025e4 * t689 * t5810 + 0.292e3 / 0.2025e4 * t196 * t17923 - 0.73e2 / 0.97200e5 * t17923 * t208 - 0.219e3 / 0.100e3 * t4923 * t1992 - 0.17739e5 / 0.25e2 * t3725 * t5786 + 0.146e3 / 0.25e2 * t1563 * t5789 - 0.4310577e7 / 0.25e2 * t2661 * t17892 + 0.5913e4 / 0.4e1 * t1083 * t17895 - 0.73e2 / 0.10e2 * t440 * t17883;
9409   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9410     v4tau4[4] = 0.9e1 * t480 * t548 * t7210 * t17809 / t17811 - 0.27e2 / 0.2e1 * t1502 * t3774 * t12722 * t2026 + 0.9e1 / 0.4e1 * t480 * t548 * t986 * t17821 * t1115 + 0.3e1 * t1502 * t1503 * t3809 * t5830 - 0.3e1 / 0.8e1 * t480 * t548 * t383 * t17940 * t231;
9411 
9412 #ifndef XC_DONT_COMPILE_MXC
9413 
9414   if(order < 5) return;
9415 
9416 
9417 #endif
9418 
9419 #endif
9420 
9421 #endif
9422 
9423 #endif
9424 
9425 #endif
9426 
9427 
9428 }
9429 
9430